Merge remote-tracking branch 'upstream/master'

locations/Cum_Manage.qsrc

@@ -609,5 +609,368 @@ if $ARGS[0] = 'cumeater':
 	end
 end
 
+if $ARGS[0] = 'cum_stat_display':
+	if Enable_clearcum > 0: gs 'cum_cleanup', 'reset'
+
+	killvar 'cumvolume'
+	killvar 'i'
+	killvar 'knownguy'
+	killvar 'cumcount'
+	killvar 'cumowner'
+
+	if arrsize('sparrvol') > 0:
+		!!go through every location
+		:locationloop
+			!!start from the freshest load
+			idx = arrsize('sparrloc')-1
+			:spermitemloop
+				!!if the currently examined load loaction is the location of the current cycle, execute
+				if sparrloc[idx] = i:
+					!!setting the age of the current load
+					!! 0: mouth
+					!! 1: in this hour
+					!! 2: in four hours
+					!! 3: at least five hours ago
+					!! 4: in body (pussy or ass)
+					!! 5: no more than 12 hours in condom
+					!! 6: no more than 48 hours in condom
+					!! 7: more than two days old, in condom
+					if i = 12:
+						j = 0
+					elseif i = 17:
+						if sparrage[idx] <= 12:
+							j = 5
+						elseif sparrage[idx] <= 48:
+							j = 6
+						else
+							j = 7
+						end
+					elseif i = 0 or i = 3:
+						j = 4
+					else
+						if sparrage[idx] <= 1:
+							j = 1
+						elseif sparrage[idx] <= 5:
+							j = 2
+						else
+							j = 3
+						end
+					end
+
+					cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
+					if sparrvol[idx] > 0:
+						if sparridt[idx] = 0:
+							!!unknown partner
+							cumcount['<<i>>:<<j>>'] += 1
+						elseif sparridt[idx] = 1:
+							!!known partner
+							!!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
+							if knownguy['<<i>>:<<j>>'] > 0:
+								gchk = 0
+								:sameguycheck
+								if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
+								if gchk > knownguy['<<i>>:<<j>>']:
+									$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
+									knownguy['<<i>>:<<j>>'] += 1
+									cumcount['<<i>>:<<j>>'] += 1
+								end
+							else
+								$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
+								knownguy['<<i>>:<<j>>'] += 1
+								cumcount['<<i>>:<<j>>'] += 1
+							end
+						end
+					end
+				end
+			if idx > 0:idx -= 1 & jump 'spermitemloop'
+		if i < 18:i += 1 & jump 'locationloop'
+		killvar 'i'
+		killvar 'idx'
+		killvar 'j'
+	end
+
+	!!Clearing cum location array before positive entries are applied below in the icon and the text message codes
+	killvar 'cumloc'
+
+	$stat_cum_msg = ''
+	$stat_cum_text = ''
+	stat_visible_cum = 0
+	stat_cumloc_check = 0
+
+	i = 0
+	:cumlocloop
+		if i = 0:
+			$icon_txtloc = 'your pussy'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
+		elseif i = 1:
+			$icon_txtloc = 'your labia'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
+		elseif i = 2:
+			$txtloc = 'the front of your panties'
+			$icon_txtloc = $txtloc
+		elseif i = 3:
+			$icon_txtloc = 'your ass'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
+		elseif i = 4:
+			$icon_txtloc = 'your butt'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
+		elseif i = 5:
+			$txtloc = 'the back of your panties'
+			$icon_txtloc = $txtloc
+		elseif i = 6:
+
+			$icon_txtloc = 'your clothes near your groin'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
+		elseif i = 7:
+			$icon_txtloc = 'your clothes'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
+		elseif i = 8:
+			$txtloc = 'your back'
+			$icon_txtloc = $txtloc
+		elseif i = 9:
+			$txtloc = 'your legs'
+			$icon_txtloc = $txtloc
+		elseif i = 10:
+			$txtloc = 'your arms'
+			$icon_txtloc = $txtloc
+		elseif i = 11:
+			if pcs_haircol = 0:
+				$cum_face_image = 'brown/'
+				$cum_face_image += rand(1, 31)
+			elseif pcs_haircol = 1:
+				$cum_face_image = 'black/'
+				$cum_face_image += rand(1, 23)
+			elseif pcs_haircol = 2:
+				$cum_face_image = 'red/'
+				$cum_face_image += rand(1, 19)
+			elseif pcs_haircol = 3:
+				$cum_face_image = 'blonde/'
+				$cum_face_image += rand(1, 25)
+			elseif pcs_haircol > 3:
+				$cum_face_image = 'custom/'
+				$cum_face_image += rand(1, 20)
+			end
+			$icon_txtloc = 'your face'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
+			killvar 'cum_face_image'
+		elseif i = 13:
+			$txtloc = 'your hands'
+			$icon_txtloc = $txtloc
+		elseif i = 14:
+			$icon_txtloc = 'your stomach'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
+		elseif i = 15:
+			$icon_txtloc = 'your breasts'
+			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
+		elseif i = 16:
+			$icon_txtloc = 'your hair'
+			$txtloc = 'your hair</a>'
+		elseif i = 17:
+			$txtloc = 'in your vagina in a slipped condom'
+			$icon_txtloc = $txtloc
+		else
+			$icon_txtloc = 'the gusset of your panties'
+			$txtloc = 'the gusset of your panties</a>'
+		end
+
+		j = 0
+		:ageloop
+			if cumvolume['<<i>>:<<j>>'] > 0:
+				!!Cum locations set for checking npc reactions
+				cumloc[i] = 1
+				cumvol[i] = cumvolume['<<i>>:<<j>>']
+				if stat_cumloc_check ! 1 and i ! 12: stat_cumloc_check = 1
+				!!amount setting
+				if cumvolume['<<i>>:<<j>>'] > 250:
+					!! 25 ml, about four-five load, gushing
+					$txtamount = 'Enormous '
+				elseif cumvolume['<<i>>:<<j>>'] > 100:
+					!! 10 ml, about two load, flowing
+					$txtamount = 'Huge '
+				elseif cumvolume['<<i>>:<<j>>'] >= 20:
+					!! 2 ml, seeping out
+					$txtamount = 'Decent '
+				else
+					!! residue amount, no leakage
+					$txtamount = 'Small '
+				end
+
+				!! if sperm age stage is 4, it means inside the body
+				if j = 4:
+					if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
+						$txtproxy = 'being plugged in '
+					elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
+						$txtproxy = 'staying inside of '
+					elseif i = 3 and pcs_ass <= 25:
+						$txtproxy = 'staying inside of '
+					else
+						if cumvolume['<<i>>:<<j>>'] > 250:
+							$txtproxy = 'gushing out of '
+						elseif cumvolume['<<i>>:<<j>>'] > 100:
+							$txtproxy = 'flowing out of '
+						elseif cumvolume['<<i>>:<<j>>'] >= 40:
+							$txtproxy = 'seeping out of '
+						else
+							$txtproxy = 'staying inside of '
+						end
+					end
+				elseif j >= 5:
+				!! if sperm age stage is over 4, meaning in condom
+					if j = 5:
+						$txtproxy = 'buried '
+					elseif j = 6:
+						$txtproxy = 'marinating '
+					else
+						$txtproxy = 'rotting '
+					end
+					if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
+				elseif j < 4 and j > 0:
+					!!amount setting
+					if cumvolume['<<i>>:<<j>>'] > 160:
+						!! 10 ml, about two load, flowing
+						$txtproxy = 'coating '
+					elseif cumvolume['<<i>>:<<j>>'] > 40:
+						!! 2 ml, seeping out
+						$txtproxy = 'covering '
+					else
+						!! residue amount, no leakage
+						$txtproxy = 'spattering '
+					end
+					if j = 1:
+						$txtproxy += 'wetly '
+					elseif j = 2:
+						$txtproxy += 'dryly '
+					else
+						$txtproxy += 'powderly '
+					end
+				end
+
+				$txtperson = ''
+				if cumcount['<<i>>:<<j>>'] = 0:
+	!!ToDo: No idea how to do the icon here (julzor)
+					$txtiscum = 'some whitish substance '
+				else
+					$txtiscum = 'cum'
+					if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
+					!! everyone is known (one or more)
+						if knownguy['<<i>>:<<j>>'] = 1:
+							$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
+						else
+							kmax = 0
+							:nullocator1
+							if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
+							kmax -= 1
+							k = 0
+							:knownloop
+								$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
+							if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
+							k += 1
+							$txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
+						end
+					elseif knownguy['<<i>>:<<j>>'] = 0:
+					!! no one is known (one or more)
+						if cumcount['<<i>>:<<j>>'] = 1:
+							$txtperson += 'some guy '
+						else
+							$txtperson += 'some guys '
+						end
+					else
+					!! there are known and unknown guys in the mix
+						if knownguy['<<i>>:<<j>>'] = 1:
+							$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
+						else
+							kmax = 0
+							:nullocator2
+							if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
+							kmax -= 1
+							k = 0
+							:mixloop
+								$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
+							if k < kmax: k += 1 & jump 'mixloop'
+							$txtperson += 'and some guy'
+						end
+						if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
+							$txtperson += 's '
+						else
+							$txtperson += ' '
+						end
+					end
+				end
+				$icon_txtiscum = $txtiscum
+				if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum': $txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
+				$txtiscum += ' from '
+				$icon_txtiscum += ' from '
+				if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
+					$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')
+				elseif sparragestage >= 5:
+					if cumcondslip_aware > 0: $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
+				elseif j ! 0:
+					$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
+				else
+					$stat_cum_text += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
+					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
+					$stat_cum_msg += 'Your breath smells like sperm.'
+				end
+			end
+		if j < 7: j+=1 & jump 'ageloop'
+	if i < 18: i+=1 & jump 'cumlocloop'
+	killvar 'i'
+	killvar 'j'
+	killvar 'txtperson'
+	killvar 'k'
+	killvar 'kmax'
+	killvar 'txtamount'
+	killvar 'txtiscum'
+	killvar '$icon_txtiscum'
+	killvar 'txtperson'
+	killvar 'txtproxy'
+	killvar 'txtloc'
+	killvar '$icon_txtloc'
+	killvar 'cumvolume'
+	killvar 'cumcount'
+	killvar 'knownguy'
+	killvar 'cumowner'
+
+	$stat_visible_cum_temp = ''
+	$stat_visible_cum_msg = ''
+
+	if cumloc[6] = 1 or cumloc[7] = 1 or cumloc[11] = 1 or cumloc[13] = 1 or cumloc[16] = 1:
+		if cumloc[6] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your clothes near your groin'
+		end
+		if cumloc[7] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your clothes'
+		end
+		if cumloc[11] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your face'
+		end
+		if cumloc[13] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your hands'
+		end
+		if cumloc[16] = 1:
+			stat_visible_cum = 1
+			if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
+			$stat_visible_cum_temp += 'your hair'
+		end
+
+		$stat_visible_cum_msg = 'People can see the cum on '+ $stat_visible_cum_temp + '.'
+	end
+
+end
+
 --- Cum_Manage ---------------------------------
 

locations/pavtrainhall.qsrc

@@ -283,6 +283,7 @@ if $ARGS[0] = 'buy_ticket':
 	if money >= 150:
 		act 'Buy a ticket to city center (150 <b>₽</b>)':
 			money -= 150
+			if rand(0,10) = 0: gt 'train', 'weed'
 			gt 'pavtrainhall', 'centre'
 		end
 	end

locations/stat_display.qsrc

@@ -668,368 +668,7 @@ end
 $stat_img_temp = func('$body_image','clothes')
 $stat_clothes_msg += '<br><img src="<<$stat_img_temp>>">'
 
-!!------ Cum management (Start) -------
-
-if Enable_clearcum > 0: gs 'cum_cleanup', 'reset'
-
-killvar 'cumvolume'
-killvar 'i'
-killvar 'knownguy'
-killvar 'cumcount'
-killvar 'cumowner'
-
-if arrsize('sparrvol') > 0:
-	!!go through every location
-	:locationloop
-		!!start from the freshest load
-		idx = arrsize('sparrloc')-1
-		:spermitemloop
-			!!if the currently examined load loaction is the location of the current cycle, execute
-			if sparrloc[idx] = i:
-				!!setting the age of the current load
-				!! 0: mouth
-				!! 1: in this hour
-				!! 2: in four hours
-				!! 3: at least five hours ago
-				!! 4: in body (pussy or ass)
-				!! 5: no more than 12 hours in condom
-				!! 6: no more than 48 hours in condom
-				!! 7: more than two days old, in condom
-				if i = 12:
-					j = 0
-				elseif i = 17:
-					if sparrage[idx] <= 12:
-						j = 5
-					elseif sparrage[idx] <= 48:
-						j = 6
-					else
-						j = 7
-					end
-				elseif i = 0 or i = 3:
-					j = 4
-				else
-					if sparrage[idx] <= 1:
-						j = 1
-					elseif sparrage[idx] <= 5:
-						j = 2
-					else
-						j = 3
-					end
-				end
-
-				cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
-				if sparrvol[idx] > 0:
-					if sparridt[idx] = 0:
-						!!unknown partner
-						cumcount['<<i>>:<<j>>'] += 1
-					elseif sparridt[idx] = 1:
-						!!known partner
-						!!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
-						if knownguy['<<i>>:<<j>>'] > 0:
-							gchk = 0
-							:sameguycheck
-							if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
-							if gchk > knownguy['<<i>>:<<j>>']:
-								$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
-								knownguy['<<i>>:<<j>>'] += 1
-								cumcount['<<i>>:<<j>>'] += 1
-							end
-						else
-							$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
-							knownguy['<<i>>:<<j>>'] += 1
-							cumcount['<<i>>:<<j>>'] += 1
-						end
-					end
-				end
-			end
-		if idx > 0:idx -= 1 & jump 'spermitemloop'
-	if i < 18:i += 1 & jump 'locationloop'
-	killvar 'i'
-	killvar 'idx'
-	killvar 'j'
-end
-
-!!Clearing cum location array before positive entries are applied below in the icon and the text message codes
-killvar 'cumloc'
-
-$stat_cum_msg = ''
-$stat_cum_text = ''
-stat_visible_cum = 0
-stat_cumloc_check = 0
-
-i = 0
-:cumlocloop
-	if i = 0:
-		$icon_txtloc = 'your pussy'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
-	elseif i = 1:
-		$icon_txtloc = 'your labia'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
-	elseif i = 2:
-		$txtloc = 'the front of your panties'
-		$icon_txtloc = $txtloc
-	elseif i = 3:
-		$icon_txtloc = 'your ass'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
-	elseif i = 4:
-		$icon_txtloc = 'your butt'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
-	elseif i = 5:
-		$txtloc = 'the back of your panties'
-		$icon_txtloc = $txtloc
-	elseif i = 6:
-
-		$icon_txtloc = 'your clothes near your groin'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
-	elseif i = 7:
-		$icon_txtloc = 'your clothes'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
-	elseif i = 8:
-		$txtloc = 'your back'
-		$icon_txtloc = $txtloc
-	elseif i = 9:
-		$txtloc = 'your legs'
-		$icon_txtloc = $txtloc
-	elseif i = 10:
-		$txtloc = 'your arms'
-		$icon_txtloc = $txtloc
-	elseif i = 11:
-		if pcs_haircol = 0:
-			$cum_face_image = 'brown/'
-			$cum_face_image += rand(1, 31)
-		elseif pcs_haircol = 1:
-			$cum_face_image = 'black/'
-			$cum_face_image += rand(1, 23)
-		elseif pcs_haircol = 2:
-			$cum_face_image = 'red/'
-			$cum_face_image += rand(1, 19)
-		elseif pcs_haircol = 3:
-			$cum_face_image = 'blonde/'
-			$cum_face_image += rand(1, 25)
-		elseif pcs_haircol > 3:
-			$cum_face_image = 'custom/'
-			$cum_face_image += rand(1, 20)
-		end
-		$icon_txtloc = 'your face'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
-		killvar 'cum_face_image'
-	elseif i = 13:
-		$txtloc = 'your hands'
-		$icon_txtloc = $txtloc
-	elseif i = 14:
-		$icon_txtloc = 'your stomach'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
-	elseif i = 15:
-		$icon_txtloc = 'your breasts'
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
-	elseif i = 16:
-		$icon_txtloc = 'your hair'
-		$txtloc = 'your hair</a>'
-	elseif i = 17:
-		$txtloc = 'in your vagina in a slipped condom'
-		$icon_txtloc = $txtloc
-	else
-		$icon_txtloc = 'the gusset of your panties'
-		$txtloc = 'the gusset of your panties</a>'
-	end
-
-	j = 0
-	:ageloop
-		if cumvolume['<<i>>:<<j>>'] > 0:
-			!!Cum locations set for checking npc reactions
-			cumloc[i] = 1
-			if stat_cumloc_check ! 1 and i ! 12: stat_cumloc_check = 1
-			!!amount setting
-			if cumvolume['<<i>>:<<j>>'] > 250:
-				!! 25 ml, about four-five load, gushing
-				$txtamount = 'Enormous '
-			elseif cumvolume['<<i>>:<<j>>'] > 100:
-				!! 10 ml, about two load, flowing
-				$txtamount = 'Huge '
-			elseif cumvolume['<<i>>:<<j>>'] >= 20:
-				!! 2 ml, seeping out
-				$txtamount = 'Decent '
-			else
-				!! residue amount, no leakage
-				$txtamount = 'Small '
-			end
-
-			!! if sperm age stage is 4, it means inside the body
-			if j = 4:
-				if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
-					$txtproxy = 'being plugged in '
-				elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
-					$txtproxy = 'staying inside of '
-				elseif i = 3 and pcs_ass <= 25:
-					$txtproxy = 'staying inside of '
-				else
-					if cumvolume['<<i>>:<<j>>'] > 250:
-						$txtproxy = 'gushing out of '
-					elseif cumvolume['<<i>>:<<j>>'] > 100:
-						$txtproxy = 'flowing out of '
-					elseif cumvolume['<<i>>:<<j>>'] >= 40:
-						$txtproxy = 'seeping out of '
-					else
-						$txtproxy = 'staying inside of '
-					end
-				end
-			elseif j >= 5:
-			!! if sperm age stage is over 4, meaning in condom
-				if j = 5:
-					$txtproxy = 'buried '
-				elseif j = 6:
-					$txtproxy = 'marinating '
-				else
-					$txtproxy = 'rotting '
-				end
-				if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
-			elseif j < 4 and j > 0:
-				!!amount setting
-				if cumvolume['<<i>>:<<j>>'] > 160:
-					!! 10 ml, about two load, flowing
-					$txtproxy = 'coating '
-				elseif cumvolume['<<i>>:<<j>>'] > 40:
-					!! 2 ml, seeping out
-					$txtproxy = 'covering '
-				else
-					!! residue amount, no leakage
-					$txtproxy = 'spattering '
-				end
-				if j = 1:
-					$txtproxy += 'wetly '
-				elseif j = 2:
-					$txtproxy += 'dryly '
-				else
-					$txtproxy += 'powderly '
-				end
-			end
-
-			$txtperson = ''
-			if cumcount['<<i>>:<<j>>'] = 0:
-!!ToDo: No idea how to do the icon here (julzor)
-				$txtiscum = 'some whitish substance '
-			else
-				$txtiscum = 'cum'
-				if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
-				!! everyone is known (one or more)
-					if knownguy['<<i>>:<<j>>'] = 1:
-						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
-					else
-						kmax = 0
-						:nullocator1
-						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
-						kmax -= 1
-						k = 0
-						:knownloop
-							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
-						if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
-						k += 1
-						$txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
-					end
-				elseif knownguy['<<i>>:<<j>>'] = 0:
-				!! no one is known (one or more)
-					if cumcount['<<i>>:<<j>>'] = 1:
-						$txtperson += 'some guy '
-					else
-						$txtperson += 'some guys '
-					end
-				else
-				!! there are known and unknown guys in the mix
-					if knownguy['<<i>>:<<j>>'] = 1:
-						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
-					else
-						kmax = 0
-						:nullocator2
-						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
-						kmax -= 1
-						k = 0
-						:mixloop
-							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
-						if k < kmax: k += 1 & jump 'mixloop'
-						$txtperson += 'and some guy'
-					end
-					if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
-						$txtperson += 's '
-					else
-						$txtperson += ' '
-					end
-				end
-			end
-			$icon_txtiscum = $txtiscum
-			if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum': $txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
-			$txtiscum += ' from '
-			$icon_txtiscum += ' from '
-			if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
-				$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')
-			elseif sparragestage >= 5:
-				if cumcondslip_aware > 0: $stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
-			elseif j ! 0:
-				$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + '.'
-			else
-				$stat_cum_text += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
-				if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
-				$stat_cum_msg += 'Your breath smells like sperm.'
-			end
-		end
-	if j < 7: j+=1 & jump 'ageloop'
-if i < 18: i+=1 & jump 'cumlocloop'
-killvar 'i'
-killvar 'j'
-killvar 'txtperson'
-killvar 'k'
-killvar 'kmax'
-killvar 'txtamount'
-killvar 'txtiscum'
-killvar '$icon_txtiscum'
-killvar 'txtperson'
-killvar 'txtproxy'
-killvar 'txtloc'
-killvar '$icon_txtloc'
-killvar 'cumvolume'
-killvar 'cumcount'
-killvar 'knownguy'
-killvar 'cumowner'
-
-$stat_visible_cum_temp = ''
-$stat_visible_cum_msg = ''
-
-if cumloc[6] = 1 or cumloc[7] = 1 or cumloc[11] = 1 or cumloc[13] = 1 or cumloc[16] = 1:
-	if cumloc[6] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your clothes near your groin'
-	end
-	if cumloc[7] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your clothes'
-	end
-	if cumloc[11] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your face'
-	end
-	if cumloc[13] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your hands'
-	end
-	if cumloc[16] = 1:
-		stat_visible_cum = 1
-		if $stat_visible_cum_temp ! '': $stat_visible_cum_temp += ', '
-		$stat_visible_cum_temp += 'your hair'
-	end
-
-	$stat_visible_cum_msg = 'People can see the cum on '+ $stat_visible_cum_temp + '.'
-end
-
-!!------ Cum management (End) ------
+gs 'cum_manage', 'cum_stat_display'
 
 $stat_bfgf_msg_0 = ''
 $stat_bfgf_tooltip_0 = ''

locations/train.qsrc

@@ -307,13 +307,12 @@ if $ARGS[0] = 'events':
 		gt 'train', 'fit'
 	elseif event_random < 70:
 		gt 'train', 'young'
-	elseif event_random < 100:
-		gt 'train', 'weed'
 	else
 		gt $loc, $metka
 	end
 end
 
+!!only triggered direct from Pav when going to the city center
 if $ARGS[0] = 'weed':
 	train_event = 1
 	menu_off = 1
@@ -350,11 +349,11 @@ if $ARGS[0] = 'weed':
 					*clr & cla
 					minut += 40
 					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg" ></center>'
-					'After 40 minutes, you see the town of Pavlovsk approaching. Pavlovsk Castle is an impressive sight, even from a long distance. The train stops at its final destination, a platform in Pavlovsk station.'
+					'<center><img <<$set_imgh>> src="images/locations/shared/train/cityplat.jpg" ></center>'
+					'After 40 minutes, the train stops at the St. Petersburg city center station. The large office blocks and shopping centers fill your view. This is the train''s final destination.'
 					act 'Get off the train':
 						if rand(1, 100) <= 5: gt 'train_incidental', 'end'
-						gt 'pavtrainhall', 'platform'
+						gt 'cityTrain', 'inside'
 					end
 				end
 			end
@@ -390,11 +389,11 @@ if $ARGS[0] = 'weed':
 						*clr & cla
 						minut += 40
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg" ></center>'
-						'After 40 minutes, you see the town of Pavlovsk approaching. Pavlovsk Castle is an impressive sight, even from a long distance. The train stops at its final destination, a platform in Pavlovsk station.'
+						'<center><img <<$set_imgh>> src="images/locations/shared/train/cityplat.jpg" ></center>'
+						'After 40 minutes, the train stops at the St. Petersburg city center station. The large office blocks and shopping centers fill your view. This is the train''s final destination.'
 						act 'Get off the train':
 							if rand(1, 100) <= 5: gt 'train_incidental', 'end'
-							gt 'pavtrainhall', 'platform'
+							gt 'cityTrain', 'inside'
 						end
 					end
 				end		
@@ -450,10 +449,10 @@ if $ARGS[0] = 'weed':
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/locations/shared/train/ride.jpg"></center>'
 								'Once on the train, you look around but you don''t see the young man. Perhaps he got on a different car? You go looking for him, passing through a few different sections, hoping to continue what you started and deal with your overwhelming horniness, but after checking the entire train without seeing a hint of him, you give up and find a seat.'
-								'After 40 minutes, you see the town of Pavlovsk approaching. Pavlovsk Castle is an impressive sight, even from a long distance. The train stops at its final destination, a platform in Pavlovsk station.'
+								'<center><img <<$set_imgh>> src="images/locations/shared/train/cityplat.jpg" ></center>'
+								'After 40 minutes, the train stops at the St. Petersburg city center station. The large office blocks and shopping centers fill your view. This is the train''s final destination.'
 								act 'Get off the train':
 									if rand(1, 100) <= 5: gt 'train_incidental', 'end'
-									gt 'pavtrainhall', 'platform'
 								end
 							end
 						end