panties.qsrc 8.0 KB

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