Алхимия с гампом

[Qualis Eram]

Привет

Помогите сделать хороший макрос на алхимию с гампом. Есть хороший макрос на варку потионов:

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 TMana() 
   alchemy('0x0F87', 6, "'Total Mana Refresh'") 
END SUB

Все здорово но вот как применить этот скрипт дял варки потоинов через гамп. Не фига не пойму....
Вот айди гампа и номер кнопки:

Code: Select all

Uo.Recall('0x4025b480','1')

Парни помогите подправить скрипт выше или написать новый по типу того что я запостил.

[Qualis Eram]

Up
Ну что не кому помочь?

[Leo]

Может работать будет

Code: Select all

SUB Alchemy(reagent, min_reg) 
   while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg 
      UO.DeleteJournal() 
      UO.Recall('0x4025b480','1')
      UO.UseType(reagent) 
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
         wait(300) 
      wend 
   wend  
END SUB 

sub TMana() 
   alchemy('0x0F87', 6,) 
END SUB