Stealth Client Forum

Code: Select all

sub main()
on()
filterspeechcler()
UO.DeleteJournal()
While UO.asmGetFlag('twi')=='UNCHECKED'
    UO.asmClickFlag('twi')
  Wend
  uo.resend ()

var  jor, ser, noto
UO.DeleteJournal()
\[b]Собственно конвертируем отсель[/b]
while 1

    for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto<>0 and noto<>1 and noto<>3 OR uo.injournal("Man|Woman")  then
uo.click(ser)
CheckLag()

      if not uo.injournal ("Harpy|Gargoyle|Imp|Fire Efreet|Hellcat|Molech|Stone Gargoyle|Fire Elemental|Elder Gazer|Lava Serpent|Hell Hound") then
uo.msg('\w Derik valim')
\[b]И до сель[/b]
uo.TextOpen()
uo.TextPrint(uo.getname(ser)+' '+(UO.asmGetTime("'Ïðîáåæàë â 'h:n")))
UO.DeleteJournal()
wait(10000)
if uo.waiting() then
uo.canceltarget()
endif
else
UO.DeleteJournal()
wait(1)
 endif
 else
   wait(1)
endif
next
wend
end sub
sub on()
   uo.Set('quiet', 0)
Endsub

sub filterspeechcler()
uo.filterspeech('clear')
endsub


Sub CheckLag()
   DeleteJournal( 'backpack' )
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
   return
end sub

#####################################################################
Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub

Code: Select all

function checkpk: boolean;

  var
    i: integer;
    q: integer;

  begin
    for q := 0 to high(pkType) do
      for i := 3 to 6 do

       if findnotoriety(pkType[q], i) > 0 then begin
         result := true;
         addtosystemjournal('Пришел плохой дядя - ' + getname(finditem));
         exit;
       end;
  end;

Code: Select all

var
  pkType: array of word;

Code: Select all

  setlength(pkType, 3);
  pkType[0] := $0190; // Мужик.
  pkType[1] := $0191; // Женщина.
  pkType[2] := $0009; // Демон.

Code: Select all

program AntiPk; 
function checkpk: boolean;

  var
    i: integer;
    q: integer;
    var
  pkType:array of[0..2]Of Word;
        begin
  setlength(pkType, 2);
  pkType[0] := $0190; // Мужик.
  pkType[1] := $0191; // Женщина.
  pkType[2] := $0009; // Демон.
  FindDistance := 6.
      for q := 0 to high(pkType) do
      for i := 3 to 6 do

       if findnotoriety(pkType[q], i) > 0 then begin
         result := true;
         addtosystemjournal('Пришел плохой дядя - ' + getname(finditem));
         exit;
       end;
  end;
  End. 

Code: Select all

  pkType:array of[0..2]Of Word;

Code: Select all

  pkType:array [0..2]Of Word;

Code: Select all

program AntiPk; 
function checkpk: boolean;

  var
    i: integer;
    q: integer;
    var
  pkType: array of word;
  setlength(pkType, 3);
  pkType[0] := $0190; // Ìóæèê.
  pkType[1] := $0191; // Æåíùèíà.
  pkType[2] := $0009; // Äåìîí.
  FindDistance := 25.
        begin
          for q := 0 to high(pkType) do
      for i := 3 to 6 do

       if findnotoriety(pkType[q], i) > 0 then begin
         result := true;
         addtosystemjournal('Ïðèøåë ïëîõîé äÿäÿ - ' + getname(finditem));
         exit;
       end;
  end;
  End. 

Code: Select all

pkType := [$0190, $0191, $0009];

Code: Select all

Program AntiPk; 
function checkpk: boolean;
    var
    i: integer;
    q: integer;
    var
  pkType: array of word;
  begin
  Finddistance:=25; 
  setlength(pkType, 3);
  pkType[0] := $0190; // Ìóæèê.
  pkType[1] := $0191; // Æåíùèíà.
  pkType[2] := $0009; // Äåìîí.
          for q := 0 to high(pkType) do
      for i := 3 to 6 do
      if findnotoriety(pkType[q], i) > 0 then begin
         result := true;
         addtosystemjournal('Ïðèøåë ïëîõîé äÿäÿ - ' + getname(finditem));
         exit;
       end;
  end;
    END.

Code: Select all

Program AntiPk;

var
  pkType: array of word;

function checkpk: boolean;

  var
    i: integer;
    q: integer;

  begin
    for q := 0 to high(pkType) do
      for i := 3 to 6 do

       if findnotoriety(pkType[q], i) > 0 then begin
         result := true;
         addtosystemjournal('Пришел плохой дядя - ' + getname(finditem));
         exit;
       end;
  end;

begin
  setlength(pkType, 3);
  pkType[0] := $0190; // Мужик.
  pkType[1] := $0191; // Женщина.
  pkType[2] := $0009; // Демон.

  finddistance := 25;
  while NOT dead do begin
    if checkpk then
      checklag(5000); // Тут действие при нахождении ПК.

    wait(1000);
  end;
end.

Code: Select all

while NOT dead do begin