SRL Archive - The Vault

I found a backup of the harddrive that I used in my last computer and stumbled across some neat stuff that I haven't seen in ages. So, I figured that we should all post the oldest stuff we have ;) I'm gonna set the bar pretty high, this is for RS1. The created date (on the file, not in the script) is June 10, 2004. Note that it is for Scar 1.11 or higher (but it won't compile anymore ;)) Back before bitmaps were compressed… (I think this came in the 1.12 install maybe…)

Also, just for kicks, I have old emails, one of them is a 10% off offer on a WD 80 GB harddrive for (brace yourselves) $224.99 :eek:

 program MeisterFighterScript;

{
   =================================================
   MeisterFighter V1.3b - by Scarmeister
   =================================================
   INSTRUCTIONS: If you want to attack a monster
   that's not in the list then just fill in the
   MonsterColor in the boxes (use the colorpicker).
   It doesn't matter if you don't fill in all the
   boxes, one value is sufficient but more values
   will make you detect the monster faster.

   Make sure you have a sleeping bag in your
   inventory somewhere.

   IMPORTANT: Only works with Scar 1.11 or higher!
   =================================================
   FEATURES:

   - Easy select options using forms.
   - Sleeping, Autologon and Eating.
   - Fast detection of monsters.
   - Fast correction of wrong FightMode.
   - Anti-MissClicking feature added.
   - P2P Logon procedure added.

   UPDATES V1.2:
   - Login bug fixed (script can be started at any
     time now).
   - Multiple color detection added.

   UPDATES V1.3:
   - Smart Minimap searching for next monster if you
     come across someone who is fighting 'your'
     monster.
   - Anti AutoLike Behaviour added.
   - WaitTime tweaked for faster detection results.
   - Locked-In detection added with automatic door
     opening.
   - Choice to search percentage of MiniMap for
     monsters, buildings or dirt.
   UPDATES V1.3b
   - Choice between leftclick or rightclick attack
     added.
   - Choice between using minimap search only when
     another player is attacking your monster.
   =================================================
}

var
form, self: TForm;
Application: TApplication;

UserLabel, PassLabel, MonsterLabel, FMode: TLabel;
OtherMonsterLabel, ColorTwo, ColorThree: TLabel;
LabelEat, LabelEatHits, F2P, LabelLockedIn: TLabel;
TxtColorOne, TxtColorTwo, TxtColorThree: TEdit;
TxtUserName, TxtPassWord, TxtEatHits: TEdit;
TxtClickMode, DropList, FList, EatChoice, F2PDrop: TComboBox;
LabelClickMode, LabelMiniMap2: TLabel;
ButtonOK: TButton;

TxtMiniMap, TxtPercentage, TxtObject, TxtLockedIn: TComboBox;
LabelMiniMap, LabelPercentage, LabelObject: Tlabel;
TxtMiniMap2: TCombobox;

f, i, j, x, y, BagX, BagY, Attack, Mode, Lobster, Timer: integer;
MonsterColor1, MonsterColor2, MonsterColor3: integer;
UserName, PassWord, MonsterName, CurrentHits, Monster: string;
ActualHp, EatHp, Eating, Server, ScarMeister, Cols, Look: integer;
MiniSearch, LockedIn2, a, b, SObject: integer;
FreeMonster, Click, SObjectName: string;

procedure ButtonClick (sender: TObject);
begin
      UserName:= TxtUserName.Text;
      PassWord:= TxtPassWord.Text;

      MonsterName:= DropList.Text;
      Monster:= DropList.Text;
      FreeMonster:= TxtMiniMap2.Text;
      Click:= TxtClickMode.Text;
      MonsterColor1:=  StrToInt (TxtColorOne.Text);
      MonsterColor2:=  StrToInt (TxtColorTwo.Text);
      MonsterColor3:=  StrToInt (TxtColorThree.Text);
      if (TxtMiniMap.Text = 'No') then
      begin
           MiniSearch:= 0;
      end;
      if (TxtMiniMap.Text = 'Yes') then
      begin
           MiniSearch:= 1;
      end;
      if (TxtLockedIn.Text = 'De-Activated') then
      begin
           LockedIn2:= 0;
           end;
      if (TxtLockedIn.Text = 'Activated') then
      begin
           LockedIn2:= 1;
      end;
      if (MonsterColor1 > 0) then
      begin
           Cols:= 1;
      end;
      if (MonsterColor2 > 0) then
      begin
           Cols:= 2;
      end;
      if (MonsterColor3 > 0) then
      begin
           Cols:= 3;
      end;
      if (FList.Text = 'Controlled') then
      begin
           Mode:= 1;
      end;
      if (FList.Text = 'Aggressive') then
      begin
           Mode:= 2;
      end;
      if (FList.Text = 'Attack') then
      begin
           Mode:= 3;
      end;
      if (FList.Text = 'Defensive') then
      begin
           Mode:= 4;
      end;
      if (EatChoice.Text = 'Yes') then
      begin
           Eating:= 1;
           EatHp:= StrToInt (TxtEatHits.Text);
      end;
      if (EatChoice.Text = 'No') then
      begin
           Eating:= 0;
      end;
      if (F2PDrop.Text = 'F2P') then
      begin
           Server:= 0;
      end;
      if (F2PDrop.Text = 'P2P') then
      begin
           Server:= 1;
      end;
      if (TxtPercentage.Text = '100%') then
      begin
           a:= 75; b:= 70;
      end;
      if (TxtPercentage.Text = '90%') then
      begin
           a:= 68; b:= 63;
      end;
      if (TxtPercentage.Text = '80%') then
      begin
           a:= 60; b:= 56;
      end;
      if (TxtPercentage.Text = '70%') then
      begin
           a:= 53; b:= 49;
      end;
      if (TxtPercentage.Text = '60%') then
      begin
           a:= 45; b:= 42;
      end;
      if (TxtPercentage.Text = '50%') then
      begin
           a:= 38; b:= 35;
      end;
      if (TxtObject.Text = 'Monster') then
      begin
           SObject:= 65535;
           SObjectName:= Monster;
      end;
      if (TxtObject.Text = 'Grey Floor') then
      begin
           SObject:= 4210752;
           SObjectName:= 'Grey Floor';
      end;
      if (TxtObject.Text = 'Brown Floor') then
      begin
           SObject:= 143460;
           SObjectName:= 'Brown Floor';
      end;
      if (TxtObject.Text = 'Yellow Dirt') then
      begin
           SObject:= 18520;
           SObjectName:= 'Yellow Dirt';
      end;
      if (TxtObject.Text = 'Brown Dirt') then
      begin
           SObject:= 12360;
           SObjectName:= 'Brown Dirt';
      end;
end;

procedure AddPicture;
var
   Canvas: TCanvas;
begin
   Canvas:= GetBitmapCanvas(ScarMeister);
   CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 8, 236, 8+97, 236+40);
   CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 329, 236, 329+97, 236+40);
end;

procedure FormPaint(Sender: TObject);
begin
   AddPicture;
end;

procedure Initialise;
begin
   Application:= GetApplication;
   Self:= GetSelf;

   Form:= TForm.Create(nil);
   Form.Width := 442;
   Form.Height := 310;
   Form.Position := poScreenCenter;
   Form.BorderStyle := bsDialog;
   Form.OnPaint:= @FormPaint;
   Form.Caption := 'MeisterFighter V1.3b - by Scarmeister';

   UserLabel := TLabel.Create(Form);
   UserLabel.Top := 12;
   UserLabel.Left := 8;
   UserLabel.Caption := 'Username:';
   UserLabel.Parent := Form;

   PassLabel := TLabel.Create(Form);
   PassLabel.Top := 40;
   PassLabel.Left := 8;
   PassLabel.Caption := 'Password:';
   PassLabel.Parent := Form;

   LabelEat := TLabel.Create(Form);
   LabelEat.Top := 68;
   LabelEat.Left := 8;
   LabelEat.Caption := 'Use eating:';
   LabelEat.Parent := Form;

   LabelEatHits := TLabel.Create(Form);
   LabelEatHits.Top := 96;
   LabelEatHits.Left := 8;
   LabelEatHits.Caption := 'Eat if Hits below:';
   LabelEatHits.Parent := Form;

   F2P := TLabel.Create(Form);
   F2P.Top := 124;
   F2P.Left := 8;
   F2P.Caption := 'Free or Members:';
   F2P.Parent := Form;

   LabelMiniMap := TLabel.Create(Form);
   LabelMiniMap.Top := 152;
   LabelMiniMap.Left := 8;
   LabelMiniMap.Caption := 'Use MiniMap Search:';
   LabelMiniMap.Parent := Form;

   LabelPercentage := TLabel.Create(Form);
   LabelPercentage.Top := 180;
   LabelPercentage.Left := 8;
   LabelPercentage.Caption := 'Search % of MiniMap:';
   LabelPercentage.Parent := Form;

   LabelClickMode := TLabel.Create(Form);
   LabelClickMode.Top := 208;
   LabelClickMode.Left := 8;
   LabelClickMode.Caption := 'Left/RightClick Attack:';
   LabelClickMode.Parent := Form;

   FMode := TLabel.Create(Form);
   Fmode.Top := 12;
   Fmode.Left := 200;
   Fmode.Caption := 'Choose FightMode:';
   Fmode.Parent := Form;

   MonsterLabel := TLabel.Create(Form);
   MonsterLabel.Top:= 40;
   MonsterLabel.Left := 200;
   MonsterLabel.Caption := 'Choose Monster:';
   MonsterLabel.Parent := Form;

   OtherMonsterLabel := TLabel.Create(Form);
   OtherMonsterLabel.Top:= 68;
   OtherMonsterLabel.Left := 200;
   OtherMonsterLabel.Caption := 'Edit MonsterColor #1:';
   OtherMonsterLabel.Parent := Form;

   ColorTwo := TLabel.Create(Form);
   ColorTwo.Top := 96;
   ColorTwo.Left := 200;
   ColorTwo.Caption := 'Edit MonsterColor #2:';
   ColorTwo.Parent := Form;

   ColorThree := TLabel.Create(Form);
   ColorThree.Top := 124;
   ColorThree.Left := 200;
   ColorThree.Caption := 'Edit MonsterColor #3:';
   ColorThree.Parent := Form;

   LabelObject := TLabel.Create(Form);
   LabelObject.Top := 152;
   LabelObject.Left := 200;
   LabelObject.Caption := 'Object on MiniMap:';
   LabelObject.Parent := Form;

   LabelLockedIn := TLabel.Create(Form);
   LabelLockedIn.Top := 180;
   LabelLockedIn.Left := 200;
   LabelLockedIn.Caption := 'Locked-in Detection:';
   LabelLockedIn.Parent := Form;

   LabelMiniMap2 := TLabel.Create(Form);
   LabelMiniMap2.Top := 208;
   LabelMiniMap2.Left := 200;
   LabelMiniMap2.Caption := 'Find Free Monster:';
   LabelMiniMap2.Parent := Form;

   TxtUserName := TEdit.Create(Form);
   TxtUserName.Top := 10;
   TxtUserName.Left := 64;
   TxtUserName.Width := 120;
   TxtUserName.Parent := Form;

   TxtPassWord := TEdit.Create(Form);
   TxtPassWord.Top := 38;
   TxtPassWord.Left := 64;
   TxtPassWord.Width := 120;
   TxtPassWord.PasswordChar:= '*';
   TxtPassWord.Parent := Form;

   EatChoice:= TComboBox.Create(form);
   EatChoice.Top:= 66;
   EatChoice.Left:= 96;
   EatChoice.Width:= 88;
   EatChoice.Parent:=Form;
   EatChoice.DropDownCount:= 2;
   EatChoice.Items.Add ('No');
   EatChoice.Items.Add ('Yes');
   EatChoice.ItemIndex:= 0;

   TxtEatHits := TEdit.Create(Form);
   TxtEatHits.Top := 94;
   TxtEatHits.Left := 96;
   TxtEatHits.Width := 88;
   TxtEatHits.Parent := Form;

   F2PDrop:= TComboBox.Create(form);
   F2PDrop.Top:= 122;
   F2PDrop.Left:= 96;
   F2PDrop.Width:= 88;
   F2PDrop.Parent:=Form;
   F2PDrop.DropDownCount:= 2;
   F2PDrop.Items.Add ('F2P');
   F2PDrop.Items.Add ('P2P');
   F2PDrop.ItemIndex:= 0;

   TxtMiniMap:= TComboBox.Create(form);
   TxtMiniMap.Top:= 150;
   TxtMiniMap.Left:= 120;
   TxtMiniMap.Width:= 64;
   TxtMiniMap.Parent:=Form;
   TxtMiniMap.DropDownCount:= 2;
   TxtMiniMap.Items.Add ('No');
   TxtMiniMap.Items.Add ('Yes');
   TxtMiniMap.ItemIndex:= 0;

   TxtPercentage:= TComboBox.Create(form);
   TxtPercentage.Top:= 178;
   TxtPercentage.Left:= 120;
   TxtPercentage.Width:= 64;
   TxtPercentage.Parent:=Form;
   TxtPercentage.DropDownCount:= 6;
   TxtPercentage.Items.Add ('100%');
   TxtPercentage.Items.Add ('90%');
   TxtPercentage.Items.Add ('80%');
   TxtPercentage.Items.Add ('70%');
   TxtPercentage.Items.Add ('60%');
   TxtPercentage.Items.Add ('50%');
   TxtPercentage.ItemIndex:= 0;

   TxtClickMode:= TComboBox.Create(form);
   TxtClickMode.Top:= 206;
   TxtClickMode.Left:= 120;
   TxtClickMode.Width:= 64;
   TxtClickMode.Parent:=Form;
   TxtClickMode.DropDownCount:= 2;
   TxtClickMode.Items.Add ('Right');
   TxtClickMode.Items.Add ('Left');
   TxtClickMode.ItemIndex:= 0;

   FList:= TComboBox.Create(form);
   FList.Top:= 10;
   FList.Left:= 306;
   FList.Width:= 120;
   FList.Parent:= Form;
   FList.DropDownCount:= 4;
   FList.Items.Add ('Aggressive');
   FList.Items.Add ('Attack');
   FList.Items.Add ('Defensive');
   FList.Items.Add ('Controlled');
   FList.ItemIndex:= 0;

   DropList:= TComboBox.Create(form);
   DropList.Top:= 38;
   DropList.Left:= 306;
   DropList.Width:= 120;
   DropList.Parent:= Form;
   DropList.DropDownCount:= 29;
   DropList.Items.Add ('Other Monster');
   DropList.Items.Add ('Barbarian');
   DropList.Items.Add ('Bear');
   DropList.Items.Add ('Black Knight');
   DropList.Items.Add ('Chicken');
   DropList.Items.Add ('Cow');
   DropList.Items.Add ('Darkwizard');
   DropList.Items.Add ('Deadly Red Spider');
   DropList.Items.Add ('Dwarf');
   DropList.Items.Add ('Ghost');
   DropList.Items.Add ('Giant');
   DropList.Items.Add ('Giant Spider');
   DropList.Items.Add ('Goblin');
   DropList.Items.Add ('Guard');
   DropList.Items.Add ('Hobgoblin');
   DropList.Items.Add ('Ice Giant');
   DropList.Items.Add ('Ice Warrior');
   DropList.Items.Add ('Lesser Demon');
   DropList.Items.Add ('Moss Giant');
   DropList.Items.Add ('Mugger');
   DropList.Items.Add ('Pirate');
   DropList.Items.Add ('Rat');
   DropList.Items.Add ('Scorpion');
   DropList.Items.Add ('Skeleton');
   DropList.Items.Add ('Unicorn');
   DropList.Items.Add ('Warrior');
   DropList.Items.Add ('White Knight');
   DropList.Items.Add ('Wizard');
   DropList.Items.Add ('Zombie');
   DropList.ItemIndex:= 0;

   TxtColorOne := TEdit.Create(Form);
   TxtColorOne.Top := 66;
   TxtColorOne.Left := 306;
   TxtColorOne.Width := 120;
   TxtColorOne.Parent := Form;

   TxtColorTwo := TEdit.Create(Form);
   TxtColorTwo.Top := 94;
   TxtColorTwo.Left := 306;
   TxtColorTwo.Width := 120;
   TxtColorTwo.Parent := Form;

   TxtColorThree := TEdit.Create(Form);
   TxtColorThree.Top := 122;
   TxtColorThree.Left := 306;
   TxtColorThree.Width := 120;
   TxtColorThree.Parent := Form;

   TxtObject:= TComboBox.Create(form);
   TxtObject.Top:= 150;
   TxtObject.Left:= 306;
   TxtObject.Width:= 120;
   TxtObject.Parent:= Form;
   TxtObject.DropDownCount:= 5;
   TxtObject.Items.Add ('Monster');
   TxtObject.Items.Add ('Grey Floor');
   TxtObject.Items.Add ('Brown Floor');
   TxtObject.Items.Add ('Yellow Dirt');
   TxtObject.Items.Add ('Brown Dirt');
   TxtObject.ItemIndex:= 0;

   TxtLockedIn:= TComboBox.Create(form);
   TxtLockedIn.Top:= 178;
   TxtLockedIn.Left:= 306;
   TxtLockedIn.Width:= 120;
   TxtLockedIn.Parent:= Form;
   TxtLockedIn.DropDownCount:= 2;
   TxtLockedIn.Items.Add ('De-Activated');
   TxtLockedIn.Items.Add ('Activated');
   TxtLockedIn.ItemIndex:= 0;

   TxtMiniMap2:= TComboBox.Create(form);
   TxtMiniMap2.Top:= 206;
   TxtMiniMap2.Left:= 306;
   TxtMiniMap2.Width:= 120;
   TxtMiniMap2.Parent:= Form;
   TxtMiniMap2.DropDownCount:= 2;
   TxtMiniMap2.Items.Add ('De-Activated');
   TxtMiniMap2.Items.Add ('Activated');
   TxtMiniMap2.Hint:= ('If you Activate this, also set the Search % of the MiniMap.');
   TxtMiniMap2.ShowHint:= true;
   TxtMiniMap2.ItemIndex:= 0;

   ButtonOK := TButton.Create(Form);
   ButtonOK.Left := 147;
   ButtonOK.Top := 252;
   ButtonOK.Width := 136;
   ButtonOK.Height := 24;
   ButtonOK.Caption := '- Start -';

   ButtonOK.OnClick := @ButtonClick;
   ButtonOK.Parent := Form;
   ButtonOK.ModalResult:= mrOk;
   ButtonOK.Default := False;

   Form.ShowModal;
   Form.Free;
end;

procedure BitMapInitialise;
begin
        Attack := BitmapFromString(15, 9,
        '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
        'FFFFFF000000000000000000FFFFFF000000000000000000FFFFFF' +
        'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF' +
        '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '');

        Lobster := BitmapFromString(19, 13,
        '8E4D008E4D00000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000000000000000000000' +
        '0000007F4500AD5E007F45005C3200000000000000000000000000' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000AD5E005C32004D2A007F45008E4D00000000000000' +
        '000000000000000000000000000000000000000000000000000000' +
        '00000000000000000000000045372C5C3200703D007F4500000000' +
        '000000000000000000000000000000000000000000000000000000' +
        '0000000000000000000000000000000000005C32005C3200703D00' +
        '703D005C3200000000000000000000000000000000000000000000' +
        '0000000000000000000000000000000000000000000000005C3200' +
        '5C32004D2A00703D008E4D008E4D008E4D00703D00703D00703D00' +
        '000000000000000000000000000000000000000000000000000000' +
        '0000000000005C3200703D007F45007F4500AD5E00AD5E008E4D00' +
        '9E56009E56008E4D009E56009E5600000000000000000000000000' +
        '0000000000000000000000005C32005C3200AD5E007F45008E4D00' +
        '9E56009E56009E5600703D008E4D009E56009E5600000000000000' +
        '00000000000000000000000000000000000045372C703D007F4500' +
        '8E4D008E4D008E4D009E56008E4D00703D008E4D008E4D0045372C' +
        '000000000000000000000000000000000000000000000000703D00' +
        '7F45008E4D008E4D00703D008E4D009E56008E4D00703D008E4D00' +
        '7F4500000000000000000000000000000000000000000000000000' +
        '7F45007F45008E4D008E4D008E4D00703D008E4D009E56008E4D00' +
        '45372C000000000000000000000000000000000000000000000000' +
        '0000000000007F45005C32008E4D009E56008E4D00703D008E4D00' +
        '7F4500000000000000000000000000000000000000000000000000' +
        '0000000000000000000000008E4D00703D008E4D008E4D00703D00' +
        '7F4500000000000000000000');

        ScarMeister:= BitmapFromString(97, 40,
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27C819563566A5C506D' +
        '5E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27473826E5E5A796686' +
        '95718B6E5E5A948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2646785' +
        '312E400302053A3C500302050302055E5D69C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C25C506D3E1645571784482A8663566A63566A' +
        'C2C2C2C2C2C2C2C2C27473826E1E5E8C2F97A133C19D3DB3925E8E' +
        '95718B948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2A6A1B2312E401F1E2D04020E0C0622' +
        '4C347F0C06220C06220E050A52566FC2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        '6D5B88451A824C0D728177B6A594D22C0C374B4343C2C2C2C2C2C2' +
        'C2C2C2572486661A87A26CBBD2ACD4BAA4DA835EA4785284A6A1B2' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C21F1E2D1F1E2D1F1E2D646785A2B5EED6DEFED1D4FA' +
        '948F951609332213155E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2816AA6572486' +
        '9298C3B4BDF38997BF16084C6B5291C2C2C2C2C2C299979C3E1467' +
        '410C69D1C5F2D1D4FAA3A3D74D3D62512F5F99979CC0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E40' +
        '0302051F1E2D9BACE0AAB5EB3634470302056B6E86CDD6F69397AF' +
        '0302054B4343C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2653C92572486A3A3D7A2B5EE' +
        '828CB91609335C506DC2C2C2C2C2C270629D38187C56428BDFD9FA' +
        'D1C5F25C506D20091A4D3D62A6A1B2C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C252566F0302050302058997BF' +
        '92A2D11F1E2D03020523142D040222D6DEFECECED00E050A221315' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C24C347F1D0747A3A3D7AAB5EB828CB9120635' +
        '524A76C2C2C2C2C2C236223838187C9185ABD1D4FAC0CEFA302238' +
        '2A0A69968899C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0747382' +
        '5E26624618441F0931362238C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2030205030205948F95C0CEFA646785030205' +
        '23142D04020E100518CDD6F6E5E4FA030205B7A1B1C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C23E14672A0A69A3A3D7B4BDF3828CB91206355C506DC2C2C2' +
        'A297C62A0A692A0A69B4BDF3D6CCFAB4C7FA100518370C48C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06D5B885717849D4BC59562B1' +
        '5E2A8A531E683D273CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        '6B6E860302051F1E2DD6DEFED6DEFE03020503020552566F160933' +
        '484457BEC5EAB6B6D9030205FBF6FDC2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C299979C2A0A69' +
        '451A829BACE0B5C6F28084B00C054516084CC2C2C25253852A0A69' +
        '56428BADBEF2BDC6FAA3A3D70C0622281264C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0623284752EA1D0BBE8E5E4FADEDAEE280849' +
        '571784C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E40030205' +
        '727697D1CDEAA6ACD3030205030205030205050318948F95DFE6FE' +
        '99979C6E5E5AE9DFDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592320B6E614E89C4CAF2' +
        '9BACE0A2B5EE0C054516084CC2C2C216084C26147A918CCAAEB4E4' +
        'A2B5EE828CB9120635363447C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'A398AA5E2A8A623284EADCF2EDEBFBE5E4FA1005181F0931C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D2C8CAF7F2FDCA77BE' +
        '72425A99979CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2030205030205B2B2CACDD6F6' +
        '5E5D69030205484457030205030205CDD6F6D1DBFA5E5D69C0B9D3' +
        'A6A1B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2947EAB0803319772B2FBF6FDD6DEFEA5BEF4' +
        '0C06220E095C928DA91E0A651E0A65C0CEFAB4C7FAAAB5EB646785' +
        '16084C524A76C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A6A1B2653C92' +
        '645A96DBD7F6E0E0FEB2B2CA0402225C18A0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0DA9AAEF5B3F1F4CFECCA77BE6E1E5E' +
        'C0B2B2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2' +
        'C2C2C2C2C2C299979C03020504020EDBD7F6DFE6FE5E5D69030205' +
        '7C81950302051F1E2DB5C6F29397AF4A4E6622131599979CC2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2A48CAC1D07479298C3FBF6FDDFE6FEC7CCF60C06220E095C' +
        '524A760E095C64689BBAC7F6C2CCFEB4C7FA52566F0C06226B6E86' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A398AA8242B856428BC0CEFA' +
        'CDD6F63A3C501F0931484457C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        '95718B752EA1752EA1925E8EFAE1F0461844461844C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
        'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2' +
        '7C81950302053A3C50DFE6FEEDEBFB5E5D690302058A85920E050A' +
        '0E050A4B43434B43436E5E5A363447C2C2C2C2C2C27C81957C8195' +
        '8A8592C2C2C2C2C2C2C2C2C2C2C2C299979C99979C948F95C2C2C2' +
        'C2C2C2C2C2C28A8592C0B2B2C2C2C2C2C2C299979CA398AAB179CE' +
        '280849B2B2CAEDEBFBEDEBFBCDD6F60C06220E095C0E095C100754' +
        '9298C3B4C7FAC2CCFECDD6F624203F1206358A859252566F4A4E66' +
        '4A4E66484457B1ADCBA6A1B2653C92653C924844571F1E2D0E050A' +
        '6F2F81A6A1B299979CA6A1B299979CA6A1B2C0C0C0785284861CBA' +
        'BF8ACADFD1FAD0BBE8370C486E1E5EC0C0C0CECED0E9DFDECECED0' +
        'A48CAC8A8592C0C0C099979C99979CA6A1B299979C99979C99979C' +
        '99979CC0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A' +
        '52566FDFE6FEEDEBFB5E5D690302058A859299979C6E5E5AFBF6FD' +
        'F7F2FD363447C2C2C28A859216071023142D1609332213152A2131' +
        'C2C2C2CECED0FEFDFE9547883612251607100302056E5E5A63566A' +
        '785284FAE1F0E7CEDF785284370C481F0931653C9225134AD6DEFE' +
        'E0E0FED6DEFECDD6F60302050E095C0E095C100754B4BDF3B4BDF3' +
        'C0CEFACDD6F60503180C054524203F0E095C1E0A651E0A651E0A65' +
        '2C1E4D796686451A828242B8975DD2531E68410C69A48CAC572486' +
        '9D3DB3BE50D2A133C16E1E5EA48CAC5C18A05C18A0A3A3D7DFD9FA' +
        'A6A1B2461844954788A48CACFEFDFEFEFDFEFEFDFEFAE1F0CA62B6' +
        '948F953E164551145D1406210C062205031805031803020552566F' +
        'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A52566FCDD6F6' +
        'E0E0FE6467850302054B4343C2C2C2CECED0C2C2C2C2C2C2C2C2C2' +
        '8A85920302051F0931482A866D5B883D273C361225D6B9C2FEFDFE' +
        'FAE1F0925E8E6E5E5A3D27651206350C054538187CA26CBBFCEDFA' +
        'E6C2EAB16CBD410C6961436C5E2A8A835EA4E0E0FED1D4FACDD6F6' +
        'CDD6F604020E0C05450E095C5F5B7DADBEF2AAB5EBC0CEFA92A2D1' +
        '04020E0C05450E095C0E095C828CB992A2D128206416084C320B6E' +
        '2A0A69975DD2C78DE9A14EA56232845717849D4BC5AF5CCBD684E3' +
        'AF5CCB680E8C680E8C680E8C5C18A0DFD1FADBD7F67966863E1645' +
        'A2739BFAC2F6FEFDFEFEFDFEFCEDFAFCEDFAF4CFECFEFDFEFCEDFA' +
        'A14EA5653C923E1467320B6E614E891007540C06225E5D69C2C2C2' +
        'C2C2C2C2C2C2C2C2C27C81950302053A3C50D1DBFAD6DEFEC2C2C2' +
        '030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C062223142D' +
        '5F5B7DCFD8FEDEDAEECECED0361225FEFDFEFEFDFEB888A7D1C5F2' +
        'A297C6BDC6FA8177B60C0545320B6EBAA4DAEEE3FEEEE3FEFBD5FE' +
        'BAA4DAD1D4FA4D3D62E7CEDFDFD9FAB6B6D9E0E0FEDFE6FE04020E' +
        '0C05450C0545A2A1C6ADBEF2A6ACD3D1CDEA9298C30402220E095C' +
        '282064B4BDF3CACCFAC7CCF69BACE00C054538187C947EABD6CCFA' +
        'D1C5F26F2F818C2F97701C8CD684E3F7F2FDFCEDFAEADCF29562B1' +
        '680E8C861CBA680E8CD6CCFAD1CDEA835EA451145DCA77BEFEFDFE' +
        'FEFDFEFEFDFEFCEDFAD2C8CA4D3D62BE50D2FEFDFEFBF6FDB5C6F2' +
        '451A82525385B4BDF37C81950503181F1E2DC2C2C2C2C2C2C2C2C2' +
        'C2C2C299979C030205030205D6DEFEDFE6FECDD6F6C0B2B2FEFDFE' +
        'C2C2C2C2C2C2C2C2C2C2C2C2363447030205312E40D6DEFED1CDEA' +
        '747382D1D4FA968899FEFDFEE7CEDFD1DBFA6B6E8604020EC0CEFA' +
        'B5C6F2525385423A82AAB5EBBEC5F2DBD7F6F4CFECEEE3FEB4BDF3' +
        '9185AB645A96FBF6FDA3A3D7EDEBFBDFE6FE04020E0C0545080331' +
        'CDD6F6828CB9C7CCF6CACCFA52566F0402220E095C92A2D1BEC5F2' +
        '1F1E2D92A2D1AEB4E4524A76451A82BEBBEFBDC6FAADBEF2280849' +
        'BE50D29562B1EEE3FEBEB2C20E050AD1C5F2E9DFDE680E8CA133C1' +
        'C78DE9DED8FEDFD1FA947EAB72425AF5B3F1FEFDFEFEFDFE747382' +
        '968899E0CEE2A398AA9D3DB3D0BBE8EADCF2FEFDFED0BBE8A6ACD3' +
        'A5BEF4A2B5EE0C0622050318C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        '030205030205BACAE6FEFDFEFEFDFE948F952213155E5D69C2C2C2' +
        'C2C2C299979C040222160933A6ACD3CFD8FE3A3C50120508DBD7F6' +
        'E7CEDFFEFDFEDAC9D2BEBBEF04020E2C1E4DC0CEFABDC6FA828CB9' +
        '92A2D164689BA2B5EEADBEF2D1C5F2F7D7F6BEBBEF828CB99298C3' +
        'EADCF2A6ACD3D6DEFECDD6F60402220C0545525385C0CEFA64689B' +
        'CFD8FEB4C7FA52566F0C0545423A82C0CEFA6B6E86080331828CB9' +
        'ADBEF2645A96828CB9A3A3D7C5C2F6A6ACD3512F5FAF5CCBE7CEDF' +
        'EEE3FE0E050A410C69D0BBE8EDEBFB2A0A69A383B4D0BBE8DFD1FA' +
        'D1D4FAA6A1B295718BFAE1F0FEFDFEDAC9D25E2662B888A7DFD1FA' +
        'A297C6A383B4BF8ACAD1C5F2BEBBEFDFD9FAD0BBE8BEC5EAA5BEF4' +
        '050318030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23D273C3D273C' +
        'EDEBFBFEFDFEFBF6FD99979C030205030205C2C2C2C2C2C2484457' +
        '0C06224A4E66C7CCF6AEB4E40E050A542C38EEE3FEF7F2FDFCEDFA' +
        'BEC5EA6467850C062252566FC2CCFEC0CEFA1F1E2D6467858177B6' +
        'ADBEF2ADBEF264689BBEB2C2B4BDF364689B92A2D1B2B2CAA2A1C6' +
        'C0CEFAA6ACD304020E0C05458997BFADBEF252566FA5BEF4ADBEF2' +
        '05031808033192A2D1A5BEF41F1E2D0803319298C3BAC7F6525385' +
        '918CCA645A96CACCFAB4BDF36F2F81B179CEFCEDFAC2C2C2370C48' +
        '571784FBF6FDEDEBFB140621661A87D6B9C2EADCF2B1ADCB221315' +
        'FAE1F0FEFDFEFEFDFE8A8592824184BF8ACAEADCF2A297C6484457' +
        'A383B4D1D4FAC0CEFAA2A1C67C6EABCDD6F692A2D1030205040222' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2968899EDEBFBE9DFDED6DEFE' +
        'F7F2FDEDEBFB0E050A0E050A6B6E86C2C2C20C06220C0622A6ACD3' +
        'C0CEFA74738222131595718BDBD7F6DAC9D2DEDAEEB4BDF31F1E2D' +
        '0C06228084B0B4C7FAB4BDF304020E040222828CB9B4BDF3ADBEF2' +
        '1F1E2D5C506D777EA91F0931B4BDF382769EA3A3D7ADBEF2828CB9' +
        '0402220C0545B4C7FA777EA9777EA9A2B5EE9BACE0080331282064' +
        'A5BEF49BACE00402220C0545928DC0B5C6F252566F1D07479185AB' +
        'DFD1FAB6B6D98242B8BAA4DAE5E4FA706684661A879772B2EDEBFB' +
        'C0B9D320091A98368AE6C2EAFEFDFEC0B9D3CEB4D0FEFDFEFEFDFE' +
        'DBD7F6362238954788B16CBDDFD9FAA2A1C63E1467835EA4D1C5F2' +
        'BACAE66467851F1E2DA6ACD324203F23142D3A3C50C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C299979CFEFDFE63566AC2C2C2DFE6FEE5E4FA' +
        '7473820302053022388A8592120508120508E0E0FEE0E0FE948F95' +
        'D2C8CAD2C8CADAC9D2FAE1F0EDEBFBBEC5EA0302050C06228997BF' +
        'B4BDF392A2D104020E0803319BACE0ADBEF292A2D10503186F2F81' +
        '531E682C1E4DADBEF2614E89EEE3FEB5C6F28997BF04022252566F' +
        'B4C7FA3A3565828CB9B4C7FA828CB90C05456E7E97ADBEF2646785' +
        '0402220C05459298C3B4BDF33A3C502A0A69BAA4DAEEE3FEBFADE1' +
        'B16CBDBFADE1D6CCFA796686861CBAB79ABFE0E0FE7473822C0C37' +
        'FBD5FEFEFDFEFBF6FD968899F7F2FDFAC2F6DFD1FAA2A1C6361225' +
        '571784A26CBBDFD1FA928DC06C228AA383B4CACCFAC0CEFA312E40' +
        '2C1E4D7966863D273C363447C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2EDEBFB0E050A484457CDD6F6DFE6FED1CDEA120508' +
        '2213154B434320091A6E5E5AFEFDFEF7F2FD6E5E5AD6B9C2CA9EAA' +
        'FEFDFED6CDD8E0E0FE9397AF03020504020EB4BDF3B4C7FA8997BF' +
        '040222080331B4C7FAA5BEF47276970E050A835EA4D684E36B5291' +
        'ADBEF2080331BEC5F2EDEBFB828CB90C0545828CB99BACE0080331' +
        '9BACE0C0CEFA6E7E970C05459BACE0A2B5EE3A3C500C05450E095C' +
        'C5C2F6B4BDF30402221E0A65E0E0FEE5E4FA9185ABD684E3DDD2FE' +
        'DDD2FE6D5B88701C8CB79ABFCDD6F6302238DA9AAEFBF6FDFEFDFE' +
        'EDEBFB63566A98368ABAA4DAE5E4FA8084B03E1467410C69A297C6' +
        'D1D4FA4D3D62752EA1BAA4DADDD2FEAEB4E4120508370C48BEB2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'CECED0160710030205B1ADCBEDEBFBFBF6FDC0B2B2F7F2FDFCEDFA' +
        'B888A7FEFDFEFEFDFEC2C2C2120508120508F7D7F6FAE1F099979C' +
        'C0CEFA4E526E04020E04020EBDC6FAB4C7FA52566F0402223A3C50' +
        'B4BDF3ADBEF2312E4005031861436C6F2F81947EABA2B5EE1D0747' +
        'A5BEF4BDC6FAB2B2CA040222A2B5EE6E7E97080331A5BEF4A5BEF4' +
        '525385282064A2B5EEA5BEF404022210075456428BD1DBFA7C8195' +
        '1D0747280849E0E0FEEADCF2796686D684E3F7F2FDDFD9FA82769E' +
        '6E1E5E2C0C373D273C542C38FEFDFEFEFDFEFCEDFAD6DEFE100518' +
        '571784E0CEE2E0E0FE5F5B7D410C6951145DBEBBEFB4BDF3100518' +
        '4C0D72BEBBEFD1D4FA9185AB10051823142DC2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C24B4343' +
        '16071099979CFEFDFEFEFDFEFBF6FDD6CDD8FEFDFEFEFDFEFEFDFE' +
        'DFD9FA948F9503020595718B362238D2ACD4EDEBFBD1D4FA3A3C50' +
        '0402223A3C50B5C6F2B5C6F24E526E080331525385ADBEF2A2B5EE' +
        '04020E1206352C1E4D320B6EBAA4DA8084B0080331ADBEF2A5BEF4' +
        'CACCFA7C6EABADBEF23A3C50525385A5BEF4A5BEF43A3565525385' +
        'A2B5EE92A2D10402221E0A65A3A3D7D1DBFA1F1E2D2A0A696D5B88' +
        'DED8FED6DEFE312E40B179CEF7F2FDEEE3FEB79ABF6F2F8198368A' +
        'BF8ACAF4CFECFEFDFEFEDFFAE0E0FEBFADE13E1645571784E0E0FE' +
        'C7CCF63D273C6B179F9562B1D4C8F66B6E86280849661A87DED8FE' +
        'D1D4FA63566A100518796686C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFEE9DFDE' +
        'F7F2FDD6DEFEE0E0FE4B434336122572425AC7CCF6C0CEFA5E5D69' +
        '61436C96889920091A362238CDD6F6CDD6F604020E05031852566F' +
        'A5BEF4A2B5EE04020E040222777EA9B4C7FA92A2D104020E120635' +
        '1D0747451A82AEB4E4777EA9080331A5BEF4ADBEF29298C3DFD9FA' +
        'A2B5EE0402224E526EA5BEF4A5BEF4080331828CB9A2B5EE828CB9' +
        '0C05454A3E8AC7CCF66B6E86100518320B6E7B529EE0E0FEE0E0FE' +
        '2C0C37B16CBDE0CEE2EEE3FEEADCF282418498368AE6C2EAEDEBFB' +
        'FEFDFEE6C2EADDD2FEA398AA571784835EA4D0BBE8BEC5F2531E68' +
        '6B179FD1C5F2A3A3D704020E410C697B529ED6CCFAC7CCF6302238' +
        '1406218A8592C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2E9DFDE4B43437C8195D1D4FA' +
        'DEDAEE928DA912050863566AC7CCF6EDEBFB2213150E050A63566A' +
        '12050852566FBAC7F6BEC5EA23142D0402229298C3B4BDF3A2B5EE' +
        '04020E0803318997BFADBEF2828CB904020E3D27651D07472A0A69' +
        'BAC7F6524A760C0545A5BEF4ADBEF2828CB9BEC5F2A6ACD3040222' +
        '828CB9A5BEF49BACE00E095C9BACE0A2B5EE64689B2A2672AEB4E4' +
        '9298C30503181D07472A0A69A3A3D7E0E0FEC0B9D325134AA14EA5' +
        'D2ACD4EDEBFBEDEBFBA383B46E1E5EFAE1F0FBF6FDFCEDFAD0BBE8' +
        'DBD7F65E5D69680E8CAC94DCDBD7F6AEB4E46B179FBAA4DABEBBEF' +
        '2A21311F0931410C697B529ED0BBE8BEC5F220091A370C48C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C0B2B2747382120508030205C7CCF6D1DBFAA2A1C6' +
        '1205087C8195DED8FED6DEFE0302050302054B43430E050A8A8592' +
        'B4BDF3A6ACD303020504020E8997BFA5BEF4828CB904020E040222' +
        'B4C7FAADBEF26467850402224844572A0A6956428BC0CEFA3A3C50' +
        '080331AAB5EBA2B5EEA2B5EEB4C7FA727697120635828CB9A5BEF4' +
        '8997BF282064ADBEF2A2B5EE64689B9BACE092A2D11F1E2D120635' +
        '2A0A692A0A69A2A1C6D1C5F29298C33E1645824184A26CBBDEDAEE' +
        'EEE3FED6CDD8954788FEFDFEFEFDFEFAC2F6E7CEDFD6CCFA706684' +
        '4C0D72BEBBEFDFD1FABAA4DABAA4DAB6B6D952566F3622386C228A' +
        '680E8CA594D2C5C2F6A3A3D72C0C3751145DC2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C20E050A030205A6A1B2CDD6F6CDD6F6030205C0B9D3' +
        'EDEBFBA2A1C610051805031804020E140621828CB99BACE0A2A1C6' +
        '04020E080331A5BEF4A2B5EE6E7E97040222040222ADBEF2A5BEF4' +
        '52566F040222645A96080331645A96BAC7F60402220C0545A5BEF4' +
        'A5BEF4A2B5EEA5BEF42C1E4D56428BADBEF2ADBEF264689B525385' +
        'A5BEF4A2B5EEADBEF2828CB904020E23142D482A86320B6E2A0A69' +
        'BEBBEFAAB5EB5F5B7D5E26628C2F97954788CEB4D0DEDAEEDFD1FA' +
        'CA9EAAFEFDFEFEFDFEB16CBDEDEBFBE0E0FE1406214C0D72DFD1FA' +
        'D1DBFACDD6F6A2B5EE23142D2C1E4D6F2F816C228A752EA1AC94DC' +
        'BEBBEF9397AF3E164572425AC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        '4B43430302056B6E86D1CDEACDD6F6A383B4DFE6FEE0E0FEA6ACD3' +
        '03020548445705031804020EB5C6F2C4CAF24E526E04020E24203F' +
        'B5C6F2C0CEFA4E526E040222525385B5C6F2ADBEF21F1E2D04020E' +
        '4D3D62080331777EA9A3A3D70402220C0545A2B5EEA2B5EEA2B5EE' +
        '828CB93D2765BFADE1ADBEF2B4C7FA52538564689BA2B5EEA2B5EE' +
        '36344704020E0C0622493D799185AB320B6E451A82BEBBEFAAB5EB' +
        '524A76824184925E8E954788B888A7DFD9FADFD9FADFD1FAF7D7F6' +
        'FEDEFEA26CBBEEE3FED1CDEA2808495E2A8AD4C8F6D1D4FA7C8195' +
        '0302051F09315E2662948F95701C8C661A87DFD9FAC4CAF26B6E86' +
        '461844925E8EC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'CECED0948F958A8592C2C2C2C2C2C2C2C2C2C2C2C2747382040222' +
        '5E5D69C7CCF6CACCFA9185ABD6DEFECDD6F652566F0302053A3C50' +
        '050318030205E0E0FEB5C6F24A4E6608033152566FB4C7FAC0CEFA' +
        '3A3C5004022252566FB4BDF3B5C6F204020E080331080331080331' +
        '828CB9828CB90402220C0545A2B5EEA5BEF4A5BEF44A4E6625134A' +
        'EADCF2B5C6F2ADBEF21F1E2D8997BFA5BEF492A2D10402220C0545' +
        '524A76C2C2C282769E320B6E7B529EC5C2F6AAB5EB1D07476F2F81' +
        'A297C6CA77BE824184D0BBE8DBD7F6E0CEE2D2ACD4FBD5FED2ACD4' +
        'E5E4FAA2A1C6410C69835EA4D6CCFAC0CEFA24203F1D0747572486' +
        'C2C2C2968899661A876C228ADBD7F6CACCFA5F5B7D5E26628A8592' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFE3D273C' +
        '1205088A8592C2C2C2C2C2C2C2C2C28A859205031852566FC0CEFA' +
        'BACAE65C506DC7CCF6CDD6F66467851609339688990302053A3C50' +
        'E0E0FEB4C7FA4A4E6604020E6B6E86B4C7FAB4C7FA030205040222' +
        '8997BFB4C7FA828CB904020E040222080331080331A2B5EE64689B' +
        '080331282064ADBEF2A2B5EEA2B5EE1F1E2D0C05457C6EABEDEBFB' +
        'ADBEF2040222918CCAADBEF28997BF0503183A3565C2C2C2C0B9D3' +
        '61436C320B6E7C6EABBAC7F6A2B5EE370C488C2F979D3DB3F5B3F1' +
        'CA77BEB8A3BEEEE3FEEDEBFBB7A1B1F5B3F1CEB4D0DDD2FE9185AB' +
        '410C69816AA6DFD1FAC5C2F6140621410C69C2C2C2C2C2C2947EAB' +
        '6C228AA26CBBEADCF2C5C2F616071051145DA398AAC2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2FEFDFEF7F2FD5C506D2A2131030205' +
        'C2C2C2C2C2C2C2C2C24844570503184E526EBDC6FA8997BF82769E' +
        'B5C6F2D1DBFA52566F0C0622928DA982769EA3A3D7FBF6FDB4BDF3' +
        '1F1E2D0402228997BFBAC7F6A3A3D7040222040222A3A3D7B5C6F2' +
        '8997BF040222484457080331080331A2B5EE4A4E660C0545525385' +
        'ADBEF2A5BEF48997BF04020E040222828CB9EDEBFB92A2D1080331' +
        '9BACE0BAC7F68997BF050318524A76B1ADCBB1ADCB4A3E8A2A0A69' +
        '918CCABEC5F2928DC04C0D72B179CE954788EEAAE6EEAAE6CEB4D0' +
        'FCEDFADEDAEE95718BB16CBDD1C5F2C4CAF25F5B7D5C18A09772B2' +
        'D1D4FABDC6FA1005182A0A69C2C2C2B1ADCB785284410C69A383B4' +
        'DED8FECDD6F620091A51145DC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2CECED0FEFDFE4B4343C5C2F60E050A050318C2C2C2C2C2C2' +
        'C2C2C21F1E2D04020E828CB9A5BEF452566F928DA9CACCFACDD6F6' +
        '1F1E2D0302055E5D690C06226B6E86B4C7FAADBEF204020E04020E' +
        'B5C6F2B4C7FA8997BF030205040222C0CEFABAC7F64A4E6604020E' +
        '493D790803314E526EA2B5EE1F1E2D080331525385A5BEF4A5BEF4' +
        '72769704022208033192A2D1A2B5EEA2A1C6120635BAC7F6BAC7F6' +
        '6467850402223A35654C347F4C347F16084C2A0A69A3A3D7BEC5F2' +
        'A594D2752EA1D1D4FA461844DA94DEFAC2F6D2ACD4FEFDFED1CDEA' +
        'B179CE6F2F81DEDAEEC4CAF2493D79451A82AC94DCCACCFAA3A3D7' +
        '120635451A82947EABA48CAC835EA45E2A8ADEC4F2D6CCFAA2A1C6' +
        '3E1645A14EA5C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2DAC9D2' +
        '36122563566ABEC5F2030205030205C2C2C2C2C2C299979C04020E' +
        '04022292A2D19BACE0030205D1C5F2CDD6F6BAC7F603020504020E' +
        '36344724203F4E526EADBEF2ADBEF204020E3A3C50B4BDF3B4C7FA' +
        '6467850402221F1E2DC0CEFABEC5EA3A3C50040222484457080331' +
        '4A4E66A5BEF4040222080331525385B4BDF3A2B5EE4A4E66040222' +
        '080331A2B5EEA2B5EE82769E120635B4BDF3ADBEF252566F040222' +
        '1007542A26721007542A0A691E0A65BEBBEFB4BDF3645A969562B1' +
        'BEC5EA3E1645F5B3F1FAE1F0D6B9C2FBF6FDC2C2C2EEAAE6A2739B' +
        'DDD2FED1D4FA1206353E1467A2A1C6C4CAF29397AF3E1467975DD2' +
        '975DD2572486572486752EA1D1C5F2DBD7F6947EAB542C38796686' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B7A1B172425A706684' +
        'B5C6F203020504020EC2C2C2C2C2C2312E40030205363447A5BEF4' +
        '727697160710EADCF2CDD6F6CDD6F60302050402224E526E777EA9' +
        '4E526EADBEF2ADBEF204020E64689BADBEF2BACAE64E526E040222' +
        '525385BDC6FAB4C7FA030205040222312E40080331828CB9828CB9' +
        '04020E080331525385ADBEF2A2B5EE04020E120635363447A2B5EE' +
        'A2B5EE747382282064BEC5EAAAB5EB52566F0C054516084CA3A3D7' +
        '1007542A0A694A3E8AC5C2F6ADBEF256428B9772B2CACCFA72425A' +
        'F7D7F6FEDEFEDEC4F2FCEDFAA6A1B2FCEDFABF8ACAD6DEFEDBD7F6' +
        '2C0C375C18A0BFADE1DED8FEA3A3D725134A320B6EA383B4614E89' +
        '38187C3E1467CACCFADBD7F663566A824184A2739BC2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2362238A2739BA2A1C6BACAE6030205' +
        '0E050A6B6E866B6E8604020E04020E9BACE0BEC5F21F1E2D4D3D62' +
        '706684CDD6F6C7CCF604020E0C06229298C36E7E974A4E66A5BEF4' +
        'ADBEF203020592A2D1B4C7FABAC7F60302050402227C8195B4C7FA' +
        '9BACE004020E0402220402220803318997BF828CB9040222080331' +
        '4A4E66A5BEF48997BF0402220402225253859BACE0B4BDF30C0622' +
        '9772B2A6ACD3A2B5EE4E526E0E095C525385A5BEF42820641E0A65' +
        '645A96B5C6F2BEBBEF8242B8CEB4D0FCEDFAA383B4FEDFFAE6C2EA' +
        'FBF6FDEDEBFB8A8592F7F2FDDEC4F2DED8FEB1ADCB653C92C78DE9' +
        'AC94DCC5C2F6928DC026147A451A82BDC6FA7C6EAB451A82493D79' +
        'D6CCFAB5C6F261436C9562B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2362238120508DDD2FEF7F2FD7276970503180E050A' +
        '03020504020E6B6E86BEC5EA6B6E860C06221607105C506DCDD6F6' +
        'BAC7F604020E3A3C50A5BEF41F1E2D363447A5BEF4ADBEF2646785' +
        'A2B5EEADBEF2B5C6F20302050503188997BFB4BDF3828CB9030205' +
        '23142D040222040222A2B5EE4A4E66040222040222828CB9A2B5EE' +
        '727697040222100754777EA99BACE0CACCFA0C0622DFD1FA9397AF' +
        '9BACE05253850C054592A2D16E7E97040222100754947EABB4BDF3' +
        'C5C2F6BFADE1EEE3FEFBF6FDB8A3BEF7D7F6FEFDFEFEFDFEB1ADCB' +
        '796686F4CFECC0B9D3EEE3FEBEBBEF8177B6918CCA70629DB4C7FA' +
        '928DC038187C9185ABAAB5EB0503183E1467816AA6CACCFAB4C7FA' +
        '160710531E68B7A1B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        '3612250E050A52566FE5E4FAD1D4FA30223816093305031852566F' +
        'B5C6F2828CB90302053022380C06221F1E2DC0CEFAADBEF264689B' +
        '9BACE0646785030205030205ADBEF2ADBEF2A5BEF492A2D1A5BEF4' +
        '828CB904020E050318ADBEF2B5C6F26E7E9704020E484457040222' +
        '3A3565A2B5EE4A4E66040222040222828CB9A2B5EE4A4E66040222' +
        '0402229BACE0B6B6D99298C304020EDEC4F270629DA2B5EE8997BF' +
        '8997BF9BACE00402220C0545100754828CB9BFADE1CDD6F6928DA9' +
        'B1ADCBFEFDFEF7F2FDFEFDFEFEFDFEEDEBFB4B43437B529E72425A' +
        'BAA4DAD0CBEEC5C2F6AAB5EB24203F16084CBEC5F2B4C7FA8177B6' +
        'C5C2F63A3C5016084C451A82A594D2AEB4E4AAB5EB0E050A5E2662' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592221315' +
        '0302053A3C50D1D4FAE0E0FEB1ADCBC0B9D3BAC7F6646785030205' +
        '0C062279668604022223142D6E7E97ADBEF2ADBEF2828CB9030205' +
        '03020504020E6E7E97A2B5EE6E7E976E7E978084B08084B03A3C50' +
        '0302058997BF828CB9312E40050318484457050318828CB9828CB9' +
        '72769704020E040222828CB9A2B5EE312E40040222646785828CB9' +
        '8997BF9397AF82769E512F5F04022292A2D1A2B5EE9BACE01F1E2D' +
        '23142D26147A100754525385ADBEF2A6ACD3030205030205A6A1B2' +
        'FBF6FDFEFDFEEDEBFB5E5D69362238824184653C92928DC0A2B5EE' +
        '9BACE03A3C501609331E0A658084B0ADBEF2A2B5EE5253850C0622' +
        '38187C451A827C6EAB8084B06467851F09319562B1C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C296889904020E030205' +
        '1F1E2D3A3C505E5D695E5D6903020503020504020E706684C2C2C2' +
        '6467850C06220503184A4E6636344703020504020E48445704020E' +
        '0302054A4E660302050302050302050302054B434323142D030205' +
        '030205030205484457484457484457030205030205030205484457' +
        '04020E04020E03020504020E04020E312E4003020503020524203F' +
        '4A4E6623142D0402221F1E2D4A4E6604020E04022224203F928DA9' +
        '1E0A651206354A4E6604020E2C0C375E266272425A2A21315E5D69' +
        '1F1E2D2C1E4D5E2662A48CAC7B529E2C1E4D4A4E661F1E2D080331' +
        '4C347F26147A0E095C4A4E661F1E2D0402222812649185AB5C506D' +
        '1D07470C06221F09313D273CC0B2B2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2C2C2C2C2C2C2C2C2C2C0B9D399979C312E40796686221315' +
        '030205030205030205160933948F95C2C2C2C2C2C2C2C2C25E5D69' +
        '24203F1609330302050C0622484457C2C2C25E5D6904020E04020E' +
        '04020E4844574844574844574A4E66484457484457484457484457' +
        '9397AFC2C2C248445748445748445748445752566F484457040222' +
        '0402220402227473824844574D3D625C506DC0B9D3484457A398AA' +
        '1F1E2D080331040222080331282064A6ACD3C2C2C29185AB1D0747' +
        '2808493E14676F2F81A383B4FCEDFAE7CEDFE6C2EA542C38824184' +
        'B8A3BEC2C2C2816AA6451A82482A8638187C423A82A6A1B27C6EAB' +
        '26147A1E0A651E0A651E0A65928DC0C2C2C28177B66B5291785284' +
        '6B5291947EABC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
        'C2C2C2');
end;

procedure AutoLogin;
begin
      begin
           Writeln('Logging in User '+UserName+'.');
           ClickMouse(340,280,True);
           Wait(2500);
      end;
if (LoginScreen) then
    begin
         ClickMouse(100,260,True);
         Wait(500);
         SendKeysSilent(UserName);
         Wait(2000);
         ClickMouse(120,310,True);
         Wait(500);
         SendKeysSilent(PassWord);
         Wait(2000);
         ClickMouse(380,250,True);
         if (Server = 1) then
         begin
              ClickMouse(214,285,True);
         end;
         repeat
               wait (300);
         until (IsTextAt (7, 304, 'Welcome to'));
         wait (2500);
         Writeln('Closing Welcome box.');
         ClickMouse (495,15, True);
         wait (500);
         MoveMouse (10,10);
         wait (500);
    end;
end;

procedure LockedIn;
begin
i:= 0; j:= 0; x:= 0; y:= 0;
MoveMouse (460, 15)
Wait (300);
ClickMouse (432, 133, True);
wait (300);
repeat
      if (FindColorSpiral (x, y, 929884, 1 + j, 1, 500, 320)) or
         (FindColorSpiral (x, y, 415860, 1 + j, 1, 500, 320)) or
         (FindColorSpiral (x, y, 1859768, 1 + j, 1, 500, 320)) or
         (FindColorSpiral (x, y, 1327248, 1 + j, 1, 500, 320)) or
         (FindColorSpiral (x, y, 663624, 1 + j, 1, 500, 320)) then
         begin
              MoveMouse (x, y);
              wait (200);
              if (IsTextAt (6, 2, 'Door: Open')) then
              begin
                   ClickMouse (x, y, True);
                   wait (1000);
              end;
         end;
      i:= i + 1;
      if (i = 3) then
      begin
           i:= 0;
           j:= j + 50;
      end;
wait (100);
until (j > 501) or (IsTextAt (7, 304, 'The door'));
writeln ('Locked in Check Complete. Continue with Autoing.');
end;

Procedure EatLobster;
begin
      i:= 0;
      j:= 0;
      repeat
      MoveMouse (495, 15);
      wait (500);
           if (FindBitmap (Lobster, x, y)) then
           begin
                i:= 1;
                writeln ('Eating Lobster.');
                ClickMouse (x, y, True);
                wait (300);
           end;
      wait (500);
      j:= j + 1;
      until (i = 1) or (j = 15);
      if (j = 15) then
      begin
           MoveMouse (10, 10);
           wait (300);
           writeln ('Lobsters gone. Waiting 3 seconds and logging off.');
           status ('Program Terminated - by Scarmeister 2004!');
           wait (3000);
           MoveMouse (325, 20);
           wait (300);
           ClickMouse (325, 282, True);
           wait (300);
           repeat
                 wait (500);
           until (False);
      end;
MoveMouse (10, 10);
wait (100);
end;

procedure CheckHealth;
begin
      MoveMouse (425, 20);
      wait (300);
      CurrentHits:= GetTextAt (318, 112);
      wait (300);
      MoveMouse (10, 10);
      wait (300);
      ActualHp:= StrToInt (copy (CurrentHits, 6, 2));
      if (ActualHp < EatHp) then
         begin
              writeln ('Looking for Lobster.');
              EatLobster;
         end;
end;

procedure Sleep;
begin
    i:= 0;
    MoveMouse (490, 15)
    Wait (300);
      ClickMouse (BagX, BagY, True);
      Wait(2000)
      repeat
            i:= i + 1;
            wait (50);
            if (i = 400) then
               begin
                    i:= 0;
                    ClickMouse (180, 300, True);
                    wait (300);
                    Writeln ('Trying again for a new word.');
               end;
      until (IsTextAt (7, 304,'You wake up')) or
            (IsTextAt (7, 304,'You are unexpectedly awoken')) or
            (IsTextAt (7, 304,'You can t do that whilst')) or
            (GetColor (167,41) <> 65535);
   MoveMouse(10,10)
   wait (10);
end;

procedure FindBag;
begin
    writeln ('Searching for sleeping bag.');
      repeat
      MoveMouse (495, 15);
      wait (500);
      if (FindColorSpiral (x, y, 4026013, 265, 25, 505, 240)) then
         begin
              MoveMouse (x, y);
              wait (500);
              if (IsTextAt (6, 2, 'Sleeping Bag')) then
              begin
                   writeln ('Sleeping bag found - Storing coordinates.')
                   BagX:= x;
                   BagY:= y;
                   i:= 1;
              end;
         MoveMouse (10, 10);
         wait (50);
         end;
      until (i = 1);
end;

Procedure FindObjectOnMap;
begin
    i:= 0; j:= 0;
      writeln ('Searching for '+SObjectName+' on MiniMap.');
      repeat
      if (j = 10) and (LockedIn2 = 1) then
      begin
           j:= 0;
           writeln ('Possibly Locked in. Checking all Closed Doors.');
           LockedIn;
      end;
            MoveMouse (460, 20);
            wait (200);
            if (FindColorSpiral (x, y, SObject, 422, 103, 441, 122)) then
            begin
                 writeln ('In vicinity of '+SObjectName+', switching to Attack Mode.');
                 i:= 1;
            end;
            if (FindColorSpiral (x, y, SObject, 432-a, 113-b, 432+a, 113+b)) then
            begin
                 j:= j + 1;
                 ClickMouse (x, y, True);
                 wait (200);
            end;
      wait (100);
      until (i = 1);
    MoveMouse (10, 10);
    wait (250);
end;

procedure CheckMessage;
begin
      i:= 0; j:= 0; x:= 0; y:= 0;
      MoveMouse (10, 10);
      wait (50);
      if (IsTextAt (7, 304, 'You are too')) then
      begin
           writeln ('Going to sleep.');
           Sleep;
           wait (50);
      end;
      if (GetColor (85, 140) = 3472636) and
         (GetColor (500, 215) = 0) then
         begin
              writeln ('Starting login procedure.');
              AutoLogin;
         end;
      if (IsTextAt (7, 268, 'I can t get close')) or
         (IsTextAt (7, 280, 'I can t get close')) or
         (IsTextAt (7, 292, 'I can t get close')) then
      begin
           writeln ('AutoLike Behaviour Prevention - Waiting for 5 seconds.');
           wait (5000);
      end;
      if (IsTextAt (7, 304, 'I can t get close')) and ((FreeMonster = 'Activated') or (MiniSearch = 1)) then
      begin
           FindObjectOnMap;
      end;
end;

procedure CheckFightMode;
begin
      Look:= 0; Timer:= 0;
      f:= GetFightMode;
      if (f = Mode) then
      begin
           repeat
                 f:= GetFightMode;
                 wait (100);
           until (f = 0);
           if (Eating = 1) then
           begin
                writeln ('Checking if we need to eat.');
                CheckHealth;
           end;
      end else
      begin
           Writeln('Choosing Right FightMode.');
           ClickMouse(100, 25 + (20 * Mode), True);
           wait (300);
      end;
end;

procedure GetMonster;
begin
      if (MonsterName <> 'Other Monster') then
      begin
           if (MonsterName = 'Barbarian') then
           begin
                MonsterColor1:= 2175372;
           end;
           if (MonsterName = 'Bear') then
           begin
                MonsterColor1:= 9834;
           end;
           if (MonsterName = 'Black Knight') then
           begin
                MonsterColor1:= 723723;
           end;
           if (MonsterName = 'Chicken') then
           begin
                MonsterColor1:= 16185078;
           end;
           if (MonsterName = 'Cow') then
           begin
                MonsterColor1:= 14342875;
           end;
           if (MonsterName = 'Darkwizard') then
           begin
                MonsterColor1:= 3618615;
           end;
           if (MonsterName = 'Deadly Red Spider') then
           begin
                MonsterColor1:= 2629761;
           end;
           if (MonsterName = 'Dwarf') then
           begin
                MonsterColor1:= 594799;
           end;
           if (MonsterName = 'Ghost') then
           begin
                MonsterColor1:= 7039752;
           end;
           if (MonsterName = 'Giant') then
           begin
                MonsterColor1:= 65536;
           end;
           if (MonsterName = 'Giant Spider') then
           begin
                MonsterColor1:= 1786198;
           end;
           if (MonsterName = 'Goblin') then
           begin
                MonsterColor1:= 251224;
           end;
           if (MonsterName = 'Guard') then
           begin
                MonsterColor1:= 733305;
           end;
           if (MonsterName = 'Hobgoblin') then
           begin
                MonsterColor1:= 250968;
           end;
           if (MonsterName = 'Ice Giant') then
           begin
                MonsterColor1:= 13082964;
           end;
           if (MonsterName = 'Ice Warrior') then
           begin
                MonsterColor1:= 13411668;
           end;
           if (MonsterName = 'Lesser Demon') then
           begin
                MonsterColor1:= 202;
           end;
           if (MonsterName = 'Moss Giant') then
           begin
                MonsterColor1:= 10667995;
           end;
           if (MonsterName = 'Mugger') then
           begin
                MonsterColor1:= 204;
           end;
           if (MonsterName = 'Pirate') then
           begin
                MonsterColor1:= 6274750;
           end;
           if (MonsterName = 'Rat') then
           begin
                MonsterColor1:= 7159865;
           end;
           if (MonsterName = 'Scorpion') then
           begin
                MonsterColor1:= 424386;
           end;
           if (MonsterName = 'Skeleton') then
           begin
                MonsterColor1:= 16447223;
           end;
           if (MonsterName = 'Unicorn') then
           begin
                MonsterColor1:= 16119285;
           end;
           if (MonsterName = 'Warrior') then
           begin
                MonsterColor1:= 7500402;
           end;
           if (MonsterName = 'White Knight') then
           begin
                MonsterColor1:= 6250335;
           end;
           if (MonsterName = 'Wizard') then
           begin
                MonsterColor1:= 15532032;
           end;
           if (MonsterName = 'Zombie') then
           begin
                MonsterColor1:= 16504238;
           end;
      end;
      if (Cols = 0) then
      begin
           MonsterColor2:= MonsterColor1;
           MonsterColor3:= MonsterColor1;
      end;
      if (Cols = 1) then
      begin
           MonsterColor2:= MonsterColor1;
           MonsterColor3:= MonsterColor1;
      end;
      if (Cols = 2) then
      begin
           MonsterColor3:= MonsterColor1;
      end;
end;

begin
status ('MeisterFighter V1.3 - by Scarmeister!');
BitMapInitialise; Initialise; GetMonster;
CheckMessage; FindBag; Look:= 0; Timer:= 0;

repeat
f:= GetFightMode;
      if (Look > 2) and (LockedIn2 = 1) then
      begin
           Look:= 0; Timer:= 0;
           writeln ('Possibly Locked in. Checking all Closed Doors.');
           LockedIn;
      end;
      if (Timer > 25) and (MiniSearch = 1) then
      begin
           Look:= 0; Timer:= 0;
           FindObjectOnMap;
      end;
if (f = 0) then
begin
      i:= 0; j:= 0; x:= 0; y:= 0;
      if (FindColorSpiral2 (x, y, MonsterColor1, 1, 1, 304, 325)) or
         (FindColorSpiral2 (x, y, MonsterColor1, 305, 36, 510, 325)) or
         (FindColorSpiral2 (x, y, MonsterColor2, 1, 1, 304, 325)) or
         (FindColorSpiral2 (x, y, MonsterColor2, 305, 36, 510, 325)) or
         (FindColorSpiral2 (x, y, MonsterColor3, 1, 1, 304, 325)) or
         (FindColorSpiral2 (x, y, MonsterColor3, 305, 36, 510, 325)) then
      begin
      if (Click = 'Left') then
      begin
           ClickMouse (x, y, True);
      end;
      if (Click = 'Right') then
      begin
           ClickMouse (x, y, False);
      end;
           wait (200);
           if (FindBitmap (Attack, x, y)) then
           begin
                ClickMouse (x+2, y+2, True);
                wait (250);
                writeln (Monster+' found and attacking it.');
                repeat
                      f:= GetFightMode;
                      i:= i + 1;
                      wait (50);
                until (i = 100) or (f > 0) or
                      (IsTextAt (7, 304, 'I can t get close'));
           end;
      end;
      if (i = 100) then
      begin
           Look:= Look + 1;
      end;
end else
     begin
          CheckFightMode;
     end;
     CheckMessage;
     Timer:= Timer + 1;
wait (300);
until (False);
end.

Shit!

Bill Gates once said "Who could possibly use more than 1MB of memory?".


Lol @ Him.

I got an old Solemn Wishes script :) Thats about it.

The oldest scar thing I have are scar 2.03 and about 5 scripts for it.

Removed by request of benleegt

I dunno? I think there are more ancients one i have.

From: R0b0t1
Shit!

Bill Gates once said "Who could possibly use more than 1MB of memory?".


Lol @ Him.

Xerox used to be the largest computer barren out there before apple and microsoft started and here is what they said to the inventor of the mouse "Who would ever use something called a mouse"

Also this is what IBM said to bill gates "What in the world would ordinary people want a computer for"

LOL @ Them more…

Watch "Pirates of silicon valley" if you don't believe me..

Also back ont opic I attached my oldest scripts

Also added original SRL 11 from when SRL was private

From: R0b0t1
Shit!

Bill Gates once said "Who could possibly use more than 1MB of memory?".


Lol @ Him.

he said 768k memory:D

I think earliest. (Which i actually cant find at the moment) Is odies autofighter first version. Or first version of jokers ess miner. Or maybe his firelighter. Either or

Lololol, sythe autofighter ftw!

It painted on the runescape client screen! O.o

"Looking for a cow…"
"Times not found: 2147483647"

EDIT:

SRL11.rar (258.0 KB)

ROFL! :p

EDIT EDIT: It had 5 views! Someone is leeching it!

Eh, the script kingarabian posted wasn't made by me! It's identity thieft I tell you… If any mods/admins on this forum still respects ahm.. morality, I sincerely request for it to be removed or at least to have benleegt censored out.

Identity thieft - Not kingarabian but the guy who made the script in the first place and plastered my name on it.

Done,
I was gonna just edit out your name but it showed up too many times. There were even procedures and stuff with your name and I didn't feel like rewriting the script…

Sythes oldie :p.

From: benleegt
Eh, the script kingarabian posted wasn't made by me! It's identity thieft I tell you… If any mods/admins on this forum still respects ahm.. morality, I sincerely request for it to be removed or at least to have benleegt censored out.

Identity thieft - Not kingarabian but the guy who made the script in the first place and plastered my name on it.

Wait… You're not that benleegt?

From: BenLand100
Wait… You're not that benleegt?

I'm getting more and more confused by this.

1. Usually people plaster their name in scripts and post as their own, opposite happened here.

2. There are multiple benleegts!?!?!

From: Hobbit
I'm getting more and more confused by this.

1. Usually people plaster their name in scripts and post as their own, opposite happened here.

2. There are multiple benleegts!?!?!

I don't know…
From KYAB Member application:

Are you an SRL-MEMBER? - Forsanthyde is not an SRL member. (I'm trying to transfer stuff into this new monika though, was benleegt of the past)

Forsanthyde?


Maybe he had shame because it was too basic or whatever :p

I wrote Karamja powerfisher but not that =)

From: benleegt
I wrote Karamja powerfisher but not that =)

Just my notice:
[Totally offtopic] Peoples were getting to devs or members very easily at the past?
I'v looked older applications and self-intructioning(<-spelled wrong 100%) letters, most of them who registered right away when site was made had member status already…:)]

Maybe post your powerfisher here? :rolleyes:

Yes, I will, as soon as I get my tablet back(estimated 2-3 more days). :)

From: Negaal
had member status already…:)

:rolleyes:


Thats probably back from SRL's Private days… :rolleyes:

From: NaumanAkhlaq
Sythes oldie :p.

While i was looking for a runescape bot a came along that program lol! and lots of other sythe stuff.

http://img101.imageshack.us/img101/5306/lolri9.jpg
….

Benleegt was already a member here when i joined. Wait no he was already a developer. He was a dev before these forums were made so…

{=========Power-Fisher at kamaraja v5.0 lite=========
Get your boxopener from aklo.cjb.com or pm akumara...

Disclaimer:I am in no way affilated with aklo/aku...etc...

Its working cause, I tried it, but for a while only
so if you find any bugs, contact me(my contact details below)

1.Choose low-detail
2.Pick and enter all the colours.
3.Fishing equipment must be in 1st inventory slot.
4.No anti-rands at all...

Version history
v1.0-level 2 release on socube
v2.0-Fixed some problems
v3.0-Fixed more problems.
v4.0-Took away many map tuing stuff and changed anti-whirlpool event
v5.0-No diff but released publicly on rscl(lite version)

Level 2 version of this script-
1)Full anti-rands

Level 3 version of this script-
1)Adding cooker, will chop trees(using gussy's chopper)

Credits:
1)pplsuqbawlz for PAr.
2)dsgamer for some procedures.
3)killerbz for his boxopener.
4)Phalanx for his progress report
4)Odie fer his OSi.

-=-=-=-=-=-Contact details=-=-=-=-=-=
A quality script by benlegt. Please direct all questions to [email]benleegt@yahoo.co.uk[/email]
or rscl or [url]http://socube.here.ws[/url]
=============I love Chong Jasmin========================}
program kamarajapowerfisher;
var tree,flag12,ix,iy,white,yellow12:Integer;

const
{minimap}
{===== general ====}
username=''; //Duh...your username
password=''; //Duh...your password

{===== fishing type =====}
fishtype=2; //1 for Caging Lobsters, 2 for Harpooning Tuna and Swordies!

{===== anti random related =====}
{=-=-=-Nil for lite version=-=-=-}

{===== fishing related =====}
splashcolour1=15980736; //Light blue splash color on GAMESCREEN!
splashcolour2=15515800; //Light white splash color on GAMESCREEN!

{.include OSi.txt}
{.include PAr.txt}
{.include BoxOpener.txt}
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure benleegtmouse(ex,ey : Integer; Truth : String; waitamount:Integer);//By benleegt
begin
MoveMouseSmoothEx(ex,ey,1,2,20,17,3)
getmousepos(ex,ey)
If ( truth = 'left')then clickmouse(ex,ey,true)
If ( truth = 'right')then clickmouse(ex,ey,false)
If ( truth = 'false')then
wait(waitamount+Random(40))
end;

procedure Flagwait;
begin
  repeat
   wait(500+random(100));
  until(not (FindBitmapIn(flag12,x,y,562,9,751,179)));
   wait(100+random(100));
end;

procedure declear;
begin
flag12 := BitmapFromString(2, 8,
       'C656045D3311C656045D3311C656045D3311C656045D3311C65604' +
       '5D3311C656045D3311C656045D3311C656045D3311');//Bmp by benleegt
tree := BitmapFromString(1, 5,
       '6D52176D5217855716855716855716');
end;

procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
if(IsTextAt2(293,251,'Username',10))then
  begin
   Mouse(460,322,10,2,true);
   Wait(500+random(500));
  end;
if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
  begin
   Mouse(400,280,125,20,true);
   Wait(200+random(100));
   if(IsTextAt2(293,251,'Username',50))then
   begin
    status('Logging in');
    Mouse(400,256,20,5,true);
    Wait(50+random(25));
    SendKeysSilentsmooth(username,50);
    Wait(50+random(25));
    Mouse(400,270,20,5,true);
    Wait(50+random(25));
    SendKeysSilentsmooth(password,50);
    Wait(400+random(100));
    Mouse(300,322,20,5,true);
    repeat
     counter:=counter+1
     wait(100);
    until(FindColorSpiral(x,y,8421504,0,0,515,338))or(counter=60)
    if(FindColorSpiral(x,y,8421504,400,0,515,338))then
    begin
     wait(100+random(100));
     Mouse(x,y,2,1,true);
     wait(100+random(100));
     sendarrowsilentwait(0,900+random(200))
     wait(200+random(100))
    end;
   end;
  end;
end;

procedure setuptypes;//By dsgamer
begin
if(fishtype=1)then
     begin
          white := BitmapFromString(20, 7,
       'FFFFFFFFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFFFF000000FFFFFFFFFFFF5D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54470000000000005D5447000000000000' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54470000005D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447000000' +
       '5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
       'FFFFFF5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
       '5D54470000005D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
       '5D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF');//bmp by dsgamer
yellow12 := BitmapFromString(20, 7,
       'FFFF00FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFF00000000FFFF00FFFF005D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54470000000000005D5447000000000000' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54470000005D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447000000' +
       '5D54475D54475D54475D54475D54475D5447FFFF00FFFF00FFFF00' +
       'FFFF005D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF00' +
       '5D54470000005D54475D54475D54475D54475D5447FFFF00FFFF00' +
       '000000000000FFFF00FFFF005D54475D5447FFFF00FFFF00000000' +
       '000000FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
       '5D5447FFFF00FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D5447FFFF00FFFF00');//bmp by dsgamer
     end;
if(fishtype=2)then
     begin
white := BitmapFromString(20, 7,
       'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF5D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000005D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF000000000000');//bmp by dsgamer
yellow12 := BitmapFromString(20, 7,
       'FFFF00FFFF005D54475D5447FFFF00FFFF005D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF00FFFF00FFFF000000005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF005D54475D54475D5447FFFF00FFFF00FFFF00' +
       'FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000005D5447' +
       'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF00FFFF00000000FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF00000000000000');//bmp by dsgamer
     end;
end;

procedure benfish;
var i,bb,b1,b2,b3,b4,beri,beri2:Integer;
splashcolored : ARRAY [1..2] of integer;
begin
bb:=1
b1:=0
b2:=30
i:=0
splashcolored[1]:=splashcolour1
splashcolored[2]:=splashcolour2
repeat
FindStrangeBox;
If(b1>450)then b1:=0
If(b2>335)then b2:=0
b3:=b1+50
b4:=b2+50
If(findcolorspiraltolerance(x,y,splashcolored[1],b1,b2,b3,b4,20)) or findcolorspiraltolerance(x,y,splashcolored[2],b1,b2,b3,b4,20)then
begin
movemousesmooth(x,y)
wait(700)
If(Istextat2(9,9,'Ca',150))then
begin
clickmouse(x,y,false)
wait(1000)
if(findbitmapin(white,ix,iy,10,37,515,335))then
begin
clickmouse(ix,iy,true)
flagwait;
beri:=1
repeat
wait(100)
beri:=beri+1
If(getcolor(247,443)=16711680)then beri:=2000
until(beri>250)
end else
if(findbitmapin(yellow12,ix,iy,10,37,515,335))then
begin
flagwait
clickmouse(ix,iy,true)
beri2:=1
repeat
wait(100)
beri2:=beri2+1
If(getcolor(247,443)=16711680)then beri2:=2000
until(beri2>250)
end;
end
wait(20)
end;
status('Current mouse coords ' + inttostr(b1)+','+inttostr(b2)+','+inttostr(b3)+','+inttostr(b4))
b1:=b1+50
b2:=b2+50
bb:=bb+1
If(bb>70)then
begin
b1:=0
b2:=30
end;
until(getcolor(247,443)=16711680)
end;

procedure dropfish;//by dsgamer
begin
 writeln('Inventory full, Drop time!')
 Autodrop('Use Raw')
 end;

begin
SetMouseMode(false)
writeln('Great script by benleegt.')
SetMouseMode(False);
setuposi
setuptypes
BoxOpenerSetup;
repeat
loginifneeded
benfish;
dropfish;
wait(100)
until(false)
end.

Gotta love "A quality script by benlegt" ? ^^.

I believe the hardest part of that script was dividing the screen into boxes then looking for colours in them, cause you have to understand in those days we had no dtms, no TPAs, and no colour based findobject and so we had to do all these manually. Heck, scar plugins weren't even reality then.

That's the public version though (lite) :) When I get my tablet back I'll post PRO. :D

man, all my old stuff is on a computer we gave away, ill see if i can get on it and post some stuff for RSC. :) and i was here when it was private… :) i thank home.

I actually do have PRO, benleegt. Plz don't kill me <3

{
To run this file, you need some includes never before seen, you could try to make your own, or get the full ready-made script in a .zip format at
[url]http://www.socube.here.ws[/url] .
{=========Power-Fisher at kamaraja v11.0=========

Its working cause, I tried it, but for a while only
so if you find any bugs, contact me(my contact details below)

Input your username and password into pess.txt;
1.Choose low-detail
2.Pick and enter all the colours.
3.Fishing equipment must be in 1st inventory slot.
4.Bring some food(heal at least 12hp/hour)
So like u wanna use this for 12hours,
then bring at least 12 tuna, or any food that heals above 12hp.

Version history
v1.0-level 2 release on socube
v2.0-Fixed some problems
v3.0-Fixed more problems.
v4.0-Took away many map tuneing stuff and changed anti-whirlpool event
v5.0-No diff but released publicly on rscl as lite version
v6.0-Made anti-rands much better and changed abit of tolerance.
Added some thought for cooker, but evaded the idea
due to lack of paths.
v7.0 - changed alot of stuff.
v8.0b - Added support for graphical report.
v9.0 - Removed PAr 1.0 support and added support for PAr 2.0
v9.0b - I changed some mouse coords so that you will remain at
the same spot. So I changed timist to another category
v9.0c - Fixed many minor bugs.
v10.0 - Added eating function.
v11.0 - Fixed more bugs, and added selling to gen store
function and now script show wat its doing if you
use graphical report.

Future iof this script
1)A bait remaining counter
2)An option to sell the fish you caught to gen store.

Level 3 version of this script-
1)May be adding cooker, will chop trees(using gussy's chopper)

Credits:
1)pplsuqbawlz for PAr 2.0 and his library and his graphical report.
2)dsgamer for some procedures, quite abit of advice and alot of
beta testing.
3)Odie fer his OSi.
3)Odie for his boxbreaker.
4)Phalanx for his progress report.

-=-=-=-=-=-Contact details=-=-=-=-=-=
A quality script by Benleegt. Please direct all questions to [email]benleegt@yahoo.co.uk[/email]
or rscl or [url]http://socube.here.ws[/url]
=============I love Chong Jasmin========================}
program kamarajaantirands;
var tree,flag12,ix,iy,equip,white,yellow12,ax,ay,
whirlpoolno,runno,fishno,timer,pickno,techno,InvNumber,temp,diff:Integer;
fish,action:String ;

const
{Remember to input your username and pass into pess.txt}

{===== Do not bother about this unless you are using
                     the sell feature ====}
{All minimap}
muddyroad = 1140117; //The road running through kamaja.
potty = 1859758; //Gen store logo
apron = 5663104; //Brown apron store keeper wears

{===== fishing type =====}
fishtype=2; //1 is cage, 2 is harpoon, 3 is net

{===== anti random related =====}
fishlogo = 1853532;//the fish logo.(Minimap)
red_dot = 241;//The red dot on the minimap when an item is on the ground.(Minimap)
trees = 3637068;//The colour of the trees(minimap.)

{===== fishing related =====}
splashcolour1=15515808; //Light blue splash color on GAMESCREEN!
splashcolour2=16576744; //Light white splash color on GAMESCREEN!

{==== Control Panel =====}
fishtodrop = 'Raw'; //The caption of the fish u wanna drop, if u want it to drop all fishes, change this to 'Raw'
graphicreport = 'true'; //True or false, simple, by pplsuqbawlz.
Drop_or_sell = 'Drop'; //(Sell not working now)Whether to drop or to sell, to sell, change this to 'Sell'

{==== Do not touch ===}
mama = 1000; //Set time to wait while fishing to change spot. In miliseconds

{.include OSi.txt}
{.include pess.txt}
{.include parinclude.txt}
{.include Boxbreaker.txt}
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure currently;
begin
SendInterSCARMessage('currently','Currently: '+Action)
end;

procedure benleegtmouse(ex,ey : Integer; Truth : String; waitamount:Integer);//By benleegt
begin
MoveMouseSmoothEx(ex,ey,1,2,20,17,3)
getmousepos(ex,ey)
If ( truth = 'left')then clickmouse(ex,ey,true)
If ( truth = 'right')then clickmouse(ex,ey,false)
If ( truth = 'false')then
wait(waitamount+Random(40))
end;

procedure Flagwait;
begin
  repeat
   wait(500+random(100));
  until(not (FindBitmapIn(flag12,x,y,562,9,751,179)));
   wait(100+random(100));
end;

Procedure LogOut1(why:string);
begin
  Writeln(' ');
  Writeln(why);
  Writeln(' ');
  Wait(100+random(10));
  Loged:=true;
  Mouse(635,470,25,20,true);
  Wait(100+random(10));
  Mouse(586,370,119,10,true);
  GetMousePos(x,y);
  repeat
  wait(5000);
  until(false)
end;

function getequipmentcolour:Integer;//By benleegt
begin
Openbag;
If(fishtype=1) then result:=getcolor(581,233)
If(fishtype=2) then result:=getcolor(581,232)
If(fishtype=3) then result:=getcolor(589,228)
end;

procedure checkequipment;//By benleegt
begin
action:= 'Finding lost equipment'
currently;
pickno:=pickno+1
writeln('Emergency, lost equipment')
if(findcolorspiraltolerance(ix,iy,equip,5,144,360,515,5))then
begin
clickmouse(ix+1,iy,true)
wait(2000)
end;
repeat
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff=0)then break
if(findcolor(x,y,red_dot,556,2,727,155))then
begin
benleegtmouse(x,y+5,'left',200)
flagwait
wait(500)
if(findcolorspiraltolerance(ix,iy,equip,189,86,360,105,5))then
begin
clickmouse(ix+1,iy,true)
wait(2000)
temp:=getequipmentcolour;
If(equip=temp)then break
end;
wait(100)
end;
wait(100)
temp:=getequipmentcolour;
until(equip=temp)
findcolor(ix,iy,fishlogo,631,2,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
end;

{==== Eating/health check procedures ==== }

procedure SetCords;  //From nick's powerfisher
begin
Case InvNumber of
   28: begin ax:=705; ay:=435; end;
   27: begin ax:=655; ay:=435; end;
   26: begin ax:=610; ay:=435; end;
   25: begin ax:=575; ay:=435; end;
   24: begin ax:=705; ay:=400; end;
   23: begin ax:=655; ay:=400; end;
   22: begin ax:=610; ay:=400; end;
   21: begin ax:=575; ay:=400; end;
   20: begin ax:=705; ay:=370; end;
   19: begin ax:=655; ay:=370; end;
   18: begin ax:=610; ay:=370; end;
   17: begin ax:=575; ay:=370; end;
   16: begin ax:=705; ay:=330; end;
   15: begin ax:=655; ay:=330; end;
   14: begin ax:=610; ay:=330; end;
   13: begin ax:=575; ay:=330; end;
   12: begin ax:=705; ay:=295; end;
   11: begin ax:=655; ay:=295; end;
   10: begin ax:=610; ay:=295; end;
   9:  begin ax:=575; ay:=295; end;
   8:  begin ax:=705; ay:=260; end;
   7:  begin ax:=655; ay:=260; end;
   6:  begin ax:=610; ay:=260; end;
   5:  begin ax:=575; ay:=260; end;
   4:  begin ax:=705; ay:=220; end;
   3:  begin ax:=655; ay:=220; end;
   2:  begin ax:=624; ay:=227; end;
   1:  begin ax:=575; ay:=220; end;
   end;
end;

procedure use(ix,iy : Integer; check : String);
begin
benleegtmouse(ix,iy,'false',100)
wait(100)
if(istextat2(9,9,check,150))then
begin
clickmouse(ix,iy,true)
end;
benleegtmouse(ix+200+Random(20),iy+200+Random(20),'false',0)
end;

procedure eatfood;
var hper,invloc :Integer;
begin
action:= 'Eating'
currently
InvLoc:=0;
OpenBag;
repeat
setcords;
  MoveMouseSmooth(ax,ay);
  wait(150+random(30));
  use(ix,iy,'Ea')
  Invnumber:=InvLoc+1;
hper := gethp;
begin
If(hper<=50)then
begin
end else
if(hper>=100)then
begin
break
end;
end;
invloc:=invloc+1
If(invLoc>26)then
begin
If(hper<=50)then
begin
logout1('Outta o food...');
end;
end;
until(InvLoc>=28)
end;

procedure checkhealth;
var hper:integer;
begin
action:= 'Checking Health Left'
currently
hper := gethp;
If(hper<=80)then
begin
eatfood;
end else
end;

{==== End of Eating/health check procedures ==== }

procedure runaway; //By benleegt
begin
action:= 'Running Away'
currently
writeln('OMG, fight encountered')
setRun(True);
findcolor(ix,iy,trees,627,130,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
setRun(false);
wait(5000)
findcolor(ix,iy,fishlogo,631,2,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
checkhealth
end;

procedure antifight;//By benleegt
begin
if(findcolor(ix,iy,65280,222,114,304,195)) and (findcolor(ix,iy,255,222,114,304,195))then
begin
runno:=runno+1
If(techno=0) then runaway; techno:=techno+1
end;
end;

procedure totalrandcheck;//By benlegt
begin
antifight;
CheckPAR;
end;

procedure declear;
begin
flag12 := BitmapFromString(2, 8,
       'C656045D3311C656045D3311C656045D3311C656045D3311C65604' +
       '5D3311C656045D3311C656045D3311C656045D3311');//Bmp by benleegt
tree := BitmapFromString(1, 5,
       '6D52176D5217855716855716855716');

end;

procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
action:= 'Logging In if needed'
currently
if(IsTextAt2(293,251,'Username',10))then
  begin
   Mouse(460,322,10,2,true);
   Wait(500+random(500));
  end;
if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
  begin
   Mouse(400,280,125,20,true);
   Wait(200+random(100));
   if(IsTextAt2(293,251,'Username',50))then
   begin
    status('Logging in');
    Mouse(400,256,20,5,true);
    Wait(50+random(25));
    sendkeyssilentsmooth(username,50);
    Wait(50+random(25));
    Mouse(400,270,20,5,true);
    Wait(50+random(25));
    sendkeyssilentsmooth(password,50);
    Wait(400+random(100));
    Mouse(300,322,20,5,true);
    repeat
     counter:=counter+1
     wait(100);
    until(FindColorSpiral(x,y,8421504,0,0,515,338))or(counter=60)
    if(FindColorSpiral(x,y,8421504,400,0,515,338))then
    begin
     wait(100+random(100));
     Mouse(x,y,2,1,true);
     wait(100+random(100));
     sendarrowsilentwait(0,900+random(200))
     wait(200+random(100))
    end;
   end;
  end;
end;

procedure setuptypes;//By dsgamer
begin
if(fishtype=1)then
     begin
     fish:='C'
          white := BitmapFromString(32, 6,
       'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
       '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
       '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000000000');//bmp by benleegt
yellow12 := BitmapFromString(20, 7,
       'FFFF00FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFF00000000FFFF00FFFF005D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54470000000000005D5447000000000000' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54470000005D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447000000' +
       '5D54475D54475D54475D54475D54475D5447FFFF00FFFF00FFFF00' +
       'FFFF005D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF00' +
       '5D54470000005D54475D54475D54475D54475D5447FFFF00FFFF00' +
       '000000000000FFFF00FFFF005D54475D5447FFFF00FFFF00000000' +
       '000000FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
       '5D5447FFFF00FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D5447FFFF00FFFF00');//bmp by dsgamer
     end;
if(fishtype=2)then
     begin
     fish:='C'
white := BitmapFromString(51, 3,
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '');//bmp by benleegt
yellow12 := BitmapFromString(20, 7,
       'FFFF00FFFF005D54475D5447FFFF00FFFF005D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF00FFFF00FFFF000000005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF005D54475D54475D5447FFFF00FFFF00FFFF00' +
       'FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000005D5447' +
       'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF00FFFF00000000FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF00000000000000');//bmp by dsgamer
     end;
If(fishtype=3)then
begin
fish:='N'
white := BitmapFromString(20, 7,
       'FFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
       '0000005D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       'FFFFFFFFFFFF0000005D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF0000005D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D5447FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000005D54475D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF' +
       'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF000000');//bmp by dsgamer
yellow12 := BitmapFromString(20, 7,
       'FFFF00FFFF005D54475D54475D5447FFFF00FFFF005D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFF00FFFF00FFFF005D54475D5447FFFF00FFFF00' +
       '0000005D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
       'FFFF00FFFF000000005D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D5447FFFF00FFFF00000000FFFF00FFFF00FFFF00' +
       'FFFF00000000FFFF00FFFF000000005D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D5447FFFF00FFFF00000000FFFF00' +
       'FFFF00000000FFFF00FFFF00FFFF00FFFF000000005D54475D5447' +
       'FFFF00FFFF00FFFF00FFFF005D54475D54475D5447FFFF00FFFF00' +
       'FFFF00FFFF00FFFF00000000FFFF00FFFF00FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447' +
       'FFFF00FFFF00000000FFFF00FFFF00000000FFFF00FFFF00FFFF00' +
       'FFFF000000005D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF00000000');//bmp by dsgamer
end;
if(fishtype=4)then
       begin
fish:='N'
white := BitmapFromString(20, 7,
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF0000000000005D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447000000000000' +
       '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '5D5447FFFFFFFFFFFF0000005D5447');
yellow12 := BitmapFromString(20, 7,
       'FFFF00FFFF00FFFF00FFFF00FFFF005D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D5447FFFF00FFFF00000000000000FFFF00FFFF005D5447' +
       '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D54475D54475D5447FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
       '5D54475D54475D54475D5447FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF00FFFF000000000000005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF005D54475D54475D54475D5447000000000000' +
       '5D5447FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447' +
       'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF005D54475D5447FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000' +
       '5D5447FFFF00FFFF000000005D5447');
       end;
end;

procedure antiwhirlpool(b1,b2,b3,b4:Integer);//Use in fishing procedure--By benleegt
begin
action:= 'Finding Whirlpools'
currently
If(findcolorspiraltolerance(ix,iy,13288386,b1,b2,b3,b4,3) and findcolorspiraltolerance(ix,iy,13158085,b1,b2,b3,b4,3))then
begin
action:= 'Whirlpool found! Waiting'
currently
writeln('Whirlpool spotted.')
findcolor(x,y,fishlogo,597,36,695,125)
benleegtmouse(x+2,y,'left',2000)
wait(10000)
whirlpoolno:=whirlpoolno+1
end;
end;

procedure benfish;
var i,bb,b1,b2,b3,b4,beri,beri2:Integer;
splashcolored : ARRAY [1..2] of integer;
begin
bb:=0
b1:=259
b2:=168
totalrandcheck;
i:=0
splashcolored[1]:=splashcolour1
splashcolored[2]:=splashcolour2
repeat
action:= 'Finding Fishing Spot'
currently
loginifneeded
antifight;
totalrandcheck;
action:= 'Finding Fishing Spot'
currently
FindBox;
If(b1>450)then b1:=100
If(b2>335)then b2:=38
b3:=b1+20
b4:=b2+20
If(findcolorspiraltolerance(x,y,splashcolored[1],b1,b2,b3,b4,5)) or findcolorspiraltolerance(x,y,splashcolored[2],b1,b2,b3,b4,20)then
begin
antiwhirlpool(232,115,306,185)
benleegtmouse(x,y,'false',0)
wait(700)
If(Istextat2(9,9,fish,100))then
begin
clickmouse(x,y,false)
wait(300)
{===============White===========}
if(findbitmapin(white,ix,iy,0,0,515,335))then
begin
action:= 'Fishing'
currently
clickmouse(ix,iy,true)
flagwait;
antifight;
beri:=1
repeat
antifight;
loginifneeded;
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
totalrandcheck;
antifight;
antiwhirlpool(232,115,306,185)
wait(100)
beri:=beri+1
If(getcolor(247,443)=16711680)then beri:=20000000
antifight;
until(beri>mama)
{==============Yellow now=================}
end else
if(findbitmapin(yellow12,ix,iy,0,0,515,335))then
begin
action:= 'Fishing'
currently
clickmouse(ix,iy,true)
flagwait;
beri2:=1
repeat
antifight;
loginifneeded;
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
totalrandcheck;
antifight;
antiwhirlpool(232,115,306,185)
wait(100)
beri2:=beri2+1
If(getcolor(247,443)=16711680)then beri2:=20000000
antifight;
until(beri2>mama)
end;
end
wait(20)
end;
status('Current mouse coords ' + inttostr(b1)+','+inttostr(b2)+','+inttostr(b3)+','+inttostr(b4))
b1:=b1+20
b2:=b2+20
bb:=bb+1
If(bb>70)then
begin
b1:=100
b2:=38
bb:=0
end;
wait(30)
until(getcolor(247,443)=16711680)
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
end;


{===Start Sell feature==}

procedure storetopier;
begin
action:= 'Walking back to pier'
currently
If(FindColoredAreaTolerance(x,y,muddyroad,693,56,720,90,21,2))then
begin
benleegtmouse(x,y,'left',0)
flagwait;
findcolor(ix,iy,trees,687,12,722,51)
benleegtmouse(ix,iy,'left',0)
wait(6000)
flagwait
findcolor(x,y,fishlogo,559,5,731,157)
benleegtmouse(x,y,'left',0)
flagwait;
end else
If(not(FindColoredAreaTolerance(x,y,muddyroad,693,56,720,90,21,2)))then
begin
logout1('Error wth map')
wait(100)
loginifneeded;
end
end;

procedure seller;
var trade,berilee2:Integer;
begin
berilee2:=0
action:= 'Finding Storekeeper.'
currently
trade := LoadBitmap('trade.bmp');
repeat
FindColoredAreaTolerance(ix,iy,apron,0,0,390,335,4,3)
benleegtmouse(ix,iy,'false',200)
If(istextat2(9,9,'Talk',75))then break;
until(false)
benleegtmouse(ix,iy,'right',0)
wait(200)
FindBitmapMaskTolerance(trade,x,y,0,0,513,337,20,20)
benleegtmouse(x,y,'left',0)
repeat
wait(100)
berilee2:=berilee2+1
until(getcolor(216,41)=2070783)
action:= 'Trading'
currently
wait(1000)
storetopier;
end;

procedure piertostore;
begin
action:= 'Walking to store.'
currently
findcolor(ix,iy,trees,627,130,728,162)
benleegtmouse(ix,iy,'left',0)
flagwait;
benleegtmouse(ix,iy,'left',0)
flagwait;
findcolor(ix,iy,potty,594,69,682,150)
benleegtmouse(ix,iy,'left',0)
flagwait;
seller;
end;
{===end Sell Feature===}

Procedure AutoDrop4(item,item2,item3,item4 :string);
var drop,DropYe,Row,Col,Ix,Iy,InvLoc,Dropx,dropy:integer;
begin
drop := BitmapFromString(28, 2,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF' +
       'FFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF');
dropYe := BitmapFromString(28, 2,
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00' +
       'FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00');
InvLoc:=1; Col:=1; Row:=1;
repeat
  Ix:=(Col-1)*42+574;
  Iy:=(Row-1)*36+218;
  MoveMouseSmooth(Ix+random(17),Iy+random(17));
  wait(150+random(30));
  If(IsTextAt2(9,9,item,100))then
  begin
   GetMousePos(x,y);
   ClickMouse(x,y,false);
   wait(100+random(25));
   if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460))or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460))then
    begin
     Mouse(dropx+10,dropy,20,4,true);
     wait(100+random(50));
    end;
  end;
  If(IsTextAt2(9,9,item2,100))then
  begin
   GetMousePos(x,y);
   ClickMouse(x,y,false);
   wait(100+random(25));
   if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460))or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460))then
    begin
     Mouse(dropx+10,dropy,20,4,true);
     wait(100+random(50));
    end;
  end;
  If(IsTextAt2(9,9,item3,100))then
  begin
   GetMousePos(x,y);
   ClickMouse(x,y,false);
   wait(100+random(25));
   if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460))or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460))then
    begin
     Mouse(dropx+10,dropy,20,4,true);
     wait(100+random(50));
    end;
  end;
  If(IsTextAt2(9,9,item4,100))then
  begin
   GetMousePos(x,y);
   ClickMouse(x,y,false);
   wait(100+random(25));
   if(FindBitmapIn(Drop,dropx,dropy,555,210,730,460))or(FindBitmapIn(DropYe,dropx,dropy,555,210,730,460))then
    begin
     Mouse(dropx+10,dropy,20,4,true);
     wait(100+random(50));
    end;
  end;
  InvLoc:=InvLoc+1;
  Row:=Row+1;
  if(Row>7)then
  begin
   Col:=Col+1;
   Row:=1;
  end;
until(InvLoc>28)
end;

Procedure findnumber(item :string);
var Row,Col,Ix,Iy,InvLoc:integer;
begin
InvLoc:=1; Col:=1; Row:=1;
repeat
  Ix:=(Col-1)*42+574;
  Iy:=(Row-1)*36+218;
  MoveMouseSmooth(Ix+random(17),Iy+random(17));
  wait(150+random(30));
  If(IsTextAt2(9,9,'Use '+item,100))then
  begin
   fishno:=fishno+27
  end;
  InvLoc:=InvLoc+1;
  Row:=Row+1;
  if(Row>7)then
  begin
   Col:=Col+1;
   Row:=1;
  end;
until(InvLoc>28)
end;

procedure dropfish;//by dsgamer
begin
findnumber('Raw');
temp:=getequipmentcolour;
If(equip>temp )then diff := equip-temp
If(equip<temp )then diff := temp-equip
If(diff>0)then
begin
checkequipment;
benfish
end
 writeln('Inventory full, Drop time!/You gained a level!!Whee...')
 benleegtmouse(247,443,'left',200)
 openbag;
 If(Drop_or_sell='Drop')then
 begin
 action:= 'Dropping stuff'
 currently
 AutoDrop4('Use Burnt','Use '+fishtodrop,'Eat k','Drink')
 end else
 If(Drop_or_sell='Sell')then
 begin
 piertostore;
 end;
end;

Procedure PrintProgressReport; //modified from Phalanx's script
var
  RHours,Minutes,Seconds,RMinutes,RSeconds,ST:LongInt;
  Time:String;
begin
if(graphicreport='false')then
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+' Seconds';
  if Minutes<>0 then
  begin
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  if RHours<>0 then
  begin
   RMinutes:=Minutes Mod (RHours*60);
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(RHours)+':'+inttostr(RMinutes)+':'+inttostr(RSeconds);
  end;
  begin
  writeln(' ');
  writeln('<=================Progress Report================>');
  writeln('Worked for '+Time);
  writeln('Caught about ' + inttostr(fishno)+ ' fishes.')
  writeln('Ran from ' + inttostr(whirlpoolno) + ' whirlpool(s)')
  writeln('Ran from ' + inttostr(runno) + ' fight(s)')
  writeln('Picked up equipment ' + inttostr(pickno) + ' time(s)')
  writeln('<================================================>');
  end;
end else
if(graphicreport='true')then
begin
SendInterSCARMessage('fish','Caught about '+inttostr(fishno)+' fishes.')
SendInterSCARMessage('whirlpool','Ran from '+inttostr(whirlpoolno)+' whirlpools.')
SendInterSCARMessage('picked','Picked equipment '+inttostr(pickno)+' times.')
SendInterSCARMessage('npcs','Ran from '+inttostr(runno)+ ' npcs')
SendInterSCARMessage('time','Script ran for '+Time)
end;
end;

begin
action:= 'Setting up script'
currently
PrintProgressReport
techno:=0
timer:=0
SetMouseMode(false)
whirlpoolno:=0
runno:=0
fishno:=0
pickno:=0
writeln('A Great script by Benleegt')
SetMouseMode(False);
setuptypes
If(findcolor(ix,iy,potty,594,69,682,150))then seller;
equip := getequipmentcolour;
repeat
timer:=timer+1
loginifneeded
benfish;
dropfish;
PrintProgressReport;
wait(100)
until(false)
end.

From: Negaal
Just my notice:
[Totally offtopic] Peoples were getting to devs or members very easily at the past?
I'v looked older applications and self-intructioning(<-spelled wrong 100%) letters, most of them who registered right away when site was made had member status already…:)]

Maybe post your powerfisher here? :rolleyes:

Things were easier before. No colors changing, less and easier randoms etc.

Easier?!

We had no good getuptext (That was so flawed) we had no TPAs and dtms and much less ddtms. We literally had to cut the screen up ourselves, and we couldnt find text or anything so we had to get a bitmap of the menu options when we needed to click menus!!

And no I won't kill you :) Hy71194

Lets say Scar was harder to code/RS was easyer to cheat


Happy now?


:p
EDIT:
Gof, Quote right person maybe?

From: benleegt
Eh, the script kingarabian posted wasn't made by me! It's identity thieft I tell you… If any mods/admins on this forum still respects ahm.. morality, I sincerely request for it to be removed or at least to have benleegt censored out.

Identity thieft - Not kingarabian but the guy who made the script in the first place and plastered my name on it.

Eh. My bad bro. I was a leacher back in the days when I got this script.

[OFFTOPIC]Damn negaal. That women is hot. Was she in movie Good luck chuck. [/OFFTOPIC]

best script ever.

 ////////////////////////////////////////////////////
 //           Ultimate Miner & Banker 2.8          //
 //                   By chriz                     //
 ////////////////////////////////////////////////////
 //Setup:                                          //
 // ·Need Scar version 1.13                        //
 // ·High Details, V-Bright, Highest angle of view //
 // ·Map pointing north                            //
 // ·Pickaxe in the first bankslot                 //
 // ·Take minimap colors                           //
 // ·Mine at Varrock southeast or falador south    //
 //  or Mining Guild                               //
 ////////////////////////////////////////////////////

program UltimateMinerBanker;
var
c,l,x,y,n,h,w,k,flag,Talk,TalkY,box,trips,picks,runs,talked,ore,Mine,MineY,Take,TakeY,lamps,ilamp,tempLadder,tempLadder2,
rcmQuickBank,rcmQuickBankY,InBank,StoreAll,StoreAllY,CloseWindow,Yellowtext,FindingPick,gas,Pickmode,tempbank,
PickAxe,PickAxeSteel,PickHead,PickHandle,Attached,drop,orebmp,hc1,hc2,hc3,hc4,hc5,BNorth,tripcount,town2: Integer;
ST: LongInt;
Loged,Fight,swinging,ColorsFound,fixed:boolean;
{.include BoxBreaker.txt}
const
{=================Setup================}
username = ''; //Enter Your Username
password = '';    //Enter Your Password
UsePAR = True;  //use PAR over built in random event protection?
Town = 2;          //1 to start in varrock, 2 for falador, 3 for guild mining, 4 for iron/guildmining in falador
Pick = 1;          //1 if you can't wield pickaxe 2 if you can
FindGaser = True;  //Allows the script to look for steaming rocks but can slow down minning
PickFindCount = 50; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
Pickup = true;    //Pick up ore other people have dropped or not?
Leftclick = True;  // leftclick on the rocks when mining?
Screenshot = False; //Take screenshots of random events?
dir = '';  //Folder to take screenshots in, leave blank for scripts folder Make sure this folder exists in the scripts folder of you will get errors
Tolerance = 0;     //Tolerance to find the colors on the minimap, leave at 0!
{===========From Game Screen===========}
{Only needed if Iron mining}
IronOre1 = 2700888;   //Rocks Colors
IronOre2 = 2569300;   //Rocks Colors
IronOre3 = 2832731;   //Rocks Colors
{Only needed if Guild mining}
CoalOre1 = 2702396;   //Rocks Colors
CoalOre2 = 2834753;   //Rocks Colors
CoalOre3 = 3097668;   //Rocks Colors
{=============From MiniMap=============}
banklogo = 6084350;     //Minimaps banklogo color
miningspot = 9076623;   //Minimaps Pick Head color
{Only needed if Iron mining}
roadcolor = 7829631;    //Minimaps Roads color
{Only needed if Guild mining}
Statue = 9277337;   //Add the color of the n statue (right next to the ladder when going down)
Ladder = 7746; //Add Ladder color
Rocks = 4474428;   //Add Coal Rocks color in MINIMAP!
{===============End Setup==============}

Procedure Mouse(x,y,rx,ry: integer; left:boolean);
begin
  x:=x+random(rx);
  y:=y+random(ry);
  if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
  begin
   MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
   GetMousePos(x,y);
   wait(50+random(50))
   holdmouse(x,y,left)
   wait(5+random(80))
   releasemouse(x,y,left)
   wait(100+random(100))
  end;
end;

Procedure MMouse(x,y,rx,ry: Integer); {Made by Odie5533}
begin
 x:=x+random(rx); y:=y+random(ry);
if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
begin
 MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
 GetMousePos(x,y);
end;
end;

{.include par.txt}

Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String; e:Integer;
begin
if(Not Loged)then
Begin
   Seconds:=(GetSystemTime-ST) div 1000;
   Minutes:=Seconds div 60;
   RHours:=Minutes div 60;
   Time:=inttostr(Seconds)+' Seconds';
   avtime:=Seconds/trips;
   if Minutes<>0 then
      begin
         RSeconds:=Seconds Mod (Minutes*60);
         Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
      end;
   if RHours<>0 then
      begin
         RMinutes:=Minutes Mod (RHours*60);
         RSeconds:=Seconds Mod (Minutes*60);
         Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
         +inttostr(RSeconds)+' Seconds';
      end;
   begin
   If (Town = 3) then e := 50 If (Town = 4) then e := 40 else e := 35
   If (Town = 1) then writeln('-----Progress Report for Ironmining at Falador-----');
   If (Town = 2) then writeln('-----Progress Report for Ironmining at Varrock-----');
   If (Town = 3) then writeln('---------Progress Report for Guild Mining----------');
   If (Town = 4) then writeln('---------Progress Report for Multi Mining----------');
   writeln('Worked for '+Time);
   If (UsePAR = True)and(town = 2)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
   If (UsePAR = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
   If (UsePAR = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
   If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
   If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
   writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
   writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
   writeln('Mined '+inttostr(trips)+' Time[s] '+inttostr(trips*(26+Pick))+' Ores');
   writeln('Gained '+inttostr(trips*e*(26+Pick))+' mining Experience');
   writeln('Currently Averaging '+inttostr(3600/avtime*(26+Pick))+' Ores and '+inttostr(3600/avtime*e*(26+Pick))+' Experience an Hour');
   end;
end;
end;

procedure GetScreenShot(reason:string; event:Integer);
var
   x : string;
begin
if(screenshot)then
  begin
  x:=inttostr(Event)
  SaveScreenshot(apppath+'Scripts\'+dir+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
  writeln('ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
  end;
end;

procedure sendkeysmooth(str:string);
var x:integer;
begin
  repeat
    x := x+1;
    wait(100+random(200));
    sendkeyssilent(copy(str,x,1));
  until x > length(str)
end;

Procedure ChatFix; {ChatFixer by Odie5533}
begin
 while(not(GetColor(54,496)=255))do
  Mouse(45,485,15,10,true);
 wait(300+random(100));
 while(not(GetColor(183,496)=255))do
  Mouse(176,485,15,10,true);
 wait(300+random(100));
 while(not(GetColor(323,496)=255))do
  Mouse(315,485,15,10,true);
 wait(300+random(100));
end;

Procedure FaceNorth;
begin
  If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
  while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))do
    SendArrowSilentWait(1,2+random(2));
end;

procedure Checkloginscreen;
var p:integer;
begin
if(FindBitmap(CloseWindow,x,y))then
begin
  p:=0;
  status('closing welcome box');
  repeat
    Wait(400+random(100));
    Mouse(x,y,40,4,true);
    Wait(500);
    p:=p+1;
  until(not FindBitmap(CloseWindow,x,y))or(p>=3);
end;
end;

procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
Checkloginscreen;
if(IsTextAt2(293,251,'Username',10))then
  begin
   Mouse(460,322,10,2,true);
   Wait(500+random(500));
  end;
if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
  begin
   Mouse(400,280,125,20,true);
   Wait(200+random(100));
   if(IsTextAt2(293,251,'Username',50))then
   begin
    status('Logging in');
    Mouse(400,256,20,5,true);
    Wait(50+random(25));
    sendkeysmooth(username);
    Wait(400+random(150));
    sendkeysmooth(chr(13));
    Wait(400+random(150));
    sendkeysmooth(password);
    Wait(400+random(100));
    Mouse(300,322,20,5,true);
    repeat
     counter:=counter+1
     wait(100);
    until(FindBitmap(CloseWindow,x,y))or(counter=150)
    Checkloginscreen;
   end;
  end;
end;

Procedure LogOut(why:string);
begin
  Writeln(' ');
  Writeln(why);
  Writeln(' ');
  Wait(100+random(10));
  Loged:=true;
  Mouse(635,470,25,20,true);
  Wait(100+random(10));
  c:=0;
  repeat
    c:=c+1
    Mouse(586,370,119,10,true);
    Wait(250+random(100));
  until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15);
end;

Procedure SetRun(runon: boolean); {Edited by Odie5533}
begin
   Wait(20+random(5));
   Mouse(701,468,10,25,true);
   Wait(70+random(50));
   if(not(GetColor(607,263)=2303648))and(RunOn)then
   Mouse(611,253,15,15,true);
   if(GetColor(607,263)=2303648)and(not RunOn)then
   Mouse(569,256,5,5,true);
   Wait(100+random(50));
   Mouse(644,178,5,5,true);
   Wait(100+random(50));
End;

Procedure MapFlag;
var M:integer;
begin
  Check4Mod;
  Wait(200);
  M:=0;
  if(FindBitmapIn(flag,x,y,570,5,725,162))then
  begin
   repeat
    wait(500);
    M:=M+1;
   until(FindBitmapIn(flag,x,y,633,64,665,90))and
   (not(GetColor(200,148)=16777215))or
   (not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
   Wait(100);
  end;
end;

Procedure MapFlag2;
begin
  Check4Mod;
  Wait(200);
  if(FindBitmapIn(flag,x,y,565,5,725,160))then
  begin
   repeat
    wait(1000);
   until(not FindBitmapIn(flag,x,y,565,5,725,160));
   Wait(100);
  end;
End;

procedure TakePickaxe;
begin
  Mouse(575,218,20,20,true);
  Wait(400+random(150));
  Mouse(84,64,20,20,true);
  Wait(500+random(150));
  n:=0;
  Picks:=Picks+1;
end;

Procedure TakeOff;
begin
  if (PickMode=2) then
  begin
    Mouse(674,174,20,20,true);
    Wait(100+random(50));
    Mouse(580,290,20,20,true);
    Wait(100+random(50));
    Mouse(630,172,30,20,true);
    wait(400+random(50));
  end;
end;

Procedure PutOn;
begin
  if (PickMode=2) then
  begin
    if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
     Wait(50+random(50));
    if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
      (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
    Mouse(x,y,20,20,true);
    Wait(3000+random(50));
    If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
    begin
    Writeln('Cannot Equip that pick, switching pick mode')
    Pickmode:=1
    end
  end;
end;

//===================================Banking==================================\\

Procedure ScrollBank;
var
  v:integer;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
begin
 if (not(getcolor(475,75)=5531254))then
 begin
  status('Scrolling Bank Up...')
  wait(100+random(50));
  MMouse(471,61,10,10);
  wait(random(25));
  GetMousePos(x,y);
  HoldMouse(x,y,true);
  repeat
    wait(200+random(50));
    v:= v+1
  until (getcolor(475,75)=5531254)or(v>22)
  ReleaseMouse(x,y,true);
 end;
end;
end;

procedure Deposit;
var t :integer;
begin
   repeat
   repeat
      wait(121+random(65))
   if(findColorSpiral(x,y,65536,565,250,730,460))and(PickMode=1)or
     (FindColorSpiral(x,y,65536,611,215,730,245))and(PickMode=1)or
     (findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=2)then
     begin
      c:=c+1;
      t:=t+1;
      Mouse(x-5,y,5,5,False);
      wait(227+random(33));
     end;
    if (FindBitmapIn(StoreAllY,x,y,560,215,730,460))or
    (FindBitmapIn(StoreAll,x,y,560,215,730,460))then
     begin
      c:=0;
      Mouse(x,y,60,8,true);
      wait(1046+random(42));
     end;
   until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
        (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
        (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)  or (t>5+random(5))
    if(c>4)then
     begin
      c:=0;
      wait(121+random(65))
      MoveMouseSmooth(573+random(10),189+random(10));
     end;
   until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
        (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
        (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4) or (t>5+random(5))
end;

procedure CloseBank;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(GetColor(464,39)=8421504)then
 begin
  Mouse(430,39,5,5,true);
  wait(800+random(300));
 end;
end;

Function FindObjColorTol(objname:string; objcolor,objtol:integer):boolean;
var a,b:integer;
begin
if(not(IsTextAt2(9,9,objname,100)))then
while(b<16)do
begin
 wait(30);
 if(a = 27)then
  begin
   a:= 0;
   b:= b + 1;
  end;
 if(b > 15)then break;
 if(FindColorSpiralTolerance(x,y,objcolor,a*20+4,b*20+4,a*20+24,b*20+24,objtol))then
  begin
   MMouse(x,y,0,0);
   wait(100+random(50));
   if(istextat2(9,9,objname,100))then
    begin
     result:=true;
     break;
    end;
  end;
 a:=a+1;
end;
end;

procedure Banking;
var c:integer;
begin
if(FindObjColorTol('Use Bank',tempbank,11))then
  begin
   tempbank:= GetColor(x,y);
   Mouse(x,y,0,20,false);
   wait(75+random(25));
   if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then
    begin
     Mouse(x,y,5,2,true);
     MapFlag;
    end else
     if(FindBitmap(box,x,y))then
      begin MMouse(x,y,-30,-30);
     end else
      MMouse(0,0,60,60);
    while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
    begin
     wait(50+random(50));
     c:=c+1;
    end;
  end;
 if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then
  Mouse(472,81,4,10,true); //Scrolls your bank up
 wait(200+random(100));
If(n=1)then
begin
  ScrollBank;
  TakePickaxe;
  CloseBank;
end else
begin
  ScrollBank;
  Deposit;
  CloseBank;
end;
end;
//============================================================================\\

//===========================Map Walking for Varrock==========================\\
procedure ToRocksVarrock;
begin
  Loginifneeded;
  L:=0;
  c:=0;
  if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
  begin
    SetRun(true);
    Wait(100)
    Status('Going Out of bank');
    Mouse(x+21,y-26,5,5,True)
    MapFlag;
    c:=1
  end;
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,690,25,692,120,Tolerance))Then
    begin
      c:=c+1;
      Status('Going Out Varrock '+inttostr(c)+'/3');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))and(c>2)or(L>30);
  c:=1;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))Then
    begin
      Status('Going To Rocks '+inttostr(c)+'/9');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('To center')
    wait(50)
    Mouse(x,y,5,5,True)
    MapFlag2;
  end;
  If(L>30)then
  begin
      LogOut('Lost To Rocks Varrock')
  end;
end;

procedure ToBankVarrock;
begin
  Loginifneeded;
  c:=0;
  L:=0;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('Out of Mines')
    Mouse(x+30,y-35,5,5,True)
    MapFlag;
    c:=1
  end;
  Loginifneeded;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,595,32,700,34,Tolerance))Then
    begin
      Status('Going To Varrock '+inttostr(c)+'/4');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
  c:=1;
  L:=0;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
    begin
      Status('Going To Bank '+inttostr(c)+'/3');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
  If(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))Then
  begin
    Status('Going In Bank')
    wait(50)
    Mouse(x,y,5,5,True)
    MapFlag2;
    Wait(5000)
  end;
  If(L>30)then
  begin
     LogOut('Lost To Bank Varrock')
  end
  Banking;
end;
//============================================================================\\

//===========================Map Walking for Falador==========================\\
procedure ToRocksFalador;
begin
  Loginifneeded;
  L:=0;
  c:=0;
  if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
  begin
    SetRun(true);
    Wait(100)
    Status('Going Out of bank');
    Mouse(x-30,y+20,5,5,True)
    MapFlag;
    Wait(200)
    c:=1
  end;
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,120,710,122,Tolerance))Then
    begin
      c:=c+1;
      Status('Going South '+inttostr(c)+'/8');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      Wait(200)
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
  c:=1;
  L:=0;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
    begin
      Status('Going West '+inttostr(c)+'/2');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))and(c>2)or(L>30)
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))Then
    begin
      c:=c+1;
      Status('Going south '+inttostr(c)+'/4');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(c>=2);
  L:=0;
  repeat
    begin
      c:=c+1;
      Status('Going south '+inttostr(c)+'/4');
      wait(50)
      Mouse(650,125,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('To iron')
    wait(50)
    Mouse(x-15,y-15,10,10,True)
    MapFlag;
  end;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Wait(200)
    Mouse(x-30,y,5,5,True)
    MapFlag2;
  end;
  If(L>30)then
  begin
      LogOut('Lost To Rocks Falador')
  end;
end;

procedure ToBankFalador;
begin
  Loginifneeded;
  c:=0;
  L:=0;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('Out of Mines')
    Mouse(x-15,y-15,10,10,True)
    MapFlag;
  end
  Loginifneeded;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    c:=1
    Loginifneeded;
    Status('Going north '+inttostr(c)+'/2');
    wait(50)
    Mouse(x-15,y-60,5,5,True)
    MapFlag;
  end
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
    begin
      c:=c+1;
      Status('Going north '+inttostr(c)+'/2');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))or(c>4)or(L>30);
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
    begin
      c:=c+1;
      Status('Going East '+inttostr(c)+'/2');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
    begin
      c:=c+1;
      Status('Going North '+inttostr(c)+'/8');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      L:=0;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,banklogo,574,45,722,160,Tolerance))and(c>4)or(c>12)or(L>30);
  If(FindColorSpiralTolerance(x,y,banklogo,574,35,722,160,Tolerance))Then
  begin
    status('Going In Bank ')
    wait(50)
    Mouse(x,y,5,5,True)
    MapFlag2;
    Wait(4000)
  end
  If(L>30)then
  begin
     LogOut('Lost To Bank Falador')
  end
  Banking;
end;
//============================================================================\\

//========================Map Walking for Guild Mining========================\\
procedure ClimbLadder(color,ladder:integer);
var count:integer;
begin
  status('Climbing ladder');
if(FindObjColorTol('Climb',ladder,5))then
 begin
  Ladder:= GetColor(x,y);
  MMouse(x,y,2,2);
  Wait(300+random(150));
  if(IsTextAt2(9,9,'Climb',100))then
  begin
    GetMousePos(x,y);
    If not (FindColorSpiral(x,y,color,565,5,725,160)) then
      Mouse(x,y,2,2,True);
  end;
  Wait(300+random(150));
  repeat
    count:=count+1;
    wait(300+random(200));
  until(FindColorSpiral(x,y,color,565,5,725,160))or(count>=20)
 end;
end;

procedure GoCenter;
begin
if(not(FindColorSpiral(x,y,miningspot,565,65,715,160)))then
  if(FindColorSpiral(x,y,Rocks,565,65,715,160))then
     begin
       Mouse(x,y,5,5,true);
       MapFlag;
       Wait(300+random(150));
     end;
if(FindColorSpiral(x,y,miningspot,565,65,715,160))then
  begin
    Mouse(x,y,20,20,true);
    MapFlag2;
    Wait(300+random(150));
  end;
end;

Procedure ToBankGuild;
begin
If(Not Loged)then
begin
  If (FindColorSpiral2(x,y,(statue),550,5,750,177))then
  begin
    Status('Going To Bank 1/2');
    Mouse(x+5,y-46,3,3,true);
    Wait(400+random(150));
    MapFlag;
  end;
  If (FindColorSpiral2(x,y,(banklogo),550,5,750,177))then
  begin
    Status('Going To Bank 2/2');
    Mouse(x,y+2,1,1,true);
    Wait(5000+random(250))
    Mapflag2;
  end;
  Banking;
end;
End;

procedure ToLadder(climb:boolean);
var counter:integer;
begin
If(Not Loged)then
begin
status('Walking to ladder');
repeat
  if(not(FindColor(x,y,Ladder,575,5,725,160)))and(FindColor(x,y,Rocks,585,65,625,160))then
  begin
    counter:=counter+1
    Mouse(x,y,5,5,true);
    MapFlag;
    Wait(200+random(50));
  end
  Loginifneeded;
until(FindColorSpiral(x,y,Ladder,575,5,725,160))or(counter=5)
if(FindColorSpiral(x,y,Ladder,575,5,725,160))then
  begin
    Mouse(x,y,5,5,true);
    MapFlag2;
    Wait(200+random(50));
    if(climb=true)then begin ClimbLadder(Statue,Templadder2);end;
  end;
if (climb=True)and(Not FindColorSpiral(x,y,(Statue),575,8,720,135))then
begin
  LogInIfNeeded;
  ToLadder(climb);
end else
if(climb=true)then ToBankGuild;
end;
end;

Procedure ToGuild;
begin
If(Not Loged)then
begin
  If (not(FindColorSpiral(x,y,(Statue),550,5,750,177)))and(FindColorSpiral(x,y,(banklogo),550,5,750,177))then
  begin
    Status('Going To Guild');
    Mouse(x+40,106,3,3,true);
    Wait(400+random(250));
    MapFlag;
  end;
  if (FindColorSpiral(x,y,(Statue),550,5,750,177))then
  begin
    Status('Statue Found!');
    Mouse(x-10,y,5,0,true);
    Wait(5000+random(250));
    MapFlag2;
    if (FindColorSpiral(x,y,(Statue),638,73,658,93))then
    ClimbLadder(Rocks,templadder);
  end else
  begin
    FaceNorth;
    LogInIfNeeded;
    ToGuild;
  end;
  Wait(50+random(50));
if (Not FindColorSpiral(x,y,(Rocks),575,8,710,135))then
begin
  LogInIfNeeded;
  ToGuild;
end else
  GoCenter;
end;
end;

//=============================Anti Random Events=============================\\
procedure FindPickHeadColor(f:Boolean);
begin
if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
  (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
  begin
    Mouse(675,175,15,25,true);
     if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
       (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
  begin
  If (f = True) Then
  begin
  writeln('');
  writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
  writeln('');
  ColorsFound:=False;
  end else
  Logout('No Picks Left');
  end;
  end;
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
  (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
  begin
  hc1:=GetColor(x+6,y+3);
  hc2:=GetColor(x+18,y+7);
  hc3:=GetColor(x+20,y+6);
  hc4:=GetColor(x+19,y+6);
  hc5:=GetColor(x+16,y+5);
  ColorsFound:=True;
  if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
  end;
end;

procedure ItemGrab;
begin
if(FindColorSpiral(x,y,241,565,5,725,160))then
  begin
  Mouse(x,y,1,1,true);
  MapFlag2;
  Wait(5000+random(100));
  //FindTextSpiral('Take',240,180,50,5,10+random(10));
  GetMousePos(x,y);
  Mouse(x,y,0,0,true);
  Wait(1000+random(100));
  end;
end;

procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Status('Random Event Found');
Fight:=True;
GetScreenShot('RunFromFight',Runs);
Runs:=Runs+1;
SetRun(true);
If (town2 = 3)or(town2 = 4)then
begin
  ToLadder(false);
  Wait(10000+random(1000));
  gocenter;
end else
begin
  Wait(50+random(10));
  Mouse(680,60,5,5,true);
  Wait(100);
  Mapflag;
  Wait(10000+random(1000));
  if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
  begin
    Mouse(x,y,5,5,True);
    MapFlag;
    If(Town2=2)then Mouse(x-30,y,5,5,True);
  end else
  Mouse(615,110,5,5,true);
end;
Wait(100);
MapFlag2;
SetRun(false);
end;
end;

procedure TalkToRand;
begin
  repeat
  if (FindColorSpiral(x,y,16711680,5,345,510,465))or
  (FindColorSpiral(x,y,16777215,5,345,510,465))then
      begin
      Mouse(x,y,50,2,true);
      wait(2000+random(1000));
      end;
  until(GetColor(20,434)=0)
end;

procedure FindText;
var counter:integer;
begin
if (FindColor(x,y,65535,0,0,515,338))then wait(200)
if (FindColor(x,y,65535,0,0,515,338))then
  begin
  GetScreenShot('YellowtextFound',Yellowtext);
  Yellowtext := Yellowtext + 1;
  repeat
  counter:=counter+2+random(1);
  MMouse(x+counter,y+15,0,3)
  wait(5);
  if(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    FindFight;
    break;
    end;
  if(IsTextAt2(9,9,'Ta',100))then
    begin
    GetMousePos(x,y);
    Mouse(x,y,1,1,false);
    Wait(200+random(100));
    if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
      begin
      Mouse(x,y,40,5,true);
      MapFlag2;
      wait(1000+random(1000));
      GetScreenShot('Talked',Talked);
      Talked:=Talked+1
      TalkToRand;
      end;
    end;
  until(counter>=250);
  end;
end;

procedure AttachPick;
begin
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and
(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
  begin
  if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
    begin
    GetScreenShot('FixingPick',Attached);
    Attached:=Attached+1
    Mouse(x,y,5,5,true);
    Wait(1000+random(100));
    end;
  if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
    begin
    Mouse(x,y,5,5,true);
    Wait(1000+random(100));
    Fixed := True
    end;
  end else
  fixed := false;
end;

procedure FindPick;
var DropCount,Counter:integer;
begin
if((GetColor(387,382)=0)and(GetColor(485,413)=0))then
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,465,100))then
begin
Mouse(x,y,2,2,false);
Wait(100+random(100));
if(FindBitmap(Drop,x,y))then
begin
Mouse(x,y,10,2,true);
Wait(100+random(100));
MMouse(0,0,50,50);
Wait(500+random(100));
end;
end;
until(DropCount=2);
Mouse(683,184,5,5,true);
wait(500+random(100));
Mouse(591,303,5,5,true);
wait(500+random(100));
Mouse(647,183,5,5,true);
wait(500+random(100));
repeat
counter:=counter+1
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
  break;
if(FindColorSpiral(x,y,hc1,0,0,515,338))or
  (FindColorSpiral(x,y,hc2,0,0,515,338))or
  (FindColorSpiral(x,y,hc3,0,0,515,338))or
  (FindColorSpiral(x,y,hc4,0,0,515,338))or
  (FindColorSpiral(x,y,hc5,0,0,515,338))then
  begin
  MMouse(x,y,0,0);
  wait(100+random(100));
  if(IsTextAt2(9,9,'Take', 100))then
    begin Mouse(x,y,2,2,true);MapFlag2;end
    end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100))do
 begin
  Mouse(x,y,10,10,true);
  wait(3000+random(1000));
  Mouse(157,220,12,12,true)
  wait(3000+random(1000));
  Mouse(248,255,10,2,true);
  wait(3000+random(1000));
  Mouse(226,442,10,3,true);
  wait(3000+random(1000));
  Lamps:=Lamps+1;
  end;
end;

Procedure FindRandoms;
begin
if(Not Loged)then
begin
  LoginIfNeeded;
  Checkloginscreen;
  FindFight;
  FindBox;
  Check4Lamp('mining');
  Check4Mod;
if(UsePAR=true)then
begin
  Check4Randoms;
end else
  FindText;
end;
end;

Procedure FindGas(findx,findy:integer);  //By Stupid3ooo
var counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
if(FindGaser=true)then
begin
GasColor:=8296866;//8296866
if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
begin
repeat
  counter:=counter+1
  begin
    ClientCanvas:= GetClientCanvas;
    bmap:= BitmapFromString(32,32,'');
    BMapCanvas:= GetBitmapCanvas(bmap);
    CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
    wait(100);
    if(FindBitmap(bmap,x,y))then
      begin gasfind:=0;end
    else
      gasfind:=gasfind+1;
      FreeBitmap(bmap);
    end;
    if(gasfind=5)then
    begin
      WriteLn('Found Gas');
      GetScreenShot('Gas',gas);
      Gas:=Gas+1;
      if(town2=3)or(town2=4)then
      begin
      if(FindColorSpiral(x,y,(Rocks),600,65,625,140))or(FindColorSpiral(x,y,(Rocks),660,65,680,140))then
        begin Mouse(x,y,5,5,true);
      end else
        Mouse(645,80,10,10,true);
      end else
        Mouse(645,80,10,10,true);
      mapflag2;
      FindRandoms;
      Wait(4000+random(2000));
      FindGas(findx,findy);
      break;
    end;
until(counter>=10);
end;
end;
end;

//============================================================================\\

procedure ToBank;
begin
  if(Not Loged)then
  if(town=4)then
  begin
    town2 := tripcount;
  end else
    Town2 := Town
  case Town2 of
    1: ToBankVarrock;
    2: ToBankFalador;
    3: ToLadder(True);
    4: ToLadder(True);
  end;
tripcount := tripcount + 1;
If(tripcount = 5) then
  tripcount := 2;
end;

procedure ToRocks;
begin
  if(Not Loged)then
    if(town=4)then
  begin
    town2 := tripcount;
  end else
    Town2 := Town
  case Town2 of
    1: ToRocksVarrock;
    2: ToRocksFalador;
    3: ToGuild;
    4: ToGuild;
  end;
end;

Procedure SetRandom;
Var color:integer;
begin
Color:=1+Random(3);
If (Town2 = 3)or(Town2 = 4)then
  case Color of
    1: Begin Ore:=CoalOre1; end;
    2: Begin Ore:=CoalOre2; end;
    3: Begin Ore:=CoalOre3; end;
  end else
  case Color of
    1: Begin Ore:=IronOre1; end;
    2: Begin Ore:=IronOre2; end;
    3: Begin Ore:=IronOre3; end;
  end;
case k of
  0: Begin w:=50; h:=35; end;
  1: Begin w:=125; h:=95; end;
  2: Begin w:=260; h:=155; i:=1; end;
end;
end;

procedure DoMining;
var ox,oy: integer;
begin
if(Not Loged)then
begin
L:= 0;
c:= 0;
   repeat
     swinging:=True;
     c:=0;
     L:= L+1;
     LoginIfNeeded;
     FindRandoms;
     SetRandom;
     Status('Mining');
     x:=255;y:=170;
     If(FindColorSpiralTolerance(ox,oy,ore,x-w,y-h,x+w,y+h,4))Then
     begin
       k:=0;
       if(FindGaser=true)then FindGas(ox,oy-10);
       Wait(50)
       MMouse(ox,oy,3,3)
       Wait(100+random(50));
       If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Coal',100))then
       begin
       Wait(50+random(50));
       Mouse(ox,oy,0,0,Leftclick);
       Mapflag2;
       Wait(80+random(50));
         If(FindBitmap(Mine,x,y))and(Leftclick=False)or(FindBitmap(MineY,x,y))and(Leftclick=False)or
         (FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
         begin
         If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then swinging:=False;
           Mouse(x,y,60,10,true)
           Wait(100);
           Mapflag2;
         end else
         If (Leftclick=False) then
         begin
           MMouse(400,60,200,200)
           Wait(100+random(10))
         end;
         Mapflag2;
         FindRandoms;
         wait(200+random(500));
         If (Swinging=true) then
           if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
           begin
           L:=0;
           C:=0;
             Repeat
             C:= c+1;
             Wait(10+random(40));
             if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy-10); end;
             Until(not((GetColor(109,429)=0))and(GetColor(84,428)=0))or
                  (not((GetColor(109,429)=0))and(GetColor(80,428)=0))or(GetColor(279,426)=0)or(c>=35);
           end;
         end;
    end else
    begin
      k:=k+1;
      FindRandoms;
      Wait(200+random(100));
    end;
    until(L>20)or(GetColor(97,394)=0)and(getColor(423,397)=0)or(GetColor(94,391)=0)and(getColor(422,398)=0)or
    (getColor(485,413)=0)or(GetColor(30,418)=0)and(GetColor(72,429)=0);
   if(getColor(485,413)=0)then
   begin
   Mouse(195,440,130,10,true);
   wait(200+random(100));
   if(PickFindCount>0)then
     FindPick;
   if fixed = False then
   begin
     n:= 1;
     Writeln('Going For New Pickaxe');
     Wait(100);
     TakeOff;
     ToBank;
     FindPickHeadColor(False);
     PutOn;
     ToRocks;
   end;
   DoMining;
   end;
   if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
   begin
     LogOut('You are dead!');
   end;
   If(L>20)then
   begin
     If(Town2=3)or(Town2=4)then GoCenter;
     if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
     begin
       Status('To center')
         If(Town2=2)then Mouse(x-30,y,5,5,True);
         If(Town2=1)then Mouse(x,y,5,5,True)
     end;
   MapFlag2;
   Wait(300)
   DoMining;
   end;
end;
end;

procedure BitMaps;
begin
Box := BitmapFromString(6, 3,
       '0000000000005D54475D54470000000000000000000000005D5447' +
       '5D54470000000000000000000000005D54475D5447000000000000' +
       '');
Talk := BitmapFromString(17, 10,
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
        'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
Mine := BitmapFromString(14, 12,
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000000000000000FFFF00FFFF00000000000000000000000000' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
        'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
       'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
       '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
       '0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
       '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
       'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
       'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
       '5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
       '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
       'FF9040');
TakeY := BitmapFromString(43, 4,
       'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
       '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
       'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
       '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
       'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
       '0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
       '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
       'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
       'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
       '5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
       '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
       'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
       '5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
       'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
       '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
       'FF9040');
flag := BitmapFromString(2, 2,
        'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
        'FF981FFF981FFF981F000000000000000000000000000000000000' +
        '000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
        '000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
        'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
        '000000FF981FFF981F000000000000000000000000000000000000' +
        '000000FF981FFF981FFF981FFF981F000000000000000000000000' +
        'FF981FFF981F000000000000000000000000000000000000000000' +
        '000000FF981FFF981F000000FF981FFF981F000000000000000000' +
        'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
        'FF981FFF981F000000000000000000000000000000000000FF981F' +
        'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
        '000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
        '000000000000000000000000000000000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000000000000000FF981FFF981F' +
        '000000000000000000000000000000000000000000000000FF981F' +
        'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000');
Drop := BitmapFromString(20, 2,
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
       '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
       '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
       '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
       '544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
       '2F20003625003D2900000001564D42564D42564D42564D42564D42' +
       '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
       '564D42564D42000001000001000001000001000001000001000001' +
       '000001000001392D1B44341E4D3B22544127000001302020564D42' +
       '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
       '4D44384D4438564D42000001000001392D1B342918342918342918' +
       '34291834291834291834291834291834291840311E44341E4D3B22' +
       '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
       '544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
       '3429183429183429183429183429183429183429183429181E1500' +
       '271B005441274D3B22000001000001564D42544A3B564D42564D42' +
       '564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
       '392D1B392D1B392D1B342918342918342918342918342918342918' +
       '3429181E1500271B002F2000513E254D3B2248382044341E000001' +
       '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
       '544A3B000001000001000001000001000001000001000001000001' +
       '0000010000010000010000011E15002F20002F20004D3B224D3B22' +
       '48382044341E40311E44341E000001000001564D42564D42564D42' +
       '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
       '3020203020203020203020203020200000011E1500271B002F2000' +
       '2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
       '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
       '1E15002F20002F20002F200000000100000100000144341E40311E' +
       '392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
       '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
       '564D420000011E1500271B002F20002F2000000001302020302020' +
       '302020000001000001000001392D1B2F2515342918392D1B000001' +
       '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
       '564D424D44384D4438564D420000011E15002F20002F2000000001' +
       '302020302020544A3B544A3B544A3B302020302020000001000001' +
       '0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
       '544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
       '2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
       '544A3B544A3B30202030202000000100000140311E000001564D42' +
       '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
       '0000011E15002F20002F2000000001302020302020544A3B544A3B' +
       '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
       '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
       '544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
       '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
       '544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
       '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
       '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
       '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
       '544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
       '2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
       '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
       '564D42564D42000001000001000001000001000001000001000001' +
       '0000010000015C5656686060756D6C827878000001302020564D42' +
       '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
       '4D44384D4438564D42000001000001595353595353595353595353' +
       '595353595353595353595353595353575151615A596A6262756D6C' +
       '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
       '544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
       '5751515751515751515751515751515751515751515751511C1400' +
       '251900827878756D6C000001000001564D42544A3B564D42564D42' +
       '564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
       '5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
       '544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
       '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
       '544A3B000001000001000001000001000001000001000001000001' +
       '0000010000010000010000011C14002D1E002D1E00797070756D6C' +
       '6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
       '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
       '3020203020203020203020203020200000011C14002519002D1E00' +
       '2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
       '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
       '1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
       '5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
       '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
       '564D420000011C14002519002D1E002D1E00000001302020302020' +
       '302020000001000001000001595353524B4B544E4E595353000001' +
       '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
       '564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
       '302020302020544A3B544A3B544A3B302020302020000001000001' +
       '0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
       '544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
       '2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
       '544A3B544A3B302020302020000001000001665E5E000001564D42' +
       '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
       '0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
       '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
       '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
       '544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
       '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
       '544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
       '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
       '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
       '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
       '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
       '5951455951455951450000012F20002F2000362400000001302020' +
       '564D41544A3C544A3C595145564D41595145564D41595145595145' +
       '0000012F2000362400362400000001302020564D41564D41564D41' +
       '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
       '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
       '544A3C544A3C0000012F2000362400362400362400000001302020' +
       '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
       '2F2000362400362400000001302020302020564D41564D41564D41' +
       '595145564D41564D41564D410000012F2000362400362400000001' +
       '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
       '0000012F2000362400362400362400000001302020564D41564D41' +
       '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
       '362400000001302020302020564D41564D41544A3C544A3C595145' +
       '595145564D410000012F2000362400362400362400000001302020' +
       '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
       '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
       '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
       '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
       '564D410000012F20002F20002F2000000001302020302020544A3C' +
       '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
       '2F2000000001302020302020595145544A3C564D41595145595145' +
       '595145564D41564D410000012F20002F20002F2000000001302020' +
       '595145595145564D41564D41595145595145595145595145000001' +
       '2F20002F20002F2000000001302020302020595145595145595145' +
       '595145564D41564D41564D41564D410000012F20002F20002F2000' +
       '000001302020564D41595145595145595145595145564D41564D41' +
       '544A3C0000012F20002F20002F2000000001302020302020564D41' +
       '595145595145544A3C544A3C564D41595145564D410000012F2000' +
       '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
       '544A3C564D41564D41564D410000012F20002F2000000001302020' +
       '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
       '000001271B002F20002F2000000001302020595145544A3C564D41' +
       '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
       '000001302020302020595145544A3C564D41595145595145595145' +
       '564D41564D41564D410000011D15001D1500000001302020595145' +
       '544A3C544A3C564D41595145595145595145595145595145544A3C' +
       '0000011D15001D1500000001302020564D41595145595145595145' +
       '595145564D41595145595145564D41544A3C564D41000001000001' +
       '302020302020595145595145595145595145544A3C564D41595145' +
       '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
       '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
       '');
PickHead := BitmapFromString(6, 5,
       '2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
       '352400000001483E331D14001D1400261A002E1F00000001302020' +
       '000001000001000001000001302020302020302020302020302020' +
       '302020302020483E33');
Orebmp := BitmapFromString(10, 10,
       '856C4B856C4B886E4D8B704F000001000001000001000001443827' +
       '584731856C4B886E4D000001000001302020302020000001382D1E' +
       '54442F68543B0000010000013020203020203020200000012D2518' +
       '483B296C573D6F593E302020302020302020544A3C544A3C000001' +
       '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
       '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
       '564D41000001584731725C407760447A6346544A3C544A3C564D41' +
       '564D41564D41000001655239755E437A6346806748544A3C564D41' +
       '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
       '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
       '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
       '302020');
iLamp := BitmapFromString(17, 6,
       '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
       '9291128C8A1275740E000001000001000001000001000001D0CE18' +
       'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
       '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
       'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
       '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
       'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
       '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
       'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
       '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
       'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
       '000001000001C2C118');
BNorth := BitmapFromString(8, 11,
       '640000640000640000000001640000790E00640000640000640000' +
       '790E00640000640000790E003F00003F0000790E00790E003F0000' +
       '3F0000790E00851B003F00003F0000851B00851B003F00003F0000' +
       '3F0000790E003F00003F00009622009622003F00003F00003F0000' +
       '790E003F00003F00009622009622003F00003F0000790E003F0000' +
       '3F00003F00009622009622003F00003F00009622003F00003F0000' +
       '3F00009622009622003F00003F00009622009622003F00003F0000' +
       '9C36009C36003F00003F0000AB4601AB46013F00003F00009C3600' +
       'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601AB4601' +
       'AB4601AB46010000019C3600BA5604BA5604BA5604');
CloseWindow := BitmapFromString(43, 4,
       '494034808080808080494034494034494034494034808080808080' +
       '808080483E33483E33483E33808080808080483E33483E33463D32' +
       '483E33483E33483E33808080000000483E33483E33483E33483E33' +
       '808080000000483E33483E33000000494034808080808080808080' +
       '494034494034494034494034808080808080808080808080494034' +
       '000000808080494034494034808080494034000000000000000000' +
       '483E33808080483E33000000808080483E33463D32483E33483E33' +
       '483E33808080000000483E33808080483E33483E33808080000000' +
       '483E33808080483E33494034808080000000000000808080494034' +
       '494034808080494034000000808080808080000000494034808080' +
       '000000494034494034808080808080494034494034494034808080' +
       '808080808080483E33000000483E33483E33483E33483E33808080' +
       '000000483E33808080000000483E33808080000000483E33808080' +
       '000000483E33808080000000494034808080000000494034808080' +
       '000000494034808080808080000000494034808080000000494034' +
       '494034494034000000808080494034494034808080000000000000' +
       '000000494034483E33483E33483E33483E33483E33808080483E33' +
       '808080000000808080483E33000000483E33808080000000483E33' +
       '808080000000494034808080000000494034808080000000494034' +
       '808080');
rcmQuickBank := BitmapFromString(16, 6,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFFFFFFFF');
rcmQuickBankY := BitmapFromString(17, 5,
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000000000000000');
StoreAllY := BitmapFromString(15, 6,
        'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '');
StoreAll := BitmapFromString(15, 6,
        'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '');
end;

begin
BitMaps;
ST:=GetSystemTime;
LoadChars('')
SetMouseMode(False);
tempbank:=2842230;
tempLadder:=875655;
tempLadder2:=2316400;
tripcount := 3; town2:= town;
Loged:=false; Fixed:=True
Pickmode:=Pick
LoginIfNeeded;
Chatfix;
FindPickHeadColor(true);
PutOn;
if(ColorsFound=true)then
begin
If(FindColorSpiralTolerance(x,y,banklogo,574,8,722,160,Tolerance))Then ToRocks;
repeat
If(Loged)then break;
DoMining;
ToBank;
trips:=trips+1
PrintProgressReport;
ToRocks;
until(Loged);
end;
end.

From: benleegt
Easier?!

We had no good getuptext (That was so flawed) we had no TPAs and dtms and much less ddtms. We literally had to cut the screen up ourselves, and we couldnt find text or anything so we had to get a bitmap of the menu options when we needed to click menus!!

And no I won't kill you :) Hy71194

agreed. I remember for my smelter dividing the screen up. I personally searched right to left in like lines i guess going up the screen. Each time extending the line a little further to the left and then calling findcolor etc. Ahh the good old times for findobj :P

Hahah renax. Chriz's ironminer. Legend.

I swear to god, this was my first script. I didnt have ANY tutorials, only the ones from f1 lolol.

// INTERNET EXPLORER OPENER !!!
// BY - SEB
// HAVE INTERNET FIRST ROW SECOND PLACE!!!

program Internet;

begin
clickmouse(37,109,true);
wait(10);
clickmouse(37,109,true);
writeLn('the internet was opened!');
end.

Holy shit…
I found my cooker…
from CD…they are at least 2-3 years old…
I had few more scripts by dankness and odie but while opening them I got external error…


I remember this script…

SQUIG YOU ARE AWESOME!

<-because this…

//------ dark_snipers auto_yew_cutter-------\\
//---------------set colors ----------------\\
//---------------press play ----------------\\
//------------------------------------------\\
//--------- ______________________----------\\
//-------- /SQUIG YOU ARE AWESOME!\---------\\
//---------\______________________/---------\\
//()__()__()__()__()__()__()__()__()__()__()\\


program auto_yew_cutter_banker;
{.include squig.txt}
var
cutted,treesymbol,x,y:integer;

{//setup}const{setup\\}
road=7237496;//minimap road color
treecol=0;
yewlog=0;
bank=0;
I_want_to_cut=100;//how many you want to cut

//---end setup---\\

procedure loadbitmaps;
begin
treesymbol := BitmapFromString(17, 17, 'z78DAE594410E843008' +
       '45AF04A5EDD0656DF5FE479ACCE08284E0B4D5DDB8783131FE571' +
       '001F8AF0B0B46281E9F4AEEDCA9BD3CAE19BD64DC4B842331D770' +
       'DE0BAD71361F5BFE9C53A8922DC75DAEE5325FB8F146F587E54E1' +
       '5048DA0845E03D4EB8AEE54E1756FC2325C91EDDEA2E54BE98CD0' +
       'CB1FB75897BC9B32319E3932D562D4F9B33320D409DA629FAE4DB' +
       '2A5B578DB60EDDFA73D64D8C59239265CCC1FD963BA3FFA2B3FBB' +
       '39D776F21BC8FB6AD8');
       freebitmap(treesymbol);
       end;


Procedure Flag;
var flagimage,timeout:integer;
begin

     flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
     timeout:=0
     repeat
      timeout:=timeout+1;
           wait(250);
     until(not findbitmapin( flagimage, x, y, 570, 5, 725, 162)) or (timeout > 120);
     freebitmap(flagimage);
end;


procedure road_trees;
begin
findcolorspiral(x,y,road,608, 122,665, 160)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
wait(7000+random(300))
flag;
wait(200+random(200))
findcolorspiral(x,y,road,629, 136, 658, 158)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(200+random(200))
findcolorspiral(x,y,road,615, 134, 671, 162)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(200+random(150))
end;

procedure find_tree;
begin
findbitmaptolerancein(treesymbol,x,y,545, 3,754, 160,7)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
wait(7000)
flag;
wait(200+random(55))
repeat
findcolorspiral(x,y,treecol,546, 1,658, 161)
wait(200)
movemousesmoothex(x,y,1,4,55,55,55)
wait(200)
IsTextat2(9,9,'chop down yew',100)
clickhuman(x,y,true)
findrandoms;
until(findcolorspiral(x,y,yewlog,691, 431,732, 457))or
findcolorspiral(x,y,yewlog,651, 431,689, 459)
findcolorspiral(x,y,road,682, 22,725, 62)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
flag;
findcolorspiral(x,y,road,645, 9, 668, 25)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
findcolorspiral(x,y,road,645, 9, 668, 25)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
end;

procedure tobank_banking;
begin
findcolorspiral(x,y,bank,621, 27,740, 157)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(300)
openbank;
deposit(1,2,0)
deposit(1,3,0)
cutted:=cutted+28
end;

procedure progress_report;
begin
writeln('')
writeln('|-------Dark_snipers auto yew cutter--------')
writeln('|-------------------------------------------')
writeln('|------> cut'+inttostr(I_want_to_cut)+' yew logs')
writeln('|-------------------------------------------')
writeln('|---->worked for '+inttostr(timerunningmin)+' Minutes '+inttostr(timerunningsec)+' Seconds')
writeln('|-------------------------------------------')
end;

begin
setupsquig;
repeat
flag;
road_trees;
find_tree;
tobank_banking;
until(I_want_to_cut>=cutted)

end.

Ok here comes my first script, no fucking lauch!

//my first working scripts wat cooks food in al-kharid bank
//have food u want to cook in 1st bank slot
//this script is free and its working too!!!
//drag client window, set colours and hit play
//its haves antirandom too

//Created by Negaal

{.include squig.txt}
const
bank =  5099997;//minimap bank
rangeMM = 6262953;//minimap range or kebab seller symbol
rangeMs = 1579035   ;//mainscreen range color

var a,b,x,y : integer;
bbb : integer;
procedure cook;
begin
findcolor(a,b,Bank,555,5,735,155);
    MouseC(a+random(2)-2,b+random(2)-2+bbb,1);
    wait(1000+random(100));
    mapflagging;
    MapCompass('w');
    wait(200);
    OpenBank;
    wait(150+random(50));
    depositall;
    banktop;
    wait(random(50));
    Withdraw(1,1,0);
wait(100+(3565));
MouseC(690+random(2)-2,110+random(2)-2+bbb,1);
wait(1000+(100));
mapflagging;
findcolor(a,b,rangemm,555,5,735,155);
    MouseC(a+random(2)-2,b+random(2)-2+bbb,1);
    wait(1000);
    mapflagging;
    useitem(1,1);
    wait(200+(300));
    findcolor(x,y,rangems,s1,s2,s3,s4);
    movemouse(x,y);
    wait(200+(300));
    clickhuman(x,y,false);
    wait(400+(1200));
    clickhuman(x+random(3)-3,y+25,true);
    wait(4000+(500));
    mousec(260+random(2)-2,425+random(2)-2,2)
    wait(400+(600));
    mousec(260+random(2)-2,425+random(2)-2,1)
    findrandoms;
    wait(52000+(4679));
    end;
    
    begin
    setupsquig;
    cook;
    findrandoms;
    cook;
    findrandoms;
    cook;

    findrandoms;
    cook;
    findrandoms;
    cook;

    findrandoms;
    cook;
    findrandoms;
    cook;

    findrandoms;
    cook;
    findrandoms;
    cook;
    findrandoms;
    cook;
    findrandoms;
    cook;
    cook;
    findrandoms;
    cook;
    findrandoms;
    cook;
    findrandoms;
    cook;
    findrandoms;
    cook;
    end.

It's not made by me I think…

program CowKiller;

{.include library2.txt}

////SETUP////////////////////////////////////////////////////////////////
const mcolour = 1781357;//The colour of the monster on the mainscreen//
/////////////////////////////////////////////////////////////////////////



procedure kill;
begin
repeat
findcolortolerance(x,y,mcolour,0,0,516,336,20);///finds cow color
mmouse(x,y,5,6);                                 ///moves the mouse to the cow color
wait(500+random(500));                               ///waits
until(IsTextAt2(9,9,'Walk here / 2 more options',100)=true)          ///does the latter until it finds the text attack at the top of the screen
mouse(x,y,0,0,false);
wait(random(50));
Mouse(x,y,5,2,true);
wait(16000);
end;

begin
repeat                      ///starts looping
kill
GhostSpeak('Fighting');     ///autochat see library2.txt
until(false)                ///loop forever

end.

I had few more scripts on CD, but it was kinda very damaged…


Ahhh, cleaned the CD a bit :)

program Squigglyos_FireMakerDeluxe;
{.include Squig.txt}

//Requires Squig Version 4 or higher

{You will need a current version of Squig to run this}

{ Start in Edgevil Bank
  Start with tinderbox in your first inventory slot
  The rest of your inventory needs to be logs.
  Logs in bank need to be in the first spot.}
  
{Version 3}

{This is a script created by Squigglyo
You may not pass this off as your own script
You may not sell this script
You may not alter this script
You may, use this as much as you like
For any problems, or info about future updates,
contact [email]lesser_demon_slayer@hotmail.com[/email], or pm me,
if you know where to find me}

{Squigglyo is, and always will be the owner of this script
and owns all rights to this script}

var
  a, b, TotalDone, UpDown, bbb : integer;
  NoMoreLogs, stoppingscript, once : boolean;
  expgetting : extended;
  TheStatus : string;
  
const
  MiniWater = 12029819         ;//The stream east of the bank
  WaterSymbol = 14769962   ;//The water symbol on the minimap
  BankSymbol =  3853273    ;//The bank symbol color of the bank
  TinderBox = 8224391     ;//The color of the tinerbox in your inventory (sorta grey)

  UserName = 'lol'    ;//Your username
  Password = 'noob'    ;//Your password
  YourBankID = 7169;//Your Bank ID

  TotalNeeded = 1400       ;//Total Amount of logs
  TypeofLog = 2            ;//0 is normal, 1 is oak, 2 is willow,
  //3 is for Teak, 4 is maple, 5 is Mahogany, 6 is yew and 7 is magic

  Lamp = 'RC' ;//The skill you wish to train when a lamp comes


  //DEBUG//
  LogWait =    300           ;//Only change if you seem to be dropping logs and not burning them.
                           //Its the ammount of seconds to wait between logs (1 is the default value)
  /////////

Function LogPresent : Boolean;
Var
  TheLog, TheLog2, TheLog3, TheLog4 : Integer;
Begin
  Thelog := BitmapFromString(28, 17, 'z78DAC5964992C3200C45AF046' +
       '8C24B63C8FD8FD4698BAE1205243843358BBF006C9E85F465E7C6' +
       '8389326C7C63862281233A464A21B327F9533A0843AA1AC987ADD' +
       '173DEEE9F3EABEA710F84192524B73CF860801C9D306E92055196' +
       '38CDCC8C70C0ACCF22E620774E0EB0CE6909679C3D6DB3AAFB17D' +
       '47EA9BB387A4E112E88CD297D7C96D9AA0A9570B3F7FE15CE87A7' +
       'FF5B3C5577F1C895A4D7ABF1349CB8A10F0E22802FBFCCE07B2A8' +
       'DB9D501E7170855B5761A86B3A66C2650210156FFA9ABAAE72D0C' +
       'AAE9219BC6A4EA79FA94A173B0A612BB7C50CE08B2E16EE366DF6' +
       '309EDE9336D7826542B3538E08C52305BDAE6CDE71E75FB819F1B' +
       'F75B8AD5B24B584E0E94204692844939F5AE7BCE9A035AF5CB1EF' +
       'E44977D40FBA3256CE279DF0938ABFD41967E88B0E920CA19D943' +
       '6A486C7E2A67F7152F72BEE6FF672E691F17E203C1FAB9CED81B7' +
       'F8BF32547AD7F2608C5177527AD91AA4A68B377FDDE7BDA6536F7' +
       'F6B8CCF930C2EE6B43BBC0930E3561FB14C30F312C5EDB');
  TheLog2 := BitmapFromString(29, 11, 'z78DAB5954B72C4200C4' +
       '4AF04E883589A01DFFF487190322517438A496558F4C21FF1DC48' +
       'ED105EAF9A0A10D45002A5A34BA728C804CD343240CD9D23945CA' +
       '93F55AF0CD56796EAEBE8BB480538FC69CDB457B514BB3067E87E' +
       'AF25C98E8E6A4ACB9D10E083B4BF32EC33DB89FCABB7C62CC4177' +
       '3E18AC1A8BCEEBBEA69D55BC496DA0E1B574A10BDBEF0F6039CAA' +
       '9CF14CA7ED3EFA2147CA807AC57352C318890B1EB1FA27F55CF24' +
       '93585FC20895DF5463BEF1BF1484D5D32860589D557CDF400F173' +
       '3A4F9FBEABB4EAE451A5E1796411ECB76A8EF3C630AB3FA399CD5' +
       '36D64C892F6510EBA6E16227CCED493D6FC6FD862BD7D8557A59A' +
       'D926DFB652CEF5F30BDA5C985869D5E799D6FA6124C3BCEFBBBA9' +
       '37B33EDD56918C538EF79F5CD29D0AF6FF1C930BAC5266E91BD6F' +
       '10CE9C5A73D1094CD7F1C98DA748FDE95BA35DE5C306ED1B7F109' +
       'F306346ACCEE82ECD842FB9929923');
  TheLog3 := BitmapFromString(29, 11, 'z78DAB5D54B9284200C06' +
       'E02B415EC05245EE7FA4B10CD31506B168BBC7C5BFF0015F4188C' +
       'E5D5F314B448C8B08FA9A24002578CA6ED7949D9636EDD3A964F6' +
       'C7B789824BBCE1EE927B74CD68EF0DF366D50A137D51AB2942E8A' +
       'BA7CF77D7D6681930BA8419B267F114004736DD059B17DA7F706A' +
       '72C0B59DFDD0FAABDA904819382C9C60D5776A9EFBD29BEF85BA3' +
       'E35D53090E8F835B512344DFDDB0AA95F9DDA586445B26B6847B3' +
       'CEC6304AAB1AD9264EE8489B580A8A3537E3EBFA67DE2037F76DD' +
       'EDB06C2FB4E72A1DDA8404828F970AAF6DCFD5E5BABE2EC0CA379' +
       'DFCDF95EA1DAE0182058E79FB55D5ECEAE3FF4D5FB35A7BED96B9' +
       '109DAD3D4D6EDF2AAEAD1899BD63EFB6BA8537B42100EB046CF05' +
       '8AFD0BE89DA6063ED03EECC0E769A5A3467FB53F964B9C40');
  TheLog4 := BitmapFromString(29, 11, 'z78DAB595411683200C05AF' +
       '0424806C117AFF23150DFA423156B165310B9F8DE33749953A3E9' +
       '37319F2846E8644C4645E2A388D61A39D1137F2EB376831EE750C' +
       '6415D4D0B9627BEE70DDB9DA7AD4BFB325960460F7E9399430D96' +
       '20077CD1613945F71F6B6FFF024F2E7523F10E90AF784646CB10D' +
       '26B677567AA08E828DE78608A0976A4B4A955D0E6DFDE5EB57765' +
       '3C03B84EE27DB29788DAA26A95D80D8D4619E8D49CF2137694E45' +
       'DBEC2D0277E695BFE42F91BB0986E7FB44B49DCB27D7D576EDD8D' +
       'E9612A6CD203DF72EAFEF8A834E6093C53DBF4C9CB0819F784AB6' +
       '08C67FF8B0BE15DF65C8F6F9BF06D9524F9289CFCE43F0D121B4D' +
       '93EB0BDBD81D7ACEAB4AE7B86CE1B33BF9056');
  Result:= FindBitmapTolerancein(TheLog, a, b, I1, I2, I3, I4, 30);
  If(result=false)then
    result:= FindBitmapTolerancein(TheLog2, a, b, I1, I2, I3, I4, 30);
  If(result=False)Then
    result:= FindBitmapTolerancein(TheLog3, a, b, I1, I2, I3, I4, 30);
  If(result=False)Then
    result:= FindBitmapTolerancein(TheLog4, a, b, I1, I2, I3, I4, 30);
  FreeBitmap(TheLog);
  FreeBitmap(TheLog2);
  FreeBitmap(TheLog3);
  FreeBitmap(TheLog4);
End;

Function AttemptPresent : Boolean;
Var
  attempt : Integer;
Begin
  attempt := BitmapFromString(15, 7,
       'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B9A581' +
       'B9A581B9A581B9A581000000B9A581B9A581BBAE92000000000000' +
       '000000BAAB8ABAAB8AB9A581000000000000000000B9A581B9A581' +
       '000000000000000000000000BAAB8ABAAB8ABAAB8A000000B9A581' +
       'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B9A581' +
       'BBAE92000000000000000000000000B9A581B9A581000000B9A581' +
       'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8ABAAB8A' +
       'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B9A581' +
       '000000B9A581B9A581000000B9A581B9A581BAAB8A000000BAAB8A' +
       'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
       '000000B9A581BAAB8AB9A581000000000000');
  result:= FindBitmaptoleranceIn(attempt, a, b, 40, 410, 70, 430, 100);
  FreeBitmap(attempt);
End;

Function CantPresent : Boolean;
Var
  cant : Integer;
Begin
  Cant := BitmapFromString(24, 11,
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581BAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92BAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
       '000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABBAE92' +
       'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB9A581' +
       'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE92000000' +
       'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000BAAB8A' +
       '000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
       'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92BBAE92' +
       'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8ABAAB8A' +
       'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A000000' +
       'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8A' +
       'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
       'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
       'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B9A581' +
       '000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000BBAE92' +
       'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A' +
       'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8ABAAB8A' +
       'BAAB8A000000BAAB8ABAAB8ABBAE92000000000000000000000000' +
       'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE92000000' +
       '000000000000000000');
  result:= findbitmaptolerancein(cant,a,b,13,413,173,435,100);
  FreeBitmap(cant);
End;

Function BurnPresent : Boolean;
Var
  Burn : Integer;
Begin
  Burn := BitmapFromString(8, 10,
       '000000B29975B29975B29975B29975B29975B9A581B9A581000000' +
       'B9A581B9A581B29975B29975B29975B29975B29975000000B9A581' +
       'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B29975' +
       'B29975B29975B9A581B29975B29975000000000000000000B29975' +
       'B29975B29975B29975000000000000B9A581B29975000000B29975' +
       'B29975B29975000000000000B29975B29975B29975000000B29975' +
       'B29975000000000000B29975B29975B29975000000B29975B29975' +
       '000000000000B29975B9A581B9A581000000B9A581B9A581000000' +
       '000000000000000000000000B9A581B9A581B9A581B9A581');
  result:= findbitmaptolerancein(burn,a,b,233,415,249,431,100);
  FreeBitmap(Burn);
End;

procedure DeadHandler;
begin
  writeln('');
  writeln('');
  writeln('You Are Dead');
  writeln('');
  writeln('');
  stoppingscript:=true;
end;

procedure ChangeReport;
var
  str1 : string;
begin
  str1:=floattostr(expgetting*totaldone);
  clearreport;
  addtoreport('Hello ' + username + ' this is the status so far');
  addtoreport('FireMaker Deluxe by Squigglyo');
  addtoreport('***********************');
  addtoreport('Currently: '+ (TheStatus));
  addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
  addtoreport('XP Gained: '+str1);
  addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
  addtoreport('Worked for: ' + WorkedFor);
end;

procedure OutOfBank;
var
  a1, c, a2 : integer;
begin
  TheStatus:=('Out of Bank');
  Status(TheStatus);
  ChangeReport;
  Direction:='SE';
  repeat
    findrandoms;
    if(fightfound=true)then
      begin
        MouseC(random(5)+670,random(5)+110,1);
        MapFlagging;
      end;
    findcolor(a,b,BankSymbol,555,5,725,155);
    a2:=a
    a:=a+random(10)+35;
    b:=b-random(10)-17;
    a1:=a;
    c:=0;
    repeat
      a1:=a1-random(3);
      if(similarcolors(getcolor(a1,b),15528686,50))or(similarcolors(getcolor(a1,b),2105598,100))then
        begin
          a1:=a;
          b:=b-5-random(2);
        end;
      if(b<20)then
        begin
          findcolor(a,b,banksymbol,555,5,725,155);
          a1:=a;
          c:=c+1;
          a:=a+random(10)+50;
          b:=b-random(13)-20;
          if(c=10)then
            begin
              writeln('')
              writeln('')
              writeln('Got lost leaving the bank')
              writeln('')
              writeln('')
              stoppingscript:=true;
              exit;
            end;
        end;
        wait(1);
    until(a1<(a2-25));
    MouseC(a,b,1);
    wait(500+random(100));
  until(FlagPresent=true);
  MapFlagging;
  wait(random(300)+800);
end;

procedure BackToBank;
var
  c : integer;
begin
  TheStatus:=('Back to the Bank');
  Status(TheStatus);
  ChangeReport;
  Direction:='S'
  FindRandoms;
  c:=0;
  while(findcolor(a,b,Banksymbol,555,5,735,155)=false)do
    begin
      a:=random(35)+665;
      b:=random(75)+85;
      MouseC(a,b,1);
      wait(random(300)+300);
      MapFlaggingR;
      if(c=5)then
        begin
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          TheStatus:=('Lost way to the bank');
          Status(TheStatus);
          ChangeReport;
          stoppingscript:=true;
          exit;
        end;
        c:=c+1;
    end;
  c:=0;
  repeat
    findcolor(a,b,BankSymbol,555,5,735,155);
    MouseC(a+random(10)-5,b+random(10)-5+bbb,1);
    c:=c+1;
    if(c=25)then
      begin
        writeln('');
        writeln('');
        writeln('Lost way to the bank');
        writeln('');
        writeln('');
        stoppingscript:=true;
        exit;
      end;
  until(FlagPresent=true);
  wait(random(300)+300);
  MapFlagging;
end;

procedure MoveUp;
var
  c : integer;
begin
  TheStatus:='Moving back to the bank';
  Status(TheStatus);
  ChangeReport;
  c:=0
  If(Once=True)Then
    begin
      MouseC(250+random(5),135-random(5),1);
      Once:=False;
      a:=random(10)+570;
      b:=random(10)+215;
      MouseC(a,b,2);
      wait(random(100)+800);
      ClickText('mine', I1, I2, I3, I4, true);
      exit;
    End
    Else
      Once:=True;
  if(findcolor(a,b,WaterSymbol,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      c:=c+1;
      mouseC(475+random(5),260+random(5),1);
      wait(random(300)+500);
      MapFlagging;
      if(c=25)then
        begin
          stoppingscript:=true;
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          exit;
        end;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
  c:=0;
  if(findcolor(a,b,MiniWater,640,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      if(c=25)then
        begin
          stoppingscript:=true;
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          exit;
        end;
      c:=c+1;
      MouseC(random(10)+120,random(10)+100,1);
      wait(random(300)+500);
      MapFlagging;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
  c:=0;
  if(findcolor(a,b,MiniWater,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      if(c=25)then
        begin
          stoppingscript:=true;
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          exit;
        end;
      c:=c+1;
      MouseC(random(10)+120,random(10)+100,1);
      wait(random(300)+500);
      MapFlagging;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
    c:=0
  if(findcolor(a,b,MiniWater,555,5,735,160)=false)and(findcolor(a,b,WaterSymbol,555,5,735,160)=false)and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      c:=c+1
      MouseC(random(10)+640,random(10)+115,1);
      MapFlagging;
      begin
        Writeln('');
        writeln('');
        Writeln('Lost way to the bank');
        Writeln('');
        writeln('');
        stoppingscript:=true;
        exit;
      end;
    until(findcolor(a,b,BankSymbol,555,5,736,160))or(getcolor(467,286)=65535)
  c:=0
  if(getcolor(467,286)=65535)then
    repeat
      mousec(675+random(10),115+random(10),1);
      MapFlagging;
      c:=c+1
      if(c=20)then
        begin
          Writeln('');
          writeln('');
          Writeln('Lost way to the bank');
          Writeln('');
          writeln('');
          stoppingscript:=true;
          exit;
        end;
    until(findcolor(a,b,banksymbol,555,5,735,160));
  repeat
    c:=c+1
    findcolor(a,b,banksymbol,555,5,735,160)
    MouseC(a+random(10),b+random(10),1);
    if(c=25)then
      begin
        stoppingscript:=true;
        writeln('');
        writeln('');
        writeln('Lost way to the bank');
        writeln('');
        writeln('');
        exit;
      end;
    wait(random(200)+400);
  until(FlagPresent);
  MapFlagging;
  a:=random(10)+575;
  b:=random(10)+215;
  MouseC(a,b,2);
  wait(random(300)+300);
  MouseC(a+random(10),b+random(3)+52,1);
  wait(random(200)+200);
  OutOfBank;
end;

procedure FireMaking;
var
  color1, color2, color3, c : integer;
begin
  TheStatus:='Making Fires';
  Status(TheStatus);
  Direction:= 'SE'
  MouseC(random(10)+570,random(10)+225,0);
  if(IsTextAt3(9,9,'Use T',100)=false)then
    begin
      writeln('');
      writeln('');
      writeln('Couldnt find the tinerbox in your inventory');
      writeln('');
      writeln('');
      stoppingscript:=true;
      exit;
    end;
  repeat
    c:=0;
    Color1:=getcolor(262,57);
    Color2:=getcolor(416,56);
    Color3:=getcolor(63,182);
    FindRandoms;
    if(fightfound=true)then
      begin
        MoveUp;
        exit;
      end;
    if(IsDead=true)then
      Exit;
    UseItem(1,1);
    wait(random(200)+300);
    TheStatus:=('Finding the Log')
    Status(TheStatus);
    ChangeReport;
    if(LogPresent=false)then
      begin
        TheStatus:='Getting new logs';
        Exit;
      end;
    MouseC(a+random(10)+5,b+random(5)+5,1);
    wait(random(200)+200);
    repeat
      c:=c+1;
      wait(10);
      if(CantPresent)then wait(500);
        if(CantPresent)then
          begin
            MoveUp;
            if(stoppingscript=true)then
              exit;
              C:=150;
          end;
        Findrandoms;
        if(fightfound=true)then
          begin
            MoveUp;
            c:=150;
          end;
    until(c=150)or(AttemptPresent);
    if(c<>150)then
      begin
      c:=0;
        repeat
          Findrandoms;
          if(RandomTalked=true)or(fightFound=true)then
            MoveUp;
          wait(100);
          c:=c+1
        until(c=30)or((BurnPresent)and((color1<>getcolor(262,57))or(color2<>getcolor(416,56))or(Color3<>getcolor(63,182))));
      end;
    wait(random(100)+(LogWait));
  until(NoMoreLogs=True);
  wait(random(150)+300);
end;

procedure GetExp;
begin
  if(typeoflog=0)then
    expgetting:=40;
  if(typeoflog=1)then
    expgetting:=60;
  if(typeoflog=2)then
    expgetting:=90;
  if(typeoflog=3)then
    expgetting:=157;
  if(typeoflog=4)then
    expgetting:=135;
  if(typeoflog=5)then
    expgetting:=105;
  if(typeoflog=6)then
    expgetting:=202.5;
  if(typeoflog=7)then
    expgetting:=303.75;
end;

begin
  SetupSquig;
  Loadchars('');
  MapCompass('N');
  clearReport;
  runback:=true;
  UpDown:=1;
  direction:='W';
  StoppingScript:=false;
  user:=username;
  pass:=password;
  BankID:= YourBankID;
  SetChat;
  Once:=True;
  FindRandoms;
  NoMoreLogs:=False;
  ChangeReportWidth(350);
  OpenBag;
  GetExp;
  If(IsDead=true)then
    DeadHandler;
  a:=random(10)+570;
  b:=random(10)+215;
  MouseC(a,b,0);
  if(istextat3(9,9,'Use Tinder',100)=false)then
    begin
      writeln('');
      writeln('');
      writeln('Couldnt find the tinderbox');
      writeln('');
      writeln('');
      stoppingscript:=true;
    end;
  MouseC(a,b,2);
  wait(random(100)+800);
  ClickText('mine', I1, I2, I3, I4, true);
  repeat
    if(stoppingscript=true)then
      break;
    OutofBank;
    If(IsDead=true)then
      DeadHandler;
    if(stoppingscript=true)then
      break;
    FireMaking;
    If(IsDead=true)then
      DeadHandler;
    if(stoppingscript=true)then
      break;
    NoMoreLogs:=False;
    FindRandoms;
    BackToBank;
    If(IsDead=true)then
      DeadHandler;
    if(stoppingscript=true)then
      break;
    FindRandoms;
    TotalDone:=TotalDone+27;
    if((TotalDone+1)>TotalNeeded)then
      exit;
    a:=0;
    while(OpenBank=false)do
      begin
      a:=a+1;
      bbb:=bbb+7;
      BackToBank;
      if(a=5)then
        begin
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          Break;
        end;
      end;
    bbb:=0;
    DepositAll2(1,2);
    wait(random(300)+300);
    BankTop;
    wait(random(300)+300);
    Depositall2(1,2);
    wait(random(300)+300);
    Withdraw(1,1,0);
    wait(random(300)+300);
    CloseBank;
    wait(random(300)+300);
    FindRandoms;
    RandomLogout(8.00);
    if(loggedin=false)then
      Login;
  until(TotalNeeded<=TotalDone)or(stoppingscript=true);
  Logout;
end.

{+++++++++++++++++++++++++++++++++++++++++]
                 AutoFighter
                    v1.6311
                by: odie5533
[+++++++++++++++++++++++++++++++++++++++++]
Instructions:
 1.Setup lines 54-69
 2.Vbright, 32 bit color
 3.Highest angle of view
 4.Scar 1.13
 5.Requires OSi v3.4
 6.To use Eat function, have a piece of
   the kind of food you want to eat in 1st
   invin slot
 7.To use the Bone Burier, have a bones in
   the 2nd invin slot
[+++++++++++++++++++++++++++++++++++++++++]
 Special Thanks To:
 x piv x, Stupid3ooo, Joolz, and Nick
 Super Special Thanks to: Pups!!!
[+++++++++++++++++++++++++++++++++++++++++}

{ChangeLog:
 v1.0 - Initial release
 v1.01 - Updated wait timing
 v1.1 - Added Login Procedure, fixed Progress Report, and MapFlag waiting
 v1.2 - Added Bone Collector, fixed wait times, Progress Report more accurate
 v1.21 - Login faster, fixed fightmode changing, bone burying faster
 v1.22 - Fixed login procedure
 v1.5 - Added anti-randoms, and added eating fucntion
 v1.6 - Fixed anti-randoms, updated various things
 v1.61 - poop
 v1.62 - I dno anymore
 v1.63 - Fixed the anti-randoms
 v1.631 - Fixed talk procedure and added SetFightMode after login
 v1.6311 - Works with current OSi}

program AutoFighter;
var ax,ay,report,report2,FightMode:Integer;
BonesCollected,BonesBuried,Killed,Timeout,Ate,LastBuried,Runs,RandomCount,Lamps:Integer; {Counters}
BoneColor,BoneInvColor,color1,color2,mcolor,tol,FoodInvColor:Integer; {Colors}
TakeBones,TakeBonesY,AttackIt,AttackIt2,TalkW,TalkY,iLamp:integer; {Bitmaps}
RWX,RWY,CriticalHP:integer; //Misc
BoneCollecting,Att,Run,CHP,EatFood,Attacking:boolean;
STT,LastFight,LFTimeout,TT:LongInt;
username,password,RunWhere:string;
{.include OSi.txt}
{.include BoxBreaker.txt}

Procedure Setup;
begin
//+++++++++++++++Setup+++++++++++++++
Username:=''; //Set Username
Password:=''; //Set Password
color1:=9275528; //Monster Color 1
color2:=8550520; //Monster Color 2
tol:=0; //Tolerance to find the monster color. 0 is default
FightMode:=4; //Set fight mode 1-4 top to bottom
EatFood:=true; //True to eat food, false to not
FoodInvColor:=1932007; //Set the color of the food in your invin
CriticalHP:=65; //Percent of HP left when you should run
RunWhere:='S'; //Set Which way to run if fight random occurs
Timeout:=30; //The maximum time (in seconds) a fight should last (will run if lasts longer)
LFTimeout:=8; //The maximum time (in min) between fights
BoneCollecting:=false; //Set True to collect bones, Fasle to not
BoneColor:=13487571; //Set BoneColor on Screen
Report:=10; //Set how often to print progress report (in minutes)

end; //End of Setup

//+++++++++++++++Anti-Randoms+++++++++++++++
procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
if(length(username) > 0)and(length(password) > 0)then
begin
if(IsTextAt2(293,251,'Username',0))and(NotLogedIn)then
  Mouse(460,322,10,2,true);
if(IsTextAt2(309,241,'Welcome to RuneScape',0))and(NotLogedIn)then
 begin
  Mouse(400,280,125,20,true);
  if(IsTextAt2(271,214,'Enter your username',50))then
   begin
    Mouse(400,256,20,5,true);
    SendKeysSilentsmooth(username,50);
    Mouse(400,270,20,5,true);
    SendKeysSilentsmooth(password,50);
    Mouse(300,322,20,5,true);
    repeat
     counter:=counter+1;
     wait(100);
    until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
   end;
 end;
if(FindColor(x,y,8421504,400,0,515,338))then
 begin
  Mouse(x+5,y+1,15,5,true);
  sendarrowsilentwait(0,900+random(200))
  wait(200+random(100));
  SetFightMode(FightMode);
 end;
end;
end;

Procedure Eat;
var c:integer;
begin
Writeln('You have low hp, now running...')
SetRun(true);
Mouse(648+RWX,83+RWY,2,2,true);
wait(2000);
MapFlag;
wait(1000+random(500));
OpenBag;
if(EatFood)and(FindColorSpiral(x,y,FoodInvColor,560,210,730,460))then
repeat
OpenBag;
if(FindColorSpiral(x,y,FoodInvColor,560,210,730,460))then
begin
 Mouse(x,y,3,3,true);
 wait(3000+random(500));
 Ate:=Ate+1;
end;
c:=c+1;
until(GetHp>80)or(c>5)
OpenBag;
if(not(FindColorSpiral(x,y,FoodInvColor,560,210,730,460)))and(GetHp<80)then
 LogOut('Low HP and unable to eat');
Status('Walking back to NPCs');
Mouse(648-RWX,83-RWY,2,2,true);
wait(2000);
MapFlag;
CHP:=false;
end;

Procedure RunAway;
begin
Status('Running Away...')
runs:=runs+1;
GetScreenshot('Ran',runs);
SetRun(true);
Mouse(648+RWX,83+RWY,2,2,true);
wait(2000);
MapFlag;
wait(10000+random(3000));
Status('Running Back...')
Mouse(648-RWX,83-RWY,2,2,true);
wait(2000);
MapFlag;
Run:=false;
end;

procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(200)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
 begin
  RandomCount:=RandomCount+1;
  GetScreenShot('YellowtextFound',RandomCount);
  repeat
   counter:=counter+2+random(1);
   if((x+counter) < 515)and((y+18) < 338)then
    MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
   wait(5);
   if(IsTextAt2(9,9,'Ta',100))then
    begin
     GetMousePos(x,y);
     Mouse(x,y,0,0,false);
     Wait(200+random(100));
     if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
      begin
       Mouse(x,y,40,5,true);
       MapFlag;
       wait(1000+random(1000));
       while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
            (FindColor(x,y,16777215,5,345,510,465)))and
            (not(GetColor(20,434)=0))and(c<=10)do
        begin
         GetScreenShot('Talked',RandomCount);
         Mouse(x,y,50,2,true);
         wait(2000+random(1000));
         c:=c+1;
        end;
       Talked2Rand:=true;
      end;
    end;
  until(counter>=250)or(Talked2Rand);
 end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
 begin
  Lamps:=Lamps+1;
  GetScreenshot('Lamp',Lamps);
  Mouse(x,y,10,10,true);
  wait(3000+random(1000));
  Mouse(157,220,12,12,true)
  wait(3000+random(1000));
  Mouse(248,255,10,2,true);
  wait(3000+random(1000));
  Mouse(226,442,10,3,true);
  wait(3000+random(1000));
  end;
end;

procedure FindMiscRandoms;
var ax,ay:integer;
begin
 if(FindColor(ax,ay,786423,10,350,150,433))then
  begin
   GetScreenshot('Mod',1);
   LogOut('UHOH, A MOD!!!');
  end;
 if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
  begin
   GetScreenshot('Dead',1);
   LogOut('You are dead!');
  end;
 if(FindColor(ax,ay,11503238,10,350,479,433))then
  begin
   GetScreenshot('Mime',1);
   LogOut('Mime Found');
  end;
end;

Procedure FindRandoms;
begin
LoginIfNeeded;
FindText;
FindBox;
FindMiscRandoms;
end;

Procedure ProgressReport;
var
  RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
  Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+' Seconds';
  if Minutes<>0 then
  begin
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  if RHours<>0 then
  begin
   RMinutes:=Minutes Mod (RHours*60);
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  begin
  writeln(' ');
  writeln('<=================Progress Report================>');
  writeln('Worked for '+Time);
  writeln('Fought '+inttostr(Killed)+' time[s]');
  if(EatFood)then
  writeln('Ate '+inttostr(ate)+' pieces of food')
  if(bonecollecting)then
  writeln('Collected '+inttostr(BonesCollected)+', and buried '+inttostr(BonesBuried)+' bones');
  writeln('Handled: '+inttostr(RandomCount)+' Randoms, and ran from '+inttostr(runs)+' random events');
  writeln('<================================================>');
  Report2:=GetSystemTime;
  end;
end;
end;

Procedure GetBoneInvColor;
begin
   Status('Getting boneinvcolor...');
   OpenBag;
   MMouse(620,220,10,10);
   Wait(500+random(200));
   If(IsTextAt2(9,9,'Bury',100))then
    begin
      BoneInvColor := GetColor(625,230);
      Status('BoneInvinColor is '+inttostr(BoneInvColor));
    end else
   begin
      BoneCollecting := false;
      Writeln('');
      Writeln('No bone in second inv slot!');
      Writeln('');
   end;
end;

Procedure BoneBurier;
begin
OpenBag;
Wait(200+random(100));
Status('Burying bones...');
   If(FindColorSpiral(x,y,(BoneInvColor),555,216,740,465))then
   repeat
    LastBuried:=0;
    Mouse(x,y,10,10,true);
    Wait(1500+random(300));
    BonesBuried:=BonesBuried+1;
   until(not(FindColorSpiral(x,y,(BoneInvColor),555,216,740,465)));
end;

Procedure BoneCollector;
begin
   Wait(200+random(100));
   Status('Collecting bones...');
   x:=262;
   y:=174;
   If(FindColorSpiral(x,y,(BoneColor),5,5,515,337))then
   begin
      Mouse(x,y,5,5,false);
      wait(50+random(25));
      If(FindBitmapIn(TakeBones,x,y,5,5,515,337))then
      begin
         Mouse(x,y,0,0,true);
         Wait(15+random(5));
         BonesCollected:=BonesCollected+1;
         LastBuried:=LastBuried+1;
         MapFlag;
         wait(500+random(100));
      end;
      If(FindBitmapIn(TakeBonesY,x,y,5,5,515,337))then
      begin
         Mouse(x,y,0,0,true);
         Wait(15+random(5));
         BonesCollected:=BonesCollected+1;
         LastBuried:=LastBuried+1;
         MapFlag;
         wait(500+random(100));
      end;
   end;
end;

Procedure Attack;
var c:integer;
begin
mcolor:=random(2);
case mcolor of
 0:mcolor:=color1;
 1:mcolor:=color2;
end;
x:=25+random(200);
y:=25+random(200);
if(FindColorSpiralTolerance(x,y,mcolor,5,5,514,337,tol))then
begin
status('Attacking...');
 MoveMouseSmooth(x,y);
 GetMousePos(ax,ay);
 if(not FindColor(ax,ay,65280,ax-15,ay-30,ax+10,ay+15))and
   (not(FindColor(ax,ay,65280,240,125,270,180)))then
 begin
  Mouse(ax,ay,1,1,false);
  wait(150+random(50));
  if(FindBitmapIn(AttackIt,x,y,10,12,516,342))or
    (FindBitmapIn(AttackIt2,x,y,10,12,516,342))then
  begin
    Attacking:=true;
    wait(50+random(25));
    Mouse(x,y,5,3,true);
    for c:=0 to 3 do
    if(not (FindColorSpiral(ax,ay,65280,240,125,270,180)))then
    begin
     MapFlag;
     wait(300+random(100));
     FindRandoms;
    end;
  end else
   MMouse(5,5,60,60);
 end;
end;
end;

Procedure WaitWhileAttacking;
var c:integer;
begin
if(FindColorSpiral(ax,ay,65280,240,125,270,180))then
begin
 if(Attacking)then
 begin
  Killed:=Killed+1;
  Attacking:=false;
 end;
 STT:=GetSystemTime;
 repeat
  TT:=(GetSystemTime-STT)/1000;
  status('Fighting monster for '+inttostr(TT)+' second(s)')
  wait(300);
  if(TT>Timeout)then
   Run:=true;
  if(c>3)then
  begin
   FindRandoms;
   if(GetHp<CriticalHP)then
    CHP:=true;
   c:=0;
  end;
  c:=c+1;
 until(not (FindColorSpiral(ax,ay,65280,240,125,270,180)))or(Run)or(CHP)
 if(Run)then
 begin
  Status('Fight lasted too long')
  RunAway;
 end;
 if(CHP)then
  Eat;
 LastFight:=GetSystemTime;
 If(BoneCollecting)then
  BoneCollector;
end;
end;

Procedure LoadBmps;
begin
TakeBones := BitmapFromString(70, 1,
       'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
       'FFFFFF5D54475D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D5447' +
       '5D54475D54475D54475D54475D5447FF9040FF9040FF9040FF9040' +
       'FF90400000000000005D54475D5447FF9040FF9040FF9040FF9040' +
       '5D54475D54475D5447FF9040FF9040FF9040FF9040FF90405D5447' +
       '5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
       '5D54475D5447FF9040FF9040FF9040FF9040FF9040');
TakeBonesY := BitmapFromString(70, 1,
       'FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00' +
       'FFFF005D54475D54475D5447FFFF00FFFF00000000FFFF00FFFF00' +
       '5D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
       '5D54475D54475D54475D54475D5447FF9040FF9040FF9040FF9040' +
       'FF90400000000000005D54475D5447FF9040FF9040FF9040FF9040' +
       '5D54475D54475D5447FF9040FF9040FF9040FF9040FF90405D5447' +
       '5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
       '5D54475D5447FF9040FF9040FF9040FF9040FF9040');
AttackIt := BitmapFromString(10, 6,
      'FFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475D54475D5447' +
      '5D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447' +
      '5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
      '5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
      'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
      'FFFFFF0000000000000000005D5447FFFFFFFFFFFF0000005D5447' +
      'FFFFFFFFFFFF0000005D54475D54475D5447');
AttackIt2 := BitmapFromString(21, 7,
      '5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
      '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
      '5D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
      '5D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D54475D5447' +
      '5D5447FFFF00FFFF00FFFF00FFFF005D54475D5447FFFF00FFFF00' +
      '0000000000000000005D5447FFFF00FFFF00000000000000FFFF00' +
      'FFFF005D54475D5447FFFF00FFFF00000000000000000000000000' +
      '5D5447FFFF00FFFF000000005D54475D54475D54475D5447FFFF00' +
      'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
      '5D54475D54475D54475D5447FFFF00FFFF000000005D54475D5447' +
      '5D5447FFFF00FFFF00000000000000FFFF00FFFF000000005D5447' +
      'FFFF00FFFF000000005D54475D54475D54475D5447FFFF00FFFF00' +
      '0000005D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
      'FFFF000000005D5447FFFF00FFFF000000005D54475D54475D5447' +
      '5D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447FFFF00' +
      'FFFF00FFFF00FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
      'FFFF00FFFF005D5447');
TalkW := BitmapFromString(17, 10,
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
        'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
//Lamp pic by Chriz
iLamp := BitmapFromString(17, 6,
       '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
       '9291128C8A1275740E000001000001000001000001000001D0CE18' +
       'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
       '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
       'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
       '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
       'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
       '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
       'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
       '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
       'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
       '000001000001C2C118');
end;

begin
clearreport;
Setup;
SetupOSi;
Report2:=ST;
LoadBmps;
LoginIfNeeded;
SetFightMode(FightMode);
OpenBag;
ChatFixer;
if(BoneCollecting)then
 GetBoneInvColor;
LFTimeout:=LFTimeout*60000;
LastFight:=GetSystemTime;
case RunWhere of
 'N':begin RWX:=-1; RWY:=-48; end;
 'S':begin RWX:=1; RWY:=48; end;
 'E':begin RWX:=-58; RWY:=-1; end;
 'W':begin RWX:=58; RWY:=1; end;
end;
repeat
 FindRandoms;
 wait(300+random(150));
 Att:=False;
 Attack;
 WaitWhileAttacking;
 If(BoneCollecting)and(LastBuried>4)then
  BoneBurier;
 ProgressReport;
until(GetSystemTime-LastFight>LFTimeout);
LogOut('Loop Ended');
end.

{=========================================================================]
[                    Stupid3ooo's StupidChopperBanker                     ]
[                             version: 1.01                               ]
[=========================================================================]
| Description:                                                            |
|  A macro that starts in the Draynor or Edgeville bank and walks to the  |
|  trees, either Yew or Willow, south of the bank. It chops a full load of|
|  logs from the Yew or Willow trees then returns to the bank and repeats |
|  the process.                                                           |
| Instructions:                                                           |
|   1.Set the Runescape brightness to V-bright, and your computer's       |
|     resolution to 32bit resolution.                                     |
|   2.Need SCAR version 2.0.3.                                            |
|   3.Start the script in the Draynor or Edgeville bank so that the trees |
|     are visible in the minimap.                                         |
|   4.Click and drag the cross heir onto the Runescape client and press   |
|     the green arrow at the top to run the script.                       |
|   5.You may set your own colors lines 37-39 (optional).                 |
[=========================================================================]
[ *Be sure to open SSI2.txt for more options.                             ]
[ *For general SCAR help go to:                                           ]
|     [url]http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm[/url]              ]
[ Thanks to, RS Cheating community                                        ]
[ *PLEASE POST ANY BUGS/HELP IN THE FORUMS OR E-MAIL                      ]
[   [email]RSTradeMonkey@hotmail.com[/email], or [email]Stupid3ooo@gmail.com[/email]                    ]
[ If you like pwease donate to me :) at:                                  ]
[   [url]http://www.stupidscripts.com[/url]                                          ]
[=========================================================================}

program StupidChopperBanker;

{.include SSI2.txt}
{.include BoxBreaker.txt}

const
//=//===============Colors(Leave as 0 to let script find)==============\=\\
MMBankColor= 3460064;//Color of the trees in the minimap.(SS:3060683)
MMTreeColor= 96769;//Color of the trees in the minimap.(SS:15891)
MSTreeColor= 606264;//Color of the trees in the mainscreen. (SS:1849400)
//=\\=================================================================//=\\
//=\\ Under the varibles you may disable the forms and setup options. //=\\
//=\\=================================================================//=\\

var
  TreeMapColor,TreeColor,Report,Report2,Banks,MaxWait,TinderBox,LogBmp,
  BankColor,Location,Mark:integer;
  UseForm,NoAxe,EquipAxe,StartScript:boolean;
  frmDesign,frmMore:TForm;
  labPassword,labUsername,labMaxWait,labMaxWait2,labLocation:TLabel;
  edtUsername,edtPassword,edtMaxWait:TEdit;
  bMoreOptions,bStart,bSave,bDonate:TButton;
  cbLogsOut,cbChats,cbEquipAxe,cbRotates,cbScarScape:TCheckBox;
  cboxLocation:TComboBox;

procedure Setup;
begin
//=\\============================Setup================================//=\\
UseForm:= true;//If you wish to use the form.
Username:= Username;//Username.
Password:= Password;//Password.
ScarScape:= false;//Set to true if you are using ScarScape.
LogsOut:= true;//If you want to log out every so often for antiban.
Chats:= true;//If you want to randomly chat for anti-ban.
Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
MaxWait:= 300;//Maximum time in seconds to wait while chopping a tree.
Location:= 1;//1= Draynor(Willow), 2= Edgeville(Yew)
EquipAxe:= false;//If you can/want to equip your axe.
//=\\=================================================================//=\\
end;

//DO NO TOUCH BELOW

//==============================Misc Procedures===============================\\

procedure ProgressReport;
var
  RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
  Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+' Seconds';
  if(banks>0)then
    avtime:=Seconds/banks;
  if Minutes<>0 then
  begin
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  if RHours<>0 then
  begin
   RMinutes:=Minutes Mod (RHours*60);
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
   +inttostr(RSeconds)+' Seconds';
  end;
  begin
  writeln(' ');
  writeln('<=================Progress Report================>');
  WriteLn('Worked for '+Time);
  WriteLn('Banked '+IntToStr(banks)+' loads[s].');
  WriteLn('Banked '+IntToStr(banks*27)+' logs[s].');
  if(Location=1)then
    WriteLn('Gained '+floattostr(30*(banks*27))+'xp.');
  if(Location=2)then
    WriteLn('Gained '+floattostr(60*(banks*27))+'xp.');
  if(Location=1)then
    WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
    ' logs and '+floattostr(3600/avtime*30*27)+' xp an hour.');
  if(Location=2)then
    WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
    ' logs and '+floattostr(3600/avtime*60*27)+' xp an hour.');
  WriteLn('Random Event Report:');
  if(fights>0)then WriteLn('  Fought '+IntToStr(fights)+' time[s].');
  if(talks>0)then WriteLn('  Talked to '+IntToStr(talks)+' Random event[s].');
  if(lamps>0)then WriteLn('  Used lamps '+IntToStr(lamps)+' time[s].');
  if(boxes>0)then WriteLn('  Solved '+IntToStr(boxes)+' box[es].');
  if(logs>0)then WriteLn('  Logged in '+IntToStr(logs)+' time[s].');
  if(foresters>0)then WriteLn('  Solved '+IntToStr(foresters)+' forester[s].');
  if(frogs>0)then  WriteLn('  Solved '+IntToStr(foresters)+' frog[s].');
  if(doctors>0)then  WriteLn('  Solved '+IntToStr(doctors)+' doctor[s].');
  if(certers>0)then  Writeln('  Solved '+IntToStr(certers)+' certer[s].');
  writeln('<================================================>');
  Report2:=GetSystemTime;
  end;
end;
end;

procedure FindRandoms;
begin
  FindBox;
  FindNormalRandoms;
  AntiBan;
  FindDoctor;
  if(not(FindAxe))then
    NoAxe:=true;
  if(FindFight)then
  begin
    if(Location=1)then
      RunAwayDirection('S');
    if(Location=2)then
      RunAwayDirection('N');
    Wait(5000+random(1000));
    RunBack;
  end;
end;

procedure SetColors;
begin
  TreeMapColor:=MMTreeColor;
  TreeColor:=MSTreeColor;
  BankColor:=MMBankColor;
end;

//=========================Color Finding Procedures===========================\\

procedure FindTreeColor;
var
  c:integer;
begin
  repeat
  c:=c+1;
  if(FindObj('Chop',1849400,10))then
  begin
    if(FindColorTolerance(x,y,1849400,x-30,y-30,x+30,y+30,10))then
    begin
      TreeColor:=GetColor(x,y);
      break;
    end;
  end;
  until(c>10)or(TreeColor>0)
  if(TreeColor>0)then
  begin
    writeln('TreeColor: '+inttostr(TreeColor));
  end else
  begin
    WriteLn('Could not find tree color, please stand next to a tree and '+
    'make sure the tree spot symbol is visible in the minimap, then'+
    ' run the script again');
    TerminateScript;
  end;
end;

procedure FindMapTreeColor;
var
  MMTreeBmp,c:integer;
  acc,angle:Extended;
begin
  if(Location=1)then
  begin
    MMTreeBmp := BitmapFromString(8, 8, 'z78DAA5CF310AC0300C43D12BC591B1' +
       'BD266DEE7FA586AA83C150285DDEA2BF28D41D2D92DD0CB2AA310' +
       '3E86C64E99441B922ECE8C8B2CF25AD65F67FAF4D4D90AD7DB88F' +
       'FDE516032A4EF7BB8593D6F2BD7FFCD85F763D5379');
    FindDeformedBitmapToleranceRotationIn(MMTreeBmp,x,y,582,37,700,117,70,0,acc,PI/10,0,2*PI,angle);
    repeat
    c:=c+5;
    if(FindColorTolerance(x,y,2321464,x-10,y-10,x+10,y+10,c))then
      TreeMapColor:=GetColor(x,y);
    until(TreeMapColor>0)or(c>70);
  end;
  if(Location=2)then
    FindSymbolColorIfNeeded('rare trees',true,TreeMapColor);
  if(TreeMapColor>0)then
  begin
    WriteLn('TreeMapColor: '+inttostr(TreeMapColor));
  end else
  begin
    WriteLn('Could not find tree color, please stand next to a tree and '+
    'make sure the tree spot symbol is visible in the minimap, then'+
    ' run the script again');
    TerminateScript;
  end;
end;

//========================Map Walking procedures==============================\\

procedure ToTrees;
begin
  RoadWalk(TreeMapColor,'S');
  FlagAtColor(TreeMapColor);
end;

procedure ToBank;
begin
  if(not(FindMMColor(BankColor)))then
  begin
    RoadWalk(TreeMapColor,'N');
    Flag;
  end;
  if(Location=1)then
    ToBankers(BankColor,5,0);
  if(Location=2)then
    ToBankers(BankColor,-5,0);
  FlagAtColor(BankColor);
end;

//========================Main Screen Procedures==============================\\

procedure Bank;
begin
  if(FindColor(x,y,BankColor,608,43,688,123))then
  begin
    FindBox;
    if(NoAxe=true)and(EquipAxe=true)then
    begin
      GameTab(5);
      Mouse(593,303,r,r,true);
      Wait(1000+random(100));
      GameTab(4);
    end;
    OpenBank;
    if(BankScreen)then
    begin
      if(NoAxe=true)then
      begin
        ClickAllItemsColorWait('All',65536,1000+Random(100));
        Withdraw(1,1,1);
      end else
      begin
        if(EquipAxe=false)then
          Deposit(2,28,2);
        if(EquipAxe=true)then
          ClickAllItemsColorWait('All',65536,1000+Random(100));
      end;
      if(NoAxe=true)and(EquipAxe=true)then
      begin
       FindAxeHeadColor;
        ClickItemColor(AxeHeadColor,true);
      end;
      Banks:=Banks+1;
      NoAxe:=false;
      ProgressReport;
    end;
    CloseWindow;
  end;
end;

procedure ChopTree;
var SysTime:integer;
begin
  if(FindObj('Chop',TreeColor,0))then
  begin
    Mouse(x,y,r,r,false);
    if(not(FindColor(x,y,65535,x,y,x+100,y+50)))then
    begin
      ChooseOption('Chop');
      Flag;
      Wait(1000+random(100));
      MarkTime(SysTime);
      FindEnt(TreeColor);
      repeat
      FindRandoms;
      if(not(Option('Chop')))then
        Break;
      FindEnt(TreeColor);
      Wait(1000+random(100));
      until(TimeFromMark(SysTime)>MaxWait*1000)or(InventoryFull)
    end else
    begin
      ChooseOption('Cancel');
      FindEnt(TreeColor);
    end;
  end;
end;

procedure LoadBmps;
begin
  TinderBox := BitmapFromString(30, 8, 'z78DABD946B8E83300C84' +
       'AF94871D7B7E1A02F73FD2BA71B44AB5546DD5DD65A41102E47C3' +
       '8E33091D58DC31B752AE976659C20D770CB6868775E21900B6700' +
       '3ABD6183CDFBF1B615AA09AF3858CDD595B46A93DDD58584828D1' +
       '7E67872B1EEEA8A8E7D3A70A03FF1F1E51BB4A2BB6E7A2ABB540E' +
       'E99A455DD2CE764CE6A5B77395CD12CEE9BB65D707FE06ADEAA11' +
       'DF906E8D445F3ECF026554A4B6C6CC119BE2523A3BFF0D7930043' +
       'D21345E11ACC9187C67C70F79BEADF2ECCFFD3C987B43BB22B321' +
       'CA98026392315DC595882B3A6922214DFA978E09F503DA1ED28AE' +
       '48457438E6AE8A89458757DA704F33559DE43159317DE37C98356' +
       '3D746E55FA38D9A713AADCC63EEDADEA8D14FDA98BEBB193CACB8' +
       '62DF97A9BFF88BD8CD37FF62A59DD5A2CE382BE6F48D545CD02EE' +
       '7DB171D6738D8');
  LogBmp := BitmapFromString(23, 6, 'z78DA9D914B0EC3200C44AFE43F781' +
       '928B9FF918A7017AE12AAA82C6681C6330F03300F1A89A1DB9081' +
       'BD9022F6AA56785432E15E4E236EA51B4CADFA622FAA8DCB97C67' +
       'D78B2E6D99460A71A8B142624580CA1D6A4616FECA27A9C0E4A37' +
       '24579E6B7B762EBD4958E44162AEC8904982A1A1A3F217C96E339' +
       '7DEF06C35E7C4ECE289760602821DC974329EB59A0BE49C6DCB13' +
       '5D6941123BF993E467FE739EFC47F95F76241F1ED732790EEB829' +
       'FC6ACCFB7914962272A83061B19F87C74477B03BE82B29E');
end;

//===========================================Form=============================\\

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure ShowMoreModal;
begin
  frmMore.ShowModal;
end;

procedure SafeShowForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure SafeMore;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitMore', v);
end;

procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript:=true;
end;

procedure More(sender: TObject);
var
  v: TVariantArray;
begin
SafeMore;
setarraylength(V, 0);
ThreadSafeCall('ShowMoreModal', v);
end;

procedure SaveOptions;
begin
  LogsOut:=cbLogsOut.State;
  Chats:=cbChats.State;
  ScarScape:=cbScarScape.State;
  Username:= edtUsername.Text;
  Password:= edtPassword.Text;
  if(Username='')or(Password='')then
  begin
    Username:='No Username';
    Password:='No Password';
  end;
  case cboxLocation.Text of
    'Draynor (Willow)': Location:=1;
    'Edgeville (Yew)': Location:=2;
  end;
end;

procedure Save(sender: TObject);
begin
  frmMore.Caption:= frmMore.Caption + '.';
  frmMore.ModalResult:= mrOk;
  SaveOptions;
end;


procedure Donate(sender: TObject);
begin
OpenWebPage('http://www.stupidscripts.com');
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 359;
  frmDesign.Top := 225;
  frmDesign.Width := 258;
  frmDesign.Height := 204;
  frmDesign.Caption := 'StupidChopperBanker';
  frmDesign.Color := clWhite;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  labPassword := TLabel.Create(frmDesign);
  labPassword.Parent := frmDesign;
  labPassword.Left := 96;
  labPassword.Top := 44;
  labPassword.Width := 46;
  labPassword.Height := 13;
  labPassword.Caption := 'Password';
  labUsername := TLabel.Create(frmDesign);
  labUsername.Parent := frmDesign;
  labUsername.Left := 96;
  labUsername.Top := 6;
  labUsername.Width := 48;
  labUsername.Height := 13;
  labUsername.Caption := 'Username';
  labLocation := TLabel.Create(frmDesign);
  labLocation.Parent := frmDesign;
  labLocation.Left := 96;
  labLocation.Top := 80;
  labLocation.Width := 44;
  labLocation.Height := 13;
  labLocation.Caption := 'Location';
  cbScarScape := TCheckBox.Create(frmMore);
  cbScarScape.Parent := frmDesign;
  cbScarScape.Left := 88;
  cbScarScape.Top := 151;
  cbScarScape.Width := 80;
  cbScarScape.Height := 17;
  cbScarScape.Hint :=
  'Check if you are using ScarScape.';
  cbScarScape.ShowHint := True;
  cbScarScape.Caption := 'ScarScape?';
  if(ScarScape)then
  begin
    cbScarScape.Checked := True;
    cbScarScape.State := cbChecked;
  end;
  edtUsername := TEdit.Create(frmDesign);
  edtUsername.Parent := frmDesign;
  edtUsername.Left := 64;
  edtUsername.Top := 20;
  edtUsername.Width := 121;
  edtUsername.Height := 21;
  edtUsername.TabOrder := 1;
  edtUsername.Text := Username;
  edtPassword := TEdit.Create(frmDesign);
  edtPassword.Parent := frmDesign;
  edtPassword.Left := 64;
  edtPassword.Top := 58;
  edtPassword.Width := 121;
  edtPassword.Height := 21;
  edtPassword.PasswordChar := '*';
  edtPassword.Text := Password;
  bMoreOptions := TButton.Create(frmDesign);
  bMoreOptions.Parent := frmDesign;
  bMoreOptions.Left := 178;
  bMoreOptions.Top := 151;
  bMoreOptions.Width := 70;
  bMoreOptions.Height := 17;
  bMoreOptions.Caption := 'More Options';
  bMoreOptions.OnClick:= @More;
  cboxLocation := TComboBox.Create(frmDesign);
  cboxLocation.Parent := frmDesign;
  cboxLocation.Left := 64;
  cboxLocation.Top := 94;
  cboxLocation.Width := 121;
  cboxLocation.Height := 21;
  cboxLocation.ItemHeight := 13;
  cboxLocation.Text := 'Draynor (Willow)';
  cboxLocation.Items.Add('Draynor (Willow)');
  cboxLocation.Items.Add('Edgeville (Yew)');
  bStart := TButton.Create(frmDesign);
  bStart.Parent := frmDesign;
  bStart.Left := 87;
  bStart.Top := 121;
  bStart.Width := 75;
  bStart.Height := 25;
  bStart.Caption := 'Start';
  bStart.TabOrder := 5;
  bStart.OnClick:= @Start;
  bDonate := TButton.Create(frmDesign);
  bDonate.Parent := frmDesign;
  bDonate.Left := 1;
  bDonate.Top := 144;
  bDonate.Width := 75;
  bDonate.Height := 25;
  bDonate.Caption := 'Donate Plz';
  bDonate.TabOrder := 13;
  bDonate.OnClick:= @Donate;
end;

procedure InitMore;
begin
  frmMore := CreateForm;
  frmMore.Left := 288;
  frmMore.Top := 161;
  frmMore.Width := 294;
  frmMore.Height := 108;
  frmMore.Caption := 'More Options';
  frmMore.Color := clWhite;
  frmMore.Font.Color := clWindowText;
  frmMore.Font.Height := -11;
  frmMore.Font.Name := 'MS Sans Serif';
  frmMore.Font.Style := [];
  frmMore.Visible := False;
  frmMore.PixelsPerInch := 96;
  labMaxWait := TLabel.Create(frmMore);
  labMaxWait.Parent := frmMore;
  labMaxWait.Left := 5;
  labMaxWait.Top := 7;
  labMaxWait.Width := 196;
  labMaxWait.Height := 13;
  labMaxWait.Caption := 'Maximum time to wait while cuting a tree:';
  labMaxWait2 := TLabel.Create(frmMore);
  labMaxWait2.Parent := frmMore;
  labMaxWait2.Left := 243;
  labMaxWait2.Top := 10;
  labMaxWait2.Width := 40;
  labMaxWait2.Height := 13;
  labMaxWait2.Caption := 'seconds';
  edtMaxWait := TEdit.Create(frmMore);
  edtMaxWait.Parent := frmMore;
  edtMaxWait.Left := 204;
  edtMaxWait.Top := 5;
  edtMaxWait.Width := 38;
  edtMaxWait.Height := 21;
  edtMaxWait.MaxLength := 3;
  edtMaxWait.TabOrder := 9;
  edtMaxWait.Text := inttostr(MaxWait);
  cbLogsOut := TCheckBox.Create(frmMore);
  cbLogsOut.Parent := frmMore;
  cbLogsOut.Left := 5;
  cbLogsOut.Top := 22;
  cbLogsOut.Width := 66;
  cbLogsOut.Height := 17;
  cbLogsOut.Hint := 'If you want to log out about every 3 hours for anti-ban.';
  cbLogsOut.Caption := 'Logs out?';
  cbLogsOut.ParentShowHint := False;
  cbLogsOut.ShowHint := True;
  cbLogsOut.TabOrder := 10;
  if(LogsOut)then
  begin
    cbLogsOut.Checked := True;
    cbLogsOut.State := cbChecked;
  end;
  cbChats := TCheckBox.Create(frmMore);
  cbChats.Parent := frmMore;
  cbChats.Left := 5;
  cbChats.Top := 38;
  cbChats.Width := 54;
  cbChats.Height := 17;
  cbChats.Hint :=
  'If you want to chat random prashes every so often for anti-ban.';
  cbChats.Caption := 'Chats?';
  cbChats.ParentShowHint := False;
  cbChats.ShowHint := True;
  cbChats.TabOrder := 11;
  if(Chats)then
  begin
    cbChats.Checked := True;
    cbChats.State := cbChecked;
  end;
  cbRotates := TCheckBox.Create(frmMore);
  cbRotates.Parent := frmMore;
  cbRotates.Left := 78;
  cbRotates.Top := 22;
  cbRotates.Width := 97;
  cbRotates.Height := 17;
  cbRotates.Hint :=
  'If you want to randomly rotate the camera every so often for ant' +
  'i-ban.';
  cbRotates.ShowHint := True;
  cbRotates.Caption := 'Rotates?';
  cbRotates.TabOrder := 15;
  if(Rotates)then
  begin
    cbRotates.Checked := True;
    cbRotates.State := cbChecked;
  end;
  cbEquipAxe := TCheckBox.Create(frmMore);
  cbEquipAxe.Parent := frmMore;
  cbEquipAxe.Left := 5;
  cbEquipAxe.Top := 54;
  cbEquipAxe.Width := 97;
  cbEquipAxe.Height := 17;
  cbEquipAxe.Caption := 'Equip axe?';
  cbEquipAxe.Hint :='Check if you are able and want to equip your pick.';
  cbEquipAxe.ShowHint := True;
  cbEquipAxe.TabOrder := 14;
  if(EquipAxe)then
  begin
    cbEquipAxe.Checked := True;
    cbEquipAxe.State := cbChecked;
  end;
  bSave := TButton.Create(frmMore);
  bSave.Parent := frmMore;
  bSave.Left := 227;
  bSave.Top := 57;
  bSave.Width := 57;
  bSave.Height := 15;
  bSave.Caption := 'Save';
  bSave.TabOrder := 12;
  bSave.OnClick:= @Save;
end;

procedure StartForm;
begin
  if(UseForm)then
  begin
    SafeMore;
    SafeShowForm;
    if(StartScript=false)then
      TerminateScript;
    SaveOptions;
    ActivateClient;
    Wait(1000+random(500));
  end;
end;

//======================================Main Line=============================\\

begin
SetupSSI;
Setup;
StartForm;
SetColors;
LoadBmps;
FindSymbolColorIfNeeded('Bank',true,BankColor);
if(FindAxeHeadColor)then
begin
  FindMapTreeColor;
  RoadWalk(TreeMapColor,'S');
  FindTreeColor;
  repeat
  SetRun(true);
  MarkTime(Mark);
  repeat
  FindRandoms;
  ChopTree;
  until(InventoryFull)or(NoAxe=true)or(TimeFromMark(Mark)>1800000)
  SetRun(false);
  ToBank;
  Bank;
  ToTrees;
  until(false)
end;
end.

{========================================]
              Edgeville Cooker
                   v1.11
                By Odie5533
[========================================]
 1.Have the fish you want to cook in 1st
   Bank Slot
 2.Start in Bank
 3.Works best on Low Detail
[========================================]
 Special thanks to Chrilleman, for help
 on the XP Gained in the Report Procedure
[========================================}

program EdgevilleCooker;
{.include OSi.txt}
{.include BoxBreaker.txt}
var RawFish,iLamp,TalkW,TalkY:integer; {Bitmaps}
CookCount,AttackCount,TalkCount,YellowTextCount,LampCount,FR,KillSwitch,xpx:integer; {Counters}
subx,suby:integer; UnderAttack,FindColors:boolean;
BankSymbol,PotColor,RangeColor,WaterSymbol:integer; {Colors}
const

//=\\========================================//=\\
Username = '';
Password = '';
FishType = 3; //What kind of fish to cook?
{0 Lobster, 1 Trout, 2 Salmon, 3 Shrimp, 4 Swordfish
 5 Herring, 6 Tuna, 7 Sardine, 8 Pike, 9 Anchovies
 10 Cod, 11 Shark, 12 Mackerel, 13 Bass}
Procedure Setup; begin
KillSwitch:=551; //How many fish do you have to cook?
FindColors:=true; //Automatically get colors?
BankSymbol := 5099242; //Color of the bank symbol
WaterSymbol := 13572352;
PotColor := 3042748; //Color of the Shop Pot (Lightest)
RangeColor := 1518279; //Debug ONLY
////==========================================\\\\
end;


Procedure Report(doing:string);
var times,timem,timeh,StrSecZero,StrMinZero,avtime:string;
    Hours,Minutes,Seconds:LongInt;
begin
  clearreport;
  Seconds:=(GetSystemTime-ST) div 1000;
  if(CookCount>0)and(Seconds>0)then
   avtime:=inttostr(3600/(Seconds/CookCount));
  Hours:=Seconds div 3600;
  Seconds:=Seconds - (hours*3600);
  Minutes:=Seconds div 60;
  Seconds:=Seconds - (Minutes*60);
  if(minutes<10)then StrMinZero:='0';
  if(seconds<10)then StrSecZero:='0';
  if(hours>0)then timeh:=inttostr(hours)+':';
  if(minutes>0)then timem:=StrMinZero+inttostr(minutes)+':';
  times:=StrSecZero+inttostr(seconds);
addtoreport('Edge Cooker by Odie5533');
addtoreport('***********************');
addtoreport('Currently: '+doing);
addtoreport('Worked for '+timeh+timem+times);
addtoreport('Cooked: '+inttostr(CookCount)+' XP Gained: '+inttostr(CookCount*xpx));
addtoreport('Averaging '+avtime+' fish an hour');
addtoreport('Attacks: '+inttostr(AttackCount)+'  Talked: '+inttostr(TalkCount));
end;

procedure LoginCheck; {Created by Odie5533}
var counter:integer;
begin
if(NotLogedIn)and(length(username)>0)and(length(password)>0)then
begin
if(IsTextAt2(293,251,'Username',0))then
  Mouse(460,322,10,2,true);
if(NotLogedIn)then
if(IsTextAt2(309,241,'Welcome to RuneScape',0))then
 begin
  Mouse(400,280,125,20,true);
  if(IsTextAt2(271,214,'Enter your username',0))then
   begin
    Mouse(400,256,20,5,true);
    SendKeysSilentsmooth(username,50);
    Mouse(400,270,20,5,true);
    SendKeysSilentsmooth(password,50);
    Mouse(300,322,20,5,true);
    repeat
     counter:=counter+1;
     wait(100);
    until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
   end;
 end;
end;
if(LogedIn)then
if(FindColor(x,y,65535,235,40,280,100))and(FindColor(x,y,8421504,400,0,515,338))then
 begin
  Mouse(x+5,y+1,15,5,true);
  sendarrowsilentwait(0,900+random(200))
  wait(200+random(100));
 end;
end;

procedure TalkCheck;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(500);
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
 begin
  YellowTextCount:=YellowTextCount+1;
  GetScreenShot('YellowText',YellowTextCount);
  Report('Yellow Text');
  repeat
   counter:=counter+2+random(1);
   if((x+counter) < 515)and((y+18) < 338)then
    MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
   wait(5);
   if(IsTextAt2(9,9,'Talk',100))then
    begin
     GetMousePos(x,y);
     Mouse(x,y,0,0,false);
     Wait(200+random(100));
     if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
      begin
       Mouse(x,y,40,5,true);
       MapFlag;
       wait(1000+random(1000));
       while((FindColor(x,y,16711680,5,345,510,465))or
            (FindColor(x,y,16777215,5,345,510,465)))and
            (not(GetColor(20,434)=0))and(c<=10)do
        begin
         TalkCount:=TalkCount+1;
         GetScreenShot('Talk',TalkCount);
         Mouse(x,y,50,2,true);
         wait(2000+random(1000));
         c:=c+1;
        end;
       Talked2Rand:=true;
      end;
    end;
  until(counter>=250)or(Talked2Rand);
 end;
end;

Procedure AttackCheck;
var ax,ay:integer;
begin
if(FindColor(ax,ay,65280,240,125,270,180))then
 begin
  AttackCount:=AttackCount+1;
  GetScreenshot('Attack',AttackCount);
  UnderAttack:=true;
 end;
end;

Procedure LampCheck;
var lx,ly:integer;
begin
while(FindBitmapSpiralTolerance(iLamp,lx,ly,560,210,735,465,50))do
 begin
  LampCount:=LampCount+1;
  GetScreenshot('Lamp',LampCount);
  Report('Lamp');
  Mouse(x,y,10,10,true);
  wait(3000+random(1000));
  Mouse(157,220,12,12,true)
  wait(3000+random(1000));
  Mouse(248,255,10,2,true);
  wait(3000+random(1000));
  Mouse(226,442,10,3,true);
  wait(3000+random(1000));
  end;
end;

Procedure WildyCheck;
begin
if(GetColor(466,61)=8421504)or(GetColor(466,61)=16777215)then
  Mouse(435,60,10,3,true);
end;

procedure MiscCheck;
var ax,ay:integer;
begin
 if(FindColor(ax,ay,786423,10,350,150,433))then
  begin
   GetScreenshot('Mod',1);
   LogOut('UHOH, A MOD!!!');
  end;
 if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
  begin
   GetScreenShot('Dead',1);
   LogOut('You are dead!');
  end;
 if(FindColor(ax,ay,11503238,10,350,479,433))then
  begin
   GetScreenshot('Mime',1);
   LogOut('Mime Found');
  end;
end;

Procedure FindRandoms;
begin
WildyCheck;
LoginCheck;
TalkCheck;
MiscCheck;
if(FR>5)then
begin
 FR:=0;
 LampCheck;
 FindBox;
end;
FR:=FR+1;
end;

Procedure ToRange;
begin
Report('To Range');
SetRun(true);
if(not(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5)))then
 begin
  Mouse(615,40,3,3,true);
  MapFlagWalk;
 end;
if(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5))then
 begin
  Mouse(x,y,3,3,true);
  MapFlag;
  if(FindColorTolerance(x,y,PotColor,572,8,752,160,5))then
   begin
    x:=x+20; y:=y-15;
    while(not(SimilarColors(GetColor(x,y),7040372,40)))and(LogedIn)do
     begin x:=x-2;y:=y+1;wait(5);end;
    Mouse(x-5,y+5,2,2,true);
    MapFlag; wait(800+random(200));
    if(FindObjColorTol('Climb',4616328,20))then
     begin
      GetMousePos(x,y);
      ClickMouse(x,y,true);
      wait(5000+random(1000));
      FindRandoms;
      if(FindColorTolerance(x,y,RangeColor,5,5,337,514,10))then
       begin
        Mouse(x,y-35,3,3,true);
        MapFlag; Wait(800+random(200));
       end else
       begin
        Mouse(224,303,20,20,true);
        MapFlag;
       end;
     end;
   end;
 end;
end;

Procedure ToBank;
begin
Report('To Bank');
if(FindObjColorTol('Climb',4616328,20))then
 begin
  GetMousePos(x,y);
  ClickMouse(x,y,true);
  while(not(GetColor(319,153)=16777215))and(LogedIn)do wait(1);
  while(GetColor(319,153)=16777215)and(LogedIn)do wait(1);
  wait(100+random(50));
 end;
if(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5))then
 MouseFlagWalk(x,y,3,3);
if(not(FindColor(x,y,BankSymbol,572,8,722,160)))then
 begin
  FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5)
  MouseFlagWalk(x+20,y+30,3,3);
 end;
if(FindColor(x,y,BankSymbol,572,8,722,160))then
 MouseFlag(x+5,y+10,3,3);
end;

Procedure Bank;
begin
Report('Banking');
if(CookCount>KillSwitch)then
 LogOut('Finished Cooking!');
OpenBank;
Deposit(0,0,0);
Withdraw(1,1,0);
CloseBank;
end;

Procedure CookFish;
var c,rawx,rawy,rangex,rangey:integer;
begin
while(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,30))and
     (FindColorSpiralTolerance(rangex,rangey,RangeColor,5,5,514,337,20))and
     (not(UnderAttack))do
begin
 FindRandoms;
 Mouse(rawx-subx,rawy-suby,25,25,true);
 Mouse(rangex,rangey,3,3,true);
 c:=0;
 while((FindBitmapToleranceIn(RawFish,x,y,rawx-15,rawy-15,rawx+15,rawy+15,30))and(c<20))or(c<3)do
  begin
   c:=c+1;
   wait(200+random(100));
   FindRandoms;
  end;
 CookCount:=CookCount+1;
 Report('Cooking');
end;
end;

Procedure LoadBmps;
begin
case FishType of
0:begin RawFish := BitmapFromString(8, 4,
       '000001874D23804921834C21874D238D5123975725000001000001' +
       '874D23804921874D23905325995928A35E2A000001000001874D23' +
       '834C218D5123000001000001000001000000000000000001000001' +
       '000001000000000000000000000000'); subx:=20; suby:=20; end;//Lobster
1:begin RawFish := BitmapFromString(4, 4,
       '000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE000001' +
       'CDC6C5D6D0D0DAD4D4000000000001000001000001'); subx:=-2; suby:=20; end;//Trout
2:begin RawFish := BitmapFromString(4, 4,
       '000001A98B86AE908AB59691000001B2938DBB9A95C1A49E000001' +
       'BC9C97C2A5A1C4A9A5000000000001000001000001'); subx:=-2; suby:=20; end;//Salmon
3:begin RawFish := BitmapFromString(5, 2,
       '564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB6000001' +
       '302020'); subx:=0; suby:=8; end; //Shrimp
4:begin RawFish := BitmapFromString(5, 6,
       '000001D3B3D9C395CCAE7BB79C7FA1000001D6C7DACFBDD3C9B4CD' +
       '000001000001CCB7CFC4ACC9000001302020000001C0A6C5BB9FC0' +
       '000001302020000001B495BA000001302020302020000001C9B4CD' +
       '000001302020564D42'); subx:=18; suby:=10; end;//Sowrdfish
5:begin RawFish := BitmapFromString(4, 5,
       '564D42000001B7ADAC5F5858000001C2BAB9C9C2C1CFC9C9000001' +
       'CDC6C5D8D2D1DBD6D6000001D9D3D3DCD8D8E0DCDC000001FBFAFA' +
       'F5F3F3F0EEEE'); subx:=-4; suby:=15; end; //Herring
6:begin RawFish := BitmapFromString(6, 6,
       '001C00001C00001C00001C00001C00C2BAB9001C00CDC6C5001C00' +
       '001C00CAC3C2C7C0C0001C00D2CCCC001C00001C00CFC9C9CFC7C7' +
       'D9D3D3D9D3D3D8D2D1D6D1D0D5CFCFD3CDCDDFDADADED9D9DCD8D8' +
       'DBD6D6DED9D9DCD8D8E8E4E4EAE7E7E9E6E6000001000001000001' +
       ''); subx:=5; suby:=17; end; //Tuna
7:begin RawFish := BitmapFromString(4, 5,
       '0000010000013D6F3F509052345B34478049599E5A5DA55E529253' +
       '62AF6367B7686ABE6C6ABE6C6EC46F71CA737DD37F8AAE8A8AAE8A' +
       '8AAE8A83D484'); subx:=8; suby:=8; end; //Sardine
8:begin RawFish := BitmapFromString(6, 5,
       '000001617B626782676E8B6E7493750000016079606580666A876B' +
       '718F71769576000001475A474E624E546A545A715A87AB877E9F7E' +
       '506650546A545A715A60796091B79284A785586F585B745D617B62' +
       '9FC09F93BA93000001'); subx:=16; suby:=3; end; //Pike
9:begin RawFish := BitmapFromString(5, 4,
       '707079797A8483838D78788200000185858F8989951410106C6C75' +
       '00000100000190909C4E4E545B5B6358585F00000187879162626A' +
       '55555B000001'); subx:=20; suby:=7; end; //Anchovies
10:begin RawFish := BitmapFromString(6, 7,
       '6F6F8C70718E7374927777967A7A9A7F7FA07777967A7A9A7C7C9C' +
       '7F7FA08081A28484A57F7FA08283A48586A88888AC8B8BAF8E8FB3' +
       '8586A87E7E887E7E887E7E887E7E880000018888AC7E7E887E7E88' +
       '7E7E887E7E880000018B8BAF7E7E887E7E887E7E887E7E887E7E88' +
       '0000010000010000010000017E7E887E7E88'); subx:=6; suby:=14; end; //Cod
11:begin RawFish := BitmapFromString(6, 4,
       '887F7E8379797A71718A81807A71710000018C8282877D7C9B9090' +
       '8C82827C7373000001AA9E9EACA0A09C91918E84847E7575000001' +
       '000001A49897978D8C8A81807C7373000001'); subx:=19; suby:=17; end; //Shark
12:begin RawFish := BitmapFromString(6, 4,
       '00000184834A89884E8E8D509392539897559291739A9A7AA2A180' +
       'A6A55EABA960B0AE639E9D7DA5A584605959B4B490BBBA96C0BF9D' +
       'A9A987605959BABA94C0BF9DC4C4A5CDCC73'); subx:=-2; suby:=12; end; //Mackerel
13:begin RawFish := BitmapFromString(5, 5,
       '001D00001D00CB8172C98071C77E70001D00001D00D18576CF8474' +
       'CD8373D48F81D48F81D38C7ED38C7ED38A7BD69689D69689D7978C' +
       'D69689D59387DBA59B000001000001000001000001'); subx:=7; suby:=18; end; //Bass
end;
iLamp := BitmapFromString(16, 2,
       '000001000001000001000001000001BAB815B2B015AEAD15ABAA15' +
       '9C9A129291128C8A1275740E000001000001000001C5C418D0CE18' +
       'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
       '99971292911284820E79780E696809');
TalkW := BitmapFromString(17, 10,
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
        'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
end;

Procedure GetColors;
begin
if(FindColors)then
if(FindColorTolerance(x,y,5360864,572,8,722,160,45))then
 begin
  BankSymbol:=GetColor(x,y);
  if(FindColorTolerance(x,y,14564618,572,8,722,160,45))then
   begin
    WaterSymbol:=GetColor(x,y);
    MouseFlag(x,y,5,5);
    if(FindColorTolerance(x,y,3042748,572,8,722,160,40))then
     begin
      PotColor:=GetColor(x,y);
      FindColors:=false;
      writeln('Successfully Found All Colors!');
     end;
   end;
 end;
end;

begin
SetupOSi;
Setup;
LoadBmps;
ChatFixer;
FindRandoms;
GetColors;
KillSwitch:=(KillSwitch div 27)*27;
case FishType of
0:xpx:=120; 1:xpx:=70; 2:xpx:=90; 3:xpx:=30;
4:xpx:=140; 5:xpx:=50; 6:xpx:=100; 7:xpx:=40;
8:xpx:=80; 9:xpx:=30; 10:xpx:=75; 11:xpx:=210;
12:xpx:=60; 13:xpx:=130; end;
if(not(FindColors))then
repeat
ToRange;
CookFish;
ToBank;
Bank;
UnderAttack:=false;
until(false);
end.

//by TV-XXX//
//start in fali east bank//
//fill in set up, run//

program faliyewchopper;

const
 username = '';
 password = '';
 axehead = 6839879;
 road1 = 6517884;
 road2 = 6316136;
 treelogo = 95489;
 treecol = 5211564;
 banklogo = 3851995;
 bankbooth = 4679037;
var
   x,y,n,m,d,f,w,e,k,l,v,b,o,p: integer;

procedure waitforrepeat;
begin
     wait(2000+random(5000));
end;

procedure storelogs;
begin
     findcolor(b,o,4419729,698,343,729,455)
     movemousesmooth(b,o);
     wait(100+random(100));
     clickmouse(b,o,false);
     wait(500+random(500));
     movemousesmooth(b,(o+70));
     wait(100+random(100));
     clickmouse(b,(o+70),true);
     wait(1000+random(500));
     movemousesmooth(459,41);
     wait(100+random(100));
     clickmouse(459,41,true);
     wait(1000+random(1000));
     waitforrepeat;
end;

procedure banking;
begin
     if(findcolor(w,e,bankbooth,0,0,517,341)=true)
     then
     movemousesmooth(w,e);
     wait(2000+random(100));
     clickmouse(w,e,true);
     wait(5000+random(1000));
     if(findcolor(k,l,16711680,208,435,389,457)=true)
     then
     movemousesmooth(303,446);
     wait(100+random(100));
     clickmouse(303,446,true);
     wait(1000+random(1000));
     movemousesmooth(247,392);
     wait(100+random(100));
     clickmouse(247,392,true);
     wait(4000+random(1000));
     storelogs;
     if(findcolor(k,l,16711680,208,435,389,457)=false)
     then
     banking;
     if(findcolor(w,e,bankbooth,0,0,517,341)=false)
     then
     banking;
end;

procedure tobank;
begin
     if(findcolor(d,f,road1,644,24,717,71)=true)
     then
     movemousesmooth(d,f);
     wait(100+random(100));
     clickmouse(d,f,true);
     wait(6000+random(1000));
     movemousesmooth((d-10),(f-5));
     wait(100+random(100));
     clickmouse((d-10),(f-5),true);
     wait(8000+random(1000));
     movemousesmooth((d-10),(f-5));
     wait(100+random(100));
     clickmouse((d-10),(f-5),true);
     wait(10000+random(500));
     if(findcolor(x,y,banklogo,586,42,718,134)=true)
     then
     movemousesmooth(x,(y+5));
     wait(100+random(100));
     clickmouse(x,(y+5),true);
     wait(8000+random(1000));
     banking;
end;

procedure findaxehead;
begin
end;

procedure chopyew;
begin
     if(findcolorspiral(v,b,treecol,0,0,516,340)=true)
     then
     movemousesmooth(v,b);
     wait(100+random(100));
     clickmouse(v,b,true);
     wait(5000+random(1000));
     if(findcolor(x,y,axehead,577,213,596,288)=false)
     then
     findaxehead;
     if(findcolor(n,m,3885652,707,440,714,446)=true)
     then
     chopyew;
     if(findcolor(n,m,3885652,707,440,714,446)=false)
     then
     tobank;
     if(findcolorspiral(v,b,treecol,0,0,516,340)=false)
     then
     wait(5000+random(2000));
     chopyew;
end;

procedure toyews;
begin
     if(findcolor(x,y,road1,613,123,635,154)=true)
     then
     movemousesmooth(x,y);
     wait(100+random(100));
     clickmouse(x,y,true);
     wait(9000+random(1000));
     movemousesmooth((x+30),(y+30));
     wait(100+random(100));
     clickmouse((x+30),(y+30),true);
     wait(9000+random(1000));
     if(findcolor(n,m,road2,628,97,714,148)=true)
     then
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(7000+random(1000));
     if(findcolor(n,m,road2,628,97,714,148)=false)
     then
     toyews;
     if(findcolor(d,f,treelogo,547,72,670,145)=true)
     then
     movemousesmooth(d,f);
     wait(100+random(100));
     clickmouse(d,f,true);
     wait(5000+random(1000));
     chopyew;
     if(findcolor(x,y,road1,613,123,635,154)=false)
     then
     chopyew;
end;

procedure bankortree;
begin
     if(findcolor(x,y,treelogo,578,17,722,143)=true)
     then
     chopyew;
     if(findcolor(x,y,treelogo,578,17,722,143)=false)
     then
     toyews;
end;

procedure setrun;
begin
     movemousesmooth(710,484);
     wait(100+random(100));
     clickmouse(710,484,true);
     wait(100+random(100));
     if(findcolor(k,l,5067346,605,250,640,283)=true)
     then
     movemousesmooth(k,l);
     wait(100+random(100));
     clickmouse(k,l,true);
     wait(100+random(100));
     movemousesmooth(650,186);
     wait(100+random(100));
     clickmouse(650,186,true);
     wait(100+random(100));
     bankortree;
     if(findcolor(k,l,5067346,605,250,640,283)=false)
     then
     movemousesmooth(650,186);
     wait(100+random(100));
     clickmouse(650,186,true);
     wait(100+random(100));
     bankortree;
end;

procedure clickredlog;
begin
     wait(2000+random(2000));
     if(findcolor(o,p,16777215,464,332,614,351)=false)
     then
     clickredlog;
     if(findcolor(o,p,16777215,464,332,614,351)=true)
     then
     movemousesmooth(o,p);
     wait(100+random(100));
     clickmouse(o,p,false);
     wait(100+random(100));
     movemousesmooth((o-10),(p-20));
     wait(100+random(100));
     clickmouse((o-10),(p-20),true);
end;

procedure login;
begin
     writeln('loggin-in')
     if(findcolor(n,m,16777215,392,270,533,310)=false)
     then
     login;
     if(findcolor(n,m,16777215,392,270,533,310)=true)
     then
     movemousesmooth(n,m);
     wait(100+random(100));
     clickmouse(n,m,true);
     wait(100+random(100));
     sendkeys(username+chr(13));
     wait(100+random(100));
     sendkeys(password);
     if(findcolor(k,l,16777215,229,302,371,340)=true)
     then
     movemousesmooth(k,l);
     wait(100+random(100));
     clickmouse(k,l,true);
     wait(100+random(100));
     clickredlog;
end;

procedure loginfinder;
begin
     if(findcolor(x,y,65535,301,231,426,261)=true)
     then
     login;
     if(findcolor(x,y,65535,301,231,426,261)=false)
     then
     setrun;
end;

procedure minimize;
begin
     if(findcolor(w,e,16086339,0,0,1000,1000)=true)
     then
     movemousesmooth(w,e);
     wait(100+random(100));
     clickmouse(w,e,true);
     wait(1000+random(100));
     loginfinder;
     if(findcolor(w,e,16086339,0,0,1000,1000)=false)
     then
     loginfinder;
end;

begin
     minimize;
     wait(240000);
     repeat
     setrun;
     until(false);
end.

From: R0b0t1
Shit!

Bill Gates once said "Who could possibly use more than 1MB of memory?".


Lol @ Him.

He'd probably laugh back:duh: , but with a little more than 1MB of money…oh, did he say memory:redface: ? (1MB is… 1 Million-Billion :( and I have a feeling he may get there.:p )

{========================================]
                  Auto Talker
                   v175.0
                By WT-Fakawi
[========================================]
Dis is my l33t script took me weeks to make im gonna make it pay script
2mill so this is your chance to leech 
[========================================}

                     begin
  repeat
   sendkeys ('talking');
            wait (100);
  until (false);
 end.

Yep, thats WT-Fakawi's first script made circa 1993. As you can see even at the early age of 2 years, Fakawi was a great scripter and always remembered good scripting standards.

^^ Fakawi was like 30 in 1993 :p

From: Hobbit
^^ Fakawi was like 30 in 1993 :p

'

I borned at 91 :D

From: Hobbit
^^ Fakawi was like 30 in 1993 :p

Thats what they want you to believe….

From: Negaal
Holy shit…
I found my cooker…
from CD…they are at least 2-3 years old…
I had few more scripts by dankness and odie but while opening them I got external error…


I remember this script… <-because this…

//------ dark_snipers auto_yew_cutter-------\\
//---------------set colors ----------------\\
//---------------press play ----------------\\
//------------------------------------------\\
//--------- ______________________----------\\
//-------- /SQUIG YOU ARE AWESOME!\---------\\
//---------\______________________/---------\\
//()__()__()__()__()__()__()__()__()__()__()\\


program auto_yew_cutter_banker;
{.include squig.txt}
var
cutted,treesymbol,x,y:integer;

{//setup}const{setup\\}
road=7237496;//minimap road color
treecol=0;
yewlog=0;
bank=0;
I_want_to_cut=100;//how many you want to cut

//---end setup---\\

procedure loadbitmaps;
begin
treesymbol := BitmapFromString(17, 17, 'z78DAE594410E843008' +
       '45AF04A5EDD0656DF5FE479ACCE08284E0B4D5DDB8783131FE571' +
       '001F8AF0B0B46281E9F4AEEDCA9BD3CAE19BD64DC4B842331D770' +
       'DE0BAD71361F5BFE9C53A8922DC75DAEE5325FB8F146F587E54E1' +
       '5048DA0845E03D4EB8AEE54E1756FC2325C91EDDEA2E54BE98CD0' +
       'CB1FB75897BC9B32319E3932D562D4F9B33320D409DA629FAE4DB' +
       '2A5B578DB60EDDFA73D64D8C59239265CCC1FD963BA3FFA2B3FBB' +
       '39D776F21BC8FB6AD8');
       freebitmap(treesymbol);
       end;


Procedure Flag;
var flagimage,timeout:integer;
begin

     flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
     timeout:=0
     repeat
      timeout:=timeout+1;
           wait(250);
     until(not findbitmapin( flagimage, x, y, 570, 5, 725, 162)) or (timeout > 120);
     freebitmap(flagimage);
end;


procedure road_trees;
begin
findcolorspiral(x,y,road,608, 122,665, 160)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
wait(7000+random(300))
flag;
wait(200+random(200))
findcolorspiral(x,y,road,629, 136, 658, 158)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(200+random(200))
findcolorspiral(x,y,road,615, 134, 671, 162)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(200+random(150))
end;

procedure find_tree;
begin
findbitmaptolerancein(treesymbol,x,y,545, 3,754, 160,7)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
wait(7000)
flag;
wait(200+random(55))
repeat
findcolorspiral(x,y,treecol,546, 1,658, 161)
wait(200)
movemousesmoothex(x,y,1,4,55,55,55)
wait(200)
IsTextat2(9,9,'chop down yew',100)
clickhuman(x,y,true)
findrandoms;
until(findcolorspiral(x,y,yewlog,691, 431,732, 457))or
findcolorspiral(x,y,yewlog,651, 431,689, 459)
findcolorspiral(x,y,road,682, 22,725, 62)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
flag;
findcolorspiral(x,y,road,645, 9, 668, 25)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
findcolorspiral(x,y,road,645, 9, 668, 25)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
end;

procedure tobank_banking;
begin
findcolorspiral(x,y,bank,621, 27,740, 157)
movemousesmoothex(x,y,1,4,55,55,55)
clickhuman(x,y,true)
findrandoms;
flag;
wait(300)
openbank;
deposit(1,2,0)
deposit(1,3,0)
cutted:=cutted+28
end;

procedure progress_report;
begin
writeln('')
writeln('|-------Dark_snipers auto yew cutter--------')
writeln('|-------------------------------------------')
writeln('|------> cut'+inttostr(I_want_to_cut)+' yew logs')
writeln('|-------------------------------------------')
writeln('|---->worked for '+inttostr(timerunningmin)+' Minutes '+inttostr(timerunningsec)+' Seconds')
writeln('|-------------------------------------------')
end;

begin
setupsquig;
repeat
flag;
road_trees;
find_tree;
tobank_banking;
until(I_want_to_cut>=cutted)

end.

You know how old that script is XD


wow its even made with squig1 lol pretty old script from me… even though i do have older…. just do not know where….

hmm i did not use standards im amazing if my script can be remembered without standards … im amazing…

From: Renax
best script ever.

 ////////////////////////////////////////////////////
 //           Ultimate Miner & Banker 2.8          //
 //                   By chriz                     //
 ////////////////////////////////////////////////////
 //Setup:                                          //
 // ·Need Scar version 1.13                        //
 // ·High Details, V-Bright, Highest angle of view //
 // ·Map pointing north                            //
 // ·Pickaxe in the first bankslot                 //
 // ·Take minimap colors                           //
 // ·Mine at Varrock southeast or falador south    //
 //  or Mining Guild                               //
 ////////////////////////////////////////////////////

program UltimateMinerBanker;
var
c,l,x,y,n,h,w,k,flag,Talk,TalkY,box,trips,picks,runs,talked,ore,Mine,MineY,Take,TakeY,lamps,ilamp,tempLadder,tempLadder2,
rcmQuickBank,rcmQuickBankY,InBank,StoreAll,StoreAllY,CloseWindow,Yellowtext,FindingPick,gas,Pickmode,tempbank,
PickAxe,PickAxeSteel,PickHead,PickHandle,Attached,drop,orebmp,hc1,hc2,hc3,hc4,hc5,BNorth,tripcount,town2: Integer;
ST: LongInt;
Loged,Fight,swinging,ColorsFound,fixed:boolean;
{.include BoxBreaker.txt}
const
{=================Setup================}
username = ''; //Enter Your Username
password = '';    //Enter Your Password
UsePAR = True;  //use PAR over built in random event protection?
Town = 2;          //1 to start in varrock, 2 for falador, 3 for guild mining, 4 for iron/guildmining in falador
Pick = 1;          //1 if you can't wield pickaxe 2 if you can
FindGaser = True;  //Allows the script to look for steaming rocks but can slow down minning
PickFindCount = 50; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
Pickup = true;    //Pick up ore other people have dropped or not?
Leftclick = True;  // leftclick on the rocks when mining?
Screenshot = False; //Take screenshots of random events?
dir = '';  //Folder to take screenshots in, leave blank for scripts folder Make sure this folder exists in the scripts folder of you will get errors
Tolerance = 0;     //Tolerance to find the colors on the minimap, leave at 0!
{===========From Game Screen===========}
{Only needed if Iron mining}
IronOre1 = 2700888;   //Rocks Colors
IronOre2 = 2569300;   //Rocks Colors
IronOre3 = 2832731;   //Rocks Colors
{Only needed if Guild mining}
CoalOre1 = 2702396;   //Rocks Colors
CoalOre2 = 2834753;   //Rocks Colors
CoalOre3 = 3097668;   //Rocks Colors
{=============From MiniMap=============}
banklogo = 6084350;     //Minimaps banklogo color
miningspot = 9076623;   //Minimaps Pick Head color
{Only needed if Iron mining}
roadcolor = 7829631;    //Minimaps Roads color
{Only needed if Guild mining}
Statue = 9277337;   //Add the color of the n statue (right next to the ladder when going down)
Ladder = 7746; //Add Ladder color
Rocks = 4474428;   //Add Coal Rocks color in MINIMAP!
{===============End Setup==============}

Procedure Mouse(x,y,rx,ry: integer; left:boolean);
begin
  x:=x+random(rx);
  y:=y+random(ry);
  if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
  begin
   MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
   GetMousePos(x,y);
   wait(50+random(50))
   holdmouse(x,y,left)
   wait(5+random(80))
   releasemouse(x,y,left)
   wait(100+random(100))
  end;
end;

Procedure MMouse(x,y,rx,ry: Integer); {Made by Odie5533}
begin
 x:=x+random(rx); y:=y+random(ry);
if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
begin
 MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
 GetMousePos(x,y);
end;
end;

{.include par.txt}

Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String; e:Integer;
begin
if(Not Loged)then
Begin
   Seconds:=(GetSystemTime-ST) div 1000;
   Minutes:=Seconds div 60;
   RHours:=Minutes div 60;
   Time:=inttostr(Seconds)+' Seconds';
   avtime:=Seconds/trips;
   if Minutes<>0 then
      begin
         RSeconds:=Seconds Mod (Minutes*60);
         Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
      end;
   if RHours<>0 then
      begin
         RMinutes:=Minutes Mod (RHours*60);
         RSeconds:=Seconds Mod (Minutes*60);
         Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
         +inttostr(RSeconds)+' Seconds';
      end;
   begin
   If (Town = 3) then e := 50 If (Town = 4) then e := 40 else e := 35
   If (Town = 1) then writeln('-----Progress Report for Ironmining at Falador-----');
   If (Town = 2) then writeln('-----Progress Report for Ironmining at Varrock-----');
   If (Town = 3) then writeln('---------Progress Report for Guild Mining----------');
   If (Town = 4) then writeln('---------Progress Report for Multi Mining----------');
   writeln('Worked for '+Time);
   If (UsePAR = True)and(town = 2)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
   If (UsePAR = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
   If (UsePAR = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
   If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
   If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
   writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
   writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
   writeln('Mined '+inttostr(trips)+' Time[s] '+inttostr(trips*(26+Pick))+' Ores');
   writeln('Gained '+inttostr(trips*e*(26+Pick))+' mining Experience');
   writeln('Currently Averaging '+inttostr(3600/avtime*(26+Pick))+' Ores and '+inttostr(3600/avtime*e*(26+Pick))+' Experience an Hour');
   end;
end;
end;

procedure GetScreenShot(reason:string; event:Integer);
var
   x : string;
begin
if(screenshot)then
  begin
  x:=inttostr(Event)
  SaveScreenshot(apppath+'Scripts\'+dir+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
  writeln('ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
  end;
end;

procedure sendkeysmooth(str:string);
var x:integer;
begin
  repeat
    x := x+1;
    wait(100+random(200));
    sendkeyssilent(copy(str,x,1));
  until x > length(str)
end;

Procedure ChatFix; {ChatFixer by Odie5533}
begin
 while(not(GetColor(54,496)=255))do
  Mouse(45,485,15,10,true);
 wait(300+random(100));
 while(not(GetColor(183,496)=255))do
  Mouse(176,485,15,10,true);
 wait(300+random(100));
 while(not(GetColor(323,496)=255))do
  Mouse(315,485,15,10,true);
 wait(300+random(100));
end;

Procedure FaceNorth;
begin
  If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
  while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))do
    SendArrowSilentWait(1,2+random(2));
end;

procedure Checkloginscreen;
var p:integer;
begin
if(FindBitmap(CloseWindow,x,y))then
begin
  p:=0;
  status('closing welcome box');
  repeat
    Wait(400+random(100));
    Mouse(x,y,40,4,true);
    Wait(500);
    p:=p+1;
  until(not FindBitmap(CloseWindow,x,y))or(p>=3);
end;
end;

procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
Checkloginscreen;
if(IsTextAt2(293,251,'Username',10))then
  begin
   Mouse(460,322,10,2,true);
   Wait(500+random(500));
  end;
if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
  begin
   Mouse(400,280,125,20,true);
   Wait(200+random(100));
   if(IsTextAt2(293,251,'Username',50))then
   begin
    status('Logging in');
    Mouse(400,256,20,5,true);
    Wait(50+random(25));
    sendkeysmooth(username);
    Wait(400+random(150));
    sendkeysmooth(chr(13));
    Wait(400+random(150));
    sendkeysmooth(password);
    Wait(400+random(100));
    Mouse(300,322,20,5,true);
    repeat
     counter:=counter+1
     wait(100);
    until(FindBitmap(CloseWindow,x,y))or(counter=150)
    Checkloginscreen;
   end;
  end;
end;

Procedure LogOut(why:string);
begin
  Writeln(' ');
  Writeln(why);
  Writeln(' ');
  Wait(100+random(10));
  Loged:=true;
  Mouse(635,470,25,20,true);
  Wait(100+random(10));
  c:=0;
  repeat
    c:=c+1
    Mouse(586,370,119,10,true);
    Wait(250+random(100));
  until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15);
end;

Procedure SetRun(runon: boolean); {Edited by Odie5533}
begin
   Wait(20+random(5));
   Mouse(701,468,10,25,true);
   Wait(70+random(50));
   if(not(GetColor(607,263)=2303648))and(RunOn)then
   Mouse(611,253,15,15,true);
   if(GetColor(607,263)=2303648)and(not RunOn)then
   Mouse(569,256,5,5,true);
   Wait(100+random(50));
   Mouse(644,178,5,5,true);
   Wait(100+random(50));
End;

Procedure MapFlag;
var M:integer;
begin
  Check4Mod;
  Wait(200);
  M:=0;
  if(FindBitmapIn(flag,x,y,570,5,725,162))then
  begin
   repeat
    wait(500);
    M:=M+1;
   until(FindBitmapIn(flag,x,y,633,64,665,90))and
   (not(GetColor(200,148)=16777215))or
   (not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
   Wait(100);
  end;
end;

Procedure MapFlag2;
begin
  Check4Mod;
  Wait(200);
  if(FindBitmapIn(flag,x,y,565,5,725,160))then
  begin
   repeat
    wait(1000);
   until(not FindBitmapIn(flag,x,y,565,5,725,160));
   Wait(100);
  end;
End;

procedure TakePickaxe;
begin
  Mouse(575,218,20,20,true);
  Wait(400+random(150));
  Mouse(84,64,20,20,true);
  Wait(500+random(150));
  n:=0;
  Picks:=Picks+1;
end;

Procedure TakeOff;
begin
  if (PickMode=2) then
  begin
    Mouse(674,174,20,20,true);
    Wait(100+random(50));
    Mouse(580,290,20,20,true);
    Wait(100+random(50));
    Mouse(630,172,30,20,true);
    wait(400+random(50));
  end;
end;

Procedure PutOn;
begin
  if (PickMode=2) then
  begin
    if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
     Wait(50+random(50));
    if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
      (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
    Mouse(x,y,20,20,true);
    Wait(3000+random(50));
    If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
    begin
    Writeln('Cannot Equip that pick, switching pick mode')
    Pickmode:=1
    end
  end;
end;

//===================================Banking==================================\\

Procedure ScrollBank;
var
  v:integer;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
begin
 if (not(getcolor(475,75)=5531254))then
 begin
  status('Scrolling Bank Up...')
  wait(100+random(50));
  MMouse(471,61,10,10);
  wait(random(25));
  GetMousePos(x,y);
  HoldMouse(x,y,true);
  repeat
    wait(200+random(50));
    v:= v+1
  until (getcolor(475,75)=5531254)or(v>22)
  ReleaseMouse(x,y,true);
 end;
end;
end;

procedure Deposit;
var t :integer;
begin
   repeat
   repeat
      wait(121+random(65))
   if(findColorSpiral(x,y,65536,565,250,730,460))and(PickMode=1)or
     (FindColorSpiral(x,y,65536,611,215,730,245))and(PickMode=1)or
     (findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=2)then
     begin
      c:=c+1;
      t:=t+1;
      Mouse(x-5,y,5,5,False);
      wait(227+random(33));
     end;
    if (FindBitmapIn(StoreAllY,x,y,560,215,730,460))or
    (FindBitmapIn(StoreAll,x,y,560,215,730,460))then
     begin
      c:=0;
      Mouse(x,y,60,8,true);
      wait(1046+random(42));
     end;
   until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
        (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
        (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)  or (t>5+random(5))
    if(c>4)then
     begin
      c:=0;
      wait(121+random(65))
      MoveMouseSmooth(573+random(10),189+random(10));
     end;
   until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
        (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
        (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4) or (t>5+random(5))
end;

procedure CloseBank;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(GetColor(464,39)=8421504)then
 begin
  Mouse(430,39,5,5,true);
  wait(800+random(300));
 end;
end;

Function FindObjColorTol(objname:string; objcolor,objtol:integer):boolean;
var a,b:integer;
begin
if(not(IsTextAt2(9,9,objname,100)))then
while(b<16)do
begin
 wait(30);
 if(a = 27)then
  begin
   a:= 0;
   b:= b + 1;
  end;
 if(b > 15)then break;
 if(FindColorSpiralTolerance(x,y,objcolor,a*20+4,b*20+4,a*20+24,b*20+24,objtol))then
  begin
   MMouse(x,y,0,0);
   wait(100+random(50));
   if(istextat2(9,9,objname,100))then
    begin
     result:=true;
     break;
    end;
  end;
 a:=a+1;
end;
end;

procedure Banking;
var c:integer;
begin
if(FindObjColorTol('Use Bank',tempbank,11))then
  begin
   tempbank:= GetColor(x,y);
   Mouse(x,y,0,20,false);
   wait(75+random(25));
   if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then
    begin
     Mouse(x,y,5,2,true);
     MapFlag;
    end else
     if(FindBitmap(box,x,y))then
      begin MMouse(x,y,-30,-30);
     end else
      MMouse(0,0,60,60);
    while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
    begin
     wait(50+random(50));
     c:=c+1;
    end;
  end;
 if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then
  Mouse(472,81,4,10,true); //Scrolls your bank up
 wait(200+random(100));
If(n=1)then
begin
  ScrollBank;
  TakePickaxe;
  CloseBank;
end else
begin
  ScrollBank;
  Deposit;
  CloseBank;
end;
end;
//============================================================================\\

//===========================Map Walking for Varrock==========================\\
procedure ToRocksVarrock;
begin
  Loginifneeded;
  L:=0;
  c:=0;
  if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
  begin
    SetRun(true);
    Wait(100)
    Status('Going Out of bank');
    Mouse(x+21,y-26,5,5,True)
    MapFlag;
    c:=1
  end;
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,690,25,692,120,Tolerance))Then
    begin
      c:=c+1;
      Status('Going Out Varrock '+inttostr(c)+'/3');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))and(c>2)or(L>30);
  c:=1;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))Then
    begin
      Status('Going To Rocks '+inttostr(c)+'/9');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('To center')
    wait(50)
    Mouse(x,y,5,5,True)
    MapFlag2;
  end;
  If(L>30)then
  begin
      LogOut('Lost To Rocks Varrock')
  end;
end;

procedure ToBankVarrock;
begin
  Loginifneeded;
  c:=0;
  L:=0;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('Out of Mines')
    Mouse(x+30,y-35,5,5,True)
    MapFlag;
    c:=1
  end;
  Loginifneeded;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,595,32,700,34,Tolerance))Then
    begin
      Status('Going To Varrock '+inttostr(c)+'/4');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
  c:=1;
  L:=0;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
    begin
      Status('Going To Bank '+inttostr(c)+'/3');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
  If(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))Then
  begin
    Status('Going In Bank')
    wait(50)
    Mouse(x,y,5,5,True)
    MapFlag2;
    Wait(5000)
  end;
  If(L>30)then
  begin
     LogOut('Lost To Bank Varrock')
  end
  Banking;
end;
//============================================================================\\

//===========================Map Walking for Falador==========================\\
procedure ToRocksFalador;
begin
  Loginifneeded;
  L:=0;
  c:=0;
  if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
  begin
    SetRun(true);
    Wait(100)
    Status('Going Out of bank');
    Mouse(x-30,y+20,5,5,True)
    MapFlag;
    Wait(200)
    c:=1
  end;
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,120,710,122,Tolerance))Then
    begin
      c:=c+1;
      Status('Going South '+inttostr(c)+'/8');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      Wait(200)
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
  c:=1;
  L:=0;
  repeat
    If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
    begin
      Status('Going West '+inttostr(c)+'/2');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      c:=c+1;
    end;
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))and(c>2)or(L>30)
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))Then
    begin
      c:=c+1;
      Status('Going south '+inttostr(c)+'/4');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(c>=2);
  L:=0;
  repeat
    begin
      c:=c+1;
      Status('Going south '+inttostr(c)+'/4');
      wait(50)
      Mouse(650,125,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('To iron')
    wait(50)
    Mouse(x-15,y-15,10,10,True)
    MapFlag;
  end;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Wait(200)
    Mouse(x-30,y,5,5,True)
    MapFlag2;
  end;
  If(L>30)then
  begin
      LogOut('Lost To Rocks Falador')
  end;
end;

procedure ToBankFalador;
begin
  Loginifneeded;
  c:=0;
  L:=0;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    Status('Out of Mines')
    Mouse(x-15,y-15,10,10,True)
    MapFlag;
  end
  Loginifneeded;
  if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
  begin
    c:=1
    Loginifneeded;
    Status('Going north '+inttostr(c)+'/2');
    wait(50)
    Mouse(x-15,y-60,5,5,True)
    MapFlag;
  end
  Loginifneeded;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
    begin
      c:=c+1;
      Status('Going north '+inttostr(c)+'/2');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))or(c>4)or(L>30);
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
    begin
      c:=c+1;
      Status('Going East '+inttostr(c)+'/2');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
  c:=0;
  L:=0;
  repeat
    if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
    begin
      c:=c+1;
      Status('Going North '+inttostr(c)+'/8');
      wait(50)
      Mouse(x,y,5,5,True)
      MapFlag;
      L:=0;
    end
    Loginifneeded;
    L:=L+1;
  Until(FindColorSpiralTolerance(x,y,banklogo,574,45,722,160,Tolerance))and(c>4)or(c>12)or(L>30);
  If(FindColorSpiralTolerance(x,y,banklogo,574,35,722,160,Tolerance))Then
  begin
    status('Going In Bank ')
    wait(50)
    Mouse(x,y,5,5,True)
    MapFlag2;
    Wait(4000)
  end
  If(L>30)then
  begin
     LogOut('Lost To Bank Falador')
  end
  Banking;
end;
//============================================================================\\

//========================Map Walking for Guild Mining========================\\
procedure ClimbLadder(color,ladder:integer);
var count:integer;
begin
  status('Climbing ladder');
if(FindObjColorTol('Climb',ladder,5))then
 begin
  Ladder:= GetColor(x,y);
  MMouse(x,y,2,2);
  Wait(300+random(150));
  if(IsTextAt2(9,9,'Climb',100))then
  begin
    GetMousePos(x,y);
    If not (FindColorSpiral(x,y,color,565,5,725,160)) then
      Mouse(x,y,2,2,True);
  end;
  Wait(300+random(150));
  repeat
    count:=count+1;
    wait(300+random(200));
  until(FindColorSpiral(x,y,color,565,5,725,160))or(count>=20)
 end;
end;

procedure GoCenter;
begin
if(not(FindColorSpiral(x,y,miningspot,565,65,715,160)))then
  if(FindColorSpiral(x,y,Rocks,565,65,715,160))then
     begin
       Mouse(x,y,5,5,true);
       MapFlag;
       Wait(300+random(150));
     end;
if(FindColorSpiral(x,y,miningspot,565,65,715,160))then
  begin
    Mouse(x,y,20,20,true);
    MapFlag2;
    Wait(300+random(150));
  end;
end;

Procedure ToBankGuild;
begin
If(Not Loged)then
begin
  If (FindColorSpiral2(x,y,(statue),550,5,750,177))then
  begin
    Status('Going To Bank 1/2');
    Mouse(x+5,y-46,3,3,true);
    Wait(400+random(150));
    MapFlag;
  end;
  If (FindColorSpiral2(x,y,(banklogo),550,5,750,177))then
  begin
    Status('Going To Bank 2/2');
    Mouse(x,y+2,1,1,true);
    Wait(5000+random(250))
    Mapflag2;
  end;
  Banking;
end;
End;

procedure ToLadder(climb:boolean);
var counter:integer;
begin
If(Not Loged)then
begin
status('Walking to ladder');
repeat
  if(not(FindColor(x,y,Ladder,575,5,725,160)))and(FindColor(x,y,Rocks,585,65,625,160))then
  begin
    counter:=counter+1
    Mouse(x,y,5,5,true);
    MapFlag;
    Wait(200+random(50));
  end
  Loginifneeded;
until(FindColorSpiral(x,y,Ladder,575,5,725,160))or(counter=5)
if(FindColorSpiral(x,y,Ladder,575,5,725,160))then
  begin
    Mouse(x,y,5,5,true);
    MapFlag2;
    Wait(200+random(50));
    if(climb=true)then begin ClimbLadder(Statue,Templadder2);end;
  end;
if (climb=True)and(Not FindColorSpiral(x,y,(Statue),575,8,720,135))then
begin
  LogInIfNeeded;
  ToLadder(climb);
end else
if(climb=true)then ToBankGuild;
end;
end;

Procedure ToGuild;
begin
If(Not Loged)then
begin
  If (not(FindColorSpiral(x,y,(Statue),550,5,750,177)))and(FindColorSpiral(x,y,(banklogo),550,5,750,177))then
  begin
    Status('Going To Guild');
    Mouse(x+40,106,3,3,true);
    Wait(400+random(250));
    MapFlag;
  end;
  if (FindColorSpiral(x,y,(Statue),550,5,750,177))then
  begin
    Status('Statue Found!');
    Mouse(x-10,y,5,0,true);
    Wait(5000+random(250));
    MapFlag2;
    if (FindColorSpiral(x,y,(Statue),638,73,658,93))then
    ClimbLadder(Rocks,templadder);
  end else
  begin
    FaceNorth;
    LogInIfNeeded;
    ToGuild;
  end;
  Wait(50+random(50));
if (Not FindColorSpiral(x,y,(Rocks),575,8,710,135))then
begin
  LogInIfNeeded;
  ToGuild;
end else
  GoCenter;
end;
end;

//=============================Anti Random Events=============================\\
procedure FindPickHeadColor(f:Boolean);
begin
if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
  (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
  begin
    Mouse(675,175,15,25,true);
     if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
       (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
  begin
  If (f = True) Then
  begin
  writeln('');
  writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
  writeln('');
  ColorsFound:=False;
  end else
  Logout('No Picks Left');
  end;
  end;
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
  (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
  begin
  hc1:=GetColor(x+6,y+3);
  hc2:=GetColor(x+18,y+7);
  hc3:=GetColor(x+20,y+6);
  hc4:=GetColor(x+19,y+6);
  hc5:=GetColor(x+16,y+5);
  ColorsFound:=True;
  if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
  end;
end;

procedure ItemGrab;
begin
if(FindColorSpiral(x,y,241,565,5,725,160))then
  begin
  Mouse(x,y,1,1,true);
  MapFlag2;
  Wait(5000+random(100));
  //FindTextSpiral('Take',240,180,50,5,10+random(10));
  GetMousePos(x,y);
  Mouse(x,y,0,0,true);
  Wait(1000+random(100));
  end;
end;

procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Status('Random Event Found');
Fight:=True;
GetScreenShot('RunFromFight',Runs);
Runs:=Runs+1;
SetRun(true);
If (town2 = 3)or(town2 = 4)then
begin
  ToLadder(false);
  Wait(10000+random(1000));
  gocenter;
end else
begin
  Wait(50+random(10));
  Mouse(680,60,5,5,true);
  Wait(100);
  Mapflag;
  Wait(10000+random(1000));
  if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
  begin
    Mouse(x,y,5,5,True);
    MapFlag;
    If(Town2=2)then Mouse(x-30,y,5,5,True);
  end else
  Mouse(615,110,5,5,true);
end;
Wait(100);
MapFlag2;
SetRun(false);
end;
end;

procedure TalkToRand;
begin
  repeat
  if (FindColorSpiral(x,y,16711680,5,345,510,465))or
  (FindColorSpiral(x,y,16777215,5,345,510,465))then
      begin
      Mouse(x,y,50,2,true);
      wait(2000+random(1000));
      end;
  until(GetColor(20,434)=0)
end;

procedure FindText;
var counter:integer;
begin
if (FindColor(x,y,65535,0,0,515,338))then wait(200)
if (FindColor(x,y,65535,0,0,515,338))then
  begin
  GetScreenShot('YellowtextFound',Yellowtext);
  Yellowtext := Yellowtext + 1;
  repeat
  counter:=counter+2+random(1);
  MMouse(x+counter,y+15,0,3)
  wait(5);
  if(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    FindFight;
    break;
    end;
  if(IsTextAt2(9,9,'Ta',100))then
    begin
    GetMousePos(x,y);
    Mouse(x,y,1,1,false);
    Wait(200+random(100));
    if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
      begin
      Mouse(x,y,40,5,true);
      MapFlag2;
      wait(1000+random(1000));
      GetScreenShot('Talked',Talked);
      Talked:=Talked+1
      TalkToRand;
      end;
    end;
  until(counter>=250);
  end;
end;

procedure AttachPick;
begin
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and
(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
  begin
  if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
    begin
    GetScreenShot('FixingPick',Attached);
    Attached:=Attached+1
    Mouse(x,y,5,5,true);
    Wait(1000+random(100));
    end;
  if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
    begin
    Mouse(x,y,5,5,true);
    Wait(1000+random(100));
    Fixed := True
    end;
  end else
  fixed := false;
end;

procedure FindPick;
var DropCount,Counter:integer;
begin
if((GetColor(387,382)=0)and(GetColor(485,413)=0))then
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,465,100))then
begin
Mouse(x,y,2,2,false);
Wait(100+random(100));
if(FindBitmap(Drop,x,y))then
begin
Mouse(x,y,10,2,true);
Wait(100+random(100));
MMouse(0,0,50,50);
Wait(500+random(100));
end;
end;
until(DropCount=2);
Mouse(683,184,5,5,true);
wait(500+random(100));
Mouse(591,303,5,5,true);
wait(500+random(100));
Mouse(647,183,5,5,true);
wait(500+random(100));
repeat
counter:=counter+1
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
  break;
if(FindColorSpiral(x,y,hc1,0,0,515,338))or
  (FindColorSpiral(x,y,hc2,0,0,515,338))or
  (FindColorSpiral(x,y,hc3,0,0,515,338))or
  (FindColorSpiral(x,y,hc4,0,0,515,338))or
  (FindColorSpiral(x,y,hc5,0,0,515,338))then
  begin
  MMouse(x,y,0,0);
  wait(100+random(100));
  if(IsTextAt2(9,9,'Take', 100))then
    begin Mouse(x,y,2,2,true);MapFlag2;end
    end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;

Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100))do
 begin
  Mouse(x,y,10,10,true);
  wait(3000+random(1000));
  Mouse(157,220,12,12,true)
  wait(3000+random(1000));
  Mouse(248,255,10,2,true);
  wait(3000+random(1000));
  Mouse(226,442,10,3,true);
  wait(3000+random(1000));
  Lamps:=Lamps+1;
  end;
end;

Procedure FindRandoms;
begin
if(Not Loged)then
begin
  LoginIfNeeded;
  Checkloginscreen;
  FindFight;
  FindBox;
  Check4Lamp('mining');
  Check4Mod;
if(UsePAR=true)then
begin
  Check4Randoms;
end else
  FindText;
end;
end;

Procedure FindGas(findx,findy:integer);  //By Stupid3ooo
var counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
if(FindGaser=true)then
begin
GasColor:=8296866;//8296866
if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
begin
repeat
  counter:=counter+1
  begin
    ClientCanvas:= GetClientCanvas;
    bmap:= BitmapFromString(32,32,'');
    BMapCanvas:= GetBitmapCanvas(bmap);
    CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
    wait(100);
    if(FindBitmap(bmap,x,y))then
      begin gasfind:=0;end
    else
      gasfind:=gasfind+1;
      FreeBitmap(bmap);
    end;
    if(gasfind=5)then
    begin
      WriteLn('Found Gas');
      GetScreenShot('Gas',gas);
      Gas:=Gas+1;
      if(town2=3)or(town2=4)then
      begin
      if(FindColorSpiral(x,y,(Rocks),600,65,625,140))or(FindColorSpiral(x,y,(Rocks),660,65,680,140))then
        begin Mouse(x,y,5,5,true);
      end else
        Mouse(645,80,10,10,true);
      end else
        Mouse(645,80,10,10,true);
      mapflag2;
      FindRandoms;
      Wait(4000+random(2000));
      FindGas(findx,findy);
      break;
    end;
until(counter>=10);
end;
end;
end;

//============================================================================\\

procedure ToBank;
begin
  if(Not Loged)then
  if(town=4)then
  begin
    town2 := tripcount;
  end else
    Town2 := Town
  case Town2 of
    1: ToBankVarrock;
    2: ToBankFalador;
    3: ToLadder(True);
    4: ToLadder(True);
  end;
tripcount := tripcount + 1;
If(tripcount = 5) then
  tripcount := 2;
end;

procedure ToRocks;
begin
  if(Not Loged)then
    if(town=4)then
  begin
    town2 := tripcount;
  end else
    Town2 := Town
  case Town2 of
    1: ToRocksVarrock;
    2: ToRocksFalador;
    3: ToGuild;
    4: ToGuild;
  end;
end;

Procedure SetRandom;
Var color:integer;
begin
Color:=1+Random(3);
If (Town2 = 3)or(Town2 = 4)then
  case Color of
    1: Begin Ore:=CoalOre1; end;
    2: Begin Ore:=CoalOre2; end;
    3: Begin Ore:=CoalOre3; end;
  end else
  case Color of
    1: Begin Ore:=IronOre1; end;
    2: Begin Ore:=IronOre2; end;
    3: Begin Ore:=IronOre3; end;
  end;
case k of
  0: Begin w:=50; h:=35; end;
  1: Begin w:=125; h:=95; end;
  2: Begin w:=260; h:=155; i:=1; end;
end;
end;

procedure DoMining;
var ox,oy: integer;
begin
if(Not Loged)then
begin
L:= 0;
c:= 0;
   repeat
     swinging:=True;
     c:=0;
     L:= L+1;
     LoginIfNeeded;
     FindRandoms;
     SetRandom;
     Status('Mining');
     x:=255;y:=170;
     If(FindColorSpiralTolerance(ox,oy,ore,x-w,y-h,x+w,y+h,4))Then
     begin
       k:=0;
       if(FindGaser=true)then FindGas(ox,oy-10);
       Wait(50)
       MMouse(ox,oy,3,3)
       Wait(100+random(50));
       If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Coal',100))then
       begin
       Wait(50+random(50));
       Mouse(ox,oy,0,0,Leftclick);
       Mapflag2;
       Wait(80+random(50));
         If(FindBitmap(Mine,x,y))and(Leftclick=False)or(FindBitmap(MineY,x,y))and(Leftclick=False)or
         (FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
         begin
         If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then swinging:=False;
           Mouse(x,y,60,10,true)
           Wait(100);
           Mapflag2;
         end else
         If (Leftclick=False) then
         begin
           MMouse(400,60,200,200)
           Wait(100+random(10))
         end;
         Mapflag2;
         FindRandoms;
         wait(200+random(500));
         If (Swinging=true) then
           if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
           begin
           L:=0;
           C:=0;
             Repeat
             C:= c+1;
             Wait(10+random(40));
             if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy-10); end;
             Until(not((GetColor(109,429)=0))and(GetColor(84,428)=0))or
                  (not((GetColor(109,429)=0))and(GetColor(80,428)=0))or(GetColor(279,426)=0)or(c>=35);
           end;
         end;
    end else
    begin
      k:=k+1;
      FindRandoms;
      Wait(200+random(100));
    end;
    until(L>20)or(GetColor(97,394)=0)and(getColor(423,397)=0)or(GetColor(94,391)=0)and(getColor(422,398)=0)or
    (getColor(485,413)=0)or(GetColor(30,418)=0)and(GetColor(72,429)=0);
   if(getColor(485,413)=0)then
   begin
   Mouse(195,440,130,10,true);
   wait(200+random(100));
   if(PickFindCount>0)then
     FindPick;
   if fixed = False then
   begin
     n:= 1;
     Writeln('Going For New Pickaxe');
     Wait(100);
     TakeOff;
     ToBank;
     FindPickHeadColor(False);
     PutOn;
     ToRocks;
   end;
   DoMining;
   end;
   if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
   begin
     LogOut('You are dead!');
   end;
   If(L>20)then
   begin
     If(Town2=3)or(Town2=4)then GoCenter;
     if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
     begin
       Status('To center')
         If(Town2=2)then Mouse(x-30,y,5,5,True);
         If(Town2=1)then Mouse(x,y,5,5,True)
     end;
   MapFlag2;
   Wait(300)
   DoMining;
   end;
end;
end;

procedure BitMaps;
begin
Box := BitmapFromString(6, 3,
       '0000000000005D54475D54470000000000000000000000005D5447' +
       '5D54470000000000000000000000005D54475D5447000000000000' +
       '');
Talk := BitmapFromString(17, 10,
        'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
        'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000000000000000' +
        '000000000000000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000000000000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000000000000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
Mine := BitmapFromString(14, 12,
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
        '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
        '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
        'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
        '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
        '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000FFFF00FFFF00000000' +
        '000000000000000000FFFF00FFFF00000000000000000000000000' +
        '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
        'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
        'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
        '000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
        '000000000000000000000000FFFF00FFFF00000000000000000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000000000000000000000000000000000000000000000' +
        '000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
       'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
       '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
       '0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
       '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
       'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
       '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
       'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
       '5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
       '0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
       'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
       '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
       'FF9040');
TakeY := BitmapFromString(43, 4,
       'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
       'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
       '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
       'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
       '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
       'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
       '0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
       'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
       '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
       'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
       'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
       '5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
       '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
       'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
       '5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
       '0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
       'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
       '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
       '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
       'FF9040');
flag := BitmapFromString(2, 2,
        'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
        'FF981FFF981FFF981F000000000000000000000000000000000000' +
        '000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
        '000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
        'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
        '000000FF981FFF981F000000000000000000000000000000000000' +
        '000000FF981FFF981FFF981FFF981F000000000000000000000000' +
        'FF981FFF981F000000000000000000000000000000000000000000' +
        '000000FF981FFF981F000000FF981FFF981F000000000000000000' +
        'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
        'FF981FFF981F000000000000000000000000000000000000FF981F' +
        'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
        '000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
        '000000000000000000000000000000000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000000000000000FF981FFF981F' +
        '000000000000000000000000000000000000000000000000FF981F' +
        'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
        '000000000000FF981FFF981F000000');
Drop := BitmapFromString(20, 2,
       'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
       'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
       '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
       '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
       '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
       '544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
       '2F20003625003D2900000001564D42564D42564D42564D42564D42' +
       '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
       '564D42564D42000001000001000001000001000001000001000001' +
       '000001000001392D1B44341E4D3B22544127000001302020564D42' +
       '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
       '4D44384D4438564D42000001000001392D1B342918342918342918' +
       '34291834291834291834291834291834291840311E44341E4D3B22' +
       '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
       '544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
       '3429183429183429183429183429183429183429183429181E1500' +
       '271B005441274D3B22000001000001564D42544A3B564D42564D42' +
       '564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
       '392D1B392D1B392D1B342918342918342918342918342918342918' +
       '3429181E1500271B002F2000513E254D3B2248382044341E000001' +
       '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
       '544A3B000001000001000001000001000001000001000001000001' +
       '0000010000010000010000011E15002F20002F20004D3B224D3B22' +
       '48382044341E40311E44341E000001000001564D42564D42564D42' +
       '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
       '3020203020203020203020203020200000011E1500271B002F2000' +
       '2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
       '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
       '1E15002F20002F20002F200000000100000100000144341E40311E' +
       '392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
       '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
       '564D420000011E1500271B002F20002F2000000001302020302020' +
       '302020000001000001000001392D1B2F2515342918392D1B000001' +
       '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
       '564D424D44384D4438564D420000011E15002F20002F2000000001' +
       '302020302020544A3B544A3B544A3B302020302020000001000001' +
       '0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
       '544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
       '2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
       '544A3B544A3B30202030202000000100000140311E000001564D42' +
       '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
       '0000011E15002F20002F2000000001302020302020544A3B544A3B' +
       '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
       '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
       '544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
       '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
       '544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
       '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
       '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
       '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
       '544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
       '2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
       '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
       '564D42564D42000001000001000001000001000001000001000001' +
       '0000010000015C5656686060756D6C827878000001302020564D42' +
       '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
       '4D44384D4438564D42000001000001595353595353595353595353' +
       '595353595353595353595353595353575151615A596A6262756D6C' +
       '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
       '544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
       '5751515751515751515751515751515751515751515751511C1400' +
       '251900827878756D6C000001000001564D42544A3B564D42564D42' +
       '564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
       '5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
       '544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
       '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
       '544A3B000001000001000001000001000001000001000001000001' +
       '0000010000010000010000011C14002D1E002D1E00797070756D6C' +
       '6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
       '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
       '3020203020203020203020203020200000011C14002519002D1E00' +
       '2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
       '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
       '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
       '1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
       '5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
       '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
       '564D420000011C14002519002D1E002D1E00000001302020302020' +
       '302020000001000001000001595353524B4B544E4E595353000001' +
       '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
       '564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
       '302020302020544A3B544A3B544A3B302020302020000001000001' +
       '0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
       '544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
       '2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
       '544A3B544A3B302020302020000001000001665E5E000001564D42' +
       '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
       '0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
       '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
       '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
       '544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
       '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
       '544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
       '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
       '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
       '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
       '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
       '5951455951455951450000012F20002F2000362400000001302020' +
       '564D41544A3C544A3C595145564D41595145564D41595145595145' +
       '0000012F2000362400362400000001302020564D41564D41564D41' +
       '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
       '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
       '544A3C544A3C0000012F2000362400362400362400000001302020' +
       '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
       '2F2000362400362400000001302020302020564D41564D41564D41' +
       '595145564D41564D41564D410000012F2000362400362400000001' +
       '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
       '0000012F2000362400362400362400000001302020564D41564D41' +
       '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
       '362400000001302020302020564D41564D41544A3C544A3C595145' +
       '595145564D410000012F2000362400362400362400000001302020' +
       '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
       '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
       '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
       '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
       '564D410000012F20002F20002F2000000001302020302020544A3C' +
       '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
       '2F2000000001302020302020595145544A3C564D41595145595145' +
       '595145564D41564D410000012F20002F20002F2000000001302020' +
       '595145595145564D41564D41595145595145595145595145000001' +
       '2F20002F20002F2000000001302020302020595145595145595145' +
       '595145564D41564D41564D41564D410000012F20002F20002F2000' +
       '000001302020564D41595145595145595145595145564D41564D41' +
       '544A3C0000012F20002F20002F2000000001302020302020564D41' +
       '595145595145544A3C544A3C564D41595145564D410000012F2000' +
       '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
       '544A3C564D41564D41564D410000012F20002F2000000001302020' +
       '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
       '000001271B002F20002F2000000001302020595145544A3C564D41' +
       '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
       '000001302020302020595145544A3C564D41595145595145595145' +
       '564D41564D41564D410000011D15001D1500000001302020595145' +
       '544A3C544A3C564D41595145595145595145595145595145544A3C' +
       '0000011D15001D1500000001302020564D41595145595145595145' +
       '595145564D41595145595145564D41544A3C564D41000001000001' +
       '302020302020595145595145595145595145544A3C564D41595145' +
       '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
       '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
       '');
PickHead := BitmapFromString(6, 5,
       '2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
       '352400000001483E331D14001D1400261A002E1F00000001302020' +
       '000001000001000001000001302020302020302020302020302020' +
       '302020302020483E33');
Orebmp := BitmapFromString(10, 10,
       '856C4B856C4B886E4D8B704F000001000001000001000001443827' +
       '584731856C4B886E4D000001000001302020302020000001382D1E' +
       '54442F68543B0000010000013020203020203020200000012D2518' +
       '483B296C573D6F593E302020302020302020544A3C544A3C000001' +
       '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
       '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
       '564D41000001584731725C407760447A6346544A3C544A3C564D41' +
       '564D41564D41000001655239755E437A6346806748544A3C564D41' +
       '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
       '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
       '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
       '302020');
iLamp := BitmapFromString(17, 6,
       '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
       '9291128C8A1275740E000001000001000001000001000001D0CE18' +
       'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
       '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
       'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
       '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
       'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
       '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
       'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
       '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
       'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
       '000001000001C2C118');
BNorth := BitmapFromString(8, 11,
       '640000640000640000000001640000790E00640000640000640000' +
       '790E00640000640000790E003F00003F0000790E00790E003F0000' +
       '3F0000790E00851B003F00003F0000851B00851B003F00003F0000' +
       '3F0000790E003F00003F00009622009622003F00003F00003F0000' +
       '790E003F00003F00009622009622003F00003F0000790E003F0000' +
       '3F00003F00009622009622003F00003F00009622003F00003F0000' +
       '3F00009622009622003F00003F00009622009622003F00003F0000' +
       '9C36009C36003F00003F0000AB4601AB46013F00003F00009C3600' +
       'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601AB4601' +
       'AB4601AB46010000019C3600BA5604BA5604BA5604');
CloseWindow := BitmapFromString(43, 4,
       '494034808080808080494034494034494034494034808080808080' +
       '808080483E33483E33483E33808080808080483E33483E33463D32' +
       '483E33483E33483E33808080000000483E33483E33483E33483E33' +
       '808080000000483E33483E33000000494034808080808080808080' +
       '494034494034494034494034808080808080808080808080494034' +
       '000000808080494034494034808080494034000000000000000000' +
       '483E33808080483E33000000808080483E33463D32483E33483E33' +
       '483E33808080000000483E33808080483E33483E33808080000000' +
       '483E33808080483E33494034808080000000000000808080494034' +
       '494034808080494034000000808080808080000000494034808080' +
       '000000494034494034808080808080494034494034494034808080' +
       '808080808080483E33000000483E33483E33483E33483E33808080' +
       '000000483E33808080000000483E33808080000000483E33808080' +
       '000000483E33808080000000494034808080000000494034808080' +
       '000000494034808080808080000000494034808080000000494034' +
       '494034494034000000808080494034494034808080000000000000' +
       '000000494034483E33483E33483E33483E33483E33808080483E33' +
       '808080000000808080483E33000000483E33808080000000483E33' +
       '808080000000494034808080000000494034808080000000494034' +
       '808080');
rcmQuickBank := BitmapFromString(16, 6,
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFFFFFFFF');
rcmQuickBankY := BitmapFromString(17, 5,
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
       'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
       'FFFF00000000000000000000');
StoreAllY := BitmapFromString(15, 6,
        'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
        'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '');
StoreAll := BitmapFromString(15, 6,
        'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '');
end;

begin
BitMaps;
ST:=GetSystemTime;
LoadChars('')
SetMouseMode(False);
tempbank:=2842230;
tempLadder:=875655;
tempLadder2:=2316400;
tripcount := 3; town2:= town;
Loged:=false; Fixed:=True
Pickmode:=Pick
LoginIfNeeded;
Chatfix;
FindPickHeadColor(true);
PutOn;
if(ColorsFound=true)then
begin
If(FindColorSpiralTolerance(x,y,banklogo,574,8,722,160,Tolerance))Then ToRocks;
repeat
If(Loged)then break;
DoMining;
ToBank;
trips:=trips+1
PrintProgressReport;
ToRocks;
until(Loged);
end;
end.

That script looks effing amazing. :eek: