1
0

saunabed 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697
  1. # saunabed
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'private'
  5. gs 'stat'
  6. '<center><b>bed</b></center>'
  7. '<center><img src="images/pics/son.jpg"></center>'
  8. if $args[0] = '':
  9. if son < 40:
  10. if budon = 1:
  11. act 'Sleep to the alarm - <<timer>> hours <<timerM>> minutes':saunaalarm = 1 & gt 'saunabed', 'sleep'
  12. end
  13. act 'Screw the alarm and sleep well':saunaalarm = 1 & gt 'saunabed', 'sleep'
  14. end
  15. if budon = 1:
  16. 'Alarm set for <<timer>> hours <<timerM>> minutes'
  17. act 'Turn the alarm off':budon = 0 & gt $curloc
  18. else
  19. act 'Turn the alarm on':budon = 1 & gt $curloc
  20. end
  21. act 'Set the alarm':gt'budilnik', 'start'
  22. end
  23. if $args[0] = 'sleep':
  24. if disable_autosave = 0:
  25. if StoryLine = 0:
  26. SAVEGAME 'autosave.sav'
  27. else
  28. SAVEGAME 'autosave_alt.sav'
  29. end
  30. end
  31. cls
  32. hapri = 0
  33. InSleep = 1
  34. gs 'clothing', 'strip'
  35. '<center><img src="images/pics/son.jpg"></center>'
  36. if analplugIN = 1 and bedanal = 0:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
  37. if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
  38. if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'Makeup smears your face, you think that it looks bad sleeping in makeup, and your skin will age faster from this.'
  39. if fat > 5 and stringimplant = 1:silicone += 1 & fat -= 5
  40. :loopson
  41. minut += 1
  42. stime += 1
  43. health += 5
  44. if stime = 60:stime = 0 & son += 15
  45. gs 'stat'
  46. if budilnikOn = 1 and hour = timer and minut = timerM:
  47. manna -= 10
  48. 'Your alarm goes off.'
  49. act 'Get out of bed and get dressed (0:15)':
  50. gs 'clothing', 'wear_last_worn'
  51. InSleep = 0
  52. minut += 15
  53. gt $locBroom, $metkaBroom
  54. end
  55. act 'Get out of bed (0:10)':
  56. InSleep = 0
  57. minut += 10
  58. gt $locBroom, $metkaBroom
  59. end
  60. elseif son > 100:
  61. manna -= 10
  62. 'You wake up, no longer tired.'
  63. act 'Get out of bed and get dressed (0:15)':
  64. gs 'clothing', 'wear_last_worn'
  65. InSleep = 0
  66. minut += 15
  67. gt $locBroom, $metkaBroom
  68. end
  69. act 'Get out of bed (0:10)':
  70. InSleep = 0
  71. minut += 10
  72. gt $locBroom, $metkaBroom
  73. end
  74. else
  75. jump 'loopson'
  76. end
  77. end
  78. --- saunabed ---------------------------------