Results 1 to 5 of 5

Thread: Ive decided to abandon my taibocleanup script

  1. #1
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Arrow Ive decided to abandon my taibocleanup script

    For good reasons... the tpa functions arent calibrated for my needs of this script and i lack the knowledge to do it based entirely off the math functions

    with no further adue here is my work














    those are my images that i run debug tests on...

    here is the script.. hardly any progress yikes...

    Simba Code:
    program new;
    {$I SRL\SRL.SIMBA }



    //GETTING POISIOND
    FUNCTION ISPOISONED : BOOLEAN ;

    VAR
    A , B , X , Y , I , Z , W , H , J , C , CTS : INTEGER ;
      TIA1 : TINTEGERARRAY ;
        POINT1 , POINT2 , POINT3 : TPOINT ;
          TPA1 , TPA2 , TPA3 , TPA4 : TPOINTARRAY ;
            ATPA1 , ATPA2 , ATPA3 , ATPA4 , ATPA5 : T2DPOINTARRAY ;
              BOX1 , BOX2 , BOX3 : TBOX ;
                TBA1 , TBA2 , TBA3 : TBOXARRAY ;

    BEGIN
    BOX1 := PointToBox ( POINT ( 682 , 12 ) , POINT ( 723 , 46 ) ) ; //SEARCH BOX
      GetClientDimensions ( W , H ) ;
        CTS := GetColorToleranceSpeed ;
          ColorToleranceSpeed ( 2 ) ;
            SetColorspeed2Modifiers ( 0.04 , 0.29 ) ;
              FindColorsSpiralTolerance ( x , y , TPA1 , 2603787 , BOX1 . X1 , BOX1 . Y1 , BOX1 . X2 , BOX1 . Y2  , 10 ) ; // GREEN COLOR
                SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                  ColorToleranceSpeed ( CTS ) ;

    IF
    LENGTH ( TPA1 ) < 1

    THEN
    EXIT ;

    CTS := GetColorToleranceSpeed ;
      ColorToleranceSpeed ( 2 ) ;
        SetColorspeed2Modifiers ( 0.07 , 0.42 ) ;
          FindColorsSpiralTolerance ( x , y , TPA2 , 204691 , BOX1 . X1 , BOX1 . Y1 , BOX1 . X2 , BOX1 . Y2  , 7 ) ; // RED COLOR
            SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
              ColorToleranceSpeed ( CTS ) ;

    IF
    LENGTH ( TPA2 ) < 1

    THEN
    EXIT ;
      CombineTPAWrap  ( TPA1 , TPA2 , TPA3 ) ;

    IF
    LENGTH ( TPA3 ) < 1

    THEN
    EXIT ;
      RESULT := TRUE ;

    END;
    //





    // GETTING ATTACKED
    FUNCTION ISATTACKED : BOOLEAN ;

    VAR
    A , B , X , Y , I , Z , W , H , J , C , CTS : INTEGER ;
      TIA1 : TINTEGERARRAY ;
        POINT1 , POINT2 , POINT3 : TPOINT ;
          TPA1 , TPA2 , TPA3 , TPA4 : TPOINTARRAY ;
            ATPA1 , ATPA2 , ATPA3 , ATPA4 , ATPA5 : T2DPOINTARRAY ;
              BOX1 , BOX2 , BOX3 : TBOX ;
                TBA1 , TBA2 , TBA3 : TBOXARRAY ;

    BEGIN
    BOX1 := PointToBox ( POINT ( 185 , 95 ) , POINT ( 315 , 170 ) ) ; //SEARCH BOX
      GetClientDimensions ( W , H ) ;
        CTS := GetColorToleranceSpeed ;
          ColorToleranceSpeed ( 2 ) ;
            SetColorspeed2Modifiers ( 0.39 , 0.00 ) ;
              FindColorsSpiralTolerance ( x , y , TPA1 , 10240 , BOX1 . X1 , BOX1 . Y1 , BOX1 . X2 , BOX1 . Y2  , 17 ) ; // BLACK COLOR
                FindColorsSpiralTolerance ( x , y , TPA2 , 52384 , BOX1 . X1 , BOX1 . Y1 , BOX1 . X2 , BOX1 . Y2  , 17 ) ; // GREEN COLOR
                  SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                    ColorToleranceSpeed ( CTS ) ;

    IF
    LENGTH ( TPA1 ) < 1

    THEN
    EXIT ;

    IF
    LENGTH ( TPA2 ) < 1

    THEN
    EXIT ;
      CombineTPAWrap  ( TPA1 , TPA2 , TPA3 ) ;

    IF
    LENGTH ( TPA3 ) < 1

    THEN
    EXIT ;
      RESULT := TRUE ;

    END;
    //



    // MED JUNGLE
    FUNCTION
    FIND_MEDJUNGLE : BOOLEAN ;

    VAR
    A , B , X , Y , I , Z , W , H , J , C , CTS : INTEGER ;
      TIA1 : TINTEGERARRAY ;
        POINT1 , POINT2 , POINT3 : TPOINT ;
          TPA1 , TPA2 , TPA3 , TPA4 : TPOINTARRAY ;
            ATPA1 , ATPA2 , ATPA3 , ATPA4 , ATPA5 : T2DPOINTARRAY ;
              BOX1 , BOX2 , BOX3 : TBOX ;
                TBA1 , TBA2 , TBA3 : TBOXARRAY ;


    BEGIN
    GetClientDimensions ( W , H ) ;
      CTS := GetColorToleranceSpeed ;
        ColorToleranceSpeed ( 2 ) ;
          SetColorspeed2Modifiers ( 0.04 , 0.16 ) ;
            FindColorsSpiralTolerance ( x , y , TPA1 , 2848399 , 0 , 0 , W - 1 , H -1  , 3 ) ; // WOOD COLOR
              SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                ColorToleranceSpeed ( CTS ) ;


    IF
    LENGTH ( TPA1 ) < 1

    THEN
    EXIT ;
      CTS := GetColorToleranceSpeed ;
        ColorToleranceSpeed ( 2 ) ;
          SetColorspeed2Modifiers ( 0.02 , 0.19 ) ;
            FindColorsSpiralTolerance ( x , y , TPA2 , 2788453 , 0 , 0 , W - 1 , H -1  , 3 ) ; // LEAF COLOR
              SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                ColorToleranceSpeed ( CTS ) ;


    IF
    LENGTH ( TPA2 ) < 1

    THEN
    EXIT ;
      CombineTPAWrap ( TPA1 , TPA2 , TPA3 ) ;
        SplitTPAExWRAP ( TPA3 , 12 , 12 , ATPA1 ) ;

    FOR
    I := 0

    TO
    HIGH ( ATPA1 )

    DO

    BEGIN
      SetArrayLength ( TBA1 , I + 1 ) ;
        SetArrayLength ( ATPA2 , I + 1 ) ;
          SetArrayLength ( TPA4 , I + 1 ) ;
            TBA1 [ I ] := GetTPABounds ( ATPA1 [ I ] ) ;
              TPAFromBoxWrap ( TBA1 [ I ] , ATPA2 [ I ] ) ;
                TPA4 [ I ] := MiddleTPA ( ATPA2 [ I ] ) ;


    END ;
    WAIT ( 250 + RANDOM ( 150 ) ) ;
      MMOUSE ( TPA4 [ 0 ] . X , TPA4 [ 0  ] . Y , 5 , 5 ) ;
        RESULT := TRUE ;

    END ;
    //






    PROCEDURE
    MAIN ;

    VAR
    X , Y : INTEGER ;

    BEGIN
    FIND_MEDJUNGLE ;
      WAIT ( 1000 + RANDOM ( 500 ) ) ;

    IF
    IsUpTextMultiCustom ( [ 'ack' , 'edi' , 'jun' ] )

    THEN

    BEGIN
    WAIT ( 250 + RANDOM ( 150 ) ) ;
      ClickMouse2 ( 1 ) ;

    REPEAT

    IF
    ISATTACKED

    THEN

    BEGIN
    WRITELN ( ' MONSTER ' ) ;

    REPEAT

    IF
    ISPOISONED

    THEN

    BEGIN
    WRITELN ( ' POISONED ' ) ;

    END ;

    UNTIL

    NOT
    ISATTACKED ;
      WRITELN ( ' MONSTER HAS BEEN TROLLED ' ) ;

    END ;

    UNTIL
    FALSE

    END ;

    END ;



    BEGIN
    CLEARDEBUG ;
      SETUPSRL ;
        MAIN ;

    END .

    here is the last debug i was currently working on

    Simba Code:
    program new;
    {$I SRL\SRL.SIMBA }




    function DebugATPAEx(aPoints: T2DPointArray; BmpName: string; Colors: TIntegerArray): Boolean;
    var
       Width, Height, ClientBMP{$ifdef scar}, I, L, h, hh{$endif}: Integer;
       {$ifdef Simba} ATPA : T2DPointArray; {$endif}
       Box : TBox;
    begin
      result := false;
      if length(aPoints) = 0 then
        exit;
      Box := GetATPABounds(aPoints);
      Width := box.x2 - box.x1 + 1;
      Height := box.y2 - box.y1 + 1;
      DisplayDebugImgWindow(Width, Height);
      {$ifdef Simba}
      ClientBMP := BitmapFromClient(box.x1,box.y1,box.x2,box.y2);
      ATPA := CopyATPA(aPoints);
      OffsetATPA(ATPA,point(-box.x1,-box.y1));
      DrawATPABitmap(ClientBMP,ATPA);
      DrawBitmapDebugImg(ClientBMP);
      {$else}
      ClientBMP := BitmapFromString(Width, Height, '');
      CopyClientToBitmap(ClientBMP, box.x1, box.y1, box.x2, box.y2);
      H := High(aPoints);
      for I := 0 to H do
      begin
        HH := High(aPoints[i]);
        for L := 0 to HH do
          FastSetPixel(ClientBMP, aPoints[i][L].X - box.x1, aPoints[i][L].Y - box.y1, Colors[I]);
      end;
      SafeDrawBitmap(ClientBMP, GetDebugCanvas, 0, 0);
      {$endif}
      if BmpName <> '' then
        SaveBitmap(ClientBMP, ScriptPath + BmpName + '.bmp');
      FreeBitmap(ClientBMP);
      Result := True;
    end;


    // MED JUNGLE ALGORITH
    FUNCTION ONE : T2DPOINTARRAY ;

    VAR
    A , B , X , Y , I , Z , W , H , J , C , CTS : INTEGER ;
      TIA1 : TINTEGERARRAY ;
        POINT1 , POINT2 , POINT3 : TPOINT ;
          TPA1 , TPA2 , TPA3 , TPA4 : TPOINTARRAY ;
            ATPA1 , ATPA2 , ATPA3 , ATPA4 , ATPA5 : T2DPOINTARRAY ;
              BOX1 , BOX2 , BOX3 : TBOX ;
                TBA1 , TBA2 , TBA3 : TBOXARRAY ;

    BEGIN
    BOX1 := PointToBox ( POINT ( 247 , 109 ) , POINT ( 334 , 142 ) ) ; //WAZZAII
      GetClientDimensions ( W , H ) ;
        CTS := GetColorToleranceSpeed ;
          ColorToleranceSpeed ( 2 ) ;
            SetColorspeed2Modifiers ( 0.02 , 0.07 ) ;
              FindColorsSpiralTolerance ( W/2 , H/2 , TPA1 , 2185838 , 0 , 0 , W - 1 , H - 1  , 7 ) ; // HE COLOR
                SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                  ColorToleranceSpeed ( CTS ) ;

    IF
    LENGTH ( TPA1 ) < 1

    THEN
    EXIT ;
      SPLITTPAExWrap ( TPA1 , 2 , 2 , ATPA1 ) ;

    FOR
    I := 0

    TO
    HIGH ( ATPA1 )

    DO

    BEGIN
    SetArrayLength ( TPA2 , I + 1 ) ;
      SetArrayLength ( TBA1 , I + 1 ) ;
        SetArrayLength ( TBA2 , I + 1 ) ;
          SetArrayLength ( ATPA2 , I + 1 ) ;
            TBA1 [ I ] := GetTPABounds ( ATPA1 [ I ] ) ;
              TPA2 [ I ] := MiddleBox ( TBA1 [ I ] ) ;
                FilterPointsDist ( ATPA1 [ I ] , 2 , 12 , TPA2 [ I ] . X , TPA2 [ I ] . Y ) ;
                  TBA2 [ I ] := GetTPABounds ( ATPA1 [ I ] ) ;
                    TPAFromBoxWrap ( TBA2 [ I ] , ATPA2 [ I ] ) ;
                      SortATPAFromSize ( ATPA2, 42 , TRUE ) ;
                        WRITELN ( LENGTH ( ATPA2 [ I ] ) ) ;

    END ;
    RESULT := ATPA2 ;

    END;
    //



    begin
    CLEARDEBUG ;
    SETUPSRL ;

    DebugATPAEx(ONE,'mspaintsimbaex',[CLWHITE ] ) ;


    end.


    here are some of the rest of some of the unadded snippets

    Simba Code:
    // MED JUNGLE ALGORITH
    FUNCTION ONE : T2DPOINTARRAY ;

    VAR
    A , B , X , Y , I , Z , W , H , CTS : INTEGER ;
      TIA1 : TINTEGERARRAY ;
        POINT1 , POINT2 , POINT3 : TPOINT ;
          TPA1 , TPA2 , TPA3 , TPA4 : TPOINTARRAY ;
            ATPA1 , ATPA2 , ATPA3 , ATPA4 , ATPA5 : T2DPOINTARRAY ;
              BOX1 , BOX2 , BOX3 : TBOX ;
                TBA1 , TBA2 , TBA3 : TBOXARRAY ;

    BEGIN
    GetClientDimensions ( W , H ) ;
      CTS := GetColorToleranceSpeed ;
        ColorToleranceSpeed ( 2 ) ;
          SetColorspeed2Modifiers ( 0.04 , 0.23 ) ;
            FindColorsSpiralTolerance ( x , y , TPA1 , 2649477 , 0 , 0 , W - 1 , H -1  , 3 ) ; // WOOD COLOR
              SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                ColorToleranceSpeed ( CTS ) ;

    IF
    LENGTH ( TPA1 ) < 1

    THEN
    EXIT ;
      CTS := GetColorToleranceSpeed ;
        ColorToleranceSpeed ( 2 ) ;
          SetColorspeed2Modifiers ( 0.04 , 0.19 ) ;
            FindColorsSpiralTolerance ( x , y , TPA2 , 2987115 , 0 , 0 , W - 1 , H -1  , 2 ) ; // LEAF COLOR
              SetColorspeed2Modifiers( 0.2 , 0.2 ) ;
                ColorToleranceSpeed ( CTS ) ;
                  SplitTPAExWRAP ( TPA1 , 21 , 21 , ATPA1 ) ;

    FOR
    I:=0

    TO
    HIGH(ATPA1)

    DO

    BEGIN
      SetArrayLength ( TBA1 , I + 1 ) ;
        SetArrayLength ( ATPA2 , I + 1 ) ;
          SetArrayLength ( TPA3 , I + 1 ) ;
            SetArrayLength ( ATPA3 , I + 1 ) ;
              TBA1 [ I ] := GetTPABounds ( ATPA1 [ I ] ) ;
                TPAFromBoxWrap ( TBA1 [ I ] , ATPA2 [I ] ) ;

    IF

    PointInTPA ( TPA2 [ I ] , ATPA2 [ I ] )

    THEN
    DeleteValueInATPA ( ATPA2 , I ) ;

    END ;
    RESULT := ATPA2 ;

    END;
    //



    lastly some hue and color alternatives for different colors because they change

    Simba Code:
    .1
    SetColorspeed2Modifiers ( 0.02 , 0.07 ) ;
            FindColorsSpiralTolerance ( x , y , TPA1 , 3310752 , 0 , 0 , W - 1 , H -1  , 7 ) ; // WOOD COLOR        


    .2
    SetColorspeed2Modifiers ( 0.04 , 0.16 ) ;
            FindColorsSpiralTolerance ( x , y , TPA1 , 2848399 , 0 , 0 , W - 1 , H -1  , 3 ) ; // WOOD COLOR


    .1
    SetColorspeed2Modifiers ( 0.04 , 0.05 ) ;
            FindColorsSpiralTolerance ( x , y , TPA2 , 2786913 , 0 , 0 , W - 1 , H -1  , 5 ) ; // LEAF COLOR


    .2
    SetColorspeed2Modifiers ( 0.02 , 0.19 ) ;
            FindColorsSpiralTolerance ( x , y , TPA2 , 2788453 , 0 , 0 , W - 1 , H -1  , 3 ) ; // LEAF COLOR


    Thats all, im done working on this, id rather play runescape then spend the time to put this thing together...

    ya noe bot as i need to, prolly make a good auto walker or some sheit simple...

  2. #2
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is it actually worthwhile to do this? Don't you just get into the trees which are poor gp?

  3. #3
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    proboscis sells high, and it was for fun...

  4. #4
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    What exactly is the point of this activity? I don't play anymore and haven't done that since I did the quest.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  5. #5
    Join Date
    Sep 2010
    Location
    Azeroth
    Posts
    395
    Mentioned
    0 Post(s)
    Quoted
    17 Post(s)

    Default

    Oh, well you just use your machette with the dense, medium, or light jungle bushes and clear the path... wile choping them down you can get snake hides broodo stuff and proboscis... a fairly common drop from mosquito swarms and each sell for about 10k each plus they stack..


    if you want you can sell everything with the nearby general store and just keep the proboscis...


    also the real point to this is that you get favor points which in return you exchange for use with the rare tree zone i thing its teak or something...

Thread Information

Users Browsing this Thread

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

Posting Permissions

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