[changed] blocked virginity messages in obj_din

locations/obekt.qsrc

@@ -1,5 +1,7 @@
 # obekt
 
+$loc = 'obekt'
+$metka = ''
 $menu_loc = 'obekt'
 $menu_arg = ''
 menu_off = 0
@@ -15,10 +17,10 @@ if car > 0 and cardrive = 12:
 	'The <a href="exec:gs ''carF'', ''start''"> <<$car>></a> is standing in the parking.'
 end
 
-act 'Go to the road':minut += 15 & nroad = 16 & gt 'road'
+act 'Go to the road': minut += 15 & nroad = 16 & gt 'road'
 
 act 'Sneak into the construction site':
-	*clr & cla
+	cla
 	minut += 5
 	menu_off = 1
 	gs 'stat'
@@ -26,9 +28,10 @@ act 'Sneak into the construction site':
 	if ObjektOpen = 0:
 		if ObjektBil = 0: 
 			ObjektBil = 1
+			*nl
 			'Before you''re able to enter, you hear a voice asking you what you''re doing. It''s the guard that caught you. He points towards the direction you should be heading instead.'
 
-			act 'Leave':gt $curloc
+			act 'Leave':gt $loc, $metka
 		else
 			gt 'obekt2'
 		end

locations/obekt2.qsrc

@@ -1,6 +1,7 @@
 # obekt2
 
-
+$loc = 'obekt2'
+$metka = ''
 $menu_loc = 'obekt2'
 $menu_arg = ''
 menu_off = 0
@@ -13,13 +14,7 @@ $location_type = 'secluded'
 '<center><img <<$set_imgh>> src="images/locations/construction/obekt.jpg"></center>'
 'There is not much to see at the construction site, only a trailer where a guard sits. The entrance is closed...'
 
-act 'Leave the construction site':
-	cla & *clr
-	menu_off = 1
-	minut += 5
-	gs 'stat'
-	gt 'obekt'
-end
+act 'Leave the construction site': minut += 5 & gt 'obekt'
 
 !!Access blocked until it is needed again
 !!act 'Try to sneak in':

locations/obj_din.qsrc

@@ -2505,27 +2505,27 @@ if $ARGS[0] = 'records':
 	if haraklover[2] = 2 and loverrelation[2] > 1:'<<$obj_loverpron>>''s short-tempered and strict.'
 	*nl
 	
-!! Could someone move this is it''s in the wrong location?
-	if firstvag ! 0:
-		'Your hymen is broken:'
-		'<<$firstvagstat>>'
-	else
-		'Your vaginal virginity is intact'
-	end
-	
-	if firstanal ! 0:
-		'Your anal virginity has been taken:'
-		'<<$firstanalstat>>'
-	else
-		'Your anal virginity is intact'
-	end
-	
-	if firstoral ! 0:
-		'Your mouth has been used:'
-		'<<$firstoralstat>>'
-	else
-		'Your oral virginity is intact'
-	end
+!! Not implemented
+!!	if firstvag ! 0:
+!!		'Your hymen is broken:'
+!!		'<<$firstvagstat>>'
+!!	else
+!!		'Your vaginal virginity is intact'
+!!	end
+!!	
+!!	if firstanal ! 0:
+!!		'Your anal virginity has been taken:'
+!!		'<<$firstanalstat>>'
+!!	else
+!!		'Your anal virginity is intact'
+!!	end
+!!	
+!!	if firstoral ! 0:
+!!		'Your mouth has been used:'
+!!		'<<$firstoralstat>>'
+!!	else
+!!		'Your oral virginity is intact'
+!!	end
 	
 	*nl
 	gs'Menu.Create','zapisMenu'