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