Yoko

Posted: **2004-09-29 00:34:04**

Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
у миня токая просьба :
*спирет удалить
*шоб он делол обичные а не Грейт Пойсон (а то у миня алхимия 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

Posted: **2004-09-29 08:20:04**

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

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

Posted: **2004-09-29 09:40:29**

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

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

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

Posted: **2004-09-29 09:45:49**

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

строку

Code: Select all

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

меняй на

Code: Select all

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

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

Posted: **2004-09-29 10:31:48**

Sfagnum wrote:
The Stasik wrote:Да работоит токо он делоит Грет Пойсон а мне нужно штоб он делол обычны ...
строку
Code: Select all
UO.WaitMenu('What','(last)') ; menu 
меняй на
Code: Select all
UO.WaitMenu('What','(2)') ; menu 
может 2 без скобочек - точно не помню - пробуй

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

Posted: **2004-09-29 10:47:44**

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

Posted: **2004-09-29 11:15:49**

Sfagnum 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','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

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

Posted: **2004-09-29 12:16:16**

The Stasik wrote:Спосиба болшое )

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

Yoko

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

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

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

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

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

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