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

Все скрипты слишком сложные(
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14448		 Page 1 of 1
Author:  SilentCry [ 2009-02-23 15:16:31 ]
Post subject:  Все скрипты слишком сложные(
Здрасте! По поиску нашел множество скриптов на фишинг... но мне не надо так сложно... кто может помочь...
надо чтобы чар стоял на корабле и ловил рыбку... рыбка ловиться тольно нескольких типов... никаких карт сапогов и БР... потом надо порезать ее дагером который в паке на стейки и положыть в сумку которая на борту лежыт...

Взял скрипт sub fishing()
var mx, my, mz, i, j
uo.print('А где ведро?')
uo.exec('addobject Bag')
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")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
if UO.dead() then
return
endif
if UO.Weight>660 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 (500)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (500)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (500)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (500)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (500)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (500)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (500)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end sub

думал поможет, но почему-то виснет когда ловит 4 3((

Порежте плиз скрипт! Очень надо! Мне 2 скрипта до топ всех осталось( Фишинг и кукинг( Спасибо огромное наперед! Если что то ася 337570782! У меня сегодня ДР! Сделайте такой подарок!
Author:  SilentCry [ 2009-02-23 15:54:10 ]
Post subject: 
А еще есть такой скрипт, он не виснет, но после того как обловил все тайлы и покидал рыбку под ноги он ее режет! Скрипт виснет на том что когда под ногами только стейки пишет! "Auto target canceled!Target item to grab all" тогда клацаешь на каждый стейк отдельно и он их в сумку на трюме например складывает, и когда на палубе больше нет стейков, спокойно берет удку и ловит снова((

#---Instruments definition---#
var pole = "0x0DBF"
var dagger = "0x0F52"
var scissors = "0x0F9E"
var container = "0x400E1520" #сюда вписать ID мешка, в который скидываем выловленное

#-----Objects definition-----#
var boots = "0x1711"
var bandages = "0x0E21"

#----Variables definition----#
var max_fails = 9 #максимальное число фэйлов
var fishing_range = 13 #ловим в матрице 13х13 клеток
var catch_bp = 0 #здесь описываем, на ловлю каких итемов
var catch_fish = 1 #настроен макрос
var catch_bandages = 0
var stop_message = UO.GetName() + " stop macros"
var counter = 0, i = 0

sub main()
Dim fish[8]
fish[0] = "0x0DD7"
fish[1] = "0x0DD6"
fish[2] = "0x0DD8"
fish[3] = "0x0DD9"
fish[4] = "0x09CC"
fish[5] = "0x09CD"
fish[6] = "0x09CE"
fish[7] = "0x09CF"
Dim other[7]
other[0] = "0x0F7A"
other[1] = "0x097A"
other[2] = "0x14F9"
other[3] = "0x14F7"
other[4] = "0x14F6"
other[5] = "0x14F4"
other[6] = "0x14F3"

macro:
while NOT UO.Hidden()
UO.UseSkill('Hiding')
Wait(9000)
wend
start_fishing(fish, other)
goto macro
end sub

sub start_fishing(fish, other)
var x, y, fails, is_fish
for x = -((fishing_range - 1) / 2) to ((fishing_range - 1) / 2)
for y = -((fishing_range - 1) / 2) to ((fishing_range - 1) / 2)
fails = 0
is_fish = 1
while is_fish == 1
is_fish = catch(UO.GetX() + x, UO.GetY() + y, fails)
Wait(500)
wend
Wait(1000)
next
cut(fish)
drag(other)
next
end sub

sub catch(x, y, fails)
UO.Exec("waittargettile 1339 " + Str(x) + " " + Str(y) + " 0")
UO.UseType(pole)
;UO.Print(Str(x) + ", " + Str(y))
UO.DeleteJournal()
counter = 0
while counter < 1500
if UO.InJournal("You pull out") == 1 then
if UO.InJournal("fish") == 1 then
return catch_fish
end if
if UO.InJournal("Black Pearl") == 1 then
return catch_bp
end if
if UO.InJournal("boots") == 1 then
return catch_bandages
end if
return 0
end if

if UO.InJournal("fail to catch") == 1 then
if fails < max_fails then
fails = fails + 1
return 1
else
return 0
end if
end if

if UO.InJournal("no fish here") == 1 OR UO.InJournal("too far away") then
return 0
end if
counter = counter + 1

Wait(10)
wend
return 0
end sub

sub cut(fish)
for i = 0 to 7
while UO.CountGround(fish[i])
UO.WaitTargetGround(fish[i])
UO.UseType(dagger)
Wait(1000)
wend
next

while UO.CountGround(boots)
UO.WaitTargetGround(boots)
UO.UseType(scissors)
Wait(1000)
wend
end sub

sub drag(other)
UO.SetReceivingContainer(container)
for i = 0 to 6
while UO.CountGround(other[i]) > 0
UO.WaitTargetGround(other[i])
UO.Grab()
Wait(1000)
wend
next
while UO.Count(bandages)
UO.WaitTargetType(bandages)
UO.Grab()
Wait(1000)
wend
UO.UnsetReceivingContainer()
end sub

sub env_msg_catch()
UO.DeleteJournal()
while NOT UO.InJournal(stop_message)
Wait(100)
wend
UO.Exec("terminate main")
end sub
Author:  SilentCry [ 2009-02-24 00:53:07 ]
Post subject: 
Пожалуйста, помогите!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/