Yoko
http://forum.yoko.com.ua/

Помогите найти ошибку в пока еще маленьком скрипте...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2801		 Page 1 of 1
Author:  TSD Praetorian [ 2005-01-25 18:10:54 ]
Post subject:  Помогите найти ошибку в пока еще маленьком скрипте...
Сабж, пожалуйста, дорогие инжектеры...

Code:
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, ставишь ее и пишутся скроллы, пока не кончится мана или реги.
Author:  TSD Praetorian [ 2005-01-25 18:11:52 ]
Post subject: 
И еще, есть какие-нибудь алармы в инже? Если да - дайте команду, пожалуйста.
Author:  TapakaH [ 2005-01-25 21:40:00 ]
Post subject: 
нету конкретного условия перехода к другой функции

так должно работать
Code:
sub scribe()
uo.deletejournal() ;Трет журнал
UO.UseFromGround('0x0E34') 
if uo.injournal('You dont have enough mana to continue') then ;условие
meditation()
endif
.......
end sub
Author:  TapakaH [ 2005-01-25 21:54:12 ]
Post subject: 
вот аларм
Code:
uo.playwav("c:\1.waw")
Author:  TSD Praetorian [ 2005-01-26 05:09:02 ]
Post subject: 
TapakaH wrote:
нету конкретного условия перехода к другой функции

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


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

ЗЫ: А можно ПлэйВАВ замутить, а прописать путь к mp3? :D
Author:  TSD Praetorian [ 2005-01-26 05:09:40 ]
Post subject: 
Пасиба, что помогли! БИГ СЕНКС!
Author:  TSD Praetorian [ 2005-01-26 12:57:17 ]
Post subject: 
АП МИ!
Author:  BETEPAH [ 2005-01-26 13:45:48 ]
Post subject: 
Code:
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")

формат МР3 инжа не распазнает. тока wav
Author:  TSD Praetorian [ 2005-01-26 13:49:20 ]
Post subject: 
BETEPAH wrote:
Code:
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")

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


А конвертер есть у когонить из мп3 в вав?
Author:  AlexeyVorotnikov [ 2005-01-26 14:23:18 ]
Post subject: 
BETEPAH wrote:
Code:
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")

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

А у меня Инжа играет MP3-шки...
IMHO, Инже пофигу формат. Если в системе установлен соответствующий кодек, то будет играть всё что угодно.
Author:  TSD Praetorian [ 2005-01-26 15:27:22 ]
Post subject: 
А у мя инжа токо ВАВы читает! :(

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

Code:
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


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

ЗЫ: Выделение в коде че-то не пашет... :(
Author:  TSD Praetorian [ 2005-01-27 10:49:28 ]
Post subject: 
TSD Praetorian wrote:
А у мя инжа токо ВАВы читает! :(

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

Code:
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


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

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


АП!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/