underwear.qsrc 3.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. # underwear
  2. !!gs 'underwear', 'dispose'
  3. !!gs 'underwear', 'remove'
  4. !!gs 'underwear', 'wear'
  5. !! As remove and wear but with a backup in place to ensure the correct underwear state is restored
  6. !!gs 'underwear', 'backup'
  7. !!gs 'underwear', 'restore'
  8. if $ARGS[0] = 'dispose':
  9. if underwear['type'] = 2:
  10. gs 'underwear_bodysuits', 'dispose'
  11. else
  12. gs 'panties', 'dispose'
  13. gs 'bras', 'dispose'
  14. end
  15. end
  16. if $ARGS[0] = 'backup':
  17. if underwear['type'] = 2:
  18. $lastwornbodysuittype['backup'] = $bodysuitworntype
  19. lastwornbodysuitnumber['backup'] = bodysuitwornnumber
  20. gs 'underwear_bodysuits', 'remove'
  21. else
  22. $lastwornpantytype['backup'] = $pantyworntype
  23. lastwornpantynumber['backup'] = pantywornnumber
  24. $lastwornbratype['backup'] = $braworntype
  25. lastwornbranumber['backup'] = brawornnumber
  26. gs 'panties', 'remove'
  27. gs 'bras', 'remove'
  28. end
  29. end
  30. if $ARGS[0] = 'remove':
  31. !!check for swimwear to prevent duplicate stripping stopping Sveta putting underwear on when she puts her clothes on
  32. if $clothingworntype ! 'danilovich_swimsuit' and $clothingworntype ! 'scandalicious_swimsuit' and $clothingworntype ! 'scandalicious_bikinis' and $clothingworntype ! 'allure_swimsuit' and $clothingworntype ! 'allure_bikinis' and $clothingworntype ! 'nerdvana_swimsuit' and $clothingworntype ! 'nerdvana_bikinis' and ($pantyworntype ! 'none' or $braworntype ! 'none'):
  33. if underwear['type'] = 2:
  34. gs 'underwear_bodysuits', 'remove'
  35. else
  36. gs 'panties', 'remove'
  37. gs 'bras', 'remove'
  38. end
  39. end
  40. end
  41. if $ARGS[0] = 'restore':
  42. if underwear['lastworntype'] = 2:
  43. gs 'underwear_bodysuits', 'wear', $lastwornbodysuittype['backup'], lastwornbodysuitnumber['backup']
  44. else
  45. gs 'panties', 'wear', $lastwornpantytype['backup'], lastwornpantynumber['backup']
  46. gs 'bras', 'wear', $lastwornbratype['backup'], lastwornbranumber['backup']
  47. end
  48. end
  49. if $ARGS[0] = 'wear':
  50. if underwear['lastworntype'] = 2:
  51. gs 'underwear_bodysuits', 'wear', $ARGS[1]
  52. else
  53. gs 'panties', 'wear', $ARGS[1]
  54. gs 'bras', 'wear', $ARGS[1]
  55. end
  56. end
  57. if $ARGS[0] = 'dresser':
  58. '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.'
  59. '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.'
  60. *nl
  61. 'The wear panties and bra options here are for the regular underwear, the large buttons for choosing unique items.'
  62. *nl
  63. 'Your dresser contains <<func(''panties'',''sum'',''dresser'')>> pairs of regular panties and <<func(''bras'',''sum'',''dresser'')>> regular bras.'
  64. *nl
  65. *nl
  66. *nl
  67. *nl
  68. *p '<center><a href="exec:gt ''bras'', ''view_bra_list'', ''clean'', 6"><img src="images/system/icons/bra.png"></a> <a href="exec:gt ''panties'', ''view_panty_list'', ''clean'', 6"><img src="images/system/icons/panties.png"></a></center>'
  69. dynamic $wearpan
  70. dynamic $removepan
  71. act 'Return': gt $loc, $loc_arg
  72. end
  73. --- underwear ---------------------------------