L2 Adrenaline Pm Script

[blackicent]

Hi have have problem with programing the script to sending private message.

 

begin

  Engine.Say ('there is the text', 2, 'nick');

end.

 

 

it is look like this how can i sending this message still to another nick. Can you explain me how to do that?

[adr.bot]

private mesage not 3?

[blackicent]

It is 2and it is working but now i want to use that to sending message to all inzone. Now it is sending message only to one selected nick. Semoething like PM spamer.

Edited October 24, 2015 by blackicent

[adr.bot]

var i:integer;
char: string;
begin
for i:=0 to charlist.count -1 do begin
char := CharList.Items(i).name;
print(char);
delay(2000);
end;
end.

its example with print if need xd

[blackicent]

please write for me simple pm spamer inzone. I can pay you :(

[AchYlek]

  On 10/24/2015 at 3:42 PM, blackicent said:

please write for me simple pm spamer inzone. I can pay you :(

its huge spam 

 

uses sysutils, dialogs;

 

function StringInArray(const Value: string; Strings: array of string): Boolean;

var I: Integer;

begin

  Result := True;

  for I := Low(Strings) to High(Strings) do

    if Strings = Value then Exit;

  Result := False;

end;

 

const numberOfNames = 10000;

var i,j: integer = 0;    

    usedNames: array[0..numberOfNames] of string;

    currentName,sName,fName: string;

    mailSubj: string = 'http://www.lineage2tales.com/ 15x H5 start 20.3.! ';

    textToWrite: string = 'http://www.lineage2tales.com/ 15x H5 start 20.3.!';

    messageDelay: integer = 5000;

begin

  //InputQuery('Spam bot', 'Enter the mail subject', mailSubj);

  //InputQuery('Spam bot', 'Enter the mail and PM text', textToWrite);

  while true do begin

    currentName:= CharList.Items(i).Name;

    if not (currentName = '') then begin

      if not (StringInArray(currentName,usedNames)) then begin

        Engine.Say(textToWrite,2,currentName);

        //Engine.SendMail(currentName,mailSubj,textToWrite,[57,1]);

        usedNames[j]:= currentName;

        inc(i);

        inc(j);

        delay(messageDelay);      

      end else begin

        print('Char already used!');

        inc(i);

        delay(1000);

      end;

    end else begin

      print('No chars to pm!');

      i:= 0;

      delay(1000);

    end;

delay(200);

    Engine.Say(textToWrite,1,'');

delay(200);

    Engine.Say(textToWrite,8,'');

  end;

end.

[Szakalaka]

Does it work on smartguard? from what i've seen sg has the say protected in some funny way ~~ , just askin

[AlmostGood]

  On 10/24/2015 at 4:03 PM, Szakalaka said:

Does it work on smartguard? from what i've seen sg has the say protected in some funny way ~~ , just askin

it dosn't

[Szakalaka]

And i know how to make it work ~~ tralalalala

[bravetobe]

MingLee

[Szakalaka]

4Head what now ? EleGiggle

[bravetobe]

  On 10/25/2015 at 2:50 PM, Szakalaka said:

4Head what now ? EleGiggle

answer to the pm plz,or i will report u for being toxic MingLee Kappa

Edited October 27, 2015 by bravetobe

[naramzoiu]

How to make it work in SG ?