///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
//      ConJacKed's Willow Rapist 1.44      \\
//     This will cut any tree ANYWHERE      \\
///////////////STUFF IT DOES\\\\\\\\\\\\\\\\\\
//    Cuts down any willow, any location    \\
//      Drops when full inventory           \\
//   Dosnt drop slot 1 (put axe there)      \\
//              Good antiban                \\
//                                          \\
//        !Make sure you near willows!      \\
///////////////////////\\\\\\\\\\\\\\\\\\\\\\\



program WillowRapist;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\WoodCutting.scar}


var
x, y, willowcolor1, willowcolor2, willowcolor3, FindTalk, timerun, loads, Chat, logs, wxp, loadstodo, fail, retries, levelgain: integer;
rundirec: string;

procedure DeclarePlayers;
begin
writeln('Setting up players..');
 HowManyPlayers := 1;
 CurrentPlayer := 0;
 NumberOfPlayers(HowManyPlayers);

 Players[0].Name := 'you smell of';
 Players[0].Pass := 'poo';
 Players[0].Nick := 'ell';     //3 LOWER CASE letters of your name (example, your name is sythepwns, your nick could be yth)
 Players[0].Skill := 'woodcutting'; // Skill for genie lamp (coming soon)
 Players[0].Active := True; // Leave this!!
                            //Make More If you Need to
writeln('Players set up!!');
end;

procedure SetUp;
begin
writeln('Lookin for your wc lvl..');
 loadstodo    := 10000; // How Many Invs You Wanna Do
 rundirec     := 'E'  // Direction To Run If Being Attacked (N, E, S, W)
 ActivateClient;
 SetupSRL;
 if not LoggedIn then LogInPlayer;
 willowcolor1 := 3891280; // Change if needed!
 willowcolor2 := 2042403; // Change if needed!
 willowcolor3 := 8430479; // Change if needed!
 loads        := 0;
 logs         := 0;
 wxp          := 0;
 fail         := 0;
 levelgain    := 0;
 retries      := 10;
 wait(1000);
 ClearDebug;
 writeln('//////ConJacKed`s Willow Rapist V1.4.4\\\\\\');
 Players[CurrentPlayer].integers[1] := GetSkillInfo('woodcutting', False);
 writeln('Your Woodcutting level is ' + IntToStr(Players[CurrentPlayer].integers[1]) + '.');
end;


Procedure BoredCutter;
begin
  case random(300) of
    0: TypeSend('wc lvls');
    1: TypeSend('woodcutting lvls');
    2: TypeSend('im soo bored');
    3: TypeSend('i love woodcutting');
    4: TypeSend('*yawn*');
    5: TypeSend('runescape rocks'); // not really
    6: TypeSend('wc lvls??');
    7: TypeSend('wc lvls? mines 54 :)');
    8: TypeSend('brb, i gotta pee :P ');
    9: TypeSend('willows r soo easy to chopp');
    10:TypeSend('*bored*');
    11:TypeSend('I hate noobs...');
  end;
end;


procedure WCRandoms;
var
posx, posy: integer;
begin
 getmousepos(posx,posy);
 FindEnt(posx,posy,true);
 if FindFight then RunAway(rundirec, True, 1, 7000+random(3000));
 if FindNPCChatText('lations', Nothing) then
  begin
  writeln('Omg. WC level up! :D');
  ClickContinue(True, True);
  levelgain := levelgain + 1;
  end;
 if (FindBlackChatMessage('ou do not')) then
  begin
  writeln('Oh no! Our axe is broken, or something went wrong.');
  LogOut;
  end;
end;

Procedure Bank;
begin
  RunAway('S',true,2,2000+Random(1000));
  RunAway('S',false,2,2000+Random(1000));
  RunAway('E',true,2,2000+Random(1000));
  Wait(2500+Random(500));
  repeat
    if(FindSymbol(x,y,'bank')) then Mouse(x,y,1,1,true);
    if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
    begin
      Mouse(x,y,1,1,false);
      Wait(1000+Random(1000));
      ChooseOption('se-q');
      Wait(5500+Random(500));
      Deposit(2,28,true);
      Wait(2000+Random(500));
      Mouse(482,37,1,1,true);
      Wait(4000+Random(500));
    end;
  until(InvFull = False);
  if(FindSymbol(x,y,'bank')) then Mouse(x,y,1,1,true);
  RunAway('W',true,2,2000+Random(1000));
  RunAway('N',false,2,2000+Random(1000));
  RunAway('N',true,2,2000+Random(1000));
end;

Procedure Runner;
  begin
    RunAway('W',true,2,2000+Random(1000));
    RunAway('N',false,2,2000+Random(1000));
    RunAway('N',true,2,2000+Random(1000));
    Wait(2500+Random(500));
  end;



procedure Report;
begin
ClearDebug;
writeln('~~~~~~~~~~~~~~~~~~~~~~~');
writeln('WillowRaping Report');
writeln('Run Time : COMING SOON');
writeln('Loads Done: ' + IntToStr(loads));
writeln('Logs Cut: ' + IntToStr(logs));
writeln('XP Gained: ' + IntToStr(logs * 75));
writeln('Levels Gained: ' + IntToStr(levelgain));
writeln('Note: the number of logs and xp may vary,');
writeln('because of random event rewards.');
writeln('~~~~~~~~~~~~~~~~~~~~~~~');
writeln('Thanks for using WillowRapist');
if loads=loadstodo then
 begin
 writeln('You have cut all your Loads! Well Done!');
 LogOut;
 end;
end;

procedure Runtime;
begin
wait(6000);
timerun := timerun + 1;
end;


procedure RespondToPlayers;
var
  TheOldMessage, CurrentMessage, I: Byte;
  Levels, Macro: TStringArray;
begin
  Levels := ['vl', 'evel', 'Wc', 'wc', 'oodcutting', 'oodcut'];
  Macro := ['acro', 'Macro', 'Bot', 'bot', 'Auto', 'auto'];
  for I := 0 to 5 do
  begin
    begin
      CurrentMessage := 0;
      if (CurrentMessage = TheOldMessage) then
        Exit;
      case (Random(5)) of
        1: TypeSend('Mine is ' + IntToStr(Players[CurrentPlayer].Integers[2]) + '.');
        2: TypeSend(IntToStr(Players[CurrentPlayer].Integers[2]) + ', you?');
        3: TypeSend(IntToStr(Players[CurrentPlayer].Integers[2]));
        4: TypeSend('I have ' + IntToStr(Players[CurrentPlayer].Integers[2]) + ' Woodcutting.');
        5: TypeSend('1, jokes! ' + IntToStr(Players[CurrentPlayer].Integers[2]) + '.');
      end;
      TheOldMessage := CurrentMessage;
      WriteLn('Responded [Levels]');
      ReportVars[7] := ReportVars[7] + 1;
      Exit;
    end;
    Wait(150 + Random(50));
    begin
      CurrentMessage := 1;
      if (CurrentMessage = TheOldMessage) then
        Exit;
      case (Random(5)) of
        1: TypeSend('?');
        2: TypeSend('Im too busy');
        3: TypeSend('What?');
        4: TypeSend('...');
        5: TypeSend('   ');
      end;
      TheOldMessage := CurrentMessage;
      WriteLn('Responded [Players Nick]');
      ReportVars[7] := ReportVars[7] + 1;
      Exit;
    end;
    Wait(150 + Random(50));
    begin
      CurrentMessage := 2;
      if (CurrentMessage = TheOldMessage) then
        Exit;
      case (Random(5)) of
        1: TypeSend('Leave me alone, just how I roll ;p');
        2: TypeSend('... Go away much?');
        3: TypeSend('No I am not, beep! ;p');
        4: TypeSend('Autos arent real, theyre asIans who play too much.');
        5: TypeSend('Rofl, autos arent real, theyre virus.');
      end;
      TheOldMessage := CurrentMessage;
      WriteLn('Responded [Macro]');
      ReportVars[7] := ReportVars[7] + 1;
      Exit;
    end;
  end;
  Exit;
end;

procedure FindBrokenAxe;
var
  baxe: integer;
begin
  if not (LoggedIn) then
    Exit;
  if TimeFromMark(baxe) < 1500 then
    Exit;
  FindNormalRandoms;
  MarkTime(baxe);
  if (FindBlackChatMessage('ou do not')) then
  begin
    Writeln('Axe has been broken');
    LogOut;
    Players[CurrentPlayer].Active := False;
    NextPlayer(Players[CurrentPlayer].Active);
  end;
end;

procedure MainTree;
begin
 repeat
 if fail = 5 then
  begin
  Report;
  writeln('Cant find any willows :(');
  LogOut;
  TerminateScript;
  end;
 SetRun(true);
 FindNormalRandoms;
 if FindObjCustom(x, y, ['illow'], [willowcolor1, willowcolor2, willowcolor3], 3) then
   begin
   fail := 0;
   retries := 5;
   Mouse(x, y, 15, 15, true);
   WCRandoms;
   FindNormalRandoms;
   FindNormalRandoms;
   if FindFight then RunAway(rundirec, True, 1, 7000+random(3000));
   wait(6873+random(1127));
   end else
   fail    := fail + 1;
   retries := retries - 1;
   writeln('Willowfinder failed... trying again ' + IntToStr(retries) + ' times.');
   SendArrowWait(1,500+random(1000));
   until(InvFull);
 if InvFull then Bank;
 logs  := logs + 27;
 loads := loads + 1;
HoverSkill('Woodcutting', False);
HoverSkill('Firemaking', False);
 Report;
end;

begin
 DeclarePlayers;
 SetUp;
  repeat
  Report;
  MainTree;
  until(false);
Report;
end.