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

fishing ПОМОГИТЕ ПЛИЗ
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3661		 Page 1 of 1
Author:  Nemogy [ 2005-04-11 19:57:41 ]
Post subject:  fishing ПОМОГИТЕ ПЛИЗ
обыскал фесь форум,нашел кучю скриптов , но не смог не оди настроить замучился помогите пожалйста
Хотелось бы : чар стоит на корабле , вылавливает все вокруг отплавает на новое место и опять ловит , все что поймает ложит в трюм
шард RUO
Author:  SAMURAI [ 2005-04-11 20:30:52 ]
Post subject: 
Выкладывалось и вроде как раз под РУО.
Значит плохо пытался настроить :?
Author:  Nemogy [ 2005-04-11 20:38:27 ]
Post subject: 
может и плохо пытался наверно не умею
Author:  Nemogy [ 2005-04-14 06:56:38 ]
Post subject: 
sub fishing3.0()
var mx, my, mz, i, j, k
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.exec('addobject runduk')
while uo.targeting()
wait(100)
wend
while not uo.dead()
for k = 0 to 10
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

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))
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole

wait(3000)

if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag') ;трэшим рарную рыбку
UO.findtype('0x0DD6','0x0000','ground')
UO.grab ('1','finditem')
wait (50)
UO.UnSetReceivingContainer()

UO.FindType('0x0DD6',-1,'backpack')
wait(100)
UO.WaitTargetObject('finditem')
UO.UseObject(0x400613E1)


UO.SetReceivingContainer('runduk') ;кладем обычную рыбу в рундук.
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (50)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (50)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (50)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (50)
UO.UnSetReceivingContainer()
end if
next
next
uo.say('forward')
wait(20000)
uo.say('stop')
next
uo.say('right')
wait(50)
wend
end sub

sub test()
uo.say('forward')
wait(20000)
uo.say('stop')
end sub

с этим скриптом чар пытается ловить токо один раз в одном месте можно ли зделать чтоб ловилось до последней рыбы
и еще когда чар обловит все вокруг он плывет прямо , хотелось бы чтоб встретив препятствие он не пытался все так же плыть прямо , а поплыл бы в другую сторону
Author:  Destruction [ 2005-04-14 15:20:28 ]
Post subject: 
До последней рыбы? Ой лень ща скрипт читать, но примерно так:
находим место (<место ловли>), где чар ловит рыбу (в скрипте а не в уо :roll: ) и дописываем такое:
repeat
<место ловли>
until uo.injournal('no fish here')
Author:  SAMURAI [ 2005-04-14 20:11:09 ]
Post subject: 
Nemogy wrote:
может и плохо пытался наверно не умею
Похоже на то... И ник соответствующий.
[ code][/code] используй, так читать легче.
Author:  SAMURAI [ 2005-04-14 20:14:46 ]
Post subject: 
Nemogy wrote:
бы чтоб встретив препятствие он не пытался все так же плыть прямо , а поплыл бы в другую сторону

Это скорее всего придётся делать по записи пути или от одной координаты к другой используя чтото вроде ходилки. Попродуй - может получится :roll: :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/