panties.qsrc 8.9 KB

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