Фишинг для ДрВ !

[autopilot]

Ребята у кого есть скрипт на ловлю только карт ?? Скрипт ака куллер ловит рыбу в точке пока не выловит всю и переходит на другую. А если карта не вылавливается с первого раза переходит на другую точку.. так вот можно сделать чтоб он повторял в тех местах где не выловилось с первого раза ? А если в точке рыба переходил на другую не вылавливая всю ?

[Sfagnum]

ответил в топик

[Sit]

Ребята у кого есть скрипт на ловлю только карт ?? Скрипт ака куллер ловит рыбу в точке пока не выловит всю и переходит на другую. А если карта не вылавливается с первого раза переходит на другую точку.. так вот можно сделать чтоб он повторял в тех местах где не выловилось с первого раза ? А если в точке рыба переходил на другую не вылавливая всю ?

################################################
### Fishing / Ëîâëÿ ðûáû v1.7 Full ###
################################################
### Øàðä Dragon World / www.drw.ru ###
################################################
### Âíèìàíèå:
### Äëÿ ðàáîòû ñêðèïòà íóæíà âåðñèÿ YokoInjection 4DZ.
### Ñêà÷àòü dll ýòîé âåðñèè ìîæíî
### îò ñþäà: www.swines.nm.ru/injection.zip
#########################################################
### Àâòîðû:
### - Ïåðâîíà÷àëüíûé ñêðèïò:"BETEPAH".
### - Äîðàáîòêà, ñîçäàíèå ìàññèâà, ïåðåðàáîòêà:"cOoler".
#########################################################
############################
### Îïèñàíèå è íàñòðîéêà ###
############################
### Îáðàòèòå âíèìàíèå íà çíà÷êè "]![" èìè âûäåëåííû âàæíûå ñîîáùåíèÿ.
###
### ×àð èùåò âîêðóã ñåáÿ âîäó, à â âîäå ðûáó.
### Íàéäÿ ðûáó ëîâèò åå è êëàäåò â ïàê.
### Ïîñëå òîãî êàê íàáèðàåòñÿ ìàêñèìàëüíûé âåñ èëè êîí÷àåòñÿ ðûáà ñêðèïò âûêëþ÷àåòñÿ.
###
####################
### Íîâîââåäåíèÿ ###
####################
### 1)Òåïåðü â ñêðèïòå ïðèñóòñòâóåò ìàñèâ ðûáû. [cOoler]
### 2)Âåñ ìîæíî óêàçàòü â ïåðåìåííûõ. [cOoler]
### 3)Äîáàâëåíî ìíîæåñòâî ïåðåìåííûõ. [cOoler]
###
### ]![ ×òîáû ñêðèïò çàðàáîòàë âíèìàòåëüíî ïðî÷òèòå íàñòðîéêè. ]![
###
###################################
### Ðåæèìû ðàáîòû ñêðèïòà ###
###################################
### Ðàáîòàåò â 3óõ ðåæèìàõ: ###
### 1)Ïîèñê ###
### 2)Ëîâëÿ ###
### 3)Ñáîð ###
###################################
### Ðåæèì Ïåðâûé - "Ïîèñê" ###
###################################
### Ýòîò ðåæèì îòâå÷àåò çà Ïîèñê âîäû(çàïèñûâàíèå êîîðäèíàò) äåðåâüåâ.
###
### Ïîèñê ïðîèñõîäèò òàê:
### Ñòàâèì ÷àðà ðÿäîì ñ âîäîé.
### Çàïóñêàåì ñêðèïò è îí àâòîìàòè÷åñêè íà÷èíàåò èñêàòü âîäó.
###
##############################
### Ðåæèì Âòîðîé - "Ëîâëÿ" ###
##############################
### Ýòîò ðåæèì ñîîòâåòñòâåíîî îòâå÷àåò çà ëîâëþ ðûáû.
###
### Ëîâëÿ ïðîèñõîäèò òàê:
### Ïîñëå òîãî êàê ÷àð íàéäåò âîäó, îí íà÷èíàåò èñêàòü â âîäå ðûáó
### è ëîâèòü åå.
##############################
### Ðåæèì Âòîðîé - "Ñáîð" ###
##############################
### Ýòîò ðåæèì ñîîòâåòñòâåíîî îòâå÷àåò çà ñáîð ðûáû.
###
### Ñáîð ïðîèñõîäèò òàê:
### Ïàðàëåëüíî ñ òåì êàê ÷àð áûäåò ëîâèòü ðûáó îí áóäåò ñêëàäûâàòü åå â ïàê(êîòîðûé âû óêàêçàëè).
###
### Íàñòðîéòå ñêðèïò ïîä ñåáÿ ïðè ïîìîùè ïåðåìåííûõ.
###
##################
### Ïåðåìåííûå ###
##################
### var TryToHide=1 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü.
### var TakeFish=1 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü.
### var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü.
### var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü.
### var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü.
### var MaxWeight=800 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ.
###
### Ïîñëå íàñòðîéêè:
### Èäèòå ê ðåêå â êîòîðîé âû õîòèòå ëîâèòü ðûáó.
### Çàïóñòèòå cêðèïò Fishing(), Èíæåêò ïîïðîñèò âàñ óêàçàòü Ïàê äëÿ ðûáû
### (ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà ïàê),
### ïîòîì èíæåêò ïîïðîñèò âàñ óêàçàòü Óäî÷êó(ïîÿâèòñÿ ïðèöåë, ïðèöåëîì íà íåå).
### Ïîñëå ýòîãî ÷àð áóäåò ëîâèòü ðûáó.
###########
### Êîä ###
###########
sub Fishing()
var mX, mY, mZ, i, j
var f
var a=0
####################
### Ìåíþ/Options ###
####################
#########################################################################
###
var TryToHide=1 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü.
###
var TakeFish=0 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü.
###
var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü.
###
var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü.
###
var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü.
###
var MaxWeight=800 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ.
###
#########################################################################
###################
### Ìàññèâ ðûáû ###
###################
dim Fish[6]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6

uo.Print('Âûáåðè êîíòåéíåð...')
uo.Exec('addobject Bag')
while uo.Targeting()
wait(100)
wend

uo.Print('Âûáåðè óäî÷êó...')
uo.Exec('addobject FishPole')
while uo.Targeting()
wait(100)
wend

uo.Set('finddistance','4')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-4 to mX+4
for j = mY-4 to mY+4
if uo.Dead() then
return
endif

if TryToHide==1 then
ToHide()
end if

uo.Print("Ñåé÷àñ ëîâèì: "+str(mx-i)+" "+str(my-j))
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("You pull out a fish!")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.UseObject("FishPole")
if uo.Dead() then
return
endif
if uo.Weight>MaxWeight then
uo.Print('Ìàêñèìàëüíûé âåñ íàáðàí.')
return
endif
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 DropFish()
ToHide()
if uo.Waiting() then
uo.CancelTarget()
end if
var a, Exit
var Chest='0x40203CC2' ## - ID ñóíäóêà äëÿ ñáðîñà ëîãîâ.
dim Fish[6]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6
uo.Print('Âûêëàäûâàåì Ðûáó.')
uo.SetReceivingContainer(Chest)
wait(500)
for a=0 to 6
exit=0
repeat
uo.FindType(Fish[a])
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(1500)
else
exit=1
end if
until Exit==1
next
uo.UnSetReceivingContainer(Chest)
uo.Print('Ðûáà Âûëîæåíà.')
end sub

sub Terminate()
uo.Exec('terminate all')
end sub

[XpyCmuK]

sub fishing()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then
return
endif
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF")
if UO.dead() then
return
endif
if UO.Weight>1620 then
return
endif
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
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (500)
end if
wend
wend
UO.DeleteJournal()
next
next
end sub