SRL Archive - RS3 Outdated / Broken Scripts

Ive just started with a MultiScript that will be single player and it be focusing on Main accounts!, At first i be doing Fighting then moving on to money making and hopefully get done with my Chin hunter.
This project will be Members only. Want it? Learn how to script, Simple!

However, How would you Users want it to be constructed?

Current look is this.

10/11 - New - Continued on form and the mainloop

Date missing - Old - Just started up.


Any feedback will be accepted as long you don't spam.

Very, VERY nice!

I think the form should be bigger, showing what to put where, etc.

Wow Great, but the only thing I c is a picture of a form.

I figured that i would need that aswell…
So right now im creating a botton next to location which will make another form come up with text explaining where to start it and what to equip and so on.

Thanks for the post. <3

Hermpie : I got a 35 - 50% done chinner with a working pickup and laydown system :), also got a fully working Rock crab killer which will be implented to this. So i got alot exept this picture :)

I got some Color Stuff for you, is color ok?



-Choclate buyer - 80 Flawless
- Pizza Buyer - 90% Flawless
- Potatoe Buyer - 90 % Flawless

{
 __  __       _ _   _  _____           _       _
|  \/  |     | | | (_)/ ____|         (_)     | |
| \  / |_   _| | |_ _| (___   ___ _ __ _ _ __ | |_
| |\/| | | | | | __| |\___ \ / __| '__| | '_ \| __|
| |  | | |_| | | |_| |____) | (__| |  | | |_) | |_
|_|  |_|\__,_|_|\__|_|_____/ \___|_|  |_| .__/ \__|
                                        | |
                                        |_|


----------------------------------------------------
           ...  Money Making Include   ...
                Choc, Pizza, Potatoe
----------------------------------------------------
     _____
    / ____|
   | |     ___  _ __ ___
   | |    / _ \| '__/ _ \
   | |___| (_) | | |  __/
    \_____\___/|_|  \___|


----------------------------------------------------
           ...  Money Making Include   ...
                Choc, Pizza, Potatoe
----------------------------------------------------

 }


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure Banking;
By: Nicbaz
Description: Banks the items
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Banking;
var
  x, y,DTM: Integer;

begin
  SetAngle(true);
  If Not LoggedIn then
    Exit;
  FindNormalRandoms;
  Wait(300 + random(160));
  Writeln(Players[CurrentPlayer].Name + ': Is at the Banking');

  if isFkeyDown(12) then showCurrentScreen;
  case m of

  'pizza':  DTM := DTMFromString('78DA633CC4C8C0308501056CDF2ACEC00FA48' +
       '1320CFF8180710F90D5C58006189148207D12C89A4740CD56206B' +
       '1601356781AC7E026ACE03595309A8D902644DC0AF0600085D0F0' +
       '0');

  'potatoe' :   DTM := DTMFromString('78DA63AC61606028604001DBB78933F000694' +
       '620FE0F048C20F95C5435CB6714826946289FB10D4814A1AAE996' +
       '13849B0356530C24CA70AB6102620080A60C7D');

  'choc':    DTM := DTMFromString('78DA632C636060C867400109D6CA0CD381342' +
       '310FF0702C60620A390010D30229140BA1C4864105003B2A78C80' +
       '9A2A20518E5F0D00FB3A09EB');


  end;
  if isFkeyDown(12) then showCurrentScreen;
  repeat
    case m of
      'pizza','potatoe': OpenBankWg(3586770,'w');
      'choc':  OpenBankWg(2642543,'w');
    end;
    Tries := Tries + 1;
  Until ((BankScreen) Or (Tries > 5) or (PinScreen));

  If BankScreen Then
  Begin
    if isFkeyDown(12) then showCurrentScreen;
    wait(1000+random(200));
    FixBank;
    wait(300+random(200));
    if cooks = 0 then
      QuickBanking;
    wait(300+random(200));
    if(FindDTM(DTM,x,y,mix1, miy1, mix2, miy2))then
    begin
      Mouse(x, y, 4, 3, false);
      ChooseOption('All');
      Wait(300 + random(160));
      if cooks > 0 then
        QuickBanking;
      Wait(300 + random(160));
    end;
  end;
  case random(3) of
    0,1: Wait(1);
    2:CloseBank;
  end;
  FreeDTM(DTM);
  Writeln(Players[CurrentPlayer].Name + ': Is Finished Banking');
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure ByThePizza;
By: Nicbaz  & Gurt- idears from his script..
Description: Buys da Items
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Procedure ByPizza;
var
  DTM,KZ,ll: Integer;
begin
  if isFkeyDown(12) then showCurrentScreen;
   Writeln(Players[CurrentPlayer].Name + ': Is Looking for Shop Keeper');

  case m of
     'pizza':    DTM := DTMFromString('78DA633CC4C8C0308501056CDF2ACEC00FA48' +
       '1320CFF8180710F90D5C58006189148207D12C89A4740CD56206B' +
       '1601356781AC7E026ACE03595309A8D902644DC0AF0600085D0F0' +
       '0');

     'potatoe' :   DTM := DTMFromString('78DA63AC61606028604001DBB78933F000694' +
       '620FE0F048C20F95C5435CB6714826946289FB10D4814A1AAE996' +
       '13849B0356530C24CA70AB6102620080A60C7D');

     'choc':    DTM := DTMFromString('78DA632C636060C867400109D6CA0CD381342' +
       '310FF0702C60620A390010D30229140BA1C4864105003B2A78C80' +
       '9A2A20518E5F0D00FB3A09EB');
  end;

  FindNormalRandoms;

  if not (loggedIn) then
    Exit;
  MarkTime(Betty);
  SymbolAccuracy := 0.4;
  repeat
    if isFkeyDown(12) then showCurrentScreen;

    case m of
      'potatoe','pizza': if (Find(7099990,'idio')) then Break;
      'choc':            if (Find(6251430,'okuh')) then Break;
    end;

    if TimeFromMark(Betty) > 14000 then
    Begin
      Writeln(' Lost Trying to get Back');
      Inc(Kz);

      if Losts Then
      begin
        Writeln(' Near Black OutLine');
        Mouse(647,31,6,6,true);
        Flag;
        if (FindSymbol(x,y,'water'))then
        begin
          Mouse(x,y+12,2,2,true);
          Flag;
        end;
      end else
      if (FindSymbol(x,y,'water'))then
      begin
        Mouse(x,y +12,2,2,true);
        Flag;
      end;

      case m of
        'potatoe','pizza': if (FindNPC(7099990,'idio')) then Break;
        'choc':            if (FindNPC(6251430,'okuh')) then Break;
      end;

      if Kz > 3 then
      begin
        Writeln(' We Are Lost ');
        if Not (FindSymbol(x,y,'water'))then
        begin
          Logout;
          Lost:= True;
          Exit;
        end Else
        begin
          Mouse(x,y +12,2,2,true);
          Flag;
          Exit;
        end;
      end;

    if isFkeyDown(12) then showCurrentScreen;
  end;

  until False;
  begin
    FFlag(0);
    MarkTime(WindowTime);
    Status('Waiting for shop screen');
    repeat
      if isFkeyDown(12) then showCurrentScreen;
      if(TimeFromMark(WindowTime) > 15000)then
      begin
        if m = 'choc' then
          Mouse(639,36,5,5,true);
        Flag;
        ByPizza;
        Exit;
      end;
    until(GetColor(61,308) = 0);

    if(not(GetColor(56,75) = 2070783))then
    MarkTime(Betty1);
    repeat
      if isFkeyDown(12) then showCurrentScreen;
       if not (loggedIn) then
         Exit;
       wait(2000 + random(500));
       if(FindDTM(DTM,x,y,msx1,msy1,msx2,msy2))then
       begin
         Status('buyin the Potates');
         Mouse(x,y,3,3,False);
         ChooseOption('X');
         begin
           Wait(1000+random(300));
           TypeSend(IntToStr(27+random(10)));
           Break;
         end;
       end;
     until(TimeFromMark(Betty1) > 15000);
   end;
   FreeDTM(DTM);
   case random(3) of
    0,1: Wait(1);
    2:CloseWindow;
  end;
  Writeln(Players[CurrentPlayer].Name + ': Has Just Brought 27 '+ m +'s');
end;


Procedure DoTheBankWalk;
var
  DTMz: Integer;

begin
  Writeln(Players[CurrentPlayer].Name + ': Is Walking To The Bank');
  If Not LoggedIn then
    Exit;
  case m of
    'choc':
    begin
      if isFkeyDown(12) then showCurrentScreen;
      SymbolAccuracy:=0.8;
      DTMz := DTMFromString('78DA638C646260C86200032608C5D05C17C1F' +
       '01F483302F17F20600C01CA24A2AAF9F38789811FAA0604188381' +
       '32A9B8D530C2D4E4A0AAF9FA9501AE0624C61808244B709BC30CC' +
       '4007A981241');

    //  If not RadialWalk(ChocRoadColor,253,267,60,3,3) then
      begin
        Mouse(571,99,7,7,true);
        Flag;
      end;
      if isFkeyDown(12) then showCurrentScreen;

      if not FindSymbol(x, y, 'bank') then
      begin
        if DTMRotated(DTMz, x, y,  MMX1, MMY1, MMX2, MMY2) then
        begin
          if isFkeyDown(12) then showCurrentScreen;
          Mouse(x -2 , y +2 , 2, 2, true);
          FFlag(0);
          Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
          Exit;
        end else

        begin
          if isFkeyDown(12) then showCurrentScreen;
          Mouse(596,65-9 ,5,5,true);
          FFlag(0);
          Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
          exit;
        end;

        if FindSymbol(x, y, 'bank') then
        begin
          if isFkeyDown(12) then showCurrentScreen;
          Mouse(x , y , 2-9, 2, true);
          FFlag(0);
          Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
          Exit;
        end;

      end;
      if isFkeyDown(12) then showCurrentScreen;
      Mouse(x , y -7 , 2, 2, true);
      FFlag(0);
      Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
      Exit;
    end;

   'pizza','potatoe':
    begin
      SymbolAccuracy:=0.4;
      DTMz := DTMFromString('78DA6334676160F8CB80023278C518FE03694' +
           '620FE0F048C1640355F50D5FCF9C3C420005503028C6A4035EF51' +
           'D578C830C0D58030000F4D0B8D');

      FindNormalRandoms;
      if isFkeyDown(12) then showCurrentScreen;
      if DTMRotated(DTMz, x, y,  MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x -2 , y +7 , 2, 2, true);
        FFlag(0);
        Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
      end else
      begin
        if isFkeyDown(12) then showCurrentScreen;
        Writeln('Mut');
        if  FindSymbol(x, y, 'bank') then
        begin
          Mouse(x -5  , y +10 , 2, 2, true);
          FFlag(0);
          Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
        end else
        begin
          if isFkeyDown(12) then showCurrentScreen;
          Writeln('Muta');
          Mouse(596,102,4,4,true);
          Flag;
          Writeln(Players[CurrentPlayer].Name + ': Is at the Bank');
        end;
      end;
      FreeDtm(DTMz);
      if isFkeyDown(12) then showCurrentScreen;
    end;
  end;
end;


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure WalkToMain;
By: Nicbaz
Description: Walks To The Cross Roads In Fally
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure WalkToMain;
var
  DTM: integer;

begin
  if isFkeyDown(12) then showCurrentScreen;
  case m of
  'pizza','potatoe':  DTM := DTMFromString('78DA639CCBC4C0E0C900066C108AC1D3DD85C' +
       '108483302F17F2060EC06AA716440015F81F817540D0830F603D5' +
       '2441D8AC5031334B530625A81A100600A9670A73');

  'choc':  DTM := DTMFromString('78DA639CCFC4C060C10006CC108AA1B92E82E' +
       '13F906604E2FF40C03819A8C68401053C7BF68C410EAA060418DB' +
       '806AAC09A80199238FA9468711A10600A14311F8');
  end;

  Writeln(Players[CurrentPlayer].Name + ': Is Starting To Walk To the '+ m +' shop');
  case m of
    'choc':
    begin
      if isFkeyDown(12) then showCurrentScreen;
       SymbolAccuracy:=0.4;
     //  If not RadialWalk(ChocRoadColor,110,120,60,3,3) then
       begin
         Mouse(687,98,9,9,true);
         Flag;
       end;
       if not FindSymbol(x, y, 'water') then
       begin
         Mouse(651,51,9,9,true);
         Flag;
         if isFkeyDown(12) then showCurrentScreen;
         if DTMRotated(DTM, x, y,  MMX1, MMY1, MMX2, MMY2) then
         begin
            Mouse(X,Y,3,3,true);
            Flag;
            Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
            Exit;
         end;
         if isFkeyDown(12) then showCurrentScreen;
         Flag;
         Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
       end;
       begin
        if isFkeyDown(12) then showCurrentScreen;
        Mouse(X,Y+13+random(7),4,4,true);
        Flag;
        Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
        Exit;
      end;
    end;
    'pizza','potatoe':
    begin
      if isFkeyDown(12) then showCurrentScreen;
      SymbolAccuracy:=0.4;
      if not FindSymbol(x, y, 'food shop') then
      begin
        Begin
          if isFkeyDown(12) then showCurrentScreen;
          Mouse(670,78,7,7,true);
          Flag;
          Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
          Exit;
        end;
      end;
      if isFkeyDown(12) then showCurrentScreen;
      Mouse(X,Y,4,4,true);
      Flag;
      Writeln(Players[CurrentPlayer].Name + ': Is at the '+ m + ' shop');
      Exit;
    end;
  end;
end;

{
 __  __       _ _   _  _____           _       _
|  \/  |     | | | (_)/ ____|         (_)     | |
| \  / |_   _| | |_ _| (___   ___ _ __ _ _ __ | |_
| |\/| | | | | | __| |\___ \ / __| '__| | '_ \| __|
| |  | | |_| | | |_| |____) | (__| |  | | |_) | |_
|_|  |_|\__,_|_|\__|_|_____/ \___|_|  |_| .__/ \__|
                                        | |
                                        |_|


----------------------------------------------------
           ...  Money Making Include   ...
                Choc, Pizza, Potatoe
----------------------------------------------------
 ______                _   _
|  ____|              | | (_)
| |__ _   _ _ __   ___| |_ _  ___  _ __  ___
|  __| | | | '_ \ / __| __| |/ _ \| '_ \/ __|
| |  | |_| | | | | (__| |_| | (_) | | | \__ \
|_|   \__,_|_| |_|\___|\__|_|\___/|_| |_|___/



----------------------------------------------------
           ...  Money Making Include   ...
                Choc, Pizza, Potatoe
----------------------------------------------------
                  FULL SCRIPT VAR's
----------------------------------------------------

}
var
  x,y: Integer;
  Betty,WindowTime,Betty1: integer;
  cooks, fish,i,clays,tries,Meh  : integer;
  s: string;
  Loads,Mo: integer;
  Lost: Boolean;

procedure showCurrentScreen;  forward;
procedure MainLoop;  forward;


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure DebugATPA(aPoints: T2DPointArray);
By: Nicbaz & Wizzup
Description: Draws all the ATPA Points
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure DebugATPA(aPoints: T2DPointArray);
var
   ClientBMP, I, I2: Integer;
   Pic: TBox;

Begin
  If Debug = false then
    Exit;
  Pic := GetATPABounds(aPoints);
  DisplayDebugImgWindow(Pic.x2 - Pic.x1, Pic.y2 - Pic.y1);
  ClientBMP := BitmapFromString(Pic.x2 - Pic.x1, Pic.y2 - Pic.y1, '');
  CopyClientToBitmap(ClientBMP, Pic.x1, Pic.y1, Pic.x2, Pic.y2);
  for I := 0 to High(aPoints) do
  begin
    for I2 := 0 to High(aPoints[i]) do
      FastSetPixel(ClientBMP, aPoints[i][I2].X - Pic.x1, aPoints[i][I2].Y - Pic.y1, Random(839894));
  end;
  SafeDrawBitmap(ClientBMP, GetDebugCanvas, 0, 0);
  FreeBitmap(ClientBMP);
end;



{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function OpenBankWg: Boolean;
By: SRL include Mod By Nicbaz
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function OpenBankWg(col: integer; angle:string): Boolean;
var
  x, y, i, c, k: Integer;
  Booths, t: TPointArray;
begin
  Wait(400+random(200));
  MakeCompass(angle);
  k := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);
  FindColorsSpiralTolerance(MSCX, MSCY, Booths, col, MSX1, MSY1, MSX2, MSY2, 14);
  ColorToleranceSpeed(k);
  SetArrayLength(t, 0);
  t := Booths;
  SetArrayLength(Booths, 0);
  Booths := ReArrangeAndShortenArray(t, 14);
  for i := 0 to GetArrayLength(Booths) -1 do
  begin
    if (not LoggedIn) or BankScreen or PinScreen then
      Break;
    MMouse(Booths[i].X, Booths[i].Y, 3, 3);
    Wait(75 + Random(75));
    case m of
      'pizza','potatoe': if not IsUpText('ade') Then ConTinue;
      'choc': if not IsUpText('ooth') Then ConTinue;
    end;
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, False);
      Wait(70 + Random(75));
      case m of
        'pizza','potatoe': if not ChooseOption('ank') then Continue;
        'choc': if not ChooseOption('uickly') Then Continue;
      end;
      begin
        FFlag(0);
        MarkTime(c);
        repeat
          Wait(100+random(30));
        until (BankScreen) or (PinScreen) or (TimeFromMark(c) > 3000);
      end;
    end;
  end;
  Result := (BankScreen) or (PinScreen);
end;


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function CountPlayers: Integer;
By: Nicbaz
Description: Counts the Players on the MM
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function CountPlayers: Integer;
var
  Player       : TPointArray;
  D2TPA        : T2DPointArray;
  I, Final2DPA : Integer;

begin
  FindColorsSpiralTolerance(MMCX, MMCY, Player, 45634536, MSX1, MSY1, MSX2, MSY2, 30);
  D2TPA:= TPAtoATPAEx(Player,3,5);
  DebugATPA(D2TPA);
  for i := 0 to GetArrayLength(D2TPA) -1 /4 do
    Result:= Result + 1;

  Final2DPA:= GetArrayLength(D2TPA) -1 / 4;
  Writeln(' There Are Currently '+ IntToStr(Final2DPA) +' On the MiniMap');
end;


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure Proggie;
By: Nicbaz
Description: Progress report
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure Proggie;
begin
  Writeln('');
  s := '-&#8211;&#8211;&#8226;(·-><-·)&#8226;&#8211;&#8211;&#8211;';
  for i := 1 to Length(TimeRunning) + 16 do
    Insert('¤', s, 9);
  Writeln(s);
  Writeln('-&#8211;&#8211;&#8226;(·->' + PadL(PadR('Nicbaz Item Buyer & WG', Length(s)/2 + 2), Length(s) - 16) + '<-·)&#8226;&#8211;&#8211;&#8211;');
  Writeln('-&#8211;&#8211;&#8226;(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)&#8226;&#8211;&#8211;&#8211;');
  If Clays > 0 then
    Writeln(PadR('-&#8211;&#8211;&#8226;(·-> '+ m + ' Brought: ' + IntToStr(Clays), Length(s) - 9) + ' <-·)&#8226;&#8211;&#8211;&#8211;');
  If Cooks > 0 then
    Writeln(PadR('-&#8211;&#8211;&#8226;(·-> Loads Done: ' + IntToStr(Cooks), Length(s) -  9) + ' <-·)&#8226;&#8211;&#8211;&#8211;');
  If Fish > 0 then
    Writeln(PadR('-&#8211;&#8211;&#8226;(·-> Profit Made: ' + IntToStr(Fish), Length(s) - 9) + ' <-·)&#8226;&#8211;&#8211;&#8211;');
  Writeln('-&#8211;&#8211;&#8226;(·-> Time Running: ' + TimeRunning + ' <-·)&#8226;&#8211;&#8211;&#8211;');
  Writeln(s);
  Writeln('Player Info:');
  Disguise(PadR('-&#8226;(Loads Done: ' + IntToStr(Cooks), Length(s) -  9) + '                         <-·)&#8226;&#8211;&#8211;&#8211;');
  for i := 0 to HowManyPlayers - 1 do
    Writeln('  ' + Capitalize(Players[i].nick) + ': ' + Players[i].loc + ':' + +booltostr(Players[i].Active) + ':' );
  Writeln('');
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function ChocRoadColor: Integer;
By: Nicbaz
Description: AutoColors The Road
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function ChocRoadColor: Integer;
var
  H,S,L,X,Y,Z : Extended;
  R,G,B,A,TestColor : Integer;
  TPA : TPointArray;

begin
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, 6787735, MMX1, MMY1, MMX2, MMY2, 60)
  for A := 0 to  High(TPA) do
  begin
    if RS_OnMinimap(TPA[A].X, TPA[A].Y) then
    begin
    TestColor := GetColor(TPA[A].X, TPA[A].Y);
    if SimilarColors(TestColor, 6787735, 50) then
    begin
      ColorToRGB(TestColor, R, G, B);
      ColorToHSL(TestColor, H, S, L);
      ColorToXYZ(TestColor, X, Y, Z);
      if InRange(R - G, -15, 25) then
       if InRange(R - B, 28, 68) then
        if InRange(G - B, 23, 63) then
         if InRange(Round(X) - Round(Y), -10, 4) then
          if InRange(Round(Y) - Round(Z), 4, 18) then
           if GetColor(TPA[A].X + 2, TPA[A].Y + 2) = TestColor then
            if GetColor(TPA[A].X + 1, TPA[A].Y + 1) = TestColor then
            begin
              Writeln('ChocRoadColor = '+Inttostr(TestColor));
              Result := TestColor;
              Exit;
            end;
      end;
    end;
    Result := 0;
  end;
end;


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure QuickBanking;
By: SRL Include Modded By Nicbaz
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure WithdrawM(col, row, Amount: Integer);
Var
  BBox: TBox;

begin
  FixBankTab;
  BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col - 1, Row - 1)));
  If Amount = 1 Then
  Begin
    MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, 1);
    Wait(RandomRange(50, 150));
  End
  Else
  Begin
    MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, 3);
    wait(300+random(100));
    if IsUpText('oins') then
    begin
        MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, 2);
      if InIntArray([5, 10], Amount) then
        ChooseOption('Withdraw-' +IntToStr(Amount))
      else if Amount = 0 then
        ChooseOption('Withdraw-All')
      else
      if (ChooseOption('Withdraw-X')) then
      begin
        Wait(1000 + Random(200));
        TypeSend(IntToStr(Amount));
      end;
    End else
    begin
      Inc(Mo);
      if Mo > 5 then
      begin
        NextPlayer(False);
        Exit;
      end;
      Writeln(' Money Not found.');
      Exit;
    end;
  end;
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure QuickBanking;
By: Nicbaz
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure QuickBanking;
begin
  FindNormalRandoms;
  begin
    case m of
      'pizza': WithdrawM(1,1,5400+random(100));
      'potatoe'  : WithdrawM(1,1,9500+random(100));
      'choc' : WithdrawM(1,1,27*20+random(100));
    end;
    Wait(500+random(300));
  end;
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function Find: Boolean;
By: Nicbaz
Description: FindS the keeper
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function FindNPC(color: integer; text: string): Boolean;
Var
  TPAs: TPointArray;
  TPA:  Tpoint;
  D2TPA: T2DPointArray;
  X,Y,I: Integer;

Begin
  if isFkeyDown(12) then showCurrentScreen;
  FindColorsSpiralTolerance(x,y,TPAs,color,MSX1, MSY1, MSX2,MSY2,12);
  If length(TPAs) = 0 Then
    Exit;
  D2TPA:= TPAtoATPAEx(TPAs,13,13);
  DebugATPA(D2TPA);
  For i:= 0 to length(D2TPA) - 1 Do
  begin
    if isFkeyDown(12) then showCurrentScreen;
    TPA:= MiddleTPA(D2TPA[i]);
    MMouse(TPA.X, TPA.Y, 0, 0);
    Wait(150 + Random(50));
    If IsUpText(text) Then
    begin
      X:= TPA.X
      Y:= TPA.Y
      Mouse(x,y,2,2,false);
      Wait(150 + Random(50));
      Result:=ChooseOption('rade');
      Exit;
    end;
  end;
  Result:= False;
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function Lost : Boolean;
By: Nicbaz
Description: See's if your lost
Status: Goof
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function losts : Boolean;
begin
  Result:= CountColor(65536,mmx1,mmy1,mmx2,mmy2) > 500;
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure showCurrentScreen;
By: Munk
Description: Debugs the SMART screen
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure showCurrentScreen;
var
  w,h,bmp:integer;
begin
  try
    getClientDimensions(w,h);
    displayDebugImgWindow(766,504);
    bmp:=bitmapFromString(w,h,'');
    CopyClientToBitmap(bmp,0,0,w,h);
    safeCopyCanvas(GetBitmapCanvas(bmp),GetDebugCanvas,0,0,w,h,0,0,w,h);
  except
    writeln('couldnt copy canvas');
  end;
  freeBitMap(bmp);
end;


{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function MehBreakTorz: Boolean;
By: Nicbaz
Description: Takes A Break
Status: yeahhh
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
Function MehBreakTorz: Boolean;
var
  BreakFor,T,H,Oh,S : integer;

begin
  if isFkeyDown(12) then showCurrentScreen;
  Result:= False;
  If TimeFromMark(Meh) > 20*60000 +Random(10*60000) then
  begin
    Writeln(Players[CurrentPlayer].Name + (' : Sleeping '));
    if (Cooks <= 10) and (Cooks   > 1)  then
      BreakFor:= (2*60000+random(3*60000));
    if (Cooks <= 20 ) and (Cooks  > 10)  then
      BreakFor:= (4*60000+random(3*60000));
    if (Cooks <= 30 ) and (Cooks  > 20)  then
      BreakFor:= (5*60000+random(3*60000));
    if (Cooks <= 40 ) and (Cooks  > 30)  then
      BreakFor:= (6*60000+random(3*60000));
    if (Cooks <= 50 ) and (Cooks  > 40)  then
      BreakFor:= (9*60000+random(3*60000));
    if Cooks > 50 then
      BreakFor:= (10*60000+random(5*60000));
    if Cooks > 100 then
      BreakFor:= (15*60000+random(5*60000));

    Result:= True;
    Logout;
    ConvertTime(BreakFor, H, Oh, S);
    MarkTime(T);
    WriteLn(Players[CurrentPlayer].Name + ': Break for: '+inttostr(oh)+ 'm:' +inttostr(S)+ 's');
    Repeat
      if isFkeyDown(12) then showCurrentScreen;
      ConvertTime(BreakFor - TimeFromMark(T), H, oh, S)
      Disguise(inttostr(oh)+ 'm:' +inttostr(S)+ 's Break');
      wait(1000);
    until (BreakFor < TimeFromMark(T))
    T:= 0;
    Meh:= 0;
    BreakFor:= 0;
    MarkTime(Meh);
    begin
      LoginPlayer;
    end;
  end;
end;

{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
procedure MainLoop;
By: Nicbaz
Description: Main Loop Of Script.
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure MainLoop;
begin
  Writeln(Players[CurrentPlayer].Name + ': Has Done '+ IntToStr(Cooks) +' Of '+ m);
  Banking;
  FindNormalRandoms;
  WalkToMain;
  FindNormalRandoms;
  ByPizza;
  FindNormalRandoms
  DoTheBankWalk;
  Cooks := Cooks + 1;
  Clays := Clays + 27;

  case m of
    'pizza':   Fish := Fish + 1890;
    'pat' :   Fish := Fish + 2592;
    'choc' :   Fish := Fish + 27*60;
  end;

  Writeln(Players[CurrentPlayer].Name + ': Has Just Finshed one load');
  Fish := Fish + 1890;
  Proggie;
  SendSrlReport;
  Loads:= Loads + 1;

  if loads = Players[CurrentPlayer].Integers[0] then
    TerminateScript;

  If MehBreakTorz then
      WriteLn(Players[CurrentPlayer].Name + ': Is Finshed Its First Sleep');

  if isFkeyDown(12) then showCurrentScreen;

  if Not LoggedIn then
    TerminateScript;

end;

Uptaded first post.

Added some more stuff.

Feel free to give feedback and ideas on requests!!

Very nice, add hills? deadly red spiders? fleshy crawler?

looking good, but maybe change the font? I dont like it as it looks maybe too old.

Wows those forms are cool, please tell me your secrets!

Pixelate, Do you know any cool fonts then? ( theres like 400 :/ ).

Noidea, Tuts is your way to go :)

Dayumm! This is looking VERY nice!

Reflection or no?

looks nice :)