Classic

[scarfreak123]

I've been trying for hours to get an old script that i found to work for rscdaemon, but i cant figure it out. Its just a basic fighter i think. The script is meisterfighter-rs1. I know rscd is for legit people only, and all the junk but its made by autoers and only played by autoers so i might as well find a way to auto on it. Any ideas would be helpful.

[Harry]

Please post up the script so I can help you. :)

[Swift]

Post the script so everyone can help you...How else can we help :l

[Harry]

Post the script so everyone can help you...How else can we help :l

Welcome back Swift!
You just repeated what I said ffs :P

[Swift]

Ahaha :P Sorry. Thanks for the welcome! Didn't think anyone would remember me ;).

[scarfreak123]

Its probely really old and bad its the only one i can find for rsc. Let me know what you think.









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,
'000000000000FFFFFFFFFFFFFFFFFF0000000000000000000 00000' +
'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'');

Lobster := BitmapFromString(19, 13,
'8E4D008E4D000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000007F4500AD5E007F45005C32000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000AD5E005C32004D2A007F45008E4D000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'00000000000000000000000045372C5C3200703D007F45000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000005C32005C32007 03D00' +
'703D005C32000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000005 C3200' +
'5C32004D2A00703D008E4D008E4D008E4D00703D00703D007 03D00' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000005C3200703D007F45007F4500AD5E00AD5E008 E4D00' +
'9E56009E56008E4D009E56009E56000000000000000000000 00000' +
'0000000000000000000000005C32005C3200AD5E007F45008 E4D00' +
'9E56009E56009E5600703D008E4D009E56009E56000000000 00000' +
'00000000000000000000000000000000000045372C703D007 F4500' +
'8E4D008E4D008E4D009E56008E4D00703D008E4D008E4D004 5372C' +
'0000000000000000000000000000000000000000000000007 03D00' +
'7F45008E4D008E4D00703D008E4D009E56008E4D00703D008 E4D00' +
'7F45000000000000000000000000000000000000000000000 00000' +
'7F45007F45008E4D008E4D008E4D00703D008E4D009E56008 E4D00' +
'45372C0000000000000000000000000000000000000000000 00000' +
'0000000000007F45005C32008E4D009E56008E4D00703D008 E4D00' +
'7F45000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000008E4D00703D008E4D008E4D007 03D00' +
'7F4500000000000000000000');

ScarMeister:= BitmapFromString(97, 40,
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27C819563566A5 C506D' +
'5E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27473826E5E5A7 96686' +
'95718B6E5E5A948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C26 46785' +
'312E400302053A3C500302050302055E5D69C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C25C506D3E1645571784482A8663566A6 3566A' +
'C2C2C2C2C2C2C2C2C27473826E1E5E8C2F97A133C19D3DB39 25E8E' +
'95718B948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2A6A1B2312E401F1E2D04020E0 C0622' +
'4C347F0C06220C06220E050A52566FC2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'6D5B88451A824C0D728177B6A594D22C0C374B4343C2C2C2C 2C2C2' +
'C2C2C2572486661A87A26CBBD2ACD4BAA4DA835EA4785284A 6A1B2' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C21F1E2D1F1E2D1F1E2D646785A2B5EED6DEFED 1D4FA' +
'948F951609332213155E5D69C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2816AA65 72486' +
'9298C3B4BDF38997BF16084C6B5291C2C2C2C2C2C299979C3 E1467' +
'410C69D1C5F2D1D4FAA3A3D74D3D62512F5F99979CC0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23 12E40' +
'0302051F1E2D9BACE0AAB5EB3634470302056B6E86CDD6F69 397AF' +
'0302054B4343C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2653C92572486A3A3D7A 2B5EE' +
'828CB91609335C506DC2C2C2C2C2C270629D38187C56428BD FD9FA' +
'D1C5F25C506D20091A4D3D62A6A1B2C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C252566F0302050302058 997BF' +
'92A2D11F1E2D03020523142D040222D6DEFECECED00E050A2 21315' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C24C347F1D0747A3A3D7AAB5EB828CB91 20635' +
'524A76C2C2C2C2C2C236223838187C9185ABD1D4FAC0CEFA3 02238' +
'2A0A69968899C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07 47382' +
'5E26624618441F0931362238C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2030205030205948F95C0CEFA6467850 30205' +
'23142D04020E100518CDD6F6E5E4FA030205B7A1B1C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C23E14672A0A69A3A3D7B4BDF3828CB91206355C506DC 2C2C2' +
'A297C62A0A692A0A69B4BDF3D6CCFAB4C7FA100518370C48C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06D5B885717849D4BC59 562B1' +
'5E2A8A531E683D273CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'6B6E860302051F1E2DD6DEFED6DEFE03020503020552566F1 60933' +
'484457BEC5EAB6B6D9030205FBF6FDC2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C299979C2 A0A69' +
'451A829BACE0B5C6F28084B00C054516084CC2C2C25253852 A0A69' +
'56428BADBEF2BDC6FAA3A3D70C0622281264C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0623284752EA1D0BBE8E5E4FADEDAEE2 80849' +
'571784C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E400 30205' +
'727697D1CDEAA6ACD3030205030205030205050318948F95D FE6FE' +
'99979C6E5E5AE9DFDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592320B6E614E89C 4CAF2' +
'9BACE0A2B5EE0C054516084CC2C2C216084C26147A918CCAA EB4E4' +
'A2B5EE828CB9120635363447C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'A398AA5E2A8A623284EADCF2EDEBFBE5E4FA1005181F0931C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D2C8CAF7F2FDC A77BE' +
'72425A99979CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2030205030205B2B2CAC DD6F6' +
'5E5D69030205484457030205030205CDD6F6D1DBFA5E5D69C 0B9D3' +
'A6A1B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2947EAB0803319772B2FBF6FDD6DEFEA 5BEF4' +
'0C06220E095C928DA91E0A651E0A65C0CEFAB4C7FAAAB5EB6 46785' +
'16084C524A76C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A6A1B26 53C92' +
'645A96DBD7F6E0E0FEB2B2CA0402225C18A0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0DA9AAEF5B3F1F4CFECCA77BE6 E1E5E' +
'C0B2B2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C 2C2C2' +
'C2C2C2C2C2C299979C03020504020EDBD7F6DFE6FE5E5D690 30205' +
'7C81950302051F1E2DB5C6F29397AF4A4E6622131599979CC 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2A48CAC1D07479298C3FBF6FDDFE6FEC7CCF60C06220 E095C' +
'524A760E095C64689BBAC7F6C2CCFEB4C7FA52566F0C06226 B6E86' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A398AA8242B856428BC 0CEFA' +
'CDD6F63A3C501F0931484457C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'95718B752EA1752EA1925E8EFAE1F0461844461844C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C 2C2C2' +
'7C81950302053A3C50DFE6FEEDEBFB5E5D690302058A85920 E050A' +
'0E050A4B43434B43436E5E5A363447C2C2C2C2C2C27C81957 C8195' +
'8A8592C2C2C2C2C2C2C2C2C2C2C2C299979C99979C948F95C 2C2C2' +
'C2C2C2C2C2C28A8592C0B2B2C2C2C2C2C2C299979CA398AAB 179CE' +
'280849B2B2CAEDEBFBEDEBFBCDD6F60C06220E095C0E095C1 00754' +
'9298C3B4C7FAC2CCFECDD6F624203F1206358A859252566F4 A4E66' +
'4A4E66484457B1ADCBA6A1B2653C92653C924844571F1E2D0 E050A' +
'6F2F81A6A1B299979CA6A1B299979CA6A1B2C0C0C07852848 61CBA' +
'BF8ACADFD1FAD0BBE8370C486E1E5EC0C0C0CECED0E9DFDEC ECED0' +
'A48CAC8A8592C0C0C099979C99979CA6A1B299979C99979C9 9979C' +
'99979CC0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950 E050A' +
'52566FDFE6FEEDEBFB5E5D690302058A859299979C6E5E5AF BF6FD' +
'F7F2FD363447C2C2C28A859216071023142D1609332213152 A2131' +
'C2C2C2CECED0FEFDFE9547883612251607100302056E5E5A6 3566A' +
'785284FAE1F0E7CEDF785284370C481F0931653C9225134AD 6DEFE' +
'E0E0FED6DEFECDD6F60302050E095C0E095C100754B4BDF3B 4BDF3' +
'C0CEFACDD6F60503180C054524203F0E095C1E0A651E0A651 E0A65' +
'2C1E4D796686451A828242B8975DD2531E68410C69A48CAC5 72486' +
'9D3DB3BE50D2A133C16E1E5EA48CAC5C18A05C18A0A3A3D7D FD9FA' +
'A6A1B2461844954788A48CACFEFDFEFEFDFEFEFDFEFAE1F0C A62B6' +
'948F953E164551145D1406210C06220503180503180302055 2566F' +
'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A52566FC DD6F6' +
'E0E0FE6467850302054B4343C2C2C2CECED0C2C2C2C2C2C2C 2C2C2' +
'8A85920302051F0931482A866D5B883D273C361225D6B9C2F EFDFE' +
'FAE1F0925E8E6E5E5A3D27651206350C054538187CA26CBBF CEDFA' +
'E6C2EAB16CBD410C6961436C5E2A8A835EA4E0E0FED1D4FAC DD6F6' +
'CDD6F604020E0C05450E095C5F5B7DADBEF2AAB5EBC0CEFA9 2A2D1' +
'04020E0C05450E095C0E095C828CB992A2D128206416084C3 20B6E' +
'2A0A69975DD2C78DE9A14EA56232845717849D4BC5AF5CCBD 684E3' +
'AF5CCB680E8C680E8C680E8C5C18A0DFD1FADBD7F67966863 E1645' +
'A2739BFAC2F6FEFDFEFEFDFEFCEDFAFCEDFAF4CFECFEFDFEF CEDFA' +
'A14EA5653C923E1467320B6E614E891007540C06225E5D69C 2C2C2' +
'C2C2C2C2C2C2C2C2C27C81950302053A3C50D1DBFAD6DEFEC 2C2C2' +
'030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C06222 3142D' +
'5F5B7DCFD8FEDEDAEECECED0361225FEFDFEFEFDFEB888A7D 1C5F2' +
'A297C6BDC6FA8177B60C0545320B6EBAA4DAEEE3FEEEE3FEF BD5FE' +
'BAA4DAD1D4FA4D3D62E7CEDFDFD9FAB6B6D9E0E0FEDFE6FE0 4020E' +
'0C05450C0545A2A1C6ADBEF2A6ACD3D1CDEA9298C30402220 E095C' +
'282064B4BDF3CACCFAC7CCF69BACE00C054538187C947EABD 6CCFA' +
'D1C5F26F2F818C2F97701C8CD684E3F7F2FDFCEDFAEADCF29 562B1' +
'680E8C861CBA680E8CD6CCFAD1CDEA835EA451145DCA77BEF EFDFE' +
'FEFDFEFEFDFEFCEDFAD2C8CA4D3D62BE50D2FEFDFEFBF6FDB 5C6F2' +
'451A82525385B4BDF37C81950503181F1E2DC2C2C2C2C2C2C 2C2C2' +
'C2C2C299979C030205030205D6DEFEDFE6FECDD6F6C0B2B2F EFDFE' +
'C2C2C2C2C2C2C2C2C2C2C2C2363447030205312E40D6DEFED 1CDEA' +
'747382D1D4FA968899FEFDFEE7CEDFD1DBFA6B6E8604020EC 0CEFA' +
'B5C6F2525385423A82AAB5EBBEC5F2DBD7F6F4CFECEEE3FEB 4BDF3' +
'9185AB645A96FBF6FDA3A3D7EDEBFBDFE6FE04020E0C05450 80331' +
'CDD6F6828CB9C7CCF6CACCFA52566F0402220E095C92A2D1B EC5F2' +
'1F1E2D92A2D1AEB4E4524A76451A82BEBBEFBDC6FAADBEF22 80849' +
'BE50D29562B1EEE3FEBEB2C20E050AD1C5F2E9DFDE680E8CA 133C1' +
'C78DE9DED8FEDFD1FA947EAB72425AF5B3F1FEFDFEFEFDFE7 47382' +
'968899E0CEE2A398AA9D3DB3D0BBE8EADCF2FEFDFED0BBE8A 6ACD3' +
'A5BEF4A2B5EE0C0622050318C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'030205030205BACAE6FEFDFEFEFDFE948F952213155E5D69C 2C2C2' +
'C2C2C299979C040222160933A6ACD3CFD8FE3A3C50120508D BD7F6' +
'E7CEDFFEFDFEDAC9D2BEBBEF04020E2C1E4DC0CEFABDC6FA8 28CB9' +
'92A2D164689BA2B5EEADBEF2D1C5F2F7D7F6BEBBEF828CB99 298C3' +
'EADCF2A6ACD3D6DEFECDD6F60402220C0545525385C0CEFA6 4689B' +
'CFD8FEB4C7FA52566F0C0545423A82C0CEFA6B6E860803318 28CB9' +
'ADBEF2645A96828CB9A3A3D7C5C2F6A6ACD3512F5FAF5CCBE 7CEDF' +
'EEE3FE0E050A410C69D0BBE8EDEBFB2A0A69A383B4D0BBE8D FD1FA' +
'D1D4FAA6A1B295718BFAE1F0FEFDFEDAC9D25E2662B888A7D FD1FA' +
'A297C6A383B4BF8ACAD1C5F2BEBBEFDFD9FAD0BBE8BEC5EAA 5BEF4' +
'050318030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23D273C3 D273C' +
'EDEBFBFEFDFEFBF6FD99979C030205030205C2C2C2C2C2C24 84457' +
'0C06224A4E66C7CCF6AEB4E40E050A542C38EEE3FEF7F2FDF CEDFA' +
'BEC5EA6467850C062252566FC2CCFEC0CEFA1F1E2D6467858 177B6' +
'ADBEF2ADBEF264689BBEB2C2B4BDF364689B92A2D1B2B2CAA 2A1C6' +
'C0CEFAA6ACD304020E0C05458997BFADBEF252566FA5BEF4A DBEF2' +
'05031808033192A2D1A5BEF41F1E2D0803319298C3BAC7F65 25385' +
'918CCA645A96CACCFAB4BDF36F2F81B179CEFCEDFAC2C2C23 70C48' +
'571784FBF6FDEDEBFB140621661A87D6B9C2EADCF2B1ADCB2 21315' +
'FAE1F0FEFDFEFEFDFE8A8592824184BF8ACAEADCF2A297C64 84457' +
'A383B4D1D4FAC0CEFAA2A1C67C6EABCDD6F692A2D10302050 40222' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2968899EDEBFBE9DFDED 6DEFE' +
'F7F2FDEDEBFB0E050A0E050A6B6E86C2C2C20C06220C0622A 6ACD3' +
'C0CEFA74738222131595718BDBD7F6DAC9D2DEDAEEB4BDF31 F1E2D' +
'0C06228084B0B4C7FAB4BDF304020E040222828CB9B4BDF3A DBEF2' +
'1F1E2D5C506D777EA91F0931B4BDF382769EA3A3D7ADBEF28 28CB9' +
'0402220C0545B4C7FA777EA9777EA9A2B5EE9BACE00803312 82064' +
'A5BEF49BACE00402220C0545928DC0B5C6F252566F1D07479 185AB' +
'DFD1FAB6B6D98242B8BAA4DAE5E4FA706684661A879772B2E DEBFB' +
'C0B9D320091A98368AE6C2EAFEFDFEC0B9D3CEB4D0FEFDFEF EFDFE' +
'DBD7F6362238954788B16CBDDFD9FAA2A1C63E1467835EA4D 1C5F2' +
'BACAE66467851F1E2DA6ACD324203F23142D3A3C50C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C299979CFEFDFE63566AC2C2C2DFE6FEE 5E4FA' +
'7473820302053022388A8592120508120508E0E0FEE0E0FE9 48F95' +
'D2C8CAD2C8CADAC9D2FAE1F0EDEBFBBEC5EA0302050C06228 997BF' +
'B4BDF392A2D104020E0803319BACE0ADBEF292A2D10503186 F2F81' +
'531E682C1E4DADBEF2614E89EEE3FEB5C6F28997BF0402225 2566F' +
'B4C7FA3A3565828CB9B4C7FA828CB90C05456E7E97ADBEF26 46785' +
'0402220C05459298C3B4BDF33A3C502A0A69BAA4DAEEE3FEB FADE1' +
'B16CBDBFADE1D6CCFA796686861CBAB79ABFE0E0FE7473822 C0C37' +
'FBD5FEFEFDFEFBF6FD968899F7F2FDFAC2F6DFD1FAA2A1C63 61225' +
'571784A26CBBDFD1FA928DC06C228AA383B4CACCFAC0CEFA3 12E40' +
'2C1E4D7966863D273C363447C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2EDEBFB0E050A484457CDD6F6DFE6FED1CDEA1 20508' +
'2213154B434320091A6E5E5AFEFDFEF7F2FD6E5E5AD6B9C2C A9EAA' +
'FEFDFED6CDD8E0E0FE9397AF03020504020EB4BDF3B4C7FA8 997BF' +
'040222080331B4C7FAA5BEF47276970E050A835EA4D684E36 B5291' +
'ADBEF2080331BEC5F2EDEBFB828CB90C0545828CB99BACE00 80331' +
'9BACE0C0CEFA6E7E970C05459BACE0A2B5EE3A3C500C05450 E095C' +
'C5C2F6B4BDF30402221E0A65E0E0FEE5E4FA9185ABD684E3D DD2FE' +
'DDD2FE6D5B88701C8CB79ABFCDD6F6302238DA9AAEFBF6FDF EFDFE' +
'EDEBFB63566A98368ABAA4DAE5E4FA8084B03E1467410C69A 297C6' +
'D1D4FA4D3D62752EA1BAA4DADDD2FEAEB4E4120508370C48B EB2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'CECED0160710030205B1ADCBEDEBFBFBF6FDC0B2B2F7F2FDF CEDFA' +
'B888A7FEFDFEFEFDFEC2C2C2120508120508F7D7F6FAE1F09 9979C' +
'C0CEFA4E526E04020E04020EBDC6FAB4C7FA52566F0402223 A3C50' +
'B4BDF3ADBEF2312E4005031861436C6F2F81947EABA2B5EE1 D0747' +
'A5BEF4BDC6FAB2B2CA040222A2B5EE6E7E97080331A5BEF4A 5BEF4' +
'525385282064A2B5EEA5BEF404022210075456428BD1DBFA7 C8195' +
'1D0747280849E0E0FEEADCF2796686D684E3F7F2FDDFD9FA8 2769E' +
'6E1E5E2C0C373D273C542C38FEFDFEFEFDFEFCEDFAD6DEFE1 00518' +
'571784E0CEE2E0E0FE5F5B7D410C6951145DBEBBEFB4BDF31 00518' +
'4C0D72BEBBEFD1D4FA9185AB10051823142DC2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C24 B4343' +
'16071099979CFEFDFEFEFDFEFBF6FDD6CDD8FEFDFEFEFDFEF EFDFE' +
'DFD9FA948F9503020595718B362238D2ACD4EDEBFBD1D4FA3 A3C50' +
'0402223A3C50B5C6F2B5C6F24E526E080331525385ADBEF2A 2B5EE' +
'04020E1206352C1E4D320B6EBAA4DA8084B0080331ADBEF2A 5BEF4' +
'CACCFA7C6EABADBEF23A3C50525385A5BEF4A5BEF43A35655 25385' +
'A2B5EE92A2D10402221E0A65A3A3D7D1DBFA1F1E2D2A0A696 D5B88' +
'DED8FED6DEFE312E40B179CEF7F2FDEEE3FEB79ABF6F2F819 8368A' +
'BF8ACAF4CFECFEFDFEFEDFFAE0E0FEBFADE13E1645571784E 0E0FE' +
'C7CCF63D273C6B179F9562B1D4C8F66B6E86280849661A87D ED8FE' +
'D1D4FA63566A100518796686C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFEE 9DFDE' +
'F7F2FDD6DEFEE0E0FE4B434336122572425AC7CCF6C0CEFA5 E5D69' +
'61436C96889920091A362238CDD6F6CDD6F604020E0503185 2566F' +
'A5BEF4A2B5EE04020E040222777EA9B4C7FA92A2D104020E1 20635' +
'1D0747451A82AEB4E4777EA9080331A5BEF4ADBEF29298C3D FD9FA' +
'A2B5EE0402224E526EA5BEF4A5BEF4080331828CB9A2B5EE8 28CB9' +
'0C05454A3E8AC7CCF66B6E86100518320B6E7B529EE0E0FEE 0E0FE' +
'2C0C37B16CBDE0CEE2EEE3FEEADCF282418498368AE6C2EAE DEBFB' +
'FEFDFEE6C2EADDD2FEA398AA571784835EA4D0BBE8BEC5F25 31E68' +
'6B179FD1C5F2A3A3D704020E410C697B529ED6CCFAC7CCF63 02238' +
'1406218A8592C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2E9DFDE4B43437C8195D 1D4FA' +
'DEDAEE928DA912050863566AC7CCF6EDEBFB2213150E050A6 3566A' +
'12050852566FBAC7F6BEC5EA23142D0402229298C3B4BDF3A 2B5EE' +
'04020E0803318997BFADBEF2828CB904020E3D27651D07472 A0A69' +
'BAC7F6524A760C0545A5BEF4ADBEF2828CB9BEC5F2A6ACD30 40222' +
'828CB9A5BEF49BACE00E095C9BACE0A2B5EE64689B2A2672A EB4E4' +
'9298C30503181D07472A0A69A3A3D7E0E0FEC0B9D325134AA 14EA5' +
'D2ACD4EDEBFBEDEBFBA383B46E1E5EFAE1F0FBF6FDFCEDFAD 0BBE8' +
'DBD7F65E5D69680E8CAC94DCDBD7F6AEB4E46B179FBAA4DAB EBBEF' +
'2A21311F0931410C697B529ED0BBE8BEC5F220091A370C48C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C0B2B2747382120508030205C7CCF6D1DBFAA 2A1C6' +
'1205087C8195DED8FED6DEFE0302050302054B43430E050A8 A8592' +
'B4BDF3A6ACD303020504020E8997BFA5BEF4828CB904020E0 40222' +
'B4C7FAADBEF26467850402224844572A0A6956428BC0CEFA3 A3C50' +
'080331AAB5EBA2B5EEA2B5EEB4C7FA727697120635828CB9A 5BEF4' +
'8997BF282064ADBEF2A2B5EE64689B9BACE092A2D11F1E2D1 20635' +
'2A0A692A0A69A2A1C6D1C5F29298C33E1645824184A26CBBD EDAEE' +
'EEE3FED6CDD8954788FEFDFEFEFDFEFAC2F6E7CEDFD6CCFA7 06684' +
'4C0D72BEBBEFDFD1FABAA4DABAA4DAB6B6D952566F3622386 C228A' +
'680E8CA594D2C5C2F6A3A3D72C0C3751145DC2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C20E050A030205A6A1B2CDD6F6CDD6F6030205C 0B9D3' +
'EDEBFBA2A1C610051805031804020E140621828CB99BACE0A 2A1C6' +
'04020E080331A5BEF4A2B5EE6E7E97040222040222ADBEF2A 5BEF4' +
'52566F040222645A96080331645A96BAC7F60402220C0545A 5BEF4' +
'A5BEF4A2B5EEA5BEF42C1E4D56428BADBEF2ADBEF264689B5 25385' +
'A5BEF4A2B5EEADBEF2828CB904020E23142D482A86320B6E2 A0A69' +
'BEBBEFAAB5EB5F5B7D5E26628C2F97954788CEB4D0DEDAEED FD1FA' +
'CA9EAAFEFDFEFEFDFEB16CBDEDEBFBE0E0FE1406214C0D72D FD1FA' +
'D1DBFACDD6F6A2B5EE23142D2C1E4D6F2F816C228A752EA1A C94DC' +
'BEBBEF9397AF3E164572425AC2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'4B43430302056B6E86D1CDEACDD6F6A383B4DFE6FEE0E0FEA 6ACD3' +
'03020548445705031804020EB5C6F2C4CAF24E526E04020E2 4203F' +
'B5C6F2C0CEFA4E526E040222525385B5C6F2ADBEF21F1E2D0 4020E' +
'4D3D62080331777EA9A3A3D70402220C0545A2B5EEA2B5EEA 2B5EE' +
'828CB93D2765BFADE1ADBEF2B4C7FA52538564689BA2B5EEA 2B5EE' +
'36344704020E0C0622493D799185AB320B6E451A82BEBBEFA AB5EB' +
'524A76824184925E8E954788B888A7DFD9FADFD9FADFD1FAF 7D7F6' +
'FEDEFEA26CBBEEE3FED1CDEA2808495E2A8AD4C8F6D1D4FA7 C8195' +
'0302051F09315E2662948F95701C8C661A87DFD9FAC4CAF26 B6E86' +
'461844925E8EC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'CECED0948F958A8592C2C2C2C2C2C2C2C2C2C2C2C27473820 40222' +
'5E5D69C7CCF6CACCFA9185ABD6DEFECDD6F652566F0302053 A3C50' +
'050318030205E0E0FEB5C6F24A4E6608033152566FB4C7FAC 0CEFA' +
'3A3C5004022252566FB4BDF3B5C6F204020E0803310803310 80331' +
'828CB9828CB90402220C0545A2B5EEA5BEF4A5BEF44A4E662 5134A' +
'EADCF2B5C6F2ADBEF21F1E2D8997BFA5BEF492A2D10402220 C0545' +
'524A76C2C2C282769E320B6E7B529EC5C2F6AAB5EB1D07476 F2F81' +
'A297C6CA77BE824184D0BBE8DBD7F6E0CEE2D2ACD4FBD5FED 2ACD4' +
'E5E4FAA2A1C6410C69835EA4D6CCFAC0CEFA24203F1D07475 72486' +
'C2C2C2968899661A876C228ADBD7F6CACCFA5F5B7D5E26628 A8592' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFE3 D273C' +
'1205088A8592C2C2C2C2C2C2C2C2C28A859205031852566FC 0CEFA' +
'BACAE65C506DC7CCF6CDD6F66467851609339688990302053 A3C50' +
'E0E0FEB4C7FA4A4E6604020E6B6E86B4C7FAB4C7FA0302050 40222' +
'8997BFB4C7FA828CB904020E040222080331080331A2B5EE6 4689B' +
'080331282064ADBEF2A2B5EEA2B5EE1F1E2D0C05457C6EABE DEBFB' +
'ADBEF2040222918CCAADBEF28997BF0503183A3565C2C2C2C 0B9D3' +
'61436C320B6E7C6EABBAC7F6A2B5EE370C488C2F979D3DB3F 5B3F1' +
'CA77BEB8A3BEEEE3FEEDEBFBB7A1B1F5B3F1CEB4D0DDD2FE9 185AB' +
'410C69816AA6DFD1FAC5C2F6140621410C69C2C2C2C2C2C29 47EAB' +
'6C228AA26CBBEADCF2C5C2F616071051145DA398AAC2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2FEFDFEF7F2FD5C506D2A21310 30205' +
'C2C2C2C2C2C2C2C2C24844570503184E526EBDC6FA8997BF8 2769E' +
'B5C6F2D1DBFA52566F0C0622928DA982769EA3A3D7FBF6FDB 4BDF3' +
'1F1E2D0402228997BFBAC7F6A3A3D7040222040222A3A3D7B 5C6F2' +
'8997BF040222484457080331080331A2B5EE4A4E660C05455 25385' +
'ADBEF2A5BEF48997BF04020E040222828CB9EDEBFB92A2D10 80331' +
'9BACE0BAC7F68997BF050318524A76B1ADCBB1ADCB4A3E8A2 A0A69' +
'918CCABEC5F2928DC04C0D72B179CE954788EEAAE6EEAAE6C EB4D0' +
'FCEDFADEDAEE95718BB16CBDD1C5F2C4CAF25F5B7D5C18A09 772B2' +
'D1D4FABDC6FA1005182A0A69C2C2C2B1ADCB785284410C69A 383B4' +
'DED8FECDD6F620091A51145DC2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2CECED0FEFDFE4B4343C5C2F60E050A050318C2C2C2C 2C2C2' +
'C2C2C21F1E2D04020E828CB9A5BEF452566F928DA9CACCFAC DD6F6' +
'1F1E2D0302055E5D690C06226B6E86B4C7FAADBEF204020E0 4020E' +
'B5C6F2B4C7FA8997BF030205040222C0CEFABAC7F64A4E660 4020E' +
'493D790803314E526EA2B5EE1F1E2D080331525385A5BEF4A 5BEF4' +
'72769704022208033192A2D1A2B5EEA2A1C6120635BAC7F6B AC7F6' +
'6467850402223A35654C347F4C347F16084C2A0A69A3A3D7B EC5F2' +
'A594D2752EA1D1D4FA461844DA94DEFAC2F6D2ACD4FEFDFED 1CDEA' +
'B179CE6F2F81DEDAEEC4CAF2493D79451A82AC94DCCACCFAA 3A3D7' +
'120635451A82947EABA48CAC835EA45E2A8ADEC4F2D6CCFAA 2A1C6' +
'3E1645A14EA5C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D AC9D2' +
'36122563566ABEC5F2030205030205C2C2C2C2C2C299979C0 4020E' +
'04022292A2D19BACE0030205D1C5F2CDD6F6BAC7F60302050 4020E' +
'36344724203F4E526EADBEF2ADBEF204020E3A3C50B4BDF3B 4C7FA' +
'6467850402221F1E2DC0CEFABEC5EA3A3C500402224844570 80331' +
'4A4E66A5BEF4040222080331525385B4BDF3A2B5EE4A4E660 40222' +
'080331A2B5EEA2B5EE82769E120635B4BDF3ADBEF252566F0 40222' +
'1007542A26721007542A0A691E0A65BEBBEFB4BDF3645A969 562B1' +
'BEC5EA3E1645F5B3F1FAE1F0D6B9C2FBF6FDC2C2C2EEAAE6A 2739B' +
'DDD2FED1D4FA1206353E1467A2A1C6C4CAF29397AF3E14679 75DD2' +
'975DD2572486572486752EA1D1C5F2DBD7F6947EAB542C387 96686' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B7A1B172425A7 06684' +
'B5C6F203020504020EC2C2C2C2C2C2312E40030205363447A 5BEF4' +
'727697160710EADCF2CDD6F6CDD6F60302050402224E526E7 77EA9' +
'4E526EADBEF2ADBEF204020E64689BADBEF2BACAE64E526E0 40222' +
'525385BDC6FAB4C7FA030205040222312E40080331828CB98 28CB9' +
'04020E080331525385ADBEF2A2B5EE04020E120635363447A 2B5EE' +
'A2B5EE747382282064BEC5EAAAB5EB52566F0C054516084CA 3A3D7' +
'1007542A0A694A3E8AC5C2F6ADBEF256428B9772B2CACCFA7 2425A' +
'F7D7F6FEDEFEDEC4F2FCEDFAA6A1B2FCEDFABF8ACAD6DEFED BD7F6' +
'2C0C375C18A0BFADE1DED8FEA3A3D725134A320B6EA383B46 14E89' +
'38187C3E1467CACCFADBD7F663566A824184A2739BC2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2362238A2739BA2A1C6BACAE60 30205' +
'0E050A6B6E866B6E8604020E04020E9BACE0BEC5F21F1E2D4 D3D62' +
'706684CDD6F6C7CCF604020E0C06229298C36E7E974A4E66A 5BEF4' +
'ADBEF203020592A2D1B4C7FABAC7F60302050402227C8195B 4C7FA' +
'9BACE004020E0402220402220803318997BF828CB90402220 80331' +
'4A4E66A5BEF48997BF0402220402225253859BACE0B4BDF30 C0622' +
'9772B2A6ACD3A2B5EE4E526E0E095C525385A5BEF42820641 E0A65' +
'645A96B5C6F2BEBBEF8242B8CEB4D0FCEDFAA383B4FEDFFAE 6C2EA' +
'FBF6FDEDEBFB8A8592F7F2FDDEC4F2DED8FEB1ADCB653C92C 78DE9' +
'AC94DCC5C2F6928DC026147A451A82BDC6FA7C6EAB451A824 93D79' +
'D6CCFAB5C6F261436C9562B1C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2362238120508DDD2FEF7F2FD7276970503180 E050A' +
'03020504020E6B6E86BEC5EA6B6E860C06221607105C506DC DD6F6' +
'BAC7F604020E3A3C50A5BEF41F1E2D363447A5BEF4ADBEF26 46785' +
'A2B5EEADBEF2B5C6F20302050503188997BFB4BDF3828CB90 30205' +
'23142D040222040222A2B5EE4A4E66040222040222828CB9A 2B5EE' +
'727697040222100754777EA99BACE0CACCFA0C0622DFD1FA9 397AF' +
'9BACE05253850C054592A2D16E7E97040222100754947EABB 4BDF3' +
'C5C2F6BFADE1EEE3FEFBF6FDB8A3BEF7D7F6FEFDFEFEFDFEB 1ADCB' +
'796686F4CFECC0B9D3EEE3FEBEBBEF8177B6918CCA70629DB 4C7FA' +
'928DC038187C9185ABAAB5EB0503183E1467816AA6CACCFAB 4C7FA' +
'160710531E68B7A1B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'3612250E050A52566FE5E4FAD1D4FA3022381609330503185 2566F' +
'B5C6F2828CB90302053022380C06221F1E2DC0CEFAADBEF26 4689B' +
'9BACE0646785030205030205ADBEF2ADBEF2A5BEF492A2D1A 5BEF4' +
'828CB904020E050318ADBEF2B5C6F26E7E9704020E4844570 40222' +
'3A3565A2B5EE4A4E66040222040222828CB9A2B5EE4A4E660 40222' +
'0402229BACE0B6B6D99298C304020EDEC4F270629DA2B5EE8 997BF' +
'8997BF9BACE00402220C0545100754828CB9BFADE1CDD6F69 28DA9' +
'B1ADCBFEFDFEF7F2FDFEFDFEFEFDFEEDEBFB4B43437B529E7 2425A' +
'BAA4DAD0CBEEC5C2F6AAB5EB24203F16084CBEC5F2B4C7FA8 177B6' +
'C5C2F63A3C5016084C451A82A594D2AEB4E4AAB5EB0E050A5 E2662' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A85922 21315' +
'0302053A3C50D1D4FAE0E0FEB1ADCBC0B9D3BAC7F66467850 30205' +
'0C062279668604022223142D6E7E97ADBEF2ADBEF2828CB90 30205' +
'03020504020E6E7E97A2B5EE6E7E976E7E978084B08084B03 A3C50' +
'0302058997BF828CB9312E40050318484457050318828CB98 28CB9' +
'72769704020E040222828CB9A2B5EE312E400402226467858 28CB9' +
'8997BF9397AF82769E512F5F04022292A2D1A2B5EE9BACE01 F1E2D' +
'23142D26147A100754525385ADBEF2A6ACD3030205030205A 6A1B2' +
'FBF6FDFEFDFEEDEBFB5E5D69362238824184653C92928DC0A 2B5EE' +
'9BACE03A3C501609331E0A658084B0ADBEF2A2B5EE5253850 C0622' +
'38187C451A827C6EAB8084B06467851F09319562B1C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C296889904020E0 30205' +
'1F1E2D3A3C505E5D695E5D6903020503020504020E706684C 2C2C2' +
'6467850C06220503184A4E6636344703020504020E4844570 4020E' +
'0302054A4E660302050302050302050302054B434323142D0 30205' +
'0302050302054844574844574844570302050302050302054 84457' +
'04020E04020E03020504020E04020E312E400302050302052 4203F' +
'4A4E6623142D0402221F1E2D4A4E6604020E04022224203F9 28DA9' +
'1E0A651206354A4E6604020E2C0C375E266272425A2A21315 E5D69' +
'1F1E2D2C1E4D5E2662A48CAC7B529E2C1E4D4A4E661F1E2D0 80331' +
'4C347F26147A0E095C4A4E661F1E2D0402222812649185AB5 C506D' +
'1D07470C06221F09313D273CC0B2B2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'C2C2C2C2C2C2C2C2C2C2C2C2C0B9D399979C312E407966862 21315' +
'030205030205030205160933948F95C2C2C2C2C2C2C2C2C25 E5D69' +
'24203F1609330302050C0622484457C2C2C25E5D6904020E0 4020E' +
'04020E4844574844574844574A4E664844574844574844574 84457' +
'9397AFC2C2C248445748445748445748445752566F4844570 40222' +
'0402220402227473824844574D3D625C506DC0B9D3484457A 398AA' +
'1F1E2D080331040222080331282064A6ACD3C2C2C29185AB1 D0747' +
'2808493E14676F2F81A383B4FCEDFAE7CEDFE6C2EA542C388 24184' +
'B8A3BEC2C2C2816AA6451A82482A8638187C423A82A6A1B27 C6EAB' +
'26147A1E0A651E0A651E0A65928DC0C2C2C28177B66B52917 85284' +
'6B5291947EABC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
'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.

[Swift]

Try using the scar tags...

[scarfreak123]

What happens when i goto start it is it says--

Searching for sleeping bag.

And then it will move the mouse from the sleeping bag to the x in the top right.

[Harry]

Put scar tags around it



*SCRIPT HERE

[scarfreak123]

Fixed. Sorry about that. Any advice on what to do?

[scarfreak123]

Ive been trying to get this to work on rscd, and its still not working. If anyone could help that would be great.

Ive found a few more scripts but they wont work. Im guessing it has something to do with rscd running from a different screen then rsc. Any advice would be helpful im almost completely lost.

Here is another script ive found.

Program Aut0Attack;
Var
x,y,i,monsters,ks,la,wt,StatCount1,StatCount2,Idle Count,MapCount,time,FightM,att,def,str,fat,lvl,new stat,stat,mhp,chp,report,heal,tme,tries,arrow,log, Attack,stop,a,b,trybag,bag,salmon,trout,lobster,sw ordfish,shark,cake,startexp,exp,d:Integer;
username,password,mname,mcolour,mode,nMin,nHour,ch at:String;
IsEnemy,killswitch,statswitch,screen,minimap,rotat e,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,
'000000000000FFFFFFFFFFFFFFFFFF0000000000000000000 00000' +
'FFFFFF000000000000000000FFFFFF0000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF0000000000000 00000' +
'000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFF000000000000000000FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFF000000000000000000000000000000FFFFFFF FFFFF' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF0 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFF FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000F FFFFF' +
'FFFFFF000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000');
bag:=BitmapFromString(18,7,
'9D6E3D9D6E3D9D6E3D7B542E7B542E7B542E7B542E7B542E7 B542E' +
'7B542E52452E52452E52452E52452E52452E52452E52452E3 60E06' +
'9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E7B542E7 B542E' +
'7B542E7B542E52452E52452E52452E52452E52452E52452E5 2452E' +
'9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E7B542E7B542E7 B542E' +
'7B542E7B542E7B542E52452E7B542E52452E52452E52452E6 15D61' +
'9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E7 B542E' +
'7B542E7B542E7B542E52452E7B542E52452E52452E8D8D8D8 68457' +
'7B542E9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7 B542E' +
'7B542E7B542E7B542E7B542E7B542E7B542E52452E988CB19 88CB1' +
'7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3DC344227 B542E' +
'7B542E7B542E7B542E7B542E7B542E7B542E988CB1988CB19 88CB1' +
'7B542E7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3D7 B542E' +
'7B542E7B542E7B542E7B542E7B542E7B542E988CB1CFAB7BC FAB7B' +
'');
cake:=BitmapFromString(11,8,
'866950A38062A38062A38062A38062A38062A380628669505 A4736' +
'5A4736545539866950866950866950A38062A38062A38062A 38062' +
'7058435A47365A4736A38062866950866950866950866950A 38062' +
'A38062A38062A38062A38062A38062A380628669508669508 66950' +
'866950866950866950866950A38062A38062A38062A38062A 38062' +
'8669508669508669508669508669508669508669508669508 66950' +
'866950A38062A38062A380628669508669508669508669508 66950' +
'866950866950866950866950A38062A38062A380628669508 66950' +
'866950866950866950866950866950866950866950866950A 38062' +
'A38062A38062A38062866950866950866950866950');
lobster:=BitmapFromString(12,4,
'7F4500AD5E00AD5E008E4D009E56009E56008E4D009E56009 E5600' +
'9E56009E56008E4D00AD5E007F45008E4D009E56009E56009 E5600' +
'703D008E4D009E56009E56007F450045372C703D007F45008 E4D00' +
'8E4D008E4D009E56008E4D00703D008E4D008E4D0045372C1 80C07' +
'703D007F45008E4D008E4D00703D008E4D009E56008E4D007 03D00' +
'8E4D007F45000D0700');
salmon:=BitmapFromString(12,4,
'9B74749B74749B7474654B4B9B74749B74749B74749B74749 B7474' +
'9B74749B74749B74748A68688A68688A6868654B4B8A68688 A6868' +
'8A68688A68688A68688A68688A68688A68688A68688A68688 A6868' +
'654B4B8A68688A68688A68688A68688A68688A68688A68688 A6868' +
'7B5C5C7B5C5C654B4B7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C7 B5C5C' +
'7B5C5C7B5C5C7B5C5C');
shark:=BitmapFromString(16,5,
'8046008046008046008046008046008046008046008046008 04600' +
'804600804600804600804600804600804600723E006738008 04600' +
'8046008046008046008046008046008046008046008046008 04600' +
'804600804600804600804600723E006738008046008046007 23E00' +
'552E008046008046008046008046008046008046008046008 04600' +
'804600804600723E00804600804600804600552E00552E008 04600' +
'8046008046008046008046008046008046008046008046008 04600' +
'723E008046008046008046008046008046008046008046008 04600' +
'804600804600804600804600804600723E00723E00723E00' );
swordfish:=BitmapFromString(12,6,
'7B477B7B477B7B477B7B477B8A508A8A508A8A508A8A508A8 A508A' +
'8A508A8A508A8A508A7B477B7B477B7B477B7B477B7B477B7 B477B' +
'7B477B7B477B7B477B7B477B7B477B7B477B7B477B7B477B7 B477B' +
'7B477B7B477B7B477B7B477B7B477B7B477B7B477B7B477B7 B477B' +
'653B65653B65653B65653B65653B65653B65653B65653B656 53B65' +
'653B65653B65653B65653B65653B65653B65653B65653B656 53B65' +
'653B65653B65653B65653B65653B65653B65653B65653B656 53B65' +
'653B65653B65653B65653B65653B65653B65653B655431546 53B65' +
'');
trout:=BitmapFromString(12,4,
'CE5A5ACE5A5A863B3BCE5A5ACE5A5ACE5A5ACE5A5ACE5A5AC E5A5A' +
'CE5A5ACE5A5ACE5A5AB85050B85050863B3BB85050B85050B 85050' +
'B85050B85050B85050B85050B85050B85050B85050B850508 63B3B' +
'B85050B85050B85050B85050B85050B85050B85050B85050B 85050' +
'A34747863B3BA34747A34747A34747A34747A34747A34747A 34747' +
'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)=16 777215)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(swordfis h,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,3 25))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)+'.bm p');
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(3 38,125)<>5524540)Then logout;
End;
Until(not killswitch);
End.

[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

[P1nky]

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

Hallow Mate, check the date out for this Thread '11-03-2007', this is called grave digging :/ Many of us do not appreciate this, but of course you probably did not have any idea, so it's okay :) just make sure to check out the Date before posting on threads :)!

- Cheerz

[Neros]

yeah, sorry, i've just noticed how old this was, got exited at the fact someone was trying to bot on rscd, i used to be a big part of that server in v3, i'll take more care next time :p