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

alchemy
http://forum.yoko.com.ua/viewtopic.php?f=20&t=14		 Page 1 of 1
Author:  Kazoo [ 2004-04-05 02:37:26 ]
Post subject:  alchemy
знаушие помагите допешите штоби когда зделал 100 тоталок он клал их в сундук .. а если не хвотает регоф или бутилок их бы взял из яшика !
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
   gong(2)
end sub

sub maketm()
   alchemy('0x0F87', 6, "'Total Mana'")
end sub
Author:  Savage [ 2004-04-05 11:06:50 ]
Post subject: 
Это скрипт на крафт а не на прокачку!
Юзай это:
Вообщем если варить пойзоны, то чар будет еще пойзонить даггер, если нет, блок пойзонинга не срабатывает.
Code:
sub alchtrain()
   VAR Exit=0, LastTimer, TryToPoison
   while Exit<>1
      ToHide()
      UO.DeleteJournal()

      UO.FindType('0x0F0E',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x0F0E','0x0000','0x400704F3'); butilki v sunduke
         wait(1000)
         UO.Grab('500','finditem')
         wait(1000)
      Endif

      UO.FindType('0x0F88','0x0000','backpack')
      If UO.GetQuantity('finditem')<20 then
         UO.FindType('0x0F88','0x0000','0x400704F3');regi v sunduke
         wait(1000)
         UO.Grab('1000','finditem')
         wait(1000)
      Endif

      LastTimer=UO.Timer()
      UO.WaitMenu('What','(last)') ;4to varit`
      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      Else
         TryToPoison=1
         repeat
            UO.FindType('0x0F0E','0x0998','my')
            If UO.GetQuantity('finditem')>0 then
               UO.WaitTargetObject('0x4012DB8E','finditem'); dagger
               UO.UseSkill('Poisoning')
               wait(4000)
            Else
               TryToPoison=0
            Endif
         until TryToPoison==0
      EndIf
   wend   
end sub
Author:  mike [ 2004-04-10 08:14:56 ]
Post subject: 
что-то ошибку выдает...
а можете дать скрипт на отравление тогоже дагера лесерами лежащими в паке?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/