clothing_QV.qsrc 46 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955
  1. # clothing_QV
  2. !!2021/04/15
  3. menu_off = 1
  4. if $ARGS[0] = 'list':
  5. '<h3><center><b><font color="maroon">Wardrobe - Brand Selection</font></b></center></h3>'
  6. '<center><b><font color="maroon">click on a shop name to view clothes from that shop</font></b></center>'
  7. $regularwornclothingtype = ''
  8. *nl
  9. '<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>'
  10. *nl
  11. ! '<center>These are the clothes that are currently available for you to wear.</center><br>'
  12. ! *nl
  13. if org_loc = 1:
  14. act 'Return':
  15. killvar '$ward_list_store'
  16. killvar 'org_loc'
  17. gt 'clothing', 'view_clothing_list', 'wardrobe'
  18. end
  19. else
  20. act 'Return':
  21. killvar '$ward_list_store'
  22. gt 'wardrobe', 'start'
  23. end
  24. end
  25. if ARRSIZE('gm_outfits') > 0 or ARRSIZE('gm_dress'):'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm''"><img src="images/locations/city/citycenter/mall/gm.png"></a></center>'
  26. if ARRSIZE('gm_school') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_school''"><img src="images/pc/items/gm/school.png"></a></center>'
  27. if ARRSIZE('gm_office'):'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_office''"><img src="images/pc/items/gm/officewear.png"></a></center>'
  28. if ARRSIZE('gm_maid'):'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_maid''"><img src="images/pc/items/gm/maid.png"></a></center>'
  29. if ARRSIZE('gm_server'):'<center><a href="exec:gt ''clothing_QV'', ''list'', ''gm_server''"><img src="images/pc/items/gm/server.png"></a></center>'
  30. 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>'
  31. 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>'
  32. 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>'
  33. if ARRSIZE('fashionista') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionista.png"></a></center>'
  34. if ARRSIZE('moncheri_gown') > 0 or ARRSIZE('moncheri_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  35. if ARRSIZE('scandalicious_outfits') > 0 or ARRSIZE('scandalicious_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''scandalicious''"><img src="images/locations/city/citycenter/mall/scandalicious.png"></a></center>'
  36. if ARRSIZE('fancy_burlesque') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''fancypancy''"><img src="images/locations/pushkin/fancypancy/shop_name.png"></a></center>'
  37. if ARRSIZE('eroto_dress') > 0 or ARRSIZE('eroto_outfits') > 0 or ARRSIZE('eroto_strip') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sexshop''"><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></a></center>'
  38. if ARRSIZE('salacious_outfits') > 0 or ARRSIZE('salacious_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''exhibitshop''"><img src="images/locations/pushkin/exhibitshop/shop_name.png"></a></center>'
  39. 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/shop_name.png"></a></center>'
  40. if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''bomba''"><img src="images/locations/pushkin/bomba/shop_name.png"></a></center>'
  41. if ARRSIZE('danilovich') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  42. if ARRSIZE('loopmaterinstvo_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''materinstvo''"><img src="images/locations/city/citycenter/mall/mommy.png"></a></center>'
  43. if ARRSIZE('loopmarket_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''list'', ''market''">Clothing from the market</a></center>'
  44. if $ARGS[1] = 'gm':
  45. $ward_list_store = $ARGS[1]
  46. *clr & cla
  47. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  48. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  49. '<center>Regular G&M clothing</center>'
  50. *nl
  51. '<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>'
  52. *nl
  53. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  54. *nl
  55. i = 1
  56. :loopgm_outfits
  57. if gm_outfits[i] = 1:
  58. gs 'clothing_attributes', 'gm_outfits', i
  59. if CloInhibit <= pcs_inhib:
  60. if CloStyle ! 5:
  61. 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>'
  62. else
  63. 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>'
  64. end
  65. end
  66. end
  67. i += 1
  68. if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits'
  69. *nl
  70. i = 1
  71. :loopgm_dress
  72. if gm_dress[i] = 1:
  73. gs 'clothing_attributes', 'gm_dress', i
  74. if CloInhibit <= pcs_inhib:
  75. if CloStyle ! 5:
  76. 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>'
  77. else
  78. 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>'
  79. end
  80. end
  81. end
  82. i += 1
  83. if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress'
  84. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  85. end
  86. if $ARGS[1] = 'gm_office':
  87. $ward_list_store = $ARGS[1]
  88. *clr & cla
  89. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  90. '<center><img src="images/pc/items/gm/officewear.png"></center>'
  91. '<center>Office wear from G&M</center>'
  92. *nl
  93. '<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>'
  94. *nl
  95. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  96. *nl
  97. *nl
  98. i = 1
  99. :loopoffice
  100. if gm_office[i] = 1:
  101. gs 'clothing_attributes', 'gm_office', i
  102. if CloInhibit <= pcs_inhib:
  103. 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/items/gm/office/<<i>>.jpg" height="250" /></a>'
  104. end
  105. end
  106. i += 1
  107. if i <= ARRSIZE('gm_office'):jump 'loopoffice'
  108. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  109. end
  110. if $ARGS[1] = 'gm_maid':
  111. $ward_list_store = $ARGS[1]
  112. *clr & cla
  113. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  114. '<center><img src="images/pc/items/gm/maid.png"></center>'
  115. '<center>Maid outfits from G&M</center>'
  116. *nl
  117. '<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>'
  118. *nl
  119. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  120. *nl
  121. *nl
  122. i = 1
  123. :loopgm_maid
  124. if gm_maid[i] = 1:
  125. gs 'clothing_attributes', 'gm_maid', i
  126. if CloInhibit <= pcs_inhib:
  127. if gm_maid_s[i] = 0 and gm_maid_h[i] > 0 and gm_maid_b[i] >= (pcs_hips - 8) and gm_maid_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_maid'', <<i>>"><img src="images/pc/items/gm/maid/<<i>>.jpg" height="250" /></a>'
  128. end
  129. end
  130. i += 1
  131. if i <= ARRSIZE('gm_maid'):jump 'loopgm_maid'
  132. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  133. end
  134. if $ARGS[1] = 'gm_server':
  135. $ward_list_store = $ARGS[1]
  136. *clr & cla
  137. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  138. '<center><img src="images/pc/items/gm/server.png"></center>'
  139. '<center>Server uniforms from G&M</center>'
  140. *nl
  141. '<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>'
  142. *nl
  143. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  144. *nl
  145. *nl
  146. i = 1
  147. :loopgm_server
  148. if gm_server[i] = 1:
  149. gs 'clothing_attributes', 'gm_server', i
  150. if CloInhibit <= pcs_inhib:
  151. if gm_server_s[i] = 0 and gm_server_h[i] > 0 and gm_server_b[i] >= (pcs_hips - 8) and gm_server_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''gm_server'', <<i>>"><img src="images/pc/items/gm/server/<<i>>.jpg" height="250" /></a>'
  152. end
  153. end
  154. i += 1
  155. if i <= ARRSIZE('gm_server'):jump 'loopgm_server'
  156. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  157. end
  158. if $ARGS[1] = 'gm_school':
  159. $ward_list_store = $ARGS[1]
  160. *clr & cla
  161. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  162. '<center><img src="images/pc/items/gm/school.png"></center>'
  163. '<center>School uniforms</center>'
  164. *nl
  165. '<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>'
  166. *nl
  167. '<center>These are the school uniforms you own that are currently available for you to wear.</center><br>'
  168. *nl
  169. 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/items/gm/school/6.jpg" height="250" /></a>'
  170. i = 1
  171. :loopschool
  172. if gm_school[i] = 1:
  173. gs 'clothing_attributes', 'gm_school', i
  174. if CloInhibit <= pcs_inhib:
  175. 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/items/gm/school/<<i>>.jpg" height="250" /></a>'
  176. end
  177. end
  178. i += 1
  179. if i = 6: i = 7
  180. if i <= ARRSIZE('gm_school'):jump 'loopschool'
  181. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  182. end
  183. if $ARGS[1] = 'kats':
  184. *clr & cla
  185. $ward_list_store = $ARGS[1]
  186. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  187. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  188. *nl
  189. '<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>'
  190. *nl
  191. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  192. *nl
  193. i = 1
  194. :loopcats_outfits
  195. if cats_outfits[i] = 1:
  196. gs 'clothing_attributes', 'cats_outfits', i
  197. if CloInhibit <= pcs_inhib:
  198. if CloStyle ! 5:
  199. 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>'
  200. else
  201. 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>'
  202. end
  203. end
  204. end
  205. i += 1
  206. if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits'
  207. i = 1
  208. :loopcats_dress
  209. if cats_dress[i] = 1:
  210. gs 'clothing_attributes', 'cats_dress', i
  211. if CloInhibit <= pcs_inhib:
  212. if CloStyle ! 5:
  213. 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>'
  214. else
  215. 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>'
  216. end
  217. end
  218. end
  219. i += 1
  220. if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
  221. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  222. end
  223. if $ARGS[1] = 'flamingos':
  224. *clr & cla
  225. $ward_list_store = $ARGS[1]
  226. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  227. '<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'
  228. *nl
  229. '<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>'
  230. *nl
  231. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  232. *nl
  233. i = 1
  234. :loopflamingos_outfits
  235. if flamingos_outfits[i] = 1:
  236. gs 'clothing_attributes', 'flamingos_outfits', i
  237. if CloInhibit <= pcs_inhib:
  238. if CloStyle ! 5:
  239. 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>'
  240. else
  241. 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>'
  242. end
  243. end
  244. end
  245. i += 1
  246. if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits'
  247. i = 1
  248. :loopflamingos_dress
  249. if flamingos_dress[i] = 1:
  250. gs 'clothing_attributes', 'flamingos_dress', i
  251. if CloInhibit <= pcs_inhib:
  252. if CloStyle ! 5:
  253. 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>'
  254. else
  255. 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>'
  256. end
  257. end
  258. end
  259. i += 1
  260. if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
  261. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  262. end
  263. if $ARGS[1] = 'coco':
  264. *clr & cla
  265. $ward_list_store = $ARGS[1]
  266. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  267. '<center><img src="images/locations/pavlovsk/coco/shop_name.png"></center>'
  268. *nl
  269. '<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>'
  270. *nl
  271. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  272. *nl
  273. i = 1
  274. :loopcoco_outfit
  275. if coco_outfits[i] = 1:
  276. gs 'clothing_attributes', 'coco_outfits', i
  277. if CloInhibit <= pcs_inhib:
  278. if CloStyle ! 5:
  279. 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>'
  280. else
  281. 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>'
  282. end
  283. end
  284. end
  285. i += 1
  286. if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfit'
  287. i = 1
  288. :loopcoco_dress
  289. if coco_dress[i] = 1:
  290. gs 'clothing_attributes', 'coco_dress', i
  291. if CloInhibit <= pcs_inhib:
  292. if CloStyle ! 5:
  293. 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>'
  294. else
  295. 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>'
  296. end
  297. end
  298. end
  299. i += 1
  300. if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
  301. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  302. end
  303. if $ARGS[1] = 'fashionista':
  304. *clr & cla
  305. $ward_list_store = $ARGS[1]
  306. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  307. '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
  308. *nl
  309. '<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>'
  310. *nl
  311. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  312. *nl
  313. i = 1
  314. :loopfashionista
  315. if fashionista[i] = 1:
  316. gs 'clothing_attributes', 'fashionista', i
  317. if CloInhibit <= pcs_inhib:
  318. if CloStyle ! 5:
  319. 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>'
  320. else
  321. 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>'
  322. end
  323. end
  324. end
  325. i += 1
  326. if i <= ARRSIZE('fashionista'):jump 'loopfashionista'
  327. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  328. end
  329. if $ARGS[1] = 'moncheri':
  330. *clr & cla
  331. $ward_list_store = $ARGS[1]
  332. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  333. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  334. *nl
  335. '<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>'
  336. *nl
  337. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  338. *nl
  339. i = 1
  340. :loopmoncheri_gown
  341. if moncheri_gown[i] = 1:
  342. gs 'clothing_attributes', 'moncheri_gown', i
  343. if CloInhibit <= pcs_inhib:
  344. if moncheri_gown_s[i] = 0 and moncheri_gown_h[i] > 0 and moncheri_gown_b[i] >= (pcs_hips - 8) and moncheri_gown_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''moncheri_gown'', <<i>>"><img src="images/pc/items/moncheri/gown/<<i>>.jpg" height="250" /></a>'
  345. end
  346. end
  347. i += 1
  348. if i <= ARRSIZE('moncheri_gown'):jump 'loopmoncheri_gown'
  349. i = 1
  350. :loopmoncheri_dress
  351. if moncheri_dress[i] = 1:
  352. gs 'clothing_attributes', 'moncheri_dress', i
  353. if CloInhibit <= pcs_inhib:
  354. if moncheri_dress_s[i] = 0 and moncheri_dress_h[i] > 0 and moncheri_dress_b[i] >= (pcs_hips - 8) and moncheri_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''moncheri_dress'', <<i>>"><img src="images/pc/items/moncheri/dress/<<i>>.jpg" height="250" /></a>'
  355. end
  356. end
  357. i += 1
  358. if i <= ARRSIZE('moncheri_dress'):jump 'loopmoncheri_dress'
  359. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  360. end
  361. if $ARGS[1] = 'scandalicious':
  362. *clr & cla
  363. $ward_list_store = $ARGS[1]
  364. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  365. '<center><img src="images/locations/city/citycenter/mall/scandalicious.png"></center>'
  366. *nl
  367. '<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>'
  368. *nl
  369. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  370. *nl
  371. i = 1
  372. :loopscandalicious_outfits
  373. if scandalicious_outfits[i] = 1:
  374. gs 'clothing_attributes', 'scandalicious_outfits', i
  375. if CloInhibit <= pcs_inhib:
  376. if CloStyle ! 5:
  377. if scandalicious_outfits_s[i] = 0 and scandalicious_outfits_h[i] > 0 and scandalicious_outfits_b[i] >= (pcs_hips - 8) and scandalicious_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''scandalicious_outfits'', <<i>>"><img src="images/pc/items/scandalicious/outfits/<<i>>.jpg" height="250" /></a>'
  378. else
  379. if scandalicious_outfits_s[i] = 0 and scandalicious_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''scandalicious_outfits'', <<i>>"><img src="images/pc/items/scandalicious/outfits/<<i>>.jpg" height="250" /></a>'
  380. end
  381. end
  382. end
  383. i += 1
  384. if i <= ARRSIZE('scandalicious_outfits'):jump 'loopscandalicious_outfits'
  385. i = 1
  386. :loopscandalicious_dress
  387. if scandalicious_dress[i] = 1:
  388. gs 'clothing_attributes', 'scandalicious_dress', i
  389. if CloInhibit <= pcs_inhib:
  390. if CloStyle ! 5:
  391. if scandalicious_dress_s[i] = 0 and scandalicious_dress_h[i] > 0 and scandalicious_dress_b[i] >= (pcs_hips - 8) and scandalicious_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''scandalicious_dress'', <<i>>"><img src="images/pc/items/scandalicious/dress/<<i>>.jpg" height="250" /></a>'
  392. else
  393. if scandalicious_dress_s[i] = 0 and scandalicious_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''scandalicious_dress'', <<i>>"><img src="images/pc/items/scandalicious/dress/<<i>>.jpg" height="250" /></a>'
  394. end
  395. end
  396. end
  397. i += 1
  398. if i <= ARRSIZE('scandalicious_dress'):jump 'loopscandalicious_dress'
  399. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  400. end
  401. if $ARGS[1] = 'fancypancy':
  402. *clr & cla
  403. $ward_list_store = $ARGS[1]
  404. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  405. '<center><img src="images/locations/pushkin/fancypancy/shop_name.png"></center>'
  406. *nl
  407. '<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>'
  408. *nl
  409. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  410. *nl
  411. i = 1
  412. :loopburlesque
  413. if fancy_burlesque[i] = 1:
  414. gs 'clothing_attributes', 'fancy_burlesque', i
  415. if CloInhibit <= pcs_inhib:
  416. 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>'
  417. end
  418. end
  419. i += 1
  420. if i <= ARRSIZE('fancy_burlesque'):jump 'loopburlesque'
  421. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  422. end
  423. if $ARGS[1] = 'sexshop':
  424. *clr & cla
  425. $ward_list_store = $ARGS[1]
  426. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  427. '<center><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></center>'
  428. *nl
  429. '<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>'
  430. *nl
  431. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  432. *nl
  433. i = 1
  434. :looperoto_dress
  435. if eroto_dress[i] = 1:
  436. gs 'clothing_attributes', 'eroto_dress', i
  437. if CloInhibit <= pcs_inhib:
  438. if eroto_dress_s[i] = 0 and eroto_dress_h[i] > 0 and eroto_dress_b[i] >= (pcs_hips - 8) and eroto_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''eroto_dress'', <<i>>"><img src="images/pc/items/eroto/dress/<<i>>.jpg" height="250" /></a>'
  439. end
  440. end
  441. i += 1
  442. if i <= ARRSIZE('eroto_dress'):jump 'looperoto_dress'
  443. i = 1
  444. :looperoto_outfits
  445. if eroto_outfits[i] = 1:
  446. gs 'clothing_attributes', 'eroto_outfits', i
  447. if CloInhibit <= pcs_inhib:
  448. if eroto_outfits_s[i] = 0 and eroto_outfits_h[i] > 0 and eroto_outfits_b[i] >= (pcs_hips - 8) and eroto_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''eroto_outfits'', <<i>>"><img src="images/pc/items/eroto/outfits/<<i>>.jpg" height="250" /></a>'
  449. end
  450. end
  451. i += 1
  452. if i <= ARRSIZE('eroto_outfits'):jump 'looperoto_outfits'
  453. i = 1
  454. :looperoto_strip
  455. if eroto_strip[i] = 1:
  456. gs 'clothing_attributes', 'eroto_strip', i
  457. if CloInhibit <= pcs_inhib:
  458. if eroto_strip_s[i] = 0 and eroto_strip_h[i] > 0 and eroto_strip_b[i] >= (pcs_hips - 8) and eroto_strip_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''eroto_strip'', <<i>>"><img src="images/pc/items/eroto/strip/<<i>>.jpg" height="250" /></a>'
  459. end
  460. end
  461. i += 1
  462. if i <= ARRSIZE('eroto_strip'):jump 'looperoto_strip'
  463. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  464. end
  465. if $ARGS[1] = 'exhibitshop':
  466. *clr & cla
  467. $ward_list_store = $ARGS[1]
  468. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  469. '<center><img src="images/locations/pushkin/exhibitshop/shop_name.png"></center>'
  470. *nl
  471. '<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>'
  472. *nl
  473. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  474. *nl
  475. i = 1
  476. :loopsalacious_dress
  477. if salacious_dress[i] = 1:
  478. gs 'clothing_attributes', 'salacious_dress', i
  479. if CloInhibit <= pcs_inhib:
  480. if salacious_dress_s[i] = 0 and salacious_dress_h[i] > 0 and salacious_dress_b[i] >= (pcs_hips - 8) and salacious_dress_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''salacious_dress'', <<i>>"><img src="images/pc/items/salacious/dress/<<i>>.jpg" height="250" /></a>'
  481. end
  482. end
  483. i += 1
  484. if i <= ARRSIZE('salacious_dress'):jump 'loopsalacious_dress'
  485. i = 1
  486. :loopsalacious_outfits
  487. if salacious_outfits[i] = 1:
  488. gs 'clothing_attributes', 'salacious_outfits', i
  489. if CloInhibit <= pcs_inhib:
  490. if salacious_outfits_s[i] = 0 and salacious_outfits_h[i] > 0 and salacious_outfits_b[i] >= (pcs_hips - 8) and salacious_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''salacious_outfits'', <<i>>"><img src="images/pc/items/salacious/outfits/<<i>>.jpg" height="250" /></a>'
  491. end
  492. end
  493. i += 1
  494. if i <= ARRSIZE('salacious_outfits'):jump 'loopsalacious_outfits'
  495. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  496. end
  497. if $ARGS[1] = 'dolls':
  498. *clr & cla
  499. $ward_list_store = $ARGS[1]
  500. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  501. '<center><img src="images/locations/city/island/dolls/shop_name.png"></center>'
  502. *nl
  503. '<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>'
  504. *nl
  505. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  506. *nl
  507. i = 1
  508. :loopdolls_outfits
  509. if dolls_outfits[i] = 1:
  510. gs 'clothing_attributes', 'dolls_outfits', i
  511. if CloInhibit <= pcs_inhib:
  512. if CloStyle ! 5:
  513. 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>'
  514. else
  515. 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>'
  516. end
  517. end
  518. end
  519. i += 1
  520. if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits'
  521. i = 1
  522. :loopdolls_dress
  523. if dolls_dress[i] = 1:
  524. gs 'clothing_attributes', 'dolls_dress', i
  525. if CloInhibit <= pcs_inhib:
  526. if CloStyle ! 5:
  527. 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>'
  528. else
  529. 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>'
  530. end
  531. end
  532. end
  533. i += 1
  534. if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
  535. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  536. end
  537. if $ARGS[1] = 'bomba':
  538. *clr & cla
  539. $ward_list_store = $ARGS[1]
  540. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  541. '<center><img src="images/locations/pushkin/bomba/shop_name.png"></center>'
  542. *nl
  543. '<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>'
  544. *nl
  545. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  546. *nl
  547. i = 1
  548. :loopbomba_outfits
  549. if bomba_outfits[i] = 1:
  550. gs 'clothing_attributes', 'bomba_outfits', i
  551. if CloInhibit <= pcs_inhib:
  552. if CloStyle ! 5:
  553. 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>'
  554. else
  555. 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>'
  556. end
  557. end
  558. end
  559. i += 1
  560. if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits'
  561. i = 1
  562. :loopbomba_dress
  563. if bomba_dress[i] = 1:
  564. gs 'clothing_attributes', 'bomba_dress', i
  565. if CloInhibit <= pcs_inhib:
  566. if CloStyle ! 5:
  567. 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>'
  568. else
  569. 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>'
  570. end
  571. end
  572. end
  573. i += 1
  574. if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
  575. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  576. end
  577. if $ARGS[1] = 'sports':
  578. *clr & cla
  579. $ward_list_store = $ARGS[1]
  580. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  581. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  582. *nl
  583. '<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>'
  584. *nl
  585. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  586. *nl
  587. i = 1
  588. :loopdanilovich
  589. if danilovich[i] = 1:
  590. gs 'clothing_attributes', 'danilovich_outfits', i
  591. if CloInhibit <= pcs_inhib:
  592. if danilovich_s[i] = 0 and danilovich_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''danilovich'', <<i>>"><img src="images/pc/items/danilovich/outfits/<<i>>.jpg" height="250" /></a>'
  593. end
  594. end
  595. i += 1
  596. if i <= ARRSIZE('danilovich'):jump 'loopdanilovich'
  597. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  598. end
  599. if $ARGS[1] = 'market':
  600. *clr & cla
  601. $ward_list_store = $ARGS[1]
  602. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  603. '<center>Clothing from the market</center>'
  604. *nl
  605. '<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>'
  606. *nl
  607. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  608. *nl
  609. i = 1
  610. :loopmarket_outfits
  611. if market_outfits[i] = 1:
  612. gs 'clothing_attributes', 'market_outfits', i
  613. if CloInhibit <= pcs_inhib:
  614. if market_outfits_s[i] = 0 and market_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''market_outfits'', <<i>>"><img src="images/pc/items/market/clothing/<<i>>.jpg" height="250" /></a>'
  615. end
  616. end
  617. i += 1
  618. if i <= ARRSIZE('market_outfits'):jump 'loopmarket_outfits'
  619. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  620. end
  621. if $ARGS[1] = 'materinstvo':
  622. *clr & cla
  623. $ward_list_store = $ARGS[1]
  624. '<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
  625. '<center>Clothing from Materinstvo</center>'
  626. *nl
  627. '<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>'
  628. *nl
  629. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  630. *nl
  631. i = 1
  632. :loopmaterinstvo_dress
  633. if materinstvo_dress[i] = 1:
  634. gs 'clothing_attributes', 'materinstvo_dress', i
  635. if CloInhibit <= pcs_inhib:
  636. if materinstvo_dress_s[i] = 0 and materinstvo_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''materinstvo_dress'', <<i>>"><img src="images/pc/items/materinstvo/<<i>>.jpg" height="250" /></a>'
  637. end
  638. end
  639. i += 1
  640. if i <= ARRSIZE('materinstvo_dress'):jump 'loopmaterinstvo_dress'
  641. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  642. end
  643. if $clothingworntype ! 'nude':
  644. act 'Strip':gt 'clothing_QV', 'strip'
  645. end
  646. end
  647. if $ARGS[0] = 'gym':
  648. if $regularwornclothingtype = '':
  649. $regularwornclothingtype = $clothingworntype
  650. regularwornclothingnumber = clothingwornnumber
  651. end
  652. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  653. i = 1
  654. :loopdanilovich2
  655. if danilovich[i] = 1:
  656. gs 'clothing_attributes', 'danilovich_outfits', i
  657. if CloInhibit <= pcs_inhib:
  658. if danilovich_s[i] = 0 and danilovich_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''danilovich'', <<i>>"><img src="images/pc/clothing/7danilovich/<<i>>.jpg" height="250" /></a>'
  659. end
  660. end
  661. i += 1
  662. if i <= ARRSIZE('danilovich'):jump 'loopdanilovich2'
  663. act 'Return': gt $loc, $loc_arg
  664. if $clothingworntype ! $regularwornclothingtype: gs 'clothing_QV', 'gym2'
  665. if $clothingworntype ! 'nude':
  666. act 'Strip':gt 'clothing_QV', 'strip'
  667. end
  668. end
  669. if $ARGS[0] = 'gym2':
  670. act 'Change back into your regular clothes':
  671. $clothingworntype = $regularwornclothingtype
  672. clothingwornnumber = regularwornclothingnumber
  673. killvar '$regularwornclothingtype'
  674. killvar 'regularwornclothingnumber'
  675. gt 'clothing_QV', 'gym'
  676. end
  677. end
  678. if $ARGS[0] = 'cloak':
  679. i = 1
  680. :loopcoat
  681. if coat[i] = 1:
  682. if coat_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''coat'', <<i>>"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  683. end
  684. i += 1
  685. if i <= ARRSIZE('coat'):jump 'loopcoat'
  686. end
  687. if $ARGS[0] = 'strip':
  688. if $pantyworntype ! 'none':
  689. '<center><img src="images/pc/body/nude.jpg"></center>'
  690. '<center>You strip down to your panties.</center>'
  691. else
  692. '<center><img src="images/pc/body/nude1.jpg"></center>'
  693. '<center>You strip completely naked.</center>'
  694. end
  695. gs 'clothing', 'strip'
  696. act 'Choose something to wear':
  697. if $regularwornclothingtype = '':
  698. gt 'clothing_QV', 'list'
  699. else
  700. gt 'clothing_QV', 'gym'
  701. end
  702. end
  703. act 'Leave': gt $loc, $loc_arg
  704. end
  705. if $ARGS[0] = 'change':
  706. *clr
  707. cla
  708. $swimwear_description = ''
  709. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  710. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  711. if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
  712. 'A hessian sack the hunters gave you.'
  713. else
  714. $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
  715. $RESULT += '<<ARGS[2]>>'
  716. '<<$RESULT>>'
  717. if $swimwear_description = '':
  718. gs 'clothing_descriptions'
  719. '<<$description>>'
  720. else
  721. $swimwear_description
  722. end
  723. end
  724. if CloBimbo = 1 and cheatBimbo = 0:'This item is considered bimbo clothing.'
  725. if CloStyle = 4:'This outfit can be used for prostitution.'
  726. !!CloStyle2: 1 Maid, 2 Server, 3 Stripper, 4 School
  727. if CloStyle2 = 1: 'This is a maid outfit.'
  728. if CloStyle2 = 2: 'This outfit is a server uniform.'
  729. if CloStyle2 = 3: 'This outfit is a stripper uniform, suitable for jobs that require one.'
  730. if CloStyle2 = 4:
  731. if CloInhibit <= 10:
  732. '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
  733. elseif CloSkirt < 5 and CloThinness < 5 and CloBra = 0:
  734. if CloQuality = 4:
  735. '<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>'
  736. else
  737. '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
  738. end
  739. elseif CloSkirt = 5 and CloThinness < 5 and CloBra = 0:
  740. if CloQuality = 4:
  741. '<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>'
  742. else
  743. '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
  744. end
  745. else
  746. '<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>'
  747. end
  748. end
  749. act 'Return':gt 'clothing_QV', 'list', '<<$ward_list_store>>'
  750. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  751. 'You are wearing this outfit.'
  752. elseif CloInhibit > pcs_inhib:
  753. 'You don''t feel confident enough to wear an outfit this revealing.'
  754. elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
  755. 'You lost these clothes somewhere, maybe you can find them again?.'
  756. else
  757. if CloInhibit > 10:
  758. if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  759. end
  760. act 'Wear this outfit':
  761. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  762. if $regularwornclothingtype = '':
  763. gt 'wardrobe', 'start'
  764. else
  765. gt 'clothing_QV', 'gym'
  766. end
  767. end
  768. end
  769. end
  770. if $ARGS[0] = 'shop_header':
  771. $Headerstring = '<TH>Sort by quality '
  772. if clothingfilter['quality'] = 0:
  773. $Headerstring += '<a href="exec:clothingfilter[''quality''] = 1 & gt $loc, $loc_arg">High - Low</a></TH>'
  774. else
  775. $Headerstring += '<a href="exec:clothingfilter[''quality''] = 0 & gt $loc, $loc_arg">Random</a></TH>'
  776. end
  777. $Headerstring += '<TH>Prostitute clothing '
  778. if clothingfilter_prost = 0:
  779. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt $loc, $loc_arg">Included</a></TH>'
  780. else
  781. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  782. end
  783. $Headerstring += '<TH>Bimbo clothing '
  784. if clothingfilter_bimbo = 0:
  785. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt $loc, $loc_arg">Included</a></TH>'
  786. else
  787. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  788. end
  789. $Headerstring += '<TH>Neither Prostitute or Bimbo clothing '
  790. if clothingfilter_norm = 0:
  791. $Headerstring += '<a href="exec:clothingfilter_norm = 1 & gt $loc, $loc_arg">Included</a></TH>'
  792. else
  793. $Headerstring += '<a href="exec:clothingfilter_norm = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  794. end
  795. $Headerstring += '<TH>Clothing you don''t find risqué '
  796. if clothingfilter_comf = 0:
  797. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt $loc, $loc_arg">Included</a></TH>'
  798. else
  799. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  800. end
  801. $Headerstring += '<TH>Risqué clothing '
  802. if clothingfilter_daring = 0:
  803. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt $loc, $loc_arg">Included</a></TH>'
  804. else
  805. $Headerstring += '<a href="exec:clothingfilter_daring = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  806. end
  807. $Headerstring += '<TH>Clothing too risqué for you '
  808. if clothingfilter_too_daring = 0:
  809. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt $loc, $loc_arg">Included</a></TH>'
  810. else
  811. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt $loc, $loc_arg">Excluded</a></TH>'
  812. end
  813. '<center><table border=1><<$Headerstring>></table></center>'
  814. end
  815. if $ARGS[0] = 'shop_filter':
  816. 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):
  817. clothingfilter_risk = 1
  818. else
  819. clothingfilter_risk = 0
  820. end
  821. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0):
  822. clothingfilter_pandb = 1
  823. else
  824. clothingfilter_pandb = 0
  825. end
  826. if clothingfilter_norm = 1 and CloStyle ! 4 and CloBimbo ! 1:
  827. clothingfilter_norm2 = 0
  828. else
  829. clothingfilter_norm2 = 1
  830. end
  831. end
  832. --- clothing_QV ---------------------------------