Terrible wrote:Ну а как из журнала исключить своего чара??и собственно поставить этот счетчик??
Code: Select all
sub poisk()
var i
uo.ignore('0x0084CF3F'); если на скрипте человек то укажи его ID тогда он не будет себя искать.
DIM H[2]
H[1]='0x0190'
H[2]='0x0191'
UO.set('finddistance','3'); вместо 3 поставь 40-50 будет на весь экран штырить
while 1>0
for i=1 to 2
UO.FindType(H[i],-1,'ground')
If UO.FindCount() > 0 Then
Gong(1);проигрывает сигнал
Wait( 300 )
else
Wait( 300 )
Endif
next
wend
end sub
sub cons()
var txt, Time, Space, i
Space=' '
uo.ignorereset()
uo.ignore('self')
uo.ignore('0x0084CF3F'); нпс
uo.hide('0x0084CF3F')
DIM H[2]
H[1]='0x0190'
H[2]='0x0191'
UO.set('finddistance','3')
while 1>0
for i=1 to 2
UO.FindType(H[i],-1,'ground')
If UO.FindCount() > 0 Then
Gong(1);проигрывает сигнал
Wait( 300 )
else
wait(300)
Endif
next
If uo.InJournal(":") or uo.InJournal(">") or uo.InJournal("page") or uo.InJournal("GM") then
txt=uo.LastMessage()
UO.textprint(txt)
uo.textopen()
uo.DeleteJournal()
Gong(1);проигрывает сигнал
end if
wend
end sub
sub Gong(times) ; play wav-file
VAR i
for i=1 to times
UO.Exec("playwav D:\Games\Ultima\YokoInjection\ALARM"); тут ВНИМАТЕЛЬНО укажи путь к файлу БЕЗ расширения
wait(1200) ; time to play sample at once
next
end sub
Code: Select all
sub main()
var i
for i=0 to 5
uo.print( str(i) )
wait(1000)
next
endsubCode: Select all
sub main()
var i
for i=0 to 5
uo.charprint('1069',i)
wait(1000)
next
endsub
Code: Select all
sub main()
var i
var msg ='Сюда фразу для проверки'
UO.DeleteJournal()
repeat
wait( 300 )
until UO.InJournal( msg )
for i=0 to 5
uo.print( str(i) )
wait(1000)
next
endsub