Ultima Online Antares

sub main()
#êîíñòàíòû
VAR Kirka = '0x0E85' ; Òèï êèðêè
VAR MaxVes =1000 ; Áîëüøå íå óòàùèì
VAR TileNum = '1339' ; Òàéë ïåùåðû
#Ïåðåìåííûå
VAR x, y, t, k, oldx, oldy, wh, togg
#Ñîîáùåíèÿ
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen"
VAR ms5 = "You have no"
VAR ms6 = "Try mining in rock"
VAR ms7 = "Õì.."
#Ïîåõàëè!
while 1
wait(300)
oldx = uo.getx(2448) #Çàïîìíèì ãäå ìû: âäðóã â òóïèêå?
oldy = uo.gety(897)
UO.Set('quiet','1') #Çàêàíàëè ñîîáùåíèÿ...
for y=-2 to 2
for x=-2 to 2
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
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)
If UO.Weight > MaxVes Then
; Ôóóó....
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 7) )
next
next
UO.Set('quiet','0') #Ïîøëè?
uo.print( 'Õîäèëêà çàäåéñòâîâ&agrav
e;íà.') #Óäîáíî äëÿ îòëàäêè...
wait(300)
oldx = uo.getx() #Åùå ðàç íà âñÿêèé.
oldy = uo.gety()
if wh == '1' then #Âïðàâî
uo.press (33)
uo.press (33)
uo.press (33)
else #Âëåâî
uo.press (35)
uo.press (35)
uo.press (35)
endif
wait(300)
if (uo.getx() == oldx) and (uo.gety() == oldy) then
uo.print('Òóïèê!')
if wh == '1' then #Ïåðåêëþ÷èòü wh è ñäâèíóöà ââåðõ
uo.press(36)
uo.press(36)
uo.press(36)
wh = '0'
else
wh = '1'
uo.press(36)
uo.press(36)
uo.press(36)
end if
else
uo.print('Ïðîõîäèì.')
endif
wait(300) # èèè.... çàíîâî!
wend
end sub