Нужна помощ в удалении 1 функции из скрипта...

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
KpZ
Posts: 9
Joined: 2005-02-20 12:27:02
Location: Ригас Миесниекс
Contact:

Нужна помощ в удалении 1 функции из скрипта...

Post by KpZ »

Code: Select all

sub Poison() 
VAR Exit=0, LastTimer, TryToPoison
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E',-1,'backpack') ; bottle
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','0x40283d2a') ; bottle, container
wait(1000)
UO.Grab('300','finditem')
wait(100)
Endif
UO.FindType('0x0F88','0x0000','backpack') ; NS
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','0x40161250'); NS, container
wait(1000)
UO.Grab('600','finditem')
wait(500)
Endif
LastTimer=UO.Timer()
UO.WaitMenu('What','(last)') ; menu
UO.UseType(0x0F88) ; NightShade

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 ;time to make a dagger
Else
TryToPoison=1
repeat
UO.FindType('0x0F0E','0x0998','my')
If UO.GetQuantity('finditem')>0 then
UO.UseSkill('Poisoning')
UO.WaitTargetObject('0x40055d4d','finditem') ; dagger
; UO.UseSkill('Poisoning')
wait(4000)
Else
TryToPoison=0
Endif
EndIf
UO.UseSkill('Spirit Speak')
wait(3000)
wend


Помогите убрать пойзон плз. Я просто незнаю как правильно его вырезать :oops:
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Re: Нужна помощ в удалении 1 функции из скрипта...

Post by GimFlex »

KpZ wrote:

Code: Select all

sub Poison() 
VAR Exit=0, LastTimer, TryToPoison
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E',-1,'backpack') ; bottle
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','0x40283d2a') ; bottle, container
wait(1000)
UO.Grab('300','finditem')
wait(100)
Endif
UO.FindType('0x0F88','0x0000','backpack') ; NS
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','0x40161250'); NS, container
wait(1000)
UO.Grab('600','finditem')
wait(500)
Endif
LastTimer=UO.Timer()
UO.WaitMenu('What','(last)') ; menu
UO.UseType(0x0F88) ; NightShade

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 ;time to make a dagger
Else
TryToPoison=1
EndIf
UO.UseSkill('Spirit Speak')
wait(3000)
wend


Помогите убрать пойзон плз. Я просто незнаю как правильно его вырезать :oops:
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:

Post by GimFlex »

вроде так :oops:
Post Reply