Yoko

Code: Select all

sub FISHING()

DIM ULOVtype[7]

ULOVtype[0] = '0x09CC' #fish1

ULOVtype[1] = '0x09CD' #fish2

ULOVtype[2] = '0x09CE' #fish3

ULOVtype[3] = '0x09CF' #fish4

ULOVtype[4] = 'UUF' #heal

ULOVtype[5] = 'DMF' #ball

ULOVtype[6] = 'RVH' #sos Tattered Treasure map

VAR udochka = 'XHF'

VAR nozh = '0x0F51'

VAR NumTile = '6043'

VAR MaxWeigth = UO.STR*4

VAR i, x, y, k

wait(200)

UO.Equipt('Rhand', udochka)

start:

for x=-6 to 6

for y=-6 to 6

UO.Print("??????? ? ?????: " + str(x) + " " + str(y))

UO.DeleteJournal()

while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")and not UO.InJournal("Try fishing elsewhere")

k = 0

if UO.Weight > MaxWeigth then

goto finish

endif



UO.DeleteJournal()

UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ()))

UO.UseType(udochka)

while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50)

k = k + 1

wait(100)

if UO.InJournal("Targeting Cancelled") then

goto start

endif

wend

#???????? ????



if UO.InJournal("You put") then

for i=0 to 6

UO.FindType(ULOVtype[i], '-1', 'ground')

UO.MoveItem('finditem')

wait(50)

next

endif



wend

next

next

finish:

UO.Print("?????? ???????????? ??? ?????")

wait(1000)

#????? ????

UO.Print("????? ???? ?? ??? ??????")

for i=0 to 3

UO.WaitTargetType(ULOVtype[i])

UO.UseType(nozh)

wait(1000)

next

if UO.Weight < MaxWeigth-5 then

goto start

endif

UO.Print("??????? ???????????")

endsub