Code: Select all
sub FishingAround()
var iX,iY
for var iStep=0 to 1000
for iX=-6 to 6
for iY=-6 to 6
GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
next
next
next
end sub
Sub GetAllFish(iX,iY)
var counter=0
repeat
counter=counter+1
UO.DeleteJournal()
UO.WaitTargetTile(0,iX,iY,0)
UO.UseType('0x0DBF')
while not UO.InJournal('You pull out a fish') and not UO.InJournal('У вас не получилось ничего поймать') and not UO.InJournal('There are no fish here') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away')
wait(300)
wend
if UO.InJournal('You pull out a fish') then
counter=0
GetFish()
end if
until UO.Injournal('There are no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>MaxFailure
end sub
Sub GetFish()
UO.set('finddistance',0)
UO.IgnoreReset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
UO.WaitTargetObject('finditem')
UO.UseType('0x0F51')
UO.Ignore('finditem')
wait(500)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
UO.Grab(0,'finditem')
wait(100)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
end sub
sub Reconnect()
var ReconnectTime,rflag
ReconnectTime='0'
rflag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rflag then
ReconnectTime=Time()
rflag=0
end if
wait(30000)
uo.Say('') #Аккаун
wait(3000)
uo.Say('') #Пароль
wait(3000)
uo.Say('') #Имя чара
wait(3000)
uo.Ldblclick(357,164)
uo.Lclick(616,459)
wait(3000)
wend
wait(3000)
if (rflag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rflag=1
ReconnectTime='0'
end if
until false
end sub