if one of them ends finish another too.
Code: Select all
sub minround()
VAR Kirka = '0x0E85' ; pickaxe
VAR MaxVes = 430 ; weight +- 15
VAR TileNum = '-1' ; DONT KNOW
VAR x, y, t, k
VAR MaxTime = 100
VAR ms1 = "There is no ore"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
VAR ms8 = "No item"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding")
UO.UseSkill("Hiding")
wait(4000)
wend
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
uo.findtype( Kirka )
if uo.findcount('finditem') or uo.objAtLayer( "Lhand" , Kirka ) or uo.objAtLayer( "Rhand" , Kirka ) then
uo.usetype( Kirka )
else
uo.print( "No pickaxe in backpack." )
return false
end if
repeat
wait(100)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t +MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" owerweight" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
uo.Print('End')
endsub
Code: Select all
sub CheckingPlayers()
VAR a, b
uo.ignorereset()
uo.ignore('self')
DIM Chars[3]
Chars[0] = '0x0190' #boba
Chars[1] = '0x0191' #ciuvas
Chars[2] = '0x000E' #elements
while not uo.dead()
for a = 0 to 2
while val(uo.getglobal('find')) == 1
wait(50)
wend
uo.set('finddistance', '20')
uo.findtype(Chars[a], '-1', 'ground')
if uo.findcount('finditem')>0 then
uo.exec('exec recnamo')
return
else
wait(400)
endif
next
wend
end sub