SRL Archive - First Scripts

OUTDATED. Will created new 1 on new thread.

Nice script. Will test soon.

I tried your script and it is very nice. However, it did not pickup the shaking tree random. It continued to click on it even though it was still shaking. If you get that straightened out it will be very nice.

the same as what kb said. it was chopping one tree, ent popped up and it clicked anyway. i didnt have any other randoms, but seemed nice. banked just fine too.

[Runtime Error] : Out Of Range in line 17 in script C:\Documents and Settings\Compaq_Administrator\Local Settings\Temp\Willow Cutter and Banker.scar

I ALWAYS keep getting this error, no matter what script I use.
You should know how to fix this, so please help me.
Heres my inputs.

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

Players[0].Name := 'glegend808'; //UserName
Players[0].Pass := '**********'; //Password
Players[0].Nick := 'ege'; //2-4 letters of username
Players[0].Integers[1] := 10; //Number of loads before switching
Players[0].Booleans[1] := True; //Is the axe wielded?
Players[0].Active := True; //Active

Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

So yeah much help appreciated. :)

good script

thanks
will test it soon

Dude!! This Script Rox!!!! 0mg!! pwnage!!! :P!!! Just Improve The Ent Thingy!! plzz!!! xxx!!!

Does anybody know what to put for the identifier to be known? Mine says unknown identifyer for line 17

kewl works fine (most of the time ;)

From: adarsh_wifi
Dude!! This Script Rox!!!! 0mg!! pwnage!!! :P!!! Just Improve The Ent Thingy!! plzz!!! xxx!!!

Enthusiasm much? :p

From: KingdofSpades
Does anybody know what to put for the identifier to be known? Mine says unknown identifyer for line 17

Er…try either removing the line or putting whatever the unknown identifier in as a variable.

not bad for ur first script

idunt think mine will be as good as urs wen i make my first

looks good, ill test it soon and say if i see anything wrong with it (y)

From: krnpride
not bad for ur first script

idunt think mine will be as good as urs wen i make my first

Well, what are you waiting for?

From: im dan
looks good, ill test it soon and say if i see anything wrong with it (y)

What's wrong with it, what bugs there are, or why you can't get it to work? :p

From: SuperRitsu


I ALWAYS keep getting this error, no matter what script I use.
You should know how to fix this, so please help me.
Heres my inputs.

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

Players[0].Name := 'glegend808'; //UserName
Players[0].Pass := '**********'; //Password
Players[0].Nick := 'ege'; //2-4 letters of username
Players[0].Integers[1] := 10; //Number of loads before switching
Players[0].Booleans[1] := True; //Is the axe wielded?
Players[0].Active := True; //Active

Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

So yeah much help appreciated. :)

isn't it because your telling it that there are 0 players? When you have 1 player active. So change the 0 I highlighted to 1 and try.

That would seem better. Didn't even see that… :p

That is pretty good it just needs a few adjustments, It did one load for me and banked it but then walked around then logged out.

Problems:

Keeps clicking ents.
Clicks trees too slowly.
Only banks once.

If you fixed these it would be very good.

Maybe you just didn't set it up correctly? It worked perfectly for me.

After one load for me it just logged out some 1 plz help i want a woodcutter and banker that doesnt log out. thanks. i am new

very nice man hey you think the autobanking would work on mining or what you think dude

Posted the update enjoy!

I fixed the glitch in the new ent detector. Should work great now.

Nice script. worked pretty good :) but banking had some trouble.

cool

very good auto i tested and worked fine for me a++ from me peace out!

nice script, i am also planing on updating my willow cutter banker which was very good a year ago ;)

Ent thing needs improv, but it's nice.

To slow finding tree and bank so fix that

yeah i had trouble banking also. wouldent go to bank at all.

Um it should make you go to the bank with no problems. Ive done it tons of times.

i logged in and then it logged me out lol

We made it to the willows. Trying to cut.
We have reached full capacity, heading for the bank.
We have reached full capacity, heading for the bank.
We made it to the bank. Trying to bank.
Deposited a full load of willows, now going to chop more
NextPlayer

lol that wasnt that great try to improve bank finding then getting back to willows

that happened to me also. weird. but it works sometimes

very nice, works perfectly except for the ents; other than that its a masterpeice

THIS IS TOATAL SWEET BBBBBBAAAAAAAANKEEEERRRR!!!
Who ever reads this trust me downlaod the script this is the first one I have come by thast banks, I realy recomend downlaoding this.>One question chicken(creater of the script) do you like C++.

not to bad of a script…i really like the autoresponder you have in there…did you make that yourself?…if you made it yourself do i have permission to use it my one of my scripts and credit you for it?

I give Hypersecret credit for the autoresponce script.

From: zasz
Hypersecret i do give you permission to use my autoresponder. As long as you give me credit.

are you serious?!?! you dont think i would notice a piece of my own work when i see it?? that is MY autoresponder you dipshit and you did NOT credit me for it and then you try and pass it off as your own, you are PATHETIC!!! lol

function AutoResponce:Boolean;
var Responce, Lvl: String;
    Reply: Integer;
begin
  if AutoRespond then
  if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
  if (InChat(Players[CurrentPlayer].Name)) then
  begin
    Reply := Random(10);
    case Reply of
      0: Responce := ('yea');
      1: Responce := ('wat');
      2: Responce := ('what');
      3: Responce := ('yeah');
      4: Responce := ('ya');
      5: Responce := ('??');
      6: Responce := ('yep that''s me');
      7: Responce := ('yes');
      8: Responce := ('hhmmm?');
      9: Responce := ('yep');
    end;
    TypeSend(Responce);
    Result := True;
    Responds := Responds + 1;
  end;
  
  if (InChatMulti('lol', 'lawl', 'haha')) or
     (InChatMulti('haha', 'rofl', 'lmfao')) or
     (InChatMulti('lmoa', 'funny', 'hehe')) then
  begin
    Reply := Random(10);
    case Reply of
      0: Responce := ('lol');
      1: Responce := ('rofl');
      2: Responce := ('lawl');
      3: Responce := ('lmao');
      4: Responce := ('lmfao');
      5: Responce := ('haha');
      6: Responce := ('haha');
      7: Responce := ('hehe');
      8: Responce := ('geez lol');
      9: Responce := ('roflmfao');
    end;
    TypeSend(Responce);
    Result := True;
    Responds := Responds + 1;
  end;
  
  if (InChatMulti('str', 'strength', 'str')) then
  begin
    Lvl := IntToStr(GetSkillLevel('strength'));
    Reply:= Random(5);
    case Reply of
      0, 2, 4: Responce := (Lvl);
      1: Responce := ('My str lvl is '+ Lvl);
      3: Responce := (Lvl +' is my str lvl');
    end;
    TypeSend(Responce);
    Result := True;
    Responds := Responds + 1;
  end;
  
  if (InChatMulti('att', 'attack', 'att')) then
  begin
    Lvl := IntToStr(GetSkillLevel('attack'));
    Reply:= Random(5);
    case Reply of
      0, 2, 4: Responce := (Lvl);
      1: Responce := ('My att lvl is '+ Lvl);
      3: Responce := (Lvl +' is my att lvl');
    end;
    TypeSend(Responce);
    Responds := Responds + 1;
    Result := True;
  end;
  Result := False;
end;

that is the exact copy from my autofighter….looks pretty damn familiar doesnt it??…geez you edited out the att and just put woodcut in there geez…

ROFL…Can I get an OWNED ?

http://www.villavu.com/forum/showthread.php?t=16284?p=262520#post262520

sorry didnt work for me do i think it was my problem with slr….im sure it works good!

pretty nice, thanks very much ^^

hypersecret sorry i kinda thought i saw it somewhere. Ill edit and give you credit in the 2.0 here.

you mean…."yea i thought i COPIED and PASTED it from somewhere" not "saw" it somewhere, you cant see something that long and copy it perfectly…

Dude i just got a dictionary and looked up synonyms and stuff, but anyway dude i gave you credit like 3 times, 1 in script and twice here on the forums.

Use FindObj its better.

U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
U Copied Stuff From My Script !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! O M G!!!
You copied like half of my script and no credits and i warned in my script to ask me before copieing anything!!!

I Got So Much Proof, IN a sec i will post my script and urs, and u ppl will compare it! I THINK THAT U SHOULD GET BANNED!

My stuff, my procedures, my numbers, my texts??!?!?!??!?!?!?!

YOUR SCRIPT, YOU COPIER.

program autowc;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}

Var x, y, H, M, S, WillowLog, responces, Willow, TotalWillows, Banked,
  EntsAvioded : Integer;
  
 Const
willowtree= 2658424;
RockColor =  4406840;

Procedure DeclarePlayers;
begin
  SRLID := '';
  SRLPassword := '';
  SRLPlayerForm(True, [], [], [], []);
  Writeln(IntToStr(HowManyPlayers)+' Player(s);');
  CheckUserNicks;
end;

procedure sig;
begin
writeln('The following is a... ');
wait(500);
writeln('ZaszMedia Production');
wait(500);
writeln('Its time to Zasz Up your Media!');
wait(500);
end;

procedure Login;
begin
 if (not(LoggedIn)) then
 LoginPlayer;
end;

procedure Report;
begin
  ClearDebug;
  Writeln('[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]');
  Writeln('| ~ Welcome to the Willow cutter/banker  ~ |');
  Writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|');
  ConvertTime(GetTimeRunning, H, M, S);
  Writeln('|You are using V2.0');
  Writeln('|Time Run: ' + IntToStr(H) + ':' + IntToStr(M) + ':' + IntToStr(S));
  Writeln('|Chopped: ' + IntToStr(WILLOWLOG) + ' Logs');
  Writeln('|Banked: ' + IntToStr(Banked) + ' Loads Of Willows');
  Writeln('|Avioded: ' + IntToStr(ENTSAVIODED) + ' Number Of Ents');
  Writeln('|Found: ' + IntToStr(Lamps) + ' Lamps');
  writeln('|Auto-respnded: ' +IntToStr(responces) + ' times');
  Writeln('--------------------------------------------')
end;

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 10 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: RC;
       10: Respond;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
  end;
end;

function AutoResponce:Boolean; //Credits go to Hypersecret
var Responce, Lvl: String;
    Reply: Integer;
begin
  if FindBlackChatMessage(Players[CurrentPlayer].Name) then Exit;
  if (InChat(Players[CurrentPlayer].Name)) then
  begin
    Reply := Random(10);
    case Reply of
      0: Responce := ('yea');
      1: Responce := ('wat');
      2: Responce := ('what');
      3: Responce := ('yeah');
      4: Responce := ('ya');
      5: Responce := ('??');
      6: Responce := ('yep that''s me');
      7: Responce := ('yes');
      8: Responce := ('hhmmm?');
      9: Responce := ('yep');
    end;
    TypeSend(Responce);
    Result := True;
    responces := responces + 1;
  end;

  if (InChatMulti('lol', 'lawl', 'haha')) or
     (InChatMulti('haha', 'rofl', 'lmfao')) or
     (InChatMulti('lmoa', 'funny', 'hehe')) then
  begin
    Reply := Random(10);
    case Reply of
      0: Responce := ('lol');
      1: Responce := ('rofl');
      2: Responce := ('lawl');
      3: Responce := ('lmao');
      4: Responce := ('lmfao');
      5: Responce := ('haha');
      6: Responce := ('haha');
      7: Responce := ('hehe');
      8: Responce := ('geez lol');
      9: Responce := ('roflmfao');
    end;
    TypeSend(Responce);
    Result := True;
    responces := responces + 1;
  end;

  if (InChatMulti('str', 'strength', 'str')) then
  begin
    Lvl := IntToStr(GetSkillLevel('strength'));
    Reply:= Random(5);
    case Reply of
      0, 2, 4: Responce := (Lvl);
      1: Responce := ('My str lvl is '+ Lvl);
      3: Responce := (Lvl +' is my str lvl');
    end;
    TypeSend(Responce);
    Result := True;
    responces := responces + 1;
  end;

  if (InChatMulti('wc', 'woodcuting', 'woodcut')) then
  begin
    Lvl := IntToStr(GetSkillLevel('woodcutting'));
    Reply:= Random(5);
    case Reply of
      0, 2, 4: Responce := (Lvl);
      1: Responce := ('My Woodcutting lvl is '+ Lvl);
      3: Responce := (Lvl +' is my Wc lvl');
    end;
    TypeSend(Responce);
    Result := True;
    responces := responces + 1;
  end;
  Result := False;
end;

procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case Random(8) of

    0: RandomRClick;
    1: HoverSkill('Woodcutting', False);
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: AlmostLogout;
    6: DoEmote(1 +Random(20));
    7: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
       end;
    end;
end;

procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  if (not (LoggedIn)) then
  Exit;
  begin
    Status('Checking For Ent')
      if
      (FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) then
    begin
      MMouse(EX, EY, 0, 0)
        if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
      begin
        Status('Ent Found');
        MouseFindFlag(645, 83, 2, 2);
        MarkTime(SafeEntWait)
        ENTSAVIODED := ENTSAVIODED + 1
          repeat
          FTWait(5)
            FindNormalRandoms;
          if not (LoggedIn) then
            NextPlayer(False);
        until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
      end;
    end;
  end;
end;

Procedure Chop;
var CuttingTime : integer;
begin
  MarkTime(CuttingTime);
  repeat
    if (not(LoggedIn)) then
    Exit;
    if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
    begin
        AutoResponce;
        EntFinder;
        MMouse(x,y,0,0);
        GetMousePos(x, y);
        Mouse(x,y,0,0,true);
        Wait(9000 +Random(3000));
        AutoResponce;
        EntFinder;
        //randomtalk; //this is optional if you want to add some random talk!
      end;
  until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));
  Writeln('We have reached full capacity, heading for the bank.');
end;

procedure gotowillows;
begin
if (not(LoggedIn)) then
    Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', willowtree, 10))Then
WriteLn('Found Willows, Begging To Cut Them.');
End;
End;
End;
End;

procedure BankWalk;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.4;
    Makecompass('N');
    HighestAngle;
    if (not(FindSymbol(x, y, 'bank'))) then
    begin
      NextPlayer(False);
    end;
  begin
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      Flag;
      Writeln('We made it to the bank. Trying to bank.');
    end;
  end;
end;

procedure BankIt;
var Tries : Integer;
begin
  if (not(LoggedIn)) then
  Exit;
  repeat
    HighestAngle;
    OpenBankQuiet('db');
    Flag;
    Wait(500 + random(500));
    FixBank;
    Tries := Tries + 1;
    if (Tries = 25) then
    begin
      NextPlayer(False);
      Exit;
    end;
  until (BankScreen)
  begin
    if (BankScreen) then
    begin
      if (Players[CurrentPlayer].Booleans[1] = True) then
      begin
          deposit(2,28,2);
          CloseBank;
          RunTo('S', True);
        end;
      begin
        if (Players[CurrentPlayer].Booleans[1] = False) then
        begin
            Deposit(2, 28, 2);
            CloseBank;
            MakeCompass('N');
          end;
        end;
      begin
        TotalWillows:= TotalWillows + Willow;
        Banked := Banked + 1
        WILLOWLOG := WILLOWLOG + 28
        Writeln('Deposited a full load of willows, now going to chop more');
      end;
    end;
  end;
end;



begin
  cleardebug;
  SetupSRL;
  Disguise('iTunes');
  sig;
  SetupWoodcutting;
  ActivateClient;
  DeclarePlayers;
  if (not(LoggedIn)) then Login;
  repeat
    gotowillows;
    repeat
      FindRandoms;
      Chop;
      until (InvFull) or (not LoggedIn)
    AntiBan;
    BankWalk;
    BankIt;
    TotalWillows:= 0;
    Report;
    until Players[CurrentPlayer].Integers[1] = Banked
  NextPlayer(True);
end.

My Script That YOU COPIED STUFF FROM!!!

Program ULTRAWillowCutter;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Woodcutting.Scar}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
{ C  R  E  D  I  T  S.
YOHOJO AND BOBBOHOBBO FOR THEIR ENT FINDER.
FREDDY1990 FOR SCAR :).
U L T R A FOR HIS NICE SCRIPT :D.
  C  R  E  D  I  T  S.}
//////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
// I M P O R T A N T.
// DO NOT I REPEAT, DO NOT TAKE ANYTHING FROM THIS SCRIPT WITHOUT MY PERMISSION
// IF YOU PEOPLE SEE SOMONE COPY ANYTHING FROM MY SCRIPT WITHOUT MY PERMISSION
// PLEASE DO REPORT TO ME THIS INSTANT, SO I COULD TELL SOMONE LIKE A SRL MOD
// ABOUT WHAT AND HOW HAPPEND, AND THE PERSON WHO COPIED ME, WILL BE BANNED.
// I M P O R T A N T.
////////////////////////////////////////////////////////////////////////////////
{///////////////////////////////////////////////////////////////////////////////
{ CATEGORY: WOODCUTTING.
{ AUTHOR: U L T R A.
{ PURPOSE: LEVELS UP WOODCUTTING.
{ DESCRIPTION: CUTS WILLOWS THEN BANKS THEM.
{ PLACE: DRAYNOR VILLAGE.
{ ANTIBAN: TRUE.
{ ANTIRANDOMS: TRUE.
{ SPECIAL FEATURES: ONLY USES ONE PLAYER FOR NOW.
///////////////////////////////////////////////////////////////////////////////}
////////////////////////////////////////////////////////////////////////////////
//FeAtUrEs
//1.Anti - Randoms.
//2.Awsome Anti - Ban.
//3.Loop.
//4.Map Walking.
//5.Willow Finding And Cutting.
//6.Item Banking.
//7.Ent Finder - BY YOHOJO MODDED BY BOBBOHOBBO.
//8.My First Script.
//fEaTuReS.
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//AdDeD.
//1.Much, Much More Chances Of Finding And Solving A Random!
//2.Better Ent Finding!
//3.Bug Fixes!
//aDdEd.
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
{
{ I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
1. Low detail, not laggy computer, highest brightness in runescape.
2. Start in draynor bank with your player.
3. Set up const and the declare players.
4. Drag the crosshair into the runescape window.
5. Hit run and of course enjoy my script.
{ I N S T R U C T I O N S. USE SCAR 3.12C AND THE LATEST SRL.
}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Const
ToDo = 50;//Loads To Do Before Logging Out.
TheWaitForCut = 3000;//Mili - Seconds To Wait Before Clicking Another Willow.

RockColor = 5921354;//Pick The Lightest Color Of The Rock South From Bank.
TreeColor = 1786422;//Pick The Color Of The Tree ONLY If Doesn't Find Willows.

Var
x, y: Integer;
TotalWillows: Integer;
ExpGained: Integer;
BankTrips: Integer;

Procedure DeclarePlayers;
Begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name := ''; //UserName.
Players[0].Pass := ''; //Password.
Players[0].Nick := ''; //3-4 Letters Of UserName.
Players[0].Active := True; //True If You Are Using This Player, False If Not.

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;

Procedure EntFinder; // Thanks to YoHoJo. Modded by Bobbohobbo
Var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  If (Not (LoggedIn)) Then
  Exit;
  Begin
    Status('Checking For Ent')
      If
      (FindObjCustom(EX, EY, ['Willow'], [4690821], 5)) Then
    Begin
      MMouse(EX, EY, 0, 0)
        If FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) Then
      Begin
        Status('Ent Found');
        MouseFindFlag(645, 83, 2, 2);
        MarkTime(SafeEntWait)
          Repeat
          FTWait(5)
            FindNormalRandoms;
          If Not (LoggedIn) Then
            NextPlayer(False);
        Until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
      End;
    End;
  End;
End;

Procedure WaitWhileChopping;
Begin
EntFinder;
Wait(TheWaitForCut+random(1000));
EntFinder;
End;

Function FindFastRandoms: Boolean;
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: RC;
10: Respond;
11: ClickToContinue;
End;
Wait(1);
End;
End;

Procedure FindRandoms;
Begin
EntFinder;
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
FindEnt(x, y, true);
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunBack;
End;
End;

Procedure RandomlyChosenSkill;
Begin
  Case Random(11) Of

0: HoverSkill('Attack', False);
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('Range', False);
4: HoverSkill('Prayer', False);
5: HoverSkill('Magic', False);
6: HoverSkill('Runecraft', False);
7: HoverSkill('Hitpoints', False);
8: HoverSkill('Agility', False);
9: HoverSkill('Herblore',  False);
10: HoverSkill('Fishing', False);

  End;
End;

Procedure ReadQuestRandom;
Begin
  Case Random(4) Of
  
0: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(582, 265, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 70, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
   
1: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(590, 279, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 70, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
   
2: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(588, 295, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 70, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
   
3: Begin
   GameTab(3);
   Wait(1000+random(5000));
   Mouse(614, 310, 2, 2, True);
   Wait(2000+random(6000));
   Mouse(458, 71, 4, 4, True);
   Wait(1000+random(1000));
   GameTab(4);
   End;
  End;
End;
   

Procedure AntiBan;
Begin
If(Not(LoggedIn))Then
Exit;
Case Random(8) Of

0: RandomMovement;
1: HoverSkill('Woodcutting', False);
1: RandomRClick;
2: BoredHuman;
3: PickUpMouse;
4: AlmostLogout;
5: Begin
GameTab(2 +Random(12));
Wait(2000 +Random(1000));
GameTab(4);
   End;
6: RandomlyChosenSkill;
7: ReadQuestRandom;
 End;
End;

Procedure Walk2Willows;
Begin
If(Not(LoggedIn))Then
Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', TreeColor, 10))Then
WriteLn('Found Willows, Begging To Cut Them.');
End;
End;
End;
End;

Procedure FindAndChop;
Var CuttingTime : integer;
Begin
MarkTime(CuttingTime);
Repeat
If(Not(LoggedIn))Then
Exit;
MakeCompass('N');
HighestAngle;
If(FindObj(x, y, 'illo', TreeColor, 10))then
Begin
MMouse(x, y, 4, 4);
If(IsUpText('illo'))Then
Begin
GetMousePos(x, y);
Mouse(x, y, 2, 2, True);
EntFinder;
FindRandoms;
WaitWhileChopping;
AntiBan;
End;
End;
Until (InvFull)Or(TimeFromMark(CuttingTime) > 600000+random(60000));
TotalWillows := TotalWillows+27;
ExpGained:=ExpGained+1822;
WriteLn('Chopped A Full Load Of Willow Logs, Heading For The Bank');
End;

Function BankIt: Boolean;
Begin
If(InvFull)Then
Begin
Repeat
SymbolAccuracy := 0.6;
If(FindSymbol(x, y,'Bank'))Then
Mouse(x, y, 3, 3, True);
FFlag(0);
MakeCompass('E');
OpenBankQuiet('feb');
Flag;
wait(500 + random(500));
FixBank;
Deposit(2,28,2);
CloseBank;
MakeCompass('N');
Until(FindSymbol(x, y,'Bank'));
If(FindSymbol(x, y,'Bank'))Then
Begin
ClearDebug;
BankTrips:=BankTrips+1;
End;
End;
End;

Procedure Report;
Begin
ClearDebug;
WriteLn('U L T R A Willow Chopper Version 3');
WriteLn('Cut Approx: ' + IntToStr(TotalWillows) + ' Willows.');
WriteLn('Earned Approx: ' + IntToStr(ExpGained) + ' Expirience.');
WriteLn('Banked: ' + IntToStr(BankTrips) + ' Loads.');
WriteLn('Thanks For Using U L T R A Willow Chopper Version 3');
End;

Procedure TheLoop;
Begin
Walk2Willows;
Begin
Repeat
EntFinder;
FindAndChop;
EntFinder;
FindFastRandoms;
FindRandoms;
Until(InvFull);
If(InvFull)Then
Begin
AntiBan;
FindRandoms;
FindFastRandoms;
BankIt;
Report;
End;
End;
End;

Begin
SetUpSRL;
DeclarePlayers;
If(Not(LoggedIn))Then
Begin
LoginPlayer;
ActivateClient;
Begin
Repeat
TheLoop;
Until(BankTrips = ToDo)Or(Not(LoggedIn));
If(BankTrips = ToDo)Or(Not(LoggedIn))Then
Exit;
Report;
TerminateScript;
End;
End;
End.

And i hear its not the first time you copy stuff from other people!!!I will post more proof later, hope you get banned for copying and giving no credits!!!!!!

Um ultra Practicly nothing is the same… The rock colors not the same, tree colors not the same, i gave my credits for the entfinder, and auto-responce. Dude, our script is nothing alike….

sasz you took procedure he made to and just copied them also…this is horrible changing colors doesnt make it yours!!!

Nothing alike? really?Then wtf all of this below???

procedure gotowillows;//This procedure is exactly like mine but you changed the name!!!
begin
if (not(LoggedIn)) then
    Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', willowtree, 10))Then//This is in my script but willowtree is TreeColor in my script!!!
WriteLn('Found Willows, Begging To Cut Them.');//This text is exactly like my in my script!!!
End;
End;
End;
End;

Procedure Chop;//This procedure is almost like mine ut you used other names of procedures!!!
var CuttingTime : integer;
begin
  MarkTime(CuttingTime);// Just like in my script!!!!!!
  repeat
    if (not(LoggedIn)) then
    Exit;
    if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
    begin
        AutoResponce;
        EntFinder;
        MMouse(x,y,0,0);
        GetMousePos(x, y);
        Mouse(x,y,0,0,true);
        Wait(9000 +Random(3000));
        AutoResponce;
        EntFinder;
        //randomtalk; //this is optional if you want to add some random talk!
      end;
  until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));//Hmm in my script i have it too?why is it same?600000?
  Writeln('We have reached full capacity, heading for the bank.');
end;

      until (InvFull) or (not LoggedIn)//I got it too in my script? hmm

TotalWillows: Integer;//Just like in my script!!!

From: zasz
It has basic randoms/auto responder.
Please post feedback.

version 1.0 release
updated the ent finder!

Don't forget to still post feedback!

Version 2.0 IS OUT! BIG update
Different way of managing players!
I made it so it reports progress!
Way different way of walking to the willows.
Still working on it. Now you can post proggies!

Credits to Hypersecret for the autoresponce.

Nice website, love the Black, but how to you create an account on the Zazmedia.com your web site:cartman: :cartman: :cartman:

Decent script. Pretty good considering it's your first one! Hope you make some more.

From: U L T R A
Nothing alike? really?Then wtf all of this below???

procedure gotowillows;//This procedure is exactly like mine but you changed the name!!!
begin
if (not(LoggedIn)) then
    Exit;
Begin
PerfectNorth;
HighestAngle;
Begin
ClickExactMMColorTol(RockColor, 5);
FFlag(0);
Begin
If(FindObj(x, y,'illo', willowtree, 10))Then//This is in my script but willowtree is TreeColor in my script!!!
WriteLn('Found Willows, Begging To Cut Them.');//This text is exactly like my in my script!!!
End;
End;
End;
End;

Procedure Chop;//This procedure is almost like mine ut you used other names of procedures!!!
var CuttingTime : integer;
begin
  MarkTime(CuttingTime);// Just like in my script!!!!!!
  repeat
    if (not(LoggedIn)) then
    Exit;
    if(FindColorSpiralTolerance(x,y,willowtree,MSX1,MSY1,MSX2,MSY2,5)) then
    begin
        AutoResponce;
        EntFinder;
        MMouse(x,y,0,0);
        GetMousePos(x, y);
        Mouse(x,y,0,0,true);
        Wait(9000 +Random(3000));
        AutoResponce;
        EntFinder;
        //randomtalk; //this is optional if you want to add some random talk!
      end;
  until (InvFull) or (TimeFromMark(CuttingTime) > 600000+random(60000));//Hmm in my script i have it too?why is it same?60000?
  Writeln('We have reached full capacity, heading for the bank.');
end;

      until (InvFull) or (not LoggedIn)//I got it too in my script? hmm

TotalWillows: Integer;//Just like in my script!!!

????What you tlaking about there are more than 1 million scripts out there. He didn't copy it he probley looked on how to make a script and it was probley posted by you.:eek: :eek: :eek: :sasmokin: :sasmokin: :sasmokin: :sasmokin:

Now people are picking on me now, yes I did give credits to hypersecret for the auto-response but I can not give you credit, Dude like dragonkitty9 said there are TONS of scripts.

Tons of scripts that have exactly like my texts, and numbers? like EXACTLY LIKE MINE???

I did not make any tutorials or anything, i didnt teach anything, this guy copied my script and he doesnt wanna say that he did! hes lieing!!!

Zasz just to let you know, from copying stuff from my script you are not going to learn anything, i worked hard to make my script, and you just copy and paste it and say its urs? you N U B L E T, get some brains!

If i didnt want to say i copied why would i take the hassle to credit Hypersecret like 3 times for his auto-response?

Because he noticed that you copied it, and when you did copy it you didn't credit him, but when he noticed it he called you an asshole or something THEN, ONLY THEN you credited to him!

nice script….

Rofl, it doesnt even work, Keeps caying Chars.ill or some shlt and keeps popping up like 20 times.

Dude the script rocks!!!!

I tried it for just over an hour. Id say it works decently. It runs into trouble with the ents, and is a little slow with banking. For a first script however, it's great. Keep it up!

Why isn't anyone posting there proggies here?

does it work good? because i dont have much experience with autoing i dont understand nothing what u must put in the script from players ore somthing. who can help me?

:confused: :confused: :confused: :confused: :confused: :confused: :confused: does it work good? because i dont have much experience with autoing i dont understand nothing what u must put in the script from players ore somthing. who can help me?

Dont download this script, the creator of it copied from me most of it. You can download mine thow, its very good and i fixed alot in it.

Nice one i does like it =D

omg can someone plz help me. i need extremely specific directions on how to set the script up right after i download it. also, an error keeps coming up saying line 16: unknown identifier 'SLRPlayerForm'… blah blah blah. anyway can someone help??

k, i dont know the first thing about this can anyone just give me some simple steps to getting this running? tyvvvvm:)

#1 This is out dated, dont plan on updating it.

Lol, might as well close this thread to prevent spam?

He doesn't work at me, look this:

Line 25: [Error] (16308:1): Unknown identifier 'NickNameBMP' in script C:\Program Files\SCAR 3.15\Scripts\From Scratch.scar
Failed when compiling

What do I wrong???

PS: Sorry for my bad English, I'm from The Netherlands

great one for first script

Did you copy this? I dont think that anyone is going to make their first script a working banking script all by themselves. That would be way to impressive.
If u made it urself, good job. If not, then give credit. If no credit, then SHAME….. lol… but seriously… SHAME

lol andy, please note you dont know how this script works. Why? cause it don't work. I shall not ever update it. But so you know I am making a new one. Please look at the date script was released!

Outdated! This wont work!

From: zasz
lol andy, please note you dont know how this script works.

Oh, I'll be sure to note that I dont know how the script works, after all, I DONT WANT TO KNOW HOW TO COPY AND PASTE OFF OTHER PEOPLE'S SCRIPTS! Ultra, I believe the script is yours because you both put the words 'Begging to cut tree' insted of 'Beginning to cut tree' No one should be dumb enough to even try to copy someone elses script, especially without looking through it for spelling errors..
I knew i was right about u copying, no one makes their first script a banker..
Btw, My post said nothing about Ultra's script not working, but you say that its not working because its outdated? wtf? i never asked 'why isnt this working?'
Of course you ''Shall not ever update the script'' because that would mean more copying, and everyone is already onto you.
''From Scratch'' YEAH RIGHT!!

SHAME

cool script very useful:P

Hey, I am new to the scripting and what do I do after I open the script… I click play, and it says error on line 16 and me being new to this, I do not know what to type in. If you could help me that would be great. Thanks.

Scripts outdated. Andy, i know im talking back 6 months but, this script is over a year old, its been outdated for like 13 months.

HI!
i try too use the script but it comes:
Line 16: [Error] (16397:1): Unknown identifier 'SRLPlayerForm'

when i try start it, don't know what to put on 'SRLPlayerForm', cuz this my 2nd script i try^^ can someone plz tell me what to do?

This Script Is Outdated Stop Posting

I wish it wasn't out of date =(

yae =(

wiashi had a cuttr/banker for yew's lol

like the script

From: uwish30
like the script

How THE F*** could you like the script? It doesn't even work…