Добавить игнорирование НПС

[Qualis Eram]

Ребзя помогите а? Допишите, чтобы програ игнорировала еще и НПС:

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

[Nmy]

пропишы в скрипте пусть игнорирует нпц по сериалу - они не часто меняются...

[Mihail]

делаешь простенький скриптик для добавления серийника НПЦ в текстовый файл - чтобы не загромождать код просто так - потом ignore срийники текстового файла и вуа-ля

[to4a]

делаешь простенький скриптик для добавления серийника НПЦ в текстовый файл - чтобы не загромождать код просто так - потом ignore срийники текстового файла и вуа-ля

Code: Select all

var f=file("C:\npc.txt")
sub AddNPC()
   UO.Print('таргет на нпс')
   UO.AddObject('zzz')
   while uo.targeting()
      wait(200)
   wend
   npc=UO.GetSerial('zzz')
   f.open()
   f.writeln(npc)
   f.close()
   UO.Print('NPC Added')
endsub

sub IgnoreNPC()
   var i=0,tmp;
   f.open()
   while not f.eof()
       tmp=f.ReadLn()
       UO.Ignore(tmp)
   wend
   UO.Print('all npcs ignored');
endsub

не знаю работает ли вообще, писал в окне ответа...

[Qualis Eram]

Спасибо огромное. А в ту функцию никак не добавить? Все это.

[to4a]

ну строку ignorenpc() вставь в нужное место где тебе нужно чтоб оно заигнорило нпц, а адднпц() и должно быть отдельной ф-цией