Page 1 of 5 123 ... LastLast
Results 1 to 25 of 116

Thread: Post the Oldest thing you have!

  1. #1
    Join Date
    Feb 2006
    Location
    Berkeley, CA
    Posts
    1,837
    Mentioned
    52 Post(s)
    Quoted
    60 Post(s)

    Default Post the Oldest thing you have!

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

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

    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, F2P, LabelLockedIn: TLabel;
    TxtColorOne, TxtColorTwo, TxtColorThree: TEdit;
    TxtUserName, TxtPassWord, TxtEatHits: TEdit;
    TxtClickMode, DropList, FList, EatChoice, F2PDrop: TComboBox;
    LabelClickMode, LabelMiniMap2: TLabel;
    ButtonOK: TButton;
    
    TxtMiniMap, TxtPercentage, TxtObject, TxtLockedIn: TComboBox;
    LabelMiniMap, LabelPercentage, LabelObject: Tlabel;
    TxtMiniMap2: TCombobox;
    
    f, i, j, x, y, BagX, BagY, Attack, Mode, Lobster, Timer: integer;
    MonsterColor1, MonsterColor2, MonsterColor3: integer;
    UserName, PassWord, MonsterName, CurrentHits, Monster: string;
    ActualHp, EatHp, Eating, Server, ScarMeister, Cols, Look: integer;
    MiniSearch, LockedIn2, a, b, SObject: integer;
    FreeMonster, Click, SObjectName: string;
    
    procedure ButtonClick (sender: TObject);
    begin
          UserName:= TxtUserName.Text;
          PassWord:= TxtPassWord.Text;
    
          MonsterName:= DropList.Text;
          Monster:= DropList.Text;
          FreeMonster:= TxtMiniMap2.Text;
          Click:= TxtClickMode.Text;
          MonsterColor1:=  StrToInt (TxtColorOne.Text);
          MonsterColor2:=  StrToInt (TxtColorTwo.Text);
          MonsterColor3:=  StrToInt (TxtColorThree.Text);
          if (TxtMiniMap.Text = 'No') then
          begin
               MiniSearch:= 0;
          end;
          if (TxtMiniMap.Text = 'Yes') then
          begin
               MiniSearch:= 1;
          end;
          if (TxtLockedIn.Text = 'De-Activated') then
          begin
               LockedIn2:= 0;
               end;
          if (TxtLockedIn.Text = 'Activated') then
          begin
               LockedIn2:= 1;
          end;
          if (MonsterColor1 > 0) then
          begin
               Cols:= 1;
          end;
          if (MonsterColor2 > 0) then
          begin
               Cols:= 2;
          end;
          if (MonsterColor3 > 0) then
          begin
               Cols:= 3;
          end;
          if (FList.Text = 'Controlled') then
          begin
               Mode:= 1;
          end;
          if (FList.Text = 'Aggressive') then
          begin
               Mode:= 2;
          end;
          if (FList.Text = 'Attack') then
          begin
               Mode:= 3;
          end;
          if (FList.Text = 'Defensive') then
          begin
               Mode:= 4;
          end;
          if (EatChoice.Text = 'Yes') then
          begin
               Eating:= 1;
               EatHp:= StrToInt (TxtEatHits.Text);
          end;
          if (EatChoice.Text = 'No') then
          begin
               Eating:= 0;
          end;
          if (F2PDrop.Text = 'F2P') then
          begin
               Server:= 0;
          end;
          if (F2PDrop.Text = 'P2P') then
          begin
               Server:= 1;
          end;
          if (TxtPercentage.Text = '100%') then
          begin
               a:= 75; b:= 70;
          end;
          if (TxtPercentage.Text = '90%') then
          begin
               a:= 68; b:= 63;
          end;
          if (TxtPercentage.Text = '80%') then
          begin
               a:= 60; b:= 56;
          end;
          if (TxtPercentage.Text = '70%') then
          begin
               a:= 53; b:= 49;
          end;
          if (TxtPercentage.Text = '60%') then
          begin
               a:= 45; b:= 42;
          end;
          if (TxtPercentage.Text = '50%') then
          begin
               a:= 38; b:= 35;
          end;
          if (TxtObject.Text = 'Monster') then
          begin
               SObject:= 65535;
               SObjectName:= Monster;
          end;
          if (TxtObject.Text = 'Grey Floor') then
          begin
               SObject:= 4210752;
               SObjectName:= 'Grey Floor';
          end;
          if (TxtObject.Text = 'Brown Floor') then
          begin
               SObject:= 143460;
               SObjectName:= 'Brown Floor';
          end;
          if (TxtObject.Text = 'Yellow Dirt') then
          begin
               SObject:= 18520;
               SObjectName:= 'Yellow Dirt';
          end;
          if (TxtObject.Text = 'Brown Dirt') then
          begin
               SObject:= 12360;
               SObjectName:= 'Brown Dirt';
          end;
    end;
    
    procedure AddPicture;
    var
       Canvas: TCanvas;
    begin
       Canvas:= GetBitmapCanvas(ScarMeister);
       CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 8, 236, 8+97, 236+40);
       CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 329, 236, 329+97, 236+40);
    end;
    
    procedure FormPaint(Sender: TObject);
    begin
       AddPicture;
    end;
    
    procedure Initialise;
    begin
       Application:= GetApplication;
       Self:= GetSelf;
    
       Form:= TForm.Create(nil);
       Form.Width := 442;
       Form.Height := 310;
       Form.Position := poScreenCenter;
       Form.BorderStyle := bsDialog;
       Form.OnPaint:= @FormPaint;
       Form.Caption := 'MeisterFighter V1.3b - by Scarmeister';
    
       UserLabel := TLabel.Create(Form);
       UserLabel.Top := 12;
       UserLabel.Left := 8;
       UserLabel.Caption := 'Username:';
       UserLabel.Parent := Form;
    
       PassLabel := TLabel.Create(Form);
       PassLabel.Top := 40;
       PassLabel.Left := 8;
       PassLabel.Caption := 'Password:';
       PassLabel.Parent := Form;
    
       LabelEat := TLabel.Create(Form);
       LabelEat.Top := 68;
       LabelEat.Left := 8;
       LabelEat.Caption := 'Use eating:';
       LabelEat.Parent := Form;
    
       LabelEatHits := TLabel.Create(Form);
       LabelEatHits.Top := 96;
       LabelEatHits.Left := 8;
       LabelEatHits.Caption := 'Eat if Hits below:';
       LabelEatHits.Parent := Form;
    
       F2P := TLabel.Create(Form);
       F2P.Top := 124;
       F2P.Left := 8;
       F2P.Caption := 'Free or Members:';
       F2P.Parent := Form;
    
       LabelMiniMap := TLabel.Create(Form);
       LabelMiniMap.Top := 152;
       LabelMiniMap.Left := 8;
       LabelMiniMap.Caption := 'Use MiniMap Search:';
       LabelMiniMap.Parent := Form;
    
       LabelPercentage := TLabel.Create(Form);
       LabelPercentage.Top := 180;
       LabelPercentage.Left := 8;
       LabelPercentage.Caption := 'Search % of MiniMap:';
       LabelPercentage.Parent := Form;
    
       LabelClickMode := TLabel.Create(Form);
       LabelClickMode.Top := 208;
       LabelClickMode.Left := 8;
       LabelClickMode.Caption := 'Left/RightClick Attack:';
       LabelClickMode.Parent := Form;
    
       FMode := TLabel.Create(Form);
       Fmode.Top := 12;
       Fmode.Left := 200;
       Fmode.Caption := 'Choose FightMode:';
       Fmode.Parent := Form;
    
       MonsterLabel := TLabel.Create(Form);
       MonsterLabel.Top:= 40;
       MonsterLabel.Left := 200;
       MonsterLabel.Caption := 'Choose Monster:';
       MonsterLabel.Parent := Form;
    
       OtherMonsterLabel := TLabel.Create(Form);
       OtherMonsterLabel.Top:= 68;
       OtherMonsterLabel.Left := 200;
       OtherMonsterLabel.Caption := 'Edit MonsterColor #1:';
       OtherMonsterLabel.Parent := Form;
    
       ColorTwo := TLabel.Create(Form);
       ColorTwo.Top := 96;
       ColorTwo.Left := 200;
       ColorTwo.Caption := 'Edit MonsterColor #2:';
       ColorTwo.Parent := Form;
    
       ColorThree := TLabel.Create(Form);
       ColorThree.Top := 124;
       ColorThree.Left := 200;
       ColorThree.Caption := 'Edit MonsterColor #3:';
       ColorThree.Parent := Form;
    
       LabelObject := TLabel.Create(Form);
       LabelObject.Top := 152;
       LabelObject.Left := 200;
       LabelObject.Caption := 'Object on MiniMap:';
       LabelObject.Parent := Form;
    
       LabelLockedIn := TLabel.Create(Form);
       LabelLockedIn.Top := 180;
       LabelLockedIn.Left := 200;
       LabelLockedIn.Caption := 'Locked-in Detection:';
       LabelLockedIn.Parent := Form;
    
       LabelMiniMap2 := TLabel.Create(Form);
       LabelMiniMap2.Top := 208;
       LabelMiniMap2.Left := 200;
       LabelMiniMap2.Caption := 'Find Free Monster:';
       LabelMiniMap2.Parent := Form;
    
       TxtUserName := TEdit.Create(Form);
       TxtUserName.Top := 10;
       TxtUserName.Left := 64;
       TxtUserName.Width := 120;
       TxtUserName.Parent := Form;
    
       TxtPassWord := TEdit.Create(Form);
       TxtPassWord.Top := 38;
       TxtPassWord.Left := 64;
       TxtPassWord.Width := 120;
       TxtPassWord.PasswordChar:= '*';
       TxtPassWord.Parent := Form;
    
       EatChoice:= TComboBox.Create(form);
       EatChoice.Top:= 66;
       EatChoice.Left:= 96;
       EatChoice.Width:= 88;
       EatChoice.Parent:=Form;
       EatChoice.DropDownCount:= 2;
       EatChoice.Items.Add ('No');
       EatChoice.Items.Add ('Yes');
       EatChoice.ItemIndex:= 0;
    
       TxtEatHits := TEdit.Create(Form);
       TxtEatHits.Top := 94;
       TxtEatHits.Left := 96;
       TxtEatHits.Width := 88;
       TxtEatHits.Parent := Form;
    
       F2PDrop:= TComboBox.Create(form);
       F2PDrop.Top:= 122;
       F2PDrop.Left:= 96;
       F2PDrop.Width:= 88;
       F2PDrop.Parent:=Form;
       F2PDrop.DropDownCount:= 2;
       F2PDrop.Items.Add ('F2P');
       F2PDrop.Items.Add ('P2P');
       F2PDrop.ItemIndex:= 0;
    
       TxtMiniMap:= TComboBox.Create(form);
       TxtMiniMap.Top:= 150;
       TxtMiniMap.Left:= 120;
       TxtMiniMap.Width:= 64;
       TxtMiniMap.Parent:=Form;
       TxtMiniMap.DropDownCount:= 2;
       TxtMiniMap.Items.Add ('No');
       TxtMiniMap.Items.Add ('Yes');
       TxtMiniMap.ItemIndex:= 0;
    
       TxtPercentage:= TComboBox.Create(form);
       TxtPercentage.Top:= 178;
       TxtPercentage.Left:= 120;
       TxtPercentage.Width:= 64;
       TxtPercentage.Parent:=Form;
       TxtPercentage.DropDownCount:= 6;
       TxtPercentage.Items.Add ('100%');
       TxtPercentage.Items.Add ('90%');
       TxtPercentage.Items.Add ('80%');
       TxtPercentage.Items.Add ('70%');
       TxtPercentage.Items.Add ('60%');
       TxtPercentage.Items.Add ('50%');
       TxtPercentage.ItemIndex:= 0;
    
       TxtClickMode:= TComboBox.Create(form);
       TxtClickMode.Top:= 206;
       TxtClickMode.Left:= 120;
       TxtClickMode.Width:= 64;
       TxtClickMode.Parent:=Form;
       TxtClickMode.DropDownCount:= 2;
       TxtClickMode.Items.Add ('Right');
       TxtClickMode.Items.Add ('Left');
       TxtClickMode.ItemIndex:= 0;
    
       FList:= TComboBox.Create(form);
       FList.Top:= 10;
       FList.Left:= 306;
       FList.Width:= 120;
       FList.Parent:= Form;
       FList.DropDownCount:= 4;
       FList.Items.Add ('Aggressive');
       FList.Items.Add ('Attack');
       FList.Items.Add ('Defensive');
       FList.Items.Add ('Controlled');
       FList.ItemIndex:= 0;
    
       DropList:= TComboBox.Create(form);
       DropList.Top:= 38;
       DropList.Left:= 306;
       DropList.Width:= 120;
       DropList.Parent:= Form;
       DropList.DropDownCount:= 29;
       DropList.Items.Add ('Other Monster');
       DropList.Items.Add ('Barbarian');
       DropList.Items.Add ('Bear');
       DropList.Items.Add ('Black Knight');
       DropList.Items.Add ('Chicken');
       DropList.Items.Add ('Cow');
       DropList.Items.Add ('Darkwizard');
       DropList.Items.Add ('Deadly Red Spider');
       DropList.Items.Add ('Dwarf');
       DropList.Items.Add ('Ghost');
       DropList.Items.Add ('Giant');
       DropList.Items.Add ('Giant Spider');
       DropList.Items.Add ('Goblin');
       DropList.Items.Add ('Guard');
       DropList.Items.Add ('Hobgoblin');
       DropList.Items.Add ('Ice Giant');
       DropList.Items.Add ('Ice Warrior');
       DropList.Items.Add ('Lesser Demon');
       DropList.Items.Add ('Moss Giant');
       DropList.Items.Add ('Mugger');
       DropList.Items.Add ('Pirate');
       DropList.Items.Add ('Rat');
       DropList.Items.Add ('Scorpion');
       DropList.Items.Add ('Skeleton');
       DropList.Items.Add ('Unicorn');
       DropList.Items.Add ('Warrior');
       DropList.Items.Add ('White Knight');
       DropList.Items.Add ('Wizard');
       DropList.Items.Add ('Zombie');
       DropList.ItemIndex:= 0;
    
       TxtColorOne := TEdit.Create(Form);
       TxtColorOne.Top := 66;
       TxtColorOne.Left := 306;
       TxtColorOne.Width := 120;
       TxtColorOne.Parent := Form;
    
       TxtColorTwo := TEdit.Create(Form);
       TxtColorTwo.Top := 94;
       TxtColorTwo.Left := 306;
       TxtColorTwo.Width := 120;
       TxtColorTwo.Parent := Form;
    
       TxtColorThree := TEdit.Create(Form);
       TxtColorThree.Top := 122;
       TxtColorThree.Left := 306;
       TxtColorThree.Width := 120;
       TxtColorThree.Parent := Form;
    
       TxtObject:= TComboBox.Create(form);
       TxtObject.Top:= 150;
       TxtObject.Left:= 306;
       TxtObject.Width:= 120;
       TxtObject.Parent:= Form;
       TxtObject.DropDownCount:= 5;
       TxtObject.Items.Add ('Monster');
       TxtObject.Items.Add ('Grey Floor');
       TxtObject.Items.Add ('Brown Floor');
       TxtObject.Items.Add ('Yellow Dirt');
       TxtObject.Items.Add ('Brown Dirt');
       TxtObject.ItemIndex:= 0;
    
       TxtLockedIn:= TComboBox.Create(form);
       TxtLockedIn.Top:= 178;
       TxtLockedIn.Left:= 306;
       TxtLockedIn.Width:= 120;
       TxtLockedIn.Parent:= Form;
       TxtLockedIn.DropDownCount:= 2;
       TxtLockedIn.Items.Add ('De-Activated');
       TxtLockedIn.Items.Add ('Activated');
       TxtLockedIn.ItemIndex:= 0;
    
       TxtMiniMap2:= TComboBox.Create(form);
       TxtMiniMap2.Top:= 206;
       TxtMiniMap2.Left:= 306;
       TxtMiniMap2.Width:= 120;
       TxtMiniMap2.Parent:= Form;
       TxtMiniMap2.DropDownCount:= 2;
       TxtMiniMap2.Items.Add ('De-Activated');
       TxtMiniMap2.Items.Add ('Activated');
       TxtMiniMap2.Hint:= ('If you Activate this, also set the Search % of the MiniMap.');
       TxtMiniMap2.ShowHint:= true;
       TxtMiniMap2.ItemIndex:= 0;
    
       ButtonOK := TButton.Create(Form);
       ButtonOK.Left := 147;
       ButtonOK.Top := 252;
       ButtonOK.Width := 136;
       ButtonOK.Height := 24;
       ButtonOK.Caption := '- Start -';
    
       ButtonOK.OnClick := @ButtonClick;
       ButtonOK.Parent := Form;
       ButtonOK.ModalResult:= mrOk;
       ButtonOK.Default := False;
    
       Form.ShowModal;
       Form.Free;
    end;
    
    procedure BitMapInitialise;
    begin
            Attack := BitmapFromString(15, 9,
            '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
            'FFFFFF000000000000000000FFFFFF000000000000000000FFFFFF' +
            'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF' +
            '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '');
    
            Lobster := BitmapFromString(19, 13,
            '8E4D008E4D00000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000000000000000000000' +
            '0000007F4500AD5E007F45005C3200000000000000000000000000' +
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000AD5E005C32004D2A007F45008E4D00000000000000' +
            '000000000000000000000000000000000000000000000000000000' +
            '00000000000000000000000045372C5C3200703D007F4500000000' +
            '000000000000000000000000000000000000000000000000000000' +
            '0000000000000000000000000000000000005C32005C3200703D00' +
            '703D005C3200000000000000000000000000000000000000000000' +
            '0000000000000000000000000000000000000000000000005C3200' +
            '5C32004D2A00703D008E4D008E4D008E4D00703D00703D00703D00' +
            '000000000000000000000000000000000000000000000000000000' +
            '0000000000005C3200703D007F45007F4500AD5E00AD5E008E4D00' +
            '9E56009E56008E4D009E56009E5600000000000000000000000000' +
            '0000000000000000000000005C32005C3200AD5E007F45008E4D00' +
            '9E56009E56009E5600703D008E4D009E56009E5600000000000000' +
            '00000000000000000000000000000000000045372C703D007F4500' +
            '8E4D008E4D008E4D009E56008E4D00703D008E4D008E4D0045372C' +
            '000000000000000000000000000000000000000000000000703D00' +
            '7F45008E4D008E4D00703D008E4D009E56008E4D00703D008E4D00' +
            '7F4500000000000000000000000000000000000000000000000000' +
            '7F45007F45008E4D008E4D008E4D00703D008E4D009E56008E4D00' +
            '45372C000000000000000000000000000000000000000000000000' +
            '0000000000007F45005C32008E4D009E56008E4D00703D008E4D00' +
            '7F4500000000000000000000000000000000000000000000000000' +
            '0000000000000000000000008E4D00703D008E4D008E4D00703D00' +
            '7F4500000000000000000000');
    
            ScarMeister:= BitmapFromString(97, 40,
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27C819563566A5C506D' +
            '5E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27473826E5E5A796686' +
            '95718B6E5E5A948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2646785' +
            '312E400302053A3C500302050302055E5D69C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C25C506D3E1645571784482A8663566A63566A' +
            'C2C2C2C2C2C2C2C2C27473826E1E5E8C2F97A133C19D3DB3925E8E' +
            '95718B948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2A6A1B2312E401F1E2D04020E0C0622' +
            '4C347F0C06220C06220E050A52566FC2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            '6D5B88451A824C0D728177B6A594D22C0C374B4343C2C2C2C2C2C2' +
            'C2C2C2572486661A87A26CBBD2ACD4BAA4DA835EA4785284A6A1B2' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C21F1E2D1F1E2D1F1E2D646785A2B5EED6DEFED1D4FA' +
            '948F951609332213155E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2816AA6572486' +
            '9298C3B4BDF38997BF16084C6B5291C2C2C2C2C2C299979C3E1467' +
            '410C69D1C5F2D1D4FAA3A3D74D3D62512F5F99979CC0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E40' +
            '0302051F1E2D9BACE0AAB5EB3634470302056B6E86CDD6F69397AF' +
            '0302054B4343C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2653C92572486A3A3D7A2B5EE' +
            '828CB91609335C506DC2C2C2C2C2C270629D38187C56428BDFD9FA' +
            'D1C5F25C506D20091A4D3D62A6A1B2C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C252566F0302050302058997BF' +
            '92A2D11F1E2D03020523142D040222D6DEFECECED00E050A221315' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C24C347F1D0747A3A3D7AAB5EB828CB9120635' +
            '524A76C2C2C2C2C2C236223838187C9185ABD1D4FAC0CEFA302238' +
            '2A0A69968899C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0747382' +
            '5E26624618441F0931362238C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2030205030205948F95C0CEFA646785030205' +
            '23142D04020E100518CDD6F6E5E4FA030205B7A1B1C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C23E14672A0A69A3A3D7B4BDF3828CB91206355C506DC2C2C2' +
            'A297C62A0A692A0A69B4BDF3D6CCFAB4C7FA100518370C48C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06D5B885717849D4BC59562B1' +
            '5E2A8A531E683D273CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            '6B6E860302051F1E2DD6DEFED6DEFE03020503020552566F160933' +
            '484457BEC5EAB6B6D9030205FBF6FDC2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C299979C2A0A69' +
            '451A829BACE0B5C6F28084B00C054516084CC2C2C25253852A0A69' +
            '56428BADBEF2BDC6FAA3A3D70C0622281264C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0623284752EA1D0BBE8E5E4FADEDAEE280849' +
            '571784C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E40030205' +
            '727697D1CDEAA6ACD3030205030205030205050318948F95DFE6FE' +
            '99979C6E5E5AE9DFDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592320B6E614E89C4CAF2' +
            '9BACE0A2B5EE0C054516084CC2C2C216084C26147A918CCAAEB4E4' +
            'A2B5EE828CB9120635363447C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'A398AA5E2A8A623284EADCF2EDEBFBE5E4FA1005181F0931C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D2C8CAF7F2FDCA77BE' +
            '72425A99979CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2030205030205B2B2CACDD6F6' +
            '5E5D69030205484457030205030205CDD6F6D1DBFA5E5D69C0B9D3' +
            'A6A1B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2947EAB0803319772B2FBF6FDD6DEFEA5BEF4' +
            '0C06220E095C928DA91E0A651E0A65C0CEFAB4C7FAAAB5EB646785' +
            '16084C524A76C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A6A1B2653C92' +
            '645A96DBD7F6E0E0FEB2B2CA0402225C18A0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0DA9AAEF5B3F1F4CFECCA77BE6E1E5E' +
            'C0B2B2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2' +
            'C2C2C2C2C2C299979C03020504020EDBD7F6DFE6FE5E5D69030205' +
            '7C81950302051F1E2DB5C6F29397AF4A4E6622131599979CC2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2A48CAC1D07479298C3FBF6FDDFE6FEC7CCF60C06220E095C' +
            '524A760E095C64689BBAC7F6C2CCFEB4C7FA52566F0C06226B6E86' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A398AA8242B856428BC0CEFA' +
            'CDD6F63A3C501F0931484457C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            '95718B752EA1752EA1925E8EFAE1F0461844461844C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2' +
            '7C81950302053A3C50DFE6FEEDEBFB5E5D690302058A85920E050A' +
            '0E050A4B43434B43436E5E5A363447C2C2C2C2C2C27C81957C8195' +
            '8A8592C2C2C2C2C2C2C2C2C2C2C2C299979C99979C948F95C2C2C2' +
            'C2C2C2C2C2C28A8592C0B2B2C2C2C2C2C2C299979CA398AAB179CE' +
            '280849B2B2CAEDEBFBEDEBFBCDD6F60C06220E095C0E095C100754' +
            '9298C3B4C7FAC2CCFECDD6F624203F1206358A859252566F4A4E66' +
            '4A4E66484457B1ADCBA6A1B2653C92653C924844571F1E2D0E050A' +
            '6F2F81A6A1B299979CA6A1B299979CA6A1B2C0C0C0785284861CBA' +
            'BF8ACADFD1FAD0BBE8370C486E1E5EC0C0C0CECED0E9DFDECECED0' +
            'A48CAC8A8592C0C0C099979C99979CA6A1B299979C99979C99979C' +
            '99979CC0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A' +
            '52566FDFE6FEEDEBFB5E5D690302058A859299979C6E5E5AFBF6FD' +
            'F7F2FD363447C2C2C28A859216071023142D1609332213152A2131' +
            'C2C2C2CECED0FEFDFE9547883612251607100302056E5E5A63566A' +
            '785284FAE1F0E7CEDF785284370C481F0931653C9225134AD6DEFE' +
            'E0E0FED6DEFECDD6F60302050E095C0E095C100754B4BDF3B4BDF3' +
            'C0CEFACDD6F60503180C054524203F0E095C1E0A651E0A651E0A65' +
            '2C1E4D796686451A828242B8975DD2531E68410C69A48CAC572486' +
            '9D3DB3BE50D2A133C16E1E5EA48CAC5C18A05C18A0A3A3D7DFD9FA' +
            'A6A1B2461844954788A48CACFEFDFEFEFDFEFEFDFEFAE1F0CA62B6' +
            '948F953E164551145D1406210C062205031805031803020552566F' +
            'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A52566FCDD6F6' +
            'E0E0FE6467850302054B4343C2C2C2CECED0C2C2C2C2C2C2C2C2C2' +
            '8A85920302051F0931482A866D5B883D273C361225D6B9C2FEFDFE' +
            'FAE1F0925E8E6E5E5A3D27651206350C054538187CA26CBBFCEDFA' +
            'E6C2EAB16CBD410C6961436C5E2A8A835EA4E0E0FED1D4FACDD6F6' +
            'CDD6F604020E0C05450E095C5F5B7DADBEF2AAB5EBC0CEFA92A2D1' +
            '04020E0C05450E095C0E095C828CB992A2D128206416084C320B6E' +
            '2A0A69975DD2C78DE9A14EA56232845717849D4BC5AF5CCBD684E3' +
            'AF5CCB680E8C680E8C680E8C5C18A0DFD1FADBD7F67966863E1645' +
            'A2739BFAC2F6FEFDFEFEFDFEFCEDFAFCEDFAF4CFECFEFDFEFCEDFA' +
            'A14EA5653C923E1467320B6E614E891007540C06225E5D69C2C2C2' +
            'C2C2C2C2C2C2C2C2C27C81950302053A3C50D1DBFAD6DEFEC2C2C2' +
            '030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C062223142D' +
            '5F5B7DCFD8FEDEDAEECECED0361225FEFDFEFEFDFEB888A7D1C5F2' +
            'A297C6BDC6FA8177B60C0545320B6EBAA4DAEEE3FEEEE3FEFBD5FE' +
            'BAA4DAD1D4FA4D3D62E7CEDFDFD9FAB6B6D9E0E0FEDFE6FE04020E' +
            '0C05450C0545A2A1C6ADBEF2A6ACD3D1CDEA9298C30402220E095C' +
            '282064B4BDF3CACCFAC7CCF69BACE00C054538187C947EABD6CCFA' +
            'D1C5F26F2F818C2F97701C8CD684E3F7F2FDFCEDFAEADCF29562B1' +
            '680E8C861CBA680E8CD6CCFAD1CDEA835EA451145DCA77BEFEFDFE' +
            'FEFDFEFEFDFEFCEDFAD2C8CA4D3D62BE50D2FEFDFEFBF6FDB5C6F2' +
            '451A82525385B4BDF37C81950503181F1E2DC2C2C2C2C2C2C2C2C2' +
            'C2C2C299979C030205030205D6DEFEDFE6FECDD6F6C0B2B2FEFDFE' +
            'C2C2C2C2C2C2C2C2C2C2C2C2363447030205312E40D6DEFED1CDEA' +
            '747382D1D4FA968899FEFDFEE7CEDFD1DBFA6B6E8604020EC0CEFA' +
            'B5C6F2525385423A82AAB5EBBEC5F2DBD7F6F4CFECEEE3FEB4BDF3' +
            '9185AB645A96FBF6FDA3A3D7EDEBFBDFE6FE04020E0C0545080331' +
            'CDD6F6828CB9C7CCF6CACCFA52566F0402220E095C92A2D1BEC5F2' +
            '1F1E2D92A2D1AEB4E4524A76451A82BEBBEFBDC6FAADBEF2280849' +
            'BE50D29562B1EEE3FEBEB2C20E050AD1C5F2E9DFDE680E8CA133C1' +
            'C78DE9DED8FEDFD1FA947EAB72425AF5B3F1FEFDFEFEFDFE747382' +
            '968899E0CEE2A398AA9D3DB3D0BBE8EADCF2FEFDFED0BBE8A6ACD3' +
            'A5BEF4A2B5EE0C0622050318C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            '030205030205BACAE6FEFDFEFEFDFE948F952213155E5D69C2C2C2' +
            'C2C2C299979C040222160933A6ACD3CFD8FE3A3C50120508DBD7F6' +
            'E7CEDFFEFDFEDAC9D2BEBBEF04020E2C1E4DC0CEFABDC6FA828CB9' +
            '92A2D164689BA2B5EEADBEF2D1C5F2F7D7F6BEBBEF828CB99298C3' +
            'EADCF2A6ACD3D6DEFECDD6F60402220C0545525385C0CEFA64689B' +
            'CFD8FEB4C7FA52566F0C0545423A82C0CEFA6B6E86080331828CB9' +
            'ADBEF2645A96828CB9A3A3D7C5C2F6A6ACD3512F5FAF5CCBE7CEDF' +
            'EEE3FE0E050A410C69D0BBE8EDEBFB2A0A69A383B4D0BBE8DFD1FA' +
            'D1D4FAA6A1B295718BFAE1F0FEFDFEDAC9D25E2662B888A7DFD1FA' +
            'A297C6A383B4BF8ACAD1C5F2BEBBEFDFD9FAD0BBE8BEC5EAA5BEF4' +
            '050318030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23D273C3D273C' +
            'EDEBFBFEFDFEFBF6FD99979C030205030205C2C2C2C2C2C2484457' +
            '0C06224A4E66C7CCF6AEB4E40E050A542C38EEE3FEF7F2FDFCEDFA' +
            'BEC5EA6467850C062252566FC2CCFEC0CEFA1F1E2D6467858177B6' +
            'ADBEF2ADBEF264689BBEB2C2B4BDF364689B92A2D1B2B2CAA2A1C6' +
            'C0CEFAA6ACD304020E0C05458997BFADBEF252566FA5BEF4ADBEF2' +
            '05031808033192A2D1A5BEF41F1E2D0803319298C3BAC7F6525385' +
            '918CCA645A96CACCFAB4BDF36F2F81B179CEFCEDFAC2C2C2370C48' +
            '571784FBF6FDEDEBFB140621661A87D6B9C2EADCF2B1ADCB221315' +
            'FAE1F0FEFDFEFEFDFE8A8592824184BF8ACAEADCF2A297C6484457' +
            'A383B4D1D4FAC0CEFAA2A1C67C6EABCDD6F692A2D1030205040222' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2968899EDEBFBE9DFDED6DEFE' +
            'F7F2FDEDEBFB0E050A0E050A6B6E86C2C2C20C06220C0622A6ACD3' +
            'C0CEFA74738222131595718BDBD7F6DAC9D2DEDAEEB4BDF31F1E2D' +
            '0C06228084B0B4C7FAB4BDF304020E040222828CB9B4BDF3ADBEF2' +
            '1F1E2D5C506D777EA91F0931B4BDF382769EA3A3D7ADBEF2828CB9' +
            '0402220C0545B4C7FA777EA9777EA9A2B5EE9BACE0080331282064' +
            'A5BEF49BACE00402220C0545928DC0B5C6F252566F1D07479185AB' +
            'DFD1FAB6B6D98242B8BAA4DAE5E4FA706684661A879772B2EDEBFB' +
            'C0B9D320091A98368AE6C2EAFEFDFEC0B9D3CEB4D0FEFDFEFEFDFE' +
            'DBD7F6362238954788B16CBDDFD9FAA2A1C63E1467835EA4D1C5F2' +
            'BACAE66467851F1E2DA6ACD324203F23142D3A3C50C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C299979CFEFDFE63566AC2C2C2DFE6FEE5E4FA' +
            '7473820302053022388A8592120508120508E0E0FEE0E0FE948F95' +
            'D2C8CAD2C8CADAC9D2FAE1F0EDEBFBBEC5EA0302050C06228997BF' +
            'B4BDF392A2D104020E0803319BACE0ADBEF292A2D10503186F2F81' +
            '531E682C1E4DADBEF2614E89EEE3FEB5C6F28997BF04022252566F' +
            'B4C7FA3A3565828CB9B4C7FA828CB90C05456E7E97ADBEF2646785' +
            '0402220C05459298C3B4BDF33A3C502A0A69BAA4DAEEE3FEBFADE1' +
            'B16CBDBFADE1D6CCFA796686861CBAB79ABFE0E0FE7473822C0C37' +
            'FBD5FEFEFDFEFBF6FD968899F7F2FDFAC2F6DFD1FAA2A1C6361225' +
            '571784A26CBBDFD1FA928DC06C228AA383B4CACCFAC0CEFA312E40' +
            '2C1E4D7966863D273C363447C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2EDEBFB0E050A484457CDD6F6DFE6FED1CDEA120508' +
            '2213154B434320091A6E5E5AFEFDFEF7F2FD6E5E5AD6B9C2CA9EAA' +
            'FEFDFED6CDD8E0E0FE9397AF03020504020EB4BDF3B4C7FA8997BF' +
            '040222080331B4C7FAA5BEF47276970E050A835EA4D684E36B5291' +
            'ADBEF2080331BEC5F2EDEBFB828CB90C0545828CB99BACE0080331' +
            '9BACE0C0CEFA6E7E970C05459BACE0A2B5EE3A3C500C05450E095C' +
            'C5C2F6B4BDF30402221E0A65E0E0FEE5E4FA9185ABD684E3DDD2FE' +
            'DDD2FE6D5B88701C8CB79ABFCDD6F6302238DA9AAEFBF6FDFEFDFE' +
            'EDEBFB63566A98368ABAA4DAE5E4FA8084B03E1467410C69A297C6' +
            'D1D4FA4D3D62752EA1BAA4DADDD2FEAEB4E4120508370C48BEB2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'CECED0160710030205B1ADCBEDEBFBFBF6FDC0B2B2F7F2FDFCEDFA' +
            'B888A7FEFDFEFEFDFEC2C2C2120508120508F7D7F6FAE1F099979C' +
            'C0CEFA4E526E04020E04020EBDC6FAB4C7FA52566F0402223A3C50' +
            'B4BDF3ADBEF2312E4005031861436C6F2F81947EABA2B5EE1D0747' +
            'A5BEF4BDC6FAB2B2CA040222A2B5EE6E7E97080331A5BEF4A5BEF4' +
            '525385282064A2B5EEA5BEF404022210075456428BD1DBFA7C8195' +
            '1D0747280849E0E0FEEADCF2796686D684E3F7F2FDDFD9FA82769E' +
            '6E1E5E2C0C373D273C542C38FEFDFEFEFDFEFCEDFAD6DEFE100518' +
            '571784E0CEE2E0E0FE5F5B7D410C6951145DBEBBEFB4BDF3100518' +
            '4C0D72BEBBEFD1D4FA9185AB10051823142DC2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C24B4343' +
            '16071099979CFEFDFEFEFDFEFBF6FDD6CDD8FEFDFEFEFDFEFEFDFE' +
            'DFD9FA948F9503020595718B362238D2ACD4EDEBFBD1D4FA3A3C50' +
            '0402223A3C50B5C6F2B5C6F24E526E080331525385ADBEF2A2B5EE' +
            '04020E1206352C1E4D320B6EBAA4DA8084B0080331ADBEF2A5BEF4' +
            'CACCFA7C6EABADBEF23A3C50525385A5BEF4A5BEF43A3565525385' +
            'A2B5EE92A2D10402221E0A65A3A3D7D1DBFA1F1E2D2A0A696D5B88' +
            'DED8FED6DEFE312E40B179CEF7F2FDEEE3FEB79ABF6F2F8198368A' +
            'BF8ACAF4CFECFEFDFEFEDFFAE0E0FEBFADE13E1645571784E0E0FE' +
            'C7CCF63D273C6B179F9562B1D4C8F66B6E86280849661A87DED8FE' +
            'D1D4FA63566A100518796686C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFEE9DFDE' +
            'F7F2FDD6DEFEE0E0FE4B434336122572425AC7CCF6C0CEFA5E5D69' +
            '61436C96889920091A362238CDD6F6CDD6F604020E05031852566F' +
            'A5BEF4A2B5EE04020E040222777EA9B4C7FA92A2D104020E120635' +
            '1D0747451A82AEB4E4777EA9080331A5BEF4ADBEF29298C3DFD9FA' +
            'A2B5EE0402224E526EA5BEF4A5BEF4080331828CB9A2B5EE828CB9' +
            '0C05454A3E8AC7CCF66B6E86100518320B6E7B529EE0E0FEE0E0FE' +
            '2C0C37B16CBDE0CEE2EEE3FEEADCF282418498368AE6C2EAEDEBFB' +
            'FEFDFEE6C2EADDD2FEA398AA571784835EA4D0BBE8BEC5F2531E68' +
            '6B179FD1C5F2A3A3D704020E410C697B529ED6CCFAC7CCF6302238' +
            '1406218A8592C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2E9DFDE4B43437C8195D1D4FA' +
            'DEDAEE928DA912050863566AC7CCF6EDEBFB2213150E050A63566A' +
            '12050852566FBAC7F6BEC5EA23142D0402229298C3B4BDF3A2B5EE' +
            '04020E0803318997BFADBEF2828CB904020E3D27651D07472A0A69' +
            'BAC7F6524A760C0545A5BEF4ADBEF2828CB9BEC5F2A6ACD3040222' +
            '828CB9A5BEF49BACE00E095C9BACE0A2B5EE64689B2A2672AEB4E4' +
            '9298C30503181D07472A0A69A3A3D7E0E0FEC0B9D325134AA14EA5' +
            'D2ACD4EDEBFBEDEBFBA383B46E1E5EFAE1F0FBF6FDFCEDFAD0BBE8' +
            'DBD7F65E5D69680E8CAC94DCDBD7F6AEB4E46B179FBAA4DABEBBEF' +
            '2A21311F0931410C697B529ED0BBE8BEC5F220091A370C48C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C0B2B2747382120508030205C7CCF6D1DBFAA2A1C6' +
            '1205087C8195DED8FED6DEFE0302050302054B43430E050A8A8592' +
            'B4BDF3A6ACD303020504020E8997BFA5BEF4828CB904020E040222' +
            'B4C7FAADBEF26467850402224844572A0A6956428BC0CEFA3A3C50' +
            '080331AAB5EBA2B5EEA2B5EEB4C7FA727697120635828CB9A5BEF4' +
            '8997BF282064ADBEF2A2B5EE64689B9BACE092A2D11F1E2D120635' +
            '2A0A692A0A69A2A1C6D1C5F29298C33E1645824184A26CBBDEDAEE' +
            'EEE3FED6CDD8954788FEFDFEFEFDFEFAC2F6E7CEDFD6CCFA706684' +
            '4C0D72BEBBEFDFD1FABAA4DABAA4DAB6B6D952566F3622386C228A' +
            '680E8CA594D2C5C2F6A3A3D72C0C3751145DC2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C20E050A030205A6A1B2CDD6F6CDD6F6030205C0B9D3' +
            'EDEBFBA2A1C610051805031804020E140621828CB99BACE0A2A1C6' +
            '04020E080331A5BEF4A2B5EE6E7E97040222040222ADBEF2A5BEF4' +
            '52566F040222645A96080331645A96BAC7F60402220C0545A5BEF4' +
            'A5BEF4A2B5EEA5BEF42C1E4D56428BADBEF2ADBEF264689B525385' +
            'A5BEF4A2B5EEADBEF2828CB904020E23142D482A86320B6E2A0A69' +
            'BEBBEFAAB5EB5F5B7D5E26628C2F97954788CEB4D0DEDAEEDFD1FA' +
            'CA9EAAFEFDFEFEFDFEB16CBDEDEBFBE0E0FE1406214C0D72DFD1FA' +
            'D1DBFACDD6F6A2B5EE23142D2C1E4D6F2F816C228A752EA1AC94DC' +
            'BEBBEF9397AF3E164572425AC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            '4B43430302056B6E86D1CDEACDD6F6A383B4DFE6FEE0E0FEA6ACD3' +
            '03020548445705031804020EB5C6F2C4CAF24E526E04020E24203F' +
            'B5C6F2C0CEFA4E526E040222525385B5C6F2ADBEF21F1E2D04020E' +
            '4D3D62080331777EA9A3A3D70402220C0545A2B5EEA2B5EEA2B5EE' +
            '828CB93D2765BFADE1ADBEF2B4C7FA52538564689BA2B5EEA2B5EE' +
            '36344704020E0C0622493D799185AB320B6E451A82BEBBEFAAB5EB' +
            '524A76824184925E8E954788B888A7DFD9FADFD9FADFD1FAF7D7F6' +
            'FEDEFEA26CBBEEE3FED1CDEA2808495E2A8AD4C8F6D1D4FA7C8195' +
            '0302051F09315E2662948F95701C8C661A87DFD9FAC4CAF26B6E86' +
            '461844925E8EC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'CECED0948F958A8592C2C2C2C2C2C2C2C2C2C2C2C2747382040222' +
            '5E5D69C7CCF6CACCFA9185ABD6DEFECDD6F652566F0302053A3C50' +
            '050318030205E0E0FEB5C6F24A4E6608033152566FB4C7FAC0CEFA' +
            '3A3C5004022252566FB4BDF3B5C6F204020E080331080331080331' +
            '828CB9828CB90402220C0545A2B5EEA5BEF4A5BEF44A4E6625134A' +
            'EADCF2B5C6F2ADBEF21F1E2D8997BFA5BEF492A2D10402220C0545' +
            '524A76C2C2C282769E320B6E7B529EC5C2F6AAB5EB1D07476F2F81' +
            'A297C6CA77BE824184D0BBE8DBD7F6E0CEE2D2ACD4FBD5FED2ACD4' +
            'E5E4FAA2A1C6410C69835EA4D6CCFAC0CEFA24203F1D0747572486' +
            'C2C2C2968899661A876C228ADBD7F6CACCFA5F5B7D5E26628A8592' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFE3D273C' +
            '1205088A8592C2C2C2C2C2C2C2C2C28A859205031852566FC0CEFA' +
            'BACAE65C506DC7CCF6CDD6F66467851609339688990302053A3C50' +
            'E0E0FEB4C7FA4A4E6604020E6B6E86B4C7FAB4C7FA030205040222' +
            '8997BFB4C7FA828CB904020E040222080331080331A2B5EE64689B' +
            '080331282064ADBEF2A2B5EEA2B5EE1F1E2D0C05457C6EABEDEBFB' +
            'ADBEF2040222918CCAADBEF28997BF0503183A3565C2C2C2C0B9D3' +
            '61436C320B6E7C6EABBAC7F6A2B5EE370C488C2F979D3DB3F5B3F1' +
            'CA77BEB8A3BEEEE3FEEDEBFBB7A1B1F5B3F1CEB4D0DDD2FE9185AB' +
            '410C69816AA6DFD1FAC5C2F6140621410C69C2C2C2C2C2C2947EAB' +
            '6C228AA26CBBEADCF2C5C2F616071051145DA398AAC2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2FEFDFEF7F2FD5C506D2A2131030205' +
            'C2C2C2C2C2C2C2C2C24844570503184E526EBDC6FA8997BF82769E' +
            'B5C6F2D1DBFA52566F0C0622928DA982769EA3A3D7FBF6FDB4BDF3' +
            '1F1E2D0402228997BFBAC7F6A3A3D7040222040222A3A3D7B5C6F2' +
            '8997BF040222484457080331080331A2B5EE4A4E660C0545525385' +
            'ADBEF2A5BEF48997BF04020E040222828CB9EDEBFB92A2D1080331' +
            '9BACE0BAC7F68997BF050318524A76B1ADCBB1ADCB4A3E8A2A0A69' +
            '918CCABEC5F2928DC04C0D72B179CE954788EEAAE6EEAAE6CEB4D0' +
            'FCEDFADEDAEE95718BB16CBDD1C5F2C4CAF25F5B7D5C18A09772B2' +
            'D1D4FABDC6FA1005182A0A69C2C2C2B1ADCB785284410C69A383B4' +
            'DED8FECDD6F620091A51145DC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2CECED0FEFDFE4B4343C5C2F60E050A050318C2C2C2C2C2C2' +
            'C2C2C21F1E2D04020E828CB9A5BEF452566F928DA9CACCFACDD6F6' +
            '1F1E2D0302055E5D690C06226B6E86B4C7FAADBEF204020E04020E' +
            'B5C6F2B4C7FA8997BF030205040222C0CEFABAC7F64A4E6604020E' +
            '493D790803314E526EA2B5EE1F1E2D080331525385A5BEF4A5BEF4' +
            '72769704022208033192A2D1A2B5EEA2A1C6120635BAC7F6BAC7F6' +
            '6467850402223A35654C347F4C347F16084C2A0A69A3A3D7BEC5F2' +
            'A594D2752EA1D1D4FA461844DA94DEFAC2F6D2ACD4FEFDFED1CDEA' +
            'B179CE6F2F81DEDAEEC4CAF2493D79451A82AC94DCCACCFAA3A3D7' +
            '120635451A82947EABA48CAC835EA45E2A8ADEC4F2D6CCFAA2A1C6' +
            '3E1645A14EA5C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2DAC9D2' +
            '36122563566ABEC5F2030205030205C2C2C2C2C2C299979C04020E' +
            '04022292A2D19BACE0030205D1C5F2CDD6F6BAC7F603020504020E' +
            '36344724203F4E526EADBEF2ADBEF204020E3A3C50B4BDF3B4C7FA' +
            '6467850402221F1E2DC0CEFABEC5EA3A3C50040222484457080331' +
            '4A4E66A5BEF4040222080331525385B4BDF3A2B5EE4A4E66040222' +
            '080331A2B5EEA2B5EE82769E120635B4BDF3ADBEF252566F040222' +
            '1007542A26721007542A0A691E0A65BEBBEFB4BDF3645A969562B1' +
            'BEC5EA3E1645F5B3F1FAE1F0D6B9C2FBF6FDC2C2C2EEAAE6A2739B' +
            'DDD2FED1D4FA1206353E1467A2A1C6C4CAF29397AF3E1467975DD2' +
            '975DD2572486572486752EA1D1C5F2DBD7F6947EAB542C38796686' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B7A1B172425A706684' +
            'B5C6F203020504020EC2C2C2C2C2C2312E40030205363447A5BEF4' +
            '727697160710EADCF2CDD6F6CDD6F60302050402224E526E777EA9' +
            '4E526EADBEF2ADBEF204020E64689BADBEF2BACAE64E526E040222' +
            '525385BDC6FAB4C7FA030205040222312E40080331828CB9828CB9' +
            '04020E080331525385ADBEF2A2B5EE04020E120635363447A2B5EE' +
            'A2B5EE747382282064BEC5EAAAB5EB52566F0C054516084CA3A3D7' +
            '1007542A0A694A3E8AC5C2F6ADBEF256428B9772B2CACCFA72425A' +
            'F7D7F6FEDEFEDEC4F2FCEDFAA6A1B2FCEDFABF8ACAD6DEFEDBD7F6' +
            '2C0C375C18A0BFADE1DED8FEA3A3D725134A320B6EA383B4614E89' +
            '38187C3E1467CACCFADBD7F663566A824184A2739BC2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2362238A2739BA2A1C6BACAE6030205' +
            '0E050A6B6E866B6E8604020E04020E9BACE0BEC5F21F1E2D4D3D62' +
            '706684CDD6F6C7CCF604020E0C06229298C36E7E974A4E66A5BEF4' +
            'ADBEF203020592A2D1B4C7FABAC7F60302050402227C8195B4C7FA' +
            '9BACE004020E0402220402220803318997BF828CB9040222080331' +
            '4A4E66A5BEF48997BF0402220402225253859BACE0B4BDF30C0622' +
            '9772B2A6ACD3A2B5EE4E526E0E095C525385A5BEF42820641E0A65' +
            '645A96B5C6F2BEBBEF8242B8CEB4D0FCEDFAA383B4FEDFFAE6C2EA' +
            'FBF6FDEDEBFB8A8592F7F2FDDEC4F2DED8FEB1ADCB653C92C78DE9' +
            'AC94DCC5C2F6928DC026147A451A82BDC6FA7C6EAB451A82493D79' +
            'D6CCFAB5C6F261436C9562B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2362238120508DDD2FEF7F2FD7276970503180E050A' +
            '03020504020E6B6E86BEC5EA6B6E860C06221607105C506DCDD6F6' +
            'BAC7F604020E3A3C50A5BEF41F1E2D363447A5BEF4ADBEF2646785' +
            'A2B5EEADBEF2B5C6F20302050503188997BFB4BDF3828CB9030205' +
            '23142D040222040222A2B5EE4A4E66040222040222828CB9A2B5EE' +
            '727697040222100754777EA99BACE0CACCFA0C0622DFD1FA9397AF' +
            '9BACE05253850C054592A2D16E7E97040222100754947EABB4BDF3' +
            'C5C2F6BFADE1EEE3FEFBF6FDB8A3BEF7D7F6FEFDFEFEFDFEB1ADCB' +
            '796686F4CFECC0B9D3EEE3FEBEBBEF8177B6918CCA70629DB4C7FA' +
            '928DC038187C9185ABAAB5EB0503183E1467816AA6CACCFAB4C7FA' +
            '160710531E68B7A1B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            '3612250E050A52566FE5E4FAD1D4FA30223816093305031852566F' +
            'B5C6F2828CB90302053022380C06221F1E2DC0CEFAADBEF264689B' +
            '9BACE0646785030205030205ADBEF2ADBEF2A5BEF492A2D1A5BEF4' +
            '828CB904020E050318ADBEF2B5C6F26E7E9704020E484457040222' +
            '3A3565A2B5EE4A4E66040222040222828CB9A2B5EE4A4E66040222' +
            '0402229BACE0B6B6D99298C304020EDEC4F270629DA2B5EE8997BF' +
            '8997BF9BACE00402220C0545100754828CB9BFADE1CDD6F6928DA9' +
            'B1ADCBFEFDFEF7F2FDFEFDFEFEFDFEEDEBFB4B43437B529E72425A' +
            'BAA4DAD0CBEEC5C2F6AAB5EB24203F16084CBEC5F2B4C7FA8177B6' +
            'C5C2F63A3C5016084C451A82A594D2AEB4E4AAB5EB0E050A5E2662' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592221315' +
            '0302053A3C50D1D4FAE0E0FEB1ADCBC0B9D3BAC7F6646785030205' +
            '0C062279668604022223142D6E7E97ADBEF2ADBEF2828CB9030205' +
            '03020504020E6E7E97A2B5EE6E7E976E7E978084B08084B03A3C50' +
            '0302058997BF828CB9312E40050318484457050318828CB9828CB9' +
            '72769704020E040222828CB9A2B5EE312E40040222646785828CB9' +
            '8997BF9397AF82769E512F5F04022292A2D1A2B5EE9BACE01F1E2D' +
            '23142D26147A100754525385ADBEF2A6ACD3030205030205A6A1B2' +
            'FBF6FDFEFDFEEDEBFB5E5D69362238824184653C92928DC0A2B5EE' +
            '9BACE03A3C501609331E0A658084B0ADBEF2A2B5EE5253850C0622' +
            '38187C451A827C6EAB8084B06467851F09319562B1C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C296889904020E030205' +
            '1F1E2D3A3C505E5D695E5D6903020503020504020E706684C2C2C2' +
            '6467850C06220503184A4E6636344703020504020E48445704020E' +
            '0302054A4E660302050302050302050302054B434323142D030205' +
            '030205030205484457484457484457030205030205030205484457' +
            '04020E04020E03020504020E04020E312E4003020503020524203F' +
            '4A4E6623142D0402221F1E2D4A4E6604020E04022224203F928DA9' +
            '1E0A651206354A4E6604020E2C0C375E266272425A2A21315E5D69' +
            '1F1E2D2C1E4D5E2662A48CAC7B529E2C1E4D4A4E661F1E2D080331' +
            '4C347F26147A0E095C4A4E661F1E2D0402222812649185AB5C506D' +
            '1D07470C06221F09313D273CC0B2B2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C0B9D399979C312E40796686221315' +
            '030205030205030205160933948F95C2C2C2C2C2C2C2C2C25E5D69' +
            '24203F1609330302050C0622484457C2C2C25E5D6904020E04020E' +
            '04020E4844574844574844574A4E66484457484457484457484457' +
            '9397AFC2C2C248445748445748445748445752566F484457040222' +
            '0402220402227473824844574D3D625C506DC0B9D3484457A398AA' +
            '1F1E2D080331040222080331282064A6ACD3C2C2C29185AB1D0747' +
            '2808493E14676F2F81A383B4FCEDFAE7CEDFE6C2EA542C38824184' +
            'B8A3BEC2C2C2816AA6451A82482A8638187C423A82A6A1B27C6EAB' +
            '26147A1E0A651E0A651E0A65928DC0C2C2C28177B66B5291785284' +
            '6B5291947EABC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +
            'C2C2C2');
    end;
    
    procedure AutoLogin;
    begin
          begin
               Writeln('Logging in User '+UserName+'.');
               ClickMouse(340,280,True);
               Wait(2500);
          end;
    if (LoginScreen) then
        begin
             ClickMouse(100,260,True);
             Wait(500);
             SendKeysSilent(UserName);
             Wait(2000);
             ClickMouse(120,310,True);
             Wait(500);
             SendKeysSilent(PassWord);
             Wait(2000);
             ClickMouse(380,250,True);
             if (Server = 1) then
             begin
                  ClickMouse(214,285,True);
             end;
             repeat
                   wait (300);
             until (IsTextAt (7, 304, 'Welcome to'));
             wait (2500);
             Writeln('Closing Welcome box.');
             ClickMouse (495,15, True);
             wait (500);
             MoveMouse (10,10);
             wait (500);
        end;
    end;
    
    procedure LockedIn;
    begin
    i:= 0; j:= 0; x:= 0; y:= 0;
    MoveMouse (460, 15)
    Wait (300);
    ClickMouse (432, 133, True);
    wait (300);
    repeat
          if (FindColorSpiral (x, y, 929884, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 415860, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 1859768, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 1327248, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 663624, 1 + j, 1, 500, 320)) then
             begin
                  MoveMouse (x, y);
                  wait (200);
                  if (IsTextAt (6, 2, 'Door: Open')) then
                  begin
                       ClickMouse (x, y, True);
                       wait (1000);
                  end;
             end;
          i:= i + 1;
          if (i = 3) then
          begin
               i:= 0;
               j:= j + 50;
          end;
    wait (100);
    until (j > 501) or (IsTextAt (7, 304, 'The door'));
    writeln ('Locked in Check Complete. Continue with Autoing.');
    end;
    
    Procedure EatLobster;
    begin
          i:= 0;
          j:= 0;
          repeat
          MoveMouse (495, 15);
          wait (500);
               if (FindBitmap (Lobster, x, y)) then
               begin
                    i:= 1;
                    writeln ('Eating Lobster.');
                    ClickMouse (x, y, True);
                    wait (300);
               end;
          wait (500);
          j:= j + 1;
          until (i = 1) or (j = 15);
          if (j = 15) then
          begin
               MoveMouse (10, 10);
               wait (300);
               writeln ('Lobsters gone. Waiting 3 seconds and logging off.');
               status ('Program Terminated - by Scarmeister 2004!');
               wait (3000);
               MoveMouse (325, 20);
               wait (300);
               ClickMouse (325, 282, True);
               wait (300);
               repeat
                     wait (500);
               until (False);
          end;
    MoveMouse (10, 10);
    wait (100);
    end;
    
    procedure CheckHealth;
    begin
          MoveMouse (425, 20);
          wait (300);
          CurrentHits:= GetTextAt (318, 112);
          wait (300);
          MoveMouse (10, 10);
          wait (300);
          ActualHp:= StrToInt (copy (CurrentHits, 6, 2));
          if (ActualHp < EatHp) then
             begin
                  writeln ('Looking for Lobster.');
                  EatLobster;
             end;
    end;
    
    procedure Sleep;
    begin
        i:= 0;
        MoveMouse (490, 15)
        Wait (300);
          ClickMouse (BagX, BagY, True);
          Wait(2000)
          repeat
                i:= i + 1;
                wait (50);
                if (i = 400) then
                   begin
                        i:= 0;
                        ClickMouse (180, 300, True);
                        wait (300);
                        Writeln ('Trying again for a new word.');
                   end;
          until (IsTextAt (7, 304,'You wake up')) or
                (IsTextAt (7, 304,'You are unexpectedly awoken')) or
                (IsTextAt (7, 304,'You can t do that whilst')) or
                (GetColor (167,41) <> 65535);
       MoveMouse(10,10)
       wait (10);
    end;
    
    procedure FindBag;
    begin
        writeln ('Searching for sleeping bag.');
          repeat
          MoveMouse (495, 15);
          wait (500);
          if (FindColorSpiral (x, y, 4026013, 265, 25, 505, 240)) then
             begin
                  MoveMouse (x, y);
                  wait (500);
                  if (IsTextAt (6, 2, 'Sleeping Bag')) then
                  begin
                       writeln ('Sleeping bag found - Storing coordinates.')
                       BagX:= x;
                       BagY:= y;
                       i:= 1;
                  end;
             MoveMouse (10, 10);
             wait (50);
             end;
          until (i = 1);
    end;
    
    Procedure FindObjectOnMap;
    begin
        i:= 0; j:= 0;
          writeln ('Searching for '+SObjectName+' on MiniMap.');
          repeat
          if (j = 10) and (LockedIn2 = 1) then
          begin
               j:= 0;
               writeln ('Possibly Locked in. Checking all Closed Doors.');
               LockedIn;
          end;
                MoveMouse (460, 20);
                wait (200);
                if (FindColorSpiral (x, y, SObject, 422, 103, 441, 122)) then
                begin
                     writeln ('In vicinity of '+SObjectName+', switching to Attack Mode.');
                     i:= 1;
                end;
                if (FindColorSpiral (x, y, SObject, 432-a, 113-b, 432+a, 113+b)) then
                begin
                     j:= j + 1;
                     ClickMouse (x, y, True);
                     wait (200);
                end;
          wait (100);
          until (i = 1);
        MoveMouse (10, 10);
        wait (250);
    end;
    
    procedure CheckMessage;
    begin
          i:= 0; j:= 0; x:= 0; y:= 0;
          MoveMouse (10, 10);
          wait (50);
          if (IsTextAt (7, 304, 'You are too')) then
          begin
               writeln ('Going to sleep.');
               Sleep;
               wait (50);
          end;
          if (GetColor (85, 140) = 3472636) and
             (GetColor (500, 215) = 0) then
             begin
                  writeln ('Starting login procedure.');
                  AutoLogin;
             end;
          if (IsTextAt (7, 268, 'I can t get close')) or
             (IsTextAt (7, 280, 'I can t get close')) or
             (IsTextAt (7, 292, 'I can t get close')) then
          begin
               writeln ('AutoLike Behaviour Prevention - Waiting for 5 seconds.');
               wait (5000);
          end;
          if (IsTextAt (7, 304, 'I can t get close')) and ((FreeMonster = 'Activated') or (MiniSearch = 1)) then
          begin
               FindObjectOnMap;
          end;
    end;
    
    procedure CheckFightMode;
    begin
          Look:= 0; Timer:= 0;
          f:= GetFightMode;
          if (f = Mode) then
          begin
               repeat
                     f:= GetFightMode;
                     wait (100);
               until (f = 0);
               if (Eating = 1) then
               begin
                    writeln ('Checking if we need to eat.');
                    CheckHealth;
               end;
          end else
          begin
               Writeln('Choosing Right FightMode.');
               ClickMouse(100, 25 + (20 * Mode), True);
               wait (300);
          end;
    end;
    
    procedure GetMonster;
    begin
          if (MonsterName <> 'Other Monster') then
          begin
               if (MonsterName = 'Barbarian') then
               begin
                    MonsterColor1:= 2175372;
               end;
               if (MonsterName = 'Bear') then
               begin
                    MonsterColor1:= 9834;
               end;
               if (MonsterName = 'Black Knight') then
               begin
                    MonsterColor1:= 723723;
               end;
               if (MonsterName = 'Chicken') then
               begin
                    MonsterColor1:= 16185078;
               end;
               if (MonsterName = 'Cow') then
               begin
                    MonsterColor1:= 14342875;
               end;
               if (MonsterName = 'Darkwizard') then
               begin
                    MonsterColor1:= 3618615;
               end;
               if (MonsterName = 'Deadly Red Spider') then
               begin
                    MonsterColor1:= 2629761;
               end;
               if (MonsterName = 'Dwarf') then
               begin
                    MonsterColor1:= 594799;
               end;
               if (MonsterName = 'Ghost') then
               begin
                    MonsterColor1:= 7039752;
               end;
               if (MonsterName = 'Giant') then
               begin
                    MonsterColor1:= 65536;
               end;
               if (MonsterName = 'Giant Spider') then
               begin
                    MonsterColor1:= 1786198;
               end;
               if (MonsterName = 'Goblin') then
               begin
                    MonsterColor1:= 251224;
               end;
               if (MonsterName = 'Guard') then
               begin
                    MonsterColor1:= 733305;
               end;
               if (MonsterName = 'Hobgoblin') then
               begin
                    MonsterColor1:= 250968;
               end;
               if (MonsterName = 'Ice Giant') then
               begin
                    MonsterColor1:= 13082964;
               end;
               if (MonsterName = 'Ice Warrior') then
               begin
                    MonsterColor1:= 13411668;
               end;
               if (MonsterName = 'Lesser Demon') then
               begin
                    MonsterColor1:= 202;
               end;
               if (MonsterName = 'Moss Giant') then
               begin
                    MonsterColor1:= 10667995;
               end;
               if (MonsterName = 'Mugger') then
               begin
                    MonsterColor1:= 204;
               end;
               if (MonsterName = 'Pirate') then
               begin
                    MonsterColor1:= 6274750;
               end;
               if (MonsterName = 'Rat') then
               begin
                    MonsterColor1:= 7159865;
               end;
               if (MonsterName = 'Scorpion') then
               begin
                    MonsterColor1:= 424386;
               end;
               if (MonsterName = 'Skeleton') then
               begin
                    MonsterColor1:= 16447223;
               end;
               if (MonsterName = 'Unicorn') then
               begin
                    MonsterColor1:= 16119285;
               end;
               if (MonsterName = 'Warrior') then
               begin
                    MonsterColor1:= 7500402;
               end;
               if (MonsterName = 'White Knight') then
               begin
                    MonsterColor1:= 6250335;
               end;
               if (MonsterName = 'Wizard') then
               begin
                    MonsterColor1:= 15532032;
               end;
               if (MonsterName = 'Zombie') then
               begin
                    MonsterColor1:= 16504238;
               end;
          end;
          if (Cols = 0) then
          begin
               MonsterColor2:= MonsterColor1;
               MonsterColor3:= MonsterColor1;
          end;
          if (Cols = 1) then
          begin
               MonsterColor2:= MonsterColor1;
               MonsterColor3:= MonsterColor1;
          end;
          if (Cols = 2) then
          begin
               MonsterColor3:= MonsterColor1;
          end;
    end;
    
    begin
    status ('MeisterFighter V1.3 - by Scarmeister!');
    BitMapInitialise; Initialise; GetMonster;
    CheckMessage; FindBag; Look:= 0; Timer:= 0;
    
    repeat
    f:= GetFightMode;
          if (Look > 2) and (LockedIn2 = 1) then
          begin
               Look:= 0; Timer:= 0;
               writeln ('Possibly Locked in. Checking all Closed Doors.');
               LockedIn;
          end;
          if (Timer > 25) and (MiniSearch = 1) then
          begin
               Look:= 0; Timer:= 0;
               FindObjectOnMap;
          end;
    if (f = 0) then
    begin
          i:= 0; j:= 0; x:= 0; y:= 0;
          if (FindColorSpiral2 (x, y, MonsterColor1, 1, 1, 304, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor1, 305, 36, 510, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor2, 1, 1, 304, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor2, 305, 36, 510, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor3, 1, 1, 304, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor3, 305, 36, 510, 325)) then
          begin
          if (Click = 'Left') then
          begin
               ClickMouse (x, y, True);
          end;
          if (Click = 'Right') then
          begin
               ClickMouse (x, y, False);
          end;
               wait (200);
               if (FindBitmap (Attack, x, y)) then
               begin
                    ClickMouse (x+2, y+2, True);
                    wait (250);
                    writeln (Monster+' found and attacking it.');
                    repeat
                          f:= GetFightMode;
                          i:= i + 1;
                          wait (50);
                    until (i = 100) or (f > 0) or
                          (IsTextAt (7, 304, 'I can t get close'));
               end;
          end;
          if (i = 100) then
          begin
               Look:= Look + 1;
          end;
    end else
         begin
              CheckFightMode;
         end;
         CheckMessage;
         Timer:= Timer + 1;
    wait (300);
    until (False);
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    Shit!

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


    Lol @ Him.
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    I got an old Solemn Wishes script Thats about it.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Mar 2007
    Posts
    478
    Mentioned
    4 Post(s)
    Quoted
    4 Post(s)

    Default

    The oldest scar thing I have are scar 2.03 and about 5 scripts for it.
    Back from the dead.....

  5. #5
    Join Date
    Aug 2007
    Location
    Hawaii
    Posts
    3,880
    Mentioned
    7 Post(s)
    Quoted
    152 Post(s)

    Default

    SCAR Code:
    Removed by request of benleegt

    I dunno? I think there are more ancients one i have.
    Faith is an oasis in the heart which will never be reached by the caravan of thinking.

  6. #6
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Quote Originally Posted by R0b0t1 View Post
    Shit!

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


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

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

    LOL @ Them more...

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

    Also back ont opic I attached my oldest scripts

    Also added original SRL 11 from when SRL was private
    STOP PM'ING ME

  7. #7
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by R0b0t1 View Post
    Shit!

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


    Lol @ Him.

    he said 768k memory

  8. #8
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    1,330
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Lololol, sythe autofighter ftw!

    It painted on the runescape client screen! O.o

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

    EDIT:
    SRL11.rar (258.0 KB)
    ROFL!

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

  10. #10
    Join Date
    Feb 2006
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    Identity thieft - Not kingarabian but the guy who made the script in the first place and plastered my name on it.
    Some day rocks will RULE the world!!

  11. #11
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

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

  12. #12
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Sythes oldie .

  13. #13
    Join Date
    Feb 2006
    Location
    Berkeley, CA
    Posts
    1,837
    Mentioned
    52 Post(s)
    Quoted
    60 Post(s)

    Default

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

    Identity thieft - Not kingarabian but the guy who made the script in the first place and plastered my name on it.
    Wait... You're not that benleegt?

  14. #14
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Quote Originally Posted by BenLand100 View Post
    Wait... You're not that benleegt?
    I'm getting more and more confused by this.

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

    2. There are multiple benleegts!?!?!
    STOP PM'ING ME

  15. #15
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hobbit View Post
    I'm getting more and more confused by this.

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

    2. There are multiple benleegts!?!?!
    I don't know...
    From KYAB Member application:
    Are you an SRL-MEMBER? - Forsanthyde is not an SRL member. (I'm trying to transfer stuff into this new monika though, was benleegt of the past)
    Forsanthyde?


    Maybe he had shame because it was too basic or whatever
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  16. #16
    Join Date
    Feb 2006
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I wrote Karamja powerfisher but not that =)
    Some day rocks will RULE the world!!

  17. #17
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by benleegt View Post
    I wrote Karamja powerfisher but not that =)

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

    Maybe post your powerfisher here?
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  18. #18
    Join Date
    Feb 2006
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, I will, as soon as I get my tablet back(estimated 2-3 more days).
    Some day rocks will RULE the world!!

  19. #19
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Quote Originally Posted by Negaal View Post
    had member status already...



    Thats probably back from SRL's Private days...
    STOP PM'ING ME

  20. #20
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaq View Post
    Sythes oldie .
    While i was looking for a runescape bot a came along that program lol! and lots of other sythe stuff.

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

  21. #21
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    1,330
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  22. #22
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

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

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

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

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

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

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

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

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

    -=-=-=-=-=-Contact details=-=-=-=-=-=
    A quality script by benlegt. Please direct all questions to [email]benleegt@yahoo.co.uk[/email]
    or rscl or [url]http://socube.here.ws[/url]
    =============I love Chong Jasmin========================}

    program kamarajapowerfisher;
    var tree,flag12,ix,iy,white,yellow12:Integer;

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

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

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

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

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

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

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

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

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

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

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

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

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


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  23. #23
    Join Date
    Feb 2006
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    That's the public version though (lite) When I get my tablet back I'll post PRO.
    Some day rocks will RULE the world!!

  24. #24
    Join Date
    May 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    "If I Pwn Before I Wake, I Pray To Jagex My Account Not To Take."



  25. #25
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    I actually do have PRO, benleegt. Plz don't kill me <3
    SCAR Code:
    {
    To run this file, you need some includes never before seen, you could try to make your own, or get the full ready-made script in a .zip format at
    [url]http://www.socube.here.ws[/url] .
    {=========Power-Fisher at kamaraja v11.0=========

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

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

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

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

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

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

    -=-=-=-=-=-Contact details=-=-=-=-=-=
    A quality script by Benleegt. Please direct all questions to [email]benleegt@yahoo.co.uk[/email]
    or rscl or [url]http://socube.here.ws[/url]
    =============I love Chong Jasmin========================}

    program kamarajaantirands;
    var tree,flag12,ix,iy,equip,white,yellow12,ax,ay,
    whirlpoolno,runno,fishno,timer,pickno,techno,InvNumber,temp,diff:Integer;
    fish,action:String ;

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

    {===== Do not bother about this unless you are using
                         the sell feature ====}

    {All minimap}
    muddyroad = 1140117; //The road running through kamaja.
    potty = 1859758; //Gen store logo
    apron = 5663104; //Brown apron store keeper wears

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    end;

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

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

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

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


    {===Start Sell feature==}

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

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

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

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

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

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

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

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


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

Page 1 of 5 123 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Oldest Person BIRTHDAY today!
    By P1nky in forum News and General
    Replies: 26
    Last Post: 04-25-2008, 06:29 AM
  2. How old is your oldest account?
    By Sp0rky in forum RuneScape News and General
    Replies: 24
    Last Post: 08-06-2007, 11:55 PM
  3. Just one more thing about VMs :/
    By PwNZoRNooB in forum News and General
    Replies: 7
    Last Post: 05-21-2007, 07:45 PM
  4. The thing about Msn.
    By WhiteShadow in forum News and General
    Replies: 3
    Last Post: 10-10-2006, 09:45 PM

Posting Permissions

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