Bestiary Prof 1.0 by AreYouKidden🐲
Description from the author:
# Bestiary Prof 1.0
# For Each Profile, you will need to set up the Tier list below
# for each option in the Bestiary.
#set a higher pause time if script is failing due to timers
@setvar 'PauseTime' 250
# Example Profiles Below designed on 20 Max points
# Set your desired profile then run.
@setvar 'Profile' 4
#1 - Attack
#2 - Utility
#3 - Tank
#4 - Sun Wyrm
@removelist 'Tier'
@createlist 'Tier'
#1 - ATTACK
if 'Profile' = 1 then
# Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
@setvar 'Class' '3'
# ATTACK CLASS
# Ambush, Cornered, Feed, Feral
pushlist 'Tier' '0'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
# Hunting Party, Immolate, Lethality, Menagerie
pushlist 'Tier' '0'
pushlist 'Tier' '0'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
# Mutation, Pelt, Primal, Swarm
pushlist 'Tier' '3'
pushlist 'Tier' '1'
pushlist 'Tier' '0'
pushlist 'Tier' '1'
endif
#2 - UTILITY
if 'Profile' = 2 then
# Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
@setvar 'Class' '4'
# UTILITY CLASS
# MBeast Sting, Breaker, Carrion, Contagion
pushlist 'Tier' '1'
pushlist 'Tier' '3'
pushlist 'Tier' '1'
pushlist 'Tier' '0'
# Debilitate, Frostbite, Metabolism, Opportunity
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
# Punishment, Scour, Swoop, Toxic
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
endif
#3 - TANK
if 'Profile' = 3 then
# Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
@setvar 'Class' '5'
# TANK CLASS
# Adrenaline, Aggression, Behemoth, Critical Care
pushlist 'Tier' '0'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
# Deflection, Guardian, Hearty, Mending
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '1'
pushlist 'Tier' '0'
# Stalwart, Survival, Tolerance, Trample
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
endif
#4 - Sun Wyrm
if 'Profile' = 4 then
# Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
@setvar 'Class' '3'
#ATTACK CLASS
# Ambush, Feral, Cornered, Feed
pushlist 'Tier' '0'
pushlist 'Tier' '0'
pushlist 'Tier' '2'
pushlist 'Tier' '0'
# Hunting Party, Immolate, Lethality, Menagerie
pushlist 'Tier' '1'
pushlist 'Tier' '0'
pushlist 'Tier' '3'
pushlist 'Tier' '1'
# Mutation, Pelt, Primal, Swarm
pushlist 'Tier' '3'
pushlist 'Tier' '1'
pushlist 'Tier' '1'
pushlist 'Tier' '1'
endif
# DO NOT CHANGE BELOW THIS POINT
@removelist 'PageFlip'
@createlist 'PageFlip'
# Do Not Change
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'Yes'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'Yes'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
@removelist 'GumpButton'
@createlist 'GumpButton'
# Do Not Change
pushlist 'GumpButton' '200'
pushlist 'GumpButton' '201'
pushlist 'GumpButton' '202'
pushlist 'GumpButton' '203'
pushlist 'GumpButton' '200'
pushlist 'GumpButton' '201'
pushlist 'GumpButton' '202'
pushlist 'GumpButton' '203'
pushlist 'GumpButton' '200'
pushlist 'GumpButton' '201'
pushlist 'GumpButton' '202'
pushlist 'GumpButton' '203'
@clearsysmsg
# Open Bestiary
overhead 'Opening Bestiary'
while not gumpexists 1353229584
dclicktype 'taming bestiary'
pause 'PauseTime'
waitforgump 1353229584 2000
endwhile
# Resetting Book
overhead 'Selecting the Class and Going to Page 1'
if 'Class' = 3
while not ingump 'Ambush' 1353229584
gumpresponse 3
pause 'PauseTime'
waitforgump 1353229584 2000
while not ingump '1/3' 1353229584
gumpresponse 10 1353229584
pause 'PauseTime'
waitforgump 1353229584 2000
endwhile
endwhile
elseif 'Class' = 4
while not ingump 'Beast Sting' 1353229584
gumpresponse 4
pause 'PauseTime'
waitforgump 1353229584 2000
while not ingump '1/3' 1353229584
gumpresponse 10 1353229584
pause 'PauseTime'
waitforgump 1353229584 2000
endwhile
endwhile
elseif 'Class' = 5
while not ingump 'Adrenaline' 1353229584
gumpresponse 5
pause 'PauseTime'
waitforgump 1353229584 2000
while not ingump '1/3' 1353229584
gumpresponse 10 1353229584
pause 'PauseTime'
waitforgump 1353229584 2000
endwhile
endwhile
endif
overhead 'Resetting Points'
@clearsysmsg
while not insysmsg 'Points distribution reset.'
gumpresponse 12
pause 'PauseTime'
waitforgump 1353229584 2000
endwhile
# Reassigning Points
overhead 'Reassigning Points'
overhead 'what?!'
foreach 'x' in 'Tier'
foreach 'y' in 'PageFlip'
if 'y' = 'Yes'
gumpresponse 11
pause 'PauseTime'
waitforgump 1353229584 2000
endif
poplist 'PageFlip' front
break
endfor
foreach 'z' in 'GumpButton'
@setvar 'Gump' 'z'
poplist 'GumpButton' front
break
endfor
if 'x' = 1
gumpresponse 'Gump'
pause 'PauseTime'
waitforgump 1353229584 2000
elseif 'x' = 2
gumpresponse 'Gump'
pause 'PauseTime'
waitforgump 1353229584 2000
gumpresponse 'Gump'
pause 'PauseTime'
waitforgump 1353229584 2000
elseif 'x' = 3
gumpresponse 'Gump'
pause 'PauseTime'
waitforgump 1353229584 2000
gumpresponse 'Gump'
pause 'PauseTime'
waitforgump 1353229584 2000
gumpresponse 'Gump'
pause 'PauseTime'
waitforgump 1353229584 2000
endif
endfor
@setvar 'Failed' '0'
if insysmsg 'before you may reset your points distribution.'
overhead 'Unable to Reset Points due to timer!' 33
@setvar 'Failed' '1'
endif
if insysmsg 'You do not have enough points remaining to increase'
overhead 'Not enough points to increase!' 33
@setvar 'Failed' '1'
endif
if 'Failed' = 1 then
overhead 'Something has gone wrong!' 33
else
overhead 'Bestiary Re-Configure Complete!'
endif
gumpresponse 2Set up Bestiary Profiles for your different pets, so you can swap pets, and swap bestiary points in a breeze!