ok this is what it gives me:

SCAR Code:
Color Picked: 4021889 at (340, 371)
Successfully compiled
Line 868: [Hint] (13557:53): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1478: [Hint] (14167:41): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1489: [Hint] (14178:45): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1500: [Hint] (14189:45): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1511: [Hint] (14200:41): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1522: [Hint] (14211:48): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1537: [Hint] (14226:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1568: [Hint] (14257:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1595: [Hint] (14284:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
Line 1622: [Hint] (14311:1): Variable '' never used in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Users.scar
SRL Compiled in 7141 msec
LevExidus AutoMiner
By Jvwarrior
Enjoy The Script!
Starting
J
JV
JVW
JVWA
JVWAR
JVWARR
JVWARRI
JVWARRIO
JVWARRIOR
OWNZ THIS SCRIPT!
Found Compass
Successfully executed
it says its all going well but once it says Found Compass it doesnt move!

heres the script:
SCAR Code:
{   LevExidus AutoMiner V.2    ]
[       By Jvwarrior           ]
[______________________________]
[      Instructions:           ]
[1. First find the ore you     ]
[   would like to mine.        ]
[   Then click on the color    ]
[   picker on your top bar.    ]
[   Use the color picker to get]
[   your ore color.            ]
[                              ]
[2. When you have the ore color]
[   copy and paste it into     ]
[   orecolor1 using ctrl+alt+c ]
[   to copy.                   ]
[                              ]
[3. Specifie the RS window     ]
[   using the Crosshairs on    ]
[   your top bar. Drag them to ]
[   the runescape screen.      ]
[                              ]
[4. Start the script. Watch as ]
[   SCAR automatically mines   ]
[   your ore for you.          ]
[      HAPPY CHEATING!         ]
[______________________________}

program Pwnerminer;
{.Include SRL/SRL.Scar}

{!*================EDIT ORE COLOR!=================*!}
const
  orecolor1 = 4021889;
  Loads= 1; //number of loads per character
  TotalLoads= 2;//All the loads you want to do
{!*=================OK YOUR GOOD===================*!}
{!*==============NOW EDIT YOUR PLAYER==============*!}

procedure DeclarePlayers;
begin
  HowManyPlayers := 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Usernmae'; //place your username here
  Players[0].Pass := 'Password'; //place your password here
  Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: sern
  Players[0].Active := True;
  Players[1].Name := 'Username'; //place your username here
  Players[1].Pass := 'Password'; //place your password here
  Players[1].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[1].Active := True;
  Players[2].Name := 'Username'; //place your username here
  Players[2].Pass := 'Password'; //place your password here
  Players[2].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[2].Active := True;
  Players[3].Name := 'Username'; //place your username here
  Players[3].Pass := 'Password'; //place your password here
  Players[3].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[3].Active := True;
  Players[4].Name := 'Username'; //place your username here
  Players[4].Pass := 'Password'; //place your password here
  Players[4].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[4].Active := True;
  Players[5].Name := 'Username'; //place your username here
  Players[5].Pass := 'Password'; //place your password here
  Players[5].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
  Players[5].Active := True;
end;
{!*================NO TOUCHING!====================*!}
var
  ModBMP, x, y, load, TL: Integer;

procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
    '430307732774215C71481005743574354BDB84C43560911C1540F' +
    '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
    '000AB69B141');
end;

procedure Cred;
begin
  Writeln('LevExidus AutoMiner')
    Writeln('By Jvwarrior')
    Writeln('Enjoy The Script!')
end;

procedure StartMe;
begin
  Writeln('Starting')
    Writeln('J')
    Wait(200)
    Writeln('JV')
    Wait(200)
    Writeln('JVW')
    Wait(200)
    Writeln('JVWA')
    Wait(200)
    Writeln('JVWAR')
    Wait(200)
    Writeln('JVWARR')
    Wait(200)
    Writeln('JVWARRI')
    Wait(200)
    Writeln('JVWARRIO')
    Wait(200)
    Writeln('JVWARRIOR')
    Wait(200)
    Writeln('OWNZ THIS SCRIPT!')
end;

procedure Mining;
begin
  repeat
    if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
      mouse(x, y, 3, 3, true);
    Wait(7000);
    case Random(100) of
      69: typesend('Mining lvls?');
     
      33: typesend('mining takes so long!');
    end;
  until (InvFull);
  if (InvFull) then DropToPosition(2, 28);
  Load:= Load +1;
  if (InChat('mining lvls')) then typesend('higher than yours');
  if (InChat('mining lvl')) then typesend('higher than yours');
  if (InChat('mining lvl?')) then typesend('higher then ures');
end;

procedure DisableChats;
begin
  if (not (LoggedIn)) then
    Exit;
  SetChat('on', 1);
  SetChat('off', 2);
  SetChat('on', 3);
  SetChat('off', 4);
end;

procedure Login;
begin
if (Not(LoggedIn)) then
LoginPlayer;
end;

procedure ScanForMod;
begin
  if (findbitmap(ModBMP, x, y)) then
  begin
    writeln('OMG Mod!');
    Logout;
    Writeln('Mod Found Ettempting to Evade');
    Wait(90000 + random(100000));
    LoginPlayer;
  end;
end;

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 10 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;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: RC;
      10: Respond;
    end;
    wait(1);
  end;
end;

procedure FindTheRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Mining');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 + Random(3000));
    RunBack;
  end;
end;

procedure ABan;
begin
  if (not (LoggedIn)) then
    Exit;
  case Random(8) of
    0: RandomRClick;
    1: HoverSkill('Mining', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: begin
        GameTab(1 + Random(12));
        wait(2000 + Random(1000));
        GameTab(4);
      end;
  end;
end;

begin
  SetupSRL;
  ActivateClient;
  Cred;
  StartMe;
  Load:= 0;
  LoadBMP;
  repeat
    DeclarePlayers;
    Login;
    DisableChats;
      repeat
      FindFastRandoms;
      FindTheRandoms;
      ScanForMod;
      ABan;
      Mining;
    until (Load = Loads);
    Nextplayer(true)
    TL:= Loads;
  until(TotalLoads = TL)
end.