program PowerCutter;
{$i RSCS/RSCS.simba}

var
tm, tm2: Integer;

begin
  SetupRSCS;
  repeat
    tm := GetSystemTime;
    SleepCheck;
    if SearchForObject(object_P,TREE) then
      MoveMouse(object_P.X, object_P.Y);
      Wait(50);

    if RSCE_UpText(CYAN) = 'Tree..' then
      WriteLn('Found Tree');
      ClickMouse(object_P.X, object_P.Y, Mouse_Left);
      tm2 := GetSystemTime;
    repeat
      Wait(200);
    until ((RSCE_DownText(WHITE) = 'You swinq Wur steel axe at the tree...') or ((GetSystemTime - tm2) >= 8000));
    Wait(1000 + Random(200));
  until(IsKeyDown(113));
  UnSetupRSCS;
end.