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