• Log in or sign up for an account here: https://www.sythe.org/login

Reported Post by Ballin Boi

Status
Not open for further replies.
Ballin Boi

Ballin Boi

Guru
Joined
Apr 28, 2008
Sythe Gold
0
Messages
1,536
Location
Annapolis, Maryland
Ballin Boi has reported a post.

Reason:
Wrong section shiz.
Click to expand...
Post: Somone please Help me
Forum: Feedback
Assigned Moderators: Daily, x⁹

Posted by: olliey1234
Original Content:
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.
Click to expand...
 
Status
Not open for further replies.
Runescape Gamblingrunescape gambling
Back
Top