More exploration of if/else variant of exploration (likely to need wh…

…ile loop for conciseness purposes)

dev/encounter_creator.R

@@ -16,11 +16,11 @@ librarian::shelf(tidyverse, dndR)
 # Clear environment
 rm(list = ls())
 
-# Needed helper functions
-?dndR::xp_pool
-?dndR::xp_cost
-?dndR::creature_list
-?dndR::creatures
+# Likely needed helper functions
+# ?dndR::xp_pool
+# ?dndR::xp_cost
+# ?dndR::creature_list
+# ?dndR::creatures
 
 ## --------------------------- ##
 # Scripted Exploration ----
@@ -30,18 +30,62 @@ rm(list = ls())
 enc_type <- "undead"
 pc_level <- 5
 pc_size <- 4
-enc_diff <- "medium"
+enc_diff <- "deadly"
 
 # Subset available creatures to only those of desired 'type'
-creature_sub <- dndR::creatures %>%
+creatures_avail <- dndR::creatures %>%
+  # Drop any creatures worth 0 XP or NA XP (latter should be none but we'll see)
+  dplyr::filter(creature_xp > 0 & !is.na(creature_xp)) %>%
   # Drop all but needed columns
   dplyr::select(creature_type, creature_name, creature_xp) %>%
   dplyr::filter(stringr::str_detect(string = creature_type, pattern = enc_type))
 
 # Check available XP manually
 (max_xp <- xp_pool(party_level = pc_level, party_size = pc_size, difficulty = enc_diff) )
 
-# Identify relevant creature(s)
+# Identify creature of the highest possible value still less than the max
+creature_pick <- creatures_avail %>%
+  dplyr::filter(creature_xp == max(creature_xp[creature_xp < max_xp], na.rm = TRUE))
+
+# If more than one, pick one at random
+if(nrow(creature_pick) > 1){
+  creature_pick <- creature_pick[sample(x = 1:nrow(creature_pick), size = 1), ]
+}
+
+# Compare to XP cost
+current_cost <- xp_cost(monster_xp = sum(creature_pick$creature_xp),
+                        monster_count = nrow(creature_pick),
+                        party_size = pc_size)
+
+# If that's less than the allowed, try to grab another
+if(current_cost < (max_xp - min(creatures_avail$creature_xp))){
+
+  # Calculate difference in XP
+  remaining_xp <- max_xp - current_cost
+
+  # Filter again
+  creature_pick2 <- creatures_avail %>%
+    dplyr::filter(creature_xp == max(creature_xp[creature_xp < remaining_xp], na.rm = TRUE))
+
+  # If more than one, pick one at random
+  if(nrow(creature_pick2) > 1){
+    creature_pick2 <- creature_pick2[sample(x = 1:nrow(creature_pick2), size = 1), ]
+  }
+
+  # Check XP cost again
+  attempt_cost <- xp_cost(monster_xp = sum(creature_pick$creature_xp,
+                                           creature_pick2$creature_xp),
+          monster_count = length(c(creature_pick$creature_name,
+                                   creature_pick2$creature_name)),
+          party_size = pc_size)
+
+  # If above allowed XP cost, drop creatures of this value of XP and try again with one tier lower
+  if(attempt_cost > max_xp){
+    message("Exceeding allowable XP cost of encounter")
+  }
+
+
+}