1
0

bras 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227
  1. # bras
  2. !!gs 'bras', 'dispose'
  3. !!gs 'bras', 'remove'
  4. !!gs 'bras', 'wear'
  5. !!gs 'bras', 'linen'
  6. !!gs 'bras', 'fresh'
  7. if $ARGS[0] = 'dispose':
  8. if $braworntype = 'cheap':
  9. clrbra -= 1
  10. else
  11. dynamic $braworntype + '_bras[<<lastwornbranumber>>] = 0'
  12. end
  13. $lastwornbratype = 'none'
  14. lastwornbranumber = 0
  15. $braworntype = 'none'
  16. brawornnumber = 0
  17. end
  18. if $ARGS[0] = 'remove':
  19. $lastwornbratype = $braworntype
  20. lastwornbranumber = brawornnumber
  21. $braworntype = 'none'
  22. brawornnumber = 0
  23. !! $braworntype = 'none'
  24. end
  25. if $ARGS[0] = 'wear':
  26. bra_none = 0
  27. $braworntype = $lastwornbratype
  28. brawornnumber = lastwornbranumber
  29. end
  30. if $ARGS[0] = 'linen':
  31. bra_none = 0
  32. if $braworntype = 'cheap':
  33. dirtbra += 1
  34. else
  35. dynamic $braworntype + '_brasC[<<lastwornbranumber>>] = 1'
  36. end
  37. washingbra = 1
  38. $lastwornbratype = 'none'
  39. lastwornbranumber = 0
  40. $braworntype = 'none'
  41. brawornnumber = 0
  42. end
  43. if $ARGS[0] = 'fresh':
  44. if $ARGS[1] = '':
  45. $braworntype = 'cheap'
  46. brawornnumber = rand(1,19)
  47. clrbra -= 1
  48. else
  49. $braworntype = $ARGS[1]
  50. brawornnumber = ARGS[2]
  51. end
  52. end
  53. if $ARGS[0] = 'view_bra_list':
  54. !! ARGS 0 - view_bra_list
  55. !! ARGS 1 - action type (clean, dirty, store)
  56. if $args[1] = 'clean':
  57. metka_bras = 0
  58. elseif $args[1] = 'dirty':
  59. metka_bras = 1
  60. else
  61. metka_bras = 2
  62. end
  63. act 'Back to dresser': gt 'underwear', 'dresser'
  64. act 'Leave':gt $loc, $metka
  65. '<center><table border=1><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''clean''">Clean Panties</a></TH><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''dirty''">Dirty Panties</a></TH><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''store''">Panty Storage</a></TH><TH><a href="exec:gt ''bras'', ''view_bra_list'', ''clean''">Clean Bras</a></TH><TH><a href="exec:gt ''bras'', ''view_bra_list'', ''dirty''">Dirty Bras</a></TH><TH><a href="exec:gt ''bras'', ''view_bra_list'', ''store''">Bra Storage</a></TH></center>'
  66. if $braworntype ! 'none':act 'Remove bras':gs 'bras', 'linen' & gt 'bras', 'view_bra_list', $ARGS[1]
  67. if $ARGS[1] = 'store':
  68. cloc = 1
  69. end
  70. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  71. i = 1
  72. :loopboutiquebras
  73. if boutique_brasC[i] = metka_bras and boutique_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', <<metka_bras>>, ''boutique'', <<i>>"><img src="images/pc/bras/boutique/<<i>>.jpg" height="300" /></a>'
  74. i += 1
  75. if i <= ARRSIZE('boutique_bras'):jump 'loopboutiquebras'
  76. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  77. i = 1
  78. :loopexhibitionistbras
  79. if exhibitionist_brasC[i] = metka_bras and exhibitionist_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', <<metka_bras>>, ''exhibitionist'', <<i>>"><img src="images/pc/bras/exhibitionist/<<i>>.jpg" height="300" /></a>'
  80. i += 1
  81. if i <= ARRSIZE('exhibitionist_bras'):jump 'loopexhibitionistbras'
  82. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  83. i = 1
  84. :loopfashionistabras
  85. if fashionista_brasC[i] = metka_bras and fashionista_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', <<metka_bras>>, ''fashionista'', <<i>>"><img src="images/pc/bras/fashionista/<<i>>.jpg" height="300" /></a>'
  86. i += 1
  87. if i <= ARRSIZE('fashionista_bras'):jump 'loopfashionistabras'
  88. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  89. i = 1
  90. :loopkatsbras
  91. if kats_brasC[i] = metka_bras and kats_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', <<metka_bras>>, ''kats'', <<i>>"><img src="images/pc/bras/kats/<<i>>.jpg" height="300" /></a>'
  92. i += 1
  93. if i <= ARRSIZE('kats_bras'):jump 'loopkatsbras'
  94. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  95. i = 1
  96. :loopsexshopbras
  97. if sexshop_brasC[i] = metka_bras and sexshop_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', <<metka_bras>>, ''sexshop'', <<i>>"><img src="images/pc/bras/sexshop/<<i>>.jpg" height="300" /></a>'
  98. i += 1
  99. if i <= ARRSIZE('sexshop_bras'):jump 'loopsexshopbras'
  100. end
  101. if $ARGS[0] = 'view_bra_item':
  102. !! ARGS 0 - view_bra_item
  103. !! ARGS 1 = action type (clean, dirty, store, shop)
  104. !! ARGS 2 - bra type
  105. !! ARGS 3 - bra index
  106. !! ARGS 4 - price for shop
  107. if $ARGS[1] = '':
  108. if metka_bras = 0:
  109. $ARGS[1] = 'clean'
  110. elseif metka_bras = 1:
  111. $ARGS[1] = 'dirty'
  112. elseif metka_bras = 2:
  113. $ARGS[1] = 'store'
  114. else
  115. $ARGS[1] = 'shop'
  116. end
  117. end
  118. cla
  119. '<center><img src="<<FUNC(''$bra_image'', $ARGS[2], ARGS[3])>>"></center>'
  120. !! gs 'bra_attributes', $ARGS[2], ARGS[3]
  121. !! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  122. !! $RESULT += '<<ARGS[3]>>'
  123. !! '<<$RESULT>>'
  124. gs 'bras', 'descriptions', $ARGS[2]
  125. !! if PanExhibit + 10 > pcs_exhibition: 'You find this bra more revealing than you are completely comfortable with but that makes it quite exciting too.'
  126. if $ARGS[1] = 'shop':
  127. if dyneval('RESULT = <<$ARGS[2]>>_bras[<<ARGS[3]>>]') = 1:
  128. 'You already own this item.'
  129. act 'Leave': gt $loc, $metka
  130. else
  131. price = ARGS[4]
  132. 'Price: <<ARGS[4]>> <b>₽</b>'
  133. act 'Leave': gt $loc, $metka
  134. if PanExhibit > pcs_exhibition:
  135. 'You don''t feel confident enough to a bra this revealing and can''t bring yourself to buy them.'
  136. elseif money >= price:
  137. act 'Buy':
  138. money -= price
  139. dynamic $ARGS[2] + '_bras[<<ARGS[3]>>] = 1'
  140. dynamic $ARGS[2] + '_brasC[<<ARGS[3]>>] = 0'
  141. gt $loc, $metka
  142. end
  143. else
  144. 'You cannot afford this bra.'
  145. end
  146. end
  147. elseif $ARGS[1] = 'clean':
  148. act 'Return':gt 'bras', 'view_bra_list', $ARGS[1]
  149. if $braworntype = $ARGS[2] and brawornnumber = ARGS[3]:
  150. 'You are wearing this bra.'
  151. else
  152. if PanExhibit > pcs_exhibition:
  153. 'You don''t feel confident enough to wear this bra.'
  154. else
  155. act 'Wear':
  156. gs 'bras', 'fresh', $ARGS[2], ARGS[3]
  157. gt 'bras', 'view_bra_list', $ARGS[1]
  158. end
  159. end
  160. act 'Store them':
  161. dynamic $ARGS[2] + '_brasC[<<ARGS[3]>>] = 2'
  162. gt 'bras', 'view_bra_list', $ARGS[1]
  163. end
  164. end
  165. elseif $ARGS[1] = 'dirty':
  166. !! Included for possible future events involving the selling of used underwear
  167. 'This bra is dirty and waiting to be washed.'
  168. act 'Return':gt 'bras', 'view_bra_list', $ARGS[1]
  169. elseif $ARGS[1] = 'store':
  170. act 'Return':gt 'bras', 'view_bra_list', $ARGS[1]
  171. act 'Move back to wardrobe':
  172. dynamic $ARGS[2] + '_brasC[<<ARGS[3]>>] = 0'
  173. gt 'bras', 'view_bra_list', $ARGS[1]
  174. end
  175. end
  176. end
  177. if $ARGS[0] = 'descriptions':
  178. if $ARGS[1] = 'cheap':
  179. 'Cheap bra with no redeeming features.'
  180. elseif $ARGS[1] = 'boutique':
  181. 'This bra is so beautifully made that your posture and confidence is improved wearing it boosting your appearance even when fully clothed.'
  182. elseif $ARGS[1] = 'exhibitionist':
  183. 'This bra is so revealing that it is more exciting than not wearing one and you''ll always feel horny wearing it.'
  184. elseif $ARGS[1] = 'fashionista':
  185. 'This bra is well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.'
  186. elseif $ARGS[1] = 'kats':
  187. 'This bra feels reassuring and wear it gives your mood a lift.'
  188. elseif $ARGS[1] = 'sexshop':
  189. 'Tacky and cheap his bra makes you look like a hooker, this could be a bonus if working as one.'
  190. end
  191. end
  192. --- bras ---------------------------------