Results 1 to 5 of 5

Thread: RSPS dhiding script help

  1. #1
    Join Date
    Nov 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default RSPS dhiding script help

    Ok, i'm still learning how to do all this and stuff, but this script is completely crap, please help me how to make it more accurate and crap like that :/.. I'm thinking of using DTMS but would DTMS work for finding a NPC? Uptext doesn't work for RSPS, so I can't use that :/. yes, it does the same EXACT thing over and over, but rsps usually dont have a banning system for botters. so please help me improve it.. not sure what i should begin with. YES I KNOW, the script is complete shit.

    Bascially this script makes green dhides into green d'hide bodys, and sell it to the general store. But the script is horrible, it cannot last longer then 5 minutes without misclicking.. It needs more accurate clicks, so i'm thinking of using DTMS to find the npc, and using uptext when i figure out how to edit it to work for RSPS


    Code:
    program dhiding;
        {.include srl/srl.scar}
    const
    bobcolor=4214624;
    bobcolorback=1646903;
    hide1=543240;
    hide2=540672;
    general=1069210;
    general1=7298904;
    
    procedure openshop; // this opens the shop to where it sells d-hide
    var x,y :integer;
    begin
    if(FindColorSpiralTolerance(x,y,bobcolor,msx1,msy1,msx2,msy2,0) or // this finds the color of bob's head, (the guy who sells it)
    FindColorSpiraltolerance(x,y,bobcolorback,msx1,msy1,msx2,msy2,0)) then // this finds the color of bob's head, (the guy who sells it)
    begin
    Mouse(x,y,0,0,true);
    writeln('found bob');
    wait(1000);
    end;
    end;
    
    procedure purchasehide; // buys the d'hide
    var x,y :integer;
    begin
    if(FindColorSpiralTolerance(x,y,hide1,msx1,msy1,msx2,msy2,0) or // finds the hide
    FindColorSpiraltolerance(x,y,hide2,msx1,msy1,msx2,msy2,0)) then  // finds the hide
    begin
    mouse(x,y,0,0,false); //right clicks the green d'hide
    wait(200);
    mouse(233, 230, 0, 0, true); //clicks the x amount
    wait(400);
    TypeSend('26')
    wait(1000);
    mouse(482, 36,0,0,true); [color="blue]//closes the shop[/color]
    end;
    end;
    
    procedure makehide;
    var x,y :integer;
    begin
    if(FindColorSpiralTolerance(x,y,hide1,638,213,683,246,0) or
    FindColorSpiraltolerance(x,y,hide2,638,213,683,246,0)) then
    begin
    mouse(618,235,0,0,true);
    wait(320);
    mouse(x,y,0,0,true);
    wait(320);
    mouse(410,419,0,0,false);
    wait(200);
    mouse(409, 479,0,0,true);
    wait(1200);
    end else
     begin
     openshop;
     writeln('safe');
    
          end;
    end;
    
    
    procedure opengeneral;
    var x,y:integer;
    begin
    if(FindColorSpiralTolerance(x,y,general,msx1,msy1,msx2,msy2,0) or
    FindColorSpiraltolerance(x,y,general1,msx1,msy1,msx2,msy2,0)) then
    begin
    Mouse(x,y,0,0,true);
    wait(1500);
    if(FindColorSpiralTolerance(x,y,hide1,638,213,683,246,0) or
    FindColorSpiraltolerance(x,y,hide2,638,213,683,246,0)) then
    begin
    Mouse(x,y,0,0,false);
    wait(300);
    Mouse(622,316,0,0,true);
    wait(300);
    mouse(483, 35, 0, 0, true);
    wait(300);
    end;
    end;
    end;
    
    
    
    
    
    begin
    
    ActivateClient;
    
    MouseSpeed := 60
    repeat
    openshop;
    purchasehide;
    makehide;
    opengeneral;
    until(false);
    end.
    Last edited by lolhahauad; 12-21-2011 at 09:27 PM.

  2. #2
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Just to clarify, RSPS= Private Server?
    And yes they use different uptext, so use color or something else to check for proper text.

  3. #3
    Join Date
    Nov 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, thanks for the quick reply, it does stand for RSPS. I'm looking towards adding more fail-safes more then anything else, because this script cannot last longer then 5 minutes :/

  4. #4
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    this is d hide tanning right?


    You might beable to get away without uptext.

    Find the color that exisits the most on the npc and use atpa to pick the biggest area of color.


    Look for all about wizzupplugin on the advanced tutorial section and mainly look for splittpa, middle tpa and sorttpafrom
    Oh Hai Dar

  5. #5
    Join Date
    Nov 2011
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No, it's making dhides into dhide bodys, sorry i forgot to explain that part, and it makes the hides instantly.

    Would using a DTM to find the npc be better? Or using DTMs for npcs doesn't work?
    Last edited by lolhahauad; 12-21-2011 at 09:30 PM.

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
  •