1
0

clothing.qsrc 34 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965
  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. cla
  496. tkan -= 1
  497. minut += 30
  498. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
  499. 'You spend 30 minutes fixing the outfit.'
  500. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  501. else
  502. cla
  503. tkan += 3
  504. minut += 30
  505. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
  506. '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.'
  507. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  508. end
  509. end
  510. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  511. end
  512. exit
  513. end
  514. !! if the clothing is a type that checks for hip size
  515. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  516. !! if the hipsize is too far from your hipsize
  517. dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
  518. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  519. if RESULT < pcs_hips:
  520. 'This item is too small for you to wear.'
  521. else
  522. 'This item is too large for you to wear.'
  523. end
  524. if pcs_sewng >= 60 and tkan > 0:
  525. cla
  526. 'You can resize this thanks to your sewing skill.'
  527. act 'Resize item':
  528. cla
  529. tkan -= 1
  530. minut += 30
  531. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  532. 'You spend 30 minutes resizing the outfit.'
  533. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  534. end
  535. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  536. end
  537. exit
  538. end
  539. end
  540. end
  541. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear' and $ARGS[2] ! 'beach':
  542. if CloInhibit > pcs_inhib:
  543. 'You don''t feel daring enough to wear an outfit this revealing.'
  544. elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
  545. 'You lost these clothes somewhere, maybe you can find them again?.'
  546. else
  547. act 'Wear':
  548. gs 'clothing', 'wear', $ARGS[2], ARGS[3]
  549. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  550. end
  551. end
  552. end
  553. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  554. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  555. if $ARGS[2] ! 'coat':
  556. act 'Move back to wardrobe':
  557. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  558. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  559. end
  560. end
  561. elseif $ARGS[1] = 'sell':
  562. $ward_list_page = $ARGS[1]
  563. act 'Keep item':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  564. !! value is based on the strength remaining
  565. dynamic 'RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]'
  566. if RESULT > 45:
  567. 'You can sell this item for 500 <b>₽</b>.'
  568. act 'Sell':
  569. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  570. money += 500
  571. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  572. end
  573. elseif RESULT > 30:
  574. 'You can sell this item for 300 <b>₽</b>.'
  575. act 'Sell':
  576. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  577. money += 300
  578. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  579. end
  580. elseif RESULT > 0:
  581. 'You can sell this item for 100 <b>₽</b>.'
  582. act 'Sell':
  583. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  584. money += 100
  585. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  586. end
  587. else
  588. 'This item is too worn to have any sale value.'
  589. act 'Throw it away':
  590. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  591. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  592. end
  593. end
  594. elseif $ARGS[1] = 'resize':
  595. act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  596. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  597. if dyneval('RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]') ! pcs_hips and money >= 500:
  598. 'You can have this resized for 500 <b>₽</b>.'
  599. act 'Resize':
  600. money -= 500
  601. dynamic '<<$ARGS[2]>>B[<<ARGS[3]>>] = pcs_hips'
  602. gt 'clothing', 'view_clothing_list', 'resize'
  603. end
  604. end
  605. end
  606. end
  607. end
  608. if $ARGS[0] = 'strip':
  609. !$ARGS[1] = location when stripping outdoors
  610. if $clothingworntype = 'nude': exit
  611. cumspclnt = 6
  612. gs 'cum_cleanup'
  613. if cloth_vid = 1:
  614. last_vid = 1
  615. else
  616. last_vid = 0
  617. end
  618. if PCloStyle2 = 4:
  619. $schbrand = $clothingworntype
  620. schtype = clothingwornnumber
  621. end
  622. if $ARGS[1] ! '' :
  623. DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$ARGS[1]>>'
  624. $CloLosLoc[] = $ARGS[1]
  625. $CloLosTyp[$ARGS[1]] = $clothingworntype
  626. CloLosNum[$ARGS[1]] = clothingwornnumber
  627. CloLosDay[$ARGS[1]] = daystart
  628. KILLVAR '$lastwornclothingtype'
  629. KILLVAR 'lastwornclothingnumber'
  630. else
  631. $lastwornclothingtype = $clothingworntype
  632. lastwornclothingnumber = clothingwornnumber
  633. end
  634. $clothingworntype = 'nude'
  635. clothingwornnumber = 0
  636. CloQuality = 0
  637. CloThinness = 0
  638. CloTopCut = 0
  639. CloBra = 0
  640. CloPantsShortness = 0
  641. CloSkirtShortness = 0
  642. CloPanties = 0
  643. CloStyle = 0
  644. CloStyle2 = 0
  645. CloBimbo = 0
  646. CloOnePiece = 0
  647. PShoQuaility = 0
  648. PShoCut = 0
  649. PShoHeels = 0
  650. PShoStyle = 0
  651. PCloQuality = 0
  652. PCloThinness = 0
  653. PCloTopCut = 0
  654. PCloPants = 0
  655. PCloSkirt = 0
  656. PCloStyle = 0
  657. PCloStyle2 = 0
  658. PCloBimbo = 0
  659. PCloInhibit = 0
  660. PCloOnePiece = 0
  661. PXCloThinness = 0
  662. PXCloTopCut = 0
  663. PXCloBottomShortness = 0
  664. glamur = 0
  665. sport = 0
  666. ski = 0
  667. ofclo = 0
  668. sexual = 0
  669. odevnesh = 0
  670. ! WD: Bimbo look
  671. cloth_vid = 0
  672. exhibiHideNewCloth = 0
  673. end
  674. if $ARGS[0] = 'recover_lost_clothes':
  675. !$ARGS[1] = location
  676. !ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
  677. $cloLoc = $ARGS[1]
  678. cloAction = ARGS[2]
  679. $clothType = $CloLosTyp[$cloLoc]
  680. clothNumber = CloLosNum[$cloLoc]
  681. dayLost = CloLosDay[$cloLoc]
  682. DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
  683. findLocInd = ARRPOS('$CloLosTyp', $clothType)
  684. KILLVAR '$CloLosTyp', findLocInd
  685. findLocInd = ARRPOS('CloLosNum', clothNumber)
  686. KILLVAR 'CloLosNum', findLocInd
  687. findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
  688. KILLVAR 'CloLosDay', findLocInd
  689. findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
  690. KILLVAR '$CloLosLoc', findLocInd
  691. KILLVAR 'findLocInd'
  692. if cloAction = 1:
  693. gs 'clothing', 'wear', $clothType, clothNumber
  694. elseif cloAction = 2 :
  695. dynamic $clothType + 'S[<<clothNumber>>] = 1'
  696. end
  697. KILLVAR '$cloLoc'
  698. KILLVAR 'cloAction'
  699. KILLVAR '$clothType'
  700. KILLVAR 'clothNumber'
  701. end
  702. if $ARGS[0] = 'wear':
  703. !! ARGS 0 - action
  704. !! ARGS 1 - clothing type name
  705. !! ARGS 2 - clothing index
  706. gs 'clothing', 'strip'
  707. $clothingworntype = $ARGS[1]
  708. clothingwornnumber = ARGS[2]
  709. dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
  710. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  711. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  712. if CloStyle2 = 4:
  713. $schbrand = $clothingworntype
  714. schtype = clothingwornnumber
  715. end
  716. PCloQuality = CloQuality
  717. PCloThinness = CloThinness
  718. PCloTopCut = CloTopCut
  719. PCloBra = CloBra
  720. PCloOnePiece = CloOnePiece
  721. PCloPants = CloPantsShortness
  722. PCloSkirt = CloSkirtShortness
  723. PCloPanties = CloPanties
  724. PCloStyle = CloStyle
  725. PCloStyle2 = CloStyle2
  726. PCloInhibit = CloInhibit
  727. if cheatbimbo = 0:
  728. PCloBimbo = CloBimbo
  729. if CloBimbo = 1: bimbocl = 1
  730. if CloBimbo = 0: bimbocl = 0
  731. else
  732. PCloBimbo = 0
  733. CloBimbo = 0
  734. bimbocl = 0
  735. end
  736. if PCloTopCut > 1:
  737. if tits = 2 or tits = 3: PCloTopCut += 1
  738. if tits >= 4: PCloTopCut += 2
  739. if PCloTopCut > 2 and tits >=6: PCloTopCut += 1
  740. end
  741. !Calculations for clothing beauty, multiplied by natural beauty
  742. if PCloThinness > 0:
  743. if PCloThinness = 1:
  744. PXCloThinness = 150
  745. elseif PCloThinness = 2:
  746. PXCloThinness = 200
  747. elseif PCloThinness = 3:
  748. PXCloThinness = 250
  749. elseif PCloThinness = 4:
  750. PXCloThinness = 300
  751. elseif PCloThinness = 5:
  752. PXCloThinness = 350
  753. elseif PCloThinness = 6:
  754. PXCloThinness = 400
  755. end
  756. end
  757. if PCloTopCut > 0:
  758. if PCloTopCut = 1:
  759. PXCloTopCut = 100
  760. elseif PCloTopCut = 2:
  761. PXCloTopCut = 150
  762. elseif PCloTopCut = 3:
  763. PXCloTopCut = 200
  764. elseif PCloTopCut = 4:
  765. PXCloTopCut = 250
  766. elseif PCloTopCut = 5:
  767. PXCloTopCut = 300
  768. elseif PCloTopCut = 6:
  769. PXCloTopCut = 350
  770. elseif PCloTopCut >= 7:
  771. PXCloTopCut = 400
  772. end
  773. end
  774. if PCloBra = 1:
  775. PXCloTopCut = 400
  776. $braworntype = 'none'
  777. elseif PCloBra = 2:
  778. PXCloTopCut = 500
  779. end
  780. if PCloSkirt > 0:
  781. if PCloSkirt = 1:
  782. PXCloBottomShortness = 100
  783. elseif PCloSkirt = 2:
  784. PXCloBottomShortness = 150
  785. elseif PCloSkirt = 3:
  786. PXCloBottomShortness = 200
  787. elseif PCloSkirt = 4:
  788. PXCloBottomShortness = 250
  789. elseif PCloSkirt = 5:
  790. PXCloBottomShortness = 300
  791. elseif PCloSkirt = 6:
  792. PXCloBottomShortness = 350
  793. elseif PCloSkirt >= 7:
  794. PXCloBottomShortness = 400
  795. end
  796. end
  797. if PCloPants > 0:
  798. if PCloPants = 1:
  799. PXCloBottomShortness = 100
  800. elseif PCloPants = 2:
  801. PXCloBottomShortness = 150
  802. elseif PCloPants = 3:
  803. PXCloBottomShortness = 200
  804. elseif PCloPants = 4:
  805. PXCloBottomShortness = 250
  806. elseif PCloPants = 5:
  807. PXCloBottomShortness = 300
  808. elseif PCloPants = 6:
  809. PXCloBottomShortness = 350
  810. elseif PCloPants >= 7:
  811. PXCloBottomShortness = 400
  812. end
  813. end
  814. if PCloPanties = 1: PXCloBottomShortness = 400
  815. end
  816. if $ARGS[0] = 'wear_last_worn':
  817. !!contingency
  818. if $lastwornclothingtype = '': $lastwornclothingtype = 'nude'
  819. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  820. end
  821. if $ARGS[0] = 'swamp_clothes':
  822. if ARGS[1] = 1:
  823. !hessian clothing to owned, sets size and equipped.
  824. cheap[414] = 1
  825. cheapS[414] = 0
  826. cheapH[414] = 100
  827. cheapB[414] = pcs_hips
  828. swamp_clothes = 1
  829. gs 'clothing', 'wear', 'cheap', 414
  830. end
  831. if ARGS[1] = 0:
  832. !hessian clothing no longer owned, but not unequipped.
  833. cheap[414] = 0
  834. swamp_clothes = 0
  835. end
  836. end
  837. --- clothing ---------------------------------