wardrobe.qsrc 18 KB

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