Somone please Help me

I have tryed like 100 differnt scripts but they all have "somthing wrong with them" even i looked at the feed back and noone els has the proplem

here a example

Code:

{.include srl/srl.scar}

const
  aTreeSymbCol=2057278;
  aMMFlaxColor=12085361;
  
var
  bk1,bk2,bk3,bk4,px,py,BeeKeepers:integer;

procedure bkDtms;
begin
  bk1:= DTMFromString('78DA637CCFC0C010C08002AE5FBAC8C00FA41' +
       '9A17CC63740C20E55CDC553A750D5DC02129EA86A5E3C7D8AAAE6' +
       '2C9088475573E7FA755435DC40561CAA9A2533A6A3AA01B1BC50D' +
       '5ECDEB001450D004BC013DD');;
  bk2:=DTMFromString('78DA639CC8C0C010C880020EEDDCC1C00FA41' +
       '9A17CC6D3986AD62C5880AA662990484355B36BE3465435AB31D5' +
       '6C5FB31A55CD464C355B56AE4055B30D53CDBA850B51D59C0712E' +
       '9A86A66F6F761AA89425533A1AD0D554D2FA69A5DEBD7A3AAE9C3' +
       '74CFD1BD7B51D4000064E81F19');
  bk4:= DTMFromString('78DA63BCCBC0C060C780028EEDDBC7C00FA41' +
       '9A17C460920CB0155CD9A050B50D5480359EEA86AA67476A2AAB9' +
       '0524DC50D56C5BB31A55CD43201185AAE6C0F66DA86A8481AC105' +
       '4353BD6AE4155F3034878A0AA59347D3A8A1A0009451441');
  bk3:=DTMFromString('78DA63DCC8C0C050C880020EEEDCC1C00FA41' +
       '9A17CC63740221F55CDDA850B51D5BC071215A86AA67476A2AAB9' +
       '0E249A51D5CCECEF4355730E4834A0AA1115124255B31648B4A1A' +
       'AD9B97E1DA67B5A51D5CC993811450D0020E41535');
end;

procedure bkSetup;
begin
  bkDtms;
end;

function FindBeeKeeper:boolean;
var
  ct:integer;
begin
  ct:=0;
  repeat
    ct:=ct+1;
  until(FindColorTolerance(x,y,14802401,163, 96,427, 255,ct));
  //if(not(FindDtm(BeeKeeperDtm,x,y,163, 96,427, 255))) then Exit;
  //y:=y+3;
  MMouse(x,y,0,0);
  wait(100+random(50));
  Result:=IsUpText('per');
  if(Result) then wait(100+random(50));
end;

function OpenWin:boolean;
begin
  if(not(IsUpText('per'))) then FindBeeKeeper else GetMousePos(x,y);
  Mouse(x,y,0,0,true);
  wait(10);
  Flag;
  MMouse(296, 447,10,1);
  wait(1000+random(100));
  while(FindColor(x,y,16777215,23, 437,394, 461)) do begin
    Mouse(296, 447,10,1,true);
    wait(1000+random(200));
  end;
  Result:=true;
  wait(1000+random(500));
end;

procedure DoneBk;
begin
  MMouse(254, 270,3,3);
  getmousepos(x,y);
  wait(200+random(100));
  Mouse(x,y,0,0,true);
  wait(1000);
  repeat
    wait(100);
  until(FindColor(x,y,16711680,23, 437,394, 461));
  Wait(1000+random(500));
  BeeKeepers:=BeeKeepers+1;
  WriteLn('Solved Bee Keeper!');
end;

function FindPiece(piece:integer):boolean;
var
  fpMark:longint;
begin
  MarkTime(fpMark);
  repeat
    wait(100);
    if(TimeFromMark(fpMark)>23000) then Exit;
  until(FindDtm(piece,px,py,23, 29 ,426, 224));
  Result:=True;
end;

function ClickPiece(piece:integer):boolean;
begin
  if(not(FindPiece(piece))) then Exit;
  Mouse(px+10,py+5,1,1,true);
  wait(800+random(100));
  Result:=True;
end;

procedure ClickArrow(arrow:integer);
begin
  if(arrow=1) then Mouse(141, 275,5,5,true);
  if(arrow=2) then Mouse(194, 269,5,5,true);
  if(arrow=3) then Mouse(314, 273,5,5,true);
  if(arrow=4) then Mouse(361, 271,5,5,true);
end;

function MovePiece(mx,my,piece:integer):boolean;
begin
  if(not(ClickPiece(piece))) then Exit;
  Result:=True;
  while(px<mx) do begin
    ClickArrow(4);
    wait(600+random(100));
    px:=px+15;
  end;
  while(py<my) do begin
    ClickArrow(2);
    wait(600+random(100));
    py:=py+15;
  end;
  while(px>mx+16) do begin
    ClickArrow(3);
    wait(600+random(100));
    px:=px-15;
  end;
  while(py>my+16) do begin
    ClickArrow(1);
    wait(600+random(100));
    py:=py-15;
  end;
end;

function FixPiece(piece:integer):boolean;
begin
  if(piece=1) then begin
    Result:=MovePiece(84, 62,bk1);
  end;
  if(piece=2) then begin
    Result:=MovePiece(61, 165,bk2);
  end;
  if(piece=3) then begin
    Result:=MovePiece(350, 47,bk3);
  end;
  if(piece=4) then begin
    Result:=MovePiece(350, 158,bk4);
  end;
end;



function SolvePiece(piece:integer):boolean;
begin
  if(piece=1) then begin
    Result:=MovePiece(244,29,bk1);
  end;
  if(piece=2) then begin
    Result:=MovePiece(222,82,bk2);
  end;
  if(piece=3) then begin
    Result:=MovePiece(224,141,bk3);
  end;
  if(piece=4) then begin
    Result:=MovePiece(224,190,bk4);
  end;
end;

function FixPieces:boolean;
begin
  if(not(FixPiece(2))) then Exit;
  if(not(FixPiece(4))) then Exit;
  if(not(FixPiece(3))) then Exit;
  if(not(FixPiece(1))) then Exit;
  Result:=True;
end;


function MovePieces:boolean;
begin
  if(not(SolvePiece(2))) then Exit;
  if(not(SolvePiece(4))) then Exit;
  if(not(SolvePiece(3))) then Exit;
  if(not(SolvePiece(1))) then Exit;
  Result:=True;
end;


procedure SolveBeeKeeper;
begin
  OpenWin;
  if(not(FixPieces)) then begin
    WriteLn('Error solving bee keeper, Trying Again');
    Mouse(497, 17,3,3,true);
    SolveBeeKeeper;
  end;
  if(not(MovePieces)) then begin
    WriteLn('Error solving bee keeper, Trying Again');
    Mouse(497, 17,3,3,true);
    SolveBeeKeeper;
  end;
  DoneBk;
end;

function BeeKeeper:boolean;
begin
  if(GetColor(649, 78)=0) then begin
    WriteLn('Middle of mm black, checking for bee keeper');
    wait(3000+random(200));
    if(FindBeeKeeper) then begin
      WriteLn('Found Bee Keeper, Trying to solve');
      Result:=True;
      SolveBeeKeeper;
    end;
  end;
end;
  
var
  Loads,TotalLoads,TreeSym,TreeSymbCol,MMFlaxColor,LakeColor,MapleTreeColor:integer;
  i,lx,ly,TripsTillAlign:integer;
  StartScriptMark,PlayerBeginMark,ClickFlaxMark:longint;
  Flax,FlaxPerHour,TimeInHours:extended;
  BankBooth,MapleMiddle,MapleMiddle2,MapleMiddle3,MapleMiddle4,MapleMiddle5,MapleBmp,TreeSymbBmp:integer;

procedure DPUpdateMMColorArea(var col:integer;a,b,c,d:integer);
var CurTol:integer;
begin
 CurTol:=-1;
  repeat
    CurTol:=CurTol+1;
  until(FindColorTolerance(x,y,col,a,b,c,d,CurTol));
  col:=getcolor(x,y);
end;

function FindTreeSymb(a,b:integer):boolean;
begin
  Result:=FindColorTolerance(x,y,TreeSymbCol,564,a,728,b,1);
end;

function FindTreeSymb2(a,b:integer):boolean;
begin
  Result:=FindColorTolerance(x,y,TreeSymbCol,564,a,693,b,1);
end;

function FindMMFlax:boolean;
begin
  x:=648;
  y:=83;
  Result:=FindColorSpiralTolerance(x,y,MMFlaxColor,564, 6,728, 166,5);
end;

function FindMMFlaxNorth:boolean;
begin
  Result:=FindColorTolerance(x,y,MMFlaxColor,564, 6,728, 166,5);
end;

procedure FindSouthTree;
var
  a,b:integer;
begin
  a:=159;
  b:=159;
  repeat
    a:=a-5;
    if(a<6) then begin
      WriteLn('Error, couldnt find tree');
      Logout; Exit;
    end;
  until(FindTreeSymb(a,b));
end;

procedure FindNorthTree;
var
  a,b:integer;
begin
  a:=10;
  b:=10;
  repeat
    b:=b+5;
    if(b>150) then begin
      WriteLn('Error, couldnt find tree');
      Logout; Exit;
    end;
  until(FindTreeSymb2(a,b));
end;
  
function IsAligned:boolean;
begin
  if(FindColor(lx,ly,MapleTreeColor,591, 23,660, 77)) then
  if(FindColor(x,y,MapleTreeColor,lx+32,ly,lx+39,ly+3)) then begin
    Result:=True;
  end;
end;

procedure AlignCompass;
begin
  TripsTillAlign:=TripsTillAlign-1;
  if(TripsTillAlign<1) then begin
    if(not(IsAligned)) then begin
      Status('Aligning MM, Maple color: '+inttostr(MapleTreeColor));
      KeyDown(VK_LEFT);
      wait(400);
      repeat
        wait(5);
      until(IsAligned);
      wait(20);
      KeyUp(VK_LEFT);
      Status('MM Aligned');
      TripsTillAlign:=random(3);
    end;
  end;
end;

//Reliable slow walking
{procedure ToFlaxFields;
begin
  DPUpdateMMColorArea(MapleTreeColor,591, 23,660, 77 );
  //WriteLn('Maple Color: '+inttostr(MapleTreeColor));
  AlignCompass;
  Status('Walking to flax - 1/5');
  FindSouthTree;
  Mouse(x-10,y-15,1,1,true);
  wait(700+random(300));
  SetRun(True);
  GameTab(4);
  Flag;
  if(Not(LoggedIn)) then Exit;
  FindSouthTree;
  Status('Walking to flax - 2/5');
  Mouse(x-10, y+30,4,4,true);
  if(Not(LoggedIn)) then Exit;
  FFlag(7);
  FindSouthTree;
  Status('Walking to flax - 3/5');
  Mouse(x+30,y,1,1,true);
  if(Not(LoggedIn)) then Exit;
  FFlag(7);
  FindSouthTree;
  Status('Walking to flax - 4/5');
  Mouse(x+65,y+30,1,1,true);
  if(Not(LoggedIn)) then Exit;
  wait(1000);
  Flag;
  if(Not(LoggedIn)) then Exit;
  if(MMFlaxColor=0) then MMFlaxColor:=aMMFlaxColor;
  DPUpdateMMColorArea(MMFlaxColor,648, 93,731, 161);
  //WriteLn('Flax Color: '+inttostr(MMFlaxColor));
  if(not(FindMMFlax)) then WriteLn('Couldnt Find MM Flax');
  Status('Walking to flax - 5/5');
  Mouse(x-2,y-2,1,1,true);
  getmousepos(x,y);
  Flag;
end;

procedure ToBank;
var
  i:integer;
begin
  if(not(FindMMFlaxNorth)) then begin
    writeln('Error,cant find flax!');
    Logout; Exit;
  end;
  Status('Walking to bank - 1/6');
  Mouse(x-35,y+10,3,3,true);
  FFlag(10);
  if(not(FindMMFlaxNorth)) then begin
    writeln('Error,cant find flax!');
    Logout; Exit;
  end;
  Status('Walking to bank - 2/6');
  Mouse(x-60,y-15,3,3,true);
  FFlag(20);
  FindNorthTree;
  Status('Walking to bank - 3/6');
  Mouse(x+25,y,3,3,true);
  FFlag(40);
  FindNorthTree;
  Status('Walking to bank - 4/6');
  Mouse(x+25,y-25,5,5,true);
  FFlag(20);
  FindNorthTree;
  Status('Walking to bank - 5/6');
  Mouse(x-10,y+10,5,2,true);
  Flag;
  FindNorthTree;
  Status('Walking to bank - 6/6');
  Mouse(x-20,y-45,20,1,true);
  Flag;
  wait(100+random(20));
end;  }
//End of reliable slow walking

//Leet fast walking
procedure ToFlaxFields;
begin
  DPUpdateMMColorArea(MapleTreeColor,591, 23,660, 77 );
  //WriteLn('Maple Color: '+inttostr(MapleTreeColor));
  AlignCompass;
  Status('Walking to flax - 1/5');
  FindSouthTree;
  Mouse(x-10,y-5,1,1,true);
  wait(700+random(300));
  SetRun(True);
  GameTab(4);
  FFlag(9);
  if(Not(LoggedIn)) then Exit;
  FindTreeSymb(50,137);
  Status('Walking to flax - 2/5');
  Mouse(x-17, y+20,4,4,true);
  if(Not(LoggedIn)) then Exit;
  FFlag(7);
  FindNorthTree;
  Mouse(x-10,y+50,2,2,true);
  FFlag(7);
  FindTreeSymb(82,158);
  Status('Walking to flax - 3/5');
  Mouse(x+20,y+30,1,1,true);
  if(Not(LoggedIn)) then Exit;
  FFlag(14);
  FindSouthTree;
  //Mouse(x+15,y+20,1,1,true);
  //FindSouthTree;
  //FFlag(10);
  Status('Walking to flax - 4/5');
  Mouse(x+65,y+30,1,1,true);
  if(Not(LoggedIn)) then Exit;
  FFlag(7);
  FindSouthTree;
  Mouse(x+80, y+60,5,5,true);
  FFlag(7);
  if(Not(LoggedIn)) then Exit;
  if(MMFlaxColor=0) then MMFlaxColor:=aMMFlaxColor;
  DPUpdateMMColorArea(MMFlaxColor,647, 71,731, 161);
  //WriteLn('Flax Color: '+inttostr(MMFlaxColor));
  if(not(FindMMFlax)) then WriteLn('Couldnt Find MM Flax');
  Status('Walking to flax - 5/5');
  Mouse(x,y,1,1,true);
  Flag;
end;

procedure ToBank;
var
  i:integer;
begin
  if(not(FindMMFlaxNorth)) then begin
    writeln('Error,cant find flax!');
    Logout; Exit;
  end;
  Status('Walking to bank - 1/6');
  Mouse(x-35,y+10,3,3,true);
  wait(2000);
  FFlag(30);
  FindMMFlaxNorth;
  Mouse(x-50,y,5,5,true);
  FFlag(20);
  if(not(FindMMFlaxNorth)) then begin
    writeln('Error,cant find flax!');
    Logout; Exit;
  end;
  Status('Walking to bank - 2/6');
  Mouse(x-70,y-20,3,3,true);
  FFlag(15);
  FindNorthTree;
  Status('Walking to bank - 3/6');
  Mouse(x+25,y,3,3,true);
  FFlag(20);
  FindTreeSymb(30,200);
  Status('Walking to bank - 4/6');
  Mouse(x+25,y-25,5,5,true);
  FFlag(20);
  FindNorthTree;
  Status('Walking to bank - 5/6');
  Mouse(x-15,y,5,2,true);
  FFlag(15);
  FindTreeSymb2(50,120);
  Status('Walking to bank - 6/6');
  Mouse(x-20,y-45,20,1,true);
  Flag;
  wait(100+random(20));
end;
//End of leet fast walking

procedure FindRands2;
begin
  FindDead;
  FindMime;
  FindMaze;
  FindQuiz;
  FindDemon;
  FindScapeRune;
  FindLamp(LampSkill);
  if (FindNewBox) then SolveBox;
  if NoGameTab then
  begin
    if(not(BeeKeeper)) then begin
      Players[CurrentPlayer].loc := 'No GameTab';
      Logout;
      Exit;
    end;
  end;
end;

procedure FindRands1;
begin
  if(FindTalk) then FindRands2;
  if(FindFight) then begin
    Mouse(605, 82,3,3,true);
    Flag;
    Mouse(605, 82,3,3,true);
    Flag;
    wait(random(1000));
    Mouse(690, 82,3,3,true);
    Flag;
    Mouse(690, 82,3,3,true);
    Flag;
    wait(300+random(500));
  end;
end;

procedure MyAntiBan;
begin
  RandomChatEvery(10 + Random(5));
  LeaveScreenEvery(5 + Random(5));
  HoverEvery(15 + Random(5), 'random');
  PickUpMouseEvery(5 + Random(10))
  RandomRClickEvery(15 + Random(5))
end;

procedure SetupScript;
begin
  MouseSpeed:=2;
  StartPlayers(true,'');
  ActivateClient;
  BankBooth := DTMFromString('78DA63E4676460E8654001610E9C0C5C409A1' +
       '1CA6704A96985B0B9A062011E3E986AEA51D574E61860AAA94455' +
       '33A13907450D00C80806C0');
  TreeSymbBmp:=BitmapFromString(4, 11, 'z78DA8DCF510AC0300803D02B25765' +
       'DF55364F7BFD24A65E02883FD04798180D023608853E1081592CD' +
       'FABC377F32E5B77FEDBCBCB4E92B5D9C3EDA259D2324182365F79' +
       'ABB73FE43A4A34160B5CDB51B689A395A');
  {MapleMiddle:=BitmapFromString(2, 4, 'z78DA33733635367434239A040003CF' +
       '0A99');
  MapleMiddle2:=BitmapFromString(2, 4, 'z78DA33353732373030259A0400ED68' +
       '09A9');
  MapleMiddle3:=BitmapFromString(2, 4, 'z78DA33373776353433279A0400FF38' +
       '0A69');
  MapleMiddle4:=BitmapFromString(2, 4, 'z78DA33373636377433279A0400FC78' +
       '0A59');
  MapleMiddle5:=BitmapFromString(2, 4, 'z78DAB33032353136B2209A0400EF80' +
       '09C1');
  //BitmapFromString(2, 4, 'z78DAB33036B13036B0209A0400F128' +
       //'09D1'); }
  MapleBmp:=BitmapFromString(8, 9, 'z78DAB5CF310E80200C85E12BD9BE16' +
       '5C15E4FE4722B10C2FA90B83CB1F423F92E2BDBA3CBE59280EB5E' +
       '8A97643B9D65165848C73B400435BF671CF869B3DBFDAF579FFD2' +
       '00B9B86B13FBFEFB9A867F0DF76F3F0103D45EA7');
  MarkTime(StartScriptMark);
end;

procedure SetUpCompass;
begin
  MakeCompass('N');
  KeyDown(VK_UP);
  wait(1500+random(500));
  KeyUp(VK_UP);
  wait(100+random(200));
end;

procedure ColorPick;
var
  CurTol,mx,my,tx,ty:integer;
begin
  if(FindDeformed(tx,ty,TreeSymbBmp,MMX1,MMY1,MMX2,MMY2)) then begin
    TreeSymbCol:=GetColor(tx,ty);
  end else begin
    TreeSymbCol:=aTreeSymbCol;
    DPUpdateMMColorArea(TreeSymbCol,604, 20,705, 88 );
    //WriteLn('Tree Symbol Color: '+inttostr(TreeSymbCol));
  end;
  FindDeformed(mx,my,MapleBmp,591, 23,660, 77);
  MMouse(x,y,0,0);
  //WriteLn(inttostr(mx)+' '+inttostr(my));
  //TerminateScript;
  //MapleTreeColor:=2442865;
  //MapleTreeColor:=534363;
  //DPUpdateMMColorArea(MapleTreeColor,mx, my,mx+16, my+16 );
  //CurTol:=-1;
 // repeat
    //Cur
  MapleTreeColor:=GetColor(mx+5,my+2);
end;

procedure SetupPlayer;
begin
  MarkTime(PlayerBeginMark);
  MMFlaxColor:=0;
  SetUpCompass;
  ColorPick;
end;

{procedure Yohojo8PickOneFlax;
var T,M,Tol,RealFlax:integer;
begin
  M:=0
  While (Not(IsUpText('Pic'))) do
  Begin
    For T:=1 To 3 do
    Begin
      M:=M+1;
      Case M Of
        1: RealFlax:= 13420640;
        2: RealFlax:= 13552224;
        3: RealFlax:= 12433496;
      end;
      X:=MSCX;
      Y:=MSCY;
      While  Not(Tol<20)and (not(Isuptext('Pic'))) Do
      Begin
        Tol:=Tol+1;
        Status('Try '+ inttostr(Tol) +' out of 20 to find flax');
        If FindColorTolerance(x,y,RealFlax,MSX1,MSY1,MSX2,MSY2,Tol) then
        Begin
          MMouse(x,y,5,5);
          Wait(100+Random(100));
        end;
        If IsupText('Pic') then
        Begin
          If (T>=20)and (Not(IsUpText('Pic'))) Then
          Begin
            Status('Tried '+ inttostr(Tol)+ 'times to find tree. Failed to find');
            Logout;
            Mouse(x,y,0,0,true)
          end;
        end;
      end;
    end;
  end;
end;  }

function PickOneFlaxSimple:boolean;
var
  FlaxCol:integer;
  Tol:integer;
begin
  case random(4) of
    0: FlaxCol:=944649;
    1: FlaxCol:=877320;
    2: FlaxCol:=943625;
    3: FlaxCol:=940041;
  end;
  Tol:=0;
  repeat
    Tol:=Tol+3;
    x:=MSCX;
    y:=MSCY;
    if(Tol>20) then begin
      Status('Couldnt find flax color on screen, trying FindObj');
      Exit;
    end;
  until(FindColorSpiralTolerance(x,y,FlaxCol,MSX1,MSY1,MSX2,MSY2,Tol));
  MMouse(x,y,0,0);
  wait(5+random(5));
  if(not(IsUpTextMulti('Pic','las','k fl'))) then begin
    Status('Non-Flax with flax color, trying FindObj');
    Exit;
  end;
  Mouse(x,y,0,0,true);
  Result:=true;
end;

procedure PickOneFlaxFindobj;
var
  tries:integer;
  found:boolean;
begin
  for tries:=1 to 20 do begin
    case random(2) of
      0: found:=FindObj(x,y,'ick',944649,15 );
      1: found:=FindObj(x,y,'lax',877320,15 );
    end;
    if(found) then begin
      Mouse(x,y,0,0,true);
      Status('Clicked a flax with FindObj');
      Exit;
    end;
    FindRands2;
  end;
  WriteLn('Could not find flax, logging out');
  Logout;
end;

procedure PickFlag;
var
  FlagBegin:LongInt;
  used:boolean;
begin
  MarkTime(FlagBegin);
  while(FlagPresent) do begin
    used:=true;
    wait(1);
    if(TimeFromMark(FlagBegin)>4000) then
      Exit;
  end;
  //if(used) then wait(400+random(20));
end;

procedure PickFlax;
var
  CurrentCount,WaitAmount:integer;
begin
  repeat
    WaitAmount:=700+random(150);
    while (TimeFromMark(ClickFlaxMark)<WaitAmount) do Wait(10);
    if(not(PickOneFlaxSimple)) then PickOneFlaxFindobj;
    PickFlag;
    MarkTime(ClickFlaxMark);
    FindRands1;
    MyAntiBan;
    wait(20+random(30));
    Status('Flax: '+inttostr(InventoryCount));
  until((InventoryFull) or Not(LoggedIn));
end;

procedure FindObjBank;
begin
  repeat
    Status('Finding Bank Booth - try '+inttostr(i));
    if((i=0)or(i=3)or(i=6)or(i=9)) then if FindObj(x,y,'Use',541530,10) then Mouse(x,y,0,0,false);
    if((i=1)or(i=4)or(i=7)or(i=10)) then if FindObj(x,y,'oth',541530,10) then Mouse(x,y,0,0,false);
    if((i=2)or(i=5)or(i=8)) then if FindObj(x,y,'Bank b',541530,10) then Mouse(x,y,0,0,false);
    i:=i+1;
    if(i=10) then begin
      Logout;
      WriteLn('Took too many tries to find the bank booth');
    end;
  until(ClickOption('Use-quickly',1)or(not(LoggedIn)));
end;

function DtmBank:boolean;
begin
  Status('Finding bank booth');
  if(not(FindDtm(BankBooth,x,y,167, 0 ,327, 336))) then
    Exit;
  MMouse(x,y-3,0,0);
  wait(50+random(30));
  if(not(IsUpTextMulti('oth','Use','Bank B'))) then Exit;
  Mouse(x,y,0,0,false);
  if(ClickOption('Use-quickly',1)) then Result:=true;
end;

procedure BankFlax;
begin
  i:=0;
  if(not(DtmBank)) then begin
    FindObjBank;
  end;
  Status('Waiting for bank screen to open');
  repeat
    wait(100);
  until(BankScreen);
  Status('Depositing items');
  Deposit(1,28,2);
end;
  
procedure ProgressReport;
var
  CheckPlayer:integer;
  ActivePlayers:string;
begin
  TotalLoads:=TotalLoads+1;
  Flax:=TotalLoads*28;
  TimeInHours:=TimeFromMark(StartScriptMark)/3600000;
  FlaxPerHour:=Flax/TimeInHours;
  ActivePlayers:='';
  for CheckPlayer:=0 to (HowManyPlayers-1) do begin
    if(Players[CheckPlayer].Active=True) then begin
      ActivePlayers:=ActivePlayers+(Players[CheckPlayer].Name)+',';
    end;
  end;
  WriteLn('||||||FlaxPicker By Dontpanic||||||');
  WriteLn('Worked for: '+inttostr(trunc(TimeInHours))+' hours and '+inttostr(trunc((TimeInHours-(trunc(TimeInHours)))*60))+' minutes');
  WriteLn('Loads: '+inttostr(TotalLoads));
  WriteLn('Flax: '+inttostr(trunc(Flax)));
  WriteLn('Flax Per Hour: '+inttostr(trunc(FlaxPerHour)));
  WriteLn('Bee Keepers Solved: '+inttostr(BeeKeepers));
  WriteLn('Players in use: '+ActivePlayers);
  WriteLn('|||||||||||||||||||||||||||||||||||');
end;

//Auth stuff: this procedure below and main loop only

procedure auth;
begin
  if(not(GetPage('http://dpfp.freehostia.com/dpfpa.php')=inttostr(1))) then begin
    WriteLn('Error, Invalid Auth');
    WriteLn('Email or MSN [email protected] if you');
    WriteLn('believe that your auth is valid or if you');
    WriteLn('would like to purchase the script');
    TerminateScript;
  end;
end;
  
begin
 // auth;
  SetupSRL;
  bkSetup;
  SetupScript;
  repeat
    Status('Logging in');
    LoginPlayer;
    Status('Setting up player');
    SetupPlayer;
    repeat
      if(LoggedIn) then ToFlaxFields;
      Status('Picking flax');
      PickFlax;
      if(LoggedIn) then begin
        FindRands2;
        Status('Walking to bank');
        ToBank;
        BankFlax;
        ProgressReport;
      end;
    until(not(LoggedIn) or (TimeFromMark(PlayerBeginMark)>18000000));
    if(TimeFromMark(PlayerBeginMark)>18000000) then
      NextPlayer(true)
    else begin
      Status('Player has been logged out');
      NextPlayer(False);
    end;
    wait(10+random(50));
  until(false);
end.

 

Firstly. Try the Scar section?
Second of all, make sure you post the error/problem that your getting.

 

You're supposed to be dead.

 

He came back to life, just like Solid Tank. Gosh Louis, you silly child. The Sythe staff are immortal and cannot be killed. >_<