clothing_QV.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507
  1. # clothing_QV
  2. if $ARGS[0] = 'list':
  3. '<h3><center><b><font color="maroon">Wardrobe - Brand Selection</font></b></center></h3>'
  4. '<center><b><font color="maroon">click on a shop name to view clothes from that shop</font></b></center>'
  5. $regularwornclothingtype = ''
  6. *nl
  7. '<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></center></table>'
  8. *nl
  9. ! '<center>These are the clothes that are currently available for you to wear.</center><br>'
  10. ! *nl
  11. if org_loc = 1:
  12. act 'Return':
  13. killvar '$ward_list_store'
  14. killvar 'org_loc'
  15. gt 'clothing', 'view_clothing_list', 'wardrobe'
  16. end
  17. else
  18. act 'Return':
  19. killvar '$ward_list_store'
  20. gt 'wardrobe', 'start'
  21. end
  22. end
  23. '<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm''"><img src="images/locations/city/citycenter/mall/GM.png"></a></center>'
  24. if ARRSIZE('average') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  25. if ARRSIZE('expensive') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionistat.png"></a></center>'
  26. if ARRSIZE('formal') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  27. 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>'
  28. if ARRSIZE('exhibit') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''exhibitshop''"><img src="images/locations/oldtown/exhibitshop/shop_name.png"></a></center>'
  29. if ARRSIZE('alternative') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''dolls''"><img src="images/locations/city/island/dolls.png"></a></center>'
  30. if ARRSIZE('exercise') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  31. if $ARGS[1] = 'gm':
  32. $ward_list_store = $ARGS[1]
  33. *clr & cla
  34. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  35. '<center><img src="images/locations/city/citycenter/mall/GM.png"></center>'
  36. *nl
  37. '<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></center></table>'
  38. *nl
  39. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  40. *nl
  41. 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>'
  42. i = 1
  43. :loopcheap
  44. if cheap[i] = 1:
  45. gs 'clothing_attributes', 'cheap', i
  46. if CloInhibit <= pcs_inhib:
  47. if CloStyle ! 5:
  48. 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>'
  49. else
  50. 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>'
  51. end
  52. end
  53. end
  54. i += 1
  55. if i <= ARRSIZE('cheap'):jump 'loopcheap'
  56. i = 1
  57. :loopoffice
  58. if office[i] = 1:
  59. gs 'clothing_attributes', 'office', i
  60. if CloInhibit <= pcs_inhib:
  61. 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>'
  62. end
  63. end
  64. i += 1
  65. if i <= ARRSIZE('office'):jump 'loopoffice'
  66. i = 1
  67. :loopschool
  68. if school[i] = 1:
  69. gs 'clothing_attributes', 'school', i
  70. if CloInhibit <= pcs_inhib:
  71. 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>'
  72. end
  73. end
  74. i += 1
  75. if i = 6: i = 7
  76. if i <= ARRSIZE('school'):jump 'loopschool'
  77. i = 1
  78. :loopuniform
  79. if uniform[i] = 1:
  80. gs 'clothing_attributes', 'uniform', i
  81. if CloInhibit <= pcs_inhib:
  82. 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>'
  83. end
  84. end
  85. i += 1
  86. if i <= ARRSIZE('uniform'):jump 'loopuniform'
  87. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  88. end
  89. if $ARGS[1] = 'kats':
  90. *clr & cla
  91. $ward_list_store = $ARGS[1]
  92. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  93. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  94. *nl
  95. '<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></center></table>'
  96. *nl
  97. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  98. *nl
  99. i = 1
  100. :loopaverage
  101. if average[i] = 1:
  102. gs 'clothing_attributes', 'average', i
  103. if CloInhibit <= pcs_inhib:
  104. if CloStyle ! 5:
  105. 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>'
  106. else
  107. 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>'
  108. end
  109. end
  110. end
  111. i += 1
  112. if i <= ARRSIZE('average'):jump 'loopaverage'
  113. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  114. end
  115. if $ARGS[1] = 'fashionista':
  116. *clr & cla
  117. $ward_list_store = $ARGS[1]
  118. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  119. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  120. *nl
  121. '<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></center></table>'
  122. *nl
  123. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  124. *nl
  125. i = 1
  126. :loopexpensive
  127. if expensive[i] = 1:
  128. gs 'clothing_attributes', 'expensive', i
  129. if CloInhibit <= pcs_inhib:
  130. if CloStyle ! 5:
  131. 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>'
  132. else
  133. 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>'
  134. end
  135. end
  136. end
  137. i += 1
  138. if i <= ARRSIZE('expensive'):jump 'loopexpensive'
  139. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  140. end
  141. if $ARGS[1] = 'moncheri':
  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/moncheri.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></center></table>'
  148. *nl
  149. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  150. *nl
  151. i = 1
  152. :loopformal
  153. if formal[i] = 1:
  154. gs 'clothing_attributes', 'formal', i
  155. if CloInhibit <= pcs_inhib:
  156. 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>'
  157. end
  158. end
  159. i += 1
  160. if i <= ARRSIZE('formal'):jump 'loopformal'
  161. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  162. end
  163. if $ARGS[1] = 'sexshop':
  164. *clr & cla
  165. $ward_list_store = $ARGS[1]
  166. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  167. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  168. *nl
  169. '<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></center></table>'
  170. *nl
  171. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  172. *nl
  173. i = 1
  174. :loopfetish
  175. if fetish[i] = 1:
  176. gs 'clothing_attributes', 'fetish', i
  177. if CloInhibit <= pcs_inhib:
  178. 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>'
  179. end
  180. end
  181. i += 1
  182. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  183. i = 1
  184. :loopburlesque
  185. if burlesque[i] = 1:
  186. gs 'clothing_attributes', 'burlesque', i
  187. if CloInhibit <= pcs_inhib:
  188. 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>'
  189. end
  190. end
  191. i += 1
  192. if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
  193. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  194. end
  195. if $ARGS[1] = 'exhibitshop':
  196. *clr & cla
  197. $ward_list_store = $ARGS[1]
  198. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  199. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  200. *nl
  201. '<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></center></table>'
  202. *nl
  203. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  204. *nl
  205. i = 1
  206. :loopexhibit
  207. if exhibit[i] = 1:
  208. gs 'clothing_attributes', 'exhibit', i
  209. if CloInhibit <= pcs_inhib:
  210. 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>'
  211. end
  212. end
  213. i += 1
  214. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  215. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  216. end
  217. if $ARGS[1] = 'dolls':
  218. *clr & cla
  219. $ward_list_store = $ARGS[1]
  220. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  221. '<center><img src="images/locations/city/island/dolls.png"></center>'
  222. *nl
  223. '<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></center></table>'
  224. *nl
  225. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  226. *nl
  227. i = 1
  228. :loopalternative
  229. if alternative[i] = 1:
  230. gs 'clothing_attributes', 'alternative', i
  231. if CloInhibit <= pcs_inhib:
  232. 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>'
  233. end
  234. end
  235. i += 1
  236. if i <= ARRSIZE('alternative'):jump 'loopalternative'
  237. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  238. end
  239. if $ARGS[1] = 'sports':
  240. *clr & cla
  241. $ward_list_store = $ARGS[1]
  242. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  243. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  244. *nl
  245. '<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></center></table>'
  246. *nl
  247. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  248. *nl
  249. i = 1
  250. :loopexercise
  251. if exercise[i] = 1:
  252. gs 'clothing_attributes', 'exercise', i
  253. if CloInhibit <= pcs_inhib:
  254. 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>'
  255. end
  256. end
  257. i += 1
  258. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  259. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  260. end
  261. if $clothingworntype ! 'nude':
  262. act 'Strip':gt 'clothing_QV', 'strip'
  263. end
  264. end
  265. if $ARGS[0] = 'gym':
  266. if $regularwornclothingtype = '':
  267. $regularwornclothingtype = $clothingworntype
  268. regularwornclothingnumber = clothingwornnumber
  269. end
  270. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  271. i = 1
  272. :loopexercise2
  273. if exercise[i] = 1:
  274. gs 'clothing_attributes', 'exercise', i
  275. if CloInhibit <= pcs_inhib:
  276. 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>'
  277. end
  278. end
  279. i += 1
  280. if i <= ARRSIZE('exercise'):jump 'loopexercise2'
  281. act 'Return': gt $loc, $metka
  282. if $clothingworntype ! $regularwornclothingtype: gs 'clothing_QV', 'gym2'
  283. if $clothingworntype ! 'nude':
  284. act 'Strip':gt 'clothing_QV', 'strip'
  285. end
  286. end
  287. if $ARGS[0] = 'gym2':
  288. act 'Change back into your regular clothes':
  289. $clothingworntype = $regularwornclothingtype
  290. clothingwornnumber = regularwornclothingnumber
  291. killvar '$regularwornclothingtype'
  292. killvar 'regularwornclothingnumber'
  293. gt 'clothing_QV', 'gym'
  294. end
  295. end
  296. if $ARGS[0] = 'cloak':
  297. i = 1
  298. :loopcoat
  299. if coat[i] = 1:
  300. 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>'
  301. end
  302. i += 1
  303. if i <= ARRSIZE('coat'):jump 'loopcoat'
  304. end
  305. if $ARGS[0] = 'strip':
  306. if $pantyworntype ! 'none':
  307. '<center><img src="images/pc/clothing/nude.jpg"></center>'
  308. '<center>You strip down to your panties.</center>'
  309. else
  310. '<center><img src="images/pc/clothing/nude1.jpg"></center>'
  311. '<center>You strip completely naked.</center>'
  312. end
  313. gs 'clothing', 'strip'
  314. act 'Choose something to wear':
  315. if $regularwornclothingtype = '':
  316. gt 'clothing_QV', 'list'
  317. else
  318. gt 'clothing_QV', 'gym'
  319. end
  320. end
  321. act 'Leave': gt $loc, $metka
  322. end
  323. if $ARGS[0] = 'change':
  324. *clr
  325. cla
  326. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  327. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  328. if $ARGS[1] = 'cheap' and ARGS[2] = 414:
  329. 'A hessian sack the hunters gave you.'
  330. else
  331. $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
  332. $RESULT += '<<ARGS[2]>>'
  333. '<<$RESULT>>'
  334. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  335. gs 'clothing_descriptions'
  336. '<<$description>>'
  337. else
  338. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  339. end
  340. end
  341. if CloBimbo = 1:'This item is considered bimbo clothing.'
  342. if CloStyle = 4:'This outfit can be used for prostitution.'
  343. if $ARGS[2] = 'uniform':
  344. if CloStyle2 = 1:
  345. 'This outfit is considered to be a maid uniform.'
  346. elseif CloStyle2 = 3:
  347. 'This is a stripper outfit.'
  348. else
  349. 'This outfit is a server uniform, suitable for jobs that require one.'
  350. end
  351. end
  352. if $ARGS[2] = 'school':
  353. if CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
  354. '<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
  355. elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
  356. '<font color="blue">This uniform slightly breaches the school regulations on skirt length.</font>'
  357. else
  358. '<font color="red">This uniform makes a mockery of the school uniform regulations.</font>'
  359. end
  360. end
  361. act 'Return':gt 'clothing_QV', 'list', '<<$ward_list_store>>'
  362. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  363. 'You are wearing this outfit.'
  364. elseif CloInhibit > pcs_inhib:
  365. 'You don''t feel confident enough to wear an outfit this revealing.'
  366. elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
  367. 'You lost these clothes somewhere, maybe you can find them again?.'
  368. else
  369. if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  370. act 'Wear this outfit':
  371. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  372. if $regularwornclothingtype = '':
  373. gt 'wardrobe', 'start'
  374. else
  375. gt 'clothing_QV', 'gym'
  376. end
  377. end
  378. end
  379. end
  380. if $ARGS[0] = 'shop_header':
  381. $Headerstring = '<TH>Prostitute clothing '
  382. if clothingfilter_prost = 0:
  383. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt $loc, $metka">Included</a></TH>'
  384. else
  385. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt $loc, $metka">Excluded</a></TH>'
  386. end
  387. $Headerstring += '<TH>Bimbo clothing '
  388. if clothingfilter_bimbo = 0:
  389. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt $loc, $metka">Included</a></TH>'
  390. else
  391. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt $loc, $metka">Excluded</a></TH>'
  392. end
  393. $Headerstring += '<TH>Neither Prostitute or Bimbo clothing '
  394. if clothingfilter_norm = 0:
  395. $Headerstring += '<a href="exec:clothingfilter_norm = 1 & gt $loc, $metka">Included</a></TH>'
  396. else
  397. $Headerstring += '<a href="exec:clothingfilter_norm = 0 & gt $loc, $metka">Excluded</a></TH>'
  398. end
  399. $Headerstring += '<TH>Clothing you don''t find risqué '
  400. if clothingfilter_comf = 0:
  401. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt $loc, $metka">Included</a></TH>'
  402. else
  403. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt $loc, $metka">Excluded</a></TH>'
  404. end
  405. $Headerstring += '<TH>Risqué clothing '
  406. if clothingfilter_daring = 0:
  407. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt $loc, $metka">Included</a></TH>'
  408. else
  409. $Headerstring += '<a href="exec:clothingfilter_daring = 0 & gt $loc, $metka">Excluded</a></TH>'
  410. end
  411. $Headerstring += '<TH>Clothing too risqué for you '
  412. if clothingfilter_too_daring = 0:
  413. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt $loc, $metka">Included</a></TH>'
  414. else
  415. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt $loc, $metka">Excluded</a></TH>'
  416. end
  417. '<center><table border=1><<$Headerstring>></center>'
  418. end
  419. if $ARGS[0] = 'shop_filter':
  420. 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):
  421. clothingfilter_risk = 1
  422. else
  423. clothingfilter_risk = 0
  424. end
  425. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0):
  426. clothingfilter_pandb = 1
  427. else
  428. clothingfilter_pandb = 0
  429. end
  430. if clothingfilter_norm = 1 and CloStyle ! 4 and CloBimbo ! 1:
  431. clothingfilter_norm2 = 0
  432. else
  433. clothingfilter_norm2 = 1
  434. end
  435. end
  436. --- clothing_QV ---------------------------------