Jump to content

L2 Adrenaline Pm Script


blackicent

Recommended Posts

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?

Link to comment
Share on other sites

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 by blackicent
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.
Link to comment
Share on other sites

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...