lakecafe 9.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309
  1. # lakecafe
  2. if $ARGS[0] = 'main':
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. cla
  6. *clr
  7. barrnd = rand(1, 3)
  8. gs 'stat'
  9. fcolor = rgb(0, 0, 0)
  10. bcolor = rgb(255, 255, 255)
  11. '<center><img src="images/LakeCafe/LakeCafe.jpg"></center>'
  12. 'Naiobyknovenneyshaya barbecue, of which there are many in the vast country.'
  13. 'The cost of lunch - 75 <b>₽</b>'
  14. 'Opening hours cafe - 14:00 to 04:00'
  15. *nl
  16. if hour >= 14 or hour < 4:
  17. if barmenshameet = 0:
  18. if barrnd = 1:'Over the bar stands smiling <a href="exec:gt ''lakecafe'', ''barmensha''">barmaid</a> and polishes glasses'
  19. if barrnd = 2:'Over the bar stands smiling <a href="exec:gt ''lakecafe'', ''barmensha''">barmaid</a> and wipes the table'
  20. if barrnd = 3:'Over the bar stands smiling <a href="exec:gt ''lakecafe'', ''barmensha''">barmaid</a> and something mixes'
  21. elseif barmenshameet = 1:
  22. if barrnd = 1:'Over the bar stands <a href="exec:gt ''lakecafe'', ''barmensha''">Eugene</a> and polishes glasses'
  23. if barrnd = 2:'Over the bar stands <a href="exec:gt ''lakecafe'', ''barmensha''">Eugene</a> table and rubs'
  24. if barrnd = 3:'Over the bar stands <a href="exec:gt ''lakecafe'', ''barmensha''">Eugene</a> and something mixes'
  25. end
  26. if week = 1 and hour = 22:
  27. LCWorkRand = rand(1,6)
  28. if LCWorkRand = 1:
  29. randguycafe = rand(3, 6)
  30. if LCwork = 0:'One of the tables sits a group of men and drinks, talking loudly and laughing.'
  31. if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start1''"><<randguycafe>> men</a> and drinks, talking loudly and laughing.'
  32. elseif LCWorkRand = 2:
  33. if LCwork = 0:'One of the tables sits an older man and eating barbecue.'
  34. if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start2''">an older man</a> and eating barbecue.'
  35. elseif LCWorkRand = 3:
  36. if LCwork = 0:'One of the tables sit two men and a drink.'
  37. if LCwork = 1:'One of the tables sit <a href="exec:gt ''LCwork'', ''start3''">two men</a> and drink.'
  38. elseif LCWorkRand = 4:
  39. if LCwork = 0:'One of the tables sit a guy with a girl and talk about something.'
  40. if LCwork = 1:'One of the tables sit <a href="exec:gt ''LCwork'', ''start4''">boy and girl</a> and talk about something.'
  41. elseif LCWorkRand = 5:
  42. if LCwork = 0:'One of the tables sits a girl, and dining.'
  43. if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start5''">girl</a>, and dining.'
  44. elseif LCWorkRand = 6:
  45. if LCwork = 0:'One of the tables sits a fat man and talking on the phone.'
  46. if LCwork = 1:'One of the tables sitting <a href="exec:gt ''LCwork'', ''start6''">fat man</a> and talking on the phone.'
  47. end
  48. end
  49. if hour => 23:'For a small table, in a corner of the room sat a few <a href="exec:GT ''lakecafe'',''bandits''">Men</a> questionable appearance'
  50. '- <a href="exec:gt ''laketoilet'', ''main''">Toilet</a>'
  51. if money >= 75:
  52. act 'Eat (75 <b>₽</b>)':
  53. money -= 75
  54. gs 'food', 'm_meal'
  55. end
  56. end
  57. end
  58. if LCwork2 >= 1 and LCwork2day ! daystart and hour = 18:
  59. act 'Help in the kitchen':gt 'LCwork', 'Kitchen'
  60. end
  61. act 'Leave':minut += 2 & gt 'nord'
  62. end
  63. if $ARGS[0] = 'barmensha':
  64. cls
  65. gs 'stat'
  66. '<center><B><font color=maroon>Barmaid Eugene</font></B></center>'
  67. '<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
  68. if JenyaLC<20:'You have a bad relationship with Eugene.'
  69. if JenyaLC>=20 and JenyaLC<40:'You have cold relations with Eugene.'
  70. if JenyaLC>=40 and JenyaLC<60:'You have a normal relationship with Eugene.'
  71. if JenyaLC>=60 and JenyaLC<80:'You have a good relationship with Eugene.'
  72. if JenyaLC>=80:'You have an excellent relationship with Eugene.'
  73. ''
  74. if barmenshameet = 0:
  75. 'The bartender looked at your eyes and, with a smile, asked:'
  76. '-Would that something?'
  77. elseif barmenshameet = 1:
  78. 'Eugene smiled, when you come to it'
  79. 'Hi! - She said with a smile'
  80. end
  81. if hour >= 14 or hour < 4:
  82. if barmenshameet = 0:
  83. act 'Chat':
  84. cla
  85. *clr
  86. barmenshameet = 1
  87. JenyaLC = 10
  88. minut += 30
  89. gs 'stat'
  90. '<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
  91. 'You chatted with bartender. During the conversation, you found out that her name is Eugene and it works here with his girlfriend, Angela, in which a cook on the barbecue.'
  92. act '...':gt 'lakecafe', 'barmensha'
  93. end
  94. end
  95. if barmenshameet = 1:
  96. act 'Chat':
  97. cla
  98. *clr
  99. if JenyaLC < 60:JenyaLC += 3
  100. minut += 30
  101. gs 'stat'
  102. '<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
  103. 'You talk about the affairs of Eugene, work, life and all sorts of trivia.'
  104. act '...':gt 'lakecafe', 'barmensha'
  105. end
  106. end
  107. if JenyaLC >= 60 and horny > 50:
  108. act 'Flirt':
  109. cla
  110. *clr
  111. minut += 10
  112. gs 'stat'
  113. '<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
  114. 'You chat with Eugene, making it ambiguous hints. Eugene seems to understand you and invites you to go for it. You agree to abide with her to the kitchen.'
  115. act '...':
  116. if JenyaLCfirst = 0:gt 'LCporn', 'firsttime'
  117. if JenyaLCfirst = 1:gt 'LCporn', 'sex'
  118. end
  119. end
  120. end
  121. if JenyaLC >= 35:
  122. act 'Ask about work':
  123. cla
  124. *clr
  125. '<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
  126. if LCworkwork2 < 1:
  127. 'You ask about the work of Eugene. She tells you that her sister needed help in the kitchen, come in 18 hours you need to work half an hour, during which you will be paid 175 <b>₽</b>.'
  128. LCworkwork2 = 1
  129. LCwork2 = 1
  130. act '...':
  131. minut += 4
  132. gt 'lakecafe', 'barmensha'
  133. end
  134. else
  135. 'You ask about the work of Eugene. It reminds you that her sister needed help in the kitchen, come in 18 hours you need to work half an hour, get paid 175 <b>₽</b>.'
  136. act '...':
  137. minut += 4
  138. gt 'lakecafe', 'barmensha'
  139. end
  140. end
  141. end
  142. end
  143. if JenyaLC >= 80:
  144. act 'Ask about the "special" work':
  145. cla
  146. *clr
  147. '<center><img src="images/LakeCafe/LakeBarmensha.jpg"></center>'
  148. if LCworkwork = 0:
  149. 'You ask Eugene about the "special" work. It tells you that on Monday, at 22 c''clock, in the cafe visitors who need quality "service." Pay from 500 to 2, 000 <b>₽</b>.'
  150. act '...':
  151. LCworkwork = 1
  152. LCwork = 1
  153. minut += 4
  154. gt 'lakecafe', 'barmensha'
  155. end
  156. elseif LCworkwork = 1:
  157. 'You ask about the work of Eugene. It reminds you of conditions:on Mondays, at 22 c''clock, you will need to "serve" certain visitors. Paid for it from 500 to 2000 <b>₽</b>.'
  158. act '...':
  159. minut += 3
  160. gt 'lakecafe', 'barmensha'
  161. end
  162. end
  163. end
  164. end
  165. end
  166. act 'Move away':gt 'lakecafe', 'main'
  167. end
  168. if $ARGS[0] = 'bandits':
  169. cls
  170. gs'stat'
  171. '<center><B><font color=maroon>Mob</font></B></center>'
  172. '<center><img src="images/LakeCafe/bandits.jpg"></center>'
  173. 'Men, clearly not similar to regular visitors. Their faces clearly give them "profession", they - mob.'
  174. ''
  175. if workDolg > 0:
  176. '- Shallow, you know, that sticks us <B><<workDolg>></B> <b>₽</b>?'
  177. else
  178. '- Che untill, EPT?'
  179. end
  180. act '<B>Move away</B>':gt'lakecafe', 'main'
  181. act 'Ask to borrow money':
  182. intinp = input ("How much money you want to borrow?")
  183. if intinp <= 0:
  184. '- You will need to loot or you decided povyebyvatsya?'
  185. elseif intinp > 2000000:
  186. '- Not mnogova-then, and?'
  187. elseif intinp > 0 and intinp <= 2000000:
  188. cla
  189. money += intinp
  190. workDolg += intinp + (intinp/100)*20
  191. workDolgDay = 7
  192. '- Shallow, you <<workDolgDay>> days, to return <<intinp>> <b>₽</b>, plus interest <<(intinp/100)*20>>.'
  193. act '<B>Move away</B>':gt'lakecafe', 'main'
  194. end
  195. end
  196. if workDolg > 0:
  197. cla
  198. act '<B>Move away</B>':gt'lakecafe', 'main'
  199. act 'I will give everything, I swear':
  200. '- I will give everything, I swear! - you say.'
  201. '- Will you give, you give. Where are you getting around? You left <<workDolgDay>> days, do not forget.'
  202. end
  203. end
  204. if workDolg > 0 and money >= workDolg:
  205. act 'Give duty':
  206. cla
  207. minut += 5
  208. workDisk = 0
  209. money -= workDolg
  210. workDolg = 0
  211. gs'stat'
  212. 'You gave the money owed.'
  213. act '<B>Move away</B>':gt'lakecafe', 'main'
  214. end
  215. end
  216. if workDolgDay <= 0 and workDolg > 0:
  217. cls
  218. gs'stat'
  219. gs 'outdoors'
  220. workDisk = 0
  221. '<center><img src="images/sauna/bug.jpg"></center>'
  222. 'To you we approached by two bull who you notice guns. They look at you with indifference. "It`s time to give debt."'
  223. if money >= workDolg:
  224. money -= workDolg
  225. workDolg = 0
  226. 'You gave money Bugay, they counted them, and departed.'
  227. act 'Escape':gt'lakecafe', 'main'
  228. exit
  229. else
  230. if money+stolmoney+karta >= workDolg:
  231. money += stolmoney+karta
  232. stolmoney = 0
  233. karta = 0
  234. money -= workDolg
  235. workDolg = 0
  236. 'When afford such sums have not appeared and the Bug went with you to the apartment. You have to pay them, and they left.'
  237. act 'Escape':gt'korr'
  238. exit
  239. else
  240. money += stolmoney+karta
  241. stolmoney = 0
  242. karta = 0
  243. workDolg -= money
  244. money = 0
  245. workDolg += 10000
  246. 'The money to cover a debt you do not. The big man dragged you into your apartment and began to search.'
  247. 'Brutes took everything that you had and said,. In short, with you for a long time <<workDolg>>. The debt grows by another 10 pcs, and since you can not pay off, we`ll help you. Brutes have dragged into a car and thrown into the back seat. The car moved and you went somewhere.'
  248. act 'Get out of the car':
  249. cls
  250. minut += 30
  251. gs'stat'
  252. 'You`ve come to the sauna. Bandits have been dragged into what that room and started to explain. "You will live here and work, until not pay off your debts. All clear? Or try to escape the buzz, all, we`ll put a bullet in the head off and bury you in the woods, truncated?"'
  253. 'You nodded fearfully, realizing that they were not kidding.'
  254. act 'Look around':gt'saunaroom'
  255. end
  256. end
  257. end
  258. exit
  259. end
  260. end
  261. --- lakecafe ---------------------------------