|
@@ -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
|
|
|
}
|
|
|
|