Results 1 to 4 of 4

Thread: Fr0znteddygis AutoTalker - works perfect!

  1. #1
    Join Date
    Jul 2007
    Location
    New Zealand
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Fr0znteddygis AutoTalker - works perfect!

    Fr0znteddygis AutoTalker

    {\\//\\//\\//\\//\\//\\// Fr0znteddygi'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 areadded 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!!!

    \\//\\//\\//\\//\\//\\// 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.

    SCAR Code:
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\// Fr0znteddygi'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!!!                             //\\//\\//\\}
    {//\\//\\//\\                   Fr0znteddygi                       \\//\\//\\//}
    {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
    {------------------------------------------------------------------------------}
    {\\//\\//\\//\\//\\//\\//   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 Fr0znteddygisGreeting;
    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('//\\//\\          Fr0znteddygi          \\//\\//\\    ' + chr(13) + '    ( o )');
     Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//    ' + chr(13) + '   (' + (chr(39)) + ')-(' + (chr(39)) + ')');
     Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\' + chr(13));
    end;

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

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

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

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

  2. #2
    Join Date
    Aug 2007
    Location
    Vancouver
    Posts
    394
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i know this is grave digging but
    take your rs username out of their, btw nice mining lvl

  3. #3
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    LMAO thanks! I didn't no this post was even still here, this script sux! Needa put in typesend and errors lmao Oh well not my fault if any of you get banned I DEFINITLY DON'T ENDORSE THIS SCRIPT

  4. #4
    Join Date
    Aug 2007
    Location
    Emo-land
    Posts
    1,109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hahaha I Was So Nooby I Didn't Even Know How To Atatch A File!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Perfect North
    By tigerskall in forum OSR Help
    Replies: 3
    Last Post: 10-12-2008, 03:32 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •