{

 *Dizzy Auto-Talk
 *Version 2.0
 *Made by Dizzy
 *Release Date 9/15/06
 *Setup At Lines 11-22
 *Start at: Any place. Good for banks, populated areas, etc.
 *You MAY, use this script with no cost.
 *You MAY NOT, steal, copy, or say you created this script.
 *I AM NOT RESPONSIBLE IF YOU GET BANNED USING THIS SCRIPT!
 
}

Program DAT;

Const
{*SETUP*}
{*Config your messages that you want to say, e.g. "Hello"*}
Msg1 = 'Hello'; //Press F1 to type this message
Msg2 = 'How are you?'; //Press F2 to type this message
Msg3 = 'Lol, are you autoing?'; //Press F3 to type this message
Msg4 = 'Runescape is so fun...'; //Press F4 to type this message
Msg5 = 'Lets go kill cows'; //Press F5 to type this message
Msg6 = 'Watcha up to?'; //Press F6 to type this message
Msg7 = 'Cool'; //Press F7 to type this message
Msg8 = 'Ahh, runescape is giving me a headache!'; //Press F8 to type this message
{*Choose your chat effects, e.g. glow1:wave2:*}
Effectz = 'glow1:wave2:';
{*Choose the way you want the script to type*}
TypeMode = '1'; // 1 = Human 2 = Silent 3 = Effectz/Human
{*END OF SETUP*}

{*Please DO NOT edit the following*}
Var a:Integer;
{.include Squig.txt}

Procedure DAT;
Begin
 a:=0;
  Repeat
   a:=(a+1)
    Wait(275);
     If (IsFKeyDown(1)) Then
      Begin
       a:=(a+1)
        If (TypeMode='1') Then
         Begin
          SendKeysHuman(Msg1 + chr(13))
          End;
         If (TypeMode='2') Then
        Begin
       SendKeys(Msg1 + chr(13))
       End;
        If (TypeMode='3') Then
         Begin
          SendKeysHuman(Effectz + Msg1 + chr(13))
          End;
          End;
         If (IsFKeyDown(2)) Then
        Begin
       a:=(a+1)
      If (TypeMode='1') Then
     Begin
    SendKeysHuman(Msg2 + chr(13))
    End;
     If (TypeMode='2') Then
      Begin
       SendKeys(Msg2 + chr(13))
       End;
      If (TypeMode='3') Then
     Begin
    SendKeysHuman(Effectz + Msg2 + chr(13))
    End;
    End;
     If (IsFKeyDown(3)) Then
      Begin
       a:=(a+1)
        If (TypeMode='1') Then
         Begin
          SendKeysHuman(Msg3 + chr(13))
          End;
         If (TypeMode='2') Then
        Begin
       SendKeys(Msg3 + chr(13))
       End;
        If (TypeMode='3') Then
         Begin
          SendKeysHuman(Effectz + Msg3 + chr(13))
          End;
          End;
         If (IsFKeyDown(4)) Then
        Begin
       a:=(a+1)
      If (TypeMode='1') Then
     Begin
    SendKeysHuman(Msg4 + chr(13))
    End;
     If (TypeMode='2') Then
      Begin
       SendKeys(Msg4 + chr(13))
       End;
      If (TypeMode='3') Then
     Begin
    SendKeysHuman(Effectz + Msg4 + chr(13))
    End;
    End;
     If (IsFKeyDown(5)) Then
      Begin
       a:=(a+1)
        If (TypeMode='1') Then
         Begin
          SendKeysHuman(Msg5 + chr(13))
          End;
         If (TypeMode='2') Then
        Begin
       SendKeys(Msg5 + chr(13))
       End;
        If (TypeMode='3') Then
         Begin
          SendKeysHuman(Effectz + Msg5 + chr(13))
          End;
          End;
         If (IsFKeyDown(6)) Then
        Begin
       a:=(a+1)
      If (TypeMode='1') Then
     Begin
    SendKeysHuman(Msg6 + chr(13))
    End;
     If (TypeMode='2') Then
      Begin
       SendKeys(Msg6 + chr(13))
       End;
      If (TypeMode='3') Then
     Begin
    SendKeysHuman(Effectz + Msg6 + chr(13))
    End;
    End;
     If (IsFKeyDown(7)) Then
      Begin
       a:=(a+1)
        If (TypeMode='1') Then
         Begin
          SendKeysHuman(Msg7 + chr(13))
          End;
         If (TypeMode='2') Then
        Begin
       SendKeys(Msg7 + chr(13))
       End;
        If (TypeMode='3') Then
         Begin
          SendKeysHuman(Effectz + Msg7 + chr(13))
          End;
          End;
         If (IsFKeyDown(8)) Then
        Begin
       a:=(a+1)
      If (TypeMode='1') Then
     Begin
    SendKeysHuman(Msg8 + chr(13))
    End;
     If (TypeMode='2') Then
      Begin
       SendKeys(Msg8 + chr(13))
       End;
      If (TypeMode='3') Then
     Begin
    SendKeysHuman(Effectz + Msg8 + chr(13))
    End;
    End;
     Until(a<=0)
      End;
      
        Begin
        DAT;
        End.

{

*Script created by Dizzy -also known as DungHax, Gamer4ev3r, & G43.Dizzy
*Contact me on MSN Messenger at: christian_chapman@hotmail.com
*Contact my email at: gamer4ev3r@yahoo.com
*Thank you for using this script

}