Laboratoř ČeskýchHer.cz - PasteBin

Vložit nový kód

sub hop()
 UO.CharPrint("0x049A","Lootuji!")
 UO.Sound(86)
 loto()
 UO.Exec("terminate loto()")
end sub
 
Sub loto()
var n
Dim A[2]
A[1] = 0x0E76  ;bag/pytel
A[2] = 0x1F13  ;skillpoint/kaminek se skillem
For n = 1 to 2
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