Results 1 to 17 of 17

Thread: Scirpt error in fighting script need help please

  1. #1
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Scirpt error in fighting script need help please

    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.

  2. #2
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    All you have to do is call the procedure something else..

  3. #3
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i change it to something else i get tones of other errors i must be chaging it wrong please help

  4. #4
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't know forms 100%. But I saw that you had a lot of other errors not including that, like unknown identifier FindFrog; in script and things like that. Please post the errors that you are having and I'll help you out

  5. #5
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I get like 15 errors after that one could you please fix them all and then post the script when it had no errors i would greatly appreciate it.

  6. #6
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just fixed it.. and it's something you could do yourself so I'm not going to post it for you. You have some spaces between things like tru e, when its supposed to be true. You have 1 0, when its supposed to be 10....etc. And for your Wait2 function and things like that, you are calling them things that are already in SRL so you can't name them that.. just name those differently and fix your typos and you'll be good. I'm having a hard time believing you made some of this, if not any of it at all..

  7. #7
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats sweet that you got it to run man but can't when i fix all the errors it sais succeslly complied and then freezes for 2 minutes then i get this error.
    [Runtime Error] : Could not call proc in line 215 in script

  8. #8
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmmm... interesting. Never got that error before, sorry, can't help you there XD

  9. #9
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe its because i delete the frog random is there something i can do so i don't have delete that one thanx.

  10. #10
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You don't need it in there in the first place, along with all the other ones lol all you need is FindNormalRandoms to solve frogs, talking randoms if you did the nicknameBMP thing, lunch lady, mystery box....etc.

  11. #11
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would greatly appreciate it if you could pot the working script man i really wana try it out

  12. #12
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    could someone please post the working script here please i will love you

  13. #13
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You did not make this script did you....? And I want you to try to figure it out instead of people helping you fix 25 errors. 1-2 errors at a time is fine, but if you have this many errors, I don't even think you wrote this.. (Please don't take offense if I'm wrong..)

  14. #14
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no man i never wrote this i just started learning how to script 3 days ago i just want a fightig script that is good pleaseeeee did you test it yet how is it man any good?

  15. #15
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use dawu autofighter. And please edit your top post and put the script in code tags.
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

  16. #16
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have tried dawu its good but not fast enough for my likings i was a script that is like a human olmost anybody willing to help?

  17. #17
    Join Date
    Nov 2006
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    anyone?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Fighting script
    By Bobzilla69 in forum First Scripts
    Replies: 4
    Last Post: 09-10-2007, 07:36 PM
  2. i need 1 simple scirpt
    By corl455 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 08-21-2007, 05:40 PM
  3. What's the BEST Fighting script for SCAR 2.03 / SRL 3.6?
    By gillian in forum News and General
    Replies: 11
    Last Post: 06-14-2007, 07:43 AM

Posting Permissions

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