SRL Archive - Outdated / Broken

Made this 5 minutes ago, enjoy:

{.Script Info:
# ScriptName  = Bebemycat2's Auto F-Key talker
# Author      = Bebemycat2
# Description = n/a
# Version     = 1
# Date        = n/a
# Comments    = n/a
/Script Info}


Program Talker;
{.include SRL/SRL.scar}

Var
   t: Integer;

Const
WhatToSay1 = ''; //What to say with F1
WhatToSay2 = ''; //What to say with F2
WhatToSay3 = ''; //What to say with F3
WhatToSay4 = ''; //What to say with F4
WhatToSay5 = ''; //What to say with F5
WhatToSay6 = ''; //What to say with F6
WhatToSay7 = ''; //What to say with F7
WhatToSay8 = ''; //What to say with F8
WhatToSay9 = ''; //What to say with F9
WhatToSay10 = ''; //What to say with F10
WhatToSay11 = ''; //What to say with F11
WhatToSay12 = ''; //What to say with F12



Procedure BTalk;
Begin
  SetupSRL;
  t:=0;
 Repeat
  t:= (t+1)
  Wait(275);
 If (IsFKeyDown(1))Then
  Begin
    t:=(t+1)
    TypeSend (WhatToSay1 + chr(13))
  End;
   If (IsFKeyDown(2))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay2 + chr(13))
  End;
   If (IsFKeyDown(3))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay3 + chr(13))
  End;
   If (IsFKeyDown(4))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay4 + chr(13))
  End;
   If (IsFKeyDown(5))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay5 + chr(13))
  End;
   If (IsFKeyDown(6))Then
    Begin
     t:=(t+1)
     SendKeys (WhatToSay6 + chr(13))
  End;
   If (IsFKeyDown(7))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay7 + chr(13))
  End;
   If (IsFKeyDown(8))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay8 + chr(13))
  End;
   If (IsFKeyDown(9))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay9 + chr(13))
  End;
   If (IsFKeyDown(10))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay10 + chr(13))
  End;
   If (IsFKeyDown(11))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay11 + chr(13))
  End;
   If (IsFKeyDown(12))Then
    Begin
     t:=(t+1)
     TypeSend(WhatToSay12 + chr(13))
    End;
 Until(t<=0);
End;

Begin
 BTalk;
End.

This required pure skill, I know ;P

I was vereh bored, So i made my own version. <3 Bebe ^^;

{.Include SRL/SRL.scar}

Const
  MaxMessages = 5;

function FKeyDown: Integer;
var i: Integer;
begin
 for i:= 1 to 12 do
   if IsFKeyDown(i) then
  begin
   Result:= i;
    exit;
  end;
end;

var Msgs: array[1..12] of String;
var i, Key: Integer;
begin
  ClearDebug;
  if MaxMessages < 12 then
 begin
  for i:= 1 to MaxMessages do
    Msgs[i]:= ReadLn('Message #'+Inttostr(i)+' Value:');
  repeat
   Key:= FKeyDown;
      if (Key < (MaxMessages + 1)) and (Key > 0) then
     begin
        TypeSend(Msgs[Key]);
         Writeln('Sent: '+Msgs[Key]);
        Key:= 0;
     end;
  until(false);
 end else
   Writeln('Can'#39't have more than 12 messages, snucker.');
end.

Whatever, I was just bored and tired so I made a simple script :p

Hope someone gets some use out of it……

I'm always megor boredz.

From: XxKanexX
I'm always megor boredz.

Kane, learn how to masturbate… oh… forgot :o

From: Pwnd
Kane, learn how to masturbate… oh… forgot :o

Do they have a book, "Masturbating for Dummies" ?

And yes, you forgot. Marina. ;)

From: XxKanexX
Do they have a book, "Masturbating for Dummies" ?

And yes, you forgot. Marina. ;)

http://www.aboutmasturbation.com/Article14.phtml

From: Pwnd
http://www.aboutmasturbation.com/Article14.phtml

I was kidding.. -.-

From: XxKanexX
I was kidding.. -.-

But it even gives you techniques!

Maybe flyboy can use it :rolleyes:

From: XxKanexX
I was vereh bored, So i made my own version. <3 Bebe ^^;

{.Include SRL/SRL.scar}

Const
  MaxMessages = 5;

function FKeyDown: Integer;
var i: Integer;
begin
 for i:= 1 to 12 do
   if IsFKeyDown(i) then
  begin
   Result:= i;
    exit;
  end;
end;

var Msgs: array[1..12] of String;
var i, Key: Integer;
begin
  ClearDebug;
  if MaxMessages < 12 then
 begin
  for i:= 1 to MaxMessages do
    Msgs[i]:= ReadLn('Message #'+Inttostr(i)+' Value:');
  repeat
   Key:= FKeyDown;
      if (Key < (MaxMessages + 1)) and (Key > 0) then
     begin
        TypeSend(Msgs[Key]);
         Writeln('Sent: '+Msgs[Key]);
        Key:= 0;
     end;
  until(false);
 end else
   Writeln('Can'#39't have more than 12 messages, snucker.');
end.

Set your message number to 12 then try it, snucker. :)

Kane, can I pinch some of that code if I credit you?

Good work Bebe :) I noticed the variable t in there.. You add to it and set it 0 at the start…
Then you put Until(t<=0); :\ Does t do anything?

ill be usin this later.. lol :cool:

From: The Un-Named
Set your message number to 12 then try it, snucker. :)

Kane, can I pinch some of that code if I credit you?

Absolutely. ;)