1
0

burgerWork.qsrc 9.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243
  1. # burgerWork
  2. menu_off = 1
  3. if $ARGS[0] = 'start':
  4. if hour < 10:hour = 10 & minut = 0 & BurgerQW['SecretaryTimesWorked'] += 1
  5. gs 'BurgerTip'
  6. gs 'stat'
  7. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/work.jpg"></center>'
  8. 'You sit in front of Anatoly Borisovich''s office.'
  9. if hour < 17:
  10. act 'Work until lunchtime':
  11. *clr & cla
  12. BurgerQW['WorkShift'] = 1
  13. minut += 60 * 2
  14. gs 'stat'
  15. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/work.jpg"></center>'
  16. 'You sit at the table and begin to prepare the agreement on the computer.'
  17. if BurgerQW['TerminalTask'] = 1:
  18. BurgerQW['TerminalTask'] = 0
  19. kosiakBU += 1
  20. 'Anatoly Borisovich scolds you for not getting documents to the storage terminal, disrupting supplies.'
  21. elseif BurgerQW['TerminalTask'] = 2:
  22. BurgerQW['TerminalTask'] = 0
  23. 'Anatoly Borisovich thanks you for delivering the documents to the storage terminal.'
  24. end
  25. if BurgerQW['BankTask'] = 1:
  26. BurgerQW['BankTask'] = 0
  27. kosiakBU += 1
  28. 'Anatoly Borisovich chastises you for not taking the documents to the bank.'
  29. elseif BurgerQW['BankTask'] = 2:
  30. BurgerQW['BankTask'] = 0
  31. 'Anatoly Borisovich thanks you for delivering the documents to the bank.'
  32. end
  33. if BurgerQW['SaunaWhoreKnown'] = 1 or BurgerQW['IvanQWBlackmail'] = 1:
  34. 'Anatoly Borisovich comes into your office and puts the paper in front of you with a pen. "Write up your resignation. I don''t need a secretary with a past like yours."'
  35. act 'Write a statement of resignation':
  36. *clr & cla
  37. work = 0
  38. BurgerQW['Secretary'] = 2
  39. Pay = BurgerQW['SecretaryTimesWorked'] * 1250
  40. BurgerQW['SecretaryTimesWorked'] = 0
  41. money += Pay
  42. gs 'stat'
  43. 'You write a statement of resignation and quickly get it signed by your boss. He writes out a paycheck of <<pay>> <b>₽</b> to you says, "It''s over <<$pcs_nickname>>, get out of here."'
  44. act 'Leave':gt 'city_center'
  45. end
  46. exit
  47. end
  48. gs 'BurgerTip', 'work'
  49. end
  50. end
  51. end
  52. if $ARGS[0] = 'work':
  53. gs 'food', 'f_food'
  54. cla
  55. act 'Get back to work': gt 'burgerWork', 'work3'
  56. end
  57. if $ARGS[0] = 'work2':
  58. *clr & cla
  59. gs 'stat'
  60. if BurgerQW['IvanQWBlackmail'] >= 6 and BurgerQW['IvanQWBJFilmed'] > 0:
  61. kobl = 0
  62. kobl2 = 2
  63. elseif BurgerQW['IvanQWBlackmail'] >= 6 and BurgerQW['IvanQWBJFilmed'] = 0:
  64. kobl = 0
  65. kobl2 = 2
  66. elseif BurgerQW['IvanQWBlackmail'] < 6:
  67. kobl = 0
  68. kobl2 = 1
  69. end
  70. komblrand = rand(kobl, kobl2)
  71. if BurgerQW['IvanQWBlackmail'] >= 2:
  72. if komblrand = 0:
  73. 'After work, you are about to leave the bistro, but Ivan stops you. "Where are you going, baby? Want to suck my dick?"'
  74. act 'Agree':
  75. *clr & cla
  76. gs 'boyStat', 'A76'
  77. sexpartkno = 1
  78. spafinloc = 12
  79. gs 'cum_manage'
  80. swallow += 1
  81. BurgerQW['IvanQWBlackmail'] += 1
  82. gs 'stat'
  83. '<center><img <<$set_imgh>> src="images/characters/city/ivan/sex/ivanbj.jpg"></center>'
  84. 'Ivan takes you around the corner to a dirty alley behind the bistro. It smells like urine. He pulls his member out of his pants. "Put it in your mouth and show me what you can do." You squat in front of Ivan and take his penis in your mouth. It tastes salty and unwashed. You start to suck actively trying to make Ivan finish as quickly as possible. Finally Ivan lets out a moan starts to cum in your mouth. You quickly swallow while looking around, hoping no one saw you. Once you swallowed his cum, Ivan puts his cleaned up dick in his pants "That was average. You can do better. Now get out of here!"'
  85. gs 'arousal', 'bj', 5, 'sub'
  86. gs 'arousal', 'end'
  87. gs 'stat'
  88. act 'Leave':gt 'city_center'
  89. end
  90. gs 'willpower', 'bj', 'resist', 'medium'
  91. if will_cost <= pcs_willpwr:
  92. act 'Refuse (<<will_cost>> Willpower)':
  93. *clr & cla
  94. gs 'willpower', 'pay', 'resist'
  95. gs 'stat'
  96. gt 'BurgerTip', 'work4'
  97. end
  98. else
  99. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  100. end
  101. elseif komblrand = 1:
  102. 'After work, you are about to leave the bistro, but Ivan stops you. "Where are you going, baby? Want to suck my dick?"'
  103. act 'Agree':
  104. *clr & cla
  105. gs 'boyStat', 'A76'
  106. sexpartkno = 1
  107. spafinloc = 12
  108. gs 'cum_manage'
  109. swallow += 1
  110. BurgerQW['IvanQWBlackmail'] += 1
  111. gs 'stat'
  112. '<center><img <<$set_imgh>> src="images/characters/city/ivan/sex/ivanbjcar.jpg"></center>'
  113. 'Ivan takes you to his car standing in the alley. He gets behind the wheel and you sit next to him. Ivan gets his dick out of his pants and grabs you by the hair pulling your face to his groin until his cock is buried in your <<$liptalk3>>. You open your mouth and allow the member to enter between your lips. You are trying to suck hard, using your <<$liptalk3>> on the penis so Ivan would be finished quickly. Ivan''s body finally jerks and he finishes in your mouth. You continue to suck his dick swallowing the sperm without spilling a drop. Ivan tucks his dick back in his pants and says, "Okay cocksucker, get out."'
  114. gs 'arousal', 'bj', 5, 'sub'
  115. gs 'arousal', 'end'
  116. gs 'stat'
  117. act 'Leave':gt 'city_center'
  118. end
  119. gs 'willpower', 'bj', 'resist', 'medium'
  120. if will_cost <= pcs_willpwr:
  121. act 'Refuse (<<will_cost>> Willpower)':
  122. *clr & cla
  123. gs 'willpower', 'pay', 'resist'
  124. gs 'stat'
  125. gt 'BurgerTip', 'work4'
  126. end
  127. else
  128. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  129. end
  130. elseif komblrand = 2:
  131. 'After work, you are about to leave the bistro, but Ivan stops you. "Where are you going, baby? Want to suck my dick?"'
  132. act 'Agree':
  133. *clr & cla
  134. BurgerQW['IvanQWBlackmail'] += 1
  135. minut += 5
  136. gs 'stat'
  137. '<center><img <<$set_imgh>> src="images/locations/city/shared/car.jpg"></center>'
  138. 'Ivan takes you to his car standing in the alley. He gets behind the wheel and you sit next to him. Ivan starts the car and drives you to the city industrial region. "Don''t forget baby. As long as you continue to serve me you have a job and prospects, but if you piss me off, I will take everything from you." As soon as you come to a new building, Ivan parks his car in a free space. You get out and go with Ivan to a staircase. The lift takes you up to Ivan''s apartment and he opens the door for you. Without hesitation Ivan takes you by the hand and leads you to his bedroom. He sits down on the bed and takes out a camera. Ivan gets his dick out of his pants and says, "Now suck it baby. And give it your all, I don''t want the video to be bad."'
  139. act 'Suck':
  140. *clr & cla
  141. BurgerQW['IvanQWBJFilmed'] += 1
  142. gs 'arousal', 'bj', 5, 'sub'
  143. gs 'stat'
  144. '<center><img <<$set_imgh>> src="images/characters/city/ivan/sex/ivanbjfilm.jpg"></center>'
  145. 'You get down on your knees in front of Ivan and clasp his member with your <<$liptalk3>>. Ivan films you using his camera to get a closeup of you sucking his cock. After a while he lies you down on his couch and sits on your chest to make sure his cock is right in front of your face.'
  146. act 'Suck':
  147. *clr & cla
  148. gs 'stat'
  149. '<center><img <<$set_imgh>> src="images/characters/city/ivan/sex/ivanbjfilm2.jpg"></center>'
  150. 'Sitting on top of you Ivan starts to fuck your mouth sticking is member in your throat as far as possible. You suck diligently trying not to choke as Ivan is filming you the whole time. Finally he takes his dick out of your mouth.'
  151. gs 'arousal', 'bj', 5, 'sub'
  152. gs 'stat'
  153. act 'Open your mouth':
  154. *clr & cla
  155. minut += 5
  156. facial += 1
  157. gs 'boyStat', 'A76'
  158. sexpartkno = 1
  159. spafinloc = 11
  160. gs 'cum_manage'
  161. gs 'stat'
  162. '<center><img <<$set_imgh>> src="images/characters/city/ivan/sex/ivanbjfilm3.jpg"></center>'
  163. 'Ivan begins to finish on your <<$liptalk3>>. Cum drips from your lips on your chin and chest. Ivan finally turns the camera off and puts it away in a drawer. "Not bad. You did what you were required. Wash up and then get out."'
  164. gs 'arousal', 'end'
  165. gs 'stat'
  166. act 'Leave':cumspclnt = 12 & gs 'cum_cleanup' & gt 'city_industrial'
  167. end
  168. end
  169. end
  170. gs 'willpower', 'bj', 'resist', 'medium'
  171. if will_cost <= pcs_willpwr:
  172. act 'Refuse (<<will_cost>> Willpower)':
  173. *clr & cla
  174. gs 'willpower', 'pay', 'resist'
  175. gs 'stat'
  176. gt 'BurgerTip', 'work4'
  177. end
  178. else
  179. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  180. end
  181. end
  182. gs 'willpower', 'bj', 'resist', 'medium'
  183. if will_cost <= pcs_willpwr:
  184. act 'Refuse (<<will_cost>> Willpower)':
  185. *clr & cla
  186. gs 'willpower', 'pay', 'resist'
  187. gs 'stat'
  188. gt 'BurgerTip', 'work4'
  189. end
  190. else
  191. act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  192. end
  193. end
  194. exit
  195. end
  196. gt 'burger', 'start'
  197. end
  198. if $ARGS[0] = 'work3':
  199. *clr & cla
  200. BurgerQW['WorkShift'] = 2
  201. minut += 30
  202. minut += 60 * 4
  203. gs 'stat'
  204. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/diner/work.jpg"></center>'
  205. 'You sit down and start preparing the contract on the computer.'
  206. gs 'BurgerTip', 'work'
  207. end
  208. --- burgerWork ---------------------------------