Stealth Client Forum

Code: Select all

sub main() 
var i,k 
While true


UO.Exec("usetype '0x1849'") 
UO.Exec("waittargettype '0x0F88'") 
wait(300) 
UO.AutoMenu('Make what?','a greater poison potion') 
UO.Exec("waittargettype '0x0F0A'") 
wait(4000) 
if uo.NS<20 then
   UO.findtype ("0x0F88", 0x0000 , 1)
   UO.grab ("2000", "finditem")
endif
endif 
wend 
end sub 

sub xaBka() 
var i,k 
While true 

UO.ServerPrint("Kill me please") 
wait(20000) 

UO.ServerPrint(".hungry") 
Wait(1000) 
i=UO.LastMessage() 
If i=="You aren't hungry at all" Then 
UO.Exec("usetype '0x097B'") 
EndIf 

k=UO.LastMessage() 
If k=="Saving World State" <>0 Then 
Wait(20000) 
UO.DeleteJournal() 
endif 
wend 
end sub