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("Hochu mnogo Unikov: " + 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 

#Horosho idet 

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("Nu vot v Pake Unik") 

wait(1000) 

#ne Pizti 

UO.Print("A ti dumal ya noob") 

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("Lovis ribka bolshay i malenkaya") 

endsub