Simply stacks shurikens by loading them into a belt, then unloading the belt.
display ok Target your secure container$with your stars in it
set #targCurs 1
while #targCurs = 1
wait 1
set %star_container #ltargetID
event macro 17
display ok Now target your belt
set #targCurs 1
while #targCurs = 1
wait 1
set %belt #ltargetID
set %star GDP
set %gump_size 127_60
set %loadX 30
set %loadY 20
set %unloadX 40
set %unloadY 40
repeat
for %i 1 5
{
finditem %belt
exevent popup #findID
gosub GumpAndSizeWait NULL normal_gump %gump_size
gosub offsetClick %loadX %loadY l
target
finditem %star C_ , %star_container
set #ltargetID #findID
set #ltargetKind 1
event macro 22
wait 10
}
finditem %belt
;if #findCnt > 0
exevent popup #findID
gosub GumpAndSizeWait NULL normal_gump %gump_size
gosub offsetClick %unloadX %unloadY l
wait 5
until #false
;-------------------------------------------------------------------------------
; %1 = GumpAndSizeWait
; %2 = Gumpname 1
; %3 = Gumpname 2
; gosub GumpAndSizeWait NULL generic_gump %lore_gump_size
sub GumpAndSizeWait
set %timedelay #SCNT
wait 5
GumpWait_loop1:
if #CONTNAME = %2 && #CONTSIZE = %3
return #FALSE ; no error
if #SCNT > %timedelay + 7
return #TRUE ; error, timeout
goto GumpWait_loop1
return #TRUE ; should never get here.
sub OffsetClick
set %tempx %1 + #CONTPOSX
set %tempy %2 + #CONTPOSY
click %tempx %tempy %3
return
Next will be poisoning them of course....