1
0

stol.qsrc 5.3 KB

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