Jump to content

Recommended Posts

Posted

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?

Posted (edited)

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
Posted
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

Posted

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.
  • 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...