Помогите найти ошибку в пока еще маленьком скрипте...

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-25 18:10:54

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

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, ставишь ее и пишутся скроллы, пока не кончится мана или реги.

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-25 18:11:52

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

TapakaH · Post by **TapakaH** » 2005-01-25 21:40:00

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

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

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

TapakaH · Post by **TapakaH** » 2005-01-25 21:54:12

вот аларм

Code: Select all

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

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-26 05:09:02

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?

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-26 05:09:40

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

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-26 12:57:17

АП МИ!

BETEPAH · Post by **BETEPAH** » 2005-01-26 13:45:48

Code: Select all

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

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

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-26 13:49:20

BETEPAH wrote:
Code: Select all
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
формат МР3 инжа не распазнает. тока wav

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

AlexeyVorotnikov · Post by **AlexeyVorotnikov** » 2005-01-26 14:23:18

BETEPAH wrote:
Code: Select all
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
формат МР3 инжа не распазнает. тока wav

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

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-26 15:27:22

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

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

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

Та часть, которая выделена, не пашет!

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

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

TSD Praetorian · Post by **TSD Praetorian** » 2005-01-27 10:49:28

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

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

АП!