adr.bot

if i not wrong u need edit Interface.u>AbnormalStatusWnd.uc> info.Size = 24;

uses Classes, SysUtils; const spamDelay: integer = 1000; //1second spamText: string = 'just testing'; //text wich flood randomSymbolsCount: integer = 5; //ramdom symbols var charName: string; i: integer; SL: TStringList; procedure OnFree; begin SL.Free; print('Spam finished'); end; function getRandomString(size: integer): string; const alphabet = 'qwertyuiopasdfghjklzxcvbnm'; var i: integer; begin Result := ''; for i:=0 to size-1 do begin Result := Result + alphabet[Random(Length(alphabet)-1)]; end; end; begin SL := TStringList.Create; while true do begin for i := 0 to CharList.count -1 do begin charName := CharList.Items(i).name; if (charName <> '') and (SL.IndexOf(charName) = -1) then begin SL.add(charName); if Engine.Say(spamText + ' ' + getRandomString(randomSymbolsCount), 2, charName) then print('Spammed to: ' + charName); delay(spamDelay); end else delay(100); end; end; end. just removed configs and added in const, what you need now edit const and have fun xd
ps. tested and works
gl hf

var obj: TL2NPC;
obj2: TL2Effect;
begin
while true do begin
Engine.SetTarget(32498);
Engine.DlgOpen();
Engine.DlgSel(1);
Engine.DlgSel(1);
end;
end.

engine.sendmail('Nick', 'Theme','text', [57, 1]) // 57 aden id, 1 adena count

engine.bypasstoserver('12');

function deadCheck: Boolean; begin Result := false; if User.Dead then begin Result := true; Print('Dead. Pressing to village.'); Delay(1000); Engine.FaceControl(0,false); Engine.GoHome; Delay(10000); end; end; begin while true do begin Engine.BypassToServer('_bbshome'); Delay(1000); Engine.BypassToServer('_bbsgetfav'); Delay(1000); Engine.BypassToServer('_bbsbuffer'); Delay(1000); Engine.BypassToServer('_bbsbufferbypass_cast 159 x x'); Delay(1000); Engine.BypassToServer('_bbsgetfav'); Delay(1000); Engine.BypassToServer('_bbshome'); Delay(1000); Engine.BypassToServer('_friendlist_0_'); Delay(1000); Engine.BypassToServer('_dropItemsByName_ crafted leather'); Delay(1000); Engine.BypassToServer('_dropMonstersByItem_1894'); Delay(1000); Engine.BypassToServer('_dropMonstersByItem_1894_2'); Delay(1000); Engine.BypassToServer('_dropMonsterDetailsByItem_22643'); Delay(1000); Engine.BypassToServer('_dropMonsterDetailsByItem_22643_3'); Delay(1000); while not deadCheck do delay(1000); end; end. try this mabe this what you whant :D