Yoko

Сабж, пожалуйста, дорогие инжектеры...

Sub main()
UO.DeleteJournal()
UO.Exec('exec Scribing')
EndSub

Sub Scribing()
UO.UseFromGround('0x0E34')
Wait (250)
UO.LDblClick(61,68)
Wait (250)
UO.LDblClick(61,68)
Wait (250)
UO.LDblClick(61,68)
Repeat
Wait (10100)
Until UO.InJournal('You dont have enough mana to continue')
UO.Print('Not enough mana! Please meditate!')
Meditation()
EndSub

Sub Meditation()
Repeat
UO.Exec('useskill Meditation')
Wait (5300)
Until UO.InJournal('You are at peace.')
UO.Print('Uve meditated.')
Scribing()
EndSub

Корочее, вот пишет скроллы мой чар (в буке всего один скролл, потому дубль клик в одно и то же место, 3 раза сделал для подстраховки), БАЦЦЦ манки нету (У нас на шарде при написании скроллов кушается манка и реги, которые нужны для каста, хз, как на других шардах), переходим на Суб Медитэйшн, тама все нормаль, когда манка намедиталась полностью и еще раз медитаешь - у нас пишется "Ю ар эт пис", мы это видим в журнали, переходим на скрайбинг. И тут-то лафа и начинается: пишет скроллы и от куда-то берет, что маны не хватает и начинает параллельно с написанием скроллов медитировать пытаться! В ЧЕМ ЛАФА???

ЗЫ: У нас действует команда .macro on, ставишь ее и пишутся скроллы, пока не кончится мана или реги.

И еще, есть какие-нибудь алармы в инже? Если да - дайте команду, пожалуйста.

нету конкретного условия перехода к другой функции

так должно работать

sub scribe()
uo.deletejournal() ;Трет журнал
UO.UseFromGround('0x0E34') 
if uo.injournal('You dont have enough mana to continue') then ;условие
meditation()
endif
.......
end sub

вот аларм

uo.playwav("c:\1.waw")

А зачем тереть журнал? Что бы он не находил контрольную фразу для перехода на медитацию?

ЗЫ: А можно ПлэйВАВ замутить, а прописать путь к mp3?

Пасиба, что помогли! БИГ СЕНКС!

АП МИ!

uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 

формат МР3 инжа не распазнает. тока wav

_________________
Все просто.
BETEPAH ™

А конвертер есть у когонить из мп3 в вав?

А у меня Инжа играет MP3-шки...
IMHO, Инже пофигу формат. Если в системе установлен соответствующий кодек, то будет играть всё что угодно.

А у мя инжа токо ВАВы читает!

Вот еще фишка, помогите, пожалуйста:

Sub Scribing()
UO.DeleteJournal()
UO.UseFromGround('0x0E34')
Wait (250)
UO.LDblClick(61,68)
Wait (250)
UO.LDblClick(61,68)
Wait (250)
UO.LDblClick(61,68)
Repeat
  If UO.InJournal('You lack reagents for this scroll') Then
    UO.Print('Give me reagents!')
    UO.PlayWav("D:\ochered.wav")
  EndIf
  ОТ СЮДА >If UO.InJournal('Item not found.') Then
    UO.Print('Give me blanks!)
    UO.PlayWav("D:\ochered.wav")
  EndIf < ДО СЮДА
  Wait (10100)
Until UO.InJournal('You dont have enough mana to continue')
UO.Print('Not enough mana! Please meditate!')
Meditation()
EndSub

Та часть, которая выделена, не пашет! Если с инжы пишет, что он с земли не может найти бланки, но в журнале-т отображается! Че делать? Может не ИнЖурнал команду мутить, а какую другую???

ЗЫ: Выделение в коде че-то не пашет...

АП!