clothing.qsrc 47 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191
  1. # clothing
  2. !!2021/04/15
  3. menu_off = 1
  4. $clothing_list_line = {
  5. !! a single line in a clothing list (wardrobe, etc)
  6. !! ARGS 0 - action type (wardrobe, sell, resize, store, forsale)
  7. !! ARGS 1 - clothing type
  8. !! ARGS 2 - clothing index
  9. gs 'themes', 'clothing', 1
  10. $RESULT = '<TR bgcolor='+$bgcolor+'>'
  11. if Enable_clothwidth > 0:
  12. clothing_temp = Enable_clothwidth - 1
  13. else
  14. clothing_temp = 150 & !clothing widdefault to 150
  15. end
  16. $RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>" width="<<clothing_temp>>"><p><<$ARGS[1]>> outfit</p></a></TD>'
  17. killvar 'clothing_temp'
  18. $swimwear_description = ''
  19. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  20. if $ARGS[1] ! 'gm_school' or ARGS[2] ! 6:
  21. $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>_h[<<ARGS[2]>>]' + '</TD>'
  22. if $ARGS[1] ! 'danilovich' and $ARGS[1] ! 'coat' and CloStyle ! 5:
  23. $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>_b[<<ARGS[2]>>]' + '</TD>'
  24. else
  25. $RESULT += '<TD></TD>'
  26. end
  27. else
  28. $RESULT += '<TD colspan="2"></TD>'
  29. end
  30. if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
  31. $RESULT += '<TD>A hessian sack the hunters gave you.</TD>'
  32. elseif $swimwear_description = '':
  33. gs 'clothing_descriptions'
  34. $RESULT += '<TD><<FUNC(''$short_description'', $ARGS[1])>> <<ARGS[2]>><br/><br/><<$description>></TD>'
  35. else
  36. $RESULT += '<TD>' + $swimwear_description + '</TD>'
  37. end
  38. if CloBimbo = 1:
  39. $RESULT += '<TD>Yes</TD>'
  40. else
  41. $RESULT += '<TD>No</TD>'
  42. end
  43. if CloStyle = 4:
  44. $RESULT += '<TD>Yes</TD>'
  45. else
  46. $RESULT += '<TD>No</TD>'
  47. end
  48. $RESULT += '<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a>'
  49. if $ARGS[0] ! 'sell' and $ARGS[0] ! 'resize':
  50. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $ARGS[1] = 'gm_school' and ARGS[2] = 6:
  51. $RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Wear</a></TD>'
  52. elseif $ARGS[2] ! 'danilovich_swimsuit' and $ARGS[2] ! 'scandalicious_bikinis' and $ARGS[2] ! 'scandalicious_swimsuit' and $ARGS[2] ! 'allure_bikinis' and $ARGS[2] ! 'allure_bikinis' and dyneval('RESULT = <<$ARGS[1]>>_h[<<ARGS[2]>>]') > 0:
  53. if $ARGS[1] ! 'danilovich' and CloStyle ! 5 and (dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') < (pcs_hips - 8) or dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') > (pcs_hips + 8)) or (ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1):
  54. $RESULT += '</TD>'
  55. else
  56. $RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Wear</a></TD>'
  57. end
  58. else
  59. $RESULT += '</TD>'
  60. end
  61. $RESULT += '<TD>'
  62. if cloc ! 1:$RESULT += ' <a href="exec:gt ''clothing'', ''dest1'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> ">Storage</a><BR>'
  63. if cloc ! 0:$RESULT += ' <a href="exec:gt ''clothing'', ''dest0'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> ">Wardrobe</a><BR>'
  64. if $ARGS[1] ! 'gm_school' or ARGS[2] ! 6:
  65. if cloc ! 2:$RESULT += ' <a href="exec:gt ''clothing'', ''dest2'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> ">Unwanted</a>'
  66. end
  67. $RESULT += '</TD>'
  68. end
  69. }
  70. !!cloc, 0 = wardrobe, 1 = storage, 2 = unwanted
  71. if $ARGS[0] = 'dest0':
  72. *clr
  73. dynamic '<<$ARGS[2]>>_s[<<ARGS[3]>>] = 0'
  74. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  75. end
  76. if $ARGS[0] = 'dest1':
  77. *clr
  78. dynamic '<<$ARGS[2]>>_s[<<ARGS[3]>>] = 1'
  79. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  80. end
  81. if $ARGS[0] = 'dest2':
  82. *clr
  83. dynamic '<<$ARGS[2]>>_s[<<ARGS[3]>>] = 2'
  84. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  85. end
  86. if $ARGS[0] = 'view_clothing_list':
  87. !! ARGS 0 - view_clothing_list
  88. !! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
  89. !! ARGS 2 - Shop name (kats, moncheri, gm, fashionista, sexshop, exhibitshop, dolls, sports)
  90. if $pursepantytype ! '' or $pursebratype ! '' and $ARGS[1] ! 'resize' and $ARGS[1] ! 'sell':
  91. '<center><b>You put the '+iif($pursepantytype ! '','panties','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','bra','')+' from your purse back in the wardrobe.</b></center><br>'
  92. killvar '$pursepantytype' & killvar 'pursepantynumber'
  93. killvar '$pursebratype' & killvar 'pursebranumber'
  94. end
  95. if $ARGS[1] = 'wardrobe':
  96. $ward_list_page = $ARGS[1]
  97. '<h3><center><b><font color="maroon">Wardrobe list</font></b></center></h3>'
  98. elseif $ARGS[1] = 'store':
  99. $ward_list_page = $ARGS[1]
  100. '<h3><center><b><font color="maroon">Stored clothing list</font></b></center></h3>'
  101. elseif $ARGS[1] = 'unwanted':
  102. $ward_list_page = $ARGS[1]
  103. '<h3><center><b><font color="maroon">Unwanted clothing list</font></b></center></h3>'
  104. elseif $ARGS[1] = 'sell':
  105. $ward_list_page = $ARGS[1]
  106. '<h3><center><b><font color="maroon">Choose an item to sell</font></b></center></h3>'
  107. end
  108. if $ARGS[2] = 'gm' or $ARGS[2] = 'gm_outfits' or $ARGS[2] = 'gm_dress' or $ARGS[2] = 'gm_office' or $ARGS[2] = 'gm_school' or $ARGS[2] = 'gm_maid' or $ARGS[2] = 'gm_server':
  109. !'<center><b><font color="maroon">Viewing clothes from G&M</font></b></center>'
  110. '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
  111. elseif $ARGS[2] = 'kats':
  112. !'<center><b><font color="maroon">Viewing clothes from PussyKats</font></b></center>'
  113. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  114. elseif $ARGS[2] = 'fashionista':
  115. !'<center><b><font color="maroon">Viewing clothes from Fashionista</font></b></center>'
  116. '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
  117. elseif $ARGS[2] = 'moncheri':
  118. !'<center><b><font color="maroon">Viewing clothes from Mon Cheri</font></b></center>'
  119. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  120. elseif $ARGS[2] = 'sexshop':
  121. !'<center><b><font color="maroon">Viewing clothes from the sex shop</font></b></center>'
  122. '<center><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></center>'
  123. elseif $ARGS[2] = 'exhibitshop':
  124. !'<center><b><font color="maroon">Viewing clothes from the Exhibitionist shop</font></b></center>'
  125. '<center><img src="images/locations/pushkin/exhibitshop/shop_name.png"></center>'
  126. elseif $ARGS[2] = 'dolls':
  127. !'<center><b><font color="maroon">Viewing clothes from Patchwork Dolls</font></b></center>'
  128. '<center><img src="images/locations/city/island/dolls/shop_name.png"></center>'
  129. elseif $ARGS[2] = 'sports':
  130. !'<center><b><font color="maroon">Viewing sportswear from Danilovich</font></b></center>'
  131. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  132. elseif $ARGS[2] = 'scandalicious':
  133. !'<center><b><font color="maroon">Viewing clothes from Scandalicious</font></b></center>'
  134. '<center><img src="images/locations/city/citycenter/mall/scandalicious.png"></center>'
  135. elseif $ARGS[2] = 'scandalicious_swimwear':
  136. !'<center><b><font color="maroon">Viewing Swimwear from scandalicious</font></b></center>'
  137. '<center><img src="images/locations/city/citycenter/mall/scandalicious_swimwear.png"></center>'
  138. elseif $ARGS[2] = 'allure':
  139. !'<center><b><font color="maroon">Viewing Swimwear from allure</font></b></center>'
  140. '<center><img src="images/locations/pavlovsk/commercial/allure/shop_name.png"></center>'
  141. elseif $ARGS[2] = 'market':
  142. !'<center><b><font color="maroon">Viewing Swimwear from allure</font></b></center>'
  143. '<center>Clothing from the market</center>'
  144. *nl
  145. else
  146. '<center><b><font color="maroon">Click on a shop name to view clothes from that shop</font></b></center>'
  147. if $wloc = 'wardrobe':
  148. act 'Return': killvar '$ward_list_store' & gt 'wardrobe', 'start'
  149. elseif $ARGS[1] = 'sell' or $ARGS[1] = 'resize':
  150. act 'Leave': killvar '$ward_list_store' & gt $loc, $loc_arg
  151. else
  152. act 'Leave': killvar '$ward_list_store' & gt $loc, $loc_arg
  153. end
  154. end
  155. *nl
  156. if $ARGS[1] ! 'sell':
  157. $clothing_header = '<center><table border=1>'
  158. if $ARGS[1] ! 'wardrobe': $clothing_header += '<TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH>'
  159. $clothing_header += '<TH><a href="exec:gt ''clothing_QV'', ''list'', ''<<$ward_list_store>>''">Switch to icons</a></TH>'
  160. if $ARGS[1] ! 'store': $clothing_header += '<TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH>'
  161. if $ARGS[1] ! 'unwanted': $clothing_header += '<TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></center>'
  162. $clothing_header
  163. if $ARGS[1] = 'wardrobe':
  164. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  165. elseif $ARGS[1] = 'store':
  166. '<center>These are the clothes you have stored that do not show up in your wardrobe list and cannot be sold at the market.</center><br>'
  167. elseif $ARGS[1] = 'unwanted':
  168. '<center>These are the clothes you''ve marked to be sold at the market.</center><br>'
  169. end
  170. end
  171. if $ARGS[2] = '':
  172. if ARRSIZE('gm_outfits') > 0 or ARRSIZE('gm_dress') > 0:'<center><a href="exec:$ward_list_store = ''gm'' & gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''gm''"><img src="images/locations/city/citycenter/mall/gm.png"></a></center>'
  173. if ARRSIZE('gm_school') > 0:'<center><a href="exec:$ward_list_store = ''gm_school'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_school''"><img src="images/pc/items/gm/school.png"></a></center>'
  174. if ARRSIZE('gm_office') > 0:'<center><a href="exec:$ward_list_store = ''gm_office'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_office''"><img src="images/pc/items/gm/officewear.png"></a></center>'
  175. if ARRSIZE('gm_maid') > 0:'<center><a href="exec:$ward_list_store = ''gm_maid'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_maid''"><img src="images/pc/items/gm/gm_maid.png"></a></center>'
  176. if ARRSIZE('gm_server') > 0:'<center><a href="exec:$ward_list_store = ''gm_server'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_server''"><img src="images/pc/items/gm/gm_server.png"></a></center>'
  177. if ARRSIZE('misc_outfits') > 0:'<center><a href="exec:$ward_list_store = ''misc'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''misc''"><img src="images/pc/items/misc/misc.png"></a></center>'
  178. if ARRSIZE('cats_outfits') > 0 or ARRSIZE('cats_dress') > 0:'<center><a href="exec:$ward_list_store = ''kats'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  179. if ARRSIZE('flamingos_outfits') > 0 or ARRSIZE('flamingos_dress') > 0:'<center><a href="exec:$ward_list_store = ''flamingos'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''flamingos''"><img src="images/locations/city/island/flamingos/shop_name.png"></a></center>'
  180. if ARRSIZE('coco_outfits') > 0 or ARRSIZE('coco_dress') > 0:'<center><a href="exec:$ward_list_store = ''coco'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''coco''"><img src="images/locations/pavlovsk/coco/shop_name.png"></a></center>'
  181. if ARRSIZE('fashionista') > 0:'<center><a href="exec:$ward_list_store = ''fashionista'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionista.png"></a></center>'
  182. if ARRSIZE('moncheri_gown') > 0 or ARRSIZE('moncheri_dress') > 0:'<center><a href="exec:$ward_list_store = ''moncheri'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  183. if ARRSIZE('scandalicious_outfits') > 0 or ARRSIZE('scandalicious_dress') > 0:'<center><a href="exec:$ward_list_store = ''scandalicious'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''scandalicious''"><img src="images/locations/city/citycenter/mall/scandalicious.png"></a></center>'
  184. if ARRSIZE('scandalicious_bikinis') > 0 or ARRSIZE('scandalicious_swimsuit') > 0:'<center><a href="exec:$ward_list_store = ''scandalicious_swimwear'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''scandalicious_swimwear''"><img src="images/locations/city/citycenter/mall/scandalicious_swimwear.png"></a></center>'
  185. if ARRSIZE('allure_bikinis') > 0 or ARRSIZE('allure_swimsuit') > 0:'<center><a href="exec:$ward_list_store = ''allure'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''allure''"><img src="images/locations/pavlovsk/commercial/allure/shop_name.png"></a></center>'
  186. if ARRSIZE('fancy_burlesque') > 0:'<center><a href="exec:$ward_list_store = ''fancypancy'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''fancypancy''"><img src="images/locations/pushkin/fancypancy/shop_name.png"></a></center>'
  187. if ARRSIZE('eroto_dress') > 0 or ARRSIZE('eroto_outfits') > 0 or ARRSIZE('eroto_strip') > 0:'<center><a href="exec:$ward_list_store = ''sexshop'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''sexshop''"><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></a></center>'
  188. if ARRSIZE('salacious_outfits') > 0 or ARRSIZE('salacious_dress') > 0:'<center><a href="exec:$ward_list_store = ''exhibitshop'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''exhibitshop''"><img src="images/locations/pushkin/exhibitshop/shop_name.png"></a></center>'
  189. if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:'<center><a href="exec:$ward_list_store = ''dolls'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''dolls''"><img src="images/locations/city/island/dolls/shop_name.png"></a></center>'
  190. if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'<center><a href="exec:$ward_list_store = ''bomba'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''bomba''"><img src="images/locations/pushkin/bomba/shop_name.png"></a></center>'
  191. if ARRSIZE('danilovich') > 0:'<center><a href="exec:$ward_list_store = ''sports'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  192. if ARRSIZE('materinstvo_dress') > 0:'<center><a href="exec:$ward_list_store = ''materinstvo'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''materinstvo''"><img src="images/locations/city/citycenter/mall/mommy.png"></a></center>'
  193. if ARRSIZE('market_outfits') > 0:'<center><a href="exec:$ward_list_store = ''market'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''market''">Clothes from the market</a></center>'
  194. else
  195. $bgcolor='#f3f4ee'
  196. if $ARGS[1] = 'sell':
  197. '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Strength</TH><TH>Hip size</TH><TH>Description</TH><TH>Bimbo</TH><TH>Prostitute</TH><TH>Actions</TH>'
  198. else
  199. '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Strength</TH><TH>Hip size</TH><TH>Description</TH><TH>Bimbo</TH><TH>Prostitute</TH><TH>Actions</TH><TH>Move to</TH>'
  200. end
  201. if $ARGS[1] = 'store':
  202. cloc = 1
  203. elseif $ARGS[1] = 'unwanted':
  204. cloc = 2
  205. else
  206. cloc = 0
  207. end
  208. if $ARGS[2] = 'gm':
  209. $ward_list_store = $ARGS[2]
  210. i = 1
  211. :loopgm_outfits
  212. if gm_outfits[i] = 1 and gm_outfits_s[i] = cloc and ($clothingworntype ! 'gm_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'gm_outfits', i)
  213. i += 1
  214. if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits'
  215. $ward_list_store = $ARGS[2]
  216. i = 1
  217. :loopgm_dress
  218. if gm_dress[i] = 1 and gm_dress_s[i] = cloc and ($clothingworntype ! 'gm_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'gm_dress', i)
  219. i += 1
  220. if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress'
  221. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  222. gs 'clothing', 'clothwidth'
  223. end
  224. if $ARGS[2] = 'gm_office':
  225. $ward_list_store = $ARGS[2]
  226. i = 1
  227. :loopoffice
  228. if gm_office[i] = 1 and gm_office_s[i] = cloc and ($clothingworntype ! 'gm_office' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'gm_office', i)
  229. i += 1
  230. if i <= ARRSIZE('gm_office'):jump 'loopoffice'
  231. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  232. gs 'clothing', 'clothwidth'
  233. end
  234. if $ARGS[2] = 'gm_school':
  235. $ward_list_store = $ARGS[2]
  236. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and gm_school_s[6] = cloc and ($clothingworntype ! 'gm_school' or clothingwornnumber ! 6):*P dyneval($clothing_list_line, $ARGS[1], 'gm_school', 6)
  237. i = 1
  238. :loopschool
  239. if gm_school[i] = 1 and gm_school_s[i] = cloc and ($clothingworntype ! 'gm_school' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'gm_school', i)
  240. i += 1
  241. if i = 6: i = 7
  242. if i <= ARRSIZE('gm_school'):jump 'loopschool'
  243. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  244. gs 'clothing', 'clothwidth'
  245. end
  246. if $ARGS[2] = 'gm_maid':
  247. $ward_list_store = $ARGS[2]
  248. i = 1
  249. :loopgm_maid
  250. if gm_maid[i] = 1 and gm_maid_s[i] = cloc and ($clothingworntype ! 'gm_maid' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'gm_maid', i)
  251. i += 1
  252. if i <= ARRSIZE('gm_maid'):jump 'loopgm_maid'
  253. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  254. gs 'clothing', 'clothwidth'
  255. end
  256. if $ARGS[2] = 'gm_server':
  257. $ward_list_store = $ARGS[2]
  258. i = 1
  259. :loopgm_server
  260. if gm_server[i] = 1 and gm_server_s[i] = cloc and ($clothingworntype ! 'gm_server' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'gm_server', i)
  261. i += 1
  262. if i <= ARRSIZE('gm_server'):jump 'loopgm_server'
  263. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  264. gs 'clothing', 'clothwidth'
  265. end
  266. if $ARGS[2] = 'misc':
  267. $ward_list_store = $ARGS[2]
  268. i = 1
  269. :loopmisc_outfits
  270. if misc_outfits[i] = 1 and misc_outfits_s[i] = cloc and ($clothingworntype ! 'misc_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'misc_outfits', i)
  271. i += 1
  272. if i <= ARRSIZE('misc_outfits'):jump 'loopmisc_outfits'
  273. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  274. gs 'clothing', 'clothwidth'
  275. end
  276. if $ARGS[2] = 'kats':
  277. $ward_list_store = $ARGS[2]
  278. i = 1
  279. :loopcats_dress
  280. if cats_dress[i] = 1 and cats_dress_s[i] = cloc and ($clothingworntype ! 'cats_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cats_dress', i)
  281. i += 1
  282. if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
  283. i = 1
  284. :loopcats_outfits
  285. if cats_outfits[i] = 1 and cats_outfits_s[i] = cloc and ($clothingworntype ! 'cats_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cats_outfits', i)
  286. i += 1
  287. if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits'
  288. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  289. gs 'clothing', 'clothwidth'
  290. end
  291. if $ARGS[2] = 'flamingos':
  292. $ward_list_store = $ARGS[2]
  293. i = 1
  294. :loopflamingos_dress
  295. if flamingos_dress[i] = 1 and flamingos_dress_s[i] = cloc and ($clothingworntype ! 'flamingos_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'flamingos_dress', i)
  296. i += 1
  297. if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
  298. i = 1
  299. :loopflamingos_outfits
  300. if flamingos_outfits[i] = 1 and flamingos_outfits_s[i] = cloc and ($clothingworntype ! 'flamingos_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'flamingos_outfits', i)
  301. i += 1
  302. if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits'
  303. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  304. gs 'clothing', 'clothwidth'
  305. end
  306. if $ARGS[2] = 'coco':
  307. $ward_list_store = $ARGS[2]
  308. i = 1
  309. :loopcoco_dress
  310. if coco_dress[i] = 1 and coco_dress_s[i] = cloc and ($clothingworntype ! 'coco_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'coco_dress', i)
  311. i += 1
  312. if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
  313. i = 1
  314. :loopcoco_outfits
  315. if coco_outfits[i] = 1 and coco_outfits_s[i] = cloc and ($clothingworntype ! 'coco_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'coco_outfits', i)
  316. i += 1
  317. if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfits'
  318. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  319. gs 'clothing', 'clothwidth'
  320. end
  321. if $ARGS[2] = 'fashionista':
  322. $ward_list_store = $ARGS[2]
  323. i = 1
  324. :loopfashionista
  325. if fashionista[i] = 1 and fashionista_s[i] = cloc and ($clothingworntype ! 'fashionista' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fashionista', i)
  326. i += 1
  327. if i <= ARRSIZE('fashionista'):jump 'loopfashionista'
  328. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  329. gs 'clothing', 'clothwidth'
  330. end
  331. if $ARGS[2] = 'moncheri':
  332. $ward_list_store = $ARGS[2]
  333. i = 1
  334. :loopmoncheri_dress
  335. if moncheri_dress[i] = 1 and moncheri_dress_s[i] = cloc and ($clothingworntype ! 'moncheri_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'moncheri_dress', i)
  336. i += 1
  337. if i <= ARRSIZE('moncheri_dress'):jump 'loopmoncheri_dress'
  338. i = 1
  339. :loopmoncheri_gown
  340. if moncheri_gown[i] = 1 and moncheri_gown_s[i] = cloc and ($clothingworntype ! 'moncheri_gown' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'moncheri_gown', i)
  341. i += 1
  342. if i <= ARRSIZE('moncheri_gown'):jump 'loopmoncheri_gown'
  343. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  344. gs 'clothing', 'clothwidth'
  345. end
  346. if $ARGS[2] = 'scandalicious':
  347. $ward_list_store = $ARGS[2]
  348. i = 1
  349. :loopscandalicious_dress
  350. if scandalicious_dress[i] = 1 and scandalicious_dress_s[i] = cloc and ($clothingworntype ! 'scandalicious_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'scandalicious_dress', i)
  351. i += 1
  352. if i <= ARRSIZE('scandalicious_dress'):jump 'loopscandalicious_dress'
  353. i = 1
  354. :loopscandalicious_outfits
  355. if scandalicious_outfits[i] = 1 and scandalicious_outfits_s[i] = cloc and ($clothingworntype ! 'scandalicious_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'scandalicious_outfits', i)
  356. i += 1
  357. if i <= ARRSIZE('scandalicious_outfits'):jump 'loopscandalicious_outfits'
  358. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  359. gs 'clothing', 'clothwidth'
  360. end
  361. if $ARGS[2] = 'scandalicious_swimwear':
  362. $ward_list_store = $ARGS[2]
  363. i = 1
  364. :loopscandalicious_bikinis
  365. if scandalicious_bikinis[i] = 1 and scandalicious_bikinis_s[i] = cloc and ($clothingworntype ! 'scandalicious_bikinis' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'scandalicious_bikinis', i)
  366. i += 1
  367. if i <= ARRSIZE('scandalicious_bikinis'):jump 'loopscandalicious_bikinis'
  368. $ward_list_store = $ARGS[2]
  369. i = 1
  370. :loopscandalicious_swimsuit
  371. if scandalicious_swimsuit[i] = 1 and scandalicious_swimsuit_s[i] = cloc and ($clothingworntype ! 'scandalicious_swimsuit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'scandalicious_swimsuit', i)
  372. i += 1
  373. if i <= ARRSIZE('scandalicious_swimsuit'):jump 'loopscandalicious_swimsuit'
  374. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  375. gs 'clothing', 'clothwidth'
  376. end
  377. if $ARGS[2] = 'allure':
  378. $ward_list_store = $ARGS[2]
  379. i = 1
  380. :loopallure_bikinis
  381. if allure_bikinis[i] = 1 and allure_bikinis_s[i] = cloc and ($clothingworntype ! 'allure_bikinis' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'allure_bikinis', i)
  382. i += 1
  383. if i <= ARRSIZE('allure_bikinis'):jump 'loopallure_bikinis'
  384. $ward_list_store = $ARGS[2]
  385. i = 1
  386. :loopallure_swimsuit
  387. if allure_swimsuit[i] = 1 and allure_swimsuit_s[i] = cloc and ($clothingworntype ! 'allure_swimsuit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'allure_swimsuit', i)
  388. i += 1
  389. if i <= ARRSIZE('allure_swimsuit'):jump 'loopallure_swimsuit'
  390. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  391. gs 'clothing', 'clothwidth'
  392. end
  393. if $ARGS[2] = 'sexshop':
  394. $ward_list_store = $ARGS[2]
  395. i = 1
  396. :looperoto_dress
  397. if eroto_dress[i] = 1 and eroto_dress_s[i] = cloc and ($clothingworntype ! 'eroto_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'eroto_dress', i)
  398. i += 1
  399. if i <= ARRSIZE('eroto_dress'):jump 'looperoto_dress'
  400. $ward_list_store = $ARGS[2]
  401. i = 1
  402. :looperoto_outfits
  403. if eroto_outfits[i] = 1 and eroto_outfits_s[i] = cloc and ($clothingworntype ! 'eroto_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'eroto_outfits', i)
  404. i += 1
  405. if i <= ARRSIZE('eroto_outfits'):jump 'looperoto_outfits'
  406. $ward_list_store = $ARGS[2]
  407. i = 1
  408. :looperoto_strip
  409. if eroto_strip[i] = 1 and eroto_strip_s[i] = cloc and ($clothingworntype ! 'eroto_strip' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'eroto_strip', i)
  410. i += 1
  411. if i <= ARRSIZE('eroto_strip'):jump 'looperoto_strip'
  412. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  413. gs 'clothing', 'clothwidth'
  414. end
  415. if $ARGS[2] = 'exhibitshop':
  416. $ward_list_store = $ARGS[2]
  417. i = 1
  418. :loopsalacious_dress
  419. if salacious_dress[i] = 1 and salacious_dress_s[i] = cloc and ($clothingworntype ! 'salacious_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'salacious_dress', i)
  420. i += 1
  421. if i <= ARRSIZE('salacious_dress'):jump 'loopsalacious_dress'
  422. $ward_list_store = $ARGS[2]
  423. i = 1
  424. :loopsalacious_outfits
  425. if salacious_outfits[i] = 1 and salacious_outfits_s[i] = cloc and ($clothingworntype ! 'salacious_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'salacious_outfits', i)
  426. i += 1
  427. if i <= ARRSIZE('salacious_outfits'):jump 'loopsalacious_outfits'
  428. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  429. gs 'clothing', 'clothwidth'
  430. end
  431. if $ARGS[2] = 'fancypancy':
  432. $ward_list_store = $ARGS[2]
  433. i = 1
  434. :loopfancy_burlesque
  435. if fancy_burlesque[i] = 1 and fancy_burlesque_s[i] = cloc and ($clothingworntype ! 'fancy_burlesque' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fancy_burlesque', i)
  436. i += 1
  437. if i <= ARRSIZE('fancy_burlesque'):jump 'loopfancy_burlesque'
  438. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  439. gs 'clothing', 'clothwidth'
  440. end
  441. if $ARGS[2] = 'dolls':
  442. cla
  443. $ward_list_store = $ARGS[2]
  444. i = 1
  445. :loopdolls_outfits
  446. if dolls_outfits[i] = 1 and dolls_outfits_s[i] = cloc and ($clothingworntype ! 'dolls_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'dolls_outfits', i)
  447. i += 1
  448. if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits'
  449. $ward_list_store = $ARGS[2]
  450. i = 1
  451. :loopdolls_dress
  452. if dolls_dress[i] = 1 and dolls_dress_s[i] = cloc and ($clothingworntype ! 'dolls_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'dolls_dress', i)
  453. i += 1
  454. if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
  455. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  456. gs 'clothing', 'clothwidth'
  457. end
  458. if $ARGS[2] = 'bomba':
  459. cla
  460. $ward_list_store = $ARGS[2]
  461. i = 1
  462. :loopbomba_outfits
  463. if bomba_outfits[i] = 1 and bomba_outfits_s[i] = cloc and ($clothingworntype ! 'bomba_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'bomba_outfits', i)
  464. i += 1
  465. if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits'
  466. i = 1
  467. :loopbomba_dress
  468. if bomba_dress[i] = 1 and bomba_dress_s[i] = cloc and ($clothingworntype ! 'bomba_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'bomba_dress', i)
  469. i += 1
  470. if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
  471. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  472. gs 'clothing', 'clothwidth'
  473. end
  474. if $ARGS[2] = 'sports':
  475. $ward_list_store = $ARGS[2]
  476. i = 1
  477. :loopdanilovich
  478. if danilovich[i] = 1 and danilovich_s[i] = cloc and ($clothingworntype ! 'danilovich' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'danilovich', i)
  479. i += 1
  480. if i <= ARRSIZE('danilovich'):jump 'loopdanilovich'
  481. i = 1
  482. :loopdanilovich_swimsuit
  483. if danilovich_swimsuit[i] = 1 and danilovich_swimsuit_s[i] = cloc :*P dyneval($clothing_list_line, $ARGS[1], 'danilovich_swimsuit', i)
  484. i += 1
  485. if i <= ARRSIZE('danilovich_swimsuit'):jump 'loopdanilovich_swimsuit'
  486. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  487. gs 'clothing', 'clothwidth'
  488. end
  489. if $ARGS[2] = 'market':
  490. $ward_list_store = $ARGS[2]
  491. i = 1
  492. :loopmarket_outfits
  493. if market_outfits[i] = 1 and market_outfits_s[i] = cloc and ($clothingworntype ! 'market_outfits' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'market_outfits', i)
  494. i += 1
  495. if i <= ARRSIZE('market_outfits'):jump 'loopmarket_outfits'
  496. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  497. gs 'clothing', 'clothwidth'
  498. end
  499. if $ARGS[2] = 'materinstvo':
  500. $ward_list_store = $ARGS[2]
  501. i = 1
  502. :loopmaterinstvo_dress
  503. if materinstvo_dress[i] = 1 and materinstvo_dress_s[i] = cloc and ($clothingworntype ! 'materinstvo_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'materinstvo_dress', i)
  504. i += 1
  505. if i <= ARRSIZE('materinstvo_dress'):jump 'loopmaterinstvo_dress'
  506. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  507. gs 'clothing', 'clothwidth'
  508. end
  509. '</table>'
  510. end
  511. end
  512. if $ARGS[0] = 'clothwidth':
  513. act 'Set image size for this view':
  514. Enable_clothwidth = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
  515. if Enable_clothwidth < 50:
  516. Enable_clothwidth = 50
  517. elseif Enable_clothwidth > 500:
  518. Enable_clothwidth = 500
  519. end
  520. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  521. end
  522. end
  523. if $ARGS[0] = 'view_clothing_item':
  524. !! ARGS 0 - view_clothing_item
  525. !! ARGS 1 = action type (wardrobe, shop, sell, resize)
  526. !! ARGS 2 - clothing type
  527. !! ARGS 3 - clothing index
  528. !! ARGS 4 - price for shop
  529. $swimwear_description = ''
  530. cla
  531. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[2], ARGS[3])>>"></center>'
  532. gs 'clothing_attributes', $ARGS[2], ARGS[3]
  533. $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  534. $RESULT += '<<ARGS[3]>>'
  535. '<<$RESULT>>'
  536. if $ARGS[2] = 'misc_outfits' and ARGS[3] = 1:
  537. 'A hessian sack the hunters gave you.'
  538. elseif $swimwear_description = '':
  539. gs 'clothing_descriptions'
  540. '<<$description>>'
  541. else
  542. $swimwear_description
  543. end
  544. if CloBimbo = 1 and cheatbimbo = 0:'This item is considered bimbo clothing.'
  545. if CloStyle = 4:'This outfit can be used for prostitution.'
  546. if CloInhibit > 10:
  547. if CloInhibit + 10 > pcs_inhib and CloInhibit <= pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  548. end
  549. !!CloStyle2: 1 Maid, 2 Server, 3 Stripper, 4 School
  550. if CloStyle2 = 1: 'This is a maid outfit.'
  551. if CloStyle2 = 2: 'This outfit is a server uniform.'
  552. if CloStyle2 = 3: 'This outfit is a stripper uniform, suitable for jobs that require one.'
  553. if CloStyle2 = 4:
  554. if CloInhibit <= 10:
  555. '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
  556. elseif CloSkirt < 5 and CloThinness < 5 and CloBra = 0:
  557. if CloQuality = 4:
  558. '<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>'
  559. else
  560. '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
  561. end
  562. elseif CloSkirt = 5 and CloThinness < 5 and CloBra = 0:
  563. if CloQuality = 4:
  564. '<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>'
  565. else
  566. '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
  567. end
  568. else
  569. '<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>'
  570. end
  571. end
  572. if $ARGS[1] ! 'shop' and ($ARGS[2] ! 'gm_school' or ARGS[3] ! 6):
  573. $RESULT = '(strength '
  574. dynamic '$RESULT += <<$ARGS[2]>>_h[<<ARGS[3]>>]'
  575. if $ARGS[2] ! 'danilovich' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  576. $RESULT += ', hip size '
  577. dynamic '$RESULT += <<$ARGS[2]>>_b[<<ARGS[3]>>]'
  578. end
  579. $RESULT += ')'
  580. '<<$RESULT>>'
  581. end
  582. if $ARGS[1] = 'shop':
  583. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  584. 'You already own this item.'
  585. act 'Leave': gt $loc, $loc_arg
  586. else
  587. if $ARGS[2] = 'coat' and ARGS[3] = 5:
  588. price = ARGS[4]
  589. else
  590. price = ('<<ARGS[4]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  591. price = price / 50 * 50
  592. end
  593. 'Price: <<price>> <b>₽</b>'
  594. act 'Leave': gt $loc, $loc_arg
  595. if CloInhibit > pcs_inhib:
  596. 'You don''t feel daring enough to wear an outfit this revealing and can''t bring yourself to buy it.'
  597. elseif karta + bankDebtLimit < Price and money < Price:
  598. 'You cannot afford this outfit.'
  599. else
  600. if money >= Price:
  601. act 'Buy (cash)':
  602. h = 0
  603. if CloStyle = 2:h = 10
  604. if CloStyle = 5:h = 20
  605. h += (3 * CloQuality)
  606. money -= price
  607. gs 'clothing', 'view_clothing_item_buy', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
  608. end
  609. end
  610. if karta + bankDebtLimit >= Price:
  611. act 'Buy (card)':
  612. h = 0
  613. if CloStyle = 2:h = 10
  614. if CloStyle = 5:h = 20
  615. h += (3 * CloQuality)
  616. karta -= price
  617. gs 'clothing', 'view_clothing_item_buy', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
  618. end
  619. end
  620. end
  621. end
  622. elseif $ARGS[1] = 'wardrobe':
  623. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  624. if $ARGS[2] ! 'gm_school' or ARGS[3] ! 6:
  625. !! if the clothing is worn out
  626. if dyneval('RESULT = <<$ARGS[2]>>_h[<<ARGS[3]>>]') <= 0:
  627. 'This item is worn and is not suitable for further wear.'
  628. if pcs_sewng >= 60 and tkan > 0:
  629. cla
  630. 'You can repair this thanks to your sewing skill.'
  631. act 'Repair item':
  632. if rand (1, 100) < 30:
  633. *clr
  634. cla
  635. tkan -= 1
  636. minut += 30
  637. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] += 30'
  638. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg"></center>'
  639. 'You spend 30 minutes fixing the outfit.'
  640. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  641. else
  642. *clr
  643. cla
  644. tkan += 3
  645. minut += 30
  646. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
  647. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg"></center>'
  648. 'Despite your skill with a needle, this outfit has proved beyond repair. All that is left of it is only good for your cloth pile.'
  649. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  650. end
  651. end
  652. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  653. end
  654. exit
  655. end
  656. !! if the clothing is a type that checks for hip size
  657. if $ARGS[2] ! 'danilovich' and CloStyle ! 5:
  658. !! if the hipsize is too far from your hipsize
  659. dynamic 'RESULT = <<$ARGS[2]>>_b[<<ARGS[3]>>]'
  660. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  661. if RESULT < pcs_hips:
  662. 'This item is too small for you to wear.'
  663. else
  664. 'This item is too large for you to wear.'
  665. end
  666. if (pcs_sewng >= 50 and tkan > 0) or $loc_arg = 'tailor':
  667. cla & *nl
  668. if $loc_arg = 'tailor':
  669. 'You can pay to have this resized for (500 <b>₽</b>).'
  670. else
  671. 'You can resize this thanks to your sewing skill.'
  672. end
  673. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  674. act 'Resize item':
  675. cla
  676. if $loc_arg = 'tailor':
  677. minut += 15
  678. money -= 500
  679. dynamic $ARGS[2] + '_b[<<ARGS[3]>>] = pcs_hips'
  680. *nl
  681. 'You hand the clothing over to the tailor who takes it into the back. Fifteen minutes later, he presents your clothing back to you, adjusted to fit you perfectly.'
  682. else
  683. tkan -= 1
  684. minut += 30
  685. dynamic $ARGS[2] + '_b[<<ARGS[3]>>] = pcs_hips'
  686. 'You spend 30 minutes resizing the outfit.'
  687. end
  688. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  689. end
  690. end
  691. exit
  692. end
  693. end
  694. end
  695. if $ARGS[2] ! 'danilovich_swimsuit' and $ARGS[2] ! 'scandalicious_bikinis' and $ARGS[2] ! 'scandalicious_swimsuit' and $ARGS[2] ! 'allure_bikinis' and $ARGS[2] ! 'allure_bikinis':
  696. if CloInhibit > pcs_inhib:
  697. 'You don''t feel daring enough to wear an outfit this revealing.'
  698. elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
  699. 'You lost these clothes somewhere, maybe you can find them again?.'
  700. else
  701. act 'Wear':
  702. gs 'clothing', 'wear', $ARGS[2], ARGS[3]
  703. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  704. end
  705. end
  706. end
  707. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  708. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  709. if $ARGS[2] ! 'coat':
  710. act 'Move back to wardrobe':
  711. dynamic $ARGS[2] + '_s[<<ARGS[3]>>] = 0'
  712. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  713. end
  714. end
  715. elseif $ARGS[1] = 'sell':
  716. $ward_list_page = $ARGS[1]
  717. act 'Keep item':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  718. !! value is based on the strength remaining
  719. dynamic 'RESULT = <<$ARGS[2]>>_h[<<ARGS[3]>>]'
  720. if RESULT > 45:
  721. 'You can sell this item for 500 <b>₽</b>.'
  722. act 'Sell':
  723. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  724. money += 500
  725. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  726. end
  727. elseif RESULT > 30:
  728. 'You can sell this item for 300 <b>₽</b>.'
  729. act 'Sell':
  730. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  731. money += 300
  732. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  733. end
  734. elseif RESULT > 0:
  735. 'You can sell this item for 100 <b>₽</b>.'
  736. act 'Sell':
  737. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  738. money += 100
  739. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  740. end
  741. else
  742. 'This item is too worn to have any sale value.'
  743. act 'Throw it away':
  744. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  745. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  746. end
  747. end
  748. elseif $ARGS[1] = 'resize':
  749. act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  750. if $ARGS[2] ! 'danilovich' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  751. if dyneval('RESULT = <<$ARGS[2]>>_b[<<ARGS[3]>>]') ! pcs_hips and money >= 500:
  752. 'You can have this resized for 500 <b>₽</b>.'
  753. act 'Resize':
  754. money -= 500
  755. dynamic '<<$ARGS[2]>>_b[<<ARGS[3]>>] = pcs_hips'
  756. gt 'clothing', 'view_clothing_list', 'resize'
  757. end
  758. end
  759. end
  760. end
  761. end
  762. if $ARGS[0] = 'view_clothing_item_buy':
  763. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  764. if $ARGS[2] = 'gm_outfits' or $ARGS[2] = 'gm_dress' or $ARGS[2] = 'gm_office':
  765. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 70 + <<h>>'
  766. elseif $ARGS[2] = 'cats_dress' or $ARGS[2] = 'cats_outfits' or $ARGS[2] = 'flamingos_dress' or $ARGS[2] = 'flamingos_outfits' or $ARGS[2] = 'coco_dress' or $ARGS[2] = 'coco_outfits':
  767. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 90 + <<h>>'
  768. elseif $ARGS[2] = 'moncheri_gown' or $ARGS[2] = 'moncheri_dress':
  769. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 25 + <<h>>'
  770. elseif $ARGS[2] = 'eroto_dress' or $ARGS[2] = 'eroto_outfits' or $ARGS[2] = 'eroto_strip' or $ARGS[2] = 'salacious_outfits' or $ARGS[2] = 'salacious_dress' or $ARGS[2] = 'fancy_burlesque':
  771. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 40 + <<h>>'
  772. elseif $ARGS[2] = 'gm_school' or $ARGS[2] = 'gm_maid' or $ARGS[2] = 'gm_server':
  773. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 120 + <<h>>'
  774. elseif $ARGS[2] = 'danilovich':
  775. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 100 + <<h>>'
  776. else
  777. dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 60 + <<h>>'
  778. end
  779. dynamic $ARGS[2] + '_b[<<ARGS[3]>>] = pcs_hips'
  780. dynamic $ARGS[2] + '_s[<<ARGS[3]>>] = 0'
  781. gs 'stat'
  782. gt $loc, $loc_arg
  783. end
  784. if $ARGS[0] = 'strip_all':
  785. $strip_loc = $ARGS[1]
  786. gs 'underwear', 'remove'
  787. gs 'clothing', 'strip', $strip_loc
  788. end
  789. if $ARGS[0] = 'strip':
  790. !$strip_loc = location when stripping outdoors
  791. $strip_loc = $ARGS[1]
  792. if $clothingworntype = 'nude': exit
  793. cumspclnt = 6
  794. gs 'cum_cleanup'
  795. if cloth_vid = 1:
  796. last_vid = 1
  797. else
  798. last_vid = 0
  799. end
  800. if PCloStyle2 = 4:
  801. $schbrand = $clothingworntype
  802. schtype = clothingwornnumber
  803. end
  804. if $strip_loc ! '' :
  805. DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$strip_loc>>'
  806. $CloLosLoc[] = $strip_loc
  807. $CloLosTyp[$strip_loc] = $clothingworntype
  808. CloLosNum[$strip_loc] = clothingwornnumber
  809. CloLosDay[$strip_loc] = daystart
  810. KILLVAR '$lastwornclothingtype'
  811. KILLVAR 'lastwornclothingnumber'
  812. else
  813. $lastwornclothingtype = $clothingworntype
  814. lastwornclothingnumber = clothingwornnumber
  815. end
  816. killvar '$strip_loc'
  817. $clothingworntype = 'nude'
  818. clothingwornnumber = 0
  819. CloQuality = 0
  820. CloThinness = 0
  821. CloTopCut = 0
  822. CloBra = 0
  823. CloPantsShortness = 0
  824. CloSkirtShortness = 0
  825. CloPanties = 0
  826. CloStyle = 0
  827. CloStyle2 = 0
  828. CloBimbo = 0
  829. CloOnePiece = 0
  830. PShoQuaility = 0
  831. PShoCut = 0
  832. PShoHeels = 0
  833. PShoStyle = 0
  834. PCloQuality = 0
  835. PCloThinness = 0
  836. PCloTopCut = 0
  837. PCloPants = 0
  838. PCloSkirt = 0
  839. PCloStyle = 0
  840. PCloStyle2 = 0
  841. PCloBimbo = 0
  842. PCloInhibit = 0
  843. PCloOnePiece = 0
  844. PCloswimwear = 0
  845. PXCloThinness = 0
  846. PXCloTopCut = 0
  847. PXCloBottomShortness = 0
  848. glamur = 0
  849. sport = 0
  850. ski = 0
  851. ofclo = 0
  852. sexual = 0
  853. odevnesh = 0
  854. ! WD: Bimbo look
  855. cloth_vid = 0
  856. exhibiHideNewCloth = 0
  857. end
  858. if $ARGS[0] = 'recover_lost_clothes':
  859. !$ARGS[1] = location
  860. !ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
  861. $cloLoc = $ARGS[1]
  862. cloAction = ARGS[2]
  863. $clothType = $CloLosTyp[$cloLoc]
  864. clothNumber = CloLosNum[$cloLoc]
  865. dayLost = CloLosDay[$cloLoc]
  866. DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
  867. findLocInd = ARRPOS('$CloLosTyp', $clothType)
  868. KILLVAR '$CloLosTyp', findLocInd
  869. findLocInd = ARRPOS('CloLosNum', clothNumber)
  870. KILLVAR 'CloLosNum', findLocInd
  871. findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
  872. KILLVAR 'CloLosDay', findLocInd
  873. findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
  874. KILLVAR '$CloLosLoc', findLocInd
  875. KILLVAR 'findLocInd'
  876. if cloAction = 1:
  877. gs 'clothing', 'wear', $clothType, clothNumber
  878. elseif cloAction = 2 :
  879. dynamic $clothType + '_s[<<clothNumber>>] = 1'
  880. end
  881. KILLVAR '$cloLoc'
  882. KILLVAR 'cloAction'
  883. KILLVAR '$clothType'
  884. KILLVAR 'clothNumber'
  885. end
  886. if $ARGS[0] = 'wear':
  887. !! ARGS 0 - action
  888. !! ARGS 1 - clothing type name
  889. !! ARGS 2 - clothing index
  890. gs 'clothing', 'strip'
  891. $clothingworntype = $ARGS[1]
  892. clothingwornnumber = ARGS[2]
  893. dynamic $ARGS[1] + '_w[<<ARGS[2]>>] = 1'
  894. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  895. dynamic '<<$ARGS[1]>>_s[<<ARGS[2]>>] = 0'
  896. if CloStyle2 = 4:
  897. $schbrand = $clothingworntype
  898. schtype = clothingwornnumber
  899. end
  900. PCloQuality = CloQuality
  901. PCloThinness = CloThinness
  902. PCloTopCut = CloTopCut
  903. PCloBra = CloBra
  904. PCloOnePiece = CloOnePiece
  905. PCloPants = CloPantsShortness
  906. PCloSkirt = CloSkirtShortness
  907. PCloPanties = CloPanties
  908. PCloStyle = CloStyle
  909. PCloStyle2 = CloStyle2
  910. PCloInhibit = CloInhibit
  911. if cheatbimbo = 0:
  912. PCloBimbo = CloBimbo
  913. !! This is counter for setting bimbo points overnight, don''t change bimbocl setting unless changing that
  914. if CloBimbo = 1: bimbocl = 1
  915. else
  916. PCloBimbo = 0
  917. CloBimbo = 0
  918. bimbocl = 0
  919. end
  920. if PCloTopCut > 1:
  921. if tits = 2 or tits = 3: PCloTopCut += 1
  922. if tits >= 4: PCloTopCut += 2
  923. if PCloTopCut > 2 and tits >=6: PCloTopCut += 1
  924. end
  925. !Calculations for clothing beauty, multiplied by natural beauty
  926. if PCloThinness > 0:
  927. if PCloThinness = 1:
  928. PXCloThinness = 150
  929. elseif PCloThinness = 2:
  930. PXCloThinness = 200
  931. elseif PCloThinness = 3:
  932. PXCloThinness = 250
  933. elseif PCloThinness = 4:
  934. PXCloThinness = 300
  935. elseif PCloThinness = 5:
  936. PXCloThinness = 350
  937. elseif PCloThinness = 6:
  938. PXCloThinness = 400
  939. end
  940. end
  941. if PCloTopCut > 0:
  942. if PCloTopCut = 1:
  943. PXCloTopCut = 100
  944. elseif PCloTopCut = 2:
  945. PXCloTopCut = 150
  946. elseif PCloTopCut = 3:
  947. PXCloTopCut = 200
  948. elseif PCloTopCut = 4:
  949. PXCloTopCut = 250
  950. elseif PCloTopCut = 5:
  951. PXCloTopCut = 300
  952. elseif PCloTopCut = 6:
  953. PXCloTopCut = 350
  954. elseif PCloTopCut >= 7:
  955. PXCloTopCut = 400
  956. end
  957. end
  958. if PCloBra = 1:
  959. PXCloTopCut = 400
  960. $braworntype = 'none'
  961. elseif PCloBra = 2:
  962. PXCloTopCut = 500
  963. end
  964. if PCloSkirt > 0:
  965. if PCloSkirt = 1:
  966. PXCloBottomShortness = 100
  967. elseif PCloSkirt = 2:
  968. PXCloBottomShortness = 150
  969. elseif PCloSkirt = 3:
  970. PXCloBottomShortness = 200
  971. elseif PCloSkirt = 4:
  972. PXCloBottomShortness = 250
  973. elseif PCloSkirt = 5:
  974. PXCloBottomShortness = 300
  975. elseif PCloSkirt = 6:
  976. PXCloBottomShortness = 350
  977. elseif PCloSkirt >= 7:
  978. PXCloBottomShortness = 400
  979. end
  980. end
  981. if PCloPants > 0:
  982. if PCloPants = 1:
  983. PXCloBottomShortness = 100
  984. elseif PCloPants = 2:
  985. PXCloBottomShortness = 150
  986. elseif PCloPants = 3:
  987. PXCloBottomShortness = 200
  988. elseif PCloPants = 4:
  989. PXCloBottomShortness = 250
  990. elseif PCloPants = 5:
  991. PXCloBottomShortness = 300
  992. elseif PCloPants = 6:
  993. PXCloBottomShortness = 350
  994. elseif PCloPants >= 7:
  995. PXCloBottomShortness = 400
  996. end
  997. end
  998. if PCloPanties = 1: PXCloBottomShortness = 400
  999. if $clothingworntype = 'danilovich_swimsuit' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis' or $clothingworntype = 'allure_swimsuit' or $clothingworntype = 'allure_bikinis': PCloswimwear = 1
  1000. end
  1001. if $ARGS[0] = 'wear_last_worn':
  1002. !!contingency
  1003. if $lastwornclothingtype = '': $lastwornclothingtype = 'nude'
  1004. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  1005. end
  1006. if $ARGS[0] = 'swamp_clothes':
  1007. if ARGS[1] = 1:
  1008. !hessian clothing to owned, sets size and equipped.
  1009. misc_outfits[1] = 1
  1010. misc_outfits_s[1] = 0
  1011. misc_outfits_h[1] = 100
  1012. misc_outfits_b[1] = pcs_hips
  1013. swamp_clothes = 1
  1014. gs 'clothing', 'wear', 'misc_outfits', 1
  1015. end
  1016. if ARGS[1] = 0:
  1017. !hessian clothing no longer owned, but not unequipped.
  1018. misc_outfits[1] = 0
  1019. swamp_clothes = 0
  1020. end
  1021. end
  1022. --- clothing ---------------------------------