well this is the first script ive bit into and i was wondering for one if i could get my walking to work if it would do the job and another how i can make it work as i get the error
Line 180: [Error] (15650:89): Type mismatch in script C:\Program Files\SCAR 3.15\al kharad smelter.scar
SCAR Code:
program new;
{.include srl/srl.scar}
var
i, load, loads, x, wit, smith, y, coal, coalbnk, steelbar, iron:integer;
 const
LampLevel= 'smithing'; //Set the skill you want a lamp to do.
loadstodoperlogin=6;//6 reccomended
procedure declareplayers;
Begin

  HowManyPlayers := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';//user
  Players[0].Pass := '';//pass
  Players[0].Nick := '';//3-4 letters of name in order except first
  Players[0].pin := '0000';//pin
  Players[0].Active := True;//use this player?


  Players[1].Name := 'username';//user
  Players[1].Pass := 'password';//pass
  Players[1].Nick := 'sern';//3-4 letters of name in order except first
  Players[1].pin := '0000'//pin
  Players[1].Active := True;//use this player?


  Players[2].Name := 'username';//user
  Players[2].Pass := 'password';//pass
  Players[2].Nick := 'sern';//3-4 letters of name in order except first
  Players[2].pin := '0000'//pin
  Players[2].Active := True;//use this player?

End;
procedure proggy;
begin
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~') ;
writeln('script ran for '+timerunning);
writeln('');
end;
procedure loadbitmap;
begin
  wit := BitmapFromString(134, 132, 'beNrt1DEOgCAMBVBv' +
       '5wVcvf8xdGOA2iCLou/FoVYiSb+4LIl9W0tR6vZp1QwXh+uTNyS3R' +
       'yPctDTDXSZVjaJn7Fdzbvv92SUB5f0/JzJQD2RaffnVdevAzjL2Bx' +
       'O5qgcS6TlTL09k7H9+dwhhIp1b/yoRAAAAAAAAAAAAAAAAAAAAAAA' +
       'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL7vBM+giRc=' +
       '');
 coalbnk := BitmapFromString(84, 64, 'beNrt0c0KAVEAhuHjIiwsRDLN' +
       'ggVmyPhJRDIlpUSIkBKllFJWsnLZvjo1Gzdg6n06TV9n954xplXOL' +
       'YaVVejvJ/XjtHFddvTVNibheZ6+mUyyVMpW/bxOoZDWTcMv2qN9W3' +
       'efh8H7HH6uYxM3Xd9R+HZcU+9l3r5veqdZU/lRu+OkovYgcLWjfA2' +
       '91WPXj2n7oO7acCVHP1H7t13h9mjr3r6AHa/TKI7tAAAAAAAAAAAA' +
       'AAAAAAAAAAAAAAAAAP7RF8AdMGA=');
 smith := BitmapFromString(134, 132, 'beNrt10EKgCAQQNG5XRdo2/2PU' +
       'aEgQ9FWJ3gPF7rt02QRx77d62ze+76CiXKFfsx7RVYVGSFGDkWqFT' +
       'G1lhfJ80qRau9IzqGIqaXIY165/br9osgvviP56H+kyO33a3lKAAA' +
       'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
       'AAAAAMAMF9WTxs8=');
end;


Procedure Randoms;
begin
if (not(loggedin)) then exit;
  If(FindFight)then
  RunAway('N', True,1,15000);
  FindNormalRandoms;
  FindLamp((LampLevel));
  SolveNonTalkingRandoms;
  nogametablocs;
end;


procedure antiban;
begin
if (not(loggedin)) then exit;
randoms;
wait(15000+random(4000));
hoverskill('smithing', false);
gametab(4);
end;
procedure loadtms;
begin
  coal := DTMFromString('78DA63E4676260C862644006B6369A0C22401' +
       'A24FA1F081839806AE250D54064612490FE07646513500332A79C' +
       '801A31A09A42026AA4816A3208A89102AA49C0AF060091EF0926');
  iron := DTMFromString('78DA638C62626050626440063EFACA601A26C' +
       'AE80954A389AA06260B57130C54234E404D12508D24116AB408A8' +
       '8900AA31C0AF0600E58903A9');
  steelbar := DTMFromString('78DA63D46064607065400113DBDBC1342394C' +
       'FA80F643930A001465435BA40960F0135D240961F013512409627' +
       '01352A40962D01356A4056107E3500287204B3');
end;


procedure beginning;
begin
cleardebug;
writeln('SSSSSSSS     A     N       N  D D   OOOOOOO SSSSSSSS');
writeln('S           A A    N N     N  D  D  O     O S       ');
writeln('SSSSSSSS   A A A   N   N   N  D   D O     O SSSSSSSS');
writeln('       S  A A A A  N     N N  D  D  O     O        S');
writeln('SSSSSSSS A       A N       N  D D   OOOOOOO SSSSSSSS');
writeln('                                first ever script ® ');
wait(1000);
cleardebug;
end;


procedure open;
begin
if (not(loggedin)) then
 begin
 logout;
 Players[CurrentPlayer].Active := False;
 exit;
 end;
  begin
   openbankfast('akb');
  end;
end;
procedure enterpin;
begin
 if (not(loggedin)) then exit;
 begin
  if pinscreen then inpin(players[currentplayer].pin);
 end;
end;
procedure withdrawiron;
begin
if (not(loggedin)) then exit;
 begin
  makecompass('n');
  if (findcolortolerance(x, y, 1910591, msx1, msy1, msx2, msy2, 10)) then
  begin
  mouse(x,y,3,3,false);
  wait(500);
  if (findbitmaptolerancein(wit, x, y, msx1, msy1, msx2, msy2, 20)) then
  mouse(x,y,3,3,true);
  wait(1000);
  typesend('9');
  end else
  begin;
  closebank;
  logout;
  Players[CurrentPlayer].Active := False;
  exit;
  end;
 end;
end;
procedure withdrawcoal;
begin
  if (not(loggedin)) then exit;
  if (findbitmaptolerancein(coalbnk, x, y, msx1, msy1, msx2, msy2, 20)) then
   begin
    mouse(x,y,3,3,false);
    wait(500);
    if (findbitmaptolerancein(wit, x, y, msx1, msy1, msx2, msy2, 20)) then
    mouse(x,y,3,3,true);
    wait(1000);
    typesend('18');
    closebank;
   end else
   begin;
    closebank;
    logout;
    Players[CurrentPlayer].Active := False;
    exit;
   end;
end;

procedure walktofurnace;
begin
wait(200);
if (not(loggedin)) then exit;
wait(500+random(200));
makecompass('w');
RadialWalk((findcolortolerance(x,y,7247299,mmx1,mmy1,mmx2,mmy2,15)), 90, 127, 68, -1, 0);
if not(findcolortolerance(x,y,1912725,msx1,msy1,msx2,msy2,20)) then
findsymbol(x, y, 'kebab shop');
mouse(x,y,3,3,true);
wait(20000);
end;

procedure smelt;
begin
if (not(loggedin)) then exit;
 begin
  if (findcolortolerance(x,y,2039585,msx1,msy1,msx2,msy2,20)) then
   begin
    mouse(x,y,3,3,true);
    wait(200);
    if (findcolortolerance(x,y,7303032,msx1,msy1,msx2,msy2,20)) then
    mouse(x,y,3,3,false);
    if (findbitmaptolerancein(smith,x,y,275,641,615,547,20)) then
    wait(200);
    mouse(x,y,3,3,true);
    wait(300)
    typesend('9');
    wait(5000);
    randoms;
    wait(5000);
    randoms;
    wait(5000);
    randoms;
    antiban;
    wait(5000);
    randoms;
    wait(5000);
    randoms;
    wait(5000);
  end else
  logout;
  exit;
 end;
end;
procedure walktobank;
begin
if (not(loggedin)) then exit;
 begin
 wait(500+random(200));
 makecompass('w');
 RadialWalk(findcolortolerance(x,y,6259112,mmx1,mmy1,mmx2,mmy2,15), 287, 274, 65, -1, 0);
 wait(20000);
 end;
end;

begin
setupsrl;
declareplayers;
beginning;
loadtms;
loadbitmap;
activateclient;
wait(1000);
if (not(loggedin)) then
loginplayer;
 repeat
  randoms;
    repeat
     open;
     enterpin;
     wait(100+random(200));
     withdrawiron;
     withdrawcoal;
     randoms;
     walktofurnace;
     randoms;
     smelt;
     randoms;
     walktobank;
     load:=loads+1;
    until (not(loggedin)) or (load>loadstodoperlogin);
  nextplayer(true);
 until (AllPlayersInactive);
proggy;
end.