1 reply to this topic

[rol]

Ja kadam nav gruti,paskaidrojiet kas ir jaizmaina skripta,lai vins craftojot mestu izgatavotos itemus cita kaste(teiksim taisa bandanas vai kreslus un met nevis taja pasha kaste,no kuras nem resursus,bet met cita,teiksim mistkaste)

Dobrij den,ogromnaja prosba k vam skriptera.
Vot skript na craft,berjot material,craftit i skidivaet,vso work.
Podkskazhite,kak pomenjat skript,shtob on tak zhe jel kogda goloden,tak zhe bral s sunduka materiali i delal veshi,no shtob skidival sdelanie veshi v drugoj sunduk( musornik)
Naprimer delal marganese shiti ili balaiki i vsakuju druguju chus i jejo vikidval v drugoj sunduk. Zaranie blagodaren vsem kto podskazhet.

set %pila EGG ;pila
set %item MMF ;Итемсы которые изготавливаются
set %chest XHRZKMD ;Сундук куда сбрасываются сделаные банданы, и лежат тряпки (Foldet Cloth')
set %log ZLK ;Logi
set %kolbaski GND
set %milk ZBM

Display yesno Have you alredy made 1 scroll?
if #dispres = yes
goto start
if #dispres = no
{
display Make 1 scroll, and restart scrpt...
halt
}
start:
finditem %pila c_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 20
click 492 453
goto scaner

Scaner:
set %overt #scnt + 18
Scan:
DELETEJOURNAL
SCANJOURNAL 1
if You_put_ in #journal || Your_skill in #journal || You_fail in #journal || #scnt => %overt
goto start
if World_Save_has_ in #journal
{
wait 5s
goto Scaner
}
if You_need_ in #journal
{
goto reload
goto Scaner
}
if You_are_hungry! in #sysmsg
{
gosub eat
goto Scaner
}
wait 15
goto scan

Reload:
set #lobjectid %chest
event macro 17 0
while #contid <> %chest
wait 1
finditem %item c_ , #backpackid
exevent drag #findid #findstack
exevent dropc %chest
wait 15
finditem %log c_ , %chest
if #findkind = -1
{
Display Out of logs!
halt
}
exevent drag #findid 500
exevent dropc #backpackid
wait 10
goto start


sub eat
finditem %milk c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 1s
finditem %milk c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 1s
finditem %kolbaski c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 3s
return

[rol]

Post close