Results 1 to 13 of 13

Thread: My script laggs like hell?

  1. #1
    Join Date
    Mar 2007
    Location
    MN
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My script laggs like hell?

    Can anyone help me with this, I dont know why, or if it even runs. BUT i know it loggs in and laggs....


    SCAR Code:
    /////@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/////
    /////@@@@@@/ _ \@@@@@@@@@@/\@@@@@@/\@@@@@@@@@@/\@@@@@@/\@@@@@@@@@@@@@@@@@@@@@@/////
    /////@@@@@/ /_\ \@@@@@@@@/  \@@@@/  \@@@@@@@@/  \@@@@/  \@@@@@@@@/        \@@@/////
    /////@@@@/  ___  \@@@@@@/    \  /    \@@@@@@/    \  /    \@@@@@@/          \@@/////
    /////@@@/  /@@@\  \@@@@/  /\  \/  /\  \@@@@/      \/      \@@@@/     /\     \@/////
    /////@@/  /@@@@@\  \@@/  /@@\    /@@\  \@@/  /@@\    /@@\  \@@|      ||      |/////
    /////@@|  |@@@@@|  |@|  |@@@|    |@@@|  |@|  |@@|    |@@|  |@@@\     \/     /@/////
    /////@@\  /@@@@@\  /@\  /@@@\    /@@@\  /@\  /@@\    /@@\  /@@@@\          /@@/////
    /////@@@\/@@@@@@@\/@@@\/@@@@@\  /@@@@@\/@@@\/@@@@\  /@@@@\/@@@@@@\        /@@@/////
    /////@@@@@@@@@@@@@@@@@@@@@@@@@\/@@@@@@@@@@@@@@@@@@\/@@@@@@@@@@@@@@@@@@@@@@@@@@/////
    ////////////////////////////Power Miner!///////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////////////////////

    program AmmoAutoMiner;
    {.include srl/srl.scar}
    {include srl/srl/skill/mining.scar}


    {Setup Lines!-------------------------------}
    Const
     Orecolor   = 3758718; //No Autopick, I'm a noob :P. Dont be lazy, pick it yourself.
     pickequipped  = False;

    ///////////DONT TOUCH////////////////
     Var                              ///
     Orestotal: Integer;              ///
    /////////////////////////////////////

    {-------------------------------------------}
    Procedure DeclarePlayers;
    begin
      HowmanyPlayers:=1;  //No Changing...
       NumberofPlayers(HowmanyPlayers);
        Currentplayer:=0;   //No Changing...
         Players[0].name:=''  //Your RS Username You wish to use.
         Players[0].pass:=''  //The password to THAT username.
         Players[0].nick:=''  //Three to Four letters out of that username.
    End;
    {Progress report, DONT touch------STOP setup}
    procedure ProgReport;
    begin
      WriteLn('<------------- Report ------------->');
      Writeln('Name:'+Players[CurrentPlayer].Name);
      writeln('Worked for '+ TimeRunning);
      WriteLn('Mined '+IntToStr(OresTotal)+' Ores.');
      WriteLn('<---------------------------------->');
      SRLRandomsReport;
    end;
    {Logging In----------------------------------}
    Procedure Login;
    Begin
     If(not(loggedin))then;
      Loginplayer;
    End;

    {Mining-------------------------------------}
    procedure mine;
    begin
     repeat
      if (FindMSColor(x,y,orecolor)) then
       Mouse(x,y,2,2,true);
        Wait(4000+random(3000));
         until(InvFull)
    end;
    {Dropping------------------------------------}
    Procedure DropOres;

    var OresDropped:integer;

    Begin
     If(pickequipped)=true then
      Begin
       Gametab(4);
        Dropto(1,28)
         Oresdropped:= OresDropped+28
          OresTotal:=OresTotal+OresDropped
    End;

    Begin;
     If(pickequipped)=False then
      Begin
       Gametab(4);
        Dropto(2,28)
         Oresdropped:= OresDropped+27
          OresTotal:=OresTotal+OresDropped
    end;
    end;
    end;
    {-------------Main Loop-----------------------}
    begin
     DeclarePlayers;
      SetupSRL;
       DisguiseScar('Windows Media Player');
        repeat
         if(not (LoggedIn)) then
          LoginPlayer;
           until(false)
            repeat
             ActivateClient;
              ClearDebug;
               Antiban;
                ProgReport;
                 mine;
                 dropores;
                  until(false)
    end.
    {Thx Stol3n, I read and learned off your powermining script.}

  2. #2
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It isn't lagging for me, but I thinks it's because
    SCAR Code:
    repeat
         if(not (LoggedIn)) then
            LoginPlayer;
          until(false)

    It's going to be in an infinite loop even after it logs in, change it to
    SCAR Code:
    repeat
         if(not (LoggedIn)) then
            LoginPlayer;
          until(LoggedIn)

    Or something like that >.<
    Huehuehuehuehue

  3. #3
    Join Date
    Mar 2007
    Location
    MN
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OH< lmao, i just realized it repeats the login, lol ill try it thx,...ill edit if it dosnt work.

    Edit: You got it :P now i just need to find out how to use color tolerance and get antirandoms, cuz i got a box and it didnt do it :P

  4. #4
    Join Date
    Mar 2006
    Location
    United States, -7:00 GMT
    Posts
    1,790
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    FindColorSpiralTolerance(var x,y: Integer; color, xs, ys, xe, ye: Integer; Tolerance: Integer): Boolean;

    I think? Good luck.

    hakuna matata ;)

  5. #5
    Join Date
    Mar 2007
    Location
    MN
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lmao, i should read a tut on it, i have no idea where to put it...

  6. #6
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    yah tuts would help also you might want to look at some examples of scripting standerds cause yours are........unorthadox...
    STOP PM'ING ME

  7. #7
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    Yeah read pwnazors TUT i think it is his has a link to an auto formatter that's what i use it works like a gem
    Sleeping...

  8. #8
    Join Date
    Mar 2007
    Location
    MN
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not shure what the meens but ok, ill take it as a compliment....Btw its only my second script, first one was the autotalker Still making little tweaks here and there and before u know it, it will be the greatest powerminer ever made!

    Lmao im a noob i know..

    And thx ill look for that tut...

  9. #9
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    unorthadox means....its different and not the most efficient way but it doesnt harm anything....though i still suggest learnign standerds cause makes it alot neater and easier to read
    STOP PM'ING ME

  10. #10
    Join Date
    Mar 2007
    Location
    MN
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, I tryed a few ways, and in my opinion i think its alot easier to r5eaqd then most scripts, but i guess its just me . I'll look at the autoformatter thing rkr was talkign about...

  11. #11
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    well if you ever apply for membership they wont like your way...sorry to say it...so it's always good to make it a habbit early
    STOP PM'ING ME

  12. #12
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  13. #13
    Join Date
    Mar 2007
    Location
    MN
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx, i gave up on it, :S cant figure out antigass or how to fins pickhead colors or pick up pick head if it drops. so i'm gonna wait till i learn A LOT more to try again

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
  •