Sfoglia il codice sorgente

[fixed] choosing potential father

julzor 5 anni fa
parent
commit
47123dde2e
2 ha cambiato i file con 34 aggiunte e 7 eliminazioni
  1. 32 6
      locations/din_bad.qsrc
  2. 2 1
      locations/saveupdater.qsrc

+ 32 - 6
locations/din_bad.qsrc

@@ -573,7 +573,35 @@ $d_cycreport_actor = {
 		*clr & cla
 		'<center><h1>Fertility Cycle</h1></center>'
 		'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
-		'<td width="250" cellspacing="0" cellpadding="0" valign="top">'
+		'<td width="500" cellspacing="0" cellpadding="0" valign="top">'
+		
+		potfather_temp[1] = arrsize('$wombpotfath')
+		if potfather_temp[1] > 0:
+			potfather_counter = 0
+			'List of potential fathers:'
+			:potfather_loop
+			if $wombpotfath[potfather_temp] ! 'unknown':
+				$potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$wombpotfath[potfather_temp]]>> (<<$wombpotfath[potfather_temp]>>)</a>'
+			else
+				$potfather_temp[2] = '<a href="exec: $wombthfath = ''<<$npc_usedname[$wombpotfath[potfather_counter]]>>'' & $wombthfathID = ''<<$wombpotfath[potfather_counter]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
+			end
+			'Potential father (<<potfather_counter + 1>>): <<$potfather_temp[2]>>'
+			potfather_counter += 1
+			if potfather_counter < arrsize('$wombpotfath'): jump 'potfather_loop'
+		else
+			'There are no potential fathers.'
+		end
+		
+		killvar 'potfather_counter'
+		
+		'<br>  <a href="exec:dynamic $d_cycreport_choice & gs ''stat''">Accept</a>'
+		'</td></tr></table></center>'
+		
+		act 'Return':dynamic $d_cycreport_choice
+		act 'Exit':gs 'stat' & gt $loc, $metka
+		
+		!! This is the old code that was broken, keeping it for now (julzor)
+		!! {
 		tempmax = arrsize('$cumfthname')-1
 		tempcurr = 0
 		sumcum = 0
@@ -590,7 +618,7 @@ $d_cycreport_actor = {
 		:pickfathloop
 			if cumtime[tempcurr] > 0:
 				if $npc_usedname[$cumfthname[tempcurr]] <> '':
-					' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
+					'<a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
 				else
 					' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7 & gs ''stat''">Unknown (-)</a>'
 				end
@@ -600,10 +628,8 @@ $d_cycreport_actor = {
 		killvar 'cum'
 		killvar 'tempmax'
 		killvar 'tempcurr'
-		'<br>  <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
-		act 'Return':dynamic $d_cycreport_choice
-		act 'Exit':gs 'stat' & gt $loc, $metka
-		'</td></tr></table></center>'
+		}
+		
 	elseif ARGS[0] = 10:
 		temp = arrsize('Babyptype')
 		temp -= 1

+ 2 - 1
locations/saveupdater.qsrc

@@ -621,7 +621,6 @@ killvar 'natotrab'
 killvar 'natlesb'
 killvar 'natfuck'
 
-
 if fuckornot_update = 0:
 	fuckornot_update = 1
 	hotcat_rating['A22'] = 9
@@ -647,5 +646,7 @@ if fuckornot_update = 0:
 	hotcat_rating['A145'] = 5
 end
 
+if wombfather_update = 0: wombfather_update = 1 & gs 'din_bad'
+
 --- saveupdater ---------------------------------