wardrobe.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442
  1. # wardrobe
  2. if $ARGS[0] = 'start':
  3. PShoQuality = ShoQuality
  4. PShoHeels = ShoHeels
  5. PShoCut = ShoCut
  6. PShoStyle = ShoStyle
  7. $wloc = 'wardrobe'
  8. if $clothingworntype = 'cheap' and clothingwornnumber = '414':
  9. gs 'clothing', 'strip'
  10. gs 'clothing', 'swamp_clothes', 0
  11. end
  12. if ward_img_hgt = 0:ward_img_hgt = 150
  13. '<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>'
  14. '<br><center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
  15. *p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
  16. *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>'
  17. if defaultcoat = 0:
  18. '<a href="exec:gt ''cloakroom'', ''view_coat_list''">Search the wardrobe</a>'
  19. else
  20. '<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>"></a>'
  21. end
  22. '</center></TD>'
  23. '<TR><TD><center>'
  24. if $braworntype ! 'none':
  25. '<a href="exec:gs ''bras'', ''remove'' & gt ''wardrobe'', ''start''">Remove</a>'
  26. else
  27. 'Remove'
  28. end
  29. '</center></TD><TD><center>'
  30. if $clothingworntype ! 'nude':
  31. '<a href="exec:gs ''clothing'', ''strip'' & gt ''wardrobe'', ''start''">Remove</a>'
  32. else
  33. 'Remove'
  34. end
  35. '</center></TD><TD><center>'
  36. if defaultcoat ! 0:
  37. '<a href="exec:defaultcoat_warmth = 0 & defaultcoat = 0 & gt ''wardrobe'', ''start''">Remove</a>'
  38. else
  39. 'Remove'
  40. end
  41. '</center></TD>'
  42. *p '<TR><TH>Panties worn</TH><TH>Shoes (Only worn outside)</TH><TH>Purse worn</TH>'
  43. *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>'
  44. if bag = 1:
  45. '<a href="exec:gt ''purses'', ''view_purse_list''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></a>'
  46. else
  47. '<a href="exec:gt ''purses'', ''view_purse_list''">Search the wardrobe</a>'
  48. end
  49. '</center></TD>'
  50. '<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>'
  69. '<TR><TD><TD><center>'
  70. if ($clothingworntype ! 'nude' and (defaultcoat > 0 or bag > 0)) or (defaultcoat > 0 and bag > 0):
  71. '<a href="exec:gs ''wardrobe'', ''removeall'' & gt ''wardrobe'', ''start''">Remove all items</a>'
  72. else
  73. 'Remove all items'
  74. end
  75. '<TD></center></TD>'
  76. '</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 'Set a default outfit': gt 'wardrobe', 'default_set'
  86. act 'Choose a default outfit': gt 'wardrobe', 'default'
  87. act 'Organise stored clothing': org_loc = 1 & gt 'clothing', 'view_clothing_list', 'wardrobe'
  88. act 'Set image size for this view':
  89. ward_img_hgt = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
  90. if ward_img_hgt < 50:
  91. ward_img_hgt = 50
  92. elseif ward_img_hgt > 500:
  93. ward_img_hgt = 500
  94. end
  95. gt 'wardrobe', 'start'
  96. end
  97. end
  98. if $ARGS[0] = 'removeall':
  99. gs 'bras', 'remove'
  100. gs 'clothing', 'strip'
  101. gs 'panties', 'remove'
  102. gs 'shoes', 'strip'
  103. gs 'purses', 'remove'
  104. defaultcoat = 0
  105. end
  106. !!---------------------------Oufit stuff----------------------------------
  107. if $ARGS[0] = 'default':
  108. gs 'stat'
  109. 'Default sports outfit <a href="exec:gs ''wardrobe'', ''sports_entry_wear''">Wear this default outfit</a>'
  110. act 'Return': gt 'wardrobe', 'start'
  111. if ARRSIZE('defclothingnumber') > 0:
  112. i = 0
  113. :loopdefclothing
  114. '<<$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>'
  115. i += 1
  116. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing'
  117. end
  118. *nl
  119. 'Note: When selecting an outfit you will see the bonus for your shoes applied, this will be removed when you leave and only added when outside.'
  120. end
  121. if $ARGS[0] = 'default_entry_wear':
  122. default_entry = ARGS[1]
  123. gs 'clothing_attributes', $defclothingtype[default_entry], defclothingnumber[default_entry]
  124. gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry]
  125. if dyneval('RESULT = <<$defbratype[default_entry]>>_bras[<<defbranumber[default_entry]>>]') = 0: $defbratype[default_entry] = 'none' & defbranumber[default_entry] = 0
  126. gs 'bras', 'wear', $defbratype[default_entry], defbranumber[default_entry]
  127. if dyneval('RESULT = <<$defpantytype[default_entry]>>_panties[<<defpantynumber[default_entry]>>]') = 0: $defpantytype[default_entry] = 'none' & defpantynumber[default_entry] = 0
  128. gs 'panties', 'wear', $defpantytype[default_entry], defpantynumber[default_entry]
  129. if dyneval('RESULT = s<<$defshoetype[default_entry]>>[<<defshoenumber[default_entry]>>]') = 0: $defshoetype[default_entry] = 'none' & defshoenumber[default_entry] = 0
  130. gs 'shoes', 'wear', $defshoetype[default_entry], defshoenumber[default_entry]
  131. if dyneval('RESULT = <<$defpursetype[default_entry]>>_purses[<<defpursenumber[default_entry]>>]') = 0:
  132. $defpursetype[default_entry] = 'none' & defpursenumber[default_entry]
  133. end
  134. $currentpursetype = $defpursetype[default_entry]
  135. currentpursenumber = defpursenumber[default_entry]
  136. if $currentpursetype = 'none':
  137. bag = 0
  138. else
  139. bag = 1
  140. end
  141. if dyneval('RESULT = coat[<<defcoat[default_entry]>>]') = 0: defcoat[default_entry] = 0
  142. defaultcoat = defcoat[default_entry]
  143. !! default school girl uniform is always allowed to be worn if still in school
  144. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $defclothingtype[default_entry] = 'school' and defclothingnumber[default_entry] = 6:
  145. cls
  146. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  147. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  148. act 'Return to wardrobe':
  149. killvar 'default_entry'
  150. gs 'stat'
  151. gt 'wardrobe', 'start'
  152. end
  153. !! do not own this clothing anymore
  154. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>[<<defclothingnumber[default_entry]>>]') = 0:
  155. cls
  156. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  157. '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.'
  158. act 'Return to wardrobe':
  159. gs 'clothing', 'strip'
  160. killvar 'default_entry'
  161. gs 'stat'
  162. gt 'wardrobe', 'start'
  163. end
  164. !! strength of clothing is less than or equal to 0
  165. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>H[<<defclothingnumber[default_entry]>>]') <= 0:
  166. cls
  167. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  168. '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.'
  169. act 'Strip out of worn out clothing':
  170. gs 'clothing', 'strip'
  171. killvar 'default_entry'
  172. gs 'stat'
  173. gt 'wardrobe', 'start'
  174. end
  175. !! clothing exhibition is greater than player exhibition
  176. elseif CloInhibit > pcs_inhib:
  177. cls
  178. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  179. '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.'
  180. act 'Strip out of revealing clothing':
  181. gs 'clothing', 'strip'
  182. killvar 'default_entry'
  183. gs 'stat'
  184. gt 'wardrobe', 'start'
  185. end
  186. !! not exercise clothing, not coat, and not loose fitting
  187. elseif $defclothingtype[default_entry] ! 'exercise' and $defclothingtype[default_entry] ! 'coat' and CloStyle ! 5:
  188. !! check for if the hipsize is too far from your hipsize
  189. dynamic 'RESULT = <<$defclothingtype[default_entry]>>B[<<defclothingnumber[default_entry]>>]'
  190. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  191. cls
  192. 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>')
  193. '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.'
  194. act 'Strip out of ill-fitting clothing':
  195. gs 'clothing', 'strip'
  196. killvar 'default_entry'
  197. gs 'stat'
  198. gt 'wardrobe', 'start'
  199. end
  200. !! clothing ok to wear after passing hip check
  201. else
  202. cls
  203. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  204. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  205. act 'Return to wardrobe':
  206. killvar 'default_entry'
  207. gs 'stat'
  208. gt 'wardrobe', 'start'
  209. end
  210. end
  211. !! clothing ok to wear without needing hip check and passing all other checks
  212. else
  213. cls
  214. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  215. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  216. act 'Return to wardrobe':
  217. killvar 'default_entry'
  218. gs 'stat'
  219. gt 'wardrobe', 'start'
  220. end
  221. end
  222. end
  223. if $ARGS[0] = 'default_set':
  224. gs 'stat'
  225. 'sports outfit <a href="exec:gs ''wardrobe'', ''sports_entry_set'', <<i>>">Overwrite this</a>'
  226. if ARRSIZE('defclothingnumber') ! 0:
  227. i = 0
  228. :loopdefclothing_set
  229. '<<$def_clothing_name[i]>> <a href="exec:gs ''wardrobe'', ''default_entry_set'', <<i>>">Overwrite this</a>'
  230. i += 1
  231. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing_set'
  232. end
  233. act 'Return': gt 'wardrobe', 'start'
  234. act 'Add as new default': gt 'wardrobe', 'default_entry_set', ARRSIZE('defclothingnumber')
  235. end
  236. if $ARGS[0] = 'default_entry_set':
  237. gs 'stat'
  238. i = ARGS[1]
  239. $defclothingtype[i] = $clothingworntype
  240. defclothingnumber[i] = clothingwornnumber
  241. $defbratype[i] = $braworntype
  242. defbranumber[i] = brawornnumber
  243. $defpantytype[i] = $pantyworntype
  244. defpantynumber[i] = pantywornnumber
  245. $defshoetype[i] = $shoeworntype
  246. defshoenumber[i] = shoewornnumber
  247. $defpursetype[i] = $currentpursetype
  248. defpursenumber[i] = currentpursenumber
  249. defcoat[i] = defaultcoat
  250. $def_clothing_name[i] = input ('Enter name for for this outfit (Leave blank for default)')
  251. if $def_clothing_name[i] = '': $def_clothing_name[i] = 'default <<i>>'
  252. gt 'wardrobe', 'default_set'
  253. end
  254. if $ARGS[0] = 'default_entry_delete':
  255. gs 'stat'
  256. i = ARGS[1]
  257. killvar 'defclothingtype', i
  258. killvar 'defclothingnumber', i
  259. killvar 'defbratype', i
  260. killvar 'defbranumber', i
  261. killvar 'defpantytype', i
  262. killvar 'defpantynumber', i
  263. killvar 'defshoetype', i
  264. killvar 'defshoenumber', i
  265. killvar 'defpursetype', i
  266. killvar 'defpursenumber', i
  267. killvar 'defcoat', i
  268. killvar 'def_clothing_name', i
  269. gt 'wardrobe', 'default'
  270. end
  271. !!-- sports outfit stuff
  272. if $ARGS[0] = 'sports_entry_wear':
  273. gs 'wardrobe', 'prev_entry_set'
  274. gs 'clothing_attributes', 'exercise', sportsclothingnumber
  275. gs 'clothing', 'wear', 'exercise', sportsclothingnumber
  276. if dyneval('RESULT = <<$sportsbratype>>_bras[<<sportsbranumber>>]') = 0: $sportsbratype = 'none' & sportsbranumber = 0
  277. gs 'bras', 'wear', $sportsbratype, sportsbranumber
  278. if dyneval('RESULT = <<$sportspantytype>>_panties[<<sportspantynumber>>]') = 0: $sportspantytype = 'none' & sportspantynumber = 0
  279. gs 'panties', 'wear', $sportspantytype, sportspantynumber
  280. gs 'shoes', 'wear', 'trainers', sportsshoenumber
  281. if $sportspursetype = '' AND sportspursenumber = 0:
  282. $sportspursetype = 'none' & sportspursenumber = 0
  283. elseif dyneval('RESULT = <<$sportspursetype>>_purses[<<sportspursenumber>>]') = 0:
  284. $sportspursetype = 'none' & sportspursenumber = 0
  285. end
  286. $currentpursetype = $sportspursetype
  287. currentpursenumber = sportspursenumber
  288. if $currentpursetype = 'none':
  289. bag = 0
  290. else
  291. bag = 1
  292. end
  293. if dyneval('RESULT = coat[<<sportscoat>>]') = 0: sportscoat = 0
  294. defaultcoat = sportscoat
  295. minut += 2
  296. gs 'stat'
  297. !! do not own this clothing anymore
  298. if dyneval('RESULT = exercise[<<sportsclothingnumber>>]') = 0:
  299. cls
  300. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  301. '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.'
  302. gs 'wardrobe', 'prev_entry_set'
  303. !! strength of clothing is less than or equal to 0
  304. elseif dyneval('RESULT = exerciseH[<<sportsclothingnumber>>]') <= 0:
  305. cls
  306. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  307. 'Your sports outfit has worn out and can''t be used anymore. Guess you will have to find something else to wear.'
  308. gs 'wardrobe', 'prev_entry_set'
  309. !! clothing exhibition is greater than player exhibition
  310. elseif CloInhibit > pcs_inhib:
  311. cls
  312. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  313. '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.'
  314. gs 'wardrobe', 'prev_entry_set'
  315. !! clothing ok to wear without needing hip check and passing all other checks
  316. else
  317. cls
  318. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  319. 'You put on your sports outfit without any problems.'
  320. end
  321. act 'Return':
  322. if $wloc = 'wardrobe':
  323. gt 'wardrobe', 'start'
  324. elseif $wloc = 'workout':
  325. gt 'exercise', 'workout'
  326. else
  327. gt $loc, $metka
  328. end
  329. end
  330. end
  331. if $ARGS[0] = 'sports_entry_set':
  332. if $clothingworntype ! 'exercise' OR $shoeworntype ! 'trainers':
  333. MSG 'The sports outfit needs to include exercise clothes and training shoes'
  334. act 'Return to wardrobe': gt 'wardrobe', 'start'
  335. else
  336. gs 'stat'
  337. sportsclothingnumber = clothingwornnumber
  338. $sportsbratype = $braworntype
  339. sportsbranumber = brawornnumber
  340. $sportspantytype = $pantyworntype
  341. sportspantynumber = pantywornnumber
  342. sportsshoenumber = shoewornnumber
  343. $sportspursetype = $currentpursetype
  344. sportspursenumber = currentpursenumber
  345. sportscoat = defaultcoat
  346. gt 'wardrobe', 'default_set'
  347. end
  348. end
  349. if $ARGS[0] = 'prev_entry_set':
  350. $prevsportsclothingtype = $clothingworntype
  351. prevsportsclothingnumber = clothingwornnumber
  352. $prevsportsbratype = $braworntype
  353. prevsportsbranumber = brawornnumber
  354. $prevsportspantytype = $pantyworntype
  355. prevsportspantynumber = pantywornnumber
  356. $prevsportsshoetype = $shoeworntype
  357. prevsportsshoenumber = shoewornnumber
  358. $prevsportspursetype = $currentpursetype
  359. prevsportspursenumber = currentpursenumber
  360. prevsportscoat = defaultcoat
  361. end
  362. if $ARGS[0] = 'prev_entry_wear':
  363. cls
  364. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  365. 'You take off your sports outfit and put on the previous clothes'
  366. $clothingworntype = $prevsportsclothingtype
  367. clothingwornnumber = prevsportsclothingnumber
  368. $braworntype = $prevsportsbratype
  369. brawornnumber = prevsportsbranumber
  370. $pantyworntype = $prevsportspantytype
  371. pantywornnumber = prevsportspantynumber
  372. $shoeworntype = $prevsportsshoetype
  373. shoewornnumber = prevsportsshoenumber
  374. $currentpursetype = $prevsportspursetype
  375. currentpursenumber = prevsportspursenumber
  376. defaultcoat = prevsportscoat
  377. minut += 2
  378. gs 'stat'
  379. act 'Return':
  380. if $wloc = 'wardrobe':
  381. gt 'wardrobe', 'start'
  382. elseif $wloc = 'workout':
  383. gt 'exercise', 'workout'
  384. else
  385. gt $loc, $metka
  386. end
  387. end
  388. end
  389. if $ARGS[0] = 'sports_outfit_option':
  390. if $ARGS[1] = 'workout':
  391. $wloc = 'workout'
  392. else
  393. killvar '$wloc'
  394. end
  395. if $clothingworntype = 'exercise' AND $shoeworntype = 'trainers' AND sportsclothingnumber = clothingwornnumber AND $sportsbratype = $braworntype AND sportsbranumber = brawornnumber AND $sportspantytype = $pantyworntype AND sportspantynumber = pantywornnumber AND sportsshoenumber = shoewornnumber:
  396. act 'Wear previous outfit': gs 'wardrobe', 'prev_entry_wear'
  397. else
  398. act 'Wear sports outfit': gs 'wardrobe', 'sports_entry_wear'
  399. end
  400. end
  401. --- wardrobe ---------------------------------