Achievements

SQL/tgstation_schema.sql

@@ -514,6 +514,25 @@ CREATE TABLE `stickyban_matched_cid` (
 	PRIMARY KEY (`stickyban`, `matched_cid`)
 ) ENGINE=InnoDB;
 
+--
+-- Table structure for table `achievements`
+--
+DROP TABLE IF EXISTS `achievements`;
+CREATE TABLE `achievements` (
+	`name` VARCHAR(32) NOT NULL,
+	`id` INT UNSIGNED NOT NULL,
+	`descr` VARCHAR(2048) NOT NULL,
+	PRIMARY KEY (`id`)
+) ENGINE=InnoDB;
+
+--
+-- Table structure for table `earned_achievements`
+--
+DROP TABLE IF EXISTS `earned_achievements`;
+CREATE TABLE `earned_achievements` (
+	`ckey` VARCHAR(32) NOT NULL,
+	`id` INT UNSIGNED NOT NULL
+) ENGINE=InnoDB;
 
 /*!40101 SET SQL_MODE=@OLD_SQL_MODE */;
 /*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */;

SQL/tgstation_schema_prefixed.sql

@@ -514,7 +514,25 @@ CREATE TABLE `SS13_stickyban_matched_cid` (
 	PRIMARY KEY (`stickyban`, `matched_cid`)
 ) ENGINE=InnoDB;
 
+--
+-- Table structure for table `SS13_achievements`
+--
+DROP TABLE IF EXISTS `SS13_achievements`;
+CREATE TABLE `SS13_achievements` (
+	`name` VARCHAR(32) NOT NULL,
+	`id` INT UNSIGNED NOT NULL,
+	`descr` VARCHAR(2048) NOT NULL,
+	PRIMARY KEY (`id`)
+) ENGINE=InnoDB;
 
+--
+-- Table structure for table `SS13_earned_achievements`
+--
+DROP TABLE IF EXISTS `SS13_earned_achievements`;
+CREATE TABLE `SS13_earned_achievements` (
+	`ckey` VARCHAR(32) NOT NULL,
+	`id` INT UNSIGNED NOT NULL
+) ENGINE=InnoDB;
 
 /*!40101 SET SQL_MODE=@OLD_SQL_MODE */;
 /*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */;

code/controllers/subsystem/achievements.dm

@@ -0,0 +1,86 @@
+SUBSYSTEM_DEF(achievements)
+	name = "Achievements"
+	flags = SS_NO_FIRE
+	var/list/achievements = list()
+	var/list/cached_achievements = list()
+	var/list/browsers = list()
+	var/list/achievementsEarned = list()
+
+/datum/controller/subsystem/achievements/Initialize(timeofday)
+	for(var/i in subtypesof(/datum/achievement))
+		var/datum/achievement/A = i
+		achievements[A] = initial(A.id)
+
+		var/datum/DBQuery/medalQuery = SSdbcore.NewQuery("SELECT name, descr FROM [format_table_name("achievements")] WHERE id = '[initial(A.id)]'")
+		medalQuery.Execute()
+		if(!medalQuery.NextRow())
+			var/datum/DBQuery/medalQuery2 = SSdbcore.NewQuery("INSERT INTO [format_table_name("achievements")] (name, id, descr) VALUES ('[initial(A.name)]', '[initial(A.id)]', '[initial(A.desc)]')")
+			medalQuery2.Execute()
+			qdel(medalQuery2)
+		else if(medalQuery.item[1] != initial(A.name) || medalQuery.item[2] != initial(A.desc))
+			var/datum/DBQuery/medalQuery2 = SSdbcore.NewQuery("UPDATE [format_table_name("achievements")] SET name = '[initial(A.name)]', descr = '[initial(A.desc)]' WHERE id = '[initial(A.id)]'")
+			medalQuery2.Execute()
+			qdel(medalQuery2)
+
+		qdel(medalQuery)
+
+
+	var/datum/DBQuery/ridOldChieves = SSdbcore.NewQuery("SELECT id FROM [format_table_name("achievements")]")
+	ridOldChieves.Execute()
+	while(ridOldChieves.NextRow())
+		var/id = text2num(ridOldChieves.item[1])
+		var/found_achievement = FALSE
+		for(var/I in achievements)
+			var/datum/achievement/A = I
+			if(initial(A.id) != id)
+				to_chat(world, "[initial(A.id)] [id]")
+				continue
+			found_achievement = TRUE
+		if(!found_achievement)
+			log_sql("Old achievement [id] found in database, removing")
+			var/datum/DBQuery/getRidOfOldStuff = SSdbcore.NewQuery("DELETE FROM [format_table_name("achievements")] WHERE id = '[id]'")
+			getRidOfOldStuff.Execute()
+			var/datum/DBQuery/ridTheOtherTableAsWell = SSdbcore.NewQuery("DELETE FROM [format_table_name("earned_achievements")] WHERE id = '[id]'")
+			ridTheOtherTableAsWell.Execute()
+			qdel(ridTheOtherTableAsWell)
+			qdel(getRidOfOldStuff)
+
+	qdel(ridOldChieves)
+	return ..()
+
+/datum/controller/subsystem/achievements/proc/unlock_achievement(datum/achievement/achievement, client/C)
+	if(!achievements[achievement])
+		log_sql("Achievement [initial(achievement.name)] not found in list of achievements when trying to unlock for [C.ckey]")
+		return FALSE
+	if(!has_achievement(achievement, C))
+		var/datum/DBQuery/medalQuery = SSdbcore.NewQuery("INSERT INTO [format_table_name("earned_achievements")] (ckey, id) VALUES ('[C.ckey]', '[initial(achievement.id)]')")
+		medalQuery.Execute()
+		qdel(medalQuery)
+		cached_achievements[C.ckey] += achievement
+		if(!achievementsEarned[C.ckey])
+			achievementsEarned[C.ckey] = list()
+		achievementsEarned[C.ckey] += achievement
+		return TRUE
+
+/datum/controller/subsystem/achievements/proc/has_achievement(datum/achievement/achievement, client/C)
+	if(!achievements[achievement])
+		log_sql("Achievement [initial(achievement.name)] not found in list of achievements when checking for [C.ckey]")
+	if(!cached_achievements[C.ckey])
+		cache_achievements(C)
+
+	return (achievement in cached_achievements[C.ckey])
+
+/datum/controller/subsystem/achievements/proc/cache_achievements(client/C)
+	var/datum/DBQuery/cacheQuery = SSdbcore.NewQuery("SELECT id FROM [format_table_name("earned_achievements")] WHERE ckey = '[C.ckey]'")
+	cacheQuery.Execute()
+	cached_achievements[C.ckey] = list()
+	while(cacheQuery.NextRow())
+		for(var/i in achievements)
+			if(achievements[i] == text2num(cacheQuery.item[1]))
+				cached_achievements[C.ckey] += i
+				break
+	qdel(cacheQuery)
+	return
+
+/datum/controller/subsystem/achievements/proc/get_browser(client/C)
+	return browsers[C.ckey]

code/controllers/subsystem/shuttle.dm

@@ -48,7 +48,6 @@ SUBSYSTEM_DEF(shuttle)
 
 	var/shuttle_purchased = FALSE //If the station has purchased a replacement escape shuttle this round
 	var/emag_shuttle_purchased = FALSE //If the traitors have purchased a replacement escape shuttle this round
-	var/list/shuttle_purchase_requirements_met = list() //For keeping track of ingame events that would unlock new shuttles, such as defeating a boss or discovering a secret item
 
 	var/lockdown = FALSE	//disallow transit after nuke goes off
 
@@ -539,9 +538,6 @@ SUBSYSTEM_DEF(shuttle)
 	if (istype(SSshuttle.shuttle_loan))
 		shuttle_loan = SSshuttle.shuttle_loan
 
-	if (istype(SSshuttle.shuttle_purchase_requirements_met))
-		shuttle_purchase_requirements_met = SSshuttle.shuttle_purchase_requirements_met
-
 	var/datum/bank_account/D = SSeconomy.get_dep_account(ACCOUNT_CAR)
 	centcom_message = SSshuttle.centcom_message
 	ordernum = SSshuttle.ordernum

code/datums/achievements/achievements.dm

@@ -0,0 +1,9 @@
+/datum/achievement
+	var/name = "achievement"
+	var/desc = "Please make an issue on github, including this achievement's name and how you got it."
+	var/id = 0 //Should be incremented so every achievement has a unique ID
+
+/datum/achievement/bubblegum
+	name = "Bubblegum Killer"
+	desc = "Eliminate a bubblegum" //Should be improved
+	id = 1

code/datums/achievements/viewer.dm

@@ -0,0 +1,48 @@
+//UI adapted from https://github.com/tgstation/tgstation/pull/47058
+
+/datum/achievement_browser
+	var/client/client
+
+/datum/achievement_browser/New(client/C)
+	client = C
+
+/datum/achievement_browser/proc/get_achievements()
+	var/list/A = list()
+	for(var/i in SSachievements.achievements)
+		A[i] = SSachievements.has_achievement(i, client)
+	return A
+
+/datum/achievement_browser/ui_interact(mob/user, ui_key = "main", datum/tgui/ui = null, force_open = FALSE, datum/tgui/master_ui = null, datum/ui_state/state = GLOB.always_state)
+	ui = SStgui.try_update_ui(user, src, ui_key, ui, force_open)
+	if(!ui)
+		ui = new(user, src, ui_key, "achievements", "achievements", 450, 450, master_ui, state)
+		ui.open()
+
+/datum/achievement_browser/ui_data(mob/user)
+	var/data = list("achievements" = list())
+	var/list/achievements = get_achievements()
+	for(var/B in achievements)
+		var/datum/achievement/achievement = B
+		var/list/A = list(
+			"name" = initial(achievement.name),
+			"desc" = initial(achievement.desc),
+			"unlocked" = achievements[achievement]
+		)
+		data["achievements"] += list(A)
+
+	return data
+
+/client/verb/checkachievements()
+	set category = "OOC"
+	set name = "Check achievements"
+	set desc = "See all of your achivements"
+
+	if(!SSachievements.initialized)
+		to_chat(src, "<span class='warning'>SSachievements has not initialized yet, please wait.</span>")
+		return
+
+	var/datum/achievement_browser/achievement_browser = SSachievements.get_browser(src)
+	if(!achievement_browser)
+		achievement_browser = new(src)
+		SSachievements.browsers[ckey] = achievement_browser
+	achievement_browser.ui_interact(usr)

code/datums/shuttles.dm

@@ -237,9 +237,7 @@
 	emag_buy = TRUE
 
 /datum/map_template/shuttle/emergency/arena/prerequisites_met()
-	if("bubblegum" in SSshuttle.shuttle_purchase_requirements_met)
-		return TRUE
-	return FALSE
+	return SSachievements.has_achievement(/datum/achievement/bubblegum, usr.client)
 
 /datum/map_template/shuttle/emergency/birdboat
 	suffix = "birdboat"

code/game/gamemodes/meteor/meteors.dm

@@ -164,11 +164,6 @@ GLOBAL_LIST_INIT(meteorsC, list(/obj/effect/meteor/dust)) //for space dust event
 /obj/effect/meteor/ex_act()
 	return
 
-/obj/effect/meteor/examine(mob/user)
-	. = ..()
-	if(!(flags_1 & ADMIN_SPAWNED_1) && isliving(user))
-		SSmedals.UnlockMedal(MEDAL_METEOR, user.client)
-
 /obj/effect/meteor/attackby(obj/item/I, mob/user, params)
 	if(I.tool_behaviour == TOOL_MINING)
 		make_debris()

code/game/machinery/computer/arcade.dm

@@ -79,7 +79,6 @@ GLOBAL_LIST_INIT(arcade_prize_pool, list(
 	SEND_SIGNAL(user, COMSIG_ADD_MOOD_EVENT, "arcade", /datum/mood_event/arcade)
 	if(prob(0.0001)) //1 in a million
 		new /obj/item/gun/energy/pulse/prize(src)
-		SSmedals.UnlockMedal(MEDAL_PULSE, user.client)
 
 	if(!contents.len)
 		var/prizeselect

code/game/objects/structures/lavaland/necropolis_tendril.dm

@@ -46,17 +46,6 @@ GLOBAL_LIST_INIT(tendrils, list())
 
 
 /obj/structure/spawner/lavaland/Destroy()
-	var/last_tendril = TRUE
-	if(GLOB.tendrils.len>1)
-		last_tendril = FALSE
-
-	if(last_tendril && !(flags_1 & ADMIN_SPAWNED_1))
-		if(SSmedals.hub_enabled)
-			for(var/mob/living/L in view(7,src))
-				if(L.stat || !L.client)
-					continue
-				SSmedals.UnlockMedal("[BOSS_MEDAL_TENDRIL] [ALL_KILL_MEDAL]", L.client)
-				SSmedals.SetScore(TENDRIL_CLEAR_SCORE, L.client, 1)
 	GLOB.tendrils -= src
 	QDEL_NULL(emitted_light)
 	//QDEL_NULL(gps) //yogs - lol

code/modules/admin/admin_verbs.dm

@@ -176,7 +176,6 @@ GLOBAL_PROTECT(admin_verbs_debug)
 	/client/proc/map_template_upload,
 	/client/proc/jump_to_ruin,
 	/client/proc/clear_dynamic_transit,
-	/client/proc/toggle_medal_disable,
 	/client/proc/view_runtimes,
 	/client/proc/pump_random_event,
 	/client/proc/cmd_display_init_log,