Results 1 to 4 of 4

Thread: Meisterfighter

  1. #1
    Join Date
    Aug 2011
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Meisterfighter

    Classic script... SCAR 1.13 came with this. Basically, it has a nice config GUI, supports autologin, sleeping, eating, and attacking things.

    I recommend you set it to right click on monsters to avoid mistakes.

    Click here for a guide on using my RSC scripts.


    Code:
     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.

  2. #2
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    You're not allowed to post scripts that aren't your own...

    -RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  3. #3
    Join Date
    Dec 2011
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, sorry for gravedig but how do you use this kinda scripts with Simba? or do I need SCAR? I've read the guide on how to use your RSC scripts but it's not really a help...

  4. #4
    Join Date
    Dec 2011
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bump

    I'd srsly love to know how to use this stuff...

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •