Page 1 of 1
Помогите найти ошибку в пока еще маленьком скрипте...
Posted: 2005-01-25 18:10:54
by TSD Praetorian
Сабж, пожалуйста, дорогие инжектеры...
Code: Select all
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, ставишь ее и пишутся скроллы, пока не кончится мана или реги.
Posted: 2005-01-25 18:11:52
by TSD Praetorian
И еще, есть какие-нибудь алармы в инже? Если да - дайте команду, пожалуйста.
Posted: 2005-01-25 21:40:00
by TapakaH
нету конкретного условия перехода к другой функции
так должно работать
Code: Select all
sub scribe()
uo.deletejournal() ;Трет журнал
UO.UseFromGround('0x0E34')
if uo.injournal('You dont have enough mana to continue') then ;условие
meditation()
endif
.......
end sub
Posted: 2005-01-25 21:54:12
by TapakaH
Posted: 2005-01-26 05:09:02
by TSD Praetorian
TapakaH wrote:нету конкретного условия перехода к другой функции
так должно работать
Code: Select all
sub scribe()
uo.deletejournal() ;Трет журнал
UO.UseFromGround('0x0E34')
if uo.injournal('You dont have enough mana to continue') then ;условие
meditation()
endif
.......
end sub
А зачем тереть журнал? Что бы он не находил контрольную фразу для перехода на медитацию?
ЗЫ: А можно ПлэйВАВ замутить, а прописать путь к mp3?
Posted: 2005-01-26 05:09:40
by TSD Praetorian
Пасиба, что помогли! БИГ СЕНКС!
Posted: 2005-01-26 12:57:17
by TSD Praetorian
АП МИ!
Posted: 2005-01-26 13:45:48
by BETEPAH
Code: Select all
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
формат МР3 инжа не распазнает. тока wav
Posted: 2005-01-26 13:49:20
by TSD Praetorian
BETEPAH wrote:Code: Select all
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
формат МР3 инжа не распазнает. тока wav
А конвертер есть у когонить из мп3 в вав?
Posted: 2005-01-26 14:23:18
by AlexeyVorotnikov
BETEPAH wrote:Code: Select all
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
формат МР3 инжа не распазнает. тока wav
А у меня Инжа играет MP3-шки...
IMHO, Инже пофигу формат. Если в системе установлен соответствующий кодек, то будет играть всё что угодно.
Posted: 2005-01-26 15:27:22
by TSD Praetorian
А у мя инжа токо ВАВы читает!
Вот еще фишка, помогите, пожалуйста:
Code: Select all
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
Та часть, которая выделена, не пашет!
Если с инжы пишет, что он с земли не может найти бланки, но в журнале-т отображается! Че делать? Может не ИнЖурнал команду мутить, а какую другую???
ЗЫ: Выделение в коде че-то не пашет...
Posted: 2005-01-27 10:49:28
by TSD Praetorian
TSD Praetorian wrote:А у мя инжа токо ВАВы читает!
Вот еще фишка, помогите, пожалуйста:
Code: Select all
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
Та часть, которая выделена, не пашет!
Если с инжы пишет, что он с земли не может найти бланки, но в журнале-т отображается! Че делать? Может не ИнЖурнал команду мутить, а какую другую???
ЗЫ: Выделение в коде че-то не пашет...
АП!