Results 1 to 19 of 19

Thread: Help , Random NextPlayer(false) while cutting

  1. #1
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help , Random NextPlayer(false) while cutting

    SCAR Code:
    (*==================================================================]
    [              I Am Legend's WOTcutter  version 0.8                 ]
    [                                                                   ]
    [          NAME        : WOTcutter                                  ]
    [          WRITER      : I Am Legend.                               ]
    [          CATEGORY    : Auto Woodcutter                            ]
    [          DESCRIPTION : Cuts, Oaks & Willows then drops them       ]
    [                        Read below for more info.....              ]
    [          USAGE       : Start by the fight caves entrance.         ]
    [          AUTOCOLOR   : No=[ ( will come in later versions)        ]
    [          SRL Used    : 4.0, Revision 20.                          ]
    [          SCAR Used   : 3.15.                                      ]
    [                                                                   ]
    [                   More Scripts can be found at                    ]
    [             [url]www.SRL-Forums.com[/url] & [url]www.Scar-Scripts.com[/url]             ]
    [===================================================================]
    [                           Instructions.                           ]
    [===================================================================]
    [ 1. Smart Enabled.                                                 ]
    [ 2. Set your Screen to 32 bit TRUE color.                          ]
    [ 3. Setup lines, below.                                            ]
    [ 4. Set Playername and Password, below.                            ]
    [ 5. Start in front of any tree that you wish to drop               ]
    [ 6. Start script Logged Out; The script will log you in.           ]
    [===================================================================]
    [                           Some more info  :)                      ]
    [  1. Random Autotalking-                                           ]
    [  2. This script is ONLY allowed to be posted on [url]www.SRL-Forums.com][/url]
    [     & Scar-Scripts.com                                            ]
    [  3. Multi Player Script. Use more than 1 player!   :)             ]
    [  4. Than you to IceFire from scar-scripts community for providing ]
    [     me with alot of help. And Tutorials from SRL Community.       ]
    [==============================================================================]
    [  Have your character near a tree with an axe. Logged out,                    ]
    [  Allow SCAR and SMART to access internet/files ect. ect..                    ]
    [  Fill out the SetUpScript and the DelcarePlayers procedures.                 ]
    [  Just hit run. It will load up SMART and log in your players itself.         ]
    [  The script will chop until you have a full inventory of logs on each player,]
    [  and then set the player false and terminate the script.                     ]
    [==============================================================================]
    [                             Script Log                                       ]
    [==============================================================================]
    [ V 0.6 := Many Quick Fixes thanks to skilld u , Bring it on NoIdea =P         ]
    [ V 0.7 := Improved my FindEnter, now it detects ents more efficently, i also  ]
    [          fixed the DTM's ( uses less memory now ). Fixed  Auto- Talk.        ]
    [ V 0.8 := Added in New features *Script Report, SRL Stats , and i  improved   ]
    [          my ,Standars*  I believe that the SRL Stats is still bit buggy as   ]
    [          this is my first time using it.                                     ]
    [=============================================================================*)


    program WOTCutter;
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/Skill/Woodcutting.Scar}
    {.include srl/srl/misc/trade.scar}

    var
      T: TPoint;
      x, y, Level, lvl, CurLvl, TreeColour, LogDTM : Integer;
      MinRange, MaxRange, LogAverage, Loadsdone  : Integer;
      MadeRespond,  Dropped : Integer;

    const
      YourSRLId = ''; // Your SRL id no. Here
      YourSRLPassword = '';  // Your SRL id pass Here.
      Versions ='0.8'; // Do Not Touch or your script will get screwed.


    //=====================================================\\
    //=====================================================\\
    {|                Declare Players Procedure            |}
    //=====================================================\\
    //=====================================================\\

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 4; //Number of Players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    //=====================================================\\
    //=====================================================//
      Players[0].Name := '';  //Username
      Players[0].Pass := '';  //Password
      Players[0].Nick := '';  //3 - 4 letters of your RS Username, not captial.
      Players[0].Integers[0] := 1; //Loads
      Players[0].Strings[1] := 'Oak'; // What are you Cutting? Valid Terms :- Tree, Oak , Willow
      Players[0].Active:= True;  // Active?
    //=====================================================\\
    //=====================================================//
      Players[1].Name := '';  //Username
      Players[1].Pass := '';  //Password
      Players[1].Nick := '';  // 3 - 4 letters of your RS Username, not captial.
      Players[1].Integers[0] := 100; //Loads
      Players[1].Strings[1] := 'Tree'; // What are you Cutting? Valid Terms :- Tree, Oak , Willow
      Players[1].Active:= True;  // Active?
    //=====================================================\\
    //=====================================================//
      Players[2].Name := 'Username';  //Username
      Players[2].Pass := 'Password';  //Password
      Players[2].Nick := 'ser';  // 3 - 4 letters of your RS Username, not captial.
      Players[2].Integers[0] := 100; //Loads
      Players[2].Strings[1] := 'Willow';// What are you Cutting? Valid Terms :- Tree, Oak , Willow
      Players[2].Active:= True;  // Active?
    //=====================================================\\
    //=====================================================//
      Players[3].Name := 'Username';  //Username
      Players[3].Pass := 'Password';  //Password
      Players[3].Nick := 'ser';  // 3 - 4 letters of your RS Username, not captial.
      Players[3].Integers[0] := 100; //Loads
      Players[3].Strings[1] := 'Tree';// What are you Cutting? Valid Terms :- Tree, Oak , Willow
      Players[3].Active:= True;  // Active?
    end;

    //=====================================================\\
    //=====================================================\\
    {|                Script SignatureProcedure            |}
    //=====================================================\\
    //=====================================================\\

    procedure Signature;
    begin
      writeln('Hello!');
      wait(1000 + random(1001));
      writeln('You are using !');
      writeln('      ___           ___                                  ___           ___                                       ___           ___          ')
      writeln('     /  /\         /  /\          ___                   /  /\         /  /\          ___           ___          /  /\         /  /\         ')
      writeln('    /  /:/_       /  /::\        /__/\                 /  /::\       /  /:/         /__/\         /__/\        /  /::\       /  /::\        ')
      writeln('   /  /:/ /\     /  /:/\:\       \  \:\               /  /:/\:\     /  /:/          \  \:\        \  \:\      /  /:/\:\     /  /:/\:\       ')
      writeln('  /  /:/ /:/_   /  /:/  \:\       \__\:\             /  /:/  \:\   /  /:/            \__\:\        \__\:\    /  /::\ \:\   /  /::\ \:\      ')
      writeln(' /__/:/ /:/ /\ /__/:/ \__\:\      /  /::\           /__/:/ \  \:\ /__/:/     /\      /  /::\       /  /::\  /__/:/\:\ \:\ /__/:/\:\_\:\     ')
      writeln(' \  \:\/:/ /:/ \  \:\ /  /:/     /  /:/\:\          \  \:\  \__\/ \  \:\    /:/     /  /:/\:\     /  /:/\:\ \  \:\ \:\_\/ \__\/~|::\/:/     ')
      writeln('  \  \::/ /:/   \  \:\  /:/     /  /:/__\/           \  \:\        \  \:\  /:/     /  /:/__\/    /  /:/__\/  \  \:\ \:\      |  |:|::/      ')
      writeln('   \  \:\/:/     \  \:\/:/     /__/:/                 \  \:\        \  \:\/:/     /__/:/        /__/:/        \  \:\_\/      |  |:|\/       ')
      writeln('    \  \::/       \  \::/      \__\/                   \  \:\        \  \::/      \__\/         \__\/          \  \:\        |__|:|~        ')
      writeln('     \__\/         \__\/                                \__\/         \__\/                                     \__\/         \__\|      v0.7  ')
      writeln('  ');
      writeln(' Loading smart please be patient. ');
    end;

    //=====================================================\\
    //=====================================================\\
    {|                SetupScript Procedure                |}
    //=====================================================\\
    //=====================================================\\

    procedure SetUpScript;
    begin
      writeln('you are cutting '+(Players[CurrentPlayer].Strings[1]))
      case ((Players[CurrentPlayer].Strings[1])) of
        'Tree': begin
                  TreeColour := 2977122; // Tree Colour
                  LogAverage := 1;
                  MinRange := 10;
                  MaxRange := 20;
                  lvl      := 1;
        end;

        'Oak': begin
                 TreeColour := 4622460; // Oak Colour  , 2977121, 4230013
                 LogAverage := 5+random(2);
                 MinRange := 40;
                 MaxRange := 80;
                 lvl      := 15;
        end;

        'Willow': begin
                    TreeColour := 8697264; // Willow Colour
                    LogAverage := 7+random(2);
                    MinRange := 60;
                    MaxRange := 100;
                    lvl      := 30;
        end;
       end;
    end;

    //=====================================================\\
    //=====================================================\\
    {|                Find Level Procedure                 |}
    //=====================================================\\
    //=====================================================\\

    Procedure DetermineLevel;
    var
      TheResults : Integer;
    begin
      If (Not(LoggedIn)) then
      Exit;
      Level := GetSkillInfo('woodcutting', False);
      TheResults:= lvl - Level;
      If Level < lvl then
      begin
        If Level <= 0 then
        begin
          Writeln('AllGood');
          CurLvl := Level;
        end else
        begin
          Writeln('Your woodcutting level is ' + IntToStr(TheResults) + ' levels to short');
          LogOut;
          NextPlayer(True);
          Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] - Players[CurrentPlayer].Integers[0];
        end;
      end else
        begin
          Writeln('You are all good to cut.');
          CurLvl := Level;
        end;
    end;


    //=====================================================\\
    //=====================================================\\
    {|                    Auto Trader                      |}
    //=====================================================\\
    //=====================================================\\

    procedure AutoTrader;
    begin
      if (SomeoneTrades) then
      begin
        AcceptTrade;
        Wait(4000 + random(1000));
        Decline;
        Trades := Trades + 1;
        case random(10) of
          0: Typesend('nah its ok.');
          1: Typesend('No thnx.');
          2: Typesend('Kool.');
          3: Typesend('I dont needed that.');
          4: Typesend('Stop trading me .');
          5: Typesend('Pfft. Ive seen better thing.');
          6: Typesend('Go and sell these to some1 else.');
          7: Typesend(' I already have it.');
          8: Typesend('Leave me alone.');
          9: Typesend('Nice.');
        end;
      end;
    end;

    //=====================================================\\
    //=====================================================\\
    {|                Auto Responder ( Heaven'z =P )       |}
    //=====================================================\\
    //=====================================================\\


    procedure AutoResponder;
    var
      WcText: array of string;
      i: Integer;
    begin
      SetArrayLength(WcText, 3);
      WcText[0] := 'wc';
      WcText[1] := 'lvl';
      WcText[2] := 'wc lvl';
      for I := 0 to 2 do
        if InChat(WcText[i]) then
          if (not(FindBlackChatMessage(players[currentplayer].nick))) then
          begin
            Typesend('My wc lvl is ' + inttostr(GetSkillInfo('woodcutting', false)));
            MadeRespond := MadeRespond + 1;
            Break;
          end;
    end;

    //=====================================================\\
    //=====================================================\\
    {|                Anti Randoms Procedure               |}
    //=====================================================\\
    //=====================================================\\

    procedure AntiRandoms; // thank you for the example mickaliscious
    begin
      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
      if (FindFight) then
        RunTo('N',True);
      AutoTrader;

    end;


    //=====================================================\\
    //=====================================================\\
    {|                Auto Talker   Procedure              |}
    //=====================================================\\
    //=====================================================\\

    Procedure AutoTalk;
    begin
      If Not LoggedIn then
      Exit;
      begin
        case Random(100) of
          0: TypeSend('cutting down these treez really get boring ');
          1: TypeSend('im going soon , ');
          2: TypeSend('i dont like how far the bank is');
          3: TypeSend('wot axe are you using?');
          4: TypeSend('bronze axe owns');
          5: TypeSend('i wish i made more money');
          6: TypeSend('I wonder what jagex is going to ruin next');
          7: TypeSend('wish the game was more fun');
          8: TypeSend('wc levelz');
          9: TypeSend('no speak englis');
          10: TypeSend('tress dosent look realistic');
          12: TypeSend('water luks fake lolz');
          13: TypeSend('bah bah black sheep');
          14: TypeSend('mUWAHAHAHAHA');
          15: TypeSend('I Am legend Owns Me ! lol.');
          16: TypeSend('sadeaskj bhabhab hab liasd');
          17: TypeSend('my combat level owns urs lolz');
          18: TypeSend('wc levelz');
        end;
      end;
    end;

    //=====================================================\\
    //=====================================================\\
    {|                Anti Ban Procedure                   |}
    //=====================================================\\
    //=====================================================\\
    procedure AntiBan;
    begin
     if(not(LoggedIn))then
      Exit;
      writeln('anti');
      AntiRandoms;
      AutoTrader;
      AutoResponder;
      case random(40) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('Woodcutting', False);
        3: begin
             MakeCompass('N');
             wait(100+random(5));
             MakeCompass('S');
             wait(100+random(5));
             MakeCompass('N');
           end;
        4: begin
              GameTab(1 + Random(12));
              wait(750 + random(500));
              GameTab(4)
           end;
        5: AutoTalk;
        6: PickUpMouse;
      end;
    end;


    //=====================================================\\
    //=====================================================\\
    {|                Tree Finder Function                 |}
    //=====================================================\\
    //=====================================================\\


    function FindTree(var T: TPoint): Boolean;
    var
    I, CTS: Integer;
    TreeTPA: TPointArray;
    TreeATPA: T2DPointArray;
    begin
    if (not (LoggedIn)) then
      Exit;
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    FindColorsSpiralTolerance(MSCX, MSCY, TreeTPA, TreeColour, MSX1, MSY1, MSX2, MSY2, 20);
    if (Length(TreeTPA) < 1) then
    begin
    writeln('hi');
      Exit;
    end;
    ColorToleranceSpeed(CTS);
    TreeATPA := SplitTPA(TreeTPA, 15);
    for I := 0 to (High(TreeATPA)) do
    if (MiddleTPAEX(TreeATPA[i], T.X, T.Y)) then
    begin
      MMouse(T.X, T.Y, 2, 2);
      Wait(600 + Random(250));
      if (IsUpText(Copy((Players[CurrentPlayer].Strings[1]), 2, (Length((Players[CurrentPlayer].Strings[1])))))) then
      begin
        GetMousePos(T.X, T.Y);
        if FindEnt(T.X, T.Y, true) then
        begin
          AntiRandoms;
          AntiBan;
          Wait(5000+random(100));
        end;
        Result := True;
        Break;
      end;
    end;
    end;

    //=====================================================\\
    //=====================================================\\
    {|                   Chop Procedure                    |}
    //=====================================================\\
    //=====================================================\\

    procedure CutTree;
    var
    FailSafe1, FailSafe2: Byte; //A very small type of Integer with the range of 0 - 255.
    begin
    repeat
    if (not (LoggedIn)) then
      Exit;
      if (FindTree(T))then
      begin
        Wait(RandomRange(100, 300));
        Mouse(T.X, T.Y, 0, 0, True);
        wait(100+random(50));
        AntiRandoms;
        FailSafe2 := 0;
        repeat
          if (not (LoggedIn)) then
            Exit;
          FailSafe2 := FailSafe2 + 1;
          Wait(500);
          writeln('1 - before find ENT ');
          if FindEnt(T.X, T.Y, true) then
          begin
            AntiRandoms;
            AntiBan;
            Wait(5000+random(100));
          end;
          AntiRandoms;
          writeln('2');
        until ((FailSafe2 >= (RandomRange(MinRange, MaxRange))) or (InvFull)) ;
      writeln('cut wait random range                ');
      end;
      AntiRandoms;
      AntiBan;
      FailSafe1 := FailSafe1 + 1;
      writeln('4');
    until (InvFull);
    writeln('finished cutting inv full or random range 5');
    end;
    //=====================================================\\
    //=====================================================\\
    {|                   Load DTM                          |}
    //=====================================================\\
    //=====================================================\\
    Procedure LoadDTM;
    begin
      LogDTM := DTMFromString('78DA631465606010604001AE76120C92409A1' +
        '1CA67940512ACA86A1CACC451D528020931543506DA82A86AD830D52' +
        '44498A1AAE102129C04D4F0010969543505E9F6286A0042200603');
    end;

    //=====================================================\\
    //=====================================================\\
    {|                   Find DTM                          |}
    //=====================================================\\
    //=====================================================\\

    function FindLogs(var x, y: integer): Boolean;
    var
      LogNot : integer;
    begin
      if (FindDTM(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        writeln('Found Log');
        Result := True;
      end else
        LogNot := LogNot + 1;
      if(LogNot = 5) then
      begin
        writeln('could not find any more Log, Inv must bee empty.');
        Result := False;
      end;
    end;




    //=====================================================\\
    //=====================================================\\
    {|                    Use DTM                          |}
    //=====================================================\\
    //=====================================================\\
    procedure Drop;
    var
    i: Integer;
    begin
      if (InvFull) then
      begin
        GameTab(4);
        writeln('Inv Full now Dropping logs');
        for i := 2 to 28 do
          begin
            AntiRandoms;
            if ExistsItem(i) then
            begin
              MMouseItem(i);
              wait(100 + random(50));
              if(IsUpText('ogs')) then
                begin
                  DropItem(i)
                  Dropped := Dropped + 1;
                  Wait(200 + Random(100));
                  FTWait(1);
                end;
            end;
          end;
        Writeln('Dropped the whole inventory.');
        writeln('Checking for Missed Logs ...');
        repeat
          if(FindLogs(x,y)) then
          begin
            AntiRandoms;
            wait(200);
            MMouse(x,y,4,4);
            wait(500+random(50));
            if(IsUpText('ogs')) then
            begin
              wait(200+random(100));
              Mouse(x,y,0,0,false);
              if (ChooseOption('rop')) then
              begin
                Inc(reportvars[0]);
                Dropped := Dropped + 1;
                Players[CurrentPlayer].integers[1] := Dropped;
                wait(500+random(100));
              end;
            end;
          end;
        until(not(FindLogs(x,y))) or (not(loggedIn));
      Writeln('Dropped the whole inventory.');
      Loadsdone := Loadsdone + 1;
      Inc(reportvars[0]);
      Inc(reportvars[1]);
      end;
    end;
     


    //=====================================================\\
    //=====================================================\\
    {|                    Progress Report                  |}
    //=====================================================\\
    //=====================================================\\

    procedure ProgressReport;
    var
      i: Integer;

      begin
        SrlRandomsReport;
        Writeln('Sending Report');
        Writeln('========================');
        Writeln('I Am Legends''s WOTcutter v' + Versions);
        Writeln('Worked for :' + timerunning);
        Writeln('Dropped ' + inttostr(Dropped) + ' logs.');
        Writeln('Dropped ' + inttostr(Loadsdone) + ' loads ( All players ).');
        Writeln('Talked ' + inttostr(MadeRespond) + ' times to other ppl.');
        Writeln('Made ' + inttostr(Trades) + ' trades.');
        Writeln('Please post progrees reports in my Thread =]. Thanx.');
        Writeln('========================');
        for i := 0 to High(Players) do
        begin
          Writeln('========================');
          Writeln(IntToStr(I) + ': ' + players[i].nick + ' - ' + players[i].loc +
          'Dropped ' + IntToStr(Players[i].integers[1]) + ' Logs.' +
          'Worked: ' + IntToStr(Players[i].Worked) + ' Seconds ');
          Writeln('========================');
        end;
      end;
    //=====================================================\\
    //=====================================================\\
    {|                   Main Procedure                    |}
    //=====================================================\\
    //=====================================================\\

    begin
      SmartSetup('world38', false, true, False);
      SetTargetDC(SMARTGetDC)
      Signature;
      SetUpSRL;
      DeclarePlayers;
      LoadDTM;
      SRLId := YourSRLId;
      SRLPassword := YourSRLPassword;
      ScriptID := '955';
      SetUpScript;
      ActivateClient;
      repeat
        if (not (LoggedIn)) then
        LoginPlayer;
        Wait(1000);
        DetermineLevel;
        repeat
          if (not (LoggedIn)) then
          break;
          Wait(RandomRange(1500, 2500));
          SetAngle(True);
          MakeCompass('N');
          Wait(RandomRange(1000, 1500));
          CutTree;
          Drop;
          writeln('6 - Main loop');
          ProgressReport;
        until (Loadsdone >= (Players[CurrentPlayer].Integers[0]));
        writeln('7 after logged in');
        NextPlayer(LoggedIn);
        writeln('8 - next player logged in. ');
        SetUpScript;
      until (false);
      WriteLn('Script done.');
      Exit;
    end.


    Well someone please have a look . It randomly skips from cutTree procedure and this causes to go NextPlayer false i am so frustrated at this..

    Edit: Shi* i left my username and passs.

  2. #2
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    noone -=[

  3. #3
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm im guessing because scar isnt finding the color, haha im not sure though too lazy to really look through the script
    “Ignorance, the root and the stem of every evil.”

  4. #4
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm that could be the problem.. Il seee....

  5. #5
    Join Date
    Mar 2006
    Posts
    3,051
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks like you need to change around your Drop procedure. Right now it will incread Loadsdone + 1 no matter how many logs you have.

    If you put the Loadsdone + 1 inside the If (InvFull) then Begin.. end loop, then it should work better for you.

    The other option would be to put In not(InvFull) then exit; at the very top of that procedure.


  6. #6
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by tarajunky View Post
    Looks like you need to change around your Drop procedure. Right now it will incread Loadsdone + 1 no matter how many logs you have.

    If you put the Loadsdone + 1 inside the If (InvFull) then Begin.. end loop, then it should work better for you.

    The other option would be to put In not(InvFull) then exit; at the very top of that procedure.
    Thnx for the info , but i already know that =P. I was mainly focusing on the NextPlayer(false) problem when cutting Oak ( which i think it is because it cannot find the colour ).

  7. #7
    Join Date
    Feb 2007
    Posts
    211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am unsure why it goes NextPlayer(false) Unless you are not logged in. It is not the color finding though. I had an issue with one of my scripts, It was really weird and seemed to have something to do with my AntiBans. I know thats no help to you but Im 99% chance its not the color, it MIGHT be that you logged out though may I suggest adding in a debug, having it set the status in each function so you know where it stops to find it.
    Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
    Upcoming Project: Open For Suggestions

  8. #8
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have noticed that this error mainly happens when cutting oaks. THanx for the info though ... I really need help =/. When it happend i checked and it did not go to use Anti Ban when it happend.

    is there no one else?

  9. #9
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't double post.

  10. #10
    Join Date
    Mar 2006
    Posts
    3,051
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    When you say it goes NextPlayer(false), do you mean that your character is still logged in, but the script spits out "NextPlayer(false)" into the SCAR text box? Or do you mean that your character is logging out?

    If you're logging out, it could be just because it takes more than 60 seconds to finish chopping an oak tree, and RS disconnects you for being idle.


  11. #11
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    THe issue is no logging in and out but
    The problem is : When u r cutting it goes NextPlayer: False , however instead of logging out and going to next player it uses the setting from the next player and continues.
    also " script spits out "NextPlayer(false)" into the SCAR text box "

  12. #12
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TheVoiceInYourHead View Post
    Don't double post.
    What the hell man? hes trying 2 get some help and double posting sometimes quickens it up, its not a good habbit but some times people do it, it really annoys me when some one tells some one off when there not a mod , thus spamming as much as the person who did the wrong thing.


    Looking through the script now il Edit this post when i find something.

  13. #13
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanx for looking through and yes i believe TheVoiceInYourHead is spamming ... I have no idea what on earth is wrong with the script...

  14. #14
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    He didn't need to double post. His thread had unread posts, therefore it had no need to be bumped.

    I'm not spamming, I'm trying to stop people from wasting away their post counts.

  15. #15
    Join Date
    Mar 2006
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by TheVoiceInYourHead View Post
    He didn't need to double post. His thread had unread posts, therefore it had no need to be bumped.

    I'm not spamming, I'm trying to stop people from wasting away their post counts.
    He only has 20 posts and i am pretty sure he is not wasting away his post counts. Im saying ur a spammer but look at ur activity and post count =P. Nah Jks.

    Back to the thread :
    Perhaps this is because of lag , memory build up in scar + smart ? ... Hmmm



    Dont Steal..

  16. #16
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The lag of course .. That could be the problem i think its the way i have loaded the DTM's im checking this right away , perhaps the the tpa's are building up memory. Ty.

  17. #17
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    begin
      SmartSetup('world38', false, true, False);
      SetTargetDC(SMARTGetDC)
      Signature;
      SetUpSRL;
      DeclarePlayers;
      LoadDTM;
      SRLId := YourSRLId;
      SRLPassword := YourSRLPassword;
      ScriptID := '955';
      SetUpScript;
      ActivateClient;
      repeat
        if (not (LoggedIn)) then
        LoginPlayer;
        Wait(1000);
        DetermineLevel;
        repeat
          if (not (LoggedIn)) then
          break;
          Wait(RandomRange(1500, 2500));
          SetAngle(True);
          MakeCompass('N');
          Wait(RandomRange(1000, 1500));
          CutTree;
          Drop;
          writeln('6 - Main loop');
          ProgressReport;
        until (Loadsdone >= (Players[CurrentPlayer].Integers[0]));
        writeln('7 after logged in');
        NextPlayer(LoggedIn); //RIGHT HERE LOOK AT ME - HYPERSECRET'S POST IS ABOUT THIS
        writeln('8 - next player logged in. ');
        SetUpScript;
      until (false);
      WriteLn('Script done.');
      Exit;
    end.

    Your mainloop is the problem. I am guessing it makes the player false when the player logs out in the middle of the loop?

    The way you have it is NextPlayer(LoggedIn); LoggedIn is a boolean. So if your player is NOT logged in then the LoggedIn variable returns false. So if it returns false in the NextPlayer(false); then you will obviously be getting a nextplayer false message from scar.

    This is the only possiblity because every other NextPlayer in the script is a NextPlayer(True); Unless your getting NextPlayer false message from Scar when you get into a unsolvable random too, certain randoms automatically set the player to false.

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  18. #18
    Join Date
    Jul 2008
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So if your player is NOT logged in then the LoggedIn variable returns false. So if it returns false in the NextPlayer(false); .. But the thing is that the player is logged in , i have found that the next player false happens whenn the Cut Procedure exits randoms. ..
    Wait im going to take NextPlayer(LoggedIn); out and see.

  19. #19
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    k let me know if that fixes it, just kind of curious...

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. NextPlayer
    By Viral in forum OSR Help
    Replies: 9
    Last Post: 11-12-2008, 07:47 AM
  2. NextPlayer help
    By king vash in forum OSR Help
    Replies: 4
    Last Post: 03-28-2007, 12:54 AM
  3. false and nextplayer
    By macromacro123 in forum OSR Help
    Replies: 1
    Last Post: 03-05-2007, 04:21 PM
  4. Why won't NextPlayer work?
    By Bobarkinator in forum OSR Help
    Replies: 5
    Last Post: 03-04-2007, 04:16 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
  •