wardrobe.qsrc 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586
  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'',''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></a>'
  55. else
  56. '<a href="exec:gt ''purses'', ''view_purse_list'',''wardrobe''">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, $loc_arg
  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:gs ''wardrobe'', ''default_entry_rename'', <<i>>">Rename</a> | <a href="exec:gs ''wardrobe'', ''default_entry_delete'', <<i>>">Delete</a> | <a href="exec:gs ''wardrobe'', ''default_entry_up'', <<i>>">↑</a> | <a href="exec:gs ''wardrobe'', ''default_entry_down'', <<i>>">↓</a>'
  133. i += 1
  134. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing'
  135. end
  136. '</td></tr>'
  137. '</table></center>'
  138. act 'Return':
  139. if quick_dress = 1:
  140. killvar '$wloc'
  141. killvar 'quick_dress'
  142. gt $loc, $loc_arg
  143. else
  144. gt 'wardrobe', 'start'
  145. end
  146. end
  147. act 'Add as a new custom set': gt 'wardrobe', 'default_entry_set', ARRSIZE('defclothingnumber')
  148. '<center>Note: Selecting an outfit will show the bonus for equipped shoes, this is only applied when outside.</center>'
  149. end
  150. if $ARGS[0] = 'default_entry_wear':
  151. gs 'stat'
  152. default_entry = ARGS[1]
  153. gs 'clothing_attributes', $defclothingtype[default_entry], defclothingnumber[default_entry]
  154. if ARRPOS('$CloLosTyp', $defclothingtype[default_entry]) ! -1 and ARRPOS('CloLosNum', defclothingnumber[default_entry]) ! -1:
  155. 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>'
  156. else
  157. gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry]
  158. end
  159. if dyneval('RESULT = <<$defbratype[default_entry]>>_bras[<<defbranumber[default_entry]>>]') = 0: $defbratype[default_entry] = 'none' & defbranumber[default_entry] = 0
  160. gs 'bras', 'wear', $defbratype[default_entry], defbranumber[default_entry]
  161. if dyneval('RESULT = <<$defpantytype[default_entry]>>_panties[<<defpantynumber[default_entry]>>]') = 0: $defpantytype[default_entry] = 'none' & defpantynumber[default_entry] = 0
  162. gs 'panties', 'wear', $defpantytype[default_entry], defpantynumber[default_entry]
  163. if dyneval('RESULT = s<<$defshoetype[default_entry]>>[<<defshoenumber[default_entry]>>]') = 0: $defshoetype[default_entry] = 'none' & defshoenumber[default_entry] = 0
  164. gs 'shoes', 'wear', $defshoetype[default_entry], defshoenumber[default_entry]
  165. if dyneval('RESULT = <<$defpursetype[default_entry]>>_purses[<<defpursenumber[default_entry]>>]') = 0:
  166. $defpursetype[default_entry] = 'none' & defpursenumber[default_entry]
  167. end
  168. $currentpursetype = $defpursetype[default_entry]
  169. currentpursenumber = defpursenumber[default_entry]
  170. if $currentpursetype = 'none':
  171. bag = 0
  172. else
  173. bag = 1
  174. end
  175. if dyneval('RESULT = coat[<<defcoat[default_entry]>>]') = 0: defcoat[default_entry] = 0
  176. defaultcoat = defcoat[default_entry]
  177. !! default school girl uniform is always allowed to be worn if still in school
  178. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $defclothingtype[default_entry] = 'school' and defclothingnumber[default_entry] = 6:
  179. cls
  180. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  181. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  182. act 'Return to wardrobe':
  183. killvar 'default_entry'
  184. gs 'stat'
  185. gt 'wardrobe', 'start'
  186. end
  187. !! do not own this clothing anymore
  188. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>[<<defclothingnumber[default_entry]>>]') = 0:
  189. cls
  190. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  191. '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.'
  192. act 'Return to wardrobe':
  193. gs 'clothing', 'strip'
  194. killvar 'default_entry'
  195. gs 'stat'
  196. gt 'wardrobe', 'start'
  197. end
  198. !! strength of clothing is less than or equal to 0
  199. elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>H[<<defclothingnumber[default_entry]>>]') <= 0:
  200. cls
  201. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  202. '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.'
  203. act 'Strip out of worn out clothing':
  204. gs 'clothing', 'strip'
  205. killvar 'default_entry'
  206. gs 'stat'
  207. gt 'wardrobe', 'start'
  208. end
  209. !! clothing exhibition is greater than player exhibition
  210. elseif CloInhibit > pcs_inhib:
  211. cls
  212. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  213. '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.'
  214. act 'Strip out of revealing clothing':
  215. gs 'clothing', 'strip'
  216. killvar 'default_entry'
  217. gs 'stat'
  218. gt 'wardrobe', 'start'
  219. end
  220. !! not exercise clothing, not coat, and not loose fitting
  221. elseif $defclothingtype[default_entry] ! 'exercise' and $defclothingtype[default_entry] ! 'coat' and CloStyle ! 5:
  222. !! check for if the hipsize is too far from your hipsize
  223. dynamic 'RESULT = <<$defclothingtype[default_entry]>>B[<<defclothingnumber[default_entry]>>]'
  224. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  225. cls
  226. 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>')
  227. '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.'
  228. act 'Strip out of ill-fitting clothing':
  229. gs 'clothing', 'strip'
  230. killvar 'default_entry'
  231. gs 'stat'
  232. gt 'wardrobe', 'start'
  233. end
  234. !! clothing ok to wear after passing hip check
  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. !! clothing ok to wear without needing hip check and passing all other checks
  246. else
  247. cls
  248. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  249. 'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
  250. act 'Return to wardrobe':
  251. killvar 'default_entry'
  252. gs 'stat'
  253. gt 'wardrobe', 'start'
  254. end
  255. end
  256. end
  257. if $ARGS[0] = 'default_entry_set':
  258. gs 'stat'
  259. i = ARGS[1]
  260. $defclothingtype[i] = $clothingworntype
  261. defclothingnumber[i] = clothingwornnumber
  262. $defbratype[i] = $braworntype
  263. defbranumber[i] = brawornnumber
  264. $defpantytype[i] = $pantyworntype
  265. defpantynumber[i] = pantywornnumber
  266. $defshoetype[i] = $shoeworntype
  267. defshoenumber[i] = shoewornnumber
  268. if bag = 1:
  269. $defpursetype[i] = $currentpursetype
  270. defpursenumber[i] = currentpursenumber
  271. else
  272. $defpursetype[i] = 'none'
  273. end
  274. defcoat[i] = defaultcoat
  275. $def_clothing_temp = '<<$def_clothing_name[i]>>'
  276. $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>')
  277. if $def_clothing_name[i] = '' and $def_clothing_temp = '':
  278. $def_clothing_name[i] = 'Custom <<i>>'
  279. elseif $def_clothing_name[i] = '':
  280. $def_clothing_name[i] = '<<$def_clothing_temp>>'
  281. end
  282. gt 'wardrobe', 'default'
  283. end
  284. if $ARGS[0] = 'default_entry_rename':
  285. gs 'stat'
  286. i = ARGS[1]
  287. $def_clothing_temp = '<<$def_clothing_name[i]>>'
  288. $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>')
  289. if $def_clothing_name[i] = '' and $def_clothing_temp = '':
  290. $def_clothing_name[i] = 'Custom <<i>>'
  291. elseif $def_clothing_name[i] = '':
  292. $def_clothing_name[i] = '<<$def_clothing_temp>>'
  293. end
  294. gt 'wardrobe', 'default'
  295. end
  296. if $ARGS[0] = 'default_entry_up':
  297. gs 'stat'
  298. i = ARGS[1]
  299. if i = 0:
  300. j = ARRSIZE('defclothingnumber') - 1
  301. else
  302. j = i - 1
  303. end
  304. $tempclothingworntype = $defclothingtype[i]
  305. tempclothingwornnumber = defclothingnumber[i]
  306. $tempbraworntype = $defbratype[i]
  307. tempbrawornnumber = defbranumber[i]
  308. $temppantyworntype = $defpantytype[i]
  309. temppantywornnumber = defpantynumber[i]
  310. $tempshoeworntype = $defshoetype[i]
  311. tempshoewornnumber = defshoenumber[i]
  312. $tempcurrentpursetype = $defpursetype[i]
  313. tempcurrentpursenumber = defpursenumber[i]
  314. tempdefaultcoat = defcoat[i]
  315. $def_clothing_temp = '<<$def_clothing_name[i]>>'
  316. $defclothingtype[i] = $defclothingtype[j]
  317. defclothingnumber[i] = defclothingnumber[j]
  318. $defbratype[i] = $defbratype[j]
  319. defbranumber[i] = defbranumber[j]
  320. $defpantytype[i] = $defpantytype[j]
  321. defpantynumber[i] = defpantynumber[j]
  322. $defshoetype[i] = $defshoetype[j]
  323. defshoenumber[i] = defshoenumber[j]
  324. $defpursetype[i] = $defpursetype[j]
  325. defpursenumber[i] = defpursenumber[j]
  326. defcoat[i] = defcoat[j]
  327. $def_clothing_name[i] = '<<$def_clothing_name[j]>>'
  328. $defclothingtype[j] = $tempclothingworntype
  329. defclothingnumber[j] = tempclothingwornnumber
  330. $defbratype[j] = $tempbraworntype
  331. defbranumber[j] = tempbrawornnumber
  332. $defpantytype[j] = $temppantyworntype
  333. defpantynumber[j] = temppantywornnumber
  334. $defshoetype[j] = $tempshoeworntype
  335. defshoenumber[j] = tempshoewornnumber
  336. $defpursetype[j] = $tempcurrentpursetype
  337. defpursenumber[j] = tempcurrentpursenumber
  338. defcoat[j] = tempdefaultcoat
  339. $def_clothing_name[j] = '<<$def_clothing_temp>>'
  340. gt 'wardrobe', 'default'
  341. end
  342. if $ARGS[0] = 'default_entry_down':
  343. gs 'stat'
  344. i = ARGS[1]
  345. if i = ARRSIZE('defclothingnumber') - 1:
  346. j = 0
  347. else
  348. j = i + 1
  349. end
  350. $tempclothingworntype = $defclothingtype[i]
  351. tempclothingwornnumber = defclothingnumber[i]
  352. $tempbraworntype = $defbratype[i]
  353. tempbrawornnumber = defbranumber[i]
  354. $temppantyworntype = $defpantytype[i]
  355. temppantywornnumber = defpantynumber[i]
  356. $tempshoeworntype = $defshoetype[i]
  357. tempshoewornnumber = defshoenumber[i]
  358. $tempcurrentpursetype = $defpursetype[i]
  359. tempcurrentpursenumber = defpursenumber[i]
  360. tempdefaultcoat = defcoat[i]
  361. $def_clothing_temp = '<<$def_clothing_name[i]>>'
  362. $defclothingtype[i] = $defclothingtype[j]
  363. defclothingnumber[i] = defclothingnumber[j]
  364. $defbratype[i] = $defbratype[j]
  365. defbranumber[i] = defbranumber[j]
  366. $defpantytype[i] = $defpantytype[j]
  367. defpantynumber[i] = defpantynumber[j]
  368. $defshoetype[i] = $defshoetype[j]
  369. defshoenumber[i] = defshoenumber[j]
  370. $defpursetype[i] = $defpursetype[j]
  371. defpursenumber[i] = defpursenumber[j]
  372. defcoat[i] = defcoat[j]
  373. $def_clothing_name[i] = '<<$def_clothing_name[j]>>'
  374. $defclothingtype[j] = $tempclothingworntype
  375. defclothingnumber[j] = tempclothingwornnumber
  376. $defbratype[j] = $tempbraworntype
  377. defbranumber[j] = tempbrawornnumber
  378. $defpantytype[j] = $temppantyworntype
  379. defpantynumber[j] = temppantywornnumber
  380. $defshoetype[j] = $tempshoeworntype
  381. defshoenumber[j] = tempshoewornnumber
  382. $defpursetype[j] = $tempcurrentpursetype
  383. defpursenumber[j] = tempcurrentpursenumber
  384. defcoat[j] = tempdefaultcoat
  385. $def_clothing_name[j] = '<<$def_clothing_temp>>'
  386. gt 'wardrobe', 'default'
  387. end
  388. if $ARGS[0] = 'default_entry_delete':
  389. gs 'stat'
  390. i = ARGS[1]
  391. killvar 'defclothingtype', i
  392. killvar 'defclothingnumber', i
  393. killvar 'defbratype', i
  394. killvar 'defbranumber', i
  395. killvar 'defpantytype', i
  396. killvar 'defpantynumber', i
  397. killvar 'defshoetype', i
  398. killvar 'defshoenumber', i
  399. killvar 'defpursetype', i
  400. killvar 'defpursenumber', i
  401. killvar 'defcoat', i
  402. killvar 'def_clothing_name', i
  403. gt 'wardrobe', 'default'
  404. end
  405. !!-- sports outfit stuff
  406. if $ARGS[0] = 'sports_entry_set':
  407. gs 'stat'
  408. if $clothingworntype ! 'exercise' OR $shoeworntype ! 'trainers':
  409. MSG 'The sports outfit needs to include exercise clothes and training shoes'
  410. gt 'wardrobe', 'start'
  411. else
  412. gs 'stat'
  413. $sportsclothingtype = $clothingworntype
  414. sportsclothingnumber = clothingwornnumber
  415. $sportsbratype = $braworntype
  416. sportsbranumber = brawornnumber
  417. $sportspantytype = $pantyworntype
  418. sportspantynumber = pantywornnumber
  419. $sportsshoetype = $shoeworntype
  420. sportsshoenumber = shoewornnumber
  421. $sportspursetype = $currentpursetype
  422. sportspursenumber = currentpursenumber
  423. sportscoat = defaultcoat
  424. $sports_clothing_temp = '<<$sports_clothing_name>>'
  425. $sports_clothing_name = input ('<center>Enter a name for this outfit set<br><font color="grey">Leaving blank will reuse current name.</font></center>')
  426. if $sports_clothing_name = '' and $sports_clothing_temp = '':
  427. $sports_clothing_name = 'default sports outfit'
  428. elseif $sports_clothing_name = '':
  429. $sports_clothing_name = '<<$sports_clothing_temp>>'
  430. end
  431. gt 'wardrobe', 'default'
  432. end
  433. end
  434. if $ARGS[0] = 'sports_entry_wear':
  435. gs 'stat'
  436. !gs 'wardrobe', 'prev_entry_set' this does not exist
  437. gs 'clothing_attributes', 'exercise', sportsclothingnumber
  438. if ARRPOS('$CloLosTyp', 'exercise') ! -1 and ARRPOS('CloLosNum', sportsclothingnumber) ! -1:
  439. 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>'
  440. else
  441. gs 'clothing', 'wear', 'exercise', sportsclothingnumber
  442. end
  443. if dyneval('RESULT = <<$sportsbratype>>_bras[<<sportsbranumber>>]') = 0: $sportsbratype = 'none' & sportsbranumber = 0
  444. gs 'bras', 'wear', $sportsbratype, sportsbranumber
  445. if dyneval('RESULT = <<$sportspantytype>>_panties[<<sportspantynumber>>]') = 0: $sportspantytype = 'none' & sportspantynumber = 0
  446. gs 'panties', 'wear', $sportspantytype, sportspantynumber
  447. gs 'shoes', 'wear', 'trainers', sportsshoenumber
  448. minut += 2
  449. gs 'stat'
  450. !! do not own this clothing anymore
  451. if dyneval('RESULT = exercise[<<sportsclothingnumber>>]') = 0:
  452. cls
  453. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg"></center>'
  454. '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.'
  455. !gs 'wardrobe', 'prev_entry_set' this does not exist
  456. gs 'clothing', 'strip'
  457. gs 'stat'
  458. !! strength of clothing is less than or equal to 0
  459. elseif dyneval('RESULT = exerciseH[<<sportsclothingnumber>>]') <= 0:
  460. cls
  461. '<center><video autoplay loop src="images/characters/pavlovsk/school/girl/vicky/event/vika_game_strip16.mp4"></video></center>'
  462. 'Your sports outfit has worn out and can''t be used anymore. Guess you will have to find something else to wear.'
  463. !gs 'wardrobe', 'prev_entry_set' this does not exist
  464. gs 'clothing', 'strip'
  465. gs 'stat'
  466. !! clothing exhibition is greater than player exhibition
  467. elseif CloInhibit > pcs_inhib:
  468. cls
  469. '<center><video autoplay loop src="images/locations/pavlovsk/trainstation/bimbo.strip6.mp4"></video></center>'
  470. '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.'
  471. !gs 'wardrobe', 'prev_entry_set' this does not exist
  472. gs 'clothing', 'strip'
  473. gs 'stat'
  474. !! clothing ok to wear without needing hip check and passing all other checks
  475. else
  476. cls
  477. '<center><video autoplay loop src="images/locations/city/citycenter/photo/dress.mp4"></video></center>'
  478. 'You put on your sports outfit without any problems.'
  479. end
  480. act 'Return':
  481. if $wloc = 'wardrobe':
  482. gt 'wardrobe', 'start'
  483. elseif $wloc = 'workout':
  484. gt 'exercise', 'workout'
  485. else
  486. gt $loc, $loc_arg
  487. end
  488. end
  489. end
  490. if $ARGS[0] = 'sports_outfit':
  491. gs 'stat'
  492. if $clothingworntype ! 'exercise' or $shoeworntype ! 'trainers':
  493. act 'Change into: <<$sports_clothing_name>>': gs 'wardrobe', 'sports_entry_wear'
  494. end
  495. end
  496. if $ARGS[0] = 'school_outfit':
  497. ! check to see if player has created a school uniform outfit
  498. if ARRSIZE('defclothingnumber') > 0:
  499. SchoolOutfitLoop = 0
  500. :FindSchoolOutfit
  501. gs 'clothing_attributes', $defclothingtype[SchoolOutfitLoop], defclothingnumber[SchoolOutfitLoop]
  502. ! found an outfit that includes a school uniform
  503. if CloStyle2 = 4:
  504. tempSchtype = 0
  505. ! if they have worn a uniform recently we will use that rather than the one in the outfit
  506. if schtype <> 0:
  507. tempSchtype = schtype
  508. $tempSchbrand = $schbrand
  509. end
  510. ! put the outfit on
  511. gs 'wardrobe', 'default_entry_wear', SchoolOutfitLoop
  512. !over ride the uniform with the most recent one used if there was one
  513. if tempSchtype <> 0:
  514. clothingwornnumber = tempSchtype
  515. $clothingworntype = $tempSchbrand
  516. schtype = clothingwornnumber
  517. $schbrand = $clothingworntype
  518. end
  519. jump 'FoundSchoolOutfit'
  520. end
  521. SchoolOutfitLoop += 1
  522. if SchoolOutfitLoop < ARRSIZE('defclothingnumber'):jump 'FindSchoolOutfit'
  523. :FoundSchoolOutfit
  524. killvar 'SchoolOutfitLoop'
  525. killvar 'tempSchtype'
  526. killvar '$tempSchbrand'
  527. end
  528. ! if no uniform found or the one selected is worn out, use the default one
  529. if schtype = 0 or dyneval('RESULT = <<$schbrand>>H[<<schtype>>]') <= 0:
  530. schtype = 6
  531. $schbrand = 'school'
  532. end
  533. gs 'clothing', 'wear', $schbrand, schtype
  534. end
  535. --- wardrobe ---------------------------------