1
1

318_Komp 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912
  1. # Komp
  2. <<<<<<< 318_Komp
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 318_Komp
  7. cla
  8. clr
  9. <<<<<<< 318_Komp
  10. gs 'stat'
  11. set elektro += 5
  12. '<center><img src="images\pics\komp.jpg"></center>'
  13. 'With the computer happily welcomes you start window.'
  14. act '15 minutes play patience': gt 'Komp','pasians'
  15. if GameCD > 0: act 'Play Disopl': gt 'KGDstart'
  16. if GameCD2 > 0: act 'Play Sunset Dead': gt 'KGZstart'
  17. if GameCD3 > 0: act 'Play Albido': gt 'FSstart'
  18. !act 'Sunset Review of the Dead': gt 'KGZstart'
  19. if internet > 0:
  20. set internet = internetM/60
  21. 'You´ve got <<internet>> hours of Internet'
  22. act 'Browser': gt 'Komp','brows'
  23. end
  24. if webCam > 0 and webcamday ! day: act 'Make self porno': gt 'selfPorno','start'
  25. if karta >= 10:
  26. 'You can pay online through your bank account. 1:00 Internet costs 10 rubles. On account of <<karta>>rubles.'
  27. act 'Pay online bank account':
  28. cla
  29. intinp = input ("How much money to put on the internet? (h = 10 rubles).")
  30. if intinp <= 0 or intinp * 10 > karta:
  31. 'Invalid amount.'
  32. end
  33. if intinp*10 <= karta:
  34. set inttime = intinp * 10
  35. set karta -= inttime
  36. set internetM += intinp * 60
  37. set internet = internetM/60
  38. 'You paid <<inttime>> hours of Internet, you now have <<internet>> hours of the Internet. Your account was removed <<intinp>> rubles.'
  39. end
  40. act 'Get out of the payment system': gt 'Komp','start'
  41. end
  42. end
  43. act 'Shut down the computer':
  44. cla
  45. gt 'Komp','fin'
  46. end
  47. =======
  48. gs'stat'
  49. set elektro = elektro + 5
  50. '<center><img src="pics/komp.jpg" ></center>'
  51. 'With the computer happily welcomes you to the starting place.'
  52. act 'play patience 15 min':gt'Komp','pasians'
  53. if GameCD>0:act 'Play Disopl':gt 'KGDstart'
  54. if GameCD2>0:act 'Play Sunset Dead':gt 'KGZstart'
  55. if GameCD3>0:act 'Play Albido':gt 'FSstart'
  56. !act 'Test Sunset Dead':gt 'KGZstart'
  57. if internet > 0:
  58. set internet = internetM/60
  59. 'You have left <<internet>> Internet hours'
  60. act 'browser':gt'Komp','brows'
  61. end
  62. if karta >= 10:
  63. 'You can pay online through your bank account. 1 hour internet costs 10 rubles. In the bank <<karta>> rubles.'
  64. act 'Pay online bank account':
  65. cla
  66. intinp = input ("How much money to put on the Internet? (h = 10 RUB.)")
  67. if intinp <= 0 or intinp*10 > karta:
  68. 'Not correct operation.'
  69. end
  70. if intinp*10 <= karta:
  71. set inttime = intinp*10
  72. set karta = karta - inttime
  73. set internetM = internetM + intinp*60
  74. set internet = internetM/60
  75. 'you paid <<inttime>> Internet hours, now you <<internet>> Internet hours. With your account removed <<intinp>> rubles.'
  76. end
  77. act 'Logout payment':gt'Komp','start'
  78. end
  79. end
  80. act 'Shut down the computer':
  81. cla
  82. gt'Komp','fin'
  83. end
  84. >>>>>>> 318_Komp
  85. end
  86. <<<<<<< 318_Komp
  87. if $ARGS[0] = 'brows':
  88. =======
  89. if $ARGS[0]='brows':
  90. >>>>>>> 318_Komp
  91. cla
  92. *clr
  93. clr
  94. <<<<<<< 318_Komp
  95. gs 'stat'
  96. '<center><img src="images\pics\komp.jpg"></center>'
  97. 'You entered into a search engine.'
  98. act 'Apartment repair site (0:15)': gt 'Komp','remont'
  99. if housr = 1 and husband = 0: act 'Rent your apartment': gt 'Komp','sale'
  100. act 'Porno (0:15)': gt 'Komp','porno'
  101. act 'Singles (0:15)': gt 'Komp','znak'
  102. if hour < 20 and hour > 7: act 'Jobs.su': gt 'Komp','rabota'
  103. act 'Cable TV services (0:15)': gt 'Komp','kabtv'
  104. act 'Online game': gt 'KGstart'
  105. if shantfoto > 0: act 'Search photos heroine in "In the ass."': gt 'Komp','foto'
  106. if gor_dorm = 7: act 'Letter from Evgenia': gt 'etoexhib','pos91'
  107. act 'Exit the browser': gt 'Komp','start'
  108. =======
  109. gs'stat'
  110. '<center><img src="pics/komp.jpg" ></center>'
  111. 'You are logged in to a search engine.'
  112. act 'Site apartment repair (15 min)':gt'Komp','remont'
  113. if housr = 1 and husband=0:act 'Free Classifieds Ads':gt'Komp','sale'
  114. act 'porn site (15 min)':gt'Komp','porno'
  115. act 'Online Dating (15 min)':gt'Komp','znak'
  116. if hour<20 and hour>7:act 'part.su':gt'Komp','rabota'
  117. act 'Cable TV services (15 min)':gt'Komp','kabtv'
  118. act 'online game':gt'KGstart'
  119. if shantfoto>0:act'Search heroine in photo "In the ass".':gt'Komp','foto'
  120. act 'Exit the browser':gt'Komp','start'
  121. >>>>>>> 318_Komp
  122. end
  123. <<<<<<< 318_Komp
  124. if $ARGS[0] = 'sale':
  125. =======
  126. if $ARGS[0]='sale':
  127. >>>>>>> 318_Komp
  128. cla
  129. *clr
  130. <<<<<<< 318_Komp
  131. set minut += 2
  132. clr
  133. gs 'stat'
  134. '<center><img src="images\pics\komp.jpg"></center>'
  135. 'You are logged in to the site for free ads.'
  136. if obkvsdam = 0 and housrA = 1:
  137. act 'Rent out Residental apartment': set obkvsdam['Street'] = 1 & CompCheckedResponses = 1 & gt 'Komp','sale'
  138. act 'Rent out Downtown apartment': set obkvsdam['Down'] = 1 & CompCheckedResponses = 1 & gt 'Komp','sale'
  139. act 'Rent out Northern apartment': set obkvsdam['Nord'] = 1 & CompCheckedResponses = 1 & gt 'Komp','sale'
  140. end
  141. if obkvsdam['Street']>0 or obkvsdam['Down']>0 or obkvsdam['Nord']>0:
  142. act 'Check responses to your ad':
  143. cla
  144. CompCheckedResponses = 1
  145. if obkvsdam['Street'] = 1: 'No one has responded to your residental apartment ad'
  146. if obkvsdam['Down'] = 1: 'No one has responded to your downtown apartment ad'
  147. if obkvsdam['Nord'] = 1: 'No one has responded to your northern apartment ad'
  148. if obkvsdam['Street']>1 or obkvsdam['Down']>1 or obkvsdam['Nord']>1:
  149. if obkvsdam['Street']>1:
  150. set predsumm= (obkvsdam['Street'] * 1000) + 5000
  151. 'Want to stay in your residental apartment for a month (<<predsumm>> rub).'
  152. act 'Rent (Residental)':
  153. set sdaday['Street'] = day
  154. set sdamonth['Street'] = month + 1
  155. set houserent['Street'] = 1
  156. set money += predsumm
  157. gt 'Komp','sale'
  158. end
  159. end
  160. if obkvsdam['Down']>1:
  161. set predsumm= (obkvsdam['Down'] * 1000) + 5000
  162. 'Want to stay in your downtown apartment for a month (<<predsumm>> rub).'
  163. act 'Rent (Downtown)':
  164. set sdaday['Down'] = day
  165. set sdamonth['Down'] = month + 1
  166. set houserent['Down'] = 1
  167. set money += predsumm
  168. gt 'Komp','sale'
  169. end
  170. end
  171. if obkvsdam['Nord']>1:
  172. set predsumm= (obkvsdam['Nord'] * 1000) + 5000
  173. 'Want to stay in your northern apartment for a month (<<predsumm>> rub).'
  174. act 'Rent (Northern)':
  175. set sdaday['Nord'] = day
  176. set sdamonth['Nord'] = month + 1
  177. set houserent['Nord'] = 1
  178. set money += predsumm
  179. gt 'Komp','sale'
  180. end
  181. end
  182. end
  183. act 'Exit': gt 'Komp','start'
  184. end
  185. end
  186. act 'Exit': gt 'Komp','start'
  187. =======
  188. set minut+=2
  189. clr
  190. gs'stat'
  191. '<center><img src="pics/komp.jpg" ></center>'
  192. 'You are logged in to the site free of ads.'
  193. if obkvsdam=0 and housrA = 1:
  194. act'Post your Apartments for rent':set obkvsdam=1&gt'Komp','sale'
  195. end
  196. if obkvsdam>0:
  197. act'Check your responses to the announcement of the date of apartments':
  198. cla
  199. if obkvsdam=1:'No one responded to your ad'
  200. if obkvsdam>1:
  201. if obkvsdam=2:set predsumm=7000
  202. if obkvsdam=2:set predsumm=8000
  203. if obkvsdam=2:set predsumm=9000
  204. if obkvsdam=2:set predsumm=10000
  205. 'Want to stay in your apartment for a month <<predsumm>> RUB.'
  206. act 'Cgive':
  207. set sdaday=day
  208. set sdamonth=month+1
  209. set housr=0
  210. set money+=predsumm
  211. gt'Komp','start'
  212. end
  213. end
  214. act 'Go_Out':gt'Komp','start'
  215. end
  216. end
  217. act 'Go_Out':gt'Komp','start'
  218. >>>>>>> 318_Komp
  219. end
  220. <<<<<<< 318_Komp
  221. if $ARGS[0] = 'remont':
  222. =======
  223. if $ARGS[0]='remont':
  224. >>>>>>> 318_Komp
  225. cla
  226. *clr
  227. <<<<<<< 318_Komp
  228. set minut += 15
  229. set internetM -= 60
  230. set elektro += 3
  231. clr
  232. gs 'stat'
  233. '<center><img src="images\pics\komp.jpg"></center>'
  234. 'You are logged in apartment repairs.'
  235. if housr = 1:
  236. if rembedr = 0:
  237. act '50 refurbished bedrooms sput':
  238. if money >= 50000:
  239. =======
  240. set minut = minut + 15
  241. set internetM = internetM - 60
  242. set elektro = elektro + 3
  243. clr
  244. gs'stat'
  245. '<center><img src="pics/komp.jpg" ></center>'
  246. 'You are logged in apartment repair.'
  247. if housr = 1:
  248. if rembedr = 0:
  249. act 'refurbished bedrooms 50 sput':
  250. if money >= 50000:
  251. >>>>>>> 318_Komp
  252. cla
  253. set rembedr = 1
  254. <<<<<<< 318_Komp
  255. set money -= 50000
  256. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  257. else
  258. cla
  259. 'Unfortunately, you will not have enough money.'
  260. end
  261. act 'Exit': gt 'Komp','remont'
  262. end
  263. end
  264. if remsitr = 0:
  265. act 'Renovate hall 50,000 rubles':
  266. if money >= 50000:
  267. =======
  268. set money = money - 50000
  269. 'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
  270. else
  271. cla
  272. 'Unfortunately, You do not have enough money.'
  273. end
  274. act 'Go_Out':gt'Komp','remont'
  275. end
  276. end
  277. if remsitr = 0:
  278. act 'repair Facilities 50 sput':
  279. if money >= 50000:
  280. >>>>>>> 318_Komp
  281. cla
  282. set remsitr = 1
  283. <<<<<<< 318_Komp
  284. set money -= 50000
  285. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  286. else
  287. cla
  288. 'Unfortunately, you will not have enough money.'
  289. end
  290. act 'Exit': gt 'Komp','remont'
  291. end
  292. end
  293. if remkorr = 0:
  294. act 'Repair corridor 50,000 rubles':
  295. if money >= 50000:
  296. =======
  297. set money = money - 50000
  298. 'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
  299. else
  300. cla
  301. 'Unfortunately, You do not have enough money.'
  302. end
  303. act 'Go_Out':gt'Komp','remont'
  304. end
  305. end
  306. if remkorr = 0:
  307. act 'repair corridor 50 sput':
  308. if money >= 50000:
  309. >>>>>>> 318_Komp
  310. cla
  311. set remkorr = 1
  312. <<<<<<< 318_Komp
  313. set money -= 50000
  314. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  315. else
  316. cla
  317. 'Unfortunately, you will not have enough money.'
  318. end
  319. act 'Exit': gt 'Komp','remont'
  320. end
  321. end
  322. if remvanr = 0:
  323. act 'Renovate the bathroom 50,000 rubles':
  324. if money >= 50000:
  325. =======
  326. set money = money - 50000
  327. 'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
  328. else
  329. cla
  330. 'Unfortunately, You do not have enough money.'
  331. end
  332. act 'Go_Out':gt'Komp','remont'
  333. end
  334. end
  335. if remvanr = 0:
  336. act 'renovate the bathroom 50 sput':
  337. if money >= 50000:
  338. >>>>>>> 318_Komp
  339. cla
  340. set remvanr = 1
  341. <<<<<<< 318_Komp
  342. set money -= 50000
  343. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  344. else
  345. cla
  346. 'Unfortunately, you will not have enough money.'
  347. end
  348. act 'Exit': gt 'Komp','remont'
  349. end
  350. end
  351. if remkuhr = 0:
  352. act 'Renovate a kitchen 50,000 rubles':
  353. if money >= 50000:
  354. =======
  355. set money = money - 50000
  356. 'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
  357. else
  358. cla
  359. 'Unfortunately, You do not have enough money.'
  360. end
  361. act 'Go_Out':gt'Komp','remont'
  362. end
  363. end
  364. if remkuhr = 0:
  365. act 'remodeled kitchen 50 sput':
  366. if money >= 50000:
  367. >>>>>>> 318_Komp
  368. cla
  369. set remkuhr = 1
  370. <<<<<<< 318_Komp
  371. set money -= 50000
  372. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  373. else
  374. cla
  375. 'Unfortunately, you will not have enough money.'
  376. end
  377. act 'Exit': gt 'Komp','remont'
  378. end
  379. end
  380. end
  381. act 'Exit': gt 'Komp','start'
  382. =======
  383. set money = money - 50000
  384. 'You pay for the repairs and you did it the same, Ravshan and Dzhumshut simple wizards.'
  385. else
  386. cla
  387. 'Unfortunately, You do not have enough money.'
  388. end
  389. act 'Go_Out':gt'Komp','remont'
  390. end
  391. end
  392. end
  393. act 'Go_Out':gt'Komp','start'
  394. >>>>>>> 318_Komp
  395. end
  396. <<<<<<< 318_Komp
  397. if $ARGS[0] = 'porno':
  398. =======
  399. if $ARGS[0]='porno':
  400. >>>>>>> 318_Komp
  401. cla
  402. *clr
  403. <<<<<<< 318_Komp
  404. set minut += 15
  405. set internetM -= 60
  406. set manna += 5
  407. set elektro += 3
  408. set willpower += RAND(5,10)
  409. set manna += RAND(10,50)
  410. set horny += 5
  411. clr
  412. gs 'stat'
  413. '<center><img src="images\pics\komp.jpg"></center>'
  414. 'You went to a porn site.'
  415. $pornomastr = {
  416. cls
  417. '<center><img src="images\pics\kompmas.jpg"></center>'
  418. set minut += 15
  419. sweat += 1
  420. set horny += RAND(10,25)
  421. if divanmastr = 0: divanmastr = 1 & set mastr += 1
  422. gs 'stat'
  423. 'You get comfortable in front of the computer with one hand and began to fondle her breasts, a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
  424. if horny >= 100: orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
  425. act 'Finish': divanmastr = 0 & gt 'Komp','porno'
  426. if horny >= 50: act 'Proceed': dynamic $pornomastr
  427. =======
  428. set minut = minut + 15
  429. set internetM = internetM - 60
  430. set manna = manna + 5
  431. set elektro = elektro + 3
  432. set willpower = willpower + RAND (5,10)
  433. set manna = manna + RAND (10,50)
  434. set horny = horny + 5
  435. clr
  436. gs'stat'
  437. '<center><img src="pics/komp.jpg" ></center>'
  438. 'You are logged in to the porn site.'
  439. $pornomastr={
  440. cls
  441. '<center><img src="pics/kompmas.jpg" ></center>'
  442. set minut = minut + 15
  443. sweat+=1
  444. set horny = horny + RAND(10,25)
  445. if divanmastr=0:divanmastr=1&set mastr = mastr + 1
  446. gs'stat'
  447. 'You get comfortable in front of a computer and started with one hand to fondle her breasts, finger of the other hand you started rubbing and stroking a small bump between his legs that respond to the touch of pleasant languor covering your entire body.'
  448. if horny>=100:orgasm+=1&horny=0&'Suddenly nice cramp brought your body and you covered powerful orgasm, from which you moan.'
  449. act 'End_Up':divanmastr=0&gt'Komp','porno'
  450. if horny>=50:act 'Resume':dynamic $pornomastr
  451. >>>>>>> 318_Komp
  452. }
  453. <<<<<<< 318_Komp
  454. act 'Watch porn on':
  455. cla
  456. '<center><img src="images\etogame\porno.jpg"></center>'
  457. gt 'Komp','porno'
  458. end
  459. if horny >= 50: act 'Masturbate (0:15)': dynamic $pornomastr
  460. act 'Exit': gt 'Komp','start'
  461. =======
  462. act 'Watch porn on':
  463. cla
  464. '<center><img src="pic/porno.jpg" ></center>'
  465. gt'Komp','porno'
  466. end
  467. if horny>=50:act 'masturbate 15 min':dynamic $pornomastr
  468. act 'Go_Out':gt'Komp','start'
  469. >>>>>>> 318_Komp
  470. end
  471. <<<<<<< 318_Komp
  472. if $ARGS[0] = 'pasians':
  473. =======
  474. if $ARGS[0]='pasians':
  475. >>>>>>> 318_Komp
  476. cla
  477. *clr
  478. <<<<<<< 318_Komp
  479. set minut += 15
  480. set manna += 5
  481. set elektro += 3
  482. set willpower += RAND(5,10)
  483. set manna += RAND(10,50)
  484. clr
  485. gs 'stat'
  486. '<center><img src="images\pics\komp.jpg"></center>'
  487. 'You entertained for an hour unfolding of solitaire on the computer.'
  488. act 'Lay another 15 minutes': gt 'Komp','pasians'
  489. act 'Close Solitaire': gt 'Komp','start'
  490. =======
  491. set minut = minut + 15
  492. set manna = manna + 5
  493. set elektro = elektro + 3
  494. set willpower = willpower + RAND (5,10)
  495. set manna = manna + RAND (10,50)
  496. clr
  497. gs'stat'
  498. '<center><img src="pics/komp.jpg" ></center>'
  499. 'You entertained for an hour unfolding of solitaire on the computer.'
  500. act 'lay out more 15 minutes':gt'Komp','pasians'
  501. act 'Close Solitaire':gt'Komp','start'
  502. >>>>>>> 318_Komp
  503. end
  504. <<<<<<< 318_Komp
  505. if $ARGS[0] = 'znak':
  506. =======
  507. if $ARGS[0]='znak':
  508. >>>>>>> 318_Komp
  509. cla
  510. *clr
  511. <<<<<<< 318_Komp
  512. set minut += 15
  513. set internetM -= 60
  514. set manna += 5
  515. set elektro += 3
  516. clr
  517. gs 'stat'
  518. '<center><img src="images\pics\komp.jpg"></center>'
  519. 'You are logged on to a dating site.'
  520. 'Selection of boys is only possible if there is no boyfriend.'
  521. if bfA <= 0:
  522. act 'To pick up a guy with a gentle disposition':
  523. cla
  524. gs 'boy'
  525. gs 'boyfrend','start'
  526. set stopboy = 0
  527. set harakBoyA = 0
  528. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  529. act 'Exit': gt 'Komp','start'
  530. end
  531. act 'To pick up a guy with a common character':
  532. cla
  533. gs 'boy'
  534. gs 'boyfrend','start'
  535. set stopboy = 0
  536. set harakBoyA = 1
  537. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  538. act 'Exit': gt 'Komp','start'
  539. end
  540. act 'To pick up a guy with a strong character':
  541. cla
  542. gs 'boy'
  543. gs 'boyfrend','start'
  544. set stopboy = 0
  545. set harakBoyA = 2
  546. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  547. act 'Exit': gt 'Komp','start'
  548. end
  549. end
  550. if gor_dorm = 8:
  551. act 'Pick suitors for Eugene':
  552. cla
  553. gor_dorm = 9
  554. 'You shoveled tens of questionnaires before selecting suitable candidates in all respects and sent letters inviting them to meet.'
  555. 'Now we have to wait her turn, something with them or not.'
  556. act 'Leave': gt 'Komp','start'
  557. end
  558. end
  559. =======
  560. set minut = minut + 15
  561. set internetM = internetM - 60
  562. set manna = manna + 5
  563. set elektro = elektro + 3
  564. clr
  565. gs'stat'
  566. '<center><img src="pics/komp.jpg" ></center>'
  567. 'You are logged in to a dating site.'
  568. 'Selection of guys only possible in the absence of boyfriend.'
  569. if bfA <= 0:
  570. act 'Pick up a guy with a sweet-tempered':
  571. cla
  572. gs'boy'
  573. gs'boyfrend','start'
  574. set stopboy = 0
  575. set harakBoyA = 0
  576. 'You wrote a guy named <<$boyA>>, talked to him and left him in the hope telefonchik that he will call you.'
  577. act 'Go_Out':gt'Komp','start'
  578. end
  579. act 'Pick up a guy with an ordinary character':
  580. cla
  581. gs'boy'
  582. gs'boyfrend','start'
  583. set stopboy = 0
  584. set harakBoyA = 1
  585. 'You wrote a guy named <<$boyA>>, talked to him and left him in the hope telefonchik that he will call you.'
  586. act 'Go_Out':gt'Komp','start'
  587. end
  588. act 'Pick up a guy with a strong character':
  589. cla
  590. gs'boy'
  591. gs'boyfrend','start'
  592. set stopboy = 0
  593. set harakBoyA = 2
  594. 'You wrote a guy named <<$boyA>>, talked to him and left him in the hope telefonchik that he will call you.'
  595. act 'Go_Out':gt'Komp','start'
  596. end
  597. end
  598. >>>>>>> 318_Komp
  599. <<<<<<< 318_Komp
  600. act 'Exit': gt 'Komp','start'
  601. =======
  602. act 'Go_Out':gt'Komp','start'
  603. >>>>>>> 318_Komp
  604. end
  605. <<<<<<< 318_Komp
  606. if $ARGS[0] = 'kabtv':
  607. =======
  608. if $ARGS[0]='kabtv':
  609. >>>>>>> 318_Komp
  610. cla
  611. *clr
  612. <<<<<<< 318_Komp
  613. set minut += 15
  614. set internetM -= 60
  615. set elektro += 3
  616. clr
  617. gs 'stat'
  618. '<center><img src="images\pics\komp.jpg"></center>'
  619. 'You are logged in to the website provider of cable TV.'
  620. if kabel = 1:
  621. 'Do you have a cable TV (subscription fee of 300 rubles per month lifted the 25th day of)'
  622. act 'Abandon cable TV':
  623. cla
  624. 'You have disconnected cable channels, paying the current month'
  625. =======
  626. set minut = minut + 15
  627. set internetM = internetM - 60
  628. set elektro = elektro + 3
  629. clr
  630. gs'stat'
  631. '<center><img src="pics/komp.jpg" ></center>'
  632. 'You are logged in to the website provider of cable TV.'
  633. if kabel = 1:
  634. 'You have already connected the cable TV (license fee 300 rubles a month removed 25-th of)'
  635. act 'Unsubscribe from cable TV':
  636. cla
  637. 'You have disconnected the cable channels, paid for the current month'
  638. >>>>>>> 318_Komp
  639. kabel = 1
  640. money = money - 300
  641. <<<<<<< 318_Komp
  642. gt 'Komp','kabtv'
  643. end
  644. end
  645. if kabel = 0 and TV = 1:
  646. 'You do not have a cable TV'
  647. act 'Connect cable TV':
  648. cla
  649. 'Unfortunately for viewing cable television requires a more modern TV'
  650. gt 'Komp','kabtv'
  651. end
  652. end
  653. if kabel = 0 and TV >= 2:
  654. 'You do not have a cable TV'
  655. act 'Connect Cable TV (300 rubles per month)':
  656. cla
  657. 'You hooked up cable TV services'
  658. kabel = 1
  659. gt 'Komp','kabtv'
  660. end
  661. end
  662. act 'Exit': gt 'Komp','start'
  663. =======
  664. gt'Komp','kabtv'
  665. end
  666. end
  667. if kabel = 0 and TV = 1:
  668. 'You do not have a cable TV'
  669. act 'Connect the cable TV':
  670. cla
  671. 'Unfortunately for watching cable television requires more modern TV'
  672. gt'Komp','kabtv'
  673. end
  674. end
  675. if kabel = 0 and TV >= 2:
  676. 'You do not have a cable TV'
  677. act 'Connect the cable TV (300 rubles per month)':
  678. cla
  679. 'You have connected the cable TV services'
  680. kabel = 1
  681. gt'Komp','kabtv'
  682. end
  683. end
  684. act 'Go_Out':gt'Komp','start'
  685. >>>>>>> 318_Komp
  686. end
  687. <<<<<<< 318_Komp
  688. if $ARGS[0] = 'foto':
  689. =======
  690. if $ARGS[0]='foto':
  691. >>>>>>> 318_Komp
  692. cla
  693. *clr
  694. <<<<<<< 318_Komp
  695. set internetM -= 60
  696. set elektro += 3
  697. gs 'stat'
  698. '<center><img src="images\pics\komp.jpg"></center>'
  699. 'You are logged in to the social network "in the ass."'
  700. if shantfoto > 0:
  701. act 'Search':
  702. cla
  703. set minut += 60
  704. set fotsearchrand = rand(0,10)
  705. if fotsearchrand <= 7:
  706. 'You did not find anyone, maybe better luck later.'
  707. act 'Finish': gt 'Komp','foto'
  708. end
  709. if fotsearchrand > 7:
  710. set shantfoto -= 1
  711. set gerofotorand = rand(0,100)
  712. 'You found the heroine a photo shoot'
  713. if gerofotorand > 30:
  714. 'Judging by the photos on her page this poor girl and take her with nothing.'
  715. act 'Finish': gt 'Komp','foto'
  716. end
  717. if gerofotorand >= 5 and gerofotorand <= 30:
  718. set shantsr += 1
  719. 'Judging by the photos on her page is non-existent girl from the middle classes. You send her photo and asked to be transferred to your account 5000.'
  720. act 'Finish': gt 'Komp','foto'
  721. end
  722. if gerofotorand < 5:
  723. set shantbog += 1
  724. 'Judging by the photos on her page is very secured lady. You send her photo and asked to be transferred to your account 30000.'
  725. act 'Finish': gt 'Komp','foto'
  726. end
  727. end
  728. end
  729. end
  730. act 'Browser': gt 'Komp','brows'
  731. =======
  732. set internetM = internetM - 60
  733. set elektro = elektro + 3
  734. gs'stat'
  735. '<center><img src="pics/komp.jpg" ></center>'
  736. 'You are logged into a social network "In the ass".'
  737. if shantfoto>0:
  738. act'Looking_For':
  739. cla
  740. set minut+=60
  741. set fotsearchrand=rand(0,10)
  742. if fotsearchrand<=7:
  743. 'You did not find anyone, can, better luck later.'
  744. act'End_Up':gt'Komp','foto'
  745. end
  746. if fotsearchrand>7:
  747. set shantfoto-=1
  748. set gerofotorand=rand(0,100)
  749. 'You `ve found a photo shoot heroine'
  750. if gerofotorand>30:
  751. 'Judging by the photos on her page.'
  752. act'End_Up':gt'Komp','foto'
  753. end
  754. if gerofotorand>=5 and gerofotorand<=30:
  755. set shantsr+=1
  756. 'Judging by the photos on her page. You send her photos and asked to be transferred 5000 your account.'
  757. act'End_Up':gt'Komp','foto'
  758. end
  759. if gerofotorand<5:
  760. set shantbog+=1
  761. 'Judging by the photos on her page. You send her photos and asked to be transferred 30000 your account.'
  762. act'End_Up':gt'Komp','foto'
  763. end
  764. end
  765. end
  766. end
  767. act 'browser':gt'Komp','brows'
  768. >>>>>>> 318_Komp
  769. end
  770. <<<<<<< 318_Komp
  771. if $ARGS[0] = 'rabota':
  772. =======
  773. if $ARGS[0]='rabota':
  774. >>>>>>> 318_Komp
  775. cla
  776. *clr
  777. <<<<<<< 318_Komp
  778. set minut += 60
  779. set internetM -= 60
  780. set komprabota = RAND(0,10)
  781. gs 'stat'
  782. '<center><img src="images\pics\komp.jpg"></center>'
  783. if komprabota = 0:
  784. 'You found an ad: "Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
  785. if vnesh < 30: 'But you are under this description does not fit'
  786. if vnesh >= 30:
  787. act 'Go at': gt 'qjob','var1'
  788. end
  789. if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
  790. act 'Finish': gt 'Komp','brows'
  791. end
  792. if komprabota = 1:
  793. 'You found an ad: "Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
  794. if vnesh < 30: 'But you are under this description does not fit'
  795. if vnesh >= 30:
  796. act 'Go at': gt 'qjob','var2'
  797. end
  798. if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
  799. act 'Finish': gt 'Komp','brows'
  800. end
  801. if komprabota > 1 and komprabota < 5:
  802. 'You found an ad: "The artist is required naturschitsa, simpotichnoy appearance, cash 1,000 rubles."'
  803. if vnesh < 15: 'But you are under this description does not fit'
  804. if vnesh >= 15:
  805. act 'Go at': gt 'qjob','var3'
  806. end
  807. if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
  808. act 'Finish': gt 'Komp','brows'
  809. end
  810. if komprabota > 4:
  811. 'You did not find anything suitable.'
  812. if hour < 20 and hour > 7: act 'Search more': gt 'Komp','rabota'
  813. act 'Finish': gt 'Komp','brows'
  814. end
  815. =======
  816. set minut+=60
  817. set internetM = internetM - 60
  818. set komprabota=RAND(0,10)
  819. gs'stat'
  820. '<center><img src="pics/komp.jpg" ></center>'
  821. if komprabota=0:
  822. 'You found an ad: "Wanted girl model looks to advertise underwear, Cash payment on filming zavershinii 2000 RUB."'
  823. if vnesh<30:'But you this description does not fit'
  824. if vnesh>=30:
  825. act 'Go to the address':gt 'qjob','var1'
  826. end
  827. if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
  828. act 'End_Up':gt'Komp','brows'
  829. end
  830. if komprabota=1:
  831. 'You found an ad: "Requires girl model looks to advertise underwear, Cash payment on filming zavershinii 2000 RUB."'
  832. if vnesh<30:'But you this description does not fit'
  833. if vnesh>=30:
  834. act 'Go to the address':gt 'qjob','var2'
  835. end
  836. if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
  837. act 'End_Up':gt'Komp','brows'
  838. end
  839. if komprabota>1 and komprabota<5:
  840. 'You found an ad: "Artist needs naturschitsa, cute appearance, cash payment 1000 RUB."'
  841. if vnesh<15:'But you this description does not fit'
  842. if vnesh>=15:
  843. act 'Go to the address':gt 'qjob','var3'
  844. end
  845. if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
  846. act 'End_Up':gt'Komp','brows'
  847. end
  848. if komprabota>4:
  849. 'You did not find anything suitable.'
  850. if hour<20 and hour>7:act 'Search more':gt'Komp','rabota'
  851. act 'End_Up':gt'Komp','brows'
  852. end
  853. >>>>>>> 318_Komp
  854. end
  855. <<<<<<< 318_Komp
  856. if $ARGS[0] = 'fin':
  857. =======
  858. if $ARGS[0]='fin':
  859. >>>>>>> 318_Komp
  860. gt $locM, $metkaM
  861. end
  862. --- Komp ---------------------------------