Code: Select all
sub ControlOfDanger()
var Time,danger
var Ent
Time=Time()
while 1
uo.DeleteJournal()
while not uo.InJournal(':')
wait(100)
wend
danger=uo.GetNotoriety(uo.JournalSerial(0))
if PhysicalDanger==1 then
if uo.InJournal('OOPS') then
uo.TextOpen()
uo.TextPrint(uo.getname('Ent')+' @ '+Time()) ;вот тут
uo.Exec('exec DangerWait')
end if
end if
wend
end subMirage wrote:надо кликнуть на цель
Code: Select all
sub ControlOfDanger()
var Time,danger
var Ent
Time=Time()
while 1
uo.DeleteJournal()
while not uo.InJournal(':')
wait(100)
wend
danger=uo.GetNotoriety(uo.JournalSerial(0))
if PhysicalDanger==1 then
if uo.InJournal('OOPS') then
uo.click( 'Ent' )
uo.TextOpen()
uo.TextPrint(uo.getname('Ent')+' @ '+Time()) ;вот тут
uo.Exec('exec DangerWait')
end if
end if
wend
end subMirage wrote:Code: Select all
sub ControlOfDanger()
var Time,danger
var Ent
Time=Time()
while 1
uo.DeleteJournal()
while not uo.InJournal(':')
wait(100)
wend
danger=uo.GetNotoriety(uo.JournalSerial(0))
if PhysicalDanger==1 then
if uo.InJournal('OOPS') then
uo.click( 'Ent' )
uo.TextOpen()
uo.TextPrint(uo.getname('Ent')+' @ '+Time()) ;вот тут
uo.Exec('exec DangerWait')
end if
end if
wend
end sub
кусок скрипта у тебя но технически должно работать вот так
Code: Select all
@ 9:26:57 @ 10.01.21Mirage wrote:Если имя показывается при клике (просто в игре) типо - Fair Elemental то значит ошибка в скрипте гдето выше.
Если имя так не показывается то надо вводить 2 массива 1-цвета 2-названия и уже делать проверку по цвету в поиске на земле.
Скрипты с названиями элементалей были - ищи мининги.
Code: Select all
ДРВCode: Select all
sub LOG()
var test='0x0191' ; тип элементаля
uo.ignorereset()
uo.textopen()
UO.set('finddistance','3') ; расстояние до элементаля
while 1>0
UO.FindType(test,-1,'ground')
If UO.FindCount() > 0 Then
temp = uo.GetSerial('finditem')
uo.clik(temp)
UO.textprint( +UO.GetName( temp ) +' @ '+Time()))
UO.Hide( temp )
UO.Ignore( temp )
wait(500)
Endif
wait(300)
wend
end subMirage wrote:Вот этот должен логировать имена элементалейЕсли не устроит то по аналогии переделай свой или посмотри в аналогичных скриптах.Code: Select all
sub LOG()
var test='0x0191' ; тип элементаля
uo.ignorereset()
uo.textopen()
UO.set('finddistance','3') ; расстояние до элементаля
while 1>0
UO.FindType(test,-1,'ground')
If UO.FindCount() > 0 Then
temp = uo.GetSerial('finditem')
uo.clik(temp)
UO.textprint( +UO.GetName( temp ) +' @ '+Time()))
UO.Hide( temp )
UO.Ignore( temp )
wait(500)
Endif
wait(300)
wend
end sub
Code: Select all
sub WriteNames()
var Time,Space
Time=Time()
Space=' '
uo.GetStatus("uo.JournalSerial(0)")
uo.SetGlobal("name",uo.GetName(0))
uo.TextOpen()
uo.TextPrint("Вас атаковали - "+uo.GetName(0) +Space +Time)
end sub