clothing.qsrc 41 KB

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