Yoko

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