1
0

wardrobe.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406
  1. # wardrobe
  2. if $ARGS[0] = 'start':
  3. PShoQuality = ShoQuality
  4. PShoHeels = ShoHeels
  5. PShoCut = ShoCut
  6. PShoStyle = ShoStyle
  7. $wloc = 'wardrobe'
  8. menu_off = 1
  9. gs 'stat'
  10. if $sports_clothing_name = '':$sports_clothing_name = 'default sports outfit'
  11. if $clothingworntype = 'cheap' and clothingwornnumber = '414':
  12. gs 'clothing', 'swamp_clothes', 0
  13. gs 'clothing', 'strip'
  14. end
  15. if ward_img_hgt = 0:ward_img_hgt = 150
  16. '<h3><center><b><font color="maroon">Wardrobe overview</b></h3><br><center><font color="maroon">These are the clothes you are currently wearing - Click on an item to change it</font></center><center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
  17. *p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
  18. *P '<TR><TD><center><a href="exec:gt ''bras'', ''view_bra_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''bra'')>>"></a></center></TD><TD><center><a href="exec:gt ''clothing_QV'', ''list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'',''clothes'')>>"></a></center></TD><TD><center>'
  19. if defaultcoat = 0:
  20. '<a href="exec:gt ''cloakroom'', ''view_coat_list''">Search the wardrobe</a>'
  21. else
  22. '<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>"></a>'
  23. end
  24. '</center></TD><TR><TD><center>'
  25. if $braworntype ! 'none':
  26. '<a href="exec:gs ''bras'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  27. else
  28. 'Remove'
  29. end
  30. '</center></TD><TD><center>'
  31. if $clothingworntype ! 'nude':
  32. '<a href="exec:gs ''clothing'', ''strip'' & gt ''wardrobe'', ''start''">Remove</a>'
  33. else
  34. 'Remove'
  35. end
  36. '</center></TD><TD><center>'
  37. if defaultcoat ! 0:
  38. '<a href="exec:defaultcoat_warmth = 0 & defaultcoat = 0 & gt ''wardrobe'', ''start''">Remove</a>'
  39. else
  40. 'Remove'
  41. end
  42. '</center></TD>'
  43. *p '<TR><TH>Panties worn</TH><TH>Shoes (Only worn outside)</TH><TH>Purse worn</TH>'
  44. *P '<TR><TD><center><a href="exec:gt ''panties'', ''view_panty_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''panties'')>>"></a></center></TD><TD><center><a href="exec:gt ''shoes'', ''view_shoe_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'', ''shoes'')>>"></a></center></TD><TD><center>'
  45. if bag = 1:
  46. '<a href="exec:gt ''purses'', ''view_purse_list''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></a>'
  47. else
  48. '<a href="exec:gt ''purses'', ''view_purse_list''">Search the wardrobe</a>'
  49. end
  50. '</center></TD><TR><TD><center>'
  51. if $pantyworntype ! 'none':
  52. '<a href="exec:gs ''panties'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  53. else
  54. 'Remove'
  55. end
  56. '</center></TD><TD><center>'
  57. if $shoeworntype ! 'none':
  58. '<a href="exec:gs ''shoes'', ''strip'' & gt ''wardrobe'', ''start''">Remove</a>'
  59. else
  60. 'Remove'
  61. end
  62. '</center></TD><TD><center>'
  63. if bag = 1:
  64. '<a href="exec:gs ''purses'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  65. else
  66. 'Remove'
  67. end
  68. '</center></TD><TR><TD><TD><center>'
  69. if ($clothingworntype ! 'nude' and (defaultcoat > 0 or bag > 0)) or (defaultcoat > 0 and bag > 0):
  70. '<a href="exec:gs ''wardrobe'', ''removeall'' & gt ''wardrobe'', ''start''">Remove all items</a>'
  71. else
  72. 'Remove all items'
  73. end
  74. *nl
  75. '<center><font color="grey">Save/load outfits with "Managed saved clothing sets".</font></center>'
  76. '<TD></center></TD></table></center>'
  77. act 'Close wardrobe': killvar '$wloc' & gt $loc, $metka
  78. act 'Strip all clothing':
  79. gs 'bras', 'remove'
  80. gs 'clothing', 'strip'
  81. gs 'panties', 'remove'
  82. gs 'shoes', 'strip'
  83. gt 'wardrobe', 'start'
  84. end
  85. act 'Organise your wardrobe': org_loc = 1 & gt 'clothing', 'view_clothing_list', 'wardrobe'
  86. act 'Manage saved clothing sets': gt 'wardrobe', 'default'
  87. act 'Set image size for this view':
  88. ward_img_hgt = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
  89. if ward_img_hgt < 50:
  90. ward_img_hgt = 50
  91. elseif ward_img_hgt > 500:
  92. ward_img_hgt = 500
  93. end
  94. gt 'wardrobe', 'start'
  95. end
  96. end
  97. if $ARGS[0] = 'removeall':
  98. gs 'bras', 'remove'
  99. gs 'clothing', 'strip'
  100. gs 'panties', 'remove'
  101. gs 'shoes', 'strip'
  102. gs 'purses', 'remove'
  103. defaultcoat = 0
  104. end
  105. !!---------------------------Oufit stuff----------------------------------
  106. if $ARGS[0] = 'default':
  107. gs 'stat'
  108. '<center><b>Default outfits</b></center>'
  109. '<center><font color="grey">You can overwrite and rename default outfits, but you cannot delete a default outfit.</font></center>'
  110. *nl
  111. '<center><table width="600">'
  112. '<tr><td>'
  113. '<b><<$sports_clothing_name>>:</b> <a href="exec:gs ''wardrobe'', ''sports_entry_wear''">Wear</a> | <a href="exec:gs ''wardrobe'', ''sports_entry_set''">Overwrite</a> | <a href="exec:$sports_clothing_name = ''default sports outfit'' & gt ''wardrobe'', ''default''">Reset name</a>'
  114. '</td></tr>'
  115. '</table></center>'
  116. '<center><b>Custom outfits</b></center>'
  117. '<center><font color="grey">Choose your clothing, then select "Add as a new custom set" to save your clothing choice</font></center>'
  118. *nl
  119. '<center><table width="600">'
  120. '<tr><td>'
  121. if ARRSIZE('defclothingnumber') > 0:
  122. i = 0
  123. :loopdefclothing
  124. '<b><<$def_clothing_name[i]>>:</b> <a href="exec:gs ''wardrobe'', ''default_entry_wear'', <<i>>">Wear</a> | <a href="exec:gs ''wardrobe'', ''default_entry_set'', <<i>>">Overwrite</a> | <a href="exec:$def_clothing_name[<<i>>] = ''Custom <<i>>'' & gt ''wardrobe'', ''default''">Reset name</a> | <a href="exec:gs ''wardrobe'', ''default_entry_delete'', <<i>>">Delete</a>'
  125. i += 1
  126. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing'
  127. end
  128. '</td></tr>'
  129. '</table></center>'
  130. act 'Return': gt 'wardrobe', 'start'
  131. act 'Add as a new custom set': gt 'wardrobe', 'default_entry_set', ARRSIZE('defclothingnumber')
  132. '<center>Note: Selecting an outfit will show the bonus for equipped shoes, this is only applied when outside.</center>'
  133. end
  134. if $ARGS[0] = 'default_entry_wear':
  135. gs 'stat'
  136. default_entry = ARGS[1]
  137. gs 'clothing_attributes', $defclothingtype[default_entry], defclothingnumber[default_entry]
  138. if ARRPOS('$CloLosTyp', $defclothingtype[default_entry]) ! -1 and ARRPOS('CloLosNum', defclothingnumber[default_entry]) ! -1:
  139. msg '<center>You''ve lost part of this set, and are unable to wear all items.<br>Maybe you can find the missing clothes somewhere?</center>'
  140. else
  141. gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry]
  142. end
  143. if dyneval('RESULT = <<$defbratype[default_entry]>>_bras[<<defbranumber[default_entry]>>]') = 0: $defbratype[default_entry] = 'none' & defbranumber[default_entry] = 0
  144. gs 'bras', 'wear', $defbratype[default_entry], defbranumber[default_entry]
  145. if dyneval('RESULT = <<$defpantytype[default_entry]>>_panties[<<defpantynumber[default_entry]>>]') = 0: $defpantytype[default_entry] = 'none' & defpantynumber[default_entry] = 0
  146. gs 'panties', 'wear', $defpantytype[default_entry], defpantynumber[default_entry]
  147. if dyneval('RESULT = s<<$defshoetype[default_entry]>>[<<defshoenumber[default_entry]>>]') = 0: $defshoetype[default_entry] = 'none' & defshoenumber[default_entry] = 0
  148. gs 'shoes', 'wear', $defshoetype[default_entry], defshoenumber[default_entry]
  149. if dyneval('RESULT = <<$defpursetype[default_entry]>>_purses[<<defpursenumber[default_entry]>>]') = 0:
  150. $defpursetype[default_entry] = 'none' & defpursenumber[default_entry]
  151. end
  152. $currentpursetype = $defpursetype[default_entry]
  153. currentpursenumber = defpursenumber[default_entry]
  154. if $currentpursetype = 'none':
  155. bag = 0
  156. else
  157. bag = 1
  158. end
  159. if dyneval('RESULT = coat[<<defcoat[default_entry]>>]') = 0: defcoat[default_entry] = 0
  160. defaultcoat = defcoat[default_entry]
  161. !! default school girl uniform is always allowed to be worn if still in school
  162. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $defclothingtype[default_entry] = 'school' and defclothingnumber[default_entry] = 6:
  163. cls
  164. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  165. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  166. act 'Return to wardrobe':
  167. killvar 'default_entry'
  168. gs 'stat'
  169. gt 'wardrobe', 'start'
  170. end
  171. !! do not own this clothing anymore
  172. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>[<<defclothingnumber[default_entry]>>]') = 0:
  173. cls
  174. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  175. 'As you go to pull your <<$def_clothing_name[default_entry]>> outfit out of your wardrobe you remember you don''t own that piece of clothing anymore. Maybe you should buy it again? Guess you will have to find something else to wear.'
  176. act 'Return to wardrobe':
  177. gs 'clothing', 'strip'
  178. killvar 'default_entry'
  179. gs 'stat'
  180. gt 'wardrobe', 'start'
  181. end
  182. !! strength of clothing is less than or equal to 0
  183. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>H[<<defclothingnumber[default_entry]>>]') <= 0:
  184. cls
  185. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  186. 'Your <<$def_clothing_name[default_entry]>> outfit has worn out and can''t be used anymore. Guess you will have to find something else to wear.'
  187. act 'Strip out of worn out clothing':
  188. gs 'clothing', 'strip'
  189. killvar 'default_entry'
  190. gs 'stat'
  191. gt 'wardrobe', 'start'
  192. end
  193. !! clothing exhibition is greater than player exhibition
  194. elseif CloInhibit > pcs_inhib:
  195. cls
  196. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  197. 'You don''t feel daring enough to wear your <<$def_clothing_name[default_entry]>> outfit. Maybe you will be confident enough in the future? Guess you will have to find something else to wear.'
  198. act 'Strip out of revealing clothing':
  199. gs 'clothing', 'strip'
  200. killvar 'default_entry'
  201. gs 'stat'
  202. gt 'wardrobe', 'start'
  203. end
  204. !! not exercise clothing, not coat, and not loose fitting
  205. elseif $defclothingtype[default_entry] ! 'exercise' and $defclothingtype[default_entry] ! 'coat' and CloStyle ! 5:
  206. !! check for if the hipsize is too far from your hipsize
  207. dynamic 'RESULT = <<$defclothingtype[default_entry]>>B[<<defclothingnumber[default_entry]>>]'
  208. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  209. cls
  210. iif(RESULT < pcs_hips - 8,'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/dressup.mp4"></video></center>','<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping1.mp4"></video></center>')
  211. 'As you put on your <<$def_clothing_name[default_entry]>> outfit you notice it doesn''t fit correctly anymore. It''s ' + iif(RESULT < pcs_hips - 8,'unbearably tight and uncomfortable to wear.','extremely loose and won''t stay in place no matter how hard you try.') + ' You must have ' + iif(RESULT < pcs_hips - 8,'gained','lost') + ' some weight since this was purchased or last tailored. You will have to get this clothing resized before you can wear it again.'
  212. act 'Strip out of ill-fitting clothing':
  213. gs 'clothing', 'strip'
  214. killvar 'default_entry'
  215. gs 'stat'
  216. gt 'wardrobe', 'start'
  217. end
  218. !! clothing ok to wear after passing hip check
  219. else
  220. cls
  221. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  222. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  223. act 'Return to wardrobe':
  224. killvar 'default_entry'
  225. gs 'stat'
  226. gt 'wardrobe', 'start'
  227. end
  228. end
  229. !! clothing ok to wear without needing hip check and passing all other checks
  230. else
  231. cls
  232. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  233. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  234. act 'Return to wardrobe':
  235. killvar 'default_entry'
  236. gs 'stat'
  237. gt 'wardrobe', 'start'
  238. end
  239. end
  240. end
  241. if $ARGS[0] = 'default_entry_set':
  242. gs 'stat'
  243. i = ARGS[1]
  244. $defclothingtype[i] = $clothingworntype
  245. defclothingnumber[i] = clothingwornnumber
  246. $defbratype[i] = $braworntype
  247. defbranumber[i] = brawornnumber
  248. $defpantytype[i] = $pantyworntype
  249. defpantynumber[i] = pantywornnumber
  250. $defshoetype[i] = $shoeworntype
  251. defshoenumber[i] = shoewornnumber
  252. $defpursetype[i] = $currentpursetype
  253. defpursenumber[i] = currentpursenumber
  254. defcoat[i] = defaultcoat
  255. $def_clothing_temp = '<<$def_clothing_name[i]>>'
  256. $def_clothing_name[i] = input ('<center>Enter a name for this outfit set<br><font color="grey">Leaving blank will reuse current name.</font></center>')
  257. if $def_clothing_name[i] = '' and $def_clothing_temp = '':
  258. $def_clothing_name[i] = 'Custom <<i>>'
  259. elseif $def_clothing_name[i] = '':
  260. $def_clothing_name[i] = '<<$def_clothing_temp>>'
  261. end
  262. gt 'wardrobe', 'default'
  263. end
  264. if $ARGS[0] = 'default_entry_delete':
  265. gs 'stat'
  266. i = ARGS[1]
  267. killvar 'defclothingtype', i
  268. killvar 'defclothingnumber', i
  269. killvar 'defbratype', i
  270. killvar 'defbranumber', i
  271. killvar 'defpantytype', i
  272. killvar 'defpantynumber', i
  273. killvar 'defshoetype', i
  274. killvar 'defshoenumber', i
  275. killvar 'defpursetype', i
  276. killvar 'defpursenumber', i
  277. killvar 'defcoat', i
  278. killvar 'def_clothing_name', i
  279. gt 'wardrobe', 'default'
  280. end
  281. !!-- sports outfit stuff
  282. if $ARGS[0] = 'sports_entry_set':
  283. gs 'stat'
  284. if $clothingworntype ! 'exercise' OR $shoeworntype ! 'trainers':
  285. MSG 'The sports outfit needs to include exercise clothes and training shoes'
  286. gt 'wardrobe', 'start'
  287. else
  288. gs 'stat'
  289. $sportsclothingtype = $clothingworntype
  290. sportsclothingnumber = clothingwornnumber
  291. $sportsbratype = $braworntype
  292. sportsbranumber = brawornnumber
  293. $sportspantytype = $pantyworntype
  294. sportspantynumber = pantywornnumber
  295. $sportsshoetype = $shoeworntype
  296. sportsshoenumber = shoewornnumber
  297. $sportspursetype = $currentpursetype
  298. sportspursenumber = currentpursenumber
  299. sportscoat = defaultcoat
  300. $sports_clothing_temp = '<<$sports_clothing_name>>'
  301. $sports_clothing_name = input ('<center>Enter a name for this outfit set<br><font color="grey">Leaving blank will reuse current name.</font></center>')
  302. if $sports_clothing_name = '' and $sports_clothing_temp = '':
  303. $sports_clothing_name = 'default sports outfit'
  304. elseif $sports_clothing_name = '':
  305. $sports_clothing_name = '<<$sports_clothing_temp>>'
  306. end
  307. gt 'wardrobe', 'default'
  308. end
  309. end
  310. if $ARGS[0] = 'sports_entry_wear':
  311. gs 'stat'
  312. !gs 'wardrobe', 'prev_entry_set' this does not exist
  313. gs 'clothing_attributes', 'exercise', sportsclothingnumber
  314. if ARRPOS('$CloLosTyp', 'exercise') ! -1 and ARRPOS('CloLosNum', sportsclothingnumber) ! -1:
  315. msg '<center>You''ve lost part of this set, and are unable to wear all items.<br>Maybe you can find the missing clothes somewhere?</center>'
  316. else
  317. gs 'clothing', 'wear', 'exercise', sportsclothingnumber
  318. end
  319. if dyneval('RESULT = <<$sportsbratype>>_bras[<<sportsbranumber>>]') = 0: $sportsbratype = 'none' & sportsbranumber = 0
  320. gs 'bras', 'wear', $sportsbratype, sportsbranumber
  321. if dyneval('RESULT = <<$sportspantytype>>_panties[<<sportspantynumber>>]') = 0: $sportspantytype = 'none' & sportspantynumber = 0
  322. gs 'panties', 'wear', $sportspantytype, sportspantynumber
  323. gs 'shoes', 'wear', 'trainers', sportsshoenumber
  324. minut += 2
  325. gs 'stat'
  326. !! do not own this clothing anymore
  327. if dyneval('RESULT = exercise[<<sportsclothingnumber>>]') = 0:
  328. cls
  329. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  330. 'As you go to pull your sports outfit out of your wardrobe you remember you don''t own that piece of clothing anymore. Maybe you should buy it again? Guess you will have to find something else to wear.'
  331. !gs 'wardrobe', 'prev_entry_set' this does not exist
  332. gs 'clothing', 'strip'
  333. gs 'stat'
  334. !! strength of clothing is less than or equal to 0
  335. elseif dyneval('RESULT = exerciseH[<<sportsclothingnumber>>]') <= 0:
  336. cls
  337. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  338. 'Your sports outfit has worn out and can''t be used anymore. Guess you will have to find something else to wear.'
  339. !gs 'wardrobe', 'prev_entry_set' this does not exist
  340. gs 'clothing', 'strip'
  341. gs 'stat'
  342. !! clothing exhibition is greater than player exhibition
  343. elseif CloInhibit > pcs_inhib:
  344. cls
  345. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  346. 'You don''t feel daring enough to wear your sports outfit. Maybe you will be confident enough in the future? Guess you will have to find something else to wear.'
  347. !gs 'wardrobe', 'prev_entry_set' this does not exist
  348. gs 'clothing', 'strip'
  349. gs 'stat'
  350. !! clothing ok to wear without needing hip check and passing all other checks
  351. else
  352. cls
  353. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  354. 'You put on your sports outfit without any problems.'
  355. end
  356. act 'Return':
  357. if $wloc = 'wardrobe':
  358. gt 'wardrobe', 'start'
  359. elseif $wloc = 'workout':
  360. gt 'exercise', 'workout'
  361. else
  362. gt $loc, $metka
  363. end
  364. end
  365. end
  366. if $ARGS[0] = 'sports_outfit':
  367. gs 'stat'
  368. if $clothingworntype ! 'exercise' or $shoeworntype ! 'trainers':
  369. act 'Change into: <<$sports_clothing_name>>': gs 'wardrobe', 'sports_entry_wear'
  370. end
  371. end
  372. --- wardrobe ---------------------------------