1
0

shortgs 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
  1. # shortgs
  2. !! smoker - handles all changes which happen when PC smokes one cigarette
  3. !! use : gs 'shortgs','smoker'
  4. if $ARGS[0] = 'smoker':
  5. siga -= 1
  6. smoker += 1
  7. smokeHour = hour
  8. smokeDay = daystart
  9. smokeminut = minut + 5
  10. smokerNeed = 0
  11. cumspclnt = 2
  12. gs 'cum_cleanup'
  13. pcs_breath = 0
  14. pcs_mood += 100
  15. wipo += 100
  16. if pcs_energy < 80: pcs_energy += 4
  17. gs '$menu_obnovit'
  18. end &!--- smoker ---
  19. !! milk_me
  20. !! use href="exec:gt ''shortgs'', ''milk_me''"
  21. if $ARGS[0] = 'milk_me':
  22. minut += 15
  23. if $location_type ! 'bathroom':
  24. 'You can''t use it here.'
  25. elseif lactatemv > 0 and pain['nipples'] < 60:
  26. '<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
  27. 'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<lactatemv>>ml of your milk.'
  28. breastcounter += 1
  29. lactatemv = 0
  30. if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
  31. breastpumped = 1
  32. pcs_nips += rand(0,1)
  33. if bcream_used = 1:pcs_nips += 1
  34. elseif lactate = 0 and pain['nipples'] < 60:
  35. if rand(1,100) + breastcounter >= rand(100,200):
  36. '<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
  37. 'As usual, you attach the pump but after a few pumps white liquid suddenly starts spurting from your nipples.<br>You started lactating!'
  38. lactate = 1
  39. lactatemv = 0
  40. lactatemm = 10
  41. else
  42. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
  43. 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.<br>A few droplets of liquid come out of your nipples but it is not milk.'
  44. breastcounter += 1
  45. if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.'
  46. breastpumped = 1
  47. pcs_nips += rand(0,1)
  48. if bcream_used = 1:pcs_nips += 1
  49. end
  50. else
  51. 'Your nipples feel too sore to use the pump right now.'
  52. end
  53. act 'Finish':gt $locM, $metkaM
  54. end &! --- milk_me ---
  55. !! following function counts the number of guys which PC slept with.
  56. !! use func('shortgs','guy') or func('shortgs','guy',X) for subset (X can be 'A','B','C','AB','AC','BC')
  57. if $ARGS[0] = 'guy':
  58. r_sht=0
  59. if $ARGS[1] = '': $temptask = 'ABC' else $temptask = $ARGS[1]
  60. :loop_shtty
  61. $temptaskchar = mid($temptask,1,1)
  62. $temptask = mid($temptask,2,len($temptask)-1)
  63. s_sht=0
  64. :loop_shya
  65. if s_sht<=dyneval("result = <<$temptaskchar>>arraynumber"):
  66. s_sht += 1
  67. if npc_sex['<<$temptaskchar>><<s_sht>>'] > 0: r_sht = r_sht + iif(npc_gender['<<$temptaskchar>><<s_sht>>'] = 0,1,0)
  68. jump 'loop_shya'
  69. end
  70. if len($temptask) > 0:jump 'loop_shtty'
  71. end
  72. result = r_sht
  73. killvar 'r_sht'
  74. killvar '$temptask'
  75. killvar '$temptaskchar'
  76. killvar 's_sht'
  77. end &! --- guy ---
  78. !! following function counts the number of girls which PC slept with.
  79. !! use func('shortgs','girl') or func('shortgs','girl',X) for subset (X can be 'A','B','C','AB','AC','BC')
  80. if $ARGS[0] = 'girl':
  81. r_sht=0
  82. if $ARGS[1] = '': $temptask = 'ABC' else $temptask = $ARGS[1]
  83. :loop_shttl
  84. $temptaskchar = mid($temptask,1,1)
  85. $temptask = mid($temptask,2,len($temptask)-1)
  86. s_sht=0
  87. :loop_shl
  88. if s_sht<=dyneval("result = <<$temptaskchar>>arraynumber"):
  89. s_sht += 1
  90. if npc_sex['<<$temptaskchar>><<s_sht>>'] > 0: r_sht = r_sht + iif(npc_gender['<<$temptaskchar>><<s_sht>>'] = 1,1,0)
  91. jump 'loop_shl'
  92. end
  93. if len($temptask) > 0: jump 'loop_shttl'
  94. result = r_sht
  95. killvar 'r_sht'
  96. killvar '$temptask'
  97. killvar '$temptaskchar'
  98. killvar 's_sht'
  99. end &! --- girl ---
  100. !! following procedure should be used when PC gets naked, but it should be paired with the reverse procedure
  101. !! use gs 'shortgs','undress'
  102. if $ARGS[0] = 'undress':
  103. gs 'clothing', 'strip'
  104. if tanga = 1:panties = 1 & tanga = 0
  105. end &! --- undress ---
  106. !! reverse procedure, it can be modified for lose or stolen panties later.
  107. !! use gs 'shortgs','dress'
  108. if $ARGS[0] = 'dress':
  109. gs 'clothing', 'wear_last_worn'
  110. if panties = 1:tanga = 1
  111. panties = 0
  112. end &! --- dress ---
  113. --- shortgs ---------------------------------