|
@@ -1018,6 +1018,7 @@ if $ARGS[0] = 'private':
|
|
|
pregtest -= 1
|
|
|
gs 'stat'
|
|
|
if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
|
|
|
+ cla
|
|
|
knowpreg = 1
|
|
|
thinkpreg = 1
|
|
|
*nl
|
|
@@ -1026,6 +1027,7 @@ if $ARGS[0] = 'private':
|
|
|
act 'Concerned':gt 'din_van', 'ConcernedReact1'
|
|
|
act 'Excited':gt 'din_van', 'ExcitedReact1'
|
|
|
elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
|
|
|
+ cla
|
|
|
knowpreg = 1
|
|
|
thinkpreg = 1
|
|
|
*nl
|
|
@@ -1040,6 +1042,11 @@ if $ARGS[0] = 'private':
|
|
|
knowpreg = 1
|
|
|
thinkpreg = 1
|
|
|
gt 'din_van', 'WifeReact2'
|
|
|
+ elseif pregTalkPC = 1 and pregchem > 120 and knowpreg = 0:
|
|
|
+ *nl
|
|
|
+ knowpreg = 1
|
|
|
+ thinkpreg = 1
|
|
|
+ 'The test shows two strips. You are pregnant.'
|
|
|
elseif pregTalkPC = 1 or (knowpreg = 1 and preg = 1):
|
|
|
*nl
|
|
|
knowpreg = 1
|