Page 1 of 1
Добавить игнорирование НПС
Posted: 2007-02-26 14:03:29
by 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
Posted: 2007-02-26 16:02:49
by Nmy
пропишы в скрипте пусть игнорирует нпц по сериалу - они не часто меняются...
Posted: 2007-02-26 21:03:32
by Mihail
делаешь простенький скриптик для добавления серийника НПЦ в текстовый файл - чтобы не загромождать код просто так - потом ignore срийники текстового файла и вуа-ля
Posted: 2007-02-26 21:35:41
by to4a
Mihail wrote:делаешь простенький скриптик для добавления серийника НПЦ в текстовый файл - чтобы не загромождать код просто так - потом 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
не знаю работает ли вообще, писал в окне ответа...
Posted: 2007-02-27 00:17:46
by Qualis Eram
Спасибо огромное. А в ту функцию никак не добавить? Все это.
Posted: 2007-02-27 00:38:10
by to4a
ну строку ignorenpc() вставь в нужное место где тебе нужно чтоб оно заигнорило нпц, а адднпц() и должно быть отдельной ф-цией