Adds card searching/retrieval to card decks (#18488)

* Adds card searching/retrieval to card decks

* woopsie I thought I fixed that already

* I am so sorry for my trash code lmaooo

* oops forgot that-

* SOBBING VIOLENTLY I MISSED THAT TOO

* Also maybe good to have an improper check in the visible messages

code/modules/games/cards.dm

@@ -89,7 +89,7 @@
 		to_chat(user,span_notice("Your hands are full!"))
 		return
 
-	if(!istype(user,/mob/living/carbon))
+	if(!iscarbon(user))
 		return
 
 	if(!cards.len)
@@ -166,6 +166,82 @@
 
 	deal_at(usr, M, dcard)
 
+/obj/item/deck/verb/search_cards()
+
+	set category = "Object"
+	set name = "Search for Cards"
+	set desc = "Search for and draw a specific card (or cards) in the deck. This will be an obvious action to all observers."
+	set src in view(1)
+
+	var/mob/living/carbon/user = usr
+
+	if(user.stat || !Adjacent(user)) return
+
+	if(user.hands_are_full()) // Safety check lest the card disappear into oblivion
+		to_chat(user,span_notice("Your hands are full!"))
+		return
+
+	if(!iscarbon(user))
+		return
+
+	if(!cards.len)
+		to_chat(user, span_notice("There are no cards in the deck."))
+		return
+
+	var/obj/item/hand/H = user.get_type_in_hands(/obj/item/hand)
+	if(H && !(H.parentdeck == src))
+		to_chat(user, span_warning("You can't mix cards from different decks!"))
+		return
+
+
+	user.visible_message(span_notice("\The [user] looks into \the [src] and searches within it...")) // Emote before doing anything so you can't cheat!
+
+	// We store the card names as a dictionary with the card name as the key and the number of duplicates of that card
+	// 		because otherwise the TGUI checkbox checks all duplicate names if you tick just one
+	var/list/card_names = list()
+	for(var/datum/playingcard/P in cards)
+		var/name = P.name
+		// If we haven't yet found any cards with this name...
+		if(!card_names[name])
+			// ... Add them to a new list, where we'll store any duplicates!
+			card_names[name] = list()
+		card_names[name] += name
+
+
+	var/list/cards_to_choose = list()
+	for(var/key, value in card_names)
+		var/list/L = value
+		for(var/i = 0, i < length(L), i++)
+			cards_to_choose += "[key] ([i+1])"
+
+	var/list/cards_to_draw = tgui_input_checkboxes(user, "Which cards do you want to retrieve?", "Choose your cards", cards_to_choose, 1)
+
+	if(!LAZYLEN(cards_to_draw))
+		user.visible_message(span_notice("\The [user] searches for specific cards in \the [src], but draws none."))
+		return
+
+	if(!H)
+		H = new(get_turf(src))
+		user.put_in_hands(H)
+
+	if(!H || !user)
+		return // Sanity check
+
+	// Search through our cards for every card the user chose, and remove them from the deck if the name matches!
+	for(var/to_draw in cards_to_draw)
+		for(var/i = length(cards), i > 0, i--)
+			// Ignore the duplicate number at the end, we just want the card name itself!
+			var/TDN = copytext(to_draw, 1, length(to_draw) - 3)
+			var/datum/playingcard/P = cards[i]
+			if(TDN == P.name)
+				H.cards += P
+				cards -= P
+				H.parentdeck = src
+				break
+	H.update_icon()
+
+	user.visible_message(span_notice("\The [user] searches for specific cards in \the [src], and draws [cards_to_draw.len]."))
+
 /obj/item/deck/CtrlClick(mob/user)
 	deal_card()