Results 1 to 13 of 13

Thread: Project : MultiScript

  1. #1
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Project : MultiScript

    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.

  2. #2
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very, VERY nice!

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

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  4. #4
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  5. #5
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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



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


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


    ----------------------------------------------------
               ...  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;

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


    ----------------------------------------------------
               ...  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 := '-––•(·-><-·)•–––';
      for i := 1 to Length(TimeRunning) + 16 do
        Insert('¤', s, 9);
      Writeln(s);
      Writeln('-––•(·->' + PadL(PadR('Nicbaz Item Buyer & WG', Length(s)/2 + 2), Length(s) - 16) + '<-·)•–––');
      Writeln('-––•(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)•–––');
      If Clays > 0 then
        Writeln(PadR('-––•(·-> '+ m + ' Brought: ' + IntToStr(Clays), Length(s) - 9) + ' <-·)•–––');
      If Cooks > 0 then
        Writeln(PadR('-––•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) -  9) + ' <-·)•–––');
      If Fish > 0 then
        Writeln(PadR('-––•(·-> Profit Made: ' + IntToStr(Fish), Length(s) - 9) + ' <-·)•–––');
      Writeln('-––•(·-> Time Running: ' + TimeRunning + ' <-·)•–––');
      Writeln(s);
      Writeln('Player Info:');
      Disguise(PadR('-•(Loads Done: ' + IntToStr(Cooks), Length(s) -  9) + '                         <-·)•–––');
      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;

  6. #6
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Uptaded first post.

    Added some more stuff.

    Feel free to give feedback and ideas on requests!!

  7. #7
    Join Date
    May 2007
    Location
    Sydney, Australia (Faggot Region)
    Posts
    1,465
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

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


  8. #8
    Join Date
    Apr 2007
    Location
    England
    Posts
    313
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Wows those forms are cool, please tell me your secrets!
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  10. #10
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    Noidea, Tuts is your way to go

  11. #11
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dayumm! This is looking VERY nice!

  12. #12
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Reflection or no?
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  13. #13
    Join Date
    May 2008
    Location
    Mental Hospital
    Posts
    414
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    looks nice

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. In need of a new project.
    By Dervish in forum RS3 Outdated / Broken Scripts
    Replies: 23
    Last Post: 02-07-2011, 12:26 AM
  2. Looking for a new project
    By NiCbaZ in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 08-22-2008, 05:47 AM
  3. Can I Add A Runescpeclient into a VB Project?
    By Tv-XxX in forum C#/Visual Basic Help and Tutorials
    Replies: 14
    Last Post: 05-10-2008, 09:28 PM
  4. Project K (PK) Aid.
    By Ownt? in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 11-24-2007, 01:30 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •