[added] next/previous kid actions to kid

locations/kid.qsrc

@@ -127,27 +127,30 @@ if $ARGS[0] = 'start':
 	if $pcs_mothername = '':
 		$pcs_mothername = input("What name do you wish your children to call you by?")
 	end
-	if kid > 0:
-		k = 0
-		end
-		if lactate > 0 and pain['nipples'] > 60:
-			'You cannot breast feed right now. Your nipples are too sore.'
-		end
-		:loop
-		if k < kid:
-			gs 'kid','kidlist'
-			k += 1
-			jump 'loop'
-		end
-		'Child Selected: <<$kidname[ks]>>'
-		if ks > 0:'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>'
-		if ks < (kid - 1):'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
-
 	act 'Leave':
 		cla
 		killvar 'ks'
 		gt $loc, $metka
 	end
+	if kid > 0:k = 0
+	if lactate > 0 and pain['nipples'] > 60:
+		'You cannot breast feed right now. Your nipples are too sore.'
+	end
+	:loop
+	if k < kid:
+		gs 'kid','kidlist'
+		k += 1
+		jump 'loop'
+	end
+	'Child Selected: <<$kidname[ks]>>'
+	if ks < (kid - 1):
+		'<a href="exec:ks += 1& gt ''kid'', ''start'' ">Select Next Child</a>'
+		act 'Select Next Child': ks += 1 & gt 'kid', 'start'
+	end
+	if ks > 0:
+		'<a href="exec:ks -= 1& gt ''kid'', ''start'' ">Select Previous Child</a>'
+		act 'Select Previous Child': ks -= 1 & gt 'kid', 'start'
+	end
 end
 
 if $ARGS[0] = 'kidlist':