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 1/3] 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

From b76b346f2dec83d95b3f140e8c77f1f97f06fe75 Mon Sep 17 00:00:00 2001
From: Putnam <putnam3145@gmail.com>
Date: Wed, 19 Feb 2020 10:56:43 -0800
Subject: [PATCH 2/3] whoops

---
 code/modules/vore/eating/vorepanel.dm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/code/modules/vore/eating/vorepanel.dm b/code/modules/vore/eating/vorepanel.dm
index 937bac9e57..a2746f35e8 100644
--- a/code/modules/vore/eating/vorepanel.dm
+++ b/code/modules/vore/eating/vorepanel.dm
@@ -245,12 +245,10 @@
 	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>"
+	dat += "<br><a style='background:[user.devourable ? pref_on : pref_off];' href='?src=\ref[src];toggledvor=1'>Toggle Devourable (Currently: [user.devourable ? "ON" : "OFF"])</a>"
+	dat += "<br><a style='background:[user.feeding ? pref_on : pref_off];' href='?src=\ref[src];toggledfeed=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>"
+		dat += "<br><a style='background:[user.client.prefs_vr.lickable ? pref_on : pref_off];' href='?src=\ref[src];toggledlickable=1'>Toggle Licking (Currently: [user.client.prefs_vr.lickable ? "ON" : "OFF"])</a>"
 	//Returns the dat html to the vore_look
 	return dat
 

From 3bf1ac590c4a22a85539811e6c9487a9499e53ec Mon Sep 17 00:00:00 2001
From: Putnam <putnam3145@gmail.com>
Date: Wed, 19 Feb 2020 11:00:56 -0800
Subject: [PATCH 3/3] it's probably better that it works

---
 code/modules/vore/eating/living.dm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/code/modules/vore/eating/living.dm b/code/modules/vore/eating/living.dm
index bf41c46332..5f280fb04d 100644
--- a/code/modules/vore/eating/living.dm
+++ b/code/modules/vore/eating/living.dm
@@ -384,6 +384,9 @@
 	if(!istype(tasted))
 		return
 
+	if(!tasted.client?.prefs_vr.lickable)
+		return
+
 	if(src == stat)
 		return