Results 1 to 24 of 24

Thread: a little help please..

  1. #1
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default a little help please..

    im not 100% sure where to put my consts. is it okay to have them in the beggining? because im having a little problem with it. another thing i need to ask is about this error ''Identifier expected in script'' ( im pretty sure its about every begin needs an end etc..) the procedure looks like this:

    SCAR Code:
    procedure AntiBan;  //that's the line where i get the error.
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
        6: DoEmote(400 +Random(90));
      end;
    end;


    - Sweet


    ^LOL^

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    On the procedure on top of your AntiBan you need to add an:

    SCAR Code:
    End;

    Hope I Helped

  3. #3
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    On the procedure on top of your AntiBan you need to add an:

    SCAR Code:
    End;

    Hope I Helped
    thanks, it worked.

    i still got another question ^^ there a missing begin in this procedure.. where should i put it? and will this procedure work for dropping?

    SCAR Code:
    procedure Drop;
    var
      I: integer;
    if (InvFull) then
    begin
      for i := 3 to 28 do //Makes i go from 3 to 28. so that you can have 2 axes (inventory 1 and 2)
      DropItem(i);
    end;


    ^LOL^

  4. #4
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    SCAR Code:
    procedure Drop;
    var
      I: integer;
    begin
      if (InvFull) then
      begin//you don't actually need this one
        for i := 3 to 28 do //Makes i go from 3 to 28. so that you can have 2 axes (inventory 1 and 2)
          DropItem(i);
      end;//you don't actually need this one
    end;

    and yes it should work well enough to drop logs.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  5. #5
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    SCAR Code:
    procedure Drop;
    var
      I: integer;
    begin
      if (InvFull) then
      begin//you don't actually need this one
        for i := 3 to 28 do //Makes i go from 3 to 28. so that you can have 2 axes (inventory 1 and 2)
          DropItem(i);
      end;//you don't actually need this one
    end;

    and yes it should work well enough to drop logs.

    ~RM
    thanks! awesome


    ^LOL^

  6. #6
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Okey, another question. i want to make my script like ''True to bank/False to drop'' where should i put this? in most scripts i think there's like in the declare players prodecure. im pretty sure its something about Boolean[0]. but i want to be sure. and also, in my drop procedure, i want it to be like ''Boolean[0] = True then begin etc'' could i get some help with that too?


    ^LOL^

  7. #7
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Players[CurrentPlayer].Booleans[0] := (True/False);

    In DeclarePlayers:
    SCAR Code:
    Players[0].Name := 'Username';
    Players[0].Pass := 'Password';
    Players[0].Nick := 'ser';
    Players[0].Active := True;
    Players[0].Booleans[0] := True/False.. // This.

    SCAR Code:
    begin
      if Players[CurrentPlayer].Booleans[0] = True then
        Bank
      else
        Drop;
    end;

  8. #8
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    SCAR Code:
    begin
      if Players[CurrentPlayer].Booleans[0] then
        Bank
      else
        Drop;
    end;

    That's enough, no need for = True.

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  9. #9
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Thanks evil and rasta


    ^LOL^

  10. #10
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    okey, another little thing. i need to know a good way to walk on the minimap! i dont know if radialwalk is such a good idea for my place where im cutting the willows. im not really sure how to use DDTM's. only dtm's -.-. but does anyone have any other suggestions?


    ^LOL^

  11. #11
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well where are the willows? Maybe I could help a little (im currently learning DDTM's and I got down radialwalk really good. I studied it all day yesterday and got nearly perfect walking from bank to mine and back :P)

  12. #12
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Try TreeWalk:

    SCAR Code:
    {********************************************************************************
    function Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
    By: NaumanAkhlaQ
    Description: Walks to a tree in a specified area, for use in the MiniMap
    Direction: In the string 'WhatTree' the valid arguments are:
    'RareTree',
    'Tree'.
    ********************************************************************************}


    Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
    Var
     Tree : array [0..5] of Integer;
     i : Integer;
    // x,y : Integer;
    begin
      Tree[0] := 2662810;
      Tree[1] := 1659002;
      Tree[2] := 4225609;
      Tree[3] := 1134376;
      Tree[4] := 468785;
      Tree[5] := 867603;
    Case WhatTree of

     'Tree': Begin
               For i:= 0 to 5 do
                If FindColorSpiralTolerance(x,y,Tree[i],x1,y1,x2,y2,100) then
                  Begin
                   Writeln('Tree Found!')
                   Result:= True;
                   Exit;
                  end else
                 Begin
                Exit;
             end;
           end;

     'RareTree' : Begin
                    If FindSymbolIn(x,y,'Tree',x1,y1,x2,y2) then
                      Begin
                       Writeln('Tree Found!')
                       Result:= True
                       Exit;
                      end else
                     Begin
                    Writeln('Tree Not Found, Exiting');
                    Exit;
                   end;
                end;
       end;
    end;

    Might Need to Pick your won colors

    Hope I Helped

  13. #13
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by The[Cheese] View Post
    Well where are the willows? Maybe I could help a little (im currently learning DDTM's and I got down radialwalk really good. I studied it all day yesterday and got nearly perfect walking from bank to mine and back :P)
    im learning DDTM's aswell. and the willows are in rimmington. im trying to make a powercutter/seller. i tried using ddtm's but it couldnt find the dtm. it be because i picked such a small area where i want to walk. ill just try again i guess.

    edit:


    ^LOL^

  14. #14
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    @ Cheese try making it find the Quest Symbol then adding a -15 onto the x valuse so:

    SCAR Code:
    If FindSymbol(x,y,'quest') Then
      Mouse(x-10-Random(5),y,1,1,true);



    Hope I Helped

  15. #15
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    @ Cheese try making it find the Quest Symbol then adding a -15 onto the x valuse so:

    SCAR Code:
    If FindSymbol(x,y,'quest') Then
      Mouse(x-10-Random(5),y,1,1,true);



    Hope I Helped
    its acutally me that needs the help xD. not cheese ^^. but im really greatful that you're taking your time helping me


    ^LOL^

  16. #16
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by kor View Post
    its acutally me that needs the help xD. not cheese ^^. but im really greatful that you're taking your time helping me
    No Problem

    Glad I Could Help

  17. #17
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You sure u did DTMRotated and you were facing north? Lemme see what i can rummage up.

  18. #18
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by The[Cheese] View Post
    You sure u did DTMRotated and you were facing north? Lemme see what i can rummage up.
    yes, i did. but the map probably changes each time you log on. it worked like a charm first but then when i logged out and in it didnt :P but i cant script atm.. working on other stuff ^^


    ^LOL^

  19. #19
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    If you want to use DTM's make sure your DTM has a tolerance. Make the MainPoint a Tol of about 10; then the black areas should be 0. If you use colors for the other areas use a tolerance of 5.

    Hope that helps

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  20. #20
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Nava2 View Post
    If you want to use DTM's make sure your DTM has a tolerance. Make the MainPoint a Tol of about 10; then the black areas should be 0. If you use colors for the other areas use a tolerance of 5.

    Hope that helps

    Nava2
    you mean like when making DDTMS? or am i just confused? because from what i know you have a mainpoint with colors, tol, shape. and then you can have some subpoints with colors, tol, etc.. so, is that what you're talking about? because i used like if (findDTMRotaded(Something.. etc. i dont really remember how it is tho ^^ its been a while.


    ^LOL^

  21. #21
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    You have to make the Tol on the DTM editor

  22. #22
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    You have to make the Tol on the DTM editor
    oh sweet, ill rep you like hell man you're awesome.


    ^LOL^

  23. #23
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    okey i need some help. i want to auto color some grass but i dont really know how to auto color :P i searched and looked around for a guide but i didnt find one. i was thinking about using ACA to get the function, or some other way. can someone help me autocolor or post a link to a tutorial :P
    thanks.


    ^LOL^

  24. #24
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    check out Cazax's tutorial on autocoloring, it's a really good one, it's either in intermediates or advanced.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

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
  •