Find content
Not Telling
Posle kak nakopae6 i ka4njo6 mining do 100% poljzujsja etim skriptom na BS
if #lobjecttype = MMF
set %x 462
else
set %x 493
if #lobjecttype = RQF
set %gumpJump #true
else
set %gumpJump #false
if #lobjecttype = PEF
set %wait #true
else
set %wait #false
set %fail 0
_start:
event macro 17 0
wait 20
gosub gumpWait
goto _click
_make:
if ! %gumpJump
{
event macro 17 0
gosub gumpWait
}
_click:
event sysmessage craft..
click %x 455
set %j #jindex
gosub scan
if %wait
wait 70
goto _make
sub gumpWait
set %failT #scnt + 15
repeat
{
if #contname = generic_gump && #contkind = MIJB
return
if #contname = generic_gump && #contkind = UCHB
return
wait 10
}
until #scnt > %failT
return
sub scan
deletejournal
set %lag #scnt + 30
repeat
{
scanjournal %j
if hungry in #journal
{
gosub eat
return
}
if you_put in #journal 2
set %fail 0
return
if you_fail in #journal && : notin #journal
{
gosub fail
return
}
if have_failed in #journal && : notin #journal
{
gosub fail
return
}
if you_need in #journal
{
display ok SCP STOPPED
halt
}
if #jindex > %j
set %j %j + 1
}
until #scnt > %lag
return
sub eat
set %l #lobjectid
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
set #lobjectid %l
return
sub fail
set %fail %fail + 1
if %fail >= 3 3
click 491 455
wait 30
set %fail 0
return
Toko pered startom zdelaj nuznij item
i zapuskaj on eti itemi budet delatj
Toggle shoutbox
Chat
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
