[Needs Testmerge] Guestbook, from Mojave Sun (#2770)

<!-- Write **BELOW** The Headers and **ABOVE** The comments else it may
not be viewable. -->
<!-- You can view Contributing.MD for a detailed description of the pull
request process. -->

## About The Pull Request

This thing sucks to port, I'm going to be real with you.

TODO:
* [x] Make it sort of work
* [x] Fix an error where adding a guest name doesn't work
* [ ] ~~Make it so reading IDs only work at close range~~ out of scope
* [x] Make it so you automatically know your ship's crewmates ~~and
captains know other faction members~~
* [x] Something with ERTs
* [ ] ~~Make the guestbook save across rounds~~ asked to not


![imagen](https://github.com/shiptest-ss13/Shiptest/assets/75212565/8943246e-145d-44b2-8284-3539fb09b565)

![imagen](https://github.com/shiptest-ss13/Shiptest/assets/75212565/8966bff4-8688-466e-88fa-2d73f71d2572)

![imagen](https://github.com/shiptest-ss13/Shiptest/assets/75212565/24e680be-e994-4aed-af3e-f4333d9b4a8d)



This pull request ports the following:
* Mojave-Sun/mojave-sun-13#2415
* Mojave-Sun/mojave-sun-13#2433

These PRs change how examining someone works. You have to walk up to
someone and remember their face in order to recognize their voice. Names
will still be displayed with people's IDs

<!-- Describe The Pull Request. Please be sure every change is
documented or this can delay review and even discourage maintainers from
merging your PR! -->

## Why It's Good For The Game
* The current anonymity system sucks for stealthy shit. You immediately
know someone's real name. An improved system allows for more roleplay
possibilities.
* Kansatsu is more reliable.
* You can rob people with a knife and a balaclava at the outpost, and
they won't know who you are!

<!-- Please add a short description of why you think these changes would
benefit the game. If you can't justify it in words, it might not be
worth adding. -->

## Changelog
:cl:
tweak: Identification Cards are now Access Cards. The only real
difference is that your name only shows up on a double examine.
refactor: Anonymous mechanics. Characters no longer instantly recognize
each other, and need to properly memorize each other in order. You can
recognize an unmasked person by ctrl-shift-clicking them.
/:cl:

<!-- Both :cl:'s are required for the changelog to work! You can put
your name to the right of the first :cl: if you want to overwrite your
GitHub username as author ingame. -->
<!-- You can use multiple of the same prefix (they're only used for the
icon ingame) and delete the unneeded ones. Despite some of the tags,
changelogs should generally represent how a player might be affected by
the changes rather than a summary of the PR's contents. -->

---------

Signed-off-by: meem <[email protected]>
Signed-off-by: Mark Suckerberg <[email protected]>
Co-authored-by: Mark Suckerberg <[email protected]>
Co-authored-by: goober3 <[email protected]>

code/__DEFINES/dcs/signals.dm

@@ -224,19 +224,29 @@
 #define COMSIG_LIVING_GET_PULLED "living_start_pulled"
 
 /////////////////
-
-#define COMSIG_ENTER_AREA "enter_area" //from base of area/Entered(): (/area). Sent to "area-sensitive" movables, see __DEFINES/traits.dm for info.
-#define COMSIG_EXIT_AREA "exit_area" //from base of area/Exited(): (/area). Sent to "area-sensitive" movables, see __DEFINES/traits.dm for info.
-
-#define COMSIG_CLICK "atom_click" //from base of atom/Click(): (location, control, params, mob/user)
-#define COMSIG_CLICK_SHIFT "shift_click" //from base of atom/ShiftClick(): (/mob)
-	#define COMPONENT_ALLOW_EXAMINATE 1 //Allows the user to examinate regardless of client.eye.
-#define COMSIG_CLICK_CTRL "ctrl_click" //from base of atom/CtrlClickOn(): (/mob)
-#define COMSIG_CLICK_ALT "alt_click" //from base of atom/AltClick(): (/mob)
-#define COMSIG_CLICK_CTRL_SHIFT "ctrl_shift_click" //from base of atom/CtrlShiftClick(/mob)
-#define COMSIG_MOUSEDROP_ONTO "mousedrop_onto" //from base of atom/MouseDrop(): (/atom/over, /mob/user)
+//from base of area/Entered(): (/area). Sent to "area-sensitive" movables, see __DEFINES/traits.dm for info.
+#define COMSIG_ENTER_AREA "enter_area"
+//from base of area/Exited(): (/area). Sent to "area-sensitive" movables, see __DEFINES/traits.dm for info.
+#define COMSIG_EXIT_AREA "exit_area"
+//from base of atom/Click(): (location, control, params, mob/user)
+#define COMSIG_CLICK "atom_click"
+//from base of atom/ShiftClick(): (/mob)
+#define COMSIG_CLICK_SHIFT "shift_click"
+//Allows the user to examinate regardless of client.eye.
+	#define COMPONENT_ALLOW_EXAMINATE 1
+//from base of atom/CtrlClickOn(): (/mob)
+#define COMSIG_CLICK_CTRL "ctrl_click"
+//from base of atom/AltClick(): (/mob)
+#define COMSIG_CLICK_ALT "alt_click"
+//from base of atom/CtrlShiftClick(/mob)
+#define COMSIG_CLICK_CTRL_SHIFT "ctrl_shift_click"
+///from base of atom/CtrlShiftRightClick(/mob)
+#define COMSIG_CLICK_CTRL_SHIFT_RIGHT "ctrl_shift_right_click"
+//from base of atom/MouseDrop(): (/atom/over, /mob/user)
+#define COMSIG_MOUSEDROP_ONTO "mousedrop_onto"
 	#define COMPONENT_NO_MOUSEDROP 1
-#define COMSIG_MOUSEDROPPED_ONTO "mousedropped_onto" //from base of atom/MouseDrop_T: (/atom/from, /mob/user)
+//from base of atom/MouseDrop_T: (/atom/from, /mob/user)
+#define COMSIG_MOUSEDROPPED_ONTO "mousedropped_onto"
 
 ///from base of area/proc/power_change(): ()
 #define COMSIG_AREA_POWER_CHANGE "area_power_change"

code/__DEFINES/mobs.dm

@@ -335,7 +335,7 @@
 #define SHADOW_SPECIES_LIGHT_THRESHOLD 0.2
 
 //MINOR TWEAKS/MISC
-#define AGE_MIN 17 //youngest a character can be
+#define AGE_MIN 18 //youngest a character can be
 #define AGE_MAX 85 //oldest a character can be
 #define AGE_MINOR 20 //legal age of space drinking and smoking
 #define WIZARD_AGE_MIN 30 //youngest a wizard can be

code/__HELPERS/_lists.dm

@@ -24,7 +24,7 @@
 #define LAZYCLEARLIST(L) if(L) L.Cut()
 #define SANITIZE_LIST(L) (islist(L) ? L : list())
 #define reverseList(L) reverseRange(L.Copy())
-#define LAZYADDASSOC(L, K, V) if(!L) { L = list(); } L[K] += list(V);
+#define LAZYADDASSOC(L, K, V) if(!L) { L = list(); } L[K] += V;
 #define LAZYADDASSOCLIST(L, K, V) if(!L) { L = list(); } L[K] += list(V);
 #define LAZYREMOVEASSOC(L, K, V) if(L) { if(L[K]) { L[K] -= V; if(!length(L[K])) L -= K; } if(!length(L)) L = null; }
 #define LAZYACCESSASSOC(L, I, K) L ? L[I] ? L[I][K] ? L[I][K] : null : null : null

code/__HELPERS/mobs.dm

@@ -217,6 +217,12 @@ GLOBAL_LIST_INIT(skin_tones, sortList(list(
 	"african2"
 	)))
 
+/proc/pick_species_adjective(mob/living/carbon/human/H)
+	if(isipc(H))
+		return pick(GLOB.ipc_preference_adjectives)
+	else
+		return pick(GLOB.preference_adjectives)
+
 GLOBAL_LIST_EMPTY(species_list)
 
 /proc/age2agedescription(age)

code/_globalvars/lists/names.dm

@@ -27,6 +27,8 @@ GLOBAL_LIST_INIT(verbs, world.file2list("strings/names/verbs.txt"))
 GLOBAL_LIST_INIT(ing_verbs, world.file2list("strings/names/ing_verbs.txt"))
 GLOBAL_LIST_INIT(adverbs, world.file2list("strings/names/adverbs.txt"))
 GLOBAL_LIST_INIT(adjectives, world.file2list("strings/names/adjectives.txt"))
+GLOBAL_LIST_INIT(preference_adjectives, world.file2list("strings/preference_adjectives.txt"))
+GLOBAL_LIST_INIT(ipc_preference_adjectives, world.file2list("strings/ipc_preference_adjectives.txt"))
 GLOBAL_LIST_INIT(dream_strings, world.file2list("strings/dreamstrings.txt"))
 //loaded on startup because of "
 //would include in rsc if ' was used

code/_onclick/click.dm

@@ -356,7 +356,6 @@
 
 /**
  * Control+Shift click
- * Unused except for AI
  */
 /mob/proc/CtrlShiftClickOn(atom/A)
 	A.CtrlShiftClick(src)

code/controllers/subsystem/pai.dm

@@ -146,7 +146,7 @@ SUBSYSTEM_DEF(pai)
 				continue
 			if(!(ROLE_PAI in G.client.prefs.be_special))
 				continue
-			to_chat(G, "<span class='ghostalert'>[user] is requesting a pAI personality! Use the pAI button to submit yourself as one.</span>")
+			to_chat(G, "<span class='ghostalert'>[user.real_name] is requesting a pAI personality! Use the pAI button to submit yourself as one.</span>")
 		addtimer(CALLBACK(src, PROC_REF(spam_again)), spam_delay)
 	var/list/available = list()
 	for(var/datum/paiCandidate/c in SSpai.candidates)

code/datums/chatmessage.dm

@@ -182,7 +182,7 @@
 	message.maptext = complete_text
 
 	// View the message
-	LAZYADDASSOC(owned_by.seen_messages, message_loc, src)
+	LAZYADDASSOCLIST(owned_by.seen_messages, message_loc, src)
 	owned_by.images |= message
 	animate(message, alpha = 255, time = CHAT_MESSAGE_SPAWN_TIME)
 

code/datums/guestbook.dm

@@ -0,0 +1,148 @@
+/**
+ * THE GUESTBOOK DATUM // ripped straight from mojave.
+ *
+ * Essentially, this datum handles the people that a given human knows,
+ * to handle getting the correct names on examine and saycode.
+ */
+/datum/guestbook
+	/// Associative list of known guests, real_name = known_name
+	var/list/known_names
+
+/datum/guestbook/Destroy(force)
+	known_names = null
+	return ..()
+
+/datum/guestbook/ui_interact(mob/user, datum/tgui/ui)
+	ui = SStgui.try_update_ui(user, src, ui)
+	if(!ui)
+		ui = new(user, src, "Guestbook", "[user.real_name]'s Guestbook")
+		ui.set_autoupdate(FALSE)
+		ui.open()
+
+/datum/guestbook/ui_state(mob/user)
+	return GLOB.always_state
+
+/datum/guestbook/ui_data(mob/user)
+	var/list/data = list()
+	var/list/names = list()
+	for(var/real_name in known_names)
+		var/given_name = LAZYACCESS(known_names, real_name)
+		names += list(list("real_name" = real_name, "given_name" = given_name))
+	data["names"] = names
+	return data
+
+/datum/guestbook/ui_act(action, list/params, datum/tgui/ui, datum/ui_state/state)
+	. = ..()
+	if(.)
+		return .
+	switch(action)
+		if("rename_guest")
+			var/real_name = params["real_name"]
+			var/new_name = params["new_name"]
+			new_name = reject_bad_name(new_name, max_length = 42)
+			if(!new_name)
+				to_chat(usr, span_warning("That's a pretty terrible name. <i>You can do better</i>."))
+				return FALSE
+			if(!rename_guest(usr, null, real_name, new_name, silent = FALSE))
+				return FALSE
+			return TRUE
+		if("delete_guest")
+			var/real_name = params["real_name"]
+			if(!remove_guest(usr, null, real_name, silent = FALSE))
+				return FALSE
+			return TRUE
+
+/datum/guestbook/proc/try_add_guest(mob/user, mob/living/carbon/human/guest, silent = FALSE)
+	if(user == guest)
+		if(!silent)
+			to_chat(user, span_warning("That's you! You already know yourself plenty."))
+		return FALSE
+	if(!visibility_checks(user, guest, silent))
+		return FALSE
+	var/given_name = input(user, "What name do you want to give to [guest]?", "Guestbook Name", guest.get_visible_name())
+	if(!given_name)
+		if(!silent)
+			to_chat(user, span_warning("Nevermind."))
+		return FALSE
+	given_name = reject_bad_name(given_name)
+	if(!given_name)
+		if(!silent)
+			to_chat(user, span_warning("That's a pretty terrible name. You can do better."))
+		return FALSE
+	if(!visibility_checks(user, guest, silent))
+		return FALSE
+	var/face_name = guest.get_face_name("ForgetMeNot")
+	if(LAZYACCESS(known_names, face_name))
+		if(!rename_guest(user, guest, face_name, given_name, silent))
+			return FALSE
+	else
+		if(!add_guest(user, guest, face_name, given_name, silent))
+			return FALSE
+	return TRUE
+
+/datum/guestbook/proc/add_guest(mob/user, mob/living/carbon/guest, real_name, given_name, silent = TRUE)
+	//Already exists, should be handled by rename_guest()
+	var/existing_name = LAZYACCESS(known_names, real_name)
+	if(existing_name)
+		if(!silent)
+			to_chat(user, span_warning("You already know them as \"[existing_name]\"."))
+		return FALSE
+	LAZYADDASSOC(known_names, real_name, given_name)
+	if(!silent)
+		to_chat(user, span_notice("You memorize the face of [guest] as \"[given_name]\"."))
+	return TRUE
+
+/datum/guestbook/proc/rename_guest(mob/user, mob/living/carbon/guest, real_name, given_name, silent = TRUE)
+	var/old_name = LAZYACCESS(known_names, real_name)
+	if(!old_name)
+		return FALSE
+	known_names[real_name] = given_name
+	if(!silent)
+		to_chat(user, span_notice("You re-memorize the face of \"[old_name]\" as \"[given_name]\"."))
+	return TRUE
+
+/datum/guestbook/proc/try_remove_guest(mob/user, mob/living/carbon/human/guest, silent = FALSE)
+	if(user == guest)
+		if(!silent)
+			to_chat(user, span_warning("That's you! You'll never forget yourself."))
+		return
+	if(!visibility_checks(user, guest, silent))
+		return FALSE
+	var/face_name = guest.get_face_name("ForgetMeNot")
+	if(!remove_guest(user, guest, face_name, silent))
+		return FALSE
+	return TRUE
+
+/datum/guestbook/proc/remove_guest(mob/user, mob/living/carbon/guest, real_name, silent = TRUE)
+	//Already exists, should be handled by rename_guest()
+	var/existing_name = LAZYACCESS(known_names, real_name)
+	if(!existing_name)
+		if(!silent)
+			to_chat(user, span_warning("You don't know them in the first place."))
+		return FALSE
+	LAZYREMOVE(known_names, real_name)
+	if(!silent)
+		to_chat(user, span_notice("You forget the face of \"[existing_name]\"."))
+	return TRUE
+
+/datum/guestbook/proc/get_known_name(mob/user, mob/living/carbon/guest, real_name)
+	if(user == guest || isAdminObserver(user))
+		return real_name
+	return LAZYACCESS(known_names, real_name)
+
+/datum/guestbook/proc/visibility_checks(mob/user, mob/living/carbon/human/guest, silent = FALSE)
+	if(QDELETED(guest))
+		if(!silent)
+			to_chat(user, span_warning("What?"))
+		return FALSE
+	var/visible_name = guest.get_visible_name("")
+	var/face_name = guest.get_face_name("")
+	if(!visible_name || !face_name)
+		if(!silent)
+			to_chat(user, span_warning("You can't see their face very well!"))
+		return FALSE
+	if(get_dist(user, guest) > 4)
+		if(!silent)
+			to_chat(user, span_warning("You need to take a closer look at them!"))
+		return FALSE
+	return TRUE

code/datums/mind.dm

@@ -79,6 +79,9 @@
 	/// The index for our current scar slot, so we don't have to constantly check the savefile (unlike the slots themselves, this index is independent of selected char slot, and increments whenever a valid char is joined with)
 	var/current_scar_slot_index
 
+	/// Guestbook datum, in case we actually make use of the guestbook mechanics
+	var/datum/guestbook/guestbook
+
 	///Skill multiplier, adjusts how much xp you get/loose from adjust_xp. Dont override it directly, add your reason to experience_multiplier_reasons and use that as a key to put your value in there.
 	var/experience_multiplier = 1
 	///Skill multiplier list, just slap your multiplier change onto this with the type it is coming from as key.
@@ -95,13 +98,15 @@
 	key = _key
 	soulOwner = src
 	martial_art = default_martial_art
+	guestbook = new()
 	init_known_skills()
 
 /datum/mind/Destroy()
 	SSticker.minds -= src
 	if(islist(antag_datums))
 		QDEL_LIST(antag_datums)
 	QDEL_NULL(language_holder)
+	QDEL_NULL(guestbook)
 	set_current(null)
 	soulOwner = null
 	return ..()

code/datums/progressbar.dm

@@ -37,7 +37,7 @@
 	bar.appearance_flags = APPEARANCE_UI_IGNORE_ALPHA
 	user = User
 
-	LAZYADDASSOC(user.progressbars, bar_loc, src)
+	LAZYADDASSOCLIST(user.progressbars, bar_loc, src)
 	var/list/bars = user.progressbars[bar_loc]
 	listindex = bars.len
 

code/game/atoms.dm

@@ -1674,7 +1674,11 @@
 			active_hud.screentip_text.maptext = ""
 		else
 			//We inline a MAPTEXT() here, because there's no good way to statically add to a string like this
-			active_hud.screentip_text.maptext = "<span class='maptext' style='text-align: center; font-size: 32px; color: [user.client.prefs.screentip_color]'>[name]</span>"
+			active_hud.screentip_text.maptext = "<span class='maptext' style='text-align: center; font-size: 32px; color: [user.client.prefs.screentip_color]'>[get_screentip_name(client)]</span>"
+
+/// Returns the atom name that should be used on screentip
+/atom/proc/get_screentip_name(client/hovering_client)
+	return name
 
 ///Called whenever a player is spawned on the same turf as this atom.
 /atom/proc/join_player_here(mob/M)

code/game/atoms_movable.dm

@@ -560,7 +560,7 @@
 	if(!client)
 		return
 	if(new_virtual_z)
-		LAZYADDASSOC(SSmobs.players_by_virtual_z, "[new_virtual_z]", src)
+		LAZYADDASSOCLIST(SSmobs.players_by_virtual_z, "[new_virtual_z]", src)
 		SSidlenpcpool.try_wakeup_virtual_z(new_virtual_z)
 
 /mob/dead/on_virtual_z_change(new_virtual_z, previous_virtual_z)
@@ -570,7 +570,7 @@
 	if(!client)
 		return
 	if(new_virtual_z)
-		LAZYADDASSOC(SSmobs.dead_players_by_virtual_z, "[new_virtual_z]", src)
+		LAZYADDASSOCLIST(SSmobs.dead_players_by_virtual_z, "[new_virtual_z]", src)
 
 // Make sure you know what you're doing if you call this, this is intended to only be called by byond directly.
 // You probably want CanPass()

code/game/machinery/navbeacon.dm

@@ -49,7 +49,7 @@
 	if(previous_virtual_z)
 		LAZYREMOVEASSOC(GLOB.navbeacons, "[previous_virtual_z]", src)
 	if(new_virtual_z)
-		LAZYADDASSOC(GLOB.navbeacons, "[new_virtual_z]", src)
+		LAZYADDASSOCLIST(GLOB.navbeacons, "[new_virtual_z]", src)
 	..()
 
 // set the transponder codes assoc list from codes_txt

code/game/objects/effects/landmarks.dm

@@ -45,7 +45,7 @@ INITIALIZE_IMMEDIATE(/obj/effect/landmark)
 	. = ..()
 	GLOB.start_landmarks_list += src
 	if(jobspawn_override)
-		LAZYADDASSOC(GLOB.jobspawn_overrides, name, src)
+		LAZYADDASSOCLIST(GLOB.jobspawn_overrides, name, src)
 	if(name != "start")
 		tag = "start*[name]"