Aut03r
2009-12-02 00:04:42
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?
{>------------------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.