Back to "animaltaming" tags

Bestiary Prof 1.0 by AreYouKidden🐲

Description: Set up Bestiary Profiles for your different pets, so you can swap pets, and swap bestiary points in a breeze!

# 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 2