1
0

wardrobe.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290
  1. # wardrobe
  2. if $ARGS[0] = 'start':
  3. $wloc = 'wardrobe'
  4. if ward_img_hgt = 0:ward_img_hgt = 250
  5. '<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>'
  6. '<br><center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
  7. *p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
  8. *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>'
  9. if defaultcoat = 0:
  10. '<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="images/pc/noitemdh.png"></a>'
  11. else
  12. '<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>"></a>'
  13. end
  14. '</center></TD>'
  15. '<TR><TD><center>'
  16. if $braworntype ! 'none':
  17. '<a href="exec:gs ''bras'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  18. else
  19. 'Remove'
  20. end
  21. '</center></TD><TD><center>'
  22. if $clothingworntype ! 'nude':
  23. '<a href="exec:gs ''clothing'', ''strip'' & gt ''wardrobe'', ''start''">Remove</a>'
  24. else
  25. 'Remove'
  26. end
  27. '</center></TD><TD><center>'
  28. if defaultcoat ! 0:
  29. '<a href="exec:defaultcoat_warmth = 0 & defaultcoat = 0 & gt ''wardrobe'', ''start''">Remove</a>'
  30. else
  31. 'Remove'
  32. end
  33. '</center></TD>'
  34. *p '<TR><TH>Panties worn</TH><TH>Shoes (Only worn outside)</TH><TH>Purse worn</TH>'
  35. *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>'
  36. if bag = 1:
  37. '<a href="exec:gt ''purses'', ''view_purse_list''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></a>'
  38. else
  39. '<a href="exec:gt ''purses'', ''view_purse_list''"><img Height = <<ward_img_hgt>> src="images/pc/noitem.png"></a>'
  40. end
  41. '</center></TD>'
  42. '<TR><TD><center>'
  43. if $pantyworntype ! 'none':
  44. '<a href="exec:gs ''panties'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  45. else
  46. 'Remove'
  47. end
  48. '</center></TD><TD><center>'
  49. if $shoeworntype ! 'none':
  50. '<a href="exec:gs ''shoes'', ''strip'' & gt ''wardrobe'', ''start''">Remove</a>'
  51. else
  52. 'Remove'
  53. end
  54. '</center></TD><TD><center>'
  55. if bag = 1:
  56. '<a href="exec:gs ''purses'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  57. else
  58. 'Remove'
  59. end
  60. '</center></TD>'
  61. '<TR><TD><TD><center>'
  62. if ($clothingworntype ! 'nude' and (defaultcoat > 0 or bag > 0)) or (defaultcoat > 0 and bag > 0):
  63. '<a href="exec:gs ''wardrobe'', ''removeall'' & gt ''wardrobe'', ''start''">Remove all items</a>'
  64. else
  65. 'Remove all items'
  66. end
  67. '</center></TD>'
  68. '</table></center>'
  69. act 'Return': killvar '$wloc' & gt $loc, $metka
  70. act 'Strip all clothing':
  71. gs 'bras', 'remove'
  72. gs 'clothing', 'strip'
  73. gs 'panties', 'remove'
  74. gs 'shoes', 'strip'
  75. gt 'wardrobe', 'start'
  76. end
  77. act 'Set a default outfit': gt 'wardrobe', 'default_set'
  78. act 'Choose a default outfit': gt 'wardrobe', 'default'
  79. act 'Organise stored clothing': gt 'clothing', 'view_clothing_list', 'store'
  80. act 'Set image height for this view':
  81. cla
  82. *clr
  83. 'The default is 250px'
  84. ward_img_hgt = input("Enter height in pixels you want for images on this page (min 100, max 500)")
  85. if ward_img_hgt < 100:
  86. ward_img_hgt = 100
  87. elseif ward_img_hgt > 500:
  88. ward_img_hgt = 500
  89. end
  90. act 'Return': gt 'wardrobe', 'start'
  91. end
  92. end
  93. if $ARGS[0] = 'removeall':
  94. gs 'bras', 'remove'
  95. gs 'clothing', 'strip'
  96. gs 'panties', 'remove'
  97. gs 'shoes', 'strip'
  98. gs 'purses', 'remove'
  99. defaultcoat = 0
  100. end
  101. !!---------------------------Oufit stuff----------------------------------
  102. if $ARGS[0] = 'default':
  103. gs 'stat'
  104. if ARRSIZE('defclothingnumber') = 0:
  105. 'You have no default outfits set.'
  106. else
  107. i = 0
  108. :loopdefclothing
  109. '<<$def_clothing_name[i]>> <a href="exec:gs ''wardrobe'', ''default_entry_wear'', <<i>>">Wear this default outfit</a> <a href="exec:gs ''wardrobe'', ''default_entry_delete'', <<i>>">Delete this default outfit</a>'
  110. i += 1
  111. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing'
  112. end
  113. act 'Return': gt 'wardrobe', 'start'
  114. end
  115. if $ARGS[0] = 'default_entry_wear':
  116. default_entry = ARGS[1]
  117. gs 'clothing_attributes', $defclothingtype[default_entry], defclothingnumber[default_entry]
  118. gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry]
  119. if dyneval('RESULT = <<$defbratype[default_entry]>>_bras[<<defbranumber[default_entry]>>]') = 0: $defbratype[default_entry] = 'none' & defbranumber[default_entry] = 0
  120. gs 'bras', 'wear', $defbratype[default_entry], defbranumber[default_entry]
  121. if dyneval('RESULT = <<$defpantytype[default_entry]>>_panties[<<defpantynumber[default_entry]>>]') = 0: $defpantytype[default_entry] = 'none' & defpantynumber[default_entry] = 0
  122. gs 'panties', 'wear', $defpantytype[default_entry], defpantynumber[default_entry]
  123. if dyneval('RESULT = s<<$defshoetype[default_entry]>>[<<defshoenumber[default_entry]>>]') = 0: $defshoetype[default_entry] = 'none' & defshoenumber[default_entry] = 0
  124. gs 'shoes', 'wear', $defshoetype[default_entry], defshoenumber[default_entry]
  125. if dyneval('RESULT = <<$defpursetype[default_entry]>>_purses[<<defpursenumber[default_entry]>>]') = 0:
  126. $defpursetype[default_entry] = 'none' & defpursenumber[default_entry]
  127. end
  128. $currentpursetype = $defpursetype[default_entry]
  129. currentpursenumber = defpursenumber[default_entry]
  130. if $currentpursetype = 'none':
  131. bag = 0
  132. else
  133. bag = 1
  134. end
  135. if menu_option = 1:dynamic $menu_addoldmenu
  136. if menu_option = 0:gs 'obj_din', 'new'
  137. if dyneval('RESULT = coat[<<defcoat[default_entry]>>]') = 0: defcoat[default_entry] = 0
  138. defaultcoat = defcoat[default_entry]
  139. !! default school girl uniform is always allowed to be worn if still in school
  140. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $defclothingtype[default_entry] = 'school' and defclothingnumber[default_entry] = 6:
  141. cls
  142. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  143. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  144. act 'Return to wardrobe':
  145. killvar 'default_entry'
  146. gs 'stat'
  147. gt 'wardrobe', 'start'
  148. end
  149. !! do not own this clothing anymore
  150. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>[<<defclothingnumber[default_entry]>>]') = 0:
  151. cls
  152. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  153. '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.'
  154. act 'Return to wardrobe':
  155. gs 'clothing', 'strip'
  156. killvar 'default_entry'
  157. gs 'stat'
  158. gt 'wardrobe', 'start'
  159. end
  160. !! strength of clothing is less than or equal to 0
  161. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>H[<<defclothingnumber[default_entry]>>]') <= 0:
  162. cls
  163. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  164. '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.'
  165. act 'Strip out of worn out clothing':
  166. gs 'clothing', 'strip'
  167. killvar 'default_entry'
  168. gs 'stat'
  169. gt 'wardrobe', 'start'
  170. end
  171. !! clothing exhibition is greater than player exhibition
  172. elseif CloInhibit > pcs_inhib:
  173. cls
  174. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  175. '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.'
  176. act 'Strip out of revealing clothing':
  177. gs 'clothing', 'strip'
  178. killvar 'default_entry'
  179. gs 'stat'
  180. gt 'wardrobe', 'start'
  181. end
  182. !! not exercise clothing, not coat, and not loose fitting
  183. elseif $defclothingtype[default_entry] ! 'exercise' and $defclothingtype[default_entry] ! 'coat' and CloStyle ! 5:
  184. !! check for if the hipsize is too far from your hipsize
  185. dynamic 'RESULT = <<$defclothingtype[default_entry]>>B[<<defclothingnumber[default_entry]>>]'
  186. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  187. cls
  188. 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>')
  189. '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.'
  190. act 'Strip out of ill-fitting clothing':
  191. gs 'clothing', 'strip'
  192. killvar 'default_entry'
  193. gs 'stat'
  194. gt 'wardrobe', 'start'
  195. end
  196. !! clothing ok to wear after passing hip check
  197. else
  198. cls
  199. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  200. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  201. act 'Return to wardrobe':
  202. killvar 'default_entry'
  203. gs 'stat'
  204. gt 'wardrobe', 'start'
  205. end
  206. end
  207. !! clothing ok to wear without needing hip check and passing all other checks
  208. else
  209. cls
  210. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  211. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  212. act 'Return to wardrobe':
  213. killvar 'default_entry'
  214. gs 'stat'
  215. gt 'wardrobe', 'start'
  216. end
  217. end
  218. end
  219. if $ARGS[0] = 'default_set':
  220. gs 'stat'
  221. if ARRSIZE('defclothingnumber') ! 0:
  222. i = 0
  223. :loopdefclothing_set
  224. '<<$def_clothing_name[i]>> <a href="exec:gs ''wardrobe'', ''default_entry_set'', <<i>>">Overwrite this</a>'
  225. i += 1
  226. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing_set'
  227. end
  228. act 'Add as new default': gt 'wardrobe', 'default_entry_set', ARRSIZE('defclothingnumber')
  229. act 'Return': gt 'wardrobe', 'start'
  230. end
  231. if $ARGS[0] = 'default_entry_set':
  232. gs 'stat'
  233. i = ARGS[1]
  234. $defclothingtype[i] = $clothingworntype
  235. defclothingnumber[i] = clothingwornnumber
  236. $defbratype[i] = $braworntype
  237. defbranumber[i] = brawornnumber
  238. $defpantytype[i] = $pantyworntype
  239. defpantynumber[i] = pantywornnumber
  240. $defshoetype[i] = $shoeworntype
  241. defshoenumber[i] = shoewornnumber
  242. $defpursetype[i] = $currentpursetype
  243. defpursenumber[i] = currentpursenumber
  244. defcoat[i] = defaultcoat
  245. $def_clothing_name[i] = input ('Enter name for for this outfit (Leave blank for default)')
  246. if $def_clothing_name[i] = '': $def_clothing_name[i] = 'default <<i>>'
  247. gt 'wardrobe', 'default_set'
  248. end
  249. if $ARGS[0] = 'default_entry_delete':
  250. gs 'stat'
  251. i = ARGS[1]
  252. killvar 'defclothingtype', i
  253. killvar 'defclothingnumber', i
  254. killvar 'defbratype', i
  255. killvar 'defbranumber', i
  256. killvar 'defpantytype', i
  257. killvar 'defpantynumber', i
  258. killvar 'defshoetype', i
  259. killvar 'defshoenumber', i
  260. killvar 'defpursetype', i
  261. killvar 'defpursenumber', i
  262. killvar 'defcoat', i
  263. killvar 'def_clothing_name', i
  264. gt 'wardrobe', 'default_set'
  265. end
  266. --- wardrobe ---------------------------------