1
0

clothing 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593
  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 $ARGS[1] = 'naughty' and CloQuality < 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]>>]') < (bedra - 8) or dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') > (bedra + 8)):
  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. if $ARGS[0] = 'dest0':
  66. *clr
  67. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 0'
  68. gt 'clothing', 'view_clothing_list', $ARGS[1]
  69. end
  70. if $ARGS[0] = 'dest1':
  71. *clr
  72. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 1'
  73. gt 'clothing', 'view_clothing_list', $ARGS[1]
  74. end
  75. if $ARGS[0] = 'dest2':
  76. *clr
  77. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 2'
  78. gt 'clothing', 'view_clothing_list', $ARGS[1]
  79. end
  80. if $ARGS[0] = 'view_clothing_list':
  81. !! ARGS 0 - view_clothing_list
  82. !! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
  83. !! ARGS 2 - brothel flag (brothel)
  84. !access locker means you are out of swamp and find road now, disable effect, and get all cloth back
  85. dirtyclothes = 0
  86. clothesswamphouse = 0
  87. clothesbackwater = 0
  88. clothesforest = 0
  89. swamp_clothes = 0
  90. act 'Leave':gt $loc, $metka
  91. 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>'
  92. $bgcolor='#f3f4ee'
  93. if $ARGS[1] = 'sell':
  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>'
  95. else
  96. '<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>'
  97. end
  98. if $ARGS[1] = 'wardrobe':
  99. cloc = 0
  100. if $clothingworntype ! 'nude':act 'Strip':gs 'clothing', 'strip' & gt $loc, $metka
  101. end
  102. if $ARGS[1] = 'store':
  103. cloc = 1
  104. end
  105. if $ARGS[1] = 'unwanted':
  106. cloc = 2
  107. end
  108. 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)
  109. i = 1
  110. :loopcheap
  111. if cheap[i] = 1 and cheapS[i] = cloc and ($clothingworntype ! 'cheap' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cheap', i)
  112. i += 1
  113. if i <= 85:jump 'loopcheap'
  114. i = 1
  115. :loopaverage
  116. if average[i] = 1 and averageS[i] = cloc and ($clothingworntype ! 'average' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'average', i)
  117. i += 1
  118. if i <= 125:jump 'loopaverage'
  119. i = 1
  120. :loopexpensive
  121. if expensive[i] = 1 and expensiveS[i] = cloc and ($clothingworntype ! 'expensive' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'expensive', i)
  122. i += 1
  123. if i <= 147:jump 'loopexpensive'
  124. i = 1
  125. :loopformal
  126. if formal[i] = 1 and formalS[i] = cloc and ($clothingworntype ! 'formal' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'formal', i)
  127. i += 1
  128. if i <= 14:jump 'loopformal'
  129. i = 1
  130. :loopoffice
  131. if office[i] = 1 and officeS[i] = cloc and ($clothingworntype ! 'office' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'office', i)
  132. i += 1
  133. if i <= 30:jump 'loopoffice'
  134. i = 1
  135. :loopschool
  136. if school[i] = 1 and schoolS[i] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'school', i)
  137. i += 1
  138. if i = 6: i = 7
  139. if i <= 35:jump 'loopschool'
  140. i = 1
  141. :loopexercise
  142. if exercise[i] = 1 and exerciseS[i] = cloc and ($clothingworntype ! 'exercise' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exercise', i)
  143. i += 1
  144. if i <= 26:jump 'loopexercise'
  145. i = 1
  146. :loopnaughty
  147. if naughty[i] = 1 and naughtyS[i] = cloc and ($clothingworntype ! 'naughty' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'naughty', i)
  148. i += 1
  149. if i <= 67:jump 'loopnaughty'
  150. i = 1
  151. :loopexhibit
  152. if exhibit[i] = 1 and exhibitS[i] = cloc and ($clothingworntype ! 'exhibit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exhibit', i)
  153. i += 1
  154. if i <= 30:jump 'loopexhibit'
  155. i = 1
  156. :loopuniform
  157. if uniform[i] = 1 and uniformS[i] = cloc and ($clothingworntype ! 'uniform' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'uniform', i)
  158. i += 1
  159. if i <= 24:jump 'loopuniform'
  160. i = 1
  161. :loopswimwear
  162. if swimwear[i] = 1 and swimwearS[i] = cloc :*P dyneval($clothing_list_line, $ARGS[1], 'swimwear', i)
  163. i += 1
  164. if i <= 30:jump 'loopswimwear'
  165. '</table>'
  166. end
  167. if $ARGS[0] = 'view_clothing_item':
  168. !! ARGS 0 - view_clothing_item
  169. !! ARGS 1 = action type (wardrobe, shop, sell, resize)
  170. !! ARGS 2 - clothing type
  171. !! ARGS 3 - clothing index
  172. !! ARGS 4 - price for shop
  173. cla
  174. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[2], ARGS[3])>>"></center>'
  175. $RESULT = FUNC('$short_description', $ARGS[2])
  176. $RESULT += '<<ARGS[3]>>'
  177. '<<$RESULT>>'
  178. gs 'clothing_attributes', $ARGS[2], ARGS[3]
  179. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
  180. gs 'clothing_descriptions'
  181. '<<$description>>'
  182. else
  183. FUNC('$clothing_name', $ARGS[2], ARGS[3])
  184. end
  185. if CloBimbo = 1:'This item is considered bimbo clothing.'
  186. if $ARGS[2] = 'naughty' and CloQuality < 4:'This outfit can be used for prostitution.'
  187. if $ARGS[2] = 'uniform':
  188. if CloStyle2 = 1:
  189. 'This outfit is considered to be a maid uniform.'
  190. else
  191. 'This outfit is a server uniform, suitable for jobs that require one.'
  192. end
  193. end
  194. if $ARGS[2] = 'school':
  195. if CloSkirtShortness < 5:
  196. '<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
  197. elseif CloSkirtShortness = 5:
  198. '<font color="blue">This uniform slightly breaches the school regulations on skirt length.</font>'
  199. else
  200. '<font color="red">This uniform makes a mockery of the school uniform regulations.</font>'
  201. end
  202. end
  203. if $ARGS[1] ! 'shop' and ($ARGS[2] ! 'school' or ARGS[3] ! 6):
  204. $RESULT = '(strength '
  205. dynamic '$RESULT += <<$ARGS[2]>>H[<<ARGS[3]>>]'
  206. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  207. $RESULT += ', hip size '
  208. dynamic '$RESULT += <<$ARGS[2]>>B[<<ARGS[3]>>]'
  209. end
  210. $RESULT += ')'
  211. '<<$RESULT>>'
  212. end
  213. if $ARGS[1] = 'shop':
  214. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  215. 'You already own this item.'
  216. act 'Leave': gt $loc, $metka
  217. else
  218. if $ARGS[2] = 'coat' and ARGS[3] = 5:
  219. price = ARGS[4]
  220. else
  221. price = ('<<ARGS[4]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]])
  222. end
  223. 'Price: <<price>>'
  224. act 'Leave': gt $loc, $metka
  225. if money >= Price:
  226. act 'Buy':
  227. h = 0
  228. if CloStyle = 2:h = 10
  229. if CloStyle = 5:h = 20
  230. h += (3 * CloQuality)
  231. money -= price
  232. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  233. if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
  234. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 70 + <<h>>'
  235. elseif $ARGS[2] = 'average':
  236. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 90 + <<h>>'
  237. elseif $ARGS[2] = 'formal':
  238. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 15 + <<h>>'
  239. elseif $ARGS[2] = 'naughty' or $ARGS[2] = 'exhibit':
  240. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 35 + <<h>>'
  241. elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
  242. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 120 + <<h>>'
  243. elseif $ARGS[2] = 'exercise':
  244. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 100 + <<h>>'
  245. elseif $ARGS[2] = 'coat':
  246. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 250 + <<h>>'
  247. else
  248. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 60 + <<h>>'
  249. end
  250. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = bedra'
  251. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  252. gt $loc, $metka
  253. end
  254. else
  255. 'You cannot afford this outfit.'
  256. end
  257. end
  258. elseif $ARGS[1] = 'wardrobe':
  259. act 'Leave in closet':gt 'clothing', 'view_clothing_list', $ARGS[1]
  260. if $ARGS[2] ! 'school' or ARGS[3] ! 6:
  261. !! if the clothing is worn out
  262. if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
  263. 'This item is worn and is not suitable for further wear.'
  264. if poSkill >= 200 and tkan > 0:
  265. cla
  266. 'You can repair this thanks to your sewing skill.'
  267. act 'Repair item':
  268. if rand (1, 100) < 30:
  269. cla
  270. tkan -= 1
  271. minut += 30
  272. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
  273. 'You spend 30 minutes fixing the outfit.'
  274. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  275. else
  276. cla
  277. tkan += 3
  278. minut += 30
  279. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
  280. '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.'
  281. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  282. end
  283. end
  284. act 'Leave in closet': gt 'clothing', 'view_clothing_list', $ARGS[1]
  285. end
  286. exit
  287. end
  288. !! if the clothing is a type that checks for hip size
  289. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  290. !! if the hipsize is too far from your hipsize
  291. dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
  292. if RESULT < bedra - 8 or RESULT > bedra + 8:
  293. if RESULT < bedra:
  294. 'This item is too small for you to wear.'
  295. else
  296. 'This item is too large for you to wear.'
  297. end
  298. if poSkill >= 100 and tkan > 0:
  299. cla
  300. 'You can resize this thanks to your sewing skill.'
  301. act 'Resize item':
  302. cla
  303. tkan -= 1
  304. minut += 30
  305. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = bedra'
  306. 'You spend 30 minutes resizing the outfit.'
  307. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  308. end
  309. act 'Leave in closet': gt 'clothing', 'view_clothing_list', $ARGS[1]
  310. end
  311. exit
  312. end
  313. end
  314. end
  315. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
  316. act 'Wear':
  317. gs 'clothing', 'wear', $ARGS[2], ARGS[3]
  318. dynamic $ARGS[2] + 'W[<<ARGS[3]>>] = 1'
  319. gt 'clothing', 'view_clothing_list', $ARGS[1]
  320. end
  321. end
  322. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  323. act 'Return':gt 'clothing', 'view_clothing_list', $ARGS[1]
  324. if $ARGS[2] ! 'coat':
  325. act 'Move back to wardrobe':
  326. dynamic $ARGS[2] + 'W[<<ARGS[3]>>] = 1'
  327. gt 'clothing', 'view_clothing_list', $ARGS[1]
  328. end
  329. end
  330. elseif $ARGS[1] = 'sell':
  331. act 'Keep item':gt 'clothing', 'view_clothing_list', $ARGS[1]
  332. !! value is based on the strength remaining
  333. dynamic 'RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]'
  334. if RESULT > 45:
  335. 'You can sell this item for 500 <b>₽</b>.'
  336. act 'Sell':
  337. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  338. money += 500
  339. gt 'clothing', 'view_clothing_list', $ARGS[1]
  340. end
  341. elseif RESULT > 30:
  342. 'You can sell this item for 300 <b>₽</b>.'
  343. act 'Sell':
  344. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  345. money += 300
  346. gt 'clothing', 'view_clothing_list', $ARGS[1]
  347. end
  348. elseif RESULT > 0:
  349. 'You can sell this item for 100 <b>₽</b>.'
  350. act 'Sell':
  351. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  352. money += 100
  353. gt 'clothing', 'view_clothing_list', $ARGS[1]
  354. end
  355. else
  356. 'This item is too worn to have any sale value.'
  357. act 'Throw it away':
  358. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  359. gt 'clothing', 'view_clothing_list', $ARGS[1]
  360. end
  361. end
  362. elseif $ARGS[1] = 'resize':
  363. act 'Leave item alone':gt 'clothing', 'view_clothing_list', $ARGS[1]
  364. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  365. if dyneval('RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]') ! bedra and money >= 500:
  366. 'You can have this resized for 500 <b>₽</b>.'
  367. act 'Resize':
  368. money -= 500
  369. dynamic '<<$ARGS[2]>>B[<<ARGS[3]>>] = bedra'
  370. gt 'clothing', 'view_clothing_list', $ARGS[1]
  371. end
  372. end
  373. end
  374. end
  375. end
  376. if $ARGS[0] = 'strip':
  377. if $clothingworntype = 'nude': exit
  378. cumspclnt = 6
  379. gs 'cum_cleanup'
  380. if cloth_vid = 1:
  381. last_vid = 1
  382. else
  383. last_vid = 0
  384. end
  385. if $clothingworntype = 'school':schtype = clothingwornnumber
  386. $lastwornclothingtype = $clothingworntype
  387. lastwornclothingnumber = clothingwornnumber
  388. $clothingworntype = 'nude'
  389. clothingwornnumber = 0
  390. CloQuality = 0
  391. CloThinness = 0
  392. CloTopCut = 0
  393. CloPantsShortness = 0
  394. CloSkirtShortness = 0
  395. CloStyle = 0
  396. CloBimbo = 0
  397. PCloQuality = 0
  398. PCloThinness = 0
  399. PCloTopCut = 0
  400. PCloPants = 0
  401. PCloSkirt = 0
  402. PCloStyle = 0
  403. PCloBimbo = 0
  404. PXCloThinness = 0
  405. PXCloTopCut = 0
  406. PXCloSkirtShortness = 0
  407. PXCloPantsShortness = 0
  408. glamur = 0
  409. sport = 0
  410. ski = 0
  411. ofclo = 0
  412. sexual = 0
  413. odevnesh = 0
  414. ! WD: Bimbo look
  415. cloth_vid = 0
  416. exhibiHideNewCloth = 0
  417. end
  418. if $ARGS[0] = 'wear':
  419. !! ARGS 0 - action
  420. !! ARGS 1 - clothing type name
  421. !! ARGS 2 - clothing index
  422. gs 'clothing', 'strip'
  423. $clothingworntype = $ARGS[1]
  424. clothingwornnumber = ARGS[2]
  425. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  426. gs 'clothing_descriptions'
  427. else
  428. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  429. end
  430. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  431. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  432. PCloQuality = CloQuality
  433. PCloThinness = CloThinness
  434. PCloTopCut = CloTopCut
  435. PCloPants = CloPantsShortness
  436. PCloSkirt = CloSkirtShortness
  437. PCloStyle = CloStyle
  438. PCloStyle2 = CloStyle2
  439. PCloBimbo = CloBimbo
  440. if CloBimbo = 1:bimbocl = 1
  441. if PCloTopCut > 1:
  442. if tits = 2 or tits = 3:PCloTopCut += 1
  443. if tits = 4 or tits = 5:PCloTopCut += 2
  444. if tits >= 6:PCloTopCut += 3
  445. end
  446. !Calculations for clothing beauty, multiplied by natural beauty
  447. if PCloThinness > 0:
  448. if PCloThinness = 1:
  449. PXCloThinness = 25
  450. elseif PCloThinness = 2:
  451. PXCloThinness = 50
  452. elseif PCloThinness = 3:
  453. PXCloThinness = 100
  454. elseif PCloThinness = 4:
  455. PXCloThinness = 150
  456. elseif PCloThinness = 5:
  457. PXCloThinness = 200
  458. elseif PCloThinness = 6:
  459. PXCloThinness = 300
  460. elseif PCloThinness >= 7:
  461. PXCloThinness = 400
  462. end
  463. end
  464. if PCloTopCut > 0:
  465. if PCloTopCut = 1:
  466. PXCloTopCut = 25
  467. elseif PCloTopCut = 2:
  468. PXCloTopCut = 50
  469. elseif PCloTopCut = 3:
  470. PXCloTopCut = 100
  471. elseif PCloTopCut = 4:
  472. PXCloTopCut = 150
  473. elseif PCloTopCut = 5:
  474. PXCloTopCut = 200
  475. elseif PCloTopCut = 6:
  476. PXCloTopCut = 300
  477. elseif PCloTopCut >= 7:
  478. PXCloTopCut = 400
  479. end
  480. end
  481. if PCloSkirt > 0:
  482. if PCloSkirt = 1:
  483. PXCloSkirtShortness = 25
  484. elseif PCloSkirt = 2:
  485. PXCloSkirtShortness = 50
  486. elseif PCloSkirt = 3:
  487. PXCloSkirtShortness = 100
  488. elseif PCloSkirt = 4:
  489. PXCloSkirtShortness = 150
  490. elseif PCloSkirt = 5:
  491. PXCloSkirtShortness = 200
  492. elseif PCloSkirt = 6:
  493. PXCloSkirtShortness = 300
  494. elseif PCloSkirt >= 7:
  495. PXCloSkirtShortness = 400
  496. end
  497. end
  498. if PCloPants > 0:
  499. if PCloPants = 1:
  500. PXCloPantsShortness = 25
  501. elseif PCloPants = 2:
  502. PXCloPantsShortness = 50
  503. elseif PCloPants = 3:
  504. PXCloPantsShortness = 100
  505. elseif PCloPants = 4:
  506. PXCloPantsShortness = 150
  507. elseif PCloPants = 5:
  508. PXCloPantsShortness = 200
  509. elseif PCloPants = 6:
  510. PXCloPantsShortness = 300
  511. elseif PCloPants >= 7:
  512. PXCloPantsShortness = 400
  513. end
  514. end
  515. end
  516. if $ARGS[0] = 'wear_last_worn':
  517. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  518. end
  519. --- clothing ---------------------------------