Фишинг карт. Простая версия :)
Posted: 2005-02-17 22:51:31
Code: Select all
####################################################################
# #
# 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
