Yoko

All sides of Injection
It is currently 2026-01-16 21:37:43

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 8 posts ] 
  Print view Previous topic | Next topic 
Author Message
The Stasik
PostPosted: 2004-09-29 00:34:04 
Offline

Joined: 2004-09-29 00:16:46
Posts: 4
Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
у миня токая просьба :
*спирет удалить
*шоб он делол обичные а не Грейт Пойсон (а то у миня алхимия 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
Top
   
Reply with quote  
MitAl
PostPosted: 2004-09-29 08:20:04 
Offline

Joined: 2004-06-01 16:24:44
Posts: 60
Location: DRW
The Stasik wrote:
Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
wend


А у тебя он работает ?
У меня вот постоянно пишет, что все переменные (вторая строка) уже определены
Top
   
Reply with quote  
The Stasik
PostPosted: 2004-09-29 09:40:29 
Offline

Joined: 2004-09-29 00:16:46
Posts: 4
MitAl wrote:
The Stasik wrote:
Етот скрипт берёт из сундука Бутылки и Реги(НС) делоит Пойсоны и потом етот пойсон на дагер и вдабавак он ишо и спирет кочает .
wend


А у тебя он работает ?
У меня вот постоянно пишет, что все переменные (вторая строка) уже определены
Да работоит токо он делоит Грет Пойсон а мне нужно штоб он делол обычны ...
Top
   
Reply with quote  
Sfagnum
PostPosted: 2004-09-29 09:45:49 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
The Stasik wrote:
Да работоит токо он делоит Грет Пойсон а мне нужно штоб он делол обычны ...
строку
Code:
UO.WaitMenu('What','(last)') ; menu
меняй на
Code:
UO.WaitMenu('What','(2)') ; menu
может 2 без скобочек - точно не помню - пробуй
Top
   
Reply with quote  
The Stasik
PostPosted: 2004-09-29 10:31:48 
Offline

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

Болшое Спосиба ... это со скобкоми =) Типер надо токо шоб он не накладывал пойсон на дагер а обратно в сумку возврошал ...
а ну и самое главное шоб спирет не кочал
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2004-09-29 10:47:44 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Code:
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
Top
   
Reply with quote  
The Stasik
 Post subject:
PostPosted: 2004-09-29 11:15:49 
Offline

Joined: 2004-09-29 00:16:46
Posts: 4
Sfagnum wrote:
Code:
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

Спосиба болшое )
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2004-09-29 12:16:16 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
The Stasik wrote:
Спосиба болшое )
незачто
ЗЫ оверквотингом не стоит заниматься...
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 8 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 5 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited