[2007] [Agility] CatchAndRelease - Toy Mouse Catcher

[lazarbeam]

CatchAndRelease

A toy mouse catcher

Version: 0.31

Release Date: 3.13.2013

Version Date: 3.14.2013

 

Description:

Winds, releases, and catches toy mice.

Includes simple debug progress report as of v0.3

Note: The XP/HR is way off. You gain 15 xp for catching the mouse on the first try, and for each fail, you earn another 15 xp. So failing a mouse 3 times then catching it yields 60xp. The XP/HR checks how many mice were actually released, and assumes each was caught on first try. This is a bare minimum XP/HR and you are gaining (much) more.

 

Instructions:

Update to the current MSSL (and OSI if using SMART)

• Use in a small, enclosed area; 2-5 spaces of movement is ideal. In most people's opinions, the smaller the better (I prefer 3-5 personally). The reason I prefer 3-5 is that the mice are spread out just enough such that it can "see" the mice (cannot find mice directly under you). You cannot catch mice in places you are unable to move, nor in front of many (not all) doorways (you'll get a message on RS07 notifying you of this). Non-random areas are also good (though, Pest Control boats are usually occupied).
  
• Set brightness to max.
  
• Do not use where other people are training via this method. Both scripts (assuming they are botting) will mess up and you will "drop" your mice. This script should attempt to pick those up, however.
  
• Avoid setting up the script in an area with a ladder immediately nearby (just as a precaution). It's suggested to not run this in a room where mice will be running alongside or around a ladder.
  
• Begin with all mice in inventory (none on ground).
  
• Have doors and ladders parallel to your view angle.
   
  
  Example:

  
  

  

  
  

 

 

Important:: Babysit the bot. These types of scripts will give 4-6 randoms/hr (heck, I was getting this many randoms legitly spinning flax!). You should not let this script run unattended, especially if it has been 10+ minutes since your last random.

Use at your own risk.

 

I have combined some releases as to not clutter.

ChangeLog:

v0.1
Initial release
v0.2
Added a small wait to improve winding and releasing. 
Added a counter for consecutive clicks
Now uses bitmaps to find mice in inventory, instead of color.
Fixed a bug where the script didn't find as many mice as you actually had.
Included some fail-safe when not finding mice in the inventory.
Added a wait in the wind function to get the up-text more accurately
v0.3
Some wait time adjustments.
Added debug progress report.
v0.31
Fiddled some more with the waits, and drastically changed the click counter limit. Appeared to give much better XP.

CatchAndRelease v0.2.scar

CatchAndRelease v0.1.scar

CatchAndRelease v0.3.scar

CatchAndRelease v0.31.scar

CatchAndRelease v0.31 SMART.scar

Edited March 16, 2013 by lazarbeam

[Toby1]

Hey! I just tried your script, its really good, but sometimes when it winds the mouse up, it accidentally selects "use" option, it attempts to catch another mouse already on floor but cant due to a mouse already been selected by "use"

 

Good job none the less

Edited March 13, 2013 by Toby1
Bug explanation

[Janilabo]

I think a simple RS07_HideChooseOption in mainloop might/would do the trick and keep the script going..

 

Anyways, I am really happy to see you releasing stuff lazarbeam, nice progress with script development!

[lazarbeam]

Hey! I just tried your script, its really good, but sometimes when it winds the mouse up, it accidentally selects "use" option and gets stuck!

 

Good job none the less

 

I haven't had that happen to me yet... I'll look into it tonight.

I just updated it to v0.3 (see changelog).

[Janilabo]

lazarbeam, I recommend you add a small delay before uptext checks (25-50 ms.):

 

Procedure WindMice;
var 
i:Integer;
a:TIntArray;
b:TBox;
p:TPoint;
Begin
 If Not(RS07_GameTabOpen(3))Then RS07_OpenGameTab(3);
 a:=RS07_GetUsedInventorySlots;
 For i:=0 to High(a) Do
   Begin
     p:=RS07_GetInventorySlotCenter(i);
     b:=RS07_GetInventorySlot(i);
     If(FindColorSpiralTol(p.X,p.Y,x,y,16053493,b.X1,b.Y1,b.X2,b.Y2,10))Then
       Begin
         MoveMouse(p.X,p.Y);
         Wait(30 + Random(20)); // Added Wait() here.
         If(RS07_IsUpText('Wind'))Then RS07_Click(mbLeft);
         Wait(50+Random(50)); 
       end;
   end;
end;

 

I think that part might be 1 of the reasons why Toby is getting those problems, RS07 doesn't update uptext that quickly, it usually takes that 25-50 ms., so its good to have a delay there.

You do have delay after, but there needs to be small delay before the check aswell..

 

Keep working on this, it looks great!

 

-Jani

[lazarbeam]

lazarbeam, I recommend you add a small delay before uptext checks (25-50 ms.):

 

Procedure WindMice;
var 
i:Integer;
a:TIntArray;
b:TBox;
p:TPoint;
Begin
 If Not(RS07_GameTabOpen(3))Then RS07_OpenGameTab(3);
 a:=RS07_GetUsedInventorySlots;
 For i:=0 to High(a) Do
   Begin
     p:=RS07_GetInventorySlotCenter(i);
     b:=RS07_GetInventorySlot(i);
     If(FindColorSpiralTol(p.X,p.Y,x,y,16053493,b.X1,b.Y1,b.X2,b.Y2,10))Then
       Begin
         MoveMouse(p.X,p.Y);
         Wait(30 + Random(20)); // Added Wait() here.
         If(RS07_IsUpText('Wind'))Then RS07_Click(mbLeft);
         Wait(50+Random(50)); 
       end;
   end;
end;

 

I think that part might be 1 of the reasons why Toby is getting those problems, RS07 doesn't update uptext that quickly, it usually takes that 25-50 ms., so its good to have a delay there.

You do have delay after, but there needs to be small delay before the check aswell..

 

Keep working on this, it looks great!

 

-Jani

I agree . I had the wait in the Release procedure, but not in the Wind. (just something I skipped over) It will be included in v0.4 (in like 1 minute it'll be attached).

[Janilabo]

I agree . I had the wait in the Release procedure, but not in the Wind. (just something I skipped over) It will be included in v0.4 (in like 1 minute it'll be attached).

Yeah don't worry mate, coding is like that sometimes, especially when you have plenty of things and ideas going around!

[BryceTheCoder]

Gratz lazarbeam for another release!

[lazarbeam]

Updated with a simple progress report in the debug.

Edited March 14, 2013 by lazarbeam