SRL Archive - Other Scripts

program LmfaoBetch;

var
  var1 : String;
  i, yo, yo2 : Integer;
  
begin
  ClearDebug;
  var1:= Readln('Ah, yo man? What you want teh say?');
  Writeln('Spamming with this line : '+var1);
  ActivateClient;
  for i:= 1 to (length(var1)) do
  begin
    yo:= yo + 1;
    yo2:= 1;
    SendKeys(copy(var1, yo, yo2)+ Chr(13));
    Wait(100); //change if want.
  end;
end.

Types like this:

If you inputed nigger it says.

n
i
g
g
e
r

Tested it on StarBlaster I think. xD

E
n
j
o
y

n
o
o
b
s
.

Hey WhitShadow. Interesting script, but you didn't have to put in so many variables. Everytime you have a string, like… Msg, and then you put in Msg[1] that will return the first letter, Msg[6] will return the 6th letter.

Here is a slightly better way, since you did not use the i increment in the loop.

program LmfaoBetch;

var
  var1 : String;
  i : Integer;

begin
  ClearDebug;
  var1 := Readln('Ah, yo man? What you want teh say?');
  WriteLn('Spamming with this line: '+var1);
  ActivateClient;
  for i:= 1 to length(var1) do
  begin
    SendKeys(var1[i] + Chr(13));
    Wait(100); //change if want.
  end;
end;

cool…thks

Wow Ron, I never knew about that ;D Thanks, learned something new.

Hey that's great man.

I was happy when I figured this out because it made scripting much easier and I stopped using the function StrGet() which should be obsolete if everyone just used this. :)