Товарищи исправьте скрипт ПЛИзз

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
GobliN
Posts: 10
Joined: 2005-05-17 17:02:48

Товарищи исправьте скрипт ПЛИзз

Post by GobliN »

как изменить этот скрипт чтоб он не дедли поисон делал а лузер поисон
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

Top
I'm
Expert!
Posts: 1396
Joined: 2004-10-15 22:38:04
Location: Moscow City.
Contact:
Contact I'm

Post by I'm »

Рыть надо тут:

Code: Select all

uo.WaitMenu('What','(last)') ; Ìåíþ

'(last)' - заменяется на необходимое.
Подробнее в хелпе :wink:
Top
GobliN
Posts: 10
Joined: 2005-05-17 17:02:48

Post by GobliN »

I'm wrote:Рыть надо тут:

Code: Select all

uo.WaitMenu('What','(last)') ; Ìåíþ

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

В принцыпе я догодался что тут вот только вопрос на что необходимое(что вписать надо) :shock: :cry:
Top
flake
Expert!
Posts: 746
Joined: 2004-08-11 23:56:17
Location: The Citadel
Contact:
Contact flake

Post by flake »

вместо ласт - lesser poison
Top
GobliN
Posts: 10
Joined: 2005-05-17 17:02:48

Post by GobliN »

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)
Всем кто помог большое СПАСИБО!!!
Top
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:
Contact SAMURAI

Re: Товарищи исправьте скрипт ПЛИзз

Post by SAMURAI »

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

Code: Select all

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

© I'm
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Re: Товарищи исправьте скрипт ПЛИзз

Post by Destruction »

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

All for you :D
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Top
Post Reply

Return to “Scripting Ore”