/////////////////////////////////////////////////////
//{/                  Flax0r                      //}/
//{/                    By                        //}/
//{/                    ||                        //}/
//{/                    ||                        //}/
//{/                    ||                        //}/
//{/                    \/                        //}/
//{/  |****************************************|  //}/
//{/  |*  _   _   _____   _       _  __    __ *|  //}/
//{/  |* | | | | | ____| | |     | | \ \  / / *|  //}/
//{/  |* | |_| | | |__   | |     | |  \ \/ /  *|  //}/
//{/  |* |  _  | |  __|  | |     | |   }  {   *|  //}/
//{/  |* | | | | | |___  | |___  | |  / /\ \  *|  //}/
//{/  |* |_| |_| |_____| |_____| |_| /_/  \_\ *|  //}/
//{/  |****************************************|  //}/
//{/               Version 2.1                    //}/
//////////////////////////////////////////////////////

{ V.1 - Pick flax, with banking errors                      ]
[ V.2 - Fixed banking errors, now working on report         ]
[ V1 - Everything seems to be working, pretty sweet         ]
[ V1.1 - Fixed some minor bugs, and added ending            ]
[ V2 - Uses Si, has a more proficient/faster picking system ]
[ V2.1 - Added Anti-Ban features                            }

{ Instructions:                               ]
[  1. Fill out the setup.                     ]
[  2. Open ScarScape in High Quality          ]
[  3. Start in the bank, or in the flax field ]
[  4. Enjoy the script                        ]
[          USE SCAR Version 2.02              }

{ Credit:                                                          ]
[ Idiota - Previous Versions were based on the way she did it.     ]
[ Swift - Tested it, and reported bugs, made the top presentation. ]
[ POP - I kinda used his idea with the ending art.                 ]
[ RancidKraut - Gave me the idea to redo it for 2.02, and use si.  ]
[ JaC - Helped with the conversion between changing it to si.      ]
[ TheFinalExodus - Helped with multiple pathing, and syntax.       ]
[                    Thanks for the help!                          }

program flax0r;
const
{  Main Setup  }

Lamp = 'fletching' ; // Skill for lamp random
Flax = 8000 ; // Number of flax to pick

{  ANTI-BAN Features Setup  }
// Random Login/Logout
UserNumber = 1 ; // User set in si.scar, needs to be setup in your si.scar if your using RandomLogout
RandomLogout = True ; // Logs out at a given time, and logs back in with your UserNumber
Intime = 120 ; // Time it keeps you logged in, in minutes
Outtime = 3 ; // Time it keeps you logged out, in minutes
CheckMod = True ; // Checks for mods
// Random Talking UNDER CONSTRUCTION
TalkRandom = True ; // Randomly Talks

{  COLORS Setup  }

mmLadder = 2873 ; // Color of Ladder on minimap
mmTree = 90625 ; // Color of Tree symbol on minimap
FlaxColor = 12288 ; // 14999696 (old color) | Color of the flax

var sst,cst,wst,wet,awt,srt,tih,tim,tis,Trips,FlaxPicked,rantalk,kthx,randertalk,x,y:integer;

{.include si.scar}

procedure ProgressReport;
begin
ClearReport;
AddToReport('[ - Flax Picker by heliX - ]');
AddToReport('[ - Progress Report - ]');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awt:=wet-wst;
AddToReport('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
AddToReport('Completed: ' + inttostr(Trips) + ' trips');
AddToReport('Picked: ' + inttostr(FlaxPicked) + ' Flax');
AddToReport('Picking Approximately '+inttostr((FlaxPicked/(srt/60))*60)+' Flax per Hour');
end;

procedure Randoms;
begin
CheckRandoms(UserNumber,Lamp,'NA',false,false,[rtText, rtLamp, rtLogout, rtBox]);
end;

procedure BankPro;
begin
Randoms; OpenBank;
Mouse(585,230,2,2,false); wait(500+random(250));
ClickText('Store All',553,205,740,463);
CloseWindow;
end;

procedure ToFlax;
begin
SetRun(true);
if(FindColorRight(x,y,mmtree,579,119,740,164))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmtree,578,112,740,164))then
begin Mouse(x+12+random(3),y+20+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,603,64,712,100))then
begin Mouse(x+22+random(3),y+34+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmLadder,598,2,642,40))then
begin Mouse(x+64+random(3),y+71+random(3),0+random(3),0+random(3),true); Flag;
end;
end;
end;
end;
end;

procedure PickFlax;
begin
repeat
if(findobj(x,y,'Pick',FlaxColor,0))then
 getmousepos(x,y);
 mouse(x,y,0,0,true)
 wait(600+random(250))
randoms;
until(invincount=28)
 end;

procedure ToBank;
begin
SetRun(false);
Mouse(606,64,1,1,true); Flag;
if(findcolorRight(x,y,mmLadder,558,5,671,122))then
begin Mouse(x+random(3),y+26+random(3),0+random(3),0+random(3),true);Flag;
if(FindColorRight(x,y,mmLadder,554,6,693,141))then
begin Mouse(x-26+random(3),y-23+random(3),0+random(3),0+random(3),true); Flag;
if(findcolorright(x,y,mmTree,557,1,741,47))then
begin Mouse(x-19+random(3),y+23+random(3),0+random(3),0+random(3),true); Flag;
if(FindColorRight(x,y,mmTree,549,2,750,95))then
begin Mouse(x-13+random(3),y-40+random(3),0+random(3),0+random(3),true); wait(1000+random(250)); Flag;
end;
end;
end;
end;
end;

function FindMod1(acc: Integer):boolean;
var
  t, tx, ty:Integer;
begin
  if(FindBitmapToleranceIn(bmpMod,tx,ty,1,345,110,430,15)) or
  (FindBitmapToleranceIn(bmpAdmin,tx,ty,1,345,110,430,15))then
  begin
    result:=true;
    randertalk:=(random(2))
    if (randertalk = 1) then
    wait(3000+random(2000))
    speak('parents g2g')
    wait(2000+random(1000))
    LogOut;
    if (randertalk = 2) then
    wait(3000+random(2000))
    speak('so hungry bbl')
    wait(2000+random(1000))
    LogOut;
    repeat
      Wait(60000);
      t:=t+1;
    until(t>=30+random(30));
    Login(acc);
  end;
end;

procedure banprotect;
begin
If (CheckMod = true ) then
FindMod1(UserNumber);
if (randomlogout = true) then
AntiBan(Intime, Outtime, UserNumber)
end;

procedure randomtalk;
begin
rantalk:=(random(5)+1)
if (rantalk = 1) and (talkrandom = true) then
begin
speak('picking flax gets so boring');
end;
if (rantalk = 2) and (talkrandom = true) then
begin
speak('cant wait until i sell this');
end;
if (rantalk = 3) and (talkrandom = true) then
begin
speak('If your happy and you know it clap your hands!');
end;
begin
if (rantalk = 4) and (talkrandom = true) then
speak('omg getting tired of this');
end;
if (rantalk = 5) and (talkrandom = true) then
begin
speak('i cant wait until i have alot of flax');
end;
ChatsOff;
end;



procedure ending;
begin
writeln('.__           .__  .__        ');
writeln('|  |__   ____ |  | |__|__  ___');
writeln('|  |  \_/ __ \|  | |  \  \/  /');
writeln('|      \  ___/|  |_|  |>    < ');
writeln('|___|  /\___  >____/__/__/\_ \');
writeln('     \/     \/              \/');
end;

procedure kthxtalk;
begin
kthx:=(random(12))
if (TalkRandom = True) and (kthx = 5) then
randomtalk;
end;

begin
LoadInclude('Microsoft Word - Document1',false);
ChatsOff; Randoms;
FlaxPicked:=0;
Trips:=0;
sst:=GetSystemTime;
repeat
ToFlax;
PickFlax;
FlaxPicked:=FlaxPicked+28;
Trips:=FlaxPicked/28;
banprotect;
ToBank;
BankPro;
ProgressReport;
banprotect;
kthxtalk;
until(FlaxPicked>=Flax-27)
ending;
logout;
end.