1
0

clothing.qsrc 35 KB

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