1
0

underwear.qsrc 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. # underwear
  2. !!gs 'underwear', 'dispose'
  3. !!gs 'underwear', 'remove'
  4. !!gs 'underwear', 'wear'
  5. if $ARGS[0] = 'dispose':
  6. gs 'panties', 'dispose'
  7. gs 'bras', 'dispose'
  8. end
  9. if $ARGS[0] = 'remove':
  10. if $pantyworntype = 'none' and $braworntype = 'none':exit
  11. if $pantyworntype = 'none':
  12. panty_none = 1
  13. else
  14. gs 'panties', 'remove'
  15. end
  16. if $braworntype = 'none':
  17. bra_none = 1
  18. else
  19. gs 'bras', 'remove'
  20. end
  21. end
  22. if $ARGS[0] = 'wear':
  23. if panty_none = 0: gs 'panties', 'wear'
  24. if bra_none = 0: gs 'bras', 'wear'
  25. panty_none = 0
  26. bra_none = 0
  27. end
  28. if $ARGS[0] = 'dresser':
  29. 'In your dresser you can sort through all your underwear. Much of it is just regular underwear but you can also own some distinct items.'
  30. 'The distinct items are sorted into bras and panties and by the shop in which they were purchased. They must be picked here and automatic options will default to regular underwear.'
  31. *nl
  32. 'The wear panties and bra options here are for the regular underwear, the large buttons for choosing unique items.'
  33. *nl
  34. 'Your dresser contains <<clrbelo>> pairs of regular panties and <<clrbra>> of regular bras.'
  35. *nl
  36. *nl
  37. *nl
  38. *nl
  39. *p '<center><a href="exec:gt ''bras'', ''view_bra_list'', ''clean'', 6"><img src="images/system/icon/bra.png"></a> <a href="exec:gt ''panties'', ''view_panty_list'', ''clean'', 6"><img src="images/system/icon/panties.png"></a></center>'
  40. dynamic $wearpan
  41. dynamic $removepan
  42. act 'Return': gt $loc, $metka
  43. end
  44. --- underwear ---------------------------------