Bläddra i källkod

Pain expansion, for better tracking and to cleanup main stat window

KevinSmarts 9 år sedan
förälder
incheckning
60a03db1cc
5 ändrade filer med 72 tillägg och 42 borttagningar
  1. 1 0
      glife.qproj
  2. 4 0
      locations/_menu_pain
  3. 62 1
      locations/obj_din
  4. 2 0
      locations/onobjsel
  5. 3 41
      locations/stat

+ 1 - 0
glife.qproj

@@ -752,6 +752,7 @@
       <Location name="$menu_reputation"/>
       <Location name="$menu_mobila"/>
       <Location name="$menu_magic"/>
+      <Location name="$menu_pain"/>
       <Location name="$menu_face"/>
       <Location name="$menu_body"/>
       <Location name="$menu_clothes"/>

+ 4 - 0
locations/_menu_pain

@@ -0,0 +1,4 @@
+# $menu_pain
+dynamic $objpain
+--- $menu_pain ---------------------------------
+

+ 62 - 1
locations/obj_din

@@ -113,7 +113,18 @@ $objskills = {
 
 	if SUB > 0:pl 'Subordination <<SUB>>'
 	if DOM > 0:pl 'Dominance <<DOM>>'
-
+	pl
+	pl '<b>Sexual characteristics</b>'
+	pl
+	pl 'Curiosity <<$curiosity>>'
+	pl 'Exhibition <<$exhibition>>'
+	pl 'Perversion <<$perversion>>'
+	pl 'Inhibition <<$inhibition>>'
+	pl '<b>Fetishes</b>'
+	pl 'Masochism <<$masochism>>'
+	pl 'BDSM <<$BDSMfet>>'
+	pl 'Bestiality <<$bestiality>>'
+	pl
 	!!pl 'Muscles <<$musle>>'
 
 	if magik > 0:pl 'Magic - <<magik>>'
@@ -507,6 +518,56 @@ $objmagic = {
 	end
 }
 
+$objpain = {
+	clr
+	pl'<center>Pain</center>'
+	pl
+	pl
+	if pirs_pain_ton = 1:
+		pl '<font color="red">Your tongue is uncomfortable and it is a little swollen.</font>'
+	elseif pirs_pain_ton = 2:
+		pl '<font color="red">Your tongue aches and it is noticeably swollen.</font>'
+	elseif pirs_pain_ton > 2:
+		pl '<font color="red"><b>You have a sore tongue, it is very swollen and almost fills your mouth.</b></font>'
+	end
+
+	if pirs_pain_ton > 0: pl
+	if nippain > 0:pl '<font color="red"><b><<$nippain>></b></font>'
+	if painpub > 0:pl '<font color="red"><b><<$painpub>></b></font>'
+
+	if vgape > 0:
+		if vgape >= 3:
+			pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
+		elseif vgape = 2:
+			pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
+		else
+			pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
+		end
+	end
+
+	if agape > 0:
+		if agape = 3:
+			pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
+		elseif agape = 2:
+			pl '<b><font color="red">You have a sore anus.</font></b>'
+		else
+			pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
+		end
+	end
+
+	if spanked > 0:
+		if spanked >= 3:
+			pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss2.jpg''">poor ass</a> hurts mercilessly, it is covered in bright red scars from the blows, some of them forming bruises.</font></b>'
+		elseif spanked = 2:
+			pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss1.jpg''">ass</a> burns with fire, you can clearly see bands of red across both cheeks.</font></b>'
+		else
+			pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss.jpg''">ass</a> is a little red from spanking and it stings a little.</font></b>'
+		end
+	end
+
+
+}
+
 $objclothes = {
 	clr
 	if $clothingworntype = 'nude' and towel = 1 and tanga = 0:

+ 2 - 0
locations/onobjsel

@@ -1,12 +1,14 @@
 # onobjsel
 !the dynamics can all be found in obj_din and Cheatmenu_din
 
+killvar 'menu_character'
 $menu_character[0] = 'Description:$menu_descrip'
 $menu_character[1] = 'Characteristics of:$menu_skills'
 $menu_character[2] = 'Statistics:$menu_statistika'
 $menu_character[3] = 'Reputation:$menu_reputation'
 
 if magik > 0:$menu_character[4] = 'Magic:$menu_magic'
+$menu_character[3] = 'Pain:$menu_pain'
 
 $menu_lookon[0] = 'Face:$menu_face'
 $menu_lookon[1] = 'Body:$menu_body'

+ 3 - 41
locations/stat

@@ -1331,6 +1331,9 @@ else
 	gs 'indik', '2', horny, horny
 	pl '<<$ind>> Arousal'
 
+	gs 'indik', '2', pain[total], pain[total]
+	pl '<<$ind>> Pain'
+
 	gs 'indik', '1', health * 100 / healthmax, health
 	pl '<<$ind>> Health'
 
@@ -1548,18 +1551,6 @@ end
 
 if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette.</font>'
 
-if pirs_pain_ton = 1:
-	pl '<font color="red">Your tongue is uncomfortable and it is a little swollen.</font>'
-elseif pirs_pain_ton = 2:
-	pl '<font color="red">Your tongue aches and it is noticeably swollen.</font>'
-elseif pirs_pain_ton > 2:
-	pl '<font color="red"><b>You have a sore tongue, it is very swollen and almost fills your mouth.</b></font>'
-end
-
-if pirs_pain_ton > 0: pl
-if nippain > 0:pl '<font color="red"><b><<$nippain>></b></font>'
-if painpub > 0:pl '<font color="red"><b><<$painpub>></b></font>'
-
 if sweat = 1:
 	pl '<font color="brown">You''re sweating.</font>'
 elseif sweat = 2:
@@ -2151,35 +2142,6 @@ elseif lactatemess > 0:
 		pl'<font color = black>Your shirt is drenched with milk from your breasts.</font>'
 	end	
 end
-if vgape > 0:
-	if vgape >= 3:
-		pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
-	elseif vgape = 2:
-		pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
-	else
-		pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
-	end
-end
-
-if agape > 0:
-	if agape = 3:
-		pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
-	elseif agape = 2:
-		pl '<b><font color="red">You have a sore anus.</font></b>'
-	else
-		pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
-	end
-end
-
-if spanked > 0:
-	if spanked >= 3:
-		pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss2.jpg''">poor ass</a> hurts mercilessly, it is covered in bright red scars from the blows, some of them forming bruises.</font></b>'
-	elseif spanked = 2:
-		pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss1.jpg''">ass</a> burns with fire, you can clearly see bands of red across both cheeks.</font></b>'
-	else
-		pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss.jpg''">ass</a> is a little red from spanking and it stings a little.</font></b>'
-	end
-end
 
 if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
 if Gerpes >= 10: