SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Tv-XxX - SRL Member Application Form
Tv-XxX

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
c++, Pascal, Php, html, javascript, sql, ssi

Other Communitys


How Long have You Played Runescape
2 - 3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well, Although I'm Quite New, I Have A Large Understanding of Scar and SRL Scripting, I Also Know Many Other Compoutor Laungages, I Don't Expect To Be Granted Membership… This Time Becouse As I Say I'm New, But Hope Fully Soon I Will Be Excepted When People Realise The Extent Of My Scripting Abilitys.

Yours Tv-XxX

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program AutoTyperByTvXxX;

var
  frmDesign : TForm;
  FmSentenceOne : TLabel;
  FmSentenceTwo : TLabel;
  FmSentenceThree : TLabel;
  FmSentenceFour : TLabel;
  FmBoxOne : TEdit;
  FmBoxTwo : TEdit;
  FmBoxFour : TEdit;
  FmBoxThree : TEdit;
  StartButton : TButton;
  CancelButton : TButton;
  ComentBoxText : TMemo;

{.include srl\srl.scar}

Procedure Talk;
var
i : integer;
FlashText : string;
begin
  begin
   i:=1+random(5)
    if(i=1)then FlashText:='flash1:';
    if(i=2)then FlashText:='wave:';
    if(i=3)then FlashText:='red:';
    if(i=4)then FlashText:='shake:';
  end
     wait(400)
     TypeSend(FlashText+FmBoxOne.Text)
end;

Procedure Talk2;
var
i : integer;
FlashText : string;
begin
  begin
   i:=1+random(5)
    if(i=1)then FlashText:='flash1:';
    if(i=2)then FlashText:='wave:';
    if(i=3)then FlashText:='red:';
    if(i=4)then FlashText:='shake:';
  end
   wait(400)
   TypeSend(FmBoxTwo.Text)
end;

Procedure Talk3;
var
i : integer;
FlashText : string;
begin
  begin
   i:=1+random(5)
    if(i=1)then FlashText:='flash1:';
    if(i=2)then FlashText:='wave:';
    if(i=3)then FlashText:='red:';
    if(i=4)then FlashText:='shake:';
  end
   wait(400)
   TypeSend(FmBoxThree.Text)
end;

Procedure Talk4;
var
i : integer;
FlashText : string;
begin
  begin
   i:=1+random(5)
    if(i=1)then FlashText:='flash1:';
    if(i=2)then FlashText:='wave:';
    if(i=3)then FlashText:='red:';
    if(i=4)then FlashText:='shake:';
  end
   wait(400)
   TypeSend(FmBoxFour.Text)
end;

procedure CheckKey;
begin
   if(IsFunctionKeyDown(1)and IsKeyDown('1'))then Talk;
   if(IsFunctionKeyDown(1)and IsKeyDown('2'))then Talk2;
   if(IsFunctionKeyDown(1)and IsKeyDown('3'))then Talk3;
   if(IsFunctionKeyDown(1)and IsKeyDown('4'))then Talk4;
   if(IsFunctionKeyDown(1)and IsKeyDown('5'))then terminatescript;
end;

Procedure setup;
var
i : integer;
begin
 i:=0
repeat
  writeln('Tv-XxX~~~')
  wait(100)
  cleardebug
  writeln('~Tv-XxX~~')
  wait(100)
  cleardebug
  writeln('~~Tv-XxX~')
  wait(100)
  cleardebug
  writeln('~~~Tv-XxX')
  wait(100)
  cleardebug
  writeln('X~~~Tv-Xx')
  wait(100)
  cleardebug
  writeln('xX~~~Tv-X')
  wait(100)
  cleardebug
  writeln('XxX~~~Tv-')
  wait(100)
  cleardebug
  writeln('-XxX~~~Tv')
  wait(100)
  cleardebug
  writeln('v-XxX~~~T')
  wait(100)
  cleardebug
 i:=i+1
until(i=4)
  writeln('Tv-XxX~~~')
  wait(1000)
  cleardebug
end;

procedure CancelButtonClick(sender: TObject);
begin
  Writeln('You Have Canceled The Script.');
  frmDesign.ModalResult:= mrOk;
  terminatescript;
end;

procedure StartButtonClick(sender: TObject);
begin
  frmDesign.ModalResult:= mrOk;
end;


procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 543;
frmDesign.Top := 201;
frmDesign.Width := 264;
frmDesign.Height := 351;
frmDesign.BorderStyle := bsToolWindow;
frmDesign.Caption := 'Tv-XxX     Auto Talker';
frmDesign.Color := clBlack;
frmDesign.Font.Color := clYellow;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 120;
FmSentenceOne := TLabel.Create(frmDesign);
FmSentenceOne.Parent := frmDesign;
FmSentenceOne.Left := 8;
FmSentenceOne.Top := 40;
FmSentenceOne.Width := 85;
FmSentenceOne.Height := 16;
FmSentenceOne.Caption := 'Sentence One';
FmSentenceOne.Color := clYellow;
FmSentenceOne.Font.Color := clYellow;
FmSentenceOne.Font.Height := -14;
FmSentenceOne.Font.Name := 'MS Sans Serif';
FmSentenceOne.Font.Style := [];
FmSentenceOne.ParentColor := False;
FmSentenceOne.ParentFont := False;
FmSentenceTwo := TLabel.Create(frmDesign);
FmSentenceTwo.Parent := frmDesign;
FmSentenceTwo.Left := 8;
FmSentenceTwo.Top := 72;
FmSentenceTwo.Width := 86;
FmSentenceTwo.Height := 16;
FmSentenceTwo.Caption := 'Sentence Two';
FmSentenceTwo.Font.Color := clYellow;
FmSentenceTwo.Font.Height := -14;
FmSentenceTwo.Font.Name := 'MS Sans Serif';
FmSentenceTwo.Font.Style := [];
FmSentenceTwo.ParentFont := False;
FmSentenceThree := TLabel.Create(frmDesign);
FmSentenceThree.Parent := frmDesign;
FmSentenceThree.Left := 8;
FmSentenceThree.Top := 104;
FmSentenceThree.Width := 96;
FmSentenceThree.Height := 16;
FmSentenceThree.Caption := 'Sentence Three';
FmSentenceFour := TLabel.Create(frmDesign);
FmSentenceFour.Parent := frmDesign;
FmSentenceFour.Left := 8;
FmSentenceFour.Top := 136;
FmSentenceFour.Width := 87;
FmSentenceFour.Height := 16;
FmSentenceFour.Caption := 'Sentence Four';
FmBoxOne := TEdit.Create(frmDesign);
FmBoxOne.Parent := frmDesign;
FmBoxOne.Left := 128;
FmBoxOne.Top := 40;
FmBoxOne.Width := 121;
FmBoxOne.Height := 24;
FmBoxOne.Font.Color := clBlack;
FmBoxOne.Font.Height := -14;
FmBoxOne.Font.Name := 'MS Sans Serif';
FmBoxOne.Font.Style := [];
FmBoxOne.ParentFont := False;
FmBoxOne.TabOrder := 8;
FmBoxOne.Text := '';
FmBoxTwo := TEdit.Create(frmDesign);
FmBoxTwo.Parent := frmDesign;
FmBoxTwo.Left := 128;
FmBoxTwo.Top := 72;
FmBoxTwo.Width := 121;
FmBoxTwo.Height := 24;
FmBoxTwo.TabOrder := 9;
FmBoxTwo.Font.Color := clBlack;
FmBoxTwo.Font.Height := -14;
FmBoxTwo.Font.Name := 'MS Sans Serif';
FmBoxTwo.Font.Style := [];
FmBoxTwo.ParentFont := False;
FmBoxTwo.Text := '';
FmBoxFour := TEdit.Create(frmDesign);
FmBoxFour.Parent := frmDesign;
FmBoxFour.Left := 128;
FmBoxFour.Top := 136;
FmBoxFour.Width := 121;
FmBoxFour.Height := 24;
FmBoxFour.Font.Color := clBlack;
FmBoxFour.Font.Height := -14;
FmBoxFour.Font.Name := 'MS Sans Serif';
FmBoxFour.Font.Style := [];
FmBoxFour.ParentFont := False;
FmBoxFour.TabOrder := 11;
FmBoxFour.Text := '';
FmBoxThree := TEdit.Create(frmDesign);
FmBoxThree.Parent := frmDesign;
FmBoxThree.Left := 128;
FmBoxThree.Top := 104;
FmBoxThree.Width := 121;
FmBoxThree.Height := 24;
FmBoxThree.Font.Color := clBlack;
FmBoxThree.Font.Height := -14;
FmBoxThree.Font.Name := 'MS Sans Serif';
FmBoxThree.Font.Style := [];
FmBoxThree.ParentFont := False;
FmBoxThree.TabOrder := 12;
FmBoxThree.Text := '';
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 40;
StartButton.Top := 180;
StartButton.Width := 75;
StartButton.Height := 25;
StartButton.Caption := 'Start';
StartButton.OnClick:= @StartButtonClick;
StartButton.TabOrder := 14;
CancelButton := TButton.Create(frmDesign);
CancelButton.Parent := frmDesign;
CancelButton.Left := 144;
CancelButton.Top := 180;
CancelButton.Width := 75;
CancelButton.Height := 25;
CancelButton.Cancel := True;
CancelButton.Caption := 'Cancel';
CancelButton.OnClick:= @CancelButtonClick;
CancelButton.TabOrder := 15;
ComentBoxText := TMemo.Create(frmDesign);
ComentBoxText.Parent := frmDesign;
ComentBoxText.Left := 11;
ComentBoxText.Top := 222;
ComentBoxText.Width := 234;
ComentBoxText.Height := 86;
ComentBoxText.Alignment := taCenter;
ComentBoxText.Color := clGray;
ComentBoxText.Lines.Add('Simply Press and Hold The "Ctrl" ');
ComentBoxText.Lines.Add('Button and Press Number 1,2,3 or 4 ');
ComentBoxText.Lines.Add('Depending On The Sentence ');
ComentBoxText.Lines.Add('Required, To Stop The Script Press ');
ComentBoxText.Lines.Add('Ctrl and 5');
ComentBoxText.TabOrder := 14;
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;

begin
SetupSRL;
Cleardebug;
  SafeInitForm;
  SafeShowFormModal;
Setup;
Activateclient;
  repeat
    CheckKey;
    wait(100)
  until(false)
end.

——————————————————
<!– END TEMPLATE: formanswers –>

hi and welcome to the fourms! :)

you knwo that you dont have to be a member to still use scar and srl, and participate in these forums, so just relax a bit and ejoy your time

it is genrally known that a autotpye, no matter how nice the form is, is too simple to get you in, please read JADs tutorial, it lists the requirments that you need. (like player switching, anti randoms, etc)

I am glad that you are learning to script though :0 keep it up, this is a good start.

Please re apply in a month with a more advanced script.

also, you post count is WAY to low, we NEED to get to know you before we let you in, so spend time helping people in the free forum :0

Thanks and good luck

No. This script does not show great abilities as a scripter and is fairly simple with extra fluff.

Thanks For Your Foughts, I Figured I WOuldn't Get Excepted, But I Cant Make Any Decents Scripts Becouse Srl Is Out Of Date, Maybe It Will Be Working Again In A Month Lol, Thanks Again

From: Tv-XxX
Thanks For Your Foughts, I Figured I WOuldn't Get Excepted, But I Cant Make Any Decents Scripts Becouse Srl Is Out Of Date, Maybe It Will Be Working Again In A Month Lol, Thanks Again

you welcome, a little bit of reasearch could have saved you the time..

and please, dont try to insult us, srl is being updated very quickly. and is about to be released (you would know that too if you did some reasearch) and the mods have been working over time on it, not lazing around.

if you meant that as a joke, sorry for taking it as a cut at us..

ROFLFAO!
Lordgreg, you took my old avatar!
I thought i posted that but couldnt remember.
You gave me a hear attack!