stol 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  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. gs 'stat'
  10. 'Bric-a-brac drawer.'
  11. act 'Check birth control': gt 'stol', 'bc'
  12. if lubri > 0:'Lubricant, enough for <<lubri>> time(s).'
  13. if krem > 0:'Sunblock, enough for <<krem>> more application(s).'
  14. if abonement > 0:'Fitness center subscription, valid for <<abonement>> more visit(s)'
  15. if dildo > 0:'Realistic Dildo.'
  16. if mentats_have > 0:
  17. pl'<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.'
  18. end
  19. if steroid_have > 0:
  20. pl'<a href="exec:dynamic $use_steroids & gt ''stol'', ''start''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  21. end
  22. if aphrodisiac_have > 0:
  23. pl'<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''start''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  24. end
  25. act 'Close the drawer':
  26. cla
  27. gt 'stol', 'fin'
  28. end
  29. if money > 0:
  30. act 'Put some money in the drawer':
  31. cla
  32. stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> <b>₽</b>.)")
  33. if stolIN <= 0 or stolIN > money:
  34. !!'Not correct operation.'
  35. else
  36. stolmoney += stolIN
  37. money -= stolIN
  38. end
  39. gt 'stol', 'fin'
  40. end
  41. end
  42. if stolmoney > 0:
  43. act 'Take some money from the desk.':
  44. cla
  45. stolOUT = input ("How much money do you want to put in your purse? (There is <<stolmoney>> <b>₽</b> here.)")
  46. if stolOUT <= 0 or stolOUT > stolmoney:
  47. !!'Not correct operation.'
  48. else
  49. stolmoney -= stolOUT
  50. money += stolOUT
  51. !!'You debited <<kartaOUT>> <b>₽</b>, now on your account <<karta>> <b>₽</b>.'
  52. end
  53. gt 'stol', 'fin'
  54. end
  55. end
  56. end
  57. if $ARGS[0] = 'fin':
  58. cla
  59. gt $locM, $metkaM
  60. end
  61. if $ARGS[0] = 'stolPar':
  62. gs'stat'
  63. '<center><img <<$set_imgh>> src="images/shared/home/bedroom/stol.jpg"></center>'
  64. 'You sat down at his desk.'
  65. act 'Check birth control': gt 'stol', 'bc'
  66. act 'Get up from the table':gt $locM, $metkaM
  67. if mentats_have > 0:
  68. pl'<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.'
  69. end
  70. if steroid_have > 0:
  71. pl'<a href="exec:dynamic $use_steroids & gt ''stol'', ''stolPar''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  72. end
  73. if aphrodisiac_have > 0:
  74. pl'<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''stolPar''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  75. end
  76. if lernHome > 0:
  77. act 'Learning lessons':
  78. cls
  79. if lernHome <= 2:
  80. minut += 60*lernHome
  81. lernHome = 0
  82. lern += 1
  83. gs'stat'
  84. elseif lernHome > 2:
  85. minut += 60*2
  86. lernHome = 0
  87. gs'stat'
  88. end
  89. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
  90. 'Sitting for a long time you learned yet they were able to learn.'
  91. act 'Get up from the table':gt $locM, $metkaM
  92. end
  93. end
  94. end
  95. if $ARGS[0] = 'bc':
  96. cls
  97. cla
  98. gs 'stat'
  99. gs 'din_bad'
  100. 'In the drawer of your desk, you store your birth control.'
  101. if prezik + prezikcount + preziksabo > 0:
  102. if preziktype = 2 or preziksabo > 0:
  103. '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>'
  104. elseif preziktype < 2 and preziksabo = 0:
  105. 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  106. END
  107. NL
  108. else
  109. pl 'You are out of condoms.'
  110. end
  111. if tabletki > 0 and pillsleft[ptype] > 0:
  112. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> and <<pillsleft[ptype]>> pills left in your opened package.</b>'
  113. elseif tabletki = 0 and pillsleft[ptype] > 0:
  114. 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left.</b>'
  115. elseif tabletki > 0 and pillsleft[ptype] = 0:
  116. 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a>.'
  117. else
  118. 'You are out of birth control pills.'
  119. end
  120. act 'Close the drawer':gt $locM, $metkaM
  121. end
  122. --- stol ---------------------------------