Page 97 of 207 FirstFirst ... 47879596979899107147197 ... LastLast
Results 2,401 to 2,425 of 5164

Thread: Narcle's Fast Fighter!

  1. #2401
    Join Date
    Jan 2009
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here's my last test for ya man. =)

    SCAR Code:
    ***************************************************
    | Fast Fighter v3.02    | 8h:11m:50s              |
    ***************************************************
    | Total Kills: 1441     | Total XP: 98592         |
    | XP/hour: 12048        | Food Ate: 9             |
    | Round Kills: 39       | Round XP : 1312         |
    | Ammo Remain: 8030     | Ammo used: 1745         |
    | Ammo Used/hour: 213   |                         |
    ***************************************************

    I really don't have any feedback for this kind of version. I'll be testing the banking one after. Only problems I had were a few randoms, but thats SRL fault.
    ~Will test any script and post feedback at your leisure~

  2. #2402
    Join Date
    Jan 2009
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Hey

    My bot logs me out after like 1 hour of botting... can somebady tell me why?

  3. #2403
    Join Date
    Jan 2009
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you please post your script and we'll see whats wrong.
    ~Will test any script and post feedback at your leisure~

  4. #2404
    Join Date
    Jan 2009
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {------------------------------Script Info-------------------------------------|
    | ScriptName   = Fast Fighter                                                  |
    | Author       = Narcle                                                        |
    | Description  = Fights any monster, food eating and HP regen.                 |
    | Version      = 3.02                                                          |
    | Date         = 11/03/08                                                      |
    |______________________________________________________________________________|
    |----------------------Instructions, Credits & Help info-----=-----------------|
    |                                                                              |
    | Instructions:                                                                |
    |   Setup: 1. Select form or no form [In constants - true/false]               |
    |          2. Input SRL-stats ID & Password [In constants]                     |
    |          3. Get a HP count of monster for form.                              |
    |          4. Make sure you use the Color picker and select 3 colors           |
    |               from monster, and copy/paste them into notepad.                |
    |          5. Read the "Need to knows" below.                                  |
    |          6. Push play!                                                       |
    |                                                                              |
    |          Need to knows:                                                      |
    |          -In the player form; (default) is next to each option, meaning      |
    |             you can leave it blank if you want it to use default settings.   |
    |          -Options for "Skill to train" are > strength, attack, defence,      |
    |             even, pure, accurate, rapid or longrange <                       |
    |                                                                              |
    | Credits:                                                                     |
    |  -HyperSecret for posting his SecretFighter (v0.50) script                   |
    |  -Chitin & Cruel100 for Testing and Suggestions                              |
    |______________________________________________________________________________}

    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/misc/Users.scar}
    {------------------------------------------------------------------------------}
    {===============================Player Setup===================================}
    {------------------------------------------------------------------------------}
    Const
      MySRLID       = '';//example: '9999'
      MySRLPassword = '';//example: 'password'

      UseForm     = true;//Use form? [true/false] False uses DeclarePlayers;

    {==============================================================================}
    {!!!!!       If UseForm = true; then DeclarePlayers does not APPLY!       !!!!!}
    {==============================================================================}
    procedure DeclarePlayers;
    begin
      if not(UseForm) then
      begin
        HowManyPlayers := 1;//Change this accordingly
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
     
        Players[0].Name :=''; //Character Name
        Players[0].Pass :=''; //Character Pass
        Players[0].Nick :=''; //Nickname 3 - 4 Letter's of char name
        Players[0].Active := True; //True if you want this player to be ran in the script, false if not
        Players[0].Booleans[0] := true;//Eat food? true/false
        Players[0].Integers[0] := 0;//1st color of monster
        Players[0].Integers[1] := 0;//2nd color of monster
        Players[0].Integers[2] := 0;//3rd color of monster
        Players[0].Strings[0] := '';//monster name
        Players[0].Strings[1] := ''; //the skill you want to train > strength, attack, defence, pure, even, accurate, rapid or longrange <

      {
        Players[1].Name :='';
        Players[1].Pass :='';
        Players[1].Nick :='';
        Players[1].Active:=True;
        Players[1].Booleans[0] := false;//Eat food? true/false
        Players[1].Integers[0] := 0;//1st color of monster
        Players[1].Integers[1] := 0;//2nd color of monster
        Players[1].Integers[2] := 0;//3rd color of monster
        Players[1].Strings[0] := '';//monster name
        Players[1].Strings[1] := 'even'; //the skill you want to train
      }

      {
        Players[2].Name :='';
        Players[2].Pass :='';
        Players[2].Nick :='';
        Players[2].Active:=True;
        Players[2].Booleans[0] := false;//Eat food? true/false
        Players[2].Integers[0] := 0;//1st color of monster
        Players[2].Integers[1] := 0;//2nd color of monster
        Players[2].Integers[2] := 0;//3rd color of monster
        Players[2].Strings[0] := '';//monster name
        Players[2].Strings[1] := 'even'; //the skill you want to train
      }

      {
        Players[3].Name :='';
        Players[3].Pass :='';
        Players[3].Nick :='';
        Players[3].Active:=True;
        Players[3].Booleans[0] := false;//Eat food? true/false
        Players[3].Integers[0] := 0;//1st color of monster
        Players[3].Integers[1] := 0;//2nd color of monster
        Players[3].Integers[2] := 0;//3rd color of monster
        Players[3].Strings[0] := '';//monster name
        Players[3].Strings[1] := 'even'; //the skill you want to train
      }


    {------------------------------------------------------------------------------}
    {========================Don't edit below this!===============================}
    {------------------------------------------------------------------------------}
      Writeln('No-Form Setup');
      end else
      begin
        Writeln('Form Setup, "DeclarePlayers" does not apply.');
        SRLPlayerForm(True, ['Eat Food'], ['Color 1','Color 2','Color 3'], ['Monster Name (tac)', 'Skill to train (even)'], []);
      end;
    end;

    const
      Version = '3.02';
      ScriptName = 'Fast Fighter';
     
    Type
      FUsers = Record
        Melee, Range, Magic, Setup, OutOfFood: Boolean;
        Combat: array of array of string;
        SkillIs, MobName: string;
        Colors: array of integer;
      end;
     
    var
      NAF: array [0..99] of FUsers;
      TKilled, Txp, TFoodate, TArrowAmount, StartXP, ArrowStartAmount, AttackFailed: integer;//Counters
      RoundTimer, FailTimer, LogoutTime: integer;//Timers
     
    procedure LogoutSeq(reason:string); forward;

    procedure NarclesINI;
    begin
      SRLid:= MySRLId;
      SRLpassword:= MySRLPassword;
      if not (MySRLID = '') and not(MySRLPassword = '') then
      begin
        if (ReadINI('NarclesINI', 'SRLid', AppPath+'Chars.ini')='') then
        begin
          writeln('#@ Your SRL id & password for SRL-stats has been stored in Chars.ini');
          writeln('## To update this just put in new MySRLid & MySRLpassword and push play');
          writeln('## After this is done you won''t have to put it in again for newer versions');
        end;
        WriteINI('NarclesINI', 'SRLid', MySRLID, AppPath+'Chars.ini');
        WriteINI('NarclesINI', 'SRLpassword', MySRLPassword, AppPath+'Chars.ini');
      end;
      if not(ReadINI('NarclesINI', 'SRLid', AppPath+'Chars.ini')='') then
      begin
        SRLid := ReadINI('NarclesINI', 'SRLid', AppPath+'Chars.ini');
        SRLPassword := ReadINI('NarclesINI', 'SRLpassword', AppPath+'Chars.ini');
        writeln('#@ SRL id & password loaded from ini file.');
      end;
    end;

    function StrInArr(Str: string; StrArr: TStringArray): Boolean;
    var
      i, H, L: integer;
    begin
      L := Low(StrArr);
      H := High(StrArr);
      for i := L to H do
        if Pos(LowerCase(Str), LowerCase(StrArr[i])) > 0 then
        begin
          Result := true;
          Exit;
        end;
    end;

    Function FFWait(Time: Integer): Boolean;
    var
      T: Integer;
    begin
      if not(loggedin) then exit;
      for T := 1 to time do
      begin
        if FindNormalRandoms then
        begin
           FindInventoryRandoms;
           Result := true;
        end;
        if FindTalk then
         Result := True;
        Wait(200 + Random(50));
      end;
    end;

    function InFight: Boolean;
    var
      x, y : Integer;
    begin
      Result := (FindColor(x, y, 65280, 242, 142, 283, 158)
        or FindColor(x, y, 255, 242, 142, 283, 158));
    end;

    function FightOnScreen: Boolean;
    var
      x,y:integer;
      B:TBox;
    begin
      B:=IntToBox(240, 140, 285, 160);
      result := FindColorSkipBox(x, y, 65280, MSX1, MSY1, MSX2, MSY2, B) or
        FindColorSkipBox(x, y, 255, MSX1, MSY1, MSX2, MSY2, B);
    end;

    Function MobsOnScreen: integer;
    var
      i: integer;
      Mobs : TPointArray;
    begin
      FindColorsTolerance(Mobs, 195836, 598, 67, 656, 105, 0);
      if High(Mobs) > 0 then
      begin
        RAaSTPA(Mobs, 4);
        for i := 0 to High(Mobs) do
        If InAbstractBox(590, 60, 656, 60, 646, 102, 600, 102, Mobs[i].x, Mobs[i].y) then
        begin
          result := result + 1;
        end;
      end;
    end;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(58) of
        0: wait(500+random(3000));
        1: begin
             RandomMovement;
             SetAngle(true);
           end;
        2: HoverSkill(NAF[CurrentPlayer].SkillIs ,false);
        3: PickUpMouse;
      end;
    end;


    function GetArrowCount:integer;
    begin
      GameTab(5);
      result := GetAmount(666, 249);
    end;

    function MyEatFood:boolean;
    var
      i,x,y:integer;
    begin
      gametab(4);
      for i := 1 to 28 do
      if ExistsItem(i) then
      begin
        MMouseItem(i);
        GetMousePos(x, y);
        wait(150+random(50));
        if (pos('Eat', rs_GetUpText) > 0) then
        begin
          Mouse(x,y,0,0,false);
          wait(50+random(50));
          if ChooseOption('Eat') then
          begin
            wait(350+random(150));
            Result := true;
            Exit;
          end;
        end;
      end;
    end;

    procedure HpCheck;
    var
      c:Integer;
      RunDir: String;
    begin
      if (not LoggedIn) or (HPPercent > 50) then
        Exit;
      if (HPPercent < 50) then
      begin
        Status('HP low doing HP checks...');
        if (Players[CurrentPlayer].Booleans[0]) and not (NAF[CurrentPlayer].OutOfFood) then
        begin
          if not InvEmpty then
            for c := 0 to 2 do
            begin
              if MyEatFood then
                Inc(ReportVars[2]);
              if (not LoggedIn) or (HPPercent > 50) then
                Exit;
            end;
          NAF[CurrentPlayer].OutOfFood := true;
        end;
        if not (Players[CurrentPlayer].Booleans[0]) or (NAF[CurrentPlayer].OutOfFood) then
        begin
          if (HPPercent < 25) then
            if (InFight) then
            begin
              RunDir := 'nsew';
              Status('Running away HP% < 25...');
              RunAway(RunDir[random(4)+1], true, 1, 10000 + random(2000));
            end;
          repeat
            Status('HP is ' + inttostr(HPPercent) + '%');
            FFWait(4);
            case random(5) of
              0: BoredHuman;
              1: RandomMovement;
            end;
            MarkTime(FailTimer);
            if not LoggedIn or (GetSystemTime > LogoutTime) then
              Exit;
          until (HPPercent > 50);
          SetAngle(true);
        end;
      end;
    end;

    procedure WaitFight;
    Var
      T: integer;
    begin
      Status('Waiting for Fight...');
      if NAF[CurrentPlayer].Range then
        T := GetSystemTime - 12000
      else
        T := GetSystemTime;
      while not InFight and (TimeFromMark(T) < 6000) do wait(100);
      Status('Fighting...');
      repeat
        FFWait(1);
        HpCheck;
      until(not InFight) or (not FightOnScreen) or (not LoggedIn)
    end;

    procedure Report;
    Var
      AmmoPerHour, XPpH, CurXP, CurAU, CurAmmo, I,H,M,S:integer;
    begin
      if not(LoggedIn) then
        LoginPlayer;
      WaitFight;
      ConvertTime(GetTimeRunning, H, M, S);
      GetAllLevels;
      CurXP := GetXP(NAF[CurrentPlayer].SkillIs);
      if (CurXP > StartXP) then
        ReportVars[1] := CurXP-Startxp;
      ReportVars[0] := Round(ReportVars[0]*0.7);//Miss Click rate
      TKilled := TKilled + ReportVars[0];//Total Kills
      Txp := Txp + ReportVars[1];//Total XP
      TFoodate := TFoodate + ReportVars[2];//Total Food Ate
      if NAF[CurrentPlayer].Range then
      begin
        CurAmmo := GetArrowCount;
        if (ArrowStartAmount > CurAmmo) then
         CurAU := ArrowStartAmount - CurAmmo;
        TArrowAmount := TArrowAmount + CurAU;
        AmmoPerHour := Round( TArrowAmount / (H+M/60.0) );
      end;
      if (HowManyPlayers = 1) then
      begin
        XPpH := Round( Txp / (H+M/60.0) );//XP per Hour
        Cleardebug;
        Writeln('***************************************************');
        Writeln(Padr('| Fast Fighter v'+Version, 23) +' | '+ Padr(inttostr(H) + 'h:' + inttostr(M) + 'm:' + inttostr(S)+'s', 23)+ ' |');
        Writeln('***************************************************');
        WriteLn(Padr('| Total Kills: ' + inttostr(TKilled), 23)+' | '+ Padr('Total XP: ' + inttostr(Txp), 23) + ' |');
        WriteLn(Padr('| XP/hour: ' + inttostr(XPpH), 23)+' | '+ Padr('Food Ate: ' + inttostr(TFoodate), 23) + ' |');
        WriteLn(Padr('| Round Kills: ' + inttostr(ReportVars[0]), 23)+' | '+ Padr('Round XP : ' + inttostr(ReportVars[1]), 23) + ' |');
       If NAF[CurrentPlayer].Range then
       begin
        writeln(Padr('| Ammo Remain: '+inttostr(GetArrowCount), 23) +' | '+ Padr('Ammo used: ' +inttostr(TArrowAmount), 23)+' |')
        writeln(Padr('| Ammo Used/hour: '+inttostr(AmmoPerHour), 23)+' | '+Padr('', 23)+' |');
       end;
        Writeln('***************************************************');
      end;
      if (HowManyPlayers > 1) then
      begin
        Players[currentplayer].Integers[11] := Players[currentplayer].Integers[11] + ReportVars[1];//XP
        Players[currentplayer].Integers[12] := Players[currentplayer].Integers[12] + ReportVars[0];//Kills
        Players[currentplayer].Integers[13] := Players[currentplayer].Integers[13] + CurAU;
        Players[currentplayer].Integers[15] := Players[currentplayer].Integers[15] + ReportVars[2];//FoodAte
        Players[currentplayer].Integers[31] := Players[currentplayer].Integers[31] + TimeFromMark(RoundTimer);
        Players[currentplayer].Integers[32] := Round((Players[currentplayer].Integers[11]*3600.0)/(Players[currentplayer].Integers[31]/1000.0))
        ClearDebug;
        Writeln('****************************************************************************');
        Writeln('| - Multi - Player - Fast Fighter v'+Version+' by Narcle_| Run Time: '+
         +Padr( inttostr(H) + 'h:' + inttostr(M) + 'm:' + inttostr(S)+'s',12)+' |');
        Writeln('****************************************************************************');
        Writeln('|  # | Nick | Active | XP Gained | Kills  | XP/Hour | Food ate | Ammo Used |');
        Writeln('| -- | ALL  | Totals | '+Padr(IntToStr(Txp),9) + ' | ' + Padr(IntToStr(TKilled),6)
          + ' | ------- | ' + Padr('Ate: ' + IntToStr(TFoodate),8) + ' | ' + Padr(IntToStr(TArrowAmount),9) + ' |');
        For I := 0 to HowManyPlayers - 1 do
        begin
          Writeln('| '+Padl(IntToStr(I), 2)+' | '+Padr(Players[i].Nick, 4)+' | '+ Padr(BoolToStr(Players[i].Active), 6)  + ' | ' +
          + Padr(IntToStr(Players[i].Integers[11]),9) + ' | ' + Padr(IntToStr(Players[i].Integers[12]),6) + ' | ' +
          + Padr(IntToStr(Players[i].Integers[32]),7) + ' | '+ Padr('Ate: ' + IntToStr(Players[i].Integers[15]),8) + ' | ' +
          + Padr(IntToStr(Players[i].Integers[13]),9) + ' |');
        end;
        Writeln('****************************************************************************');
      end;
      SendSRLReport;
    end;

    procedure WeaponLookup(var WeaponArr: array of array of string);
    var
      x, y, i, ii, T: integer;
      Xarr, Yarr: array of integer;
      TB: TBox;
      TP: TPointArray;
    begin
      Xarr := [595, 680, 595, 680];
      Yarr := [270, 270, 325, 325];
      GameTab(1);
      SetArrayLength(WeaponArr, 4);
      for i := 0 to 3 do
      begin
        SetArrayLength(WeaponArr[i], 4);
        MMouse(Xarr[i], Yarr[i], 12, 12);
        T := GetSystemTime + 3000;
        repeat
          Wait(200);
          if GetSystemTime > T then
            Exit;
        until FindColor(x, y, 10551295, 540, 205, 750, 465);
        wait(200);
        GetClientDimensions(TB.X2, TB.Y2);
        TB := IntToBox(0, 0, TB.X2, TB.Y2);
        FindColorsTolerance(TP, 10551295, TB.X1, TB.Y1, TB.X2, TB.Y2, 0);
        if Length(TP) = 0 then
          Exit;
        TB := GetTPABounds(TP);
        TB.Y1 := TB.Y1 + 1;
        for ii := 0 to 3 do
        begin
          WeaponArr[i][ii] := LowerCase(GetTextAtEx(TB.X1 + 1, TB.Y1, 0, SmallChars, False, True, 0, 1, - 1, 30, False, tr_AlphaNumericChars));
          TB.Y1 := TB.Y1 + 13;
        end;
        if (GetLetters(WeaponArr[0][0]) = '') then
        begin
          Writeln('');
          Writeln('Weapon Lookup failed, SCAR lost window focus. [Restart SCAR for SMART]');
          Writeln('Re-focus SCAR to the RuneScape window using the cross-hairs.');
          Exit;
        end;
      end;
    end;

    function SetCombat(Kind: string): boolean;
    var
      i, ii: integer;
    begin
      try
        for i := 0 to 3 do
         for ii := 0 to 3 do
          if (Pos(Lowercase(Kind), Lowercase(NAF[CurrentPlayer].Combat[i][ii])) > 0) then
          begin
            Result := SetFightMode(i + 1);
            NAF[CurrentPlayer].SkillIs := kind;
            Exit;
          end;
      except
        Writeln('');
        Writeln('Set Combat failed, SCAR lost window focus. [Restart SCAR for SMART]');
        Writeln('Re-focus SCAR to the RuneScape window using the cross-hairs.');
      end;
    end;

    procedure SetupPlayer;
    Var
      Mode, i:integer;
    begin
      if not LoggedIn then
       Exit;
      Status('Setting up player: '+Players[CurrentPlayer].Name+'...');
      MouseSpeed := RandomRange(14, 16);
      SetAngle(true);
      GetAllLevels;
      if not NAF[CurrentPlayer].Setup then
      begin
        WeaponLookup(NAF[CurrentPlayer].Combat);
        for i := 0 to 3 do
        begin
          if StrInArr('ranged', NAF[CurrentPlayer].Combat[i]) then
            NAF[CurrentPlayer].Range := true;
          if StrInArr('magic', NAF[CurrentPlayer].Combat[i]) then
            NAF[CurrentPlayer].Magic := true;
        end;
        if not (NAF[CurrentPlayer].Magic or NAF[CurrentPlayer].Range) then
          NAF[CurrentPlayer].Melee := true;
      end;
      if NAF[CurrentPlayer].Melee then
      begin
        case LowerCase(Players[CurrentPlayer].Strings[1]) of
          'attack','att': Mode := 1;
          'strength','str': Mode := 2;
          'defence', 'defense','def': Mode := 3;
          'shared', 'controlled','control': Mode := 4;
          'even','',' ','  ','   ':
            begin
              if (Players[CurrentPlayer].level[3] <= Players[CurrentPlayer].level[1]) and (Players[CurrentPlayer].level[3] <= Players[CurrentPlayer].level[2]) then
                Mode := 3;
              if (Players[CurrentPlayer].level[1] <= Players[CurrentPlayer].level[3]) and (Players[CurrentPlayer].level[1] <= Players[CurrentPlayer].level[2]) then
                Mode := 1;
              if (Players[CurrentPlayer].level[2] <= Players[CurrentPlayer].level[1]) and (Players[CurrentPlayer].level[2] <= Players[CurrentPlayer].level[3]) then
                Mode := 2;
            end;
          'pure':
            begin
              if Players[CurrentPlayer].level[2] < 15 then
                Mode := 2
              else if Players[CurrentPlayer].level[1] < 30 then
                Mode := 1
              else if Players[CurrentPlayer].level[2] < 25 then
                Mode := 2
              else if Players[CurrentPlayer].level[1] < 40 then
                Mode := 1
              else
                Mode := 2;
            end;
           else
           begin
             writeln('Incorrect skill to train, check your setup and make sure its spelled correctly.');
             Mode := 0;
           end;
        end;
        case Mode of
          1:if not SetCombat('attack') then
              if not SetCombat('strength') then
                SetCombat('defence');
          2:if not SetCombat('strength') then
              if not SetCombat('attack') then
                SetCombat('defence');
          3:if not SetCombat('defence') then
              if not SetCombat('strength') then
                SetCombat('attack');
          4:if not SetCombat('shared') then
              if not SetCombat('strength') then
                if not SetCombat('attack') then
                  SetCombat('defence');
          else
          begin
            SetFightMode(1);
            NAF[CurrentPlayer].SkillIs := 'attack';
          end;
        end;
      end;
      if NAF[CurrentPlayer].Range then
      begin
        case LowerCase(Players[CurrentPlayer].Strings[1]) of
          'accurate': SetFightMode(1);
          'rapid': Setfightmode(2);
          'longrange': Setfightmode(3);
          'even': Setfightmode(2);
          else
          begin
            writeln('Incorrect skill to train, check your setup and make sure its spelled correctly');
            Setfightmode(2);
          end;
        end;
        NAF[CurrentPlayer].SkillIs := 'range';
        ArrowStartAmount := GetArrowCount;
        if (ArrowStartAmount <= 100) then
        begin
          LogoutSeq('Low ammo count! (below 100)');
          Exit;
        end;
      end;
      if NAF[CurrentPlayer].Magic then
      begin
        Writeln('Fast Fighter doesn''t support Magic.');
        LogoutSeq('No magic support');
        Exit;
      end;
      Retaliate(True);
      StartXP := GetXP(NAF[CurrentPlayer].SkillIs);
      SetRun(True);
      LogoutTime := Getsystemtime + RandomRange(7*60000, 13*60000);
      MarkTime(RoundTimer);
      MarkTime(FailTimer);
      AttackFailed := 0;
    end;

    procedure LogoutSeq(reason:string);
    begin
      if(not(loggedin))then exit;
      WaitFight;
      Status('Logout sequence...');
      Report;
      AntiBan;
      if (reason = '') then
       nextplayer(true)
      else
      begin
        Writeln(reason+' '+Players[Currentplayer].Name+' is now inactive.');
        nextplayer(false);
      end;
      SetupPlayer;
    end;

    procedure SitAndWait;//Super advance I know :P
    var
      T: integer;
    begin
      MarkTime(T);
      repeat
        Status('Sit & Wait...');
        if not LoggedIn then
         Exit;
        FFWait(2);
        AntiBan;
        HpCheck;
      until (TimeFromMark(T) > 30000) or (MobsOnScreen > 0)
    end;

    function ChangeCamera: boolean;
    var
      i, II, PosNeg:integer;
    begin
      Case random(2) of
        0: PosNeg := 1;
        1: PosNeg := -1;
      end;
      i := Round(rs_GetCompassAngleDegrees/45 - 1);
      if i < 0 then i := 0;
      if i > 7 then i := 7;
      For II := 0 to 7 do
      begin
        if (MobsOnScreen > 0) then
        begin
          result := true;
          exit;
        end;
        i := i+PosNeg;
        if i > 7 then i := 0;
        if i < 0 then i := 7;
        MakeCompass(inttostr(i*45));
      end;
    end;

    function UTWait(UpText: string): Boolean;//Yes idea from munk ;)
    var
      T: integer;
    begin
      T := GetSystemTime + 750;
      Repeat
        wait(25+random(25));
        Result := pos(LowerCase(UpText), LowerCase(rs_GetUpText)) > 0;
      until Result or (GetSystemTime > T);
    end;

    function FFAttack(Name: string; Colors: TintegerArray; tol: integer): boolean;
    var
      L, i, x, y, xx, yy: integer;
    begin
      if not LoggedIn then
       Exit;
      if InFight then
       if FightOnScreen then
        Exit;
      L := High(Colors);
      Status('Searching for NPC...');
      for i := 0 to L do
      begin
        if (MobsOnScreen = 0) or InFight then
         Exit;
        x:=MSCX;
        y:=MSCY;
        if FindColorSpiralTolerance(x, y, Colors[i], MSX1, MSY1, MSX2, MSY2, Tol) then
        begin
          if FindColorSpiral(xx, yy, 65280, x - 15, y - 40, x + 15, y + 40) then
           Continue;
          MMouse(x, y, 3, 3);
          if UTWait(Name) then
          begin
            GetMousePos(x, y);
            case Random(3) of
              0: begin
                   Mouse(x, y, 0, 0, false);
                   if ChooseOption('tack') then
                     result := true;
                 end;
              1,2: begin
                   HoldMouse(x, y, True);
                   Wait(80 + Random(60));
                   GetMousePos(x, y);
                   ReleaseMouse(x, y, True);
                   try
                     Result := FindColor(x, y, 255, x-10, y-10, x+10, y+10);
                   except
                     Result := False;
                   end;
                 end;
            end;
            if Result then
            begin
              Status('Attacked');
              AttackFailed := 0;
              MarkTime(FailTimer);
              FFlag(0);
              if NAF[CurrentPlayer].Range then
                FFWait(20)
              else
                FFWait(4);
              Inc(ReportVars[0]);
              Exit;
            end;
          end else
            Inc(AttackFailed);
        end;
      end;
    end;


    Procedure FFStartUp;
    var
      I,II,n:integer;
      s:string;
    begin
      SmartSetupEx(61, false, true, false);
      SetTargetDC(SMARTGetDC);
      SetupSRL;
      ClearDebug;
      Disguise('Sig Call');
      ChangeReportWidth(255);
      Status('Signature call; Watch the report box!');
      for I := 0 to 57 do
      begin
        clearreport;
        for II := 0 to 5 do
          Addtoreport(s + '||');
        wait(20);
        if I < 29 then
          s := s + ' '
        else
          delete(s, Length(s), 1);
      end;
      for I := 1 to 29 do
      begin
        ClearReport;
        AddtoReport(Left(' _   _                _      ', I));
        AddtoReport(Left('| \ | |  made by     | |     ', I));
        AddtoReport(Left('|  \| | __ _ _ __ ___| | ___ ', I));
        AddtoReport(Left('| . ` |/ _` | ''__/ __| |/ _ \', I));
        AddtoReport(Left('| |\  | (_| | | | (__| |  __/', I));
        AddtoReport(Left('|_| \_|\__,_|_|  \___|_|\___|', I));
        wait(40);
      end;
      AddtoReport(ScriptName+' v'+Version);
      NarclesINI;
      try
        DeclarePlayers;
      except
        Writeln('You did not Declare Players correctly, check your DeclarePlayers setup.');
        TerminateScript;
      end;
      ScriptID := '424';
      If (HowManyPlayers = 1) then Writeln('Single-Player Mode') else Writeln('Multi-Player mode; '+IntToStr(HowManyPlayers)+' Players');
      if (SRLID = '') or (SRLPassword = '') then
      begin
        Writeln('Please register at SRL-stats in the future');
        Writeln('to remove this message and the time delay.');
        Writeln('  -Regards Narcle');
        n := 15;
        repeat
          n := n-1;
          wait(999);
          Disguise(inttostr(n)+' Seconds to start.');
          Status(inttostr(n)+' Seconds to start.');
        until (n=0)
      end;
      for i := 0 to HowManyPlayers - 1 do
      begin
        NAF[i].Colors := [Players[i].Integers[0], Players[i].Integers[1], Players[i].Integers[2]];
        if trim(Players[i].Strings[0]) = '' then
          NAF[i].MobName := 'tac'
        else
          NAF[i].MobName := LowerCase(Players[CurrentPlayer].Strings[0]);
        If (i > 0) and (Players[i].Integers[0] = 0) then
        begin
          NAF[i].Colors := [Players[0].Integers[0], Players[0].Integers[1], Players[0].Integers[2]];
          NAF[i].MobName := LowerCase(Players[0].Strings[0]);
        end;
      end;
      Status('Start '+ScriptName);
      Disguise(ScriptName+' v'+Version);
      AddtoReport('Start time: '+TheTime);
      if (NAF[CurrentPlayer].Colors[0] = 0) or (NAF[CurrentPlayer].Colors[1] = 0) or (NAF[CurrentPlayer].Colors[2] = 0) then
      begin
        Writeln('Error: Please enter 3 monster colors for player(s).');
        TerminateScript;
      end;
      if not LoggedIn then
        LoginPlayer;
      SetupPlayer;
    end;

    //============================Main Execution==================================\\
    begin
      FFStartUp;
      repeat
        if not LoggedIn then
          LoginPlayer;
        if FFattack(NAF[CurrentPlayer].MobName, NAF[CurrentPlayer].Colors, 3) then
         WaitFight;
        if (MobsOnScreen = 0) then
         if not ChangeCamera then
          SitAndWait;
        if InFight then
         if FightOnScreen then
          WaitFight;
        if (TimeFromMark(FailTimer) > 300000) then
          LogoutSeq('Finding NPC Failed');
        if (Getsystemtime > LogoutTime) then
          LogoutSeq('');
        HpCheck;
        Antiban;
        FindNormalRandoms;
        if (AttackFailed > 19) and not(NAF[CurrentPlayer].MobName = 'tac') then
        begin
          NAF[CurrentPlayer].MobName := 'tac';
          writeln('Changing Monster name to ''tac'' if it continues to not attack then');
          writeln('Re-focus SCAR to the RuneScape window using the cross-hairs.');
        end;
      until(false);
    end.

  5. #2405
    Join Date
    Jan 2009
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default tysm

    exellent script i was able to get it to work for 3hrs and 49mins =]
    and got a free 28k xp ^.^

    oh yes and recon um yea thx for posting and all bud u didnt rly need to post the script did you?........
    who ever said everything is possible never tried pushing backwards on a revolving door[BANANA]

  6. #2406
    Join Date
    Jan 2009
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You need to put your script in Scar tags bro. Use the little bulldozer icon next time =P

    Well first add your srlid and password to the script and make sure to turn your form to false. It's much easier to find mistakes if you declare your players.

    Just fill in your declareplayer part of your script and go at it. make sure everything is lower case as well.
    ~Will test any script and post feedback at your leisure~

  7. #2407
    Join Date
    Jan 2009
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default alrighty

    kk ill try that.. thanks for the info. oh and sorry about posting that full page of the script. i didnt know how to make it SCAR tags..thanks for telling me. Ill post my progie when im finished botting.. Thanks For the help again..

  8. #2408
    Join Date
    Jan 2009
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No problem. That's what we're here for.
    ~Will test any script and post feedback at your leisure~

  9. #2409
    Join Date
    Jan 2009
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default ?

    well i did all that you said and my script ran for 1 hour longer... i couldnt get progie because SCAR had some kind of error when i was truying to copy it. But it was about 3 hours now and then it logged me out again.

  10. #2410
    Join Date
    Jan 2009
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It has been 3 minutes and Runescape is not yet ready... Terminating.
    Successfully executed

    This is what I've been getting lately, not sure what it is but I keep getting it.
    ~Will test any script and post feedback at your leisure~

  11. #2411
    Join Date
    Feb 2009
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice

  12. #2412
    Join Date
    Jan 2009
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** *
    | Fast Fighter v3.02 | 7h:35m:53s |
    ************************************************** *
    | Total Kills: 2789 | Total XP: 98508 |
    | XP/hour: 12990 | Food Ate: 0 |
    | Round Kills: 68 | Round XP : 1692 |
    ************************************************** *
    Stopped Manually.

  13. #2413
    Join Date
    Feb 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** *
    | Fast Fighter v3.02 | 0h:10m:58s |
    ************************************************** *
    | Total Kills: 3 | Total XP: 96 |
    | XP/hour: 576 | Food Ate: 0 |
    | Round Kills: 3 | Round XP : 96 |
    ************************************************** *

    It worked well for some time. I probably did something wrong, as after 10 minutes it stopped working, told me to refocus and it was changing monster name. Then the mouse just stayed over my char for some time. Most likely my fault though, and will use later. Nice script overall and thanks!

  14. #2414
    Join Date
    Feb 2009
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks alot! Going tot ry later.

  15. #2415
    Join Date
    Nov 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    **************************************
    | Fast Fighter v3.02 | 2h:27m:56s |
    **************************************
    | Total Kills: 975 | Total XP: 64448 |
    | XP/hour: 26305 | Food Ate: 80 |
    | Round Kills: 88 | Round XP : 5516 |
    | Ammo Remain: 547 | Ammo used: 720 |
    | Ammo Used/hour: 294 | |
    **************************************
    Successfully executed


    Had a long break from autoing, so just tested. Works very well still.

  16. #2416
    Join Date
    Feb 2009
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Love this :]

  17. #2417
    Join Date
    Nov 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    ************************************************** *
    | Fast Fighter v3.02 | 4h:5m:33s |
    ************************************************** *
    | Total Kills: 1311 | Total XP: 70056 |
    | XP/hour: 17157 | Food Ate: 397 |
    | Round Kills: 38 | Round XP : 1964 |
    | Ammo Remain: 3933 | Ammo used: 1066 |
    | Ammo Used/hour: 261 | |
    ************************************************** *

    Another

  18. #2418
    Join Date
    Feb 2009
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    realy nice script.

    havent any problems so far

  19. #2419
    Join Date
    Jan 2009
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    IT KEEPS KILLING ME! . what keeps on killing me.? i have a full inv of food when i check the script it only ate 7

  20. #2420
    Join Date
    May 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    huh.. useful on chickens..

  21. #2421
    Join Date
    Nov 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ***********************************
    | Fast Fighter v3.02 | 1h:17m:12s |
    ***********************************
    | Total Kills: 371 | Total XP: 27016 |
    | XP/hour: 21051 | Food Ate: 36 |
    | Round Kills: 70 | Round XP : 4044 |
    | Ammo Remain: 5261 | Ammo used: 425 |
    | Ammo Used/hour: 331 | |
    ***********************************

    Okay one more.

    I forget to tell earlier that it died once, dont still know why. Report box said "invalid password" mm, really? Btw didnt lost more than 50k.

  22. #2422
    Join Date
    Nov 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** *
    | Fast Fighter v3.02 | 1h:27m:14s |
    ************************************************** *
    | Total Kills: 422 | Total XP: 29544 |
    | XP/hour: 20375 | Food Ate: 55 |
    | Round Kills: 74 | Round XP : 3644 |
    | Ammo Remain: 4743 | Ammo used: 473 |
    | Ammo Used/hour: 326 | |
    ************************************************** *
    NextPlayer(Active: True);
    GTL: Drill Demon
    Sit
    1: Star Jump mat
    2: Push-up mat
    3: Jog mat
    4: Sit-up mat
    Star
    Wrong exercise, re-identifying signs.
    We should talk to Damien.
    Push
    Push
    Star
    We've been in the demon random for 2 minutes. It failed.
    ** Warning in GameTab: 0 is no valid GameTab**
    Player is not Active...
    NextPlayer(Active: False);

  23. #2423
    Join Date
    Nov 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ************************************************** *
    | Fast Fighter v3.02 | 3h:21m:56s |
    ************************************************** *
    | Total Kills: 692 | Total XP: 40188 |
    | XP/hour: 11996 | Food Ate: 164 |
    | Round Kills: 19 | Round XP : 1120 |
    | Ammo Remain: 4093 | Ammo used: 593 |
    | Ammo Used/hour: 177 | |
    ************************************************** *
    NextPlayer(Active: True);
    It has been 3 minutes and Runescape is not yet ready... Terminating.
    Successfully executed

    Xp/hour sucks, because my account didnt have any food left and macro just had to wait hp regenerate. (Good it even can do that! )

    And the "runescape is not yet ready" text came because my mum messed the screen up when i was in school.

    When you have no relatives that may cause the macro to fail, and have enemies that you no need food with, you may really use this for more than 24h.

    Very good script.

  24. #2424
    Join Date
    Oct 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script man(respect)

    gr.zalman

  25. #2425
    Join Date
    May 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script! Think the mouse moves abit slow, prop my laptop. will leave prog report when i can give it a proper run at weekend.

Page 97 of 207 FirstFirst ... 47879596979899107147197 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. fast fighter v3.02 help
    By yo123 in forum OSR Help
    Replies: 3
    Last Post: 03-07-2009, 09:44 PM
  2. Need help with Narcle's Fast Fighter
    By Myhatisblack in forum OSR Help
    Replies: 10
    Last Post: 01-28-2009, 03:08 AM
  3. Fast Fighter v2.70
    By RPS13x in forum OSR Help
    Replies: 1
    Last Post: 07-08-2008, 07:49 PM

Posting Permissions

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