sub hop()
UO.CharPrint("0x049A","LOOT!")
 loto()
wait(500)
 UO.Exec("terminate loto()")
end sub


Sub loto()
var n
Dim A[5]
A[1] = 0x0E76  ;bag
A[2] = 0x0F3F  ;sipy
A[3] = 0x0E21  ;bandage 
A[4] = 0x1BFB  ;sipky
A[5] = 0x1F13  ;skillpoint
For n = 1 to 5
Repeat
UO.FindType(A[n],-1,'lastcontainer')
If UO.FindCount() > 0 Then
UO.MoveItem('finditem',-1,'backpack')
UO.DeleteJournal()
wait(100)
EndIf
Until UO.FindCount() == 0
Next
End Sub

sub start()
while NOT UO.Dead()
UO.CharPrint("0x049A","ping..................")
wait(500)
if UO.InJournal('Contains:|Contains|You have gained a|amount of karma.|amount of fame.|You see: Body') then
hop()
uo.deletejournal()
endif
UO.CharPrint("0x049A","...................pong")
wait(500)
repeat
wait(500)
wend
end sub