any 1 plz help i get this error?

Printable View

Show 40 post(s) from this thread on one page

ok ive got this flax and banking script and everytime i press play this comes up Failed when compiling
Line 46: [Error] (46:1): Unknown identifier 'MMouse' in script

and now heres the script :

SCAR Code:

{.include srl/srl.scar}

const
  aTreeSymbCol=83973;
  aMMFlaxColor=10639947;

var
  bk1,bk2,bk3,bk4,px,py, x, y,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 <a href="mailto:dontpanic0@gmail.com">dontpanic0@gmail.com</a> 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.

plz if any1 cud reply as soon as possible i reli need this to work i ve tried alot of times

thanks :D

11-19-2007, 05:11 PM
EvilChicken!
You forgot to put program title at the start and stuff.
SCAR Code:
```
program New;
{.include SRL/SRL.scar}

begin
SetupSRL;
end.
```
Now go add stuff to this.

Gl :D
11-19-2007, 05:34 PM
sundeep125

ohh ok thanks alot m8 :D

but wen i press play this happens Successfully compiled
SRL Compiled in 62 msec
Successfully executed

its no error it jus doesnt work lol ...
11-19-2007, 05:55 PM
EvilChicken!

Post your entire script.

ok m8 here it is :

SCAR Code:

program flax;
{.include srl/srl.scar}

begin
SetupSRL;
end.
const
  aTreeSymbCol=83973;
  aMMFlaxColor=10639947;

var
  bk1,bk2,bk3,bk4,px,py, x, y,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 <a href="mailto:dontpanic0@gmail.com">dontpanic0@gmail.com</a> 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.

i always get this when i play it Successfully compiled
SRL Compiled in 16 msec
Successfully executed

any ideas have a trie an see what happens:confused:

thanks :D

procedure bkDtms;
..

You're calling setup Bk or something.

Anyway, try to just add them into the mainloop. Allways works for me.

SCAR Code:

begin
SetupSRL;

Trade := DTMFromString('78DA636C62646088076264708081811548814' +
       '4FF0301631F7E3520C03805C88A26A0A688083520F744E1570300' +
       '74370C50');
Wishes := DTMFromString('78DA634C626060906240010D40C804A41981F' +
       '83F1030E60119D2B8D580006327116A66E0B70B040094240A68');

ActivateClient;
Wait(500);
DeclarePlayers;
If not LoggedIn then LogInPlayer;
Mouse(315, 491, 10, 10, true);
Wait(500 +  random(1000));
Repeat
Talk;
Wait(500 + random(2500));
until IsFKeyDown(9);
end.

Just an example mainloop.

11-19-2007, 06:45 PM
sundeep125

thanks m8 but cud u do me a favour and plz add it to the script i wud really appriciate it cuz i dont know wat u mean lol

thanks :D

and im not callin it setup it says procedure doesnt it lol
11-19-2007, 06:49 PM
EvilChicken!

Ok, then..

Even though I've got a big headace and stuff..
11-19-2007, 06:56 PM
sundeep125

awwwww sori for causin any trouble lol!
its ur choice m8 anyway

thanks in advance :)
11-19-2007, 07:03 PM
EvilChicken!
Sorry that I'm so grumpy, I'm usually nicer. I hope.

Anyway, I fixed your script. Somehow.

I fixed the DTMs and the biggest mistake you made:

SCAR Code:

Begin
SetupSRL;
End.

Notice the "END" WITH A PERIOD.

You know what that means - the end of the script. Which it wasn't, since it was placed on the start of the script. So now you just have to fix the remaining errors. I also updated your antirandoms.

AND I STANDARDIZED YOUR SCRIPT. Now it looks much neater.

Great start, good luck.
11-19-2007, 07:48 PM
rogeruk
Quote:
Originally Posted by EvilChicken

Sorry that I'm so grumpy, I'm usually nicer. I hope.

Anyway, I fixed your script. Somehow.

I fixed the DTMs and the biggest mistake you made:

SCAR Code:

Begin
SetupSRL;
End.

Notice the "END" WITH A PERIOD.

You know what that means - the end of the script. Which it wasn't, since it was placed on the start of the script. So now you just have to fix the remaining errors. I also updated your antirandoms.

AND I STANDARDIZED YOUR SCRIPT. Now it looks much neater.

Great start, good luck.
Configure your formatter. Its not standarizing properly.
SCAR Code:
```
if (not (FixPieces)) then begin
    WriteLn('Error solving bee keeper, Trying Again');
    Mouse(497, 17, 3, 3, true);
    SolveBeeKeeper;
  end;
```
Should be
SCAR Code:
```
if (not (FixPieces)) then 
  begin
    Writeln('Error solving bee keeper, Trying Again');
    Mouse(497, 17, 3, 3, true);
    SolveBeeKeeper;
  end;
```
Also, cutting long lines arnt a good idea it causes confusion.
11-19-2007, 07:52 PM
EvilChicken!

Can you PM me yours?
11-19-2007, 08:16 PM
carloxjr

Download a New Scar =3
11-19-2007, 08:41 PM
EvilChicken!

Quote:

Originally Posted by carloxjr

Download a New Scar =3

What has that to do with this?

Please enlighten me.
11-19-2007, 08:53 PM
sundeep125

anyway thanks alot evil chicken any every1 else .:D
:D
11-19-2007, 09:03 PM
71runemaker

Dude, MMouse is like a total huge instant ban! Don't use it, use Mouse.
11-19-2007, 09:06 PM
EvilChicken!

Quote:

Originally Posted by 71runemaker

Dude, MMouse is like a total huge instant ban! Don't use it, use Mouse.

You're thinking about ClickMouse and MoveMouse.

MMouse and Mouse are both pretty undetectable, Mouse simply clicks while MMouse moves mouse smoothly in a human-like way.
11-19-2007, 09:33 PM
sundeep125

OH MY WORD i am gettin reli annoyed now heres a new error
Line 422: [Hint] (15450:1): Variable 'I' never used in script C:\Users\User\Documents\scar scripts\FlaxPicker.scar
Line 495: [Error] (15523:1): Unknown identifier 'RandomChatEvery' in script C:\Users\User\Documents\scar scripts\FlaxPicker.scar

i jus cant belive it lol
11-19-2007, 09:52 PM
EvilChicken!

The variable is nothing to worry about, just a bit annoying. If you read some tuts you learn how to deal with it.

The RandomRChat: Just remove it, its not nesccasary.

gl
11-19-2007, 09:54 PM
sundeep125

cant m8 everytime i do another error comes up like that an it goes on so basically cant do anythin all i want is a WORKING flax picker and banker script have u got 1 evil chicken?

if u have plz post it

thanks......:mad:
11-19-2007, 10:06 PM
EvilChicken!

You're a registered junior member, aren't you?

There are a lot of good flax pickers out there. You just have to learn SCAR and SRL, as this is a leech-free community. Or is at least supposed to be.

There are a lot of great tutorials out there, just waiting for you to read them. Then everything will work for you. And everyone will live happily then ever.

Or you could try making one.
I knew that wasn't your script. -.-
11-19-2007, 10:16 PM
sundeep125

rite... i never sed that was my script lol.....
ok 1 last question then im leavin this thread where is the juniors section or whatever lol :redface:
11-19-2007, 10:21 PM
EvilChicken!

Aah!

* tries to relax and breathe sloooowly.. *

http://www.srl-forums.com/forum/srl-...mber-f109.html

And while we are at it: Check this out.
11-19-2007, 10:24 PM
sundeep125

huh i dont have perrmission to veiw this site ok den.. ove posted more than 10 posts an bn registered for more than 7 days that makes me a junior rite?...
11-19-2007, 10:31 PM
EvilChicken!

Y-yes..

So you got this from the free-section? And you expect this to work?

You know what, you've kinda embarrased me. You made me edit and correct and format someone elses script and you need to read some good tuts. Please do so now while you wait that week.

Thank you for your understanding.

Show 40 post(s) from this thread on one page