No replies to this topic

[kocinsh]

Bija prasība spēlē pēc šī skripta.

Ja nemaldos tad:
1.ieliekam bankā vai uz zemes lādi, kurā ir lielie poizeni un gaļa
2.lādes ID norādām pie BAG mainīgā skriptā
3.Spiežam startu.
Skripts paņem 100 poizenus un ņem pa vienai gaļai un indē vai tamlīdzīgi

set %food VRD
set %color 0
set %bag FZBWKMD
set #lobjectid %bag
event macro 17
while #contid <> %bag
wait 10
finditem %food C_ , #backpackid
if #findcnt <> 0
{
exevent drag #findid #findstack
exevent dropc %bag
wait 15
}
repeat
{
f:
finditem %food C_ , %bag
if #findcnt = 0 2
event sysmessage Food not found!
halt
if #findcol <> %color
{
ignoreitem #findid
goto f
}
set %item #findid
exevent drag %item 1
exevent dropc #backpackid
repeat
finditem %item C_ , #backpackid
until #findcnt = 1
finditem ZGJ C_ , #backpackid
if #findcnt = 0
{
wait 40
gosub take
return
}

set %count #findstack
set #ltargetkind 1
set #ltargetid %item
set #lobjectid #findid
event macro 17 0
target
while #targcurs <> 1
wait 1
event macro 22 0
repeat
finditem ZGJ C_ , #backpackid
until #findstack < %count
set #ltargetkind 1
set #ltargetid %item
taste:
set %lag #scnt + 15
event macro 13 36
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
repeat
finditem %item C_ , #backpackid
until #findcol = 73 || #scnt > %lag
if #scnt > %lag
goto taste
exevent drag %item #findstack
exevent dropc %bag
wait 40
repeat
finditem %item C_ , #backpackid
until #findcnt = 0
ignoreitem %item
}
until #false

sub take
finditem ZGJ c_ , %bag
exevent drag #findid 100
exevent dropc #backpackid
wait 15
return