stol.qsrc 9.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284
  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. gs 'stol', 'strapon'
  26. if siga > 0:
  27. act 'Hide some cigarettes in your drawer':
  28. cla
  29. cigIN = input ("How many cigarettes do you want to hide in your drawer? (Your purse contains <<siga>> cigarettes.)")
  30. if cigIN <= 0 or cigIN > siga:
  31. 'You can''t put this amount into the drawer.'
  32. else
  33. stolcigarettes += cigIN
  34. siga -= cigIN
  35. end
  36. gt 'stol', 'start'
  37. end
  38. end
  39. if stolcigarettes > 0:
  40. act 'Take some cigarettes from your drawer':
  41. cla
  42. cigOUT = input ("How many cigarettes do you want to put in your purse? (There are <<stolcigarettes>> cigarettes here.)")
  43. if cigOUT <= 0 or cigOUT > stolcigarettes:
  44. 'You can''t take this amount from your drawer.'
  45. else
  46. stolcigarettes -= cigOUT
  47. siga += cigOUT
  48. end
  49. gt 'stol', 'start'
  50. end
  51. end
  52. if money > 0:
  53. act 'Put some money in the drawer':
  54. cla
  55. stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> <b>₽</b>.)")
  56. if stolIN <= 0 or stolIN > money:
  57. !!'Not correct operation.'
  58. else
  59. stolmoney += stolIN
  60. money -= stolIN
  61. end
  62. gt 'stol', 'start'
  63. end
  64. end
  65. if stolmoney > 0:
  66. act 'Take some money from the desk.':
  67. cla
  68. stolOUT = input ("How much money do you want to put in your purse? (There is <<stolmoney>> <b>₽</b> here.)")
  69. if stolOUT <= 0 or stolOUT > stolmoney:
  70. !!'Not correct operation.'
  71. else
  72. stolmoney -= stolOUT
  73. money += stolOUT
  74. !!'You debited <<kartaOUT>> <b>₽</b>, now on your account <<karta>> <b>₽</b>.'
  75. end
  76. gt 'stol', 'start'
  77. end
  78. end
  79. end
  80. if $ARGS[0] = 'stolPar':
  81. *clr & cla
  82. menu_off = 1
  83. gs'stat'
  84. '<center><h1>Desk</h1></center>'
  85. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  86. *nl
  87. 'You sit down at your desk.'
  88. act 'Get up':gt $loc, $metka
  89. act 'Check your birth control': gt 'stol', 'bc'
  90. if mentats_have > 0: '<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.'
  91. if steroid_have > 0: '<a href="exec:dynamic $use_steroids & gt ''stol'', ''stolPar''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  92. if aphrodisiac_have > 0: '<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''stolPar''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  93. if lernHome > 0:
  94. '<br>You have to do homework for school. Finishing everything will take <<lernHome>> hours.'
  95. act 'Do your homework (1 hour)':
  96. cla & *clr
  97. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
  98. minut += 60
  99. lernHome -= 1
  100. lern += 1
  101. 'It took you one hour to '+iif(lernHome = 0, 'complete', 'do a part of')+' your homework.'
  102. gs'stat'
  103. act 'Continue':gt 'stol', 'stolPar'
  104. end
  105. end
  106. if lernHome > 1:
  107. act 'Finish all of your homework (<<lernHome>> hours)':
  108. cla & *clr
  109. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
  110. minut += 60 * lernHome
  111. lern += 1 + lernHome/2
  112. 'It took you <<lernHome>> hours to complete your homework.'
  113. lernHome = 0
  114. gs'stat'
  115. act 'Continue':gt 'stol', 'stolPar'
  116. end
  117. end
  118. gs 'stol', 'strapon'
  119. if siga > 0:
  120. act 'Hide some cigarettes in your drawer':
  121. cla
  122. cigIN = input ("How many cigarettes do you want to hide in your drawer? (Your purse contains <<siga>> cigarettes.)")
  123. if cigIN <= 0 or cigIN > siga:
  124. 'You can''t put this amount into the drawer.'
  125. else
  126. stolcigarettes += cigIN
  127. siga -= cigIN
  128. end
  129. gt 'stol', 'stolPar'
  130. end
  131. end
  132. if stolcigarettes > 0:
  133. act 'Take some cigarettes from your drawer':
  134. cla
  135. cigOUT = input ("How many cigarettes do you want to put in your purse? (There are <<stolcigarettes>> cigarettes here.)")
  136. if cigOUT <= 0 or cigOUT > stolcigarettes:
  137. 'You can''t take this amount from your drawer.'
  138. else
  139. stolcigarettes -= cigOUT
  140. siga += cigOUT
  141. end
  142. gt 'stol', 'stolPar'
  143. end
  144. end
  145. if money > 0:
  146. act 'Hide some money in your drawer':
  147. cla
  148. stolIN = input ("How much money you want to hide in your drawer? (Your purse contains <<money>> <b>₽</b>.)")
  149. if stolIN <= 0 or stolIN > money:
  150. 'You can''t put this amount into the drawer.'
  151. else
  152. stolmoney += stolIN
  153. money -= stolIN
  154. end
  155. gt 'stol', 'stolPar'
  156. end
  157. end
  158. if stolmoney > 0:
  159. act 'Take some money from your drawer':
  160. cla
  161. stolOUT = input ("How much money do you want to put in your purse? (There is <<stolmoney>> <b>₽</b> here.)")
  162. if stolOUT <= 0 or stolOUT > stolmoney:
  163. 'You can''t take this amount from your drawer.'
  164. else
  165. stolmoney -= stolOUT
  166. money += stolOUT
  167. if stolmoney > 0: 'You have <<stolmoney>> <b>₽</b> hiden in your drawer.'
  168. end
  169. gt 'stol', 'stolPar'
  170. end
  171. end
  172. end
  173. if $ARGS[0] = 'strapon':
  174. !! use gs 'boyStat', 'D<<strapnumber>>' to recall which dildo is attached?
  175. if strapon = 1:
  176. if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0:
  177. act 'Check out your strapon harness':
  178. *clr
  179. '<center><h1>Desk</h1></center>'
  180. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  181. *nl
  182. if strapnumber = 0:
  183. 'Your strapon harness doesn''t have a dildo attached to it.'
  184. elseif strapnumber = 1:
  185. 'Your 10cm dildo is attached to your strapon harness.'
  186. elseif strapnumber = 2:
  187. 'Your 15cm dildo is attached to your strapon harness.'
  188. elseif strapnumber = 3:
  189. 'Your 20cm dildo is attached to your strapon harness.'
  190. elseif strapnumber = 4:
  191. 'Your 25cm dildo is attached to your strapon harness.'
  192. elseif strapnumber = 5:
  193. 'Your 30cm dildo is attached to your strapon harness.'
  194. elseif strapnumber = 6:
  195. 'Your 35cm dildo is attached to your strapon harness.'
  196. elseif strapnumber = 7:
  197. 'Your 40cm dildo is attached to your strapon harness.'
  198. end
  199. *nl
  200. if dildo = 1: '<a href="exec:strapnumber = 1 & gt ''stol'', ''stolPar''">Attach</a> your 10cm long dildo.'
  201. if middildo = 1: '<a href="exec:strapnumber = 2 & gt ''stol'', ''stolPar''">Attach</a> your 15cm long dildo.'
  202. if largedildo = 1: '<a href="exec:strapnumber = 3 & gt ''stol'', ''stolPar''">Attach</a> your 20cm long dildo.'
  203. if bigdildo = 1: '<a href="exec:strapnumber = 4 & gt ''stol'', ''stolPar''">Attach</a> your 25cm long dildo.'
  204. if extradildo = 1: '<a href="exec:strapnumber = 5 & gt ''stol'', ''stolPar''">Attach</a> your 30cm long dildo.'
  205. if superdildo = 1: '<a href="exec:strapnumber = 6 & gt ''stol'', ''stolPar''">Attach</a> your 35cm long dildo.'
  206. if maddildo = 1: '<a href="exec:strapnumber = 7 & gt ''stol'', ''stolPar''">Attach</a> your 40cm long dildo.'
  207. end
  208. else
  209. act 'Check out your strapon harness': '<br>You don''t have any dildos to attach to your strapon harness'
  210. end
  211. end
  212. end
  213. if $ARGS[0] = 'bc':
  214. *clr & cla
  215. '<center><h1>Desk</h1></center>'
  216. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  217. *nl
  218. gs 'stat'
  219. gs 'din_bad'
  220. 'In the drawer of your desk, you store your birth control.'
  221. if prezik + prezikcount + preziksabo > 0:
  222. if preziktype = 2 or preziksabo > 0:
  223. '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>'
  224. elseif preziktype < 2 and preziksabo = 0:
  225. 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  226. end
  227. *nl
  228. else
  229. 'You are out of condoms.'
  230. end
  231. if tabletki > 0 and pillsleft[ptype] > 0:
  232. '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>'
  233. elseif tabletki = 0 and pillsleft[ptype] > 0:
  234. 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkiedt">birth control pills</a> left.</b>'
  235. elseif tabletki > 0 and pillsleft[ptype] = 0:
  236. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkiedt">birth control pills</a>.'
  237. else
  238. 'You are out of birth control pills.'
  239. end
  240. act 'Close the drawer':gt $loc, $metka
  241. end
  242. --- stol ---------------------------------