|
@@ -541,6 +541,77 @@ $removepan = {
|
|
|
end
|
|
|
}
|
|
|
|
|
|
+!! Meant for non-home bathrooms. If you have a bag stashes the underwear in there and enables putting it back on later.
|
|
|
+!! purse_____ variables get wiped in 'wardrobe', 'clothing', 'panties' and 'bra' so there isn''t a chance of duplication
|
|
|
+$publicpan = {
|
|
|
+ if $pantyworntype ! 'none' and $braworntype ! 'none':
|
|
|
+ act 'Remove underwear' + iif(bag = 1, ' and put it in your purse','') + ' (0:02)':
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ if bag = 1:
|
|
|
+ $pursepantytype = $pantyworntype
|
|
|
+ pursepantynumber = pantywornnumber
|
|
|
+ $pursebratype = $braworntype
|
|
|
+ pursebranumber = brawornnumber
|
|
|
+ end
|
|
|
+ gs 'underwear', 'remove'
|
|
|
+ gt $loc, $metka
|
|
|
+ end
|
|
|
+ elseif bag = 1 and $pantyworntype = 'none' and $braworntype = 'none' and $pursepantytype ! '' and $pursebratype ! '':
|
|
|
+ act 'Put your underwear back on (0:02)':
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ gs 'panties', 'wear', $pursepantytype, pursepantynumber
|
|
|
+ gs 'bras', 'wear', $pursebratype, pursebranumber
|
|
|
+ killvar '$pursepantytype' & killvar 'pursepantynumber'
|
|
|
+ killvar '$pursebratype' & killvar 'pursebranumber'
|
|
|
+ gt $loc, $metka
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if $pantyworntype ! 'none':
|
|
|
+ act 'Remove panties ' + iif(bag = 1, ' and put them in your purse','') + '(0:02)':
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ if bag = 1:
|
|
|
+ $pursepantytype = $pantyworntype
|
|
|
+ pursepantynumber = pantywornnumber
|
|
|
+ end
|
|
|
+ gs 'panties', 'remove'
|
|
|
+ gt $loc, $metka
|
|
|
+ end
|
|
|
+ elseif bag = 1 and $pantyworntype = 'none' and $pursepantytype ! '':
|
|
|
+ act 'Put your panties back on (0:02)':
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ gs 'panties', 'wear', $pursepantytype, pursepantynumber
|
|
|
+ killvar '$pursepantytype' & killvar 'pursepantynumber'
|
|
|
+ gt $loc, $metka
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ if $braworntype ! 'none':
|
|
|
+ act 'Remove bra ' + iif(bag = 1, ' and put it in your purse','') + '(0:02)':
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ if bag = 1:
|
|
|
+ $pursebratype = $braworntype
|
|
|
+ pursebranumber = brawornnumber
|
|
|
+ end
|
|
|
+ gs 'bras', 'remove'
|
|
|
+ gt $loc, $metka
|
|
|
+ end
|
|
|
+ elseif bag = 1 and $braworntype = 'none' and $pursebratype ! '':
|
|
|
+ act 'Put your bra back on (0:02)':
|
|
|
+ minut += 2
|
|
|
+ gs 'stat'
|
|
|
+ gs 'bras', 'wear', $pursebratype, pursebranumber
|
|
|
+ killvar '$pursebratype' & killvar 'pursebranumber'
|
|
|
+ gt $loc, $metka
|
|
|
+ end
|
|
|
+ end
|
|
|
+}
|
|
|
+
|
|
|
$basin = {
|
|
|
if cumloc[12] = 1:
|
|
|
act 'Rinse your mouth (0:05)':
|