heres the error i get on line 205 of this script
Line 205: [Error] (18306:11): Duplicate identifier 'SAFEINTFORM' in script C:\DOCUME~1\ALEXDE~1.DC9\LOCALS~1\Temp\Rar$DI32.09 4\Bl00dFighterPro.scar
{ ReviloSoft Productions Brings You...
The Best AutoFighter Around..
###### ## ## ##### ## ## #
####### ## ## ##### ## ##
## ## ## ### ### #### ## ## #### ## # #### ### ## #
###### ## ##### ##### ##### #### ## ##### ##### #### ## ## ####
####### ## ## ## ## ## ## ## #### ## ## ## ## ## ## ##### ##
## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
####### ## ##### ##### ##### ## ## ##### ## ## ### ##### ##
###### ## ### ### #### ## ## #### ## ## ### ### ##
##
####
##### ###### ###
###### ####### #####
## ## ## ## ## ##
## ## ####### ## ##
###### ###### ## ##
##### ## ## ## ##
## ## ## #####
## ## ## ###
ACii By Ollie
Selling ACii Text 100k Each
#### ### ## ## #
# # # # # #
# ### ### # # # # ## #
### # # # # # # # # #
# # # # # # # # # ###
# # # # # # # # #
#### # ### ######### ##
#
##
### ### # ## ##
# # # # #
# # # #### ## ## ## ## # # # #
# # # # # # # # # ## # # # #
# # ### # ## # # # # # # # #
# # # # # # # # # # # # #
# ##### ## ### ## ### ## ### # ##
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' > [ INSTRUCTIONS ] < '
' '
' = Have The SRL Include '
' = Pick Random Monster Colours '
' = Fill in the Form and Hit Start '
' = No Good items incase of Death '
' = Enjoy The Script'
' '
' Get SRL Include At: '
' www.villavu.com/forums '
' '
' ================================ '
' Dont Forget To Visit: '
' WWW.REVILOSOFT.COM For More! '
' '
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' > [ CONTACT INFO: ] < '
' ollie.atkinson@gmail.com '
' '
' PM Ollie/Radeon Pk at: '
' MoparIsTheBest,SRLForums,Reinet '
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' I am not Held Responsible if any '
' of your Characters get Banned '
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.}
program BloodFighterPro;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL\SRL\Misc\PlayerForm.Scar}
{----------------------}
{--- Form Variables ---}
{----------------------}
var
BloodForm : TForm;
Label1 : TLabel;
Colours : TGroupBox;
Label2 : TLabel;
Label3 : TLabel;
Edit5 : TEdit;
Edit7 : TEdit;
Edit1 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Misc : TGroupBox;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
CheckBox1 : TCheckBox;
Edit8 : TEdit;
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
CheckBox2 : TCheckBox;
BoneColour : TEdit;
CheckBox3 : TCheckBox;
Edit10 : TEdit;
Edit2 : TEdit;
StartScriptButton : TButton;
{------------------------}
{-- AntiIdle Variables --}
{------------------------}
var
changed : Boolean;
{------------------------}
{--- Script Variables ---}
{------------------------}
var
SpecificItems: array[0..98989898] of String;
ItemToPick: string;
ABCase1,ABCase2,FightMode: Integer;
ABMouse,Fighting: Boolean;
bones,Color1,Color2,Color3,Color4,tol: Integer;
HPCount,SpecLength: Integer;
stop,DoSomethingWeird,AttItByColour: Integer;
Bonecl,bonebmp,P1,P2,P3,P4,P5,P6,P7,HealWhen,FoodC olor: Integer;
Beginloadscript,BoneBury,UseFood,donttake,AnyItem: Boolean;
{------------------------}
{---- Level Variables ---}
{------------------------}
var
StartLVLs: Boolean;
var
StartAttackLvl, StartStrengthLvl, StartDefenceLvl, StartPrayerLvl, StartHPLvl,
CurAttackLvl, CurStrengthLvl, CurDefenceLvl, CurPrayerLvl, CurHPLvl,
NewAttackLvl, NewStrengthLvl, NewDefenceLvl, NewPrayerLvl:Integer;
{------------------------}
{---- Timer Variables ---}
{------------------------}
var
CallibrateTime, RunningTime, ReportTime: LongInt;
Const
Detail = 'low';
BestWorld = 'free';
StartPlayer = 0;
Procedure SelectFight;
Begin
If(ComboBox2.Text = '(Fight Mode)')then
FightMode:= random(4);
If(ComboBox2.Text = 'Style 1')then
FightMode:= 1;
If(ComboBox2.Text = 'Style 2')then
FightMode:= 2;
If(ComboBox2.Text = 'Style 3')then
FightMode:= 3;
If(ComboBox2.Text = 'Style 4')then
FightMode:= 4;
End;
Procedure ShallWeEat;
begin
If(ComboBox1.Text = 'Heal When?')then
HealWhen:= 0;
If(ComboBox1.Text = '10 HP')then
HealWhen:= 1;
If(ComboBox1.Text = '20 HP')then
HealWhen:= 2;
If(ComboBox1.Text = '30 HP')then
HealWhen:= 3;
If(ComboBox1.Text = '40 HP')then
HealWhen:= 4;
If(ComboBox1.Text = '50 HP')then
HealWhen:= 5;
If(ComboBox1.Text = '60 HP')then
HealWhen:= 6;
If(ComboBox1.Text = '70 HP')then
HealWhen:= 7;
End;
Procedure Setup;
begin
SelectFight;
ShallWeEat;
Color1:= StrToInt(Edit5.Text);
Color2:= StrToInt(Edit1.Text);
Color3:= StrToInt(Edit3.Text);
Color4:= StrToInt(Edit4.Text);
tol:= StrToInt(Edit7.Text);
FoodColor:= StrToInt(Edit8.Text);
Bonecl:= StrToInt(BoneColour.Text);
ItemToPick:= Edit10.Text;
End;
procedure SafeIntForm; // Default Code
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('Form', v);
end;
procedure ShowBloodModal; // Default Code
begin
BloodForm.ShowModal;
end;
procedure SafeShowBloodModal; // Default Code
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowBloodModal', v);
end;
procedure ClickButton(sender: TObject); // Adding Buttons and Interactivity
begin
Writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
Writeln(' The Script Is: ');
if(CheckBox1.CHECKED)then UseFood := true;
if(CheckBox1.CHECKED)then Writeln(' Eating Food');
if(CheckBox2.CHECKED)then BoneBury := true;
if(CheckBox2.CHECKED)then Writeln(' Burying Bones');
if(CheckBox3.CHECKED)then AnyItem := true;
if(CheckBox3.CHECKED)then Writeln(' Picking Up Items');
Writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
BloodForm.Caption:= BloodForm.Caption + '.';
BloodForm.ModalResult:= mrOk;
Beginloadscript:= True;
end;
Procedure Form;
begin
BloodForm := CreateForm;
BloodForm.Left := 286;
BloodForm.Top := 198;
BloodForm.Width := 526;
BloodForm.Height := 424;
BloodForm.Caption := 'Blood-Fighter By Ollie';
BloodForm.Color := clBtnFace;
BloodForm.Font.Color := clWindowText;
BloodForm.Font.Height := -11;
BloodForm.Font.Name := 'MS Sans Serif';
BloodForm.Font.Style := [];
BloodForm.Visible := False;
BloodForm.PixelsPerInch := 96;
Label1 := TLabel.Create(BloodForm);
Label1.Parent := BloodForm;
Label1.Left := 34;
Label1.Top := 21;
Label1.Width := 261;
Label1.Height := 44;
Label1.Caption := 'BloodFighter By Ollie';
Label1.Font.Color := clMaroon;
Label1.Font.Height := -32;
Label1.Font.Name := 'Baloney';
Label1.Font.Style := [];
Label1.ParentFont := False;
Colours := TGroupBox.Create(BloodForm);
Colours.Parent := BloodForm;
Colours.Left := 16;
Colours.Top := 63;
Colours.Width := 241;
Colours.Height := 221;
Colours.Caption := 'Colours';
Colours.TabOrder := 3;
Label2 := TLabel.Create(Colours);
Label2.Parent := Colours;
Label2.Left := 10;
Label2.Top := 22;
Label2.Width := 76;
Label2.Height := 13;
Label2.Caption := 'Monster Colours';
Label3 := TLabel.Create(Colours);
Label3.Parent := Colours;
Label3.Left := 21;
Label3.Top := 185;
Label3.Width := 48;
Label3.Height := 13;
Label3.Caption := 'Tolerance';
Edit5 := TEdit.Create(Colours);
Edit5.Parent := Colours;
Edit5.Left := 104;
Edit5.Top := 137;
Edit5.Width := 121;
Edit5.Height := 21;
Edit5.TabOrder := 0;
Edit5.Text := '0';
Edit7 := TEdit.Create(Colours);
Edit7.Parent := Colours;
Edit7.Left := 104;
Edit7.Top := 178;
Edit7.Width := 121;
Edit7.Height := 21;
Edit7.TabOrder := 1;
Edit7.Text := '10';
Edit1 := TEdit.Create(BloodForm);
Edit1.Parent := BloodForm;
Edit1.Left := 120;
Edit1.Top := 84;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 0;
Edit1.Text := '0';
Edit3 := TEdit.Create(BloodForm);
Edit3.Parent := BloodForm;
Edit3.Left := 120;
Edit3.Top := 124;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 1;
Edit3.Text := '0';
Edit4 := TEdit.Create(BloodForm);
Edit4.Parent := BloodForm;
Edit4.Left := 120;
Edit4.Top := 160;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 2;
Edit4.Text := '0';
Misc := TGroupBox.Create(BloodForm);
Misc.Parent := BloodForm;
Misc.Left := 266;
Misc.Top := 64;
Misc.Width := 234;
Misc.Height := 317;
Misc.Caption := 'Misc';
Misc.TabOrder := 5;
Label4 := TLabel.Create(Misc);
Label4.Parent := Misc;
Label4.Left := 16;
Label4.Top := 25;
Label4.Width := 50;
Label4.Height := 13;
Label4.Caption := 'FightMode';
Label5 := TLabel.Create(Misc);
Label5.Parent := Misc;
Label5.Left := 22;
Label5.Top := 129;
Label5.Width := 24;
Label5.Height := 13;
Label5.Caption := 'Food';
Label6 := TLabel.Create(Misc);
Label6.Parent := Misc;
Label6.Left := 17;
Label6.Top := 60;
Label6.Width := 49;
Label6.Height := 13;
Label6.Caption := 'Bone Bury';
Label7 := TLabel.Create(Misc);
Label7.Parent := Misc;
Label7.Left := 18;
Label7.Top := 225;
Label7.Width := 33;
Label7.Height := 13;
Label7.Caption := 'Pickup';
Label8 := TLabel.Create(Misc);
Label8.Parent := Misc;
Label8.Left := 10;
Label8.Top := 283;
Label8.Width := 45;
Label8.Height := 13;
Label8.Caption := 'Randoms';
CheckBox1 := TCheckBox.Create(Misc);
CheckBox1.Parent := Misc;
CheckBox1.Left := 69;
CheckBox1.Top := 128;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Use Food?';
CheckBox1.TabOrder := 0;
Edit8 := TEdit.Create(Misc);
Edit8.Parent := Misc;
Edit8.Left := 70;
Edit8.Top := 152;
Edit8.Width := 121;
Edit8.Height := 21;
Edit8.TabOrder := 1;
Edit8.Hint := 'The Colour Of the Food';
Edit8.Text := '0';
ComboBox1 := TComboBox.Create(Misc);
ComboBox1.Parent := Misc;
ComboBox1.Left := 67;
ComboBox1.Top := 182;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 2;
ComboBox1.Items.Add('10 HP');
ComboBox1.Items.Add('20 HP');
ComboBox1.Items.Add('30 HP');
ComboBox1.Items.Add('40 HP');
ComboBox1.Items.Add('50 HP');
ComboBox1.Items.Add('60 HP');
ComboBox1.Items.Add('70 HP');
ComboBox1.Text := 'Heal When?';
ComboBox2 := TComboBox.Create(Misc);
ComboBox2.Parent := Misc;
ComboBox2.Left := 74;
ComboBox2.Top := 22;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 3;
ComboBox2.Items.Add('Style 1');
ComboBox2.Items.Add('Style 2');
ComboBox2.Items.Add('Style 3');
ComboBox2.Items.Add('Style 4');
ComboBox2.Text := '(Fight Mode)';
CheckBox2 := TCheckBox.Create(Misc);
CheckBox2.Parent := Misc;
CheckBox2.Left := 71;
CheckBox2.Top := 58;
CheckBox2.Width := 97;
CheckBox2.Height := 17;
CheckBox2.Caption := 'Bury Bones?';
CheckBox2.TabOrder := 4;
BoneColour := TEdit.Create(Misc);
BoneColour.Parent := Misc;
BoneColour.Left := 71;
BoneColour.Top := 80;
BoneColour.Width := 121;
BoneColour.Height := 21;
BoneColour.TabOrder := 5;
BoneColour.Hint := 'The Colour Of The Bone';
BoneColour.Text := '0';
CheckBox3 := TCheckBox.Create(Misc);
CheckBox3.Parent := Misc;
CheckBox3.Left := 66;
CheckBox3.Top := 225;
CheckBox3.Width := 131;
CheckBox3.Height := 17;
CheckBox3.Caption := 'Pickup Specified Item?';
CheckBox3.TabOrder := 6;
Edit10 := TEdit.Create(Misc);
Edit10.Parent := Misc;
Edit10.Left := 66;
Edit10.Top := 251;
Edit10.Width := 121;
Edit10.Height := 21;
Edit10.TabOrder := 7;
Edit10.Hint := 'The Name Of The Item You Want To Pick';
Edit10.Text := 'Coins';
Edit2 := TEdit.Create(BloodForm);
Edit2.Parent := BloodForm;
Edit2.Left := 332;
Edit2.Top := 345;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 6;
Edit2.Hint := 'Skill To Use The Lamp On';
Edit2.Text := 'hitpoints';
StartScriptButton := TButton.Create(BloodForm);
StartScriptButton.Parent := BloodForm;
StartScriptButton.Left := 17;
StartScriptButton.Top := 291;
StartScriptButton.Width := 242;
StartScriptButton.Height := 87;
StartScriptButton.Caption := 'Setup Players + Start Script';
StartScriptButton.TabOrder := 7;
StartScriptButton.Onclick := @ClickButton
end;
procedure Specifics;
begin
SpecificItems[0] := ItemToPick;
end;
procedure FindRandoms;
begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Searching For Randoms')
Writeln('')
SetRun(True)
RotateEvery(1+random(5))
FindNormalRandoms;
ClickToContinue;
CloseWindow;
FindLamp(Edit2.text);
FindDead;
FindMod;
FindMime;
FindMaze;
FindQuiz;
FindFrog;
FindDemon;
RandomChatEvery(10+random(8))
LeaveScreenEvery(5+random(3))
HoverEvery(20+random(10),Players[CurrentPlayer].Skill)
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); // Screenname for FIRST Player in case of already loggedin.
if Findname Then FindTalk;
end;
Procedure OpenFriends;
Begin
Mouse(584,485,5,5,true)
Wait(300+random(300))
End;
procedure Scribble(time: integer);
var
StartTime: longint;
reduce, align: integer;
Next, Vector: PPoint;
Last, Cur, Center: TPoint;
begin
StartTime:= GetSystemTime;
GetMousePos(Last.X, Last.Y);
GetClientDimensions(Center.X, Center.Y);
Center.X:= Center.X / 2;
Center.Y:= Center.Y / 2;
Next.R:= 5.0;
Next.T:= Random(360);
while GetSystemTime - StartTime < Time do
begin
if reduce = 0 then Next.R:= Next.R + ((Random(20) - 10) / 10);
if (reduce > 0) and (Next.R > 0) then Next.R:= Next.R + ((Random(20) - 20) / 10);
if (reduce > 0) and (Next.R < 0) then Next.R:= Next.R - ((Random(20) - 20) / 10);
if Abs(Next.R) > 7 then reduce:= 10;
Next.T:= FixD((Next.T + (Random(60) - 30)));
Vector:= ToPolarOffset(Last, Center);
Cur:= ToCartOffset(Next, Last);
MoveMouse(Cur.X, Cur.Y);
if (align > 0) or (Cur.X < 20) or (Cur.Y < 20) or (Cur.X > (Center.X * 2) - 20) or (Cur.Y > (Center.Y * 2) - 20) then
begin
Next.T:= AvgAngles(Next.T, Vector.T, 4, 3);
if align = 0 then align:= 20;
end;
Last.X:= Cur.X;
Last.Y:= Cur.Y;
if reduce <> 0 then reduce:= reduce - 1;
if align <> 0 then align:= align - 1;
end;
end;
procedure RandomTab;
begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Switching to A Random GameTab')
Writeln('')
GameTab(1+random(12));
end;
Procedure AntiBan1;
Begin
ABMouse:=True
Status('AntiBan Activated!')
Writeln('')
Writeln('')
Writeln('')
Writeln('Anti-Ban = True')
Writeln('')
ABCase1:=Random(5)
ABCase1:=Random(5)
Case ABCase1 Of
1:
Begin
MMouse(586,310,21,21)
Wait(100+Random(100))
MMouse(246,98,40,40)
Wait(100+Random(100))
RandomTab;
Scribble(3000+random(200));
FindRandoms;
End;
2:
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Checking Stats')
Writeln('')
Status('Checking Stats!')
Mouse(586,184,7,7,true)
Wait(20+Random(20))
GetMousePos(x,y)
MMouse(x,y,2,2)
Wait(125+Random(125))
GetMousePos(x,y)
MMouse(x,y,2,4)
Wait(1000+Random(1000))
FindRandoms;
End;
3:
Begin
MMouse(600,276,20,12)
Wait(45+Random(25))
MMouse(616,283,12,17)
Wait(45+Random(25))
MMouse(614,423,12,17)
Wait(190+Random(225))
Mouse(559,186,7,7,True)
Wait(500+Random(500))
GetMousePos(X,Y)
Scribble(3000+random(200));
Wait(20+Random(5))
MMouse(x,y,2,6)
Mouse(584,187,2,2,true)
Wait(1000+random(200))
FindRandoms;
End;
4:
Begin
CMMouse(585,187,5,5)
Wait(1+random(20))
GetMousePos(x,y)
Mouse(x,y,0,0,true)
Wait(120+random(120))
CMMouse(588,265,20,20)
Wait(2000+random(1000))
RandomTab;
End;
End;
End;
Procedure AntiBan2;
Begin
ABCase2:=Random(9)
ABCase2:=Random(9)
Case ABCase2 Of
1:
Begin
Scribble(3000+random(200));
MMouse(266,175,250,160)
Wait(300+Random(50))
MMouse(266,175,250,160)
Wait(300+Random(50))
MMouse(266,175,250,160)
Wait(300+Random(50))
FindRandoms;
End;
2:
Begin
MMouse(266,175,250,160)
Wait(800+Random(50))
MMouse(266,175,250,160)
Wait(50+Random(50))
OpenFriends;
FindRandoms;
End;
3:
Begin
Wait(2000+Random(1200))
RandomTab;
FindRandoms;
End;
4:
Begin
MMouse(327,199,300,180)
Wait(400+Random(400))
Scribble(3000+random(200));
MMouse(327,199,300,180)
Wait(75+Random(400))
RandomTab;
FindRandoms;
End;
5:
Begin
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
Wait(400+Random(400))
MMouse(327,199,300,180)
MMouse(327,199,300,180)
Wait(400+Random(400))
DoSomeThingWeird:=Random(4)
Case DoSomeThingWeird Of
1:
Begin
RandomTab;
End;
2:
begin
RandomTab;
end
3:
begin
RandomTab;
end
4:
begin
RandomTab;
end;
End;
FindRandoms;
End;
6:
Begin
GetMousePos(X,Y)
MMouse(x,y,2,2)
GetMousePos(X,Y)
Scribble(3000+random(200));
MMouse(x,y,2,2)
Wait(25+Random(20))
GetMousePos(X,Y)
MMouse(x,y,2,2)
Scribble(3000+random(200));
Wait(25+Random(20))
FindRandoms;
End;
7:
Begin
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(105+Random(20))
GetMousePos(X,Y)
MMouse(x,y,2,2)
GetMousePos(X,Y)
MMouse(x,y,2,2)
Wait(200+Random(22))
GetMousePos(X,Y)
Scribble(3000+random(200));
MMouse(x,y,2,2)
Wait(200+Random(22))
FindRandoms;
End;
End;
End;
procedure PlayerStats;
var Active: string;
begin
writeln('***************************************** *****');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Number : '+inttostr(CurrentPlayer));
if Players[CurrentPlayer].Active=True then Active := 'True' else Active := 'False';
writeln('Active : '+ Active);
writeln('Location : '+ Players[CurrentPlayer].loc);
writeln('***************************************** *****');
end;
Procedure ProgressReport;
begin
ReportTime := (GetSystemTime div 1000);
writeln(' ');
writeln('<=================Progress Report================ > ');
writeln('Worked for '+ TimeRunning);
writeln('Attacked '+inttostr(NPCS)+' Monsters.');
writeln('Buried '+inttostr(Bones)+' Bones.');
if (talks > 0)or(lamps > 0)or(newboxes > 0) or (Logs > 0) then writeln('Random Event Report:');
if(talks > 0)then writeln(' Talked to '+inttostr(talks)+' random event[s].');
if(lamps > 0)then writeln(' Used lamps '+inttostr(lamps)+' time[s].');
if(newboxes > 0)then writeln(' Solved '+inttostr(newboxes)+' newbox[es].');
if(trades > 0)then writeln(' Traded '+inttostr(trades)+' time[s].');
if(logs > 0)then writeln(' Logged in '+inttostr(Logs)+' Time[s].');
if(Demons > 0)then writeln(' Solved '+inttostr(Demons)+' Demon[s].');
writeln('<======================================== ======== > ');
writeln(' Atk Str Def Pra HP');
writeln('StartLevels : '+ InttoStr(StartAttackLvl)+' '+ InttoStr(StartStrengthLvl)+' '
+InttoStr(StartDefenceLvl)+' '+InttoStr(StartPrayerLvl)+' '
+InttoStr(StartHPLvl));
writeln('CurLevels : '+InttoStr(CurAttackLvl)+' '+ InttoStr(CurStrengthLvl)+' '
+InttoStr(CurDefenceLvl)+' '+InttoStr(CurPrayerLvl)+' '
+InttoStr(CurHPLvl));
writeln('Gained : '+InttoStr(CurAttackLvl-StartAttackLvl)+' '+ InttoStr(CurStrengthLvl-StartStrengthLvl)+' '
+InttoStr(CurDefenceLvl-StartDefenceLvl)+' '+InttoStr(CurPrayerLvl-StartPrayerLvl)+' '
+InttoStr(CurHPLvl-StartHPLvl));
PlayerStats;
end;
procedure GetLevels;
begin
GameTab(2);
if(startLVLs) then
begin
startLVLs := False;
StartAttackLvl := GetSkillAmount('attack');
StartStrengthLvl := GetSkillAmount('strength');
StartDefenceLvl := GetSkillAmount('defense');
StartPrayerLvl := GetSkillAmount('prayer');
StartHPLvl := GetSkillAmount('hp');
CurAttackLvl := StartAttackLvl;
CurStrengthLvl := StartStrengthLvl;
CurDefenceLvl := StartDefenceLvl;
CurPrayerLvl := StartPrayerLvl;
CurHPLvl := StartHPLvl;
NewAttackLvl := StartAttackLvl;
NewStrengthLvl := StartStrengthLvl;
NewDefenceLvl := StartDefenceLvl;
NewPrayerLvl := StartPrayerLvl;
//Players[CurrentPlayer].AttackLevel := StartAttackLvl;
//Players[CurrentPlayer].StrengthLevel := StartStrengthLvl;
//Players[CurrentPlayer].DefenceLevel := StartDefenceLvl;
end
else
begin
CurAttackLvl := GetSkillAmount('attack');
CurStrengthLvl := GetSkillAmount('strength');
CurDefenceLvl := GetSkillAmount('defense');
CurPrayerLvl := GetSkillAmount('prayer');
CurHPLvl := GetSkillAmount('hp');
//Players[CurrentPlayer].AttackLevel := CurAttackLvl;
//Players[CurrentPlayer].StrengthLevel := CurStrengthLvl;
//Players[CurrentPlayer].DefenceLevel := CurDefenceLvl;
end
GameTab(4);
end;
procedure Callibrate;
begin
FindRandoms;
RunningTime := (GetSystemTime div 1000);
if (RunningTime-CallibrateTime > 100) and (not(WeAreDead)) then // every 100 secs
begin
CallibrateTime := RunningTime;
SetRun(True);
GetLevels;
ProgressReport;
PerfectNorth;
SendArrowSilentWait(0, 1000+Random(500));
// writeln('HP: '+IntToStr(GetSkillAmount('hp')));
end
end;
procedure MakeCompasses(direction: string);
var
fAngle, myAngle: Integer;
begin
if not LoggedIn then Exit;
ActivateClient;
case LowerCase(direction) of
'n': fAngle:= 360;
'e': fAngle:= 270;
's': fAngle:= 180;
'w': fAngle:= 90;
end;
myAngle:= Trunc((DetectRS2MinimapCompassAngle / Pi)* 180);
if(myAngle > fAngle + 10)or(MyAngle < fAngle - 10)then
begin
if(MyAngle > fAngle div 2)then
KeyDown(VK_LEFT);
if(MyAngle < fAngle div 2)then
KeyDown(VK_RIGHT);
end;
while(myAngle > fAngle + 10)or(MyAngle < fAngle - 10)do
begin
myAngle := Trunc((DetectRS2MinimapCompassAngle / Pi)* 180);
Wait(25);
end;
KeyUp(VK_RIGHT);
KeyUp(VK_LEFT);
end;
procedure AntiRandoms;
begin
FindTrade;
wait(1);
FindDead;
wait(1);
FindMod;
wait(1);
ClickToContinue;
wait(1);
if (WeAreDead) then
begin
if (HowManyPlayers > 1) then
begin
Players[CurrentPlayer].Active:= False;
Logout;
NextPlayer(true);
Chatsoff;
end else
Logout;
end;
if(not(FindBitmapMaskTolerance(CWindow, x, y, 400, 3, 515, 100, 0, 85)))then
if(FindName)then
begin
FindTalk;
wait(1);
FindLamp(Edit2.text);
wait(1);
FindMime;
wait(1);
FindMaze;
wait(1);
FindQuiz;
wait(1);
FindFrog;
wait(1);
FindDemon;
wait(1);
GambleNewBox;
wait(1);
end;
end;
procedure chancewait(ms: Integer);
var
i, tRan, tVal, minu: Integer;
begin
minu:= ms
if Length(IntToStr(ms)) > 1 then
tVal:= Round(Length(IntToStr(ms)) div 2.0)
else
tVal:= 1;
repeat
for i := 1 to tVal do
tRan := tRan + Random(ms div tVal) div 2;
tVal := Random(4);
if(tVal = 3)or(tVal = 2)then
tRan := tRan * -1;
until(ms + tRan >= minu);
if (random(100) < 5) then
begin
Wait((ms * 2) + tRan + random(tRan));
end else
Wait((ms + tRan));
end;
procedure RandomMovement;
begin
if((random(3) +1 ) > 1)then
begin
if(random(2) = 1)then
begin
if(random(2) = 1)then
begin
KeyDown(VK_UP);
end else
KeyDown(VK_DOWN);
chancewait(random(15));
KeyDown(VK_LEFT);
chancewait(300+random(500))
KeyUp(VK_UP);
KeyUp(VK_DOWN);
chancewait(random(15));
KeyUp(VK_LEFT);
end else;
begin
if(random(2) = 1)then
begin
KeyDown(VK_UP);
end else
KeyDown(VK_DOWN);
chancewait(random(15));
KeyDown(VK_RIGHT);
chancewait(300 + random(500))
KeyUp(VK_UP);
KeyUp(VK_DOWN);
chancewait(random(15));
KeyUp(VK_RIGHT);
end;
changed:= True;
end else;
MMouse((random(330) + 8), (random(490) + 8), 3, 3);
end;
procedure wait2 (timetowait : integer);
var
starttime : Integer;
randcounter : Integer;
randamount : Integer;
idlecounter : Integer;
idleamount : Integer;
InFile : Integer;
OutFile : Integer;
begin
starttime:= getsystemtime;
if(timetowait < 8000)then
if(random(100) < 5)then
timetowait:= ((timetowait * 2) + random(timetowait div 2));
InFile:= OpenFile(AppPath + 'includes\Idle.txt', False);
if(InFile > -1)then
begin
ReadFileInt(InFile, idlecounter);
CloseFile(InFile);
end else
begin
OutFile:= RewriteFile(AppPath + 'includes\Idle.txt', False);
if(OutFile > -1)then
begin
cleardebug;
writeln('File Created ' + AppPath + 'includes\Idle.txt');
WriteFileInt(OutFile, idlecounter);
CloseFile(OutFile);
end;
end;
if(InFile = -1)then
idlecounter:= 0;
InFile:= OpenFile(AppPath + 'includes\Rand.txt', False);
if(InFile > -1)then
begin
ReadFileInt(InFile, randcounter);
CloseFile(InFile);
end else
begin
OutFile:= RewriteFile(AppPath + 'includes\Rand.txt', False);
if(OutFile > -1)then
begin
cleardebug;
writeln('File Created ' + AppPath + 'includes\Rand.txt');
WriteFileInt(OutFile, randcounter);
CloseFile(OutFile);
end;
end;
if(InFile = -1)then
randcounter:= 0;
randamount:= random(20);
case (random(2) +1 ) of
1 : idleamount:= 333;
2 : idleamount:= 2222;
end;
repeat
wait(1);
randcounter:= randcounter + 1;
idlecounter:= idlecounter + 1;
if (randcounter > (90 + randamount)) then
begin
randcounter:= 0;
randamount:= random(20);
Antirandoms;
randcounter:= randcounter + 13;
idlecounter:= idlecounter + 13;
end;
if (idlecounter > (1500 + idleamount + random(300))) then
begin
idlecounter:= 0;
if(random(100) > 5)then
begin
case (random(3) + 1) of
1 : idleamount:= 333;
2 : idleamount:= 1111;
3 : idleamount:= 2222;
end;
end else
case (random(3) + 1) of
1 : idleamount:= 1111;
2 : idleamount:= 2222;
3 : idleamount:= 5555;
end;
RandomMovement;
end;
until ((getsystemtime - starttime) > timetowait)
if(changed = True)then
begin
chancewait(300 + random(500))
MakeCompasses('n');
wait(100 + random(200));
KeyDown(VK_UP);
wait(1000 + random(500));
KeyUp(VK_UP);
end;
OutFile:= RewriteFile(AppPath + 'includes\Idle.txt', False);
if(OutFile > -1)then
begin
WriteFileInt(OutFile, idlecounter);
CloseFile(OutFile);
end;
OutFile:= RewriteFile(AppPath + 'includes\Rand.txt', False);
if(OutFile > -1)then
begin
WriteFileInt(OutFile, randcounter);
CloseFile(OutFile);
end;
end;
function FindObjective2(var cx, cy : Integer; color, tolerance : Integer) : Boolean; // by Stupid3ooo
var
x, y, a, c, i, x1, y1, x2, y2 : Integer;
begin
if (FindMSColorTol(x, y, color, tolerance)) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
break;
a := a + 1;
if (a = 1) then
c := c + 1;
if (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end;
if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end;
if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end;
if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
MMouse(x, y, 3, 3)
cx:=x;cy:=y;
wait(10 + random(10));
Result := True;
Break;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
procedure GetSpecLength;
var
c : Integer;
begin
c:= -1;
repeat
SpecLength:= SpecLength + 1;
c:= c + 1;
until(SpecificItems[c] = '')
SpecLength:= SpecLength - 1;
end;
procedure DoBones;
begin
if(BoneBury)then
tol:= 0;
bonebmp := BitmapFromString(27, 20, 'z78DACD55D18EE3200CFC254' +
'2626C3FDA06FEFF93CEC559295136DDF4D2DE6D90AC164218 7B66' +
'0C94A52E196EC4F478A68870FB6BEF8D81AA529D6B962659F 211E' +
'7FF45BE22EC55ABAA48971E3373CA29167D359998FC4B9C5B 4E23' +
'366AD0C0B2B2D276BE629DEAA4A659BFD9F53954552A54B06 EE40' +
'3FC7C8BEA05CB3E99E9ABB65C7DB3BF952C297A2155162626 6AB4' +
'D0F22ACE638EDB6866E0C3CFF101E28FFFC878BA6BC772759 D121' +
'752526C58B014840E3B3D5CC1164CADF519785C5A8B2E9219 B960' +
'2A5428E211C9316E6B18199D657105E116672F9E1CD4D9315 A645' +
'AE0017CC772F39339EA79E65CCF3359DF623BCBE5EFF4A6E4 9AAA' +
'67AC757E8CE06E54BA1EEB13393E57CEF3F843F7D8F487237 73B8' +
'F8C5CBCA49973E821566346270181F04838DA6675BB8477E2 4D77' +
'52B316EA8A5DC83861BA82F3C8C58A707495389D1BCF3CBB0 7264' +
'A2BFB6A8BCDAC9C38C9C4C0208585F991B2A415F3603F3A80 762D' +
'FE7F64F7AA4ACF564FFD3E2A23E2A8DB7536A3B611792121B EEEF' +
'1E771E7D9B853467D9EFBE2CCF5CCD4A9BDDA85AE77CE50DA B657' +
'BFFAFD3B5DE81B1F8DBBCCF58D56C2CBD139EF7FFFCEDE1DC 2E1B' +
'EF52ECB825208D050DFA59FF7DED1E1534A4848BF07E11667 F410' +
'62ECD87E1BC2F72AFCD3F1D3D8FE0087C3AEDF');
repeat
FindItemBmpTol(bonebmp, 20)
MMouse((x + 6), (y + 6), 2, 2);
wait2(50 + random(50));
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
wait2(50 + random(50));
until(not(FindItemBmpTol(bonebmp, 20)))
FreeBitMap(bonebmp);
end;
Procedure Fight;
var
l, tol, col : Integer;
brake : Boolean;
begin
if (Loggedin) then
begin
repeat
if(random(4) + 1 = 1)then
begin
col:= Bonecl;
end else
AttItByColour:=Random(4)
Case AttItByColour Of
1: col:= Color1;
2: col:= Color2;
3: col:= Color3;
4: col:= Color4;
End;
if(not(FindObjective2(x, y, col, tol)))then
begin
tol:= tol + 1;
end else
begin
tol:= 0;
if(isuptext('Take'))or(isuptext('ttack'))then
brake:= True;
if(not(SpecificItems[0] = ''))then
for l:=0 to SpecLength do
begin
if (isuptext(SpecificItems[l]))then
brake:= True;
end;
end;
until(brake = True)or(tol > 40)
if (tol > 40) then
begin
writeln('Timed out');
Logout;
Terminatescript;
end;
if (isuptext('Attack')) then
begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Attacking Monster')
Writeln('')
if(not (Loggedin)) or (WeAreDead) then exit;
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
FFlag(10);
Wait2(2000);
NPCS := NPCS+1;
Players[CurrentPlayer].Killed := Players[CurrentPlayer].Killed+1;
repeat
if(not (Loggedin)) or (WeAreDead) then break;
until ( (not (FindFight)) or (WeAreDead) );
if(not (Loggedin)) then Terminatescript;
if (WeAreDead) then begin Logout; Terminatescript; end;
end else
begin
if(BoneBury)then
if (isuptext('Bones'))and(donttake = False)and(Bonecl > 0) then
begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Picking Up Bones')
Writeln('')
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
wait2(200 + random(200));
bones:= bones + 1;
end;
if(not(SpecificItems[0] = ''))then
for l:=0 to SpecLength do
begin
if (isuptext(SpecificItems[l]))and(donttake = False) then
begin
GetMousePos(x, y);
Mouse(x, y, 3, 3, True);
wait2(200 + random(200));
end;
end;
if(AnyItem)then
if (isuptext('Take'))and(donttake = False)and(not(isuptext('Bones')))and(AnyItem = True) then
begin
GetMousePos(x, y);
Mouse(x, y, 3, 3, True);
wait2(200 + random(200));
end;
if (random(9) + 1 < 3)and(bones > 0)then
begin
Gametab(4);
DoBones;
end;
if(IsChatMessage('You don'))then
begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Burying Bones')
Writeln('')
Gametab(4);
bonebmp := BitmapFromString(27, 20, 'z78DACD55D18EE3200CFC254' +
'2626C3FDA06FEFF93CEC559295136DDF4D2DE6D90AC164218 7B66' +
'0C94A52E196EC4F478A68870FB6BEF8D81AA529D6B962659F 211E' +
'7FF45BE22EC55ABAA48971E3373CA29167D359998FC4B9C5B 4E23' +
'366AD0C0B2B2D276BE629DEAA4A659BFD9F53954552A54B06 EE40' +
'3FC7C8BEA05CB3E99E9ABB65C7DB3BF952C297A2155162626 6AB4' +
'D0F22ACE638EDB6866E0C3CFF101E28FFFC878BA6BC772759 D121' +
'752526C58B014840E3B3D5CC1164CADF519785C5A8B2E9219 B960' +
'2A5428E211C9316E6B18199D657105E116672F9E1CD4D9315 A645' +
'AE0017CC772F39339EA79E65CCF3359DF623BCBE5EFF4A6E4 9AAA' +
'67AC757E8CE06E54BA1EEB13393E57CEF3F843F7D8F487237 73B8' +
'F8C5CBCA49973E821566346270181F04838DA6675BB8477E2 4D77' +
'52B316EA8A5DC83861BA82F3C8C58A707495389D1BCF3CBB0 7264' +
'A2BFB6A8BCDAC9C38C9C4C0208585F991B2A415F3603F3A80 762D' +
'FE7F64F7AA4ACF564FFD3E2A23E2A8DB7536A3B611792121B EEEF' +
'1E771E7D9B853467D9EFBE2CCF5CCD4A9BDDA85AE77CE50DA B657' +
'BFFAFD3B5DE81B1F8DBBCCF58D56C2CBD139EF7FFFCEDE1DC 2E1B' +
'EF52ECB825208D050DFA59FF7DED1E1534A4848BF07E11667 F410' +
'62ECD87E1BC2F72AFCD3F1D3D8FE0087C3AEDF');
repeat
Bones:= Bones + 1;
until(not(FindItemBmpTol(bonebmp, 20)))
if(not(FindItemBmpTol(bonebmp, 20)))then
begin
donttake:= True;
FreeBitMap(bonebmp);
end else
DoBones;
end;
end;
end
end;
Procedure Heal;
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Eating Food')
Writeln('')
Wait(700+Random(200))
If FindColorTolerance(x,y,FoodColor,555,209,743,466,1 0) then
Begin
Wait(25+random(20))
MMouse(x,y,5,5)
Wait(100+Random(200))
If IsTextInAreaEx(0,0,30,22,x,y,'Eat',100,UpChars,Tru e,false,0,1,15198183) then
Begin
GetMousePos(x,y)
MMouse(x,y,1,1)
Mouse(x,y,0,0,true)
End
End;
If not FindColorTolerance(x,y,FoodColor,555,209,743,466,1 0) then
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('No Food Left, Logging Off and Loading Next Player')
Writeln('')
Wait(15000+random(5000))
Mouse(646,480,5,5,true)
Wait(500+random(500))
Mouse(646,373,3,3,true)
Wait(5000+random(2000))
Mouse(646,480,5,5,true)
Wait(500+random(500))
Mouse(646,373,3,3,true)
Wait(160000+Random(160000))
NextPlayer(False);
End;
End;
Procedure LookAtHP;
begin
If Not FindColorTolerance(x,y,2763390,574,172,598,195,10) then
Begin
Mouse(586,186,6,6,true)
wait(1000+random(200))
End;
if (FindBitmapMaskTolerance(P2,x,y,645,206,660,225,10 ,240))then
begin
Status('HP: 20s...')
If HealWhen=2 Then
Begin
Mouse(648,183,3,3,true)
Heal;
End;
end;
if (FindBitmapMaskTolerance(p3,x,y,645,206,660,225,10 ,240))then
begin
Status('HP: 30s...')
if HealWhen=3 Then
Begin
Mouse(648,183,3,3,true)
Heal;
End;
end;
if (FindBitmapMaskTolerance(p4,x,y,645,206,660,225,10 ,240))then
begin
Status('HP: 40s...')
if HealWhen=4 Then
Begin
Mouse(648,183,3,3,true)
Heal;
End;
end;
if (FindBitmapMaskTolerance(p5,x,y,645,206,660,225,10 ,240))then
begin
Status('HP: 50s...')
if HealWhen=5 Then
Begin
Mouse(648,183,3,3,true)
Heal;
End;
end;
if (FindBitmapMaskTolerance(p6,x,y,645,206,660,225,10 ,240))then
begin
Status('HP: 60s...')
if HealWhen=6 Then
Begin
Mouse(648,183,3,3,true)
Heal;
End;
end;
if (FindBitmapMaskTolerance(p7,x,y,645,206,660,225,10 ,240))then
begin
Status('HP: 70s...')
if HealWhen=7 Then
Begin
Mouse(648,183,3,3,true)
Heal;
End;
end;
end;
Procedure Engine;
Begin
HPCount:=HPCOUNT+1
If HPCount=3+Random(3) Then
Begin
If UseFood=True Then
Begin
Writeln('looking at hp')
HPCount:=0
LookAtHP;
End;
End;
Repeat
Wait(20+Random(20))
If FindColorTolerance(x,y,65280,0,0,508,330,10) Then
Begin
Fighting:=True;
End
If Not FindColorTolerance(x,y,65280,0,0,508,330,10) Then
Begin
Fighting:=False;
End
If Fighting=False Then
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Looking For Monster')
Writeln('')
Fight;
End;
If Fighting=True Then
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Starting Random MouseMovements')
Writeln('')
AntiBan2;
End;
Until(False);
End;
Procedure SetFighting;
Begin
Mouse(559,177,7,7,True)
Wait(500+Random(1000))
Case FightMode Of
1:
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Setting Fightmode To 1')
Writeln('')
Status('FightMode = 1')
Mouse(598,285,10,10,true)
Wait(1000+Random(1000))
End;
2:
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Setting Fightmode To 2')
Writeln('')
Status('FightMode = 2')
Mouse(600,325,10,10,true)
Wait(1000+Random(1000))
End;
3:
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Setting Fightmode To 3')
Writeln('')
Status('FightMode = 3')
Mouse(597,366,10,10,true)
Wait(1000+Random(1000))
End;
4:
Begin
Writeln('')
Writeln('')
Writeln('')
Writeln('Setting Fightmode To 4')
Writeln('')
Status('FightMode = 4')
Mouse(600,406,10,10,true)
Wait(1000+Random(1000))
End;
End;
End;
procedure PauseIt;
begin
if(IsKeyDown('p'))then
begin
Status('Paused - Press P to continue')
DisguiseScar('Bl00dFighter Pro By Ollie - Status : Paused')
repeat
Wait(10)
until(IsKeyDown('p'))
DisguiseScar('Bl00dFighter Pro By Ollie')
end;
end;
procedure ExitIt;
begin
if(IsKeyDown('x'))then
begin
stop:= 3;
end;
end;
Procedure Images;
begin
P1 := BitmapFromString(3, 8,
'000000FFFFFF000000FFFFFFFFFFFF000000000000FFFFFF0 00000' +
'000000FFFFFF000000000000FFFFFF000000000000FFFFFF0 00000' +
'000000FFFFFF000000FFFFFFFFFFFFFFFFFF');
P2 := BitmapFromString(5, 8,
'000000FFFFFFFFFFFFFFFFFF000000FFFFFF0000000000000 00000' +
'FFFFFF000000000000000000000000FFFFFF0000000000000 00000' +
'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' +
'000000000000000000FFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF');
P3 := BitmapFromString(4, 8,
'000000FFFFFFFFFFFF000000FFFFFF000000000000FFFFFF0 00000' +
'000000000000FFFFFF000000FFFFFFFFFFFF0000000000000 00000' +
'000000FFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFF000000FFFFFFFFFFFF000000');
P4 := BitmapFromString(4, 8,
'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' +
'000000000000000000FFFFFF000000FFFFFF000000FFFFFF0 00000' +
'FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000F FFFFF' +
'000000000000000000FFFFFF000000');
P5 := BitmapFromString(4, 8,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000F FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000FFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFF000000FFFFFFFFFFFF000000');
P6 := BitmapFromString(5, 8,
'000000000000FFFFFFFFFFFF000000000000FFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFF000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000000000FFFFFF0 00000' +
'FFFFFFFFFFFFFFFFFF000000');
P7 := BitmapFromString(4, 8,
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF0 00000' +
'000000FFFFFF000000000000000000FFFFFF000000000000F FFFFF' +
'000000000000000000FFFFFF000000000000FFFFFF0000000 00000' +
'000000FFFFFF000000000000000000');
end;
procedure MainLoop;
begin
DisguiseScar('Bl00dFighter Pro By Ollie');
repeat
PauseIt;
BenMouse:=True;
Images;
LoginPlayer;
Chatsoff;
StartLVLs := True;
GetLevels;
PauseIt;
ProgressReport;
SetFighting;
Engine;
FindRandoms;
PauseIt;
if (WeAreDead) or (stop=1) then
begin
if (HowManyPlayers > 1) then
begin
Players[CurrentPlayer].Active:= False;
Logout;
NextPlayer(true);
Chatsoff;
end else
Logout;
end;
until(stop=2);
End;
begin
SafeIntForm;
SafeShowBloodModal;
if(Beginloadscript)then SetUpPlayers;
if(Beginloadscript)then ProgressReport;
if(Beginloadscript)then CurrentPlayer := StartPlayer;
if(Beginloadscript)then SetupSRL;
repeat
MainLoop;
ExitIt;
until(stop=3)
end.


'
Reply With Quote






