Code: Select all
# Ищим чаров, записываем в окно текста их имя, ай-ди и координаты.
####
sub Spy()
VAR Flag = 0
VAR k = 0
While k == 0
UO.Ignore('self')
UO.FindType( '0x0190', '-1', 'ground' ) ; Man
If UO.FindCount() Then
Flag = 1
EndIf
If Flag == 0 Then
UO.FindType( '0x0191', '-1', 'ground' ) ; Women
If UO.FindCount() Then
Flag = 1
EndIf
EndIf
If Flag == 1 Then
UO.TextOpen()
UO.TextPrint((UO.GetName( 'finditem' )) , (UO.GetSerial( 'finditem' )), STR((UO.GetX( 'finditem' ))), STR((UO.GetY( 'finditem' ))))
Wait( 10000 )
EndIf
Wait(400)
Wend
end sub
Спасибо