clothing 21 KB

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