SRL Archive - First Scripts

program KillerSpam;
var
x,y:integer;
begin
activateclient;
repeat
wait(2000);
sendkeys('cyan:wave:buyin d axe + 6.780k '+chr(13));
wait(1000);
until(false)
end.


copy and paste from program to end

program KillerSpam;
var
x,y:integer;
begin
activateclient;
repeat
wait(2000);
sendkeys('cyan:wave:buyin d axe + 6.780k '+chr(13));
wait(1000);
until(false)
end.

This is what you have now.

This is what you should have:

program KillerSpam;
{.include SRL/SRL.scar}

begin
  ActivateClient;
  repeat
    Wait(2000 + Random(1500)); 
    TypeSend('cyan:wave:buyin d axe + 6.780k');
    Wait(1000 + Random(1000));
  until(False)
end.

1) You didn't need x and y as variables. You don't even use them
2) NEVER use SendKeys, TypeSend FTW
3) To use TypeSend, you must add

{.include SRL/SRL.scar}
4) ALWAYS have randomness. No randomness = BAN.
4) Check out your standards

program KillerSpam;
var
x,y:integer;
begin
activateclient;
repeat
wait(2000);
sendkeys('cyan:wave:buyin d axe + 6.780k '+chr(13));
wait(1000);
until(false)
end.

also "until false", endless loops are a bad, bad idea. Try;

program KillerSpam;
var
  Sends : integer;

const 
  HowManyTimes = 20;

begin
activateclient;
repeat
wait(2000);
sendkeys('cyan:wave:buyin d axe + 6.780k '+chr(13));
Sends := Sends + 1;
wait(1000);
until(Sends > (HowManyTimes - 1))
end.

Edit: Its late and i cbb with standards, you get the idea