166_stolPar 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213
  1. # stolPar
  2. if BakaGHomework = 0:
  3. gs 'stat'
  4. !'<center><img src="images\pics\telek.jpg"></center>'
  5. 'Old desk, your parents bought back in the distant 90´s. Two side drawer with locks: your and your sister.'
  6. if Stolprezik > 0:
  7. 'In the drawer are <<Stolprezik>> condoms'
  8. end
  9. if Stoltabletki > 0:
  10. 'In the drawer are <<Stoltabletki>> birth control pills.'
  11. end
  12. if Stollubri> 0:
  13. 'In the drawer is anal lubricant, enough for <<Stollubri>> uses.'
  14. end
  15. if krem > 0:
  16. 'There are <<krem>> uses of suntan lotion.'
  17. end
  18. if abonement> 0:
  19. 'subscription is valid for <<abonement>> Occupation'
  20. end
  21. if dildo > 0:
  22. 'Realistic dildo'
  23. end
  24. act 'Get up from the table':
  25. gt $locM, $metkaM
  26. end
  27. if prezik > 0:
  28. act 'Remove condoms from purse':
  29. stolIN = input ("How many condoms to put in desk drawer? (Your purse contains <<prezik>> condoms.)")
  30. if stolIN <= 0 or stolIN > prezik:
  31. else
  32. set stolprezik += stolIN
  33. set prezik -= stolIN
  34. end
  35. gt 'stolPar'
  36. end
  37. end
  38. if Stolprezik > 0:
  39. act 'Get condoms from desk':
  40. stolOUT = input ("How many condoms to place in purse? (Desk has <<stolprezik>> condoms.)")
  41. if stolOUT <= 0 or stolOUT > stolprezik:
  42. else
  43. set stolprezik -= stolOUT
  44. set prezik += stolOUT
  45. end
  46. gt 'stolPar'
  47. end
  48. end
  49. if tabletki > 0:
  50. act 'Remove pills from purse':
  51. stolIN = input ("How many birth control pills to put in desk drawer? (Your purse contains <<tabletki>> pills.)")
  52. if stolIN <= 0 or stolIN > tabletki:
  53. else
  54. set Stoltabletki += stolIN
  55. set tabletki -= stolIN
  56. end
  57. gt 'stolPar'
  58. end
  59. end
  60. if Stoltabletki > 0:
  61. act 'Get pills from desk':
  62. stolOUT = input ("How many birth control pills to place in purse? (Desk has <<Stoltabletki>> pills.)")
  63. if stolOUT <= 0 or stolOUT > Stoltabletki:
  64. else
  65. set Stoltabletki -= stolOUT
  66. set tabletki += stolOUT
  67. end
  68. gt 'stolPar'
  69. end
  70. end
  71. if lubri > 0:
  72. act 'Remove lubricant from purse':
  73. stolIN = input ("How many uses lubricant to put in desk drawer? (Your purse contains <<lubri/5>> uses.)")
  74. if stolIN <= 0 or stolIN > lubri/5:
  75. else
  76. set Stollubri += stolIN * 5
  77. set lubri -= stolIN * 5
  78. end
  79. gt 'stolPar'
  80. end
  81. end
  82. if Stollubri > 0:
  83. act 'Get lubricant from desk':
  84. stolOUT = input ("How many uses of lubricant to place in purse? (Desk contains <<Stollubri/5>> uses.)")
  85. if stolOUT <= 0 or stolOUT > Stollubri/5:
  86. else
  87. set Stollubri -= stolOUT * 5
  88. set lubri += stolOUT * 5
  89. end
  90. gt 'stolPar'
  91. end
  92. end
  93. if lernHome > 0:
  94. act 'Learning lessons':
  95. cls
  96. if lernHome <= 2:
  97. minut += 60 * lernHome
  98. lernHome = 0
  99. lern += 1
  100. end
  101. if lernHome > 2:
  102. minut += 60 * 2
  103. lernHome = 0
  104. end
  105. gs 'stat'
  106. 'Sitting for a long time you learned yet they were able to learn.'
  107. act 'Get up from the table':
  108. gt $locM, $metkaM
  109. end
  110. end
  111. end
  112. end
  113. !' $homework = {
  114. 'You have <<lernHome>> sheets of homework left to complete.'
  115. act 'Do homework':
  116. cls
  117. :loopHomework
  118. set lernHome -= 1
  119. set lern += rand(1, 3)
  120. set lernSkill += rand(0, 1)
  121. set lernTime = (20 + rand(10, 20)) - lernSpeed
  122. set minut += lernTime
  123. if lernHome > 0:
  124. jump 'loopHomework'
  125. else
  126. gs 'stat'
  127. 'You have finished all your homework.'
  128. act 'Stretch and relax':
  129. gt 'stolPar'
  130. end
  131. end
  132. end
  133. }
  134. $study = {
  135. 'You have no more homework left to complete. You can study in the meanwhile.'
  136. act 'Study':
  137. cls
  138. set lern += rand(1,3)
  139. set lernSkill += rand(1,2)
  140. set lernTime = (20 + rand(10,20)) - lernSpeed
  141. set minut += lernTime
  142. gs 'stat'
  143. 'You spent some time studying.'
  144. act 'Stretch and relax':
  145. gt 'stolPar'
  146. end
  147. end
  148. }
  149. if BakaGHomework = 1:
  150. cla
  151. *clr
  152. gs 'stat'
  153. !'<center><img src="images\pics\telek.jpg"></center>'
  154. 'You are sitting down at the desk.'
  155. set lernSpeed = (intel/5) * 1
  156. act 'Get up':
  157. gt $locM, $metkaM
  158. end
  159. if lernHome > 0:
  160. dynamic $homework
  161. end
  162. if lernHome < 1:
  163. dynamic $study
  164. end
  165. end '
  166. --- stolPar ---------------------------------