stol.qsrc 11 KB

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