Yoko
http://forum.yoko.com.ua/

Фишинг карт. Простая версия :)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3134
Page 1 of 1

Author:  Shizoid [ 2005-02-17 22:51:31 ]
Post subject:  Фишинг карт. Простая версия :)

Code:
####################################################################
#                                                                  #
#  Fishing v.0.1b by Shizoid                                       #
# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-                                    #
# (на основе скрипта ВЕТЕРАНа)                                     #
#                                                                  #
# Чар стоит на месте и ловит вокруг себя карты.                    #
# Отличается от большинства скриптов тем, что пропускает места,    #
# где плавает обычная рыба, сразу. Скрипт цикличен. Задержка       #
# между циклами меняется в строке 15 путем изменения значения      #
# переменной delay. Также обратите внимание на строку 44.          #
#                                                                  #
####################################################################

sub fishing()
var mx, my, mz, i, j, delay = 10000
uo.print('? ?¤? ў?¤аR?')
uo.exec('addobject Bag')
while not UO.Dead()
while uo.targeting()
wait(100)
wend

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
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend

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") and not UO.InJournal("a fish")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0dc0") ;FishingPole  ## Тип удочки.
if UO.dead() then
return
endif
if UO.Weight>700 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.SetReceivingContainer('Bag')
#UO.findtype('0x09CC','0x0000','ground') ;fish
#UO.grab ('3','finditem')
#wait (200)
#UO.findtype('0x09CD','0x0000','ground') ;fish
#UO.grab ('3','finditem')
#wait (200)
#UO.findtype('0x09CE','0x0000','ground') ;fish
#UO.grab ('3','finditem')
#wait (200)
#UO.findtype('0x09CF','0x0000','ground') ;fish
#UO.grab ('3','finditem')
#wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
wait (delay)
wend
end sub

Author:  Sfagnum [ 2005-02-18 09:13:46 ]
Post subject: 

+-6 поставь ;)

Author:  Neznaika [ 2005-04-20 10:51:26 ]
Post subject: 

Помогите пожалуйста с этим скриптом!
После запуска хайдится и потом говорить "No item finde"
Скажите пожалуйста в чём проблема?

Author:  Sfagnum [ 2005-04-20 11:04:33 ]
Post subject: 

UO.Usetype("0x0dc0") ;FishingPole ## Тип удочки.
тут проверь тип удочки

Author:  Neznaika [ 2005-04-20 11:21:03 ]
Post subject: 

Спасибо большое Sfagnum!
Что-то я сразу не заметил этоц строчки :roll:

Author:  Destruction [ 2005-04-20 18:01:32 ]
Post subject: 

Neznaika wrote:
Спасибо большое Sfagnum!
Что-то я сразу не заметил этоц строчки :roll:

А ничего удивительного, пока шизойд играл на ресторе - он инжект так особо не умел юзать, а вот ща пришел к нам - пошел качаться, скрипты писать кривые, так, что люди не видят строк. :twisted:

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/