Browse Source

Changes to abortion code from the forum

KevinSmarts 6 years ago
parent
commit
7826eef8d9
2 changed files with 44 additions and 29 deletions
  1. 41 27
      locations/Cheatmenu_din
  2. 3 2
      locations/poli

+ 41 - 27
locations/Cheatmenu_din

@@ -1278,33 +1278,47 @@ $cheatmenu['force_preg'] = {
 }
 
 $cheatmenu['remove_preg'] = {
-	FertEgg = 0
-	killvar 'polkid'
-	killvar '$kidname'
-	killvar 'kidage'
-	killvar 'daykid'
-	killvar 'monthkid'
-	killvar 'yearkid'
-	killvar 'Babyptype'
-	killvar '$ChildFath'
-	killvar '$ChildThFath'
-	killvar 'hairkid'
-	killvar 'eyeskid'
-	killvar 'ChildConType'
-	killvar 'Babyptype'
-	killvar '$WombpotFath'
-	babyembryo = 0
-	if preg > 0 or cycle = 5:
-		mesec = 48
-		FocH = 0
-		EggRH = 0
-		Ovulate = 0
-		UnfertEgg = 0
-		PregChem = 0
-		preg = 0
-		LutH = 0
-		RecovH = 0
-		cycle = 0
+	vidage += 1
+	abort += 1
+	abortionbirthdate = daystart
+	money -= 15000
+	pregtime = 0
+	pregtalk = 0
+	preg = 0
+	thinkpreg = 0
+	knowpreg = 0
+	cycle = 4
+	RecovH = rand(7,70)
+	RecovH += pregchem
+	knowpregloss = 2
+	preg = 0
+	thinkpreg = 0
+	knowpreg = 0
+	pcs_hydra += 20
+	!! I am not sure, why is it here this cycle, but I leave it so (rachels)
+	nextbaby = arrsize('yearkid')
+	if broodcurse > 0: over = 13 & gt'gameover'
+	:poliabortloop
+	!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
+	if yearkid[nextbaby-1] = 0:
+		KILLVAR 'polkid',nextbaby-1
+		KILLVAR '$kidname',nextbaby-1
+		KILLVAR 'kidage',nextbaby-1
+		KILLVAR 'daykid',nextbaby-1
+		KILLVAR 'monthkid',nextbaby-1
+		KILLVAR 'yearkid',nextbaby-1
+		KILLVAR 'Babyptype',nextbaby-1
+		KILLVAR '$ChildFath',nextbaby-1
+		KILLVAR '$ChildThFath',nextbaby-1
+		KILLVAR 'hairkid',nextbaby-1
+		KILLVAR 'eyeskid',nextbaby-1
+		KILLVAR 'cumarrcon',nextbaby-1
+		KILLVAR '$wombpotfath',nextbaby-1
+		BabyEmbryo -= 1
+	end
+	nextbaby -= 1
+	if nextbaby > 0:
+		jump 'poliabortloop'
 	end
 }
 

+ 3 - 2
locations/poli

@@ -180,7 +180,8 @@ if $ARGS[0] = 'start':
 			nextbaby = arrsize('yearkid')
 			if broodcurse > 0: over = 13 & gt'gameover'
 			:poliabortloop
-			if Babyptype[nextbaby] < 200:
+			!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
+			if yearkid[nextbaby-1] = 0:
 				KILLVAR 'polkid',nextbaby-1
 				KILLVAR '$kidname',nextbaby-1
 				KILLVAR 'kidage',nextbaby-1
@@ -195,13 +196,13 @@ if $ARGS[0] = 'start':
 				KILLVAR 'cumarrcon',nextbaby-1
 				KILLVAR '$wombpotfath',nextbaby-1
 				BabyEmbryo -= 1
-				nextbaby -= 1
 			end
 			nextbaby -= 1
 			if nextbaby > 0:
 				jump 'poliabortloop'
 			end
 
+
 			act 'Return to the entrance':gt 'poli', 'start'
 		end
 	end