{.Script Info:
# ScriptName  = Auto Edgy Yewz
# Author      = ->[Nauman]<-
# Description = Chops yewz then banks then in Edgeville bank
# Version     = 0.1
#Instructions = 1.Start in edgeville bank
                2.Only axes you can use are Rune and addy. Dont wield
                3.Specify client window
                4.logged in or logged out
                5.Post Proggies
                6.Enjoy!!!


}
{               /-------------\                  /---------
               /               \                /          \
              /                \               /            \
              |        |       |              |       |      |
              |        |       |              |       |      |
              |        |       |              |       |      |
              |________|       |              |______ |      |
                       /       /                   /       /
                      /       /                   /       /
                     /       /                   /       /    SCRIPT
                    /       /    UPER           /       /_____
                   /       /                  |/      |/      |
                  /       /                   |       |       |
                 /       /                    |       |       |
                /       /                     |       |       |
               /       /________              \                /
              |       |        |               \              /
              |       |        |                \------------/
              |       |        |
              |       |        |
               \               /
                \             /
                 \           /
                  \---------/ }



program AutoYewz;
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

var
x,y,Rune,Addy,Loads,LoadsB,LogsChopped,DeathsAvoided:integer;
Axe,position:string;


procedure loadvars;
 begin

Rune := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
      '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
      'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03'); //rune
Addy := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
      '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
      '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8'); //addy

end;

const
Direction='W'; // direction to run if in case of fight
Mask='Norton-Anti-Virus'; //what you want scar to desguise it's self as?
LoadsD=23;//how many loads
VersionNumber='0.1';//leave it alone!

Procedure DeclarePlayers;
 Begin
   Disguise(Mask);
   getapplication.MINIMIZE;

    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;


  Players[0].Name        :='';//Your Username.
  Players[0].Pass        :='';  // Your Password.
  Players[0].Nick        :='';   // 3-4 letters from your name.
  Players[0].Active      := True; //True = Use player, False = Don't use.
  Players[0].pin         :=0000; //pin in here if you dont have dont touch!

   writeln(inttostr(HowManyPlayers)+' Players');
end;

procedure sig;
begin;
 cleardebug;
 writeln('  ########          #########          Super        ')
 wait(750)
 writeln(' #                  #                  Script       ')
 writeln(' #                  #                                ')
 wait(750)
 writeln(' # # # # #            # # # #         B               ')
 wait(750)
 writeln('          #                  #        Y               ')
 wait(750)
 writeln('          #                  #        ->[Nauman]<-   ')
 wait(750)
 writeln('##### ###            ########                        ')
 wait(1000)
end;
Function FindFastRandoms: Boolean; //By Wt-Fakawi
var
  i: Integer;
begin
  for i:=1 to 11 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
     9: begin
           if FindFight then
           begin
             RunTo(Direction,False);
             Wait(5000 +random(3000));
             Runback;
             DeathsAvoided:=DeathsAvoided+1;
           end;
         end;
    10: If FindTalk Then
         Result := True;

    11: If ClickToContinue Then
          Result := True;
    end;

  end;
end;


Procedure AntiBannage;
    begin
   Case Random (30) of
     0:Typesend('....')
     5:AlmostLogout;
     9:HoverSkill ('woodcutting',false);
     19:BoredHuman;
     25:RandomMovement;
     30:RandomRClick;

 end;
end;



Procedure WaitWhileCutting;
  begin
    repeat
   FindFastRandoms;
   FindEnt(x,y,true)
   AntiBannage
  until(not isuptext('Chop'))
end;
 
Procedure WalktoYewz;
    Begin;
     If(not(LoggedIn))then LoginPlayer;
      HighestAngle;
       Makecompass('N')
      SetRun(True)
        Gametab(4);
       mouse(647, 137,0+Random(1),1-Random(1),true)
       if(flagpresent)then
       Flag;
       if findsymbol(x,y,'dungeon') then
         mouse(x,y,0+Random(1*3),4-Random(2*2),true)
          if(flagpresent)then
       Flag;
   if findsymbol(x,y,'Tree') then
      begin;
   mouse(x+10,y-3,3,3,true)
   wait(8000+Random(2000))
  end;
end;




Procedure ChopDown;
  begin;
      if not(loggedin) then Exit;
      SetRun(false);
       gametab(4);
      HighestAngle;
       Begin
     repeat
      if FindObj(x,y,'Yew',1855816,5) then
       FindFastRandoms;
        FindEnt(x,y,true);
        if isuptext('Chop') then
        mouse(x,y,0+Random(1),3+Random(2),true);
         WaitWhileCutting;
         until(invfull)
         logschopped:=logschopped+27;
       End;
   end;


procedure Bank;
 begin;
   if not(loggedin) then Exit;
    if(invcount=28) then
  If findsymbol(x,y,'dungeon')then
   Makecompass('N');
    Mouse(x,y,0+Random(3),1-Random(1),true);
 if (FlagPresent) then Flag;
   SetRun(True);
   Mouse(656, 40,1+Random(2),0+Random(1),true);
 if findsymbol(x,y,'Bank')then
  Mouse(x,y,0+Random(3),1-Random(1),true);
   OpenBankFast('eb')
     if(PinScreen) then
       InPin(IntToStr(Players[CurrentPlayer].Pin));
    if (bankScreen) then
   Deposit(2,28,2)
  wait(300+Random(200))
 CloseBank
   LoadsB:=LoadsB+1;
end;

procedure Proggie;
var
  PActive: string;
begin
   cleardebug;
  SRLRandomsReport;
  If Players[CurrentPlayer].Active then PActive:='True' else PActive:='False';
  Writeln('//=============== Auto Yewz ================\\');
  Writeln('\\======== -'+VersionNumber+'- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for '+ TimeRunning);
  Writeln('|      Chopped '+ IntToStr(LogsChopped)+(' logs.'));
  Writeln('|      Banked '+ IntToStr(LoadsB)+(' times.'));
  writeln('|      DeathsAvoided '+IntToStr(Deathsavoided)+(' times.'));
  Writeln('\==========================================/');
end;

begin
  SetupSRL
   Sig;
  LoadVars;
    DeclarePlayers;
      proggie;
    repeat
    walktoyewz;
    proggie;

  chopdown;
   proggie;
 Bank;
proggie;
 until(LoadsD=Loads)
end.