Scar MeisterFighter

program MeisterFighterScript;



{

  =================================================

  MeisterFighter V1.2 - 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!

  =================================================

  FEATURES:



  - Easy select options using forms.

  - Sleeping, Autologon and Eating.

  - Fastest possible detection of monsters.

  - Fastest possible correction of FightMode.

  - Anti-MissClicking feature added.

  - P2P Logon procedure added.



  UPDATES:

  - Login bug fixed (script can be started at any

    point now).

  - Multiple color detection added.

  =================================================

}



var

form, self: TForm;

Application: TApplication;



UserLabel, PassLabel, MonsterLabel, FMode: TLabel;

OtherMonsterLabel, ColorTwo, ColorThree: TLabel;

LabelEat, LabelEatHits, F2P: TLabel;

TxtColorOne, TxtColorTwo, TxtColorThree: TEdit;

TxtUserName, TxtPassWord, TxtEatHits: TEdit;

DropList, FList, EatChoice, F2PDrop: TComboBox;

ButtonOK, ButtonOK2: TButton;



f, i, j, x, y, Attack, Mode, Lobster: integer;

MonsterColor1, MonsterColor2, MonsterColor3: integer;

UserName, PassWord, MonsterName, CurrentHits, Monster: string;

ActualHp, EatHp, Eating, Server, ScarMeister, Cols: integer;



procedure ButtonClick (sender: TObject);

begin

     UserName:= TxtUserName.Text;

     PassWord:= TxtPassWord.Text;

     MonsterName:= DropList.Text;

     Monster:= DropList.Text;

     MonsterColor1:=  StrToInt (TxtColorOne.Text);

     MonsterColor2:=  StrToInt (TxtColorTwo.Text);

     MonsterColor3:=  StrToInt (TxtColorThree.Text);

     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;

end;



procedure AddPicture;

var

  Canvas: TCanvas;

begin

  Canvas:= GetBitmapCanvas(ScarMeister);

  CopyCanvas(Canvas, Form.Canvas, 0, 0, 100, 19, 120, 152, 314, 189);

end;



procedure FormPaint(Sender: TObject);

begin

  AddPicture;

end;



procedure Initialise;

begin

  Application:= GetApplication;

  Self:= GetSelf;



  Form:= TForm.Create(nil);

  Form.Width := 442;

  Form.Height := 220;

  Form.Position := poScreenCenter;

  Form.BorderStyle := bsDialog;

  Form.OnPaint:= @FormPaint;

  Form.Caption := 'MeisterFighter V1.2 - 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;



  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;



  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;



  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;



  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;



  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;



  ButtonOK := TButton.Create(Form);

  ButtonOK.Left := 8;

  ButtonOK.Top := 160;

  ButtonOK.Width := 96;

  ButtonOK.Height := 24;

  ButtonOK.Caption := '- Start -';



  ButtonOK2 := TButton.Create(Form);

  ButtonOK2.Left := 330;

  ButtonOK2.Top := 160;

  ButtonOK2.Width := 96;

  ButtonOK2.Height := 24;

  ButtonOK2.Caption := '- Start -';



  ButtonOK.OnClick := @ButtonClick;

  ButtonOK2.OnClick := @ButtonClick;

  ButtonOK.Parent := Form;

  ButtonOK2.Parent := Form;

  ButtonOK.ModalResult:= mrOk;

  ButtonOK2.ModalResult:= mrOk;

  ButtonOK.Default := False;

  ButtonOK2.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(100, 19,

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2A09EA0929098B3B1B3' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C29C9AA1211E3D393651' +

       '68636BC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2AEADAF7373746F6E6F' +

       '7A79867271746A6569393245837F83C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B2B2B9858396' +

       '8A8799BDBCBDC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2625D6B575586' +

       '7B7CA51E1B28474349AAAAABC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2706F721A192442435C' +

       '5A5B726A66945A53895C547EA29AB0AF9B98C2C2C2AFACAF9B8C9C' +

       'BCB2B5BFB1BAC2BEC6B1B0B2C1C1C1C2C2C2C2C2C2B8B7B8544A82' +

       '5B46A440327F6F6985BFBFC0C2C2C2C2C2C2C2C2C2BDBCBD9C99A7' +

       '9488A67B778E897E97B0A8B5C1C0C1C2C2C2C2C2C2C2C2C2C4C4C6' +

       'D1D0CDC1BEBFBDBCBDC2C2C2AFAEB07B788A787685B6B5B6C2C2C2' +

       'C2C2C2C2C2C29A999E76758177758575747F72717D726E7E4F4A61' +

       '606185CDD1EA9B9CC734334B8B8A8DC1C1C1ADAAAE7E7C80747474' +

       '787778A3A0A2C0C0C0929193585459949294AFAFB09C9A9F7E7E81' +

       '78777F767579949295C2C2C2BEBDBFC3BBBD9E89A0A3949DC0B2B9' +

       'CEC5C5BCB2BFBFBFC0C2C2C2A9A8AF838096827E9F797692878599' +

       'B6B5B6C2C2C2C2C2C2C2C2C2C2C2C2C2C2C288878C211F3A9D9DC0' +

       'D0D2EAD9DCF0D6D6E5D9DAF0BFBED7675C667A6C6CD2BEC7B883AE' +

       'C383C2E1B7DADEB5DCEBD2EDBD82BCA897ADBFBFC0BDBCBD776F8D' +

       '48388BC2C0E5A5A2CA3A3067BCBABCC2C2C2C2C2C2BAB9BB695992' +

       '7E50A99B6AC18A60AD8556A87437A2997DA7BFBEC0C2C2C2C5C2C2' +

       'CDA4C6F5EDF3EFDCE6AE93A5B4B1B87A58A65548963F3A73423F60' +

       'C2C2C2C2C2C28B8994271F5E564F89655B945C58874E49814B4979' +

       '403D551B192E5959823E3D5D100F17A2A0A364616416141C36344E' +

       '5354653E3E521817215352552221274E4E7118162417151F292841' +

       '3E3E605D5B6C5B56688D8999BAB6BF7E667CF5E4F3A86FA0CF9ACE' +

       'F0CDECD7B3DECBA2CAC0B9BF91879C4F2C716A4DA37669A7635B9A' +

       '453C883E3977A6A3AFC2C2C2C2C2C2C2C2C2C2C2C2302D3977779B' +

       'A8A8C66B6A8C7B7C959697AE8A8AA0736D859B8C9C6D5A7D9F7CA8' +

       'F5EEF8E2D9F1EDE8F6E6DFF4EEE4F5E1CCE76F4C86B4AEB69794B1' +

       '4533857364AFD6D7EF8A8BB439355CBEBDBFC2C2C2BFBFBF6F648C' +

       '573E8AD8CDEC6F6A934E43729B93C1C5B0E48F4A9CB6A3B2C2C2C2' +

       'C6AEC6CA85C7F6EDF4FBF2F9D7A7CA703F79784DB0E0DDF4B9BBDE' +

       '131035C2C2C2B4B3B71F1A4C8F8DBED9D9F2DEDEF3DDDFF3B1B3D4' +

       '3231452F2C452F2E549A9BBDB5B6CE2A294438363E232235A2A2C2' +

       'CACCE6DDDFF4D0D3EBAAABCE2A29330D0C14A2A4BCC6C7DBBEBFD3' +

       'C2C4DECFD1EBD9DCF0DFE0F2E2DCE558426461417FEEE9F3EDE9F7' +

       'E8DDF1E1DBF07E7A9A94769CAC9EB39065ACB09BD1A6A3CB4B4876' +

       '62628DB8B7DD646094413D64C2C2C2C2C2C2C2C2C2C2C2C20F0E14' +

       'BCBDD42827343E3B47413F4356555BBCBBBCBEBABFD2CFD447396D' +

       'A89CC49C9AB85F51664837588A86ADE2E1F5F6F1FA503A6F9C97A2' +

       '71668B5A5592AAA5D8D6D8ED8384AF4E4D72C2C2C2C2C2C2BBBBBD' +

       '4F437A9D96CBDBDBEF411E585E3B7D633C9CDFD7F1A97CBBA683A6' +

       'C2C2C2B08FB89052A5E7DDF3FDFBFCCA9DCD7A277EAF94CAE0E0F3' +

       'A4A5CD181639C2C2C2A7A6AE282363ADADD45953824D4B77444365' +

       '211F354E4B5D3936526A6A8CD4D7EFDADDF25454610504128383A5' +

       'D0D2EC6B6B8B6363869495A54C4C653634393F3B463E3E50A9A9C7' +

       'AAABC89E9FB4C2C3E25451667A778E8E8CAE1409307B729B8481A7' +

       '82779861587C3D32553A294BA9A0ACA994AA6C4B82EBE7F76B6899' +

       '2F2656221B5F9494BAC1C3DC141140C2C2C2C2C2C2C2C2C2C2C2C2' +

       '16151A9E9FBD4B49653C3642959397F9F9F9D3CDCDC0BFC2D7D4DC' +

       '3F3069AFAAD49B8BA5BDAEB9908194241A3F8582AAA7A7C5311D40' +

       '958F9E5138749490C1A5A6CCD7DAEF8D8DB2302D4CBEBEBEC2C2C2' +

       'BCBBBD4840739F9ACFDCDBF29F6AB6A471B8A978CAE2DDF4634781' +

       '8F7294C2C2C2B7AABC874094D5C0DEFCFAFCDFC3DC975896C1B0D7' +

       'E3E2F66262804A4862C2C2C2B4B2B6231A3F9185B6664E891E1046' +

       '4C496497959DB9B9BB88869023213CB2B3D6D8DAF0565765070612' +

       '57576EBDBFE32E2D4214132103020815121A8B898CB2B0B44E4D54' +

       '3533402622314C4B6AC1C1D5A49FA3847E8B443D4D45375F392F55' +

       '9884A7ECE0E36C476A82758FB1ADB6C1C1C1A797AC694E7DE5E3F5' +

       '7772AF6A61A4544F97B4B5D8A2A4C51B1738C2C2C2C2C2C2C2C2C2' +

       'C2C2C266646A2C2B3E9A9ABC757395C1BBC3DAD8DD5E545D2D253F' +

       '60576A483356C3BCE0C2ABB9B6B2B8C1C1C1928E9C46376B7A6694' +

       'A28EA77465808E75B1ACACCE504F73CED0EAB4B7D1262452A09FA5' +

       'C2C2C2BCBBBD443E719F9BCDDDDDF3C2B2DCEAE3F7A7A0BA6D6989' +

       '4A2867ADA0B0C2C2C2BEBDBE824C8BDFC7E1F6EBF8DDD2EA9667B3' +

       'DABEE5E5E3F55352725E5C73C2C2C2B2B2B83E2862916DB5D6CFEF' +

       '726E9536334CA9A8ADBBBABCABAAAE2D2B51AFB0D1D1D3EC43425B' +

       '5D5A6624223046465E8687A39191B59394B453537523212D8D8B92' +

       'BEBEBEB5B4B75A565A918CA7E9E5EE69636B9A989EB3B3B4867C8F' +

       '421D43C5B9D3E7E2F23F2C56827C8FAFADB2C1C1C1C4B2C390719A' +

       'DCDBF1B9B3E2D7D9F0B6B6D78D8EA62F2E4F615F6FC2C2C2C2C2C2' +

       'C2C2C2C2C2C2BBBABB565257605D647F7D9BB3B3C8DBDBF2D9DBF1' +

       'A0A0BE2A1D37553A46DBCEED846A7FA09CA1C2C2C2C2C2C2B7B5B9' +

       'B9B8BAC1B9C16B4078A19BC169678B161346ADAED1D1D4ED41416A' +

       '64637CC2C2C2BBBBBD433E719E9BCCD8D8F07D699AE8E4F76B4E83' +

       '5D2B6EA59AB1C1C1C1C2C2C2BDB5B8C293B9ECD9ECD3B6DAE5D9EE' +

       '8B639EAE8ACFECE8F69D98B02D274CBFBFC05C57825C458BBCB2D6' +

       '5E5C782825452C28612D2B54524E69777489322F52BDBEE1CED0E9' +

       '42415D8B8A8DA8A7AB5250592A292F2F2E442C2B3A6D6E916D6D88' +

       '2F2D35B3B3B4C2C2C2B5B1B7C4C3D3DADAEF43425A6F6C76B1B0B3' +

       '3E2538AE91B4A29EB73F394B2A224B3830712825537C778D9F88AB' +

       'C297CCDADAF09590C2BABADD9C9CC00A082A5B596FBBBBBDC2C2C2' +

       'C2C2C2C2C2C2C2C2C2A8A3A7A096A1C4C0C33B36481A1624444256' +

       'A0A1C1C5C6E2615671A88A93F1E7F66257725C5665B1B0B4B4B4B8' +

       '9C99A5544D70926A9DB586C4B0ACD375639F7F7FAF6C6B9DD3D6EC' +

       '9092BA242250AFADB3BBBBBD453E74A19DD0D9DAF04B2967CCBFE4' +

       'B498D2723581B7B0B9C2C2C2C2C2C2CFCBCDF5EDF4D1C9DF8A679E' +

       'EBE1F6C7B1E2C0ACD8CECDEBE9E5F43A2C62807D8C342A6F9D9BCC' +

       '6D558744265A2D264A75749D7E7EA72E2B5D282644282647C0C2E4' +

       'CFD2EB40405B494759635E73666374807F859D9BA387858A2D2A35' +

       'A3A3C5464453ADACAEC2C2C2716B6D7B7A9DDADCF17E7CA33F3948' +

       'A19EA4705E6BD6CFE08E748640354446436E8B8BAF5251812D266A' +

       '4733649E76ACDEDBF1776F9E716B9FC3C6E1323260716D84C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2474045B0A1ACC3C0D38483A43D3943' +

       '5F575C564C5DCBC7D9A897A2D1BCC0D3C9DCB2B1CC2C294B33315D' +

       '383664262260575494552F72D2C1E4817CB3B0ACCC7B7A9F201E3C' +

       'A5A4C4C9CAE64341774C486DA09CA8443775A69FD5DEDDF26A3A89' +

       '85609FD2C9EC88449C9C799DC1C1C1C7B6C9C289C6D5AEE09B93B7' +

       '50306BE1DAF0D8D3EC4C416B8C7EABEEEDF89791B642306B3C2E75' +

       'ABA7D7BFA3D69B5DAB361D551C144D3D3B6D9998C039375223223E' +

       'C3C5E7D5D7F03D3C5D2B294A9793BF7B78A23B384B5854634C4A52' +

       '5B556DAFACCD2B2936A9A8A9B0ADB0312B308B8BA7DEDFF0B1B0CC' +

       '4B3E40C7C3C4D0C5CAFAF6FBCBB6D62B243C1311361F1C4A626093' +

       '8382AD140B397E598DDEDBF3716A9B5949829492B68788AC232042' +

       'B4B4B9C2C2C2C2C2C2C2C2C2B2B1B3483F4592879E645F758B8789' +

       'C5C2C4C2BDC2E4D9DFA9A7B641343CA99BA3806D86C5C4E1CBCCEA' +

       'ABACCFACADD1B7B9DCA4A4C82F265BDAD5EDC1BCE469678F55506B' +

       '423E593A395DBBBCDBBABBDD46417E392C72533F91CEC6EBB9B8DA' +

       '6030739F6BA88264A0BF9ED5CB98CDCFC6CBB571B4BA83C9D5CAE8' +

       '604F8561357FE2DCF4BFBBD85222683F2756DBDAECE3E4F79B9AC5' +

       '170F375B5581D1D0EBE0D0F1C1B1D9B3B0D9C8CAE78D8EAD1A182C' +

       '2C2A48C0C3E5D7D8EF73729BB0AED1D5D7F0E1E2F5D6D7F09998B9' +

       '717197A6A6C45554693F3C41BAB7B8B6ADAD867D87E8E6ECF5F4FA' +

       'B2ACC6ADA5A4B4AFB3402B3FADA9BAE3E0F1B9B9DBACADD0C1C1E3' +

       'C7C7E33F3E581C144A9183B3DBD9EF46445F60547E5F56829E9FC4' +

       '3B3A67595572BDBDBEC2C2C29C9BA03B363BB1A29EBAB0A7E1DBD6' +

       'B9B7BA53464D463246B3AED0594C658D7E8CBAB8BA605768625C7F' +

       '8A8BACBCBFD0C4C5D69697BA26253A1A123B9B97BBA3A2C42D2A4C' +

       '7C778CB6B6B84A486638365EA1A1C29A9BBE322966453D72B8B8D0' +

       '534C72755786BFB4BE914E88A183B0F4E4F6D9BBD87D3F82A196BF' +

       '807DA23C1B57653487BFBCD7585078774B8C5F436D51476AA09EC4' +

       '2422386B647C392E4E4D466CA9A6C4BEBBD2B1B2CC636383232038' +

       '6561752D2A438888AB9090B12A273D5E5D853A3950606078A7A6C8' +

       'BFC1D2B1B2CA51516C312F33A7A6A7C0BFC0C5B7AFA399A8BBBBCE' +

       '9FA0BB2E29367C7078C1C1C19B8F9A1C18297A7795BDBFD1BDC0D2' +

       '999BBD3C3B512A27402320478E8CB2908FAF2521419998A89892AC' +

       '4E4A739192BE29265F656376BEBDBF6E6B6CCAC6CEF7F6F6AF9F95' +

       '4D4348271F2B635C7AC2C1D77976943F3346AFADB2C2C2C2BEBCBF' +

       '88848E27253619172719172B2321376D6A78726D88291E53201C3C' +

       '61597ABABABCC2C2C2B7B7BB5D59701E1B401D1A3F5F567857477A' +

       '2A1A4B4F346AB9B1BFC1C1C2BFAEBC976591B3A4C2B28FC1773886' +

       '4A246F462665927EA3613A7F4F2D61694683B7B1B6B7B5B9635366' +

       '836F84746C82C0C0C1B0ADB46852764622613B1F4E32204651466B' +

       '929099BDBCC783809024223B272635656073514C5B65636D4A4855' +

       '2722381817211A1720444047A9A9ABC2C2C2C2C2C2BAB7B7564F55' +

       '1917181C1A1E6D6672BFBFBFC2C2C2C1C0C18D888F655C731B1827' +

       '1817222120325E5A6AB1AFB3807E8F221E49281F4A79748ABFBEBF' +

       'C2C1C378708B28274672729D26244DA4A3AAAF9EA2F0E9F0D6D0DE' +

       '948998908C9CBDBEDED0D0EB8F8DB1231F2D918E95C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C7C4C9D6C1D1805282' +

       'A188A2C2C2C2C2C2C2C2C2C2B7B1B8B7AFBAC0BFC0C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2BCBCBD716F81211E3D484659B3B4C0D4D1CFCEC4D3' +

       'C9C9E2D4D6EBD8DBF1C2C4E0585773221E3289878CC2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       '8679872F2A3B63636F50506514121E3D3B45A19FA3C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2BDBCBD7C757F65646969686F99979EC0C0C0C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2' +

       '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);

        Wait(7500);

        if (Server = 1) then

        begin

             ClickMouse(214,285,True);

        end;

        Writeln('Closing Welcome box.');

        ClickMouse (495,15, True);

        wait (500);

        MoveMouse (10,10);

        wait (500);

        SendkeysSilent('fdfsdfsdjkfsj'+#13)

SendkeysSilent('@ran@fdfsdfsdjkfsj'+#13)

SendkeysSilent('@gre@fdfsdfsdjkfsj'+#13)

Wait(100);

        SendkeysSilent('canittheajhfma,')

        SendkeysSilent(password)

        Sendkeyssilent('fdsdklfs'+#13)

SendkeysSilent('@cya@fdfsdfsdjkfsj'+#13)

SendkeysSilent('@blu@fdfsdfsdjkfsj'+#13)

        wait (500)

   end;

end;



Procedure EatLobster;

begin

     i:= 0;

     j:= 0;

     MoveMouse (495, 15);

     wait (500);

     repeat

          if (FindBitmap (Lobster, x, y)) then

          begin

               i:= 1;

               writeln ('Eating Lobster.');

               ClickMouse (x, y, True);

               wait (300);

          end;

     wait (500);

     j:= j + 1;

     until (i = 1) or (j = 15);

     if (j = 15) then

     begin

          MoveMouse (10, 10);

          wait (300);

          writeln ('Lobsters gone. Waiting 3 seconds and logging off.');

          status ('Program Terminated - by Scarmeister 2004!');

          wait (3000);

          MoveMouse (325, 20);

          wait (300);

          ClickMouse (325, 282, True);

          wait (300);

          repeat

                wait (500);

          until (False);

     end;

MoveMouse (10, 10);

wait (100);

end;



procedure CheckHealth;

begin

     MoveMouse (425, 20);

     wait (300);

     CurrentHits:= GetTextAt (318, 112);

     wait (300);

     MoveMouse (10, 10);

     wait (300);

     ActualHp:= StrToInt (copy (CurrentHits, 6, 2));

     if (ActualHp < EatHp) then

        begin

             writeln ('Looking for Lobster.');

             EatLobster;

        end;

end;



procedure Sleep;

begin

     i:= 0;

     MoveMouse (490, 15)

     Wait (300);

     ClickMouse (290, 50, True);

     Wait(2000)

     repeat

           i:= i + 1;

           wait (50);

           if (GetColor (85, 140) = 3472636) and

        (GetColor (500, 215) = 0) then

        begin

             writeln ('Starting login procedure.');

             AutoLogin;

        end;

           if (i = 500) then

              begin

                   i:= 0;

                   ClickMouse (180, 300, True);

                   wait (300);

                   Writeln ('Trying again for a new word.');

              end;

     until (IsTextAt (7, 304,'You wake up')) or

           (IsTextAt (7, 304,'You are unexpectedly awoken')) or

           (IsTextAt (7, 304,'You can t do that whilst')) or

           (GetColor (167,41) <> 65535);

MoveMouse(10,10)

wait (10);

end;



procedure CheckMessage;

begin

     MoveMouse (10, 10);

     wait (50);

     if (IsTextAt (7, 304, 'You are too tired')) then

     begin

          writeln ('Going to sleep.');

          Sleep;

          wait(50);

     end;

     if (GetColor (85, 140) = 3472636) and

        (GetColor (500, 215) = 0) then

        begin

             writeln ('Starting login procedure.');

             AutoLogin;

        end;

end;



procedure CheckFightMode;

begin

     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:= 131072;

          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.2 - by Scarmeister!');

BitMapInitialise; Initialise; GetMonster;

CheckMessage;

repeat

CheckMessage;



f:= GetFightMode;

if (f = 0) then

begin

     i:= 0;

     if (FindColorSpiral (x, y, MonsterColor1, 1, 1, 304, 325)) or

        (FindColorSpiral (x, y, MonsterColor1, 305, 36, 510, 325)) or

        (FindColorSpiral (x, y, MonsterColor2, 1, 1, 304, 325)) or

        (FindColorSpiral (x, y, MonsterColor2, 305, 36, 510, 325)) or

        (FindColorSpiral (x, y, MonsterColor3, 1, 1, 304, 325)) or

        (FindColorSpiral (x, y, MonsterColor3, 305, 36, 510, 325)) then

     begin

          ClickMouse (x, y, False);

          wait (300);

          if (FindBitmap (Attack, x, y)) then

          begin

               ClickMouse (x, y, True);

               wait (300);

               writeln (Monster+' found and attacking it.');

               repeat

                     f:= GetFightMode;

                     i:= i + 1;

                     wait (50);

               until (i = 150) or (f > 0) or

                     (IsTextAt (7, 304, 'I can t get close'));

          end;

     end;

end else

    begin

         CheckFightMode;

    end;

wait (250);

until (False);

end.