fishing ПОМОГИТЕ ПЛИЗ

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Nemogy
Posts: 4
Joined: 2005-04-11 14:09:15

fishing ПОМОГИТЕ ПЛИЗ

Post by Nemogy »

обыскал фесь форум,нашел кучю скриптов , но не смог не оди настроить замучился помогите пожалйста
Хотелось бы : чар стоит на корабле , вылавливает все вокруг отплавает на новое место и опять ловит , все что поймает ложит в трюм
шард RUO
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Выкладывалось и вроде как раз под РУО.
Значит плохо пытался настроить :?
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
Nemogy
Posts: 4
Joined: 2005-04-11 14:09:15

Post by Nemogy »

может и плохо пытался наверно не умею
Nemogy
Posts: 4
Joined: 2005-04-11 14:09:15

Post by Nemogy »

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

с этим скриптом чар пытается ловить токо один раз в одном месте можно ли зделать чтоб ловилось до последней рыбы
и еще когда чар обловит все вокруг он плывет прямо , хотелось бы чтоб встретив препятствие он не пытался все так же плыть прямо , а поплыл бы в другую сторону
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

До последней рыбы? Ой лень ща скрипт читать, но примерно так:
находим место (<место ловли>), где чар ловит рыбу (в скрипте а не в уо :roll: ) и дописываем такое:
repeat
<место ловли>
until uo.injournal('no fish here')
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Nemogy wrote:может и плохо пытался наверно не умею
Похоже на то... И ник соответствующий.
[ code][/code] используй, так читать легче.
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:

Post by SAMURAI »

Nemogy wrote:бы чтоб встретив препятствие он не пытался все так же плыть прямо , а поплыл бы в другую сторону

Это скорее всего придётся делать по записи пути или от одной координаты к другой используя чтото вроде ходилки. Попродуй - может получится :roll: :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To")
end sub

© I'm
Post Reply