Results 1 to 11 of 11

Thread: strange mouse speed (cooking script)!!!

  1. #1
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    strange mouse speed (cooking script)!!!

    woot! i have a strange mouse speed on my script! its too slooooooowwww. try my script and you will see the mouse speed. help how can i speed-up the mouse speed???

    my script is an al-kharid cooker. start in bank, logged in and raw fish in first bank slot( ive posted another thread with the same script, now it compile ):
    SCAR Code:
    program MrCooker;
    {.include srl/srl.scar}
    {.include srl/srl/skill/Cooking.scar}
    var
    i,x,y,Tries,HowManyLoads,Banked,Cooked,Raw : integer;
    Food: Array[0..6] of Integer;
    const
    LoadsToDo = 10;
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 4;
      numberOfPlayers(howManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';  // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := '';   // 3-4 letters of your Username
      Players[0].Active := True;   // are u going to use this player ?

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := False;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := False;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := False;
     
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
       
    end;

    procedure DTMS;

    begin
    Food[0] := DTMFromString('78DA632C656260B8C0C8800CCCF4D5C1344C9' +
           '4B103A8E631AA1A0F3B635435ED40351751D5E4E575A3AA01D9F5' +
           '00558DB8B81C8A1A00A2F5086A');

    Food[1] := DTMFromString('78DA632C65626038C7C8800A18914820DD055' +
           '4F300558D879D31A69A8BA86AD64FEF4255538169CEF4E60A1435' +
           '0088520991');
           
    Food[2] := DTMFromString('78DA632C676260B8CCC8800C3C1D4CC0344C9' +
           '4B115A8E63EAA1A375B235435CD40355750D5349497A1AAA902AA' +
           'B98BAAE6C2A993286A00D9CA0AB3');

    Food[3] := DTMFromString('78DA63AC606260B8C2C8800CDC6C8DC0344C9' +
           '4B10DA8E601AA1A0F3B635435AD40355751D52C488D4255530D54' +
           '731755CDAEFE76143500CF2F0A16');

    Food[4] := DTMFromString('78DA632C616260B8C0C8800C3C1D4CC0344C9' +
           '4B11BA8E631AA1A0F3B6354355D40359751D5484A48A0AAA900AA' +
           '7988AAE6E6E5CB286A00A54909BB');

    Food[5] := DTMFromString('78DA632C62626038C7C8800C3CEC8CC1344C9' +
           '4B11BA8E609AA1A4F071354359D40351750D5C064E16ACA806A1E' +
           'A0AA71B335425103007855079F');
           
    Food[6] := DTMFromString('78DA632C66626038C3C8800C3CEC8CC1344C9' +
           '4B107A8E61101355D40351751D5783A98A0AA2907AAB987AA66D7' +
           '9CFDA86ADA806A2EA3AA9994311B450D0052640CA9');

    Raw := DTMFromString('78DA636461606060624001378F2E06D38C503' +
           'EA32C90E0455573E5E01C543512408299801A0E2CE61C5E84A206' +
           '0087AA0945');
           
    end;

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
    if(not(LoggedIn))then
      Exit;
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;

    ///////////////////////////////////////////////////////////////////////////

    procedure FindRandoms;
    begin
    if(not(LoggedIn))then
      Exit;
      FindFastRandoms;
      FindNormalRandoms;
    end;

    procedure AntiBannage;
    begin
     if(not(LoggedIn))then
      Exit;
      case Random(13) of

        0: TypeSend('lol');

        1: begin
             GetSkillInfo('Fishing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        2: begin
             GetSkillInfo('Cooking', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        3: TypeSend('i want a phat lol');

        4: TypeSend('ty');

        5: BoredHuman;

        6: PickUpMouse;

        7: TypeSend('Cooking lvls?');

        8: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;

        9: begin
             case random(4) of
               0: TypeSend('Fishing lvls?');

               1: TypeSend('Fishing levels');

               2: TypeSend('Cooking lvls');

               3: TypeSend('Cooking levels');
             end;
           end;

        10: TypeSend('i love rap');

        11: TypeSend('Hiya!')

        12: TypeSend('sell law rune 5k');

      end;
    end;

    procedure Starting;
    begin
    if(not(LoggedIn))then
      Exit;
    GameTab(1)
    wait(3000+random(421))
    GameTab(4)
    wait(1000+random(526))
    MakeCompass('E');
    Writeln('good')
    end;

    Procedure OpenTheBank;
    begin
    if (not(LoggedIn))then
    Exit;
    begin
    SetAngle(false);
    Writeln('Starting the script');
    MakeCompass('W');
    OpenBankQuiet('akb');
    wait(1000+random(548))
    FixBank;
    Withdraw(1,1,28)
    Writeln('Yeah i found the food');
    wait(1205+random(632))
    CloseBank;

    end;
    end;



    procedure ToTheStoveAndCook;
    var
    a,b,c,d: Integer;
    begin
    if(not(LoggedIn))then
      Exit;
    SymbolAccuracy := 0.8;
    if (FindSymbol(x,y,'cook'))then
    begin
    Writeln('Found Symbol');
    Mouse(x,y,3,3,True);
    Wait(1500+random(11))
    Flag;
    FindRandoms;
    FindRange(x,y, MIX1,MIY1,MIX2,MIY2 );
    for i:= 0 to 7 do
    begin
    if (FindDTM(Food[i],a,b,MIX1,MIY1,MIX2,MIY2))then
    begin
    Writeln('Found food');
    Mouse(a,b,3,3,true);
    AntiBannage;
    FindRandoms;
    wait(2050+random(487))
    Mouse(x,y,3,3,true);
    if (FindDTM(Raw,c,d,MIX1,MIY1,MIX2,MIY2))then
    begin
    Writeln('Clicking To Cook')
    Mouse(c,d,2,2,false);
    ChooseOption('All');
    Cooked := Cooked+28
    if (Cooked = 28) then
    Exit;
    end;
    end;
    end;
    end;
    end;
    procedure ToTheBank;
    begin
    SymbolAccuracy := 0.8;
    if (FindSymbol(x,y,'bank'))then
    begin
    Writeln('Found Symbol');
    Mouse(x,y,3,3,True);
    Wait(1500+random(11))
    Flag;
    FindRandoms;
    SetAngle(false)
    MakeCompass('W');
    wait (999+random(999))
    OpenBankQuiet('akb');
    wait(1000+random(548))
    FixBank;
    DepositAll;
    Writeln('Depositing Food')
    wait(4000+random(632))
    Withdraw(1,1,28)
    Writeln('Yeah i found the food');
    wait(1205+random(632))
    CloseBank;
    Banked := Banked +1
    end;
    end;
    Procedure Proggy;
    begin
      if(not(LoggedIn))then
      Exit;
      ClearDebug;
      Writeln('___________________________________________');
      Writeln('-------------------------------------------');
      Writeln('  Maybe Cooked '+IntToStr(Cooked)           );
      Writeln('  Worked for: ' + TimeRunning               );
      Writeln('  Banked: ' + IntToStr(Banked)+ ' times    ');
      Writeln('___________________________________________');
      Writeln('-------------------------------------------');
      Writeln('|||||||||||||||||||||||||||||||||||||||||||');
      Writeln('|||||||||||||||||||||||||||||||||||||||||||');

    end;
    begin
    ActivateClient;
    ClearDebug;
    Writeln('Script made by: cazax')
    if(not(LoggedIn))then
    LoginPlayer;
    repeat
    if(not(LoggedIn))then NextPlayer(True);
    Starting;
    OpenTheBank;
    FindRandoms;
    AntiBannage;
    ToTheStoveAndCook;
    ToTheBank;
    until (HowManyLoads >= LoadsToDo )
    Proggy;
    end.
    HELP


  2. #2
    Join Date
    Jan 2008
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    umm hard question....

  3. #3
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ironup View Post
    umm hard question....
    spammer...(i know its hard)


  4. #4
    Join Date
    Dec 2007
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    In your main loop but

    SCAR Code:
    Begin
    MouseSpeed:=8; // Or w.e u want
    End.

    Try that?
    ~ Rs-Gp-4U
    _____________________________________________

    Bux.To! Sign Up Easy Money!

  5. #5
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx RS-GP-4U ! im releasing my script...


  6. #6
    Join Date
    Dec 2007
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good to hear - I finally helped someone



    - Your m8 'Rs-Gp-4U'
    ~ Rs-Gp-4U
    _____________________________________________

    Bux.To! Sign Up Easy Money!

  7. #7
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    But instead of mousespeed:= 8; put setupsrl;. That sets the mouse speed and everything else that srl needs to run at it top performance

  9. #9
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    set "SetupSRL;" in the start of ur script.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  10. #10
    Join Date
    Oct 2006
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    also u sitll havent changed ur anti ban procedure since JAD said dont copy it, and u also didnt give any credt ito JAD even if u did miss the line where he said dont copy it, which i told u already

  11. #11
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ummmmm0k View Post
    also u sitll havent changed ur anti ban procedure since JAD said dont copy it, and u also didnt give any credt ito JAD even if u did miss the line where he said dont copy it, which i told u already

    ok. i didnt read your post


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with mouse speed in script
    By Smile in forum OSR Help
    Replies: 5
    Last Post: 03-06-2008, 03:35 PM
  2. Mouse speed
    By Mamby in forum OSR Help
    Replies: 4
    Last Post: 10-21-2007, 03:58 AM
  3. Mouse speed?
    By Covert in forum OSR Help
    Replies: 4
    Last Post: 07-14-2007, 01:38 PM
  4. Strange Mouse Movement Error..
    By Rambozin in forum OSR Help
    Replies: 5
    Last Post: 05-09-2007, 01:12 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
  •