clothing_QV.qsrc 38 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807
  1. # clothing_QV
  2. menu_off = 1
  3. if $ARGS[0] = 'list':
  4. '<h3><center><b><font color="maroon">Wardrobe - Brand Selection</font></b></center></h3>'
  5. '<center><b><font color="maroon">click on a shop name to view clothes from that shop</font></b></center>'
  6. $regularwornclothingtype = ''
  7. *nl
  8. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  9. *nl
  10. ! '<center>These are the clothes that are currently available for you to wear.</center><br>'
  11. ! *nl
  12. if org_loc = 1:
  13. act 'Return':
  14. killvar '$ward_list_store'
  15. killvar 'org_loc'
  16. gt 'clothing', 'view_clothing_list', 'wardrobe'
  17. end
  18. else
  19. act 'Return':
  20. killvar '$ward_list_store'
  21. gt 'wardrobe', 'start'
  22. end
  23. end
  24. '<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm''"><img src="images/locations/city/citycenter/mall/gm.png"></a></center>'
  25. if ARRSIZE('gm_school') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_school''"><img src="images/locations/city/citycenter/mall/s.uniform2.png"></a></center>'
  26. if ARRSIZE('cats_outfits') > 0 or ARRSIZE('cats_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  27. if ARRSIZE('flamingos_outfits') > 0 or ARRSIZE('flamingos_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''flamingos''"><img src="images/locations/city/island/flamingos/shop_name.png"></a></center>'
  28. if ARRSIZE('coco_outfits') > 0 or ARRSIZE('coco_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''coco''"><img src="images/locations/pavlovsk/coco/shop_name.png"></a></center>'
  29. if ARRSIZE('fashionista') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionista.png"></a></center>'
  30. if ARRSIZE('moncheri') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  31. if ARRSIZE('fetish') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sexshop''"><img src="images/locations/city/citycenter/sexshop/shop_name.png"></a></center>'
  32. if ARRSIZE('fancy_burlesque') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''fancypancy''"><img src="images/locations/oldtown/fancy/shop_name.png"></a></center>'
  33. if ARRSIZE('exhibit') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''exhibitshop''"><img src="images/locations/oldtown/exhibitshop/shop_name.png"></a></center>'
  34. if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''dolls''"><img src="images/locations/city/island/dolls.png"></a></center>'
  35. if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''bomba''"><img src="images/locations/oldtown/bomba/shop_name.png"></a></center>'
  36. if ARRSIZE('exercise') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  37. if $ARGS[1] = 'gm':
  38. *clr & cla
  39. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  40. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  41. *nl
  42. if ARRSIZE('gm_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_outfits''">G&M clothing</a></center>'
  43. if ARRSIZE('gm_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_dress''">G&M dresses</a></center>'
  44. if ARRSIZE('gm_office') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_office''">Office wear</a></center>'
  45. if ARRSIZE('gm_uniform') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_uniform''">Work uniforms</a></center>'
  46. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  47. end
  48. if $ARGS[1] = 'gm_outfits':
  49. $ward_list_store = $ARGS[1]
  50. *clr & cla
  51. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  52. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  53. '<center>Regular G&M clothing</center>'
  54. *nl
  55. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  56. *nl
  57. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  58. *nl
  59. i = 1
  60. :loopgm_outfits
  61. if gm_outfits[i] = 1:
  62. gs 'clothing_attributes', 'gm_outfits', i
  63. if CloInhibit <= pcs_inhib:
  64. if CloStyle ! 5:
  65. if gm_outfits_s[i] = 0 and gm_outfits_h[i] > 0 and gm_outfits_b[i] >= (pcs_hips - 8) and gm_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_outfits'', <<i>>"><img src="images/pc/items/gm/outfits/<<i>>.jpg" height="250" /></a>'
  66. else
  67. if gm_outfits_s[i] = 0 and gm_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_outfits'', <<i>>"><img src="images/pc/items/gm/outfits/<<i>>.jpg" height="250" /></a>'
  68. end
  69. end
  70. end
  71. i += 1
  72. if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits'
  73. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  74. end
  75. if $ARGS[1] = 'gm_dress':
  76. $ward_list_store = $ARGS[1]
  77. *clr & cla
  78. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  79. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  80. '<center>Regular G&M clothing</center>'
  81. *nl
  82. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  83. *nl
  84. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  85. *nl
  86. i = 1
  87. :loopgm_dress
  88. if gm_dress[i] = 1:
  89. gs 'clothing_attributes', 'gm_dress', i
  90. if CloInhibit <= pcs_inhib:
  91. if CloStyle ! 5:
  92. if gm_dress_s[i] = 0 and gm_dress_h[i] > 0 and gm_dress_b[i] >= (pcs_hips - 8) and gm_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_dress'', <<i>>"><img src="images/pc/items/gm/dress/<<i>>.jpg" height="250" /></a>'
  93. else
  94. if gm_dress_s[i] = 0 and gm_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_dress'', <<i>>"><img src="images/pc/items/gm/dress/<<i>>.jpg" height="250" /></a>'
  95. end
  96. end
  97. end
  98. i += 1
  99. if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress'
  100. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  101. end
  102. if $ARGS[1] = 'gm_office':
  103. $ward_list_store = $ARGS[1]
  104. *clr & cla
  105. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  106. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  107. '<center>Office wear</center>'
  108. *nl
  109. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  110. *nl
  111. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  112. *nl
  113. i = 1
  114. :loopoffice
  115. if gm_office[i] = 1:
  116. gs 'clothing_attributes', 'gm_office', i
  117. if CloInhibit <= pcs_inhib:
  118. if gm_office_s[i] = 0 and gm_office_h[i] > 0 and gm_office_b[i] >= (pcs_hips - 8) and gm_office_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_office'', <<i>>"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  119. end
  120. end
  121. i += 1
  122. if i <= ARRSIZE('gm_office'):jump 'loopoffice'
  123. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  124. end
  125. if $ARGS[1] = 'gm_uniform':
  126. $ward_list_store = $ARGS[1]
  127. *clr & cla
  128. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  129. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  130. '<center>Work uniforms</center>'
  131. *nl
  132. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  133. *nl
  134. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  135. *nl
  136. i = 1
  137. :loopuniform
  138. if gm_uniform[i] = 1:
  139. gs 'clothing_attributes', 'gm_uniform', i
  140. if CloInhibit <= pcs_inhib:
  141. if gm_uniform_s[i] = 0 and gm_uniform_h[i] > 0 and gm_uniform_b[i] >= (pcs_hips - 8) and gm_uniform_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_uniform'', <<i>>"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  142. end
  143. end
  144. i += 1
  145. if i <= ARRSIZE('gm_uniform'):jump 'loopuniform'
  146. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  147. end
  148. if $ARGS[1] = 'gm_school':
  149. $ward_list_store = $ARGS[1]
  150. *clr & cla
  151. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  152. '<center><img src="images/locations/city/citycenter/mall/s.uniform2.png"></center>'
  153. '<center>School uniforms</center>'
  154. *nl
  155. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  156. *nl
  157. '<center>These are the school uniforms you own that are currently available for you to wear.</center><br>'
  158. *nl
  159. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and gm_school_s[6] = 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_school'', 6"><img src="images/pc/clothing/6school/6.jpg" height="250" /></a>'
  160. i = 1
  161. :loopschool
  162. if gm_school[i] = 1:
  163. gs 'clothing_attributes', 'gm_school', i
  164. if CloInhibit <= pcs_inhib:
  165. if gm_school_s[i] = 0 and gm_school_h[i] > 0 and gm_school_b[i] >= (pcs_hips - 8) and gm_school_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_school'', <<i>>"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  166. end
  167. end
  168. i += 1
  169. if i = 6: i = 7
  170. if i <= ARRSIZE('gm_school'):jump 'loopschool'
  171. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  172. end
  173. if $ARGS[1] = 'kats':
  174. *clr & cla
  175. $ward_list_store = $ARGS[1]
  176. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  177. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  178. *nl
  179. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  180. *nl
  181. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  182. *nl
  183. i = 1
  184. :loopcats_outfits
  185. if cats_outfits[i] = 1:
  186. gs 'clothing_attributes', 'cats_outfits', i
  187. if CloInhibit <= pcs_inhib:
  188. if CloStyle ! 5:
  189. if cats_outfits_s[i] = 0 and cats_outfits_h[i] > 0 and cats_outfits_b[i] >= (pcs_hips - 8) and cats_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cats_outfits'', <<i>>"><img src="images/pc/items/cats/outfits/<<i>>.jpg" height="250" /></a>'
  190. else
  191. if cats_outfits_s[i] = 0 and cats_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cats_outfits'', <<i>>"><img src="images/pc/items/cats/outfits/<<i>>.jpg" height="250" /></a>'
  192. end
  193. end
  194. end
  195. i += 1
  196. if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits'
  197. i = 1
  198. :loopcats_dress
  199. if cats_dress[i] = 1:
  200. gs 'clothing_attributes', 'cats_dress', i
  201. if CloInhibit <= pcs_inhib:
  202. if CloStyle ! 5:
  203. if cats_dress_s[i] = 0 and cats_dress_h[i] > 0 and cats_dress_b[i] >= (pcs_hips - 8) and cats_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cats_dress'', <<i>>"><img src="images/pc/items/cats/dress/<<i>>.jpg" height="250" /></a>'
  204. else
  205. if cats_dress_s[i] = 0 and cats_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cats_dress'', <<i>>"><img src="images/pc/items/cats/dress/<<i>>.jpg" height="250" /></a>'
  206. end
  207. end
  208. end
  209. i += 1
  210. if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
  211. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  212. end
  213. if $ARGS[1] = 'flamingos':
  214. *clr & cla
  215. $ward_list_store = $ARGS[1]
  216. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  217. '<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'
  218. *nl
  219. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  220. *nl
  221. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  222. *nl
  223. i = 1
  224. :loopflamingos_outfits
  225. if flamingos_outfits[i] = 1:
  226. gs 'clothing_attributes', 'flamingos_outfits', i
  227. if CloInhibit <= pcs_inhib:
  228. if CloStyle ! 5:
  229. if flamingos_outfits_s[i] = 0 and flamingos_outfits_h[i] > 0 and flamingos_outfits_b[i] >= (pcs_hips - 8) and flamingos_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''flamingos_outfits'', <<i>>"><img src="images/pc/items/flamingos/outfits/<<i>>.jpg" height="250" /></a>'
  230. else
  231. if flamingos_outfits_s[i] = 0 and flamingos_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''flamingos_outfits'', <<i>>"><img src="images/pc/items/flamingos/outfits/<<i>>.jpg" height="250" /></a>'
  232. end
  233. end
  234. end
  235. i += 1
  236. if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits'
  237. i = 1
  238. :loopflamingos_dress
  239. if flamingos_dress[i] = 1:
  240. gs 'clothing_attributes', 'flamingos_dress', i
  241. if CloInhibit <= pcs_inhib:
  242. if CloStyle ! 5:
  243. if flamingos_dress_s[i] = 0 and flamingos_dress_h[i] > 0 and flamingos_dress_b[i] >= (pcs_hips - 8) and flamingos_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''flamingos_dress'', <<i>>"><img src="images/pc/items/flamingos/dress/<<i>>.jpg" height="250" /></a>'
  244. else
  245. if flamingos_dress_s[i] = 0 and flamingos_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''flamingos_dress'', <<i>>"><img src="images/pc/items/flamingos/dress/<<i>>.jpg" height="250" /></a>'
  246. end
  247. end
  248. end
  249. i += 1
  250. if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
  251. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  252. end
  253. if $ARGS[1] = 'coco':
  254. *clr & cla
  255. $ward_list_store = $ARGS[1]
  256. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  257. '<center><img src="images/locations/pavlovsk/coco/shop_name.png"></center>'
  258. *nl
  259. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  260. *nl
  261. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  262. *nl
  263. i = 1
  264. :loopcoco_outfit
  265. if coco_outfits[i] = 1:
  266. gs 'clothing_attributes', 'coco_outfits', i
  267. if CloInhibit <= pcs_inhib:
  268. if CloStyle ! 5:
  269. if coco_outfits_s[i] = 0 and coco_outfits_h[i] > 0 and coco_outfits_b[i] >= (pcs_hips - 8) and coco_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coco_outfits'', <<i>>"><img src="images/pc/items/coco/outfits/<<i>>.jpg" height="250" /></a>'
  270. else
  271. if coco_outfits_s[i] = 0 and coco_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coco_outfits'', <<i>>"><img src="images/pc/items/coco/outfits/<<i>>.jpg" height="250" /></a>'
  272. end
  273. end
  274. end
  275. i += 1
  276. if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfit'
  277. i = 1
  278. :loopcoco_dress
  279. if coco_dress[i] = 1:
  280. gs 'clothing_attributes', 'coco_dress', i
  281. if CloInhibit <= pcs_inhib:
  282. if CloStyle ! 5:
  283. if coco_dress_s[i] = 0 and coco_dress_h[i] > 0 and coco_dress_b[i] >= (pcs_hips - 8) and coco_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coco_dress'', <<i>>"><img src="images/pc/items/coco/dress/<<i>>.jpg" height="250" /></a>'
  284. else
  285. if coco_dress_s[i] = 0 and coco_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coco_dress'', <<i>>"><img src="images/pc/items/coco/dress/<<i>>.jpg" height="250" /></a>'
  286. end
  287. end
  288. end
  289. i += 1
  290. if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
  291. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  292. end
  293. if $ARGS[1] = 'fashionista':
  294. *clr & cla
  295. $ward_list_store = $ARGS[1]
  296. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  297. '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
  298. *nl
  299. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  300. *nl
  301. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  302. *nl
  303. i = 1
  304. :loopfashionista
  305. if fashionista[i] = 1:
  306. gs 'clothing_attributes', 'fashionista', i
  307. if CloInhibit <= pcs_inhib:
  308. if CloStyle ! 5:
  309. if fashionista_s[i] = 0 and fashionista_h[i] > 0 and fashionista_b[i] >= (pcs_hips - 8) and fashionista_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fashionista'', <<i>>"><img src="images/pc/items/fashionista/dress/<<i>>.jpg" height="250" /></a>'
  310. else
  311. if fashionista_s[i] = 0 and fashionista_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fashionista'', <<i>>"><img src="images/pc/items/fashionista/dress/<<i>>.jpg" height="250" /></a>'
  312. end
  313. end
  314. end
  315. i += 1
  316. if i <= ARRSIZE('fashionista'):jump 'loopfashionista'
  317. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  318. end
  319. if $ARGS[1] = 'moncheri':
  320. *clr & cla
  321. $ward_list_store = $ARGS[1]
  322. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  323. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  324. *nl
  325. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  326. *nl
  327. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  328. *nl
  329. i = 1
  330. :loopmoncheri
  331. if moncheri[i] = 1:
  332. gs 'clothing_attributes', 'moncheri', i
  333. if CloInhibit <= pcs_inhib:
  334. if moncheri_s[i] = 0 and moncheri_h[i] > 0 and moncheri_b[i] >= (pcs_hips - 8) and moncheri_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''moncheri'', <<i>>"><img src="images/pc/clothing/4formal/<<i>>.jpg" height="250" /></a>'
  335. end
  336. end
  337. i += 1
  338. if i <= ARRSIZE('moncheri'):jump 'loopmoncheri'
  339. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  340. end
  341. if $ARGS[1] = 'sexshop':
  342. *clr & cla
  343. $ward_list_store = $ARGS[1]
  344. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  345. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  346. *nl
  347. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  348. *nl
  349. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  350. *nl
  351. i = 1
  352. :loopfetish
  353. if fetish[i] = 1:
  354. gs 'clothing_attributes', 'fetish', i
  355. if CloInhibit <= pcs_inhib:
  356. if fetish_s[i] = 0 and fetish_h[i] > 0 and fetish_b[i] >= (pcs_hips - 8) and fetish_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fetish'', <<i>>"><img src="images/pc/clothing/8fetish/<<i>>.jpg" height="250" /></a>'
  357. end
  358. end
  359. i += 1
  360. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  361. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  362. end
  363. if $ARGS[1] = 'fancypancy':
  364. *clr & cla
  365. $ward_list_store = $ARGS[1]
  366. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  367. '<center><img src="images/locations/oldtown/fancypancy/shop_name.png"></center>'
  368. *nl
  369. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  370. *nl
  371. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  372. *nl
  373. i = 1
  374. :loopburlesque
  375. if fancy_burlesque[i] = 1:
  376. gs 'clothing_attributes', 'fancy_burlesque', i
  377. if CloInhibit <= pcs_inhib:
  378. if fancy_burlesque_s[i] = 0 and fancy_burlesque_h[i] > 0 and fancy_burlesque_b[i] >= (pcs_hips - 8) and fancy_burlesque_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fancy_burlesque'', <<i>>"><img src="images/pc/items/fancy/burlesque/<<i>>.jpg" height="250" /></a>'
  379. end
  380. end
  381. i += 1
  382. if i <= ARRSIZE('fancy_burlesque'):jump 'loopburlesque'
  383. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  384. end
  385. if $ARGS[1] = 'exhibitshop':
  386. *clr & cla
  387. $ward_list_store = $ARGS[1]
  388. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  389. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  390. *nl
  391. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  392. *nl
  393. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  394. *nl
  395. i = 1
  396. :loopexhibit
  397. if exhibit[i] = 1:
  398. gs 'clothing_attributes', 'exhibit', i
  399. if CloInhibit <= pcs_inhib:
  400. if exhibit_s[i] = 0 and exhibit_h[i] > 0 and exhibit_b[i] >= (pcs_hips - 8) and exhibit_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exhibit'', <<i>>"><img src="images/pc/clothing/9exhibit/<<i>>.jpg" height="250" /></a>'
  401. end
  402. end
  403. i += 1
  404. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  405. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  406. end
  407. if $ARGS[1] = 'dolls':
  408. *clr & cla
  409. $ward_list_store = $ARGS[1]
  410. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  411. '<center><img src="images/locations/city/island/dolls.png"></center>'
  412. *nl
  413. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  414. *nl
  415. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  416. *nl
  417. i = 1
  418. :loopdolls_outfits
  419. if dolls_outfits[i] = 1:
  420. gs 'clothing_attributes', 'dolls_outfits', i
  421. if CloInhibit <= pcs_inhib:
  422. if CloStyle ! 5:
  423. if dolls_outfits_s[i] = 0 and dolls_outfits_h[i] > 0 and dolls_outfits_b[i] >= (pcs_hips - 8) and dolls_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''dolls_outfits'', <<i>>"><img src="images/pc/items/dolls/outfits/<<i>>.jpg" height="250" /></a>'
  424. else
  425. if dolls_outfits_s[i] = 0 and dolls_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''dolls_outfits'', <<i>>"><img src="images/pc/items/dolls/outfits/<<i>>.jpg" height="250" /></a>'
  426. end
  427. end
  428. end
  429. i += 1
  430. if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits'
  431. i = 1
  432. :loopdolls_dress
  433. if dolls_dress[i] = 1:
  434. gs 'clothing_attributes', 'dolls_dress', i
  435. if CloInhibit <= pcs_inhib:
  436. if CloStyle ! 5:
  437. if dolls_dress_s[i] = 0 and dolls_dress_h[i] > 0 and dolls_dress_b[i] >= (pcs_hips - 8) and dolls_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''dolls_dress'', <<i>>"><img src="images/pc/items/dolls/dress/<<i>>.jpg" height="250" /></a>'
  438. else
  439. if dolls_dress_s[i] = 0 and dolls_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''dolls_dress'', <<i>>"><img src="images/pc/items/dolls/dress/<<i>>.jpg" height="250" /></a>'
  440. end
  441. end
  442. end
  443. i += 1
  444. if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
  445. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  446. end
  447. if $ARGS[1] = 'bomba':
  448. *clr & cla
  449. $ward_list_store = $ARGS[1]
  450. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  451. '<center><img src="images/locations/oldtown/bomba/shop_name.png"></center>'
  452. *nl
  453. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  454. *nl
  455. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  456. *nl
  457. i = 1
  458. :loopbomba_outfits
  459. if bomba_outfits[i] = 1:
  460. gs 'clothing_attributes', 'bomba_outfits', i
  461. if CloInhibit <= pcs_inhib:
  462. if CloStyle ! 5:
  463. if bomba_outfits_s[i] = 0 and bomba_outfits_h[i] > 0 and bomba_outfits_b[i] >= (pcs_hips - 8) and bomba_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''bomba_outfits'', <<i>>"><img src="images/pc/items/bomba/goth_outfits/<<i>>.jpg" height="250" /></a>'
  464. else
  465. if bomba_outfits_s[i] = 0 and bomba_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''bomba_outfits'', <<i>>"><img src="images/pc/items/bomba/goth_outfits/<<i>>.jpg" height="250" /></a>'
  466. end
  467. end
  468. end
  469. i += 1
  470. if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits'
  471. i = 1
  472. :loopbomba_dress
  473. if bomba_dress[i] = 1:
  474. gs 'clothing_attributes', 'bomba_dress', i
  475. if CloInhibit <= pcs_inhib:
  476. if CloStyle ! 5:
  477. if bomba_dress_s[i] = 0 and bomba_dress_h[i] > 0 and bomba_dress_b[i] >= (pcs_hips - 8) and bomba_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''bomba_dress'', <<i>>"><img src="images/pc/items/bomba/goth_dress/<<i>>.jpg" height="250" /></a>'
  478. else
  479. if bomba_dress_s[i] = 0 and bomba_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''bomba_dress'', <<i>>"><img src="images/pc/items/bomba/goth_dress/<<i>>.jpg" height="250" /></a>'
  480. end
  481. end
  482. end
  483. i += 1
  484. if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
  485. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  486. end
  487. if $ARGS[1] = 'sports':
  488. *clr & cla
  489. $ward_list_store = $ARGS[1]
  490. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  491. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  492. *nl
  493. '<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></table></center>'
  494. *nl
  495. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  496. *nl
  497. i = 1
  498. :loopexercise
  499. if exercise[i] = 1:
  500. gs 'clothing_attributes', 'exercise', i
  501. if CloInhibit <= pcs_inhib:
  502. if exercise_s[i] = 0 and exercise_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/pc/clothing/7exercise/<<i>>.jpg" height="250" /></a>'
  503. end
  504. end
  505. i += 1
  506. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  507. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  508. end
  509. if $clothingworntype ! 'nude':
  510. act 'Strip':gt 'clothing_QV', 'strip'
  511. end
  512. end
  513. if $ARGS[0] = 'gym':
  514. if $regularwornclothingtype = '':
  515. $regularwornclothingtype = $clothingworntype
  516. regularwornclothingnumber = clothingwornnumber
  517. end
  518. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  519. i = 1
  520. :loopexercise2
  521. if exercise[i] = 1:
  522. gs 'clothing_attributes', 'exercise', i
  523. if CloInhibit <= pcs_inhib:
  524. if exercise_s[i] = 0 and exercise_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/pc/clothing/7exercise/<<i>>.jpg" height="250" /></a>'
  525. end
  526. end
  527. i += 1
  528. if i <= ARRSIZE('exercise'):jump 'loopexercise2'
  529. act 'Return': gt $loc, $loc_arg
  530. if $clothingworntype ! $regularwornclothingtype: gs 'clothing_QV', 'gym2'
  531. if $clothingworntype ! 'nude':
  532. act 'Strip':gt 'clothing_QV', 'strip'
  533. end
  534. end
  535. if $ARGS[0] = 'gym2':
  536. act 'Change back into your regular clothes':
  537. $clothingworntype = $regularwornclothingtype
  538. clothingwornnumber = regularwornclothingnumber
  539. killvar '$regularwornclothingtype'
  540. killvar 'regularwornclothingnumber'
  541. gt 'clothing_QV', 'gym'
  542. end
  543. end
  544. if $ARGS[0] = 'cloak':
  545. i = 1
  546. :loopcoat
  547. if coat[i] = 1:
  548. if coatH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coat'', <<i>>"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  549. end
  550. i += 1
  551. if i <= ARRSIZE('coat'):jump 'loopcoat'
  552. end
  553. if $ARGS[0] = 'strip':
  554. if $pantyworntype ! 'none':
  555. '<center><img src="images/pc/body/nude.jpg"></center>'
  556. '<center>You strip down to your panties.</center>'
  557. else
  558. '<center><img src="images/pc/body/nude1.jpg"></center>'
  559. '<center>You strip completely naked.</center>'
  560. end
  561. gs 'clothing', 'strip'
  562. act 'Choose something to wear':
  563. if $regularwornclothingtype = '':
  564. gt 'clothing_QV', 'list'
  565. else
  566. gt 'clothing_QV', 'gym'
  567. end
  568. end
  569. act 'Leave': gt $loc, $loc_arg
  570. end
  571. if $ARGS[0] = 'change':
  572. *clr
  573. cla
  574. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  575. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  576. if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
  577. 'A hessian sack the hunters gave you.'
  578. else
  579. $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
  580. $RESULT += '<<ARGS[2]>>'
  581. '<<$RESULT>>'
  582. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear' and $ARGS[1] ! 'beach':
  583. gs 'clothing_descriptions'
  584. '<<$description>>'
  585. else
  586. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  587. end
  588. end
  589. if CloBimbo = 1 and cheatBimbo = 0:'This item is considered bimbo clothing.'
  590. if CloStyle = 4:'This outfit can be used for prostitution.'
  591. if $ARGS[1] = 'uniform':
  592. if CloStyle2 = 1:
  593. 'This outfit is considered to be a maid uniform.'
  594. elseif CloStyle2 = 3:
  595. 'This is a stripper outfit.'
  596. else
  597. 'This outfit is a server uniform, suitable for jobs that require one.'
  598. end
  599. end
  600. if CloStyle2 = 4:
  601. if CloInhibit <= 10:
  602. '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
  603. elseif CloSkirt < 5 and CloThinness < 5 and CloBra = 0:
  604. if CloQuality = 4:
  605. '<font color="blue">This uniform complies with the regulations and is of good quality. It would certainly help you with your standing with the cool kids and jocks.</font>'
  606. else
  607. '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
  608. end
  609. elseif CloSkirt = 5 and CloThinness < 5 and CloBra = 0:
  610. if CloQuality = 4:
  611. '<font color="blue">This uniform slightly breaches the school regulations on skirt length and is of good quality. Everybody apart from the nerds would approve of you wearing it.</font>'
  612. else
  613. '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
  614. end
  615. else
  616. '<font color="red">This uniform makes a mockery of the school uniform regulations. Everybody in school apart from the gopniks will think that you''re a slut.</font>'
  617. end
  618. end
  619. act 'Return':gt 'clothing_QV', 'list', '<<$ward_list_store>>'
  620. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  621. 'You are wearing this outfit.'
  622. elseif CloInhibit > pcs_inhib:
  623. 'You don''t feel confident enough to wear an outfit this revealing.'
  624. elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
  625. 'You lost these clothes somewhere, maybe you can find them again?.'
  626. else
  627. if CloInhibit > 10:
  628. if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  629. end
  630. act 'Wear this outfit':
  631. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  632. if $regularwornclothingtype = '':
  633. gt 'wardrobe', 'start'
  634. else
  635. gt 'clothing_QV', 'gym'
  636. end
  637. end
  638. end
  639. end
  640. if $ARGS[0] = 'shop_header':
  641. $Headerstring = '<TH>Sort by quality '
  642. if clothingfilter['quality'] = 0:
  643. $Headerstring += '<a href="exec:clothingfilter[''quality''] = 1 & gt $loc, $loc_arg">High - Low</a></TH>'
  644. else
  645. $Headerstring += '<a href="exec:clothingfilter[''quality''] = 0 & gt $loc, $loc_arg">Random</a></TH>'
  646. end
  647. $Headerstring += '<TH>Prostitute clothing '
  648. if clothingfilter_prost = 0:
  649. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt $loc, $loc_arg">Included</a></TH>'
  650. else
  651. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  652. end
  653. $Headerstring += '<TH>Bimbo clothing '
  654. if clothingfilter_bimbo = 0:
  655. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt $loc, $loc_arg">Included</a></TH>'
  656. else
  657. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  658. end
  659. $Headerstring += '<TH>Neither Prostitute or Bimbo clothing '
  660. if clothingfilter_norm = 0:
  661. $Headerstring += '<a href="exec:clothingfilter_norm = 1 & gt $loc, $loc_arg">Included</a></TH>'
  662. else
  663. $Headerstring += '<a href="exec:clothingfilter_norm = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  664. end
  665. $Headerstring += '<TH>Clothing you don''t find risqué '
  666. if clothingfilter_comf = 0:
  667. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt $loc, $loc_arg">Included</a></TH>'
  668. else
  669. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  670. end
  671. $Headerstring += '<TH>Risqué clothing '
  672. if clothingfilter_daring = 0:
  673. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt $loc, $loc_arg">Included</a></TH>'
  674. else
  675. $Headerstring += '<a href="exec:clothingfilter_daring = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  676. end
  677. $Headerstring += '<TH>Clothing too risqué for you '
  678. if clothingfilter_too_daring = 0:
  679. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt $loc, $loc_arg">Included</a></TH>'
  680. else
  681. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  682. end
  683. '<center><table border=1><<$Headerstring>></table></center>'
  684. end
  685. if $ARGS[0] = 'shop_filter':
  686. if (clothingfilter_comf = 0 and CloInhibit + 10 < pcs_inhib) or (clothingfilter_daring = 0 and CloInhibit + 10 >= pcs_inhib and CloInhibit <= pcs_inhib) or (clothingfilter_too_daring = 0 and CloInhibit > pcs_inhib):
  687. clothingfilter_risk = 1
  688. else
  689. clothingfilter_risk = 0
  690. end
  691. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0):
  692. clothingfilter_pandb = 1
  693. else
  694. clothingfilter_pandb = 0
  695. end
  696. if clothingfilter_norm = 1 and CloStyle ! 4 and CloBimbo ! 1:
  697. clothingfilter_norm2 = 0
  698. else
  699. clothingfilter_norm2 = 1
  700. end
  701. end
  702. --- clothing_QV ---------------------------------