Results 1 to 25 of 25

Thread: Draynor Willows[1st Script] NEED HELP!

  1. #1
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Draynor Willows[1st Script] NEED HELP!

    I keep getting an error saying that i need to put a colon, but I'm following a video and my script is typed out the exact way the person in the video is typing his out, Help please?

    Code:
    NumberOfPlayers:(NumbOfPlayers); 
      CurrentPlayer := StartPlayer;
      for i := to NumbOfPlayers-1 do
        Players[1].BoxRewards := ['XP', 'oins']

    It's the line that says CurrentPlayer := StartPlayer; that is giving me problems
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

  2. #2
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Change CurrentPlayer to 0. First player should always be 0, then the next 1, and so on.

  3. #3
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by NKN View Post
    Change CurrentPlayer to 0. First player should always be 0, then the next 1, and so on.
    Yeah, first player should be player[0].

  4. #4
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    I feel like you just copied what I said to get your post count up. Would that count as spamming?

  5. #5
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by NKN View Post
    I feel like you just copied what I said to get your post count up. Would that count as spamming?
    If I'm not mistaken you put: put player to 0.
    While I said it more especifically: player[0].
    see the difference?

  6. #6
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Not really.... because it should be:
    Simba Code:
    CurrentPlayer := 0;
    So you're wrong, if not using multiplayer, I think.

  7. #7
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by NKN View Post
    Not really.... because it should be:
    Simba Code:
    CurrentPlayer := 0;
    So you're wrong, if not using multiplayer, I think.
    Wouldn't that be in declare player, if I'm not mistaken his code is not declare player and the last line has player[1], which has to be changed to player[0].
    Am I wrong or right?

  8. #8
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    So his code is wrong, and we've both been arguing over something wrong? -facepalm-

  9. #9
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Isn't supposed to be:

    Simba Code:
    procedure DeclarePlayers;
      var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards := ['XP'];

      With Players[0] do
      begin
        Name := ''; //Username.
        Pass := ''; //Password.
        Active := True;
      end;

  10. #10
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats guys
    I've got another problem now, im just starting out so i might get annoying with all the problems i get anyway

    Code:
    Procedure AntiBan;
    Begin
      Case Random(250);
        0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcutting', False) GameTab(28) End;
        1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
        2: Begin StatsGuise('AntiBan') GameTab(tab_Inv); ExamineInv; GameTab(28); End;
        3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
        4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats) Wait(3000 + Random(500)); GameTab(28) End;
        5: Begin StatsGuise('AntiBan') GameTab(Tab_Stats) HoverSkill('random', False); GameTab(28) End;
    the debug box says 'OF' is expented at like 63 (AntiBan 0)
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

  11. #11
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Simba Code:
    Case Random(250) of

    Don't use a semicolon.

  12. #12
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks
    now another problem :/ The mouse goes to the tree and doesnt say anything when it gets there and moves arround the tree randomly,

    Code:
    Program PowerChopper;
      //{$DEFINE SMART}
      {$i srl/srl.simba}
    
    
    Const
      SRLStats_Username = '';
      SRLStats_Passworld = '';
      BreakEvery = '600';
      BreakFor = '5';
      Version = '1.0';
      NumbOfPlayers = 1;
      StartPlayer = 0;
    
    
      Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name        := '';
          Pass        := '';
          Pin         := '';
          BoxRewards  := ['XP','xp','lamp'];
          LampSkill   := Skill_Woodcutting;
          Active      := True;
        end;
      end;
    
    
    
    Procedure StatGuise(wat: String);
    Begin
      Status(wat);
      Disguise(wat);
    End;
    
    procedure Antiban;
    begin
      case Random(60)of
        10: RandomRClick;
        20: HoverSkill('Strength', False);
        30: PickUpMouse;
        40: RandomMovement;
        50: BoredHuman;
        59: ExamineInv;
      end;
    end;
    Procedure FailSafe(Reason:String);
    Begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    End;
    
    Function ChopDown: Boolean;
    Var
     x, y: Integer;
    Begin
      //FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
      If FindObjCustom(x, y, ['Chop','down', 'p d'], [1715243, 1252891, 2307895, 1252891], 3) Then
      Writeln('Hooray, we found a tree!');
    End;
    
    Begin
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      Repeat
        ChopDown
      Until(false);
     End.
    That's the full script so you can try and see for yourself the exact problem
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

  13. #13
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    [QUOTE=Edgeeawaits;995335]Thanks
    now another problem :/ The mouse goes to the tree and doesnt say anything when it gets there and moves arround the tree randomly,

    Code:
    Program PowerChopper;
      //{$DEFINE SMART}
      {$i srl/srl.simba}
    
    
    Const
      SRLStats_Username = '';
      SRLStats_Passworld = '';
      BreakEvery = '600';
      BreakFor = '5';
      Version = '1.0';
      NumbOfPlayers = 1;
      StartPlayer = 0;
    
    
      Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name        := '';
          Pass        := '';
          Pin         := '';
          BoxRewards  := ['XP','xp','lamp'];
          LampSkill   := Skill_Woodcutting;
          Active      := True;
        end;
      end;
    
    
    
    Procedure StatGuise(wat: String);
    Begin
      Status(wat);
      Disguise(wat);
    End;
    
    procedure Antiban;
    begin
      case Random(60)of
        10: RandomRClick;
        20: HoverSkill('Strength', False);
        30: PickUpMouse;
        40: RandomMovement;
        50: BoredHuman;
        59: ExamineInv;
      end;
    end;
    Procedure FailSafe(Reason:String);
    Begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    End;
    
    Function ChopDown: Boolean;
    Var
     x, y: Integer;
    Begin
      //FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
      If FindObjCustom(x, y, ['Chop','down', 'p d'], [1715243, 1252891, 2307895, 1252891], 3) Then
      Writeln('Hooray, we found a tree!');
    End;
    
    Begin
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      Repeat
        ChopDown
      Until(false);
     End.
    Dont you need something like this, its not the code but an example ok.

    Simba Code:
    Procedure WalkToTree;

        Var
          ToTrees:TPointArray;

            Begin
              if(not(LoggedIn))then
              Exit;
              FindNormalRandoms;

                Writeln('Attempting To Walk To Trees...')
                SetupSRL;
                SPS_Areas := ['10_9'];
                ToTrees:=  [Point(4209, 3686), Point(4190, 3735)];
                SPS_WalkPath(ToTrees);

               Writeln('Found the trees');
                Wait(5354+random(254));
    End;

    ......Sorry but this is a really bad example....
    Last edited by Silentcore; 04-20-2012 at 06:31 PM.

  14. #14
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Make sure the Uptext is perfect, it has to be EXACTLY typed out, capitals and all.

    So if it was "Chop" I would put "hop"


    Edit:
    By exactly, I meant the capital letters and spaces.
    Last edited by NKN; 04-20-2012 at 06:36 PM.

  15. #15
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by NKN View Post
    Make sure the Uptext is perfect, it has to be EXACTLY typed out, capitals and all.

    So if it was "Chop" I would put "hop"
    yeah the uptext is also important.
    Last edited by Silentcore; 04-20-2012 at 06:31 PM.

  16. #16
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by Ucantseemebot View Post

    Dont you need something like this, its not the code but an example ok.

    Simba Code:
    Procedure WalkToTree;

        Var
          ToTrees:TPointArray;

            Begin
              if(not(LoggedIn))then
              Exit;
              FindNormalRandoms;

                Writeln('Attempting To Walk To Trees...')
                SetupSRL;
                SPS_Areas := ['10_9'];
                ToTrees:=  [Point(4209, 3686), Point(4190, 3735)];
                SPS_WalkPath(ToTrees);

               Writeln('Found the trees');
                Wait(5354+random(254));
    End;
    You didn't setup SPS and you shouldn't be setting up SRL there and it has very bad standards.. bad example

  17. #17
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Quote Originally Posted by NKN View Post
    Make sure the Uptext is perfect, it has to be EXACTLY typed out, capitals and all.

    So if it was "Chop" I would put "hop"
    That doesn't make sense. You told him to write it out EXACTLY with with required capitals and then wrote 'hop' as your example

  18. #18
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by tehq View Post
    You didn't setup SPS and you shouldn't be setting up SRL there and it has very bad standards.. bad example
    yeah i noticed the bad example when i posted. sorry.

  19. #19
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Quote Originally Posted by abu_jwka View Post
    That doesn't make sense. You told him to write it out EXACTLY with with required capitals and then wrote 'hop' as your example
    I meant the capital letters/stuff, not the whole word. D:

    -runs- Don't judge me!

  20. #20
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Identifier expected at line 83
    Compiling failed.

    Line 83 is the end of my script where it says end. i dont know why im getting this problem, you guys have been very helpful tho maybe help me out once more?

    Code:
    Function ChopDown: Boolean;
    Var
     x, y: Integer;
    Begin
      //FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
      If FindObjCustom(x, y, ['hop','down', 'p d'], [1318686, 1450785, 923159, 924954], 3) Then
    Begin
      Writeln('Hooray, we found a tree!');
      GetMousePos(x, y);
      Case Random(2) Of
        0: Mouse(x, y, 5, 5, True);
        1: Begin
            Mouse(x, y, 5, 5, False);
            WaitOption('Chop', 500);
           End;
      End;
    
    Begin
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      Repeat
        ChopDown;
      Until(false);
    end.
    The last line is the error, im putting this section of the code just incase something above is messing it up. the full code is listed on an earlier post
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

  21. #21
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    You are missing out an end in your ChopDown procedure.

    Please do not continue to post every error you get here. Part of learning to script is being able to recognise and solve these issues yourself. I certainly don't remember asking for help like this when making my first script because I always tried to be independent.

    There's nothing wrong with asking for help, just don't rely on others too much

  22. #22
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the help! Got it working now, ill try to be more independent in the future, the help was much appereciated
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

  23. #23
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by Edgeeawaits View Post
    Thanks for the help! Got it working now, ill try to be more independent in the future, the help was much appereciated
    Well i'm glad you finished it and an advice for you is: take a look around at some threads where ppl post errors and see how they solve it. GJ'

  24. #24
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ucantseemebot View Post
    Well i'm glad you finished it and an advice for you is: take a look around at some threads where ppl post errors and see how they solve it. GJ'
    Will do, thanks for all your help
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

  25. #25
    Join Date
    Apr 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, or apperantly I didnt get it working, cool. Not going to ask for help on this one unless I cant get it after a few hours
    Completed Scripts [2]:
    PowerWillowsby Edge
    AllInOneChopper by Edgee

Thread Information

Users Browsing this Thread

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

Posting Permissions

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