/// /// Исходный код текстовой онлайн игры "ПРЕЗИДЕНТ" скачан с сайта https://apero.ru/ /// Пройти онлайн или скачать последнюю версию этой игры можно по адресу: https://apero.ru/Текстовые-игры/ПРЕЗИДЕНТ /// Авторы: darkcrown /// Версия: от 2022-07-13 15:53:41 /// \(нран(1)=8752) \(нран(2)=21306) \(нран(3)=54627) \(нран(4)=122494) \(нран(5)=327648) \(нран(6)=792085) \(нран(7)=1765323) \(ран(2)="директора школы") \(ран(3)="спикера городского совета") \(ран(4)="мэра города") \(ран(5)="депутата Думы") \(ран(6)="губернатора края") \(ран(7)="премьер-министра") \(ран(8)="Президента") \(ранг=1) \(ци(0)=" ") \(ци(1)="2") \(ци(2)="3") \(ци(3)="4") \(ци(4)="5") \(ци(5)="6") \(ци(6)="7") \(ци(7)="8") \(ци(8)="9") \(ци(9)="10") \(ци(10)="J") \(ци(11)="Q") \(ци(12)="K") \(ци(13)="A") \(цц(0)=-1) \(цц(1)=2) \(цц(2)=3) \(цц(3)=4) \(цц(4)=5) \(цц(5)=6) \(цц(6)=7) \(цц(7)=8) \(цц(8)=9) \(цц(9)=10) \(цц(10)=10) \(цц(11)=10) \(цц(12)=10) \(цц(13)=11) \(ап=9547) \(возраст=21) \(здоровье=100) \(скорость=5) \(адидас=0) \(самсунг=0) \(газпром=0) \(роснано=0) \(хенесси=0) \(репутация=0) \(месяц=АПЕРО.случайно(6)) \(год=1993) \(переход=2) \(деньги=1000) \(здоровье=100) \СТОП(описаниеигры) \меню \(итог=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (ждем=0) \ТО \(биржа,БИРЖА) \ИНАЧЕ Биржа закрыта на \(ждем) мес. //ГОТОВО \(бизнес,БИЗНЕС) //ГОТОВО \(сбербанк,СБЕРБАНК) //ГОТОВО \(имущество,ИМУЩЕСТВО) //готово \ЕСЛИ(ранг<8) \ТО \(выборы,ВЫБОРЫ) //ГОТОВО \(персонал,ПЕРСОНАЛ) //ГОТОВО \(статистика,СТАТИСТИКА) //ГОТОВО \(благотворительность,БЛАГОТВОРИТЕЛЬНОСТЬ) //ГОТОВО \(развлечения,РАЗВЛЕЧЕНИЯ) //ГОТОВО \ЕСЛИ(_Болезнь=1 ИЛИ _Опасность>0) \ТО \(госпиталь,НЕМЕДЛЕННАЯ ГОСПИТАЛИЗАЦИЯ !) \ЕСЛИ(ранг=8) \ТО (конецигры,З А К О Н Ч И Т Ь И Г Р У) \СТОП \статистика \(р1=(маклер*1000)+(врач*6000)+(адвокат*29000)+(охрана*74000)) \(зп=(ранг-1)*5000) \(р2=(кафе*2900)+(ресторан*8400)+(гипермаркет*24500)+(агенство*6100)+(завод*67100)+(фабрика*161300)) \(р3=р2-р1-оплата) Ваши бизнес-доходы : \ЕСЛИ(р2=0) \ТО 0 $ \ИНАЧЕ \(р2) $ Расход на персонал : \ЕСЛИ(р1=0) \ТО 0 $ \ИНАЧЕ \(р1) $ Ежемесячный платеж : \ЕСЛИ(оплата=0) \ТО 0 $ \ИНАЧЕ \(оплата) $ ИТОГО : \ЕСЛИ(р3=0) \ТО 0 $ в месяц \ИНАЧЕ \(р3) $ в месяц [hr] \ЕСЛИ(здоровье<101 И здоровье >80) \ТО Здоровье : Отличное ! \ЕСЛИ(здоровье<81 И здоровье >60) \ТО Здоровье : Хорошее \ЕСЛИ(здоровье<61 И здоровье >40) \ТО Здоровье : Неважное \ЕСЛИ(здоровье<41 И здоровье >20) \ТО Здоровье : Плохое \ЕСЛИ(здоровье<21 И здоровье >8) \ТО Здоровье : Ужасное ! \ЕСЛИ(здоровье<9) \ТО Вам капец... Замучаетесь лечиться [hr] \ЕСЛИ(ранг=1) \ТО Сейчас вы обычный человек \ИНАЧЕ Сейчас вы занимаете пост \(ран(ранг)), зарплата : \(зп) $ в месяц [hr] \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ \(меню,ОК) \СТОП \госпиталь \ЕСЛИ(_Опасность>0) \ТО \СТОП(г0) \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ [hr] Здравстувйте ! Вы заболели ? Какая жалость ... Но мы вас обязательно вылечим ! И всего за жалкие \(лечение) $ [hr] \ЕСЛИ(деньги<лечение) \ТО \(г1,У МЕНЯ СТОЛЬКО НЕТ...) \ИНАЧЕ \(г2,Я СОГЛАСЕН ! ЛЕЧИТЕ СКОРЕЙ !) \(г3,ЭТО СЛИШКОМ ДОРОГО ! ХОЧУ БЕСПЛАТНО ПО ПОЛИСУ !) \(меню,Я ЗАЙДУ ПОПОЗЖЕ - КАК ПОДКОПЛЮ) \СТОП \г0 \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ [hr] Здравстувйте ! Вам срочно нужно качественное лечение ! Оно обойдется вам в \(лечение) $. К сожалению лечение от этого не входит в бесплатную программу по страховым полисам [hr] \ЕСЛИ(деньги<лечение) \ТО \(г4,У МЕНЯ СТОЛЬКО НЕТ...) \ИНАЧЕ \(г2,Я СОГЛАСЕН ! ЛЕЧИТЕ СКОРЕЙ !) \(меню,Я ЗАЙДУ ПОПОЗЖЕ - КАК ПОДКОПЛЮ) \СТОП \г1 \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ [hr] Это не страшно ! Вы можете совершенно бесплатно подлечиться по общему страховому полису. Качество услуг конечно будет ужасным - зато вы не потратите ни цента ! [hr] \(г3,У МЕНЯ ВСЕ РАВНО НЕТ ВЫБОРА) \(меню,НЕТ УЖ ! ПОПРОБУЮ СКОПИТЬ) \СТОП \г2 \(деньги=деньги-лечение) \(лечение=0) \(_Болезнь=0) \(_Опасность=0) Современная медицина творит чудеса ! Совершенно безболезнено, быстро и качественно вас вылечили. \(меню,СПАСИБО) \СТОП \г3 Бесплатная медицина оказывается что то может ! Правда вас искололи всего, замучали и закормили таблетками до тошноты - зато бесплатно, быстро и с результатом - вы здоровы ! Хотя здоровье эта больничка попортила изрядно... \(здоровье=здоровье-9) \(лечение=0) \(_Болезнь=0) \(_Опасность=0) \ЕСЛИ(здоровье<2) \ТО \(здоровье=2) \(меню,СПАСИБО) \СТОП \г4 [hr] Тогда боюсь мы ничем вам не можем помочь.... Займите ! Здоровье важнее ! Нам вас бесплатно лечить тоже мало желания, поверьте. Ну как - мало.... Желания совсем нет. А теперь проваливай ! [hr] \(меню,ДА УЖ....) \СТОП \развлечения \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ \ЕСЛИ(деньги>2299) \ТО \(раз1,ОТДОХНУТЬ МЕСЯЦ НА КУРОРТЕ - 2.300 $) \ИНАЧЕ Целый месяц на курорте за 2.300$ ! Копи ! \ЕСЛИ(деньги<3800) \ТО Казино далеко. Билеты стоят 3.800 $ \ИНАЧЕ \(раз2,СЬЕЗДИТЬ ПОИГРАТЬ В КАЗИНО - 3.800 $ за билеты) \(раз3,УЧАВСТВОВАТЬ В УЛИЧНЫХ БОЯХ и заработать) \(меню,НИЧЕГО НЕ ХОЧУ) \СТОП \раз1 \(переход=5) \(деньги=деньги-2300) \ЕСЛИ(было1=1) \ТО \СТОП(датаап) \ИНАЧЕ \(было1=1) \(АПЕРО.блок.выравнивание текста="по левому краю") \(АПЕРО.блок.цвет текста="purple") Вы прекрасно отдохнули на известнейшем курорте ! Месяц пролетел совсем незаметно . \(АПЕРО.блок.цвет текста="black") (В следующий раз это сообщение будет пропущено) \(АПЕРО.блок.выравнивание текста="по центру") \(датаап,Хорошо) \СТОП \раз2 \ЕСЛИ(деньги>5000) \ТО \СТОП(казино) Давайте, подкопите хотя бы 5.000 $ , билеты стоят 3.800$, а играть то на какие шиши? Приходите как накопите. \(развлечения,ЛАДНО) \СТОП \раз3 Вы участвуете в боях, в которых можно заработать от 2.000 до 3.000. Бои идут месяц. Не злоупотребляйте этим заработком - здоровье дороже \(здоровье=здоровье-2) \(событие=АПЕРО.случайно(1000)+2000) Месяц прошел. Вы заработали \(событие) $ и кучу синяков \(переход=5) \(деньги=деньги+событие) \(датаап,ОК) \СТОП \имущество \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ \ЕСЛИ(машина=0) \ТО \(км,КУПИТЬ АВТОМОБИЛЬ 23.000 $) \ИНАЧЕ \(пм,ПРОДАТЬ АВТОМОБИЛЬ 17.000$) \ЕСЛИ(квартира=0) \ТО \(кк,КУПИТЬ КВАРТИРУ 74.000$) \ИНАЧЕ \(пк,ПРОДАТЬ КВАРТИРУ 56.000$) \ЕСЛИ(яхта=0) \ТО \(кя,КУПИТЬ ЯХТУ 420.000$) \ИНАЧЕ \(пя,ПРОДАТЬ ЯХТУ 330.000$) \ЕСЛИ(вертолет=0) \ТО \(кв,КУПИТЬ ВЕРТОЛЕТ 1.140.000$) \ИНАЧЕ \(пв,ПРОДАТЬ ВЕРТОЛЕТ 920.000$) \ЕСЛИ(самолет=0) \ТО \(кс,КУПИТЬ САМОЛЕТ 4.620.000$) \ИНАЧЕ \(пс,ПРОДАТЬ САМОЛЕТ 3.790.000$) \(меню,ВЫХОД) \СТОП \благотворительность \ЕСЛИ(деньги<5000) \ТО \СТОП(бл0) Здравствуйте ! Добро пожаловать в благотворительный фонд ДЕЛАЙ ДОБРО. Пожертвуйте лишние денежки а мы постараемся чтобы люди узнали о вашей доброте ! Сейчас у вас \(деньги) $ \(бл1,ПОЖЕРТВОВАТЬ 10%) \(бл2,ПОЖЕРТВОВАТЬ 25%) \(бл3,ПОЖЕРТВОВАТЬ 50%) \(бл4,ПОЖЕРТВОВАТЬ 95%) \(меню,ПЕРЕБЬЕТЕСЬ) \СТОП \сбербанк \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ \ЕСЛИ(кредит=0) \ТО \(сб1,ВЗЯТЬ КРЕДИТ) \ИНАЧЕ \(сб1,ПОГАСИТЬ КРЕДИТ) \ЕСЛИ(ссуда=0) \ТО \(сб2,ДАТЬ ССУДУ) \ИНАЧЕ Ожидайте еще \(ссудавремя) мес. \ЕСЛИ(деньги>99) \ТО \(сб3,ПОЛОЖИТЬ НА СЧЕТ) \ИНАЧЕ Положить можно не меньше 100$ \ЕСЛИ(счет=0) \ТО Чтобы снять - нужно положить \ИНАЧЕ \(сб4,СНЯТЬ СО СЧЕТА) \(меню,ВЫХОД) \СТОП \персонал \(расход=(маклер*1000)+(врач*6000)+(адвокат*29000)+(охрана*74000)) \ЕСЛИ(расход=0) \ТО Расходов на персонал нет \ИНАЧЕ Ваши расходы на персонал : \(расход)$ в месяц \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ \ЕСЛИ(маклер=0) \ТО \(нмаклер,НАНЯТЬ МАКЛЕРА : 1.000$ в месяц) \ИНАЧЕ \(нмаклер,УВОЛИТЬ МАКЛЕРА) \ЕСЛИ(врач=0) \ТО \(нврач,НАНЯТЬ ВРАЧА : 6.000$ в месяц) \ИНАЧЕ \(нврач,УВОЛИТЬ ВРАЧА) \ЕСЛИ(адвокат=0) \ТО \(надвокат,НАНЯТЬ АДВОКАТА : 29.000$ в месяц) \ИНАЧЕ \(надвокат,УВОЛИТЬ АДВОКАТА) \ЕСЛИ(охрана=0) \ТО \(нохрана,НАНЯТЬ ОХРАНУ : 74.000$ в месяц) \ИНАЧЕ \(нохрана,УВОЛИТЬ ОХРАНУ) \(меню,ВЫХОД) \СТОП \бизнес \(день=день+1) \(переход=3) \ЕСЛИ(день>скорость) \ТО \СТОП(датаап) \(АПЕРО.блок.цвет текста="green") \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ \(АПЕРО.блок.цвет текста="black") \ЕСЛИ(кафе=0) \ТО \(б1,КУПИТЬ КАФЕШКУ - 25.000 $) \ИНАЧЕ [hr] \ЕСЛИ(ресторан=0) \ТО \(б2,КУПИТЬ РЕСТОРАН - 300.000 $) \ИНАЧЕ [hr] \ЕСЛИ(гипермаркет=0) \ТО \(б3,КУПИТЬ ГИПЕРМАРКЕТ - 850.000 $) \ИНАЧЕ [hr] \ЕСЛИ(агенство=0) \ТО \(б4,КУПИТЬ АГЕНСТВО - 1.350.000 $) \ИНАЧЕ [hr] \ЕСЛИ(завод=0) \ТО \(б5,КУПИТЬ ЗАВОД - 4.200.000 $) \ИНАЧЕ [hr] \ЕСЛИ(фабрика=0) \ТО \(б6,КУПИТЬ ФАБРИКУ - 12.000.000 $) \ИНАЧЕ [hr] \(меню,ВЫХОД) \СТОП \датаап \(месяц=месяц+1) \(день=0) \(ждем=ждем-1) \ЕСЛИ(ждем<0) \ТО \(ждем=0) \ЕСЛИ(месяц>12) \(месяц=1) \(год=год+1) \(возраст=возраст+1) \(здоровье=здоровье-1) \ЕСЛИ(месяц=1) \ТО \(_Январь=год) \ИНАЧЕ \(_Январь=0) \ЕСЛИ(месяц=2) \ТО \(_Февраль=год) \ИНАЧЕ \(_Февраль=0) \ЕСЛИ(месяц=3) \ТО \(_Март=год) \ИНАЧЕ \(_Март=0) \ЕСЛИ(месяц=4) \ТО \(_Апрель=год) \ИНАЧЕ \(_Апрель=0) \ЕСЛИ(месяц=5) \ТО \(_Май=год) \ИНАЧЕ \(_Май=0) \ЕСЛИ(месяц=6) \ТО \(_Июнь=год) \ИНАЧЕ \(_Июнь=0) \ЕСЛИ(месяц=7) \ТО \(_Июль=год) \ИНАЧЕ \(_Июль=0) \ЕСЛИ(месяц=8) \ТО \(_Август=год) \ИНАЧЕ \(_Август=0) \ЕСЛИ(месяц=9) \ТО \(_Сентябрь=год) \ИНАЧЕ \(_Сентябрь=0) \ЕСЛИ(месяц=10) \ТО \(_Октябрь=год) \ИНАЧЕ \(_Октябрь=0) \ЕСЛИ(месяц=11) \ТО \(_Ноябрь=год) \ИНАЧЕ \(_Ноябрь=0) \ЕСЛИ(месяц=12) \ТО \(_Декабрь=год) \ИНАЧЕ \(_Декабрь=0) \ЕСЛИ(_Болезнь=1) \ТО \(здоровье=здоровье-1) \ЕСЛИ(_Опасность>0) \ТО \(здоровье=здоровье-2) \(_Опасность=_Опасность+1) \ЕСЛИ(_Опасность>2) \ТО \СТОП(конец2) //Доходы и расходы \ЕСЛИ(здоровье<2) \ТО \(здоровье=2) \ЕСЛИ(агенство=1) \ТО \(репутация=репутация+500) \(зп=(ранг-1)*5000) \(доход=(кафе*2900)+(ресторан*8400)+(гипермаркет*24500)+(агенство*6100)+(завод*67100)+(фабрика*161300)+зп) \(расход=(маклер*1000)+(врач*6000)+(адвокат*29000)+(охрана*74000)) \(деньги=деньги-расход+доход) \ЕСЛИ(ссуда>0) \ТО \СТОП(кр2) \ЕСЛИ(оплата>0) \ТО \СТОП(кр1) \назадда \ЕСЛИ(деньги<0) \ТО \(_Банкрот=_Банкрот+1) \ИНАЧЕ \(_Банкрот=0) \ЕСЛИ(_Банкрот>3) \ТО \СТОП(конец1) //События: \(событие=АПЕРО.случайно(45)) \ЕСЛИ(год=1993) \ТО \(событие=0) \ЕСЛИ(событие=2) \ТО \СТОП(с1) // 1 Пропали акции \ЕСЛИ(событие=4) \ТО \СТОП(с2) // 2 заболел \ЕСЛИ(событие=6) \ТО \СТОП(с3) // 3 ограбили \ЕСЛИ(событие=8) \ТО \СТОП(с4) // 4 засудили \ЕСЛИ(событие=10) \ТО \СТОП(с5) // 5 банк погорел(если есть счет или ссуда) \ЕСЛИ(событие=12) \ТО \СТОП(с6) // 6 минус кафе \ЕСЛИ(событие=14) \ТО \СТОП(с7) // 7 минус ресторан \ЕСЛИ(событие=16) \ТО \СТОП(с8) // 8 минус гипермаркет \ЕСЛИ(событие=18) \ТО \СТОП(с9) // 9 минус агенство \ЕСЛИ(событие=20) \ТО \СТОП(с10) // 10минус завод \ЕСЛИ(событие=22) \ТО \СТОП(с11) // 11покатал детишек+9к \ЕСЛИ(событие=24) \ТО \СТОП(с12) // 12спас на яхте людей+70к \ЕСЛИ(событие=26) \ТО \СТОП(с13) // 13участвовал в тушении пожара с вертолета +200к \ЕСЛИ(событие=28) \ТО \СТОП(с14) // 14самолет привез припасы голодающим+800к \назадда2 \ЕСЛИ(здоровье<2) \ТО \(здоровье=2) \ЕСЛИ(АПЕРО.случайно(здоровье)<3) \ТО \СТОП(с15) \назадда3 \ЕСЛИ(переход=5) \СТОП(развлечения) \ЕСЛИ(переход=4) \СТОП(персонал) \ЕСЛИ(переход=3) \СТОП(бизнес) \ЕСЛИ(переход=2) \СТОП(меню) \ЕСЛИ(переход=1) \СТОП(биржа) \кр1 //Списание кредита \ЕСЛИ(оплата>кредит) \ТО \(оплата=кредит) \(деньги=деньги-оплата) \(кредит=кредит-оплата) \ЕСЛИ(оплата>кредит) \ТО \(оплата=кредит) \СТОП(назадда) // Вернуться \кр2 //Ссуда - возврат \(ссудавремя=ссудавремя-1) \ЕСЛИ(ссудавремя>0) \ТО \СТОП(назадда) \(деньги=деньги+ссуда) \(ссуда=0) \СТОП(назадда) \биржа \(переход=1) \(день=день+1) \ЕСЛИ(день>скорость) \ТО \СТОП(датаап) //Как быстро бежит время \(событие=АПЕРО.случайно(50)) // Как часто будет закрываться биржа (50 - шанс 2 процента) \ЕСЛИ (событие=3) \ТО \СТОП(закрываемся) //\(АПЕРО.блок.выравнивание текста="по левому краю") \(АПЕРО.блок.цвет текста="green") \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ [hr] \(АПЕРО.блок.цвет текста="black") [br] Ваши акции : //(+Купить -Продать) \(ац=АПЕРО.случайно(50)+1) \(сц=АПЕРО.случайно(50)+1) \(гц=АПЕРО.случайно(50)+1) \(рц=АПЕРО.случайно(50)+1) \(хц=АПЕРО.случайно(50)+1) [br] \ЕСЛИ (адидас=0) \ТО \(т1="0 шт") \ИНАЧЕ \(т1="шт") \ЕСЛИ (самсунг=0) \ТО \(т2="0 шт") \ИНАЧЕ \(т2="шт") \ЕСЛИ (газпром=0) \ТО \(т3="0 шт") \ИНАЧЕ \(т3="шт") \ЕСЛИ (роснано=0) \ТО \(т4="0 шт") \ИНАЧЕ \(т4="шт") \ЕСЛИ (хенесси=0) \ТО \(т5="0 шт") \ИНАЧЕ \(т5="шт") //Мегафон \(адидас) \(т1) (\(ап,+) \(ам,-)) цена :\(ац) $ //Самсунг \(самсунг) \(т2) (\(сп,+) \(см,-)) цена :\(сц) $ //Газпром \(газпром) \(т3) (\(гп,+) \(гм,-)) цена :\(гц) $ //Роснано \(роснано) \(т4) (\(рп,+) \(рм,-)) цена :\(рц) $ //Рафаэло \(хенесси) \(т5) (\(хп,+) \(хм,-)) цена :\(хц) $ //Альтернативный вывод : [table=1] [tr] [td]Мегафон [/td][td]\(ап,КУПИТЬ)[/td][td]\(адидас)\(т1)[/td][td]\(ам,ПРОДАТЬ)[/td][td]цена : \(ац) $[/td] [/tr][tr] [td]Cамсунг [/td][td]\(сп,КУПИТЬ)[/td][td]\(самсунг)\(т2)[/td][td]\(см,ПРОДАТЬ)[/td][td]цена : \(сц) $[/td] [/tr][tr] [td]Газпром [/td][td]\(гп,КУПИТЬ)[/td][td]\(газпром)\(т3)[/td][td]\(гм,ПРОДАТЬ)[/td][td]цена : \(гц) $[/td] [/tr][tr] [td]Росатом [/td][td]\(рп,КУПИТЬ)[/td][td]\(роснано)\(т4)[/td][td]\(рм,ПРОДАТЬ)[/td][td]цена : \(рц) $[/td] [/tr][tr] [td]Рафаэло [/td][td]\(хп,КУПИТЬ)[/td][td]\(хенесси)\(т5)[/td][td]\(хм,ПРОДАТЬ)[/td][td]цена : \(хц) $[/td] [/tr] [/table] \(меню,ВЫХОД ИЗ БИРЖИ) \(макс=АПЕРО.случайно(3000)+1800) \ЕСЛИ (итог>0) \ТО \(текст) \(итог) шт \ЕСЛИ (итог=-1) \ТО Даже на одну не хватает... \ЕСЛИ (итог=-2) \ТО А этих акций то и нету ! \ЕСЛИ(итог=-5) \ТО В долг не даем ! \(АПЕРО.блок.цвет текста="black") \СТОП \ап \(итог=-5) \ЕСЛИ(деньги<0) \ТО \СТОП(биржа) \(итог=АПЕРО.отбросить(деньги/ац)) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*ац) \(деньги=деньги-цена) \(адидас=адидас+итог) \(текст="Вы купили") \ЕСЛИ (итог=0) \ТО \(итог=-1) \СТОП(биржа) \ам \(итог=адидас) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*ац) \(деньги=деньги+цена) \(адидас=адидас-итог) \(текст="Вы продали") \ЕСЛИ (итог=0) \ТО \(итог=-2) \СТОП(биржа) //самсунг \сп \(итог=-5) \ЕСЛИ(деньги<0) \ТО \СТОП(биржа) \(итог=АПЕРО.отбросить(деньги/сц)) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*сц) \(деньги=деньги-цена) \(самсунг=самсунг+итог) \(текст="Вы купили") \ЕСЛИ (итог=0) \ТО \(итог=-1) \СТОП(биржа) \см \(итог=самсунг) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*сц) \(деньги=деньги+цена) \(самсунг=самсунг-итог) \(текст="Вы продали") \ЕСЛИ (итог=0) \ТО \(итог=-2) \СТОП(биржа) //газпром \гп \(итог=-5) \ЕСЛИ(деньги<0) \ТО \СТОП(биржа) \(итог=АПЕРО.отбросить(деньги/гц)) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*гц) \(деньги=деньги-цена) \(газпром=газпром+итог) \(текст="Вы купили") \ЕСЛИ (итог=0) \ТО \(итог=-1) \СТОП(биржа) \гм \(итог=газпром) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*гц) \(деньги=деньги+цена) \(газпром=газпром-итог) \(текст="Вы продали") \ЕСЛИ (итог=0) \ТО \(итог=-2) \СТОП(биржа) //РОСНАНО \рп \(итог=-5) \ЕСЛИ(деньги<0) \ТО \СТОП(биржа) \(итог=АПЕРО.отбросить(деньги/рц)) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*рц) \(деньги=деньги-цена) \(роснано=роснано+итог) \(текст="Вы купили") \ЕСЛИ (итог=0) \ТО \(итог=-1) \СТОП(биржа) \рм \(итог=роснано) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*рц) \(деньги=деньги+цена) \(роснано=роснано-итог) \(текст="Вы продали") \ЕСЛИ (итог=0) \ТО \(итог=-2) \СТОП(биржа) //Хенесси \хп \(итог=-5) \ЕСЛИ(деньги<0) \ТО \СТОП(биржа) \(итог=АПЕРО.отбросить(деньги/хц)) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*хц) \(деньги=деньги-цена) \(хенесси=хенесси+итог) \(текст="Вы купили") \ЕСЛИ (итог=0) \ТО \(итог=-1) \СТОП(биржа) \хм \(итог=хенесси) \ЕСЛИ (итог>макс) \ТО \(итог=макс) \(цена=итог*хц) \(деньги=деньги+цена) \(хенесси=хенесси-итог) \(текст="Вы продали") \ЕСЛИ (итог=0) \ТО \(итог=-2) \СТОП(биржа) \закрываемся \(итог=0) \(событие=АПЕРО.случайно(15)) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(событие>7) \(ждем=2) ТЕХНИЧЕСКИЕ НЕПОЛАДКИ ! ПЕРЕРЫВ 2 МЕСЯЦА \ЕСЛИ(событие=4 ИЛИ событие =5 ИЛИ событие=6 ИЛИ событие=7) \(ждем=6) БИРЖУ ЗАГАДИЛИ. НА УБОРКУ УЙДЕТ ПОЛГОДА. ПОГУЛЯЙТЕ. \ЕСЛИ(событие=2 ИЛИ событие=3) \(ждем=12) НА БИРЖЕ ПРОИЗОШЛА ДРАКА. ПЕРЕЛОМАЛИ ВСЕ ЧТО МОЖНО. ОТКРОЕМСЯ ЧЕРЕЗ ГОД. \ЕСЛИ(событие=1) \(ждем=60) БИРЖА СГОРЕЛА ! ВОССТАНОВЛЕНИЕ ЧЕРЕЗ 5 ЛЕТ !!! \(меню,ОХ...) \(АПЕРО.блок.выравнивание текста="по центру") \СТОП \б1 \ЕСЛИ(деньги<25000) \ТО \СТОП(б0) \(деньги=деньги-25000) \(кафе=1) Вы купили забегаловку с шаурмой и бомжами по соседству \(бизнес,Ура чтоли...) \СТОП \б2 \ЕСЛИ(деньги<300000) \ТО \СТОП(б0) \(деньги=деньги-300000) \(ресторан=1) Вы купили обшарпаный ресторанчик с грязным, жирным, вонючим поваром впридачу \(бизнес,Неплохо) \СТОП \б3 \ЕСЛИ(деньги<850000) \ТО \СТОП(б0) \(деньги=деньги-850000) \(гипермаркет=1) Вы приобрели гипермаркет в центре города. В подарок - полный склад просрочки ! \(бизнес,Круто) \СТОП \б4 \ЕСЛИ(деньги<1350000) \ТО \СТОП(б0) \(деньги=деньги-1350000) \(агенство=1) Теперь рекламное агенство - ваше ! Пусть рекламирует заодно и вас. Имидж - ничто ? Ага ! Щас ! \(бизнес,Отлично !) \СТОП \б5 \ЕСЛИ(деньги<4200000) \ТО \СТОП(б0) \(деньги=деньги-4200000) \(завод=1) Вы купили новенький завод по производству одноразовых стаканов. Круто же ! \(бизнес,ВОТ ТАК !) \СТОП \б6 \ЕСЛИ(деньги<12000000) \ТО \СТОП(б0) \(деньги=деньги-12000000) \(фабрика=1) Теперь эта шикарная фабрика попроизводству полуфабрикатов ваша ! Отведай чивапчичей, народ ! \(бизнес,УРРРААААААА !!!) \СТОП \б0 СНАЧАЛА ПОДКОПИ ДЕНЕГ, НИЩЕБРОД ! \(бизнес,Сам такой) \СТОП \нмаклер \ЕСЛИ(маклер=0) \ТО \(маклер=1) \ИНАЧЕ \(маклер=0) \СТОП(персонал) \надвокат \ЕСЛИ(адвокат=0) \ТО \(адвокат=1) \ИНАЧЕ \(адвокат=0) \СТОП(персонал) \нврач \ЕСЛИ(врач=0) \ТО \(врач=1) \ИНАЧЕ \(врач=0) \СТОП(персонал) \нохрана \ЕСЛИ(охрана=0) \ТО \(охрана=1) \ИНАЧЕ \(охрана=0) \СТОП(персонал) \сб1 //ВЗЯТЬ КРЕДИТ \ЕСЛИ(кредит>0) \ТО \СТОП(сбпогасить) Сколько вы хотите взять ? Кредит дается на 1 год \(сб11,100.000 $ под 37%) \(сб12,500.000 $ под 31%) \(сб13,1.000.000 $ под 29 %) \(сб14,3.000.000 $ под 27 %) \(сбербанк,Я ПЕРЕДУМАЛ) \СТОП \сб11 \(кредит=137000) \(деньги=деньги+100000) \СТОП(сб15) \сб12 \(кредит=655000) \(деньги=деньги+500000) \СТОП(сб15) \сб13 \(кредит=1290000) \(деньги=деньги+1000000) \СТОП(сб15) \сб14 \(кредит=3810000) \(деньги=деньги+3000000) \сб15 \(оплата=АПЕРО.отбросить(кредит/12)) Вы успешно оформили кредит ! Ежемесячный платеж составит \(оплата) $ \(меню,ОК) \СТОП \сбпогасить Вы можете погасить свой кредит прямо сейчас. Вы в любом случае должны оплатить все проценты. Непогашенная сумма : \(кредит) $ Ваши деньги : \(деньги) $ - \ЕСЛИ(деньги<кредит) \ТО недостаточно для погашения \ИНАЧЕ можно погасить \ЕСЛИ(деньги<кредит) \ТО СОГЛАСЕН \ИНАЧЕ \(сбпогасить2,СОГЛАСЕН) \(сбербанк,ПОЗЖЕ) \СТОП \сбпогасить2 \(деньги=деньги-кредит) \(кредит=0) Кредит успешно погашен \(меню,ОК) \СТОП \сб2 \ЕСЛИ(кредит>0) \ТО \СТОП(сб29) //ДАТЬ ССУДУ \ЕСЛИ(деньги=0) \ТО У вас 0 $ \ИНАЧЕ У вас \(деньги) $ Ссуда выплачивается спустя 1 год вместе с процентами. Сколько даем ? \(сб21,500.000 $ под 12%) \(сб22,1.000.000 $ под 10%) \(сб23,2.500.000 $ под 8%) \(сб24,5.000.000 $ под 7%) \(сбербанк,Я ПЕРЕДУМАЛ) \СТОП \сб21 \ЕСЛИ(деньги<500000) \ТО \СТОП(сб26) \(ссуда=560000) \(деньги=деньги-500000) \СТОП(сб25) \сб22 \ЕСЛИ(деньги<1000000) \ТО \СТОП(сб26) \(ссуда=1100000) \(деньги=деньги-1000000) \СТОП(сб25) \сб23 \ЕСЛИ(деньги<2500000) \ТО \СТОП(сб26) \(ссуда=2700000) \(деньги=деньги-2500000) \СТОП(сб25) \сб24 \ЕСЛИ(деньги<5000000) \ТО \СТОП(сб26) \(ссуда=5350000) \(деньги=деньги-5000000) \СТОП(сб25) \сб25 //ССУДА ДАНА Сбербанк благодарит вас ! Через год мы вернем вам \(ссуда) $ \(ссудавремя=12) \(меню,НЕ ЗА ЧТО) \СТОП \сб26 //МОШЕННИЧЕСТВО :) \(штраф=АПЕРО.случайно(2000)+2000) У вас недостаточно денег для данной операции. По данному факту вы оштрафованы за попытку мошенничества на \(штраф) $ \ЕСЛИ(деньги<штраф) \ТО У тебя что, даже \(штраф) $ нет ? Значит будешь должен ! \(деньги=деньги-штраф) \(меню, КРОВОСОСЫ !!!) \СТОП \сб29 Эй ! Сначала погаси кредит ! Ишь чего удумал ! \(меню,ХРЕН С ВАМИ...) \СТОП \сб3 //ПОЛОЖИТЬ НА СЧЕТ \ЕСЛИ(деньги<100) \ТО \СТОП(сбербанк) Ваши деньги : \(деньги) $. Сколько ложим ? \ЕСЛИ(счет=0) \ТО На вашем счету пока пусто \ИНАЧЕ На вашем счету : \(счет) $ \(сб31,10% нала) \(сб32,25% нала) \(сб33,50% нала) \(сб34,90% нала) \(сбербанк,ПОПОЗЖЕ) \СТОП \сб31 \(итог=АПЕРО.отбросить(деньги/10)) \СТОП(сб35) \сб32 \(итог=АПЕРО.отбросить(деньги/4)) \СТОП(сб35) \сб33 \(итог=АПЕРО.отбросить(деньги/2)) \СТОП(сб35) \сб34 \(итог=АПЕРО.отбросить(деньги*0.9)) \сб35 \(счет=счет+итог) \(деньги=деньги-итог) Вы положили на счет \(итог) $ Теперь там \(счет) $ \(сб3,АГА) \СТОП \сб4 //СНЯТЬ \ЕСЛИ(счет=0) \ТО \СТОП(сбербанк) Ваши деньги : \(деньги) $ На счету : \(счет) $ \(сб41,СНЯТЬ ВСЕ ДЕНЬГИ) \(сб42,СНЯТЬ 50%) \(сб43,СНЯТЬ 10% ) \(сбербанк, ПУСТЬ ЛЕЖАТ) \СТОП \сб41 \(итог=счет) \СТОП(сб45) \сб42 \(итог=АПЕРО.отбросить(счет/2)) \СТОП(сб45) \сб43 \(итог=АПЕРО.отбросить(счет/10)) \сб45 \ЕСЛИ(итог=0) \ТО \(итог=1) \(счет=счет-итог) \(деньги=деньги+итог) \ЕСЛИ(счет=0) \ТО Вы сняли последние деньги со счета \ИНАЧЕ Вы сняли \(итог) $ \ЕСЛИ(счет=0) \ТО Теперь там пусто \ИНАЧЕ Теперь там \(счет) $ \(сб4,АГА) \СТОП \бл0 Мы понимаем ваши стремления, вашу доброту и самоотверженность, но найдите хотя бы 5.000$ - потом приходите ! Ждем вас с нетерпением ! \(меню,АГА...) \СТОП \бл1 \(итог=АПЕРО.отбросить(деньги/10)) \СТОП(бл5) \бл2 \(итог=АПЕРО.отбросить(деньги/4)) \СТОП(бл5) \бл3 \(итог=АПЕРО.отбросить(деньги/2)) \СТОП(бл5) \бл4 \(итог=АПЕРО.отбросить(деньги*0.95)) \бл5 \(деньги=деньги-итог) \(репутация=репутация+(итог/40)) \(репутация=АПЕРО.отбросить(репутация)) Благодарим вас за пожертвование в размере \(итог) $ ! Поверьте, это было не зря ! \(переход=2) \(день=день+1) \ЕСЛИ(день>скорость) \ТО \(датаап,ДА ПОЖАЛУЙСТА) \ИНАЧЕ \(меню,ДА ПОЖАЛУЙСТА) \СТОП \км \ЕСЛИ(деньги<23000) \ТО \СТОП(кх) \(деньги=деньги-23000) \(машина=1) Вы купили великолепное авто премиум класса. Теперь не стыдно на улицу выйти ! \(имущество,НУ А КАК ЖЕ) \СТОП \кк \ЕСЛИ(деньги<74000) \ТО \СТОП(кх) \(деньги=деньги-74000) \(квартира=1) Вы купили отличную квартирку в приятном районе \(имущество,ДАВНО ПОРА) \СТОП \кя \ЕСЛИ(деньги<420000) \ТО \СТОП(кх) \(деньги=деньги-420000) \(яхта=1) Вы купили отличную яхту белого цвета. Устроим вечеринку ? \(имущество,ПОПЛАВАЕМ !) \СТОП \кв \ЕСЛИ(деньги<1140000) \ТО \СТОП(кх) \(деньги=деньги-1140000) \(вертолет=1) Поздравляем ! Личный вертолет теперь ваш ! Летайте на здоровье ! \(имущество,КРУТЯК !) \СТОП \кс \ЕСЛИ(деньги<4620000) \ТО \СТОП(кх) \(деньги=деньги-4620000) \(самолет=1) Дааааа ! Свой собственный самолет ! Что может быть круче ? \(имущество,И ЛИЧНЫЙ ПИЛОТ !) \СТОП \пм \(итог=1) \(слово="свой автомобиль") \СТОП(пх) \пк \(итог=2) \(слово="эту чудесную квартиру") \СТОП(пх) \пя \(итог=3) \(слово="великолепную яхту") \СТОП(пх) \пв \(слово="этот шикарнейший вертолет") \(итог=4) \СТОП(пх) \пс \(слово="ЛИЧНЫЙ САМОЛЕТ ??? Серьезно") \(итог=5) \СТОП(пх) // машина 23-17 квартира 74-56 яхта 420-330 вертолет 1.140-920 самолет 4620-3790 \пх Вы действительно хотите продать \(слово) ? \(пх1,ДА. Я ПОДУМАЛ) \(имущество,СТОП. Я СЛУЧАЙНО) \СТОП \пх1 \ЕСЛИ(итог=1) \ТО \(машина=0) \(деньги=деньги+17000) \ЕСЛИ(итог=2) \ТО \(квартира=0) \(деньги=деньги+56000) \ЕСЛИ(итог=3) \ТО \(яхта=0) \(деньги=деньги+330000) \ЕСЛИ(итог=4) \ТО \(вертолет=0) \(деньги=деньги+920000) \ЕСЛИ(итог=5) \ТО \(самолет=0) \(деньги=деньги+3790000) \СТОП(имущество) \кх У вас недостаточно денег на это. Зато продавцы поржали . Ага, мечтать не вредно ! \(имущество,ДА ИДИТЕ ВЫ...) \СТОП \казино \(деньги=деньги-3800) \(АПЕРО.блок.выравнивание текста="по центру") Добро пожаловать в наше казино, единственное разрешенное во всей стране. Так же, к сожалению, согласно закону, разрешен только БлэкДжек, в него мы вам и предлагаем поиграть. Удачи ! [hr] ИЗВИНИТЕ, ЭТА ИГРА ЗАПРЕЩЕНА ЗАКОНОМ \(игра21,БлэкДжек) ИЗВИНИТЕ, ЭТА ИГРА ЗАПРЕЩЕНА ЗАКОНОМ ИЗВИНИТЕ, ЭТА ИГРА ЗАПРЕЩЕНА ЗАКОНОМ \СТОП \игра21 \(АПЕРО.блок.выравнивание текста="по левому краю") Ваши деньги : \(деньги) $ \(ставка=АПЕРО.отбросить(деньги/2)) [br] \(АПЕРО.блок.выравнивание текста="по центру") ВЫБЕРИТЕ СТАВКУ : \(пар1,5% от всех денег) \(пар2,10% от всех денег) \(пар3,25% от всех денег) \(пар4,50% от всех денег) \(пар5,Спасибо ... Я наигрался) \СТОП \пар1 \(ставка=АПЕРО.отбросить(деньги/20)) \СТОП(пар6) \пар2 \(ставка=АПЕРО.отбросить(деньги/10)) \СТОП(пар6) \пар3 \(ставка=АПЕРО.отбросить(деньги/4)) \СТОП(пар6) \пар4 \(ставка=АПЕРО.отбросить(деньги/2)) \СТОП(пар6) \пар5 Уже уходите ? Приезжайте еще ! Ждем вас. Надеемся вам понравилось \(меню,СЕСТЬ В САМОЛЕТ) \(пар6,Я ВСЕ ТАКИ ЕЩЕ ПОИГРАЮ) \СТОП \пар6 \(АПЕРО.блок.выравнивание текста="по левому краю") \ЕСЛИ(ставка=0) \ТО \(ставка=1) \ЕСЛИ(ставка>деньги) \ТО \(ставка=деньги) Ставка : \(ставка) $ Деньги : \(деньги) $ \(партия1,РАЗДАТЬ КАРТЫ) \(игра21,СМЕНИТЬ СТАВКУ) \(пар5,УЕХАТЬ ДОМОЙ) \СТОП \партия1 \(АПЕРО.блок.выравнивание текста="по левому краю") //СТАРТ \(ц1=АПЕРО.случайно(13)) \(ц2=АПЕРО.случайно(13)) \(ц3=0) \(ц4=0) \(ц5=0) \(цкарт=2) \(цд1=АПЕРО.случайно(13)) \(цд2=АПЕРО.случайно(13)) \(цд3=0) \(цд4=0) \(цд5=0) \(цдкарт=2) \(сумма=цц(ц1)+цц(ц2)+цц(ц3)+цц(ц4)+цц(ц5)-цкарт+5) \ЕСЛИ(ц1=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц2=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц3=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц4=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц5=13 И сумма>21) \ТО \(сумма=сумма-10) \партия2 //ПРОДОЛЖИТЬ Ставка : \(ставка) $ Ваши карты : \(ци(ц1)) \(ци(ц2)) \(ци(ц3)) \(ци(ц4)) \(ци(ц5)) Карты дилера : \(ци(цд1)) *** [hr] \ЕСЛИ(сумма<21) \ТО ( \ЕСЛИ(цкарт<5) \ТО \(партия3,ЕЩЕ КАРТУ) \ИНАЧЕ 5 КАРТ \) \ЕСЛИ(сумма=21) \ТО \(партия4,ДВАДЦАТЬ ОДНО ! ! !) \ЕСЛИ(сумма>21) \ТО \(партия4,ПЕРЕБОР...) \ЕСЛИ(сумма<21) \ТО \(партия4,ХВАТИТ) \СТОП \партия3 //ЕЩЕ КАРТУ \(цкарт=цкарт+1) \ЕСЛИ(цкарт=3) \ТО \(ц3=АПЕРО.случайно(13)) \ЕСЛИ(цкарт=4) \ТО \(ц4=АПЕРО.случайно(13)) \ЕСЛИ(цкарт=5) \ТО \(ц5=АПЕРО.случайно(13)) //СЧИТАЕМ СУММУ \(сумма=цц(ц1)+цц(ц2)+цц(ц3)+цц(ц4)+цц(ц5)-цкарт+5) \ЕСЛИ(ц1=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц2=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц3=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц4=13 И сумма>21) \ТО \(сумма=сумма-10) \ЕСЛИ(ц5=13 И сумма>21) \ТО \(сумма=сумма-10) \СТОП(партия2) \партия4 \ЕСЛИ(сумма>21) \ТО \СТОП(партиялуз) //СЧИТАЕМ СУММУ2 (ДИЛЕРА) \(сумма2=цц(цд1)+цц(цд2)+цц(цд3)+цц(цд4)+цц(цд5)-цдкарт+5) \ЕСЛИ(цд1=13 И сумма2>21) \ТО \(сумма2=сумма2-10) \ЕСЛИ(цд2=13 И сумма2>21) \ТО \(сумма2=сумма2-10) \ЕСЛИ(цд3=13 И сумма2>21) \ТО \(сумма2=сумма2-10) \ЕСЛИ(цд4=13 И сумма2>21) \ТО \(сумма2=сумма2-10) \ЕСЛИ(цд5=13 И сумма2>21) \ТО \(сумма2=сумма2-10) Ставка : \(ставка) $ Ваши карты : \(ци(ц1)) \(ци(ц2)) \(ци(ц3)) \(ци(ц4)) \(ци(ц5)) -> Очки: \(сумма) Карты дилера : \(ци(цд1)) \(ци(цд2)) \(ци(цд3)) \(ци(цд4)) \(ци(цд5)) -> Очки: \(сумма2) [hr] \ЕСЛИ(сумма2>16) \ТО \СТОП(партия42) \ЕСЛИ(цдкарт>4) \ТО \СТОП(партия42) \(партия41,<->) Нажмите эту кнопку, дилер добирает карты \СТОП \партия41 //Дилер берет карту \(цдкарт=цдкарт+1) \ЕСЛИ(цдкарт=3) \ТО \(цд3=АПЕРО.случайно(13)) \ЕСЛИ(цдкарт=4) \ТО \(цд4=АПЕРО.случайно(13)) \ЕСЛИ(цдкарт=5) \ТО \(цд5=АПЕРО.случайно(13)) \СТОП(партия4) \партия42 //17 или перебор (или 5 карт) //вы перебрали \ЕСЛИ(сумма>21) \ТО \СТОП(партиялуз) //дилер перебрал \ЕСЛИ(сумма2>21) \ТО \СТОП(партия43) //у вас меньше \ЕСЛИ(сумма<сумма2) \ТО \СТОП(партия44) \ЕСЛИ(сумма>сумма2) \ТО \СТОП(партия45) //ничья \(пар6,НИЧЬЯ) \СТОП \партия43 //дилер перебрал \(партиявин,ВЫИГРЫШ) Дилер перебрал \СТОП \партия44 \(партиялуз,ПРОИГРАЛ) У дилера больше очков \СТОП \партия45 \(партиявин,ВЫИГРЫШ) У вас больше очков \СТОП \партиялуз \(деньги=деньги-ставка) \ЕСЛИ(деньги<1) \ТО \СТОП (партияаут) \СТОП(пар6) \партиявин \(деньги=деньги+ставка) \СТОП(пар6) \партияаут Ух ! Вы умудрились проиграть все вчистую ! \ЕСЛИ(самолет=0) \ТО Хорошо хоть обратный билет есть \ИНАЧЕ Пора лететь домой. Пилот ! Заводи самолет. Не везет мне в картах нынче \(меню,ЛЕТИМ ДОМОЙ...) \СТОП //События: // 1 Пропали акции \с1 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(маклер=1) \ТО \СТОП(назадда2) На бирже случился финансовый обвал. Вы потеряли все акции (если они вообще у вас были). Если бы у вас был бы свой маклер - он бы этого не допустил. \(адидас=0) \(самсунг=0) \(газпром=0) \(роснано=0) \(хенесси=0) \(назадда2,ОК) \СТОП // 2 заболел \с2 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(врач=1) \ТО \СТОП(назадда2) \ЕСЛИ(лечение>0) \ТО \СТОП(назадда2) \(событие=(год-1987)*7942) \(лечение=АПЕРО.случайно(событие*2)+(событие)) Вот незадача ! Вы подцепили какую то гадость. Лечение обойдется в \(лечение) $. А был бы личный врач - он бы этого не допустил... Немедленно лечиться !!! \(_Болезнь=1) \(назадда3,ОК) \СТОП // 3 ограбили \с3 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(охрана=1) \ТО \СТОП(назадда2) \ЕСЛИ(деньги<1) \ТО \СТОП(назадда2) \ЕСЛИ(переход=1) ТО \(слово="! Не успели выйти за двери биржи, как на вас напали") \ИНАЧЕ \(слово="! Налетели ") Вас ограбили ! Посреди дня \(слово) двое в масках, отняли все что было, так еще и отпинали ! Кажется неплохо бы нанять охрану ... Храните деньги в сберегательной кассе ! \(деньги=0) \(здоровье=здоровье-2) \(назадда2,ОЙ) \СТОП // 4 засудили \с4 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(адвокат=1) \ТО \СТОП(назадда2) На вас подали в суд ! Вы обвиняетесь в мошенничестве. Да, это неправда, но вот защитить вас то некому... Наймите адвоката ! Без него вы отделались штрафом в 10.000 $ - это немного, но вот вашу репутацию это гнилое дело таки попортило... \(деньги=деньги-10000) \(репутация=репутация-3000) \(репутация=АПЕРО.отбросить(репутация*0.85)) \ЕСЛИ(репутация<1) \ТО \(репутация=0) \(назадда2,ОК) \СТОП // 5 банк погорел(если есть счет или ссуда) \с5 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(кредит=0 И ссуда=0 И счет=0) \ТО \СТОП(назадда2) \ЕСЛИ(кредит >44444) \ТО \СТОП(назадда2) Банк обанкротился ! Все сбережения утеряны. \ЕСЛИ(кредит>0) \ТО Зато кредит тоже сгорел ! \(ссудавремя=0) \(кредит=0) \(оплата=0) \(ссуда=0) \(счет=0) \(назадда2,ОК) \СТОП // 6 минус кафе \с6 \(АПЕРО.блок.выравнивание текста="по центру") \(слово2="Увы...") \ЕСЛИ(кафе=0) \ТО \СТОП(назадда2) \ИНАЧЕ \(кафе=0) \ЕСЛИ(адвокат=1) \ТО \(событие=АПЕРО.случайно(3)) \ИНАЧЕ \(событие=0) \ЕСЛИ(адвокат=1) \ТО \(слово2="И адвокат ничего не смог сделать с этим ....") \ЕСЛИ(событие=2) \ТО \(слово="хотели снести") \(слово2="Но в этот раз ваш адвокат отстоял ваши права") \(кафе=1) \ИНАЧЕ \(слово="снесли") Ваше кафе \(слово) за то, что оно было построено в неположеном месте. \(слово2) \ЕСЛИ(событие=2) \ТО \(назадда2,НУ СЛАВА БОГУ) \ИНАЧЕ \(назадда2,КОЗЛЫ !) \СТОП // 7 минус ресторан \с7 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(ресторан=0) \ТО \СТОП(назадда2) \(ресторан=0) В вашем ресторане покушали местные бандиты. Им не понравилось. Очень. Разнесли все, что можно. До фундамента. В каком мире живем, ужас ! \(назадда2,КАК ТАК ТО ?) \СТОП // 8 минус гипермаркет \с8 \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ(гипермаркет=0) \ТО \СТОП(назадда2) \(гипермаркет=0) \(слово="Надо бы адвоката нанять ...") \ЕСЛИ(адвокат=1) \ТО \(событие=АПЕРО.случайно(2)) \ИНАЧЕ \(событие=0) \ЕСЛИ(адвокат=1) \ТО \(слово="Ваш адвокат пытался оспорить, но ему не повезло ...") \ЕСЛИ(событие=2) \ТО\(слово="Но в этот раз ваш адвокат нашел выход. Так что гипермаркет остается вашим") \(гипермаркет=1) Предыдущий владелец гипермаркета нашел лазейку в договоре купли. Теперь ваш гипермаркет должен стать его. Без компенсации. \(слово) \ЕСЛИ(событие=2) \ТО \(назадда2,НУ СЛАВА БОГУ) \ИНАЧЕ \(назадда2,КОЗЛИНА !) \СТОП // 9 минус агенство \с9 \ЕСЛИ(агенство=0) \ТО \СТОП(назадда2) \ЕСЛИ(АПЕРО.случайно(2)=2) \ТО \СТОП(назадда2) \(агенство=0) Ваше рекламное агенство сгорело. Опять эти идиоты курили !!! А может его сожгли конкуренты.... они могли хотя бы извиниться ? Да уж ... Бывает ... \(назадда2,БЫВАЕТ ???) \СТОП // 10минус завод \с10 \ЕСЛИ(завод=0) \ТО \СТОП(назадда2) \ЕСЛИ(АПЕРО.случайно(4)=2) \ТО \СТОП(назадда2) \(завод=0) На вашем заводе произошел сильный взрыв. По всем признакам - диверсия конкурентов. Конечно, ведь одноразовые стаканы - стратегически важный продукт для страны. Или нет ? В любом случае от завода мало что осталось... Не принимайте на свой счет, с каждым бывает. \(назадда2,ОХРЕНЕТЬ....) \СТОП // 11покатал детишек+300 \с11 \ЕСЛИ(машина=0) \ТО \СТОП(назадда2) \(репутация=репутация+300) Вы покатали по городу ветеранов на своей шикарной машинке. Об этом напечатали в газете \(назадда2,Это полезно для моей репутации) \СТОП // 12спас на яхте людей+2к \с12 \ЕСЛИ(яхта=0) \ТО \СТОП(назадда2) \(репутация=репутация+1700) Во время вашей прогулки на яхте вы спасли двоих тонущих людей. Это показывали в новостях \(назадда2,Это полезно для моей репутации) \СТОП // 13участвовал в тушении пожара с вертолета +5к \с13 \ЕСЛИ(вертолет=0) \ТО \СТОП(назадда2) \(репутация=репутация+3400) Ваш вертолет принял участие в тушении лесных пожаров - причем весьма успешно. Это показали по телевизору \(назадда2,И это очень полезно для моей репутации) \СТОП // 14самолет привез припасы голодающим+20к \с14 \ЕСЛИ(самолет=0) \ТО \СТОП(назадда2) \(репутация=репутация+8000) Ва самолет был отправлен в голодающие страны с продуктами на борту. Об этом говорили все ! \(назадда2,Это капец как полезно для моей репутации !) \СТОП // 15болезнь возрастная \с15 \ЕСЛИ(_Опасность>0) \ТО \СТОП(назадда3) \ЕСЛИ(здоровье>80) \ТО \СТОП(назадда3) [hr] \ЕСЛИ(врач=1) \ТО \(слово=", и личный врач здесь уже не поможет, нужна больница.") \ИНАЧЕ \(слово=".") \ЕСЛИ(_Болезнь=0) \ТО Вы очень серьезно приболели\(слово) Если вы не вылечитесь за 2 месяца - вы погибнете \ИНАЧЕ Вы получили осложнение, так как вовремя не вылечились. Теперь лечение обязательно ! Если вы не вылечите его за 2 месяца - вам хана. Медлить нельзя ! \(_Опасность=1) \(ап=АПЕРО.отбросить(ап*1.2)) \(лечение=лечение+АПЕРО.случайно(ап)+ап) \ЕСЛИ(_Болезнь=1) \ТО \(_Болезнь=0) \(слово="Теперь ваше") \ИНАЧЕ \(слово="Ваше") \(слово) лечение обойдется вам в \(лечение) $, бесплатная медицина тут бессильна.... [hr] \(назадда3,ОК) \СТОП \выборы Добро пожаловать ! Выборы проходят в сентябре каждого года \ЕСЛИ(бывы=год) \ТО ВЫБОРЫ ЗАВЕРШЕНЫ \ИНАЧЕ \(выборы4, НАЧАТЬ ВЫБОРЫ !) \(выборы1, УЗНАТЬ СВОИ ШАНСЫ) \(меню, ПОЖАЛУЙ Я ПОПОЗЖЕ ЗАЙДУ) \СТОП \выборы1 \(событие=ранг*4000) \ЕСЛИ(деньги=0) \ТО Ваши наличные - 0 $ \ИНАЧЕ Ваши наличные - \(деньги) $ Вы можете нанять людей и провести статистическое исследование. Попросту - опрос. Это обойдется вам всего в \(событие) $ \ЕСЛИ(деньги<событие)\ТО Не хватает денег \ИНАЧЕ \(выборы2,ДАВАЙТЕ) \ЕСЛИ(деньги<событие)\ТО \(меню,ПОЙДУ КОПИТЬ) \ИНАЧЕ \(выборы,НЕ СЕЙЧАС) \СТОП \выборы2 \(деньги=деньги-событие) \(слово2="где-то") \(событие=АПЕРО.отбросить((репутация/нран(ранг))*40)) \ЕСЛИ(событие>99) \ТО \(событие=99) \(слово2="все") \ЕСЛИ(событие=0) \ТО \(слово = "") \(слово2="нулевые") \ИНАЧЕ \(слово=" %") \(вы1=нран(ранг)) \(вы2=АПЕРО.случайно(ранг*999)) По результатам нашего опроса за вас готово проголосовать до \(репутация+вы2) человек включительно. За вашего главного конкурента - \(вы1+вы2) человек. Сколько из них пойдет на выборы - непонятно. Народ вообще ленивый. Как повезет. Может почти все придут. Может двое из тысячи. Оценивайте сами. Мы считаем что шансы - \(слово2) \(событие) \(слово) что вы победите. А так - оценивайте сами, участвовать или нет. \(выборы,ПОНЯТНО) \СТОП \выборы3 \ЕСЛИ(месяц>9) \ТО \(слово="Опоздал ты. Приходи в следующем году") \ИНАЧЕ \(слово="Потерпи немного. Не пропусти ! С Е Н Т Я Б Р Ь ! Запомнил ?") Глухой что ли ? Сказали же - в сентябре ! \(слово) \(выборы,ЛАДНО...) \СТОП \выборы4 \ЕСЛИ(_Сентябрь=0) \ТО \СТОП(выборы3) \ЕСЛИ(год=бывы) \ТО \СТОП(выборы0) \(цена=((ранг*2)*10000)-10000) \ЕСЛИ(деньги=0) \ТО Ваши наличные - 0 $ \ИНАЧЕ Ваши наличные - \(деньги) $ Открыта регистрация на пост \(ран(ранг+1)) Поучавствовать в выборах стоит \(цена) $ \ЕСЛИ(деньги<цена) \ТО \(выборы,ЧЕ ТО НЕ ХВАТАЕТ ДЕНЕГ) \ИНАЧЕ \(выборы5,Я УЧАСТВУЮ !) \ЕСЛИ(деньги>=цена) \ТО \(выборы,Я ПОДУМАЮ) \СТОП \выборы5 \(деньги=деньги-цена) \(событие=нран(ранг)) \(вы1=АПЕРО.случайно(репутация)) \(вы2=АПЕРО.случайно(событие)) \(вы3=АПЕРО.случайно(событие)) \(вы4=АПЕРО.случайно(событие)) \(вы5=АПЕРО.случайно(событие)) Результаты голосования : [hr] За вас в итоге проголосовало \(выборы6,????) человек За кандидата 2 проголосовало \(вы2) человек За кандидата 3 проголосовало \(вы3) человек За кандидата 4 проголосовало \(вы4) человек За кандидата 5 проголосовало \(вы5) человек [hr] \ЕСЛИ(ранг=1) \ТО (нажми на знаки вопроса, чтобы узнать результат) \СТОП \выборы6 Результаты голосования : [hr] За вас в итоге проголосовало \(вы1) человек За кандидата 2 проголосовало \(вы2) человек За кандидата 3 проголосовало \(вы3) человек За кандидата 4 проголосовало \(вы4) человек За кандидата 5 проголосовало \(вы5) человек [hr] \(бывы=год) \(выборы7,ОК) \СТОП \выборы7 \ЕСЛИ(вы1>вы2 И вы1>вы3 И вы1>вы4 И вы1>вы5 ) \ТО \СТОП(выборы8) НУ что же, в следующем году ждем вас снова ! Постарайтесь чтобы о вас узнало побольше людей - так вы повысите шансы на победу \(выборы,ОК) \СТОП \выборы8 \(ранг=ранг+1) \ЕСЛИ(ранг=8) \ТО \СТОП(конец3) Наши поздравления ! За вас проголосовало больше всего человек ! Вы поднялись до \(ран(ранг)) ! \(репутация=АПЕРО.отбросить(репутация*0.69)) \ЕСЛИ(репутация<1) \ТО \(репутация=1) \(выборы,КРУТЯК !) \СТОП \конецигры Это - логическое завершение игры. Вы стали президентом в возрасте \(возраст) лет \(вы1=АПЕРО.отбросить((96-возраст)*0.52)) \ЕСЛИ(вы1<1) \ТО \(вы1=1) \(вы2=1) \(вы5=деньги) \ЕСЛИ(вы5<0) \то \(вы5=0) \ЦИКЛ (вы5>9) \СДЕЛАТЬ \(вы5=АПЕРО.отбросить(вы5/10)) \(вы2=вы2+1) \(вы3=кафе+ресторан+завод+агенство+фабрика+гипермаркет+1) \(вы4=машина+квартира+яхта+вертолет+самолет+1) Возраст : \(возраст) лет : +\(вы1) балл(ов) Наличные : \(деньги) $ : +\(вы2) балл(ов) \ЕСЛИ(вы3=1) \ТО \(слово="Отсутствует") \ИНАЧЕ \(слово="шт") \ЕСЛИ(вы4=1) \ТО \(слово2="Отсутствует") \ИНАЧЕ \(слово2="шт") \(вы5=АПЕРО.отбросить(здоровье*0.69)) Бизнес : \(вы3-1) \(слово) : +\(вы3) балл(ов) Имущество : \(вы4-1) \(слово2) : +\(вы4) балл(ов) Здоровье : \(здоровье) % : +\(вы5) балл(ов) ИТОГО : Вы набрали \(вы1+вы2+вы3+вы4+вы5) баллов. Никакой таблицы рекордов нет. Можете похвастать друзьям. Спасибо за игру ! \(АПЕРО.конец=1) \СТОП \конец1 //Кончились денежки \(_Банкрот=0) Увы, вы не успели разобраться с долгами и добрые коллекторы поломали ваши косточки, а ведь вам было всего \(возраст) лет ... \(АПЕРО.конец=1) \СТОП \конец2 \(_Опасность=0) Вы погибли от вовремя не вылеченной болезни ... Так жаль, ведь вам было всего \(возраст) лет... \(АПЕРО.конец=1) \СТОП \конец3 ПОЗДРАВЛЯЕМ ! ВЫ ДОБИЛИСЬ ЦЕЛИ ИГРЫ ! ТЕПЕРЬ ВЫ - ПРЕЗИДЕНТ ! (Тут раздаются аплодисменты и хлопают салюты) ЕСЛИ ХОТИТЕ - МОЖЕТЕ ПРОДОЛЖИТЬ ИГРУ (Правда цели уже больше не будет) \(меню,ПРОДОЛЖИТЬ) \(конецигры,ВЫВЕСТИ РЕЗУЛЬТАТЫ) \СТОП \описаниеигры Это упрощенная экономическая игра, своеобразный клон (правда сильно измененный ) старенькой игрушки под DOS. Основные правила : умейте зарабатывать ! Играйте на Бирже - это основной заработок в игре. На бирже всё просто - торгуйте акциями : покупайте подешевле, продавайте подороже. Вы всегда покупаете-продаете максимально возможное количество акций, обычно до 2-3 тысяч штук. Так же вы можете вложиться в бизнес. Или же дать ссуду банку. Правда банкиры жмотьё то еще, и многого не ждите. Если припрет с деньгами - можете взять кредит там же, но будьте внимательны ! Если у вас на конец месяца есть долги (отрицательный баланс) то вы обьявляетесь банкротом. Если на конец третьего месяца вашего бакротства вы не рассчитаетесь с долгами - вы проиграете. Всё. Исследуйте дальше сами. Так интереснее. P.S. Не брезгуйте наймом персонала - от него зависит спокойствие вашей жизни. И здоровье. Удачи на выборах !!! P.P.S. Это не баг - это фича ! \(датаап,ПОЕХАЛИ!) \СТОП