Pain indication even when currently hidden by meds

Pain management cheat panel

locations/Cheatmenu_din

@@ -1359,44 +1359,84 @@ $cheatmenu['display'] = {
 
 }
 
-$cheatmenu['pain_killer'] = {
-	pain['head'] = 0
-	pain['hair'] = 0
-	pain['ears'] = 0
-	pain['eyebrows'] = 0
-	pain['eyes'] = 0
-	pain['cheeks'] = 0
-	pain['nose'] = 0
-	pain['mouth'] = 0
-	pain['lips'] = 0
-	pain['tongue'] = 0
-	pain['throat'] = 0
-	pain['neck'] = 0
-	pain['back'] = 0
-	pain['asscheeks'] = 0
-	pain['asshole'] = 0
-	pain['hips'] = 0
-	pain['thighs'] = 0
-	pain['legL'] = 0
-	pain['legR'] = 0
-	pain['feet'] = 0
-	pain['toes'] = 0
-	pain['shoulders'] = 0
-	pain['armL'] = 0
-	pain['armR'] = 0
-	pain['hands'] = 0
-	pain['fingers'] = 0
-	pain['chest'] = 0
-	pain['breasts'] = 0
-	pain['nipples'] = 0
-	pain['ribs'] = 0
-	pain['tummy'] = 0
-	pain['pubic'] = 0
-	pain['vaginal'] = 0
-	pain['labia'] = 0
-	pain['clitoris'] = 0
-	pain['urethra'] = 0
-	pain['cervix'] = 0
+$cheatmenu['pain'] = {
+	if pain['head'] < 0:pain['head'] = 0
+	if pain['hair'] < 0:pain['hair'] = 0
+	if pain['ears'] < 0:pain['ears'] = 0
+	if pain['eyebrows'] < 0:pain['eyebrows'] = 0
+	if pain['eyes'] < 0:pain['eyes'] = 0
+	if pain['cheeks'] < 0:pain['cheeks'] = 0
+	if pain['nose'] < 0:pain['nose'] = 0
+	if pain['mouth'] < 0:pain['mouth'] = 0
+	if pain['lips'] < 0:pain['lips'] = 0
+	if pain['tongue'] < 0:pain['tongue'] = 0
+	if pain['throat'] < 0:pain['throat'] = 0
+	if pain['neck'] < 0:pain['neck'] = 0
+	if pain['back'] < 0:pain['back'] = 0
+	if pain['asscheeks'] < 0:pain['asscheeks'] = 0
+	if pain['asshole'] < 0:pain['asshole'] = 0
+	if pain['hips'] < 0:pain['hips'] = 0
+	if pain['thighs'] < 0:pain['thighs'] = 0
+	if pain['legL'] < 0:pain['legL'] = 0
+	if pain['legR'] < 0:pain['legR'] = 0
+	if pain['feet'] < 0:pain['feet'] = 0
+	if pain['toes'] < 0:pain['toes'] = 0
+	if pain['shoulders'] < 0:pain['shoulders'] = 0
+	if pain['armL'] < 0:pain['armL'] = 0
+	if pain['armR'] < 0:pain['armR'] = 0
+	if pain['hands'] < 0:pain['hands'] = 0
+	if pain['fingers'] < 0:pain['fingers'] = 0
+	if pain['chest'] < 0:pain['chest'] = 0
+	if pain['breasts'] < 0:pain['breasts'] = 0
+	if pain['nipples'] < 0:pain['nipples'] = 0
+	if pain['ribs'] < 0:pain['ribs'] = 0
+	if pain['tummy'] < 0:pain['tummy'] = 0
+	if pain['pubic'] < 0:pain['pubic'] = 0
+	if pain['vaginal'] < 0:pain['vaginal'] = 0
+	if pain['clitoris'] < 0:pain['clitoris'] = 0
+	if pain['urethra'] < 0:pain['urethra'] = 0
+	if pain['cervix'] < 0:pain['cervix'] = 0
+	clr
+	pl '<center><a href="exec:dynamic $cheatmenu"><b>Cheat menu</b></a></center>'
+	nl
+	pl '<a href="exec:killvar ''pain'' & dynamic $cheatmenu[''pain'']">No pain</a>'
+	pl 'pain[head] = <<pain[''head'']>> <a href="exec:pain[''head''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''head''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[hair] = <<pain[''hair'']>> <a href="exec:pain[''hair''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hair''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[ears] = <<pain[''ears'']>> <a href="exec:pain[''ears''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''ears''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[eyebrows] = <<pain[''ears'']>> <a href="exec:pain[''eyebrows''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''eyebrows''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[eyes] = <<pain[''eyes'']>> <a href="exec:pain[''eyes''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''eyes''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[cheeks] = <<pain[''cheeks'']>> <a href="exec:pain[''cheeks''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''cheeks''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[nose] = <<pain[''nose'']>> <a href="exec:pain[''nose''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''nose''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[mouth] = <<pain[''mouth'']>> <a href="exec:pain[''mouth''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''mouth''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[lips] = <<pain[''lips'']>> <a href="exec:pain[''lips''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''lips''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[tongue] = <<pain[''tongue'']>> <a href="exec:pain[''tongue''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''tongue''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[throat] = <<pain[''throat'']>> <a href="exec:pain[''throat''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''throat''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[neck] = <<pain[''neck'']>> <a href="exec:pain[''neck''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''neck''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[back] = <<pain[''back'']>> <a href="exec:pain[''back''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''back''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[asscheeks] = <<pain[''asscheeks'']>> <a href="exec:pain[''asscheeks''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''asscheeks''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[asshole] = <<pain[''asshole'']>> <a href="exec:pain[''asshole''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''asshole''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[hips] = <<pain[''hips'']>> <a href="exec:pain[''hips''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hips''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[thighs] = <<pain[''thighs'']>> <a href="exec:pain[''thighs''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''thighs''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[left leg] = <<pain[''legL'']>> <a href="exec:pain[''legL''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''legL''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[right leg] = <<pain[''legR'']>> <a href="exec:pain[''legR''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''legR''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[feet] = <<pain[''feet'']>> <a href="exec:pain[''feet''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''feet''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[toes] = <<pain[''toes'']>> <a href="exec:pain[''toes''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''toes''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[shoulders] = <<pain[''shoulders'']>> <a href="exec:pain[''shoulders''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''shoulders''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[left arm] = <<pain[''armL'']>> <a href="exec:pain[''armL''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''armL''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[right arm] = <<pain[''armR'']>> <a href="exec:pain[''armR''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''armR''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[hands] = <<pain[''hands'']>> <a href="exec:pain[''hands''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hands''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[fingers] = <<pain[''fingers'']>> <a href="exec:pain[''fingers''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''fingers''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[chest] = <<pain[''chest'']>> <a href="exec:pain[''chest''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''chest''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[breasts] = <<pain[''breasts'']>> <a href="exec:pain[''breasts''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''breasts''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[nipples] = <<pain[''nipples'']>> <a href="exec:pain[''nipples''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''nipples''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[ribs] = <<pain[''ribs'']>> <a href="exec:pain[''ribs''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''ribs''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[tummy] = <<pain[''tummy'']>> <a href="exec:pain[''tummy''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''tummy''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[pubic] = <<pain[''pubic'']>> <a href="exec:pain[''pubic''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''pubic''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[vaginal] = <<pain[''vaginal'']>> <a href="exec:pain[''vaginal''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''vaginal''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[labia] = <<pain[''labia'']>> <a href="exec:pain[''labia''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''labia''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[clitoris] = <<pain[''clitoris'']>> <a href="exec:pain[''clitoris''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''clitoris''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[urethra] = <<pain[''urethra'']>> <a href="exec:pain[''urethra''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''urethra''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
+	pl 'pain[cervix] = <<pain[''cervix'']>> <a href="exec:pain[''cervix''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''cervix''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
 }
 
 $cheatmenu['quicktime'] = {
@@ -1425,7 +1465,7 @@ $cheatmenu = {
 	pl'<a href="exec:dynamic $cheatmenu[''display'']"><b>Status Display</b></a>'
 	if MagikDostup = 0: pl'<a href="exec:dynamic $cheatmenu[''magic'']"><b>Magic</b></a>'
 	pl'<a href="exec:gt ''NPCChanger'', ''Start''"><b>NPC Editor</b></a>'
-	nl
+	pl'<a href="exec:dynamic $cheatmenu[''pain'']"><b>Pain management panel</b></a>'
 	pl '<a href="exec:dynamic $cheatmenu[''bdimmain'']"><b>Body Image Controls</b></a>'
 	nl
 	pl'<a href="exec:pcs_health = pcs_vital*10 + pcs_stren*5+1000 & pcs_willpwr = pcs_intel*5 + will*5+1000 & pcs_manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo & vgape = 0 & agape = 0 & nippain = 0 & dynamic $cheatmenu">Full restoration of health, manna, Reason.</a>'

locations/indik

@@ -43,6 +43,7 @@ else
 	a1 = ARGS[2]
 	if a > 100:a = 100
 	if a < 0:a = 0
+	if ARGS[3] > 0:damage = ARGS[3]
 
 	if $ARGS[0] = '1':
 		if Enable_Android = 1:
@@ -101,6 +102,7 @@ else
 			end
 		else
 			j = a/5
+			damage = damage/5
 			$ind = '<font face="courier new" size = <<i>>> </font>'
 			indik_counter = 0
 			:indik2
@@ -108,6 +110,10 @@ else
 				$ind += '<font face="courier new" size = <<i>>>█</font>'
 				indik_counter += 1
 				jump 'indik2'
+			elseif indik_counter < damage:
+				$ind += '<font face="courier new" size = <<i>>>░</font>'
+				indik_counter += 1
+				jump 'indik2'
 			elseif indik_counter < 20:
 				$ind += '<font face="courier new" size = <<i>>>_</font>'
 				indik_counter += 1
@@ -115,6 +121,7 @@ else
 			end
 			killvar 'indik_counter'
 			killvar 'j'
+			killvar 'damage'
 			$ind += '<font face="courier new" size = <<i>>> </font>'
 			if a >= 90:
 				$ind = '<font color=#ff0000>' + $ind + '</font>'

locations/stat_display

@@ -22,7 +22,7 @@ pain['body4'] = pain['tummy'] + pain['pubic'] + pain['vaginal'] + pain['labia']
 
 pain['total'] = pain['body1'] + pain['body2'] + pain['body3'] + pain['body4'] + (vgape * 8) + (agape * 10) + (spanked * 24)
 if pain['total'] > 100: pain['total'] = 100
-
+pain['damage'] = pain['total']
 pain['relief'] = 0
 
 if alko > 6:
@@ -108,7 +108,7 @@ else
 	gs 'indik', '2', pcs_horny, pcs_horny
 	$stat_msg += '<BR><<$ind>> Arousal'
 
-	gs 'indik', '2', pain['total'], pain['total']
+	gs 'indik', '2', pain['total'], pain['total'], pain['damage']
 	$stat_msg += '<BR><<$ind>> Pain'
 
 	gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health