[fixed] no more naked dates if direct from phone

locations/telefon.qsrc

@@ -882,7 +882,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
 			if willAgree:
 				'<<$telsob>>, "See you in the park in an hour."'
 
-				act 'Go': gt 'parksvid'
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing','wear_last_worn'
+						gs 'underwear','wear'
+					end
+					gt 'parksvid'
+				end
 			else
 				gs 'telefon','telotkaz',$telsob
 			end
@@ -895,7 +901,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
 
 		if willAgree:
 			'<<$telsob>>, "See you at the movie theater in an hour."'
-			act 'Go': gt 'kinosvid'
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gt 'kinosvid'
+			end
 		else
 			gs 'telefon','telotkaz',$telsob
 		end
@@ -909,7 +921,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
 			if willAgree:
 				'<<$telsob>>, "See you at the pool hall in an hour."'
 
-				act 'Go': gt 'billsvid'
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing','wear_last_worn'
+						gs 'underwear','wear'
+					end
+					gt 'billsvid'
+				end
 			else
 				gs 'telefon','telotkaz',$telsob
 			end
@@ -923,7 +941,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
 		if willAgree:
 			'<<$telsob>>, "See you at the cafe in an hour."'
 
-			act 'Go': gt 'kafesvid'
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gt 'kafesvid'
+			end
 		else
 			gs 'telefon','telotkaz',$telsob
 		end
@@ -936,7 +960,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 1:
 		if willAgree:
 			'<<$telsob>>, "See you in the casino in an hour."'
 
-			act 'Go': gt 'kazinosvid'
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gt 'kazinosvid'
+			end
 		else
 			gs 'telefon','telotkaz',$telsob
 		end
@@ -973,7 +1003,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0:
 			if willAgree:
 				'<<$loverdesc[lover_number]>>, "See you in the park in an hour."'
 
-				act 'Go':gt 'svidboy', 'parksvid'
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing','wear_last_worn'
+						gs 'underwear','wear'
+					end
+					gt 'svidboy', 'parksvid'
+				end
 			else
 				gs 'telefon','telotkaz',$loverdesc[lover_number]
 			end
@@ -987,7 +1023,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0:
 		if willAgree:
 			'<<$loverdesc[lover_number]>>, "See you at the movie theater in an hour."'
 
-			act 'Go':gt 'svidboy', 'kinosvid'
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gt 'svidboy', 'kinosvid'
+			end
 		else
 			gs 'telefon','telotkaz',$loverdesc[lover_number]
 		end
@@ -1015,7 +1057,13 @@ if $ARGS[0] = 'callingTheLover' and loverGender[ARGS[1]] = 0:
 		if willAgree:
 			'<<$loverdesc[lover_number]>>, "See you at the cafe in an hour."'
 
-			act 'Go':gt 'svidboy', 'kafesvid'
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gt 'svidboy', 'kafesvid'
+			end
 		else
 			gs 'telefon','telotkaz',$loverdesc[lover_number]
 		end