SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
Fagex,Sythe,Doofmeister's Scripts

How Long have You Played Runescape
About 3 years

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

I'm not too great at scripting…. but I can modify scripts pretty well. My friends think im pretty good so they told me to apply. I didn't start too long ago. I have only made one or two scripts totally by myself that is completely original, but I have modded others. I'm assuming you want the one i made by myself so here it is… even if it is not enough to get me in please enjoy it i thin its a pretty good idea =] At least tell me what you think. Im working on an auto alcher too.

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

{USE OFFICIAL RUNESCAPE CLIENT IN FREE WORLD!!}

program GothAss;
{.include SRL\SRL.scar}

var
GothPhrase1,GothPhrase2,GothPhrase3,GothPhrase4,GothPhrase5 : String;
TotalGothTalked,GothTalkNumber,TotalHeadBanged,HeadBangNumber : Integer;
frmDesign1 : TForm;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Button1 : TButton;
Label1 : TLabel;
Label2 : Tlabel;
Label3 : Tlabel;
Label4 : TLabel;

const
StartPlayer = 0;{Don't touch}
{-------------------------------------------------------------------------}
procedure clickthebutton(sender: TObject);
begin
  frmDesign1.ModalResult := mrOk;
end;
{-------------------------------------------------------------------------}
procedure initforms;
begin
frmDesign1 := CreateForm;
frmDesign1.Left := 464;
frmDesign1.Top := 64;
frmDesign1.Width := 387;
frmDesign1.Height := 431;
frmDesign1.Caption := 'GothAss by Doofmeister';
frmDesign1.Color := clHighlight;
frmDesign1.Font.Color := clWindowText;
frmDesign1.Font.Height := -11;
frmDesign1.Font.Name := 'MS Sans Serif';
frmDesign1.Font.Style := [];
frmDesign1.Visible := False;
frmDesign1.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign1);
Label1.Parent := frmDesign1;
Label1.Left := 18;
Label1.Top := 11;
Label1.Width := 188;
Label1.Height := 29;
Label1.Caption := 'GothAss (You will get banned...)';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -24;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign1);
Label2.Parent := frmDesign1;
Label2.Left := 18;
Label2.Top := 170;
Label2.Width := 188;
Label2.Height := 29;
Label2.Caption := 'Fill in the above with what you want to say.';
Label2.Font.Color := clWindowText;
Label2.Font.Height := 24;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
CheckBox2 := TCheckBox.Create(frmDesign1);
CheckBox2.Parent := frmDesign1;
CheckBox2.Left := 16;
CheckBox2.Top := 258;
CheckBox2.Width := 160;
CheckBox2.Height := 30;
CheckBox2.Caption := 'Headbang?';
CheckBox2.TabOrder := 8;
CheckBox1 := TCheckBox.Create(frmDesign1);
CheckBox1.Parent := frmDesign1;
CheckBox1.Left := 16;
CheckBox1.Top := 235;
CheckBox1.Width := 160;
CheckBox1.Height := 30;
CheckBox1.Caption := 'Chat off?';
CheckBox1.TabOrder := 11;
Edit1 := TEdit.Create(frmDesign1);
Edit1.Parent := frmDesign1;
Edit1.Left := 15;
Edit1.Top := 48;
Edit1.Width := 350;
Edit1.Height := 21;
Edit1.TabOrder := 12;
Edit2 := TEdit.Create(frmDesign1);
Edit2.Parent := frmDesign1;
Edit2.Left := 15;
Edit2.Top := 72;
Edit2.Width := 350;
Edit2.Height := 21;
Edit2.TabOrder := 13;
Edit3 := TEdit.Create(frmDesign1);
Edit3.Parent := frmDesign1;
Edit3.Left := 15;
Edit3.Top := 96;
Edit3.Width := 350;
Edit3.Height := 21;
Edit3.TabOrder := 14;
Edit4 := TEdit.Create(frmDesign1);
Edit4.Parent := frmDesign1;
Edit4.Left := 15;
Edit4.Top := 120;
Edit4.Width := 350;
Edit4.Height := 21;
Edit4.TabOrder := 15;
Button1 := TButton.Create(frmDesign1);
Button1.Parent := frmDesign1;
Button1.OnClick := @clickthebutton;
Button1.Left := 121;
Button1.Top := 343;
Button1.Width := 118;
Button1.Height := 38;
Button1.Caption := 'ROCK OUT!!!';
Button1.Font.Color := clRed;
Button1.Font.Height := -16;
Button1.Font.Name := 'MS Sans Serif';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.TabOrder := 18;
Edit5 := TEdit.Create(frmDesign1);
Edit5.Parent := frmDesign1;
Edit5.Left := 15;
Edit5.Top := 144;
Edit5.Width := 350;
Edit5.Height := 21;
Edit5.TabOrder := 19;
Edit6 := TEdit.Create(frmDesign1);
Edit6.Parent := frmDesign1;
Edit6.Left := 15;
Edit6.Top := 295;
Edit6.Width := 50;
Edit6.Height := 21;
Edit6.TabOrder := 19;
Label3 := TLabel.Create(frmDesign1);
Label3.Parent := frmDesign1;
Label3.Left := 70;
Label3.Top := 295;
Label3.Width := 200;
Label3.Height := 21;
Label3.Caption := 'If Headbang then how many times?';
Label3.Font.Color := clWindowText;
Label3.Font.Height := 24;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign1);
Label4.Parent := frmDesign1;
Label4.Left := 70;
Label4.Top := 205;
Label4.Width := 115;
Label4.Height := 29;
Label4.Caption := 'How many times to repeat Goth Talking?';
Label4.Font.Color := clWindowText;
Label4.Font.Height := 23;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Edit7 := TEdit.Create(frmDesign1);
Edit7.Parent := frmDesign1;
Edit7.Left := 15;
Edit7.Top := 205;
Edit7.Width := 50;
Edit7.Height := 21;
Edit7.TabOrder := 19;
end;
{-------------------------------------------------------------------------}
procedure SafeInitForms;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForms', v);
end;
{-------------------------------------------------------------------------}
procedure ShowFormModals;
begin
  frmDesign1.ShowModal;
end;
{-------------------------------------------------------------------------}
procedure SafeShowFormModals;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModals', v);
end;
{-------------------------------------------------------------------------}
procedure SetUpVars;
begin
 GothTalkNumber := StrToInt(Edit6.Text)
 HeadBangNumber := StrToInt(Edit7.Text)
 GothPhrase1 := Edit1.Text;
 GothPhrase2 := Edit2.Text;
 GothPhrase3 := Edit3.Text;
 GothPhrase4 := Edit4.Text;
 GothPhrase5 := Edit5.Text;
end;
{-------------------------------------------------------------------------}
procedure DeclarePlayers;
begin
 HowManyPlayers  := 1;
 NumberOfPlayers( HowManyPlayers );
 CurrentPlayer := StartPlayer;

 Players[0].Name := 'skill bizkit';{Username}
 Players[0].Pass := 'carnso';{Password}
 Players[0].Nick := 'izk';{3 Letters from your name NO CAPS}
 Players[0].Active:=True;{No Touchie}
end;
{-------------------------------------------------------------------------}
procedure Chatter;
begin
  if (CheckBox1.CHECKED = True) then
  begin
    ChatsOff;
  end;
end;
{-------------------------------------------------------------------------}
procedure GothTalk;
begin
 TotalGothTalked:=0;
  repeat
   begin
   TypeSend(GothPhrase1);
    wait(3000);
     TypeSend(GothPhrase2);
      wait(3000);
       TypeSend(GothPhrase3);
        wait(3000);
         TypeSend(GothPhrase4);
          wait(3000);
           TypeSend(GothPhrase5);
            wait(3000);
    end;
   TotalGothTalked:=TotalGothTalked+1;
  until(GothTalkNumber >= TotalGothTalked)
end;
{-------------------------------------------------------------------------}
procedure HeadBang;
begin
 if (CheckBox2.CHECKED = True) then
 TotalHeadBanged:=0
 begin
  MoveMouse(714,481);
   Wait(1000);
    ClickMouse(714,481,true);
     MoveMouse(707,377);
      repeat
       begin
        Wait(4000);
         ClickMouse(707,377,true);
       end;
       TotalHeadBanged:=TotalHeadBanged+1;
      until(HeadBangNumber >= TotalHeadBanged);
 end;
end;
{-------------------------------------------------------------------------}
begin
 SetupSrl;
 SafeInitForms;
  SafeShowFormModals;
   SetUpVars;
    DeclarePlayers;
     if (loggedin = false) then
      begin
       LoginPlayer;
      end;
     Chatter;
      GothTalk;
       HeadBang;
        TerminateScript;
end.

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

Bad standards
Useless script
God use of Srl

MoveMouse(714,481);
Wait(1000);
ClickMouse(714,481,true);
MoveMouse(707,377);

=instant ban.

Which i can see is the point of this script :P.

Please learn more about rs and make a
useful script with
antiban
multiplayer
antirandoms
functionality.

Nice form though i like it

sry that was my first one i have another with MMouse and Mouse and all that… no anti ban because like it says, its just a fun thing i made to use…my first script… i said it would get u banned. Kind of like an autobanner.
if you want me to post my newer one just post again and tell me… its just for fun
thx for the compliment though =] i like it too
also if you want i can post my alcher but it aint that good yet….it uses antiban and antirandoms though

LOL i keep noticing im posting all my passes in my scripts. thats my old pass though i changed before.

Yea i dont judge by post count

Lol ok……thats my sig. I wasnt sayin it to you if tjhats what you were thinking. So ill post my DoofyAlcher v2 and GothAss v2

{-----------------------------BY DOOFMEISTER------------------------------)

     FOR USE WITH THE OFFICIAL RUNESCAPE CLIENT ON V-BRIGHT LOW DETAIL
                           BE IN A MEMBERS WORLD
           ITEMS YOU WANT ALCHED (NOTED) IN FIRST INVENTORY SLOT
                            WEILD A FIRE STAFF
                             START LOGGED OUT
                               SETUP 27-29
       
(-------------------------------------------------------------------------}

program DoofyAlcher;
{.include SRL\SRL.scar}

var
TotalAlched,DItem: Integer;

const
StartPlayer = 0;{Don't touch}
AlchNumber  = 1000;{Number of things to alch}
GreenLiquid = 3195184;{Leave}
ItemToAlch  = 'Yew longbow';{Item you are alching}
///////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
 HowManyPlayers  := 1;
 NumberOfPlayers( HowManyPlayers );
 CurrentPlayer := StartPlayer;

 Players[0].Name := '';{Username}
 Players[0].Pass := '';{Password}
 Players[0].Nick := '';{3 Letters from your name NO CAPS}
 Players[0].Active:=True;{No Touchie}
end;
///////////////////////////////////////////////////////////////////////////
procedure Randoms;
begin
FindLamp(LampSkill);
 if (FindFight) then
  begin
   LogOut;
  end;
  FindNormalRandoms;
   SRLRandomsReport;
end;
///////////////////////////////////////////////////////////////////////////
procedure AutoRespond;//Thanks Ejjman1 for your ideas
begin
  if(IsChatMessage('hi')) or (IsChatMessage('hey')) then
  begin
    case random(4) of
    0: Typesend('hey...just watchin.');
    1: Typesend('hey...im gonna do barrows once im lvl 90');
    2: Typesend('hi');
    3: Typesend('this is so boring but its worth it');
    end;
  end;

  if(IsChatMessage('autoer')) or (IsChatMessage('auoter')) then
  begin
    case random(4) of
    0: Typesend('omg im not leave me alone');
    1: Typesend('everyone thinks im one...leave me alone');
    2: Typesend('im just watching calm down dont talk to me');
    3: Typesend('im not! i hate them dont even say anything');
    end;
  end;

  if(IsChatMessage('macroer')) or (IsChatMessage('macror')) then
  begin
    case random(4) of
    0: Typesend('omg im not for the last time stop talking to me');
    1: Typesend('everyone thinks i am but im not.. dont even talk');
    2: Typesend('lol im not leave me alone');
    3: Typesend('im not! im not talkin to you');
    end;
  end;

  if(IsChatMessage('auto')) or (IsChatMessage('macro')) then
  begin
    case random(4) of
    0: Typesend('i am not..im not talkin to you');
    1: Typesend('everyone says that..im not even gonna say anything');
    2: Typesend('lol im not everyone is accusing me... leave me alone');
    3: Typesend('im not for gods sake! dont talk to me');
    end;
  end;
end;
///////////////////////////////////////////////////////////////////////////
procedure DoofyAntiBan;
begin
  if not(LoggedIn)then
   begin
    Logout;
     TerminateScript;
   end;
  case Random(9) of
    0 : MMouse(Random(MSX2), Random(MSY2),0,0);
    1 : RandomRClick;
    2 : HoverSkill('magic', False);
    3 : HoverSkill('mining', False);
    4 : RotateEvery(2+random(2));
    5 : LeaveScreenEvery(2+random(2));
    6 : begin
          DItem:=2+random(14);
          if(ExistsItem(DItem))then
            DragItem(DItem,15+random(10));
        end
    7 : begin
           GameTab(1+random(12));
           wait(1500+random(500));
           GameTab(4);
         end;
  end;
end;
///////////////////////////////////////////////////////////////////////////
procedure CheckTalkAndRandoms;
begin
 AutoRespond;
  Randoms;
   DoofyAntiBan;
end;
///////////////////////////////////////////////////////////////////////////
procedure AlchThatShit;
begin
TotalAlched:=0;
  begin
  if (LoggedIn) then
  begin
   Wait(100+random(200));
    CheckTalkAndRandoms;
     PickUpMouse;
      Gametab(7);
       Wait(200+random(300));
        if (LoggedIn) then
         begin
          if (FindColor(x,y,GreenLiquid,715,333,723,341)) then
           begin
            MMouse(x,y,5,5);
             Wait(100+random(200));
              Mouse(x,y,4,4,true);
           end else
            begin
             Writeln('Did not find GreenLiquid. Try setting yourself');
              Logout;
               TerminateScript;
            end;
         end else
          begin
           Logout;
            TerminateScript;
          end;
  end else
   begin
    Logout;
     TerminateScript;
   end;
   Wait(200+random(200));
    if (LoggedIn) then
     begin
      PickUpMouse;
       MMouse(580,227,5,5);
        Wait(100+random(200));
         Mouse(582,229,5,5,true);
          PickUpMouse;
           TotalAlched:=TotalAlched+1;
    end else
     begin
      Logout;
       TerminateScript;
     end;
  end;
   Logout;
    TerminateScript;
end;
///////////////////////////////////////////////////////////////////////////
procedure Everything;
begin
 SetUpSrl;
  SrlRandomsReport;
   DeclarePlayers;
    if (loggedin = false) then
     begin
      LoginPlayer;
     end;
     Wait(1000+random(700));
      repeat
       begin
        AlchThatShit;
       end;
      until(TotalAlched >= AlchNumber)
end;
///////////////////////////////////////////////////////////////////////////
begin
 Everything;
end.

And heres GothAss v2:

{              USE OFFICIAL RUNESCAPE CLIENT IN FREE WORLD!!
                            SETUP 215-217                                                               }

program GothAss;
{.include SRL\SRL.scar}

var
GothPhrase1,GothPhrase2,GothPhrase3,GothPhrase4,GothPhrase5 : String;
TotalGothTalked,GothTalkNumber,TotalHeadBanged,HeadBangNumber : Integer;
frmDesign1 : TForm;
CheckBox1 : TCheckBox;
CheckBox2 : TCheckBox;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Button1 : TButton;
Label1 : TLabel;
Label2 : Tlabel;
Label3 : Tlabel;
Label4 : TLabel;

const
StartPlayer = 0;{Don't touch}
{-------------------------------------------------------------------------}
procedure clickthebutton(sender: TObject);
begin
  frmDesign1.ModalResult := mrOk;
end;
{-------------------------------------------------------------------------}
procedure initforms;
begin
frmDesign1 := CreateForm;
frmDesign1.Left := 464;
frmDesign1.Top := 64;
frmDesign1.Width := 387;
frmDesign1.Height := 431;
frmDesign1.Caption := 'GothAss v2 by Doofmeister';
frmDesign1.Color := clHighlight;
frmDesign1.Font.Color := clWindowText;
frmDesign1.Font.Height := -11;
frmDesign1.Font.Name := 'MS Sans Serif';
frmDesign1.Font.Style := [];
frmDesign1.Visible := False;
frmDesign1.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign1);
Label1.Parent := frmDesign1;
Label1.Left := 18;
Label1.Top := 11;
Label1.Width := 188;
Label1.Height := 29;
Label1.Caption := 'GothAss (You will get banned...)';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -24;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign1);
Label2.Parent := frmDesign1;
Label2.Left := 18;
Label2.Top := 170;
Label2.Width := 188;
Label2.Height := 29;
Label2.Caption := 'Fill in the above with what you want to say.';
Label2.Font.Color := clWindowText;
Label2.Font.Height := 24;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
CheckBox2 := TCheckBox.Create(frmDesign1);
CheckBox2.Parent := frmDesign1;
CheckBox2.Left := 16;
CheckBox2.Top := 258;
CheckBox2.Width := 160;
CheckBox2.Height := 30;
CheckBox2.Caption := 'Headbang?';
CheckBox2.TabOrder := 8;
CheckBox1 := TCheckBox.Create(frmDesign1);
CheckBox1.Parent := frmDesign1;
CheckBox1.Left := 16;
CheckBox1.Top := 235;
CheckBox1.Width := 160;
CheckBox1.Height := 30;
CheckBox1.Caption := 'Chat off?';
CheckBox1.TabOrder := 11;
Edit1 := TEdit.Create(frmDesign1);
Edit1.Parent := frmDesign1;
Edit1.Left := 15;
Edit1.Top := 48;
Edit1.Width := 350;
Edit1.Height := 21;
Edit1.TabOrder := 12;
Edit2 := TEdit.Create(frmDesign1);
Edit2.Parent := frmDesign1;
Edit2.Left := 15;
Edit2.Top := 72;
Edit2.Width := 350;
Edit2.Height := 21;
Edit2.TabOrder := 13;
Edit3 := TEdit.Create(frmDesign1);
Edit3.Parent := frmDesign1;
Edit3.Left := 15;
Edit3.Top := 96;
Edit3.Width := 350;
Edit3.Height := 21;
Edit3.TabOrder := 14;
Edit4 := TEdit.Create(frmDesign1);
Edit4.Parent := frmDesign1;
Edit4.Left := 15;
Edit4.Top := 120;
Edit4.Width := 350;
Edit4.Height := 21;
Edit4.TabOrder := 15;
Button1 := TButton.Create(frmDesign1);
Button1.Parent := frmDesign1;
Button1.OnClick := @clickthebutton;
Button1.Left := 121;
Button1.Top := 343;
Button1.Width := 118;
Button1.Height := 38;
Button1.Caption := 'ROCK OUT!!!';
Button1.Font.Color := clRed;
Button1.Font.Height := -16;
Button1.Font.Name := 'MS Sans Serif';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.TabOrder := 18;
Edit5 := TEdit.Create(frmDesign1);
Edit5.Parent := frmDesign1;
Edit5.Left := 15;
Edit5.Top := 144;
Edit5.Width := 350;
Edit5.Height := 21;
Edit5.TabOrder := 19;
Edit6 := TEdit.Create(frmDesign1);
Edit6.Parent := frmDesign1;
Edit6.Left := 15;
Edit6.Top := 295;
Edit6.Width := 50;
Edit6.Height := 21;
Edit6.TabOrder := 19;
Label3 := TLabel.Create(frmDesign1);
Label3.Parent := frmDesign1;
Label3.Left := 70;
Label3.Top := 295;
Label3.Width := 200;
Label3.Height := 21;
Label3.Caption := 'If Headbang then how many times?';
Label3.Font.Color := clWindowText;
Label3.Font.Height := 24;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign1);
Label4.Parent := frmDesign1;
Label4.Left := 70;
Label4.Top := 205;
Label4.Width := 115;
Label4.Height := 29;
Label4.Caption := 'How many times to repeat Goth Talking?';
Label4.Font.Color := clWindowText;
Label4.Font.Height := 23;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Edit7 := TEdit.Create(frmDesign1);
Edit7.Parent := frmDesign1;
Edit7.Left := 15;
Edit7.Top := 205;
Edit7.Width := 50;
Edit7.Height := 21;
Edit7.TabOrder := 19;
end;
{-------------------------------------------------------------------------}
procedure SafeInitForms;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForms', v);
end;
{-------------------------------------------------------------------------}
procedure ShowFormModals;
begin
  frmDesign1.ShowModal;
end;
{-------------------------------------------------------------------------}
procedure SafeShowFormModals;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModals', v);
end;
{-------------------------------------------------------------------------}
procedure SetUpVars;
begin
 GothTalkNumber := StrToInt(Edit6.Text)
 HeadBangNumber := StrToInt(Edit7.Text)
 GothPhrase1 := Edit1.Text;
 GothPhrase2 := Edit2.Text;
 GothPhrase3 := Edit3.Text;
 GothPhrase4 := Edit4.Text;
 GothPhrase5 := Edit5.Text;
end;
{-------------------------------------------------------------------------}
procedure DeclarePlayers;
begin
 HowManyPlayers  := 1;
 NumberOfPlayers( HowManyPlayers );
 CurrentPlayer := StartPlayer;

 Players[0].Name := '';{Username}
 Players[0].Pass := '';{Password}
 Players[0].Nick := '';{3 Letters from your name NO CAPS}
 Players[0].Active:=True;{No Touchie}
end;
{-------------------------------------------------------------------------}
procedure Chatter;
begin
  if (CheckBox1.CHECKED = True) then
  begin
    ChatsOff;
  end;
end;
{-------------------------------------------------------------------------}
procedure GothTalk;
begin
 TotalGothTalked:=0;
  repeat
   begin
   TypeSend(GothPhrase1);
    wait(3000+random(1000));
     TypeSend(GothPhrase2);
      wait(3000+random(1000));
       TypeSend(GothPhrase3);
        wait(3000+random(1000));
         TypeSend(GothPhrase4);
          wait(3000+random(1000));
           TypeSend(GothPhrase5);
            wait(3000+random(1000));
    end;
   TotalGothTalked:=TotalGothTalked+1;
  until(GothTalkNumber >= TotalGothTalked)
end;
{-------------------------------------------------------------------------}
procedure HeadBang;
begin
 if (CheckBox2.CHECKED = False) then
  begin
   Logout;
    TerminateScript;
  end;
 TotalHeadBanged:=0
 begin
  MMouse(714,481,5,5);
   Wait(900+random(600));
    Mouse(714,481,5,5,true);
     Wait(500+random(600));
      MMouse(707,377,5,5);
      repeat
       begin
        Wait(4000+random(1000));
         Mouse(707,377,5,5,true);
       end;
       TotalHeadBanged:=TotalHeadBanged+1;
      until(HeadBangNumber >= TotalHeadBanged);
 end;
end;
{-------------------------------------------------------------------------}
begin
 SetupSrl;
 SafeInitForms;
  SafeShowFormModals;
   SetUpVars;
    DeclarePlayers;
     if (loggedin = false) then
      begin
       LoginPlayer;
      end;
     Chatter;
      GothTalk;
       HeadBang;
        TerminateScript;
end.

For v3 of DoofyAlcher, im gunna add forms and a proggie=]

tell me wat u think