Results 1 to 7 of 7

Thread: Monk Killer +healer!

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Monk Killer +healer!

    when i run it and while running when scar reads the lines
    107 and 144, i guess the lines which includes
    SCAR Code:
    If Result then Players[CurrentPlayer].Loc:=Where;

    SCAR Code:
    Program LMAO;
    {.Include SRL/SRL.Scar}

    Var
      X, Y : Integer;

    Const
    {=========================]
             Main Const
    [=========================}

    DetailedDebug = True;//True If You Want To See A Full Detailed Debug
    Warning       = False;//Let This...
    {=========================]
           Standard Const
    [=========================}

    MonkColor     = 3234692;//Change This If Having Trouble Finding A Monk


    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers); // set arraylength

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Loc:='Monastery';// let this
      Players[0].Integers[0] := 5; //Monks To Kill
      Players[0].Integers[0] := 5; //Max Time To Kill A Monk
      Players[0].Booleans[0] := True;//True To Heal At Monks

      {Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active:=True;
      Players[1].Integers[0]:=5;//Monks To Kill


      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Active:=True;
      Players[2].Integers[0]:=5;//Monks To Kill


      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Active:=True;
      Players[3].Integers[0]:=5;//Monks To Kill
      }


    end;

    Procedure HW(WaitTime:integer);
    Begin
      Wait(WaitTime)
    End;

    Procedure HWL(TextLine:String);
    Begin
      If DetailedDebug Then Writeln(TextLine);
    End;

    Function AtMonastery:Boolean;//Will Check If The Character Is At Monks Or Not.
    Var
      Monastery:integer;
    Begin
      if Not LoggedIn Then Exit;
      Monastery := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
                 '6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
                 'F125A0260928A347404D2550461BBF1A001D4C1004');
      Result:=DTMRotated(Monastery, X, Y, MMX1, MMY1, MMX2, MMY2);
      FreeDTM(Monastery);
      If Not Result then
      begin
        HWL('Location = Not At The Monastery')
        Result:=FindSymbol(X, Y, 'Water');
      End Else
      HWL('Location = Monastery');
    End;

    Function ToMonastery(Where:string):Boolean;//Will Check If The Character Is At Monks Or Not.
    Var
      DTM:integer;
    Begin
      if Not LoggedIn Then Exit;
      Case LowerCase(Where) of
      'middle'      :DTM := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
                          '6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
                          'F125A0260928A347404D2550461BBF1A001D4C1004');
      'upper left'  :DTM := DTMFromString('78DA638C646260306600034608C5F0EFDF3F8' +
                          '6FF50FE7F2060CC00AAB183C83143D54486CD609044D2C3D80854' +
                          '634B400DC89C78026A9A806A12F0AB0100A1601130');
      'lower left'  :DTM := DTMFromString('78DA638C626260C86500034608C5909994C4F' +
                          '01FCAFF0F048C694035F6103966A89AC8B0190C92487A18EB816A' +
                          '6C08A86906AA8923A0260BA82611BF1A00AD9F0F9D');
      'middle right':DTM := DTMFromString('78DA636C636260086000034608C5909994C4F' +
                          '01FCAFF0F048CE94035A9103966A89AC8B0190C92487A18EB816A' +
                          '9209A84902AA7121A0A61AA8C609BF1A00CC0F0FB1');
      End;
      Result:=DTMRotated(DTM, X, Y, MMX1, MMY1, MMX2, MMY2);
      if Not result then Result:=FindSymbol(X, Y, 'Water');
      If Not Result then HWL('Location = Not At The Monastery') Else HWL('Location = Monastery At The '+Where);
      If Result Then MouseFlag(X, Y, 0, 0);
      If Result then Players[CurrentPlayer].Loc:=Where;
      FreeDTM(DTM);
    End;

    Procedure OtherPlace;
    begin
      Case LowerCase(Players[CurrentPlayer].Loc) of
          'middle':Case Random(3) of
                      0:ToMonastery('Upper Left');
                      1:ToMonastery('Upper Left');
                      2:ToMonastery('Lower Left');
                      3:ToMonastery('Lower Left');
                    end;
          'lower left':Case Random(2) of
                         0:ToMonastery('Middle');
                         1:ToMonastery('Middle Right');
                         2:ToMonastery('Middle');
                         End;
          'upper left':Case Random(2) of
                         0:ToMonastery('Middle');
                         1:ToMonastery('Middle Right');
                         2:ToMonastery('Middle');
                         End;

          'middle right':Case Random(3) of
                           0:ToMonastery('Upper Left');
                           1:ToMonastery('Upper Left');
                           2:ToMonastery('Lower Left');
                           3:ToMonastery('Lower Left');
                         end;
        End;
    End;


    Function Heal:Boolean;//Will Heal At Monks.
    Begin
      if Not LoggedIn Then Exit;
      If Players[CurrentPlayer].Booleans[0]Then//If You Want To Get Healt When Fighting Then It Will Heal.
      Begin
        OtherPlace;
      End;
    End;


    Function FindMonk:Boolean;//This Finds The Monk Using Tpa.
    Var
      MonkTpa: TpointArray;
      Monk: T2DPointArray;
      XX, YY, H, CTS, I, Timer:Integer;
    Begin
      MouseSpeed:=20;
      Timer:=GetSystemTime;
      if not LoggedIn Then Exit;
      CTS := GetColorToleranceSpeed;
      If not CTS = 2 Then ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(XX, YY, MonkTPA, MonkColor, MSX1 + 15, MSY1 + 15, MSX2 - 15, MSY2 - 15, 5);
      Monk:= TPAtoATPAEx(MonkTPA, 25, 35);
      H:=High(Monk);
      For I := 0 To H Do
      Begin
        MiddleTPAEx(Monk[i], X, Y);
        HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Find The Monk.');
        MMouse(X, Y, 3, 3);
        Hw(50+random(25));
        Result:=IsUpText('onk');
        If Result Then Break;
        Wait(100 + Random(50));
      End;
      If Not result Then HWL('Monk Not Found.');
      If Result Then HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Move To The Monk And Check UpText.');
      ColorToleranceSpeed(CTS);
      MouseSpeed:=15;
    End;


    Function FightMonk:Boolean;
    Begin
      if Not LoggedIn Then Exit;

    End;


    Procedure SetUpPlayer;
    Begin
      If Not LoggedIn Then Exit;

    End;


    Procedure SetUpClient;
    Var
      MaxTime :Integer;
    Begin
      If Warning then
      begin
        MaxTime:= 0;
        MarkTime(MaxTime);
        ClearDebug;
        Repeat
          Writeln('');
          Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
          Writeln('This Script Haves Healing But Level < 10s Will Die');
          Writeln('');
          wait(500);
          ClearDebug;
          Wait(500);
        Until(timeFromMark(MaxTime)>2500);
        ClearDebug;
        Writeln('');
        Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
        Writeln('This Script Haves Healing But Level < 10s Will Die');
        Writeln('');
        Wait(5000);
        ClearDebug;
        Writeln('To Turn This Warning Off Set Warning In The Main Const To False, Thank You.');
        Writeln('If You Turn The Warning To Off(False) The Script Will Run');
        Writeln('If You Do Not Know How Go Cry...');
        Writeln('');
        Writeln('');
        Writeln('');
        Writeln('');
        Writeln('I Hope You Will Enjoy This Script!');
      end else
        ActivateClient;
        //DeclarePlayers;
    End;
    {=========================]
             MainLoop
    [=========================}

    Begin
      SetUpSRL;
      SetupClient;
      AtMonastery;
      FindMonk;
      ToMonastery('Middle');
      FindMonk;
      ToMonastery('Upper Left');
      FindMonk;
      ToMonastery('Lower Left');
      FindMonk;
      ToMonastery('Middle Right');
      Repeat
        Heal;
      Until False
    End.
    Could you fix this for me? thanks!
    ~Hermen

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I told u already...

    SCAR Code:
    Program LMAO;
    {.Include SRL/SRL.Scar}
     
    Var
      X, Y : Integer;
     
    Const
    {=========================]
             Main Const
    [=========================}

    DetailedDebug = True;//True If You Want To See A Full Detailed Debug
    Warning       = False;//Let This...
    {=========================]
           Standard Const
    [=========================}

    MonkColor     = 3234692;//Change This If Having Trouble Finding A Monk
     
     
    procedure DeclarePlayers;
    begin
      NumberOfPlayers(1);
     
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Loc:='Monastery';// let this
      Players[0].Integers[0] := 5; //Monks To Kill
      Players[0].Integers[0] := 5; //Max Time To Kill A Monk
      Players[0].Booleans[0] := True;//True To Heal At Monks
     
      {Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active:=True;
      Players[1].Integers[0]:=5;//Monks To Kill
     
     
      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Active:=True;
      Players[2].Integers[0]:=5;//Monks To Kill
     
     
      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Active:=True;
      Players[3].Integers[0]:=5;//Monks To Kill
      }

     
    end;
     
    Procedure HW(WaitTime:integer);
    Begin
      Wait(WaitTime)
    End;
     
    Procedure HWL(TextLine:String);
    Begin
      If DetailedDebug Then Writeln(TextLine);
    End;
     
    Function AtMonastery:Boolean;//Will Check If The Character Is At Monks Or Not.
    Var
      Monastery:integer;
    Begin
      if Not LoggedIn Then Exit;
      Monastery := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
                 '6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
                 'F125A0260928A347404D2550461BBF1A001D4C1004');
      Result:=DTMRotated(Monastery, X, Y, MMX1, MMY1, MMX2, MMY2);
      FreeDTM(Monastery);
      If Not Result then
      begin
        HWL('Location = Not At The Monastery')
        Result:=FindSymbol(X, Y, 'Water');
      End Else
      HWL('Location = Monastery');
    End;
     
    Function ToMonastery(Where:string):Boolean;//Will Check If The Character Is At Monks Or Not.
    Var
      DTM:integer;
    Begin
      if Not LoggedIn Then Exit;
      Case LowerCase(Where) of
      'middle'      :DTM := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
                          '6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
                          'F125A0260928A347404D2550461BBF1A001D4C1004');
      'upper left'  :DTM := DTMFromString('78DA638C646260306600034608C5F0EFDF3F8' +
                          '6FF50FE7F2060CC00AAB183C83143D54486CD609044D2C3D80854' +
                          '634B400DC89C78026A9A806A12F0AB0100A1601130');
      'lower left'  :DTM := DTMFromString('78DA638C626260C86500034608C5909994C4F' +
                          '01FCAFF0F048C694035F6103966A89AC8B0190C92487A18EB816A' +
                          '6C08A86906AA8923A0260BA82611BF1A00AD9F0F9D');
      'middle right':DTM := DTMFromString('78DA636C636260086000034608C5909994C4F' +
                          '01FCAFF0F048CE94035A9103966A89AC8B0190C92487A18EB816A' +
                          '9209A84902AA7121A0A61AA8C609BF1A00CC0F0FB1');
      End;
      Result:=DTMRotated(DTM, X, Y, MMX1, MMY1, MMX2, MMY2);
      if Not result then Result:=FindSymbol(X, Y, 'Water');
      If Not Result then HWL('Location = Not At The Monastery') Else HWL('Location = Monastery At The '+Where);
      If Result Then MouseFlag(X, Y, 0, 0);
      If Result then Players[CurrentPlayer].Loc:=Where;
      FreeDTM(DTM);
    End;
     
    Procedure OtherPlace;
    begin
      Case LowerCase(Players[CurrentPlayer].Loc) of
          'middle':Case Random(3) of
                      0:ToMonastery('Upper Left');
                      1:ToMonastery('Upper Left');
                      2:ToMonastery('Lower Left');
                      3:ToMonastery('Lower Left');
                    end;
          'lower left':Case Random(2) of
                         0:ToMonastery('Middle');
                         1:ToMonastery('Middle Right');
                         2:ToMonastery('Middle');
                         End;
          'upper left':Case Random(2) of
                         0:ToMonastery('Middle');
                         1:ToMonastery('Middle Right');
                         2:ToMonastery('Middle');
                         End;
     
          'middle right':Case Random(3) of
                           0:ToMonastery('Upper Left');
                           1:ToMonastery('Upper Left');
                           2:ToMonastery('Lower Left');
                           3:ToMonastery('Lower Left');
                         end;
        End;
    End;
     
     
    Function Heal:Boolean;//Will Heal At Monks.
    Begin
      if Not LoggedIn Then Exit;
      If Players[CurrentPlayer].Booleans[0]Then//If You Want To Get Healt When Fighting Then It Will Heal.
      Begin
        OtherPlace;
      End;
    End;
     
     
    Function FindMonk:Boolean;//This Finds The Monk Using Tpa.
    Var
      MonkTpa: TpointArray;
      Monk: T2DPointArray;
      XX, YY, H, CTS, I, Timer:Integer;
    Begin
      MouseSpeed:=20;
      Timer:=GetSystemTime;
      if not LoggedIn Then Exit;
      CTS := GetColorToleranceSpeed;
      If not CTS = 2 Then ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(XX, YY, MonkTPA, MonkColor, MSX1 + 15, MSY1 + 15, MSX2 - 15, MSY2 - 15, 5);
      Monk:= TPAtoATPAEx(MonkTPA, 25, 35);
      H:=High(Monk);
      For I := 0 To H Do
      Begin
        MiddleTPAEx(Monk[i], X, Y);
        HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Find The Monk.');
        MMouse(X, Y, 3, 3);
        Hw(50+random(25));
        Result:=IsUpText('onk');
        If Result Then Break;
        Wait(100 + Random(50));
      End;
      If Not result Then HWL('Monk Not Found.');
      If Result Then HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Move To The Monk And Check UpText.');
      ColorToleranceSpeed(CTS);
      MouseSpeed:=15;
    End;
     
     
    Function FightMonk:Boolean;
    Begin
      if Not LoggedIn Then Exit;
     
    End;
     
     
    Procedure SetUpPlayer;
    Begin
      If Not LoggedIn Then Exit;
     
    End;
     
     
    Procedure SetUpClient;
    Var
      MaxTime :Integer;
    Begin
      If Warning then
      begin
        MaxTime:= 0;
        MarkTime(MaxTime);
        ClearDebug;
        Repeat
          Writeln('');
          Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
          Writeln('This Script Haves Healing But Level < 10s Will Die');
          Writeln('');
          wait(500);
          ClearDebug;
          Wait(500);
        Until(timeFromMark(MaxTime)>2500);
        ClearDebug;
        Writeln('');
        Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
        Writeln('This Script Haves Healing But Level < 10s Will Die');
        Writeln('');
        Wait(5000);
        ClearDebug;
        Writeln('To Turn This Warning Off Set Warning In The Main Const To False, Thank You.');
        Writeln('If You Turn The Warning To Off(False) The Script Will Run');
        Writeln('If You Do Not Know How Go Cry...');
        Writeln('');
        Writeln('');
        Writeln('');
        Writeln('');
        Writeln('I Hope You Will Enjoy This Script!');
      end else
        ActivateClient;
        //DeclarePlayers;
    End;
    {=========================]
             MainLoop
    [=========================}

    Begin
      SetUpSRL;
      SetupClient;
      AtMonastery;
      FindMonk;
      ToMonastery('Middle');
      FindMonk;
      ToMonastery('Upper Left');
      FindMonk;
      ToMonastery('Lower Left');
      FindMonk;
      ToMonastery('Middle Right');
      Repeat
        Heal;
      Until False
    End.

  3. #3
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Needs to be a string instead of a non-string
    Hope I Hhelped

  4. #4
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Timer View Post
    I told u already...

    SCAR Code:
    Program LMAO;
    {.Include SRL/SRL.Scar}
     
    Var
      X, Y : Integer;
     
    Const
    {=========================]
             Main Const
    [=========================}

    DetailedDebug = True;//True If You Want To See A Full Detailed Debug
    Warning       = False;//Let This...
    {=========================]
           Standard Const
    [=========================}

    MonkColor     = 3234692;//Change This If Having Trouble Finding A Monk
     
     
    procedure DeclarePlayers;
    begin
      NumberOfPlayers(1);
     
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Loc:='Monastery';// let this
      Players[0].Integers[0] := 5; //Monks To Kill
      Players[0].Integers[0] := 5; //Max Time To Kill A Monk
      Players[0].Booleans[0] := True;//True To Heal At Monks
     
      {Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active:=True;
      Players[1].Integers[0]:=5;//Monks To Kill
     
     
      Players[2].Name :='';
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Active:=True;
      Players[2].Integers[0]:=5;//Monks To Kill
     
     
      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Active:=True;
      Players[3].Integers[0]:=5;//Monks To Kill
      }

     
    end;
     
    Procedure HW(WaitTime:integer);
    Begin
      Wait(WaitTime)
    End;
     
    Procedure HWL(TextLine:String);
    Begin
      If DetailedDebug Then Writeln(TextLine);
    End;
     
    Function AtMonastery:Boolean;//Will Check If The Character Is At Monks Or Not.
    Var
      Monastery:integer;
    Begin
      if Not LoggedIn Then Exit;
      Monastery := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
                 '6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
                 'F125A0260928A347404D2550461BBF1A001D4C1004');
      Result:=DTMRotated(Monastery, X, Y, MMX1, MMY1, MMX2, MMY2);
      FreeDTM(Monastery);
      If Not Result then
      begin
        HWL('Location = Not At The Monastery')
        Result:=FindSymbol(X, Y, 'Water');
      End Else
      HWL('Location = Monastery');
    End;
     
    Function ToMonastery(Where:string):Boolean;//Will Check If The Character Is At Monks Or Not.
    Var
      DTM:integer;
    Begin
      if Not LoggedIn Then Exit;
      Case LowerCase(Where) of
      'middle'      :DTM := DTMFromString('78DA63CC676260B06100034608C5B07DD36A8' +
                          '6FF50FE7F2060AC01AAF186C83141D54486CD609044D2C3980294' +
                          'F125A0260928A347404D2550461BBF1A001D4C1004');
      'upper left'  :DTM := DTMFromString('78DA638C646260306600034608C5F0EFDF3F8' +
                          '6FF50FE7F2060CC00AAB183C83143D54486CD609044D2C3D80854' +
                          '634B400DC89C78026A9A806A12F0AB0100A1601130');
      'lower left'  :DTM := DTMFromString('78DA638C626260C86500034608C5909994C4F' +
                          '01FCAFF0F048C694035F6103966A89AC8B0190C92487A18EB816A' +
                          '6C08A86906AA8923A0260BA82611BF1A00AD9F0F9D');
      'middle right':DTM := DTMFromString('78DA636C636260086000034608C5909994C4F' +
                          '01FCAFF0F048CE94035A9103966A89AC8B0190C92487A18EB816A' +
                          '9209A84902AA7121A0A61AA8C609BF1A00CC0F0FB1');
      End;
      Result:=DTMRotated(DTM, X, Y, MMX1, MMY1, MMX2, MMY2);
      if Not result then Result:=FindSymbol(X, Y, 'Water');
      If Not Result then HWL('Location = Not At The Monastery') Else HWL('Location = Monastery At The '+Where);
      If Result Then MouseFlag(X, Y, 0, 0);
      If Result then Players[CurrentPlayer].Loc:=Where;
      FreeDTM(DTM);
    End;
     
    Procedure OtherPlace;
    begin
      Case LowerCase(Players[CurrentPlayer].Loc) of
          'middle':Case Random(3) of
                      0:ToMonastery('Upper Left');
                      1:ToMonastery('Upper Left');
                      2:ToMonastery('Lower Left');
                      3:ToMonastery('Lower Left');
                    end;
          'lower left':Case Random(2) of
                         0:ToMonastery('Middle');
                         1:ToMonastery('Middle Right');
                         2:ToMonastery('Middle');
                         End;
          'upper left':Case Random(2) of
                         0:ToMonastery('Middle');
                         1:ToMonastery('Middle Right');
                         2:ToMonastery('Middle');
                         End;
     
          'middle right':Case Random(3) of
                           0:ToMonastery('Upper Left');
                           1:ToMonastery('Upper Left');
                           2:ToMonastery('Lower Left');
                           3:ToMonastery('Lower Left');
                         end;
        End;
    End;
     
     
    Function Heal:Boolean;//Will Heal At Monks.
    Begin
      if Not LoggedIn Then Exit;
      If Players[CurrentPlayer].Booleans[0]Then//If You Want To Get Healt When Fighting Then It Will Heal.
      Begin
        OtherPlace;
      End;
    End;
     
     
    Function FindMonk:Boolean;//This Finds The Monk Using Tpa.
    Var
      MonkTpa: TpointArray;
      Monk: T2DPointArray;
      XX, YY, H, CTS, I, Timer:Integer;
    Begin
      MouseSpeed:=20;
      Timer:=GetSystemTime;
      if not LoggedIn Then Exit;
      CTS := GetColorToleranceSpeed;
      If not CTS = 2 Then ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(XX, YY, MonkTPA, MonkColor, MSX1 + 15, MSY1 + 15, MSX2 - 15, MSY2 - 15, 5);
      Monk:= TPAtoATPAEx(MonkTPA, 25, 35);
      H:=High(Monk);
      For I := 0 To H Do
      Begin
        MiddleTPAEx(Monk[i], X, Y);
        HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Find The Monk.');
        MMouse(X, Y, 3, 3);
        Hw(50+random(25));
        Result:=IsUpText('onk');
        If Result Then Break;
        Wait(100 + Random(50));
      End;
      If Not result Then HWL('Monk Not Found.');
      If Result Then HWL('Took '+ IntToStr(GetSystemTime - Timer) +' MiliSecs To Move To The Monk And Check UpText.');
      ColorToleranceSpeed(CTS);
      MouseSpeed:=15;
    End;
     
     
    Function FightMonk:Boolean;
    Begin
      if Not LoggedIn Then Exit;
     
    End;
     
     
    Procedure SetUpPlayer;
    Begin
      If Not LoggedIn Then Exit;
     
    End;
     
     
    Procedure SetUpClient;
    Var
      MaxTime :Integer;
    Begin
      If Warning then
      begin
        MaxTime:= 0;
        MarkTime(MaxTime);
        ClearDebug;
        Repeat
          Writeln('');
          Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
          Writeln('This Script Haves Healing But Level < 10s Will Die');
          Writeln('');
          wait(500);
          ClearDebug;
          Wait(500);
        Until(timeFromMark(MaxTime)>2500);
        ClearDebug;
        Writeln('');
        Writeln('Make Sure That Your Accounts Are High Enough To Fight The Monks,');
        Writeln('This Script Haves Healing But Level < 10s Will Die');
        Writeln('');
        Wait(5000);
        ClearDebug;
        Writeln('To Turn This Warning Off Set Warning In The Main Const To False, Thank You.');
        Writeln('If You Turn The Warning To Off(False) The Script Will Run');
        Writeln('If You Do Not Know How Go Cry...');
        Writeln('');
        Writeln('');
        Writeln('');
        Writeln('');
        Writeln('I Hope You Will Enjoy This Script!');
      end else
        ActivateClient;
        //DeclarePlayers;
    End;
    {=========================]
             MainLoop
    [=========================}

    Begin
      SetUpSRL;
      SetupClient;
      AtMonastery;
      FindMonk;
      ToMonastery('Middle');
      FindMonk;
      ToMonastery('Upper Left');
      FindMonk;
      ToMonastery('Lower Left');
      FindMonk;
      ToMonastery('Middle Right');
      Repeat
        Heal;
      Until False
    End.
    I told you already... that that is not working i copied your script into a scar not working -.- out of range error again

    @laq, what do you mean? it is a string?!
    ~Hermen

  5. #5
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    I didn't try to compile, but uncomment the DeclarePlayers so you wont be getting runtime errors for operating the playerarray...

  6. #6
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    I didn't try to compile, but uncomment the DeclarePlayers so you wont be getting runtime errors for operating the playerarray...
    i know what you mean the funny thing guys i fixed it i had // before declareplayers; :S
    ~Hermen

  7. #7
    Join Date
    Nov 2008
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I hope this works :O
    really need a mon killer
    thanks matee

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. monk killer script
    By jeffreytuner in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 06-06-2007, 12:55 PM
  2. Monk Fighter & Healer Beta
    By da_professa in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 12-29-2006, 06:48 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
  •