SRL Archive - RS3 Outdated / Broken Scripts

Ok here is my 1st script…a Auto-Talker!

//directions
//put what you want to say in lines  9-12
//press play to start
//press F11 to stop
program New;
{.include SRL\SRL.Scar}

const
ms1='cyan:wave2:selling full rune-your rs name here';//put ur rs name after the -
ms2='white:wave2:selling full rune-your rs name here';
ms3='flash2:wave2:selling full rune-your rs name here';
ms4='green:wave2:selling full rune-your rs name here';

var

  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Image1 : TImage;
  Image2 : TImage;
  Memo1 : TMemo;
  Memo2 : TMemo;
  Memo3 : TMemo;
  START : TButton;
  ComboBox1 : TComboBox;
  ComboBox2 : TComboBox;
  ComboBox3 : TComboBox;
  ComboBox4 : TComboBox;
  ComboBox5 : TComboBox;
  StartScript: Boolean;

procedure buttonclick(sender: TObject);
begin
  Writeln('Button pressed!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
  StartScript := True;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 278;
frmDesign.Top := 122;
frmDesign.Width := 314;
frmDesign.Height := 379;
frmDesign.Caption := 'Auto-talker by diamondhero6';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 153;
Label1.Top := 226;
Label1.Width := 32;
Label1.Height := 13;
Label1.Caption := 'Label1';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 129;
Label2.Top := 222;
Label2.Width := 32;
Label2.Height := 13;
Label2.Caption := 'Label2';
Image1 := TImage.Create(frmDesign);
Image1.Parent := frmDesign;
Image1.Left := 140;
Image1.Top := 178;
Image1.Width := 105;
Image1.Height := 105;
Image2 := TImage.Create(frmDesign);
Image2.Parent := frmDesign;
Image2.Left := 134;
Image2.Top := 133;
Image2.Width := 105;
Image2.Height := 105;
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 0;
Memo1.Top := 0;
Memo1.Width := 305;
Memo1.Height := 344;
Memo1.Color := clHighlight;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 8;
Memo2 := TMemo.Create(frmDesign);
Memo2.Parent := frmDesign;
Memo2.Left := 16;
Memo2.Top := 16;
Memo2.Width := 271;
Memo2.Height := 307;
Memo2.Color := clWindowText;
Memo2.Lines.Add('Memo2');
Memo2.TabOrder := 9;
Memo3 := TMemo.Create(frmDesign);
Memo3.Parent := frmDesign;
Memo3.Left := 62;
Memo3.Top := 60;
Memo3.Width := 185;
Memo3.Height := 223;
Memo3.Color := clInactiveCaption;
Memo3.Lines.Add('Memo3');
Memo3.TabOrder := 10;
START := TButton.Create(frmDesign);
START.OnClick:= @buttonclick;
START.Parent := frmDesign;
START.Left := 120;
START.Top := 250;
START.Width := 75;
START.Height := 25;
START.Caption := 'START';
START.TabOrder := 11;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 83;
ComboBox1.Top := 84;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.Enabled := False;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 12;
ComboBox1.Text := '                PRESS';
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 83;
ComboBox2.Top := 118;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.Enabled := False;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 13;
ComboBox2.Text := '                START';
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 84;
ComboBox3.Top := 149;
ComboBox3.Width := 145;
ComboBox3.Height := 21;
ComboBox3.Enabled := False;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 14;
ComboBox3.Text := '                   TO';
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 84;
ComboBox4.Top := 182;
ComboBox4.Width := 145;
ComboBox4.Height := 21;
ComboBox4.Enabled := False;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 15;
ComboBox4.Text := '                START';
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 84;
ComboBox5.Top := 214;
ComboBox5.Width := 145;
ComboBox5.Height := 21;
ComboBox5.Enabled := False;
ComboBox5.ItemHeight := 13;
ComboBox5.TabOrder := 16;
ComboBox5.Text := '               SCRIPT';
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;

procedure change;
begin
namechange('Auto-Talker by Diamondhero6')
wait(50);
end;

procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero6-----')
writeln('- I know u will like it -')
writeln('@@##$$  Thank you  $$##@@')
writeln('         ENJOY           ')
end;

procedure send;
begin
case random(4) of
0:TypeSend(ms1)
1:typesend(ms2)
2:typesend(ms3)
3:typesend(ms4)
end;
end;

BEGIN
try
    SafeInitForm;
    SafeShowFormModal;
  finally
    FreeForm(frmDesign);
  except
    Writeln('Error in InitForm!');
  end;

If not(StartScript) then TerminateScript;


BEGIN
SetupSrl
cleardebug
Thankyou
change
SafeInitForm

repeat
send
wait(1000)
until(isfkeydown(11))
end;
end.

will test!

i thought you were the same person who got banned from here

FYI: diamondhero5?

theres a diamondhero5?
how weird
i made my account on here after my rs one
diamondhero6

http://www.srl-forums.com/forum/auto-account-creator-t7017p2.html

what a meany
lol

omg he is diamondhero5! proof:


Diamondhero5 said this. Note the words in red.

i know some about scripting i just still dont understand the x,y thing for using them with cordinates
Also when u r useing sendkeys it wont type it will just blurt it out.
check out mine.ScarScript: By Drunkenoldma

//Directions
//Set what u would like it to say(lines 9-12)
//Set how long until says next message(line 47)
//hit play
//press F12 to stop
program AutoTalk;

const
message1='cyan:selling full rune';
message2='white:selling full rune';
message3='Green:selling fulll rune';
message4='red:selling full rune';

procedure SendText(text: string);
var i: Integer;
begin
for i := 1 to Length(Text) do
begin
SendKeys(Text);
Wait(50+random(50));
end;
SendKeys(Chr(13));
end;

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;


procedure nc4(wstatus:String; time:Integer);
begin
namechange(wstatus);
wait(time);
end;

procedure Talk;
begin
case random(4) of
0:SendText(message1);
1:SendText(message2);
2:SendText(message3);
3:SendText(message4);
end;
wait(2124+random(241));
end;
procedure nc(wstatus:String);
begin
nc4(wstatus, 250);
end;

procedure flashx;
begin
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
end;

procedure Animate;
begin
nc(' ');
nc('A');
nc('Au');
nc('Aut');
nc('Auto');
nc('Auto- ');
nc('Auto-T');
nc('Auto-Ta');
nc('Auto-Tal');
nc('Auto-Talk');
nc('Auto-Talke');
nc('Auto-Talker');
nc('————–');
nc('Auto-Talker');
nc('————–');
nc('By Diamondhero5');
flashx;
nc4('Auto-Talker - By Diamondhero5',5);
end;


procedure ThankYou;
begin
writeln('——-Auto-Talker——-')
writeln('—–by Diamondhero5—–')
writeln('- I know u will like it -')
writeln('@@##$$ Thank you $$##@@')
writeln(' ENJOY ')
end;

begin
Animate
ActivateClient
Thankyou
repeat
Talk;
until(IsFKeyDown(12))
end.

What Diamondhero6 said:
Read the red

//directions
//put what you want to say in lines 9-12
//press play to start
//press F11 to stop
program New;
{.include SRL\SRL.Scar}

const
ms1='cyan:wave2:selling full rune-your rs name here';//put ur rs name after the -
ms2='white:wave2:selling full rune-your rs name here';
ms3='flash2:wave2:selling full rune-your rs name here';
ms4='green:wave2:selling full rune-your rs name here';

var

frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Image1 : TImage;
Image2 : TImage;
Memo1 : TMemo;
Memo2 : TMemo;
Memo3 : TMemo;
START : TButton;
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
ComboBox3 : TComboBox;
ComboBox4 : TComboBox;
ComboBox5 : TComboBox;
StartScript: Boolean;

procedure buttonclick(sender: TObject);
begin
Writeln('Button pressed!');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript := True;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 278;
frmDesign.Top := 122;
frmDesign.Width := 314;
frmDesign.Height := 379;
frmDesign.Caption := 'Auto-talker by diamondhero6';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 153;
Label1.Top := 226;
Label1.Width := 32;
Label1.Height := 13;
Label1.Caption := 'Label1';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 129;
Label2.Top := 222;
Label2.Width := 32;
Label2.Height := 13;
Label2.Caption := 'Label2';
Image1 := TImage.Create(frmDesign);
Image1.Parent := frmDesign;
Image1.Left := 140;
Image1.Top := 178;
Image1.Width := 105;
Image1.Height := 105;
Image2 := TImage.Create(frmDesign);
Image2.Parent := frmDesign;
Image2.Left := 134;
Image2.Top := 133;
Image2.Width := 105;
Image2.Height := 105;
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 0;
Memo1.Top := 0;
Memo1.Width := 305;
Memo1.Height := 344;
Memo1.Color := clHighlight;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 8;
Memo2 := TMemo.Create(frmDesign);
Memo2.Parent := frmDesign;
Memo2.Left := 16;
Memo2.Top := 16;
Memo2.Width := 271;
Memo2.Height := 307;
Memo2.Color := clWindowText;
Memo2.Lines.Add('Memo2');
Memo2.TabOrder := 9;
Memo3 := TMemo.Create(frmDesign);
Memo3.Parent := frmDesign;
Memo3.Left := 62;
Memo3.Top := 60;
Memo3.Width := 185;
Memo3.Height := 223;
Memo3.Color := clInactiveCaption;
Memo3.Lines.Add('Memo3');
Memo3.TabOrder := 10;
START := TButton.Create(frmDesign);
START.OnClick:= @buttonclick;
START.Parent := frmDesign;
START.Left := 120;
START.Top := 250;
START.Width := 75;
START.Height := 25;
START.Caption := 'START';
START.TabOrder := 11;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 83;
ComboBox1.Top := 84;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.Enabled := False;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 12;
ComboBox1.Text := ' PRESS';
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 83;
ComboBox2.Top := 118;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.Enabled := False;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 13;
ComboBox2.Text := ' START';
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 84;
ComboBox3.Top := 149;
ComboBox3.Width := 145;
ComboBox3.Height := 21;
ComboBox3.Enabled := False;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 14;
ComboBox3.Text := ' TO';
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 84;
ComboBox4.Top := 182;
ComboBox4.Width := 145;
ComboBox4.Height := 21;
ComboBox4.Enabled := False;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 15;
ComboBox4.Text := ' START';
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 84;
ComboBox5.Top := 214;
ComboBox5.Width := 145;
ComboBox5.Height := 21;
ComboBox5.Enabled := False;
ComboBox5.ItemHeight := 13;
ComboBox5.TabOrder := 16;
ComboBox5.Text := ' SCRIPT';
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;

procedure change;
begin
namechange('Auto-Talker by Diamondhero6')
wait(50);
end;

procedure ThankYou;
begin
writeln('——-Auto-Talker——-')
writeln('—–by Diamondhero6—–')
writeln('- I know u will like it -')
writeln('@@##$$ Thank you $$##@@')
writeln(' ENJOY ')
end;

procedure send;
begin
case random(4) of
0:TypeSend(ms1)
1:typesend(ms2)
2:typesend(ms3)
3:typesend(ms4)
end;
end;

BEGIN
try
SafeInitForm;
SafeShowFormModal;
finally
FreeForm(frmDesign);
except
Writeln('Error in InitForm!');
end;

If not(StartScript) then TerminateScript;


BEGIN
SetupSrl
cleardebug
Thankyou
change
SafeInitForm

repeat
send
wait(1000)
until(isfkeydown(11))
end;
end.