Yoko

Прошу вас помогите хоть раз, я писал несколько тем мне никто не помогал((Ну там я просил сложное и то что можно наити было в поиске как потом я и сделал.А сейчас я ищу наверное часа два....скрипт на алхимию.. тут много НО ВСЕ НЕ ТО скрипт нужет такой:
1у чара в бэкпаке реги и бутылок 5 пустых.. но лучше если можно то сундук и чтоб там реги были...
2 два раза тыкаем на мортар и выбираем Грит пойзон или дедл(я искал но нигде не написано чтоб мортар юзать)
3 сварим бутылочку и ПЕРЕТАСКИВАЕМ ее на кег,тогда она зальется..(везде написано типо два раза на кег это НЕнадо)
вот и все и чтоб он это повторял...
ПС Пожалуйста помогите.. как мне кажется нечего сложного,но к сажелению я плохо пишу скрипты...
Заранее спасибо

Вообщем я скрипты особо писать то неумею н овсё таки кое что слепил для тебя. Так что прошу учесть ето и особо некритиковать если чтото нетак (вроде смотрел - ошибок невидел)

sub Poison() 
VAR poisonbottle=''     # Type and color
VAR KEG=''                # ID Kegi
VAR Exit=0, LastTimer, TryToPoison 
while Exit<>1 
UO.DeleteJournal() 

uo.print('Add Bag2 Kyda budem kidat ') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 
UO.FindType('0x13FE','0x0000','backpack');  Type & Color Items Bottle of Poison
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2'); 
wait(1000) 
UO.Grab('5','finditem')       # koli4estvo puzirei dla sliva v keg.menai esli ne to 4islo
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

#Vozmogno tut net povtora etogo kuska (vishe kotorii) 
# Tebe nuno budet vsego lish dobavit 2 stroki dlya togo 
#4tob zaciklit' etu 4ast' (stroki znaesh nadeus')

UO.FindType('0x0F0E',-1,'backpack') ; bottle 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0E7C','0x0000','0x40140B18') ; bottle, container 
wait(1000) 
UO.Grab('1','finditem') 
wait(100) 
Endif 
UO.FindType('0x0F88','0x0000','backpack') ; NS 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0E7C','0x0000','0x40140B18'); NS, container 
wait(1000) 
UO.Grab('2','finditem') 
wait(500) 
Endif 
LastTimer=UO.Timer() 
UO.WaitMenu('What','(last)') ; menu 
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 ;time to make a dagger 
Else 
TryToPoison=1 
repeat 
UO.FindType('0x0F0E','0x0998','my') 
If UO.GetQuantity('finditem')>0 then 
UO.moveitem(poisonbottle,'-1',backpack) 
UO.WaitTargetType('0x0F52','finditem')  #  Type Kegi  stav' svoi
UO.WaitTargetObject('0x401B5E07','finditem')  # ID KEGi  stav' svoi
; UO.UseSkill('Poisoning') 
wait(5500) 
Else 
TryToPoison=0 
Endif 
EndIf 
UO.UseSkill('Spirit Speak') 
wait(3000) 
wend 
end sub

ЗЫ скрипт слепил и дописал под то что ты просил - по идее он должен работать (использовал рабочий скрипт на кравт пойзона и кача пойсонинга + доделал под твои нужды)
Если что пиши - гляну где ошибся, если сооброжу то исправлю ошибки если они будут

_________________
=== ? Como es tas ? ===