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, LabelLockedIn: TLabel;
TxtColorOne, TxtColorTwo, TxtColorThree: TEdit;
TxtUserName, TxtPassWord, TxtEatHits: TEdit;
TxtClickMode, DropList, FList, EatChoice: 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 (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;

   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;

   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
     if (FindColorSpiral (x, y, 0, 245, 210, 255, 230)) then
     if (FindColorSpiral (x, y, 16777215, 80, 245, 95, 265)) then
     begin
              status ('Logging in');
              // Click on "Click here to login"
              ClickMouse(255, 285, True);
              wait(500);
              // Enter username
              ClickMouse(150, 250, True);
              wait(500);
              SendKeysSilent(UserName);
              wait(300);
              // Enter password
              ClickMouse(190, 300, True);
              wait(500);
              SendKeysSilent(PassWord);
              wait(500);
              // Log in
              ClickMouse(410, 250, True);
              wait(5000);
              // Close welcome screen
              ClickMouse(254, 217, True);
              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.