Results 1 to 14 of 14

Thread: Login Error!

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

    Default Login Error!

    Well, when I try to run my log in, it gets stuck in the upper right hand corner.

    I have tried rearranging some of the functions with logging in and activating client, but no luck so far.

    Well here is what I have:

    SCAR Code:
    program ShiloFisher;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Fishing.scar}

    {Fishy Colors: 14731196 16249337 15519165}

    const

    RunDirect = 'N';        // Run Direction incase of Fighting Randoms
    FirHovSk  = 'Fishing';   // First Skill to Hover Over
    SecHovSk  = 'Cooking';   // Second Skill to Hover Over

    TMaxTime = 200;         // The maximum amount of time to fish total (Minutes).

    SRL_ID   = '4782';      // Your SRL ID
    SRL_PASS = '307007';    // Your SRL Password

    MSpeed   = 20;          // Mouse Speed

    HideScar = 'Ventrillo'; // This is what you want scar to disguise itself as.

    var
      LoadsToDo,LoadsBanked: Integer;
      TRunTime: Integer;
      Feather, Salmon, FlyFishingRod, Trout: Integer;
      x, y: Integer;
      i: Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;              {Change if adding more Players, see below}
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name           := ''; {Your RuneScape Username}
      Players[0].Pass           := ''; {Your Password}
      Players[0].Nick           := '';     {Four letters of your RuneScape username NON-CAPITALIZED!}
      Players[0].Pin            := '0000';     {Enter Your Bank Pin here, '0000' used for no Bank Pin}
      Players[0].Active         := True;       {Use this Player? True for YES, False for NO}
      Players[0].booleans[0]    := False;      {Make True if Banking}
     
    {==================== Use MultiPlayer? ====================}
    {         Fill out the following form, delete all //       }
    {         at the beginning of each line. Also, for         }
    {         more than one extra player, make sure the        }
    {         numbers are in consecutive order. (1,2,3...)     }
    {==========================================================}

    //  Players[1].Name    := 'username'; {Your RuneScape Username}
    //  Players[1].Pass    := 'password'; {Your Password}
    //  Players[1].Nick    := 'nick';     {Four letters of your RuneScape username NON-CAPITALIZED!}
    //  Players[1].Pin     := '0000';     {Enter Your Bank Pin here, '0000' used for no Bank Pin}
    //  Players[1].Active  := True;       {Use this Player? True for YES, False for NO}
    //  Players[0].Bank    := False;      {Make True if Banking}

    end;

    {*******************************************************************************
    procedure DeclareDTMs;
    By: Toxin
    Description: Declares DTMs useful for this script.
    *******************************************************************************}


    procedure DeclareDTMs;
    begin

      Feather:= DTMFromString('78DA6394646060106140018776EE04D38C503' +
           'EA32090506540038CA86A04808432013520732489502346408D28' +
           '90104055E1E16082AA460A48701330471E48B0135003F2130FAA0' +
           'A03050554358A404298801A907B6409D82507242408A85102126C' +
           'F8D5000075690643');
           
      Salmon:= DTMFromString('78DA6314616060106740013BCB32C1342394C' +
           'FC80D241418D00023AA1A3620214F400D27909020A046104808A3' +
           'AAC873B34355230A24040898230D247808A801B99783083584CC5' +
           '10212FC44982348408D0411E1038A2F39FC6A00041504D1');
           
      FlyFishingRod:= DTMFromString('78DA631463606090634001D12EDC609A11CA6' +
           '7940112F2A86A0C141450D5480209650634C088AA0664973A0135' +
           '2240428B801A4120A141400D1F905025A0861748281250230424A' +
           '409A81105126204D448000961026A40F608A0AA7073304655038A' +
           '2B7E02E6A800095E026A9488700FC82E29026A88481B00B98305E' +
           '7');
           
      Trout:= DTMFromString('78DA6314616060106240019B972F07D38C503' +
           'E231B90906240038CA86A0480043F013520BB3808A8910412DC04' +
           'D4C803091622D4701150A300247808A89100122204D4880209092' +
           '2C2471A5585818202AA1A4E202143C01C3E202140400DC8DFC2F8' +
           'D5000037FC049B')
    end;

    {*******************************************************************************
    procedure FindRandoms;
    By: Nava2
    Description: (Unsure if Working) Find Normal Randoms and Fights, runs away,
                 and back.
    *******************************************************************************}


    procedure FindRandoms;
    begin
      FindNormalRandoms;
      if FindFight then
        begin
          RunTo(RunDirect, true);
          Wait(15000 + random(5000));
        end;
    end;

    {*******************************************************************************
    procedure AntiBan;
    By: Nava2
    Description: Basic AntiBan Functions
    *******************************************************************************}

    procedure AntiBan;
    begin
      case random(50) of
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill(FirHovSk, False);
        3: AlmostLogout;
        4: PickUpMouse;
        5: HoverSkill(SecHovSk, False);
      end;
    end;

    {*******************************************************************************
    Function CheckEquipt(boolean);
    By: Nava2
    Description: Checks inventory for FlyFishingRod and Feathers. Returns True if
                 Equiptment is found.
    *******************************************************************************}


    function CheckEquipt :Boolean;
    var i: integer;
    begin
      if not (LoggedIn) then Exit;
      i:= 0;
      if FindDTM(FlyFishingRod, x, y, MIX1, MIY1, MIX2, MIY2) then
        i:= i + 1;
      if FindDTM(Feather, x, y, MIX1, MIY1, MIX2, MIY2) then
        i:= i + 2;
      if i=1 then
        begin
          Writeln('Found Fly Rod, Run out of Feathers.');
          Result:=False;
        end else
      if i=2 then
        begin
          Writeln('Found Feathers, Missing Fly Rod.');
          Result:=False;
        end else
      if i=3 then
        begin
          Writeln('Found All Necessary Equiptment.');
          Result:=True;
        end;
    end;



    {*******************************************************************************
    Function FishRiver(boolean);
    By: Nava2
    Description: (Not Working) Clicks on Fishing Spot, results true if finds it,
                 False if it cannot.
    *******************************************************************************}


    function FishRiver: Boolean;
    var SearchFSpotTime:integer;
    begin
      if not (LoggedIn) then Exit;
      MarkTime(SearchFSpotTime);
      AntiBan;
      FindRandoms;
      if (CheckEquipt=False) then Exit;
      SetAngle(false);
      if not FindObjCustom(x, y, ['ishing', 'spot'], [14731196, 16249337, 15519165], 30) then
        begin
          MakeCompass('E');
          Writeln('Cannot find Fishing Spot, Searching');
          Wait(500+random(300));
        end else
      if FindObjCustom(x, y, ['ishing', 'spot'], [14731196, 16249337, 15519165], 30) then
         begin
           if (IsUpText('ure') = true) then
             Mouse(x, y, random(5), random(5), true);
             Writeln('Found Fishing Spot, Fishing...');
             Result:= True;
         end;
      if (TimeFromMark(SearchFSpotTime)>15000) then
        begin
          Result:= False;
          Writeln('Could not find Fishing Spot, Walking to Different Part of River.');
        end;
    end;

    {*******************************************************************************
    procedure WalkToRiver;
    By:Nava2
    Description: Procedure to walk from Bank to River.
    *******************************************************************************}


    procedure WalkToRiver;
    var i: integer;
    begin
      if not (LoggedIn) or CheckEquipt=false then Exit;
      SetAngle(True);
      i:=0;
      if (i= 0) then
        begin
          if not FindSymbol(x, y, 'Fish') then
          begin
            FindSymbol(x, y, 'Furnace');
            Wait(100+random(50));
            Mouse(x, y, 10, 10, true);
            FFlag(5);
          end else
          begin
            AntiBan;
            FindRandoms;
            FindSymbol(x, y, 'Fish')
            Wait(100 + random(50));
            Mouse(x, y, 4, 4, true);
            FFlag(5);
            FindWaterColor;
            i:= i + 1;
          end;
        end;
        if (i > 0) then
          begin
            if not (LoggedIn) then Exit;
            FindRandoms;
            RadialWalk(WaterColor, 340, 20, 72, 10, 10);
            FFlag(5);
            AntiBan;
            i:= i + 1
          end;
    end;

    {*******************************************************************************
    Function CheckFishing:Boolean;
    By: Nava2
    Description: Basic Function which checks that the Fly Rod is out and fishing.
    *******************************************************************************}

    function CheckFishing:Boolean;
    begin
      if FindColorTolerance(x, y, 201757, 227, 131, 290, 168, 10) then
        begin
          result:= true;
        end else
        begin
          result:= false;
        end;
    end;
     

    {*******************************************************************************
    procedure DropeItem(i: Integer);
    By: Lorax / Hy71194 Made Quicker <- THANKS :)
    Description: Drops Item At Given Position (1-28)
    *******************************************************************************}


    function DropeItem(i: Integer): Boolean;
    var
      Pr: TPoint;
    begin
      GameTab(4);
      if ExistsItem(i) then
      begin
        Pr := ItemCoords(i);
        Mouse(Pr.x, Pr.y, 8, 8, False);
        Wait(50 + Random(75));
        if (ChooseOption('rop')) then
        begin
          Result := True;
          Wait(10 + Random(50));
        end;
      end;
    end;

    {*******************************************************************************
    procedure DropDe(f,t: integer);
    By: Hy71194
    Description: Drops items in slots f-t really fast =]
    *******************************************************************************}


    procedure DropDe(f,t: integer);
    var Hmm: integer;
    begin
      Hmm := MouseSpeed;
      MouseSpeed := 25+Random(7);
      for i := f to f do
        DropeItem(i);
      WriteLn('All Dropped!');
      MouseSpeed := Hmm;
    end;

    {*******************************************************************************
    procedure PowerFish;
    By: Toxin and Nava2
    Description: Runs PowerFish function, fishs and drops.
    *******************************************************************************}


    procedure PowerFish;

    begin
      if not (LoggedIn) or CheckEquipt=false then exit;
      begin
        if (FishRiver=false) then
          begin
            WalkToRiver;
          end;
        MakeCompass('W');
          repeat
          if not (LoggedIn) then exit;
            begin
              AntiBan;
              FindRandoms;
              FishRiver;
              Wait(4000+ random(2000));
              if (CheckFishing=false) then
                FishRiver;
              if (InvFull) then
              DropDe(3, 28);
            end;
          until (TimeFromMark(TRunTime)>TMaxTime*60000)
         Exit;
      end;
    end;

    {*******************************************************************************
    procedure SetupBasics;
    By: Toxin and Nava2
    Description: Sets up Basic needed functions for script, SRL Stats, HideScar,
                 etc.
    *******************************************************************************}


    procedure SetupBasics;
    begin
      SetupSRL;
      Disguise(HideScar);
      SRLID         :=  SRL_ID;
      SRLPASSWORD   :=  SRL_PASS;
      MouseSpeed    :=  MSpeed + Random(3);
      DeclarePlayers;
    end;

    {*******************************************************************************
    procedure Welcome;
    By: Toxin and Nava2
    Description:
    *******************************************************************************}


    procedure Welcome;
    begin
       ClearDebug;
       Writeln('                          ==================================================')
       Writeln('                          ||                                              ||')
       Writeln('                          ||          Welcome To Our Shilo Fisher         ||')
       Writeln('                          ||                 Created By                   ||')
       Writeln('                          ||           XxXx Toxin XxXx and Nava2!         ||')
       Writeln('                          ||                                              ||')
       Writeln('                          ==================================================')
    end;

    {*******************************************************************************
    procedure MainLoop;
    By: Toxin and Nava2
    Description: General Scipt
    *******************************************************************************}


    procedure MainLoop;
    begin
      MarkTime(TRunTime);
      Welcome;
      AntiBan;
      Wait(2000 + random(1000));
      if (Players[CurrentPlayer].Booleans[0] = False) then
        begin
          PowerFish;
        end;
    //  if (Players[CurrentPlayer].Bank = True) then
    //    BankFish;
    end;

    {*******************************************************************************
    procedure Main Function;
    By: Toxin and Nava2
    Description: Runs Script
    *******************************************************************************}


    begin
      SetupBasics;
      ActivateClient;
      Wait(1000+random(500));
      LoginPlayer;
      Wait(500+random(500));
      if not (LoggedIn) then Exit;
      Mainloop;
    end.

    Any help and suggestions would be greatly appreciated.

    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

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

    Default

    Try commenting out the ' MouseSpeed := MSpeed + Random(3)' line (and add a ; to the end of it) as it looks like you don't declare MSpeed as a value anywhere, so it has a value of 0 and sets the mouse speed to 0, 1 or 2 which is very slow and would look like it isn't moving
    Edit: In the SetupBasics procedure
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

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

    Default

    Quote Originally Posted by mixster View Post
    Try commenting out the ' MouseSpeed := MSpeed + Random(3)' line (and add a ; to the end of it) as it looks like you don't declare MSpeed as a value anywhere, so it has a value of 0 and sets the mouse speed to 0, 1 or 2 which is very slow and would look like it isn't moving
    Edit: In the SetupBasics procedure
    MSpeed is a value of 20... its declared in the constants. The mouse moves; just it gets stuck on the top left corner of the screen. It kinda shivers while its there.

    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

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

    Default

    Add a Wait(1000); after ActivateClient; and that might work.

    And I hope you set the SCAR Crosshair


    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!

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

    Default

    Thanks Hy, the wait worked. Now it's saying that my DTM's are invalid.

    [Runtime Error] : Exception: Access violation at address 007290FF in module 'scar.exe'. Read of address 00000000 in line 221

    SCAR Code:
    function CheckEquipt :Boolean;
    var i: integer;
    begin
      if not (LoggedIn) then Exit;
      i:= 0;
      if FindDTM(FlyFishingRod, x, y, MIX1, MIY1, MIX2, MIY2) then  // line 221
        i:= i + 1;
      if FindDTM(Feather, x, y, MIX1, MIY1, MIX2, MIY2) then
        i:= i + 2;
      if i=1 then
        begin
          Writeln('Found Fly Rod, Run out of Feathers.');
          Result:=False;
        end else
      if i=2 then
        begin
          Writeln('Found Feathers, Missing Fly Rod.');
          Result:=False;
        end else
      if i=3 then
        begin
          Writeln('Found All Necessary Equiptment.');
          Result:=True;
        end;
    end;

    Any ideas?

    Also updated the posted script with the wait.

    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

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

    Default

    AFAIK You never called your DTMs. Try reloading SCAR too.


    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!

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

    Default

    Quote Originally Posted by Hy71194 View Post
    AFAIK You never called your DTMs. Try reloading SCAR too.
    What do you mean call? I declared them if thats what you mean...

    Sorry, I'm new at this. But, someone told me you were awful at scripting too so I'm not sure if you can help...

    Please explain for me, the noob!

    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

  8. #8
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Nava2 View Post
    What do you mean call? I declared them if thats what you mean...

    Sorry, I'm new at this. But, someone told me you were awful at scripting too so I'm not sure if you can help...

    Please explain for me, the noob!

    Nava2
    yeah, i mean being the author of the most used script ever definitely denotes being awful at scripting.

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

    Default

    Quote Originally Posted by igotgrapes View Post
    yeah, i mean being the author of the most used script ever definitely denotes being awful at scripting.
    Spam, but it was a joke. Some kid said he was an awful scripter.

    You know anything about my issue?

    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

  10. #10
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol no, i spent 3 hours writing a script that wouldn't even compile at the end. It still won't find the fishing spots to lure.

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

    Default

    You have a DeclareDTM's procedure, but you never call it, so it never 'loads' the dtm's, so just add DeclareDTM's to your basic setup procedure or you main loop or somewhere before it uses the DTM
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

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

    Default

    Quote Originally Posted by mixster View Post
    You have a DeclareDTM's procedure, but you never call it, so it never 'loads' the dtm's, so just add DeclareDTM's to your basic setup procedure or you main loop or somewhere before it uses the DTM
    Thanks a lot, it got rid of the error, only issue is that now, the script finishes right after it logs in

    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

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

    Default

    Try taking out the line in the MainEvent loop which says:

    SCAR Code:
    If (Not(Loggedin)) then Exit;
    Try putting that in the begginning of every procedure .

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

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    Try taking out the line in the MainEvent loop which says:

    SCAR Code:
    If (Not(Loggedin)) then Exit;
    Try putting that in the begginning of every procedure .
    So the Failsafe might be the failure?

    I will give it a try.

    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

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Login error
    By noidea in forum OSR Help
    Replies: 4
    Last Post: 07-08-2008, 11:59 AM

Posting Permissions

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