Yoko
http://forum.yoko.com.ua/

Alchemy
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3270		 Page 1 of 1
Author:  Mr.RMK [ 2005-03-02 00:54:53 ]
Post subject:  Alchemy
Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren :)
Author:  Sfagnum [ 2005-03-02 02:38:42 ]
Post subject:  Re: Alchemy
Mr.RMK wrote:
Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren :)
на прокачку пойзона с варкой отравы или просто на варку пойзонов?
Author:  Askaneli [ 2005-03-02 05:54:18 ]
Post subject: 
http://yoko.netroof.net/forum/viewtopic.php?t=2811
Author:  Mr.RMK [ 2005-03-02 21:30:37 ]
Post subject: 
Da mne nado 4tob prosto varil poisony do posinenija, a bag s regami i batlami propisat dumaju smogu :)
Author:  RiFeX aka Maybek [ 2005-03-02 22:15:01 ]
Post subject: 
Code:
sub Alchemy() 
   VAR Sunduk=0x4023D632 ;ID сундука
   VAR Dagger=0x40286902 ;ID оружия, которое травить
   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',Sunduk) 
         wait(1000) 
         UO.Grab('300','finditem') 
         wait(1000) 
      Endif 
      UO.FindType('0x0F88','0x0000','backpack') 
      If UO.GetQuantity('finditem')<20 then 
         UO.FindType('0x0F88','0x0000',Sunduk) 
         wait(1000) 
         UO.Grab('1000','finditem') 
         wait(6000) 
      Endif 
      LastTimer=UO.Timer() 
      UO.WaitMenu('What','(1)') ; (1) Lesser Poison (2)Poison (3) Great 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.WaitTargetObject(dagger,'finditem') 
               UO.UseSkill('Poisoning') 
               wait(4000) 
            Else 
               TryToPoison=0 
            Endif 
         until TryToPoison==0 
      EndIf 
UO.DeleteJournal() 
UO.UseSkill('Spirit') 
repeat 
wait(100) 
until uo.injournal('You establish') or uo.injournal('You fail') 
wend   
На этом качал.
Author:  Mr.RMK [ 2005-03-03 09:22:01 ]
Post subject: 
Da mne nuzno 4tob prosto varil poisony, a 4to tam takogo na etoj ssylke, posmotrel ni4ego inteesnogo...
Author:  Askaneli [ 2005-03-03 12:20:46 ]
Post subject: 
Mr.RMK wrote:
Da mne nuzno 4tob prosto varil poisony, a 4to tam takogo na etoj ssylke, posmotrel ni4ego inteesnogo...

http://yoko.netroof.net/forum/viewtopic ... 5194#15194

Это тинкер бутылок для алхимии, алхимия на пойзоне и пойзонинг
Если поработать головой и поменять 1000 на 0 в строке :
Code:
if uo.skillval("Poisoning",1)<1000 then


тада будет просто кидать пойзоны в сундук и пойзонить даггер.
Author:  Дед Махно [ 2005-03-03 13:18:14 ]
Post subject:  Re: Alchemy
Mr.RMK wrote:
Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren :)


Привет, RMK :wink:
Author:  Дед Махно [ 2005-03-03 13:21:18 ]
Post subject: 
Вобщем вот мой скрипт на алхимию(Poison'ы, Explosion'ы, Cur'ы):

Code:
sub Alchemy(reagent, min_reg, choice)
   while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
      UO.DeleteJournal()
      UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
      UO.UseType(reagent)
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
         wait(300)
      wend
   wend
end sub

sub LesserPoison()
   alchemy('0x0f88', 1, "'Lesser Poison'")
end sub

sub Poison()
   alchemy('0x0f88', 2, "'Poison'")
end sub

sub GreaterPoison()
   alchemy('0x0f88', 4, "'Greater Poison'")
end sub

sub DeadlyPoison()
   alchemy('0x0f88', 8, "'Deadly Poison'")
end sub

sub LesserExplosion()
   alchemy('0x0f8c', 3, "'Lesser Explosion'")
end sub

sub Explosion()
   alchemy('0x0f8c', 5, "'Explosion'")
end sub

sub GreaterExplosion()
   alchemy('0x0f8c', 10, "'Greater Explosion'")
end sub

sub LesserCure()
   alchemy('0x0f84', 1, "'Lesser Cure'")
end sub

sub Cure()
   alchemy('0x0f84', 3, "'Cure'")
end sub

sub GreaterCure()
   alchemy('0x0f84', 6, "'Greater Cure'")
end sub

Но почему-то вместо Poison, Cure и Explosion делаются Lesser Poison, Lesser Cure, Lesser Explosion. Я так и не понял в чём трабл. Кто-нибудь сможет помочь?
Author:  Askaneli [ 2005-03-03 14:01:19 ]
Post subject: 
Code:
sub Poison() 
   alchemy('0x0f88', 2, "'Poison'") 
end sub


Попробуй так !!!

Code:
sub Poison() 
   alchemy('0x0f88', 2, "'(2)'") 
end sub
Author:  Дед Махно [ 2005-03-03 14:35:19 ]
Post subject: 
Askaneli wrote:
Code:
sub Poison() 
   alchemy('0x0f88', 2, "'Poison'") 
end sub


Попробуй так !!!

Code:
sub Poison() 
   alchemy('0x0f88', 2, "'(2)'") 
end sub


Спсибо. Теперь работает :)
Author:  Mr.RMK [ 2005-03-04 00:10:59 ]
Post subject: 
Ogromnoe vsem spasibo...
Zaodno za vnimanie... :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/