2007-11-03 05:07:41
2007-11-03 08:25:58
2007-11-03 08:54:27
2007-11-03 08:58:57
From: Swift
Post the script so everyone can help you…How else can we help :l
2007-11-03 11:17:20
2007-11-03 14:24:57
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 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.');
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.
2007-11-03 14:57:59
2007-11-03 15:03:07
2007-11-03 15:14:02
*SCRIPT HERE
2007-11-03 15:59:44
2007-11-03 20:30:45
Program Aut0Attack;
Var
x,y,i,monsters,ks,la,wt,StatCount1,StatCount2,IdleCount,MapCount,time,FightM,att,def,str,fat,lvl,newstat,stat,mhp,chp,report,heal,tme,tries,arrow,log,Attack,stop,a,b,trybag,bag,salmon,trout,lobster,swordfish,shark,cake,startexp,exp,d:Integer;
username,password,mname,mcolour,mode,nMin,nHour,chat:String;
IsEnemy,killswitch,statswitch,screen,minimap,rotate,lognotarg,rightclick,timeout,foundbag:Boolean;
Hour,Min,Sec,MSec:Word;
Procedure settings;
Begin
{>----------------------------------------------<}
// Aut0Attack written by Reines \\
{>-------------------FEATURES-------------------<}
// - Checks list for colour code of target, if \\
// the target isn't found asks user for code. \\
// - Script Stops after set amount of Logins. \\
// - Eats, using Salmon, Trout, Lobster, \\
// Swordfish, Shark or Cake, when health goes \\
// under set level. \\
// - Displays Progress Report every set amount \\
// of targets attacked. \\
// - Saves Screenshot if you level. \\
// - Changes Fight Mode after desired level \\
// is reached. \\
// - Uses MiniMap to find targets if there are \\
// none in view. \\
// - Logs out if no targets are found after \\
// a long time. \\
// - Logs out if a mod talks or adds you. \\
// - Can use left or right click attack \\
// - Logs into both f2p and p2p. \\
// - Logs out at a set Hour. \\
{>-----------------INSTRUCTIONS-----------------<}
// When entering names remember everything \\
// in PoonScape is CASE SENSATIVE. \\
// Sleeping bag and food can go in any position \\
// Fight Modes - (1)Controlled. \\
// (2)Aggressive. \\
// (3)Accurate. \\
// (4)Defensive. \\
// For Rotate to work Camera Angle mode \\
// must be set to "Auto" \\
// Minimap and rotate can't both be used at \\
// the same time. \\
// For (timeout) to work the hour must be \\
// entered in same format as your pc clock and \\
// must be 2 digits. \\
// If (eating) you must have food with you. \\
// Will only recognise - Salmon \\
// - Trout \\
// - Lobster \\
// - Swordfish \\
// - Shark \\
// - Cake \\
// as types of food, no others. \\
{>-------------------SETTINGS-------------------<}
screen:=(true); // (true) to take a screenshot if you advance a level.
statswitch:=(false); // (true) to train another stat after desired level is reached.
killswitch:=(true); // (true) to stop script after set amount of logins.
minimap:=(false); // (true) to check minimap for targets if none found.
rotate:=(true); // (true) to rotate camera angle if no target is found.
lognotarg:=(true); // (true) to log out if no targets are found for along time.
rightclick:=(false); // (true) to right click attack, (false) to left click attack.
timeout:=(false); // (true) to stop the script at a set Hour.
lvl:=99; // Desired level to train until if (statswitch).
FightM:=2; // Stat to train initially .
newstat:=3; // Stat to train after desired level is reached if (statswitch).
la:=60; // Amount of times to relog in before stopping script if (killswitch).
report:=100; // After how many targets to display Progress Report.
heal:=60; // Eat food after what HP level is reached.
stop:=08; // Stop script and log out at this Hour if (timeout).
{>----------------------------------------------<}
End;
Procedure checksettings;
Begin
Status('Checking Settings');
mcolour:='0';
If(mname='skeleton')Then mcolour:='16447223';
If(mname='Rat')Then mcolour:='7159865';
If(mname='Guard')Then mcolour:='10661355';
If(mname='Guard (level-28)')Then mcolour:='10661355';
If(mname='Blessed Spider')Then mcolour:='3109013';
If(mname='Yanille Watchman')Then mcolour:='10661355';
If(mname='cow')Then mcolour:='4079166';
If(mname='Ghost')Then mcolour:='7039240';
If(mname='carnillean guard')then mcolour:='7763583';
If(mcolour='0')Then mcolour:=Readln('Unknown Target, Enter Colour Code:');
If(fightm=1)Then mode:='Controlled';
If(fightm=2)Then mode:='Aggressive';
If(fightm=3)Then mode:='Accurate';
If(fightm=4)Then mode:='Defensive';
If(not killswitch)Then
Begin
killswitch:=(true);
la:=9999999999;
End;
foundbag:=(false);
Attack:=BitmapFromString(37,10,
'000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
'FFFFFF000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000');
bag:=BitmapFromString(18,7,
'9D6E3D9D6E3D9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
'7B542E52452E52452E52452E52452E52452E52452E52452E360E06' +
'9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
'7B542E7B542E52452E52452E52452E52452E52452E52452E52452E' +
'9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E7B542E7B542E7B542E' +
'7B542E7B542E7B542E52452E7B542E52452E52452E52452E615D61' +
'9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E' +
'7B542E7B542E7B542E52452E7B542E52452E52452E8D8D8D868457' +
'7B542E9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E' +
'7B542E7B542E7B542E7B542E7B542E7B542E52452E988CB1988CB1' +
'7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E' +
'7B542E7B542E7B542E7B542E7B542E7B542E988CB1988CB1988CB1' +
'7B542E7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3D7B542E' +
'7B542E7B542E7B542E7B542E7B542E7B542E988CB1CFAB7BCFAB7B' +
'');
cake:=BitmapFromString(11,8,
'866950A38062A38062A38062A38062A38062A380628669505A4736' +
'5A4736545539866950866950866950A38062A38062A38062A38062' +
'7058435A47365A4736A38062866950866950866950866950A38062' +
'A38062A38062A38062A38062A38062A38062866950866950866950' +
'866950866950866950866950A38062A38062A38062A38062A38062' +
'866950866950866950866950866950866950866950866950866950' +
'866950A38062A38062A38062866950866950866950866950866950' +
'866950866950866950866950A38062A38062A38062866950866950' +
'866950866950866950866950866950866950866950866950A38062' +
'A38062A38062A38062866950866950866950866950');
lobster:=BitmapFromString(12,4,
'7F4500AD5E00AD5E008E4D009E56009E56008E4D009E56009E5600' +
'9E56009E56008E4D00AD5E007F45008E4D009E56009E56009E5600' +
'703D008E4D009E56009E56007F450045372C703D007F45008E4D00' +
'8E4D008E4D009E56008E4D00703D008E4D008E4D0045372C180C07' +
'703D007F45008E4D008E4D00703D008E4D009E56008E4D00703D00' +
'8E4D007F45000D0700');
salmon:=BitmapFromString(12,4,
'9B74749B74749B7474654B4B9B74749B74749B74749B74749B7474' +
'9B74749B74749B74748A68688A68688A6868654B4B8A68688A6868' +
'8A68688A68688A68688A68688A68688A68688A68688A68688A6868' +
'654B4B8A68688A68688A68688A68688A68688A68688A68688A6868' +
'7B5C5C7B5C5C654B4B7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C' +
'7B5C5C7B5C5C7B5C5C');
shark:=BitmapFromString(16,5,
'804600804600804600804600804600804600804600804600804600' +
'804600804600804600804600804600804600723E00673800804600' +
'804600804600804600804600804600804600804600804600804600' +
'804600804600804600804600723E00673800804600804600723E00' +
'552E00804600804600804600804600804600804600804600804600' +
'804600804600723E00804600804600804600552E00552E00804600' +
'804600804600804600804600804600804600804600804600804600' +
'723E00804600804600804600804600804600804600804600804600' +
'804600804600804600804600804600723E00723E00723E00');
swordfish:=BitmapFromString(12,6,
'7B477B7B477B7B477B7B477B8A508A8A508A8A508A8A508A8A508A' +
'8A508A8A508A8A508A7B477B7B477B7B477B7B477B7B477B7B477B' +
'7B477B7B477B7B477B7B477B7B477B7B477B7B477B7B477B7B477B' +
'7B477B7B477B7B477B7B477B7B477B7B477B7B477B7B477B7B477B' +
'653B65653B65653B65653B65653B65653B65653B65653B65653B65' +
'653B65653B65653B65653B65653B65653B65653B65653B65653B65' +
'653B65653B65653B65653B65653B65653B65653B65653B65653B65' +
'653B65653B65653B65653B65653B65653B65653B65543154653B65' +
'');
trout:=BitmapFromString(12,4,
'CE5A5ACE5A5A863B3BCE5A5ACE5A5ACE5A5ACE5A5ACE5A5ACE5A5A' +
'CE5A5ACE5A5ACE5A5AB85050B85050863B3BB85050B85050B85050' +
'B85050B85050B85050B85050B85050B85050B85050B85050863B3B' +
'B85050B85050B85050B85050B85050B85050B85050B85050B85050' +
'A34747863B3BA34747A34747A34747A34747A34747A34747A34747' +
'A34747A34747A34747');
End;
Procedure gettime;
Begin
Status('Checking Time');
DecodeTime(Now,Hour,Min,Sec,MSec);
nMin:=inttostr(Min);
nHour:=inttostr(Hour);
If(Min<10)Then nMin:='0'+inttostr(Min);
If(Hour<10)Then nHour:='0'+inttostr(Hour);
End;
Procedure logout;
Begin
killswitch:=(false);
Status('Logging out');
Repeat
MoveMouse(325+Random(5),20+Random(5));
Wait(100);
ClickMouse(350,280,True);
Wait(1000);
Until(GetColor(338,125)=5524540);
End;
Procedure startup;
Begin
gettime;
Writeln('<--------Aut0Attack-------->');
Writeln('Written by Reines');
Writeln('Username: '+username);
Writeln('Fight Mode: '+mode);
Writeln('Target: '+mname);
Writeln('Starting at '+nHour+':'+nMin);
Writeln('Total Exp: '+inttostr(startexp div 1000)+'k');
Status('A');Wait(100);
Status('Au');Wait(100);
Status('Aut');Wait(100);
Status('Aut0');Wait(100);
Status('Aut0A');Wait(100);
Status('Aut0At');Wait(100);
Status('Aut0Att');Wait(100);
Status('Aut0Atta');Wait(100);
Status('Aut0Attac');Wait(100);
Status('Aut0Attack');Wait(100);
Status('Aut0Attack ');Wait(100);
Status('Aut0Attack B');Wait(100);
Status('Aut0Attack By');Wait(100);
Status('Aut0Attack By ');Wait(100);
Status('Aut0Attack By R');Wait(100);
Status('Aut0Attack By Re');Wait(100);
Status('Aut0Attack By Rei');Wait(100);
Status('Aut0Attack By Rein');Wait(100);
Status('Aut0Attack By Reine');Wait(100);
Status('Aut0Attack By Reines');Wait(500);
End;
Procedure ifkillswitch;
Begin
gettime;
Writeln('<-------------------------->');
Writeln('Login limit exceeded');
Writeln('at '+nHour+':'+nMin);
Writeln('after attempting to attack ' + IntToStr(monsters)+'targets');
logout;
End;
Procedure sleep;
Begin
fat:=0;
wt:=0;
Wait(200);
Movemouse(498,16);
Wait(1000);
Movemouse(a+2,b+2);
Wait(1000);
If(IsTextAt(6,2,'Sleeping Bag: sleep'))Then
Begin
Status('Sleeping');
ClickMouse(a+2,b+2,True);
Repeat
Wait(1000);
wt:=wt+1000;
Until(wt>=60000)Or(Getcolor(166,44)<>65535)Or(Getcolor(266,133)<>16777215);
Wait(1000);
End;
MoveMouse(25,25);
End;
Procedure login;
Begin
ClickMouse(357+random(5),281+random(5),True);
Wait(200+random(50));
ClickMouse(255+random(5),287+random(5),True);
Wait(200+random(50));
ks:=ks+1;
Status('Attempting login');
gettime;
Writeln('<-------------------------->');
Writeln('Attempting login #'+inttostr(ks)+' at '+nHour+':'+nMin);
ClickMouse(166+random(5),263+random(5),True);
Wait(500+random(50));
SendKeysSilent(username);
Wait(500+random(50));
ClickMouse(260+random(5),303+random(5),True);
Wait(500+random(50));
SendKeysSilent(password);
Wait(500+random(50));
ClickMouse(392+random(5),248+random(5),True);
tme:=0;
Repeat
Wait(1000);
tme:=tme+1000;
Until(tme>10000)Or(GetColor(56,117)=16777215);
If(GetColor(56,117)=16777215)And(GetColor(455,216)=16777215)Then
Begin
Status('Closing Welcome Box');
ClickMouse(220+random(5),230+random(5),True);
Wait(1000+random(250));
End;
If(GetColor(95,133)=65535)And(GetColor(325,159)=16777215)Then
Begin
Status('Closing Non-Member Server Box');
ClickMouse(262+random(5),202+random(2),True)
Wait(1000+random(250));
End;
End;
Procedure amod;
Begin
gettime;
Writeln('<-------------------------->');
Writeln('Fuck, a Mod! Logging out at '+nHour+':'+nMin);
logout;
End;
Procedure eat;
Begin
MoveMouse(492,14);
Wait(100);
If(FindBitmap(salmon,x,y))Or(FindBitmap(trout,x,y))Or(FindBitmap(lobster,x,y))Or(FindBitmap(swordfish,x,y))Or(FindBitmap(shark,x,y)Or(FindBitmap(cake,x,y)))Then
Begin
ClickMouse(x+2,y+2,True);
Wait(2000);
Writeln('<-------------------------->');
Writeln('Eating Food');
End;
MoveMouse(25,25);
End;
Procedure switchstat;
Begin
If(FightM=2)Then stat:=str;
If(FightM=3)Then stat:=att;
If(FightM=4)Then stat:=def;
If(stat>=lvl)Then
Begin
FightM:=newstat;
If(FightM=1)Then mode:='Controlled';
If(fightm=2)Then mode:='Aggressive';
If(fightm=3)Then mode:='Accurate';
If(fightm=4)Then mode:='Defensive';
gettime;
Writeln('<-------------------------->');
Writeln('Fight Mode changed to '+mode+' at '+nHour+':'+nMin);
End;
End;
Procedure checkstats;
Begin
Repeat
Wait(100);
Until(getfightmode=0)
tries:=0
Repeat
Status('Checking Stats');
MoveMouse(427,16);
Wait(500);
att:=strtoint(GetTextAt(375,73));
Wait(50);
def:=strtoint(GetTextAt(385,86));
Wait(50);
str:=strtoint(GetTextAt(387,99));
Wait(50);
mhp:=strtoint(copy(GetTextAt(343,112),4,5));
chp:=strtoint(copy(GetTextAt(343,112),1,2));
Wait(50);
fat:=strtoint(GetTextAt(365,189)); //Check Fatigue
Wait(50);
If(FightM=2)Then ClickMouse(350,107,True);
IF(FightM=3)Then ClickMouse(350,80,True);
If(FightM=4)Then ClickMouse(350,94,True);
Wait(200);
exp:=strtoint(GetTextAt(369,279));
tries:=tries+1
Until((att<>-1)And(def<>-1)And(str<>-1)And(mhp<>-1)And(chp<>-1)And(fat<>-1)And(exp<>-1))Or(tries>10);
gettime;
If(StatCount2>=report)Then
Begin
Writeln('<----------'+nHour+':'+nMin+'---------->');
Writeln('Attack:'+inttostr(att));
Writeln('Defence:'+inttostr(def));
Writeln('Strength:'+inttostr(str));
Writeln('Hits:'+inttostr(chp)+'/'+inttostr(mhp));
Writeln('Fatigue:'+inttostr(fat)+'%');
Writeln('Exp Gained:'+inttostr((exp-startexp) div 1000)+'k');
StatCount2:=0;
End;
If(chp<=heal)Then eat;
If(statswitch)Then switchstat;
StatCount1:=0;
MoveMouse(25,25);
End;
Procedure fight;
Begin
IdleCount:=IdleCount+1;
log:=log+1;
Status('Searching for targets');
If(FindColorSpiral(x,y,strtoint(mcolour),5,5,510,325))Then
Begin
MoveMouse(x,y);
i:=0;
IsEnemy:=False;
Repeat
Wait(5);
IsEnemy:=IsTextAt(6,2,mname);
i:=i+1;
Until(i>20)Or(IsEnemy);
If(IsEnemy)Then
Begin
Status('Attempted to attack '+IntToStr(monsters)+' targets');
If(not rightclick)Then ClickMouse(x,y,True);
IF(rightclick)Then
Begin
ClickMouse(x,y,False);
Wait(200);
FindBitmap(Attack,x,y)
ClickMouse(x+2,y+2,True);
End;
time:=0;
Repeat
Wait(100);
time:=time+100;
Until(getfightmode<>0)Or(time>4000);
monsters:=monsters+1;
StatCount1:=StatCount1+1;
StatCount2:=StatCount2+1;
IdleCount:=0;
log:=0
Status('Attempted to attack '+IntToStr(monsters)+' targets');
End;
End;
End;
Procedure changemode;
Begin
Repeat
Status('Shifting to '+mode+' fight mode');
ClickMouse(100,25+20*FightM,True);
Wait(50);
Until(GetFightMode=FightM)Or(GetFightMode=0);
End;
Procedure attacklvl;
Begin
gettime;
MoveMouse(430,15);
Wait(100);
Repeat
att:=strtoint(GetTextAt(375,73));
Until(att<>-1);
SaveScreenshot(AppPath+'Attack'+inttostr(att)+'.bmp');
Writeln('<----------'+nHour+':'+nMin+'---------->');
Writeln('You attack is now '+inttostr(att));
Writeln('Screenshot Saved');
End;
Procedure defencelvl;
Begin
gettime;
MoveMouse(430,15);
Wait(100);
Repeat
def:=strtoint(GetTextAt(385,86));
Until(def<>-1);
SaveScreenshot(AppPath +'Defence'+inttostr(def)+'.bmp');
Writeln('<----------'+nHour+':'+nMin+'---------->');
Writeln('Your defence is now '+inttostr(def));
Writeln('Screenshot Saved');
End;
procedure strengthlvl;
Begin
gettime;
MoveMouse(430,15);
Wait(100);
Repeat
str:=strtoint(GetTextAt(387,99));
Until(str<>-1);
SaveScreenshot(AppPath +'Strength'+inttostr(str)+'.bmp');
Writeln('<----------'+nHour+':'+nMin+'---------->');
Writeln('Your strength is now '+inttostr(str));
Writeln('Screenshot Saved');
End;
procedure hitslvl;
Begin
gettime;
MoveMouse(430,15);
Wait(100);
Repeat
mhp:=strtoint(copy(GetTextAt(343,112),4,5));
Until(mhp<>-1);
SaveScreenshot(AppPath+'Hits'+inttostr(mhp)+'.bmp');
Writeln('<----------'+nHour+':'+nMin+'---------->');
Writeln('Your Hits are now '+inttostr(mhp));
Writeln('Screenshot Saved');
End;
Procedure notargs;
Begin
gettime;
Writeln('<-------------------------->');
Writeln('No Targets Found, Logging Out');
Writeln('at '+nHour+':'+nMin);
Writeln('after attempting to attack ' + IntToStr(monsters)+'targets');
logout;
End;
Procedure rotatemap;
Begin
Status('Rotating Map');
arrow:=0;
Repeat
SendArrowSilent(1);
arrow:=arrow+1;
Until(arrow=30);
Wait(2000);
IdleCount:=0;
End;
Procedure findbag;
Begin
MoveMouse(492,14);
Wait(200);
trybag:=0;
Repeat
IF(FindBitmap(bag,a,b))Then foundbag:=(true);
trybag:=trybag+1;
Wait(100);
Until(foundbag)or(trybag>20);
If(foundbag)Then
Begin
Writeln('<-------------------------->');
Writeln('Sleeping Bag Found');
End;
If(trybag>=20)Then
Begin
Writeln('<-------------------------->');
Writeln('No Sleeping Bag Found, Go get one fuckwit!');
logout;
End;
MoveMouse(25,25);
End;
Procedure checkminimap;
Begin
Status('Checking MiniMap');
Wait(100);
MoveMouse(460,16);
Wait(500);
Repeat
MapCount:=MapCount+1;
Wait(10);
If(FindColor(x,y,65535,380,70,480,160))Then
Begin
Status('Found a Target on MiniMap');
Wait(100);
ClickMouse(x,y,true);
Wait(100);
IdleCount:=0;
MapCount:=0;
End;
Until(IdleCount<20)Or(MapCount>20);
MoveMouse(25,25);
End;
Procedure getstartexp;
Begin
Repeat
MoveMouse(425+random(5),15+random(5));
Wait(200);
If(FightM=2)Then ClickMouse(350,107,True);
IF(FightM=3)Then ClickMouse(350,80,True);
If(FightM=4)Then ClickMouse(350,94,True);
Wait(1000);
startexp:=strtoint(GetTextAt(369,279));
Until(startexp<>-1);
End;
Begin
username:=Readln('Enter your Username:');
password:=Readln('Enter your Password:');
mname:=Readln('Enter Target name:');
settings;
checksettings;
getstartexp;
startup;
findbag;
Repeat
Begin
If(ks>=la)Then ifkillswitch;
If(Getcolor(15,312)=65280)And(GetColor(338,125)<>5524540)Then checkstats;
If(fat>=95)And(GetColor(338,125)<>5524540)Then sleep;
If(GetColor(338,125)=5524540)Then login;
chat:=getchatmsg;
d:=pos(':',chat);
If(copy(chat,1,4)='Mod ')Or(copy(chat,1,d-1)='Paul')Or(copy(chat,1,d-1)='Andrew')Then amod;
If(StatCount1>=10)And(GetColor(338,125)<>5524540)Then checkstats;
If(getfightmode<>0)Then
Begin
Repeat
Wait(200);
Until(getfightmode=0);
End;
If(getfightmode=0)And(GetColor(338,125)<>5524540)Then fight;
If(GetFightMode<>FightM)And(GetFightMode<>0)Then changemode;
If(getchatmsg='You just advanced 1 attack level!')And(screen)And(GetColor(338,125)<>5524540)Then attacklvl;
If(getchatmsg='You just advanced 1 defence level!')And(screen)And(GetColor(338,125)<>5524540)Then defencelvl;
If(getchatmsg='You just advanced 1 strength level!')And(screen)And(GetColor(338,125)<>5524540)Then strengthlvl;
If(getchatmsg='You just advanced 1 hitpoints level!')And(screen)And(GetColor(338,125)<>5524540)Then hitslvl;
If(log>10000)And(lognotarg)And(GetColor(338,125)<>5524540)Then notargs;
If(IdleCount>10)And(minimap)And(GetColor(338,125)<>5524540)Then checkminimap;
If(IdleCount>10)And(rotate)And(GetColor(338,125)<>5524540)Then rotatemap;
If(timeout)Then gettime;
If(timeout)And(nhour=inttostr(stop))And(GetColor(338,125)<>5524540)Then logout;
End;
Until(not killswitch);
End.2012-01-27 04:09:05
2012-01-27 04:14:36
From: Neros
to my knowledge, sleeping bags are of no use in rscdaemon, so why would scripts need to have them intergrated? a start is to remove all traces of them?
sleeping bags were used to recover fatigue in rsc (i don't know if you played rsc. but yea i did) that was basically todays random event lol, so thats not gonna be needed in an rsc private server script, you should re-pick all of the colours and such too
2012-01-27 04:20:48