1
0

panties.qsrc 8.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250
  1. # panties
  2. !!gs 'panties', 'dispose'
  3. !!to remove panties and destroy them
  4. !!gs 'panties', 'remove'
  5. !!To remove panties and store them
  6. !!gs 'panties', 'wear'
  7. !!To wear panties
  8. menu_off = 1
  9. if $ARGS[0] = 'dispose':
  10. dynamic $pantyworntype + '_panties[<<pantywornnumber>>] = 0'
  11. $lastwornpantytype = 'none'
  12. lastwornpantynumber = 0
  13. $pantyworntype = 'none'
  14. pantywornnumber = 0
  15. end
  16. if $ARGS[0] = 'remove':
  17. $lastwornpantytype = $pantyworntype
  18. lastwornpantynumber = pantywornnumber
  19. $pantyworntype = 'none'
  20. pantywornnumber = 0
  21. end
  22. if $ARGS[0] = 'wear':
  23. panty_none = 0
  24. if $ARGS[1] = '':
  25. if $lastwornpantytype ! '':
  26. $pantyworntype = $lastwornpantytype
  27. pantywornnumber = lastwornpantynumber
  28. else
  29. $pantyworntype = 'none'
  30. pantywornnumber = 0
  31. end
  32. else
  33. $pantyworntype = $ARGS[1]
  34. pantywornnumber = ARGS[2]
  35. end
  36. end
  37. if $ARGS[0] = 'view_panty_list':
  38. !! ARGS 0 - view_panty_list
  39. !! ARGS 1 - action type (clean, dirty, store, bathroom)
  40. if $ARGS[1] ! 'bathroom':
  41. act 'Return': gt 'wardrobe', 'start'
  42. else
  43. act 'Return': gt $loc, $metka
  44. end
  45. if $ARGS[1] = 'wardrobe':
  46. metka_panties = 0
  47. end
  48. if $ARGS[1] = 'store':
  49. metka_panties = 1
  50. end
  51. if $ARGS[1] = 'unwanted':
  52. metka_panties = 2
  53. end
  54. '<center><table border=1><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''wardrobe''">Draw</a></TH><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''store''">Storage</a></TH><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''unwanted''">Unwanted</a></TH></center>'
  55. if $pantyworntype ! 'none':act 'Remove panties':gs 'panties', 'remove' & gt 'panties', 'view_panty_list', $ARGS[1]
  56. if $ARGS[1] = 'store':
  57. cloc = 1
  58. end
  59. i = 1
  60. :loopcheappanties
  61. if cheap_pantiesS[i] = metka_panties and cheap_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/panties/basic/<<i>>.jpg" height="150" /></a>'
  62. i += 1
  63. if i <= ARRSIZE('cheap_panties'):jump 'loopcheappanties'
  64. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  65. i = 1
  66. :loopboutiquepanties
  67. if boutique_pantiesS[i] = metka_panties and boutique_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/panties/boutique/<<i>>.jpg" height="150" /></a>'
  68. i += 1
  69. if i <= ARRSIZE('boutique_panties'):jump 'loopboutiquepanties'
  70. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  71. i = 1
  72. :loopexhibitionistpanties
  73. if exhibitionist_pantiesS[i] = metka_panties and exhibitionist_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/panties/exhibitionist/<<i>>.jpg" height="150" /></a>'
  74. i += 1
  75. if i <= ARRSIZE('exhibitionist_panties'):jump 'loopexhibitionistpanties'
  76. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  77. i = 1
  78. :loopfashionistapanties
  79. if fashionista_pantiesS[i] = metka_panties and fashionista_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/panties/fashionista/<<i>>.jpg" height="150" /></a>'
  80. i += 1
  81. if i <= ARRSIZE('fashionista_panties'):jump 'loopfashionistapanties'
  82. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  83. i = 1
  84. :loopkatspanties
  85. if kats_pantiesS[i] = metka_panties and kats_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/panties/kats/<<i>>.jpg" height="150" /></a>'
  86. i += 1
  87. if i <= ARRSIZE('kats_panties'):jump 'loopkatspanties'
  88. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  89. i = 1
  90. :loopsexshoppanties
  91. if sexshop_pantiesS[i] = metka_panties and sexshop_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/panties/sexshop/<<i>>.jpg" height="150" /></a>'
  92. i += 1
  93. if i <= ARRSIZE('sexshop_panties'):jump 'loopsexshoppanties'
  94. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  95. i = 1
  96. :loopsportpanties
  97. if sport_pantiesS[i] = metka_panties and sport_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/panties/sport/<<i>>.jpg" height="150" /></a>'
  98. i += 1
  99. if i <= ARRSIZE('sport_panties'):jump 'loopsportpanties'
  100. end
  101. if $ARGS[0] = 'view_panty_item':
  102. !! ARGS 0 - view_panty_item
  103. !! ARGS 1 = action type (draw, shop)
  104. !! ARGS 2 - panty type
  105. !! ARGS 3 - panty index
  106. !! ARGS 4 - price for shop
  107. cla
  108. '<center><img src="<<FUNC(''$panty_image'', $ARGS[2], ARGS[3])>>"></center>'
  109. !! gs 'panty_attributes', $ARGS[2], ARGS[3]
  110. !! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  111. !! $RESULT += '<<ARGS[3]>>'
  112. !! '<<$RESULT>>'
  113. gs 'panties', 'descriptions', $ARGS[2]
  114. if $ARGS[1] = 'shop':
  115. if dyneval('RESULT = <<$ARGS[2]>>_panties[<<ARGS[3]>>]') = 1:
  116. 'You already own this item.'
  117. act 'Leave': gt $loc, $metka
  118. else
  119. price = ARGS[4]
  120. 'Price: <<ARGS[4]>> <b>₽</b>'
  121. act 'Leave': gt $loc, $metka
  122. if money >= price:
  123. act 'Buy (cash)':
  124. money -= price
  125. dynamic $ARGS[2] + '_panties[<<ARGS[3]>>] = 1'
  126. dynamic $ARGS[2] + '_pantiesS[<<ARGS[3]>>] = 0'
  127. gt $loc, $metka
  128. end
  129. else
  130. 'You do not have enough cash to buy these panties.'
  131. end
  132. if karta + bankDebtLimit >= price:
  133. act 'Buy (card)':
  134. karta -= price
  135. dynamic $ARGS[2] + '_panties[<<ARGS[3]>>] = 1'
  136. dynamic $ARGS[2] + '_pantiesS[<<ARGS[3]>>] = 0'
  137. gt $loc, $metka
  138. end
  139. else
  140. 'You do not have enough money in your bank to buy these panties.'
  141. end
  142. end
  143. else
  144. if $ARGS[1] ! 'bathroom':
  145. if metka_panties ! 1:$RESULT += 'Move these panties to <a href="exec:gt ''panties'', ''dest1'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Storage</a><BR>'
  146. if metka_panties ! 0:$RESULT += 'Move these panties to <a href="exec:gt ''panties'', ''dest0'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Wardrobe</a><BR>'
  147. if metka_panties ! 2:$RESULT += 'Move these panties to <a href="exec:gt ''panties'', ''dest2'', ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>'', <<ARGS[3]>>">Unwanted</a>'
  148. end
  149. act 'Return':gt 'panties', 'view_panty_list', $ARGS[1]
  150. if $ARGS[1] = 'store':
  151. 'These panties are in storage.'
  152. elseif $ARGS[1] = 'unwanted':
  153. 'These panties are unwanted.'
  154. else
  155. if $pantyworntype = $ARGS[2] and pantywornnumber = ARGS[3]:
  156. 'You are wearing these panties.'
  157. else
  158. if metka_panties = 0:
  159. act 'Wear':
  160. gs 'panties', 'wear', $ARGS[2], ARGS[3]
  161. if $ARGS[1] = 'wardrobe':
  162. gt 'wardrobe', 'start'
  163. else
  164. gt $loc, $metka
  165. end
  166. end
  167. end
  168. end
  169. end
  170. if $ARGS[1] ! 'store':
  171. act 'Move to storage': gt 'panties', 'dest1', $ARGS[1], $ARGS[2], ARGS[3]
  172. end
  173. if $ARGS[1] ! 'unwanted':
  174. act 'Move to unwanted': gt 'panties', 'dest2', $ARGS[1], $ARGS[2], ARGS[3]
  175. end
  176. if $ARGS[1] ! 'wardrobe':
  177. act 'Move to wardrobe': gt 'panties', 'dest0', $ARGS[1], $ARGS[2], ARGS[3]
  178. end
  179. end
  180. end
  181. if $ARGS[0] = 'dest0':
  182. *clr
  183. dynamic '<<$ARGS[2]>>_pantiesS[<<ARGS[3]>>] = 0'
  184. gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3]
  185. end
  186. if $ARGS[0] = 'dest1':
  187. *clr
  188. dynamic '<<$ARGS[2]>>_pantiesS[<<ARGS[3]>>] = 1'
  189. gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3]
  190. end
  191. if $ARGS[0] = 'dest2':
  192. *clr
  193. dynamic '<<$ARGS[2]>>_pantiesS[<<ARGS[3]>>] = 2'
  194. gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3]
  195. end
  196. if $ARGS[0] = 'descriptions':
  197. if $ARGS[1] = 'cheap':
  198. 'Cheap panties with no redeeming features.'
  199. elseif $ARGS[1] = 'boutique':
  200. 'These panties are so beautifully made that your posture and confidence is improved wearing them boosting your appearance even when fully clothed.'
  201. elseif $ARGS[1] = 'exhibitionist':
  202. 'These panties are so revealing that they are more exciting than not wearing any and you''ll always feel horny wearing them.'
  203. elseif $ARGS[1] = 'fashionista':
  204. 'These panties are well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.'
  205. elseif $ARGS[1] = 'kats':
  206. 'These panties feel reassuring and wear them gives your mood a lift.'
  207. elseif $ARGS[1] = 'sexshop':
  208. 'Tacky and cheap these panties make you look like a hooker, this could be a bonus if working as one.'
  209. elseif $ARGS[1] = 'sport':
  210. 'These panties are designed for physical exercises to make them less tiring.'
  211. end
  212. end
  213. --- panties ---------------------------------