1
0

clothing.qsrc 40 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074
  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] = 'cheap' and ARGS[2] = 414:
  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_cheap' or $ARGS[2] = 'gm_office' or $ARGS[2] = 'gm_school' or $ARGS[2] = 'gm_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/fashionistat.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('cats_outfit') > 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>'
  162. if ARRSIZE('flamingos_outfit') > 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>'
  163. if ARRSIZE('coco_outfit') > 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/city/residential/coco/shop_name.png"></a></center>'
  164. if ARRSIZE('expensive') > 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/fashionistat.png"></a></center>'
  165. if ARRSIZE('formal') > 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>'
  166. 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>'
  167. 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>'
  168. 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>'
  169. 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>'
  170. if ARRSIZE('dolls_outfit') > 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>'
  171. if ARRSIZE('bomba_outfit') > 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>'
  172. 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>'
  173. else
  174. $bgcolor='#f3f4ee'
  175. if $ARGS[1] = 'sell':
  176. '<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>'
  177. else
  178. '<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>'
  179. end
  180. if $ARGS[1] = 'store':
  181. cloc = 1
  182. elseif $ARGS[1] = 'unwanted':
  183. cloc = 2
  184. else
  185. cloc = 0
  186. end
  187. if $ARGS[2] = 'gm':
  188. if ARRSIZE('cheap') > 0:'<center><a href="exec:$ward_list_store = ''gm_cheap'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_cheap''">Regular G&M clothing</a></center>'
  189. if ARRSIZE('office') > 0:'<center><a href="exec:$ward_list_store = ''gm_office'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_office''">Office wear</a></center>'
  190. if ARRSIZE('school') > 0:'<center><a href="exec:$ward_list_store = ''gm_school'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_school''">School uniforms</a></center>'
  191. if ARRSIZE('uniform') > 0:'<center><a href="exec:$ward_list_store = ''gm_uniform'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''gm_uniform''">Work uniforms</a></center>'
  192. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  193. end
  194. if $ARGS[2] = 'gm_cheap':
  195. $ward_list_store = $ARGS[2]
  196. i = 1
  197. :loopcheap
  198. if cheap[i] = 1 and cheapS[i] = cloc and ($clothingworntype ! 'cheap' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cheap', i)
  199. i += 1
  200. if i <= ARRSIZE('cheap'):jump 'loopcheap'
  201. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  202. gs 'clothing', 'clothwidth'
  203. end
  204. if $ARGS[2] = 'gm_office':
  205. $ward_list_store = $ARGS[2]
  206. i = 1
  207. :loopoffice
  208. if office[i] = 1 and officeS[i] = cloc and ($clothingworntype ! 'office' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'office', i)
  209. i += 1
  210. if i <= ARRSIZE('office'):jump 'loopoffice'
  211. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  212. gs 'clothing', 'clothwidth'
  213. end
  214. if $ARGS[2] = 'gm_school':
  215. $ward_list_store = $ARGS[2]
  216. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! 6):*P dyneval($clothing_list_line, $ARGS[1], 'school', 6)
  217. i = 1
  218. :loopschool
  219. if school[i] = 1 and schoolS[i] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'school', i)
  220. i += 1
  221. if i = 6: i = 7
  222. if i <= ARRSIZE('school'):jump 'loopschool'
  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] = 'gm_uniform':
  227. $ward_list_store = $ARGS[2]
  228. i = 1
  229. :loopuniform
  230. if uniform[i] = 1 and uniformS[i] = cloc and ($clothingworntype ! 'uniform' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'uniform', i)
  231. i += 1
  232. if i <= ARRSIZE('uniform'):jump 'loopuniform'
  233. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  234. gs 'clothing', 'clothwidth'
  235. end
  236. if $ARGS[2] = 'kats':
  237. $ward_list_store = $ARGS[2]
  238. i = 1
  239. :loopcats_dress
  240. if cats_dress[i] = 1 and cats_dressS[i] = cloc and ($clothingworntype ! 'cats_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cats_dress', i)
  241. i += 1
  242. if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
  243. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  244. gs 'clothing', 'clothwidth'
  245. $ward_list_store = $ARGS[2]
  246. i = 1
  247. :loopcats_outfit
  248. if cats_outfit[i] = 1 and cats_outfitS[i] = cloc and ($clothingworntype ! 'cats_outfit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cats_outfit', i)
  249. i += 1
  250. if i <= ARRSIZE('cats_outfit'):jump 'loopcats_outfit'
  251. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  252. gs 'clothing', 'clothwidth'
  253. end
  254. if $ARGS[2] = 'flamingos':
  255. $ward_list_store = $ARGS[2]
  256. i = 1
  257. :loopflamingos_dress
  258. if flamingos_dress[i] = 1 and flamingos_dressS[i] = cloc and ($clothingworntype ! 'flamingos_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'flamingos_dress', i)
  259. i += 1
  260. if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
  261. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  262. gs 'clothing', 'clothwidth'
  263. $ward_list_store = $ARGS[2]
  264. i = 1
  265. :loopflamingos_outfit
  266. if flamingos_outfit[i] = 1 and flamingos_outfitS[i] = cloc and ($clothingworntype ! 'flamingos_outfit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'flamingos_outfit', i)
  267. i += 1
  268. if i <= ARRSIZE('flamingos_outfit'):jump 'loopflamingos_outfit'
  269. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  270. gs 'clothing', 'clothwidth'
  271. end
  272. if $ARGS[2] = 'coco':
  273. $ward_list_store = $ARGS[2]
  274. i = 1
  275. :loopcoco_dress
  276. if coco_dress[i] = 1 and coco_dressS[i] = cloc and ($clothingworntype ! 'coco_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'coco_dress', i)
  277. i += 1
  278. if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
  279. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  280. gs 'clothing', 'clothwidth'
  281. $ward_list_store = $ARGS[2]
  282. i = 1
  283. :loopcoco_outfit
  284. if coco_outfit[i] = 1 and coco_outfitS[i] = cloc and ($clothingworntype ! 'coco_outfit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'coco_outfit', i)
  285. i += 1
  286. if i <= ARRSIZE('coco_outfit'):jump 'loopcoco_outfit'
  287. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  288. gs 'clothing', 'clothwidth'
  289. end
  290. if $ARGS[2] = 'fashionista':
  291. $ward_list_store = $ARGS[2]
  292. i = 1
  293. :loopexpensive
  294. if expensive[i] = 1 and expensiveS[i] = cloc and ($clothingworntype ! 'expensive' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'expensive', i)
  295. i += 1
  296. if i <= ARRSIZE('expensive'):jump 'loopexpensive'
  297. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  298. gs 'clothing', 'clothwidth'
  299. end
  300. if $ARGS[2] = 'moncheri':
  301. $ward_list_store = $ARGS[2]
  302. i = 1
  303. :loopformal
  304. if formal[i] = 1 and formalS[i] = cloc and ($clothingworntype ! 'formal' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'formal', i)
  305. i += 1
  306. if i <= ARRSIZE('formal'):jump 'loopformal'
  307. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  308. gs 'clothing', 'clothwidth'
  309. end
  310. if $ARGS[2] = 'scandalicious':
  311. $ward_list_store = $ARGS[2]
  312. i = 1
  313. :loopbeach
  314. if beach[i] = 1 and beachS[i] = cloc and ($clothingworntype ! 'beach' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'beach', i)
  315. i += 1
  316. if i <= ARRSIZE('beach'):jump 'loopbeach'
  317. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  318. gs 'clothing', 'clothwidth'
  319. end
  320. if $ARGS[2] = 'sexshop':
  321. $ward_list_store = $ARGS[2]
  322. i = 1
  323. :loopfetish
  324. if fetish[i] = 1 and fetishS[i] = cloc and ($clothingworntype ! 'fetish' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fetish', i)
  325. i += 1
  326. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  327. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  328. gs 'clothing', 'clothwidth'
  329. end
  330. if $ARGS[2] = 'exhibitshop':
  331. $ward_list_store = $ARGS[2]
  332. i = 1
  333. :loopexhibit
  334. if exhibit[i] = 1 and exhibitS[i] = cloc and ($clothingworntype ! 'exhibit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exhibit', i)
  335. i += 1
  336. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  337. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  338. gs 'clothing', 'clothwidth'
  339. end
  340. if $ARGS[2] = 'fancypancy':
  341. $ward_list_store = $ARGS[2]
  342. i = 1
  343. :loopfancy_burlesque
  344. if fancy_burlesque[i] = 1 and burlesqueS[i] = cloc and ($clothingworntype ! 'fancy_burlesque' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fancy_burlesque', i)
  345. i += 1
  346. if i <= ARRSIZE('fancy_burlesque'):jump 'loopfancy_burlesque'
  347. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  348. gs 'clothing', 'clothwidth'
  349. end
  350. if $ARGS[2] = 'dolls':
  351. cla
  352. $ward_list_store = $ARGS[2]
  353. i = 1
  354. :loopdolls_outfit
  355. if dolls_outfit[i] = 1 and dolls_outfitS[i] = cloc and ($clothingworntype ! 'dolls_outfit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'dolls_outfit', i)
  356. i += 1
  357. if i <= ARRSIZE('dolls_outfit'):jump 'loopdolls_outfit'
  358. $ward_list_store = $ARGS[2]
  359. i = 1
  360. :loopdolls_dress
  361. if dolls_dress[i] = 1 and dolls_dressS[i] = cloc and ($clothingworntype ! 'dolls_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'dolls_dress', i)
  362. i += 1
  363. if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
  364. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  365. gs 'clothing', 'clothwidth'
  366. end
  367. if $ARGS[2] = 'bomba':
  368. cla
  369. $ward_list_store = $ARGS[2]
  370. i = 1
  371. :loopbomba_outfit
  372. if bomba_outfit[i] = 1 and bomba_outfitS[i] = cloc and ($clothingworntype ! 'bomba_outfit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'bomba_outfit', i)
  373. i += 1
  374. if i <= ARRSIZE('bomba_outfit'):jump 'loopbomba_outfit'
  375. $ward_list_store = $ARGS[2]
  376. i = 1
  377. :loopbomba_dress
  378. if bomba_dress[i] = 1 and bomba_dressS[i] = cloc and ($clothingworntype ! 'bomba_dress' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'bomba_dress', i)
  379. i += 1
  380. if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
  381. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  382. gs 'clothing', 'clothwidth'
  383. end
  384. if $ARGS[2] = 'sports':
  385. $ward_list_store = $ARGS[2]
  386. i = 1
  387. :loopexercise
  388. if exercise[i] = 1 and exerciseS[i] = cloc and ($clothingworntype ! 'exercise' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exercise', i)
  389. i += 1
  390. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  391. i = 1
  392. :loopswimwear
  393. if swimwear[i] = 1 and swimwearS[i] = cloc :*P dyneval($clothing_list_line, $ARGS[1], 'swimwear', i)
  394. i += 1
  395. if i <= ARRSIZE('swimwear'):jump 'loopswimwear'
  396. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  397. gs 'clothing', 'clothwidth'
  398. end
  399. '</table>'
  400. end
  401. end
  402. if $ARGS[0] = 'clothwidth':
  403. act 'Set image size for this view':
  404. Enable_clothwidth = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
  405. if Enable_clothwidth < 50:
  406. Enable_clothwidth = 50
  407. elseif Enable_clothwidth > 500:
  408. Enable_clothwidth = 500
  409. end
  410. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  411. end
  412. end
  413. if $ARGS[0] = 'view_clothing_item':
  414. !! ARGS 0 - view_clothing_item
  415. !! ARGS 1 = action type (wardrobe, shop, sell, resize)
  416. !! ARGS 2 - clothing type
  417. !! ARGS 3 - clothing index
  418. !! ARGS 4 - price for shop
  419. cla
  420. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[2], ARGS[3])>>"></center>'
  421. gs 'clothing_attributes', $ARGS[2], ARGS[3]
  422. $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  423. $RESULT += '<<ARGS[3]>>'
  424. '<<$RESULT>>'
  425. if $ARGS[1] = 'cheap' and ARGS[2] = 414:
  426. 'A hessian sack the hunters gave you.'
  427. elseif $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear' and $ARGS[2] ! 'beach':
  428. gs 'clothing_descriptions'
  429. '<<$description>>'
  430. else
  431. FUNC('$clothing_name', $ARGS[2], ARGS[3])
  432. end
  433. if CloBimbo = 1 and cheatbimbo = 0:'This item is considered bimbo clothing.'
  434. if CloStyle = 4:'This outfit can be used for prostitution.'
  435. if CloInhibit > 10:
  436. 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.'
  437. end
  438. if $ARGS[2] = 'uniform':
  439. if CloStyle2 = 1:
  440. 'This outfit is considered to be a maid uniform.'
  441. elseif CloStyle2 = 3:
  442. 'This is a stripper outfit.'
  443. else
  444. 'This outfit is a server uniform, suitable for jobs that require one.'
  445. end
  446. end
  447. if CloStyle2 = 4:
  448. if CloInhibit <= 10:
  449. '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
  450. elseif CloSkirt < 5 and CloThinness < 5 and CloBra = 0:
  451. if CloQuality = 4:
  452. '<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>'
  453. else
  454. '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
  455. end
  456. elseif CloSkirt = 5 and CloThinness < 5 and CloBra = 0:
  457. if CloQuality = 4:
  458. '<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>'
  459. else
  460. '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.</font>'
  461. end
  462. else
  463. '<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>'
  464. end
  465. end
  466. if $ARGS[1] ! 'shop' and ($ARGS[2] ! 'school' or ARGS[3] ! 6):
  467. $RESULT = '(strength '
  468. dynamic '$RESULT += <<$ARGS[2]>>H[<<ARGS[3]>>]'
  469. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  470. $RESULT += ', hip size '
  471. dynamic '$RESULT += <<$ARGS[2]>>B[<<ARGS[3]>>]'
  472. end
  473. $RESULT += ')'
  474. '<<$RESULT>>'
  475. end
  476. if $ARGS[1] = 'shop':
  477. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  478. 'You already own this item.'
  479. act 'Leave': gt $loc, $loc_arg
  480. else
  481. if $ARGS[2] = 'coat' and ARGS[3] = 5:
  482. price = ARGS[4]
  483. else
  484. price = ('<<ARGS[4]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  485. price = price / 50 * 50
  486. end
  487. 'Price: <<price>> <b>₽</b>'
  488. act 'Leave': gt $loc, $loc_arg
  489. if CloInhibit > pcs_inhib:
  490. 'You don''t feel daring enough to wear an outfit this revealing and can''t bring yourself to buy it.'
  491. elseif karta + bankDebtLimit < Price and money < Price:
  492. 'You cannot afford this outfit.'
  493. else
  494. if money >= Price:
  495. act 'Buy (cash)':
  496. h = 0
  497. if CloStyle = 2:h = 10
  498. if CloStyle = 5:h = 20
  499. h += (3 * CloQuality)
  500. money -= price
  501. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  502. if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
  503. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 70 + <<h>>'
  504. elseif $ARGS[2] = 'cats_dress' or $ARGS[2] = 'cats_outfit' or $ARGS[2] = 'flamingos_dress' or $ARGS[2] = 'flamingos_outfit' or $ARGS[2] = 'coco_dress' or $ARGS[2] = 'coco_outfit':
  505. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 90 + <<h>>'
  506. elseif $ARGS[2] = 'formal':
  507. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 15 + <<h>>'
  508. elseif $ARGS[2] = 'fetish' or $ARGS[2] = 'exhibit' or $ARGS[2] = 'fancy_burlesque':
  509. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 35 + <<h>>'
  510. elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
  511. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 120 + <<h>>'
  512. elseif $ARGS[2] = 'exercise':
  513. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 100 + <<h>>'
  514. elseif $ARGS[2] = 'coat':
  515. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 250 + <<h>>'
  516. else
  517. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 60 + <<h>>'
  518. end
  519. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  520. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  521. gs 'stat'
  522. gt $loc, $loc_arg
  523. end
  524. end
  525. if karta + bankDebtLimit >= Price:
  526. act 'Buy (card)':
  527. h = 0
  528. if CloStyle = 2:h = 10
  529. if CloStyle = 5:h = 20
  530. h += (3 * CloQuality)
  531. karta -= price
  532. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  533. if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
  534. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 70 + <<h>>'
  535. elseif $ARGS[2] = 'cats_dress' or $ARGS[2] = 'cats_outfit' or $ARGS[2] = 'flamingos_dress' or $ARGS[2] = 'flamingos_outfit' or $ARGS[2] = 'coco_dress' or $ARGS[2] = 'coco_outfit':
  536. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 90 + <<h>>'
  537. elseif $ARGS[2] = 'formal':
  538. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 15 + <<h>>'
  539. elseif $ARGS[2] = 'fetish' or $ARGS[2] = 'exhibit' or $ARGS[2] = 'burlesque':
  540. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 35 + <<h>>'
  541. elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
  542. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 120 + <<h>>'
  543. elseif $ARGS[2] = 'exercise':
  544. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 100 + <<h>>'
  545. elseif $ARGS[2] = 'coat':
  546. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 250 + <<h>>'
  547. else
  548. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 60 + <<h>>'
  549. end
  550. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  551. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  552. gs 'stat'
  553. gt $loc, $loc_arg
  554. end
  555. end
  556. end
  557. end
  558. elseif $ARGS[1] = 'wardrobe':
  559. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  560. if $ARGS[2] ! 'school' or ARGS[3] ! 6:
  561. !! if the clothing is worn out
  562. if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
  563. 'This item is worn and is not suitable for further wear.'
  564. if pcs_sewng >= 60 and tkan > 0:
  565. cla
  566. 'You can repair this thanks to your sewing skill.'
  567. act 'Repair item':
  568. if rand (1, 100) < 30:
  569. *clr
  570. cla
  571. tkan -= 1
  572. minut += 30
  573. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
  574. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg"></center>'
  575. 'You spend 30 minutes fixing the outfit.'
  576. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  577. else
  578. *clr
  579. cla
  580. tkan += 3
  581. minut += 30
  582. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
  583. '<center><img <<$set_imgh>> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg"></center>'
  584. '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.'
  585. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  586. end
  587. end
  588. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  589. end
  590. exit
  591. end
  592. !! if the clothing is a type that checks for hip size
  593. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  594. !! if the hipsize is too far from your hipsize
  595. dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
  596. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  597. if RESULT < pcs_hips:
  598. 'This item is too small for you to wear.'
  599. else
  600. 'This item is too large for you to wear.'
  601. end
  602. if (pcs_sewng >= 50 and tkan > 0) or $loc_arg = 'tailor':
  603. cla & *nl
  604. if $loc_arg = 'tailor':
  605. 'You can pay to have this resized for (500 <b>₽</b>).'
  606. else
  607. 'You can resize this thanks to your sewing skill.'
  608. end
  609. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  610. act 'Resize item':
  611. cla
  612. if $loc_arg = 'tailor':
  613. minut += 15
  614. money -= 500
  615. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  616. *nl
  617. '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.'
  618. else
  619. tkan -= 1
  620. minut += 30
  621. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  622. 'You spend 30 minutes resizing the outfit.'
  623. end
  624. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  625. end
  626. end
  627. exit
  628. end
  629. end
  630. end
  631. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear' and $ARGS[2] ! 'beach':
  632. if CloInhibit > pcs_inhib:
  633. 'You don''t feel daring enough to wear an outfit this revealing.'
  634. elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
  635. 'You lost these clothes somewhere, maybe you can find them again?.'
  636. else
  637. act 'Wear':
  638. gs 'clothing', 'wear', $ARGS[2], ARGS[3]
  639. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  640. end
  641. end
  642. end
  643. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  644. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  645. if $ARGS[2] ! 'coat':
  646. act 'Move back to wardrobe':
  647. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  648. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  649. end
  650. end
  651. elseif $ARGS[1] = 'sell':
  652. $ward_list_page = $ARGS[1]
  653. act 'Keep item':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  654. !! value is based on the strength remaining
  655. dynamic 'RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]'
  656. if RESULT > 45:
  657. 'You can sell this item for 500 <b>₽</b>.'
  658. act 'Sell':
  659. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  660. money += 500
  661. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  662. end
  663. elseif RESULT > 30:
  664. 'You can sell this item for 300 <b>₽</b>.'
  665. act 'Sell':
  666. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  667. money += 300
  668. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  669. end
  670. elseif RESULT > 0:
  671. 'You can sell this item for 100 <b>₽</b>.'
  672. act 'Sell':
  673. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  674. money += 100
  675. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  676. end
  677. else
  678. 'This item is too worn to have any sale value.'
  679. act 'Throw it away':
  680. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  681. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  682. end
  683. end
  684. elseif $ARGS[1] = 'resize':
  685. act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  686. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  687. if dyneval('RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]') ! pcs_hips and money >= 500:
  688. 'You can have this resized for 500 <b>₽</b>.'
  689. act 'Resize':
  690. money -= 500
  691. dynamic '<<$ARGS[2]>>B[<<ARGS[3]>>] = pcs_hips'
  692. gt 'clothing', 'view_clothing_list', 'resize'
  693. end
  694. end
  695. end
  696. end
  697. end
  698. if $ARGS[0] = 'strip':
  699. !$ARGS[1] = location when stripping outdoors
  700. if $clothingworntype = 'nude': exit
  701. cumspclnt = 6
  702. gs 'cum_cleanup'
  703. if cloth_vid = 1:
  704. last_vid = 1
  705. else
  706. last_vid = 0
  707. end
  708. if PCloStyle2 = 4:
  709. $schbrand = $clothingworntype
  710. schtype = clothingwornnumber
  711. end
  712. if $ARGS[1] ! '' :
  713. DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$ARGS[1]>>'
  714. $CloLosLoc[] = $ARGS[1]
  715. $CloLosTyp[$ARGS[1]] = $clothingworntype
  716. CloLosNum[$ARGS[1]] = clothingwornnumber
  717. CloLosDay[$ARGS[1]] = daystart
  718. KILLVAR '$lastwornclothingtype'
  719. KILLVAR 'lastwornclothingnumber'
  720. else
  721. $lastwornclothingtype = $clothingworntype
  722. lastwornclothingnumber = clothingwornnumber
  723. end
  724. $clothingworntype = 'nude'
  725. clothingwornnumber = 0
  726. CloQuality = 0
  727. CloThinness = 0
  728. CloTopCut = 0
  729. CloBra = 0
  730. CloPantsShortness = 0
  731. CloSkirtShortness = 0
  732. CloPanties = 0
  733. CloStyle = 0
  734. CloStyle2 = 0
  735. CloBimbo = 0
  736. CloOnePiece = 0
  737. PShoQuaility = 0
  738. PShoCut = 0
  739. PShoHeels = 0
  740. PShoStyle = 0
  741. PCloQuality = 0
  742. PCloThinness = 0
  743. PCloTopCut = 0
  744. PCloPants = 0
  745. PCloSkirt = 0
  746. PCloStyle = 0
  747. PCloStyle2 = 0
  748. PCloBimbo = 0
  749. PCloInhibit = 0
  750. PCloOnePiece = 0
  751. PXCloThinness = 0
  752. PXCloTopCut = 0
  753. PXCloBottomShortness = 0
  754. glamur = 0
  755. sport = 0
  756. ski = 0
  757. ofclo = 0
  758. sexual = 0
  759. odevnesh = 0
  760. ! WD: Bimbo look
  761. cloth_vid = 0
  762. exhibiHideNewCloth = 0
  763. end
  764. if $ARGS[0] = 'recover_lost_clothes':
  765. !$ARGS[1] = location
  766. !ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
  767. $cloLoc = $ARGS[1]
  768. cloAction = ARGS[2]
  769. $clothType = $CloLosTyp[$cloLoc]
  770. clothNumber = CloLosNum[$cloLoc]
  771. dayLost = CloLosDay[$cloLoc]
  772. DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
  773. findLocInd = ARRPOS('$CloLosTyp', $clothType)
  774. KILLVAR '$CloLosTyp', findLocInd
  775. findLocInd = ARRPOS('CloLosNum', clothNumber)
  776. KILLVAR 'CloLosNum', findLocInd
  777. findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
  778. KILLVAR 'CloLosDay', findLocInd
  779. findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
  780. KILLVAR '$CloLosLoc', findLocInd
  781. KILLVAR 'findLocInd'
  782. if cloAction = 1:
  783. gs 'clothing', 'wear', $clothType, clothNumber
  784. elseif cloAction = 2 :
  785. dynamic $clothType + 'S[<<clothNumber>>] = 1'
  786. end
  787. KILLVAR '$cloLoc'
  788. KILLVAR 'cloAction'
  789. KILLVAR '$clothType'
  790. KILLVAR 'clothNumber'
  791. end
  792. if $ARGS[0] = 'wear':
  793. !! ARGS 0 - action
  794. !! ARGS 1 - clothing type name
  795. !! ARGS 2 - clothing index
  796. gs 'clothing', 'strip'
  797. $clothingworntype = $ARGS[1]
  798. clothingwornnumber = ARGS[2]
  799. dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
  800. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  801. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  802. if CloStyle2 = 4:
  803. $schbrand = $clothingworntype
  804. schtype = clothingwornnumber
  805. end
  806. PCloQuality = CloQuality
  807. PCloThinness = CloThinness
  808. PCloTopCut = CloTopCut
  809. PCloBra = CloBra
  810. PCloOnePiece = CloOnePiece
  811. PCloPants = CloPantsShortness
  812. PCloSkirt = CloSkirtShortness
  813. PCloPanties = CloPanties
  814. PCloStyle = CloStyle
  815. PCloStyle2 = CloStyle2
  816. PCloInhibit = CloInhibit
  817. if cheatbimbo = 0:
  818. PCloBimbo = CloBimbo
  819. !! This is counter for setting bimbo points overnight, don''t change bimbocl setting unless changing that
  820. if CloBimbo = 1: bimbocl = 1
  821. else
  822. PCloBimbo = 0
  823. CloBimbo = 0
  824. bimbocl = 0
  825. end
  826. if PCloTopCut > 1:
  827. if tits = 2 or tits = 3: PCloTopCut += 1
  828. if tits >= 4: PCloTopCut += 2
  829. if PCloTopCut > 2 and tits >=6: PCloTopCut += 1
  830. end
  831. !Calculations for clothing beauty, multiplied by natural beauty
  832. if PCloThinness > 0:
  833. if PCloThinness = 1:
  834. PXCloThinness = 150
  835. elseif PCloThinness = 2:
  836. PXCloThinness = 200
  837. elseif PCloThinness = 3:
  838. PXCloThinness = 250
  839. elseif PCloThinness = 4:
  840. PXCloThinness = 300
  841. elseif PCloThinness = 5:
  842. PXCloThinness = 350
  843. elseif PCloThinness = 6:
  844. PXCloThinness = 400
  845. end
  846. end
  847. if PCloTopCut > 0:
  848. if PCloTopCut = 1:
  849. PXCloTopCut = 100
  850. elseif PCloTopCut = 2:
  851. PXCloTopCut = 150
  852. elseif PCloTopCut = 3:
  853. PXCloTopCut = 200
  854. elseif PCloTopCut = 4:
  855. PXCloTopCut = 250
  856. elseif PCloTopCut = 5:
  857. PXCloTopCut = 300
  858. elseif PCloTopCut = 6:
  859. PXCloTopCut = 350
  860. elseif PCloTopCut >= 7:
  861. PXCloTopCut = 400
  862. end
  863. end
  864. if PCloBra = 1:
  865. PXCloTopCut = 400
  866. $braworntype = 'none'
  867. elseif PCloBra = 2:
  868. PXCloTopCut = 500
  869. end
  870. if PCloSkirt > 0:
  871. if PCloSkirt = 1:
  872. PXCloBottomShortness = 100
  873. elseif PCloSkirt = 2:
  874. PXCloBottomShortness = 150
  875. elseif PCloSkirt = 3:
  876. PXCloBottomShortness = 200
  877. elseif PCloSkirt = 4:
  878. PXCloBottomShortness = 250
  879. elseif PCloSkirt = 5:
  880. PXCloBottomShortness = 300
  881. elseif PCloSkirt = 6:
  882. PXCloBottomShortness = 350
  883. elseif PCloSkirt >= 7:
  884. PXCloBottomShortness = 400
  885. end
  886. end
  887. if PCloPants > 0:
  888. if PCloPants = 1:
  889. PXCloBottomShortness = 100
  890. elseif PCloPants = 2:
  891. PXCloBottomShortness = 150
  892. elseif PCloPants = 3:
  893. PXCloBottomShortness = 200
  894. elseif PCloPants = 4:
  895. PXCloBottomShortness = 250
  896. elseif PCloPants = 5:
  897. PXCloBottomShortness = 300
  898. elseif PCloPants = 6:
  899. PXCloBottomShortness = 350
  900. elseif PCloPants >= 7:
  901. PXCloBottomShortness = 400
  902. end
  903. end
  904. if PCloPanties = 1: PXCloBottomShortness = 400
  905. end
  906. if $ARGS[0] = 'wear_last_worn':
  907. !!contingency
  908. if $lastwornclothingtype = '': $lastwornclothingtype = 'nude'
  909. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  910. end
  911. if $ARGS[0] = 'swamp_clothes':
  912. if ARGS[1] = 1:
  913. !hessian clothing to owned, sets size and equipped.
  914. cheap[414] = 1
  915. cheapS[414] = 0
  916. cheapH[414] = 100
  917. cheapB[414] = pcs_hips
  918. swamp_clothes = 1
  919. gs 'clothing', 'wear', 'cheap', 414
  920. end
  921. if ARGS[1] = 0:
  922. !hessian clothing no longer owned, but not unequipped.
  923. cheap[414] = 0
  924. swamp_clothes = 0
  925. end
  926. end
  927. --- clothing ---------------------------------