clothing_QV.qsrc 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580
  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('school') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''school''"><img src="images/locations/city/citycenter/mall/s.uniform2.png"></a></center>'
  26. if ARRSIZE('average') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  27. if ARRSIZE('expensive') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionistat.png"></a></center>'
  28. if ARRSIZE('formal') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  29. if ARRSIZE('fetish') > 0 or ARRSIZE('burlesque') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sexshop''"><img src="images/locations/city/citycenter/sexshop/shop_name.png"></a></center>'
  30. if ARRSIZE('exhibit') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''exhibitshop''"><img src="images/locations/oldtown/exhibitshop/shop_name.png"></a></center>'
  31. if ARRSIZE('alternative') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''dolls''"><img src="images/locations/city/island/dolls.png"></a></center>'
  32. if ARRSIZE('exercise') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  33. if $ARGS[1] = 'gm':
  34. *clr & cla
  35. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  36. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  37. *nl
  38. if ARRSIZE('cheap') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_cheap''">Regular G&M clothing</a></center>'
  39. if ARRSIZE('office') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_office''">Office wear</a></center>'
  40. if ARRSIZE('uniform') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_uniform''">Work uniforms</a></center>'
  41. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  42. end
  43. if $ARGS[1] = 'gm_cheap':
  44. $ward_list_store = $ARGS[1]
  45. *clr & cla
  46. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  47. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  48. '<center>Regular G&M clothing</center>'
  49. *nl
  50. '<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>'
  51. *nl
  52. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  53. *nl
  54. i = 1
  55. :loopcheap
  56. if cheap[i] = 1:
  57. gs 'clothing_attributes', 'cheap', i
  58. if CloInhibit <= pcs_inhib:
  59. if CloStyle ! 5:
  60. if cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] >= (pcs_hips - 8) and cheapB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  61. else
  62. if cheapS[i] = 0 and cheapH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''cheap'', <<i>>"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  63. end
  64. end
  65. end
  66. i += 1
  67. if i <= ARRSIZE('cheap'):jump 'loopcheap'
  68. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  69. end
  70. if $ARGS[1] = 'gm_office':
  71. $ward_list_store = $ARGS[1]
  72. *clr & cla
  73. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  74. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  75. '<center>Office wear</center>'
  76. *nl
  77. '<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>'
  78. *nl
  79. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  80. *nl
  81. i = 1
  82. :loopoffice
  83. if office[i] = 1:
  84. gs 'clothing_attributes', 'office', i
  85. if CloInhibit <= pcs_inhib:
  86. if officeS[i] = 0 and officeH[i] > 0 and officeB[i] >= (pcs_hips - 8) and officeB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''office'', <<i>>"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  87. end
  88. end
  89. i += 1
  90. if i <= ARRSIZE('office'):jump 'loopoffice'
  91. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  92. end
  93. if $ARGS[1] = 'gm_uniform':
  94. $ward_list_store = $ARGS[1]
  95. *clr & cla
  96. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  97. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  98. '<center>Work uniforms</center>'
  99. *nl
  100. '<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>'
  101. *nl
  102. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  103. *nl
  104. i = 1
  105. :loopuniform
  106. if uniform[i] = 1:
  107. gs 'clothing_attributes', 'uniform', i
  108. if CloInhibit <= pcs_inhib:
  109. if uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] >= (pcs_hips - 8) and uniformB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''uniform'', <<i>>"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  110. end
  111. end
  112. i += 1
  113. if i <= ARRSIZE('uniform'):jump 'loopuniform'
  114. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  115. end
  116. if $ARGS[1] = 'school':
  117. $ward_list_store = $ARGS[1]
  118. *clr & cla
  119. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  120. '<center><img src="images/locations/city/citycenter/mall/s.uniform2.png"></center>'
  121. '<center>School uniforms</center>'
  122. *nl
  123. '<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>'
  124. *nl
  125. '<center>These are the school uniforms you own that are currently available for you to wear.</center><br>'
  126. *nl
  127. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', 6"><img src="images/pc/clothing/6school/6.jpg" height="250" /></a>'
  128. i = 1
  129. :loopschool
  130. if school[i] = 1:
  131. gs 'clothing_attributes', 'school', i
  132. if CloInhibit <= pcs_inhib:
  133. if schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] >= (pcs_hips - 8) and schoolB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''school'', <<i>>"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  134. end
  135. end
  136. i += 1
  137. if i = 6: i = 7
  138. if i <= ARRSIZE('school'):jump 'loopschool'
  139. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  140. end
  141. if $ARGS[1] = 'kats':
  142. *clr & cla
  143. $ward_list_store = $ARGS[1]
  144. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  145. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  146. *nl
  147. '<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>'
  148. *nl
  149. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  150. *nl
  151. i = 1
  152. :loopaverage
  153. if average[i] = 1:
  154. gs 'clothing_attributes', 'average', i
  155. if CloInhibit <= pcs_inhib:
  156. if CloStyle ! 5:
  157. if averageS[i] = 0 and averageH[i] > 0 and averageB[i] >= (pcs_hips - 8) and averageB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  158. else
  159. if averageS[i] = 0 and averageH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''average'', <<i>>"><img src="images/pc/clothing/2average/<<i>>.jpg" height="250" /></a>'
  160. end
  161. end
  162. end
  163. i += 1
  164. if i <= ARRSIZE('average'):jump 'loopaverage'
  165. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  166. end
  167. if $ARGS[1] = 'fashionista':
  168. *clr & cla
  169. $ward_list_store = $ARGS[1]
  170. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  171. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  172. *nl
  173. '<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>'
  174. *nl
  175. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  176. *nl
  177. i = 1
  178. :loopexpensive
  179. if expensive[i] = 1:
  180. gs 'clothing_attributes', 'expensive', i
  181. if CloInhibit <= pcs_inhib:
  182. if CloStyle ! 5:
  183. if expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] >= (pcs_hips - 8) and expensiveB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  184. else
  185. if expensiveS[i] = 0 and expensiveH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''expensive'', <<i>>"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  186. end
  187. end
  188. end
  189. i += 1
  190. if i <= ARRSIZE('expensive'):jump 'loopexpensive'
  191. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  192. end
  193. if $ARGS[1] = 'moncheri':
  194. *clr & cla
  195. $ward_list_store = $ARGS[1]
  196. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  197. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  198. *nl
  199. '<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>'
  200. *nl
  201. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  202. *nl
  203. i = 1
  204. :loopformal
  205. if formal[i] = 1:
  206. gs 'clothing_attributes', 'formal', i
  207. if CloInhibit <= pcs_inhib:
  208. if formalS[i] = 0 and formalH[i] > 0 and formalB[i] >= (pcs_hips - 8) and formalB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''formal'', <<i>>"><img src="images/pc/clothing/4formal/<<i>>.jpg" height="250" /></a>'
  209. end
  210. end
  211. i += 1
  212. if i <= ARRSIZE('formal'):jump 'loopformal'
  213. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  214. end
  215. if $ARGS[1] = 'sexshop':
  216. *clr & cla
  217. $ward_list_store = $ARGS[1]
  218. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  219. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  220. *nl
  221. '<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>'
  222. *nl
  223. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  224. *nl
  225. i = 1
  226. :loopfetish
  227. if fetish[i] = 1:
  228. gs 'clothing_attributes', 'fetish', i
  229. if CloInhibit <= pcs_inhib:
  230. if fetishS[i] = 0 and fetishH[i] > 0 and fetishB[i] >= (pcs_hips - 8) and fetishB[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>'
  231. end
  232. end
  233. i += 1
  234. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  235. i = 1
  236. :loopburlesque
  237. if burlesque[i] = 1:
  238. gs 'clothing_attributes', 'burlesque', i
  239. if CloInhibit <= pcs_inhib:
  240. if burlesqueS[i] = 0 and burlesqueH[i] > 0 and burlesqueB[i] >= (pcs_hips - 8) and burlesqueB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''burlesque'', <<i>>"><img src="images/pc/clothing/13burlesque/<<i>>.jpg" height="250" /></a>'
  241. end
  242. end
  243. i += 1
  244. if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
  245. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  246. end
  247. if $ARGS[1] = 'exhibitshop':
  248. *clr & cla
  249. $ward_list_store = $ARGS[1]
  250. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  251. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  252. *nl
  253. '<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>'
  254. *nl
  255. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  256. *nl
  257. i = 1
  258. :loopexhibit
  259. if exhibit[i] = 1:
  260. gs 'clothing_attributes', 'exhibit', i
  261. if CloInhibit <= pcs_inhib:
  262. if exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] >= (pcs_hips - 8) and exhibitB[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>'
  263. end
  264. end
  265. i += 1
  266. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  267. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  268. end
  269. if $ARGS[1] = 'dolls':
  270. *clr & cla
  271. $ward_list_store = $ARGS[1]
  272. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  273. '<center><img src="images/locations/city/island/dolls.png"></center>'
  274. *nl
  275. '<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>'
  276. *nl
  277. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  278. *nl
  279. i = 1
  280. :loopalternative
  281. if alternative[i] = 1:
  282. gs 'clothing_attributes', 'alternative', i
  283. if CloInhibit <= pcs_inhib:
  284. if alternativeS[i] = 0 and alternativeH[i] > 0 and alternativeB[i] >= (pcs_hips - 8) and alternativeB[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''alternative'', <<i>>"><img src="images/pc/clothing/14alternative/<<i>>.jpg" height="250" /></a>'
  285. end
  286. end
  287. i += 1
  288. if i <= ARRSIZE('alternative'):jump 'loopalternative'
  289. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  290. end
  291. if $ARGS[1] = 'sports':
  292. *clr & cla
  293. $ward_list_store = $ARGS[1]
  294. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  295. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  296. *nl
  297. '<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>'
  298. *nl
  299. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  300. *nl
  301. i = 1
  302. :loopexercise
  303. if exercise[i] = 1:
  304. gs 'clothing_attributes', 'exercise', i
  305. if CloInhibit <= pcs_inhib:
  306. if exerciseS[i] = 0 and exerciseH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/pc/clothing/7exercise/<<i>>.jpg" height="250" /></a>'
  307. end
  308. end
  309. i += 1
  310. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  311. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  312. end
  313. if $clothingworntype ! 'nude':
  314. act 'Strip':gt 'clothing_QV', 'strip'
  315. end
  316. end
  317. if $ARGS[0] = 'gym':
  318. if $regularwornclothingtype = '':
  319. $regularwornclothingtype = $clothingworntype
  320. regularwornclothingnumber = clothingwornnumber
  321. end
  322. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  323. i = 1
  324. :loopexercise2
  325. if exercise[i] = 1:
  326. gs 'clothing_attributes', 'exercise', i
  327. if CloInhibit <= pcs_inhib:
  328. if exerciseS[i] = 0 and exerciseH[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''exercise'', <<i>>"><img src="images/pc/clothing/7exercise/<<i>>.jpg" height="250" /></a>'
  329. end
  330. end
  331. i += 1
  332. if i <= ARRSIZE('exercise'):jump 'loopexercise2'
  333. act 'Return': gt $loc, $metka
  334. if $clothingworntype ! $regularwornclothingtype: gs 'clothing_QV', 'gym2'
  335. if $clothingworntype ! 'nude':
  336. act 'Strip':gt 'clothing_QV', 'strip'
  337. end
  338. end
  339. if $ARGS[0] = 'gym2':
  340. act 'Change back into your regular clothes':
  341. $clothingworntype = $regularwornclothingtype
  342. clothingwornnumber = regularwornclothingnumber
  343. killvar '$regularwornclothingtype'
  344. killvar 'regularwornclothingnumber'
  345. gt 'clothing_QV', 'gym'
  346. end
  347. end
  348. if $ARGS[0] = 'cloak':
  349. i = 1
  350. :loopcoat
  351. if coat[i] = 1:
  352. 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>'
  353. end
  354. i += 1
  355. if i <= ARRSIZE('coat'):jump 'loopcoat'
  356. end
  357. if $ARGS[0] = 'strip':
  358. if $pantyworntype ! 'none':
  359. '<center><img src="images/pc/clothing/nude.jpg"></center>'
  360. '<center>You strip down to your panties.</center>'
  361. else
  362. '<center><img src="images/pc/clothing/nude1.jpg"></center>'
  363. '<center>You strip completely naked.</center>'
  364. end
  365. gs 'clothing', 'strip'
  366. act 'Choose something to wear':
  367. if $regularwornclothingtype = '':
  368. gt 'clothing_QV', 'list'
  369. else
  370. gt 'clothing_QV', 'gym'
  371. end
  372. end
  373. act 'Leave': gt $loc, $metka
  374. end
  375. if $ARGS[0] = 'change':
  376. *clr
  377. cla
  378. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  379. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  380. if $ARGS[1] = 'cheap' and ARGS[2] = 414:
  381. 'A hessian sack the hunters gave you.'
  382. else
  383. $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
  384. $RESULT += '<<ARGS[2]>>'
  385. '<<$RESULT>>'
  386. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  387. gs 'clothing_descriptions'
  388. '<<$description>>'
  389. else
  390. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  391. end
  392. end
  393. if CloBimbo = 1 and cheatBimbo = 0:'This item is considered bimbo clothing.'
  394. if CloStyle = 4:'This outfit can be used for prostitution.'
  395. if $ARGS[1] = 'uniform':
  396. if CloStyle2 = 1:
  397. 'This outfit is considered to be a maid uniform.'
  398. elseif CloStyle2 = 3:
  399. 'This is a stripper outfit.'
  400. else
  401. 'This outfit is a server uniform, suitable for jobs that require one.'
  402. end
  403. end
  404. if CloStyle2 = 4:
  405. if CloInhibit <= 10:
  406. '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
  407. elseif CloSkirt < 5 and CloThinness < 5 and CloBra = 0:
  408. if CloQuality = 4:
  409. '<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>'
  410. else
  411. '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
  412. end
  413. elseif CloSkirt = 5 and CloThinness < 5 and CloBra = 0:
  414. if CloQuality = 4:
  415. '<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>'
  416. else
  417. '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
  418. end
  419. else
  420. '<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>'
  421. end
  422. end
  423. act 'Return':gt 'clothing_QV', 'list', '<<$ward_list_store>>'
  424. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  425. 'You are wearing this outfit.'
  426. elseif CloInhibit > pcs_inhib:
  427. 'You don''t feel confident enough to wear an outfit this revealing.'
  428. elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
  429. 'You lost these clothes somewhere, maybe you can find them again?.'
  430. else
  431. if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  432. act 'Wear this outfit':
  433. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  434. if $regularwornclothingtype = '':
  435. gt 'wardrobe', 'start'
  436. else
  437. gt 'clothing_QV', 'gym'
  438. end
  439. end
  440. end
  441. end
  442. if $ARGS[0] = 'shop_header':
  443. $Headerstring = '<TH>Prostitute clothing '
  444. if clothingfilter_prost = 0:
  445. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt $loc, $metka">Included</a></TH>'
  446. else
  447. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt $loc, $metka">Excluded</a></TH>'
  448. end
  449. $Headerstring += '<TH>Bimbo clothing '
  450. if clothingfilter_bimbo = 0:
  451. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt $loc, $metka">Included</a></TH>'
  452. else
  453. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt $loc, $metka">Excluded</a></TH>'
  454. end
  455. $Headerstring += '<TH>Neither Prostitute or Bimbo clothing '
  456. if clothingfilter_norm = 0:
  457. $Headerstring += '<a href="exec:clothingfilter_norm = 1 & gt $loc, $metka">Included</a></TH>'
  458. else
  459. $Headerstring += '<a href="exec:clothingfilter_norm = 0 & gt $loc, $metka">Excluded</a></TH>'
  460. end
  461. $Headerstring += '<TH>Clothing you don''t find risqué '
  462. if clothingfilter_comf = 0:
  463. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt $loc, $metka">Included</a></TH>'
  464. else
  465. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt $loc, $metka">Excluded</a></TH>'
  466. end
  467. $Headerstring += '<TH>Risqué clothing '
  468. if clothingfilter_daring = 0:
  469. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt $loc, $metka">Included</a></TH>'
  470. else
  471. $Headerstring += '<a href="exec:clothingfilter_daring = 0 & gt $loc, $metka">Excluded</a></TH>'
  472. end
  473. $Headerstring += '<TH>Clothing too risqué for you '
  474. if clothingfilter_too_daring = 0:
  475. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt $loc, $metka">Included</a></TH>'
  476. else
  477. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt $loc, $metka">Excluded</a></TH>'
  478. end
  479. '<center><table border=1><<$Headerstring>></table></center>'
  480. end
  481. if $ARGS[0] = 'shop_filter':
  482. 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):
  483. clothingfilter_risk = 1
  484. else
  485. clothingfilter_risk = 0
  486. end
  487. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0):
  488. clothingfilter_pandb = 1
  489. else
  490. clothingfilter_pandb = 0
  491. end
  492. if clothingfilter_norm = 1 and CloStyle ! 4 and CloBimbo ! 1:
  493. clothingfilter_norm2 = 0
  494. else
  495. clothingfilter_norm2 = 1
  496. end
  497. end
  498. --- clothing_QV ---------------------------------