Page 1 of 4 123 ... LastLast
Results 1 to 25 of 86

Thread: Expected semicolon instead of "end."

  1. #1
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default Expected semicolon instead of "end."

    How the hell do I fix this error, just made my first script and I get this : confused:

    moved from previous section PLEASE HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  2. #2
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by 10wnu9 View Post
    How the hell do I fix this error, just made my first script and I get this : confused:

    moved from previous section PLEASE HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    First off, the whole "PLEASE HELP!!!!!!!!!!!!!!!!!!!!!!" etc. is obnoxious and unnecessary, so no need for that.

    Second, If you would like to post like code and the actual error, that would help people help you.

  3. #3
    Join Date
    Nov 2011
    Location
    Sacramento, California
    Posts
    366
    Mentioned
    4 Post(s)
    Quoted
    85 Post(s)

    Default

    You just made another thread about the same thing.
    Try not to create multiple threads.

  4. #4
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by sahibjs View Post
    You just made another thread about the same thing.
    Try not to create multiple threads.
    His other thread was in a different forum. He posted this one in the correct forum, though he should have reported the other thread to have it moved. I have already reported it .
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  5. #5
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Yes I know I understand, I'm Ultimately tired, you'd see me round the forum, i'm not usually like this, as for the other one, I shall delete it when Possible.

    And Here is the Simba TAGS

    Simba Code:
    program New;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$DEFINE SRL5}

    //This Is My very First Script, If You
    //Are Using It Please Leave Constructive Critiscism!

    Const

    World = 103; //May not Work As of Yet.
    MEMBERS = True;

    Stats_UserID   = '';
    Stats_Password = '';

    AutoUpdate  = True;




    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; // Username?
      Players[0].Pass := ''; // Password?
      Players[0].Nick := '10w';  // 3 letters of your username (not the first letter)
      Players[0].Active := True;

    end;
    Function CheckAndClick(UpText, Option:String; X,Y:Integer;RClick:Boolean) :Boolean;
    Begin
      MMouse(x,y,5,5);
      If WaitUptext(Uptext, 1500+Random(500)) Then
      Begin
        Result:= True;
        GetMousePos(x, y);
        If RClick Then
        Begin
        Mouse(x, y, 0, 0, False);
        Result:= WaitOption(Option,1800);
        If Result Then FFlag(0);
      End Else
      Begin
        Mouse(x, y, 0, 0, True);
        Wait(100+Random(50));
        FFlag(0);
       End;
      End;
     End;




    procedure AntiBan;

    begin

      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
      case Random(2) of
      0:
         begin
         Gametab(Tab_Stats) Hoverskill ('Random',False);
         Wait(7873+Random(298));
         Gametab(Tab_Inv);
         MakeCompass('W');
         Wait(9346+Random(222));
         MakeCompass('E');
       end;
       1: PickUpMouse;
       2:
       begin
         MakeCompass('S');
         wait(222+random(1335));
         MakeCompass('W');
         wait(561+random(133));
         MakeCompass('E');
         FindNormalRandoms;
       end;
      end;
    end;



    procedure ChopTree;
    var x, y, PlusOne, TooLong, TreeCounter: integer;
    begin
      MarkTime(TooLong);
      PlusOne:= InvCount + 1;
      x:=MSCX;
      y:=MSCY;
      If FindObjTPA(x, y, 3424846, 5, 1, 15, 60, 600, ['Cho'])then

      Case Random(2) of
      0: Mouse(x, y, 5, 5, True);
      1: Begin
        Mouse(x, y, 5, 5, False);
        WaitOption('Chop', 500);
        End;
      End;

      Flag;
      MarkTime(TreeCounter);
      If (TimeFromMark(TooLong) > 30000) then
        repeat
        FindNormalRandoms;
         if FindObj(x, y, 'hop', 3424846, 22)

          then Mouse(x, y, 2, 2, false);
          ChooseOption('hop');
        Wait(198+Random(128));

         FindNormalRandoms;
         if FindObj(x, y, 'hop', 3424846, 22)

         then
           Mouse(x,y,0,0,false);
           ChooseOption('hop');
         Wait(222+Random(122));

        WriteLn ('ANNIHILATING TREE!');
        if InvCount=+1 then
        WriteLn('We Got the Yew log!!');

        begin
          Mouse(x, y, 2, 2, false);
          ChooseOption('hop');

      end;

          Flag;
          MarkTime(TreeCounter);

          repeat
          Wait(75+Random(286)); MakeCompass('W');
           Wait(500+Random(122));
          Wait(75+Random(133)); MakeCompass('E');
          wait(400+random(250));
          AntiBan;
          If InvCount=PlusOne Then
          WriteLn('We ANNIHILATED another log!');
          Until not IsUpText('ew') or (InvFull);
      until(InvFull);

    End;

    Procedure DropLogs;
    Var
      x, y, LogDTM, I:Integer;
      SlotBox:TBox;
      LogPattern:TIntegerArray;
    Begin

        LogDTM := DTMFromString('mbQAAAHicY2VgYHBlYmAwA2JjIHYA4gAgfgIUfwTEb4D4AxA/BmIHAxkgyYSGUcF/IGbEgsEAABw/B2s=');
        LogPattern:=[1,5,9,13,17,21,25,29,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,16,12,8,4];

        If InvFull then

        begin
        FindNormalRandoms;
        For I:=0 To 27 Do

      Begin
        FindNormalRandoms;
        Status('Dropping Log:'+ IntToStr(I));
        SlotBox:=InvBox(LogPattern[I]);
        If FindDTm(LogDTM,x,y,Slotbox.x1,Slotbox.y1, SlotBox.x2, Slotbox.y2) Then

        begin
        MouseItem(LogPattern[I],1);
        ChooseOption('Dro');
       End;
     End;

    End;

    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

    repeat

      ChopTree;
      If Invfull then
      DropLogs;
      until(False);
    End.


    Bare In Mind This Is MY FIRST script ever and It's going okay, it's at the end. ^^^

    I get the error it says--- Error] (194:4): Identifier expected at line 193

    Line 193 Being the part saying "End."

    The end of the script, so thanks for you consideration.

  6. #6
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by Sex View Post
    His other thread was in a different forum. He posted this one in the correct forum, though he should have reported the other thread to have it moved. I have already reported it .
    Thank you .

  7. #7
    Join Date
    Jul 2010
    Posts
    1,115
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    please check the original thread where i posted you are missing an end;

  8. #8
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by 10wnu9 View Post
    Yes I know I understand, I'm Ultimately tired, you'd see me round the forum, i'm not usually like this, as for the other one, I shall delete it when Possible.

    And Here is the Simba TAGS

    Simba Code:
    program New;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$DEFINE SRL5}

    //This Is My very First Script, If You
    //Are Using It Please Leave Constructive Critiscism!

    Const

    World = 103; //May not Work As of Yet.
    MEMBERS = True;

    Stats_UserID   = '';
    Stats_Password = '';

    AutoUpdate  = True;




    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; // Username?
      Players[0].Pass := ''; // Password?
      Players[0].Nick := '10w';  // 3 letters of your username (not the first letter)
      Players[0].Active := True;

    end;
    Function CheckAndClick(UpText, Option:String; X,Y:Integer;RClick:Boolean) :Boolean;
    Begin
      MMouse(x,y,5,5);
      If WaitUptext(Uptext, 1500+Random(500)) Then
      Begin
        Result:= True;
        GetMousePos(x, y);
        If RClick Then
        Begin
        Mouse(x, y, 0, 0, False);
        Result:= WaitOption(Option,1800);
        If Result Then FFlag(0);
      End Else
      Begin
        Mouse(x, y, 0, 0, True);
        Wait(100+Random(50));
        FFlag(0);
       End;
      End;
     End;




    procedure AntiBan;

    begin

      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
      case Random(2) of
      0:
         begin
         Gametab(Tab_Stats) Hoverskill ('Random',False);
         Wait(7873+Random(298));
         Gametab(Tab_Inv);
         MakeCompass('W');
         Wait(9346+Random(222));
         MakeCompass('E');
       end;
       1: PickUpMouse;
       2:
       begin
         MakeCompass('S');
         wait(222+random(1335));
         MakeCompass('W');
         wait(561+random(133));
         MakeCompass('E');
         FindNormalRandoms;
       end;
      end;
    end;



    procedure ChopTree;
    var x, y, PlusOne, TooLong, TreeCounter: integer;
    begin
      MarkTime(TooLong);
      PlusOne:= InvCount + 1;
      x:=MSCX;
      y:=MSCY;
      If FindObjTPA(x, y, 3424846, 5, 1, 15, 60, 600, ['Cho'])then

      Case Random(2) of
      0: Mouse(x, y, 5, 5, True);
      1: Begin
        Mouse(x, y, 5, 5, False);
        WaitOption('Chop', 500);
        End;
      End;

      Flag;
      MarkTime(TreeCounter);
      If (TimeFromMark(TooLong) > 30000) then
        repeat
        FindNormalRandoms;
         if FindObj(x, y, 'hop', 3424846, 22)

          then Mouse(x, y, 2, 2, false);
          ChooseOption('hop');
        Wait(198+Random(128));

         FindNormalRandoms;
         if FindObj(x, y, 'hop', 3424846, 22)

         then
           Mouse(x,y,0,0,false);
           ChooseOption('hop');
         Wait(222+Random(122));

        WriteLn ('ANNIHILATING TREE!');
        if InvCount=+1 then
        WriteLn('We Got the Yew log!!');

        begin
          Mouse(x, y, 2, 2, false);
          ChooseOption('hop');

      end;

          Flag;
          MarkTime(TreeCounter);

          repeat
          Wait(75+Random(286)); MakeCompass('W');
           Wait(500+Random(122));
          Wait(75+Random(133)); MakeCompass('E');
          wait(400+random(250));
          AntiBan;
          If InvCount=PlusOne Then
          WriteLn('We ANNIHILATED another log!');
          Until not IsUpText('ew') or (InvFull);
      until(InvFull);

    End;

    Procedure DropLogs;
    Var
      x, y, LogDTM, I:Integer;
      SlotBox:TBox;
      LogPattern:TIntegerArray;
    Begin

        LogDTM := DTMFromString('mbQAAAHicY2VgYHBlYmAwA2JjIHYA4gAgfgIUfwTEb4D4AxA/BmIHAxkgyYSGUcF/IGbEgsEAABw/B2s=');
        LogPattern:=[1,5,9,13,17,21,25,29,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,16,12,8,4];

        If InvFull then

        begin
        FindNormalRandoms;
        For I:=0 To 27 Do

      Begin
        FindNormalRandoms;
        Status('Dropping Log:'+ IntToStr(I));
        SlotBox:=InvBox(LogPattern[I]);
        If FindDTm(LogDTM,x,y,Slotbox.x1,Slotbox.y1, SlotBox.x2, Slotbox.y2) Then

        begin
        MouseItem(LogPattern[I],1);
        ChooseOption('Dro');
       End;
     End;

    End;

    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;

    repeat

      ChopTree;
      If Invfull then
      DropLogs;
      until(False);
    End.


    Bare In Mind This Is MY FIRST script ever and It's going okay, it's at the end. ^^^

    I get the error it says--- Error] (194:4): Identifier expected at line 193

    Line 193 Being the part saying "End."

    The end of the script, so thanks for you consideration.
    Go to sleep .

    This is one of those reasons why proper formatting standards are important. Let me fix it up for you.

    Edit: Nevermind, see above post.
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  9. #9
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Seems easy enough, I have around 30 mins before I crash out, Just explain where end; goes and I will be extremely pleased.

  10. #10
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Hmm, How did I format It wrong, In standards Is this about the worst you can get?

  11. #11
    Join Date
    Jul 2010
    Posts
    1,115
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Simba Code:
    Procedure DropLogs;
    Var
      x, y, LogDTM, I:Integer;
      SlotBox:TBox;
      LogPattern:TIntegerArray;
    Begin

        LogDTM := DTMFromString('mbQAAAHicY2VgYHBlYmAwA2JjIHYA4gAgfgIUfwTEb4D4AxA/BmIHAxkgyYSGUcF/IGbEgsEAABw/B2s=');
        LogPattern:=[1,5,9,13,17,21,25,29,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,16,12,8,4];

        If InvFull then

        begin
        FindNormalRandoms;
        For I:=0 To 27 Do

      Begin
        FindNormalRandoms;
        Status('Dropping Log:'+ IntToStr(I));
        SlotBox:=InvBox(LogPattern[I]);
        If FindDTm(LogDTM,x,y,Slotbox.x1,Slotbox.y1, SlotBox.x2, Slotbox.y2) Then

        begin
        MouseItem(LogPattern[I],1);
        ChooseOption('Dro');
       End;
     End;
    end;//////////////////////////////////////////here
    End;

  12. #12
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Wink

    Quote Originally Posted by 10wnu9 View Post
    Hmm, How did I format It wrong, In standards Is this about the worst you can get?

    I see YoHoJo Is Here, I say Let Him explain, I used His guide

  13. #13
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Never Mind, Thank You Bolshak, And the rest-ofyou who helped, especially YoHoJo for His WoodCutting TUT that I clearly Made a Mess Of ;D.

  14. #14
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Simba Code:
    program New;
    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$DEFINE SRL5}

    const
      World = 103;
      MEMBERS = True;
      Stats_UserID = '';
      Stats_Password = '';
      AutoUpdate = True;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '10w';
      Players[0].Active := True;
    end;

    function CheckAndClick(UpText, Option: string; X, Y: Integer; RClick: Boolean): Boolean;
    begin
      MMouse(x, y, 5, 5);
      if WaitUptext(Uptext, 1500 + Random(500)) then
      begin
        Result := True;
        GetMousePos(x, y);
        if RClick then
        begin
          Mouse(x, y, 0, 0, False);
          Result := WaitOption(Option, 1800);
          if Result then
            FFlag(0);
        end
        else
        begin
          Mouse(x, y, 0, 0, True);
          Wait(100 + Random(50));
          FFlag(0);
        end;
      end;
    end;

    procedure AntiBan;
    begin
      if (not (LoggedIn)) then
        Exit;
      FindNormalRandoms;
      case Random(2) of
        0:
          begin
            Gametab(Tab_Stats) Hoverskill('Random', False);
            Wait(7873 + Random(298));
            Gametab(Tab_Inv);
            MakeCompass('W');
            Wait(9346 + Random(222));
            MakeCompass('E');
          end;
        1: PickUpMouse;
        2:
          begin
            MakeCompass('S');
            wait(222 + random(1335));
            MakeCompass('W');
            wait(561 + random(133));
            MakeCompass('E');
            FindNormalRandoms;
          end;
      end;
    end;

    procedure ChopTree;
    var
      x, y, PlusOne, TooLong, TreeCounter: integer;
    begin
      MarkTime(TooLong);
      PlusOne := InvCount + 1;
      x := MSCX;
      y := MSCY;
      if FindObjTPA(x, y, 3424846, 5, 1, 15, 60, 600, ['Cho']) then
        case Random(2) of
          0: Mouse(x, y, 5, 5, True);
          1:
            begin
              Mouse(x, y, 5, 5, False);
              WaitOption('Chop', 500);
            end;
        end;
      Flag;
      MarkTime(TreeCounter);
      if (TimeFromMark(TooLong) > 30000) then
        repeat
          FindNormalRandoms;
          if FindObj(x, y, 'hop', 3424846, 22) then
            Mouse(x, y, 2, 2, false);
          ChooseOption('hop');
          Wait(198 + Random(128));
          FindNormalRandoms;
          if FindObj(x, y, 'hop', 3424846, 22) then
            Mouse(x, y, 0, 0, false);
          ChooseOption('hop');
          Wait(222 + Random(122));
          WriteLn('ANNIHILATING TREE!');
          if InvCount = + 1 then
            WriteLn('We Got the Yew log!!');
          begin
            Mouse(x, y, 2, 2, false);
            ChooseOption('hop');
          end;
          Flag;
          MarkTime(TreeCounter);
          repeat
            Wait(75 + Random(286));
            MakeCompass('W');
            Wait(500 + Random(122));
            Wait(75 + Random(133));
            MakeCompass('E');
            wait(400 + random(250));
            AntiBan;
            if InvCount = PlusOne then
              WriteLn('We ANNIHILATED another log!');
          until not IsUpText('ew') or (InvFull);
        until (InvFull);
    end;

    procedure DropLogs;
    var
      x, y, LogDTM, I: Integer;
      SlotBox: TBox;
      LogPattern: TIntegerArray;
    begin
      LogDTM := DTMFromString('mbQAAAHicY2VgYHBlYmAwA2JjIHYA4gAgfgIUfwTEb4D4AxA/BmIHAxkgyYSGUcF/IGbEgsEAABw/B2s=');
      LogPattern := [1, 5, 9, 13, 17, 21, 25, 29, 2, 6, 10, 14, 18, 22, 26, 3, 7, 11, 15, 19, 23, 27, 4, 8, 12, 16, 20, 16, 12, 8, 4];
      if InvFull then
      begin
        FindNormalRandoms;
        for I := 0 to 27 do
        begin
          FindNormalRandoms;
          Status('Dropping Log:' + IntToStr(I));
          SlotBox := InvBox(LogPattern[I]);
          if FindDTm(LogDTM, x, y, Slotbox.x1, Slotbox.y1, SlotBox.x2, Slotbox.y2) then
          begin
            MouseItem(LogPattern[I], 1);
            ChooseOption('Dro');
          end;
        end;
      end;
    end; // you were missing this
    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      repeat
        ChopTree;
        if Invfull then
          DropLogs;
      until (False);
    end.
    Proper standards for you .

    By the way, you were missing the end; at the end of the DropLogs procedure.
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  15. #15
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    If I fix Up My script to General Good Use Standards How will I release It on the forums?

  16. #16
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by 10wnu9 View Post
    If I fix Up My script to General Good Use Standards How will I release It on the forums?
    What do you mean?
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  17. #17
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    I Have No clue.

    Right. Composure..3:22am Isn't easy on me.

    Okay I mean, If I improve the standards of my script could I put it on the first scripts board etc?

  18. #18
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    If you feel you're done with the script and it works fine, then sure you can post it in the First Script forum..still don't quite get your question. Standards are something you'll want to have no matter what .
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  19. #19
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Okay the script is working "Okay" But is Not complete, Is there a way to make the script change the camera angle until it finds acceptable colour/tree or is there the only MakeCompass('N'); Setting?

    Thanks.

  20. #20
    Join Date
    Jun 2006
    Posts
    694
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    Quote Originally Posted by 10wnu9 View Post
    Okay the script is working "Okay" But is Not complete, Is there a way to make the script change the camera angle until it finds acceptable colour/tree or is there the only MakeCompass('N'); Setting?

    Thanks.
    MakeCompass(0);

    You can easily change the angle by adding whatever (Angle) if tree find failed.

  21. #21
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Sorry wyn I don't understand as I am New to scripting

    do I put MakeCompass(0); and that's it?

    Or MakeAngle?

    Sorry Just give me and example, can you make it just spin around a random angle until it finds a tree?

    Meh.

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

    Default

    You could use CompassMovement(0, 360, false) which would move the camera to a random angle between 0 and 360 degrees.

    You could set it at the start of your function, then repeat the function until it finds a tree.
    Last edited by Abu; 03-20-2012 at 07:57 PM.

  23. #23
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    How long is the average beginner script in lines

    100-500?

    Mines 205 atm.

  24. #24
    Join Date
    Dec 2011
    Location
    New York, USA
    Posts
    1,242
    Mentioned
    12 Post(s)
    Quoted
    193 Post(s)

    Default

    CompassMovement(0, 360, false); or MakeCompass(RandomRange(-180, 180)); to move the compass to a random angle. It would look something like this:

    Simba Code:
    if (FindTree = False) then
    repeat
      CompassMovement(0, 360, False);
    until(FindTree = True);

    Average first script length varies.. But would be 50 - 300 imo.

  25. #25
    Join Date
    Jan 2012
    Location
    Billingham
    Posts
    171
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Abu That helped a ton dude , Now I seriously think my only problem is this!

    If I get this fixed it will work completely.

    Okay so what happens is instead of dropping it left clicks on logs and not right clicks :\ I'll post the dropping part of the script

    Simba Code:
    Procedure DropLogs;
    Var
      x, y, LogDTM, I:Integer;
      SlotBox:TBox;
      LogPattern:TIntegerArray;
    Begin
        LogDTM := DTMFromString('mbQAAAHicY2VgYHBlYmAwA2JjIHYA4gAgfgIUfwTEb4D4AxA/BmIHAxkgyYSGUcF/IGbEgsEAABw/B2s=');
        LogPattern:=[1,5,9,13,17,21,25,29,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,16,12,8,4];

        If InvFull then

        begin
        FindNormalRandoms;
        For I:=0 To 27 Do

      Begin
        FindNormalRandoms;
        Status('Dropping Log:'+ IntToStr(I));
        SlotBox:=InvBox(LogPattern[I]);
        If FindDTm(LogDTM,x,y,Slotbox.x1,Slotbox.y1, SlotBox.x2, Slotbox.y2) Then

        begin
        MouseItem(LogPattern[I],1);
        ChooseOption('rop');
        End;
     End;
    End;
    End;

    There whats wrong?

Page 1 of 4 123 ... LastLast

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
  •