SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None, just SCAR

Other Communitys
RSCheata, MoparIsTheBest

How Long have You Played Runescape
2 years

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

Ok guys im back!! I think i've improved at scripting A LOT since my last application. Here's my paragraph about me:

Well, ever since the summer has begun, i have had a bit more time to focus on the cheating aspect of runescape A.K.A. macroing, before i would just use other people's scripts and not worry about how they work, now i have grown to understand and appreciate the people who create these macros. Scar scripting has become a hobby for me, its something i do for fun, and i think thats what matters, im having fun. I dont mean to sound like a little league baseball coach "We had fun kids! Thats all that matters!" , but it has grown to be something that i enjoy doing, and dont really care if i get any monetary gain, or even the satisfaction of someone using my script, i just like creating them.

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

{ ---------------------------------------------------------------------------- ]
[              ________                                                        ]
[              \______ \____________  ___.__. ____   ___________               ]
[               |    |  \_  __ \__  \<   |  |/    \ /  _ \_  __ \              ]
[               |    `   \  | \// __ \\___  |   |  (  <_> )  | \/              ]
[              /_______  /__|  (____  / ____|___|  /\____/|__|                 ]
[                      \/           \/\/         \/                            ]
[                   _______          __    __                                  ]
[                   \      \   _____/  |__/  |_  ___________                   ]
[                   /   |   \_/ __ \   __\   __\/ __ \_  __ \                  ]
[                  /    |    \  ___/|  |  |  | \  ___/|  | \/                  ]
[                  \____|__  /\___  >__|  |__|  \___  >__|                     ]
[                          \/     \/                \/                         ]
[ ---------------------------------------------------------------------------- ]
[                          >>   DESCRIPTION   <<                               ]
[ ---------------------------------------------------------------------------- ]
[  This Script is Designed to fish and bank in Draynor on a Specific Char      ]
[  until  a  Certain Number of Loads have been Autoed.  This will then         ]
[  Switch Characters and Auto the next Players Fishing Skill. This will        ]
[  Keep Repeating until all Players are Inactive, or the script is Terminated  ]                                                                ]
[ ---------------------------------------------------------------------------- ]
[                       >>   SETUP INSTRUCTIONS   <<                           ]
[ ---------------------------------------------------------------------------- ]
[    o  For each Individual Player, place a small fishing net in the player's  ]
[       inventory.                                                             ]
[    o  Place Each Individual Player in the bank, Draynor or Lumbridge         ]
[    o  Fill in the Setup on lines 56 - 64, and Declare Players on line 110.   ]
[    o  Hit the Run Button Now!                                                ]
[    o  Make sure you are using SCAR 3.11+                                     ]
[    o  If using Lumby Luring, start with Fly Fishing Rod and 26 feathers in   ]
[       inventory.                                                             ]
[ ---------------------------------------------------------------------------- ]
[                          >>   UPDATE LOG   <<                                ]
[ ---------------------------------------------------------------------------- ]
[      Version .10 - Basic framework of script completed.                      ]
[      Version .20 - A little more variety and structure implemented.          ]
[      Version .30 - Improved fishing spot finding and focused on solving      ]
[                    whirlpool random.                                         ]
[      Version .40 - Improved walking, used DDTM's for walking.                ]
[      Version .50 - A BIG UPDATE! Improved fishing spot finding, once more,   ]
[                    bank opening, added option to power-fish, made my own     ]
[                    whirlpool detection.                                      ]
[      Version .60 - Added Version checker, added progress report, and auto    ]
[                     nickname creator(for the noobs).                         ]
[      Version .70 - Added forms.                                              ]
[      Version .80 - Took forms back out, too many errors.                     ]
[      Version .82 - Fixed little bugs, fixed runtime error.                   ]
[      Version .84 - Fixed banking bugs and hopefully fixed lagging bug.       ]
[      Version .85 - Fixed little things, such as FindFishSpotClose.           ]
[      Version .85b - Fixed the bug in FindFishSpotClose hopefully.            ]
[ ---------------------------------------------------------------------------- ]
[                         Script by Itschris917                                ]
[       Please Post Progress Reports, Bugs and Suggestions in my Thread!       ]
[ ---------------------------------------------------------------------------- }


program DraynorNetter;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\trade.scar}
{.include SRL\SRL\Extended\xAntiBan.scar}
{.include SRL\SRL\Skill\Magic.scar}
{.include SRL\SRL\Misc\DraynorColorFinder.scar}

//----------------------------------------------------------------------------\\
//----------------------------------------------------------------------------\\
//                        -->   USER DEFINED PARAMETERS   <--                 \\
//----------------------------------------------------------------------------\\
//----------------------------------------------------------------------------\\
Const  NumberOfUsers = 4;
Const  StartPlayer = 0;
Const  VerNumber = '.85b'; //No need to change this.
Const  YourSRLSTATSID   = '1062';  // Stats ID.
Const  YourSRLSTATSPASS = '527614'; // Stats Pass.
Const  YourRCMASTER      = ''; // Remote Control Master.
Const  DoDebug = 4;//1: title bar. 2: writeln. 3: status. 4: All
Const  ExtendedDebug = True; //My debug? It helps me correct bugs etc..
Const  AntiBanRandomness = 1;  //Smaller number = more anti-ban...
Const  ColorsClicked = False; //True to pick your own colors...

//----------------------------------------------------------------------------\\
//                        -->   VARIABLES   <--                               \\
//----------------------------------------------------------------------------\\

Var
  FishingNet,FishingNetColor,iX,iY,WhirlPoolDTM,x,y,FeatherDTM : Integer;
  RDTMTol,RDTMArea,Rock,RockDTM,BankDTM,BurntAnchovy : Integer;
  Shrimp,Anchovy,TotalShrimp,TotalAnchovies,CookedShrimp,FishingRod : Integer;
  NoNet,Fishing,InBank : Boolean;
  SkipItems: Array[1..21] of String;
  ShrimpEXP,AnchovyEXP : Extended;
  ShrimpCount,AnchovyCount,cx,cy,BurntShrimp,CookedAnchovy,RockColor : Integer;
  AnchovyColor,ShrimpColor,FishSpotColor : Integer;

//----------------------------------------------------------------------------\\
//                        -->   DEBUG   <--                                   \\
//----------------------------------------------------------------------------\\

procedure DoomDebug(S:String);
begin
 Case DoDebug Of
  1:Disguise(S);
  2:Writeln(S);
  3:Status(S);
  4: Begin
     Disguise(S);
     Writeln(S);
     Status(S);
     end;
 end;
end;

//----------------------------------------------------------------------------\\
//                        -->   SET COLORS HERE   <-- not necessary           \\
//----------------------------------------------------------------------------\\

Procedure SetColorsHere;
Begin

  If (ColorsClicked) Then
  Begin
    AnchovyColor := 0; //Leave at zero to autoset.
    ShrimpColor  := 0; //Leave at zero to autoset.
    FishSpotColor:= 0; //STRONGLY SUGGEST TO LEAVE AT ZERO.
    RockColor    := 0; //Leave at zero to autoset.
    WaterColor   := 0; //Leave at zero to autoset.
    RoadColor    := 0; //Leave at zero to autoset.
  End Else

  AnchovyColor := 8283492;
  ShrimpColor  := 9020886;
  FishSpotColor:= 15515800;
  FindDraynorRockColor(RockColor);
  WaterColor   := FindWaterColor;
  RoadColor    := FindRoadColor;

End;

//----------------------------------------------------------------------------\\
//                        -->   DECLARE PLAYERS   <--                         \\
//----------------------------------------------------------------------------\\

Procedure DeclarePlayers;
Begin
  DoomDebug('Declare Players');
  NumberOfPlayers(NumberOfUsers);

  Players[0].Name := ''; //Username
  Players[0].Pass := '';     //Password
  Players[0].Integers[0] := 2;     //Loads to do..
  Players[0].Extendeds[0] := 0; //DONT TOUCH!
  Players[0].Extendeds[1] := 0; //DONT TOUCH!
  Players[0].Extendeds[2] := 0; //DONT TOUCH!
  Players[0].Strings[0] := '';   //Bank pin. If none, leave blank.
  Players[0].Strings[1] := 'E';  //Direction to run. N, E, S, W.
  Players[0].Strings[2] := 'Lure'; //Arguments: Lure, Bank, Power..
  Players[0].Active := True; //Is the player active?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Integers[0] := 15;
  Players[1].Booleans[0] := False;
  Players[1].Extendeds[0] := 0; //DONT TOUCH!
  Players[1].Extendeds[1] := 0; //DONT TOUCH!
  Players[1].Extendeds[2] := 0; //DONT TOUCH!
  Players[1].Strings[0] := '';
  Players[1].Strings[1] := 'E';
  Players[1].Active := True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Integers[0] := 15;
  Players[2].Booleans[0] := False;
  Players[2].Extendeds[0] := 0; //DONT TOUCH!
  Players[2].Extendeds[1] := 0; //DONT TOUCH!
  Players[2].Extendeds[2] := 0; //DONT TOUCH!
  Players[2].Strings[0] := '';
  Players[2].Strings[1] := 'E';
  Players[2].Active := True;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Integers[0] := 15;
  Players[3].Booleans[0] := False;
  Players[3].Extendeds[0] := 0; //DONT TOUCH!
  Players[3].Extendeds[1] := 0; //DONT TOUCH!
  Players[3].Extendeds[2] := 0; //DONT TOUCH!
  Players[3].Strings[0] := '';
  Players[3].Strings[1] := 'E';
  Players[3].Active := True;

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Integers[0] := 5;
  Players[4].Booleans[0] := True;
  Players[4].Extendeds[0] := 0; //DONT TOUCH!
  Players[4].Extendeds[1] := 0; //DONT TOUCH!
  Players[4].Extendeds[2] := 0; //DONT TOUCH!
  Players[4].Strings[0] := '';
  Players[4].Strings[1] := 'E';
  Players[4].Active := True;

  Players[5].Name := '';
  Players[5].Pass := '';
  Players[5].Integers[0] := 5;
  Players[5].Booleans[0] := True;
  Players[5].Extendeds[0] := 0; //DONT TOUCH!
  Players[5].Extendeds[1] := 0; //DONT TOUCH!
  Players[5].Extendeds[2] := 0; //DONT TOUCH!
  Players[5].Strings[0] := '';
  Players[5].Strings[1] := 'E';
  Players[5].Active := True;

  Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
  LoadPlayerArray;
end;

//----------------------------------------------------------------------------\\
//                        -->   INTRO   <--                                   \\
//----------------------------------------------------------------------------\\

Procedure Intro;
Begin
  Status('Script created by Itschris917');
  Writeln('');
  Writeln('         _________ ________    _______ __________    ');
  Wait(300);
  Writeln('         \_   ___ \\______ \   \      \\______   \   ');
  Wait(300);
  Writeln('         /    \  \/ |    |  \  /   |   \|    |  _/   ');
  Wait(300);
  Writeln('         \     \____|    `   \/    |    \    |   \   ');
  Wait(300);
  Writeln('          \______  /_______  /\____|__  /______  /   ');
  Wait(300);
  Writeln('                 \/        \/         \/       \/    ');
  Wait(300);
  Writeln('                                                     ');
  Writeln('  Chris Draynor Netter Banker            Ver '+VerNumber);
  Writeln('    Script created by: Itschris917');
  Writeln('');
  Wait(2500);
  ReportVars[0]:= ReportVars[0] + 1;
End;

//----------------------------------------------------------------------------\\
//                        -->   CHECK VERSION   <--                           \\
//----------------------------------------------------------------------------\\

Procedure CheckVersion;
Var
  Version : String;
Begin
  ClearDebug;
  Writeln('Checking SCAR Version..');
  If not(GetSCARVersion >= 311) then
  begin
    Writeln(' >> You Need SCAR Divi 3.11 or above to Run this Script!');
    Writeln(' >> Please Download it from http://www.freddy1990.com/scar.php');
    TerminateScript;
  end;
  Writeln('SCAR Version.. OK!  You have SCAR '+IntToStr(GetSCARVersion));
  Wait(200);
  Writeln('Checking Script Version..');
  Wait(1);
  Version := (Getpage('http://itschris917.freehostia.com/DraynorNetter/DNCurrentVersion.txt'));
  If not(VerNumber = Version) and not(Version = '')then
  Begin
    Writeln('');
    Writeln(' ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~             ');
    Writeln('          Draynor Netter Ver ' +Version+ ' Released!');
    Writeln('               Your Version : '+VerNumber                        );
    Writeln('     It is Recommended that you Update your Script!             ');
    Writeln(' ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~             ');
    Writeln('');
    If(GetApplication.MessageBox('Draynor Netter Ver ' +Version+ ' Released!' +Chr(13)+ 'Your Version : '+VerNumber + Chr(13)+ 'Press "OK" to Cancel the Script Run and Download the new Version!', 'New Version Released', 1) = 1) then
    Begin
      OpenWebPage('http://itschris917.freehostia.com/DraynorNetter/DNCurrentVersion.scar');
      TerminateScript;
    End;
  end else
    Writeln('Latest Version... OK!');
end;

//----------------------------------------------------------------------------\\
//                        -->   LOAD NULL WORS   <--  creds to Mad Cow        \\
//----------------------------------------------------------------------------\\

procedure LoadNullWords;
begin
  SkipItems[1] := 'the';
  SkipItems[2] := 'but';
  SkipItems[3] := 'yes';
  SkipItems[4] := 'lol';
  SkipItems[5] := 'brb';
  SkipItems[6] := 'gtg';
  SkipItems[7] := 'cya';
  SkipItems[8] := 'how';
  SkipItems[9] := 'hey';
  SkipItems[10] := 'wat';
  SkipItems[11] := 'umm';
  SkipItems[12] := 'him';
  SkipItems[13] := 'she';
  SkipItems[14] := 'man';
  SkipItems[15] := 'wow';
  SkipItems[16] := 'god';
  SkipItems[17] := 'nub';
  SkipItems[18] := 'nop';
  SkipItems[19] := 'did';
  SkipItems[20] := 'you';
  SkipItems[21] := 'ing';
end;


//----------------------------------------------------------------------------\\
//                        -->   CREATE NICK   <--  creds to Mad Cow           \\
//----------------------------------------------------------------------------\\

function CreateNick(Username : String) : String;
var
  UserLength, NickStart, INick, A : Integer;
  Nicks, Temp : String;
  BadNick : Boolean;
begin
  UserLength := Length(Username);
  INick := 0;
  LoadNullWords;
  repeat
    BadNick := False;
    NickStart := 2 + INick;
    Nicks := Nicks + Copy(Username, NickStart, 3);
    for A := 1 to 3 do
    begin
      Temp := Copy(Nicks, A, 1);
      if(Temp = ' ') or (Temp = '_')then
      begin
        INick := INick + 1;
        Nicks := '';
        BadNick := True;
      end;
    end;
    for A := 1 to 21 do
    begin
      if(Nicks = SkipItems[A]) then
      begin
        INick := INick + 1;
        Nicks := '';
        BadNick := True;
      end;
    end;
  until((not(BadNick)) or (NickStart >= 15))
  Result := Nicks;
end;

//----------------------------------------------------------------------------\\
//                        -->   GENERATE NICKNAMES   <--  creds to Mad Cow    \\
//----------------------------------------------------------------------------\\

Procedure GenerateNickNames;
Begin
  Writeln('');
  Writeln('Creating Nicknames:');
  Status('Creating Nicknames');
  For X := 0 to HowManyPlayers - 1 do
  begin
    if(Players[X].Nick = '') then
    begin
      Players[X].Nick := CreateNick(Players[X].Name);
      WriteLn('  Players[' + IntToStr(X) + '].Nick := ' + Players[X].Nick + ';');
      Wait(1);
    end;
  end;
  Writeln('');
  Status('Setting Players Current Location:');
  For X := 0 to HowManyPlayers - 1 do
    Players[X].Loc := 'Not Yet Started Autoing';
  Status('If you see this Message for Longer than 3 Seconds, Stop the Script and Restart Straight Away!');
end;

//----------------------------------------------------------------------------\\
//                        -->   EXP PER ITEM   <--                            \\
//----------------------------------------------------------------------------\\

Function ExpPerItem: Extended;
Begin
  ShrimpEXP := 10; Result:= 10;
  AnchovyEXP := 40; Result:= 40;
End;

//----------------------------------------------------------------------------\\
//                        -->   PROGRESS REPORT   <--                         \\
//----------------------------------------------------------------------------\\

Procedure ProgressReport(ForceProgress: Boolean);
Var
  i: Integer;
  TempExp, TempLoads: Extended;
  A: String;
Begin
  If (ForceProgress) then
  Begin
    DoomDebug('Progress Report');
    For i := 0 to (HowManyPlayers-1) do
      TempLoads := TempLoads + Players[i].Extendeds[2];
    For i := 0 to (HowManyPlayers-1) do
      TempExp := (TempExp + ((ShrimpExp * Players[i].Extendeds[0]) + (AnchovyEXP * Players[i].Extendeds[1])));
    Writeln('<---------------------------------------------->');
    Writeln('¦     Draynor Netter Ver '+VerNumber+' By Itschris917    ¦');
    Writeln('<---------------------------------------------->');
    Writeln('  Total Running Time    : ' +TimeRunning);
    Writeln('  Total Loads Done      : ' +FloatToStr(TempLoads));
    Writeln('  Total Exp Gained      : ' +FloatToStr(TempExp));
    Writeln('<---------------------------------------------->');
    Writeln('  Current Player No.    : ' +IntToStr(CurrentPlayer+1)+ '/' +IntToStr(HowManyPlayers));
    Writeln('  Current Player Name   : ' +Players[CurrentPlayer].Name);
    Writeln('  Player Running Time   : ' +IntToStr((GetSystemTime/60000)- (PlayerStartTime/60000))+ ' Minutes');
    Writeln('  Current Player Loads  : ' +FloatToStr(Players[CurrentPlayer].Extendeds[2]));
    If (LoggedIn) then
    begin
      Writeln('  Fishing Levels Gained : ' +IntToStr(GetSkillLevel('fishing')-Players[CurrentPlayer].Level[17]));
    end;
    Writeln('  Exp Approx Gained     : ' +FloatToStr(ShrimpExp * Players[CurrentPlayer].Extendeds[0] + AnchovyEXP * Players[CurrentPlayer].Extendeds[1]));
    Writeln('  Player Worked for     : '+IntToStr(GetSystemTime/60000-PlayerStartTime/60000)+' Minutes');
    Writeln('  Player Currently      : '+Players[CurrentPlayer].loc);
    Writeln('<---------------------------------------------->');
    for i := 0 to HowManyPlayers-1 do
    begin
    if Players[i].Active=True then A:='True' else A:='False';
      writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+A
      +'. - Lvl: '+inttostr(Players[i].Level[17])
      +'. - W: '+intToStr(Players[i].Worked)+' mins.'
      +'. - Shrimp: '+floatToStr(Players[i].Extendeds[0])
      +'. - Anchovies: '+floatToStr(Players[i].Extendeds[1])
      +'. - Loads: '+floatToStr(Players[i].Extendeds[2])
      +'. - Loc: '+Players[i].loc);
    end;
    Writeln('<---------------------------------------------->');
    End;
end;


//----------------------------------------------------------------------------\\
//                        -->   AUTO RETALIATE   <--                          \\
//----------------------------------------------------------------------------\\

procedure AutoRetaliate(Yes: Boolean);
begin
  GameTab(1)
    case Yes of
    True: if (not (GetColor(637, 386) = 2106255)) then
          Begin
            MouseBox(570, 361, 714, 400, True);
            Wait(600 + Random(200));
          End;

    False: if (GetColor(637, 386) = 2106255) then
           Begin
             MouseBox(570, 361, 714, 400, True);
             Wait(600 + Random(200));
           End;
  end;
end;


//----------------------------------------------------------------------------\\
//                        -->   ANTI-BAN FEATURES   <--                       \\
//----------------------------------------------------------------------------\\

Procedure DoAntiBan(Extras: Boolean);
Begin
  If not(LoggedIn) then Exit;
  If (Extras) then
  Begin
    Case Random(12) of
      0: RandomRClickEvery(2 + Random(8));
      1: HoverSkill('random', false);
      2: RotateEvery(20 + Random(10));
      3: LeaveScreenEvery(5 + Random(5));
      4: PickUpMouse;
      5: BoredEvery(9 + Random(24));
      6: Begin
           GameTab(1 + Random(12));
           Wait(1500 + Random(500));
           GameTab(4);
         end;
      7: SleepAndMoveMouse(1000 + Random(1000));
      8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
      9: SleepAndMoveMouse(2500 + Random(2500));
      10: SleepAndMoveMouse(1500 + Random(1500));
      11: SleepAndMoveMouse(500 + Random(500));
    end;
  end else
  begin
    Case Random(10) of
      0 : IdleTime(1000 + Random(350), 500, 1.0);
      1 : IdleTime(1000 + Random(350), 1000, 1.0);
      2 : IdleTime(1000 + Random(350), 750, 0.5);
      3 : SleepAndMoveMouse(2500 + Random(2500));
      4 : SleepAndMoveMouse(1500 + Random(1500));
      5 : SleepAndMoveMouse(500 + Random(500));
    end;
  end;
  FindTalk;
end;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
Function AngleCompass(Angle:extEnded):Boolean;
Var                        //FIX THIS CHRIS!
                           //DOESNT WORK WITH NEW RS INTERFACE!!!
Ax, Ay, AMark:Integer;
Begin
  MarkTime(AMark);

  Ax:= Round( 6 * Sin (Angle * Pi / 180))+ 566;
  Ay:= Round(-6 * Cos (Angle * Pi / 180))+ 20;

  KeyDown(VK_Left);

   repeat
     Wait(10+rAnDom(5));
     If(FindColor(x, y, 723587, Ax, Ay, Ax, Ay))Then
     Begin
       Result:=true;
       break;
     End;
   Until(TimeFromMark(AMark) > 10000);
   KeyUp(VK_Left);
End;

//----------------------------------------------------------------------------\\
//                        -->   HANDLE WHIRLPOOL   <--                        \\
//----------------------------------------------------------------------------\\

Function HandleWhirlpool:Boolean;
Var
  mX, mY:Integer;

Begin
  Result:= (FindDTM(WhirlPoolDTM, mX, mY, MSX1, MSY1, MSX2, MSY2));
  If (Result) Then
  Begin
    Mouse(MMCX, MMCY, 0, 0, True);
    DoomDebug('Whirlpool found..');
    Wait(30000+random(5000));
  End;

End;

//----------------------------------------------------------------------------\\
//                        -->   DTM AND BMP LOADING   <--                     \\
//----------------------------------------------------------------------------\\

Procedure LoadBMPDTM;
Begin
  FishingNet := BitmapFromString2(False, 'aA0E2278DAE55741128' +
       '3200CFC1245407AC456FFFFA4925C3C30324B82944E3964324160' +
       '09EB128C310F1B4C6E3BD9E5EDB2F5DB9E6D70897D73460CF7269' +
       'BAD73EC471A157CCCD6468EF817D983E3F4A17189FDE399ED9A16' +
       'F2F778461CCFFC5E6994657FF314DF68B6B0F0D84848FEB61D459' +
       'B1F6D3D3ECF2E4A24659E4BFF5BF8AFB0E1688F8B363EB7087219' +
       'D3FAF2F6BE73E9851639C73A075AD7EACB61CD2AF53C6BF4B3CE5' +
       '264174804514B2427B25E9902B46AA68CC37A54BD30237F776B3E' +
       'EFFBA695517DEF029916F5BA5B352C6A3D4D9C03883AE9EF2324E' +
       '7F81E65ABDF370AD7F991759A6C7E5C4F3495B6FE4CC7542363AA' +
       '3B5C7F7A29DBC88A5AFF67CDF99691D542E35F8EADFECCAFF5F93' +
       '1FF2E5A19873F512');

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

  Rock := BitmapFromString2(False, 'a928A778DA658B490AC0300C0' +
       '3BFE478C9728C5BF4FF27354A291472198B912C2232FB82C4B5E0' +
       '8DAC4529EA246F52BB33EF4DA072A3FBA9F1B400CD30E6922C6EE' +
       'E055D4D5313F0E20644C6FC4863830CA379799ABF3FDB0710C');

  Shrimp := DTMFromString('78DA63CC64626078C28002AE2E6A65E004D28' +
       'C40FC1F0818CB816AEE30A00146241248C702D53C22A0261BA8E6' +
       '237E350078D90B50');

  Anchovy := DTMFromString('78DA634C636260D061644006AD6D2B1838813' +
       '448F43F10309601D5A8A0AA81C8C248209D0D546349404D1C508D' +
       '267E350064340827');

  CookedShrimp := DTMFromString('78DA636C6260608861400157274933C801694' +
       '620FE0F048CF5404628031A604422817435900827A0A612D32E0C' +
       '350D40229E809A56209140404D37908825A0A60D4844E3570300F' +
       '4850C9A');

  BurntShrimp := DTMFromString('78DA638C606060886140018559590C72409A1' +
       '188FF030163089011C68006189148201D00242209A8090412B104' +
       'D480DC9340404D2211E684038968FC6A0058180A51');

  CookedAnchovy := DTMFromString('78DA639CCCC4C0A0C3C80002109281A1A47A1' +
       '5033B94FF1F08183B806A3460B23080AA877131508D3A01355380' +
       '6A2CF1AB01008DA008BB');

  BurntAnchovy := DTMFromString('78DA634C676260D0616440065121210CCC401' +
       'A24FA1F0818E3806A3450D540646124902E07AA5121A02613A8C6' +
       '12BF1A0005EB076F');

  FeatherDTM := DTMFromString('78DA632C65626078CC800276AC5BCB2002A41' +
       '9A17CC642A09A67A86A0EEFDE85AAA61CA8E61EAA1A060D064C73' +
       '9E1350530654F304BF7B0074B60DDD');

  FishingRod := DTMFromString('78DA63B467626078CA80028AC37819FE03694' +
       '620FE0F048C0E40357719D000231209A4FD816AAE115003B2EB23' +
       '0135A64035AFF1AB0100C1FF0BA0');
End;

//----------------------------------------------------------------------------\\
//                        -->   INVENTORY DTM FINDING   <--                   \\
//----------------------------------------------------------------------------\\

Function ClickAllItemsColWait(Col, Tol:integer; option: string; waitnum:
  Integer):Integer;
var
  i, x, y: Integer;
  TB: Tbox;
begin
  GameTab(4);
  for i := 1 to 28 do
  begin
    TB := InvBox(i);
    if ExistsItem(i) then
      if FindColorTolerance(x, y, Col, TB.x1, TB.y1, TB.x2, TB.y2, Tol) then
      begin
        if (not (option = '')) then
        begin
          MouseItem(i, False);
          ChooseOption(option);
          Inc(Result);
        end
        else
          MouseItem(i, True);
        Wait(waitnum);
      end;
  end;
end;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
function ClickItemColorTol(color, tol: Integer; Left:Boolean): Boolean;
Begin
  If (FindColorTolerance(x, y, color, 554, 205, 743, 465, tol)) Then
    Result := True;
    Mouse(x, y, 0, 0, left);
end;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
//Counts fishes, and skips 2 first slots. Creds to JuKKa!
Function CountFishes(Color, Tol: Integer): Integer;
Var
  Dx, Dy, I: Integer;
  ItemTp: TPoint;
Begin
  GameTab(4);
  For I:= 1 To 28 Do
    Begin
      ItemTP:= ItemCoords(I);
      If(FindColorTolerance(Dx,Dy,Color,ItemTP.X-10,ItemTP.Y-10,ItemTP.X+10,ItemTP.Y+10, Tol))Then
        Result:= Result + 1;
    End;
End;

Function FindInvDTM(DTM, x, y : LongInt):Boolean;
Begin
  Result := FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2);
End;

//----------------------------------------------------------------------------\\
//                        -->   DROPPING   <--                                \\
//----------------------------------------------------------------------------\\
Procedure Drop(Col, Tol: Integer);
Var
  cx, cy, Current, i: integer;
  Coords: TPoint;
Begin
  If not(LoggedIn) then Exit;
  GameTab(4);
  For i := 1 to 28 do
  begin
    DoomDebug('Checking If Item Exists');
    If (ExistsItem(i)) then
    begin
      Current := InvCount;
      Coords := ItemCoords(i);
      DoomDebug('Finding color');
      If(FindColorTolerance(cx, cy, Col, Coords.x-30, Coords.y-20, Coords.x+30, Coords.y+30, Tol))then
      Begin
        Mouse(Coords.x, Coords.y+5, 3, 3, False);
        Wait(50 + Random(50));
        DoomDebug('Finding Drop Text');
        If(ChooseOption('Drop'))Then
          Wait(200);
          While(InvCount = Current) do
            Wait(100);
          Wait(250 + Random(100));
        end else
          ChooseOption('Cancel');
      end;
    end;
    Wait(1);
end;

//----------------------------------------------------------------------------\\
//                        -->   DDTM LOADING   <--                            \\
//----------------------------------------------------------------------------\\

Procedure SetRockDTM;
var RockMP: TDTMPointDef;
var RockSP: array[0..1] of TDTMPointDef;
var RockDTMSkel: TDTM;

Begin
  RDTMTol:=40;
  RDTMArea:=1;

  RockMP.x:=906;
  RockMP.y:=303;
  RockMP.areasize:=1;
  RockMP.areashape:=0;
  RockMP.color:=RockColor;
  RockMP.tolerance:=RDTMTol;

  RockSP[0].x:=912;
  RockSP[0].y:=270;
  RockSP[0].areasize:=RDTMArea;
  RockSP[0].areashape:=0;
  RockSP[0].color:=FindRoadColor;
  RockSP[0].tolerance:=10;

  RockSP[1].x:=863;
  RockSP[1].y:=297;
  RockSP[1].areasize:=RDTMArea;
  RockSP[1].areashape:=0;
  RockSP[1].color:=FindWaterColor;
  RockSP[1].tolerance:=10;

  RockDTMSkel.MainPoint:=RockMP;
  RockDTMSkel.SubPoints:=RockSP;
  RockDTM:=AddDTM(RockDTMSkel);
End;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
Procedure SetBankDTM;
var BankMP: TDTMPointDef;
var BankSP: array[0..1] of TDTMPointDef;
var BankDTMSkel: TDTM;

Begin
  RDTMTol:=40;
  RDTMArea:=1;

  BankMP.x:=654;
  BankMP.y:=28;
  BankMP.areasize:=1;
  BankMP.areashape:=0;
  BankMP.color:=FindRoadColor;
  BankMP.tolerance:=1;

  BankSP[0].x:=648;
  BankSP[0].y:=24;
  BankSP[0].areasize:=RDTMArea;
  BankSP[0].areashape:=0;
  BankSP[0].color:=195836;
  BankSP[0].tolerance:=RDTMTol;

  BankSP[1].x:=656;
  BankSP[1].y:=25;
  BankSP[1].areasize:=RDTMArea;
  BankSP[1].areashape:=0;
  BankSP[1].color:=195836;
  BankSP[1].tolerance:=RDTMTol;

  BankDTMSkel.MainPoint:=BankMP;
  BankDTMSkel.SubPoints:=BankSP;
  BankDTM:=AddDTM(BankDTMSkel);
End;

{ ---------------------------------------------------------------------------- ]
[  >>  Function UpdateCoords(Var ax, ay: Integer; TheColor: Integer): Boolean; ]
[  >>  Updates Color Coords When you are Moving after a Click                  ]
[  >>  Huge Thanks to Sumillion and Lorax for the Function - modified by Star  ]
[ ---------------------------------------------------------------------------- }

Function UpdateCoords(Var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
var
  //ax, ay,
  Counter: Integer;
Begin
  DoomDebug('Updating Color Coords ...');
  //GetMousePos(ax, ay);
  If (ax < 20) then ax := 20; If (ay < 20) then ay := 20;
  While (FlagPresent) and (FindColorSpiralTolerance(cx, cy, TheColor, ax-20, ay-20, ax+20, ay+20, Tol)) do
  begin
    ax := cx; ay := cy;
    Wait(10);
  end;
  If (ax < 10) then ax := 10; If (ay < 10) then ay := 10;
  While (FindColorSpiralTolerance(cx, cy, TheColor, ax-10, ay-10, ax+10, ay+10, Tol)) and (Counter < 100) do
  begin
    ax := cx; ay := cy;
    Counter := Counter + 1;
    Wait(10);
  end;
  Result := FindColorSpiralTolerance(cx, cy, TheColor, ax-10, ay-10, ax+10, ay+10, Tol);
  if (not Result) then
    DoomDebug('We lost the Color while Updating it')
  else
    DoomDebug('Updated Color Coords');
end;

//----------------------------------------------------------------------------\\
//                        -->   BANKING   <--                                 \\
//----------------------------------------------------------------------------\\

Function OpenMyBank:Boolean;
Var
i, SearchBank:Integer;
Begin
MarkTime(SearchBank)
repeat
      If(FindObj(x, y, 'ank', 5066840, 5))Then
      Begin
      mouse(x, y, 1, 1, false);
      If (ChooseOption('quickly'))OR ChooseOption('Bank Banker') Then
         Begin
              Flag;
              repeat
              Wait(100);
              i := i + 1
              until (BankScreen) OR (i >= 50) OR (PinScreen);
           If (PinScreen) Then
           Begin
             DoomDebug('Pin screen detected..');
             DoomDebug('Inputing pin..');
             InPin(Players[CurrentPlayer].Strings[0]);
             If (BankScreen) Then
             Begin
               DoomDebug('Pin successfully entered..');
             End
             Else
             CloseBank;
             LogOut;
             Players[CurrentPlayer].Loc := 'Pin Screen Detected!';
             Players[CurrentPlayer].Active := False;
             Exit;
           End;
           DoomDebug('Bank opened!');
           Result:= True;
         End;
      End;
until(BankScreen)Or (TimeFromMark(SearchBank)>=40000)
If (not(BankScreen))Then
   DoomDebug('Can not find the bank at all.');
End;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
Procedure DepositFish;

Begin
  ShrimpCount:= ( CountFishes(ShrimpColor, 9 ) );
  AnchovyCount:= ( CountFishes(AnchovyColor, 9) );
  Wait(250+Random(200));

  ClickAllItemsColWait(9020886, 9, 'All', 1500);
  ClickAllItemsColWait(8283492, 9, 'All', 1500);

  TotalShrimp := (TotalShrimp + ShrimpCount);
  TotalAnchovies := (TotalAnchovies + AnchovyCount);
  Players[CurrentPlayer].Extendeds[0]:= TotalShrimp;
  Players[CurrentPlayer].Extendeds[1]:= TotalAnchovies;

  Banks := Banks + 1;
  Players[CurrentPlayer].Extendeds[2]:= Players[CurrentPlayer].Extendeds[2] + 1;

  CloseBank;

End;

//----------------------------------------------------------------------------\\
//                        -->   NET FINDING   <--                             \\
//----------------------------------------------------------------------------\\

Function IsFishNet: Boolean;

Begin
  GameTab(4);

  If FindBitmapMaskTolerance(FishingNet, iX, iY, MIX1, MIY1, MIX2, MIY2, 2, 2)Then
  Begin
    Result := True;
  End;

  If(Result) Then
  Begin
    FishingNetColor := GetColor(iX, iY);
    If (ExtendedDebug)Then
      DoomDebug('Fishing Net Color: ' +IntToStr(FishingNetColor));
  End;

  If (Not(Result)) Then
  Begin
    If (ExtendedDebug)Then
      DoomDebug('Can not find net in inventory.');
  End;
End;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
Function FindNet: Boolean;
Begin
  If (IsFishNet) Then
  Begin
    NoNet := False;
    Result := True;
  End
  Else
    NoNet := True;
    Result := False;
End;

//----------------------------------------------------------------------------\\
//                        -->    FISHING SPOT  <--                            \\
//----------------------------------------------------------------------------\\

Function FindFishingSpot(Var x, y: Integer): Boolean;

Var
  FishColor : Integer;
Begin
  If Not LoggedIn Then Exit;
  ColorToleranceSpeed(2);
  If FindColorSpiralTolerance(x, y, FishSpotColor, 5, 5, 515, 336, 20) Then
  Begin
    FishColor := GetColor(x, y);
    FindColorSpiralTolerance(x, y, FishColor, x - 10, y - 10, x + 10, y + 10, 30)
    Result := True;
    If(ExtendedDebug)Then
    Begin
      DoomDebug('Found fishing spot!');
    End;
    ColorToleranceSpeed(1);
    Exit;
  End Else
  ColorToleranceSpeed(1);
End;

Function FindFishSpotClose(Var x, y:Integer): Boolean;

Var
  FishColor : Integer;
Begin
  If Not LoggedIn Then Exit;
  ColorToleranceSpeed(2);
  If FindColorTolerance(x, y, FishSpotColor, MSCX - 50, MSCY - 50, MSCX + 50, MSCY + 50, 20) Then
  Begin
    FishColor := GetColor(x, y);
    If (FindColorTolerance(x, y, FishColor, x - 10, y - 10, x + 10, y + 10, 30)) Then
    Result := True;
    If(ExtendedDebug)Then
    Begin
      DoomDebug('Fishing spot hasn''t moved!');
    End;
    ColorToleranceSpeed(1);
    Exit;
  End Else
  Result := False;
  ColorToleranceSpeed(1);
End;

//----------------------------------------------------------------------------\\
//                        -->   WALKING   <--                                 \\
//----------------------------------------------------------------------------\\

Function WalkToFishSpot: Boolean;

Var
 rX, rY : Integer;
Begin

Begin
If (DTMRotated(RockDTM, x, y, MMX1, MMY1, MMX2, MMY2)) Then
  Begin
    Mouse(x - 20, y, 2, 2, True);
    Wait(5000);
    Flag;
    Wait(500+Random(405));
    If (FindFishingSpot(x, y)) Then
    Begin
      Result:= True;
      Exit;
    End;

  End;

      Begin
        If ( FindSymbol( rX, rY, 'fish' ) ) Then
        Begin
          Mouse(rX, rY, 2, 2, True);
          Fishing:= False;
          DoomDebug('Clicked on fishing symbol..');
          Players[CurrentPlayer].Loc:= 'FishingSymbol';
          Result:= True;
          Flag;
          Wait(500+random(400));
        End;

      End;

  If ( FindColor(rX, rY, RockColor, MMX1, MMY1, MMX2, MMY2)) Then
  Begin
    Mouse(rX, rY - 22, 2, 2, True);
    Fishing := False;
    If (ExtendedDebug) Then
      DoomDebug('Clicked on Rock');
    Players[CurrentPlayer].Loc := 'FishingSymbol';
    Result := True;
    Flag;
    Wait(500+Random(400));
  End;


  End;
End;
{
//----------------------------------------------------------------------------\\
\\----------------------------------------------------------------------------//                                                  }
Function WalkToBank:Boolean;
Var
  rX, rY : Integer;
Begin
  If (DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2)) Then
  Begin
    Mouse(x, y, 4, 4, True);
    Flag;
    {If (OpenMyBank) Then
    Begin
      InBank:= True;
      Result:= True;
      Exit;
    End Else}

  If (FindSymbol(rX, rY, 'bank')) Then
  Begin
    Mouse(rX, rY, 2, 2, True);
    Flag;
    InBank:= True;
    Result:= True;
  End;
End;
End;

//----------------------------------------------------------------------------\\
//                        -->   CHECK LOST EQUIP   <--                        \\
//----------------------------------------------------------------------------\\

Function LostEquip:Boolean;
Var
  dX, dY, i : Integer;

Begin
  If (FindNPCChatText('need')) Then
  Result:= True;
  Wait(1);
  For i:= 0 to 4 do
  Begin
    If (FindColorSpiralTolerance(dX, dY, FishingNetColor, MSX1, MSY1, MSX2, MSY2, 5)) Then
    Begin
      Mouse(dX, dY, 1, 1, True);
      Flag;
      If (IsFishNet) Then
        Exit;
      End
    Else
    DoomDebug('We lost the net, and couldn''t find it.. :(');
    DoomDebug('Terminating Player..');
    Players[CurrentPlayer].Loc:= 'NetLost';
  End;
End;

//----------------------------------------------------------------------------\\
//                        -->   ANTI-RANDOMS   <--                            \\
//----------------------------------------------------------------------------\\

Function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for i:=1 to 15 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:  if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             end;
       8 : If RC Then Result := True;

       9: If FindTalk Then Result := True;

       10: If HandleTrade Then Result := True;

       11: If HandleWhirlpool Then Result := True;

       12: ProgressReport(False);

       13: If ClickToContinue Then Result := True;

       14: If (FindFight) Then
           Begin
             Result := True;
             RunAwayDirection(Players[CurrentPlayer].Strings[1]);
             Wait(5000 + Random(2500));
             If (FindSymbol(x, y, 'Fish')) Then
             Begin
               Mouse(x, y, 2, 2, True);
               Flag;
             End;
           End;

       15: If (LostEquip) Then Result := True;
    End;
    Wait(1);
  end;
end;

//----------------------------------------------------------------------------\\
//                        -->   WAIT WHILST FISHING   <--                     \\
//----------------------------------------------------------------------------\\

Procedure WaitWhilstFishing;
Var
  q, e, Mark, Current : integer;
  i : Extended;
Begin
  If not(Loggedin) then Exit;

    Current := InvCount;
    e := 30 + Random(15)
    DoomDebug('Fishing');
    MarkTime(Mark);
    Repeat

      If not(Loggedin) then Exit;
      i := i + 1;
      Status('Fishing: ' +FloatToStr(I)+ '/' +IntToStr(E));
      If (FindFastRandoms)then Exit;
      Wait(50);
      If (FindNormalRandoms)then Exit;
      Wait(50);

      If (Random(6) = 0) then
        For q := 1 to 4 do
        Begin
          i := i + 0.25;
          If (Random(AntiBanRandomness) = 0) then DoAntiBan(True);
        end;
      If (FindNormalRandoms)then Exit;
      Wait(50);

      If (TimeFromMark(Mark) >= 10*1000) and (Current = InvCount) then
        Exit;
      else
      begin
        Current := InvCount;
        MarkTime(Mark);
      end;
      Wait(50);

      Until( I >= E ) OR (InvFull) OR Not(FindFishSpotClose(X, Y));
end;


//----------------------------------------------------------------------------\\
//                        -->   FISH BANK LOOP   <--                          \\
//----------------------------------------------------------------------------\\

Procedure FishBankLoop;
Begin

  If (IsFishNet) Then
  Begin
    WalkToFishSpot;

    If (FindSymbol(x, y, 'Fish')) AND (Not(FindFishingSpot(X, Y)))Then
    Begin
      Mouse(x, y, 2, 2, True);
      Flag;
    End;

    Repeat
      If (FindFishingSpot(X, Y)) Then
      Begin
        Mouse(X, Y, 4, 4, True);
        UpdateCoords(cx, cy, x, y, 15714472, 30);
        Flag;
        Wait(500+random(643));
        Fishing:= True;
        Players[CurrentPlayer].Loc := 'Fishing';
        WaitWhilstFishing;
      End;

    Until (InvFull) OR (Not(LoggedIn));

       MakeCompass('N');


       If (Not(Fishing)) AND (Players[CurrentPlayer].Loc = 'FishingSymbol')Then
       Begin
         Repeat
           Begin
             If (FindFishingSpot(X, Y)) Then
             Begin
               Mouse(x, y, 4, 4, True);
               UpdateCoords(cx, cy, x, y, 15714472, 30);
               Flag;
               Wait(500+random(643));
               Players[CurrentPlayer].Loc := 'Fishing';
               WaitWhilstFishing;
             End;
           End;
         Until (InvFull) OR (Not(LoggedIn));
       End;

         MakeCompass('N');

         If (InvFull) Then

         Begin
           WalkToBank;
           If (InBank) Then
           Begin
             Players[CurrentPlayer].Loc := 'Bank';
             OpenMyBank;
             DepositFish;
             ProgressReport(True);
           End;

         End;

     End;

End;

//----------------------------------------------------------------------------\\
//                        -->   POWER FISH LOOP   <--                         \\
//----------------------------------------------------------------------------\\

Procedure PowerFishLoop;
Begin

  Repeat
    If (FindFishingSpot(X, y)) Then
    Begin
      Mouse(X, Y, 4, 4, True);
      UpdateCoords(cx, cy, x, y, 15714472, 30);
      Flag;
      Wait(500+random(643));
      Fishing:= True;
      Players[CurrentPlayer].Loc := 'Fishing';
      WaitWhilstFishing;
    End;

  Until (InvFull) OR (Not(LoggedIn));

      MakeCompass('N');

      If (Not(Fishing)) AND (Players[CurrentPlayer].Loc = 'FishingSymbol')Then
      Begin
        Repeat
          Begin
            If (FindFishingSpot(X, Y)) Then
            Begin
              Mouse(x, y, 4, 4, True);
              UpdateCoords(cx, cy, x, y, 15714472, 30);
              Flag;
              Wait(500+random(643));
              Players[CurrentPlayer].Loc := 'Fishing';
              WaitWhilstFishing;
            End;
          End;
        Until (InvFull) OR (Not(LoggedIn));
      End;

      MakeCompass('N');

      If (InvFull) Then

      Begin
        Players[CurrentPlayer].Loc := 'Dropping';
        ShrimpCount:= ( CountFishes(9020886, 9 ) );
        AnchovyCount:= ( CountFishes(8283492, 9) );

        Drop(9020886, 9);
        Drop(8283492, 9);

        TotalShrimp := (TotalShrimp + ShrimpCount);
        TotalAnchovies := (TotalAnchovies + AnchovyCount);

        Players[CurrentPlayer].Extendeds[0]:= Players[CurrentPlayer].Extendeds[0] + TotalShrimp;
        Players[CurrentPlayer].Extendeds[1]:= Players[CurrentPlayer].Extendeds[1] + TotalAnchovies;
        Players[CurrentPlayer].Extendeds[2]:= Players[CurrentPlayer].Extendeds[2] + 1;
        ProgressReport(True);
      End;

  End;





//----------------------------------------------------------------------------\\
//                        -->   MAIN LOOP   <--                               \\
//----------------------------------------------------------------------------\\
begin

  SetupSRL;
  ClearDebug;
  CheckVersion;
  Intro;
  ExpPerItem;
  DeclarePlayers;
  GenerateNickNames;
  ActivateClient;
  Wait(100);

  LoadBMPDTM;

  SymbolAccuracy:= 0.4;

  ScriptID:= '251';
  SRLID := YourSRLstatsID;
  SRLPassword := YourSRLstatsPASS;

 Repeat
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    If not(Loggedin)then LoginPlayer;
    Status('Preparing Character');
    PlayerStartTime := GetSystemTime;
    GameTab(4);
    FindDraynorRockColor(RockColor);
    SetColorsHere;
    SetRockDTM;
    SetBankDTM;
    DoomDebug('Calibrating..');
    HighestAngle;
    GetAllLevels;
    AutoRetaliate(False);
    SetRun(True);


    Repeat
      Case Players[CurrentPlayer].Strings[2] Of
        'Bank'  : FishBankLoop;

        'Power' : PowerFishLoop;


      End;

    Until ( Players[CurrentPlayer].Extendeds[2] >= Players[CurrentPlayer].Integers[0] ) OR (Not(LoggedIn));

    Players[CurrentPlayer].Extendeds[2] := 0;
    FreeBitmap(NickNameBMP);

    ProgressReport(True);
    NextPlayer(LoggedIn);
  Until(False)


end.

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

Seems like u have quite a few of other peoples procedures(not nessisarily bad just harder to tell what u made), and u need a lot more failsafes, i saw a few else's but most were just to writeln saying it failed. I think u need more that actually try to remedy the problem. Also symbols arent at all reliable to use for walking, so u might want to find an alternative. Im going to vote yet.

As far as i can see script looks original to me.
But do you not already own this account:
bbri06
Which is already a SRL member?

dang busted ^^ but ofcourse he will deny that.

Let's not jump to conclusions just yet…could be another friend of his, like wisewanderer….We'll give him a chance to explain himself

He knows how to script, and he has everything. It's no doubt to me that he knows very advanced scripting. I still can never work good progress reports or floattostr's or when to put pluses before and after inttostr..but w/e..we'll stop talking about me.

The only thing, you took A LOT of functions/procedures from other people.

I'll hold my vote, see what other people say.

yea i know but i had to say it.

How do i have bbri06??

You have/have had same IP on some instances.
Did you give him or did he give you his/yours passwords or something once long ago?
Im not accusing you of anything, just wanna clear this up.

There is an unbelievable amount of PowerSkills in there dude:

[php]
Procedure CheckVersion;
procedure LoadNullWords;
function CreateNick(Username : String) : String;
Procedure GenerateNickNames;
Function ExpPerItem: Extended;
Procedure ProgressReport(ForceProgress: Boolean);
Procedure DoAntiBan(Extras: Boolean);
Procedure Drop(Col, Tol: Integer);
Function UpdateCoords(Var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
Procedure WaitWhilstFishing;
[/php]

From: Starblaster100
There is an unbelievable amount of PowerSkills in there dude:

[php]
Procedure CheckVersion;
procedure LoadNullWords;
function CreateNick(Username : String) : String;
Procedure GenerateNickNames;
Function ExpPerItem: Extended;
Procedure ProgressReport(ForceProgress: Boolean);
Procedure DoAntiBan(Extras: Boolean);
Procedure Drop(Col, Tol: Integer);
Function UpdateCoords(Var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
Procedure WaitWhilstFishing;
[/php]

Owned? Should be Auto no? because half the script is like copied?

A tiny bit harsh. There are heaps more procedures in that script.

I'll say no because so much of that script is by other people .. Btw, I think I remember you from sythe?

Looks good to me??? Even if some of the code is copied, he shows good knowledge of Pascal and SRL, ergo, I vote yes.

althought he used procedure/functions from Powerskills, he did gave credit athought… the AutoRetaliate procedure seems simular to some scripts by fawki and the
Procedure DoAntiBan(Extras: Boolean);
is actually the same as the on ein Powerskills :(

I don't know what to vote, i'll hold my vote because i want to vote right.

O, I'm not saying he can't copy it. Its posted for learning purposes and I'm very glad people use it.

However, the only credit i can see in the script is:

[php]
[ >> Huge Thanks to Sumillion and Lorax for the Function - modified by Star ]
[/php]

I wrote that myself in PowerSkills.

I believe being a member is as much about attitude as it is skill.

I shall hold my vote for now

From: Starblaster100
O, I'm not saying he can't copy it. Its posted for learning purposes and I'm very glad people use it.

However, the only credit i can see in the script is:

[php]
[ >> Huge Thanks to Sumillion and Lorax for the Function - modified by Star ]
[/php]

I wrote that myself in PowerSkills.

I believe being a member is as much about attitude as it is skill.

I shall hold my vote for now

You are right but the generate nicknames is by Madcow, he did credit those, that was actually what i ment :p

Vote Pending…

It did have a lot of other scripts, a lot looked fimiliar, but there are tons other things in there that are, what I am guessing, home-made.

I think you would definatly need more fail-safes if any "advanced" user is going to use this. The anti-ban is almost generic, a lot of people have the same "idea", and you either just got lazy or thought star's was amazing…

Also try not to capitalize the Begin and End; it just looks ugly… Helps me see it better :P.

To Fakawi or Wizzup or Ben or other admin… I just saw "Currently Active Users Viewing This Thread: 4 (2 members and 2 guests)" at the bottum of this page, I thought only Logged in SRL members + the originator could see this…

I was going to vote yes, I will hold my vote though.

From: Tails111
Vote Pending…

It did have a lot of other scripts, a lot looked fimiliar, but there are tons other things in there that are, what I am guessing, home-made.

I think you would definatly need more fail-safes if any "advanced" user is going to use this. The anti-ban is almost generic, a lot of people have the same "idea", and you either just got lazy or thought star's was amazing…

Also try not to capitalize the Begin and End; it just looks ugly… Helps me see it better :P.

To Fakawi or Wizzup or Ben or other admin… I just saw "Currently Active Users Viewing This Thread: 4 (2 members and 2 guests)" at the bottum of this page, I thought only Logged in SRL members + the originator could see this…

I think everyone can see it as long as you have the link from the apply or am i wrong?

cmon make simplier posts so I can see do people vote yes or no :p :p :p

I would not give him a yes because of the script atm, because its so much not of his own work, BUT I'd personally give him a chance to create another script which shows good knowledge of SCAR, SRL and the stuff like DTMs, Walking, Failsafes, Multiplayer etc.

Script looks good to me and well presented. Yes

You obviously didnt read at all and notice its not like even 50% his script? :p

OK I have made up my mind, it is a yes from me.

Good Luck!

I thought you had to have 90% of your own script to be accepted for an SRL Member.

Hrm. I want to vote no. I agree with starblaster on this one.
I looked over his script tryiing to find a make or break point, and couldnt find one.

fawkis right, he can code, or at least throw code together, which is sometimes all that matters.

althouhg i very raraely vote because of what someon else voted, fawki said yes. i say yes.

I expect good and continued work from you while you are here.

From: YoHoJo
You have/have had same IP on some instances.
Did you give him or did he give you his/yours passwords or something once long ago?
Im not accusing you of anything, just wanna clear this up.

I've cleared this up with Boreas multiple times already.

From: Starblaster100
There is an unbelievable amount of PowerSkills in there dude:

[php]
Procedure CheckVersion;
procedure LoadNullWords;
function CreateNick(Username : String) : String;
Procedure GenerateNickNames;
Function ExpPerItem: Extended;
Procedure ProgressReport(ForceProgress: Boolean);
Procedure DoAntiBan(Extras: Boolean);
Procedure Drop(Col, Tol: Integer);
Function UpdateCoords(Var cx, cy: Integer; ax, ay, TheColor, Tol: Integer): Boolean;
Procedure WaitWhilstFishing;
[/php]

CheckVersion - How many different ways are there to check if there is a new version out?
Nickname generating stuff - clearly stated that it is Mad Cow's.
ExpPerItem - Simply returns the experience of Shrimp and Anchovy. Sure, i could have just put that in the progress report:

 ShrimpExp:= 10; AnchovyExp:= 40;

but i didn't..
ProgressReport - I will admit, copied from PS, but i dont think a progress report should make or break my entry.
DoAntiBan - Just a combination of SRL anti-ban procedures, taken from PS. Even if i didnt take them from PS, its no different, cause i would have just taken them straight from SRL.
Drop - I changed from DTM's to using colors, cause the DTM's weren't working for other people. Also, used ChooseOption instead of FindText.
UpdateCoords - Once again, all credit given to you, Sumillion and Lorax. I never once stated it was mine.
WaitWhilstFishing - Yes, taken from PS. Ever so slightly modified..

From: n3ss3s
cmon make simplier posts so I can see do people vote yes or no :p :p :p

I would not give him a yes because of the script atm, because its so much not of his own work, BUT I'd personally give him a chance to create another script which shows good knowledge of SCAR, SRL and the stuff like DTMs, Walking, Failsafes, Multiplayer etc.

Lol, i find it funny that on my thread in the free scripts section, you said i should apply for member's, and now you're saying no.

From: itschris917

Lol, i find it funny that on my thread in the free scripts section, you said i should apply for member's, and now you're saying no.

Haha ouch.


But anyways, it's a yes from me, I saw this script when it first came out and you've done a lot of work. I don't think that using things like others progress reports or antirandoms should make or break your getting in. Also, you seem to have a good, positive attitude.

Thanks Tim. I understand what you're saying about the attitude. I love this place, and i would really like to help. If you dont believe me, look in the Scripting Help section. I help out a lot. :)

From: The_Rs_Monkey
Script looks good to me and well presented. Yes

From: n3ss3s
You obviously didnt read at all and notice its not like even 50% his script? :p

I did read those posts. Are you saying my vote is stupid? Look at the parts that are his. Either way it's still a good script, even thought some of the procedures are copied, there still credited.

U can script/throw code together good enough :) - Yes.

From: itschris917
I help out a lot. :)

Yes you do :)

From: JuKKa
U can script/throw code together good enough :) - Yes.

Yes He can :)

~RAM

From: RAM_RUNE
Yes you do :)



Yes He can :)

~RAM

Lol, i like your replies XD
Btw Ram, can you tell me or PM me or wahtever with which scripts you auto with?:p
I mean ur the number 1 :)

From: itschris917

CheckVersion - How many different ways are there to check if there is a new version out?

A lot actually. You took my exact methods; Asking to terminate script and download new version; checking SCAR version; my exact WriteLns

From: itschris917

Nickname generating stuff - clearly stated that it is Mad Cow's.

Mad Cow didn't make it all, you have credited it incorrectly.

From: itschris917

ProgressReport - I will admit, copied from PS, but i don't think a progress report should make or break my entry.

You still copied it without credit. Being a SRL member is as much about attitude as it is skill

From: itschris917

DoAntiBan - Just a combination of SRL anti-ban procedures, taken from PS. Even if i didnt take them from PS, its no different, cause i would have just taken them straight from SRL.

You used my exact procedure! You could have easily made your own.

From: itschris917

Drop - I changed from DTM's to using colors, cause the DTM's weren't working for other people. Also, used ChooseOption instead of FindText.

You still used my base, and maybe changed 1 or 2 lines…

From: itschris917

WaitWhilstFishing - Yes, taken from PS. Ever so slightly modified..

and still no credits…


You are not impressing me.

From: Starblaster100
A lot actually. You took my exact methods; Asking to terminate script and download new version; checking SCAR version; my exact WriteLns


Mad Cow didn't make it all, you have credited it incorrectly.


You still copied it without credit. Being a SRL member is as much about attitude as it is skill


You used my exact procedure! You could have easily made your own.


You still used my base, and maybe changed 1 or 2 lines…


and still no credits…


You are not impressing me.

Can i tell you that the generating nicknames actually is made by Mad Cow, let me go and find link plz .
I have to agree with all the other things you said, i still didn't voted ;)

EDIT: for the first time i read you also have made one, sorry for that, i saw it now but i think he's using the one from Mad Cow?

Yource
Mad Cow's

Read again kiddo.

"Mad Cow didn't make it all, you have credited it incorrectly."

he got a nice script, need more credits tough…

but i have to say yes

but try to use more procedure's by yourself next time

In.