clothing_QV.qsrc 80 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835
  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">Choose to view all or select by shop</font></b></center>'
  7. $regularwornclothingtype = ''
  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', 'main'
  21. end
  22. end
  23. '<center><TH><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''all''"><img src="images/system/icons/clothing/all_outfits.png"></a></TH></center>'
  24. if ARRSIZE('gm_outfits') > 0 or ARRSIZE('gm_dress'):'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''gm''"><img src="images/locations/city/citycenter/mall/gm.png"></a></center>'
  25. if ARRSIZE('gm_school') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''gm_school''"><img src="images/pc/items/gm/school.png"></a></center>'
  26. if ARRSIZE('gm_office'):'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''gm_office''"><img src="images/pc/items/gm/officewear.png"></a></center>'
  27. if ARRSIZE('gm_maid'):'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''gm_maid''"><img src="images/pc/items/gm/maid.png"></a></center>'
  28. if ARRSIZE('gm_server'):'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''gm_server''"><img src="images/pc/items/gm/server.png"></a></center>'
  29. if ARRSIZE('cats_outfits') > 0 or ARRSIZE('cats_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  30. if ARRSIZE('flamingos_outfits') > 0 or ARRSIZE('flamingos_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''flamingos''"><img src="images/locations/city/island/flamingos/shop_name.png"></a></center>'
  31. if ARRSIZE('coco_outfits') > 0 or ARRSIZE('coco_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''coco''"><img src="images/locations/pavlovsk/coco/shop_name.png"></a></center>'
  32. if ARRSIZE('fashionista') > 0 or ARRSIZE('fashionista_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionista.png"></a></center>'
  33. if ARRSIZE('moncheri_gown') > 0 or ARRSIZE('moncheri_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  34. if ARRSIZE('scandalicious_outfits') > 0 or ARRSIZE('scandalicious_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''scandalicious''"><img src="images/locations/city/citycenter/mall/scandalicious.png"></a></center>'
  35. if ARRSIZE('fancy_burlesque') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''fancypancy''"><img src="images/locations/pushkin/fancypancy/shop_name.png"></a></center>'
  36. if ARRSIZE('eroto_dress') > 0 or ARRSIZE('eroto_outfits') > 0 or ARRSIZE('eroto_strip') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''sexshop''"><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></a></center>'
  37. if ARRSIZE('salacious_outfits') > 0 or ARRSIZE('salacious_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''exhibitshop''"><img src="images/locations/pushkin/exhibitshop/shop_name.png"></a></center>'
  38. if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''dolls''"><img src="images/locations/city/island/dolls/shop_name.png"></a></center>'
  39. if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''bomba''"><img src="images/locations/pushkin/bomba/shop_name.png"></a></center>'
  40. if ARRSIZE('nerdvana_cosplay') > 0 or ARRSIZE('nerdvana_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_list'', ''nerdvana''"><img src="images/locations/city/island/nerdvana/shop_name.png"></a></center>'
  41. if ARRSIZE('danilovich_outfits') > 0:'<center><a href="exec:gt ''clothing_QV'', ''clothing_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'', ''clothing_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'', ''clothing_list'', ''market''">Clothing from the market</a></center>'
  44. end
  45. if $ARGS[0] = 'clothing_list':
  46. $ward_list_file = 'clothing_QV'
  47. if $args[1] = 'all':
  48. $ward_list_store = 'all'
  49. gs 'clothing_QV', 'filter_header'
  50. !!For filtering all clothes
  51. clo_i = 0
  52. :loopfilter_all
  53. end
  54. if $ARGS[1] = 'gm' or $ARGS[1] = 'all':
  55. if $args[1] ! 'all':
  56. $ward_list_store = $ARGS[1]
  57. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  58. gs 'clothing_QV', 'filter_header', 'store'
  59. !!To filter just this set
  60. clo_i = 0
  61. :loopgm_filter
  62. end
  63. i = 1
  64. :loopgm_outfits
  65. if gm_outfits[i] = 1:
  66. gs 'clothing_attributes', 'gm_server', i
  67. gs 'clothing_QV', 'clo_filter'
  68. !!sort by filter
  69. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  70. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  71. if CloInhibit <= pcs_inhib:
  72. if CloStyle ! 5:
  73. 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>'
  74. else
  75. 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>'
  76. end
  77. end
  78. end
  79. end
  80. end
  81. i += 1
  82. if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits'
  83. i = 1
  84. :loopgm_dress
  85. if gm_dress[i] = 1:
  86. gs 'clothing_attributes', 'gm_dress', i
  87. gs 'clothing_QV', 'clo_filter'
  88. !!sort by filter
  89. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  90. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  91. if CloInhibit <= pcs_inhib:
  92. if CloStyle ! 5:
  93. 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>'
  94. else
  95. 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>'
  96. end
  97. end
  98. end
  99. end
  100. end
  101. i += 1
  102. if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress'
  103. if $args[1] ! 'all':
  104. clo_i += 1
  105. if clothingfilter['quality'] = 0 and clo_i <= 7:
  106. jump 'loopgm_filter'
  107. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  108. jump 'loopgm_filter'
  109. end
  110. end
  111. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  112. end
  113. if $ARGS[1] = 'gm_office' or $ARGS[1] = 'all':
  114. if $args[1] ! 'all':
  115. $ward_list_store = $ARGS[1]
  116. '<center><img src="images/pc/items/gm/officewear.png"></center>'
  117. gs 'clothing_QV', 'filter_header', 'store'
  118. !!To filter just this set
  119. clo_i = 0
  120. :loopgm_office_filter
  121. end
  122. i = 1
  123. :loopoffice
  124. if gm_office[i] = 1:
  125. gs 'clothing_attributes', 'gm_office', i
  126. gs 'clothing_QV', 'clo_filter'
  127. !!sort by filter
  128. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  129. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  130. if CloInhibit <= pcs_inhib:
  131. 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>'
  132. end
  133. end
  134. end
  135. end
  136. i += 1
  137. if i <= ARRSIZE('gm_office'):jump 'loopoffice'
  138. if $args[1] ! 'all':
  139. clo_i += 1
  140. if clothingfilter['quality'] = 0 and clo_i <= 7:
  141. jump 'loopgm_office_filter'
  142. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  143. jump 'loopgm_office_filter'
  144. end
  145. end
  146. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  147. end
  148. if $ARGS[1] = 'gm_maid' or $ARGS[1] = 'all':
  149. if $args[1] ! 'all':
  150. $ward_list_store = $ARGS[1]
  151. '<center><img src="images/pc/items/gm/maid.png"></center>'
  152. gs 'clothing_QV', 'filter_header', 'store'
  153. !!To filter just this set
  154. clo_i = 0
  155. :loopgm_maid_filter
  156. end
  157. i = 1
  158. :loopgm_maid
  159. if gm_maid[i] = 1:
  160. gs 'clothing_attributes', 'gm_maid', i
  161. gs 'clothing_QV', 'clo_filter'
  162. !!sort by filter
  163. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  164. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  165. if CloInhibit <= pcs_inhib:
  166. 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>'
  167. end
  168. end
  169. end
  170. end
  171. i += 1
  172. if i <= ARRSIZE('gm_maid'):jump 'loopgm_maid'
  173. if $args[1] ! 'all':
  174. clo_i += 1
  175. if clothingfilter['quality'] = 0 and clo_i <= 7:
  176. jump 'loopgm_maid_filter'
  177. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  178. jump 'loopgm_maid_filter'
  179. end
  180. end
  181. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  182. end
  183. if $ARGS[1] = 'gm_server' or $ARGS[1] = 'all':
  184. if $args[1] ! 'all':
  185. $ward_list_store = $ARGS[1]
  186. '<center><img src="images/pc/items/gm/server.png"></center>'
  187. gs 'clothing_QV', 'filter_header', 'store'
  188. !!To filter just this set
  189. clo_i = 0
  190. :loopgm_server_filter
  191. end
  192. i = 1
  193. :loopgm_server
  194. if gm_server[i] = 1:
  195. gs 'clothing_attributes', 'gm_server', i
  196. gs 'clothing_QV', 'clo_filter'
  197. !!sort by filter
  198. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  199. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  200. if CloInhibit <= pcs_inhib:
  201. 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>'
  202. end
  203. end
  204. end
  205. end
  206. i += 1
  207. if i <= ARRSIZE('gm_server'):jump 'loopgm_server'
  208. if $args[1] ! 'all':
  209. clo_i += 1
  210. if clothingfilter['quality'] = 0 and clo_i <= 7:
  211. jump 'loopgm_server_filter'
  212. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  213. jump 'loopgm_server_filter'
  214. end
  215. end
  216. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  217. end
  218. if $ARGS[1] = 'gm_school' or $ARGS[1] = 'all':
  219. if $args[1] ! 'all':
  220. $ward_list_store = $ARGS[1]
  221. '<center><img src="images/pc/items/gm/school.png"></center>'
  222. gs 'clothing_QV', 'filter_header', 'store'
  223. !!To filter just this set
  224. clo_i = 0
  225. :loopgm_school_filter
  226. end
  227. i = 1
  228. :loopschool
  229. if gm_school[i] = 1:
  230. gs 'clothing_attributes', 'gm_school', i
  231. gs 'clothing_QV', 'clo_filter'
  232. !!sort by filter
  233. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  234. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  235. !! Default school uniform
  236. if i = 6:
  237. 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>'
  238. elseif CloInhibit <= pcs_inhib:
  239. 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>'
  240. end
  241. end
  242. end
  243. end
  244. i += 1
  245. if i <= ARRSIZE('gm_school'):jump 'loopschool'
  246. if $args[1] ! 'all':
  247. clo_i += 1
  248. if clothingfilter['quality'] = 0 and clo_i <= 7:
  249. jump 'loopgm_school_filter'
  250. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  251. jump 'loopgm_school_filter'
  252. end
  253. end
  254. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  255. end
  256. if $ARGS[1] = 'kats' or $ARGS[1] = 'all':
  257. if $args[1] ! 'all':
  258. $ward_list_store = $ARGS[1]
  259. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  260. gs 'clothing_QV', 'filter_header', 'store'
  261. !!To filter just this set
  262. clo_i = 0
  263. :loopcats_filter
  264. end
  265. i = 1
  266. :loopcats_outfits
  267. if cats_outfits[i] = 1:
  268. gs 'clothing_attributes', 'cats_outfits', i
  269. gs 'clothing_QV', 'clo_filter'
  270. !!sort by filter
  271. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  272. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  273. if CloInhibit <= pcs_inhib:
  274. if CloStyle ! 5:
  275. 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>'
  276. else
  277. 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>'
  278. end
  279. end
  280. end
  281. end
  282. end
  283. i += 1
  284. if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits'
  285. i = 1
  286. :loopcats_dress
  287. if cats_dress[i] = 1:
  288. gs 'clothing_attributes', 'cats_dress', i
  289. gs 'clothing_QV', 'clo_filter'
  290. !!sort by filter
  291. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  292. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  293. if CloInhibit <= pcs_inhib:
  294. if CloStyle ! 5:
  295. 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>'
  296. else
  297. 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>'
  298. end
  299. end
  300. end
  301. end
  302. end
  303. i += 1
  304. if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
  305. if $args[1] ! 'all':
  306. clo_i += 1
  307. if clothingfilter['quality'] = 0 and clo_i <= 7:
  308. jump 'loopcats_filter'
  309. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  310. jump 'loopcats_filter'
  311. end
  312. end
  313. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  314. end
  315. if $ARGS[1] = 'flamingos' or $ARGS[1] = 'all':
  316. if $args[1] ! 'all':
  317. $ward_list_store = $ARGS[1]
  318. '<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'
  319. gs 'clothing_QV', 'filter_header', 'store'
  320. !!To filter just this set
  321. clo_i = 0
  322. :loopflamingos_filter
  323. end
  324. i = 1
  325. :loopflamingos_outfits
  326. if flamingos_outfits[i] = 1:
  327. gs 'clothing_attributes', 'flamingos_outfits', i
  328. gs 'clothing_QV', 'clo_filter'
  329. !!sort by filter
  330. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  331. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  332. if CloInhibit <= pcs_inhib:
  333. if CloStyle ! 5:
  334. 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>'
  335. else
  336. 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>'
  337. end
  338. end
  339. end
  340. end
  341. end
  342. i += 1
  343. if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits'
  344. i = 1
  345. :loopflamingos_dress
  346. if flamingos_dress[i] = 1:
  347. gs 'clothing_attributes', 'flamingos_dress', i
  348. gs 'clothing_QV', 'clo_filter'
  349. !!sort by filter
  350. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  351. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  352. if CloInhibit <= pcs_inhib:
  353. if CloStyle ! 5:
  354. 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>'
  355. else
  356. 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>'
  357. end
  358. end
  359. end
  360. end
  361. end
  362. i += 1
  363. if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
  364. if $args[1] ! 'all':
  365. clo_i += 1
  366. if clothingfilter['quality'] = 0 and clo_i <= 7:
  367. jump 'loopflamingos_filter'
  368. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  369. jump 'loopflamingos_filter'
  370. end
  371. end
  372. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  373. end
  374. if $ARGS[1] = 'coco' or $ARGS[1] = 'all':
  375. if $args[1] ! 'all':
  376. $ward_list_store = $ARGS[1]
  377. '<center><img src="images/locations/pavlovsk/coco/shop_name.png"></center>'
  378. gs 'clothing_QV', 'filter_header', 'store'
  379. !!To filter just this set
  380. clo_i = 0
  381. :loopcoco_filter
  382. end
  383. i = 1
  384. :loopcoco_outfit
  385. if coco_outfits[i] = 1:
  386. gs 'clothing_attributes', 'coco_outfits', i
  387. gs 'clothing_QV', 'clo_filter'
  388. !!sort by filter
  389. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  390. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  391. if CloInhibit <= pcs_inhib:
  392. if CloStyle ! 5:
  393. 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>'
  394. else
  395. 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>'
  396. end
  397. end
  398. end
  399. end
  400. end
  401. i += 1
  402. if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfit'
  403. i = 1
  404. :loopcoco_dress
  405. if coco_dress[i] = 1:
  406. gs 'clothing_attributes', 'coco_dress', i
  407. gs 'clothing_QV', 'clo_filter'
  408. !!sort by filter
  409. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  410. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  411. if CloInhibit <= pcs_inhib:
  412. if CloStyle ! 5:
  413. 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>'
  414. else
  415. 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>'
  416. end
  417. end
  418. end
  419. end
  420. end
  421. i += 1
  422. if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
  423. if $args[1] ! 'all':
  424. clo_i += 1
  425. if clothingfilter['quality'] = 0 and clo_i <= 7:
  426. jump 'loopcoco_filter'
  427. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  428. jump 'loopcoco_filter'
  429. end
  430. end
  431. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  432. end
  433. if $ARGS[1] = 'fashionista' or $ARGS[1] = 'all':
  434. if $args[1] ! 'all':
  435. $ward_list_store = $ARGS[1]
  436. '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
  437. gs 'clothing_QV', 'filter_header', 'store'
  438. !!To filter just this set
  439. clo_i = 0
  440. :loopfashionista_filter
  441. end
  442. i = 1
  443. :loopfashionista
  444. if fashionista[i] = 1:
  445. gs 'clothing_attributes', 'fashionista', i
  446. gs 'clothing_QV', 'clo_filter'
  447. !!sort by filter
  448. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  449. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  450. if CloInhibit <= pcs_inhib:
  451. if CloStyle ! 5:
  452. 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>'
  453. else
  454. 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>'
  455. end
  456. end
  457. end
  458. end
  459. end
  460. i += 1
  461. if i <= ARRSIZE('fashionista'):jump 'loopfashionista'
  462. i = 1
  463. :loopfashionista_outfits
  464. if fashionista_outfits[i] = 1:
  465. gs 'clothing_attributes', 'fashionista_outfits', i
  466. gs 'clothing_QV', 'clo_filter'
  467. !!sort by filter
  468. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  469. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  470. if CloInhibit <= pcs_inhib:
  471. if CloStyle ! 5:
  472. if fashionista_outfits_s[i] = 0 and fashionista_outfits_h[i] > 0 and fashionista_outfits_b[i] >= (pcs_hips - 8) and fashionista_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fashionista_outfits'', <<i>>"><img src="images/pc/items/fashionista/outfits/<<i>>.jpg" height="250" /></a>'
  473. else
  474. if fashionista_outfits_s[i] = 0 and fashionista_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''fashionista_outfits'', <<i>>"><img src="images/pc/items/fashionista/outfits/<<i>>.jpg" height="250" /></a>'
  475. end
  476. end
  477. end
  478. end
  479. end
  480. i += 1
  481. if i <= ARRSIZE('fashionista_outfits'):jump 'loopfashionista_outfits'
  482. if $args[1] ! 'all':
  483. clo_i += 1
  484. if clothingfilter['quality'] = 0 and clo_i <= 7:
  485. jump 'loopfashionista_filter'
  486. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  487. jump 'loopfashionista_filter'
  488. end
  489. end
  490. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  491. end
  492. if $ARGS[1] = 'moncheri' or $ARGS[1] = 'all':
  493. if $args[1] ! 'all':
  494. $ward_list_store = $ARGS[1]
  495. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  496. gs 'clothing_QV', 'filter_header', 'store'
  497. !!To filter just this set
  498. clo_i = 0
  499. :loopmoncheri_filter
  500. end
  501. i = 1
  502. :loopmoncheri_gown
  503. if moncheri_gown[i] = 1:
  504. gs 'clothing_attributes', 'moncheri_gown', i
  505. gs 'clothing_QV', 'clo_filter'
  506. !!sort by filter
  507. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  508. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  509. if CloInhibit <= pcs_inhib:
  510. 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>'
  511. end
  512. end
  513. end
  514. end
  515. i += 1
  516. if i <= ARRSIZE('moncheri_gown'):jump 'loopmoncheri_gown'
  517. i = 1
  518. :loopmoncheri_dress
  519. if moncheri_dress[i] = 1:
  520. gs 'clothing_attributes', 'moncheri_dress', i
  521. gs 'clothing_QV', 'clo_filter'
  522. !!sort by filter
  523. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  524. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  525. if CloInhibit <= pcs_inhib:
  526. 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>'
  527. end
  528. end
  529. end
  530. end
  531. i += 1
  532. if i <= ARRSIZE('moncheri_dress'):jump 'loopmoncheri_dress'
  533. if $args[1] ! 'all':
  534. clo_i += 1
  535. if clothingfilter['quality'] = 0 and clo_i <= 7:
  536. jump 'loopmoncheri_filter'
  537. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  538. jump 'loopmoncheri_filter'
  539. end
  540. end
  541. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  542. end
  543. if $ARGS[1] = 'scandalicious' or $ARGS[1] = 'all':
  544. if $args[1] ! 'all':
  545. $ward_list_store = $ARGS[1]
  546. '<center><img src="images/locations/city/citycenter/mall/scandalicious.png"></center>'
  547. gs 'clothing_QV', 'filter_header', 'store'
  548. !!To filter just this set
  549. clo_i = 0
  550. :loopscandalicious_filter
  551. end
  552. i = 1
  553. :loopscandalicious_outfits
  554. if scandalicious_outfits[i] = 1:
  555. gs 'clothing_attributes', 'scandalicious_outfits', i
  556. gs 'clothing_QV', 'clo_filter'
  557. !!sort by filter
  558. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  559. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  560. if CloInhibit <= pcs_inhib:
  561. if CloStyle ! 5:
  562. 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>'
  563. else
  564. 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>'
  565. end
  566. end
  567. end
  568. end
  569. end
  570. i += 1
  571. if i <= ARRSIZE('scandalicious_outfits'):jump 'loopscandalicious_outfits'
  572. i = 1
  573. :loopscandalicious_dress
  574. if scandalicious_dress[i] = 1:
  575. gs 'clothing_attributes', 'scandalicious_dress', i
  576. gs 'clothing_QV', 'clo_filter'
  577. !!sort by filter
  578. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  579. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  580. if CloInhibit <= pcs_inhib:
  581. if CloStyle ! 5:
  582. 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>'
  583. else
  584. 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>'
  585. end
  586. end
  587. end
  588. end
  589. end
  590. i += 1
  591. if i <= ARRSIZE('scandalicious_dress'):jump 'loopscandalicious_dress'
  592. if $args[1] ! 'all':
  593. clo_i += 1
  594. if clothingfilter['quality'] = 0 and clo_i <= 7:
  595. jump 'loopscandalicious_filter'
  596. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  597. jump 'loopscandalicious_filter'
  598. end
  599. end
  600. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  601. end
  602. if $ARGS[1] = 'fancypancy' or $ARGS[1] = 'all':
  603. if $args[1] ! 'all':
  604. $ward_list_store = $ARGS[1]
  605. '<center><img src="images/locations/pushkin/fancypancy/shop_name.png"></center>'
  606. gs 'clothing_QV', 'filter_header', 'store'
  607. !!To filter just this set
  608. clo_i = 0
  609. :loopfancy_burlesque_filter
  610. end
  611. i = 1
  612. :loopburlesque
  613. if fancy_burlesque[i] = 1:
  614. gs 'clothing_attributes', 'fancy_burlesque', i
  615. gs 'clothing_QV', 'clo_filter'
  616. !!sort by filter
  617. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  618. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  619. if CloInhibit <= pcs_inhib:
  620. 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>'
  621. end
  622. end
  623. end
  624. end
  625. i += 1
  626. if i <= ARRSIZE('fancy_burlesque'):jump 'loopburlesque'
  627. if $args[1] ! 'all':
  628. clo_i += 1
  629. if clothingfilter['quality'] = 0 and clo_i <= 7:
  630. jump 'loopfancy_burlesque_filter'
  631. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  632. jump 'loopfancy_burlesque_filter'
  633. end
  634. end
  635. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  636. end
  637. if $ARGS[1] = 'sexshop' or $ARGS[1] = 'all':
  638. if $args[1] ! 'all':
  639. $ward_list_store = $ARGS[1]
  640. '<center><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></center>'
  641. gs 'clothing_QV', 'filter_header', 'store'
  642. !!To filter just this set
  643. clo_i = 0
  644. :looperoto__filter
  645. end
  646. i = 1
  647. :looperoto_dress
  648. if eroto_dress[i] = 1:
  649. gs 'clothing_attributes', 'eroto_dress', i
  650. gs 'clothing_QV', 'clo_filter'
  651. !!sort by filter
  652. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  653. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  654. if CloInhibit <= pcs_inhib:
  655. 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>'
  656. end
  657. end
  658. end
  659. end
  660. i += 1
  661. if i <= ARRSIZE('eroto_dress'):jump 'looperoto_dress'
  662. i = 1
  663. :looperoto_outfits
  664. if eroto_outfits[i] = 1:
  665. gs 'clothing_attributes', 'eroto_outfits', i
  666. gs 'clothing_QV', 'clo_filter'
  667. !!sort by filter
  668. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  669. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  670. if CloInhibit <= pcs_inhib:
  671. 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>'
  672. end
  673. end
  674. end
  675. end
  676. i += 1
  677. if i <= ARRSIZE('eroto_outfits'):jump 'looperoto_outfits'
  678. i = 1
  679. :looperoto_strip
  680. if eroto_strip[i] = 1:
  681. gs 'clothing_attributes', 'eroto_strip', i
  682. gs 'clothing_QV', 'clo_filter'
  683. !!sort by filter
  684. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  685. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  686. if CloInhibit <= pcs_inhib:
  687. 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>'
  688. end
  689. end
  690. end
  691. end
  692. i += 1
  693. if i <= ARRSIZE('eroto_strip'):jump 'looperoto_strip'
  694. if $args[1] ! 'all':
  695. clo_i += 1
  696. if clothingfilter['quality'] = 0 and clo_i <= 7:
  697. jump 'looperoto__filter'
  698. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  699. jump 'looperoto__filter'
  700. end
  701. end
  702. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  703. end
  704. if $ARGS[1] = 'exhibitshop' or $ARGS[1] = 'all':
  705. if $args[1] ! 'all':
  706. $ward_list_store = $ARGS[1]
  707. '<center><img src="images/locations/pushkin/exhibitshop/shop_name.png"></center>'
  708. gs 'clothing_QV', 'filter_header', 'store'
  709. !!To filter just this set
  710. clo_i = 0
  711. :loopsalacious_filter
  712. end
  713. i = 1
  714. :loopsalacious_dress
  715. if salacious_dress[i] = 1:
  716. gs 'clothing_attributes', 'salacious_dress', i
  717. gs 'clothing_QV', 'clo_filter'
  718. !!sort by filter
  719. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  720. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  721. if CloInhibit <= pcs_inhib:
  722. 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>'
  723. end
  724. end
  725. end
  726. end
  727. i += 1
  728. if i <= ARRSIZE('salacious_dress'):jump 'loopsalacious_dress'
  729. i = 1
  730. :loopsalacious_outfits
  731. if salacious_outfits[i] = 1:
  732. gs 'clothing_attributes', 'salacious_outfits', i
  733. gs 'clothing_QV', 'clo_filter'
  734. !!sort by filter
  735. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  736. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  737. if CloInhibit <= pcs_inhib:
  738. 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>'
  739. end
  740. end
  741. end
  742. end
  743. i += 1
  744. if i <= ARRSIZE('salacious_outfits'):jump 'loopsalacious_outfits'
  745. if $args[1] ! 'all':
  746. clo_i += 1
  747. if clothingfilter['quality'] = 0 and clo_i <= 7:
  748. jump 'loopsalacious_filter'
  749. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  750. jump 'loopsalacious_filter'
  751. end
  752. end
  753. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  754. end
  755. if $ARGS[1] = 'dolls' or $ARGS[1] = 'all':
  756. if $args[1] ! 'all':
  757. $ward_list_store = $ARGS[1]
  758. '<center><img src="images/locations/city/island/dolls/shop_name.png"></center>'
  759. gs 'clothing_QV', 'filter_header', 'store'
  760. !!To filter just this set
  761. clo_i = 0
  762. :loopdolls_filter
  763. end
  764. i = 1
  765. :loopdolls_outfits
  766. if dolls_outfits[i] = 1:
  767. gs 'clothing_attributes', 'dolls_outfits', i
  768. gs 'clothing_QV', 'clo_filter'
  769. !!sort by filter
  770. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  771. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  772. if CloInhibit <= pcs_inhib:
  773. if CloStyle ! 5:
  774. 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>'
  775. else
  776. 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>'
  777. end
  778. end
  779. end
  780. end
  781. end
  782. i += 1
  783. if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits'
  784. i = 1
  785. :loopdolls_dress
  786. if dolls_dress[i] = 1:
  787. gs 'clothing_attributes', 'dolls_dress', i
  788. gs 'clothing_QV', 'clo_filter'
  789. !!sort by filter
  790. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  791. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  792. if CloInhibit <= pcs_inhib:
  793. if CloStyle ! 5:
  794. 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>'
  795. else
  796. 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>'
  797. end
  798. end
  799. end
  800. end
  801. end
  802. i += 1
  803. if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
  804. if $args[1] ! 'all':
  805. clo_i += 1
  806. if clothingfilter['quality'] = 0 and clo_i <= 7:
  807. jump 'loopdolls_filter'
  808. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  809. jump 'loopdolls_filter'
  810. end
  811. end
  812. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  813. end
  814. if $ARGS[1] = 'bomba' or $ARGS[1] = 'all':
  815. if $args[1] ! 'all':
  816. $ward_list_store = $ARGS[1]
  817. '<center><img src="images/locations/pushkin/bomba/shop_name.png"></center>'
  818. gs 'clothing_QV', 'filter_header', 'store'
  819. !!To filter just this set
  820. clo_i = 0
  821. :loopbomba_filter
  822. end
  823. i = 1
  824. :loopbomba_outfits
  825. if bomba_outfits[i] = 1:
  826. gs 'clothing_attributes', 'bomba_outfits', i
  827. gs 'clothing_QV', 'clo_filter'
  828. !!sort by filter
  829. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  830. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  831. if CloInhibit <= pcs_inhib:
  832. if CloStyle ! 5:
  833. 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>'
  834. else
  835. 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>'
  836. end
  837. end
  838. end
  839. end
  840. end
  841. i += 1
  842. if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits'
  843. i = 1
  844. :loopbomba_dress
  845. if bomba_dress[i] = 1:
  846. gs 'clothing_attributes', 'bomba_dress', i
  847. gs 'clothing_QV', 'clo_filter'
  848. !!sort by filter
  849. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  850. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  851. if CloInhibit <= pcs_inhib:
  852. if CloStyle ! 5:
  853. 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>'
  854. else
  855. 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>'
  856. end
  857. end
  858. end
  859. end
  860. end
  861. i += 1
  862. if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
  863. if $args[1] ! 'all':
  864. clo_i += 1
  865. if clothingfilter['quality'] = 0 and clo_i <= 7:
  866. jump 'loopbomba_filter'
  867. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  868. jump 'loopbomba_filter'
  869. end
  870. end
  871. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  872. end
  873. if $ARGS[1] = 'nerdvana' or $ARGS[1] = 'all':
  874. if $args[1] ! 'all':
  875. $ward_list_store = $ARGS[1]
  876. '<center><img src="images/locations/city/island/nerdvana/shop_name.png"></center>'
  877. gs 'clothing_QV', 'filter_header', 'store'
  878. !!To filter just this set
  879. clo_i = 0
  880. :loopnerdvana_filter
  881. end
  882. i = 1
  883. :loopnerdvana_outfits
  884. if nerdvana_outfits[i] = 1:
  885. gs 'clothing_attributes', 'nerdvana_outfits', i
  886. gs 'clothing_QV', 'clo_filter'
  887. !!sort by filter
  888. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  889. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  890. if CloInhibit <= pcs_inhib:
  891. if CloStyle ! 5:
  892. if nerdvana_outfits_s[i] = 0 and nerdvana_outfits_h[i] > 0 and nerdvana_outfits_b[i] >= (pcs_hips - 8) and nerdvana_outfits_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''nerdvana_outfits'', <<i>>"><img src="images/pc/items/nerdvana/outfits/<<i>>.jpg" height="250" /></a>'
  893. else
  894. if nerdvana_outfits_s[i] = 0 and nerdvana_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''nerdvana_outfits'', <<i>>"><img src="images/pc/items/nerdvana/outfits/<<i>>.jpg" height="250" /></a>'
  895. end
  896. end
  897. end
  898. end
  899. end
  900. i += 1
  901. if i <= ARRSIZE('nerdvana_outfits'):jump 'loopnerdvana_outfits'
  902. i = 1
  903. :loopnerdvana_cosplay
  904. if nerdvana_cosplay[i] = 1:
  905. gs 'clothing_attributes', 'nerdvana_cosplay', i
  906. gs 'clothing_QV', 'clo_filter'
  907. !!sort by filter
  908. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  909. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  910. if CloInhibit <= pcs_inhib:
  911. if CloStyle ! 5:
  912. if nerdvana_cosplay_s[i] = 0 and nerdvana_cosplay_h[i] > 0 and nerdvana_cosplay_b[i] >= (pcs_hips - 8) and nerdvana_cosplay_b[i] <= (pcs_hips + 8):*p '<a href="exec:gt ''clothing_QV'', ''change'', ''nerdvana_cosplay'', <<i>>"><img src="images/pc/items/nerdvana/cosplay/<<i>>.jpg" height="250" /></a>'
  913. else
  914. if nerdvana_cosplay_s[i] = 0 and nerdvana_cosplay_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''nerdvana_cosplay'', <<i>>"><img src="images/pc/items/nerdvana/cosplay/<<i>>.jpg" height="250" /></a>'
  915. end
  916. end
  917. end
  918. end
  919. end
  920. i += 1
  921. if i <= ARRSIZE('nerdvana_cosplay'):jump 'loopnerdvana_cosplay'
  922. if $args[1] ! 'all':
  923. clo_i += 1
  924. if clothingfilter['quality'] = 0 and clo_i <= 7:
  925. jump 'loopnerdvana_filter'
  926. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  927. jump 'loopnerdvana_filter'
  928. end
  929. end
  930. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  931. end
  932. if $ARGS[1] = 'sports' or ($ARGS[1] = 'all' and clothingfilter['sport'] = 0):
  933. if $args[1] ! 'all':
  934. $ward_list_store = $ARGS[1]
  935. if clothingfilter['sport'] = 1: '<center>Displaying despite sport filter being active</center>'
  936. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  937. gs 'clothing_QV', 'filter_header', 'store'
  938. !!To filter just this set
  939. clo_i = 0
  940. :loopdanilovich_outfits_filter
  941. end
  942. i = 1
  943. :loopdanilovich_outfits
  944. if danilovich_outfits[i] = 1:
  945. gs 'clothing_attributes', 'danilovich_outfits', i
  946. gs 'clothing_QV', 'clo_filter'
  947. !!sort by filter
  948. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  949. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:
  950. if CloInhibit <= pcs_inhib:
  951. if danilovich_outfits_s[i] = 0 and danilovich_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''danilovich_outfits'', <<i>>"><img src="images/pc/items/danilovich/outfits/<<i>>.jpg" height="250" /></a>'
  952. end
  953. end
  954. end
  955. end
  956. i += 1
  957. if i <= ARRSIZE('danilovich_outfits'):jump 'loopdanilovich_outfits'
  958. if $args[1] ! 'all':
  959. clo_i += 1
  960. if clothingfilter['quality'] = 0 and clo_i <= 7:
  961. jump 'loopdanilovich_outfits_filter'
  962. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  963. jump 'loopdanilovich_outfits_filter'
  964. end
  965. end
  966. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  967. end
  968. if $ARGS[1] = 'market' or $ARGS[1] = 'all':
  969. if $args[1] ! 'all':
  970. $ward_list_store = $ARGS[1]
  971. '<center>Clothing from the market</center>'
  972. gs 'clothing_QV', 'filter_header', 'store'
  973. !!To filter just this set
  974. clo_i = 0
  975. :loopmarket_outfits_filter
  976. end
  977. i = 1
  978. :loopmarket_outfits
  979. if market_outfits[i] = 1:
  980. gs 'clothing_attributes', 'market_outfits', i
  981. gs 'clothing_QV', 'clo_filter'
  982. !!sort by filter
  983. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  984. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  985. if CloInhibit <= pcs_inhib:
  986. 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>'
  987. end
  988. end
  989. end
  990. end
  991. i += 1
  992. if i <= ARRSIZE('market_outfits'):jump 'loopmarket_outfits'
  993. if $args[1] ! 'all':
  994. clo_i += 1
  995. if clothingfilter['quality'] = 0 and clo_i <= 7:
  996. jump 'loopmarket_outfits_filter'
  997. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  998. jump 'loopmarket_outfits_filter'
  999. end
  1000. end
  1001. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  1002. end
  1003. if $ARGS[1] = 'materinstvo' or $ARGS[1] = 'all':
  1004. if $args[1] ! 'all':
  1005. $ward_list_store = $ARGS[1]
  1006. '<center><img src="images/locations/city/citycenter/mall/mommy.png"></center>'
  1007. gs 'clothing_QV', 'filter_header', 'store'
  1008. !!To filter just this set
  1009. clo_i = 0
  1010. :loopmaterinstvo_dress_filter
  1011. end
  1012. i = 1
  1013. :loopmaterinstvo_dress
  1014. if materinstvo_dress[i] = 1:
  1015. gs 'clothing_attributes', 'materinstvo_dress', i
  1016. gs 'clothing_QV', 'clo_filter'
  1017. !!sort by filter
  1018. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  1019. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  1020. if CloInhibit <= pcs_inhib:
  1021. 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>'
  1022. end
  1023. end
  1024. end
  1025. end
  1026. i += 1
  1027. if i <= ARRSIZE('materinstvo_dress'):jump 'loopmaterinstvo_dress'
  1028. if $args[1] ! 'all':
  1029. clo_i += 1
  1030. if clothingfilter['quality'] = 0 and clo_i <= 7:
  1031. jump 'loopmaterinstvo_dress_filter'
  1032. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  1033. jump 'loopmaterinstvo_dress_filter'
  1034. end
  1035. end
  1036. act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
  1037. end
  1038. if $args[1] = 'all':
  1039. clo_i += 1
  1040. if clothingfilter['quality'] = 0 and clo_i <= 7:
  1041. jump 'loopfilter_all'
  1042. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  1043. jump 'loopfilter_all'
  1044. end
  1045. end
  1046. end
  1047. if $ARGS[0] = 'gym':
  1048. if $regularwornclothingtype = '':
  1049. $regularwornclothingtype = $clothingworntype
  1050. regularwornclothingnumber = clothingwornnumber
  1051. end
  1052. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  1053. gs 'clothing_QV', 'filter_header', 'store'
  1054. !!To filter just this set
  1055. clo_i = 0
  1056. :loopdanilovich_outfits_filter2
  1057. i = 1
  1058. :loopdanilovich2
  1059. if danilovich_outfits[i] = 1:
  1060. gs 'clothing_attributes', 'danilovich_outfits', i
  1061. gs 'clothing_QV', 'clo_filter'
  1062. !!sort by filter
  1063. if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
  1064. if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
  1065. if CloInhibit <= pcs_inhib:
  1066. if danilovich_outfits_s[i] = 0 and danilovich_outfits_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''danilovich_outfits'', <<i>>"><img src="images/pc/items/danilovich/outfits/<<i>>.jpg" height="250" /></a>'
  1067. end
  1068. end
  1069. end
  1070. end
  1071. i += 1
  1072. if i <= ARRSIZE('danilovich_outfits'):jump 'loopdanilovich2'
  1073. clo_i += 1
  1074. if clothingfilter['quality'] = 0 and clo_i <= 7:
  1075. jump 'loopdanilovich_outfits_filter2'
  1076. elseif clothingfilter['inhibition'] = 0 and clo_i <= 35:
  1077. jump 'loopdanilovich_outfits_filter2'
  1078. end
  1079. act 'Return': gt $loc, $loc_arg
  1080. if $clothingworntype ! $regularwornclothingtype: gs 'clothing_QV', 'gym2'
  1081. if $clothingworntype ! 'nude':
  1082. act 'Strip':gt 'clothing_QV', 'strip'
  1083. end
  1084. end
  1085. if $ARGS[0] = 'gym2':
  1086. act 'Change back into your regular clothes':
  1087. $clothingworntype = $regularwornclothingtype
  1088. clothingwornnumber = regularwornclothingnumber
  1089. killvar '$regularwornclothingtype'
  1090. killvar 'regularwornclothingnumber'
  1091. gt 'clothing_QV', 'gym'
  1092. end
  1093. end
  1094. if $ARGS[0] = 'cloak':
  1095. i = 1
  1096. :loopcoat
  1097. if coat[i] = 1:
  1098. 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>'
  1099. end
  1100. i += 1
  1101. if i <= ARRSIZE('coat'):jump 'loopcoat'
  1102. end
  1103. if $ARGS[0] = 'strip':
  1104. if $pantyworntype ! 'none':
  1105. '<center><img src="images/pc/body/nude.jpg"></center>'
  1106. '<center>You strip down to your panties.</center>'
  1107. else
  1108. '<center><img src="images/pc/body/nude1.jpg"></center>'
  1109. '<center>You strip completely naked.</center>'
  1110. end
  1111. gs 'clothing', 'strip'
  1112. act 'Choose something to wear':
  1113. if $regularwornclothingtype = '':
  1114. gt 'clothing_QV', 'list'
  1115. else
  1116. gt 'clothing_QV', 'gym'
  1117. end
  1118. end
  1119. act 'Leave': gt $loc, $loc_arg
  1120. end
  1121. if $ARGS[0] = 'change':
  1122. *clr
  1123. cla
  1124. $swimwear_description = ''
  1125. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  1126. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
  1127. if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
  1128. 'A hessian sack the hunters gave you.'
  1129. else
  1130. $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
  1131. $RESULT += '<<ARGS[2]>>'
  1132. '<<$RESULT>>'
  1133. if $swimwear_description = '':
  1134. gs 'clothing_descriptions'
  1135. '<<$description>>'
  1136. else
  1137. $swimwear_description
  1138. end
  1139. end
  1140. if CloBimbo = 1 and cheatBimbo = 0:'This item is considered bimbo clothing.'
  1141. if CloStyle = 4:'This outfit can be used for prostitution.'
  1142. !!CloStyle2: 1 Maid, 2 Server, 3 Stripper, 4 School
  1143. if CloStyle2 = 1: 'This is a maid outfit.'
  1144. if CloStyle2 = 2: 'This outfit is a server uniform.'
  1145. if CloStyle2 = 3: 'This outfit is a stripper uniform, suitable for jobs that require one.'
  1146. if CloStyle2 = 4:
  1147. if CloInhibit <= 10:
  1148. '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
  1149. elseif CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
  1150. if CloQuality >= 4:
  1151. '<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>'
  1152. else
  1153. '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
  1154. end
  1155. elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
  1156. if CloQuality >= 4:
  1157. '<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>'
  1158. else
  1159. '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
  1160. end
  1161. else
  1162. '<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>'
  1163. end
  1164. end
  1165. act 'Return':gt 'clothing_QV', 'clothing_list', '<<$ward_list_store>>'
  1166. if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
  1167. 'You are wearing this outfit.'
  1168. elseif CloInhibit > pcs_inhib:
  1169. 'You don''t feel confident enough to wear an outfit this revealing.'
  1170. elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
  1171. 'You lost these clothes somewhere, maybe you can find them again?.'
  1172. else
  1173. if CloInhibit > 10:
  1174. if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  1175. end
  1176. act 'Wear this outfit':
  1177. gs 'clothing', 'wear', $ARGS[1], ARGS[2]
  1178. if $regularwornclothingtype = '':
  1179. gt 'wardrobe', 'main'
  1180. else
  1181. gt 'clothing_QV', 'gym'
  1182. end
  1183. end
  1184. end
  1185. end
  1186. if $ARGS[0] = 'filter_header':
  1187. !!Exclude filters
  1188. $Headerstring = '<TD>'
  1189. if clothingfilter['prost'] = 0:
  1190. $Headerstring += '<a href="exec:clothingfilter[''prost''] = 1 & clothingfilter[''prost_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/prostitute.png"></a></TD>'
  1191. else
  1192. $Headerstring += '<a href="exec:clothingfilter[''prost''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/prostitute_off.png"></a></TD>'
  1193. end
  1194. $Headerstring += '<TD>'
  1195. if clothingfilter['stripper'] = 0:
  1196. $Headerstring += '<a href="exec:clothingfilter[''stripper''] = 1 & clothingfilter[''stripper_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
  1197. else
  1198. $Headerstring += '<a href="exec:clothingfilter[''stripper''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
  1199. end
  1200. $Headerstring += '<TD>'
  1201. if clothingfilter['bimbo'] = 0:
  1202. $Headerstring += '<a href="exec:clothingfilter[''bimbo''] = 1 & clothingfilter[''bimbo_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
  1203. else
  1204. $Headerstring += '<a href="exec:clothingfilter[''bimbo''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
  1205. end
  1206. $Headerstring += '<TD>'
  1207. if clothingfilter['conservative'] = 0:
  1208. $Headerstring += '<a href="exec:clothingfilter[''conservative''] = 1 & clothingfilter[''conservative_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/conservative.png"></a></TD>'
  1209. else
  1210. $Headerstring += '<a href="exec:clothingfilter[''conservative''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/conservative_off.png"></a></TD>'
  1211. end
  1212. $Headerstring += '<TD>'
  1213. if clothingfilter['risque'] = 0:
  1214. $Headerstring += '<a href="exec:clothingfilter[''risque''] = 1 & clothingfilter[''risque_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/risque.png"></a></TD>'
  1215. else
  1216. $Headerstring += '<a href="exec:clothingfilter[''risque''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/risque_off.png"></a></TD>'
  1217. end
  1218. $Headerstring += '<TD>'
  1219. if clothingfilter['loose'] = 0:
  1220. $Headerstring += '<a href="exec:clothingfilter[''loose''] = 1 & clothingfilter[''loose_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/loose.png"></a></TD>'
  1221. else
  1222. $Headerstring += '<a href="exec:clothingfilter[''loose''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/loose_off.png"></a></TD>'
  1223. end
  1224. if $ARGS[1] ! 'store':
  1225. $Headerstring += '<TD>'
  1226. if clothingfilter['sport'] = 0:
  1227. $Headerstring += '<a href="exec:clothingfilter[''sport''] = 1 & clothingfilter[''sport_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/sport.png"></a></TD>'
  1228. else
  1229. $Headerstring += '<a href="exec:clothingfilter[''sport''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/sport_off.png"></a></TD>'
  1230. end
  1231. end
  1232. $Headerstring += '<TD>'
  1233. if clothingfilter['school'] = 0:
  1234. $Headerstring += '<a href="exec:clothingfilter[''school''] = 1 & clothingfilter[''school_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/school.png"></a></TD>'
  1235. else
  1236. $Headerstring += '<a href="exec:clothingfilter[''school''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/school_off.png"></a></TD>'
  1237. end
  1238. if $ARGS[1] ! 'store':
  1239. $Headerstring += '<TD>'
  1240. if clothingfilter['maid'] = 0:
  1241. $Headerstring += '<a href="exec:clothingfilter[''maid''] = 1 & clothingfilter[''maid_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/maid.png"></a></TD>'
  1242. else
  1243. $Headerstring += '<a href="exec:clothingfilter[''maid''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/maid_off.png"></a></TD>'
  1244. end
  1245. $Headerstring += '<TD>'
  1246. if clothingfilter['server'] = 0:
  1247. $Headerstring += '<a href="exec:clothingfilter[''server''] = 1 & clothingfilter[''server_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/server.png"></a></TD>'
  1248. else
  1249. $Headerstring += '<a href="exec:clothingfilter[''server''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/server_off.png"></a></TD>'
  1250. end
  1251. if $ward_list_file = 'clothing':
  1252. $Headerstring += '<TD>'
  1253. if clothingfilter['swim'] = 0:
  1254. $Headerstring += '<a href="exec:clothingfilter[''swim''] = 1 & clothingfilter[''swim_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/swim.png"></a></TD>'
  1255. else
  1256. $Headerstring += '<a href="exec:clothingfilter[''swim''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/swim_off.png"></a></TD>'
  1257. end
  1258. end
  1259. end
  1260. !!sort by filters
  1261. $Headerstring += '<TD>'
  1262. if clothingfilter['number'] = 0:
  1263. clothingfilter['quality'] = 1 & clothingfilter['inhibition'] = 1
  1264. $Headerstring += '<img src="images/system/icons/clothing/number.png"></TD>'
  1265. else
  1266. $Headerstring += '<a href="exec:clothingfilter[''number''] = 0 & clothingfilter[''quality''] = 1 & clothingfilter[''inhibition''] = 1 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/number_off.png"></a></TD>'
  1267. end
  1268. $Headerstring += '<TD>'
  1269. if clothingfilter['quality'] = 0:
  1270. $Headerstring += '<img src="images/system/icons/clothing/quality.png"></TD>'
  1271. else
  1272. $Headerstring += '<a href="exec:clothingfilter[''quality''] = 0 & clothingfilter[''number''] = 1 & clothingfilter[''inhibition''] = 1 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/quality_off.png"></a></TD>'
  1273. end
  1274. $Headerstring += '<TD>'
  1275. if clothingfilter['inhibition'] = 0:
  1276. $Headerstring += '<img src="images/system/icons/clothing/inhibition.png"></TD>'
  1277. else
  1278. $Headerstring += '<a href="exec:clothingfilter[''inhibition''] = 0 & clothingfilter[''quality''] = 1 & clothingfilter[''number''] = 1 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/inhibition_off.png"></a></TD>'
  1279. end
  1280. !! Show only filers
  1281. $Headerstring[1] = '<TD>'
  1282. if clothingfilter['prost_only'] = 0:
  1283. $Headerstring[1] += '<a href="exec:clothingfilter[''prost_only''] = 1 & clothingfilter[''prost''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/prostitute_off.png"></a></TD>'
  1284. else
  1285. $Headerstring[1] += '<a href="exec:clothingfilter[''prost_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/prostitute.png"></a></TD>'
  1286. end
  1287. $Headerstring[1] += '<TD>'
  1288. if clothingfilter['stripper_only'] = 0:
  1289. $Headerstring[1] += '<a href="exec:clothingfilter[''stripper_only''] = 1 & clothingfilter[''stripper''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
  1290. else
  1291. $Headerstring[1] += '<a href="exec:clothingfilter[''stripper_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
  1292. end
  1293. $Headerstring[1] += '<TD>'
  1294. if clothingfilter['bimbo_only'] = 0:
  1295. $Headerstring[1] += '<a href="exec:clothingfilter[''bimbo_only''] = 1 & clothingfilter[''bimbo''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
  1296. else
  1297. $Headerstring[1] += '<a href="exec:clothingfilter[''bimbo_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
  1298. end
  1299. $Headerstring[1] += '<TD>'
  1300. if clothingfilter['conservative_only'] = 0:
  1301. $Headerstring[1] += '<a href="exec:clothingfilter[''conservative_only''] = 1 & clothingfilter[''conservative''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/conservative_off.png"></a></TD>'
  1302. else
  1303. $Headerstring[1] += '<a href="exec:clothingfilter[''conservative_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/conservative.png"></a></TD>'
  1304. end
  1305. $Headerstring[1] += '<TD>'
  1306. if clothingfilter['risque_only'] = 0:
  1307. $Headerstring[1] += '<a href="exec:clothingfilter[''risque_only''] = 1 & clothingfilter[''risque''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/risque_off.png"></a></TD>'
  1308. else
  1309. $Headerstring[1] += '<a href="exec:clothingfilter[''risque_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/risque.png"></a></TD>'
  1310. end
  1311. $Headerstring[1] += '<TD>'
  1312. if clothingfilter['loose_only'] = 0:
  1313. $Headerstring[1] += '<a href="exec:clothingfilter[''loose_only''] = 1 & clothingfilter[''loose''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/loose_off.png"></a></TD>'
  1314. else
  1315. $Headerstring[1] += '<a href="exec:clothingfilter[''loose_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/loose.png"></a></TD>'
  1316. end
  1317. if $ARGS[1] ! 'store':
  1318. $Headerstring[1] += '<TD>'
  1319. if clothingfilter['sport_only'] = 0:
  1320. $Headerstring[1] += '<a href="exec:clothingfilter[''sport_only''] = 1 & clothingfilter[''sport''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/sport_off.png"></a></TD>'
  1321. else
  1322. $Headerstring[1] += '<a href="exec:clothingfilter[''sport_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/sport.png"></a></TD>'
  1323. end
  1324. end
  1325. $Headerstring[1] += '<TD>'
  1326. if clothingfilter['school_only'] = 0:
  1327. $Headerstring[1] += '<a href="exec:clothingfilter[''school_only''] = 1 & clothingfilter[''school''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/school_off.png"></a></TD>'
  1328. else
  1329. $Headerstring[1] += '<a href="exec:clothingfilter[''school_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/school.png"></a></TD>'
  1330. end
  1331. if $ARGS[1] ! 'store':
  1332. $Headerstring[1] += '<TD>'
  1333. if clothingfilter['maid_only'] = 0:
  1334. $Headerstring[1] += '<a href="exec:clothingfilter[''maid_only''] = 1 & clothingfilter[''maid''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/maid_off.png"></a></TD>'
  1335. else
  1336. $Headerstring[1] += '<a href="exec:clothingfilter[''maid_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/maid.png"></a></TD>'
  1337. end
  1338. $Headerstring[1] += '<TD>'
  1339. if clothingfilter['server_only'] = 0:
  1340. $Headerstring[1] += '<a href="exec:clothingfilter[''server_only''] = 1 & clothingfilter[''server''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/server_off.png"></a></TD>'
  1341. else
  1342. $Headerstring[1] += '<a href="exec:clothingfilter[''server_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/server.png"></a></TD>'
  1343. end
  1344. if $ward_list_file = 'clothing':
  1345. $Headerstring[1] += '<TD>'
  1346. if clothingfilter['swim_only'] = 0:
  1347. $Headerstring[1] += '<a href="exec:clothingfilter[''swim_only''] = 1 & clothingfilter[''swim''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/swim_off.png"></a></TD>'
  1348. else
  1349. $Headerstring[1] += '<a href="exec:clothingfilter[''swim_only''] = 0 & gt $ward_list_file, ''clothing_list'', $ward_list_store"><img src="images/system/icons/clothing/swim.png"></a></TD>'
  1350. end
  1351. end
  1352. end
  1353. $Headerstring[2] = '<TH></TH><TH></TH><TH></TH>'
  1354. if $ARGS[1] ! 'store':
  1355. $Headerstring[2] += '<TH></TH>'
  1356. end
  1357. if $ward_list_file = 'clothing':
  1358. $Headerstring[2] += '<TH></TH>'
  1359. end
  1360. $Headerstring[2] += '<TH>Include</TH>'
  1361. if $ARGS[1] ! 'store':
  1362. $Headerstring[2] += '<TH></TH><TH></TH>'
  1363. end
  1364. $Headerstring[2] += '<TH></TH><TH></TH><TH></TH><TH></TH><TH>Sort by</TH><TH></TH>'
  1365. $Headerstring[3] = '<TH></TH><TH></TH><TH></TH>'
  1366. if $ARGS[1] ! 'store':
  1367. $Headerstring[3] += '<TH></TH>'
  1368. end
  1369. if $ward_list_file = 'clothing':
  1370. $Headerstring[3] += '<TH></TH>'
  1371. end
  1372. $Headerstring[3] += '<TH>Only show</TH>'
  1373. '<center><table><<$Headerstring[2]>>'
  1374. '<TR><border=1><<$Headerstring>>'
  1375. '<TR><border=0><<$Headerstring[3]>>'
  1376. '<TR><border=1><<$Headerstring[1]>></table></center>'
  1377. end
  1378. if $ARGS[0] = 'clo_filter':
  1379. !!Exclude filters
  1380. clothingfilter['inc'] = 1
  1381. !!filters, if inc set to 0 they will not display
  1382. if clothingfilter['prost'] = 1 and CloStyle = 4:
  1383. clothingfilter['inc'] = 0
  1384. end
  1385. if clothingfilter['stripper'] = 1 and CloStyle2 = 3:
  1386. clothingfilter['inc'] = 0
  1387. end
  1388. if clothingfilter['bimbo'] = 1 and CloBimbo = 1:
  1389. clothingfilter['inc'] = 0
  1390. end
  1391. if clothingfilter['conservative'] = 1 and CloInhibit <= pcs_inhib - 10:
  1392. clothingfilter['inc'] = 0
  1393. end
  1394. if clothingfilter['risque'] = 1 and (CloInhibit > pcs_inhib - 10) and (CloInhibit <= pcs_inhib):
  1395. clothingfilter['inc'] = 0
  1396. end
  1397. if clothingfilter['loose'] = 1 and CloStyle = 5:
  1398. clothingfilter['inc'] = 0
  1399. end
  1400. if clothingfilter['school'] = 1 and CloStyle2 = 4:
  1401. clothingfilter['inc'] = 0
  1402. end
  1403. if clothingfilter['maid'] = 1 and CloStyle2 = 1:
  1404. clothingfilter['inc'] = 0
  1405. end
  1406. if clothingfilter['server'] = 1 and CloStyle2 = 2:
  1407. clothingfilter['inc'] = 0
  1408. end
  1409. !!only filters
  1410. clothingfilter['only'] = 0
  1411. !!filters, if only set to 1 they will only display those set
  1412. if clothingfilter['prost_only'] = 1 and CloStyle = 4:
  1413. clothingfilter['only'] += 1
  1414. end
  1415. if clothingfilter['stripper_only'] = 1 and CloStyle2 = 3:
  1416. clothingfilter['only'] += 1
  1417. end
  1418. if clothingfilter['bimbo_only'] = 1 and CloBimbo = 1:
  1419. clothingfilter['only'] += 1
  1420. end
  1421. if clothingfilter['conservative_only'] = 1 and CloInhibit <= pcs_inhib - 10:
  1422. clothingfilter['only'] += 1
  1423. end
  1424. if clothingfilter['risque_only'] = 1 and (CloInhibit > pcs_inhib - 10) and (CloInhibit <= pcs_inhib):
  1425. clothingfilter['only'] += 1
  1426. end
  1427. if clothingfilter['loose_only'] = 1 and CloStyle = 5:
  1428. clothingfilter['only'] += 1
  1429. end
  1430. if clothingfilter['school_only'] = 1 and CloStyle2 = 4:
  1431. clothingfilter['only'] += 1
  1432. end
  1433. if clothingfilter['maid_only'] = 1 and CloStyle2 = 1:
  1434. clothingfilter['only'] += 1
  1435. end
  1436. if clothingfilter['server_only'] = 1 and CloStyle2 = 2:
  1437. clothingfilter['only'] += 1
  1438. end
  1439. !!Check total count to make sure it fits all groups selected
  1440. if clothingfilter['only'] = clothingfilter['prost_only'] + clothingfilter['stripper_only'] + clothingfilter['bimbo_only'] + clothingfilter['conservative_only'] + clothingfilter['risque_only'] + clothingfilter['loose_only'] + clothingfilter['school_only'] + clothingfilter['maid_only'] + clothingfilter['server_only']:
  1441. clothingfilter['only'] = 1
  1442. else
  1443. clothingfilter['only'] = 0
  1444. end
  1445. end
  1446. if $ARGS[0] = 'shop_filter_header':
  1447. !! exclude filters
  1448. $Headerstring = '<TD>'
  1449. if clothingfilter['prost'] = 0:
  1450. $Headerstring += '<a href="exec:clothingfilter[''prost''] = 1 & clothingfilter[''prost_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/prostitute.png"></a></TD>'
  1451. else
  1452. $Headerstring += '<a href="exec:clothingfilter[''prost''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/prostitute_off.png"></a></TD>'
  1453. end
  1454. $Headerstring += '<TD>'
  1455. if clothingfilter['stripper'] = 0:
  1456. $Headerstring += '<a href="exec:clothingfilter[''stripper''] = 1 & clothingfilter[''stripper_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
  1457. else
  1458. $Headerstring += '<a href="exec:clothingfilter[''stripper''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
  1459. end
  1460. $Headerstring += '<TD>'
  1461. if clothingfilter['bimbo'] = 0:
  1462. $Headerstring += '<a href="exec:clothingfilter[''bimbo''] = 1 & clothingfilter[''bimbo_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
  1463. else
  1464. $Headerstring += '<a href="exec:clothingfilter[''bimbo''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
  1465. end
  1466. $Headerstring += '<TD>'
  1467. if clothingfilter['conservative'] = 0:
  1468. $Headerstring += '<a href="exec:clothingfilter[''conservative''] = 1 & clothingfilter[''conservative_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/conservative.png"></a></TD>'
  1469. else
  1470. $Headerstring += '<a href="exec:clothingfilter[''conservative''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/conservative_off.png"></a></TD>'
  1471. end
  1472. $Headerstring += '<TD>'
  1473. if clothingfilter['risque'] = 0:
  1474. $Headerstring += '<a href="exec:clothingfilter[''risque''] = 1 & clothingfilter[''risque_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/risque.png"></a></TD>'
  1475. else
  1476. $Headerstring += '<a href="exec:clothingfilter[''risque''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/risque_off.png"></a></TD>'
  1477. end
  1478. $Headerstring += '<TD>'
  1479. if clothingfilter['too_risque'] = 0:
  1480. $Headerstring += '<a href="exec:clothingfilter[''too_risque''] = 1 & clothingfilter[''too_risque_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/too risque.png"></a></TD>'
  1481. else
  1482. $Headerstring += '<a href="exec:clothingfilter[''too_risque''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/too risque_off.png"></a></TD>'
  1483. end
  1484. $Headerstring += '<TD>'
  1485. if clothingfilter['loose'] = 0:
  1486. $Headerstring += '<a href="exec:clothingfilter[''loose''] = 1 & clothingfilter[''loose_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/loose.png"></a></TD>'
  1487. else
  1488. $Headerstring += '<a href="exec:clothingfilter[''loose''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/loose_off.png"></a></TD>'
  1489. end
  1490. $Headerstring += '<TD>'
  1491. if clothingfilter['school'] = 0:
  1492. $Headerstring += '<a href="exec:clothingfilter[''school''] = 1 & clothingfilter[''school_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/school.png"></a></TD>'
  1493. else
  1494. $Headerstring += '<a href="exec:clothingfilter[''school''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/school_off.png"></a></TD>'
  1495. end
  1496. !! sort by filters
  1497. $Headerstring += '<TD>'
  1498. if clothingfilter['number'] = 0:
  1499. clothingfilter['quality'] = 1 & clothingfilter['inhibition'] = 1
  1500. $Headerstring += '<img src="images/system/icons/clothing/number.png"></TD>'
  1501. else
  1502. $Headerstring += '<a href="exec:clothingfilter[''number''] = 0 & clothingfilter[''quality''] = 1 & clothingfilter[''inhibition''] = 1 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/number_off.png"></a></TD>'
  1503. end
  1504. $Headerstring += '<TD>'
  1505. if clothingfilter['quality'] = 0:
  1506. $Headerstring += '<img src="images/system/icons/clothing/quality.png"></TD>'
  1507. else
  1508. $Headerstring += '<a href="exec:clothingfilter[''quality''] = 0 & clothingfilter[''number''] = 1 & clothingfilter[''inhibition''] = 1 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/quality_off.png"></a></TD>'
  1509. end
  1510. $Headerstring += '<TD>'
  1511. if clothingfilter['inhibition'] = 0:
  1512. $Headerstring += '<img src="images/system/icons/clothing/inhibition.png"></TD>'
  1513. else
  1514. $Headerstring += '<a href="exec:clothingfilter[''inhibition''] = 0 & clothingfilter[''quality''] = 1 & clothingfilter[''number''] = 1 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/inhibition_off.png"></a></TD>'
  1515. end
  1516. !! Show only filers
  1517. $Headerstring[1] = '<TD>'
  1518. if clothingfilter['prost_only'] = 0:
  1519. $Headerstring[1] += '<a href="exec:clothingfilter[''prost_only''] = 1 & clothingfilter[''prost''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/prostitute_off.png"></a></TD>'
  1520. else
  1521. $Headerstring[1] += '<a href="exec:clothingfilter[''prost_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/prostitute.png"></a></TD>'
  1522. end
  1523. $Headerstring[1] += '<TD>'
  1524. if clothingfilter['stripper_only'] = 0:
  1525. $Headerstring[1] += '<a href="exec:clothingfilter[''stripper_only''] = 1 & clothingfilter[''stripper''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
  1526. else
  1527. $Headerstring[1] += '<a href="exec:clothingfilter[''stripper_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
  1528. end
  1529. $Headerstring[1] += '<TD>'
  1530. if clothingfilter['bimbo_only'] = 0:
  1531. $Headerstring[1] += '<a href="exec:clothingfilter[''bimbo_only''] = 1 & clothingfilter[''bimbo''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
  1532. else
  1533. $Headerstring[1] += '<a href="exec:clothingfilter[''bimbo_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
  1534. end
  1535. $Headerstring[1] += '<TD>'
  1536. if clothingfilter['conservative_only'] = 0:
  1537. $Headerstring[1] += '<a href="exec:clothingfilter[''conservative_only''] = 1 & clothingfilter[''conservative''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/conservative_off.png"></a></TD>'
  1538. else
  1539. $Headerstring[1] += '<a href="exec:clothingfilter[''conservative_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/conservative.png"></a></TD>'
  1540. end
  1541. $Headerstring[1] += '<TD>'
  1542. if clothingfilter['risque_only'] = 0:
  1543. $Headerstring[1] += '<a href="exec:clothingfilter[''risque_only''] = 1 & clothingfilter[''risque''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/risque_off.png"></a></TD>'
  1544. else
  1545. $Headerstring[1] += '<a href="exec:clothingfilter[''risque_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/risque.png"></a></TD>'
  1546. end
  1547. $Headerstring[1] += '<TD>'
  1548. if clothingfilter['too_risque_only'] = 0:
  1549. $Headerstring[1] += '<a href="exec:clothingfilter[''too_risque_only''] = 1 & clothingfilter[''too_risque''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/too risque_off.png"></a></TD>'
  1550. else
  1551. $Headerstring[1] += '<a href="exec:clothingfilter[''too_risque_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/too risque.png"></a></TD>'
  1552. end
  1553. $Headerstring[1] += '<TD>'
  1554. if clothingfilter['loose_only'] = 0:
  1555. $Headerstring[1] += '<a href="exec:clothingfilter[''loose_only''] = 1 & clothingfilter[''loose''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/loose_off.png"></a></TD>'
  1556. else
  1557. $Headerstring[1] += '<a href="exec:clothingfilter[''loose_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/loose.png"></a></TD>'
  1558. end
  1559. $Headerstring[1] += '<TD>'
  1560. if clothingfilter['school_only'] = 0:
  1561. $Headerstring[1] += '<a href="exec:clothingfilter[''school_only''] = 1 & clothingfilter[''school''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/school_off.png"></a></TD>'
  1562. else
  1563. $Headerstring[1] += '<a href="exec:clothingfilter[''school_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/school.png"></a></TD>'
  1564. end
  1565. $Headerstring[2] = '<TH></TH><TH></TH><TH></TH><TH>Include</TH><TH></TH><TH></TH><TH></TH><TH></TH><TH></TH><TH>Sort by</TH><TH></TH>'
  1566. $Headerstring[3] = '<TH></TH><TH></TH><TH></TH><TH>Only show</TH>'
  1567. '<center><table><<$Headerstring[2]>>'
  1568. '<TR><border=1><<$Headerstring>>'
  1569. '<TR><border=0><<$Headerstring[3]>>'
  1570. '<TR><border=1><<$Headerstring[1]>></table></center>'
  1571. end
  1572. if $ARGS[0] = 'shop_filter':
  1573. !!Exclude filters
  1574. clothingfilter['inc'] = 1
  1575. !!filters, if inc set to 0 they will not display
  1576. if clothingfilter['prost'] = 1 and CloStyle = 4:
  1577. clothingfilter['inc'] = 0
  1578. end
  1579. if clothingfilter['stripper'] = 1 and CloStyle2 = 3:
  1580. clothingfilter['inc'] = 0
  1581. end
  1582. if clothingfilter['bimbo'] = 1 and CloBimbo = 1:
  1583. clothingfilter['inc'] = 0
  1584. end
  1585. if clothingfilter['conservative'] = 1 and CloInhibit <= pcs_inhib - 10:
  1586. clothingfilter['inc'] = 0
  1587. end
  1588. if clothingfilter['risque'] = 1 and (CloInhibit > pcs_inhib - 10) and (CloInhibit <= pcs_inhib):
  1589. clothingfilter['inc'] = 0
  1590. end
  1591. if clothingfilter['too_risque'] = 1 and CloInhibit > pcs_inhib:
  1592. clothingfilter['inc'] = 0
  1593. end
  1594. if clothingfilter['loose'] = 1 and CloStyle = 5:
  1595. clothingfilter['inc'] = 0
  1596. end
  1597. if clothingfilter['school'] = 1 and CloStyle2 = 4:
  1598. clothingfilter['inc'] = 0
  1599. end
  1600. !!only filters
  1601. clothingfilter['only'] = 0
  1602. !!filters, if only set to 1 they will only display those set
  1603. if clothingfilter['prost_only'] = 1 and CloStyle = 4:
  1604. clothingfilter['only'] += 1
  1605. end
  1606. if clothingfilter['stripper_only'] = 1 and CloStyle2 = 3:
  1607. clothingfilter['only'] += 1
  1608. end
  1609. if clothingfilter['bimbo_only'] = 1 and CloBimbo = 1:
  1610. clothingfilter['only'] += 1
  1611. end
  1612. if clothingfilter['conservative_only'] = 1 and CloInhibit <= pcs_inhib - 10:
  1613. clothingfilter['only'] += 1
  1614. end
  1615. if clothingfilter['risque_only'] = 1 and (CloInhibit > pcs_inhib - 10) and (CloInhibit <= pcs_inhib):
  1616. clothingfilter['only'] += 1
  1617. end
  1618. if clothingfilter['too_risque_only'] = 1 and CloInhibit > pcs_inhib:
  1619. clothingfilter['inc'] += 1
  1620. end
  1621. if clothingfilter['loose_only'] = 1 and CloStyle = 5:
  1622. clothingfilter['only'] += 1
  1623. end
  1624. if clothingfilter['school_only'] = 1 and CloStyle2 = 4:
  1625. clothingfilter['only'] += 1
  1626. end
  1627. !!Check total count to make sure it fits all groups selected
  1628. if clothingfilter['only'] = clothingfilter['prost_only'] + clothingfilter['stripper_only'] + clothingfilter['bimbo_only'] + clothingfilter['conservative_only'] + clothingfilter['risque_only'] + clothingfilter['too_risque_only'] + clothingfilter['loose_only'] + clothingfilter['school_only']:
  1629. clothingfilter['only'] = 1
  1630. else
  1631. clothingfilter['only'] = 0
  1632. end
  1633. end
  1634. --- clothing_QV ---------------------------------