Results 1 to 17 of 17

Thread: Havign trouble setting compass

  1. #1
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Havign trouble setting compass

    this is what i have so far...

    program Smelter;

    {.include srl/srl.scar}


    Procedure WithdrawOre;
    begin
    SetupSrl;
    Wait(500);
    MakeCompass('W');
    OpenBankFast('akb');
    end;

    begin
    WithdrawOre;
    end.

    i know its rough but its my first script so...

    what happens is when the script tries to set the compass to west it will stop at west for a secong then rotate back around to north, how do i fix this?

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    OpenBankFast('akb');

    Will turn the compass to North.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by knassyl View Post
    this is what i have so far...

    program Smelter;

    {.include srl/srl.scar}


    Procedure WithdrawOre;
    begin
    SetupSrl;
    Wait(500);
    MakeCompass('W');
    OpenBankFast('akb');
    end;

    begin
    WithdrawOre;
    end.

    i know its rough but its my first script so...

    what happens is when the script tries to set the compass to west it will stop at west for a secong then rotate back around to north, how do i fix this?
    its because OpenBankFast('akb') moves the compass bank to north...

    EDIT: LOL u beat me...

  4. #4
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What process would i have to use so it wouldnt get set to north?

  5. #5
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    function OpenBank(WhichBank: String, ChangeCompass, ChangeAngle: Boolean): Boolean;
    SCAR Code:
    OpenBank('akb',false,true);

    Try that? Doubt it will work

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  6. #6
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by knassyl View Post
    What process would i have to use so it wouldnt get set to north?
    SCAR Code:
    {*******************************************************************************
    function OpenBankFast(Location: String): Boolean;
    By: Wizzup? and Nielsie95
    Description: Opens the bank.
    Valid arguments are:
        'akb', 'al kharid', 'lb', 'lumbridge', 'veb', 'varrock east', 'vwb',
        'varrock west', 'feb', 'falador east', 'fwb', 'falador west', 'db', 'draynor',
        'eb', 'edgeville bank'
    *******************************************************************************}


    function OpenBankFast(Location: String): Boolean;
    var
      x, y, i, l, c, z: Integer;
      Info: TIntegerArray;
      Booths, t: TPointArray;
    begin
      Wait(400);
      case LowerCase(Location) of
        'akb', 'al kharid': Info := [130, 180, 606291, 4, 1];
        'lb', 'lumbridge': Info := [270, 100, 6196388, 9, 1];
        'veb', 'varrock east': Info := [200, 290, 2971236, 10, 1];
        'vwb', 'varrock west': Info := [270, 270, 5689318, 25, 1];
        'feb', 'falador east': Info := [220, 260, 4612728, 14, 1];
        'fwb', 'falador west': Info := [300, 300, 4612728, 14, 1];
        'db', 'draynor': Info := [175, 145, 605006, 4, 1];
        'eb', 'edgeville bank': Info := [MSCX, MSCY, 2236964, 9, 2];
        else
        begin
          WriteLn('Unknown bank: '+Location);
          Exit;
        end;
      end;

      z := GetColorToleranceSpeed;
      If Info[4] <> GetColorToleranceSpeed Then
      Begin
        ColorToleranceSpeed(Info[4]);
      End;
      FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3])
      SetArrayLength(t, 0);
      t := Booths;
      SetArrayLength(Booths, 0);
      Booths := ReArrangeAndShortenArray(t, 14);
      l := GetArrayLength(Booths) -1;
      ColorToleranceSpeed(z);
      for i := 0 to l do
      begin
        If not LoggedIn then
        Begin
          Result := False;
          ColorToleranceSpeed(z);
          Exit;
        End;
        Wait(100);
        if (LowerCase(Location) = 'vwb') or (LowerCase(Location) = 'varrock west') then
        begin
          Booths[i].X := Booths[i].X + 5;
          Booths[i].Y := Booths[i].Y - 20;
        end;
        MMouse(Booths[i].X, Booths[i].Y, 0, 0);
        Wait(150);
        if IsUpText('ooth') Then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, False);
          Wait(100);
          if ChooseOption('uickly') then
          begin
            FFLag(0);
            MarkTime(c);
            repeat
              Wait(100);
            until (BankScreen) or (TimeFromMark(c) > 3000);
            Result := BankScreen;
            if Result then
            Begin
              Exit;
            End;
          end;
        end;
      end;
    end;

    EDIT: Wtf you beat me again!!!

  7. #7
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nope that didnt work, it did the exact same thing

  8. #8
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by knassyl View Post
    nope that didnt work, it did the exact same thing
    What did you try?

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  9. #9
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Set the compass a different direction first, then set to the direction you WANT It sometime helps

    Also adding a small wait between the procedures of setting the compass sometimes helps for some reason.

    SCAR Code:
    Wait(2);
    MakeCompass('W');
    Wait(2);

    If that doesnt work try:

    SCAR Code:
    Wait(2);
    MakeCompass('N');
    Wait(2);
    MakeCompass('W');
    Wait(2);


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  10. #10
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i changed it to....

    OpenBankGlass('akb',false,true);

    but now it wont open the bank it will just hover the mouse over random objects

    EDITED: Which i think i need srl rev 5 to fix

  11. #11
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats cause OpenBankGlass sucks.

    Why do you want it to be West?

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  12. #12
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i need it to face west because thats the way i need to face to be looking at the bank booths in al kharid bank

  13. #13
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What?.

    If you use OpenBankFast('akb'); it will open the bank for you. You don't need to be facing west..

    If you need to be facing west to walk or whatever, then turn it back after you have banked

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  14. #14
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh ok, i got that fixed. I just have one more question.

    How do i make the mouse move faster when im using...

    Withdraw(1, 1, 9);

  15. #15
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    SCAR Code:
    MouseSpeed := 30;

    That makes mouse move fast (I think). A higher value means faster mouse.

    Edit: Hah, I beat you rogeruk


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  16. #16
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try MouseSpeed, it changes for everything i believe.

    Dont set it too high, i think around 15 is normal.

    //Edit. Bit too late in helping Hy71194 ? :P

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  17. #17
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sweet, it worked perfectley ty guys vm for all the help

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Compass
    By nemolorn in forum OSR Help
    Replies: 6
    Last Post: 07-23-2008, 03:32 AM
  2. Setting compass to north
    By Mars in forum OSR Help
    Replies: 16
    Last Post: 04-20-2008, 08:36 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
  •