Alchemy

[Mr.RMK]

Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren

[Sfagnum]

Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren

на прокачку пойзона с варкой отравы или просто на варку пойзонов?

[Askaneli]

http://yoko.netroof.net/forum/viewtopic.php?t=2811

[Mr.RMK]

Da mne nado 4tob prosto varil poisony do posinenija, a bag s regami i batlami propisat dumaju smogu

[RiFeX aka Maybek]

Code: Select all

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    

На этом качал.

[Mr.RMK]

Da mne nuzno 4tob prosto varil poisony, a 4to tam takogo na etoj ssylke, posmotrel ni4ego inteesnogo...

[Askaneli]

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: Select all

if uo.skillval("Poisoning",1)<1000 then

тада будет просто кидать пойзоны в сундук и пойзонить даггер.

[Дед Махно]

Prosmotrel 15 stranic, ne nashol normalnogo skripta na alhimiju, o4en proshu skinut skriptik na poisony.
Zaranee blagodaren

Привет, RMK

[Дед Махно]

Вобщем вот мой скрипт на алхимию(Poison'ы, Explosion'ы, Cur'ы):

Code: Select all

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. Я так и не понял в чём трабл. Кто-нибудь сможет помочь?

[Askaneli]

Code: Select all

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

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

Code: Select all

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

[Дед Махно]

Code: Select all

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

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

Code: Select all

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

Спсибо. Теперь работает

[Mr.RMK]

Ogromnoe vsem spasibo...
Zaodno za vnimanie...