Etot scp lovit ribu v to4ke, adnoi, pri polomke udo4ki menjajet, pri vese razrezaet ribu, vsjo delaet v haide, u nas na serve riba sama kladjotsa v sumku, no kagda vilavlevajutsa interesnije vewi, oni brosajutsa podnogi, v etom scripte on vsjo wto videt pod nogami, kladjot v sumku, a mne nenado , wtob on v sumku klal vsjakuju grazj, esli zdelatj s masivom, on pol goga proverjajet vewi, posle kazdova zabrasivanije, v etom scp on berjot vsjo , no ja xotelbi wtob on
IGNORIROVAL nenuznije ITEMI , scp v studiju !
Code:
sub FISHING()
DIM ULOVtype[4]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
VAR udochka = '0x0DBF'
VAR nozh = '0x0F52'
VAR NumTile = '6043'
VAR MaxWeigth = 353
VAR i, x, y, k
wait(100)
UO.Equipt('Rhand', udochka)
start:
for x=-1 to 1
for y=-1 to 1
ToHide()
UO.Print("!_FISHING_IN_POINT_!: " + 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")
k = 0
if UO.Weight > MaxWeigth then
goto finish
endif
ToHide()
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("you fail") then
goto start
endif
wend
#ZDESJ NADO DOVAVITJ WTOB ON IGNORIROVAL MUSOR
if UO.InJournal("You put") then
UO.Set('finddistance','1') #
UO.Ignore('self')
UO.FindType('-1', '-1', 'ground')
while UO.FindCount() > 0 #
UO.MoveItem('finditem')
wait(200)
UO.FindType('-1', '-1', 'ground')
wend
UO.IgnoreReset()
endif
wend
next
next
finish:
UO.Print("!_MAX_WEIGHTH_!")
wait(100)
#ðåæåì ðûáó
UO.Print("!_SLICING_FISH_!")
for i=0 to 3 #!!!!!!
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(100)
next
if UO.Weight < MaxWeigth-5 then
goto start
endif
UO.Print("!_FISHING_FINISHES_!")
endsub
SUB ToHide()
while not UO.Hidden()
UO.WarMode(0)
UO.DeleteJournal()
UO.Print("!_HIDING_!")
UO.UseSkill('Hiding')
while not (UO.InJournal("You have hidden") or UO.InJournal("You can't seem"))
wait(100)
wend
wend
endsub
#-----------------------------------------------------------------------#
#########################################################################
используем кнопку edit [Nmy]
