[SRL4] Poweh Mineh

Well, this is my first script. It's not great. It does have anti randoms though. Anyway post proggies or problems.

Code:

program PowehMineh;


//Credits! Torrent Of Flames, Hy(numbers), and Cnr Sport!

{.include SRL/SRL.scar}

const
  SRLStatsID = 'Stats ID'; //Your SRL stats ID   Go to SRL-forums.com and register for it if you don't have it
  SRLStatsPass = 'Stats Passwors';  //Your SRL stats password

const
Rockcolour1= 1119780; //The main color of rock.  Currently on iron.
RockColour2= 2635094; //A secondary color of the rock. Currently on iron.

var x, y, Tries: integer;

var Loads: Integer;


procedure DeclarePlayers;
begin

     HowManyPlayers := 1;
     NumberofPlayers (HowManyPlayers);
     CurrentPlayer:= 0;
     
     Players[0].Name   := 'Username';   //Username of account your using
     Players[0].Pass   := 'password';   //The password...
     Players[0].Nick   := 'erna';        //3 to 4 letters of your username. They should be next to eachother
     Players[0].Active := True;         //If its gonna mine...
     
end;

procedure AntiRandoms;
begin
  If(FindFight = true)then
  begin
    RunAway('N', True,1,15000);
    Wait(7000 + Random(3000));
    RunTo('S', True);
  end;
  FindTalk;
  FindNormalRandoms;
  FindLamp('Mining');
end;


procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: hoverSkill('Woodcutting',False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90));
  end;
end;


procedure RockMining;
begin
if not LoggedIn then
  Exit;
  if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
    Wait(100+random(100));
    Tries := Tries + 1;
    if(Tries = 20)then
      begin
        Logout;
        Exit;
      end else
  if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
  repeat
    case (Random(2)) of
      1: begin
            Mouse(x, y, 4, 4,false);
            ChooseOption('ine');
          end;
      2: Mouse(x, y, 4, 4, True);
    end
  until (InvFull)
end;


procedure DropRocks;
var i:integer;
Begin
  Mousespeed:=25;
  if Not(LoggedIn) then exit;
  GameTab(4);
  for i := 2 to 28 do
  Begin
    Case random (8) of
    0: begin
        MouseItem(i, true);
        MouseItem(i + 1, true);
         end;

    1: begin
         MouseItem(i, false);
         ChooseOption('se');
         MouseItem(i, true);
       end;

    2,3,
    4,5,6,
    7,8: begin
         MouseItem(i, false);
         ChooseOption('rop');
          end;
        end;
        if (i = 10) or (i = 20) then
        FindNormalRandoms;
      end;
      FindNormalrandoms;
    end;



procedure ProgressReport;
begin
ClearDebug;
    Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
    Writeln('[]------>Proggy<------[]');
    Writeln('[]----->Mined' + InttoStr(Loads) + 'Loads<-----[]');
    Writeln('[]------>Ran for ' + TimeRunning + '<--------[]');
    Writeln('Thanks for using Poweh Mineh by Gabe');
    Writeln('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
end;


procedure Disguises;
begin
  case Random(4) of
    0: Disguise('AIM');
    
    1: Disguise('Firefox');
    
    2: Disguise('iTunes');
    
    3: Disguise('IGN Boards');
  end;
end;


begin
  SetupSRL;
  ScriptId := '745';
  SRLID := SRLStatsPass;
  SRLPassword := SRLStatsPass;
  Disguises;
  repeat
    RockMining;
    DropRocks;
    AntiBan;
    ProgressReport;
  until (IsFKeyDown(12));
end.

 

Ok i got a leach question

How do you use scripts message me if you know how thx!

 

easy you paste it into SCAR.
For wich version of SCAR is this script made ?

Sorry for my English i am from the Netherlands

 

When I tried to run the script, the mouse doesn't moves.

 

hmmm. Thats weird. :/ I'll see what I can do. Might be a few days.