wardrobe.qsrc 23 KB

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