gaptek 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416
  1. # gaptek
  2. if $ARGS[0] = 'start':
  3. if hour >= 8 and hour <= 20:
  4. cla
  5. clr
  6. *clr
  7. minut += 5
  8. gs 'stat'
  9. gs 'time'
  10. '<center><B><font color="maroon">Drugstore</font></B></center>'
  11. '<center><img src="images/etogame/aptek.jpg"></center>'
  12. 'Condoms - 100 rubles'
  13. 'Pregnancy test - 200 rubles'
  14. if StoryLine > 0:'Lubricant - 300 rubles'
  15. 'Birth control pills - 500 rubles'
  16. 'Medicine - 500 rubles'
  17. 'Vitamins - 500 rubles'
  18. if klisma = 0:'Enema - 500 rubles'
  19. 'Ointment for corns - 600 rubles'
  20. 'Moisturizing Lip Balm - 1000 rubles'
  21. 'Fat burners - 1500 rubles'
  22. if KandidNapr = 1:'Cure pills for yeast infection - 1,500 rubles'
  23. if StoryLine = 1:'Behind the counter, as always, sits aunt Luda. "Hi <<$name>>. How are you?"'
  24. if motherQW >= 2:
  25. act 'garden':
  26. cla
  27. cls
  28. gaogorodrand = rand(1, 20)
  29. gs 'stat'
  30. '<center><b><font color="maroon">Pharmacy</font></b></center>'
  31. '<center><img src="images/pic/aptek.jpg"></center>'
  32. if motherQW = 2 and gaogorod + gaogorodrand < 40:
  33. if gaptekfirst = 0:
  34. gaptekfirst = 1
  35. minut += 5
  36. 'You are considering showcases c drugs and are considering how to talk to my aunt. She notices your confusion and releasing the last buyer contacts you.'
  37. '- <<$name>>, what are you doing here trash? It should be what?'
  38. '- Yes, as if looking for a vegetable garden.'
  39. '- Niece, you''re not wrong store? We''ve got a pharmacy, you know - it is to laugh.'
  40. '- Know aunts. Mom asked you to buy everything for the garden.'
  41. '- Mom, so ... Horticultural ...'
  42. 'She gravely examines you and brings the shop window with contraceptives.'
  43. '- Here we have all "for the garden." Choose.'
  44. else
  45. if gaprezikday ! day or gatabletkiday ! day:
  46. minut += rand(5,15)
  47. 'You wait until the last buyer leaves from the pharmacy, and then speak to my aunt.'
  48. '- Aunts, my mom would have it ... for a vegetable garden ...'
  49. '- Yes, I have understood, you go here, trash - she grins.'
  50. '- Thank you, aunty.'
  51. '- But not for that, and tell Natasha that she has time to finish with gardens.'
  52. elseif gaprezikday = day or gatabletkiday = day:
  53. minut += rand(5, 15)
  54. 'You have decided to wait until my aunt is free, but every minute shoppers at the pharmacy became more and more. You just wasted your time.'
  55. end
  56. end
  57. elseif motherQW = 2 and (gaogorod + gaogorodrand >= 40):
  58. gt 'motherQW', 'motherQW_3'
  59. elseif motherQW >= 3 and galubri = 0:
  60. if gaprezikday ! day or gatabletkiday ! day:
  61. minut += rand(5, 15)
  62. oluuosegunrand = rand(1, 10)
  63. if oluuosegunrand = 10 and oluuosegunday ! day:
  64. gt 'motherQW', 'olu'
  65. elseif oluuosegunrand < 10 or oluuosegunday = day:
  66. 'You waited in line and approached the counter, nodding to the desired display case.'
  67. end
  68. elseif gaprezikday = day and gatabletkiday = day:
  69. minut += rand(5, 15)
  70. 'You waited in line and approached the counter, nodding to the desired display case. "All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
  71. end
  72. elseif motherQW >= 3 and galubri = 1:
  73. if gaprezikday ! day or gatabletkiday ! day or galubriday ! day:
  74. minut += rand(5, 15)
  75. oluuosegunrand=rand(1, 10)
  76. if oluuosegunrand = 10 and oluuosegunday ! day:
  77. gt 'motherQW', 'olu'
  78. elseif oluuosegunrand < 10 or oluuosegunday = day:
  79. 'You waited in line and approached the counter.'
  80. end
  81. elseif gaprezikday = day and gatabletkiday = day and galubriday = day:
  82. minut += rand(5, 15)
  83. 'You waited in line and approached the counter. "All sold out, light, - said my aunt. And with malice added almost in a whisper, - Have your ebaryam wait until tomorrow."'
  84. end
  85. end
  86. end
  87. end
  88. if money >= 100:
  89. if motherQW >= 2 and gaptekfirst = 1 and gaprezikday ! day:
  90. act 'Buy <b>condoms</b> (100 rubles) <<iif(prezik > 0, ''[left:<b>'' + prezik + ''</b>]'', '''')>>':
  91. cla
  92. *clr
  93. portion = input("How many packages you want to buy? (One package contains 5 condoms)")
  94. if portion <= 0:portion = 1
  95. if portion > 2 and motherQW < 3:portion = 2 & '"Then 2 packages until I have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
  96. if portion > 5 and motherQW >= 3:portion = 5 & '"<<$name>>, rublesber goods factory does not have time to deliver products."'
  97. if portion * 100 <= money:
  98. prezik += portion * 5
  99. minut += 5 + (portion / 5)
  100. money -= portion * 100
  101. gaprezikday = day
  102. '<center><img src="images/etogame/kassa.jpg"></center>'
  103. 'You bought condoms and paid the money to the cashier.'
  104. if motherQW < 3:gaogorod = gaogorod + portion
  105. else
  106. 'You do not have enough money.'
  107. end
  108. act 'Move away from the counter':gt 'gaptek', 'start'
  109. end
  110. elseif Storyline = 0:
  111. act 'Buy condoms (100 rubles) <<iif(prezik > 0, ''[left:<b>'' + prezik + ''</b>]'', '''')>>':
  112. cla
  113. *clr
  114. portion = input ("How many packages you want to buy? (One package contains 5 condoms)")
  115. if portion <= 0:portion = 1
  116. if portion * 100 <= money:
  117. prezik = prezik + portion * 5
  118. minut += 5 + (portion / 5)
  119. money -= portion * 100
  120. '<center><img src="images/etogame/kassa.jpg"></center>'
  121. 'You bought condoms and paid the money to the cashier.'
  122. else
  123. 'You do not have enough money.'
  124. end
  125. act 'Move away from the counter':gt 'gaptek', 'start'
  126. end
  127. end
  128. end
  129. if money >= 200:
  130. if motherQW >= 2 and gaptekfirst = 1:
  131. act 'Buy <b>pregnancy tests</b> (200 rubles) <<iif(pregtest > 0, ''[left:<b>'' + pregtest + ''</b>]'', '''')>>':
  132. cla
  133. *clr
  134. portion = input("How many packages you want to buy? (One package contains two testers)")
  135. if portion <= 0:portion = 1
  136. if portion * 200 <= money:
  137. pregtest += portion * 2
  138. minut += 5 + (portion / 5)
  139. money -= portion * 200
  140. '<center><img src="images/etogame/kassa.jpg"></center>'
  141. 'You bought pregnancy tests and paid the money to the cashier.'
  142. else
  143. 'You do not have enough money.'
  144. end
  145. act 'Move away from the counter':gt 'gaptek', 'start'
  146. end
  147. elseif Storyline = 0:
  148. act 'Buy <b>pregnancy tests</b> (200 rubles) <<iif(pregtest > 0, ''[left:<b>'' + pregtest + ''</b>]'', '''')>>':
  149. cla
  150. *clr
  151. portion = input("How many packages you want to buy? (One package contains two testers)")
  152. if portion <= 0:portion = 1
  153. if portion * 200 <= money:
  154. pregtest += portion * 2
  155. minut += 5 + (portion / 5)
  156. money -= portion * 200
  157. '<center><img src="images/etogame/kassa.jpg"></center>'
  158. 'You bought pregnancy tests and paid the money to the cashier.'
  159. else
  160. 'You do not have enough money.'
  161. end
  162. act 'Move away from the counter':gt 'gaptek', 'start'
  163. end
  164. end
  165. end
  166. if money >= 300:
  167. if galubri = 1 and motherQW >= 2 and gaptekfirst = 1 and galubriday ! day:
  168. act 'Buy <b>lubricant</b> (300 rubles) <<iif(lubri > 0, ''[left:<b>'' + lubri + ''</b>]'', '''')>>':
  169. cla
  170. *clr
  171. portion = input ("How many packages you want to buy? (One tube lasts for 5 uses)")
  172. if portion <= 0:portion = 1
  173. if portion > 10:portion = 10 & '"<<$nickname>>, I sell only 10 pieces, no longer brought, I`m_sorry."'
  174. if portion * 300 <= money:
  175. lubri += portion * 5
  176. minut += 5 + (portion / 5)
  177. money -= portion * 300
  178. galubriday = day
  179. '<center><img src="images/etogame/kassa.jpg"></center>'
  180. 'You bought some lubricant and paid the money to the cashier.'
  181. else
  182. 'You do not have enough money.'
  183. end
  184. act 'Move away from the counter':gt 'gaptek', 'start'
  185. end
  186. end
  187. if money >= 500:
  188. if gatabletkiday ! day:
  189. act 'Buy <b>birth control pills</b> (500 rubles) <<iif(tabletki > 0, ''[left:<b>'' + tabletki + ''</b>]'', '''')>>':
  190. portion = input ("How many packages you want to buy?")
  191. if portion < 0 or (portion > 1 and motherQW < 3):portion = 1 & '"First package I still have enough. It is better not to buy a lot at once, and then Aunt may become suspicious."'
  192. if portion * 500 <= money:
  193. tabletki += portion * 28
  194. minut += 5 + (portion / 5)
  195. money -= portion * 500
  196. gatabletkiday = day
  197. '<center><img src="images/etogame/kassa.jpg"></center>'
  198. 'You bought some lubricant and paid the money to the cashier.'
  199. else
  200. 'You do not have enough money.'
  201. end
  202. act 'Move away from the counter':gt 'gaptek', 'start'
  203. elseif StoryLine = 0:
  204. act 'Buy <b>birth control pills</b> (500 rubles) <<iif(tabletki > 0, ''[left:<b>'' + tabletki + ''</b>]'', '''')>>':
  205. portion = input ("How many packages you want to buy?")
  206. if portion < 0:portion = 1
  207. if portion * 500 <= money:
  208. tabletki += portion * 28
  209. minut += 5 + (portion / 5)
  210. money -= portion * 500
  211. '<center><img src="images/etogame/kassa.jpg"></center>'
  212. 'You bought some lubricant and paid the money to the cashier.'
  213. else
  214. 'You do not have enough money.'
  215. end
  216. act 'Move away from the counter':gt 'gaptek', 'start'
  217. end
  218. end
  219. if klisma = 0 and motherQW >= 2 and gaptekfirst = 1:
  220. act 'Buy <b>enema</b> (500 rubles)':
  221. cla
  222. *clr
  223. klisma = 1
  224. minut += 5
  225. money -= 500
  226. '<center><img src="images/etogame/kassa.jpg"></center>'
  227. 'You bought an enema and paid the money to the cashier.'
  228. act 'Move away from the counter':gt 'gaptek', 'start'
  229. end
  230. elseif klisma = 0 and StoryLine = 0:
  231. act 'Buy <b>enema</b> (500 rubles)':
  232. cla
  233. *clr
  234. klisma = 1
  235. minut += 5
  236. money -= 500
  237. '<center><img src="images/etogame/kassa.jpg"></center>'
  238. 'You bought an enema and paid the money to the cashier.'
  239. act 'Move away from the counter':gt 'gaptek', 'start'
  240. end
  241. end
  242. act 'Buy <b>medicine</b> (500 rubles) <<iif(lekarstvo > 0, ''[left:<b>'' + lekarstvo + ''</b>]'', '''')>>':
  243. cla
  244. *clr
  245. portion = input("How many packages you want to buy? (One package contains 10 pills)")
  246. if portion <= 0:portion = 1
  247. if portion * 500 <= money:
  248. money -= portion * 500
  249. minut += 5 + (portion / 5)
  250. lekarstvo += portion * 10
  251. '<center><img src="images/etogame/kassa.jpg"></center>'
  252. 'You bought drugs and paid the money to the cashier.'
  253. else
  254. 'You do not have enough money.'
  255. end
  256. act 'Move away from the counter':gt 'aptek', 'start'
  257. end
  258. act 'Buy <b>vitamins</b> (500 rubles) <<iif(vitamin > 0, ''[left:<b>'' + vitamin + ''</b>]'', '''')>>':
  259. cla
  260. *clr
  261. portion = input("How many packages you want to buy? (One package contains 20 pills)")
  262. if portion <= 0:portion = 1
  263. if portion * 500 <= money:
  264. vitamin += portion * 20
  265. minut += 5 + (portion / 5)
  266. money -= portion * 500
  267. '<center><img src="images/etogame/kassa.jpg"></center>'
  268. 'You bought vitamins and paid the money to the cashier.'
  269. else
  270. 'You do not have enough money.'
  271. end
  272. act 'Move away from the counter':gt 'aptek', 'start'
  273. end
  274. end
  275. if money >= 600:
  276. act 'Buy <b>ointment for corns</b> (600 rubles) <<iif(mosolmaz > 0, ''[left:<b>'' + mosolmaz + ''</b>]'', '''')>>':
  277. cla
  278. *clr
  279. portion = input("How many packages you want to buy? (One package contains 10 treatments)")
  280. if portion <= 0:portion = 1
  281. if money >= portion * 600:
  282. money -= portion * 600
  283. minut += 5 + (portion / 5)
  284. mosolmaz += portion * 10
  285. '<center><img src="images/etogame/kassa.jpg"></center>'
  286. 'You bought some oinment packages and paid the money to the cashier.'
  287. else
  288. 'You do not have enough money.'
  289. end
  290. act 'Move away from the counter':gt 'aptek', 'start'
  291. end
  292. end
  293. if money >= 1000:
  294. act 'Buy <b>moisturizing lip balm</b> (1,000 rubles) <<iif(lipbalm > 0, ''[left:<b>'' + lipbalm + ''</b>]'', '''')>>':
  295. cla
  296. *clr
  297. portion = input("How many lip balms you want to buy? (One lip balm is good enough for 25 uses)")
  298. if portion <= 0:portion = 1
  299. if portion * 1000 <= money:
  300. lipbalm += portion * 25
  301. minut += 5 + (portion / 5)
  302. money -= portion * 1000
  303. '<center><img src="images/etogame/kassa.jpg"></center>'
  304. 'You bought some lip balm and paid the money to the cashier.'
  305. else
  306. 'You do not have enough money.'
  307. end
  308. act 'Move away from the counter':gt 'aptek', 'start'
  309. end
  310. end
  311. if money >= 1500:
  312. act '<b>Buy fat burners</b> (1,500 rubles) <<iif(fatdel > 0, ''[left:<b>'' + fatdel + ''</b>]'', '''')>>':
  313. cla
  314. *clr
  315. portion = input("How many fat burners you want to buy?")
  316. if portion <= 0:portion = 1
  317. if portion * 1500 <= money:
  318. fatdel += portion
  319. minut += 5 + (portion / 5)
  320. money -= portion * 1500
  321. '<center><img src="images/etogame/kassa.jpg"></center>'
  322. 'You bought some fat burning capsules and paid the money to the cashier.'
  323. else
  324. 'You do not have enough money.'
  325. end
  326. act 'Move away from the counter':gt 'aptek', 'start'
  327. end
  328. if KandidNapr = 1:
  329. act 'Buy cure pills for yeast infection (1,500 rubles)':
  330. cla
  331. *clr
  332. minut += 10
  333. money -= 1500
  334. Kandidoz = 0
  335. '<center><img src="images/pic/kassa.jpg"></center>'
  336. 'You bought tablets and paid the money to the cashier.'
  337. 'Immediately about cash you swallow the tablet.'
  338. act 'Move away from the counter':gt 'aptek', 'start'
  339. end
  340. end
  341. end
  342. act 'Leave':gt 'gorodok'
  343. elseif hour < 8 or hour > 20:
  344. cla
  345. *clr
  346. '<center><b><font color=maroon>Pharmacy</font></b></center>'
  347. '<center><img src="images\etogame\aptek.jpg" ></center>'
  348. 'Pharmacy is closed'
  349. end
  350. act 'Leave':gt 'gorodok'
  351. end
  352. --- gaptek ---------------------------------