Adblock breaks this site

Weird error

Discussion in 'Scar/Simba Help' started by † Hero †, Jul 29, 2007.

Thread Tools

Thread Tools

  • Thread ID:
  1. † Hero †

    † Hero † Active Member

    Joined:
    Jan 23, 2007
    Posts:
    232
    Referrals:
    0
    Sythe Gold:
    0
    Weird error
    When i try to run a monk killing script this comes up.
     
    † Hero †, Jul 29, 2007
    #1
  2. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    Weird error
    Post the script.
     
    Town, Jul 29, 2007
    #2
  3. † Hero †

    † Hero † Active Member

    Joined:
    Jan 23, 2007
    Posts:
    232
    Referrals:
    0
    Sythe Gold:
    0
    Weird error
    Here it is.
    Code:
    //        A            SSSSSSSSSSS  H          H  U           U  RRRRR        //
//       A A          S             H          H  U           U  R    R       //
//      A   A        S              H          H  U           U  R     R      //
//     A     A      S               H          H  U           U  R      R     //
//    AAAAAAAAA     SSSSSSSSSSSSSS  HHHHHHHHHHHH  U           U  RRRRRRRRR    //
//   A         A                 S  H          H  U           U  R R          //
//  A           A                S  H          H  U           U  R  R         //
// A             A               S  H          H  U           U  R   R        //
//A               A  SSSSSSSSSSSSS  H          H   UUUUUUUUUUU   R    R       //
//                                                                            //
//                                                                            //
//                             A    NN   N DDD                                //
//                            A A   N N  N D  D                               //
//                           A   A  N  N N D  D                               //
//                          A     A N   NN DDD                                //
//                                                                            //
//   H          H         A        X        X OOOOOOOOOO  RRRRRR              //
//   H          H        A A        X      X  O        O  R     R             //
//   H          H       A   A        X    X   O        O  R      R            //
//   H          H      A     A        X  X    O        O  R       R           //
//   HHHHHHHHHHHH     AAAAAAAAA        XX     O        O  R        R          //
//   H          H    A         A       XX     O        O  RRRRRRRRRRR         //
//   H          H   A           A     X  X    O        O  R R                 //
//   H          H  A             A   X    X   O        O  R  R                //
//   H          H A               A X      X  OOOOOOOOOO  R   R               //
                                                                              //
////////////////////////////////////////////////////////////////////////////////
//                          (~~!Notes!~~)                                     //
//* This Script (MonkBSER) was made by Ashur2good and Haxor                   //
//* Thanks for using The MonkBSER :)                                          //
//* If you have any troubles with this script, don't hesitate to Ask, just    //
//PM or post in the fourm which you got this from or Send an E-Mail,          //
//* If i do not respond, Ask Haxor he will help you (Hopefully :D) with       //
//any problems :D                                                             //
//* If you find any bugs/Comments/Reports on the script, please post a reply  //
//in the fourms which you got this from                                       //
//* I am not responsible for any loss or damage this script has caused but    //
//I seriously doubt that will happen...:)                                     //
//                        (~~!Instructions!~~)                                //
//* Start logged out.                                                         //
//* Hit play now!                                                             //
//                          (~~!Features!~~)                                  //
//* Range and Mage!!! :0                                                      //
//* Form!                                                                     //
//* Has Great Anti Ban                                                        //
//* Up to date Anti-Randoms with SRL                                          //
//* Very nice Monk Finding procedures                                         //
//* Has a very, very, VERY nice healing procedure :D                          //
//* Multiplayer :)                                                            //
//                          (~~!History!~~)                                   //
//Version 1.0:First release of script ( Released on the 21st of may )         //
//Version 1.2: Fixed some bugs and fixed up the attacking procedure a little. //
//Version 1.5: BIG update! Fixed nearly everything!                           //
//Version 2.0: HUGE update! Everything is fixed, also added Range/Mage, Magic //
//Book, better healing procedure( Again :P ):D -Credit to WT-Fawaki :)        //
//Version 2.5: Added forms, not as stable as version 2.0                      //
//Version 2.6: Took out world switching, Made it to work for SRL 3.8          //
//Version 3.0: Fixed up everything yet again, after that engine update, fixed //
//the forms and attacking procedures, no set up!                              //
//                          (~~!Credits!~~)                                   //
//Thanks to ron for his DRM parser, :)                                        //
//Thanks to WT-Fawaki for his blue hit, red hit procedure :)                  //
//Thanks to the SRL devs/community for their SRL :)                           //
//Thanks to widget for his awesome player form!!! :D                          //
//And thanks to haxor for lending me 500K Lol :)                              //
////////////////////////////////////////////////////////////////////////////////
//         (~~!The Magic Book!~~)                                             //
//      1: TheSpell := 'Home Teleport';                                       //
//      2: 'Wind Strike';                                                     //
//      3: 'Confuse';                                                         //
//      4:'Bolt Enchantment';                                                 //
//      5: 'Water Strike';                                                    //
//      6: 'Enchant Level 1 Jewelry';                                         //
//      7: 'Earth Strike';                                                    //
//      8: 'Weaken';                                                          //
//      9: 'Fire Strike';                                                     //
//      10: 'Bones to Bananas';                                               //
//      11: 'Wind Bolt';                                                      //
//      12: 'Curse';                                                          //
//      13: 'Bind';                                                           //
//      14: 'Low Level Alchemy';                                              //
//      15: 'Water Bolt';                                                     //
//      16: 'Varrock Teleport';                                               //
//      17: 'Enchant Level 2 Jewelry';                                        //
//      18: 'Earth Bolt';                                                     //
//      19: 'Lumbridge Teleport';                                             //
//      20: 'Telekinetic grab';                                               //
//      21: 'Fire Bolt';                                                      //
//      22: 'Falador Teleport';                                               //
//      23: 'Crumble Undead';                                                 //
//      24: 'House teleport';                                                 //
//      25: 'Wind Blast';                                                     //
//      26: 'Superheat Item';                                                 //
//      27: 'Camelot Teleport';                                               //
//      28: 'Water Blast';                                                    //
//      29: 'Enchant Level 3 Jewelry';                                        //
//      30: 'Iban Blast';                                                     //
//      31: 'Snare';                                                          //
//      32: 'Magic Dart';                                                     //
//      33: 'Ardougne teleport';                                              //
//      34: 'Earth Blast';                                                    //
//      35: 'High Level Alchemy';                                             //
//      36: 'Charge Water Orb';                                               //
//      37: 'Enchant Level 4 Jewelry';                                        //
//      38: 'Watchtower Teleport';                                            //
//      39: 'Fire Blast';                                                     //
//      40: 'Charge Earth Orb';                                               //
//      41: 'Bones to Peaches';                                               //
//      42: 'Saradomin Strike';                                               //
//      43: 'Claws of Guthix';                                                //
//      44: 'Flames of Zamorak';                                              //
//      45: 'Trollheim Teleport';                                             //
//      46: 'Wind Wave';                                                      //
//      47: 'Charge Fire Orb';                                                //
//      48: 'Ape Atoll teleport';                                             //
//      49: 'Water Wave';                                                     //
//      50: 'Charge Air Orb';                                                 //
//      51: 'Vulnerability';                                                  //
//      52: 'Enchant Level 5 Jewelry';                                        //
//      53: 'Earth Wave';                                                     //
//      54: 'Enfeeble';                                                       //
//      55: 'Teleother Lumbridge';                                            //
//      56: 'Fire Wave';                                                      //
//      57: 'Entangle';                                                       //
//      58: 'Stun';                                                           //
//      59: 'Charge';                                                         //
//      60: 'Teleother Falador';                                              //
//      61: 'Tele Block';                                                     //
//      62: 'Enchant Level 6 Jewelry ';                                       //
//      63: 'Teleother Camelot';                                              //
////////////////////////////////////////////////////////////////////////////////
//Best proggie!                                                               //
//~~~~~~~~~~~~~~Report~~~~~~~~~~~~~~                                          //
//Worked For : 7 Hours, 32 Minutes, and 12 Seconds                            //
//Bsed 827 Monkz                                                              //
//Healed 23 Times                                                             //
//Have got 12 Randoms Since start                                             //
//~~~~~~~~~~~~~~Report~~~~~~~~~~~~~~                                          //
////////////////////////////////////////////////////////////////////////////////
program MonkBser;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/Skill/Magic.scar}
{.include SRL/SRL/Misc/Amount.scar}



{~~~~~~~End of set up, Don't touch below unless you know what your doing~~~~~~~}
{~~~~~~~~~~~~~~~~~~~~~~1 mistake everything goes wrong :o~~~~~~~~~~~~~~~~~~~~~~}



//////////////////////////////Variables/////////////////////////////////////////
var
  i: Integer;
  Boom: Boolean;
  Swarm, Randomz, HealTime, Hits: Integer;
  MonkColors: array[1..4] of integer;
  Monks, Time, HpAmount, Nuber: Integer;
  Magices: Boolean;
  AttackStyle: string;
  Ha: Integer;
//////////////////////////////Variables/////////////////////////////////////////






////////////////////////////FormVariables///////////////////////////////////////
var
  frmDesign: TForm;
  EndInitForm: Boolean;
  Label5: TLabel;
  UseMagic: TLabel;
  Spell: TLabel;
  Label1: TLabel;
  Healing: TLabel;
  ATTStyle: TLabel;
  Killa: TLabel;
  Start: TButton;
  Magic: TComboBox;
  MagicNumber: TEdit;
  Kills: TEdit;
  AStyle: TEdit;
  HP: TEdit;
  PlayerForm: TButton;
////////////////////////////FormVariables///////////////////////////////////////






//////////////////////////////Constants/////////////////////////////////////////
const
  Version = '3.0'; //Don't touch
  MissedColor = 16728128; //Credit to WT-Fawaki :) Don't touch ;)
  HitColor = 192; //Credit to WT-Fawaki :) Don't touch ;)
//////////////////////////////Constants/////////////////////////////////////////






////////////////////////////////Form////////////////////////////////////////////
procedure ButtonClick(sender: TObject);
begin
  Writeln('Starting Form');
  frmDesign.Caption := frmDesign.Caption + '.';
  frmDesign.ModalResult := mrOk;
end;

procedure Playa(sender: TObject);
begin
  StartPlayers(True, '')
end;

procedure InitFormOnClose(Sender: TObject; var Action: TCloseAction);
begin
  if (not (frmDesign.ModalResult = 1)) then
    EndInitForm := True;
end;




var WidgetForm:TForm;
    Background,Close,Minimize:TImage;
    DragTimer:TTimer;
    wx1,wy1,wx2,wy2:integer;
    Usernames,Passwords,Loads:array of TEdit;
    Active:array of TCheckBox;
    Add, delet:TButton;

procedure VOut(text:array of variant);
   var i:integer;
       s:string;
   begin
   for i := 1 to getarraylength(text) do
      s := s + Text[i-1]
   Writeln(s);
   end;

procedure SetActive(Sender:TObject);
   var i,i2:integer;
   begin
   for i2 := 0 to (GetArrayLength(Active)-1) do
      if (Sender=Active[i2]) then
         i := i2;
   if Active[i].Checked then
      begin
      Loads[i].Enabled := True;
      Loads[i].Color := $333333;
      Usernames[i].Enabled := True;
      Usernames[i].Color := $333333;
      Passwords[i].Enabled := True;
      Passwords[i].Color := $333333;
      end else begin
      Loads[i].Enabled := False;
      Loads[i].Color := $111111;
      Usernames[i].Enabled := False;
      Usernames[i].Color := $111111;
      Passwords[i].Enabled := False;
      Passwords[i].Color := $111111;
      Passwords[i].DestroyComponents
      end;
   end;

procedure AddUser(Sender:TObject);
   var i:integer;
   begin
   i := GetArrayLength(Usernames);
   Background.Canvas.Pen.Color := $000000;
   Background.Canvas.MoveTo(1,Background.Height-1)
   Background.Canvas.LineTo(Background.Width-2,Background.Height-1)
   try
      Usernames[i].Visible := True;
      Passwords[i].Visible := True;
      Loads[i].Visible := True;
      Active[i].Visible := True;
   except
      VOut(['Blah!']);
      SetArrayLength(Usernames,i+1);
      SetArrayLength(Passwords,i+1);
      SetArrayLength(Loads,i+1);
      SetArrayLength(Active,i+1);
      Usernames[i] := TEdit.Create(WidgetForm);
      with Usernames[i] do
         begin
         Parent := WidgetForm;
         Color := $333333;
         Font.Color := clWhite;
         SetBounds(30,i*20+40,100,20);
         end;
      Passwords[i] := TEdit.Create(WidgetForm);
      with Passwords[i] do
         begin
         Parent := WidgetForm;
         Color := $333333;
         Font.Color := clWhite;
         SetBounds(130,i*20+40,100,20);
         end;
      Loads[i] := TEdit.Create(WidgetForm);
      with Loads[i] do
         begin
         Parent := WidgetForm;
         Color := $333333;
         Font.Color := clWhite;
         SetBounds(230,i*20+40,40,20);
         end;
      Active[i] := TCheckBox.Create(WidgetForm);
      with Active[i] do
         begin
         Parent := WidgetForm;
         SetBounds(10,i*20+40,20,20);
         OnClick := @SetActive;
         Checked := True;
         end;
      end;
   WidgetForm.Height := WidgetForm.Height + 20;
   Add.Top := Add.Top + 20;
   Delet.Top := Delet.Top + 20;
   Background.Height := WidgetForm.Height;
   Background.Canvas.Pen.Color := $FFFFFF;
   Background.Canvas.Pen.Style := psSolid;
   Background.Canvas.MoveTo(0,1)
   Background.Canvas.LineTo(0,WidgetForm.Height-1)
   Background.Canvas.LineTo(WidgetForm.Width-1,WidgetForm.Height-1)
   Background.Canvas.LineTo(WidgetForm.Width-1,1)
   end;

procedure DeleteUser(Sender:TObject);
   var i:integer;
   begin
 { i := GetArrayLength(Usernames)-1;
   Usernames[i].Visible := False;
   Passwords[i].Visible := False;
   Loads[i].Visible := False;
   Active[i].Visible := False;
   WidgetForm.Height := WidgetForm.Height - 20;
   Add.Top := Add.Top - 20;
   Delet.Top := Delet.Top - 20;
   Background.Height := WidgetForm.Height;
   Background.Canvas.Pen.Color := $FFFFFF;
   Background.Canvas.Pen.Style := psSolid;
   Background.Canvas.MoveTo(0,1)
   Background.Canvas.LineTo(0,WidgetForm.Height-1)
   Background.Canvas.LineTo(WidgetForm.Width-1,WidgetForm.Height-1)
   Background.Canvas.LineTo(WidgetForm.Width-1,1) }
   end;

procedure DragForm(Sender: TObject);
   begin
   getmousepos(wx1,wy1);
   WidgetForm.Top := WidgetForm.Top - (wy2-wy1);
   WidgetForm.Left := WidgetForm.Left - (wx2-wx1);
   wx2 := wx1;
   wy2 := wy1;
   end;

procedure DragDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   begin
   getmousepos(wx2,wy2);
   if (y < 19) then
      DragTimer.Interval := 1;
   end;

procedure DragUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   begin
   DragTimer.Interval := 10000000;
   end;

procedure CloseForm(Sender:TObject);
   begin
   WidgetForm.ModalResult := mrOk;
   end;

procedure MinimizeForm(Sender:TObject);
   begin
   WidgetForm.WindowState := WSMinimized;
   end;

procedure MakeForm;
   begin
   WidgetForm := CreateForm;
   with WidgetForm do
      begin
      SetBounds(0,0,277,65);
      Caption := 'Generic Player Form';
      Color := clBlack;
      Font.Color := clRed;
      Position := poScreenCenter;
      Borderstyle := bsNone;
      OnMouseDown := @DragDown;
      OnMouseUp := @DragUp;
      Ctl3d := False;
      end;
   Background := TImage.Create(WidgetForm);
   with Background do
      begin
      Parent := WidgetForm;
      SetBounds(0,0,WidgetForm.Width,1500);
      OnMouseDown := @DragDown;
      OnMouseUp := @DragUp;
      i := BitmapFromString(1, 1, '000000');
      SafeCopyCanvas(GetBitmapCanvas(i),Canvas,0,0,1,1,0,0,Width,Height);
      FreeBitmap(i);
      with Canvas do
         begin
         Pen.Color := $FFFFFF;
         MoveTo(0,0);
         LineTo(WidgetForm.Width-1,0);
         LineTo(WidgetForm.Width-1,WidgetForm.Height-1);
         MoveTo(0,WidgetForm.Height-1);
         LineTo(0,0);
         Pen.Color := $555555;
         MoveTo(5,16);
         LineTo(WidgetForm.Width-5,16);
         MoveTo(5,18);
         LineTo(WidgetForm.Width-5,18);
         Brush.Style := bsClear;
         Font.Color := $FFFFFF;
         Font.Size := 10;
         TextOut((WidgetForm.Width-TextWidth(WidgetForm.Caption))/2,0,WidgetForm.Caption)
         end;
      end;
   i := BitmapFromString(11, 11, 'z78DAAD924B0EC02008' +
      '44AFD45F50B7357AFF2335C36C68D0DAD4CEDB18022382B2CB24B' +
      '9804A05E5B56E0E5ABB259005F87CC6C3091A0E26678DC0FAF4E2' +
      '8D57B8FC74005FFBEC40B17651F13C98C34F3DCCCCA154D0BBCBF' +
      'A705FDC9DEF813E03993F631DBE41870BCEA4B212');
   Close := TImage.Create(WidgetForm);
   with Close do
      begin
      Parent := WidgetForm
      SetBounds(WidgetForm.Width-13,2,11,11);
      SafeCopyCanvas(GetBitmapCanvas(i),Canvas,0,0,11,11,0,0,11,11);
      FreeBitmap(i);
      OnClick := @CloseForm;
      end;
   i := BitmapFromString(11, 11, 'z78DA333336A3103ABB82' +
      'A01B5900A277D4045A98407C0CE232C1D00004F103881A5AF8821' +
      '208008BAEBA31');
   Minimize := TImage.Create(WidgetForm);
   with Minimize do
      begin
      Parent := WidgetForm
      SetBounds(WidgetForm.Width-26,2,11,11);
      SafeCopyCanvas(GetBitmapCanvas(i),Canvas,0,0,11,11,0,0,11,11);
      FreeBitmap(i);
      OnClick := @MinimizeForm;
      end;
   DragTimer := TTimer.Create(WidgetForm);
   DragTimer.Interval := 10000000;
   DragTimer.OnTimer := @DragForm;
   Add := TButton.Create(WidgetForm);
   with Add do
      begin
      Parent := WidgetForm;
      SetBounds(5,40,75,20);
      Caption := 'Add Player';
      OnClick := @AddUser;
      end;
   Delet := TButton.Create(WidgetForm);
   with Delet do
      begin
      Parent := WidgetForm;
      SetBounds(85,40,75,20);
      Caption := 'Delete Player';
      OnClick := @DeleteUser;
      end;
   AddUser(WidgetForm);
   end;




procedure SafeShowWF;
   var tva: TVariantArray;
   begin
   setarraylength(tva, 0);
   ThreadSafeCall('MakeForm', tva);
   end;

procedure ShowFormModal;
   begin
   WidgetForm.ShowModal
   end;

procedure SafeShowFormModal;
   var tva: TVariantArray;
   begin
   setarraylength(tva, 0);
   ThreadSafeCall('ShowFormModal', tva);
end;

procedure Form;
   begin
   SafeShowWF;
   SafeShowFormModal;
   FreeForm(WidgetForm);
   end;
   
   
procedure makform(sender: TObject);
begin
  Form;
end;

procedure IniForm;
var
  TimeInitForm: Integer;
begin
  TimeInitForm := GetSystemTime;
  frmDesign := CreateForm;
  with frmDesign do
  begin
    OnClose := @InitFormOnClose;
    Position := poScreenCenter;
    FormStyle := fsStayOnTop;
    Width := 387;
    Height := 329;
    Cursor := crArrow;
    Caption := 'Ashur2good and Haxor'#39's MonkBSER';
    Color := clBtnFace;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  Label5 := TLabel.Create(frmDesign);
  with Label5 do
  begin
    Parent := frmDesign;
    Left := 11;
    Top := 258;
    Width := 345;
    Height := 23;
    Caption := 'Guarrented to kill at least 50 monks an hour!';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Simpsonfont';
    Font.Style := [];
    ParentFont := False;
  end;
  UseMagic := TLabel.Create(frmDesign);
  with UseMagic do
  begin
    Parent := frmDesign;
    Left := 36;
    Top := 121;
    Width := 69;
    Height := 19;
    Caption := 'Use magic';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Times New Roman';
    Font.Style := [fsBold];
    ParentFont := False;
  end;
  Spell := TLabel.Create(frmDesign);
  with Spell do
  begin
    Parent := frmDesign;
    Left := 36;
    Top := 152;
    Width := 33;
    Height := 19;
    Caption := 'Spell';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Times New Roman';
    Font.Style := [fsBold];
    ParentFont := False;
  end;
  Label1 := TLabel.Create(frmDesign);
  with Label1 do
  begin
    Parent := frmDesign;
    Left := 12;
    Top := 2;
    Width := 357;
    Height := 31;
    Caption := 'Ashur2good and Haxor'#39's MonkBSER';
    Font.Color := clWindowText;
    Font.Height := -24;
    Font.Name := 'WillyWonka';
    Font.Style := [];
    ParentFont := False;
  end;
  Healing := TLabel.Create(frmDesign);
  with Healing do
  begin
    Parent := frmDesign;
    Left := 36;
    Top := 56;
    Width := 91;
    Height := 19;
    Caption := 'HP to Heal at';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Times New Roman';
    Font.Style := [fsBold];
    ParentFont := False;
  end;
  ATTStyle := TLabel.Create(frmDesign);
  with ATTStyle do
  begin
    Parent := frmDesign;
    Left := 36;
    Top := 89;
    Width := 83;
    Height := 19;
    Caption := 'Attack Style';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Times New Roman';
    Font.Style := [fsBold];
    ParentFont := False;
  end;
  Killa := TLabel.Create(frmDesign);
  with Killa do
  begin
    Parent := frmDesign;
    Left := 36;
    Top := 187;
    Width := 112;
    Height := 19;
    Caption := 'How many to kill';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'Times New Roman';
    Font.Style := [fsBold];
    ParentFont := False;
  end;
  Start := TButton.Create(frmDesign);
  with Start do
  begin
    Parent := frmDesign;
    Left := 138;
    Top := 228;
    Width := 71;
    Height := 23;
    Hint := 'Start the script';
    Caption := 'Start';
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 8;
    OnClick := @ButtonClick;
  end;
  Magic := TComboBox.Create(frmDesign);
  with Magic do
  begin
    Parent := frmDesign;
    Left := 152;
    Top := 123;
    Width := 145;
    Height := 21;
    Hint := 'Use magic?';
    ItemHeight := 13;
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 9;
    Text := 'Magic';
    with Magic.Items do
    begin
      Add('True');
      Add('False');
    end;
  end;
  MagicNumber := TEdit.Create(frmDesign);
  with MagicNumber do
  begin
    Parent := frmDesign;
    Left := 162;
    Top := 155;
    Width := 121;
    Height := 21;
    Hint := 'If magic is true, then what spell number?';
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 10;
    Text := 'MagicNumber';
  end;
  Kills := TEdit.Create(frmDesign);
  with Kills do
  begin
    Parent := frmDesign;
    Left := 163;
    Top := 188;
    Width := 121;
    Height := 21;
    Hint := 'Put in how many monks to kill';
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 11;
    Text := 'Kills';
  end;
  AStyle := TEdit.Create(frmDesign);
  with AStyle do
  begin
    Parent := frmDesign;
    Left := 162;
    Top := 92;
    Width := 121;
    Height := 21;
    Hint := 'What attack style? 1 is Att, 2 is Str, 3 is shared, 4 is Def';
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 12;
    Text := 'AStyle';
  end;
  HP := TEdit.Create(frmDesign);
  with HP do
  begin
    Parent := frmDesign;
    Left := 162;
    Top := 58;
    Width := 121;
    Height := 21;
    Hint := 'What hp to heal at';
    ParentShowHint := False;
    ShowHint := True;
    TabOrder := 13;
    Text := 'HP';
  end;
  PlayerForm := TButton.Create(frmDesign);
  with PlayerForm do
  begin
    Parent := frmDesign;
    Left := 266;
    Top := 228;
    Width := 75;
    Height := 25;
    Caption := 'Player Setup';
    TabOrder := 14;
    OnClick := @makform;
  end;
  WriteLn('InitForm compiled in ' + IntToStr(GetSystemTime - TimeInitForm) + ' milliseconds!');
end;

procedure SafeInitForm;
var

  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('IniForm', V);
end;

procedure ShowIniFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowIniFormModal;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowIniFormModal', V);
end;

procedure MainInitForm;
begin
  try
    SafeInitForm;
    SafeShowIniFormModal;
  finally
    FreeForm(frmDesign);
  except
    WriteLn('An error seems to have occurred in: InitForm');
  end;
end;

procedure SetupAll;
begin
  AttackStyle := AStyle.Text;
  Nuber := StrToInt(MagicNumber.Text);
  HpAmount := StrToInt(HP.Text);
  Time := StrToInt(Kills.Text);
  case Magic.Text of
    'True': Magices := True;
    'False': Magices := False;
  end;
end;

////////////////////////////////Form////////////////////////////////////////////













////////////////////////////Logging In/////////////////////////////////////////

procedure LoggingIn;
begin
  SetUpSRL;
  LoginPlayer;
end;
/////////////////////////////Logging In/////////////////////////////////////////






///////////////////////////////LoadDTMs/////////////////////////////////////////

procedure LoadDTMs;
begin
  Swarm := DTMFromString('78DA63946760605065C00A18A134000908004' +
    '7');

end;
///////////////////////////////LoadDTMs/////////////////////////////////////////






//////////////////////////////MonkColours///////////////////////////////////////

procedure MonkColour;
begin
  MonkColors[1] := 8562644;
  MonkColors[2] := 8497364;
  MonkColors[3] := 8562644;
  MonkColors[4] := 8497364;
end;
//////////////////////////////MonkColours///////////////////////////////////////






/////////////////////////////Auto Talk1/////////////////////////////////////////

procedure AutoTalk1;
begin
  if (InChat('noobs')) or
    (InChat('noobz')) or
    (InChat('noob')) or
    (InChat('nub')) or
    (InChat('nab')) or
    (InChat('froob')) or
    (InChat('loser')) or
    (InChat('choob')) then
  begin
    Ha := Ha + 1;
    if Ha = 3 then
    begin
      Wait(500 + Random(500));
      TypeSend('your the noob');
      Ha := 0;
    end;
  end;
end;
/////////////////////////////Auto Talk1/////////////////////////////////////////






/////////////////////////////Auto Talk2/////////////////////////////////////////

procedure AutoTalk2;
begin
  if (InChat('i own')) or
    (InChat('i rule')) or
    (InChat('i rulz')) or
    (InChat('i good')) or
    (InChat('im good')) or
    (InChat('ure a nub')) or
    (InChat('ure a noob')) or
    (InChat('loser')) or
    (InChat('i pwn')) or
    (InChat('i score')) or
    (InChat('im hot')) or
    (InChat('ure ugly')) or
    (InChat('ch00b')) or
    (InChat('fr00b')) or
    (InChat('youre a noob')) or
    (InChat('youre a nub')) then
  begin
    Ha := Ha + 1;
    if Ha = 3 then
    begin
      Wait(500 + Random(500));
      TypeSend('you wish...');
      Ha := 0;
    end;
  end;
end;
/////////////////////////////Auto Talk2/////////////////////////////////////////






/////////////////////////////Auto Talk3/////////////////////////////////////////

procedure AutoTalk3;
begin
  if (InChat('fak')) or
    (InChat('bi+(#h')) or
    (InChat('faken ')) or
    (InChat('dik')) or
    (InChat('4uk')) then
  begin
    Ha := Ha + 1;
    if Ha = 3 then
    begin
      Wait(500 + Random(500));
      TypeSend('reported :)');
      Ha := 0;
    end;
  end;
end;
/////////////////////////////Auto Talk3/////////////////////////////////////////






/////////////////////////////Auto Talker////////////////////////////////////////

procedure AutoTalker;
begin
  AutoTalk1;
  AutoTalk2;
  AutoTalk3;
end;
/////////////////////////////Auto Talker////////////////////////////////////////






///////////////////////////////Randoms//////////////////////////////////////////

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  f: Integer;
begin
  for f := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7:
        begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7:
        begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
  if (Result = true) then
    Randomz := Randomz + 1;
end;
///////////////////////////////Randoms//////////////////////////////////////////






/////////////////////////////AntiRandoms////////////////////////////////////////

procedure DoAntiRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  PopUp('ontinue');
end;
/////////////////////////////AntiRandoms////////////////////////////////////////






{*******************************************************************************
procedure FTWaitRandom(Time: Integer);
By: WT-Fakawi/Edited by ashur for my use :)
Description: Performs Wait and DoAntiRandoms :). Time is multiple of 250 msec, so FTWait(4)
waits approx 1 sec and performs 4 DoAntiRandoms; :)
*******************************************************************************}

procedure FTWaitRandom(Time: Integer);
var
  t: Integer;
begin
  for T := 1 to Time do
  begin
    Wait(200 + Random(50));
    DoAntiRandoms;
  end;
end;
//////////////////////////////FTWaitRandom//////////////////////////////////////






//////////////////////////////RandomAClick//////////////////////////////////////
{*******************************************************************************
procedure RandomAClick;
By: phantombmx/Fixed by Ashur2good for my own purposes :)
Description: Performs random right click to stay active.
*******************************************************************************}

procedure RandomAClick;
var
  m: Integer;
begin
  if (not (LoggedIn)) then Exit;
  m := MouseSpeed;
  MouseSpeed := 15;
  case Random(7) of
    0: MouseBox(533, 345, 757, 200, 2);
    1: MouseBox(521, 386, 553, 496, 2);
    2: MouseBox(743, 265, 764, 497, 2);
    3: MouseBox(456, 467, 763, 498, 2);
    4: MouseBox(499, 342, 552, 496, 2);
    5: MouseBox(121, 345, 521, 355, 2);
    6: MouseBox(124, 346, 14, 499, 2);
  end;
  MouseSpeed := m;
end;
//////////////////////////////RandomAClick//////////////////////////////////////






//////////////////////////////AntiDie///////////////////////////////////////////

procedure AntiDie;
begin
  case Random(30) of
    1: FTWaitRandom((6) + Random(4));
    2: RandomMovement;
    3: FTWaitRandom((6) + Random(4));
    4: BoredHuman;
    5: FTWaitRandom((6) + Random(4));
    6: DoAntiRandoms;
    7: FTWaitRandom((6) + Random(4));
    8: RandomMovement
    9: FTWaitRandom((6) + Random(4));
    10: DoAntiRandoms;
    11: FTWaitRandom((6) + Random(4));
    12: BoredHuman;
    13: FTWaitRandom((6) + Random(4));
    14: FTWaitRandom((6) + Random(4));
    15: FTWaitRandom((6) + Random(4));
    16: DoAntiRandoms;
    17: FTWaitRandom((6) + Random(4));
    18: BoredHuman;
    19: FTWaitRandom((6) + Random(4));
    20: FTWaitRandom((6) + Random(4));
    21: FTWaitRandom((6) + Random(4));
    22: FTWaitRandom((6) + Random(4));
    23: FTWaitRandom((6) + Random(4));
    24: FTWaitRandom((6) + Random(4));
    25: FTWaitRandom((6) + Random(4));
    26: FTWaitRandom((6) + Random(4));
    27: FTWaitRandom((6) + Random(4));
    28: FTWaitRandom((6) + Random(4));
    29: FTWaitRandom((6) + Random(4));
  end;
end;

//////////////////////////////AntiDie///////////////////////////////////////////






////////////////////////////MonkSafety//////////////////////////////////////////

procedure MonkSafety;
begin
  case Random(8) of
    1: MakeCompass('N');
    2: FTWaitRandom((6) + Random(4));
    3: MakeCompass('E');
    4: FTWaitRandom((6) + Random(4));
    5: MakeCompass('S');
    6: FTWaitRandom((6) + Random(4));
    7: MakeCompass('W');
  end;
end;
////////////////////////////MonkSafety//////////////////////////////////////////







//////////////////////////////Anti Ban//////////////////////////////////////////

procedure AntiBans;
begin
  case Random(25) of
    1: PickUpMouse;
    2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
    3: AlmostLogout;
    4: HoverSkill('Defence', False);
    5: HoverSkill('Attack', False);
    6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
    7: HoverSkill('Strength', False);
    8: RandomAClick;
    9: BoredHuman;
    10: GameTab(5);
    11: GameTab(6);
    12: GameTab(13);
    13: FTWaitRandom((6) + Random(4));
    14: FTWaitRandom((6) + Random(4));
    15: FTWaitRandom((6) + Random(4));
    16: FTWaitRandom((6) + Random(4));
    17: FTWaitRandom((6) + Random(4));
    19: BoredHuman;
    20: AntiDie;
    21: AntiDie;
    22: AntiDie;
    23: AntiDie;
    24: AntiDie;
  end;
end;
//////////////////////////////Anti Ban//////////////////////////////////////////






////////////////////////////////Anti////////////////////////////////////////////

procedure Anti;
begin
  case random(7) of
    1: AutoTalker;
    2: AntiBans;
    3: AntiDie;
    4: BoredHuman;
  end;
end;
////////////////////////////////Anti////////////////////////////////////////////






/////////////////////////////FightMode//////////////////////////////////////////

procedure SetsFightMode;
begin
  GameTab(1);
  if AttackStyle = 'Attack' then SetFightMode(1);
  if AttackStyle = 'Strength' then SetFightMode(2);
  if AttackStyle = 'Defence' then SetFightMode(4);
end;
/////////////////////////////FightMode//////////////////////////////////////////





////////////////////////////FindMSColour////////////////////////////////////////
{*******************************************************************************
function FindMSColour(var x, y: Integer; color: Integer): Boolean;
By: Stupid3ooo/Fixed by Ashur2Good( His one didin't look in the main screen )
Description: Finds color on MainScreen.
*******************************************************************************}

function FindMSColour(var x, y: Integer; color: Integer): Boolean;
begin
  Result := FindColor(x, y, color, MSX1, MSY1, MSX2, MSY2);
end;

////////////////////////////FindMSColour////////////////////////////////////////






//////////////////////////////RClicking/////////////////////////////////////////

procedure MonkKilla;
begin
  case Random(2) of
    0:
      begin
        Writeln(' Found a free monk or not already killing one, proceding to kill');
        Mouse(x, y, 0, 0 + random(3), True);
        Writeln('Left clicked on the monk');
        FTWaitRandom(1);
      end;

    1:
      begin
        Writeln(' Found a free monk or not already killing one, proceding to kill');
        Mouse(x, y, 0, 0 + random(3), False);
        ClickOption('ttac', 1);
        Writeln('Right clicked on the monk');
        FTWaitRandom(1);
      end;
  end;
end;
//////////////////////////////RClicking/////////////////////////////////////////






/////////////////////////////FindMonk///////////////////////////////////////////

function KillMonk: Boolean;
begin
  x := MSCX;
  y := MSCY;
  for Monks := 1 to 4 do
  begin
    FindObj(x, y, 'onk', MonkColors[Monks], 2);
    if (not (InFight) or not (IsFightAt(x, y))) then
    begin
      Writeln('Found Monk');
      MonkKilla;
      Boom := True;
    end
    else
    begin
      MonkSafety;
      FTWaitRandom((6) + Random(4));
    end;
    Boom := False;
  end;
end;
/////////////////////////////FindMonk///////////////////////////////////////////






//////////////////////////////Healing///////////////////////////////////////////

procedure Healin;
begin
  repeat
    GameTab(2);
    if (HpPercent < HpAmount) then
    begin
      Writeln('You have low HP :( Time to heal ;D');
      Wait(500 + Random(100));
      Writeln('Looking for a Monk to BS Muwhahaha');
      FindObj(x, y, 'onk', MonkColors[Monks], 5);
      FTWait((6) + Random(4));
      Mouse(x, y, 0, 0, False);
      ChooseOption(x, y, 'lk-');
      FTWait((6) + Random(4));
      ClickToContinue;
      FTWait((6) + Random(4));
      ChooseOptionEx('heal');
      TalkToRand;
      FTWait((6) + Random(4));
      DoAntiRandoms;
      HealTime := HealTime + 1;
    end;
  until (HpPercent >= HpAmount);
end;
//////////////////////////////Healing///////////////////////////////////////////






//////////////////////////Blue Hit, Red Hit/////////////////////////////////////

procedure HitHeal; //Kinda taken from WT-Fawaki :)
begin
  if (FindMSColour(x, y, 192)) then
  begin
    Hits := Hits + 1;
    if Hits >= 2 + random(2) then
    begin
      Wait(100 + Random(10));
      Healin;
      Hits := 0;
    end;
  end;
end;
//////////////////////////Blue Hit, Red Hit/////////////////////////////////////






////////////////////////////////Killa///////////////////////////////////////////

procedure AttackingMonkz;
begin
  if (HpPercent > HpAmount) then
  begin
    if Magices = True then
    begin
      CastSpell(Nuber);
    end;
    if Magices = False then
    begin
      KillMonk;
      HitHeal;
      repeat
        case Random(4) of
          1: Anti;
          2: FTWait((6) + Random(4));
        end;
      until (not (InFight));
      if (InFight = True) then
      begin
        Writeln('Fighting Monk');
        Wait(100 + Random(100));
        OutFight;
        Monks := Monks + 1;
      end
      else
        Writeln('Did not find monk, Going to new area to search :)');
      case random(4) of
        1: MouseBox(MSx1, MSy1, MSx2, MSy2, 1);
        2: FindSymbol(x, y, 'water');
        3: FindSymbol(x, y, 'water');
      end;
      Wait(500 + Random(100));
      KillMonk;
      MonkKilla;
      Wait(500 + Random(100));
      DoAntiRandoms;
      case Random(3) of
        1: Anti;
        2: FTWait((6) + Random(4));
      end;
      Wait(500 + Random(100));
      HitHeal;
      if (InFight = True) then
      begin
        Writeln('Fighting Monk');
        Wait(500 + Random(100));
        Monks := Monks + 1;
        if (not (Loggedin)) then NextPlayer(false);
      end;
    end;
  end;
end;
////////////////////////////////Killa///////////////////////////////////////////






/////////////////////////////World Switching////////////////////////////////////
//-----------------------------------------------------------------//
//--               Scar Standard Resource Library                --//
//--               » WorldSwitch routines                        --//
//-----------------------------------------------------------------//
//
// * function SelectWorld(Which:integer):Boolean; // by WT-Fakawi
// * procedure OrderBy(Which, UpDown:string);     // by WT-Fakawi
// * procedure GetWorldList(Var WList:array of integer);  // by WT-Fakawi
//        The worldswitcher include doesn't work, so i had to put them all in my
//        script, but the fixed version :)

var
  B0, B1, B2, B3, B4, B5, B6, B7, B8, B9: Integer;

{ type TWorld;
  Description: Hols world number and coordinates of the button }
type
  TWorld = record
    Nr: Integer;
    X: Integer;
    Y: Integer;
  end;

var
  Worlds: array of TWorld;

const
  HowManyWorlds = 150;

// -------------------------------------------------------------------------- //

procedure SetupWorldSwitcher;
begin
  B0 := BitmapFromString(7, 10, 'z78DA33304000370C60800130658' +
    '911C1653E252A71D9489E4A6AB996D4302126E4016F196571');
  B1 := BitmapFromString(6, 10, 'z78DA333040003724608001DC300' +
    '07E595CE61063D7D052E346040000CE02516D');
  B2 := BitmapFromString(7, 10, 'z78DA33300001371CC00009902A8' +
    'E0B10AF9E189543518D01DE30C7040082BE5DB5');
  B3 := BitmapFromString(6, 10, 'z78DA33300001371CC00043D6000' +
    '9E012A75C0D7EF750D72EFC6A88F73B7E5D00595A52F9');
  B4 := BitmapFromString(7, 10, 'z78DA7373430003BCC06D90A9C4A' +
    '597D62AF1035A840600F8D25EBD');
  B5 := BitmapFromString(6, 10, 'z78DA7373230D18E000A4AA21463' +
    'DF12693E7064ADC89298E5F1700DB4A52F9');
  B6 := BitmapFromString(7, 10, 'z78DA33304000370C60800130658' +
    '911C105C85389DF9DB8644975273176512B4CF0DB020094FD6151');
  B7 := BitmapFromString(6, 10, 'z78DA7373230C0C7000FC6A464D4' +
    '00600B0AF4FE1');
  B8 := BitmapFromString(7, 10, 'z78DA33304000370C60800130658' +
    '911A19D09F4B465A07C04006C5261D5');
  B9 := BitmapFromString(7, 10, 'z78DA3330000137BCC000438D010' +
    '6C0AF977295F8DD408C383136126326FD5502003C6F6049');
  SetArrayLength(Worlds, HowManyWorlds);
end;

// -------------------------------------------------------------------------- //

procedure FreeNumbers;
begin
  FreeBitmap(B0);
  FreeBitmap(B1);
  FreeBitmap(B2);
  FreeBitmap(B3);
  FreeBitmap(B4);
  FreeBitmap(B5);
  FreeBitmap(B6);
  FreeBitmap(B7);
  FreeBitmap(B8);
  FreeBitmap(B9);
end;

{*******************************************************************************
function ReturnNumber(BX, BY: Integer): Integer;
By: WT-Fakawi
Description: OCR machine.
*******************************************************************************}

function ReturnNumber(BX, BY: Integer): Integer;
var
  Number, BM: Integer;
begin
  for Number := 0 to 9 do
  begin
    case Number of
      0: BM := B0;
      1: BM := B1;
      2: BM := B2;
      3: BM := B3;
      4: BM := B4;
      5: BM := B5;
      6: BM := B6;
      7: BM := B7;
      8: BM := B8;
      9: BM := B9;
    end;
    if FindBitmapMaskTolerance(BM, x, y, BX, BY, BX + 9, BY + 11, 0, 0) then
    begin
      Result := Number;
      Exit;
    end
  end;
  Result := -1;
end;

{*******************************************************************************
procedure OrderBy(Which, UpDown: string);
By: WT-Fakawi
Description: Orders Display.
*******************************************************************************}

procedure OrderBy(Which, UpDown: string);
var
  Origin, OBx, OBy: Integer;
begin
  case Which of
    'world':
      begin
        case UpDown of
          'up': Origin := 284;
          'down': Origin := 297;
        end
      end;
    'players':
      begin
        case UpDown of
          'up': Origin := 393;
          'down': Origin := 409;
        end
      end;
    'location':
      begin
        case UpDown of
          'up': Origin := 503;
          'down': Origin := 519;
        end
      end;
    'type':
      begin
        case UpDown of
          'up': Origin := 613;
          'down': Origin := 629;
        end
      end;
  end;

  MMouse(Origin, 7, 7, 7)
    GetMousePos(OBx, OBy);
  repeat
    Mouse(OBx, OBy, 0, 0, True);
    Wait(500);
  until FindColorSpiralTolerance(OBx, OBy, 2851375, Origin, 7, Origin + 7, 7 + 7, 50);
end;

{*******************************************************************************
Procedure GetWorldRecord;
By: WT-Fakawi
Description: Performs old school OCR on bitmaps.
*******************************************************************************}

procedure GetWorldRecord;
var
  Row, Column, RN, World, Index: Integer;
begin
  for Row := 0 to 6 do
  begin
    for Column := 0 to 19 do
    begin
      RN := ReturnNumber(63 + (93 * Row), 39 + (23 * Column)); //Digit 1 of 3 digit worlds
      if RN <> -1 then
      begin
        World := RN * 100;
        RN := ReturnNumber(70 + (93 * Row), 39 + (23 * Column)); //Digit 2 of 3 digit worlds
        if RN <> -1 then
        begin
          World := (RN * 10) + World;
          RN := ReturnNumber(78 + (93 * Row), 39 + (23 * Column)); //Digit 2 of 3 digit worlds
          if RN <> -1 then
          begin
            World := RN + World;
            Index := Index + 1;
            Worlds[Index].Nr := World;
            Worlds[Index].X := 78 + (93 * Row);
            Worlds[Index].Y := 39 + (23 * Column);
            World := 0;
          end;
        end
      end
      else
      begin
        RN := ReturnNumber(66 + (93 * Row), 39 + (23 * Column)); //Digit 1 of 2 digit worlds
        if RN <> -1 then
        begin
          World := (RN * 10) + World;
          RN := ReturnNumber(74 + (93 * Row), 39 + (23 * Column)); // Digit 2 of 2 digit worlds
          if RN <> -1 then
          begin
            World := RN + World;
            Index := Index + 1;
            Worlds[Index].Nr := World;
            Worlds[Index].X := 74 + (93 * Row);
            Worlds[Index].Y := 39 + (23 * Column);
            World := 0;
          end;
        end
        else
        begin
          RN := ReturnNumber(70, 39 + (23 * Column)); //Digit 1 of 1 digit worlds
          if RN <> -1 then
          begin
            World := RN;
            Index := Index + 1;
            Worlds[Index].Nr := World;
            Worlds[Index].X := 71 + (93 * Row);
            Worlds[Index].Y := 39 + (23 * Column);
            World := 0;
          end
          else
          begin
            Index := Index + 1;
          end;
        end;
      end;
    end;
  end;
end;


// -------------------------------------------------------------------------- //

procedure ReadOutRecord;
var
  i: Integer;
begin
  for i := 1 to HowManyWorlds - 1 do
    Writeln('Index :' + IntToStr(i) + ' = ' + IntToStr(Worlds[i].Nr));
end;

{*******************************************************************************
procedure ClickWorldSwitchButton;
By: WT-Fakawi
Description: Click button
*******************************************************************************}

procedure ClickWorldSwitchButton;
begin
  MMouse(8, 466, 90, 25);
  GetMousePos(x, y);
  Mouse(x, y, 0, 0, True);
  repeat
    Wait(10);
  until (GetColor(17, 477) = 0);
end;

{*******************************************************************************
function SelectWorld(Which: Integer): Boolean;
By: WT-Fakawi
Description: Selects World using ingame switcher.
*******************************************************************************}

function SelectWorld(Which: Integer): Boolean;
var
  i: Integer;
begin
  SetupWorldSwitcher;
  if not WelcomeToRuneScape then
  begin
    Result := False;
    Exit
  end;
  ClickWorldSwitchButton;
  OrderBy('location', 'down');
  OrderBy('players', 'down');
  OrderBy('type', 'down');
  Wait(1000);
  GetWorldRecord;
//  ReadOutRecord;
  for i := 1 to HowManyWorlds - 1 do
    if Which = Worlds[i].Nr then
    begin
      Mouse(Worlds[i].X, Worlds[i].Y, 0, 0, True);
      Result := True;
      Exit;
    end;
  FreeNumbers;
end;
/////////////////////////////World Switching////////////////////////////////////






////////////////////////////World Switching/////////////////////////////////////
Procedure GoLessPeeps;
begin
Case Random(5) of
1: SelectWorld(125);
2: SelectWorld(87);
3: SelectWorld(75);
4: SelectWorld(55);
end;
end;
////////////////////////////World Switching/////////////////////////////////////






////////////////////////////Progress Report/////////////////////////////////////

procedure AshursReport;
begin
  Writeln('[]//////////////////////////////////////////////[]');
  Writeln('    ~~~~~~~~~~~~~~Report~~~~~~~~~~~~~~');
  Writeln('   Worked For : ' + ScriptTime2(2))
  Writeln('       Bsed ' + IntToStr(Monks) + ' Monkz');
  Writeln('   Healed ' + IntToStr(HealTime) + ' Times ');
  Writeln('   Have got ' + IntToStr(Randomz) + ' Randoms Since start');
  Writeln('    ~~~~~~~~~~~~~~Report~~~~~~~~~~~~~~');
  Writeln('[]//////////////////////////////////////////////[]');
  SRLRandomsReport;
  GetAllLevels;
end;
////////////////////////////Progress Report/////////////////////////////////////






///////////////////////////////Welcoming////////////////////////////////////////

procedure Ashur;
begin
  Writeln('        A            SSSSSSSSSSS  H          H  U           U  RRRRR');
  Wait(100 + Random(10));
  Writeln('       A A          S             H          H  U           U  R    R');
  Wait(100 + Random(10));
  Writeln('      A   A        S              H          H  U           U  R     R');
  Wait(100 + Random(10));
  Writeln('     A     A      S               H          H  U           U  R      R');
  Wait(100 + Random(10));
  Writeln('    AAAAAAAAA     SSSSSSSSSSSSSS  HHHHHHHHHHHH  U           U  RRRRRRRR');
  Wait(100 + Random(10));
  Writeln('   A         A                 S  H          H  U           U  R R');
  Wait(100 + Random(10));
  Writeln('  A           A                S  H          H  U           U  R  R');
  Wait(100 + Random(10));
  Writeln(' A             A               S  H          H  U           U  R   R');
  Wait(100 + Random(10));
  Writeln('A               A  SSSSSSSSSSSSS  H          H   UUUUUUUUUUU   R    R');
  Wait(100 + Random(10));
  Writeln('                           A    NN   N DDD');
  Wait(100 + Random(10));
  Writeln('                          A A   N N  N D  D');
  Wait(100 + Random(10));
  Writeln('                         A   A  N  N N DDD');
  Wait(100 + Random(10));
  Writeln('   H          H         A        X        X OOOOOOOOOO  RRRRRR');
  Wait(100 + Random(10));
  Writeln('   H          H        A A        X      X  O        O  R     R');
  Wait(100 + Random(10));
  Writeln('   H          H       A   A        X    X   O        O  R      R');
  Wait(100 + Random(10));
  Writeln('   H          H      A     A        X  X    O        O  R       R');
  Wait(100 + Random(10));
  Writeln('   HHHHHHHHHHHH     AAAAAAAAA        XX     O        O  R        R');
  Wait(100 + Random(10));
  Writeln('   H          H    A         A       XX     O        O  RRRRRRRRRRR');
  Wait(100 + Random(10));
  Writeln('   H          H   A           A     X  X    O        O  R R');
  Wait(100 + Random(10));
  Writeln('   H          H  A             A   X    X   O        O  R  R ');
  Wait(100 + Random(10));
  Writeln('   H          H A               A X      X  OOOOOOOOOO  R   R ');
  Wait(1000 + Random(100));
  Writeln('                 Thanks for using the');
  Wait(1000 + Random(100));
  Writeln('                   MonkBSER! :)');
  Wait(100 + Random(10));
  Wait(1000 + Random(100));
  Writeln('Have fun autoing :D');
  Wait(1000 + Random(100));
  Writeln('This script was made by Ashur2good And haxor, Remeber that :)');
  Wait(1000 + Random(100));
  Writeln('Script version ' + Version + ' ');
end;
///////////////////////////////Welcoming////////////////////////////////////////






////////////////////////////////Setup///////////////////////////////////////////

procedure SetupScript;
begin
  MonkColour;
  MouseSpeed := 15;
  CheckUserNicks;
end;
////////////////////////////////Setup///////////////////////////////////////////






////////////////////////////////Main Loop///////////////////////////////////////
begin
  ClearDebug;
  LoadUs;
  MainInitForm;
  FreeForm(frmDesign);
  Ashur;
  SetupScript;
  ActivateClient;
  LoggingIn;
  HighestAngle;
  MakeCompass('N');
  SetRun(True);
  SetsFightMode;
  repeat
    AttackingMonkz;
    AshursReport;
    LogOutEvery(3, 10);
    if (Time = Monks) then
    begin
      GoLessPeeps;
      NextPlayer(True);
      HighestAngle;
      MakeCompass('N');
      SetRun(True);
      SetsFightMode;
      Writeln('Switched players successfully :)');
    end;
  until (False);
end.
     
    † Hero †, Jul 29, 2007
    #3
< Scar help! | I need help with sumthin >


 
 
Adblock breaks this site