Code: Select all
sub AutoJail()
VAR JailPatch = '1293 1767 OPEN 1291 1767 GET 1293 1770 OPEN 1291 1770 GET 1293 1773 OPEN 1291 1773 GET 1293 1776 OPEN 1291 1776 GET 1293 1779 OPEN 1291 1779 GET 1293 1782 OPEN 1291 1782 GET 1295 1782 WAIT WAIT END'
VAR navoz = '0x0F3C'
VAR navoz1 = '0x0F3B'
VAR woodgate = '0x0843'
VAR str1, str2, i = 1, sum = 0
VAR NeedGuano = 20000
UO.Set( 'distance', '3' )
UO.Set( 'finddistance', '3' )
JailPatch = JailPatch + ' '
repeat
str1 = GetWord( JailPatch, i )
If str1 <> '' Then
If str1 == 'OPEN' Then
;îòêðîåì áëèæàéøóþ äâåðü
OpenGate( woodgate )
Else
If str1 == 'GET' Then
; áåðåì íàâîç
GetGuano( navoz )
GetGuanoo( navoz )
sum = sum + 1
If sum > NeedGuano Then
;UO.Print( 'I made it!!! Congratulations!' )
return
Endif
Else
If str1 == 'END' Then
i = 0
Else
If str1 == 'WAIT' Then
wait(1000)
Else
;str1 - êîîðäèíàòà
i = i + 1
;str2 = GetWord( JailPatch, i )
;GoToXY( val(str1), val(str2), 0 )
Endif
Endif
Endif
Endif
Else
i = 0
Endif
i = i + 1
until sum > NeedGuano
endsub
Sub OpenGate( typ1 )
VAR nemogu = "You can't reach that."
repeat
UO.Findtype( typ1, '-1', '1' )
DeleteJournal( nemogu )
UO.UseObject( 'finditem' )
wait(500)
CheckLag()
If UO.InJournal( nemogu ) Then
UO.Ignore( 'finditem' )
Else
return
Endif
until False
endsub
Sub GetGuano( typ1 )
VAR nemogu = "You can't reach that."
repeat
UO.FindType( typ1, '-1', '1' )
If UO.FindCount() > 0 Then
DeleteJournal( nemogu )
UO.UseObject( 'finditem' )
wait(500)
CheckLag()
If UO.InJournal( nemogu ) Then
UO.Ignore( 'finditem' )
Else
UO.IgnoreReset()
return
Endif
Else
wait( 1000 )
Endif
until False
endsub
Sub GetGuanoo( typ2 )
VAR nemogu = "You can't reach that."
repeat
UO.FindType( typ2, '-1', '1' )
If UO.FindCount() > 0 Then
DeleteJournal( nemogu )
UO.UseObject( 'finditem' )
wait(500)
CheckLag()
If UO.InJournal( nemogu ) Then
UO.Ignore( 'finditem' )
Else
UO.IgnoreReset()
return
Endif
Else
wait( 1000 )
Endif
until False
endsub
Sub GetWord( st, nom )
; Âîçâðàùàåò ñëîâî èç ñòðîêè str çà íîìåðîì num
; åñëè òàêîãî ñëîâà íåò - âîçâðàùàåì ''
;
; Ðàçäåëèòåëåì ñëîâ ñ÷èòàåì ïðîáåë. Íåñêîëüêî ïðîáåëîâ ïîäðÿä ñ÷èòàþòñÿ çà îäèí.
; Ôóíêöèÿ ñäåëàíà áåç ðåêóðñèè ñïåöèàëüíî äëÿ ñ÷èòûâàíèÿ ñëîâ èç ñâåðõäëèííûõ ñòðîê!
;
VAR tmpst
VAR i, dlin, kol, start
dlin = len( st )
kol = 0
start = 0
For i=0 To dlin - 1
If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
kol = kol + 1
If kol == nom Then
; ýòî ïåðâûé ïðîáåë ïîñëå íóæíîãî íàì ñëîâà
tmpst = mid( st, start, i - start )
return tmpst
Else
While mid( st, i, 1 ) == ' '
i = i + 1
Wend
If kol == nom - 1 Then
start = i
Endif
Endif
Endif
Next
tmpst = ''
return tmpst
endsub
; Óäàëÿåì óêàçàííóþ ôðàçó èç æóðíàëà
;
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, ' ' )
DeleteJournal( string1 )
Endif
endsub
;
; Ïðîâåðêà íà ëàãè
; Èäåÿ - Savage
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub
SUB GoToXY(x,y,prec)
; Õîæäåíèå ïî ìèðîâûì êîîðäèíàòàì ñ òî÷íîñòüþ prec è ñêîðîñòüþ, çàâèñÿùåé îò wt
; (c) Yoko, AGRS
UO.TextPrint('GoToXY '+STR(x)+', '+STR(y))
Var ld=0,ldc=0
Var dx,dy
Var mx,my
Var ox,oy,mk,k
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
If dx<0 Then
dx=0-dx
EndIf
dy=my-y
If dy<0 Then
dy=0-dy
EndIf
If dy>dx Then
dx=dy
EndIf
If dx<=prec Then
Return
EndIf
If dx<3 Then
mk=70
Else
mk=15
EndIf
ox=mx
oy=my
For k=1 To mk
mx=UO.GetX()
my=UO.GetY()
If mx<>ox Or my<>oy Then
GoTo sdidapl
EndIf
Next
sdidapl:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
If dx<0 Then
dx=0-dx
EndIf
dy=my-y
If dy<0 Then
dy=0-dy
EndIf
If dy>dx Then
dx=dy
EndIf
If dx<=prec Then
Return
EndIf
If ld==dx Then
ldc=ldc+1
If ldc>100 Then
UO.Print("Can not reach location!")
Return
EndIf
Else
ld=dx
EndIf
If mx==x Then
If my==y Then
Return
EndIf
If my>y Then
UO.Press(33)
GoTo start
EndIf
UO.Press(35)
GoTo start
EndIf
If mx<x Then
If my>y Then
UO.Press(39)
GoTo start
EndIf
If my==y Then
UO.Press(34)
GoTo start
EndIf
UO.Press(40)
GoTo start
EndIf
If my<y Then
UO.Press(37)
GoTo start
EndIf
If my==y Then
UO.Press(36)
GoTo start
EndIf
UO.Press(38)
GoTo start
endsub