From 395fb8de3e540d206e92c0c6496a187f72b8dee0 Mon Sep 17 00:00:00 2001
From: Putnam <putnam3145@gmail.com>
Date: Wed, 19 Feb 2020 10:49:26 -0800
Subject: [PATCH] Added licking pref.

---
 code/modules/vore/eating/vore.dm      |  1 +
 code/modules/vore/eating/vorepanel.dm | 38 +++++++++++++++------------
 2 files changed, 22 insertions(+), 17 deletions(-)

diff --git a/code/modules/vore/eating/vore.dm b/code/modules/vore/eating/vore.dm
index 29391547bd..35f0653617 100644
--- a/code/modules/vore/eating/vore.dm
+++ b/code/modules/vore/eating/vore.dm
@@ -40,6 +40,7 @@ GLOBAL_LIST_EMPTY(vore_preferences_datums)
 	var/digestable = FALSE
 	var/devourable = FALSE
 	var/feeding = FALSE
+	var/lickable = FALSE
 //	var/allowmobvore = TRUE
 	var/list/belly_prefs = list()
 	var/vore_taste = "nothing in particular"
diff --git a/code/modules/vore/eating/vorepanel.dm b/code/modules/vore/eating/vorepanel.dm
index 962fe54af7..937bac9e57 100644
--- a/code/modules/vore/eating/vorepanel.dm
+++ b/code/modules/vore/eating/vorepanel.dm
@@ -242,22 +242,15 @@
 	dat += "<a href='?src=\ref[src];applyprefs=1'>Reload Slot Prefs</a>"
 
 	dat += "<HR>"
-	switch(user.digestable)
-		if(TRUE)
-			dat += "<br><a style='background:#173d15;' href='?src=\ref[src];toggledg=1'>Toggle Digestable (Currently: ON)</a>"
-		if(FALSE)
-			dat += "<br><a style='background:#990000;' href='?src=\ref[src];toggledg=1'>Toggle Digestable (Currently: OFF)</a>"
-	switch(user.devourable)
-		if(TRUE)
-			dat += "<br><a style='background:#173d15;' href='?src=\ref[src];toggledvor=1'>Toggle Devourable (Currently: ON)</a>"
-		if(FALSE)
-			dat += "<br><a style='background:#990000;' href='?src=\ref[src];toggledvor=1'>Toggle Devourable (Currently: OFF)</a>"
-	switch(user.feeding)
-		if(TRUE)
-			dat += "<br><a style='background:#173d15;' href='?src=\ref[src];toggledfeed=1'>Toggle Feeding (Currently: ON)</a>"
-		if(FALSE)
-			dat += "<br><a style='background:#990000;' href='?src=\ref[src];toggledfeed=1'>Toggle Feeding (Currently: OFF)</a>"
-
+	var/pref_on = "#173d15"
+	var/pref_off = "#990000"
+	dat += "<br><a style='background:[user.digestable ? pref_on : pref_off];' href='?src=\ref[src];toggledg=1'>Toggle Digestable (Currently: [user.digestable ? "ON" : "OFF"])</a>"
+	dat += "<br><a style='background:[user.devourable ? pref_on : pref_off];' href='?src=\ref[src];toggledg=1'>Toggle Devourable (Currently: [user.devourable ? "ON" : "OFF"])</a>"
+	dat += "<br><a style='background:[user.feeding ? pref_on : pref_off];' href='?src=\ref[src];toggledg=1'>Toggle Feeding (Currently: [user.feeding ? "ON" : "OFF"])</a>"
+	if(user.client.prefs_vr)
+		dat += "<br><a style='background:[user.client.prefs_vr.lickable ? pref_on : pref_off];' href='?src=\ref[src];toggledg=1'>Toggle Licking (Currently: [user.client.prefs_vr.lickable ? "ON" : "OFF"])</a>"
+	else
+		dat += "<br><a style='background:[pref_off];' href='?src=\ref[src];toggledg=1'>Licking not toggleable (OFF))</a>"
 	//Returns the dat html to the vore_look
 	return dat
 
@@ -734,5 +727,16 @@
 		if(user.client.prefs_vr)
 			user.client.prefs_vr.feeding = user.feeding
 
+	if(href_list["toggledlickable"])
+		if(user.client.prefs_vr)
+			var/choice = alert(user, "This button is to toggle your ability to be licked. Being licked is currently: [user.client.prefs_vr.lickable ? "Allowed" : "Prevented"]", "", "Allow Licking", "Cancel", "Prevent Licking")
+			switch(choice)
+				if("Cancel")
+					return FALSE
+				if("Allow Licking")
+					user.client.prefs_vr.lickable = TRUE
+				if("Prevent Licking")
+					user.client.prefs_vr.lickable = FALSE
+
 	//Refresh when interacted with, returning 1 makes vore_look.Topic update
-	return TRUE
\ No newline at end of file
+	return TRUE