bras.qsrc 8.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257
  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. bra_none = 0
  20. if $ARGS[1] = '':
  21. if $lastwornbratype ! '':
  22. $braworntype = $lastwornbratype
  23. brawornnumber = lastwornbranumber
  24. else
  25. $braworntype = 'none'
  26. brawornnumber = 0
  27. end
  28. else
  29. $braworntype = $ARGS[1]
  30. brawornnumber = ARGS[2]
  31. end
  32. end
  33. if $ARGS[0] = 'view_bra_list':
  34. !! ARGS 0 - view_bra_list
  35. !! ARGS 1 - action type (draw, store, unwanted)
  36. if $pursepantytype ! '' or $pursebratype ! '':
  37. '<center><b>You put the '+iif($pursepantytype ! '','panties','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','bra','')+' from your purse back in the wardrobe.</b></center><br>'
  38. killvar '$pursepantytype' & killvar 'pursepantynumber'
  39. killvar '$pursebratype' & killvar 'pursebranumber'
  40. end
  41. if $ARGS[1] ! 'bathroom':
  42. act 'Return': gt 'wardrobe', 'start'
  43. else
  44. act 'Return': gt $loc, $loc_arg
  45. end
  46. if $ARGS[1] = 'wardrobe':
  47. metka_bras = 0
  48. end
  49. if $ARGS[1] = 'store':
  50. metka_bras = 1
  51. end
  52. if $ARGS[1] = 'unwanted':
  53. metka_bras = 2
  54. end
  55. '<center><table border=1><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>'
  56. if $braworntype ! 'none':act 'Remove bra':gs 'bras', 'remove' & gt 'bras', 'view_bra_list', $ARGS[1]
  57. if $ARGS[1] = 'store':
  58. cloc = 1
  59. end
  60. i = 1
  61. :loopcheapbras
  62. if cheap_brasS[i] = metka_bras 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="150" /></a>'
  63. i += 1
  64. if i <= ARRSIZE('cheap_bras'):jump 'loopcheapbras'
  65. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  66. i = 1
  67. :loopboutiquebras
  68. 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="150" /></a>'
  69. i += 1
  70. if i <= ARRSIZE('boutique_bras'):jump 'loopboutiquebras'
  71. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  72. i = 1
  73. :loopexhibitionistbras
  74. 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="150" /></a>'
  75. i += 1
  76. if i <= ARRSIZE('exhibitionist_bras'):jump 'loopexhibitionistbras'
  77. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  78. i = 1
  79. :loopfashionistabras
  80. 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="150" /></a>'
  81. i += 1
  82. if i <= ARRSIZE('fashionista_bras'):jump 'loopfashionistabras'
  83. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  84. i = 1
  85. :loopkatsbras
  86. 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="150" /></a>'
  87. i += 1
  88. if i <= ARRSIZE('kats_bras'):jump 'loopkatsbras'
  89. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  90. i = 1
  91. :loopsexshopbras
  92. 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="150" /></a>'
  93. i += 1
  94. if i <= ARRSIZE('sexshop_bras'):jump 'loopsexshopbras'
  95. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  96. i = 1
  97. :loopsportbras
  98. if sport_brasS[i] = metka_bras and sport_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/bras/sport/<<i>>.jpg" height="150" /></a>'
  99. i += 1
  100. if i <= ARRSIZE('sport_bras'):jump 'loopsportbras'
  101. end
  102. if $ARGS[0] = 'view_bra_item':
  103. !! ARGS 0 - view_bra_item
  104. !! ARGS 1 = action type (wardrobe, bathroom, shop)
  105. !! ARGS 2 - bra type
  106. !! ARGS 3 - bra index
  107. !! ARGS 4 - price for shop
  108. cla
  109. '<center><img src="<<FUNC(''$bra_image'', $ARGS[2], ARGS[3])>>"></center>'
  110. !! gs 'bra_attributes', $ARGS[2], ARGS[3]
  111. !! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  112. !! $RESULT += '<<ARGS[3]>>'
  113. !! '<<$RESULT>>'
  114. gs 'bras', 'descriptions', $ARGS[2]
  115. if $ARGS[1] = 'shop':
  116. if dyneval('RESULT = <<$ARGS[2]>>_bras[<<ARGS[3]>>]') = 1:
  117. 'You already own this item.'
  118. act 'Leave': gt $loc, $loc_arg
  119. else
  120. price = ARGS[4]
  121. 'Price: <<ARGS[4]>> <b>₽</b>'
  122. act 'Leave': gt $loc, $loc_arg
  123. if money >= price:
  124. act 'Buy (cash)':
  125. money -= price
  126. dynamic $ARGS[2] + '_bras[<<ARGS[3]>>] = 1'
  127. dynamic $ARGS[2] + '_brasS[<<ARGS[3]>>] = 0'
  128. gt $loc, $loc_arg
  129. end
  130. else
  131. 'You do not have enough cash to buy this bra.'
  132. end
  133. if karta + bankDebtLimit >= price:
  134. act 'Buy (card)':
  135. karta -= price
  136. dynamic $ARGS[2] + '_bras[<<ARGS[3]>>] = 1'
  137. dynamic $ARGS[2] + '_brasS[<<ARGS[3]>>] = 0'
  138. gt $loc, $loc_arg
  139. end
  140. else
  141. 'You do not have enough money in your bank to buy this bra.'
  142. end
  143. end
  144. else
  145. if $ARGS[1] ! 'bathroom':
  146. if metka_bras ! 1:$RESULT += 'Move these bras to <a href="exec:gt ''bras'', ''dest1'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Storage</a><BR>'
  147. if metka_bras ! 0:$RESULT += 'Move these bras to <a href="exec:gt ''bras'', ''dest0'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Wardrobe</a><BR>'
  148. if metka_bras ! 2:$RESULT += 'Move these bras to <a href="exec:gt ''bras'', ''dest2'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Unwanted</a>'
  149. end
  150. act 'Return':gt 'bras', 'view_bra_list', $ARGS[1]
  151. if $ARGS[1] = 'store':
  152. 'This bra is in storage.'
  153. elseif $ARGS[1] = 'unwanted':
  154. 'This bra is unwanted.'
  155. else
  156. if $braworntype = $ARGS[2] and brawornnumber = ARGS[3]:
  157. 'You are wearing this bra.'
  158. else
  159. if metka_bras = 0:
  160. act 'Wear':
  161. if CloBra = 1:
  162. msg'You cannot wear a bra with this top'
  163. else
  164. gs 'bras', 'wear', $ARGS[2], ARGS[3]
  165. if $ARGS[1] = 'wardrobe':
  166. gt 'wardrobe', 'start'
  167. else
  168. gt $loc, $loc_arg
  169. end
  170. end
  171. end
  172. end
  173. end
  174. end
  175. if $ARGS[1] ! 'store':
  176. act 'Move to storage': gt 'bras', 'dest1', $ARGS[1], $ARGS[2], ARGS[3]
  177. end
  178. if $ARGS[1] ! 'unwanted':
  179. act 'Move to unwanted': gt 'bras', 'dest2', $ARGS[1], $ARGS[2], ARGS[3]
  180. end
  181. if $ARGS[1] ! 'wardrobe':
  182. act 'Move to wardrobe': gt 'bras', 'dest0', $ARGS[1], $ARGS[2], ARGS[3]
  183. end
  184. end
  185. end
  186. if $ARGS[0] = 'dest0':
  187. *clr
  188. dynamic '<<$ARGS[2]>>_brasS[<<ARGS[3]>>] = 0'
  189. gt 'bras', 'view_bra_item', $ARGS[1], $ARGS[2], ARGS[3]
  190. end
  191. if $ARGS[0] = 'dest1':
  192. *clr
  193. dynamic '<<$ARGS[2]>>_brasS[<<ARGS[3]>>] = 1'
  194. gt 'bras', 'view_bra_item', $ARGS[1], $ARGS[2], ARGS[3]
  195. end
  196. if $ARGS[0] = 'dest2':
  197. *clr
  198. dynamic '<<$ARGS[2]>>_brasS[<<ARGS[3]>>] = 2'
  199. gt 'bras', 'view_bra_item', $ARGS[1], $ARGS[2], ARGS[3]
  200. end
  201. if $ARGS[0] = 'descriptions':
  202. if $ARGS[1] = 'cheap':
  203. 'Cheap bra with no redeeming features.'
  204. elseif $ARGS[1] = 'boutique':
  205. 'This bra is so beautifully made that your posture and confidence is improved wearing it boosting your appearance even when fully clothed.'
  206. elseif $ARGS[1] = 'exhibitionist':
  207. 'This bra is so revealing that it is more exciting than not wearing one and you''ll always feel horny wearing it.'
  208. elseif $ARGS[1] = 'fashionista':
  209. 'This bra is well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.'
  210. elseif $ARGS[1] = 'kats':
  211. 'This bra feels reassuring and wear it gives your mood a lift.'
  212. elseif $ARGS[1] = 'sexshop':
  213. 'Tacky and cheap this bra makes you look like a hooker, this could be a bonus if working as one.'
  214. elseif $ARGS[1] = 'sport':
  215. 'This bra is designed for physical exercises to make them less tiring.'
  216. end
  217. end
  218. --- bras ---------------------------------