CODE:
initevents
set %pila EGG ;pila
set %item MMF ;shto gotovim
set %chest WCRJKMD ; kuda klodom sunduk
set %log ZLK ;Logi
set %kolbaski GND ;bekon
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 400
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 15s
finditem %milk c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 15s
finditem %kolbaski c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 5s
finditem %kolbaski c_ , %chest
exevent drag #findid 1
exevent dropc #backpackid
set #lobjectid #findid
event macro 17 0
event macro 17 0
wait 5s
return
Toggle shoutbox
Chat
|
Bobo
Member Since 14 Mar 2010Offline Last Active Aug 16 2010 01:44