clothing 8.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315
  1. # clothing
  2. $clothing_list_line = {
  3. !! a single line in a clothing list (wardrobe, etc)
  4. !! ARGS 0 - action type (wardrobe, sell)
  5. !! ARGS 1 - clothing type
  6. !! ARGS 2 - clothing index
  7. $RESULT = FUNC('$clothing_name', $ARGS[1], ARGS[2])
  8. if $ARGS[1] ! 'vatnik' and $ARGS[1] ! 'ero' and $ARGS[1] ! 'sforma':
  9. $RESULT += ' (strength ' + dyneval '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]'
  10. if $ARGS[1] ! 'yoga' and $ARGS[1] ! 'sarafan':
  11. $RESULT += ', hip size ' + dyneval '$RESULT += <<$ARGS[1]>>B[<<ARGS[2]>>]'
  12. end
  13. $RESULT += ')'
  14. end
  15. $RESULT += ' <a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a>'
  16. }
  17. if $ARGS[0] = 'view_clothing_list':
  18. !! ARGS 0 - view_clothing_list
  19. !! ARGS 1 - action type (wardrobe, sell, resize)
  20. !! ARGS 2 - brothel flag (brothel)
  21. act 'Leave':gt $loc, $metka
  22. if $ARGS[1] = 'wardrobe':
  23. if $clothingworntype ! 'nude':act 'Strip':gs 'clothing', 'strip' & gt $loc, $metka
  24. if bikini = 1:'On the top shelf is a swimsuit'
  25. if $clothingworntype ! 'vatnik':dyneval($clothing_list_line, $ARGS[1], 'vatnik', 0)
  26. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $clothingworntype ! 'sforma':dyneval($clothing_list_line, $ARGS[1], 'sforma', 0)
  27. end
  28. i = 1
  29. :loopjeans
  30. if jeans[i] = 1 and ($clothingworntype ! 'jeans' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'jeans', i)
  31. i += 1
  32. if i = 6:i = 201
  33. if i <= 297:jump 'loopjeans'
  34. i = 1
  35. :loopyoga
  36. if yoga[i] = 1 and ($clothingworntype ! 'yoga' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'yoga', i)
  37. i += 1
  38. if i <= 18:jump 'loopyoga'
  39. i = 1
  40. :loopsarafan
  41. if sarafan[i] = 1 and ($clothingworntype ! 'sarafan' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'sarafan', i)
  42. i += 1
  43. if i <= 3:jump 'loopsarafan'
  44. i = 1
  45. :loopshort
  46. if short[i] = 1 and ($clothingworntype ! 'short' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'short', i)
  47. i += 1
  48. if i = 6:i = 201
  49. if i <= 256:jump 'loopshort'
  50. i = 1
  51. :loopskirt
  52. if skirt[i] = 1 and ($clothingworntype ! 'skirt' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'skirt', i)
  53. i += 1
  54. if i = 6:i = 201
  55. if i <= 273:jump 'loopskirt'
  56. i = 1
  57. :loopdress
  58. if dress[i] = 1 and ($clothingworntype ! 'dress' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'dress', i)
  59. i += 1
  60. if i = 25:i = 201
  61. if i <= 225:jump 'loopdress'
  62. i = 1
  63. :loopprofi
  64. if profi[i] = 1 and ($clothingworntype ! 'profi' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'profi', i)
  65. i += 1
  66. if i = 3:i = 201
  67. if i <= 208:jump 'loopprofi'
  68. i = 1
  69. :looppants
  70. if pants[i] = 1 and ($clothingworntype ! 'pants' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'pants', i)
  71. i += 1
  72. if i = 6:i = 201
  73. if i <= 346:jump 'looppants'
  74. i = 1
  75. :looplatex
  76. if latex[i] = 1 and ($clothingworntype ! 'latex' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'latex', i)
  77. i += 1
  78. if i <= 2:jump 'looplatex'
  79. i = 1
  80. :loophooker
  81. if hooker[i] = 1 and ($clothingworntype ! 'hooker' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'hooker', i)
  82. i += 1
  83. if i <= 5:jump 'loophooker'
  84. i = 1
  85. :loopodekis
  86. if odekis[i] = 1 and ($clothingworntype ! 'odekis' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'odekis', i)
  87. i += 1
  88. if i <= 10:jump 'loopodekis'
  89. i = 1
  90. :loopnewclo
  91. if newclo[i] = 1 and ($clothingworntype ! 'newclo' or clothingwornnumber ! i):dyneval($clothing_list_line, $ARGS[1], 'newclo', i)
  92. i += 1
  93. !! NOTE: 131 is the school uniform and is handled separately
  94. if i <= 130:jump 'loopnewclo'
  95. if $ARGS[2] = 'brothel':
  96. ''
  97. '<b>Brothel clothing</b>'
  98. i = 1
  99. :loopero
  100. if $clothingworntype ! 'ero' or clothingwornnumber ! i:dyneval($clothing_list_line, $ARGS[1], 'ero', i)
  101. i += 1
  102. if i <= 18:jump 'loopero'
  103. end
  104. end
  105. if $ARGS[0] = 'view_clothing_item':
  106. !! ARGS 0 - view_clothing_item
  107. !! ARGS 1 = action type (wardrobe, shop, sell, resize)
  108. !! ARGS 2 - clothing type
  109. !! ARGS 3 - clothing index
  110. !! ARGS 4 - price for shop
  111. cla
  112. '<center><img src="' + FUNC('$clothing_image', $ARGS[2], ARGS[3]) + '"></center>'
  113. FUNC('$clothing_name', $ARGS[2], ARGS[3])
  114. if $ARGS[1] ! 'shop' and $ARGS[2] ! 'vatnik' and $ARGS[2] ! 'sforma' and $ARGS[2] ! 'ero':
  115. $RESULT = '(strength '
  116. dynamic '$RESULT += <<$ARGS[2]>>H[<<ARGS[3]>>]'
  117. if $ARGS[2] ! 'yoga' and $ARGS[2] ! 'sarafan':
  118. $RESULT += ', hip size '
  119. dynamic '$RESULT += <<$ARGS[2]>>B[<<ARGS[3]>>]'
  120. end
  121. $RESULT += ')'
  122. '<<$RESULT>>'
  123. end
  124. if $ARGS[1] = 'shop':
  125. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  126. 'You already own this item.'
  127. else
  128. 'Price: <<ARGS[4]>>'
  129. act 'Leave': gt $loc, $metka
  130. if money >= ARGS[4]:
  131. act 'Buy':
  132. money -= ARGS[5]
  133. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  134. if $ARGS[2] = 'yoga':
  135. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 80'
  136. elseif $ARGS[2] = 'odekis':
  137. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 100'
  138. elseif $ARGS[2] = 'dress':
  139. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 160'
  140. elseif $ARGS[2] = 'hooker':
  141. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 200'
  142. else
  143. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 60'
  144. end
  145. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = bedra'
  146. gt $loc, $metka
  147. end
  148. end
  149. end
  150. elseif $ARGS[1] = 'wardrobe':
  151. act 'Leave in closet':gt 'clothing', 'view_clothing_list', $ARGS[1]
  152. if $ARGS[2] ! 'vatnik' and $ARGS[2] ! 'sforma' and $ARGS[2] ! 'ero':
  153. !! if the clothing is worn out
  154. if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
  155. 'This item is worn and is not suitable for further wear.'
  156. exit
  157. end
  158. !! if the clothing is a type that checks for hip size
  159. if $ARGS[2] ! 'yoga' and $ARGS[2] ! 'sarafan':
  160. !! if the hipsize is too far from your hipsize
  161. dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
  162. if RESULT < bedra - 8:
  163. 'This item is too small for you to wear.'
  164. exit
  165. elseif RESULT > bedra + 8:
  166. 'This item is too large for you to wear.'
  167. exit
  168. end
  169. end
  170. end
  171. act 'Wear':gs 'clothing', 'wear', $ARGS[2], ARGS[3] & gt 'clothing', 'view_clothing_list', $ARGS[1]
  172. elseif $ARGS[1] = 'sell':
  173. act 'Keep item':gt 'clothing', 'view_clothing_list', $ARGS[1]
  174. !! value is based on the strength remaining
  175. dynamic 'RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]'
  176. if RESULT > 45:
  177. 'You can sell this item for 500 rubles.'
  178. act 'Sell':
  179. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  180. money += 500
  181. gt 'clothing', 'view_clothing_list', $ARGS[1]
  182. end
  183. elseif RESULT > 30:
  184. 'You can sell this item for 300 rubles.'
  185. act 'Sell':
  186. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  187. money += 300
  188. gt 'clothing', 'view_clothing_list', $ARGS[1]
  189. end
  190. elseif RESULT > 0:
  191. 'You can sell this item for 100 rubles.'
  192. act 'Sell':
  193. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  194. money += 100
  195. gt 'clothing', 'view_clothing_list', $ARGS[1]
  196. end
  197. else
  198. 'This item is too worn to have any sale value.'
  199. end
  200. elseif $ARGS[1] = 'resize':
  201. act 'Leave item alone':gt 'clothing', 'view_clothing_list', $ARGS[1]
  202. if $ARGS[2] ! 'vatnik' and $ARGS[2] ! 'sforma' and $ARGS[2] ! 'yoga' and $ARGS[2] ! 'sarafan':
  203. if dyneval('RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]') ! bedra and money >= 500:
  204. 'You can have this resized for 500 rubles.'
  205. act 'Resize':
  206. money -= 500
  207. dynamic '<<$ARGS[2]>>B[<<ARGS[3]>>] = bedra'
  208. gt 'clothing', 'view_clothing_list', $ARGS[1]
  209. end
  210. end
  211. end
  212. end
  213. end
  214. if $ARGS[0] = 'strip':
  215. if cumfrot > 0:cumfrot = 0
  216. $lastwornclothingtype = $clothingworntype
  217. lastwornclothingnumber = clothingwornnumber
  218. $clothingworntype = 'nude'
  219. clothingwornnumber = 0
  220. glamur = 0
  221. sport = 0
  222. ski = 0
  223. ofclo = 0
  224. sexual = 0
  225. odevnesh = 0
  226. end
  227. if $ARGS[0] = 'wear':
  228. !! ARGS 0 - action
  229. !! ARGS 1 - clothing type name
  230. !! ARGS 2 - clothing index
  231. gs 'clothing', 'strip'
  232. $clothingworntype = $ARGS[1]
  233. clothingwornnumber = ARGS[2]
  234. if $clothingworntype = 'vatnik':
  235. odevnesh = -10
  236. elseif $clothingworntype = 'sforma':
  237. sexual = 1
  238. odevnesh = 5
  239. elseif $clothingworntype = 'jeans':
  240. odevnesh = 1
  241. elseif $clothingworntype = 'yoga':
  242. sport = 1
  243. odevnesh = 1
  244. elseif $clothingworntype = 'sarafan':
  245. ski = 1
  246. odevnesh = 1
  247. elseif $clothingworntype = 'short':
  248. odevnesh = 2
  249. elseif $clothingworntype = 'skirt':
  250. ski = 1
  251. odevnesh = 5
  252. elseif $clothingworntype = 'dress':
  253. glamur = 1
  254. odevnesh = 10
  255. elseif $clothingworntype = 'profi':
  256. ofclo = 1
  257. odevnesh = 5
  258. elseif $clothingworntype = 'pants':
  259. odevnesh = 3
  260. elseif $clothingworntype = 'latex':
  261. odevnesh = 1
  262. elseif $clothingworntype = 'hooker':
  263. odevnesh = 1
  264. elseif $clothingworntype = 'odekis':
  265. glamur = 1
  266. sexual = 1
  267. odevnesh = 5
  268. elseif $clothingworntype = 'newclo':
  269. sexual = 1
  270. odevnesh = 5
  271. if clothingwornnumber < 90:ski = 1
  272. elseif $clothingworntype = 'ero':
  273. odevnesh = 10
  274. end
  275. end
  276. if $ARGS[0] = 'wear_last_worn':
  277. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  278. end
  279. --- clothing -------------