Moderators: Murderator+, Murderator
Immelstorn wrote:Люди зачем засоряете топик? Тут скрипты продают, а не раздают нахаляву. Достало, правда. Если столько энтузиазма - выкладывайте в свободном доступе. Я что не имею права получить некоторое материальное поощрение за мой интелеллектуальный труд? А?
BETEPAH wrote:Immelstorn wrote:Люди зачем засоряете топик? Тут скрипты продают, а не раздают нахаляву. Достало, правда. Если столько энтузиазма - выкладывайте в свободном доступе. Я что не имею права получить некоторое материальное поощрение за мой интелеллектуальный труд? А?
Без обид, этот форум создан для Помощи а не для продажи.
Все что тут делают, делают для помощи а не для продажи.
Если хочешь продать ......пиши на форуме Шарда.
Сдесь тебе это сделать не дадут.
BETEPAH wrote:Immelstorn wrote:Люди зачем засоряете топик? Тут скрипты продают, а не раздают нахаляву. Достало, правда. Если столько энтузиазма - выкладывайте в свободном доступе. Я что не имею права получить некоторое материальное поощрение за мой интелеллектуальный труд? А?
Без обид, этот форум создан для Помощи а не для продажи.
Все что тут делают, делают для помощи а не для продажи.
Если хочешь продать ......пиши на форуме Шарда.
Сдесь тебе это сделать не дадут.
Cooler! wrote:Immelstorn wrote:Предлагаю отличный скрипт на фишинг. Основное назначение скрипта - сбор карт, рарной рыбы и фишинг сетей. Особенности:
1. Ловля происходит в 7 точках, если ловится обычная рыба, текущий тайл пропускается.
2. Реколл по точкам по рунбуке.
3. После обхода всех мест чар реколлится домой, сбрасывает улов, речаржит рунбук, ест и летит в 1-ую точку.
4. В скрипт встроена защита от ПК, при появлении последнего чар будем пытаться среколлится домой по рунке, если удачно, сбрасывать улов и лететь в следующую точку.
5. Скрипт оттестирован, есть функция реконнекта.
Цена скрипта договорная, ориентировочно 500к. Возможны варианты обмена. По всем вопросам в асю: 319-441-943. С Уважением, Immelstorn.
Я сделаю на халяву если будут пожелания !! Стучите пишите в личку ... Это легко из моего с Ветром скрипта на ламбер!
Code: Select all
#########################################################
### Fishing / Ловля рыбы v1.9 Full / 3 Руны ###
#########################################################
### Шард 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=1 ## 1 - Включить сбор обычной рыбы, 0 - выключить.
###
var TakeMaps=1 ## 1 - Включить сбор карт, 0 - выключить.
###
var TakeRareFish=1 ## 1 - Включить сбор рарной рыбы, 0 - выключить.
###
var TakePrizeFish=1 ## 1 - Включить сбор приз рыбы, 0 - выключить.
###
var MaxWeight=650 ## - Вес при котором скрипт выключиться.
###
#########################################################################
###################
### Массив рыбы ###
###################
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.Print('Руна-Домой :')
uo.Exec('addobject RuneHome')
while uo.Targeting()
wait(100)
wend
uo.Print('Руна-Озеро №1 :')
uo.Exec('addobject RuneFish1')
while uo.Targeting()
wait(100)
wend
uo.Print('Руна-Озеро №2 :')
uo.Exec('addobject RuneFish2')
while uo.Targeting()
wait(100)
wend
wait(1000)
uo.Exec('exec RecallFishing1')
wait(4000)
Beginning:
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
end if
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")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.UseObject("FishPole")
if uo.Dead() then
return
end if
if uo.Weight>MaxWeight then
wait(3000)
uo.Exec('exec RecallHome')
wait(4000)
uo.Exec('exec DropFish')
wait(17000)
uo.Exec('exec RecallFishing2')
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 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 RecallHome()
var mX, mY
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
mX = uo.GetX("self")
mY = uo.GetY("self")
uo.DeleteJournal()
uo.WaittargetObject('RuneHome')
wait(500)
uo.Cast('Recall')
wait(4500)
if not uo.GetX("self") <> mX and not uo.GetY("self") <> mY then
goto reccal
end if
end sub
sub RecallFishing1()
var mX, mY
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
mX = uo.GetX("self")
mY = uo.GetY("self")
uo.DeleteJournal()
uo.WaittargetObject('RuneFish1')
wait(500)
uo.Cast('Recall')
wait(4500)
if not uo.GetX("self") <> mX and not uo.GetY("self") <> mY then
goto reccal
end if
end sub
sub RecallFishing2()
var mX, mY
reccal:
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
mX = uo.GetX("self")
mY = uo.GetY("self")
uo.DeleteJournal()
uo.WaittargetObject('RuneFish2')
wait(500)
uo.Cast('Recall')
wait(4500)
if not uo.GetX("self") <> mX and not uo.GetY("self") <> mY then
goto reccal
end if
end sub Code: Select all
sub hiding()
uo.print("Hiding...")
UO.Warmode("0")
while not UO.Hidden()
UO.DeleteJournal()
UO.UseSkill("Hiding")
while NOT UO.InJournal("You")
wait(1000)
wend
wend
uo.print("OK")
end sub
sub fishingSouth()
hiding()
;var mx, my, mz, i, j
var i,j, isfishing
var mx = UO.GetX('self')
var my = UO.GetY('self')
var mz = UO.GetZ('self')
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6
for j = my+1 to my+6
isfishing = 1
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)+' '+str(mz))
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
UO.DeleteJournal()
UO.Waittargettile("6043", str(i), str(j), str(251))
UO.Usetype('0x0DC0')
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait(100)
wend
; if not UO.Hidden('self') then
; hiding()
; end if
if UO.InJournal("treasure") then
uo.findtype('0x14EB',-1,1)
wait(500)
uo.grab('0','finditem')
end if
if UO.InJournal("fishing net") then
uo.findtype('0x0DCA',-1,1)
wait(500)
uo.grab('0','finditem')
end if
if UO.InJournal("Prize") or UO.InJournal("Rare") then
uo.findtype('0x0DD6',-1,1)
wait(500)
uo.grab('0','finditem')
end if
if UO.InJournal("out a fish") then
isfishing = 0
uo.print('vnizzz!!!')
end if
wend
UO.DeleteJournal()
next
next
until 1
end sub
sub fishingNorth()
hiding()
;var mx, my, mz, i, j
var i,j, isfishing
var mx = UO.GetX('self')
var my = UO.GetY('self')
var mz = UO.GetZ('self')
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6
for j = my-6 to my-1
isfishing = 1
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
UO.DeleteJournal()
UO.Waittargettile("6043", str(i), str(j), str(251))
UO.Usetype('0x0DC0')
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait(100)
wend
; if not UO.Hidden('self') then
; hiding()
; end if
if UO.InJournal("treasure") then
uo.findtype('0x14EB',-1,1)
wait(500)
uo.grab('0','finditem')
end if
if UO.InJournal("fishing net") then
uo.findtype('0x0DCA',-1,1)
wait(500)
uo.grab('0','finditem')
end if
if UO.InJournal("Prize") or UO.InJournal("Rare") then
uo.findtype('0x0DD6',-1,1)
wait(500)
uo.grab('0','finditem')
end if
if UO.InJournal("out a fish") then
isfishing = 0
uo.print('dalshe!!!')
end if
wend
UO.DeleteJournal()
next
next
until 1
end sub
sub fishingEast()
hiding()
;var mx, my, mz, i, j
var i,j, isfishing
var mx = UO.GetX('self')
var my = UO.GetY('self')
var mz = UO.GetZ('self')
UO.DeleteJournal()
repeat
for i = mx+2 to mx+6
for j = my-6 to my+6
isfishing = 1
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)+' '+str(mz))
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
UO.DeleteJournal()
UO.Waittargettile("6043", str(i), str(j), str(251))
UO.Usetype('0x0DC0')
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait(100)
wend
; if not UO.Hidden('self') then
; hiding()
; end if
if UO.InJournal("treasure") then
uo.findtype('0x14EB',-1,1)
wait(500)
uo.grab('0','finditem')
uo.print('YPA MAP !!!')
end if
if UO.InJournal("fishing net") then
uo.findtype('0x0DCA',-1,1)
wait(500)
uo.grab('0','finditem')
uo.print('CETO4KA')
end if
if UO.InJournal("Prize") or UO.InJournal("Rare") then
uo.findtype('0x0DD6',-1,1)
wait(500)
uo.grab('0','finditem')
uo.print('Eeee PbI6KA')
end if
if UO.InJournal("out a fish") then
isfishing = 0
uo.print('vnizzz!!!')
end if
wend
UO.DeleteJournal()
next
next
until 1
end sub
sub fishingAll()
hiding()
;var mx, my, mz, i, j
var i,j, isfishing
var mx = UO.GetX('self')
var my = UO.GetY('self')
var mz = UO.GetZ('self')
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6
for j = my-6 to my+6
isfishing = 1
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)+' '+str(mz))
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
UO.DeleteJournal()
UO.Waittargettile("6043", str(i), str(j), str(251))
UO.Usetype('0x0DC0')
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait(100)
wend
; if not UO.Hidden('self') then
; hiding()
; end if
if UO.InJournal("treasure") then
uo.findtype('0x14EB',-1,1)
wait(500)
uo.grab('0','finditem')
uo.print('YPA MAP !!!')
end if
if UO.InJournal("out a fish") then
isfishing = 0
uo.print('vnizzz!!!')
end if
wend
UO.DeleteJournal()
next
next
until 1
end sub
sub main()
var numrun
dim frune[10] ; òóò ÈÄøíèêè 6 ðóí íà ìåñòî ðûáàëêè è 7-àÿ äîìîé ê ÿùèêó
frune[1]='0x401932AF'
frune[2]='0x4019355E'
frune[3]='0x401933D4'
frune[4]='0x40193455'
frune[5]='0x401933F0'
frune[6]='0x4019302D'
frune[7]='0x402E074A'
var bagformap='0x40170C22' ;ìåøîê â êîòîðûé áóäóò êèäàòñÿ ìàïû äîìà
uo.exec("addobject Runebook 0x402127CF")
numrun=1
repeat
uo.cast('Recall',frune[numrun])
wait(5000)
if numrun==1 or numrun==2 or numrun==3 or numrun==4 or numrun==5 or numrun==6 then
uo.exec(fishingEast()) ; ýòî èìååòñÿ ââèäó ÷òî ïðè ïðèõîäå íà âñå ðóíû áóäåøü ëîâèòü íà þã, èëè îñòàâü òàê èëè ïðîñòî ïîìåíÿé íà äðóãîé âëîæåííûé ñêðèïò(åñëè òàê îñòàâëÿåøü òî âñå ìåñòà ëîâà äîæíû ñîîòýòñòíî áûòü íà þã)
end if
if numrun==6 then
uo.cast('Recall',frune[7])
wait(5000)
uo.unsetreceivingcontainer()
UO.SetReceivingContainer(bagformap)
repeat
uo.findtype("0x14EB")
wait(50)
; if uo.findcount()<1 then
; uo.print("Maps are over")
; Return
; end if
uo.grab('1','finditem')
wait(500)
until uo.findcount()<1
uo.unsetreceivingcontainer()
numrun=0
end if
numrun=numrun+1
until 0
end subCode: Select all
var mybag = "mybag"
uo.print("Where I must keep the fish? Select bag!")
uo.addobject(mybag)
wait(7000)
var lasttimer
sub pickup(ftype)
# uo.print("type: "+str(ftype))
uo.findtype(ftype,"-1","ground")
if uo.findcount() > 0 then
uo.moveitem("finditem", "0",mybag)
endif
wait(500)
end sub
sub checktimer()
if (uo.timer() - lasttimer) <= 20 then
uo.print(str(uo.timer() - lasttimer))
uo.print("You are fishing too fast! Waiting 5 seconds.")
wait(5000)
endif
lasttimer = uo.timer()
end sub
sub main()
var mx, my, mz, i, j
var isfishing, ixx, isheavy
var item = "item",ftype,ispickup
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
uo.exec("set distance 1")
# uo.setcatchbag("uo.my")
while not uo.dead()
for i = mx-6 to mx+6
for j = my-6 to my+6
uo.deletejournal()
UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j))
isfishing = 1
while not uo.injournal("can't fish") and not uo.injournal("no fish here") and not UO.InJournal("far away") and not UO.InJournal("in water") and isfishing
checktimer()
UO.DeleteJournal()
UO.Waittargettile("6044", str(i), str(j), str(mz))
UO.Usetype('0x0DBF')
ixx = 0
while not uo.injournal("can't fish") and not UO.InJournal("You pull out") and not UO.InJournal("You fish a while, but fail to catch anything.") and not UO.InJournal("far away") and not UO.InJournal("in water") and not UO.InJournal("no fish") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
if UO.InJournal("You pull out") then
# fish
for ftype = 0x09CD to 0x09CF
pickup(ftype)
next
pickup(0x0DD6)
pickup(0x09CC)
# maps
pickup(0x14EB)
# rare fish
pickup(0x0DD6);
endif
wend
UO.DeleteJournal()
next
next
wend
# UO.recall('0x40023FBD','2')
uo.print("*** Script ended ***")
end subCode: Select all
sub UO()
UO.Chto-To("S Chem-To")
end subCode: Select all
sub fishing()
var mx, my, mz, i, j, delay = 10000
var tFishingPole = '0x0DC0'
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
while not UO.Dead()
for i = mx-6 to mx+6
for j = my-6 to my+6
ToHide()
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")
ToHide()
checkLag()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype(tFishingPole)
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 (150)
wend
if UO.InJournal("You pull") then
CheckLag()
UO.findtype('0x14EB','-1','ground') ;tattered map
UO.MoveItem ('finditem',-1,'backpack')
UO.findtype('0x0DD6','-1','ground') ;Truly Rare Fish
UO.MoveItem ('finditem',-1,'backpack')
UO.findtype('0x0DCA','-1','ground') ;fishing net
UO.MoveItem ('finditem',-1,'backpack')
end if
wend
next
next
wait(delay)
wend
end sub
sub tohide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
wend
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub