Yoko

Народ помогите

Кароче надо чтобы он скрафтил химию и когда физл он ещё раз пытался делать и так пока некончаться банки или реги ( Прошу очень надо)

sub Alchemy(reagent, min_reg, choice)
VAR regi, puziri
while not uo.dead()
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("Елексир не получился")
wait(300)
wend
wend
wend
end sub

#==============================================================
# makega() - toss greater agility potion
#--------------------------------------------------------------
sub makega()
alchemy('0x0F7B', 3, "'Greater Agility'")
end sub


#==============================================================
# makedp() - toss deadly poison potion
#--------------------------------------------------------------
sub makedp()
alchemy('0x0F88', 8, "'Deadly Poison'")
end sub


#==============================================================
# makegp() - toss greater poison potion
#--------------------------------------------------------------
sub makegp()
alchemy('0x0F88', 4, "'Greater Poison'")
end sub


#==============================================================
# makeinvis() - toss invisibility potion
#--------------------------------------------------------------
sub makeinvis()
alchemy('0x0F91', 4, "'Invisibility'")
end sub


#==============================================================
# maketm() - toss total mana potion
#--------------------------------------------------------------
sub maketm()
alchemy('0x0F87', 6, "'Total Mana'")
end sub

#==============================================================
# makemanka() - toss mana potion
#--------------------------------------------------------------
sub makemanka()
alchemy('0x0F87', 6, "'Mana Refresh'")
end sub

#==============================================================
# makegh() - toss total mana potion
#--------------------------------------------------------------
sub makegh()
alchemy('0x0F85', 7, "'Greater Heal'")
end sub


#==============================================================
# makegc() - toss Greater Cure potion
#--------------------------------------------------------------
sub makegc()
alchemy('0x0F84', 6, "'Greater Cure'")
end sub


#==============================================================
# makess() - toss stoneskin potion
#--------------------------------------------------------------
sub makess()
alchemy('0x0F85', 1, "'Stoneskin'")
end sub


#==============================================================
# makens() - toss Night Sight potion
#--------------------------------------------------------------
sub makens()
alchemy('0x0F8D', 2, "'Nightsight'")
end sub


#==============================================================
# makeh() - toss Heal potion
#--------------------------------------------------------------
sub makeh()
alchemy('0x0F85', 5, "'(2)'")
end sub


#==============================================================
# maketr() - toss total refresh potion
#--------------------------------------------------------------
sub maketr()
alchemy('0x0F7A', 6, "'Total Refresh'")
end sub


#==============================================================
# makegs() - toss total refresh potion
#--------------------------------------------------------------
sub makegs()
alchemy('0x0F86', 5, "'Greater Strength'")
end sub


#==============================================================
# makege() - toss total mana potion
#--------------------------------------------------------------
sub makege()
alchemy('0x0F8C', 10, "'Greater Explosion'")
end sub

#==============================================================
# makege() - toss total mana potion
#--------------------------------------------------------------
sub makele()
alchemy('0x0F8C', 3, "'Lesser Explosion'")
end sub

Зарание спосибо

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

#######################
### 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
##################
### Mana ###
##################
sub MakeMana()
Alchemy('0x0F87', 6, "'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

####################
### Shrink ###
####################
sub MakeShrink()
Alchemy('0x0F78', 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


Пользуйся

_________________
А Я че Я не че !

Всё равано когда физл он не делает заного

У меня когда физл с лево пишеться

Вы смешали ингридиенты
неверно, как следствие -
элексир неполучился.

Помогите пожалуйсто а то меня ето бесит =)

Блин тут вообще ктонибудь когда нибудь поможет 7?????

Ты еще обматюгай всех - тогда точно от желающих помочь будет не отбиться...

ЗЫ: Будет у кого время и желание - поможет. А нет - не обессудь, никто не обязан.

По английски он тебе ни чего не пишет? Насколько я знаю Инжект не работает с русским языком в журнале...

Вот меня удивляют такие темы.

Интересно, когда авторы поймут, что когда я включаю мультимодерацию - я расцениваю по названию тем, "помогите пожалуйста" - это значит, кого-то пришельцы похители, собирают деньги на ракету, такому тут не место, и такие посты довольно быстро имеют свойство пропадать..

Надеюсь автор что-нибудь усвоит из написанного мною текста и в следущий раз назовёт тему лучше.

PS: За внезапное исчезновение топика несёт ответственность только автор.

РЖУНИМАГУ Дест ЖЖОШЬ ПЯТЬ БАЛОВ ))))

Узнавай дальше Прекрасно работает

Работает ?
Ну тогда кто в силах помочь плиз помогите =)

while NOT UO.InJournal("You put") AND NOT UO.InJournal("Елексир") 

Тут ставишь вместо You put то что пишется когда сварил и вместо элексир то что пишется когда не сварил, достаточно одного слова. Если слова есть одинаковые и там и там, то вообще идеал.

while NOT UO.InJournal("Слово")

Ну и с орфографией разберись, точно у вас там Елексир пишется? Может все таки Элексир?