SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
drags111 - SRL Member Application Form
drags111

What is the meaning to life?
–Eat or Be Eaten

Where you Referred to SRL? If yes, by whom?
–no


Programming Knowledge
–Html, VB, Some C++

Other Communitys
–Mopar, Sythe, RSCheata

How Long have You Played Runescape
–about a 1 1/2 years

Are you affilated in anyway with Jagex LTD?
–No
—————————————————–
Please write down a paragraph about Yourself.

–I've been able to script in scar for about 6 months now. I'm ambitious, and can get the job done. I'm available many hours of the day, and im on SRL a lot. I love to script in SCAR and really hope I can be a proud Member of the SRL team.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

MY DEATHWALK! In Alpha staging.

program New;
{.include SRL/srl.scar}

var
  Road: Integer;

procedure declare;
begin
  SetupSRL;
  ActivateClient;
  wait(3000);
  Road := FindRoadColor;
  wait(300);
end;

procedure DeathWalk;
begin
  PerfectNorth;
  wait(1000);
  RadialRoadWalk(Road, 82, 108, 53, 0, 0); //First Corner out of caste walls.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 311, 349, 68, 0, 0);
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 316, 342, 64, 0, 0); //General Store.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 332, 365, 67, 0, 0);
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 350, 383, 68, 0, 0); //Second big corner.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 262, 286, 67, 0, 0); //Farmer in sight.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 279, 312, 69, 0, 0); //Pass Farmer.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 245, 277, 68, 0, 0); //Under Windmill.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 286, 311, 69, 0, 0);
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 245, 286, 69, 0, 0); //In between potatoes and wheat.
  Road := FindRoadColor;
  wait(300);
  SetRun(True);
  RadialRoadWalk(Road, 245, 286, 69, 0, 0); //Above wheat.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 200, 244, 63, 0, 0); //To the left of Wheat.
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 190, 227, 63, 0, 0); //SW of wheat.
  Road := FindRoadColor;
  wait(300);
  SetRun(False);
  RadialRoadWalk(Road, 169, 208, 67, -2, 0); //East of red house
  Road := FindRoadColor;
  wait(300);
  RadialRoadWalk(Road, 232, 276, 63, 0, 2); //Next to bank.
end;

  begin
    declare;
    deathwalk;
  end.

Trips completed to bank so far: 5
Screw Ups: 1. (I was testing something new. didnt work. didnt like it)

P.S.
Its in alpha stage right now. I'm adding failsafes as best I can for the locations it goes. ;)

{                                | |
                              ___|*|______________
                 __          |_*_ * ______________/
                |  |_            |*|
                |  | |____       |_|  _
                |  |/  __ \____  ____| |______
            ____|  |  /  |/    |/      |  ____|
           |   _   | |   /  __ |   __  |_____ |
           |  [_]  | |  |  |__||  [__] |      |
           |_______|_|   \_____|\___   |______|
                                    /  /
                 Script Productions/  /
                     2006       __/  /
                                \___/
{              ,                       ,
             / \       /\___/\       / \
            |   \      (     )      /   |
            | |  \    --\* */--    /  | |
          |\| |   \ /    \_/    \ /   | |/|
          |    \   *             *   /    |
           \ \  \     Drags111's    /   / /
            \ \        Scripts         / /
            |\ \         2007         / /|
             \                           /
              \     /|           |\     /
               \   / |           | \   /
                \ /                 \ /

 =======================================
|=======================================|
|             ~Version .01~             |
|Script Name: Drags Draynor Netter (DDN)|
|Author: Drags111                       |
|What It Does: It will fish and bank    |
|    shrimp and anchovies at draynor.   |
|    does not bait fish.                |
|                                       |
|Requirements: ScarDIVI 3.06 and SRL 3.7|
|RECOMMENDED!!! Have players that arn't |
|              going to be attacked by  |
|              wizards!!!!!!            |
|                                       |
|Setup: Put characters in Draynor Bank  |
|       in a bank slot and have a net   |
|       in your inventory FIRST slot    |
|       and nets in your bank NEAR THE  |
|       TOP.                            |
|       Do Setup line 43 and Setup      |
|       Players starting on line 54.    |
|                                       |
|POST ALL ERRORS ON SRL OR MSN ME AT    |
|Drags111@hotmail.com   THANKS!         |
 =======================================
|         Version .02 Changes           |
 =======================================
|                                       |
| Fixed Whirlpool Detection.            |
| Fixed minor banking problem.          |
| Added AntiBan features.               |
 =======================================
}

program DraynorNetter;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xDTM.scar}
{.include SRL/SRL/extended/xSymbol.scar}
{.include SRL/SRL/extended/xBank.scar}
{.include srl/srl/misc/playerform.scar}
{.include SRL/SRL/extended/xText.scar}
{.include SRL/SRL/extended/xObject.scar}
{.include SRL/SRL/extended/xAntiBan.scar}

const
  NumOfPlayers = 1; //Number of players you will be using.

//Dont Touch Vars!!!!!!!!!!!!!!
var
  FishSymbol, BankSymbol, Loacation, WhirlPoolDTM, Whirlpool, Fished, LoadsDone, WhirlpoolCol, net2, FishSpot, i, fishingwhite, Net: Integer; PickedUp, Fishing, banktest, NowFishing: boolean;


procedure DeclarePlayers;
begin
  HowManyPlayers := NumOfPlayers;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := ''; //3 Characters of your name DO NOT PUT FIRST LETTER! Example: if name was Zezima put something like ezi or zim.
  Players[0].Integer1 := 2; //How many loads you want this player to do.
  Players[0].Integer2 := 20; //Max fishing lvl to get to until fisher stops.
  Players[0].Loc := ''; //Leave Alone
  Players[0].Active := True;
end;

//Colors. Only change if walking/fishing screws up. :)

procedure DeclareStuff;
begin
  FishSymbol := 16745504; //Color of the Blue of the fish sumbol
  BankSymbol := 1145222; //Color of the DARK yellow on the bank symbol.
  fishingwhite := 15978680; //Color of light blue part of fishing spot.
  WhirlpoolCol := 12104628; //Color of the whirlpool;
  Fished := 0;
  LoadsDone := 0;
end;


procedure DeclareDTMs;
begin
  net := DTMFromString('78DA63B466626078CC8006189148206D0954F' +
    '394801A07A09A9704D47800D5BC25A02600A8E62301354140356F' +
    '08A80901AA79815F0D0088550879');

  Net2 := DTMFromString('78DA63E4646060E062400126061A60214620F' +
    'E0F048CBC400627AA1A170B6D30CD08E533B201096E22D410630E' +
    '1BAA1A1B03343520F7B0E33707009D0F083B');

  FishSpot := DTMFromString('78DA63FCC4C0C070910105CC38F086410E483' +
    '342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' +
    '831204') //Credit To Dankness for DTM of the FishSpot! :)

  Whirlpool := DTMFromString('78DA6314606060006124B075CF1930CD08E53' +
    '37202097154358BD7EC4155C30A240451D5ACDD7204550D0B90E0' +
    '4155B37EC7094CBB58D0EC5A8B669720A69AF9AB76A3AA910212E' +
    'CA86A761DBA88AA46124870A1AA99B9641BAA1A114CBB566F398A' +
    '698E30AA9A85E8EE01859F04AA9A39CBD0ECE2C754337BE956143' +
    '5005E201A82');

  WhirlPoolDTM := DTMFromString('78DA63D4606460B8C380024E9EBAC02002A41' +
    '9A17C466D20EB16AA9A03BBF7A2AA5107B29EA1AAD9B46D27AA1A' +
    '6320EB36AA9A43474EA2AA5105B2EEA1AA397FE1128A1A001C7C1' +
    '117');
end;

{*******************************************************************************
procedure HandleWhirlPool;
By: Dankness
Description: Finds and Handles Whirlpools by Standing still and waiting
*******************************************************************************}

procedure HandleWhirlPool;
begin
  if (FindMSDtm(x, y, WhirlPoolDTM)) then
  begin
    Status('Whirlpool found!');
    WhirlPools := WhirlPools + 1;
    Mouse(647, 82, 2, 2, True);
    FTWait(50 + Random(15));
    repeat
      HoverSkill('fishing', False);
      if (not (LoggedIn)) then Exit;
      FTWait(2 + Random(2));
    until (not (FindMSDtm(x, y, WhirlPoolDTM)));
  end;
end;

{*******************************************************************************
function WithDrawDTM(DTM,HowMany:integer):boolean;
By: Boreas
Description: temporary until B4
*******************************************************************************}

function WithDrawDTM(DTM, HowMany: integer): boolean;
begin
  if not (loggedin) then exit;
  if not (FindDTM(DTM, x, y, msx1, msy1, msx2, msy2)) then
    exit;
  withdraw((((((y - 62) div 38) * 8) + ((x - 79) div 47) + 8) mod 8) + 1,
    (((((y - 62) div 38) * 8) + (x - 79) div 47) / 8) + 1, HowMany);
  result := true;
end;

{*******************************************************************************
function SimpleBank:boolean;
By: Fawki
Description: Used in Dankness's Netter Originaly from Fawk.
*******************************************************************************}

function SimpleBank: Boolean; // Stolen from Fawki's Lumby Miner
var sx, sy, dx, dy, Mark2, Tries: integer;
begin
  SX := MSCX - 20; SY := MSCY;
  repeat
    sx := Sx - 3;
    sy := sy - 10 + Random(10);
    MMouse(sx, sy, 0, 0);
    if IsUpTextMulti('e Bank', 'Booth', 'ooth') then
    begin
      GetMousePos(Dx, Dy);
      Mouse(Dx, Dy, 0, 0, False);
      if ChooseOption(Dx, Dy, 'uickly') then
      begin
        MarkTime(Mark2);
        repeat
          Wait(10);
          if TimeFromMark(Mark2) > 20000 then
          begin
            writeln('couldnt find the bank. Exiting');
            Exit;
          end;
        until BankScreen;
      end;
      Result := True;
      Exit;
    end;
    wait(1);
    Tries := Tries + 1;
  until (tries > 6)
end;

procedure BankTester;
begin
  if not (loggedin) then exit;
  SimpleBank;
  wait(300);
  if not (SimpleBank) then
  begin
    i := 0
      repeat
      i := i + 1
        OpenBankGlass('db', true, true);
      wait(1000);
    until (BankScreen) or (i > 10)
  end;
  if (i > 10) then
  begin
    Status('Bank not found. Logging out...')
      Logout;
    wait(300);
    Writeln('Bank was not able to be opened.')
      Exit;
  end;
  Closebank;
  wait(200);
  BankTest := True
    i := 0
end;

function FindNet: Boolean;
begin
  if not (loggedin) then exit;
  Gametab(4);
  Status('Looking for net...');
  if (FindDTM(Net, x, y, mix1, miy1, mix2, miy2)) then
  begin
    Writeln('Found DTM of Net In Inventory.');
    wait(100);
    Status('Net Found')
      Result := True;
    wait(100);
  end;
  if not (FindDTM(Net, x, y, mix1, miy1, mix2, miy2)) then
  begin
    Writeln('Net Not Found In Inventory. Now Checking Bank. Call#1');
    Status('Net not found...');
    wait(300);
    Result := False;
  end;
end;

procedure WithdrawNet;
begin
  if not (loggedin) then exit;
  if not (FindNet) then
  begin
    Status('Net not found...');
    wait(300);
    i := i + 1;
    SimpleBank;
    wait(300);
    if not (SimpleBank) then
    begin
      i := 0
        repeat
        i := i + 1
          OpenBankGlass('db', true, true);
        wait(1000);
      until (BankScreen) or (i > 10)
    end;
    i := 0;
    FixBank;
    Deposit(1, 28, 2);
    repeat
      i := i + 1;
      wait(1000);
      WithDrawDTM(Net, 1);
      wait(700);
      Deposit(2, 28, 2);
      Status('Withdrawing: Attempt  ' + inttostr(i));
    until (FindDTM(Net, x, y, mix1, miy1, mix2, miy2))
      CloseBank;
    wait(100);
    writeln('Withdrew Net');
  end;
end;

function AreWeInBank: Boolean;
begin
  if not (loggedin) then exit;
  MakeCompass('N');
  SymbolAccuracy := 0.4;
  if (FindSymbol(x, y, 'bank')) or (FindMMColorTol(x, y, BankSymbol, 10)) then
  begin
    Writeln('Bank Symbol Found On Minimap.');
    wait(150);
    Mouse(x, y, 1, 1, true);
    Flag
      Result := True;
    Players[CurrentPlayer].Loc := 'Bank';
  end;
  if not (FindSymbol(x, y, 'bank')) then
  begin
    Writeln('Bank Symbol Not Found. Please Move Your Character To The Bank. Call#2');
    wait(150);
    Result := False;
    wait(100);
    TerminateScript;
  end;
end;

procedure WalkTo;
begin
  if not (loggedin) then exit;
  Status('Walking to fishing spot...');
  wait(500);
  Gametab(11);
  wait(500);
  SetRun(true);
  wait(500);
  MakeCompass('N');
  wait(500);
  Mouse(627, 109, 1, 1, true);
  Flag;
  FindSymbol(x, y, 'fish');
  wait(500);
  Mouse(x, y, 1, 1, true);
  Flag;
end;

function AtFish: Boolean;
begin
  if not (loggedin) then exit;
  if (FindSymbol(x, y, 'fish')) then
  begin
    Mouse(x, y, 2, 2, true);
    FFlag(4);
    Writeln('We have arrived at the fishing spot.');
    wait(500);
    Players[CurrentPlayer].Loc := 'Fish';
    Result := True;
  end
  else
    Writeln('Symbol not found. Moving and Checking again.')
      Mouse(644, 136, 1, 1, true);
  Flag;
  if (FindSymbol(x, y, 'fish')) then
  begin
    Mouse(x, y, 1, 1, true);
    Writeln('We have arrived at the fishing spot.');
    wait(500);
    Players[CurrentPlayer].Loc := 'Fish';
    Flag;
  end
  else
  begin
    Writeln('Symbol was lost. Checked Twice.')
      Logout;
    Exit;
  end;
end;


procedure BeginFishing;
begin
  if not (loggedin) then exit;
  i := 0;
  repeat
    if (FindDTM(FishSpot, x, y, MSX1, MSY1, MSX2, MSY2)) then ;
    begin
      MMouse(x, y, 1, 1);
      wait(500);
      if (IsUpText('Net')) then
      begin
        Mouse(x, y, 1, 1, false);
        wait(1000);
        ClickOption('Net', 1);
        wait(1000);
        Fishing := True;
      end;
    end;
  until (Fishing = True) or (i > 10);
end;

function WhirlpoolPresent: Boolean;
begin
  if not (loggedin) then exit;
  MakeCompass('N');
  if (FindDTM(Whirlpool, x, y, 163, 81, 271, 224)) then
  begin
    Writeln('Found Whirlpool');
    Result := True;
  end;
  if (not (FindDTM(Whirlpool, x, y, 163, 81, 271, 224))) then
  begin
    Writeln('No Whirlpools :)');
  end;
end;

procedure LostNet;
begin
  BeginFishing;
  if (FindText(x, y, 'ou need', NPCChars, 117, 366, 378, 429)) then
  begin
    Writeln('Lost Fishing Net');
    i := 0;
    repeat
      i := i + 1;
      Writeln('Trying to recover net. Attempt Number: ' + inttostr(i));
      if (FindObj(x, y, 'Small fishing net', 2963528, 20)) then
      begin
        Mouse(x, y, 0, 0, false);
        wait(1000);
        ClickOption('ake', 1);
        Writeln('Recovered Net');
        PickedUp := True;
      end;
    until (PickedUp) or (i > 10);
    if (i > 10) then
      Fishing := False;
  end;
end;



procedure WhirlpoolHandler;
begin
  if not (loggedin) then exit;
  MakeCompass('N');
  wait(500);
  Mouse(655, 84, 0, 0, true);
  Flag;
  Wait(7000 + Random(1000));
  if (FindNet) and (AtFish) then
  begin
    FindSymbol(x, y, 'fish');
    wait(500);
    Mouse(x, y, 1, 1, true);
    Flag;
    BeginFishing;
  end;
end;

function FishSpotChange: Boolean;
begin
  if not (loggedin) then exit;
  MakeCompass('N');
  wait(1000);
  if (FindDTM(FishSpot, x, y, 189, 174, 233, 199)) then
  begin
    Result := True;
    Writeln('Still Fishing :)');
  end;
  if (not (FindDTM(FishSpot, x, y, 189, 174, 233, 199))) then
  begin
    Result := False;
    Writeln('SpotChanged');
  end;
end;

procedure AntiBanning;
begin
  Status('AntiBanning');
  AntiBan;
  RotateEvery(1);
end;

procedure WaitWhileFish;
begin
  if not (loggedin) then exit;
  repeat
    if (WeAreDead) then
    begin
      Logout;
      wait(1000);
      Writeln('We Died... That sucks. Most likely wizards. Try training some combat ;)');
      Players[CurrentPlayer].Loc := 'Dead'
        LostNet;
      wait(1000);
      ClickToContinue;
      wait(1000);
    end;
    if (not (FishSpotChange)) then
    begin
      BeginFishing;
    end;
    if (WhirlPoolPresent) then
    begin
      WhirlPoolHandler;
    end;
    wait(1000);
    if (ClickToContinue) then
    begin
      BeginFishing;
    end;
    wait(1000);
    if (FindFight) then
    begin
      RunAwayDirection('S');
      Flag;
      wait(9000);
      RunBack;
      Flag;
      FindSymbol(x, y, 'fish');
      wait(500);
      Mouse(x, y, 1, 1, true);
      Flag;
    end;
    Wait(1000);
    AntiBanning;
    wait(1000);
    if (InvFull) then
    begin
      Fishing := False;
    end;
    if (FindNewBox) then
    begin
      OpenBox;
      wait(1000);
      SolveBox;
      wait(1000);
      BeginFishing;
    end;
    wait(1000);
    if not (FindNet) then
    begin
      LostNet;
    end;
    Wait(1000);
    FindNormalRandoms;
    wait(1000);
  until (not (Fishing)) or (not (LoggedIn));
end;

procedure WalkBack;
begin
  if not (loggedin) then exit;
  if (AtFish) then
  begin
    Mouse(660, 70, 1, 1, True);
    Flag;
    AreWeInBank;
    Flag;
  end;
  if (not (AtFish)) and (not (AreWeInBank)) then
  begin
    Writeln('We Are Lost...');
    Logout;
    Exit;
  end;
  if (not (AtFish)) or (AreWeInBank) then
  begin
    AreWeInBank;
  end;
end;

procedure DepositFish;
begin
  if not (loggedin) then exit;
  SimpleBank;
  wait(300);
  if not (SimpleBank) then
  begin
    i := 0
      repeat
      i := i + 1
        OpenBankGlass('db', true, true);
      wait(1000);
    until (BankScreen) or (i > 10)
  end;
  FixBank;
  wait(1000);
  Deposit(2, 28, 2);
  wait(1000);
  CloseBank;
  Fished := Fished + 28;
  LoadsDone := LoadsDone + 1
end;

procedure ProgressReport;
begin
  Writeln('___________________________________')
    Writeln('===___Drag`s Draynor Fisher___===')
    Writeln('           BETA Version          ')
    Writeln('---------Progress Report---------')
    Writeln('___________________________________')
    Writeln('Number of Players: ' + inttostr(NumOfPlayers))
    Writeln('Player: ' + Players[CurrentPlayer].Name)
    Writeln('Fish Banked: ' + IntToStr(Fished))
    Writeln('Loads Done: ' + IntToStr(LoadsDone))
    Writeln('Current Players Location: ' + Players[CurrentPlayer].Loc)
    Writeln('___________________________________')
    Writeln('       Thankyou for using        ')
    Writeln('     Drag`s Draynor Netter!      ')
    Writeln('Please Post all errors on forums ')
    Writeln('or email me at [email]drags111@hotmail.com[/email]')
    Writeln('___________________________________')
end;

procedure MainLoop;
begin
  if not (loggedin) then exit;
  begin
    repeat
      AreWeInBank;
      FindNet;
      if (not (FindNet)) then
      begin
        WithdrawNet;
      end;
      if (InvCount > 1) then
      begin
        i := 0
          SimpleBank;
        wait(300);
        if not (SimpleBank) then
        begin
          i := 0
            repeat
            i := i + 1
              OpenBankGlass('db', true, true);
            wait(1000);
          until (BankScreen) or (i > 10)
        end;
        Fixbank;
        wait(1000);
        Deposit(2, 28, 2);
        Wait(1000);
        CloseBank;
        wait(1000);
      end;
      WalkTo;
      BeginFishing;
      WaitWhileFish;
      WalkBack;
      DepositFish;
      ProgressReport;
      if ((loggedin) and ((LoadsDone mod players[currentplayer].integer1) = 0)) then nextplayer(True);
    until (False);
  end;
end;

begin
  SetupSRL;
  DeclareDTMS;
  DeclarePlayers;
  DeclareStuff;
  ClearDebug;
  ActivateClient;
  Wait(2000);
  if (not (LoggedIn)) then
    LoginPlayer;
  Wait(1000);
  SetRun(True);
  Wait(1000);
  MakeCompass('N');
  Wait(1000);
  BankTester;
  if (BankTest) then
    repeat
      if (not (LoggedIn)) then
        LogInPlayer;
      MainLoop;
      Logout;
      NextPlayer(False);
    until (False);
end.
 

——————————————————
<!– END TEMPLATE: formanswers –>

Hmm, multiplayer, DTM's, walkback…I'll vote yes…:p

Just wondering, is the walkback from Dank's netter?

Looks good..i'll vote yes. Only real problem i see is the standards.

Begin
SetupSRL;
DeclareDTMS;
DeclarePlayers;
DeclareStuff;
ClearDebug;
ActivateClient;
wait(2000);
if(Not(LoggedIn))Then
 Begin
  LoginPlayer;
 End;
wait(1000);
SetRun(true);
wait(1000);
MakeCompass('N');
wait(1000);
BankTester;
if(BankTest)Then
 
Repeat
If(Not(LoggedIn))Then
 Begin
  LogInPlayer;
 End;
MainLoop;
Logout;
NextPlayer(False);
Until(False);
End.

should be

begin
  SetupSRL;
  DeclareDTMS;
  DeclarePlayers;
  DeclareStuff;
  ClearDebug;
  ActivateClient;
  Wait(2000);
  if(not(LoggedIn))then
    LoginPlayer;
  Wait(1000);
  SetRun(True);
  Wait(1000);
  MakeCompass('N');
  Wait(1000);
  BankTester;
  if(BankTest)then
  repeat
    if(not(LoggedIn))then
      LogInPlayer;
    MainLoop;
    Logout;
    NextPlayer(False);
  until(False);
end.

You don't need begins and ends by your if..then's if you only have one command for the if..then. You only need the begin and end if there are multiple things.

Standards…I personally hate them and you might know why…:)

PMed new passes..lol

not good to auto on low level accounts :(

From: SantaClause
Hmm, multiplayer, DTM's, walkback…I'll vote yes…:p

Just wondering, is the walkback from Dank's netter?

The walkback i made on my own :P

The standards at the bottom i just got lazy with lol :P will change

I don't like how you only used findSymbol, it's not very reliable, speacially around a fishing area or bank, because there are probably people standing on top of you. I would have put in a backup method. I also don't see any anti ban methods. Standards, I hate them to, but it's necessary if you even plan to write code worth anything. there are plenty of things online that will do if for you, so this looks like just lazyness.
I'm going to withhold my vote for a little bit.
(don't get mad at me for pointing out some problems, don't worry, I see all the good stuff you did too)

:P its ok. The only part of standards i got lazy with were the main loop. I am actualy OCD about standards. i havnt gone a script without them :D (exept in the main loop parts). lol why would i be mad? Your helping me ;)

I don't have many reasons to vote no.
So I'll vote yes!

:D:D:D thanks. BTW if yall look on the post (second link in my sig) theres a list of future updates. antiban is on there along with autoresponse. :P

From: drags111
:D:D:D thanks. BTW if yall look on the post (second link in my sig) theres a list of future updates. antiban is on there along with autoresponse. :P

I'll vote yes once I see a backup method for one of your find symbols, and some antiban.

Procedure AntiBanning;
 Begin
  Status('AntiBanning');
  AntiBan;
  RotateEvery(1);
 End;

BoredHuman;

Function AtFish:Boolean;
 Begin
 if not(loggedin) then exit;
  If(FindSymbol(x,y,'fish')) OR (FindMMColorTol(x,y,FishSymbol,10))then
   Begin
    Writeln('We have arrived at the fishing spot.');
     wait(500);
    Players[CurrentPlayer].Loc :='Fish';
    Result:=True;
   End;

  If(FindSymbol(x,y,'bank')) OR (FindMMColorTol(x,y,BankSymbol,10)) Then
   Begin
    Writeln('Bank Symbol Found On Minimap.');
     wait(150);
    Mouse(x,y,1,1,true);
    Flag
    Result :=True;
    Players[CurrentPlayer].Loc :='Bank';
   End;

All these are in the version .02.

From: drags111
All these are in the version .02.

Ok, im talking to you on msn now, and we are guna fix this.

No from me.

• No radial walking, you used blind clicking (I know it's a short walk.. But still)
• No proper standards..
• Barely any anti ban
• No anti randoms
• Not very good multi player
• Very unreliable symbol finding/clicking
• Quite a few things taken from Boreas/Fakawi/Dankness
• No functions/procedures with Syntax
• Would have LOVED to see some cases/for to do loops.

No from me, sorry.

K fixed, edited. Thanks for all your help LordGregGreg. Im gonna add you to the special thanks section in my script XD

One, there is very good antirandoms…. box solvers, talkers and srl norm randoms findfight, whirlpool, and even lost nets, and fishing spot movement… :)

Procedure WaitWhileFish;
 Begin
 if not(loggedin) then exit;
 Repeat
  If(WeAreDead)Then
   Begin
    Logout;
     wait(1000);
    Writeln('We Died... That sucks. Most likely wizards. Try training some combat ;)');
    Players[CurrentPlayer].Loc:='Dead'
  LostNet;
   wait(1000);
  ClickToContinue;
   wait(1000);
   End;
  If(Not(FishSpotChange))Then
   Begin
    BeginFishing;
   End;
  If(WhirlPoolPresent)Then
   Begin
    WhirlPoolHandler;
   End;
   wait(1000);
  If(ClickToContinue)Then
   Begin
    BeginFishing;
   End;
  wait(1000);
  if(FindFight)Then
   Begin
    RunAwayDirection('S');
     Flag;
    wait(9000);
    RunBack;
     Flag;
    FindSymbol(x,y,'fish');
     wait(500);
    Mouse(x,y,1,1,true);
     Flag;
   End;
   Wait(1000);
   AntiBanning;
   wait(1000);
  if(InvFull)then
   Begin
    Fishing:=False;
   End;
  If(FindNewBox)Then
   Begin
    OpenBox;
     wait(1000);
    SolveBox;
     wait(1000);
    BeginFishing;
   End;
    wait(1000);
  If Not(FindNet)then
   Begin
    LostNet;
   End;
    Wait(1000);
  FindNormalRandoms;
    wait(1000);

GSquare, and I think Boreas, told me that there was no need for Radial walking. I had it in my script but took it out because of that.

i just add some symbol backup.

Boreas helped me with the multiplayer. If you have any ideas on making it better please tell me :)

Thats how ive used my standards since i started scripting. Its a habbit and its how i read all my scripts

Thanks for readin anyway Jad. Have a nice day :)

Didn't see that.. Usually people have a seperate procedure so they can call for it in other places to just do that. But anyways, that's not the only reason I voted no as you can see :p

But you don't need all that.. That's for no point at all. FindNormalRandoms; finds all of that stuff.. I'd just use that and FindFastRandoms; by Fakawi, and it will find every random.

k ty jad. :)

From: drags111
k ty jad. :)

Yep :) Thanks for not being like a lot of noobs that get mad at me for giving them constructive critisism and voting no… I respect that.

Well Anger is one letter away from Danger :P

From: SantaClause
Hmm, multiplayer, DTM's, walkback…

What do you mean walkback?? If your being sarcastic, idk why, but if not, what do you meen walkback? This is wha the has if dead:

    if (WeAreDead) then
    begin
      Logout;
      wait(1000);
      Writeln('We Died... That sucks. Most likely wizards. Try training some combat ;)');
      Players[CurrentPlayer].Loc := 'Dead'
        LostNet;
      wait(1000);
      ClickToContinue;
      wait(1000);
    end;

From: Rune Hacker
What do you mean walkback??

Lol, yeah no kidding, my entire script over 1k lines that made me a memb was nothing but walkback, lol.

he means walk back from fishing spot to bank. I'm working on death walk right now ;) btw greg the program didnt send…

From: drags111
he means walk back from fishing spot to bank. I'm working on death walk right now ;) btw greg the program didnt send…

OK, thats a little bit easier :P then walking back from death. I'll cathc you on msn l8r tonght about the prog.

From: JAD
Yep :) Thanks for not being like a lot of noobs that get mad at me for giving them constructive critisism and voting no… I respect that.

haha, i think i know who ur talking about ;)

Drags, a great guy to begin. just whipped this up in a couple days, shows commitment and dedication to learning. he has some valuable code in there, and even if he didn't write some, he understands it all and that's the most important thing. i know he'll shine, and he's really excited about learning about the members 'secret' ;) good luck drags, i know u'll make it. ur already ownin the polls!

Thanks GSquare ;) glad you made it too

haha np, im excited to use the fisher :D features look pretty sweet, and im sure u can rise above dankness's netter if u try hard enough ^^ whens next ver comin out?

umm im not sure hopefully sometime this week. deathwalk isnt being very nice to me ;)

talked to u on msn. i'll look up on the deathwalking, but so far ur doin great. maybe i'll steal ur deathwalking and put it in my script ^^ haha sum1 just end this, 7-3 hes a member 4 sho…

From: JAD
Yep :) Thanks for not being like a lot of noobs that get mad at me for giving them constructive critisism and voting no… I respect that.

They get angry because you do it in an…abrupt way…very outright.

Well either way hes just helping. :P

From: SantaClause
They get angry because you do it in an…abrupt way…very outright.

I don't believe I have the answer to why you are being so rude to me SantaClause? You didn't tell me why, but I have a feeling your just upset because I voted no on your app..

Next time I vote no, I wouln't tell anybody the reasons so they don't get better in any way… But I don't think that's what they want, is it?

I don't do it in an "abrupt" way either.. I just tell them what's wrong, and tell them I voted no because of those things. That's it. No flaming.. No saying you suck at scripting, I just tell them whats wrong with it and why I voted no.

From: JAD
Next time I vote no, I wouln't tell anybody the reasons so they don't get better in any way… But I don't think that's what they want, is it?

I don't do it in an "abrupt" way either.. I just tell them what's wrong, and tell them I voted no because of those things. That's it. No flaming.. No saying you suck at scripting, I just tell them whats wrong with it and why I voted no.

I completely agree with JAD. People NEED to hear what they did wrong, that's the whole point of these applications really, to help people get better with scripting. I would be pissed if someone voted no, and didn't even say why, that's the worst that you can do!
I have looked at alot of JADs posts, and he has never been rude, in fact, based on his tutorial, I think he has done more to help out the applicant's than anyone!
The only thing is, he really doesn't butter up his posts to make the applicant feel that they are ok. Thats really a style preference and I think that when it comes to applications, they need to know cut and dry why they got a no. Keep up the good work.

yah i have gotten FOUR no's and only ONE person told me why. PLEASE if you say NO then TELL ME WHY so i can fix the problems and learn for future scripts.
Thanks :)

From: lordgreggreg1
I completely agree with JAD. People NEED to hear what they did wrong, that's the whole point of these applications really, to help people get better with scripting. I would be pissed if someone voted no, and didn't even say why, that's the worst that you can do!
I have looked at alot of JADs posts, and he has never been rude, in fact, based on his tutorial, I think he has done more to help out the applicant's than anyone!
The only thing is, he really doesn't butter up his posts to make the applicant feel that they are ok. Thats really a style preference and I think that when it comes to applications, they need to know cut and dry why they got a no. Keep up the good work.

Thank you greg :) I almost always do be nice to people though.. I normally end my post with good try, you'll get in if you keep on working at it!

But sometimes I forget to say nice things like that, but I try never to be rude.

Ya

From: JAD
No from me.

• No radial walking, you used blind clicking (I know it's a short walk.. But still)
• No proper standards..
• Barely any anti ban
• No anti randoms
• Not very good multi player
• Very unreliable symbol finding/clicking
• Quite a few things taken from Boreas/Fakawi/Dankness
• No functions/procedures with Syntax
• Would have LOVED to see some cases/for to do loops.

No from me, sorry.

I use blind clicks too.
Anyway, yes from me.

EDIT: Greg, unless you have certain problems with your one which needs you to type in red, please just type in black.

Thanks wizzup :). Guess what guys? I jut finished my first full run on my death walk. it went from lumby to draynor bye going on the gray roads. Im so happy XD. Its not very failsafe yet but its working. Im using RadialRoadWalk; It's auto color. For some reason i had to auto color after pretty much every time because most of the time the runner would stop because the color of the road on the mini map changed :/

program New;
{.include SRL/srl.scar}

const
roadcolor1 = 6513514;//MINIMAP Color of the grey roads in draynor or lumby.

var
Road: Integer;

procedure declare;
begin
SetupSRL;
ActivateClient;
wait(3000);
           Road:=FindRoadColor;
             wait(300);
end;

Procedure DeathWalk;
begin
PerfectNorth;
wait(1000);
RadialRoadWalk(Road, 82, 108, 49, 0, 0);//First Corner out of caste walls.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 311, 349, 68, 0, 0);
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 316, 342, 64, 0, 0);//General Store.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 332, 365, 67, 0, 0);
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 350, 383, 68, 0, 0);//Second big corner.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 262, 286, 67, 0, 0);//Farmer in sight.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 279, 312, 69, 0, 0);//Pass Farmer.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 245, 277, 68, 0, 0);//Under Windmill.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(RoadColor, 286, 311, 69, 0, 0);
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(Road, 245, 286, 69, 0, 0);//In between potatoes and wheat.
           Road:=FindRoadColor;
             wait(300);
SetRun(True);
RadialRoadWalk(Road, 245, 286, 69, 0, 0);//Above wheat.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(RoadColor, 200, 244, 63, 0, 0);//To the left of Wheat.
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(RoadColor, 190, 227, 63, 0, 0);//SW of wheat.
           Road:=FindRoadColor;
             wait(300);
SetRun(False);
RadialRoadWalk(RoadColor, 169, 208, 67, 0, 0);//East of red house
           Road:=FindRoadColor;
             wait(300);
RadialRoadWalk(RoadColor, 232, 276, 63, 0, 0);//Next to bank.


end;

begin
declare;
deathwalk;
end.

Trips completed to bank so far: 5
Screw Ups: 1!!! (I was testing something new. didnt work. didnt like it)

P.S.
Its in alpha stage right now ;)

From: Wizzup?
I use blind clicks too.
EDIT: Greg, unless you have certain problems with your one which needs you to type in red, please just type in black.

But..but.. thats not..what I want. I want to be original and unique and I REALLY love red and … :( It makes me so happy when I type in red… Thats like, my thing. My alternative to having a huge annoying signature. I realy wish you wouldn't have said anything. If anyone else had I'd just blow it off, but (unfortunately for me) I respect you. I'm torn…

OK, fine. :(

behold my last red post.

your walkback looks good, but with rrw you want to use loops and repeat the same rrw until it finds a symbol or dtm…

From: lordgreggreg1
But..but.. thats not..what I want. I want to be original and unique and I REALLY love red and … :( It makes me so happy when I type in red… Thats like, my thing. My alternative to having a huge annoying signature. I realy wish you wouldn't have said anything. If anyone else had I'd just blow it off, but (unfortunately for me) I respect you. I'm torn…

OK, fine. :(

behold my last red post.

Aww, no more red posts :p
What about yellow, blue, white(ide prefer), or something lol.

Also, drags111 obviusly shows he can script and knows what hes doing, so its a yes from me.

From: Rune Hacker
Aww, no more red posts :p
What about yellow, blue, white(ide prefer), or something lol.

Also, drags111 obviusly shows he can script and knows what hes doing, so its a yes from me.

Even if i could, it would be nothing compared to the red…:duh:

lol poor greg. And thanks rune hacker ;) I really hope i make it :D:D

From: lordgreggreg1
But..but.. thats not..what I want. I want to be original and unique and I REALLY love red and … :( It makes me so happy when I type in red… Thats like, my thing. My alternative to having a huge annoying signature. I realy wish you wouldn't have said anything. If anyone else had I'd just blow it off, but (unfortunately for me) I respect you. I'm torn…

OK, fine. :(

behold my last red post.

You can post in red if you really want to, it's just annoying to read all those black posts and then you have to read over a black one.. :p
Maybe post like that every now and then?

From: Wizzup?
You can post in red if you really want to, it's just annoying to read all those black posts and then you have to read over a black one.. :p
Maybe post like that every now and then?

Thanks wizzup, we have an accord. I'll try to only post like this if I have my own thread or something, or If I am sending a private message. Note…I said try, im so far beyond OCD when it come to posting in red.. well have to see how it goes.

From: Wizzup?
You can post in red if you really want to, it's just annoying to read all those black posts and then you have to read over a black one.. :p
Maybe post like that every now and then?

lol haha lucky greg :P i dont mind your red in my thread. haha it rhymed :p

I guess blind clicking is ok for when your close to something, I just meant it would have been cool to see some more of a different walking technique. Not calling you a bad scripter, and especially you wizzup?, for blind clicking, just would have loved to see some different walking method :p

Jad did u see my deathwalk alpha? test it :D

From: drags111
Jad did u see my deathwalk alpha? test it :D

Saw it after you applied, and after I voted.. :p I can't test right now, runescape wouln't run on this computer :(

yah np. it works :D only had 1 fail and that was because i was testing a new thing. :p
Justin one question though. if you saw all of that would you have said yes?

From: drags111
yah np. it works :D only had 1 fail and that was because i was testing a new thing. :p
Justin one question though. if you saw all of that would you have said yes?

I would have been more on the fence, and I would have been off balance falling towards your side/vote :p

sweet thx :p well it counts as a yes to me :D But yah you helped me realize what I missed in my script. Thanks Jad. I didn't think you were insulting at all.

wow drags, very impressive deathwalk, i must say. the failsafes actually proved VERY useful, and i LOVE your idea of buying a net incase u run out. im excited man. also, thanks for testing my function, AS EVERYBODY ELSE POSTING IN THE THREAD IS URGED TO… by me ;) pwease?

Yeah, I tested the deathwalking once, and I am sad to say that
it worked just fine
You know I prefer mine though :P

FindSymbol can be alright if you add backup color finding and lower the accuracy. I don't know why people bitch about standards so much, a good programmer shouldn't need to have everything tidy to see what's going on and if you really want download DelFor, the code formatter, then it's going to be perfect for you to read.
Well you have a good idea about SRL. I'm voting yes. Good application! Great looking script (shhh don't tell anyone I didn't test it).

Hmmm…Public apology to JAD. I didn't mean any offence or harm. From now on, I'll try to be a little less abrupt…;)

From: grindisbest
FindSymbol can be alright if you add backup color finding and lower the accuracy. I don't know why people bitch about standards so much, a good programmer shouldn't need to have everything tidy to see what's going on and if you really want download DelFor, the code formatter, then it's going to be perfect for you to read.
Well you have a good idea about SRL. I'm voting yes. Good application! Great looking script (shhh don't tell anyone I didn't test it).

FindSymbol is all about finding colors, so just repeating that is pointless. But thanks for the yes ;)

From: SantaClause
Hmmm…Public apology to JAD. I didn't mean any offence or harm. From now on, I'll try to be a little less abrupt…;)

+rep to you(if i oculd just figure out how..

Accepted!