Алхимия

[Earth]

Пожалуйста можете помочь со скриптом на Алхимию или подправте этот

sub MixBottles_Shrink()
#Yes of Newt - 0x0f87 Mana
#Wyrm's Heart - 0x0f91 Invis
#Bat wings - 0x0f78 Shrink
#Black Pearl - 0x0F7A Refresh
#Carlic - 0x0F84 Cure
#Mandrake - 0x0F86 Strength
#Blood Moss - 0x0F7B Agility
#Nightshade - 0x0F88 Poison
REPEAT
UO.DeleteJournal()
UO.Exec("waitmenu 'What sort' 'What sort' 'Poison'")
UO.Exec("usetype '0x0F88'")
repeat
wait(50)
until (UO.InJournal("You put") || UO.InJournal("fail") || UO.InJournal("found") || UO.InJournal("You have no") || UO.InJournal("You can't"))
if (UO.InJournal("No item found") || UO.InJournal("You have no") || UO.InJournal("You can't")) then
Message("I'm finished to sort potions!")
end if
UNTIL UO.Life<1
Message("You was DIE! The script is terminated.")
end sub






Проблема в том , что когда физл , он збивается , и когда появляется миню крафта он работает минут 5 а потом перестает выбирать зелье автоматически!
Помогите пожалуйста

[mez]

Code: Select all

sub Alchemy(Reagent,MinimumReags,Choice) 
while uo.Count('0x0F0E','0x0000')>0 and uo.Count(Reagent)>=MinimumReags 
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 

#######################
###    Explosion    ###
#######################
sub MakeExplosion()
Alchemy('0x0F8C', 5, "'Explosion'")
end sub

####################### 
### Greater Agility ### 
####################### 
sub MakeGreaterAgility() 
Alchemy('0x0F7B', 3, "'Greater Agility'") 
end sub 

##################### 
### Deadly Poison ### 
##################### 
sub MakeDeadlyPoison() 
Alchemy('0x0F88', 8, "'Deadly Poison'") 
end sub 

###################### 
### Greater Poison ### 
###################### 
sub MakeGreaterPoison() 
Alchemy('0x0F88', 4, "'Greater Poison'") 
end sub 

#################### 
### Invisibility ### 
#################### 
sub MakeInvisibility() 
Alchemy('0x0F91', 4, "'Invisibility'") 
end sub 

################## 
### Total Mana ### 
################## 
sub MakeTotalMana() 
Alchemy('0x0F87', 6, "'Total Mana'") 
end sub 

#################### 
### Greater Heal ### 
#################### 
sub MakeGreaterHeal() 
Alchemy('0x0F85', 7, "'Greater Heal'") 
end sub 

#################### 
### Greater Cure ### 
#################### 
sub MakeGreaterCure() 
Alchemy('0x0F84', 6, "'Greater Cure'") 
end sub 

################# 
### Stoneskin ### 
################# 
sub MakeStoneskin() 
Alchemy('0x0F85', 1, "'Stoneskin'") 
end sub 

################## 
### NightSight ### 
################## 
sub MakeNightsight() 
Alchemy('0x0F8D', 2, "'Nightsight'") 
end sub 

############ 
### Heal ### 
############ 
sub MakeHeal() 
Alchemy('0x0F85', 5, "'(2)'") 
end sub 


##################### 
### Total Refresh ### 
##################### 
sub MakeTotalRefresh() 
Alchemy('0x0F7A', 6, "'Total Refresh'") 
end sub 

######################## 
### Greater Strength ### 
######################## 
sub MakeGreaterStrength() 
Alchemy('0x0F86', 5, "'Greater Strength'") 
end sub 

######################### 
### Greater Explosion ### 
######################### 
sub MakeGreaterExplosion() 
Alchemy('0x0F8C', 10, "'Greater Explosion'") 
end sub

######################### 
###      Shrink       ### 
######################### 
sub MakeShrink() 
Alchemy('0x0F78', 1, "'Shrink'") 
end sub

[Earth]

Спасибо , большое , но вот одна беда , вместо обычного пойсона он Делает маленьки , вместо большого , тоже маленький

[mez]

Спасибо , большое , но вот одна беда , вместо обычного пойсона он Делает маленьки , вместо большого , тоже маленький

просто измени там название и все!