Алхимия
11 лет
Trasher
Сообщений: 57
Рег. 26.07.2013
11 августа 2013 20:32
Сообщение #1
Ребят выручите скриптом. Что бы делал Greater агилки.
Ефрейтор (155557)11 лет
Ranger
Сообщений: 176
Рег. 7.08.2013
14 августа 2013 17:46
Сообщение #2
sub makeTotalReferh()
  Alchemy('0x0F85', 4, "'Heal Potion'"); 'ID рега',кол-во реагента на штуку,"'название пошина'"
end sub

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 fail")
  
  wend
wend
end sub

Но скажу тебя сразу ) Я слизал его из прикрепленного топика где все скрипты. Мне он почему-то отказываеться делать хил поты, делает маленькие хил поты! )
Хотя если посмотреть на темы в этом разделе, я уже создал тему с вопросом что не так.
Младший Сержант (391499)11 лет
Ranger
Сообщений: 672
Рег. 28.03.2013
14 августа 2013 19:27
Сообщение #3
Baksik,
есть два типа хилов)) Lesser Heal Potion и Heal Potion
если в скрипте забить Heal Potion, то он в обоих поушенах найдет имя Heal Potion и ему без разницы че крафтить))) лучше забить через choice и не париться)))
10 лет
Trasher
Сообщений: 49
Рег. 14.09.2014
13 октября 2014 12:37
Сообщение #4
Spartacus,
А что делать если он через "+choice продолжает варить слабые?
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
13 октября 2014 12:42
Сообщение #5
China,
дополнить название предмета. Например, 'Heal Potion (6'. В меню крафта наведи мышку на нужный предмет и посмотри как точно он называется, найди в названии отличие этого предмета от остальных в этом же меню. При этом не обязательно дописывать название полностью, а можно оборвать как в моем примере
Лейтенант (4548828)11 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
13 октября 2014 13:42
Сообщение #6
можно по цифирьке крафтить :bye:
10 лет
Trasher
Сообщений: 49
Рег. 14.09.2014
13 октября 2014 14:01
Сообщение #7
Mitako,
Mirage,
что то все ровно не получается :help:
UO.WaitMenu('What sort of potion do you want to', 'Refresh Potion(4 Black Pearl)')

скрипт запускается а вообще не варит ни чего
овсе сделал маленько по другому
sub makeTotalReferh()
  Alchemy('0x0F7A', 4, "'(4 Black Pearl'")
end sub

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 fail")
    wait(300)
  wend
wend
end sub
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
13 октября 2014 14:09
Сообщение #8
China,
я же говорю, не обязательно прописывать до конца. Чем больше символов, тем больше вариантов сделать ошибку :) кстати, регистр надо тоже учитывать
'Refresh Potion(4 Black Pearl)'

пропустил пробел
я бы оставил
'Refresh Potion (4' потому что в этом меню нет других схожих по названию поушенов, например 'Lesser Refresh Potion (4' или 'Refresh Potion (40' и т.д.
10 лет
Trasher
Сообщений: 49
Рег. 14.09.2014
13 октября 2014 14:11
Сообщение #9
Mitako,
ну он не варил почему-то, а сейчас все пошло. Спасибо за помощь
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
13 октября 2014 14:15
Сообщение #10
Цитата: China
ну он не варил почему-то

Цитата: China
'Refresh Potion(4 Black Pearl)'


не было пробела между Potion и (4

зы: редактнул прошлый пост, почитай
Лейтенант (4548828)11 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
13 октября 2014 21:02
Сообщение #11
Маньяки
"waitmenu 'What sort' '(2)'"
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
13 октября 2014 21:44
Сообщение #12
Цитата: Mirage
Маньяки
"waitmenu 'What sort' '(2)'"

не хватит регов, изменится меню..и...?
Лейтенант (4548828)11 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
13 октября 2014 22:35
Сообщение #13
вы всегда берете регов в край? :) Закинуть +30 не позволяет вера или лень? Я крафчу когда закидываю нужных регов 300 - за глаза и за уши.
меню на алхимии не меняется, просто пропадет пунктик. Если на другие многоуровневые крафты то да.
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
13 октября 2014 22:41
Сообщение #14
Mirage,
пропадает пунктик, значит скрафтит другое? :) а с моим вариантом фейлу не бывать )
Лейтенант (4548828)11 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
13 октября 2014 23:45
Сообщение #15
не скрафтится :)))
на 1 зелье надо 2 рега
на 2 4 рега
на 3 6 регов.
ты делаешь 2 зелье и у тебя 9 регов.
0 крафт - у тебя все три зелья доступны. Ты указываешь (2). Варишь и расходуешь 4 рега. Остается 5
1 крафт - доступно 1 и 2 зелье. Третье ПРОПАДАЕТ потому что на него регов не хватит.
2 крафт доступно 1 зелье - крафт не пройдет так как просто нет пункта 2 в меню.
Туда МОЖЕТ попасть только мультиреговое зелье. Ну так нафиг брать лишние реагенты?
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
14 октября 2014 02:05
Сообщение #16
Mirage,
а если делать надо третье зелье?
мультиреговое? стон\стил скин? :) тут лишние реги не нужны
Маршал (73319389)14 летИнквизитор
Inquisitor
Сообщений: 1693
Рег. 19.06.2010
14 октября 2014 02:37
Сообщение #17
Немного переделал, так будет проще вписывать:
sub Refresh()
  Alchemy('Refresh Potion', 0x0F7A, 4)
end sub

Sub Alchemy(Name, Reg, CountReg)

  while UO.Count(0x0F0E, 0x0000) > 0 and UO.Count(Reg) >= CountReg
    UO.WaitMenu('What sort of potion', Name + ' (' + Str(CountReg))
    UO.DeleteJournal()
    UO.UseType(Reg)
    repeat
      Wait(300)
    until UO.InJournal('You put|You fail')
  wend

end sub
Последние посетители (0):

 
Сейчас: 24 ноября 2024 19:28