Помогите переделоть скрипт на Alchemy

[The Stasik]

Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
у миня токая просьба :
*спирет удалить
*шоб он делол обичные а не Грейт Пойсон (а то у миня алхимия 70 так он мне делоит Грейт пойсоны)
*и не накладевал пойзоны на дагер а просто как будет вес 600 так вазврощал в сундук пойсоны.
*и штоб мона было изминит колво регов
под DRW если ето имеит значения.

Bот он и сам скрипт:

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','0x4015CFAE') ; 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','0x4015CFAE'); 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('0x401F29D1','finditem') ; dagger
; UO.UseSkill('Poisoning')
wait(4000)
Else
TryToPoison=0
Endif
EndIf
UO.UseSkill('Spirit Speak')
wait(3000)
wend

[MitAl]

Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
wend

А у тебя он работает ?
У меня вот постоянно пишет, что все переменные (вторая строка) уже определены

[The Stasik]

Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
wend

А у тебя он работает ?
У меня вот постоянно пишет, что все переменные (вторая строка) уже определены

Да работоит токо он делоит Грет Пойсон а мне нужно штоб он делол обычны ...

[Sfagnum]

Да работоит токо он делоит Грет Пойсон а мне нужно штоб он делол обычны ...

строку

Code: Select all

UO.WaitMenu('What','(last)') ; menu 

меняй на

Code: Select all

UO.WaitMenu('What','(2)') ; menu 

может 2 без скобочек - точно не помню - пробуй

[The Stasik]

Да работоит токо он делоит Грет Пойсон а мне нужно штоб он делол обычны ...

строку

Code: Select all

UO.WaitMenu('What','(last)') ; menu 

меняй на

Code: Select all

UO.WaitMenu('What','(2)') ; menu 

может 2 без скобочек - точно не помню - пробуй

Болшое Спосиба ... это со скобкоми =) Типер надо токо шоб он не накладывал пойсон на дагер а обратно в сумку возврошал ...
а ну и самое главное шоб спирет не кочал

[Sfagnum]

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','0x4015CFAE') ; 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','0x4015CFAE'); NS, container 
      wait(1000) 
      UO.Grab('600','finditem') 
      wait(500) 
   Endif 
   LastTimer=UO.Timer() 
   UO.WaitMenu('What','(2)') ; 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 put") then 
      wait(1000)
      UO.FindType('','0x0000','0x4015CFAE') # вставить тип пойзонa
      UO.MoveItem('finditem','-1','0x4015CFAE')
   end if
wend 
end sub

[The Stasik]

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','0x4015CFAE') ; 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','0x4015CFAE'); NS, container 
      wait(1000) 
      UO.Grab('600','finditem') 
      wait(500) 
   Endif 
   LastTimer=UO.Timer() 
   UO.WaitMenu('What','(2)') ; 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 put") then 
      wait(1000)
      UO.FindType('','0x0000','0x4015CFAE') # вставить тип пойзонa
      UO.MoveItem('finditem','-1','0x4015CFAE')
   end if
wend 
end sub

Спосиба болшое )

[Sfagnum]

Спосиба болшое )

незачто
ЗЫ оверквотингом не стоит заниматься...