Page 1 of 2 12 LastLast
Results 1 to 25 of 29

Thread: TBKAntiBan(Talk, Respond : Boolean); [!ELITE!]

  1. #1
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    TBKAntiBan(Talk, Respond : Boolean); [!ELITE!]

    TBKAntiBan : Betav1


    Beta v1 Released!


    Last Updated:

    January 30th, 2008.


    Please Rep++ me if you like.


    OVER 900 lines of Elite AntiBan.



    The procedure includes:

    1. Elite Anti-Ban.

    2. Random Talking.

    3. Automatic Responding.

    --------------------------


    Use:

    SCAR Code:
    TBKAntiBan(Talk, Respond : Boolean);
    SCAR Code:
    {Set Talk to 'True' to randomly talk sometimes.}
    {Set Respond to 'True' to use the Automatic Responder.}


    Well this is one of my very 1st procedures.
    RUNS Perfect!



    Please leave FEEDBACK!

    Hope you like it.

    TurboBk.

  2. #2
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, glad, you did something, but about talking and compass turning...


    You are responing to yourself, add something like:
    SCAR Code:
    if......................................then
      then in not FindBlackChatMessage(Player[currentplayer].nick) then
    begin
    ...

    Well, some scripts are made to work in specific angle...So before you could do something like that
    SCAR Code:
    Deg := Rs_GetCompassAngleDegrees

    And end of antiban:
    SCAR Code:
    For i := 0 to 3 do
    Case i of
      1 := if InRange(Round(Deg),  315, 45) then
               if not InRange(Rs_GetCompassAngleDegrees, 315, 45) then
                 MakeCompass('N');
      2 : ...
      and so on...


    GJ though
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  3. #3
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok Negaal, Thanks alot for the advice.

    I've fixed up the Responder.

    But I don't quite understand the:
    Deg := Rs_GetCompassAngleDegrees
    For i := 0 to 3 do
    Case i of
    1 := if InRange(Round(Deg), 315, 45) then
    if not InRange(Rs_GetCompassAngleDegrees, 315, 45) then
    MakeCompass('N');
    2 : ...
    and so on...
    Can you please give me a little more help on it, or point me in the direction of a tutorial or something.

    Thanks again.

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

    Default

    He talking about using the
    SCAR Code:
    Deg := Rs_GetCompassAngleDegrees
    to detect where the compass was when it started then have a function move it back like
    SCAR Code:
    MakeCompass(FloatToStr(Deg))

  5. #5
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmmm. I think I know what you mean, but I can't find any tutorials about it.

    I learn best from doing things myself, but I love the help.

    I couldnt find any tutorials about it so I tryed something myself.
    I don't know if it'll work lol but from what you guys are saying it sounds
    like this Procedure that I made just before.

    SCAR Code:
    procedure CompassPos;
    begin
      Deg := Rs_GetCompassAngleDegrees
      begin
        for i := 0 to 3 do
        case i of
          0 : if (not(InRange(Rs_GetCompassAngleDegrees, 315, 45))) then
              MakeCompass('N');
          1 : if (not(InRange(Rs_GetCompassAngleDegrees, 45, 135))) then
              MakeCompass('E');
          2 : if (not(InRange(Rs_GetCompassAngleDegrees, 135, 225))) then
              MakeCompass('S');
          3 : if (not(InRange(Rs_GetCompassAngleDegrees, 225, 315))) then
              MakeCompass('W');
        end;
        MakeCompass(FloatToStr(Deg));
      end;
    end;

  6. #6
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Yep thats right. You have to define Deg somewhere as a extended.

  7. #7
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    Yep thats right. You have to define Deg somewhere as a extended.
    Omg your joking right?

    I didn't even know what I was doing...
    Was just playing around lol.

    Well this is my second week of scripting and I think I'm going alright lol.

    As for the:
    SCAR Code:
    procedure CompassPos;
    begin
      Deg := (rs_GetCompassAngleDegrees);
      begin
        for i := 0 to 3 do
        case i of
          0 : if (not(InRange(rs_GetCompassAngleDegrees, 315, 45))) then  <-- This line has ERROR! :o
              MakeCompass('N');
          1 : if (not(InRange(rs_GetCompassAngleDegrees, 45, 135))) then
              MakeCompass('E');
          2 : if (not(InRange(rs_GetCompassAngleDegrees, 135, 225))) then
              MakeCompass('S');
          3 : if (not(InRange(rs_GetCompassAngleDegrees, 225, 315))) then
              MakeCompass('W');
        end;
        MakeCompass(FloatToStr(Deg));
      end;
    end;

    ERROR IS:
    SCAR Code:
    Line 383: [Error] (12650:59): Type mismatch in script C:\*******\SCAR 3.14\Scripts\TBKAntiBan.scar

  8. #8
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Thats the make compass line isn't it...
    Edit: Dur on my part. didn't read
    EditEdit:It because rs_GetCompassAngleDegrees returns a Extended and the function needs a integer.
    EditEditEdit:Fixed:
    SCAR Code:
    procedure CompassPos;
    begin
      Deg := rs_GetCompassAngleDegrees;
      begin
        for i := 0 to 3 do
        case i of
          0 : if not(InRange(round(rs_GetCompassAngleDegrees), 315, 45)) then
              MakeCompass('N');
          1 : if not(InRange(round(rs_GetCompassAngleDegrees), 45, 135)) then
              MakeCompass('E');
          2 : if not(InRange(round(rs_GetCompassAngleDegrees), 135, 225)) then
              MakeCompass('S');
          3 : if not(InRange(round(rs_GetCompassAngleDegrees), 225, 315)) then
              MakeCompass('W');
        end;
        MakeCompass(FloatToStr(Deg));
      end;
    end;

  9. #9
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    MakeCompass(FloatToStr(Deg));
    Remove this

    Deg := (rs_GetCompassAngleDegrees);
    and cut this to beginning of antiban
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  10. #10
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok done all that, but still doesn't solve the problem.. Hmm.

    This is the error line.
    SCAR Code:
    0 : if (not(InRange(rs_GetCompassAngleDegrees, 315, 45))) then
    SCAR Code:
    Line 27: [Error] (12294:59): Type mismatch in script

  11. #11
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I posted your fix up above Negaal

  12. #12
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Woot fixed!

    Thanks ALOT 'Mylesmadness' and 'negaal'.


    I won't ever forget how kind you guys are for helping.

  13. #13
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm going to add MORE lines to the 'Random Talking' and fix up the 'Automatic Responder' a bit more.

    When it's done I'll post.

    Please give it a run a tell me what you think.

  14. #14
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    you removed the script why???? aww i wanted to seeeeeeeee

  15. #15
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Lol sorry P1nky.

    I basically re-wrote the whole thing.


    TBKAntiBan Beta v1 - Released.

  16. #16
    Join Date
    Dec 2007
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Where is it released?
    Also, what do we use this in?
    Do we put it in any script?

  17. #17
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    I posted your fix up above Negaal
    SCAR Code:
    MakeCompass(FloatToStr(Deg));
    Lol?
    Basically it's like that:
    For example...
    SCAR Code:
    MakeCompass(94.5676);

    Input needs to be string not extended

    and what's the point getting Deg right before compass fixing?

    Uh, I t said to turbobk wrong...
    It will basically change compass to all angles... E, S, W...

    I don't know what I done...


    Edit:
    This may work:
    Quote Originally Posted by Mylesmadness View Post
    I posted your fix up above Negaal
    SCAR Code:
    MakeCompass(FloatToStr(Deg));
    Lol?
    Basically it's like that:
    For example...
    SCAR Code:
    MakeCompass(94.5676);

    Input needs to be string not extended

    and what's the point getting Deg right before compass fixing?

    Uh, I t said to turbobk wrong...
    It will basically change compass to all angles... E, S, W...

    I don't know what I done...

    I have no idea how to figure out facing when you're N.

    Edit:
    This at beginning
    SCAR Code:
    Deg := Round(rs_getcompassangledegrees);
    if (deg > 315 and deg =< 0) or (deg >= 0 and deg < 45)  then Facing := 'N';
    if deg > 45 and deg < 135 then Facing := 'E';
    if deg > 135 and deg < 225 then Facing := 'S';
    if deg > 225 and deg < 315then Facing := 'W';

    And this after antiban:
    SCAR Code:
    case facing of
      'N' : if not InRange(Round(rs_getcompassangledegrees), 315, 360) and
             not InRange(Round(rs_getcompassangledegrees), 0, 45)  then MakeCompass(Facing);
      'E' : if not InRange(Round(rs_getcompassangledegrees), 405, 495) then MakeCompass(Facing);
      'S' : if not InRange(Round(rs_getcompassangledegrees), 495, 585) then MakeCompass(Facing);
      'W' : if not InRange(Round(rs_getcompassangledegrees), 585, 675) then MakeCompass(Facing);
    end;


    It should work... but I'm not sure...
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  18. #18
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Lol, Negaal, serious overkill there. The problem was that he was getting rs_getcompassangledegrees when he needed an integer, so myles added a round and that fixed it.
    Also, he called the 'deg:=rs_getcompassangledegrees' at the beginning then changed it back at the end the other places he uses it to see at what position he's at and if he's not facing the same way, it turns to a face a random direction tehn turns back to the starting facing position.
    Only thing I could say, would be to add a random 5 degrees or so to make it less detectable (as, if every now and then, you turn some other way, then turn back to exact same position, it could be a bit noticable). As long it is little enough to not affect scripts that rely on positioning.

  19. #19
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How can
    MakeCompass(94.5676);
    work?

    and yeah, way too much thinking here...I think totally wrong, so Im out...
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  20. #20
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Quote Originally Posted by Negaal View Post
    SCAR Code:
    MakeCompass(FloatToStr(Deg));
    Lol?
    Basically it's like that:
    For example...
    SCAR Code:
    MakeCompass(94.5676);

    Input needs to be string not extended

    and what's the point getting Deg right before compass fixing?

    Uh, I t said to turbobk wrong...
    It will basically change compass to all angles... E, S, W...

    I don't know what I done...


    Edit:
    This may work:


    SCAR Code:
    MakeCompass(FloatToStr(Deg));
    Lol?
    Basically it's like that:
    For example...
    SCAR Code:
    MakeCompass(94.5676);

    Input needs to be string not extended

    and what's the point getting Deg right before compass fixing?

    Uh, I t said to turbobk wrong...
    It will basically change compass to all angles... E, S, W...

    I don't know what I done...

    I have no idea how to figure out facing when you're N.

    Edit:
    This at beginning
    SCAR Code:
    Deg := Round(rs_getcompassangledegrees);
    if (deg > 315 and deg =< 0) or (deg >= 0 and deg < 45)  then Facing := 'N';
    if deg > 45 and deg < 135 then Facing := 'E';
    if deg > 135 and deg < 225 then Facing := 'S';
    if deg > 225 and deg < 315then Facing := 'W';

    And this after antiban:
    SCAR Code:
    case facing of
      'N' : if not InRange(Round(rs_getcompassangledegrees), 315, 360) and
             not InRange(Round(rs_getcompassangledegrees), 0, 45)  then MakeCompass(Facing);
      'E' : if not InRange(Round(rs_getcompassangledegrees), 405, 495) then MakeCompass(Facing);
      'S' : if not InRange(Round(rs_getcompassangledegrees), 495, 585) then MakeCompass(Facing);
      'W' : if not InRange(Round(rs_getcompassangledegrees), 585, 675) then MakeCompass(Facing);
    end;


    It should work... but I'm not sure...


    SCAR Code:
    procedure CompassPos;
    begin
      Deg := Round(rs_getcompassangledegrees);
      if (deg > 315 and deg =< 0) or (deg >= 0 and deg < 45) then Facing := 'N'; <--- Line 403
      if deg > 45 and deg < 135 then Facing := 'E';
      if deg > 135 and deg < 225 then Facing := 'S';
      if deg > 225 and deg < 315 then Facing := 'W';
      case facing of
        'N' : if not InRange(Round(rs_getcompassangledegrees), 315, 360) and
                 not InRange(Round(rs_getcompassangledegrees), 0, 45)  then MakeCompass(Facing);
        'E' : if not InRange(Round(rs_getcompassangledegrees), 405, 495) then MakeCompass(Facing);
        'S' : if not InRange(Round(rs_getcompassangledegrees), 495, 585) then MakeCompass(Facing);
        'W' : if not InRange(Round(rs_getcompassangledegrees), 585, 675) then MakeCompass(Facing);
      end;
    end;

    SCAR Code:
    Line 403: [Error] (12670:23): Type mismatch in script

  21. #21
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if (deg > 315 and deg =< 0) or (deg >= 0 and deg < 45) then Facing := 'N';

    Try adding / removing (, )...

    SCAR Code:
    if (deg > 315) and (deg =< 0) or (deg >= 0) and (deg < 45) then Facing := 'N';
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  22. #22
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    and (deg =< 0) or

    I think that's the bit with the error I tryed the fix you gave me but it didnt work

  23. #23
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    like what the hell?
    SCAR Code:
    var
      i: integer;
      Deg: extended;
    procedure CompassPos;
    begin
      Deg := rs_GetCompassAngleDegrees; // why call deg if you didn't use it here
      begin                                      //           |
        for i := 0 to 3 do                   //               |
        case i of                                //           |
          0 : if not(InRange(round(Deg), 315, 45)) then //<----
              MakeCompass('N');
          1 : if not(InRange(round(Deg), 45, 135)) then
              MakeCompass('E');
          2 : if not(InRange(round(Deg), 135, 225)) then
              MakeCompass('S');
          3 : if not(InRange(round(Deg), 225, 315)) then
              MakeCompass('W');
        end;
        MakeCompass(FloatToStr(Deg));
      end;
    end;

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  24. #24
    Join Date
    Jan 2007
    Location
    Ausrtalia, Melbourne
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wow, i have no idea what you guys are saying

    OFFTOPIC: my teacher is walking around me, she doesnt spot me, but i somehow also finish before the class.

  25. #25
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Why do you need to do that? Makecompass likes degrees and letters so do it the way I told you.

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. auto talk and respond???
    By legendaryhero90 in forum OSR Help
    Replies: 5
    Last Post: 03-04-2007, 05:22 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
  •