Логирование клинса

[scriptermolodoi]

uses SysUtils, StdCtrls, Controls, Forms, Dialogs;

type
TEvents = class (tobject)
procedure OnClick(Sender: tobject);
end;

var Frm,Form : TForm;
LB : TListBox;
Events: TEvents;
bDel : TButton;
bSave : TButton;
Action: TL2Action;
obj : TL2Live;
Tar : TL2Live;
Txt : string;
p : pointer;
eu,char2,target:tl2char;
i,j,g,pis,pis2:integer;

procedure TEvents.OnClick(Sender: tobject);
var S: string;
begin
if Sender = bSave then begin
S := '';
end;
if (Sender = bDel) and (LB.ItemIndex <> 0) then LB.Items.delete(LB.ItemIndex);
end;

procedure MainLog;
begin
if (assigned(Frm)) then LB.Items.Add(Txt);
end;

procedure ToLog(const S: string);
begin
Txt := S;
Script.MainProc(@MainLog);
end;

procedure MainProc;
begin
Events := TEvents.Create;

Frm := TForm.Create(nil);
Frm.Caption := '1337';
Frm.BorderStyle := bsDialog;
Frm.Position := poScreenCenter;
Frm.Height := 340;
Frm.Width := 444;
LB := TListBox.Create(Frm);
LB.Parent := Frm;
LB.Width := 444;
LB.Align := alLeft;
Frm.Show;
Frm.FormStyle := fsStayOnTop;
Frm.FormStyle := fsNormal;
end;

procedure OnFree;
var Tmp: tobject;
begin
Tmp := Frm;
Frm := nil;
LB.Free;
Tmp.Free;
Events.Free;
end;

begin
Script.MainProc(@MainProc);
repeat
for i := 0 to CharList.count -1 do begin
Char2 := CharList.Items(i);

if (user.cast.endtime>0) and not (user.ismember) and (user.cast.id=1409) and not (user.dead) and
(User.DistTo(user)<2000) then begin
Tar := nil;
ToLog('Cleanse ->>' + user.target.name + ' | ' + user.name);
Delay(1000);
end;
end;
until not assigned(Frm);
end.
скрипт создает окно куда выводится инфа кто кого клинсил

 

[SARCAZM]

Для сопартийцев, которые жалуются что биш не клинсит?)) а он им логи как предоставит))

 

[Groma]

для пла раздающего пилюлей за афк бишей

 

[FullTork]

однако же полезная информация

 

[scriptermolodoi]

@SARCAZM,
для себя делал, но это окно только поверх адрика , а не всех окон.

 

[xammer]

на какие хроники он?

 

[scriptermolodoi]

вообще я использовал эту инфу , для того чтобы обновлять MBF на оверов\ее\бишей .

 

[malenkoehuylo]

неуместный скрипт, так себе ...

 

[rebelka]

Скрипт с защитой от злых сопартийцах