Народ есть хороший скриптик на фишинг но он отключается после того как выловит все вокруг себя можно ли добавить в скрипт чтобы он после того как все выловит делал несколько шагов или переходил к следующему тайлу??Спасибо.
Code:
sub Fishing()
var mX, mY, mZ, i, j
var f
var a=0
####################
### Ìåíþ/Options ###
####################
#########################################################################
###
var TryToHide=0 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü.
###
var TakeFish=1 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü.
###
var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü.
###
var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü.
###
var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü.
###
var MaxWeight=430 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ.
###
#########################################################################
###################
### Ìàññèâ ðûáû ###
###################
dim Fish[6]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6
Beginning:
uo.Set('finddistance','6')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-6 to mX+6
for j = mY-6 to mY+6
if uo.Dead() then
return
end if
if TryToHide==1 then
ToHide()
end if
uo.Print("Ñåé÷àñ ëîâèì: "+str(mx-i)+" "+str(my-j))
while not uo.InJournal("You pull") and not uo.InJournal("in water") and not uo.InJournal("no fish") and not uo.InJournal("far away")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype('0x0DBF')
if uo.Dead() then
return
end if
if uo.Weight>MaxWeight then
wait(4000)
goto Beginning
end if
while not uo.InJournal("You pull") and not uo.InJournal("location") and not uo.InJournal("no fish") and not uo.InJournal("but fail") and not uo.InJournal("far away") and not uo.InJournal("in water")
wait (100)
if uo.InJournal("You pull") then
if a>0 then
uo.print(STR(a))
end if
if TakeFish==1 then
uo.Print('Ñîáèðàåì ðûáó.')
for f=0 to 3
uo.FindType(Fish[f],"-1","ground")
if uo.Count(Fish[2])> 0 then
a= a+1
end if
uo.MoveItem("finditem","1","Fishs")
wait(200)
next
end if
if TakeMaps==1 then
uo.Print('Ñîáèðàåì êàðòû.')
for f=4 to 4
uo.FindType(Fish[f],"-1","ground")
uo.MoveItem("finditem","-1","Maps")
wait(200)
next
end if
if TakeRareFish==1 then
uo.Print('Ñîáèðàåì ðàð ðûáó.')
for f=5 to 5
uo.FindType(Fish[f],"-1","ground")
uo.MoveItem("finditem","-1","RareFish")
wait(200)
next
end if
if TakePrizeFish==1 then
uo.Print('Ñîáèðàåì ïðèç ðûáó.')
for f=6 to 6
uo.FindType(Fish[f],"-1","ground")
uo.MoveItem("finditem","-1","PrizeFish")
wait(200)
next
end if
end if
wend
wend
uo.DeleteJournal()
next
next
end sub
sub ToHide()
while not uo.Hidden()
uo.Exec('warmode 0')
uo.Print('Ïûòàåìñÿ óéòè â õàéä...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4100)
wend
wait(100)
end sub
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
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.Exec('terminate all')
;UO.Exec('exec autoload')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
sub rasklad()
var map='0x14EB'
uo.Exec('addobject meshok')
while uo.Targeting()
wait(100)
wend
uo.FindType(map,'-1','backpack')
while uo.FindCount()
uo.FindType(map,'-1','backpack')
uo.moveitem('finditem','1','meshok')
wait(500)
wend
end sub