Page 78 of 207 FirstFirst ... 2868767778798088128178 ... LastLast
Results 1,926 to 1,950 of 5164

Thread: Narcle's Fast Fighter!

  1. #1926
    Join Date
    Oct 2006
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Woohoo, chickens are dying left and right. I'm liking this script so far... hope it can handle randoms smoothly.

    An idea for a future update, maybe you can have the script pick up a specific item. For example, feathers from killed chickens. I'm not a scripter (yet) so I'm not sure if this is feasible or not, but it's an idea...

  2. #1927
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Here is my proggy! =] amazing script!
    ************************************************** *
    | Fast Fighter v3.01 | 10h:34m:20s |
    ************************************************** *
    | Total Kills: 1315 | Total XP: 26380 |
    | XP/hour: 2497 | Food Ate: 0 |
    | Round Kills: 23 | Round XP : 628 |
    ************************************************** *
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  3. #1928
    Join Date
    Oct 2008
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Heres a proggy.

    ************************************************** *
    | Fast Fighter v3.01 | 2h:23m:10s |
    ************************************************** *
    | Total Kills: 107 | Total XP: 34910 |
    | XP/hour: 10982 | Food Ate: 5 |
    | Round Kills: 34 | Round XP : 1023 |
    ************************************************** *

    Thanks so much it has helped level my Pure.

  4. #1929
    Join Date
    Oct 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    okay have a prob here. the script ran well..for a few mins..but right after a few minutes of killing goblins..it auto click the x button and logged out.
    how can i stop it from doing that, and leave it on till i wish to stop it ?
    somebody help.

    thanks in advance.

  5. #1930
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    dude its kind of an antiban to log out after like 10 mins... so that you don't get a random! it will log you back in after a little bit

  6. #1931
    Join Date
    Oct 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh i see..thanks anyway..
    well another prob is that, i cant seem to use the form..
    i've been using the script itself..
    in another words..
    " UseForm = false;//Use form? [true/false] False uses DeclarePlayers; "
    and i edit below that..

    any guides on how to use the form ? lols.

  7. #1932
    Join Date
    Mar 2008
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by thebluefiend View Post

    Download SRL 28 via SVN

    updated all srl and includes on 10/28/08
    Hey, a person may look like a noob,
    but you never know how many accounts he has
    .

  8. #1933
    Join Date
    Oct 2008
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fireb0i69 View Post
    okay have a prob here. the script ran well..for a few mins..but right after a few minutes of killing goblins..it auto click the x button and logged out.
    how can i stop it from doing that, and leave it on till i wish to stop it ?
    somebody help.

    thanks in advance.
    Change the boolean to true. The thing you edited below, were it says false, change it to "True" with out quotations. When you select runescape and hit play, the form will appear, then enter the info. Make sure you pick your colors and put them on notepad first because you cant pick colors or click on scar once the form appears unless you cancel. And for monsters, use the letters after the first one. "Chicken" would be "hicken" and so forth.

    Quote Originally Posted by wyattcwr View Post
    updated all srl and includes on 10/28/08
    Sorry i tried lmao. SMART is the only thing that i know overwrites. But its a non-SMART script. Did you copy the new Smart embedded to the plugins folder?

  9. #1934
    Join Date
    Oct 2008
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fireb0i69 View Post
    ahh i see..thanks anyway..
    well another prob is that, i cant seem to use the form..
    i've been using the script itself..
    in another words..
    " UseForm = false;//Use form? [true/false] False uses DeclarePlayers; "
    and i edit below that..

    any guides on how to use the form ? lols.
    yes if you want it to use the form built in then make it say true if you want it to use the script you edited below then put it on false and use the DeclarePlayers info

  10. #1935
    Join Date
    Aug 2008
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    got little problem my script only logs in for 10 minutes then fights and logs out but they dont log my account back in: next player false.
    anybody know how to change this?

  11. #1936
    Join Date
    Oct 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jking View Post
    yes if you want it to use the form built in then make it say true if you want it to use the script you edited below then put it on false and use the DeclarePlayers info
    EDIT : Okay, i got it to work. but after it logs in my character, it wont attack the goblin,
    nor the mouse will move.
    then, i tried to log out. but it still auto relogs me in. and it wont attack the goblins.

    help. !

    lols.

  12. #1937
    Join Date
    Oct 2008
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    works fine to me. later i will post the progress.
    thx

  13. #1938
    Join Date
    Oct 2008
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by aernout5 View Post
    got little problem my script only logs in for 10 minutes then fights and logs out but they dont log my account back in: next player false.
    anybody know how to change this?
    did you use forum or declare players? if you used forum it will go to your next character if you used declare players it will go to next player unless you have it changed to more than one player.

  14. #1939
    Join Date
    Aug 2008
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Quote Originally Posted by jking View Post
    did you use forum or declare players? if you used forum it will go to your next character if you used declare players it will go to next player unless you have it changed to more than one player.
    I used declare players and only setted up one player still got any idea how to fix this? rep ++ if it works

  15. #1940
    Join Date
    Oct 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    VERYYYYYYY nice script absoluty workz perfect
    ty still waititng to become junior member hope I'll see much more off those nice scripts

    ~~ I find the colors with RK autocutter ~~ for the people that don't know how

  16. #1941
    Join Date
    Oct 2008
    Location
    oz
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sometimes i get the runetime error in line 450 in sometimes not any ideas?

  17. #1942
    Join Date
    Oct 2008
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by aernout5 View Post
    I used declare players and only setted up one player still got any idea how to fix this? rep ++ if it works
    it should look like this:
    Code:
    procedure DeclarePlayers;
    begin
      if not(UseForm) then
      begin
        HowManyPlayers := 1;//Change this accordingly
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
      
        Players[0].Name :='player'; //Character Name
        Players[0].Pass :='1234ght'; //Character Pass
        Players[0].Nick :='playa'; //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] := 11450553;//1st color of monster
        Players[0].Integers[1] := 3289655;//2nd color of monster
        Players[0].Integers[2] := 3815999;//3rd color of monster
        Players[0].Strings[0] := 'Minotaur';//monster name
        Players[0].Strings[1] := 'Strength'; //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
      }
    if you are only using 1 player

  18. #1943
    Join Date
    Aug 2008
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Quote Originally Posted by jking View Post
    it should look like this:
    Code:
    procedure DeclarePlayers;
    begin
      if not(UseForm) then
      begin
        HowManyPlayers := 1;//Change this accordingly
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
      
        Players[0].Name :='player'; //Character Name
        Players[0].Pass :='1234ght'; //Character Pass
        Players[0].Nick :='playa'; //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] := 11450553;//1st color of monster
        Players[0].Integers[1] := 3289655;//2nd color of monster
        Players[0].Integers[2] := 3815999;//3rd color of monster
        Players[0].Strings[0] := 'Minotaur';//monster name
        Players[0].Strings[1] := 'Strength'; //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
      }
    if you are only using 1 player






    yeah I allready figured that out it looks like this by me:
    procedure DeclarePlayers;
    begin
    if not(UseForm) then
    begin
    HowManyPlayers := 1;//Change this accordingly
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name :='player'; //Character Name
    Players[0].Pass :='1234ght'; //Character Pass
    Players[0].Nick :='playa'; //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] := 11450553;//1st color of monster
    Players[0].Integers[1] := 3289655;//2nd color of monster
    Players[0].Integers[2] := 3815999;//3rd color of monster
    Players[0].Strings[0] := 'Minotaur';//monster name
    Players[0].Strings[1] := 'Strength'; //the skill you want to train > strength, attack, defence, pure, even, accurate, rapid or longrange <






    but still doesnt log back in for training -.- any suggestions?
    I rep++ if you helped me good

  19. #1944
    Join Date
    Oct 2008
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by aernout5 View Post
    yeah I allready figured that out it looks like this by me:
    procedure DeclarePlayers;
    begin
    if not(UseForm) then
    begin
    HowManyPlayers := 1;//Change this accordingly
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name :='player'; //Character Name
    Players[0].Pass :='1234ght'; //Character Pass
    Players[0].Nick :='playa'; //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] := 11450553;//1st color of monster
    Players[0].Integers[1] := 3289655;//2nd color of monster
    Players[0].Integers[2] := 3815999;//3rd color of monster
    Players[0].Strings[0] := 'Minotaur';//monster name
    Players[0].Strings[1] := 'Strength'; //the skill you want to train > strength, attack, defence, pure, even, accurate, rapid or longrange <






    but still doesnt log back in for training -.- any suggestions?
    I rep++ if you helped me good
    hmm post the whole script exactly as you have it (you can change the user and pass info) ill see what is wrong with it

  20. #1945
    Join Date
    Oct 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    finally, i've got it to work. it works great now. thanks !
    i will post proggy when i auto enough

  21. #1946
    Join Date
    Oct 2008
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    amazing script i finally got my scar running and i'm hoping to learn a lot this script is a big inspiration of where i wanna be in scripting one day

  22. #1947
    Join Date
    Oct 2008
    Location
    oz
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey can this be done at rock crabs? becouse after a while the crabs just dont appear?

  23. #1948
    Join Date
    Aug 2008
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    k gonna post my script hope it got some good results

  24. #1949
    Join Date
    Aug 2008
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jking View Post
    hmm post the whole script exactly as you have it (you can change the user and pass info) ill see what is wrong with it
    k here is my script:
    {------------------------------Script Info-------------------------------------|
    | ScriptName = Fast Fighter |
    | Author = Narcle |
    | Description = Fights any monster, food eating and HP regen. |
    | Version = 3.00 |
    | Date = 10/26/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.scar}
    {.include SRL/SRL/misc/Users.scar}
    {------------------------------------------------------------------------------}
    {===============================Player Setup===================================}
    {------------------------------------------------------------------------------}
    Const
    MySRLID = '';//example: '9999'
    MySRLPassword = '';//example: 'password'

    UseForm = false;//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 :='zezima'; //Character Name
    Players[0].Pass :='zezima'; //Character Pass
    Players[0].Nick :='zima'; //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] := 1514016;//1st color of monster
    Players[0].Integers[1] := 5791075;//2nd color of monster
    Players[0].Integers[2] := 988707;//3rd color of monster
    Players[0].Strings[0] := 'ak';//monster name
    Players[0].Strings[1] := 'ranged'; //the skill you want to train > strength, attack, defence, pure, even, accurate, rapid or longrange <

    {------------------------------------------------------------------------------}
    {========================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.01';
    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 ArrInStr(Str: string; Arr: TStringArray): boolean;
    var
    i, L, H: integer;
    begin
    L := Low(Arr);
    H := High(Arr);
    for i := L to H do
    if (Pos(LowerCase(Arr[i]), LowerCase(Str)) > 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 ArrInStr('ranged', NAF[CurrentPlayer].Combat[i]) then
    NAF[CurrentPlayer].Range := true;
    if ArrInStr('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
    SetFightMode(1);
    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
    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
    if Players[i].Strings[1] = '' then
    Players[i].Strings[1] := 'even'
    else
    Players[i].Strings[1] := LowerCase(Players[i].Strings[1]);
    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.
    hope that helped btw ty for help you almost got rep++

  25. #1950
    Join Date
    Oct 2008
    Posts
    67
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by aernout5 View Post
    hope that helped btw ty for help you almost got rep++
    ok umm i dont see a problem except for the monster name 'ak' put in the full name im guessing its 'yak' ? lol i forgot the problem you were having please repeat it for me

Page 78 of 207 FirstFirst ... 2868767778798088128178 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 2 users browsing this thread. (0 members and 2 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
  •