getname

[Irina E]

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 sub

вот код что я токо не делал но никак не хочет показать какоЙ ент я вырубил

[Mirage]

надо кликнуть на цель

[Irina E]

надо кликнуть на цель

а как если не трудна

[Mirage]

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

кусок скрипта у тебя но технически должно работать вот так

[Irina E]

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.21

вот что показывает в Журнале моЖет поставить тип ента чтобы показывал какоЙ ент вырубил

[Mirage]

Если имя показывается при клике (просто в игре) типо - Fair Elemental то значит ошибка в скрипте гдето выше.
Если имя так не показывается то надо вводить 2 массива 1-цвета 2-названия и уже делать проверку по цвету в поиске на земле.
Скрипты с названиями элементалей были - ищи мининги.

[Irina E]

Если имя показывается при клике (просто в игре) типо - Fair Elemental то значит ошибка в скрипте гдето выше.
Если имя так не показывается то надо вводить 2 массива 1-цвета 2-названия и уже делать проверку по цвету в поиске на земле.
Скрипты с названиями элементалей были - ищи мининги.

имя показывает и этот скрипт запускаеца одельна

шард

Code: Select all

ДРВ

[Mirage]

Вот этот должен логировать имена элементалей

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

Если не устроит то по аналогии переделай свой или посмотри в аналогичных скриптах.

[Irina E]

Вот этот должен логировать имена элементалей

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

тут проблема в том что когда вы капал ента то пишет Вас атаковал (имя чара допустим вася) но если ент атаковал чара то пишет какой ент