1
0

bras 7.1 KB

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