1
0

clothing 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847
  1. # clothing
  2. $clothing_list_line = {
  3. !! a single line in a clothing list (wardrobe, etc)
  4. !! ARGS 0 - action type (wardrobe, sell, resize, store, forsale)
  5. !! ARGS 1 - clothing type
  6. !! ARGS 2 - clothing index
  7. if night_mode = 1:
  8. $bgcolor = iif($bgcolor='#0C0B11','#000000','#0C0B11')
  9. else
  10. $bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
  11. end
  12. $RESULT = '<TR bgcolor='+$bgcolor+'>'
  13. if Enable_clothwidth > 0:
  14. clothing_temp = Enable_clothwidth - 1
  15. else
  16. clothing_temp = 75 & !clothing widdefault to 75
  17. end
  18. $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>>"></a></TD>'
  19. killvar 'clothing_temp'
  20. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  21. if $ARGS[1] ! 'school' or ARGS[2] ! 6:
  22. $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]' + '</TD>'
  23. if $ARGS[1] ! 'exercise' and $ARGS[1] ! 'coat' and CloStyle ! 5:
  24. $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>B[<<ARGS[2]>>]' + '</TD>'
  25. else
  26. $RESULT += '<TD></TD>'
  27. end
  28. else
  29. $RESULT += '<TD colspan="2"></TD>'
  30. end
  31. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  32. gs 'clothing_descriptions'
  33. $RESULT += '<TD><<FUNC(''$short_description'', $ARGS[1])>> <<ARGS[2]>><br/><br/><<$description>></TD>'
  34. else
  35. $RESULT += '<TD>' + FUNC('$clothing_name', $ARGS[1], ARGS[2]) + '</TD>'
  36. end
  37. if CloBimbo = 1:
  38. $RESULT += '<TD>Yes</TD>'
  39. else
  40. $RESULT += '<TD>No</TD>'
  41. end
  42. if CloStyle = 4:
  43. $RESULT += '<TD>Yes</TD>'
  44. else
  45. $RESULT += '<TD>No</TD>'
  46. end
  47. $RESULT += '<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a>'
  48. if $ARGS[0] ! 'sell' and $ARGS[0] ! 'resize':
  49. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $ARGS[1] = 'school' and ARGS[2] = 6:
  50. $RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wear</a></TD>'
  51. elseif ($ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear') and dyneval('RESULT = <<$ARGS[1]>>H[<<ARGS[2]>>]') > 0:
  52. 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):
  53. $RESULT += '</TD>'
  54. else
  55. $RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Wear</a></TD>'
  56. end
  57. else
  58. $RESULT += '</TD>'
  59. end
  60. $RESULT += '<TD>'
  61. if cloc ! 1:$RESULT += ' <a href="exec:gt ''clothing'', ''dest1'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Storage</a><BR>'
  62. if cloc ! 0:$RESULT += ' <a href="exec:gt ''clothing'', ''dest0'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Wardrobe</a><BR>'
  63. if $ARGS[1] ! 'school' or ARGS[2] ! 6:
  64. if cloc ! 2:$RESULT += ' <a href="exec:gt ''clothing'', ''dest2'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Unwanted</a>'
  65. end
  66. $RESULT += '</TD>'
  67. end
  68. }
  69. !!cloc, 0 = wardrobe, 1 = storage, 2 = unwanted
  70. if $ARGS[0] = 'dest0':
  71. *clr
  72. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 0'
  73. gt 'clothing', 'view_clothing_list', $ARGS[1]
  74. end
  75. if $ARGS[0] = 'dest1':
  76. *clr
  77. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 1'
  78. gt 'clothing', 'view_clothing_list', $ARGS[1]
  79. end
  80. if $ARGS[0] = 'dest2':
  81. *clr
  82. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 2'
  83. gt 'clothing', 'view_clothing_list', $ARGS[1]
  84. end
  85. if $ARGS[0] = 'view_clothing_list':
  86. !! ARGS 0 - view_clothing_list
  87. !! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
  88. !! ARGS 2 - Shop name (kats, moncheri, gm, fashionista, sexshop, exhibitshop, dolls, sports)
  89. if $ARGS[1] ! 'sell' :'<center><table border=1><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ARGS[2]>>''">Organise available clothing</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ARGS[2]>>''">View stored clothing list</a></TH><TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ARGS[2]>>''">View unwanted clothing list</a></TH><TH><a href="exec:gt ''clothing_QV'', ''list''">Pick something to wear</a></TH></center>'
  90. if $ARGS[1] = 'wardrobe':
  91. cloc = 0
  92. if $clothingworntype ! 'nude':act 'Strip':gs 'clothing', 'strip' & gt $loc, $metka
  93. end
  94. act 'Leave':gt $loc, $metka
  95. if $ARGS[2] = '':
  96. '<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''gm''"><img src="images/locations/city/citycenter/mall/GM.png"></a></center>'
  97. if ARRSIZE('average') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  98. if ARRSIZE('expensive') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionistat.png"></a></center>'
  99. if ARRSIZE('formal') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  100. if ARRSIZE('fetish') > 0 or ARRSIZE('burlesque') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''sexshop''"><img src="images/locations/city/citycenter/sexshop/shop_name.png"></a></center>'
  101. if ARRSIZE('exhibit') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''exhibitshop''"><img src="images/locations/oldtown/exhibitshop/shop_name.png"></a></center>'
  102. if ARRSIZE('alternative') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''dolls''"><img src="images/locations/city/island/dolls.png"></a></center>'
  103. if ARRSIZE('exercise') > 0:'<center><a href="exec:gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  104. else
  105. if $ARGS[2] = 'gm': '<center><img src="images/locations/city/citycenter/mall/GM.png"></center>'
  106. if $ARGS[2] = 'kats': '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  107. if $ARGS[2] = 'fashionista': '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  108. if $ARGS[2] = 'moncheri': '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  109. if $ARGS[2] = 'sexshop': '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  110. if $ARGS[2] = 'exhibitshop': '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  111. if $ARGS[2] = 'dolls': '<center><img src="images/locations/city/island/dolls.png"></center>'
  112. if $ARGS[2] = 'sports': '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  113. $bgcolor='#f3f4ee'
  114. if $ARGS[1] = 'sell':
  115. '<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>'
  116. else
  117. '<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>'
  118. end
  119. if $ARGS[1] = 'store':
  120. cloc = 1
  121. end
  122. if $ARGS[1] = 'unwanted':
  123. cloc = 2
  124. end
  125. if $ARGS[2] = 'gm':
  126. 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)
  127. i = 1
  128. :loopcheap
  129. if cheap[i] = 1 and cheapS[i] = cloc and ($clothingworntype ! 'cheap' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cheap', i)
  130. i += 1
  131. if i <= ARRSIZE('cheap'):jump 'loopcheap'
  132. i = 1
  133. :loopoffice
  134. if office[i] = 1 and officeS[i] = cloc and ($clothingworntype ! 'office' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'office', i)
  135. i += 1
  136. if i <= ARRSIZE('office'):jump 'loopoffice'
  137. i = 1
  138. :loopschool
  139. if school[i] = 1 and schoolS[i] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'school', i)
  140. i += 1
  141. if i = 6: i = 7
  142. if i <= ARRSIZE('school'):jump 'loopschool'
  143. i = 1
  144. :loopuniform
  145. if uniform[i] = 1 and uniformS[i] = cloc and ($clothingworntype ! 'uniform' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'uniform', i)
  146. i += 1
  147. if i <= ARRSIZE('uniform'):jump 'loopuniform'
  148. i = 1
  149. :loopswimwear
  150. if swimwear[i] = 1 and swimwearS[i] = cloc :*P dyneval($clothing_list_line, $ARGS[1], 'swimwear', i)
  151. i += 1
  152. if i <= ARRSIZE('swimwear'):jump 'loopswimwear'
  153. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  154. end
  155. if $ARGS[2] = 'kats':
  156. i = 1
  157. :loopaverage
  158. if average[i] = 1 and averageS[i] = cloc and ($clothingworntype ! 'average' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'average', i)
  159. i += 1
  160. if i <= ARRSIZE('average'):jump 'loopaverage'
  161. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  162. end
  163. if $ARGS[2] = 'fashionista':
  164. i = 1
  165. :loopexpensive
  166. if expensive[i] = 1 and expensiveS[i] = cloc and ($clothingworntype ! 'expensive' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'expensive', i)
  167. i += 1
  168. if i <= ARRSIZE('expensive'):jump 'loopexpensive'
  169. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  170. end
  171. if $ARGS[2] = 'moncheri':
  172. i = 1
  173. :loopformal
  174. if formal[i] = 1 and formalS[i] = cloc and ($clothingworntype ! 'formal' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'formal', i)
  175. i += 1
  176. if i <= ARRSIZE('formal'):jump 'loopformal'
  177. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  178. end
  179. if $ARGS[2] = 'sexshop':
  180. i = 1
  181. :loopfetish
  182. if fetish[i] = 1 and fetishS[i] = cloc and ($clothingworntype ! 'fetish' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fetish', i)
  183. i += 1
  184. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  185. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  186. i = 1
  187. :loopburlesque
  188. if burlesque[i] = 1 and burlesqueS[i] = cloc and ($clothingworntype ! 'burlesque' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'burlesque', i)
  189. i += 1
  190. if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
  191. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  192. end
  193. if $ARGS[2] = 'exhibitshop':
  194. i = 1
  195. :loopexhibit
  196. if exhibit[i] = 1 and exhibitS[i] = cloc and ($clothingworntype ! 'exhibit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exhibit', i)
  197. i += 1
  198. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  199. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  200. end
  201. if $ARGS[2] = 'dolls':
  202. i = 1
  203. :loopalternative
  204. if alternative[i] = 1 and alternativeS[i] = cloc and ($clothingworntype ! 'alternative' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'alternative', i)
  205. i += 1
  206. if i <= ARRSIZE('alternative'):jump 'loopalternative'
  207. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  208. end
  209. if $ARGS[2] = 'sports':
  210. i = 1
  211. :loopexercise
  212. if exercise[i] = 1 and exerciseS[i] = cloc and ($clothingworntype ! 'exercise' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exercise', i)
  213. i += 1
  214. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  215. act 'Choose a different store': gt 'clothing', 'view_clothing_list', $ARGS[1]
  216. end
  217. '</table>'
  218. end
  219. end
  220. if $ARGS[0] = 'view_clothing_item':
  221. !! ARGS 0 - view_clothing_item
  222. !! ARGS 1 = action type (wardrobe, shop, sell, resize)
  223. !! ARGS 2 - clothing type
  224. !! ARGS 3 - clothing index
  225. !! ARGS 4 - price for shop
  226. cla
  227. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[2], ARGS[3])>>"></center>'
  228. gs 'clothing_attributes', $ARGS[2], ARGS[3]
  229. $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  230. $RESULT += '<<ARGS[3]>>'
  231. '<<$RESULT>>'
  232. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
  233. gs 'clothing_descriptions'
  234. '<<$description>>'
  235. else
  236. FUNC('$clothing_name', $ARGS[2], ARGS[3])
  237. end
  238. if CloBimbo = 1:'This item is considered bimbo clothing.'
  239. if CloStyle = 4:'This outfit can be used for prostitution.'
  240. if CloExhibit + 10 > pcs_exhibition: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  241. if $ARGS[2] = 'uniform':
  242. if CloStyle2 = 1:
  243. 'This outfit is considered to be a maid uniform.'
  244. elseif CloStyle2 = 3:
  245. 'This is a stripper outfit.'
  246. else
  247. 'This outfit is a server uniform, suitable for jobs that require one.'
  248. end
  249. end
  250. if $ARGS[2] = 'school':
  251. if CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
  252. '<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
  253. elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
  254. '<font color="blue">This uniform slightly breaches the school regulations on skirt length.</font>'
  255. else
  256. '<font color="red">This uniform makes a mockery of the school uniform regulations.</font>'
  257. end
  258. end
  259. if $ARGS[1] ! 'shop' and ($ARGS[2] ! 'school' or ARGS[3] ! 6):
  260. $RESULT = '(strength '
  261. dynamic '$RESULT += <<$ARGS[2]>>H[<<ARGS[3]>>]'
  262. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  263. $RESULT += ', hip size '
  264. dynamic '$RESULT += <<$ARGS[2]>>B[<<ARGS[3]>>]'
  265. end
  266. $RESULT += ')'
  267. '<<$RESULT>>'
  268. end
  269. if $ARGS[1] = 'shop':
  270. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  271. 'You already own this item.'
  272. act 'Leave': gt $loc, $metka
  273. else
  274. if $ARGS[2] = 'coat' and ARGS[3] = 5:
  275. price = ARGS[4]
  276. else
  277. price = ('<<ARGS[4]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  278. price = price / 50 * 50
  279. end
  280. 'Price: <<price>> <b>₽</b>'
  281. act 'Leave': gt $loc, $metka
  282. if CloExhibit > pcs_exhibition:
  283. 'You don''t feel daring enough to wear an outfit this revealing and can''t bring yourself to buy it.'
  284. elseif money >= Price:
  285. act 'Buy':
  286. h = 0
  287. if CloStyle = 2:h = 10
  288. if CloStyle = 5:h = 20
  289. h += (3 * CloQuality)
  290. money -= price
  291. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  292. if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
  293. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 70 + <<h>>'
  294. elseif $ARGS[2] = 'average':
  295. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 90 + <<h>>'
  296. elseif $ARGS[2] = 'formal':
  297. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 15 + <<h>>'
  298. elseif $ARGS[2] = 'fetish' or $ARGS[2] = 'exhibit' or $ARGS[2] = 'burlesque':
  299. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 35 + <<h>>'
  300. elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
  301. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 120 + <<h>>'
  302. elseif $ARGS[2] = 'exercise':
  303. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 100 + <<h>>'
  304. elseif $ARGS[2] = 'coat':
  305. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 250 + <<h>>'
  306. else
  307. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 60 + <<h>>'
  308. end
  309. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  310. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  311. gt $loc, $metka
  312. end
  313. else
  314. 'You cannot afford this outfit.'
  315. end
  316. end
  317. elseif $ARGS[1] = 'wardrobe':
  318. act 'Leave in closet':gt 'clothing', 'view_clothing_list', $ARGS[1]
  319. if $ARGS[2] ! 'school' or ARGS[3] ! 6:
  320. !! if the clothing is worn out
  321. if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
  322. 'This item is worn and is not suitable for further wear.'
  323. if pcs_sewng >= 60 and tkan > 0:
  324. cla
  325. 'You can repair this thanks to your sewing skill.'
  326. act 'Repair item':
  327. if rand (1, 100) < 30:
  328. cla
  329. tkan -= 1
  330. minut += 30
  331. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
  332. 'You spend 30 minutes fixing the outfit.'
  333. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  334. else
  335. cla
  336. tkan += 3
  337. minut += 30
  338. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
  339. '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.'
  340. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  341. end
  342. end
  343. act 'Leave in closet': gt 'clothing', 'view_clothing_list', $ARGS[1]
  344. end
  345. exit
  346. end
  347. !! if the clothing is a type that checks for hip size
  348. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  349. !! if the hipsize is too far from your hipsize
  350. dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
  351. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  352. if RESULT < pcs_hips:
  353. 'This item is too small for you to wear.'
  354. else
  355. 'This item is too large for you to wear.'
  356. end
  357. if pcs_sewng >= 60 and tkan > 0:
  358. cla
  359. 'You can resize this thanks to your sewing skill.'
  360. act 'Resize item':
  361. cla
  362. tkan -= 1
  363. minut += 30
  364. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  365. 'You spend 30 minutes resizing the outfit.'
  366. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  367. end
  368. act 'Leave in closet': gt 'clothing', 'view_clothing_list', $ARGS[1]
  369. end
  370. exit
  371. end
  372. end
  373. end
  374. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
  375. if CloExhibit > pcs_exhibition:
  376. 'You don''t feel daring enough to wear an outfit this revealing.'
  377. elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
  378. 'You lost these clothes somewhere, maybe you can find them again?.'
  379. else
  380. act 'Wear':
  381. gs 'clothing', 'wear', $ARGS[2], ARGS[3]
  382. gt 'clothing', 'view_clothing_list', $ARGS[1]
  383. end
  384. end
  385. end
  386. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  387. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  388. if $ARGS[2] ! 'coat':
  389. act 'Move back to wardrobe':
  390. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  391. gt 'clothing', 'view_clothing_list', $ARGS[1]
  392. end
  393. end
  394. elseif $ARGS[1] = 'sell':
  395. act 'Keep item':gt 'clothing', 'view_clothing_list', $ARGS[1]
  396. !! value is based on the strength remaining
  397. dynamic 'RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]'
  398. if RESULT > 45:
  399. 'You can sell this item for 500 <b>₽</b>.'
  400. act 'Sell':
  401. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  402. money += 500
  403. gt 'clothing', 'view_clothing_list', $ARGS[1]
  404. end
  405. elseif RESULT > 30:
  406. 'You can sell this item for 300 <b>₽</b>.'
  407. act 'Sell':
  408. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  409. money += 300
  410. gt 'clothing', 'view_clothing_list', $ARGS[1]
  411. end
  412. elseif RESULT > 0:
  413. 'You can sell this item for 100 <b>₽</b>.'
  414. act 'Sell':
  415. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  416. money += 100
  417. gt 'clothing', 'view_clothing_list', $ARGS[1]
  418. end
  419. else
  420. 'This item is too worn to have any sale value.'
  421. act 'Throw it away':
  422. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  423. gt 'clothing', 'view_clothing_list', $ARGS[1]
  424. end
  425. end
  426. elseif $ARGS[1] = 'resize':
  427. act 'Leave item alone':gt 'clothing', 'view_clothing_list', $ARGS[1]
  428. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  429. if dyneval('RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]') ! pcs_hips and money >= 500:
  430. 'You can have this resized for 500 <b>₽</b>.'
  431. act 'Resize':
  432. money -= 500
  433. dynamic '<<$ARGS[2]>>B[<<ARGS[3]>>] = pcs_hips'
  434. gt 'clothing', 'view_clothing_list', $ARGS[1]
  435. end
  436. end
  437. end
  438. end
  439. end
  440. if $ARGS[0] = 'strip':
  441. !$ARGS[1] = location when stripping outdoors
  442. if $clothingworntype = 'nude': exit
  443. cumspclnt = 6
  444. gs 'cum_cleanup'
  445. if cloth_vid = 1:
  446. last_vid = 1
  447. else
  448. last_vid = 0
  449. end
  450. if $clothingworntype = 'school':schtype = clothingwornnumber
  451. if $ARGS[1] ! '' :
  452. DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$ARGS[1]>>'
  453. $CloLosLoc[] = $ARGS[1]
  454. $CloLosTyp[$ARGS[1]] = $clothingworntype
  455. CloLosNum[$ARGS[1]] = clothingwornnumber
  456. CloLosDay[$ARGS[1]] = daystart
  457. KILLVAR '$lastwornclothingtype'
  458. KILLVAR 'lastwornclothingnumber'
  459. else
  460. $lastwornclothingtype = $clothingworntype
  461. lastwornclothingnumber = clothingwornnumber
  462. end
  463. $clothingworntype = 'nude'
  464. clothingwornnumber = 0
  465. CloQuality = 0
  466. CloThinness = 0
  467. CloTopCut = 0
  468. CloBra = 0
  469. CloPantsShortness = 0
  470. CloSkirtShortness = 0
  471. CloPanties = 0
  472. CloStyle = 0
  473. CloStyle2 = 0
  474. CloBimbo = 0
  475. PShoQuaility = 0
  476. PShoCut = 0
  477. PShoHeels = 0
  478. PShoStyle = 0
  479. PCloQuality = 0
  480. PCloThinness = 0
  481. PCloTopCut = 0
  482. PCloPants = 0
  483. PCloSkirt = 0
  484. PCloStyle = 0
  485. PCloStyle2 = 0
  486. PCloBimbo = 0
  487. PCloExhibit = 0
  488. PXCloThinness = 0
  489. PXCloTopCut = 0
  490. PXCloSkirtShortness = 0
  491. PXCloPantsShortness = 0
  492. glamur = 0
  493. sport = 0
  494. ski = 0
  495. ofclo = 0
  496. sexual = 0
  497. odevnesh = 0
  498. ! WD: Bimbo look
  499. cloth_vid = 0
  500. exhibiHideNewCloth = 0
  501. end
  502. if $ARGS[0] = 'recover_lost_clothes':
  503. !$ARGS[1] = location
  504. !ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
  505. $cloLoc = $ARGS[1]
  506. cloAction = ARGS[2]
  507. $clothType = $CloLosTyp[$cloLoc]
  508. clothNumber = CloLosNum[$cloLoc]
  509. dayLost = CloLosDay[$cloLoc]
  510. DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
  511. findLocInd = ARRPOS('$CloLosTyp', $clothType)
  512. KILLVAR '$CloLosTyp', findLocInd
  513. findLocInd = ARRPOS('CloLosNum', clothNumber)
  514. KILLVAR 'CloLosNum', findLocInd
  515. findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
  516. KILLVAR 'CloLosDay', findLocInd
  517. findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
  518. KILLVAR '$CloLosLoc', findLocationIndex
  519. KILLVAR 'findLocInd'
  520. if cloAction = 1:
  521. gs 'clothing', 'wear', $clothType, clothNumber
  522. elseif cloAction = 2 :
  523. dynamic $clothType + 'S[<<clothNumber>>] = 1'
  524. end
  525. KILLVAR '$cloLoc'
  526. KILLVAR 'cloAction'
  527. KILLVAR '$clothType'
  528. KILLVAR 'clothNumber'
  529. end
  530. if $ARGS[0] = 'wear':
  531. !! ARGS 0 - action
  532. !! ARGS 1 - clothing type name
  533. !! ARGS 2 - clothing index
  534. gs 'clothing', 'strip'
  535. $clothingworntype = $ARGS[1]
  536. clothingwornnumber = ARGS[2]
  537. dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
  538. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  539. gs 'clothing_descriptions'
  540. else
  541. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  542. end
  543. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  544. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  545. PCloQuality = CloQuality
  546. PCloThinness = CloThinness
  547. PCloTopCut = CloTopCut
  548. PCloBra = CloBra
  549. PCloPants = CloPantsShortness
  550. PCloSkirt = CloSkirtShortness
  551. PCloPanties = CloPanties
  552. PCloStyle = CloStyle
  553. PCloStyle2 = CloStyle2
  554. PCloExhibit = CloExhibit
  555. if $cheatBimbo ! '<b>ON</b>':
  556. PCloBimbo = CloBimbo
  557. if CloBimbo = 1:bimbocl = 1
  558. else
  559. PCloBimbo = 0
  560. bimbocl = 0
  561. end
  562. if PCloTopCut > 1:
  563. if tits = 2 or tits = 3:PCloTopCut += 1
  564. if tits = 4 or tits = 5:PCloTopCut += 2
  565. if tits >= 6:PCloTopCut += 3
  566. end
  567. !Calculations for clothing beauty, multiplied by natural beauty
  568. if PCloThinness > 0:
  569. if PCloThinness = 1:
  570. PXCloThinness = 25
  571. elseif PCloThinness = 2:
  572. PXCloThinness = 50
  573. elseif PCloThinness = 3:
  574. PXCloThinness = 100
  575. elseif PCloThinness = 4:
  576. PXCloThinness = 150
  577. elseif PCloThinness = 5:
  578. PXCloThinness = 200
  579. elseif PCloThinness = 6:
  580. PXCloThinness = 300
  581. elseif PCloThinness >= 7:
  582. PXCloThinness = 400
  583. end
  584. end
  585. if PCloTopCut > 0:
  586. if PCloTopCut = 1:
  587. PXCloTopCut = 25
  588. elseif PCloTopCut = 2:
  589. PXCloTopCut = 50
  590. elseif PCloTopCut = 3:
  591. PXCloTopCut = 100
  592. elseif PCloTopCut = 4:
  593. PXCloTopCut = 150
  594. elseif PCloTopCut = 5:
  595. PXCloTopCut = 200
  596. elseif PCloTopCut = 6:
  597. PXCloTopCut = 300
  598. elseif PCloTopCut >= 7:
  599. PXCloTopCut = 400
  600. end
  601. end
  602. if PCloBra = 1:
  603. PXCloTopCut = 400
  604. elseif PCloBra = 2:
  605. PXCloTopCut = 500
  606. end
  607. if PCloSkirt > 0:
  608. if PCloSkirt = 1:
  609. PXCloSkirtShortness = 25
  610. elseif PCloSkirt = 2:
  611. PXCloSkirtShortness = 50
  612. elseif PCloSkirt = 3:
  613. PXCloSkirtShortness = 100
  614. elseif PCloSkirt = 4:
  615. PXCloSkirtShortness = 150
  616. elseif PCloSkirt = 5:
  617. PXCloSkirtShortness = 200
  618. elseif PCloSkirt = 6:
  619. PXCloSkirtShortness = 300
  620. elseif PCloSkirt >= 7:
  621. PXCloSkirtShortness = 400
  622. end
  623. end
  624. if PCloPants > 0:
  625. if PCloPants = 1:
  626. PXCloPantsShortness = 25
  627. elseif PCloPants = 2:
  628. PXCloPantsShortness = 50
  629. elseif PCloPants = 3:
  630. PXCloPantsShortness = 100
  631. elseif PCloPants = 4:
  632. PXCloPantsShortness = 150
  633. elseif PCloPants = 5:
  634. PXCloPantsShortness = 200
  635. elseif PCloPants = 6:
  636. PXCloPantsShortness = 300
  637. elseif PCloPants >= 7:
  638. PXCloPantsShortness = 400
  639. end
  640. end
  641. if PCloPanties = 1: PXCloPantsShortness = 400
  642. end
  643. if $ARGS[0] = 'wear_last_worn':
  644. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  645. end
  646. if $ARGS[0] = 'default':
  647. gs 'stat'
  648. if ARRSIZE('defclothingnumber') = 0:
  649. 'You have no default outfits set.'
  650. else
  651. i = 0
  652. :loopdefclothing
  653. '<<$def_clothing_name[i]>> <a href="exec:gs ''clothing'', ''default_entry_wear'', <<i>>">Wear this default outfit</a> <a href="exec:gs ''clothing'', ''default_entry_delete'', <<i>>">Delete this default outfit</a>'
  654. i += 1
  655. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing'
  656. end
  657. act 'Return': gt 'wardrobe'
  658. end
  659. if $ARGS[0] = 'default_entry_wear':
  660. default_entry = ARGS[1]
  661. gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry]
  662. gs 'bras', 'wear', $defbratype[default_entry], defbranumber[default_entry]
  663. gs 'panties', 'wear', $defpantytype[default_entry], defpantynumber[default_entry]
  664. gs 'shoes', 'wear', $defshoetype[default_entry], defshoenumber[default_entry]
  665. $currentpursetype = $defpursetype[default_entry]
  666. currentpursenumber = defpursenumber[default_entry]
  667. defaultcoat = defcoat[default_entry]
  668. killvar 'default_entry'
  669. gs 'stat'
  670. end
  671. if $ARGS[0] = 'default_set':
  672. gs 'stat'
  673. if ARRSIZE('defclothingnumber') ! 0:
  674. i = 0
  675. :loopdefclothing_set
  676. '<<$def_clothing_name[i]>> <a href="exec:gt ''clothing'', ''default_entry_set'', <<i>>">Overwrite this</a>'
  677. i += 1
  678. if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing_set'
  679. end
  680. act 'Add as new default': gt 'clothing', 'default_entry_set', ARRSIZE('defclothingnumber')
  681. act 'Return': gt 'wardrobe'
  682. end
  683. if $ARGS[0] = 'default_entry_set':
  684. gs 'stat'
  685. i = ARGS[1]
  686. $defclothingtype[i] = $clothingworntype
  687. defclothingnumber[i] = clothingwornnumber
  688. $defbratype[i] = $braworntype
  689. defbranumber[i] = brawornnumber
  690. $defpantytype[i] = $pantyworntype
  691. defpantynumber[i] = pantywornnumber
  692. $defshoetype[i] = $shoeworntype
  693. defshoenumber[i] = shoewornnumber
  694. $defpursetype[i] = $currentpursetype
  695. defpursenumber[i] = currentpursenumber
  696. defcoat[i] = defaultcoat
  697. $def_clothing_name[i] = input ('Enter name for for this outfit (Leave blank for default)')
  698. if $def_clothing_name[i] = '': $def_clothing_name[i] = 'default <<i>>'
  699. gt 'clothing', 'default_set'
  700. end
  701. if $ARGS[0] = 'default_entry_delete':
  702. gs 'stat'
  703. i = ARGS[1]
  704. killvar 'defclothingtype', i
  705. killvar 'defclothingnumber', i
  706. killvar 'defbratype', i
  707. killvar 'defbranumber', i
  708. killvar 'defpantytype', i
  709. killvar 'defpantynumber', i
  710. killvar 'defshoetype', i
  711. killvar 'defshoenumber', i
  712. killvar 'defpursetype', i
  713. killvar 'defpursenumber', i
  714. killvar 'defcoat', i
  715. killvar 'def_clothing_name', i
  716. gt 'clothing', 'default_set'
  717. end
  718. --- clothing ---------------------------------