1
0

panties.qsrc 8.9 KB

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