1
0

stol 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118
  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. act 'Close the drawer':
  17. cla
  18. gt 'stol', 'fin'
  19. end
  20. if money > 0:
  21. act 'Put some money in the drawer':
  22. cla
  23. stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <<money>> <b>₽</b>.)")
  24. if stolIN <= 0 or stolIN > money:
  25. !!'Not correct operation.'
  26. else
  27. stolmoney += stolIN
  28. money -= stolIN
  29. end
  30. gt 'stol', 'fin'
  31. end
  32. end
  33. if stolmoney > 0:
  34. act 'Take some money from the desk.':
  35. cla
  36. stolOUT = input ("How much money do you want to put in your purse? (There is <<stolmoney>> <b>₽</b> here.)")
  37. if stolOUT <= 0 or stolOUT > stolmoney:
  38. !!'Not correct operation.'
  39. else
  40. stolmoney -= stolOUT
  41. money += stolOUT
  42. !!'You debited <<kartaOUT>> <b>₽</b>, now on your account <<karta>> <b>₽</b>.'
  43. end
  44. gt 'stol', 'fin'
  45. end
  46. end
  47. end
  48. if $ARGS[0] = 'fin':
  49. cla
  50. gt $locM, $metkaM
  51. end
  52. if $ARGS[0] = 'stolPar':
  53. gs'stat'
  54. '<center><img src="images/pics/stol.jpg"></center>'
  55. 'You sat down at his desk.'
  56. act 'Check birth control': gt 'stol', 'bc'
  57. act 'Get up from the table':gt $locM, $metkaM
  58. if lernHome > 0:
  59. act 'Learning lessons':
  60. cls
  61. if lernHome <= 2:
  62. minut += 60*lernHome
  63. lernHome = 0
  64. lern += 1
  65. gs'stat'
  66. elseif lernHome > 2:
  67. minut += 60*2
  68. lernHome = 0
  69. gs'stat'
  70. end
  71. '<center><img src="images/pic/homework.jpg"></center>'
  72. 'Sitting for a long time you learned yet they were able to learn.'
  73. act 'Get up from the table':gt $locM, $metkaM
  74. end
  75. end
  76. end
  77. if $ARGS[0] = 'bc':
  78. cls
  79. cla
  80. gs 'stat'
  81. gs 'din_bad'
  82. 'In the drawer of your desk, you store your birth control.'
  83. if prezik + prezikcount + preziksabo > 0:
  84. if preziktype = 2 or preziksabo > 0:
  85. '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>'
  86. elseif preziktype < 2 and preziksabo = 0:
  87. 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Table_Condom_Menu"><b>condoms.</b></a>'
  88. END
  89. NL
  90. else
  91. pl 'You are out of condoms.'
  92. end
  93. if tabletki > 0:
  94. 'You have <<tabletki>> <a href="exec:*clr & dynamic $d_tabletkiedt">birth control pills.</b></a>'
  95. else
  96. 'You are out of birth control pills.'
  97. end
  98. act 'Close the drawer':gt $locM, $metkaM
  99. end
  100. --- stol ---------------------------------