SRL Archive - OSR Help

Simple question. How do I reduce/increase Mouse Speed in certain movements?

MouseSpeed:=10;

Just change the mousespeed everytime you want it changed

^ 15 is default soo yeah :p

thanks another question non related. just dont want to create lots of threads…

procedure Antiban;
begin
  if not(LoggedIn) then
    Exit;
  FindNormalRandoms;
  case Random(10000) of
    1:
      begin
        Writeln('Antiban: Short AFK');
        MouseOffScreen;
        Wait(RandomRange(10000, 30000));
      end;
    2..5:
      begin
        Writeln('Antiban: Checking skills');
        Gametab(tab_stats)
        Wait(RandomRange(5000, 10000));
        Gametab(tab_Inv);
        Wait(RandomRange(100, 200));
      end;
    6..8:
      begin
        Writeln('Antiban: Checking Herblore XP');
        GameTab(tab_stats)
        Wait(RandomRange(200, 600));
        HoverSkill('Herblore', False);
        Wait(RandomRange(2000, 10000));
        Gametab(tab_Inv);
        Wait(RandomRange(200, 450));
      end;
    9..12:
      begin
        Writeln('Antiban: Sleep And Move Mouse');
        SleepAndMoveMouse(RandomRange(1000, 10000));
      end;
    14..15:
      begin
        Writeln('Antiban: Checking who is online');
        GameTab(tab_Friends);
        Wait(RandomRange(2000, 3000));
        GameTab(tab_Inv);
        Wait(RandomRange(100, 200));
      end;
    16..17:
      begin
        Writeln('Antiban: Checking money');
        if IsMoneyPouchOpen then
          Exit;
        else ToggleMoneyPouch(True);

        Wait(RandomRange(1000, 5000));
        ToggleMoneyPouch(False);
        Wait(RandomRange(100, 600));
      end;
    18..19:
      begin
        Writeln('Antiban: Checking XP Counter');
        if ToggleXPBar(True) then
        ToggleXPBar(False);
        else
        ToggleXpBar(True);
        Wait(RandomRange(600, 5000));
        TogglExpBar(False);
        Wait(RandomRange(700, 1500));
      end;
  end;
end; 

This is my Antiban procedure. I get an error at

16..17:
      begin
        Writeln('Antiban: Checking money');
        if IsMoneyPouchOpen then
          Exit;
       else ToggleMoneyPouch(True);    // HERE GETS HIGHLIGHTED - IDENTIFIER EXPECTED

        Wait(RandomRange(1000, 5000));
        ToggleMoneyPouch(False);
        Wait(RandomRange(100, 600));
      end; 

Whats wrong with it?

Here you go…

if (Conditional) then
  Method //You can't have a ";" here if you're not using begin end
else

From: Dgby714
Here you go…

if (Conditional) then
  Method //You can't have a ";" here if you're not using begin end
else

oh. thanks! I didn't know that :D

From: Nirvana
oh. thanks! I didn't know that :D

Basically there shouldn't be a ";" before a else ever even if there are begin end.

if … then
begin
…;
end else //<– see even here no ";"
..;

From: Ashaman88
MouseSpeed:=10;

Just change the mousespeed everytime you want it changed

:o didn't know that :o, higher to increase the speed and lower to slow it down?

From: The Killer
:o didn't know that :o, higher to increase the speed and lower to slow it down?

Yes