Mass-clicking is the #1 cause of broken mouses (mice?) and with the "Mario Party"-esque style of dumping 100+ points into a pet, carpel tunnel is sure to ensue.
So I bring you the Pet Points ClickR, breeder's delight.

For this to work properly your pet's leveling sheet will have to be the topmost menu. In other words make sure that before you click 'Click' or 'Dump', single-click on the leveling sheet so it is in focus (and all the buttons are visible).
Revision History
v1.1: MAJOR fix on line 14 where 'or' should have been 'and' >.<
Code: Select all
; BlaZin' ClickR: Pet Points
; by BlaZe Budd of Excelsior's ßud ßrothers
; v1.1 completed 3/19/09
; Increase this a little only if
set %timeout 1 ; you have a TERRIBLE connection.
set #lpc 50
gosub menu
set #menuButton N/A
mainLoop:
set %clicked 0
if #menuButton <> N/A && #menuButton <> buttonStop
{
if #menuButton = closed
halt
set %button #menuButton
set #menuButton N/A
gosub setStat
clickLoop:
gosub findCont 406_535 %timeout
if fail in #result || %times = null || #menuButton = buttonStop
goto mainLoop
set %X2 #contposX + %X
set %Y2 #contPosY + %Y
gosub click
if done notin #result
goto clickLoop
}
goto mainLoop:
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub click
deleteJournal
gosub journalScan
if %clicked = %times || fail in #result
{
set %clicked 0
return done
}
click %X2 %Y2
set %clicked %clicked + 1
return continue
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub setStat
set %X 40
menu get stat
set %res #menuRes
menu getNum times null
set %times #menuRes
if %times = 0
set %times null
if %res = 1
set %Y 185
if %res = 2
set %Y 210
if %res = 3
set %Y 235
if %res = 4
set %Y 260
if %res = 5
set %Y 285
if %res = 6
set %Y 310
if %res = 7
set %Y 335
if %res = 8
set %Y 360
if %res = 9
set %Y 385
if %res = 10
set %Y 410
if %res = 11
set %Y 435
if %res = 12
set %Y 460
if %res = 13
set %Y 485
if %res = 14
set %Y 510
if dump in %button
set %times 99999
return
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub journalScan
for %scan 1 5
{
scanJournal %scan
if cannot_gain_any_farther in #journal
return fail
}
return pass
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
; Find Container sub
; usage: gosub findCont %1 %2
; %1 = #contSize to look for
; %2 = timeout (in secs)
;
; returns 'pass' if found, 'fail' for a timeout
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub findCont
set %2 %2 * 10
set %3 #scnt2
findContLoop:
worldSave:
if world_is_saving in #sysMsg
{
set %3 #scnt2
goto worldSave
}
if #scnt2 >= %2 + %3
return fail
if #contSize <> %1
goto findContLoop
else
return pass
;;;;; ;;;;; ;;;;; ;;;;; ;;;;;
sub menu
menu Clear
menu Window Title BlaZin'
menu Window Color Black
menu Window Size 190 90
menu Font Transparent #true
menu Font Align Right
menu Font Name Comic Sans MS
menu Font Size 10
menu Font Style
menu Font Transparent #false
menu Font Align Left
menu Font BGColor Black
menu Font Color Lime
menu Text labelTimes 6 36 Times to click:
menu Font Size 12
menu Font Style u
menu Font Color Green
menu Text labelTitle 8 6 ClickR: Pet Points
menu Font Size 10
menu Font Style b
menu Font Color Silver
menu Text labelVersion 150 9 v1.0
menu Font Size 7
menu Font Style
menu Font Color Lime
menu Edit times 102 36 40 0
menu Font BGColor Red
menu Font Color Yellow
menu Button buttonStop 146 36 40 22 STOP
menu Font BGColor Green
menu Button buttonDump 146 64 40 22 Dump
menu Button buttonClick 102 64 40 22 Click
menu Font Color Lime
menu Font BGColor Black
menu Combo Create stat 6 64 90
menu Combo Add stat Hit Points
menu Combo Add stat Stamina
menu Combo Add stat Mana
menu Combo Add stat Phys Resist
menu Combo Add stat Fire Resist
menu Combo Add stat Cold Resist
menu Combo Add stat Energy Resist
menu Combo Add stat Poison Resist
menu Combo Add stat Min Damage
menu Combo Add stat Max Damage
menu Combo Add stat Armor Rating
menu Combo Add stat Strength
menu Combo Add stat Dexterity
menu Combo Add stat Intelligence
menu Combo Select stat 1
menu Show 421 270
return