srl help

Skateboard · Jul 31, 2007

I was using a script that uses srl and I keep on getting this

Code:

Line 545: [Error] (16709:1): Unknown identifier 'antiban' in script C:\DOCUME~1\MONAND~1\LOCALS~1\Temp\Temporary Directory 4 for SRL Scripts 2.zip\Essence Miner Pentti 2.1.scar

I have the latest scar and I updated it by going to " file > Download SRL " and I still get the same error. Can some one help me out please?

Zeta · Jul 31, 2007

Error 4: Unknown identifier 'AntBan' in script (or something like that)
Solution: this means that you did either did not type something write, you called a procedure that does not exist, you called for a variable that does not exist or you did no include an include, and call for it to setup at end of script (example if you needed to setup SRL in the main loop you need SetupSRL; in script and the include after program name)
so if this happens just check what either what variable you used, usually you just spelled it wrong above where you declared it. check spelling of it. check procedure name and check name of procedure you called for. Moving on..

Taken from http://www.srl-forums.com/forum/brief-lesson-fixing-t7421.html

So umm send me the script i'll try an help

Skateboard · Jul 31, 2007

Code:

{ Script by GoF (Gofez0r)

  Script chops yews at edgeville, no known bugs,
  except with doors, but people never close doors there..
  Still im working on a "doorsolver" to that place too.

  Reason of making this script?
  Soo much people have requested a working edgy
  yew cutter, and heres one now.

  This script has:
  -Very nice YewFinding.
  -Even nicer Spotswitching.
  -Good chopping, but it takes some upgrading.
  -SRL AntiRandoms and AntiBan.
  -Autocolor, or set colors if u encounter any problems.

  Instructions:
  -Open RS with low detail, brightness Very High (Max)
  -Screen resolution 32bit (usually no need to change this)
  -Set colors if necessary, but autocolors and starting colors
   should work.
  -Have axe in INVENTORY, NOT EQUIPPED.
  -Start at edgeville bank, closest booth to the yews LOGGED OUT!
  -Run script, enjoy, report bugs and post proggies!

  Cred to:
  CharmZ, used hes autoresponder with a little editing.
  Ill remove it if he doesnt like that i use it.

  Pyro, used his entfinder.

  ~GoF (Gofez0r)
}

program EdgeChopperbyGoF;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/woodcutting.scar}
{.include SRL\SRL\Extended\xBank.scar}

const
YewColr       = 4161648;//Color from yew. No need changing unless problems.
TotalToChop   = 1000;//How many logs to chop?
BankMM        = 3642296;//Bank icon color on minimap. Leave at 0 to autopick.
TreeMM        = 100376;//Tree icon color on minimap. Leave at 0 to autopick.
RoadOutSide   = 7302775; //"road" color outside the bank, grey on minimap.
AutoResp      = false;//Set to true if u want to autorespond (may lagg)
RGBoxes       = False;//Set to false if solvebox laggs for u.

Var
MiniBank,MiniTree,TreeXP,LogTT,BTD: integer;
Chat,Name,ChatName: String;


procedure DeclarePlayers; //ONLY 1 PLAYER!
begin            //If u want multiplayers.. Wait for the next version.
  HowManyPlayers := 1;
  CurrentPlayer:= 0;
  NumberOfPlayers(HowManyPlayers);

     Players[0].Name     := '';
     Players[0].Pass     := '';
     Players[0].Nick     := '';
     Players[0].Loc      := 'Edgy'; //No need to mess with this.
     Players[0].Active   := True;
end;


////////////////////////////////////////////////////////////
//-----Randoms--------------------------------------------//
////////////////////////////////////////////////////////////

function FQRandoms :Boolean;
var  //Seen this in 100 scripts ..So not sure if its actually stealing.
  RL: Integer;
begin
  for RL:=1 to 17 do
  begin
    case RL of
      1: CloseWindow;
      2: if FindTalk then
          Result := True;
      3: if FindDead then
          Result := True;
      4: if FindMod then
          Result := True;
      5: if FindMime then
          Result := True;
      6: if FindMaze then
          Result := True;
      7: if FindQuiz then
          Result := True;
      8: if FindDemon then
          Result := True;
      9: if FindScapeRune then
          Result := True;
      10: if FindTalk then
          Result := True;
      11: if FindLamp(LampSkill) then
          Result := True;
      12: if (FindNewBox) then
          begin
            Result := True;
            if(RGBoxes = True)then
            begin
              if(not(GambleNewBox))then
                LogOut;
            end else
              SolveBox;
          end;
      13: if FindTrade then
          Result := True;
      14: begin
            if NoGameTab then
            begin
              if ( SolveFrog ) then Exit;
              Result := True;
              Players[CurrentPlayer].loc := 'No GameTab';
              Logout;
              Exit;
            end;
          end;
      15: if SolvePinball then
          Result := True;
      16: AntiBan;
      17: if(FindFight)then
            begin
              RunAwayDirection('S');
          RunBack;
       end;
    end;
    wait(15);
  end;
end;


////////////////////////////////////////////////////////////
//-----Color----------------------------------------------//
////////////////////////////////////////////////////////////

procedure GetBankColor;
var
Bmark   :integer;

begin
 if not(BankMM=0)then
  begin
    MiniBank:=BankMM;
 end;
  if(BankMM=0)then
   begin
     MarkTime(BMark);
   repeat
    wait(30);
 until(FindSymbol(x,y,'Bank') or
      (TimeFromMark(BMark)>10000))
   MiniBank:=GetSymbolColor(x,y,'Bank');
    if(MiniBank=0) then
   begin
     writeln('Didnt find bank icon, logging out.. Try again please.');
   terminatescript;
 end;
   writeln('Bank icon color is:'+inttostr(MiniBank)+'');
  end;
end;

////////////////////////////////////////////////////////////

procedure GetTreeColor;
var
FMark   :integer;

begin
 if not(TreeMM=0)then
  begin
    MiniTree:=TreeMM;
 end;
  if(TreeMM=0)then
   begin
     MarkTime(FMark);
   repeat
    wait(30);
 until(FindSymbol(x,y,'Tree') or
      (TimeFromMark(FMark)>10000))
   MiniBank:=GetSymbolColor(x,y,'Tree');
    if(MiniTree=0) then
   begin
     Writeln('Couldnt find tree icon, try setting the color yourself and try again.');
   TerminateScript;
 end;
   Writeln('Tree Icon color:'+inttostr(MiniTree)+'');
  end;
end;

////////////////////////////////////////////////////////////

function FindHeadCol: Boolean; //By Liquid and StarBlaster100
begin                                  //Modified a bit.
  GameTab(4);
  wait(100 + random(200));
  if ( ExistsItem ( 1 )) then
    MMouse(590, 220, 2, 2)
  wait(200 + random(100));
  if(IsUptext('xe'))then
  begin
    Head := GetColor(590, 220);
    Head2 := GetColor(587, 219);
    Head3 := GetColor(588, 218);
    Result:= true;
    EquipAxe := False;
  end;
  If(Result  = False)then
  begin
    GameTab(5);
    wait(200 + random(200));
    MMouse(592, 297, 2, 2);
    wait(200 + random(100));
    if(IsUptext('Remove'))then
    begin
      Head := GetColor(597, 294);
      Head2 := GetColor(600, 295);
      Head3 := GetColor(599, 298);
      Result:= true;
      EquipAxe := True;
    end;
  end;
  If(Result = true) then
  begin
    writeln('Axe head colors: ' +inttostr(Head)+ ' '+inttostr(Head2)+ ' ' +inttostr(Head3));
  end else
    begin
      DisguiseSCAR('ERROR! Axe not found.');
      writeln('');
      writeln('Restart script and try again.');
      writeln('');
    end;
end;

////////////////////////////////////////////////////////////

procedure PickAllColors;
begin
  GetBankColor;
     Wait(120+random(50));
  GetTreeColor;
end;

////////////////////////////////////////////////////////////
//-----Walking--------------------------------------------//
////////////////////////////////////////////////////////////

Procedure ToTheYewzz; //Tweaking a little sometimes.
var
FSB    :integer;

Begin
FSB:=0;
if(not(LoggedIn))then
 begin
   Writeln('Not logged in.. Terminating.');
   TerminateScript;
  end;
  MakeCompass('S');
   if(FindColorSpiralTolerance(x,y,MiniTree,600,10,730,95,10))then
       begin
        Mouse(x,y-10+random(3),1,1,true);
      end;
        if(not(FindColorSpiralTolerance(x,y,MiniTree,600,10,730,95,10)))then
        begin
        repeat
         Mouse(670+random(10)-random(10),45+random(10)-random(10),1,1,true);//Clicks under the icon... As sometimes clicking
         Flag;            //Icon makes the acc walk outside the yews.
         until(FindColorSpiralTolerance(x,y,MiniTree,600,10,730,95,10))
        end;
       if(FindColorSpiralTolerance(x,y,MiniTree,560,20,720,90,10))then
      begin
   DisguiseSCAR('At yews.');
  end;
end;


////////////////////////////////////////////////////////////

function BankWalker : boolean;
begin
  if(Findsymbol(x,y,'dungeon'))then
    begin
      Mouse(x,y-15,0,5,true)
       if (FlagPresent) then
        repeat
         wait(100+random(200));
          until (not(FlagPresent))
         end
          begin
            ClickMMColorTol(RoadOutside,5)
            if (FlagPresent) then
           repeat
             wait(100+random(200));
            until (not(FlagPresent))
            end
            if(FindMMColorTol(x,y,MiniBank,10))then
            begin
            ClickMMColorTol(MiniBank,5)
            if (FlagPresent) then
           repeat
          wait(100+random(200));
        until (not(FlagPresent))
      end
   DisguiseSCAR('Walked to bank.');
end;

////////////////////////////////////////////////////////////

procedure CrappyBankOpen;
var  //Same one i used in my flaxer.
Tries     :integer;
BankTol   :integer;

begin
  if not (BankScreen) then
    repeat
     if(FindObj(x,y,'ank',607067,10))then
      Mouse(x,y,4,4,false)
       else if(FindObj(x,y,'ank',608095,10))then
       Mouse(x,y,4,4,false)
       Wait(250);
       if(ClickOption('uickly', 1))then
      begin
      Tries := Tries+1;
     Flag;
   end;
  until(BankScreen) or (Tries=10);
  if(BankScreen)then
    begin
     if(existsitem(2))then
      begin
       Deposit2(2+random(10),0);
       Wait(345+random(235));
    end;
  end;
end;

////////////////////////////////////////////////////////////


{procedure BankAllYews;
var
Tryes   :integer;
BDN     :boolean;

begin
BDN:=False;
 Tryes:=0;    Didnt like this one :P
   repeat
   Tryes:=Tryes+1;
     OpenBank3;
      until(BankScreen)or(Tryes=10);
       if(Tryes=10)then
         begin
       Writeln('Cannot find bank. Terminating.');
         LogOut;
          TerminateScript;
        end;
        if(BankScreen)then
       begin
         Wait(1000+random(2000));
          FixBank;
       Deposit(2,28,2);
     BDN:=True;
    end;
      if(BDN)then
     begin
     CloseWindow;
    BTD:= BTD + 1;
   LogTt:=LogTt+28;
 end;
end;
}
////////////////////////////////////////////////////////////
//-----Chopping-------------------------------------------//
////////////////////////////////////////////////////////////


Function PyroEnt:boolean; // By Pyro.. I think i edited something in this.. :)
begin
  if(not(findcolorspiraltolerance(x,y,YewColr,msx1,msy1,msx2,msy2,5)))then exit;
   if(isuptext('hop'))or(isuptext('Yew'))or(isuptext('Down'))then
    begin
     if(FindColorTolerance(x,y,515029,1,1,180,45,20))or
       (FindColorSpiralTolerance(x,y,65535,1,1,200,40,20)) then
       begin
       Result:=True
       Writeln('Ent found');
        end;
       end else
       begin
     FindObj(x,y,'Yew',YewColr,5)
   PyroEnt;
 end;
end;


{-----Autoresponder from CharmZ willow raper-----}
       {Edited it a bit. BUT CRED TO HIM!}

Function GetChatMessage(Text: String): Boolean;
Var
TX, TY: Integer;
Chat: String;
Begin

  If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
   Begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));

     If(Pos(Text, Chat) <> 0)then
      Begin
       Result:= True;
      End

   End

End;

Function GetChatName(Name: String): Boolean;
Var
I: Integer;
Begin

  ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));

  I:= Pos(':', ChatName);
  If(I <> 0)then
   Begin
     Delete(ChatName, I, I);
   End

  If(Pos(Name, ChatName) <> 0)then
   Begin
     Result:= True;
   End

End;

Function AutoRespond: Boolean;
Var
Responce, Lvl: String;
RandomReply: Integer;
Begin

if(AutoResp=False)then
 begin
 Exit;
end;

if(AutoResp)then
begin

  OldLine:= TheLine;
  TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
  NewLine:= TheLine;

 If(GetChatName(Players[CurrentPlayer].Name))then
  Begin
   Exit;
  End

 If(OldLine=NewLine)then
  Begin
   Exit;
  End

  If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   Begin
     WriteLn(''+ChatName+': '+Chat);
     RandomReply:= Random(10)+1;
    Case (RandomReply) of
      0 : Responce:= ('?');
      1 : Responce:= ('what');
      2 : Responce:= ('yes');
      3 : Responce:= ('no');
      4 : Responce:= ('what do you want');
      5 : Responce:= ('me?');
      6 : Responce:= ('Yah?');
      7 : Responce:= ('who?');
      8 : Responce:= ('wha?');
      9 : Responce:= ('?');
      10 : Responce:= ('???');
    End
   TypeSend(Responce+' '+Name);
   Result:= True;
  End

  If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(24)+1;
    Case (RandomReply) of
     0 : Responce:= ('heh');
     1 : Responce:= ('loll');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ehe');
     6 : Responce:= ('lmao');
     7 : Responce:= ('lmfao');
     8 : Responce:= ('rofls');
     9 : Responce:= ('fun');
     10 : Responce:= ('nice');
     11 : Responce:= ('lolz');
     12 : Responce:= ('yep');
     13 : Responce:= ('hola');
     14 : Responce:= ('wow');
     15 : Responce:= ('i bet');
     16 : Responce:= ('rofl');
     17 : Responce:= ('ghehehghehighhe');
     18 : Responce:= ('cool');
     19 : Responce:= ('...');
     20 : Responce:= ('???');
     21 : Responce:= ('wow');
     22 : Responce:= ('grr..');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    End
   TypeSend(Responce);
   Result:= True;
  End


  If(GetChatMessage('wc')) or (GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Lvl:= IntToStr(GetSkillLevel('woodcutting'));
    RandomReply:= Random(5)+1;
     Case (RandomReply) of
      0 : Responce:= ('i''m lvl '+Lvl+' woodcuttin');
      1 : Responce:= ('level '+Lvl+' wc');
      2 : Responce:= ('lvl '+Lvl+' woodcut!');
      3 : Responce:= (+Lvl);
      4 : Responce:= ('i''m level '+lvl);
      5 : Responce:= (+Lvl+' here :P');
     End
    TypeSend(Responce);
    Result:= True;
   End

  If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= Random(9)+1;
    Case RandomReply of
     0 : Responce:= ('not much');
     1 : Responce:= ('nothing');
     2 : Responce:= ('bored');
     3 : Responce:= ('aye?');
     4 : Responce:= ('emmm..nothin');
     5 : Responce:= ('nope');
     6 : Responce:= ('booo');
     7 : Responce:= ('no ty');
     8 : Responce:= ('what');
     9 : Responce:= ('....');
     10 : Responce:= ('nothin');
    End;
   TypeSend(Responce);
   Result:= True;
  End;

  If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= random(9)+1;
    Case RandomReply of
      0 : Responce:= ('hello');
      1 : Responce:= ('wassup');
      2 : Responce:= ('yo');
      3 : Responce:= ('whats up everyone');
      4 : Responce:= ('whats up');
      5 : Responce:= ('welcome');
      6 : Responce:= ('hello hello');
      7 : Responce:= ('wat up');
      8 : Responce:= ('yo');
      9 : Responce:= ('sup?');
      10 : Responce:= ('whats up');
    End
   TypeSend(Responce);
   Result:= True;
  End
 End;
End;

////////////////////////////////////////////////////////////


Function ChopYewsDown(var Mx, My : integer; tol : integer) : boolean;
var //Based on some random yewchopping procedure i found on internet.. Cred to the creator,
                //If he notices parts in this as his/her work. Just used it as a base.
YSX,YSY   :integer;
A,Ctol      :integer;
Chopping  :boolean;

begin
   if(FindObj(x,y,'ew',YewColr,Tol))then
        begin
          wait(100+random(100))
              if(PyroEnt)then
              begin
                wait(4000+random(2000))
                ChopYewsDown(x,y,1);
              end else mouse(x,y,0,0,true)
              Mx:= x;
              My:= y;
              Result:= true;
           end;
      if not Result then
      repeat
          wait(500+random(500))
          CTol:=CTol + 1;
           if(FindObj(x,y,'Yew',YewColr,CTol))then
           begin
              wait(100+random(100))
              if(PyroEnt)then
              begin
                wait(4000+random(2000))
                ChopYewsDown(x,y,1);
              end else mouse(x,y,0,0,true)
                Mx:= x;
                My:= y;
                result:= true;
             end;
           until Result or (CTol = tol * 5)
           case Random(10) of
             1 : FQRandoms;
             end;
           case Random(15) of
             1 : AutoRespond;
             end;
      if(Result)Then Begin
      Chopping:= true;
      Repeat
      If(InvFull)then Exit;
        Wait(500+random(250))
        Mmouse(Random(MSX2), Random(MSY2), 10, 10);
           Until(Not(flag));
           wait(1000)
           MarkTime(Mark);
           Repeat
           If(InvFull)then Exit;
           If(Not (Loggedin) or (WeAreDead)) Then break;
             FindNormalRandoms;
              WWait(1000+Random(1000));
               FindNormalRandoms;
               FQRandoms;
              Findtalk;
              A:= A + 1;
              if(A mod 4 = 0)and (PyroEnt) then
              begin
                Mouse(647,82,2,2,true);
                wait(800 + random(400));
                Mouse(647,82,2,2,true);
                wait(3000 + random(2000));
              end;
       If (Not (Loggedin) or (TimeFromMark(Mark) > 30000)) Then break;
       Until(A = 10)or(Not(FindColorSpiralTolerance(x,y,YewColr,msx1,msy1,msx2,msy2,3)))
       End;
   If(Not(A = 10)) and (Chopping) Then
   Begin
        MakeCompass('S')
        HighestAngle;
        FindNormalRandoms;
        If(FindColorSpiralTolerance(YSX,YSY,MiniTree,580,110,720,162,3))or
          (FindColorSpiralTolerance(YSX,YSY,MiniTree,580,5,725,65,3))then
     Mouse(YSX-5,YSY+5,0,0,true)
    Flag;
   End;
End;


////////////////////////////////////////////////////////////
//-----Misc.----------------------------------------------//
////////////////////////////////////////////////////////////


procedure AniMotion;
begin
ClearDebug;Writeln('');Writeln('#');Writeln('#');Writeln('#');Writeln('');   wait(100);Writeln(' #     ');Writeln('#       ');Writeln('#       ');Writeln('#       ');Writeln(' #      ');wait(100);ClearDebug;Writeln(' ##     ');Writeln('#       ');Writeln('#       ');Writeln('#       ');Writeln(' ##      ');wait(100)ClearDebug;Writeln(' ###     ');Writeln('#       ');Writeln('#  #     ');Writeln('#       ');Writeln(' ###     ');wait(100)ClearDebug;Writeln(' ####     ');Writeln('#       ');Writeln('#  ##    ');Writeln('#       ');Writeln(' ####     ');wait(100)ClearDebug;Writeln(' #####     ');Writeln('#       ');Writeln('#  ###   ');;Writeln('#    #   ');Writeln(' ####     ');wait(100)ClearDebug;Writeln(' #####     ');Writeln('#       ');Writeln('#  ###   ');Writeln('#    #   ');Writeln(' ####     ');wait(500);ClearDebug;Writeln(' #####    ');Writeln('#      #  ');Writeln('#  ### #   ');Writeln('#    # #   ');Writeln(' ####     ');wait(100);ClearDebug;Writeln(' #####  #  ');Writeln('#      #    ');Writeln('#  ### #    ');Writeln('#    # #    ');Writeln(' ####   #   ');wait(100)ClearDebug;Writeln(' #####  ##   ');Writeln('#      #      ');Writeln('#  ### #     ');Writeln('#    # #     ');Writeln(' ####   ##    ');wait(100)ClearDebug;Writeln(' #####  ###  ');Writeln('#      #     ');Writeln('#  ### #      ');Writeln('#    # #     ');Writeln(' ####   ###  ');wait(100)ClearDebug;Writeln(' #####  ###    ');Writeln('#      #   #    ');Writeln('#  ### #   #    ');Writeln('#    # #   #    ');Writeln(' ####   ###     ');wait(300);ClearDebug;Writeln(' #####  ###  #   ');Writeln('#      #   # #    ');Writeln('#  ### #   # #   ');Writeln('#    # #   # #   ');Writeln(' ####   ###  #   ');wait(100)ClearDebug;Writeln(' #####  ###  ##  ');Writeln('#      #   # #   ');Writeln('#  ### #   # ##  ');Writeln('#    # #   # #   ');Writeln(' ####   ###  #   ');Wait(100)ClearDebug;Writeln(' #####  ###  ###   ');Writeln('#      #   # #      ');Writeln('#  ### #   # ###    ');Writeln('#    # #   # #     ');Writeln(' ####   ###  #    ');wait(100);ClearDebug;Writeln(' #####  ###  ####  ');Writeln('#      #   # #     ');Writeln('#  ### #   # ####   ');Writeln('#    # #   # #      ');Writeln(' ####   ###  #      ');Writeln('');wait(1200);ClearDebug;Writeln('####  ###  ####  #### #### #   # ##### ####   ');Writeln('#   # #  # #    #     #    ##  #   #  #       ');Writeln('####  ###  ###   ###  ###  # # #   #   ###     ');Writeln('#     # #  #        # #    #  ##   #      #   ');Writeln('#     #  # #### ####  #### #   #   #  ####     ');Writeln('');wait(1200);ClearDebug;Writeln('#### ###    ####  #   #  ');Writeln('#    #  #  #       # #   ');Writeln('###  #   # #  ###   #     ');Writeln('#    #  #  #    #   #     ');Writeln('#### ##     ####    #     ');Writeln('');wait(1200);ClearDebug;Writeln('#   # #### #     #  ###  #      ##   #### ##### #### ###  ');Writeln(' # #  #    #  #  #  #  # #     #  # #       #   #    #  # ');Writeln('  #   ###  # # # #  ###  #     ####  ###    #   ###  ###  ');Writeln('  #   #    ##   ##  #  # #     #  #     #   #   #    # #  ');Writeln('  #   #### #     #  ###  ##### #  # ####    #   #### #  # ');wait(1300)
end; {^^Dont mess with that... I wanted to make it smaller :P Used to be too.. Huge.}


procedure LogsToEXP;
var
XPFT  :integer;

begin
  XPFT:=175;
   TreeXP:=LogTT*XPFT;
end;

Procedure ProggyRprt;
begin
  ClearDebug;
   Writeln('    .GOFs YEWBLASTER PROGRESSREPORT.');
   Wait(100);
   Writeln('   ..GOFs YEWBLASTER PROGRESSREPORT..');
   Wait(100);
   Writeln('  ..:GOFs YEWBLASTER PROGRESSREPORT:..');
   Wait(100);
   Writeln(' ..::GOFs YEWBLASTER PROGRESSREPORT::..');
   Wait(100);
   Writeln('..:::GOFs YEWBLASTER PROGRESSREPORT:::...');
   Wait(300+random(200));
  ClearDebug;
  Writeln('*********************************************');
   Writeln('Logs cut:'+IntToStr(LogTT));;
   Writeln('Times banked:'+IntToStr(BTD));;
  LogsToEXP;
   Writeln('Gained about'+IntToStr(TreeXP)+'Exp.');
   Writeln('Script has been running:'+(TimeRunning));
  Writeln('*********************************************');
end;



////////////////////////////////////////////////////////////
//-----Loop-----------------------------------------------//
////////////////////////////////////////////////////////////

Begin
wait(10);
AniMotion;
 Wait(100+random(200));
 ClearDebug;
   SetupSRL;
   DeclarePlayers;
    ActivateClient;
      Wait(500);
    SetChat('On', 1);
    SetChat('Off',  2);
    SetChat('Off',  3);
      LoginPlayer;
       PickAllColors;
         HighestAngle;
     if(not(FindHeadCol))then
      begin
        Logout;
        DisguiseSCAR('Axe NOT Found!');
       Terminatescript;
      end;
       repeat
        SetRun(true);
          ToTheYewzz;
          Flag;
           SetRun(False);
           MakeCompass('S');
           repeat
         ChopYewsDown(x,y,1);
         FindHead;
        Until(InvFull);
       SetRun(True);
       PerfectNorth;
     BankWalker;
     CrappyBankOpen;
   ProggyRprt;
  Until(LogTT>TotalToChop)
    if(LogTT>TotalToChop)then
   begin
  ProggyRprt;
 DisguiseSCAR('FINISHED!');
 end;
End.

Town · Jul 31, 2007

Use Scar 2.03 from www.freddy1990.com and SRL 3.6b from the PowerSkills download which is stickied in the Runescape Scripts forum for that script.

Zeta · Jul 31, 2007

I'll should stop trying to help people I don't know anything lol.. just tryin to help you town you're the only one who helps in this section <.<

the scar noob · Jul 31, 2007

Zeta said:
I'll should stop trying to help people I don't know anything lol.. just tryin to help you town you're the only one who helps in this section <.<

NO! it's good you're trying to help ppl, really it's really nice and you even learn from it

srl help

More options

Skateboard

Forum Addict

Zeta

Guru

Skateboard

Forum Addict

Town

Grand Master

Zeta

Guru

the scar noob

Forum Addict