SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Some C and of course SCAR

Other Communitys
Sythe.org & theretaliators.net

How Long have You Played Runescape
5 years

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

I am 15 year old from New Zealand. I am taking computer science classes in which we create web pages, games and other programs using Microsoft Frontpage and Visual Basic. At home I use Visual Studio, but mostly do things with SCAR. I have made a script for my friend to put on his parents computer. It takes over the mouse, then opens volume control, maximises volume and plays some annoyin sounds. Then it opens the control panel and changes the date and time, timezone. Then it creates a new user account (666) just for fun lol. Next it creates a new scheduled task everytime that user is logged on. It changes their homepage (to www.srl-forums.com of course!!!). Finally it opens notepad and procedes to write the following:
Initializing installation:0-100% (the numbers go up in small jumps.)
Extracting Trojan… (The dots move back and forth)
Installing Trojan…
Retrieving personal files…
Finally it say 'Hahaha you just got screwed by da Fr0zN_S0uL (my name) =p' and comes up with a picture of an evil dog constructed out of letters and symbols.

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

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\// Fr0zn S0ul's Auto Talker \\//\\//\\//\\//\\//\\//\\//}
{//\\//\\//\\//\\//\\//\\       Version: 1.4       //\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Hi, thanks for using my script. It is an Auto Talker \\//\\//\\//}
{\\//\\//\\// which means that it will say whatever you enter into //\\//\\//\\}
{//\\//\\//\\ the variable "WhatToSay" in the player setup box.    \\//\\//\\//}
{\\//\\//\\// There is no need to add colors or animations to your //\\//\\//\\}
{//\\//\\//\\ desired text, as I have made it so that they are     \\//\\//\\//}
{\\//\\//\\// added randomly to your text, so that most things     //\\//\\//\\}
{//\\//\\//\\ will still have colors and animations. This makes    \\//\\//\\//}
{\\//\\//\\// it less obvious that you are actually "macroing",    //\\//\\//\\}
{//\\//\\//\\ and in turn makes this a much safer script to use    \\//\\//\\//}
{\\//\\//\\// than many programs you may download. It can be used  //\\//\\//\\}
{//\\//\\//\\ to say different phrases using different keys =).    \\//\\//\\//}
{\\//\\//\\// Feel free to use parts of this script wherever you   //\\//\\//\\}
{//\\//\\//\\ like, but I request that you acknowledge me in your  \\//\\//\\//}
{\\//\\//\\// script. Happy Playing!!!                             //\\//\\//\\}
{//\\//\\//\\                   Fr0zN_S0uL                         \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//   Current Version: 1.4   \\//\\//\\//\\//\\//\\//\\//}
{//\\//\\//\\//\\//\\//\\     *Release  Notes*     //\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Version 1.0:                                         \\//\\//\\//}
{\\//\\//\\// Began writing script. Created basic loop and one key //\\//\\//\\}
{//\\//\\//\\ to say something.                                    \\//\\//\\//}
{\\//\\//\\// Version 1.1:                                         //\\//\\//\\}
{//\\//\\//\\ Fixed bugs such as making it say stuff! Added the    \\//\\//\\//}
{\\//\\//\\// rest of the FKeys to the say stuff options.          //\\//\\//\\}
{//\\//\\//\\ Version 1.2:                                         \\//\\//\\//}
{\\//\\//\\// Added the AutoSend Feature =).                       //\\//\\//\\}
{//\\//\\//\\ Version 1.3:                                         \\//\\//\\//}
{\\//\\//\\// Added chance of yellow text as in 100.               //\\//\\//\\}
{//\\//\\//\\ Version 1.4:                                         \\//\\//\\//}
{\\//\\//\\// Added extra colors and animations. Added Release     //\\//\\//\\}
{//\\//\\//\\ Notes.                                               \\//\\//\\//}
{\\//\\//\\// Version 1.5:                                         //\\//\\//\\}
{//\\//\\//\\ Added the sending of esc key to return to inventory  \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}



program AutoTalker;

var
   i, ChanceOfYellowText, ChanceOfNoAnimation :integer;
   WhatToSayF1, WhatToSayF2, WhatToSayF3, WhatToSayF4, WhatToSayF5, WhatToSayF6, WhatToSayF7 :string;
   WhatToSayF8, WhatToSayF9, WhatToSayF10, WhatToSayF11, WhatToSayF12, TColor, TAnimation :string;
   AutoSend :boolean;

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

procedure PlayerSetup;
begin
  ChanceOfYellowText := 010;                               //The chance of text being yellow in 100 (default is 005 meaning 5% Chance. CANNOT GO OVER 100)
  ChanceOfNoAnimation := 010;                              //The chance of text not being animated in 100 (default is 005 meaning 5% Chance. CANNOT GO OVER 100)
  AutoSend:=true;                                          //Press enter after pressing F* key? True/False
  WhatToSayF1 := 'Selling full rune (t) - 900k - fr0zn s0ul'                              //What you want to say when you press F1
  WhatToSayF2 := 'Selling strength ammys 5kea - fr0zn s0ul'                              //What you want to say when you press F2
  WhatToSayF3 := 'Hi I am F3'                              //What you want to say when you press F3
  WhatToSayF4 := 'Hi I am F4'                              //What you want to say when you press F4
  WhatToSayF5 := 'Hi I am F5'                              //What you want to say when you press F5
  WhatToSayF6 := 'Hi I am F6 '                             //What you want to say when you press F6
  WhatToSayF7 := 'Hi I am F7'                              //What you want to say when you press F7
  WhatToSayF8 := 'Hi I am F8'                              //What you want to say when you press F8
  WhatToSayF9 := 'Hi I am F9'                              //What you want to say when you press F9
  WhatToSayF10 := 'Hi I am F10'                            //What you want to say when you press F10
  WhatToSayF11 := 'Hi I am F11'                            //What you want to say when you press F11
  WhatToSayF12 := 'Hi I am F12'                            //What you want to say when you press F12
end;

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

procedure GetTextColor;
Begin
  if(ChanceOfYellowText > 100) then
    Begin
      Writeln('ChanceOfYellowText must be under 100! Terminate Script.')
      TerminateScript;
    end;
  i := 0 + random(101);
  if i <= ChanceOfYellowText then
    Begin
      Tcolor :=''
    end else
    case random(3) of
      0: Case random(3) of
          0: TColor := 'glow1:';
          1: TColor := 'glow2:';
          2: TColor := 'glow3:';
         end;
      1: Case random(3) of
          0: TColor := 'flash1:';
          1: TColor := 'flash2:';
          2: TColor := 'flash3:';
         end;
      2: Case random(5) of
          0: TColor := 'cyan:'
          1: Tcolor := 'green:'
          2: Tcolor := 'white:'
          3: Tcolor := 'red:'
          4: Tcolor := 'purple:'
      end;
end;

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

procedure GetTextAnimation;
Begin
  if(ChanceOfNoAnimation > 100) then
    Begin
      Writeln('ChanceOfNoAnimation must be under 100! Terminate Script.')
      TerminateScript;
    end;
  i := 0 + random(101);
  if i <= ChanceOfNoAnimation then
    Begin
      TAnimation :='';
    end else
    Case random(5) of
          0: TAnimation := 'wave:';
          1: TAnimation := 'wave2:';
          2: TAnimation := 'slide:';
          3: TAnimation := 'scroll:';
          4: TAnimation := 'shake:';
    end;
end;

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

procedure SendText;
Begin
  if(IsFKeyDown(1) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF1);
        if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
      SendKeysVB('{ESC}', false);
      Wait(3000 + random(500));
    end;
  if(IsFKeyDown(2) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF2);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500)););
    end;
  if(IsFKeyDown(3) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF3);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(4) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF4);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(5) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF5);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(6) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF6);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(7) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF7);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
   end;
  if(IsFKeyDown(8) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF8);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(9) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF9);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(10) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF10);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(11) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF11);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
  if(IsFKeyDown(12) = true) then
    Begin
      SendKeys(TColor + TAnimation + WhatToSayF12);
       if(AutoSend=true) then
          Begin
            SendKeys(chr(13));
          end;
       SendKeysVB('{ESC}', false);
       Wait(3000 + random(500));
    end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

procedure Fr0znS0ulsGreeting;
Begin
 Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//' + chr(13));
 Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\    ' + chr(13) + (chr(13)) + '  ()' + (chr(39)) + (chr(39)) + (chr(39)) + '()');
 Writeln('\\//\\// I hope you enjoy this script!  //\\//\\//    ' + chr(13) + ' (' + (chr(39)) + '( 0 0 )' + (chr(39)) +')');
 Writeln('//\\//\\           Fr0zN_S0uL           \\//\\//\\    ' + chr(13) + '    ( o )');
 Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//    ' + chr(13) + '   (' + (chr(39)) + ')-(' + (chr(39)) + ')');
 Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\' + chr(13));
end;

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

procedure SetupAutoTalker;
Begin
  ClearDebug;
  PlayerSetup;
  GetSelf.Caption := 'iTunes';
  Fr0znS0ulsGreeting;
end;

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

begin
  SetupAutoTalker;
  Repeat
    Begin
      GetTextColor;
      GetTextAnimation;
      SendText;
    end;
  until(false);
end.

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

Although I am a new srl member ( ^_^ ), I'm pretty sure you can't get in with an autotyper.

Read the tutorial on how to get into srl members (demonstarting you know srl, multiplayer, antiban, anti randoms, etc.)

I'm going to have to vote no.

Also, that 'script' you made sounds pretty destructive.

if your a new member read this
http://www.villavu.com/forum/showthread.php?t=1288

Auto Talkers are not accepcted.
You need a full working rs script with
Antiban
Antirandoms
Mutliplayer
And Custom Procedures
Try writing for a powerchopper/mininer/fisher/whatever else you want.
Just make it something more than an autotalker.

Remember, you must wait AT LEAST one month before applying again.