Yoko

All sides of Injection
It is currently 2024-03-28 22:43:55

All times are UTC+02:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
 Post subject: alchemy
PostPosted: 2004-04-05 02:37:26 
Offline
User avatar

Joined: 2004-04-03 18:39:28
Posts: 173
знаушие помагите допешите штоби когда зделал 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


Top
   
 Post subject:
PostPosted: 2004-04-05 11:06:50 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Это скрипт на крафт а не на прокачку!
Юзай это:
Вообщем если варить пойзоны, то чар будет еще пойзонить даггер, если нет, блок пойзонинга не срабатывает.
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


Top
   
 Post subject:
PostPosted: 2004-04-10 08:14:56 
Offline

Joined: 2004-04-06 19:53:41
Posts: 82
что-то ошибку выдает...
а можете дать скрипт на отравление тогоже дагера лесерами лежащими в паке?


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 22 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