wardrobe.qsrc 17 KB

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