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
Пользуйтесь на здоровие =)