Results 1 to 9 of 9

Thread: Old rsc script

  1. #1
    Join Date
    Nov 2009
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Old rsc script

    I thought I'd post a old rsc script made by reines and see if anyone here can look over it see how it was scripted back then and try fix it up for now?

    Code:
    {>------------------Aut0Fighter------------------<}
    {>               Written by Reines               <}
    {>-------------Features/Instructions-------------<}
    {> - Relogin                                     <}
    {> - Eats Trout, salmon, cake, lobster or shark  <}
    {> - Sleeping                                    <}
    {> - Mod Detection                               <}
    {> - Rotates map to find targets                 <}
    {> - Saves screenshots of levels                 <}
    {> - If you don't understand any of the settings <}
    {>   just guess :P                               <}
    {> - Designed for SCAR 1.13                      <}
    {> - If it doesnt work then check your colour    <}
    {>   depth, java type and font smoothing.        <}
    {> - All settings are setup in the form when     <}
    {    you run the script.                         <}
    {>-----------------------------------------------<}
    Var
      Form,Self:TForm;
      Application:TApplication;
      UserLabel,PassLabel,TargLabel,ChecLabel,ModeLabel,HealLabel,MouseLabel,RoLabel,ScreenLabel:TLabel;
      User,Pass,Heal:TEdit;
      Targ,Mode,Mouse,Chec,Ro,Screen:TComboBox;
      ButtonOK,ButtonCancel:TButton;
      UserName,PassWord,Name,Chat,Msg,Text,nMin,nHour,Bar:String;
      FMode,Counter,Often,Colour,HealHP,Tme,cPos,Wt,Wt1,Wt2,BagX,BagY,TryBag,MapCount,X,Y,Rot,Nwt,No,HP,Targets,Arrows,StartExp:Integer;
      Salmon,Trout,Lobster,Cake,Shark,Bag,Attack:Integer;
      Map,RightClick,Done,Skip,Found,Check,Rotat,Startcenter,NoStartExp,Cancel:Boolean;
      Hour,Min,Sec,MSec:Word;
    
    Procedure OKClick(Sender:TObject);
    Begin
      Cancel:=False;
      UserName:=User.Text;
      PassWord:=Pass.Text;
      Name:=Targ.Text;
      HealHP:=StrToInt(Heal.Text);
      If(Mouse.Text='Right')Then RightClick:=True else
      If(Mouse.Text='Left')Then RightClick:=False else Begin
        Cancel:=True;
        ClearReport;
        AddToReport('Error with mouse button setup!');
        AddToReport('Script Canceled');
      End;
      If(Mode.Text='Controlled')Then FMode:=1 else
      If(Mode.Text='Aggressive')Then FMode:=2 else
      If(Mode.Text='Accurate')Then FMode:=3 else
      If(Mode.Text='Defensive')Then FMode:=4 else Begin
        Cancel:=True;
        ClearReport;
        AddToReport('Error with Fightmode setup!');
        AddToReport('Script Canceled');
      End;
      If(Chec.Text='True')Then Check:=True else
      If(Chec.Text='False')Then Check:=False else Begin
        Cancel:=True;
        ClearReport;
        AddToReport('Error with checking target name setup!');
        AddToReport('Script Canceled');
      End;
      If(Ro.Text='True')Then Rotat:=True else
      If(Ro.Text='False')Then Rotat:=False else Begin
        Cancel:=True;
        ClearReport;
        AddToReport('Error with rotate setup!');
        AddToReport('Script Canceled');
      End;
      If(Screen.Text='Center')Then StartCenter:=True else
      If(Screen.Text='Random')Then StartCenter:=False else Begin
        Cancel:=True;
        ClearReport;
        AddToReport('Error with Screen checking setup!');
        AddToReport('Script Canceled');
      End;
      SaveSetting('Aut0Fighter','User',User.Text);
      SaveSetting('Aut0Fighter','Pass',Pass.Text);
      SaveSetting('Aut0Fighter','Heal',Heal.Text);
      SaveSetting('Aut0Fighter','Chec',Chec.Text);
      SaveSetting('Aut0Fighter','Mouse',Mouse.Text);
      SaveSetting('Aut0Fighter','Mode',Mode.Text);
      SaveSetting('Aut0Fighter','Targ',Targ.Text);
      SaveSetting('Aut0Fighter','Ro',Ro.Text);
      SaveSetting('Aut0Fighter','Screen',SCreen.Text);
      If(Name='Blessed Spider')Then Begin
      Colour:=3109013;
      Often:=5;
      Map:=False;
      End else If(Name='Guard')Then Begin
      Colour:=10661355;
      Often:=10;
      Map:=False;
      End else If(Name='Yanille Watchman')Then Begin
      Colour:=10661355;
      Often:=10;
      End else If(Name='zombie')Then Begin
      Colour:=8085761;
      Often:=10;
      Map:=False;
      End else If(Name='Souless')Then Begin
      Colour:=8366255;
      Often:=10;
      Map:=True;
      End else If(Name='skeleton')Then Begin
      Colour:=16447223;
      Often:=10;
      Map:=False;
      End else If(Name='Giant bat')Then Begin
      Colour:=11908533;
      Often:=10;
      Map:=False;
      End else If(Name='cow')Then Begin
      Colour:=14342875;
      Often:=20;
      Map:=False;
      End else If(Name='Pirate')Then Begin
      Colour:=4095357;
      Often:=10;
      Map:=False;
      End else  If(Name='Warrior')Then Begin
      Colour:=13158655;
      Often:=10;
      Map:=False;
      End else If(Name='Other')Then Begin
      Name:=Readln('Target Name:');
      Colour:=StrToInt(Readln('Colour code:'));
      Often:=5;
      Map:=False;
      End else Begin
        Cancel:=True;
        ClearReport
        AddToReport('Error with Target Setup!');
        AddToReport('Script Canceled');
      End;
    End;
    
    Procedure DoForm;
    Begin
      Application:=GetApplication;
      Self:=GetSelf;
      Form:=TForm.Create(nil);
      Form.Cursor:=1;
      Form.Width:=220;
      Form.Height:=370;
      Form.Position:=poScreenCenter;
      Form.BorderStyle:=bsToolWindow;
      Form.Caption:='Aut0Fighter by Reines';
      Form.Font.Color:=13609128;
      Form.Color:=0;
      UserLabel:=TLabel.Create(Form);
      UserLabel.Top:=12;
      UserLabel.Left:=16;
      UserLabel.Caption:='Username:';
      UserLabel.Parent:=Form;
      PassLabel:=TLabel.Create(Form);
      PassLabel.Top:=42;
      PassLabel.Left:=16;
      PassLabel.Caption:='Password:';
      PassLabel.Parent:=Form;
      TargLabel:=TLabel.Create(Form);
      TargLabel.Top:=72;
      TargLabel.Left:=16;
      TargLabel.Caption:='Target:';
      TargLabel.Parent:=Form;
      ModeLabel:=TLabel.Create(Form);
      ModeLabel.Top:=102;
      ModeLabel.Left:=16;
      ModeLabel.Caption:='Mode:';
      ModeLabel.Parent:=Form;
      HealLabel:=TLabel.Create(Form);
      HealLabel.Top:=132;
      HealLabel.Left:=16;
      HealLabel.Caption:='Heal at this HP:';
      HealLabel.Parent:=Form;
      MouseLabel:=TLabel.Create(Form);
      MouseLabel.Top:=162;
      MouseLabel.Left:=16;
      MouseLabel.Caption:='Click:';
      MouseLabel.Parent:=Form;
      ChecLabel:=TLabel.Create(Form);
      ChecLabel.Top:=192;
      ChecLabel.Left:=16;
      ChecLabel.Caption:='Check Name:';
      ChecLabel.Parent:=Form;
      RoLabel:=TLabel.Create(Form);
      RoLabel.Top:=222;
      RoLabel.Left:=16;
      RoLabel.Caption:='Rotate:';
      RoLabel.Parent:=Form;
      ScreenLabel:=TLabel.Create(Form);
      ScreenLabel.Top:=252;
      ScreenLabel.Left:=16;
      ScreenLabel.Caption:='Screen:';
      ScreenLabel.Parent:=Form;
      User:=TEdit.Create(Form);
      User.Color:=13609128;
      User.Font.Color:=0;
      User.Cursor:=1;
      User.Top:=10;
      User.Left:=86;
      User.Width:=100;
      User.Parent:=Form;
      Pass:=TEdit.Create(Form);
      Pass.Color:=13609128;
      Pass.Font.Color:=0;
      Pass.Cursor:=1;
      Pass.Top:=40;
      Pass.Left:=86;
      Pass.Width:=100;
      Pass.PasswordChar:='*';
      Pass.Parent:=Form;
      Targ:=TComboBox.Create(Form);
      Targ.Color:=13609128;
      Targ.Font.Color:=0;
      Targ.Cursor:=1;
      Targ.Top:=70;
      Targ.Left:=86;
      Targ.Width:=100;
      Targ.Parent:=Form;
      Targ.DropDownCount:=11;
      Targ.Items.Add('zombie');
      Targ.Items.Add('Giant bat');
      Targ.Items.Add('Souless');
      Targ.Items.Add('cow');
      Targ.Items.Add('Blessed Spider');
      Targ.Items.Add('Guard');
      Targ.Items.Add('Yanille Watchman');
      Targ.Items.Add('skeleton');
      Targ.Items.Add('Pirate');
      Targ.Items.Add('Warrior');
      Targ.Items.Add('Other');
      Mode:=TComboBox.Create(Form);
      Mode.Color:=13609128;
      Mode.Font.Color:=0;
      Mode.Cursor:=1;
      Mode.Top:=100;
      Mode.Left:=86;
      Mode.Width:=100;
      Mode.Parent:=Form;
      Mode.DropDownCount:=4;
      Mode.Items.Add('Controlled');
      Mode.Items.Add('Aggressive');
      Mode.Items.Add('Accurate');
      Mode.Items.Add('Defensive');
      Heal:=TEdit.Create(Form);
      Heal.Color:=13609128;
      Heal.Font.Color:=0;
      Heal.Cursor:=1;
      Heal.Top:=130;
      Heal.Left:=106;
      Heal.Width:=80;
      Heal.Parent:=Form;
      Mouse:=TComboBox.Create(Form);
      Mouse.Color:=13609128;
      Mouse.Font.Color:=0;
      Mouse.Cursor:=1;
      Mouse.Top:=160;
      Mouse.Left:=86;
      Mouse.Width:=100;
      Mouse.Parent:=Form;
      Mouse.DropDownCount:=2;
      Mouse.Items.Add('Right');
      Mouse.Items.Add('Left');
      Chec:=TComboBox.Create(Form);
      Chec.Color:=13609128;
      Chec.Font.Color:=0;
      Chec.Cursor:=1;
      Chec.Top:=190;
      Chec.Left:=86;
      Chec.Width:=100;
      Chec.Parent:=Form;
      Chec.DropDownCount:=2;
      Chec.Items.Add('True');
      Chec.Items.Add('False');
      Ro:=TComboBox.Create(Form);
      Ro.Color:=13609128;
      Ro.Font.Color:=0;
      Ro.Cursor:=1;
      Ro.Top:=220;
      Ro.Left:=86;
      Ro.Width:=100;
      Ro.Parent:=Form;
      Ro.DropDownCount:=2;
      Ro.Items.Add('True');
      Ro.Items.Add('False');
      Screen:=TComboBox.Create(Form);
      Screen.Color:=13609128;
      Screen.Font.Color:=0;
      Screen.Cursor:=1;
      Screen.Top:=250;
      Screen.Left:=86;
      Screen.Width:=100;
      Screen.Parent:=Form;
      Screen.DropDownCount:=2;
      Screen.Items.Add('Center');
      Screen.Items.Add('Random');
      ButtonOK:=TButton.Create(Form);
      ButtonOK.Cursor:=1;
      ButtonOK.Top:=280;
      ButtonOK.Left:=70;
      ButtonOK.Width:=80;
      ButtonOK.Height:=24;
      ButtonOK.Caption:='OK';
      ButtonOK.Parent:=Form;
      ButtonOK.Default:=True;
      ButtonOK.ModalResult:=mrOk;
      ButtonOK.OnClick:=@OKClick;
      ButtonCancel:=TButton.Create(Form);
      ButtonCancel.Cursor:=1;
      ButtonCancel.Top:=310;
      ButtonCancel.Left:=60;
      ButtonCancel.Width:=100;
      ButtonCancel.Height:=24;
      ButtonCancel.Caption:='Cancel';
      ButtonCancel.Parent:=Form;
      ButtonCancel.Default:=False;
      ButtonCancel.ModalResult:=mrCancel;
      User.Text:=LoadSetting('Aut0Fighter','User');
      Pass.Text:=LoadSetting('Aut0Fighter','Pass');
      Heal.Text:=LoadSetting('Aut0Fighter','Heal');
      Chec.Text:=LoadSetting('Aut0Fighter','Chec');
      Mouse.Text:=LoadSetting('Aut0Fighter','Mouse');
      Mode.Text:=LoadSetting('Aut0Fighter','Mode');
      Targ.Text:=LoadSetting('Aut0Fighter','Targ');
      Ro.Text:=LoadSetting('Aut0Fighter','Ro');
      Screen.Text:=LoadSetting('Aut0Fighter','Screen');
      Form.ShowModal;
      Form.Free;
    End;
    
    Procedure SetStatus;
    Begin
      Msg:='Aut0Fighter by Reines';
      Bar:='<--';
      For Counter:=1 To Length(Msg) Do Begin
        Status(Copy(Msg,1,Counter));
        Bar:=Bar+'-';
        Wait(50);
      End;
      Bar:=Bar+'-->';
      AddToReport('<--'+Msg+'-->');
    End;
    
    Procedure Settings;
    Begin
      Bag:=BitmapFromString(18,7,
           '9D6E3D9D6E3D9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
           '7B542E52452E52452E52452E52452E52452E52452E52452E360E06' +
           '9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
           '7B542E7B542E52452E52452E52452E52452E52452E52452E52452E' +
           '9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E7B542E7B542E7B542E' +
           '7B542E7B542E7B542E52452E7B542E52452E52452E52452E615D61' +
           '9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E' +
           '7B542E7B542E7B542E52452E7B542E52452E52452E8D8D8D868457' +
           '7B542E9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E' +
           '7B542E7B542E7B542E7B542E7B542E7B542E52452E988CB1988CB1' +
           '7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E' +
           '7B542E7B542E7B542E7B542E7B542E7B542E988CB1988CB1988CB1' +
           '7B542E7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3D7B542E' +
           '7B542E7B542E7B542E7B542E7B542E7B542E988CB1CFAB7BCFAB7B' +
           '');
      If(name='Giant bat')Then Attack:=BitmapFromString(89,9,
           '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
           'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
           '000000000000000000000000000000000000FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000FFFF00000000000000000000000000000000' +
           'FFFF00FFFF00000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000FFFF00000000000000' +
           '000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
           '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000FFFF00FFFF00000000000000000000000000000000FFFF00' +
           'FFFF00000000000000000000000000000000000000000000000000' +
           '000000000000000000000000FFFF00FFFF00000000000000FFFFFF' +
           'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
           '000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
           'FFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           '000000000000FFFF00FFFF00000000000000000000000000000000' +
           '000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
           '000000FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00FFFF00000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFF000000000000000000FFFFFF' +
           'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
           '000000FFFF00FFFF00000000000000000000000000000000000000' +
           'FFFF00FFFF00000000FFFF00000000000000000000FFFF00FFFF00' +
           '000000FFFF00FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
           'FFFF00000000000000000000000000000000FFFF00FFFF00FFFF00' +
           '000000FFFF00FFFF00000000FFFF00000000000000000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00' +
           'FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000000000000000000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF00' +
           '000000FFFF00FFFF00000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000000000000000000000FFFF00' +
           'FFFF00000000000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
           'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000000000000000000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
           '000000000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
           'FFFF00000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000FFFF00FFFF00000000000000000000' +
           '000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000000000000000000000000000FFFF00FFFF00' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
           '000000FFFF00FFFF00000000FFFF00FFFF00000000000000000000' +
           'FFFF00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' +
           '') else If(Name='skeleton')Then Attack:=BitmapFromString(88,9,
           '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
           'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000FFFF00FFFF00000000000000000000000000000000' +
           '000000000000000000000000000000000000000000FFFF00FFFF00' +
           '000000000000000000000000000000000000000000000000000000' +
           'FFFF00000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           'FFFF00FFFF00000000000000000000000000000000000000000000' +
           '000000000000000000000000000000FFFF00FFFF00000000000000' +
           '000000000000000000000000000000000000FFFF00FFFF00000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000FFFFFF' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
           '000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
           '000000FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00000000000000' +
           'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000FFFF00FFFF00FFFF00000000FFFF00' +
           'FFFF00000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
           '000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
           '000000000000000000000000000000FFFF00FFFF00FFFF00000000' +
           '000000000000000000FFFF00FFFF00FFFF00FFFF00000000000000' +
           '000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
           '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
           '000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00' +
           'FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF00000000' +
           'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00FFFFFFFFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
           '000000000000000000000000FFFF00FFFF00FFFF00000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           '000000000000000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000000000000000000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00FFFFFFFFFFFF000000000000000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000000000000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
           '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '') else If(Name='Pirate')Then Attack:=BitmapFromString(73,9,
           '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
           'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
           '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000FFFF00000000000000000000000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
           '000000000000000000000000000000FFFF00FFFF00000000000000' +
           '000000FFFF00FFFF00000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000FFFF00FFFF00000000000000000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000000000000000FFFF00FFFF00000000' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000FFFF00' +
           'FFFF00FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00' +
           '000000000000FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' +
           'FFFF00FFFF00000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFF00FFFF00' +
           '000000000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           'FFFF00FFFF00000000000000000000FFFF00000000000000000000' +
           'FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
           'FFFFFFFFFFFF000000000000000000000000000000000000FFFF00' +
           'FFFF00000000000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000FFFF00FFFF00000000000000000000000000000000FFFF00' +
           'FFFF00FFFF00FFFF00000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
           'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000000000000000000000FFFF00' +
           'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFFFFFFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
           '000000FFFF00FFFF00000000000000000000000000000000000000' +
           'FFFF00FFFF00000000FFFF00FFFF00000000000000000000FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000000000000000000000FFFFFFFFFFFF' +
           '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           '000000000000FFFF00FFFF00000000000000000000000000000000' +
           '000000FFFF00FFFF00000000FFFF00FFFF00000000000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFFFF' +
           'FFFFFF000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000000000000000FFFF00FFFF00000000000000000000000000' +
           '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
           '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
           '')else Attack:=BitmapFromString(37,10,
           '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
           'FFFFFF000000000000000000FFFFFF000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
           '000000000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
           '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000000000000000000000FFFFFFFFFFFF' +
           'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
           'FFFFFF000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000');
      Salmon:=BitmapFromString(12,4,
           '9B74749B74749B7474654B4B9B74749B74749B74749B74749B7474' +
           '9B74749B74749B74748A68688A68688A6868654B4B8A68688A6868' +
           '8A68688A68688A68688A68688A68688A68688A68688A68688A6868' +
           '654B4B8A68688A68688A68688A68688A68688A68688A68688A6868' +
           '7B5C5C7B5C5C654B4B7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C7B5C5C' +
           '7B5C5C7B5C5C7B5C5C');
      Trout:=BitmapFromString(12,4,
           'CE5A5ACE5A5A863B3BCE5A5ACE5A5ACE5A5ACE5A5ACE5A5ACE5A5A' +
           'CE5A5ACE5A5ACE5A5AB85050B85050863B3BB85050B85050B85050' +
           'B85050B85050B85050B85050B85050B85050B85050B85050863B3B' +
           'B85050B85050B85050B85050B85050B85050B85050B85050B85050' +
           'A34747863B3BA34747A34747A34747A34747A34747A34747A34747' +
           'A34747A34747A34747');
      Shark:=BitmapFromString(16,5,
           '804600804600804600804600804600804600804600804600804600' +
           '804600804600804600804600804600804600723E00673800804600' +
           '804600804600804600804600804600804600804600804600804600' +
           '804600804600804600804600723E00673800804600804600723E00' +
           '552E00804600804600804600804600804600804600804600804600' +
           '804600804600723E00804600804600804600552E00552E00804600' +
           '804600804600804600804600804600804600804600804600804600' +
           '723E00804600804600804600804600804600804600804600804600' +
           '804600804600804600804600804600723E00723E00723E00');
      Lobster:=BitmapFromString(12,4,
           '7F4500AD5E00AD5E008E4D009E56009E56008E4D009E56009E5600' +
           '9E56009E56008E4D00AD5E007F45008E4D009E56009E56009E5600' +
           '703D008E4D009E56009E56007F450045372C703D007F45008E4D00' +
           '8E4D008E4D009E56008E4D00703D008E4D008E4D0045372C180C07' +
           '703D007F45008E4D008E4D00703D008E4D009E56008E4D00703D00' +
           '8E4D007F45000D0700');
      Cake:=BitmapFromString(11,8,
           '866950A38062A38062A38062A38062A38062A380628669505A4736' +
           '5A4736545539866950866950866950A38062A38062A38062A38062' +
           '7058435A47365A4736A38062866950866950866950866950A38062' +
           'A38062A38062A38062A38062A38062A38062866950866950866950' +
           '866950866950866950866950A38062A38062A38062A38062A38062' +
           '866950866950866950866950866950866950866950866950866950' +
           '866950A38062A38062A38062866950866950866950866950866950' +
           '866950866950866950866950A38062A38062A38062866950866950' +
           '866950866950866950866950866950866950866950866950A38062' +
           'A38062A38062A38062866950866950866950866950');
    End;
    
    Procedure LogInIfNeeded;
    Begin
      If(GetColor(338,125)=5524540)Then 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));
        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);
      End;
      If(GetColor(56,117)=16777215)Then Begin
        ClickMouse(220,230,True);
        Wait(1000+random(250));
      End;
      If(GetColor(95,133)=65535)And(GetColor(325,159)=16777215)Then Begin
        ClickMouse(265,200,True)
        Wait(1000+random(250));
      End;
    End;
    
    Procedure GetStartExp;
    Begin
      NoStartExp:=False;
      Repeat
      MoveMouse(425,20);
      Wait(200);
      If(FMode=2)Then Begin
        ClickMouse(350,107,True);
        Wait(500);
        StartExp:=StrToInt(GetTextAt(369,279));
      End else
      IF(FMode=3)Then Begin
        ClickMouse(350,80,True);
        Wait(500);
        StartExp:=StrToInt(GetTextAt(369,279));
      End else
      If(FMode=4)Then Begin
        ClickMouse(350,94,True);
        Wait(500);
        StartExp:=StrToInt(GetTextAt(369,279));
      End else NoStartExp:=True;
      Until(StartExp<>-1)or(NoStartExp);
      MoveMouse(25,25);
    End;
    
    Procedure ModCheck;
    Begin
      Chat:=GetChatMsg;
      cPos:=Pos(':',Chat);
      If(Copy(Chat,1,4)='Mod ')Or(Copy(Chat,1,cPos-1)='Paul')Or(Copy(Chat,1,cPos-1)='Andrew')Then Begin
        Done:=True;
        AddToReport('Fuck, a Mod! Logging out');
        SaveScreenshot(AppPath+'Mod.bmp');
      End;
    End;
    
    Procedure SleepIfNeeded;
    Begin
      If(Copy(GetChatMsg,1,17)='You are too tired')Then Begin
        MoveMouse(492,14);
        Wait(200);
        TryBag:=0;
        Repeat
        TryBag:=TryBag+1;
        Wait(100);
        ModCheck;
        Until(FindBitmap(Bag,BagX,BagY))or(TryBag>20)or(Done);
        Repeat
        Wait(100);
        ModCheck;
        Until(GetFightMode=0);
        Wt1:=0;
        Wait(200);
        MoveMouse(498,16);
        Wait(1000);
        ClickMouse(BagX,BagY,True);
        Repeat
        Wait(1000);
        Wt1:=Wt1+1000;
        Until(Wt1>=60000)Or(Getcolor(166,44)<>65535)Or(Getcolor(266,133)<>16777215);
        If(Wt1>=60000)And(Getcolor(166,44)=65535)Then Begin
          Repeat
          ClickMouse(198,302,True);
          Wt2:=0;
          Repeat
          Wait(1000);
          Wt2:=Wt2+1000;
          Until(Wt2>=40000)Or(Getcolor(166,44)<>65535);
          Until(Getcolor(166,44)<>65535);
        End;
        Wait(1000);
        MoveMouse(25,25);
      End;
    End;
    
    Procedure MiniMap;
    Begin
      Wait(100);
      MoveMouse(460,16);
      Wait(500);
      Repeat
      MapCount:=MapCount+1;
      Wait(10);
      If(FindColor(X,Y,65535,380,70,480,160))Then Begin
        Wait(100);
        ClickMouse(X,Y,True);
        Wait(100);
        Rot:=0;
      End;
      Until(Rot=0)Or(MapCount>20);
      MoveMouse(25,25);
    End;
    
    Procedure Rotate;
    Begin
      Rot:=0;
      Repeat
      For Arrows:=1 To 10 Do SendArrowSilent(1);
      Rot:=Rot+1;
      ModCheck;
      If(Rot>=20+Random(5))and(Map)Then MiniMap;
      Until(FindColorSpiral(X,Y,Colour,-1,-1,-1,-1))Or(GetColor(338,125)=5524540)or(Done);
    End;
    
    Procedure Eat;
    Begin
      MoveMouse(492,14);
      Wait(200);
      If(FindBitmap(Trout,X,Y))or(FindBitmap(Salmon,X,Y))or(FindBitmap(Cake,X,Y))or(FindBitmap(Shark,X,Y))or(FindBitmap(Lobster,X,Y))Then Begin
        Repeat
        Wait(100);
        ModCheck;
        Until(GetFightMode=0);
        ClickMouse(X,Y,True);
        Wait(2000);
      End;
      MoveMouse(25,25);
    End;
    
    Procedure Stats;
    Begin
      Targets:=0;
      Repeat
      MoveMouse(427,16);
      Wait(100);
      HP:=StrToInt(Copy(GetTextAt(343,112),1,2));
      Wait(50);
      ModCheck;
      Until(HP<>-1)Or(Done)or(GetColor(338,125)=5524540);
      If(HP<=HealHP)Then Eat else MoveMouse(25,25);
    End;
    
    Procedure Screenshot;
    Begin
      If(Copy(GetChatMsg,1,17)='You just advanced')Then Begin
        MoveMouse(430,20);
        Wait(500);
        If(Copy(GetChatMsg,21,26)='Attack')Then Text:='Attack'+GetTextAt(375,73)else
        If(Copy(GetChatMsg,21,28)='Strength')Then Text:='Strength'+GetTextAt(387,99)else
        If(Copy(GetChatMsg,21,27)='Defence')Then Text:='Defence'+GetTextAt(385,86)else
        If(Copy(GetChatMsg,21,24)='Hits')Then Text:='Hits'+copy(GetTextAt(343,112),4,5)else Text:='Fuckup';
        SaveScreenshot(AppPath+Text+'.bmp');
        AddToReport(Bar);
        AddToReport('Screenshot saved');
        AddToReport(Bar);
      End;
    End;
    
    Procedure Fight;
    Begin
      If(GetFightMode<>0)Then Begin
        No:=0;
        Repeat
        If(GetFightMode<>FMode)And(GetFightMode<>0)Then ClickMouse(100,25+20*FMode,True);
        ModCheck;
        Wait(50);
        Screenshot;
        Until(GetFightMode=0)or(Done);
      End else No:=No+1;
      Screenshot;
      SleepIfNeeded;
      Found:=False;
      If(StartCenter)Then Begin
        If(FindColorSpiral(X,Y,Colour,160,140,320,250))and(not Done)Then Found:=True else
        If(FindColorSpiral(X,Y,Colour,80,70,400,330))and(not Done)Then Found:=True else
        If(FindColorSpiral(X,Y,Colour,-1,-1,-1,-1))and(not Done)Then Found:=True;
      End else Begin
        X:=Random(300);
        Y:=Random(100);
        If(FindColorSpiral(X,Y,Colour,X,Y,X+220,Y+220))Then Found:=True;
      End;
      If(Found)Then Begin
        MoveMouse(X,Y);
        Skip:=False;
        Nwt:=0;
        Repeat
        Wait(50);
        Nwt:=Nwt+50;
        Until(IsTextAt(6,2,Name))or(not Check)or(Nwt>=300);
        If(IsTextAt(6,2,Name))or(not Check)Then Begin
          If(RightClick)Then
          Begin
            ClickMouse(X,Y,False);
            Wait(200);
            IF(FindBitmap(Attack,X,Y))Then ClickMouse(X,Y,True) else Begin
              MoveMouse(25,25);
              Skip:=True;
            End;
          End else ClickMouse(X,Y,True);
          ModCheck;
          If(not Skip)Then Begin
            Targets:=Targets+1;
            Wt:=0;
            Repeat
            If(GetFightMode<>FMode)And(GetFightMode<>0)Then ClickMouse(100,25+20*FMode,True);
            ModCheck;
            Wait(50);
            Wt:=Wt+50;
            Until(Wt>=3000)or(GetFightMode=FMode)or(Done);
          End;
        End;
      End;
    End;
    
    Begin
      Cancel:=True;
      Done:=False;
      ClearReport;
      DoForm;
      If(not Cancel)Then Begin
        Settings;
        SetStatus;
        LogInIfNeeded;
        GetStartExp;
        If(not NoStartExp)Then Begin
          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);
          StartExp:=StartExp/1000;
          If(FMode=2)Then AddToReport(nHour+':'+nMin+' - '+IntToStr(StartExp)+'k Strength Exp.')else
          If(FMode=3)Then AddToReport(nHour+':'+nMin+' - '+IntToStr(StartExp)+'k Attack Exp.')else
          If(FMode=4)Then AddToReport(nHour+':'+nMin+' - '+IntToStr(StartExp)+'k Defence Exp.')
        End;
        Repeat
        SleepIfNeeded;
        If(No>=5)And(Rotat)Then Rotate;
        Fight;
        Screenshot;
        LogInIfNeeded;
        If(Targets>=Often)Then Stats;
        ModCheck;
        Until(Done);
        Repeat
        MoveMouse(325,20);
        Wait(1000);
        ClickMouse(350,280,True);
        Wait(2000);
        Until(GetColor(338,125)=5524540);
      End else Begin
        ClearReport;
        AddToReport('Script Canceled');
      End;
    End.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Thanks for trying to help, but its best to just make scripts from scratch based on current ideas rather than try to update old outdated ones, its sometimes difficult to understand others' code and update old things, and easier to just make fresh new ones. Once again thanks for the help anyways!

  3. #3
    Join Date
    Nov 2009
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well, i never thought of it that way, that makes alot of since, but yea ya'll do what you gotta do just trying to help out if all possible

  4. #4
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    If(Copy(Chat,1,4)='Mod ')Or(Copy(Chat,1,cPos-1)='Paul')Or(Copy(Chat,1,cPos-1)='Andrew')Then Begin
        Done:=True;
        AddToReport('Fuck, a Mod! Logging out');

    I lol'd.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  5. #5
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    lol, i can probobly reduce that script by about 400 lines.

    also, i know this is already said, but just make your own
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  6. #6
    Join Date
    Nov 2009
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dont even know where to start to make my own :P

    I need to learn tho, cause I really want to make scripts!

  7. #7
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by Aut03r View Post
    I dont even know where to start to make my own :P

    I need to learn tho, cause I really want to make scripts!
    Start from the tutorial island http://www.villavu.com/forum/showthread.php?t=12154

  8. #8
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    I can guarantee those bitmaps wont work
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  9. #9
    Join Date
    Nov 2009
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea, its a really old script prob from 2003-2004, lol

Thread Information

Users Browsing this Thread

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

Posting Permissions

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