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

Товарищи исправьте скрипт ПЛИзз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4044
Page 1 of 1

Author:  GobliN [ 2005-05-21 13:23:38 ]
Post subject:  Товарищи исправьте скрипт ПЛИзз

как изменить этот скрипт чтоб он не дедли поисон делал а лузер поисон
Quote:
sub AlchemyPoison()
var Exit=0, LastTimer, TryToPoison

while Exit<>1
uo.DeleteJournal()

uo.FindType('0x0F0E',-1,'backpack') ; Áóòûëêè
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0F0E','0x0000','0x400DBFDA') ; Êîíòåéíåð ñ áóòûëêàìè (bottle, container)
wait(1000)
uo.Grab('500','finditem')
wait(100)
end if
uo.FindType('0x0F88','0x0000','backpack') ; Íàéò øåéä
if uo.GetQuantity('finditem')<20 then
uo.FindType('0x0F88','0x0000','0x400DBFDA') ; Íàéò øåéä , Êîíòåéíåð
wait(1000)
uo.Grab('1000','finditem')
wait(500)
end if
LastTimer=uo.Timer()
uo.WaitMenu('What','(last)') ; Ìåíþ
uo.UseType(0x0F88) ; Íàéò Øåéä

while not uo.InJournal("You put") and not uo.InJournal("You toss the failed")
wait(500)
wend

if uo.InJournal("You toss the failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; Âðåìÿ ñîçäàíèÿ äàããåðà
else
TryToPoison=1
repeat
uo.FindType('0x0F0E','0x0998','my')
if uo.GetQuantity('finditem')>0 then
uo.UseSkill('Poisoning')
uo.WaitTargetObject('0x402ACDF7','finditem') ; Äàããåð
wait(4000)
else
TryToPoison=0
end if
end if
uo.UseSkill('Spirit Speak')
wait(3000)
wend
end sub


Author:  I'm [ 2005-05-21 15:54:53 ]
Post subject: 

Рыть надо тут:
Code:
uo.WaitMenu('What','(last)') ; Ìåíþ 

'(last)' - заменяется на необходимое.
Подробнее в хелпе :wink:

Author:  GobliN [ 2005-05-21 17:04:51 ]
Post subject: 

I'm wrote:
Рыть надо тут:
Code:
uo.WaitMenu('What','(last)') ; Ìåíþ 

'(last)' - заменяется на необходимое.
Подробнее в хелпе :wink:

В принцыпе я догодался что тут вот только вопрос на что необходимое(что вписать надо) :shock: :cry:

Author:  flake [ 2005-05-22 09:49:25 ]
Post subject: 

вместо ласт - lesser poison

Author:  GobliN [ 2005-05-22 10:58:41 ]
Post subject: 

Quote:
sub AlchemyPoison()
var Exit=0, LastTimer, TryToPoison

while Exit<>1
uo.DeleteJournal()

uo.FindType('0x0F0E',-1,'backpack') ; Áóòûëêè
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0F0E','0x0000','0x400DBFDA') ; Êîíòåéíåð ñ áóòûëêàìè (bottle, container)
wait(1000)
uo.Grab('500','finditem')
wait(100)
end if
uo.FindType('0x0F88','0x0000','backpack') ; Íàéò øåéä
if uo.GetQuantity('finditem')<20 then
uo.FindType('0x0F88','0x0000','0x400DBFDA') ; Íàéò øåéä , Êîíòåéíåð
wait(1000)
uo.Grab('1000','finditem')
wait(500)
end if
LastTimer=uo.Timer()
uo.WaitMenu('What','(last)') ; Ìåíþ
uo.UseType(0x0F88) ; Íàéò Øåéä

while not uo.InJournal("You put") and not uo.InJournal("You toss the failed")
wait(500)
wend

if uo.InJournal("You toss the failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; Âðåìÿ ñîçäàíèÿ äàããåðà
else
TryToPoison=1
repeat
uo.FindType('0x0F0E','0x0998','my')
if uo.GetQuantity('finditem')>0 then
uo.UseSkill('Poisoning')
uo.WaitTargetObject('0x402ACDF7','finditem') ; Äàããåð
wait(4000)
else
TryToPoison=0
end if
end if
uo.UseSkill('Spirit Speak')
wait(3000)
wend
end sub
sub AlchemyPoison()
var Exit=0, LastTimer, TryToPoison

while Exit<>1
uo.DeleteJournal()

uo.FindType('0x0F0E',-1,'backpack') ; Áóòûëêè
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0F0E','0x0000','0x400DBFDA') ; Êîíòåéíåð ñ áóòûëêàìè (bottle, container)
wait(1000)
uo.Grab('500','finditem')
wait(100)
end if
uo.FindType('0x0F88','0x0000','backpack') ; Íàéò øåéä
if uo.GetQuantity('finditem')<20 then
uo.FindType('0x0F88','0x0000','0x400DBFDA') ; Íàéò øåéä , Êîíòåéíåð
wait(1000)
uo.Grab('1000','finditem')
wait(500)
end if
LastTimer=uo.Timer()
uo.WaitMenu('What','Lesser Poison') ; Ìåíþ
uo.UseType(0x0F88) ; Íàéò Øåéä

while not uo.InJournal("You put") and not uo.InJournal("You toss the failed")
wait(500)
wend

if uo.InJournal("You toss the failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; Âðåìÿ ñîçäàíèÿ äàããåðà
else
TryToPoison=1
repeat
uo.FindType('0x0F0E','0x0998','my')
if uo.GetQuantity('finditem')>0 then
uo.UseSkill('Poisoning')
uo.WaitTargetObject('0x402ACDF7','finditem') ; Äàããåð
wait(4000)
else
TryToPoison=0
end if
end if
uo.UseSkill('Spirit Speak')
wait(3000)
wend
end sub
сеньк за подсказку терь работает как часы и делает лозер поисоны! 8) 8) 8)
Всем кто помог большое СПАСИБО!!!

Author:  SAMURAI [ 2005-05-22 12:43:32 ]
Post subject:  Re: Товарищи исправьте скрипт ПЛИзз

GobliN wrote:
...не дедли поисон делал а лузер поисон...
Интересные потионы однако :roll: :D

Author:  Destruction [ 2005-05-22 21:04:09 ]
Post subject:  Re: Товарищи исправьте скрипт ПЛИзз

SAMURAI wrote:
GobliN wrote:
...не дедли поисон делал а лузер поисон...
Интересные потионы однако :roll: :D

All for you :D

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