stol.qsrc 5.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182
  1. # stol
  2. !{change log
  3. 31 March, 2016
  4. Added birth control control options to desk in Pavlovsk and "Bric-a-Brac drawer"
  5. }
  6. if $ARGS[0] = 'start':
  7. cla
  8. *clr
  9. '<center><h1>Desk</h1></center>'
  10. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  11. *nl
  12. gs 'stat'
  13. 'Bric-a-brac drawer.'
  14. act 'Check birth control': gt 'stol', 'bc'
  15. if lubri > 0:'Lubricant, enough for <<lubri>> time(s).'
  16. if krem > 0:'Sunblock, enough for <<krem>> more application(s).'
  17. if abonement > 0:'Fitness center subscription, valid for <<abonement>> more visit(s)'
  18. if dildo > 0:'Realistic Dildo.'
  19. if mentats_have > 0:
  20. '<a href="exec:dynamic $use_mentats & gt ''stol'', ''start''"><b>Take neurobooster pill.</b></a> Uses left: <<mentats_have>>. Warning on the box says not to take more than one per day.'
  21. end
  22. if steroid_have > 0:
  23. '<a href="exec:dynamic $use_steroids & gt ''stol'', ''start''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  24. end
  25. if aphrodisiac_have > 0:
  26. '<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''start''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  27. end
  28. act 'Close the drawer':
  29. cla
  30. gt 'stol', 'fin'
  31. end
  32. if money > 0:
  33. act 'Put some money in the drawer':
  34. cla
  35. stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> <b>₽</b>.)")
  36. if stolIN <= 0 or stolIN > money:
  37. !!'Not correct operation.'
  38. else
  39. stolmoney += stolIN
  40. money -= stolIN
  41. end
  42. gt 'stol', 'fin'
  43. end
  44. end
  45. if stolmoney > 0:
  46. act 'Take some money from the desk.':
  47. cla
  48. stolOUT = input ("How much money do you want to put in your purse? (There is <<stolmoney>> <b>₽</b> here.)")
  49. if stolOUT <= 0 or stolOUT > stolmoney:
  50. !!'Not correct operation.'
  51. else
  52. stolmoney -= stolOUT
  53. money += stolOUT
  54. !!'You debited <<kartaOUT>> <b>₽</b>, now on your account <<karta>> <b>₽</b>.'
  55. end
  56. gt 'stol', 'fin'
  57. end
  58. end
  59. end
  60. if $ARGS[0] = 'fin':
  61. cla
  62. gt $loc, $metka
  63. end
  64. if $ARGS[0] = 'stolPar':
  65. *clr & cla
  66. gs'stat'
  67. '<center><h1>Desk</h1></center>'
  68. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  69. *nl
  70. 'You sit down at your desk.'
  71. act 'Get up':gt $loc, $metka
  72. act 'Check your birth control': gt 'stol', 'bc'
  73. if mentats_have > 0:
  74. '<a href="exec:dynamic $use_mentats & gt ''stol'', ''stolPar''"><b>Take neurobooster pill.</b></a> Uses left: <<mentats_have>>. Warning on the box says not to take more than one per day.'
  75. end
  76. if steroid_have > 0:
  77. '<a href="exec:dynamic $use_steroids & gt ''stol'', ''stolPar''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  78. end
  79. if aphrodisiac_have > 0:
  80. '<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''stolPar''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  81. end
  82. if lernHome > 0:
  83. act 'Do your homework':
  84. cla & *clr
  85. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
  86. if lernHome <= 2:
  87. minut += 60*lernHome
  88. lernHome = 0
  89. lern += 1
  90. 'It takes you one hour to complete your homework.'
  91. gs'stat'
  92. elseif lernHome > 2:
  93. minut += 60*2
  94. lernHome = 0
  95. 'It takes you two hours to complete your homework.'
  96. gs'stat'
  97. end
  98. act 'Get up from the table':gt $loc, $metka
  99. end
  100. end
  101. if money > 0:
  102. act 'Hide some money in your drawer':
  103. cla
  104. stolIN = input ("How much money you want to hide in your drawer? (Your purse contains <<money>> <b>₽</b>.)")
  105. if stolIN <= 0 or stolIN > money:
  106. 'You can''t put this amount into the drawer.'
  107. else
  108. stolmoney += stolIN
  109. money -= stolIN
  110. end
  111. gt 'stol', 'stolPar'
  112. end
  113. end
  114. if stolmoney > 0:
  115. act 'Take some money from your drawer':
  116. cla
  117. stolOUT = input ("How much money do you want to put in your purse? (There is <<stolmoney>> <b>₽</b> here.)")
  118. if stolOUT <= 0 or stolOUT > stolmoney:
  119. 'You can''t take this amount from your drawer.'
  120. else
  121. stolmoney -= stolOUT
  122. money += stolOUT
  123. if stolmoney > 0: 'You have <<stolmoney>> <b>₽</b> hiden in your drawer.'
  124. end
  125. gt 'stol', 'stolPar'
  126. end
  127. end
  128. end
  129. if $ARGS[0] = 'bc':
  130. *clr & cla
  131. '<center><h1>Desk</h1></center>'
  132. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  133. *nl
  134. gs 'stat'
  135. gs 'din_bad'
  136. 'In the drawer of your desk, you store your birth control.'
  137. if prezik + prezikcount + preziksabo > 0:
  138. if preziktype = 2 or preziksabo > 0:
  139. 'You have <<iif(preziktype = 2, prezikcount, prezikcount+prezik)>> normal, and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  140. elseif preziktype < 2 and preziksabo = 0:
  141. 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  142. END
  143. *nl
  144. else
  145. 'You are out of condoms.'
  146. end
  147. if tabletki > 0 and pillsleft[ptype] > 0:
  148. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkiedt">birth control pills</a> and <<pillsleft[ptype]>> pills left in your opened package.</b>'
  149. elseif tabletki = 0 and pillsleft[ptype] > 0:
  150. 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkiedt">birth control pills</a> left.</b>'
  151. elseif tabletki > 0 and pillsleft[ptype] = 0:
  152. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkiedt">birth control pills</a>.'
  153. else
  154. 'You are out of birth control pills.'
  155. end
  156. act 'Close the drawer':gt $loc, $metka
  157. end
  158. --- stol ---------------------------------