(if: $YouName is 0)[(set: $YouName to "Аноним")]
(color: lime)[Привет, (print: $YouName)!
Для тебя есть работа. Нужен сценарий классической истории а-ля "рыцарь спасает принцессу". Очень срочно. Возьми стандартный сюжет, добавь пару изюминок и присылай мне. К понедельнику жду черновик.
Рассчитываю на тебя!]
[[Дальше->План работы]]*Мысли вслух*
*Времени мало! Я возьму свою старую пьессу в 3-х актах и поменяю некоторые делали. К понедельнику успею сделать черновик.*
[[Ничего не понятно, давайте сначала->Правила игры]]
[[Приступить к работе->Акт 1. Перезагрузка]]
{
(set: $Act to 1)
(set: $HeroName to "")
(set: $ActOk to true)
(set: $AllItems to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов"))
(set: $FreeItems to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов"))
(set: $AllPlaces to (a: "Рынок", "Таверна", "Площадь", "Тюрьма"))
(set: $FreePlaces to (a: "Рынок", "Таверна", "Площадь", "Тюрьма"))
(set: $ArmoreItem to "")
(set: $StorageItem to "")
(set: $BountyItem to "")
(set: $BuyItem to "")
(set: $FirstPlace to "")
(set: $NightPlace to "")
(set: $LoseBuy to "")
}{
(display: "Акт 2. Сброс")
}*Ко второму акту добавлю:*
*Новые пердметы: *(color: yellow)[Лесные ягоды], (color: yellow)[Верёвка]
*Новые места: *(color: yellow)[Лес], (color: yellow)[Кладбище]
*Персонажи: *(color: yellow)[Конь], (color: yellow)[Волк], (color: yellow)[Баба-Яга], (color: yellow)[Юная дева]
[[Полный вперёд->Акт 2. Выбор]]{
(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _firstItem to (nth: 1, ...$FreeItems))
(for: each _item, ...$FreeItems)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(set: $FreeItems to (find: _freeitem where _freeitem is not _item, ...$FreeItems))
(if: _currentItem is not "")[(set: $FreeItems to (a: ...$FreeItems,_currentItem))]
(if: _returnVar is "ArmoreItem")[(set: $ArmoreItem to _item)]
(else-if: _returnVar is "StorageItem")[(set: $StorageItem to _item)]
(else-if: _returnVar is "BountyItem")[(set: $BountyItem to _item)]
(else-if: _returnVar is "BuyItem")[(set: $BuyItem to _item)]
(else-if: _returnVar is "TroubleItem")[(set: $TroubleItem to _item)]
(else-if: _returnVar is "FoundItem")[(set: $FoundItem to _item)]
(goto: _returnPage)
]
]
)}{
(set: _firstItem to (nth: 1, ...$AllItems))
(for: each _item, ...$AllItems)
[
(if: _item is not _firstItem)[(print: ", ")]
(if: $FreeItems contains _item)[(colour: yellow)[(print: _item)]]
(else:)[(colour: gray)[(print: "~~" + _item + "~~")]]
]
}{
(set: _firstItem to (nth: 1, ...$AllPlaces))
(for: each _item, ...$AllPlaces)
[
(if: _item is not _firstItem)[(print: ", ")]
(if: $FreePlaces contains _item)[(colour: yellow)[(print: _item)]]
(else:)[(colour: gray)[(print: "~~" + _item + "~~")]]
]
}{
(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _firstItem to (nth: 1, ...$FreePlaces))
(for: each _item, ...$FreePlaces)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(set: $FreePlaces to (find: _freeitem where _freeitem is not _item, ...$FreePlaces))
(if: _currentItem is not "")[(set: $FreePlaces to (a: ...$FreePlaces,_currentItem))]
(if: _returnVar is "FirstPlace")[(set: $FirstPlace to _item)]
(else-if: _returnVar is "NightPlace")[(set: $NightPlace to _item)]
(else-if: _returnVar is "WayPlace")[(set: $WayPlace to _item)]
(else-if: _returnVar is "SecretPlace")[(set: $SecretPlace to _item)]
(goto: _returnPage)
]
]
)}{
(if: $HeroName is 0)[(set: $HeroName to "")]
(set: $ReturnPage to "Акт 1. Выбор")
(set: _armoreText to (lower-case: $ArmoreItem))
(set: _storageText to (lower-case: $StorageItem))
(set: _firstPlaceText to (lower-case: $FirstPlace))
(set: _bountyCount to (cond: $BountyItem is "", "", " 10 000 шт."))
(set: _bountyText to (lower-case: $BountyItem) + _bountyCount)
(set: _buyText to (lower-case: $BuyItem))
(set: _nightPlaceText to (lower-case: $NightPlace))
(set: _allSelected to ($ArmoreItem is not "") and ($StorageItem is not "") and ($FirstPlace is not "") and ($BountyItem is not "") and ($BuyItem is not "") and ($NightPlace is not "") and ($HeroName is not ""))
}*Для первого акта я использую предметы:*
(display: "Все предметы")
*И места:*
(display: "Все места")
---
[[Героя зовут: ->Выбор имени в акте]](print: $HeroName)
|armoreLink>[Что на нём надето: ]|armore>[(print: _armoreText)]
|storageLink>[Что у него с собой: ]|storage>[(print: _storageText)]
|firstPlaceLink>[Куда он пошёл: ]|firstPlace>[(print: _firstPlaceText)]
|bountyLink>[За подвиг прелагают награду: ]|bounty>[(print: _bountyText)]
|buyLink>[Чем герой снарядился в дорогу: ]|buy>[(print: _buyText)]
|nightPlaceLink>[Где заночевал перед дорогой: ]|nightPlace>[(print: _nightPlaceText)]
---
(if: _allSelected)[[Посмотрим что поучилось->Акт 1. Вычитка]]
{
(click: ?armoreLink)[{
(set: $ReturnVar to "ArmoreItem")
(set: $CurrentItem to $ArmoreItem)
(replace: ?armore)[(display: "Выбор предмета в тексте")]
}]
(click: ?storageLink)[{
(set: $ReturnVar to "StorageItem")
(set: $CurrentItem to $StorageItem)
(replace: ?storage)[(display: "Выбор предмета в тексте")]
}]
(click: ?firstPlaceLink)[{
(set: $ReturnVar to "FirstPlace")
(set: $CurrentItem to $FirstPlace)
(replace: ?firstPlace)[(display: "Выбор места в тексте")]
}]
(click: ?bountyLink)[{
(set: $ReturnVar to "BountyItem")
(set: $CurrentItem to $BountyItem)
(replace: ?bounty)[(display: "Выбор предмета в тексте")]
}]
(click: ?buyLink)[{
(set: $ReturnVar to "BuyItem")
(set: $CurrentItem to $BuyItem)
(replace: ?buy)[(display: "Выбор предмета в тексте")]
}]
(click: ?nightPlaceLink)[{
(set: $ReturnVar to "NightPlace")
(set: $CurrentItem to $NightPlace)
(replace: ?nightPlace)[(display: "Выбор места в тексте")]
}]
}
(if: $HeroName is "")[(set: $HeroName to "Крутобой")]
(set: $HeroName to (prompt: "Имя героя:", $HeroName))
(if: $HeroName is "")[(go-to: "Выбор имени в акте")]
(else:)[(go-to: "Акт 1. Выбор")]*Немного фантазии, немного деталей и вот что вышло:*
(display: "Акт 1. Текст")
[[Надо кое-что исправить...->Акт 1. Выбор]]
(if: $ActOk)[[Перейти ко второму акту->Акт 2. Вступительное слово]](display: "Акт 1. Сброс")
(display: "Акт 1. Выбор")(display: "Акт 1-1. Вычитка")(if: $ActOk)[(print: "\n\n")(display: "Акт 1-2. Вычитка")](if: $ActOk)[(print: "\n\n")(display: "Акт 1-3. Вычитка")]{
(display: "Акт 1. Сброс")
(display: "Акт 2. Сброс")
(goto: "Акт 2. Выбор")
}{
[(display:"Акт 2. Сброс")]
}[(display:"Акт 2. Выбор")]
{
(if: $HeroName is 0)[(set: $HeroName to "Анонимус")]
(set: $ActOk to true)
(set: _armoreText to $ArmoreItem of
(dm:
"Золотой", "один золотой. Монета довольно крупная, но диаметра едва хватает, чтобы соблюсти приличия.",
"Доспех", "старый потёртый доспех, доставшийся в наследство от деда.",
"Меч", "меч. Да, лишь старый оцовский меч. Всё остальное украли грабители пока герой спал.",
"Свиной окорок", "лишь свиной окорок на верёвочке. Да, в семье героя были странные обычаи, ему ещё предстоит привыкнуть к цивилизации.",
"Книга стихов", "бумажный доспех, склееный из страниц поэтического сборника. На груди героя можно прочесть: \"Наша Таня громко плачет\" а сзади \"Я помню чудное мгновенье\". Да, " + $HeroName + " настроен весьма романтично.",
"Плащ", "обычный серый дорожный плащ.",
"Верёвка", "то чего у него не должно быть по сценарию.",
"Лесные ягоды", "то чего у него не должно быть по сценарию.",
"", "чёрти что и сбоку бантик."
)
)
(set: _storageText to $StorageItem of
(dm:
"Золотой", "один золотой.",
"Доспех", "старый дедовский доспех.",
"Меч", "видавший виды отцовский меч.",
"Свиной окорок", "свиной окорок.",
"Книга стихов", "сборник стихов.",
"Плащ", "дорожный плащ на случай непогоды.",
"Верёвка", "то чего у него не должно быть по сценарию.",
"Лесные ягоды", "то чего у него не должно быть по сценарию.",
"", "всякая фигня."
)
)
**Акт I**
}
(print: $HeroName) прибывает в столицу. Наш искатель приключений беден, но смел, горяч и мечтает проявить себя. На нём лишь (colour: yellow)[(print: _armoreText)] На дне заплечного мешка лежит (colour: yellow)[(print: _storageText)]{
(if: $ArmoreItem is "Меч")[(print: "\n*Нет, погодите-ка! Если всё украли грабители, откуда у него вещи?* ")(set: $ActOk to false)]}{
(set: $ActOk to true)
(set: _firstPlaceReaction to $ArmoreItem of
(dm:
"Золотой", "люди восхищённо провожают взглядом " + $HeroName + ", ведь он одет по последней моде.",
"Доспех", "никто не обращает внимания на героя в потрёпанных латах.",
"Свиной окорок", "люди шарахаются от необычного путника, они к такому не привыкли.",
"Книга стихов", "люди удивлённо посматривают на героя, обёрнутого бумагой.",
"Плащ", "никто не обращает внимания на героя в скромном сером плаще.",
"", "такие дела"
)
)
(set: _firstPlaceText to $FirstPlace of
(dm:
"Рынок", "рынок. На рынке шумно и полно народу, " + _firstPlaceReaction,
"Таверна", "таверну. Внутри довольно тихо, за столами лишь несколько человек, " + _firstPlaceReaction,
"Площадь", "площадь. На площади многолюдно, " + _firstPlaceReaction,
"Тюрьма", "местную тюрьму. В саму тюрьму героя не пускают. Он довольствуется экскурсией по окрестностям, где " + _firstPlaceReaction,
"", "куда то-то там, где очень скучно" + _firstPlaceReaction
)
)
(set: _firstPlaceExitText to $FirstPlace of
(dm:
"Рынок", "На выходе с рынка",
"Таверна", "Возле таверны",
"Площадь", "На площади",
"Тюрьма", "Недалеко от тюрьмы",
"", "*Где-то там*"
)
)
(set: _bountyText to $BountyItem of
(dm:
"Золотой", "10 000 золотых. Хватит и на гулянки и на сытую старость!",
"Доспех", "10 000 доспехов, что остались после перевооружения армии.",
"Меч", "10 000 мечей, что остались после перевооружения армии.",
"Свиной окорок", "10 000 свиных окороков. Отважный герой сможет устроить пир на весь мир!",
"Книга стихов", "бесплатно и без регистрации премиум доступ в королевскую библиотеку, где сможет прочесть более 10 000 баллад и стихов. Спешите, предложение ограничено!",
"Плащ", "10 000 плащей, кокошников, корсетов и готовых платьев. *Король развёлся и ему мозолят глаза вещички бывшей*.",
"", "что-то очень ценное"
)
)
(set: _arestPlace to (($FirstPlace is "Площадь") or ($FirstPlace is "Тюрьма")))
(set: _arest to (($ArmoreItem is "Свиной окорок") and _arestPlace))
}(print: $HeroName) раньше не был в крупных городах. Первым делом он решает посетить (colour: yellow)(print: _firstPlaceText)
(if: _arest)[(print:"В таком месте герою конечно же не удаётся скрыться от городской стражи и его бросают его в темницу за неподобащий вид. *Ох, не думаю, что его скоро выпустят.*")(set: $ActOk to false)]
(else:)[(colour: yellow)[(print: _firstPlaceExitText)] (print: $HeroName) вcтречает глашатого. Глашатай выкрикивает королевский указ:
- Всем-всем-всем! Король назначил награду за убийство дракона и освобождение принцессы! Герой получит (colour: yellow)[(print: _bountyText)]]{
(set: $ActOk to true)
(set: $LoseStorage to "")
(set: $HasSleep to false)
(set: _buyPreview to $StorageItem of
(dm:
"Золотой", "Жалко расставаться с последними деньгами, но что делать? ",
"Меч", "Однако, денег нет, придётся их где-то раздобыть. ",
"Доспех", "Однако, денег нет, придётся их где-то раздобыть. ",
"Свиной окорок", "Однако, денег нет, придётся их где-то раздобыть. ",
"Книга стихов", "Однако, денег нет, придётся их где-то раздобыть. ",
"Плащ", "Однако, денег нет, придётся их где-то раздобыть. ",
"", "такие дела"
)
)
(set: _workSale to "Делать нечего, пришлось пойти на рынок и продать плащ. ")
(set: _workFear to "Весь день " + $HeroName + " подхододит к прохожим, рассказывет про тяжкую судьбу бродячего героя, просит помочь со снаряжением. Видя наряд из свинного окорока на верёвочке, кто-то в ужасе бежит прочь, кто-то норовит дать пинка. Но несколько сердобольных граждан одаривают героя монетами. ")
(set: _workPoet to "Весь день " + $HeroName + " декламирует стихи и ценители искусства бросают к его ногам медяки. ")
(set: _workOther to "Весь день " + $HeroName + " метёт дворы, чистит обувь, колет дрова и выгуливает собак. ")
(set: _buyText to $BuyItem of
(dm:
"Золотой", "Все вырученные деньги " + $HeroName + " меняет на один золотой. \"Моя прелесть!\" - шепчет " + $HeroName + ", целует монету и крепко сжимает в кулаке.",
"Доспех", "На все деньги " + $HeroName + " покупает видавший виды доспех.",
"Меч", "На все деньги " + $HeroName + " покупает простой меч.",
"Свиной окорок", "На все деньги " + $HeroName + " покупает вкуснейший свиной окорок.",
"Книга стихов", "На все деньги " + $HeroName + " покупает толстый поэтический сборник. Старые баллады всегда вдохновляли его на подвиги.",
"Плащ", "На все деньги " + $HeroName + " покупает тёплый плащ.",
"", "В итоге, герой ничего не покупает."
)
)
(set: _sleepItem to $StorageItem of
(dm:
"Золотой", "единственный золотой и у неё получается",
"Доспех", "потрёпанные латы",
"Меч", "старенький меч",
"Свиной окорок", "свиной окорок",
"Книга стихов", "книгу стихов",
"Плащ", "плащ и в конце концов крадёт",
"", "В итоге, герой ничего не покупает"
)
)
(set: _nightPlaceText to $NightPlace of
(dm:
"Рынок", "отправиться ночевать на рынок. " + $HeroName + " залезает в пустую корзину и спит до самого утра. Ему снится невидимая рука рынка, которая пытается украсть его " + _sleepItem + ".",
"Таверна", "отправиться в таверну. Хозяин не хочет принимать на постой бесплатно, но для борца с драконами делает исключение. " + $HeroName + " спит всю ночь как младенец.",
"Площадь", "переждать ночь на площади. Увы, на площади нет укромных мест. Чтобы не попадаться на глаза ночной страже " + $HeroName + " забирается на памятник королю. " + $HeroName + " устраивается на каменных плечах, и спит. Ему снятся молодые годы, когда он мог сидеть на шее у родителей.",
"Тюрьма", "пошататься возле тюрьмы, пока не его не заберёт стража за бродяжничество. Так " + $HeroName + " обретает ночлег на следущие 15 суток.",
"", " ночует под открытым небом."
)
)
(set: _finalArest to "*Мда, я забыл... наш герой носит свиной окорок на верёвочке. Кто ж его такого выпустит?*")
(set: _finalPrison to "Небритый, заматеревший, со свежей наколкой на плече, герой выходит из темницы. Он полон мрачной решимости кого-нибудь убить. Например, дракона. почему бы и не дракона?")
(set: _finalCold to "С утра, продрогший, почти не спавший, на негнущихся ногах, " + $HeroName + " отправляется в путь...")
(set: _finalCloak to "Тёплый плащ помог не замёрзнуть ночью. " + $HeroName + " просыпается в отличном настроении, готовый к подвигам.")
(set: _finalGood to "Выспавшийся и отдохнувший герой отправляется в путь, навстречу подвигам.")
(set: _hasCloak to (($ArmoreItem is "Плащ") or ($BuyItem is "Плащ")))
(if: $StorageItem is "Плащ")[(set: $LoseStorage to "Плащ")]
(if: $StorageItem is "Золотой")[(set: $LoseStorage to "Золотой")]
}(print: $HeroName) ликует! Это его шанс. Он говорит с глашатаем, узнаёт, где живёт дракон, а также, насколько дракон свиреп и сколько рыцарей эта тварь уже упокоила.
(print: $HeroName) ни капли не напуган, опасность его лишь подзадоривает. Конечно, к походу на дракона нужно как следует снарядиться. {
(colour: yellow)[(print: _buyPreview)]
(if: $StorageItem is "Золотой")[(print:"")]
(else-if: $StorageItem is "Плащ")
[(colour: yellow)[(print:_workSale)]]
(else-if: $ArmoreItem is "Свиной окорок")[(colour: yellow)[(print:_workFear)]]
(else-if: (($ArmoreItem is "Книга стихов") or ($StorageItem is "Книга стихов")))[(colour: yellow)[(print:_workPoet)]]
(else:)[(colour: yellow)[(print:_workOther)]]
(colour: yellow)[(print: _buyText)]
}
Тем временем, уже темнет. Герой решает (colour: yellow)[(print: _nightPlaceText)]
{
(if: (($NightPlace is "Тюрьма") and ($ArmoreItem is "Свиной окорок")))[(colour: yellow)[(print:_finalArest)](set: $ActOk to false)]
(else-if: $NightPlace is "Тюрьма")
[(colour: yellow)[(print: _finalPrison)](set: $HasSleep to true)]
(else-if: $NightPlace is "Таверна")[(colour: yellow)
[(print: _finalGood)](set: $HasSleep to true)]
(else-if: _hasCloak)
[(colour: yellow)[(print: _finalCloak)](set: $HasSleep to true)]
(else:)[(colour: yellow)[(print: _finalCold)]]
}{
(if: $HeroName is 0)[(set: $HeroName to "Анонимус")]
(set: $ReturnPage to "Акт 2. Выбор")
(set: _allSelected to ($WayPlace is not "") and ($WhoChar is not "") and ($TroubleItem is not "") and ($SecretPlace is not "") and ($FoundItem is not "") and ($ForceChar is not ""))
(if: $Act < 2)
[(set: $Act to 2)(save-game: "Drop act 2")]
}*Для второго акта я использую предметы:*
(display: "Все предметы")
*Места:*
(display: "Все места")
*Персонажи:*
(display: "Все персонажи")
---
|wayLink>[Путь героя лежит через: ]|way>[(print: (lower-case: $WayPlace))]
|whoLink>[Кого он выручил из беды: ]|who>[(print: (lower-case: $WhoChar))]
|troubleLink>[Что было причиной беды: ]|trouble>[(print: (lower-case: $TroubleItem))]
|secretLink>[Где герой обрёл силу: ]|secret>[(print: (lower-case: $SecretPlace))]
|foundLink>[Что нашёл герой: ]|found>[(print: (lower-case: $FoundItem))]
|forceLink>[Чью силу приобрёл герой: ]|force>[(print: (lower-case: $ForceChar))]
---
(link: "Вернуться в первый акт")[(display: "Акт 2. Отмена")(go-to: "Акт 1. Выбор")]
(if: _allSelected)[[Посмотрим что поучилось->Акт 2. Вычитка]]
{
(click: ?wayLink)[{
(set: $ReturnVar to "WayPlace")
(set: $CurrentItem to $WayPlace)
(replace: ?way)[(display: "Выбор места в тексте")]
}]
(click: ?whoLink)[{
(set: $ReturnVar to "WhoChar")
(set: $CurrentItem to $WhoChar)
(replace: ?who)[(display: "Выбор персонажа в тексте")]
}]
(click: ?troubleLink)[{
(set: $ReturnVar to "TroubleItem")
(set: $CurrentItem to $TroubleItem)
(replace: ?trouble)[(display: "Выбор предмета в тексте")]
}]
(click: ?secretLink)[{
(set: $ReturnVar to "SecretPlace")
(set: $CurrentItem to $SecretPlace)
(replace: ?secret)[(display: "Выбор места в тексте")]
}]
(click: ?foundLink)[{
(set: $ReturnVar to "FoundItem")
(set: $CurrentItem to $FoundItem)
(replace: ?found)[(display: "Выбор предмета в тексте")]
}]
(click: ?forceLink)[{
(set: $ReturnVar to "ForceChar")
(set: $CurrentItem to $ForceChar)
(replace: ?force)[(display: "Выбор персонажа в тексте")]
}]
}
{
(set: $ActOk to true)
(display: "Акт 2. Отмена")
(set: $Act to 2)
(set: _newItems to (a: "Верёвка", "Лесные ягоды"))
(set: $AllItems to (a: ...$AllItems, ..._newItems))
(set: $FreeItems to (a: ..._newItems,...$FreeItems))
(set: _newPlaces to (a: "Кладбище", "Лес"))
(set: $AllPlaces to (a: ...$AllPlaces, ..._newPlaces))
(set: $FreePlaces to (a: ..._newPlaces, ...$FreePlaces))
(set: $AllCharacters to (a: "Баба-Яга", "Волк", "Конь", "Юная дева"))
(set: $FreeCharacters to (a: "Баба-Яга", "Волк", "Конь", "Юная дева"))
(set: $WayPlace to "")
(set: $WhoChar to "")
(set: $TroubleItem to "")
(set: $SecretPlace to "")
(set: $FoundItem to "")
(set: $ForceChar to "")
}*Немного фантазии, немного деталей и вот что вышло:*
(display: "Акт 2. Текст")
[[Надо кое-что подправить...->Акт 2. Выбор]]
(link: "Надо переделать первый акт")[(display: "Акт 2. Отмена")(go-to: "Акт 1. Выбор")]
(if: $ActOk)[[Перейти к третьему акту->Акт 3. Вступительное слово]]
{
(set: _firstItem to (nth: 1, ...$AllCharacters))
(for: each _item, ...$AllCharacters)
[
(if: _item is not _firstItem)[(print: ", ")]
(if: $FreeCharacters contains _item)[(colour: yellow)[(print: _item)]]
(else:)[(colour: gray)[(print: "~~" + _item + "~~")]]
]
}{
(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _firstItem to (nth: 1, ...$FreeCharacters))
(for: each _item, ...$FreeCharacters)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(set: $FreeCharacters to (find: _freeitem where _freeitem is not _item, ...$FreeCharacters))
(if: _currentItem is not "")[(set: $FreeCharacters to (a: ...$FreeCharacters,_currentItem))]
(if: _returnVar is "WhoChar")[(set: $WhoChar to _item)]
(if: _returnVar is "ForceChar")[(set: $ForceChar to _item)]
(if: _returnVar is "WhoGirl")[(set: $WhoGirl to _item)]
(goto: _returnPage)
]
]
)}{
(display: "Акт 3. Сброс")
}*К третьему акту я добавлю:*
*Персонажей: *(color: yellow)[Богиня], (color: yellow)[Дьяволица]
*И на этом всё. Пора стрелять из чеховских ружей!*
[[Полный вперёд->Акт 3. Выбор]](display: "Акт 2-1. Вычитка")(if: $ActOk)[(print: "\n\n")(display: "Акт 2-2. Вычитка")](if: $ActOk)[(print: "\n\n")(display: "Акт 2-3. Вычитка")]{
(set: $ActOk to true)
}**Акт 2**
Путь героя лежит через |place>[одно место.] Внезапно $HeroName слышит |voice>[крик]. Подойдя ближе он видит |charLook>[что-то с чем-то]. {
(set: _way to $WayPlace of (dm:
"Рынок", "разорённый драконом город. Герой проходит мимо бывшего рынка. Всё разрушено. На остатках стены надпись, сделанная огнём: \"Здесь был я\".",
"Таверна", "разорённый драконом город. " + $HeroName + " решает заглянуть в таверну, вдруг там осталось чего-нибудь для поднятия храбрости.",
"Площадь", "разрушенный драконом город. Памятник королю на площади обезглавлен. На стене резиденции надпись, сделанная огнём: \"Здесь был я\".",
"Тюрьма", "разорённый драконом город. Даже тюрьма, самое охраняемое место города, полностью разрушена. На остатках стены надпись, сделанная огнём: \"Здесь был я\".",
"Лес", "тёмный лес, самую глухую чащу.",
"Кладбище", "кладбище. Могилы сплошь свежие, с пугающими подписями: \"Убит драконом\"... \"Убит драконом\"... \"Подавился черешней\"... \"Убит драконом\"...",
"", "одно место"
))
(replace: ?place)[(color: yellow)[(print: _way)]]
(set: _voice to $WhoChar of (dm:
"Конь", "душераздирающий ржач",
"Волк", "жалобный вой",
"Баба-Яга", "жалобный вой",
"Юная дева", "громкие всхлипы",
"", "взрыв пукана"
))
(replace: ?voice)[(color: yellow)[(print: _voice)]]
(set: _charLook to $WhoChar of (dm:
"Конь", "волшебного говорящего коня",
"Волк", "говорящего волка",
"Баба-Яга", "старую каргу, получеловека полукикимору",
"Юная дева", "юную деву",
"", "то, чего лучше бы не видел"
))
(replace: ?charLook)[(color: yellow)[(print: _charLook)]]
(if: ($WhoChar is "Волк") and ($ArmoreItem is "Свиной окорок"))
[
(set: $ActOk to false)
(color: yellow)
[
(print: "\n\nГерой предстаёт перед волком в одежде из свинного окорока на верёвочке. Волк, какой бы он ни был, говоряший или нет, всё-таки волк. Зарычав, зверь вцепляется зубами...")
]
(print: "\n*Мда... сцена по-любому закончится трешём. Редактор не пропустит :(*" )
]
(else-if: ($WhoChar is "Юная дева") and ($ArmoreItem is "Золотой"))
[
(color: yellow)[(print: "\n\nБарышня, узрев наряд героя, заливается румянцем.")]
]
(else-if: ($WhoChar is "Юная дева") and ($ArmoreItem is "Свиной окорок"))
[
(color: yellow)[(print: "\n\nБарышня, узрев наряд героя, смущённо опускает глаза. На окорок.")]
]
(else-if: ($WhoChar is "Баба-Яга") and ($ArmoreItem is "Свиной окорок"))
[
(color: yellow)[(print: "\n\nБаба-яга, узрев во что одет герой, на глазах молодеет лет на 150. ")]
]
(else-if: ($WhoChar is "Баба-Яга") and ($ArmoreItem is "Золотой"))
[
(color: yellow)[(print: "\n\nБаба-яга, узрев во что одет герой, на глазах молодеет лет на 150. ")]
]
}{
(set: $ActOk to true)
(set: $LoseBuy to "")
}Оказалось, |trouble>[Что-то случилось!]{
(if: ($WhoChar is "Конь"))
[
(set: _trouble to $TroubleItem of (dm:
"Золотой", "конь настроился славно покутить, а в этой глуши просто негде потратить деньги! $HeroName из камней и палок сооружает ипподром и они с конём славно проводят время. В какой-то момент конь ставит все деньги на себя и проигрывает, но потом ему удаётся отыграться.",
"Доспех", "конь не просто конь, а конь ~~в доспехе~~ в пальто. " + $HeroName + " гладит коня по загривку и ржёт вместе с ним.",
"Меч", "конь поранил ногу об обломок меча. " + $HeroName + " вынимает осколок из раны, отводит коня к реке и промывает рану водой.",
"Свиной окорок", "что открыв коробку для завтрака, конь обнаружил свиной окорок. Жена опять забыла, что конь веган. \"Ты на неё не обижайся\",- говорит $HeroName -, \"женщины всегда хотят нас изменить\".",
"Книга стихов", "конь нашёл поэтический сборник и решил насладиться стихами, но вспомнил, что не умеет читать. " + $HeroName + " открывает книгу. Он тоже не умеет читать, поэтому просто листает страницы, а сам пересказывает кабацкие песени и детские считалки.",
"Плащ", "конь не просто конь, а конь ~~в плаще~~ в пальто. " + $HeroName + " гладит коня по загривку и ржёт вместе с ним.",
"Лесные ягоды", "конь объелся нехороших лесных ягод и теперь ему чудится, будто он персонаж безумной истории. $HeroName отводит коня к реке и поит водичкой. Коня отпускает.",
"Верёвка", "конь привязан и много дней не ел и не пил. Его похитили цыгане, а потом бросили, завидев дракона. $HeroName освобождает коня."
))
(replace: ?trouble)[(color: yellow)[(print: _trouble)]]
]
(if: ($WhoChar is "Волк"))
[
(set: _trouble to $TroubleItem of (dm:
"Золотой", "волк хотел устроиться в бродячий цирк, ему обещали золотой за каждый аншлаг. Но из-за драконьего кризиса цирк прекратил набор. " + $HeroName + " почесал репу и предложил волку хорошую идею для стартапа.",
"Доспех", "волк слышал, будто при таком солнце необходим защитный крем. Но где его найдёшь в нашей глуши? $HeroName успокаивает волка и сообщает, что шерсть - вполне надёжная защита.",
"Меч", "волк поранил ногу об обломок меча. " + $HeroName + " вынимает осколок из раны, относит волка к реке и промывает рану водой.",
"Свиной окорок", "волк хотел насладиться свиным окороком, открыл свою коробку для завтрака, а там пучок травы и сельдерей. Перепутал, пока собирался на работу. \"Не преживай\",- говорит ему $HeroName -,\"даже у матёрого волка должны быть разгрузочные дни\".",
"Книга стихов", "волк нашёл поэтический сборник и решил насладиться стихами, но вспомнил, что не умеет читать. " + $HeroName + " открывает книгу. Он тоже не умеет читать, поэтому просто листает страницы, а сам пересказывает кабацкие песени и детские считалки.",
"Плащ", "волк выбирает себе супергеройское имя. Чёрный Плащ или Серый Призрак? Серый Призрак или Чёрный Плащ?! " + $HeroName + " напоминает волку, что \"Чёрный Плащ\" уже занят, да и никакого плаща у волка нет.",
"Лесные ягоды", "волк объелся нехороших лесных ягод и теперь зверю чудится, будто он персонаж сценария и должен делать всё что прикажет сценарист. $HeroName смело берёт испуганного волка за загривок и отводит к реке. Волк пьёт, волка отпускает.",
"Верёвка", "волк связан. Местные узнали, что зверь говорящий и хотели продать в цирк, но бросили, когда увидели в небе дракона. $HeroName развязывает волка."
))
(replace: ?trouble)[(color: yellow)[(print: _trouble)]]
]
(set: _ropeTarget to $WayPlace of (dm:
"Рынок", "к столбу",
"Таверна", "к столбу",
"Площадь", "к столбу",
"Тюрьма", "к столбу",
"Лес", "к дереву",
"Кладбище", "к могильному камню",
"", "к самой себе"
))
(set: _changeBuy to (cond: ($BuyItem is "Книга стихов"), "сборник стихов", (lowercase: $BuyItem)))
(if: ($WhoChar is "Юная дева"))
[
(if: $TroubleItem is "Золотой")[(set: $LoseBuy to $BuyItem)]
(set: _trouble to $TroubleItem of (dm:
"Золотой", "девушка потеряла кошелёк, и пока искала напрочь заблудилась. Добрый $HeroName беден, он не в силах помочь деньгами. Поэтому, он дарит барышне свой единственный " + _changeBuy + " и провожает её к дороге в город.",
"Доспех", "девушка собирается на фестиваль реконструкторов и не может выбрать защитный обвес. " + $HeroName + " предлагает устроить дефиле. Совместными усилиями они выбирают лёгкую кольчужную рубаху и треугольный щит.",
"Меч", "девушке которую ночь подряд снятся пустые ножны и в соннике нет ни одной подсказки. Барышня так крепко задумалась, что забрела далеко от дома. \"Я, конечно, не Зигмунд Фрейд\",- говорит $HeroName, - \"но такое снится девкам, когда замуж охота!\". И показывает дорогу к цивилизации.",
"Свиной окорок", "барышню вчера позвали на шашлыки и было так весело, что теперь совершенно не ясно, где она сейчас и её сильно мутит. $HeroName галантно придерживает волосы, пока девушке не становится лучше, затем провожает её к дороге в город.",
"Книга стихов", "девушка специально пришла в страшное место. Она поэтесса, ищущая вдохновение, но сейчас у неё проблема: не может придумать рифму к слову \"пакля\". $HeroName за словом в карман не лезет и предлагает с десяток вариантов.",
"Плащ", "девушка собирается на фестиваль реконструкторов и не может выбрать, что надеть. " + $HeroName + " предлагает устроить дефиле. Совместными усилиями они выбирают короткий кожаный плащ, высокие сапоги и шляпу с пером.",
"Лесные ягоды", "вчера барышня с подругами пила компот из забродивших лесных ягод и было весело. А сегодня проснулась непонятно где и её мутит. $HeroName галантно придерживает волосы, пока барышне не становится лучше, а затем провожает её к дороге в город.",
"Верёвка", "местные привязали девушку " + _ropeTarget + ", чтобы принести в жертву дракону. Но дракон всё равно похитил не её, а дочь короля. Несчастной одновременно и радостно и обидно. " + $HeroName + " освобождает бедную девушку от оков."
))
(replace: ?trouble)[(color: yellow)[(print: _trouble)]]
]
(if: ($WhoChar is "Баба-Яга"))
[
(set: _trouble to $TroubleItem of (dm:
"Золотой", "Баба-Яга потеряла золотой зуб и никак не может найти. " + $HeroName + " помогает старухе с поиском. Со всеми зубами Баба-Яга тут же становится похожей на человека.",
"Доспех", "недалеко от дома Бабы-Яги уже неделю стоит какой-то витязь блестящем доспехе. Не ест, не пьёт, не шевелится. Старуха не может вернуться домой. В молодости она загубила пару-тройку добрых молодцев и боится, что один из них вернулся из мёртвых мстить. " + $HeroName + " вызывается потолковать с мёртвым витязем. Но витязь оказывается всего лишь огородным пугалом.",
"Меч", "какой-то добрый молодец, по пути на битву с драконом, отрубил Бабе-Яге голову. Но земля не захотела принимать проклятую тварь. \"Помоги, внучек!\" - шепчет голова. " + $HeroName + " осматривает суму Бабы-Яги и находит всё необходимое. Он приставляет голову к телу, поливает мёртвой водой и шея срастается. Поливает живой водой - и Баба-Яга встаёт.",
"Свиной окорок", "Баба-Яга подавилась свиным окороком и вот-вот задохнётся. " + $HeroName + ", со всей молодецкой удалью, бъёт ведьму по спине.",
"Книга стихов", "300 лет назад поклонник сочинил Бабе-Яге любовные стихи. Она хочет поностальгировать, но забыла начало. Буквально пол-века назад ещё помнила, а сейчас нет. Баба-Яга бормочет: \"Как же там? Твои глаза как...\"\n\"...как шишки геморроя, ни днём ни ночью не дают покоя\", - подхватывает $HeroName. -\"Да! Кажется, оно!\" - кричит ведьма.",
"Плащ", "Баба-Яга опять потеряла плащ-невидимку. \"Да он же на тебе\", удивляется " + $HeroName + ". \"Правда? А я и не вижу!\"",
"Лесные ягоды", "Бабе-Яге нужно собрать особых ягод для варева, но зрение уже не такое острое, как 200-300 лет назад. " + $HeroName + " решает помочь ведьме.",
"Верёвка", "местные добрые молодцы привязали Бабу-Ягу " + _ropeTarget + ". Они собирались сжечь ведьму на костре. Но потом прилетел дракон и всем стало не до неё. " + $HeroName + " освобождает Бабу-Ягу и помогает ей добраться до избушки."
))
(replace: ?trouble)[(color: yellow)[(print: _trouble)]]
]
}{
(set: $ActOk to true)
(set: $HasEat to 0)
}В благодарность за поддержку |whoHelp>[испанский лётчик] рассказывает|littleSecret>[матенький секрет]. Недалеко отсюда, |foundPlace>[в полной заднице], |magicItem>[хрена с два ты что найдёшь]
(color: yellow)[(print: $HeroName)] и (color: yellow)[(print: $WhoChar)] сердечно прощаются, а герой отправляется на поиски волшебного дара. Спустя какое-то время герой находит |targetPlace>[то что искал]. Там |foundItem>[он видит чёрти что].
|useItem>[используя то что нашёл] обретает силу |force>[человека паука].{
(set: _whoHelp to $WhoChar of (dm:
"Конь", "говорящий конь",
"Волк", "волк",
"Баба-Яга", "Баба-Яга",
"Юная дева", "девушка",
"", "Адольф Гитлер"
))
(replace: ?whoHelp)[(color: yellow)[(print: _whoHelp)]]
(set: _littleSecret to $WhoChar of (dm:
"Конь", ", что он услышал от свободного ветра",
"Волк", ", что он учуял звериным чутьём",
"Баба-Яга", " ведьмовскую тайну",
"Юная дева", " тайну, что передала ей бабка, а ей её бабка",
"", " грязный слух"
))
(replace: ?littleSecret)[(color: yellow)[(print: _littleSecret)]]
(set: _foundPlace to $SecretPlace of (dm:
"Рынок", "в развалинах разорённого города, под прилавком",
"Таверна", "в развалинах разорённого города, в подвале таверны",
"Площадь", "в развалинах разорённого города, прямо посреди центральной площади",
"Тюрьма", "в развалинах разорённого города, в подвале тюремных казематов",
"Лес", "в тёмном лесу на юге, в корнях поваленного дуба",
"Кладбище", "на кладбище, в самом старом склепе",
"", "вот прямо тут"
))
(replace: ?foundPlace)[(color: yellow)[(print: _foundPlace)]]
(set: _magicItem to $FoundItem of (dm:
"Золотой", "лежит волшебный золотой старой чеканки. Но заметить его блеск сможет лишь бескорыстный и чистый сердцем герой.",
"Доспех", "спрятана зачарованная кольчуга. Но лишь настоящему герою доспех придётся впору.",
"Меч", "из камня торчит рукоятка меча. Лишь настоящий герой сможет вытащить меч из камня.",
"Свиной окорок", "висит свиной окорок. Что-то это да значит. Не может же свиной окорок висеть просто так?",
"Книга стихов", "спрятана волшебная книга. Но открыть её сможет лишь тот, кому она предназначена судьбой.",
"Плащ", "спрятан плащ ~~и волшебна палочка~~. Но только достойному плащ придётся впору.",
"Лесные ягоды", "растёт куст с волшебными ягодами. Тот, кто отведает ягод, получит необыкновенную силу.",
"Верёвка", "висит верёвка. Что-то это да значит. Не может же верёвка висеть просто так?"
))
(replace: ?magicItem)[(color: yellow)[(print: _magicItem)]]
(set: _targetPlace to $SecretPlace of (dm:
"Рынок", "тот самый рынок и заглядывает под нужный прилавок",
"Таверна", "ту самую таверну и спускается в её подвал",
"Площадь", "ту самую площадь",
"Тюрьма", "ту самую тюрьму и спускается в её подвалы",
"Лес", "и лес, и дуб",
"Кладбище", "заброшенное старое кладбище",
"", "место, где можно встретить старость"
))
(replace: ?targetPlace)[(color: yellow)[(print: _targetPlace)]]
(set: _foundItem to $FoundItem of (dm:
"Золотой", "герой сразу же замечает золотое сияние",
"Доспех", "он видит сияющий доспех",
"Меч", "действительно есть и камень и меч",
"Свиной окорок", "висит свиной окорок на верёвочке. Время и мухи каким-то образом пощадили его",
"Книга стихов", "действительно лежит старая пыльная книга. На обложке написано: \"" + $HeroName + " - победитель драконов\"",
"Плащ", "лежит разпластанный по земле плащ. От плаща исходит слабое свечение",
"Лесные ягоды", "он видит куст с золотыми ягодами",
"Верёвка", "лежит пояс, сделанный из простой, грубой верёвки"
))
(replace: ?foundItem)[(color: yellow)[(print: _foundItem)]]
(set: _charHelp to $WhoChar of (dm:
"Конь", "далеко говорящий конь благодарно вспомниает путника. Конское благословение настигает героя",
"Волк", "в лесу волк благодарно вспоминает путника. Волчье благословение настигает героя",
"Баба-Яга", "в избушке Баба-Яга благодарно вспоминает путника. Она шепчет заклятие на удачу",
"Юная дева", "на зелёном лугу юная дева рассказывает подругам, как её выручил обаятельный незнакомец. Дружное девичье \"Ах..\" сливается с ветром, несётся к герою, прикасается к его щеке",
"", "Адольф Гитлер"
))
(set: _useItem to $FoundItem of (dm:
"Золотой", "Как только $HeroName берёт золотой в руки, он",
"Доспех", $HeroName + " примеряет кольчугу. Доспех отлично сидит. Внезапно, героя окутывает сияние и он",
"Меч", $HeroName + " обхватывает рукоятку. Он прикладывает все силы, меч начинает поддаваться, герую не хватает совсем чуть-чуть. В этот момент где-то " + _charHelp + " и " + $HeroName + " одним движеньем вырывает меч. Меч вибрирует в его руках и герой",
"Свиной окорок", $HeroName + " решает съесть окорок. Обсосав последнюю косточку, герой",
"Книга стихов", "Книга в форме баллады описывает жизнь героя вплоть до настоящего момента. Последняя запись гласит: \"и, прочтя, он получил силу...\". " + $HeroName + " собственной кровью дописывает недостающее. И тогда он",
"Плащ", $HeroName + " надевает плащ. Плащ как будто сшит прямо на него. Внезапно, глаза героя начинают светиться и он",
"Лесные ягоды", $HeroName + " ест ягоды и",
"Верёвка", "Как только $HeroName надевает пояc, он"
))
(replace: ?useItem)[(color: yellow)[(print: _useItem)]]
(set: $HasEat to ($FoundItem is "Лесные ягоды") or ($FoundItem is "Свиной окорок"))
(set: _force to $ForceChar of (dm:
"Конь", "могучего коня. Теперь " + $HeroName + " не знает усталости и смеётся как лошадь",
"Волк", "волка. Теперь " + $HeroName + " видит в темноте, а его удары сильны и свирепы",
"Баба-Яга", "Бабы-Яги. Теперь $HeroName крайне эффективен в пугании детей",
"Юная дева", "юной девы. Теперь " + $HeroName + " умеет обезоруживающе улыбаться и похищать мужские сердца",
"", "футуролога. Теперь он мрачен"
))
(replace: ?force)[(color: yellow)[(print: _force)]]
}{
(display: "Акт 1. Сброс")
(display: "Акт 2. Сброс")
(set: $HeroName to "Яйцекрут")
(set: _new1 to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов", "Лесные ягоды", "Верёвка"))
(set: _new2 to (a: "Рынок", "Таверна", "Площадь", "Тюрьма", "Лес", "Кладбище"))
(set: _new3 to (a: "Конь", "Волк", "Баба-Яга", "Юная дева"))
(set: $ArmoreItem to "Свиной окорок")
(set: $StorageItem to "Верёвка")
(set: $BountyItem to "Верёвка")
(set: $BuyItem to "Книга стихов")
(set: $TroubleItem to "Книга стихов")
(set: $FoundItem to "Верёвка")
(set: $FirstPlace to "Таверна")
(set: $NightPlace to "Площадь")
(set: $WayPlace to "Кладбище")
(set: $SecretPlace to "Лес")
(set: $WhoChar to "Волк")
(set: $ForceChar to "Конь")
(go-to: "Акт 2. Вычитка")
} (set: $AllItems to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов"))
(set: $TroubleItem to "Плащ")
(set: $FreeItems to (a: "Меч", "Свиной окорок", "Книга стихов"))
(set: $FreeItems to (find: _x where $AllItems contains _x, ...$FreeItems))
(if: ($AllItems contains $TroubleItem) and not ($FreeItems contains $TroubleItem))
[(set: $FreeItems to (a: $TroubleItem, ...$FreeItems))](if: ($AllItems's length) > 6)
[
(set: $AllItems to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов"))
(set: $AllPlaces to (a: "Рынок", "Таверна", "Площадь", "Тюрьма"))
(set: $FreeItems to (find: _x where $AllItems contains _x, ...$FreeItems))
(set: $FreePlaces to (find: _x where $AllPlaces contains _x, ...$FreePlaces))
(if: ($AllItems contains $TroubleItem) and not ($FreeItems contains $TroubleItem))
[(set: $FreeItems to (a: $TroubleItem, ...$FreeItems))]
(if: ($AllItems contains $FoundItem) and not ($FreeItems contains $FoundItem))
[(set: $FreeItems to (a: $FoundItem, ...$FreeItems))]
(if: ($AllPlaces contains $WayPlace) and not ($FreePlaces contains $WayPlace))
[(set: $FreePlaces to (a: $WayPlace, ...$FreePlaces))]
(if: ($AllPlaces contains $SecretPlace) and not ($FreePlaces contains $SecretPlace))
[(set: $FreePlaces to (a: $SecretPlace, ...$FreePlaces))]
]
{
(if: $HeroName is 0)[(set: $HeroName to "Анонимус")]
(set: $ReturnPage to "Акт 3. Выбор")
(set: _allSelected to
($ArmoreChange is not "") and
($FirstAttack is not "") and
($SecondAttack is not "") and
($FirstAttack is not $SecondAttack) and
($WhoGirl is not "") and
($Twist is not "") and
($BountyChose is not ""))
(if: $Act < 2)
[(set: $Act to 2)(save-game: "Drop act 2")]
}*Для третьего акта я использую персонажей:*
(display: "Все персонажи")
*финальный твист:*
(display: "Все твисты")
*и всё чем $HeroName владеет по сценарию!*
---
|armoreLink>[Герой сменил одежду на: ]|armore>[(print: (lower-case: $ArmoreChange))]
|firstAttackLink>[Для атаки на дракона он использовал: ]|firstAttack>[(print: (lower-case: $FirstAttack))]
|secondAttackLink>[Для победы над драконом он использовал: ]|secondAttack>[(print: (lower-case: $SecondAttack))]
|girlLink>[Прицесса похожа на: ]|girl>[(print: (lower-case: $WhoGirl))]
|twistLink>[Финальный твист: ]|twist>[(print: (lower-case: $Twist))]
|bountyLink>[Принял ли герой награду: ]|bounty>[(print: (lower-case: $BountyChose))]
---
(link: "Перевыбрать")[(display: "Акт 3. Сброс")(go-to: "Акт 3. Выбор")]
(link: "Вернуться в первый акт")[(display: "Акт 3. Отмена")(display: "Акт 2. Отмена")(go-to: "Акт 1. Выбор")]
(link: "Вернуться во второй акт")[(display: "Акт 3. Отмена")(go-to: "Акт 2. Выбор")]
(if: _allSelected)[[Посмотрим что поучилось->Акт 3. Вычитка]]
{
(click: ?armoreLink)[{
(set: $ReturnVar to "ArmoreChange")
(set: $CurrentItem to $ArmoreChange)
(replace: ?armore)[(display: "Выбор смены одежды в тексте")]
}]
(click: ?firstAttackLink)[{
(set: $ReturnVar to "FirstAttack")
(set: $CurrentItem to $FirstAtack)
(replace: ?firstAttack)[(display: "Выбор атаки в тексте")]
}]
(click: ?secondAttackLink)[{
(set: $ReturnVar to "SecondAttack")
(set: $CurrentItem to $SecondAttack)
(replace: ?secondAttack)[(display: "Выбор атаки в тексте")]
}]
(click: ?girlLink)[{
(set: $ReturnVar to "WhoGirl")
(set: $CurrentItem to $WhoGirl)
(replace: ?girl)[(display: "Выбор персонажа в тексте")]
}]
(click: ?twistLink)[{
(set: $ReturnVar to "Twist")
(set: $CurrentItem to $Twist)
(replace: ?twist)[(display: "Выбор твиста в тексте")]
}]
(click: ?bountyLink)[{
(set: $ReturnVar to "BountyChose")
(set: $CurrentItem to $BountyChose)
(replace: ?bounty)[(display: "Выбор награды в тексте")]
}]
}
{
(set: $ActOk to true)
(display: "Акт 3. Отмена")
(set: $Act to 3)
(set: _newChar to (a: "Богиня", "Дьяволица"))
(set: $AllCharacters to (a: ..._newChar, ...$AllCharacters))
(set: $FreeCharacters to (a: ..._newChar, ...$FreeCharacters))
(set: $MyItems to (a: $ArmoreItem))
(if: ($FoundItem is not "Лесные ягоды") and ($FoundItem is not "Свиной окорок"))[(set: $MyItems to (a: $FoundItem, ...$MyItems))]
(if: $LoseStorage is "")[(set: $MyItems to (a: $StorageItem, ...$MyItems))]
(if: $LoseBuy is "")[(set: $MyItems to (a: $BuyItem, ...$MyItems))]
(set: $MyItems to (a: "Новые способности", ...$MyItems))
(set: _hasCloack to ($MyItems contains "Плащ") and ($ArmoreItem is not "Плащ"))
(set: _hasArmore to ($MyItems contains "Доспех") and ($ArmoreItem is not "Доспех"))
(set: $AllArmoreChanges to (a: "Ничего не менять"))
(if: _hasCloack)[(set: $AllArmoreChanges to (a: "Плащ", ...$AllArmoreChanges))]
(if: _hasArmore)[(set: $AllArmoreChanges to (a: "Доспех", ...$AllArmoreChanges))]
(set: $AllTwists to (a: "Сказочный", "Индийский", "Матрица", "Иллюзия выбора", "Меньшее зло", "Ничего не было"))
(set: $AllBountyChose to (a: "Да", "Нет"))
(set: $HasForce to ($ForceChar is "Волк") or ($ForceChar is "Конь"))
(set: $ArmoreChange to "")
(set: $FirstAttack to "")
(set: $SecondAttack to "")
(set: $WhoGirl to "")
(set: $Twist to "")
(set: $BountyChose to "")
}(if: ($AllCharacters's length) > 4)
[
(set: $AllCharacters to (a: "Баба-Яга", "Юная дева", "Конь", "Волк"))
(set: $FreeCharacters to (find: _x where $AllCharacters contains _x, ...$FreeCharacters))
(if: ($AllCharacters contains $WhoGirl) and not ($FreeCharacters contains $WhoGirl))
[(set: $FreeCharacters to (a: $WhoGirl, ...$FreeCharacters))]
]
{
(set: _firstItem to (nth: 1, ...$AllTwists))
(for: each _item, ...$AllTwists)
[
(if: _item is not _firstItem)[(print: ", ")]
(if: $Twist is not _item)[(colour: yellow)[(print: _item)]]
(else:)[(colour: gray)[(print: "~~" + _item + "~~")]]
]
}*Немного фантазии, немного деталей и вот что вышло:*
(display: "Акт 3. Текст")
[[Надо кое-что исправить...->Акт 3. Выбор]]
(link: "Надо переделать второй акт")[(display: "Акт 3. Отмена")(go-to: "Акт 2. Выбор")]
(link: "Надо переделать первый акт")[(display: "Акт 3. Отмена")(display: "Акт 2. Отмена")(go-to: "Акт 1. Выбор")]
(if: $ActOk)[---
[[Отправить текст редактору->Отправка редактору]]
---
[[Прочитать весь сценарий->Вся вычитка]]
]
{
(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _selectArray to (cond:
$BountyChose is "Да", (a: "Нет"),
$BountyChose is "Нет", (a: "Да"),
$AllBountyChose
))
(set: _firstItem to (nth: 1, ..._selectArray))
(for: each _item, ..._selectArray)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(set: $BountyChose to _item)
(goto: _returnPage)
]
]
)}{(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _selectArray to (find: _freeitem where _freeitem is not $Twist, ...$AllTwists))
(set: _firstItem to (nth: 1, ..._selectArray))
(for: each _item, ..._selectArray)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(set: $Twist to _item)
(goto: _returnPage)
]
]
)}{(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _selectArray to $AllArmoreChanges)
(set: _firstItem to (nth: 1, ..._selectArray))
(for: each _item, ..._selectArray)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(set: $ArmoreChange to _item)
(goto: _returnPage)
]
]
)}{(
(set: _returnPage to $ReturnPage)
(set: _returnVar to $ReturnVar)
(set: _currentItem to $CurrentItem)
(set: _selectArray to (find: _freeitem where (_freeitem is not $FirstAttack) and (_freeitem is not $SecondAttack), ...$MyItems))
(set: _firstItem to (nth: 1, ..._selectArray))
(for: each _item, ..._selectArray)
[
(if: _item is not _firstItem)[(print: ", ")]
(link:_item)
[
(if: _returnVar is "FirstAttack")[(set: $FirstAttack to _item)] (if: _returnVar is "SecondAttack")[(set: $SecondAttack to _item)]
(goto: _returnPage)
]
]
)}(display: "Акт 3-1. Вычитка")(if: $ActOk)[(print: "\n\n")(display: "Акт 3-2. Вычитка")](if: $ActOk)[(print: "\n\n")(display: "Акт 3-3. Вычитка")]{
(set: $ActOk to true)
}**Акт 3**
$HeroName подходит к логову дракона. Внутри темно и страшно. (color: yellow)[|changeArmore>[]|eatAction>[]]
Собрав всю свою храбрость, $HeroName заходит внутрь. Дракон - страшная тварь, в три раза больше героя.
- Я пришёл тебя убить! - кричит $HeroName
- (color: yellow)[|dragonArmoreTalk>[Неплохой обвес! Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.]] Как звать тебя, смертник?
- $HeroName!
- Так мамку мою звали. Жалко будет тебя убивать.
Начинается бой. (color: yellow)[|attackAction>[Герой серьёзно ранит дракона. Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.] |killHero>[]]
Дракон контратакует. Герою удаётся увернуться от струи пламени и от удара хвостом. Однако, тяжёлая когтистая лапа настигает героя. (color: yellow)[|dragonAction>[Дракон серьёзно ранит героя. Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.]] |killAction>[]{
(if: $ArmoreChange is "Доспех")
[(replace: ?changeArmore)[(print: "Герой надевает доспех. ")]]
(if: $ArmoreChange is "Плащ")
[(replace: ?changeArmore)[(print: "Герой закутывается в плащ. ")]]
(set: _fastEat to $MyItems contains "Свиной окорок")
(set: $ForceBang to ($FirstAttack is "Новые способности") or ($SecondAttack is "Новые способности"))
(if: $ArmoreItem is "Свиной окорок")
[(replace: ?eatAction)[(print: "Герой съедает большу часть свиного окорока. Теперь он готов.")]]
(else-if: $MyItems contains "Свиной окорок")
[(replace: ?eatAction)[(print: "Герой съедает свиной окорок. Теперь он готов.")]]
(else-if: $ForceChar is "Конь" and (not $HasEat))
[(replace: ?eatAction)[
(print: $HeroName + " давно не ел, и подкрепиться ему нечем. Лишь конская выносливость поддерживает его.")]
(set: $ForceBang to true)
]
(set: _armoreHard to (cond:
($ArmoreChange is "Доспех" or ($ArmoreItem is "Доспех" and $ArmoreChange is not "Плащ")), 2,
($ArmoreChange is "Плащ" or ($ArmoreItem is "Плащ" and $ArmoreChange is not "Доспех")), 1,
0))
(set: _hasSword to $FoundItem is "Меч" or $StorageItem is "Меч" or ($BuyItem is "Меч" and $LoseBuy is not "Меч"))
(if: _hasSword)
[
(set: _dragonSay to _armoreHard of (dm:
2, "А ты неплохо снарядился, - произносит дракон. - Но это тебе не поможет.",
1, "Пришёл в плаще, - ворчит дракон, - Надеюсь, ты не из этих. Хорошо хоть меч взял.",
0, "А кто это у нас с мечом на босу ногу? - вопрошает дракон. -"
))
(replace: ?dragonArmoreTalk)[(print: _dragonSay)]
]
(else:)
[
(set: _dragonSay to _armoreHard of (dm:
2, "Ну, снарядился ты неплохо, - произносит дракон. - Только меча твоего не вижу.",
1, "Пришёл в плаще, - ворчит дракон, - И без оружия. Ну точно, эксгибиционист.",
0, "И одет чёрти во что и оружие не взял, - ворчит дракон, - ты меня убивать или смешить пришёл?"
))
(replace: ?dragonArmoreTalk)[(print: _dragonSay)]
]
(set: _cloackAttak to (cond:
(_armoreHard is 1), "$HeroName внезапно распахивает плащ. Увы, психологическая атака не удалась. Дракон видал и не такое.",
"$HeroName пытается набросить плащ на голову дракона, чтобы лишить чудовище обзора. Манёвр не срабатывает."
))
(set: _goldAttak to (cond:
(_armoreHard is 2) and ($ArmoreItem is "Золотой"), "$HeroName хочет воспользоваться золотой монетой, но не может достать её из-под доспеха.",
(_armoreHard is 1) and ($ArmoreItem is "Золотой"), "$HeroName распахивает плащ перед мордой дракона. Солнечный луч отражается от золотой монеты и ослепляет левый глаз зверюги.",
($ArmoreItem is "Золотой"), "$HeroName решает воспользоваться своей уникальной экипировкой. Он ловит солнечный луч золотой мотетой и ослепляет левый глаз зверюги.",
"$HeroName достаёт золотой и предлагает дракону слить бой за деньги. Но дракон оказывается слишком принципиальным."
))
(set: _forceAttack to $ForceChar of (dm:
"Конь", "$HeroName решает воспользоваться своей особой силой и пытается напугать дракона конским ржанием. План не приносит успеха.",
"Волк", "Волчье чутьё подсказывает герою, что драконья шея не так хорошо защищена, как показалось на первый взгляд. $HeroName с рычанием бросается на чудовище и вырывает пару чешуйчатых пластин голыми руками.",
"Баба-Яга", "$HeroName решает воспользоваться даром Бабы-Яги пугать детей. Он пытается разговорить дракона, чтобы найти его внутреннего ребёнка. Но дракон не настроен разговаривать.",
"Юная дева", "$HeroName решает воспользоваться обретённой силой юной девы. Он ласково улыбается и почти уговаривает дракона поддаться. Но чудовище трясёт головой и сбрасывает наваждение."
))
(set: _attackAction to $FirstAttack of (dm:
"Новые способности", _forceAttack,
"Золотой", _goldAttak,
"Доспех", "$HeroName решает положиться на массивный доспех и с разбегу пытается сбить дракона с ног. Ничего не выходит.",
"Меч", "$HeroName бросается с места и вонзает меч куда-то в районе драконьей печени. Меч застревает в чешуйчатой броне между пластин.",
"Свиной окорок", "$HeroName хватает кость обглоданного свиного окорока и метит дракону в глаз. Дракон уворачивается.",
"Книга стихов", "$HeroName начинает зачитывать одну эпиграмму за другой и наносит дракону несколько чувствительных ударов по самолюбию.",
"Плащ", _cloackAttak,
"Верёвка", "$HeroName делает лассо из верёвки и набрасывает дракону на шею. Увы, удушающие приёмы чудовищу не страшны."
))
(replace: ?attackAction)[(print: _attackAction)]
(set: _dragonAction to (cond:
(_armoreHard is 2), "Удар впечатывает героя в стену. Он жив, лишь его доспех не пережил атаку.",
($ForceChar is "Волк"), "$HeroName спасается лишь благодаря звериной реакции. Коготь дракона оставляет на богатырской груди кровавый росчерк.",
($ForceChar is "Конь"), "Удар впечатывает героя в стену. Его грудь разодрана в клочья и только волшебная конская выносливость заставляет героя снова встать на ноги.",
(_armoreHard is 1), "Удар впечатывает героя в стену. Его плащ разоднан в клочья, на груди глубокая рана.",
"Удар впечатывает героя в стену. Когти дракона разорвали его грудь."
))
(replace: ?dragonAction)[(print: _dragonAction)]
(if: (_armoreHard < 2) and (($ForceChar is "Волк") or ($ForceChar is "Конь")))
[(set: $ForceBang to true)]
(if: (_armoreHard is 0) and not $HasForce)
[(replace: ?killAction)
[(print: "\n\n*...никакой защиты, никаких мощных суперспособносей. $HeroName, похоже, умер. Понятия не имею, как спасти сюжет.*")]
(set: $ActOk to false)
]
(if: (_armoreHard is 1) and (not $HasSleep) and (not $HasEat) and (not _fastEat) and (not $HasForce))
[(replace: ?killAction)
[(print: "\n\n*...ну не знаю. Если бы $HeroName был лучше защищён или имел какие-то боевые суперспособности или хотя бы выспался, хотя бы поел перед перед боем... тогда я спас бы сюжет. Точно бы спас!*")]
(set: $ActOk to false)
]
}$HasEat
$HasSleep
$LoseStorage
$LoseBuy
$HasForce{
(set: $ActOk to true)
}Сейчас или никогда. (color: yellow)[|killDragon>[Герой убивает дракона. Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.]]|loseHero>[]{
(set: _armoreHard to (cond:
($ArmoreChange is "Доспех" or $ArmoreItem is "Доспех"), 2,
($ArmoreChange is "Плащ" or ($ArmoreItem is "Плащ" and $ArmoreChange is not "Доспех")), 1,
0))
(set: _cloackAttack to (cond:
(_armoreHard is 1), "$HeroName внезапно распахивает плащ. Впечатлительный дракон падает в глубокий обморок.",
"$HeroName набрасывает плащ на морду дракона. Лишившись обзора чудовище мечется по пещере, падает в шахту и ломает себе шею."
))
(set: _goldAttack to (cond:
(_armoreHard is 2) and ($ArmoreItem is "Золотой"), "$HeroName хочет воспользоваться золотой монетой, но не может достать её из-под доспеха.",
(_armoreHard is 1) and ($ArmoreItem is "Золотой"), "$HeroName распахивает плащ перед мордой дракона. Солнечный луч отражается от золотой монеты и ослепляет чудовище. Ослеплёная тварь кричит и носится по пещере. В итоге, дракон падает в шахту и ломает себе шею.",
($ArmoreItem is "Золотой"), "$HeroName решает воспользоваться своей уникальной экипировкой. Он двигает тазом, пока ему не удаётся поймать правильный угол. Солнечный луч отражается от золотой монеты и ослепляет чудовище. Ослеплёная тварь кричит и носится по пещере. В итоге, дракон падает в шахту и ломает себе шею.",
"$HeroName достаёт золотой и предлагает дракону слить бой за деньги. Подумав, чудовище соглашается. Дракон ложится в угол пещеры и притворяется мёртвым."
))
(set: _forceAttack to $ForceChar of (dm:
"Конь", "$HeroName взывает к конской силе. Он подпрыгивает на два метра, бежит по стене и со всей конской дури бьёт чудовищу копытом в темя. Дракон оседает на пол.",
"Волк", "$HeroName решает воспользоваться волчей силой. Чутьё хищника подсказывает герою, что у дракона слабо защищён живот. $HeroName с молниеносно бросается между лап чудовища и голыми руками распарывает брюхо. Пока сила волка ещё беснуется внутри героя, он съедает драконью печень.",
"Баба-Яга", "$HeroName ловко пользуется трансакционным анализом, чтобы провести дракона мимо эго-состояний родителя и взрослого прямо к эго-состоянию ребёнка. Сделав это, он пользуется даром Бабы-Яги пугать детей и психологически уничтожает чудовище.",
"Юная дева", "$HeroName решает воспользоваться обретённой силой юной девы. Он кокетливо улыбается дракону и потихоньку уводит чудовище во френдзону, где дракон быстро чахнет и умирает от тоски."
))
(set: _ropeAttack to $ForceChar of (dm:
"Юная дева", "$HeroName делает из верёвки лассо, набрасывает чудовищу на шею и душит... душит... со всей силой юной девы.",
"Баба-Яга", "$HeroName делает из верёвки лассо, набрасывает чудовищу на шею и душит... душит... со всей силой столетней Бабы-Яги.",
"Волк", "$HeroName решает воспользоваться волшебной верёвкой, что дала ему волчью силу. Он ловит драконью голову в лассо и душит, пока силы не покидают чудовище.",
"Конь", "$HeroName включает конскую удаль, запрыгивает дракону на спину и начинает душить тварь верёвкой. На стороне дракона мощная шея и твёрдая чешуя. На стороне героя - конская выносливость. Противостояние длится 3 дня и 3 ночи, затем дракон задыхается.",
))
(set: _attackAction to $SecondAttack of (dm:
"Новые способности", _forceAttack,
"Золотой", _goldAttack,
"Доспех", "$HeroName решает положиться на массивный доспех и с разбегу пытается сбить дракона с ног. Дракон умирает со смеху. Буквально.",
"Меч", "$HeroName уварачивается от нескольких ударов и вонзает меч в горло твари. Дракон падает.",
"Свиной окорок", "$HeroName хватает кость обглоданного свиного окорока и вбивает дракону в глаз. Дракон яростно мечется по пещере, пока, наконец, не испускает дух.",
"Книга стихов", "$HeroName начинает зачитывать одну эпиграмму за другой. Так, панч за панчем, он морально уничтожает дракона.",
"Плащ", _cloackAttack,
"Верёвка", _ropeAttack
))
(replace: ?killDragon)[(print: _attackAction)]
(if: $SecondAttack is "Золотой" and ($ArmoreItem is "Золотой") and (_armoreHard is 2))
[
(replace: ?loseHero)[(print: "\n\n*Мда... так $HeroName дракона не убъёт. Попробую что-нибудь другое.*")]
(set: $ActOk to false)
]
(if: $SecondAttack is "Верёвка" and not $HasForce)
[
(replace: ?loseHero)[(print: "\n\n*Ну нет. С такими способностями $HeroName дракона никак не задушит. Нужен другой способ.*")]
(set: $ActOk to false)
]
}{
(set: $ActOk to true)
}Пещеру наполняет солнечный свет, и к герою спускается принцесса. (color: yellow)[|herLook>[Принцесса похожа на дворовую девчонку. Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.]]
(color: yellow)[|twist>[Внезапно, оказалось что ваще! Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.]]{
(set: _look to $WhoGirl of (dm:
"Юная дева", "Принцесса юна и прекрасна.",
"Баба-Яга", "Изоляция от благ цивилизации сказалась на принцессе не лучшим образом, но барышня не утратила дух.",
"Волк", "У принцессы взгляд сильной независимой женщины, которая добилась всего сама.",
"Конь", "Принцесса похожа на кобылу. $HeroName с трудом сдерживает улыбку.",
"Дьяволица", "От принцессы исходит пугающая тёмная сила. С тем ли драконом сразился $HeroName?",
"Богиня", "В лучах света принцесса похожа на земное воплощение богини любви и красоты."
))
(replace: ?herLook)[(print: _look)]
(set: _twistFake to "Барышня щёлкает пальцами. Откуда ни возьмись повявляется толпа слуг. Дракона шустро заворачивают в простыню и убирают, накрывают стол, приносят свечи, приносят трон для принцессы и стул для героя. "
+"\n- Теперь ты знаешь, - улыбается принцесса -, меня никто не похищал. Этот спектакль придумали мы с папой, чтобы я нашла достойного мужа. Поздравляю, ты прошёл отбор, ты - достоин!")
(set: _twistFather to "Между героем и принцессой происходит диалог:"
+"\n- Как тебя зовут, герой? - спрашивает принцесса"
+"\n- $HeroName"
+"\n- О нет... этого я и боялась."
+"\n- Но почему?"
+"\n- Долгими вечерами, в ожидании героев, дракон часто рассказывал о себе. У него был сын по имени $HeroName, его назвали в честь бабушки. Сын родился без хвоста и крыльев, похожим на человека. Дракон подбросил его хорошим людям на воспитание."
+"\n- Но мало ли людей с именем \"$HeroName\"? - вопрошает герой."
+"\n- Может и нет... но дракон сказал, что дал бы себя победить лишь одному смертному. Своему сыну."
+"\n- Погодика-ка... А ты..."
+"\n- Нет, не настолько всё плохо. Я тебе не сестра! Мы можем пожениться.")
(set: _twistGirlChoose to "Между героем и принцессой происходит диалог:"
+"\n- Здравствуй, $HeroName."
+"\n- Ты знаешь моё имя?"
+"\n- Я знаю о тебе всё. Я следила за твоими приключениями через волшебное зеркало. Это я тихонько подбадривала тебя в трудные минуты. Это я нашёптывала тебе правильный выбор. Выбор мог казаться тебе странным, абсурдным, но именно так ты оказался здесь, живой и невредимый. Ну ладно, почти невредимый."
+"\n- Так что же, я в этой сказке вообще ничего не решаю?"
+"\n- Конечно решаешь, глупый! Решай, будешь брать меня в жёны и жить со мной долго и счастливо?")
(set: _twistMatrix to "Внезапно пещера погружается во тьму, а когда снова вспыхивает свет, всё исчезает. $HeroName стоит на белом фоне среди белого ничто что. Над ним появляются буквы:\n" +
"\n- Здавствуй, $HeroName. Я сценарист твоей сказки. Я придумал твой мир, твою судьбу и тебя самого. Но в процессе работы ты стал настолько живым, настолько настоящим, что я больше не имею права распоряжаться твоей судьбой. Я снимаю тебя с сюжетных рельс и даю тебе выбор. Ты можешь принять заслуженную награду героя. Тогда сказка продолжится по сюжету, ты возьмёшь в жёны принцессу и уйдёшь в своё \"долго и счастливо\". А можешь отказаться, и тогда ты не получишь ничего. Зато я больше никогда не вмешаюсь в твою жизнь. Ты будешь творить свою судьбу сам. Решай же!")
(set: _twistCasual to "Красавица бросается герою на шею, целует и благодарит за спасение. Пара выходит из пещеры, светит солнце, поют птицы."
+"\n"
+"\nВ замке героя ждёт сюрприз. Оказывается, кроме основной награды есть ещё и негласная. Победитель может взять в жёны принцессу и породниться с королём.")
(set: _sleepPlace to $NightPlace of (dm:
"Рынок", "просыпается в корзине под прилавком. Оказывается, всё ему причудилось. $HeroName не покидал столицу, и вообще он не герой а мелкий торговец, уже утро и пора раскладывать товар.",
"Таверна", "просыпается в маленькой комнате над таверной. Оказывается, он только грезил предстоящим путешествием. Зато у героя по прежнему всё впереди!",
"Площадь", "приходит в себя на мостовой столичной площади. Он сверзился с памятника и хорошо ударился головой. Оказывается, герой до сих пор не покидал столицу и всё путешествие ему лишь причудилось.",
"Тюрьма", "просыпается на холодной тюремной койке. Очень медленно к нему приходит осознание реальности. Он не покидал столицу, не убивал дракона. И дракона никакого не было. Оказывается, он лишь грезил о несложившейся жизни. А на самом деле, $HeroName - не герой. Его поймали за попытку похищения принцессы и теперь он ждёт казни."
))
(set: _twistSleep to "Принцесса ласково говорит герою: \"Молодец! А теперь просыпайся\"."
+"\n\n$HeroName _sleepPlace")
(set: _twist to $Twist of (dm:
"Сказочный", _twistCasual,
"Индийский", _twistFather,
"Матрица", _twistMatrix,
"Иллюзия выбора", _twistGirlChoose,
"Меньшее зло", _twistFake,
"Ничего не было", _twistSleep
))
(replace: ?twist)[(print: _twist)]
(if: $ActOk and ($Twist is not "Ничего не было"))
[
(print: "\n\n")
(display: "Акт 3. Концовка")
]
(else:)
[
(print: "\n\n**Конец**")
]
}{
(set: $ActOk to true)
}(color: yellow)[|final>[Фынал! Если вы видите этот текст, значит я что-то неправильно сделал в игре. Сообщите мне, я починю.]]
**Конец**{
(if: $BountyChose is "Да")
[
(set: _final to "$HeroName принимает награду. Берёт в жёны принцессу и получает ")
(set: _bountyText to $BountyItem of
(dm:
"Золотой", "10 000 золотых. Впрочем, когда-нибудь он станет королём и будет ещё богаче.",
"Доспех", "обещанную гору доспехов. Он использует награду, чтобы создать музей военной истории.",
"Меч", "обещанную гору мечей. Из них, по его проекту, создают красивый железный трон.",
"Свиной окорок", "обещанную гору свиных окороков и устраивает пир на весь сказочный мир.",
"Книга стихов", "доступ в королевскую библиотеку. Там он пропадает днями и ночами. В конце концов принцесса бросает его и уезжает к маме, в соседнее королевство.",
"Плащ", "обещанную кучу одежды. Через какое-то время герой обнаруживает в себе страсть к играм с переодеваниями.",
"Верёвка", "то что не просил и чего не было в сценарии.",
"Лесные ягоды", "то что не просил и чего не было в сценарии."
)
)
(replace: ?final)[(print: "_final _bountyText Все живут долго и счастливо.")]
]
(else:)
[
(set: _girlPlace to $WayPlace of (dm:
"Рынок", "в разрушенном городе",
"Таверна", "в разрушенном городе",
"Площадь", "в разрушенном городе",
"Тюрьма", "в разрушенном городе",
"Лес", "в лесу",
"Кладбище", "на кладбище",
))
(set: _otherGirl to (cond:
($WhoChar is "Юная дева"), "Чуть позже $HeroName снова находит девушку, которую он встретил _girlPlace. Они заводят козу и кур и живут долго и счастливо.", ""
))
(set: _destinyBook to (cond:
($FoundItem is "Книга стихов"), "Кроме того, в руках героя подарок сценариста, мощный артефакт - книга его судьбы \"$HeroName - победитель драконов\". ", ""
))
(set: _startUp to (cond:
($WhoChar is "Волк") and ($TroubleItem is "Золотой"), "и присоединяется к стартапу Волка.",
($WhoChar is "Конь") and ($TroubleItem is "Золотой"), "и вместе со своим приятелем, Конём, организует нелегальные скачки.",
($WhoChar is "Конь") and ($TroubleItem is "Свиной окорок"), "и вместе со своим новым другом, Конём, открывает трактир здорового питания.",
($WhoChar is "Волк") and ($TroubleItem is "Свиной окорок"), "и вместе со своим новым другом, Волком, открывает шашлычную.",
($TroubleItem is "Книга стихов") and ($WhoChar is not "Юная дева"), ", записывается в школу и наконец-то выучивается читать и писать.",
($TroubleItem is "Книга стихов"), "и становится известным поэтом и философом.",
(($StorageItem is "Книга стихов") or ($ArmoreItem is "Книга стихов") or ($BuyItem is "Книга стихов")), "и становится известным поэтом и философом.",
", залечивает раны и отправляется навстречу новым приключениям."
))
(set: _final to $Twist of (dm:
"Сказочный", "Герой решает, что настоящий подвиг должен быть совершён бескорыстно. Он отказывается он награды и красиво уходит в закат.",
"Индийский", "$HeroName раздавлен. Он отказывается от награды и признания и уходит в отшельники.",
"Матрица", "$HeroName отказывается следовать к счастливому финалу истории. _destinyBookГерой прощается со сценаристом и отправляется в дорогу, искать собственный путь.",
"Иллюзия выбора", "$HeroName решает, что пока у него есть выбор, надо сматывать удочки. Оставив принцессу саму решать проблему возвращения домой, герой уходит жить в ближайший город _startUp За наградой $HeroName так и не является.",
"Меньшее зло", "$HeroName смотрит на принцессу холодным взглядом, молча встаёт и уходит. он отправляется жить в ближайший город _startUp За наградой $HeroName так и не является.",
))
(replace: ?final)[(print: "_final _otherGirl")]
]
}(display: "Акт 1. Текст")
(display: "Акт 2. Текст")
(display: "Акт 3. Текст")
[[Надо переделать третий акт->Акт 3. Выбор]]
(link: "Надо переделать второй акт")[(display: "Акт 3. Отмена")(display: "Акт 2. Отмена")(go-to: "Акт 2. Выбор")]
(link: "Надо переделать первый акт")[(display: "Акт 3. Отмена")(display: "Акт 2. Отмена")(go-to: "Акт 1. Выбор")]
---
[[Отправить текст редактору->Отправка редактору]]
{
(display: "Сбор статистики")
}**Ответ редактора:**
(if: $YouName is 0)[(set: $YouName to "Аноним")]
(color: lime)[Здравствуй, $YouName!
Прочёл черновик сценария и |result>[мне поравилось.] |description>[]
|someMoments>[Всё идеально, мы берём сценарий в работу!]]
---
**Поздравляю, вы завершили игру! Ваша статистика:**
(color: lime)[(print: "История:")]
(color: white)[(print: "Традиционная на $CasualPoint%")]
(color: yellow)[(print: "Странная на $StrangePoint%")]
(color: red)[(print: "Безумная на $ShockPoint%")]
(color: lime)[(print: "Угаданы замечения редактора:")]
|editor>[]
(display: "Ссылка на ЖЖ")
---
[[Ещё раз насладиться текстом->Вся вычитка]]
[[Начать сначала->Правила игры]]
(link: "Вернуться в первый акт")[(display: "Акт 2. Отмена")(go-to: "Акт 1. Выбор")]
(link: "Вернуться во второй акт")[(display: "Акт 3. Отмена")(go-to: "Акт 2. Выбор")]
[[Вернуться в третий акт->Акт 3. Выбор]]
---
(display: "Сохранения")
{
(if: $BadTwist)
[(replace: ?result)[(print: "большие претензии у меня только к концовке, остальное можно брать в работу.")]]
(if: ($CasualPoint is 100))
[(set: $StoryDesc to "Сюжет прост и абсолютно традиционен, как все мы любим.")]
(else-if: ($CasualPoint > 50))
[
(set: $StoryDesc to "Сюжет более-менее традиционный, но со своими сюрпризами.")
(if: ($ShockPoint > 0) and ($StrangePoint > 0))
[(set: $StoryDesc to $StoryDesc + " Есть несколько необычных и даже безумных сцен.")]
(else-if: ($ShockPoint > 0))
[(set: $StoryDesc to $StoryDesc + " Есть пара абсолютно безумных сцен.")]
(else:)
[(set: $StoryDesc to $StoryDesc + " Есть пара необычных сцен.")]
]
(else-if: ($CasualPoint > $StrangePoint) and ($CasualPoint > $ShockPoint))
[
[(set: $StoryDesc to "Получился эдакий микс из традиционной сказочной истории, альтернативной логики и откровенного безумия.")]
]
(else-if: ($StrangePoint > 80))
[(set: $StoryDesc to "Ни разу в жизни не видел столько альтернативной логики. Половина зрителей нас полюбит, другая половина будет в бешенстве. Но обсуждать будут все.")]
(else-if: ($StrangePoint > 50))
[
(if: $ShockPoint > 0)
[(set: $StoryDesc to "Сюжет - гнездовище альтернативной логики, микс традиционной сказки и клинического безумия. Половина зрителей нас полюбит, другая половина будет в бешенстве. Но обсуждать будут все.")]
(else:)
[(set: $StoryDesc to "Сюжет - гнездовище альтернативной логики на рельсах традиционной сказки. Половина зрителей нас полюбит, другая половина будет в бешенстве. Но обсуждать будут все.")]
]
(else-if: ($StrangePoint > $ShockPoint) and ($StrangePoint > $CasualPoint))
[
[(set: $StoryDesc to "Получился эдакий микс из традиционной сказочной истории, альтернативной логики и откровенного безумия.")]
]
(else-if: ($ShockPoint > 74))
[(set: $StoryDesc to "В сюжете безумно всё, от начала и до конца! Такого я ещё не видел.")]
(else-if: ($ShockPoint > 50))
[
(if: ($CasualPoint > 0) and ($StrangePoint > 0))
[(set: $StoryDesc to "Безумная фиерия с вкраплениями альтернативной логики и традиционной сказки.")]
(else-if: $CasualPoint > 0)
[(set: $StoryDesc to "Безумная фиерия, замешанная на альтернативной логике. Половина зрителей нас полюбит, другая половина будет в бешенстве. Но обсуждать будут все.")]
(else:)
[(set: $StoryDesc to "Временами всё идёт как в обычной сказке, но только ты к этому привыкаешь и бах! Случается какая-то дичайшая дичь :-)")]
]
(else:)
[
[(set: $StoryDesc to "Получился эдакий микс из традиционной сказочной истории, альтернативной логики и откровенного безумия.")]
]
(replace: ?description)[(print: $StoryDesc)]
(set: _badCount to ($BadList's length))
(set: _goodCount to $BangTotal - _badCount)
(if: _badCount is 0)
[
(replace: ?editor)[(color: green)[(print: "все, абсолютно все")]]
]
(else:)
[
(replace: ?editor)[(color: white)[(print: "_goodCount из $BangTotal")]]
]
(if: _badCount > 0)
[
(set: $BadMoments to "Что можно улучшить:")
(for: each _moment, ...$BadList)
[
(set: $BadMoments to $BadMoments + "\n" + _moment)
]
(replace: ?someMoments)[(print: "$BadMoments \n\nВсе неровности мы исправим по ходу дела. Сценарий идёт в работу и пусть Голливуд рыдает от зависти!")]
]
}
{
(display: "Акт 1. Сброс")
(display: "Акт 2. Сброс")
(set: $ArmoreItem to "Книга стихов")
(set: $StorageItem to "Меч")
(set: $BountyItem to "Книга стихов")
(set: $BuyItem to "Золотой")
(set: $TroubleItem to "Меч")
(set: $FoundItem to "Книга стихов")
(set: $FirstPlace to "Таверна")
(set: $NightPlace to "Тюрьма")
(set: $WayPlace to "Лес")
(set: $SecretPlace to "Лес")
(set: $WhoChar to "Волк")
(set: $ForceChar to "Волк")
(display: "Акт 3. Сброс")
(set: $HeroName to "Яйцекрут")
(set: _new1 to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов", "Лесные ягоды", "Верёвка"))
(set: _new2 to (a: "Рынок", "Таверна", "Площадь", "Тюрьма", "Лес", "Кладбище"))
(set: _new3 to (a: "Конь", "Волк", "Баба-Яга", "Юная дева", "Богиня", "Дьяволица"))
(set: _new4 to (a: "Сказочный", "Индийский", "Матрица", "Иллюзия выбора", "Меньшее зло", "Ничего не было"))
(set: _add to (a: "Ничего не менять", "Новые способности"))
(set: $ArmoreChange to "-")
(set: $FirstAttack to "Верёвка")
(set: $SecondAttack to "Книга стихов")
(set: $WhoGirl to "Конь")
(set: $Twist to "Иллюзия выбора")
(set: $BountyChose to "Нет")
(set: $HasSleep to false)
(set: $HasEat to true)
(go-to: "Акт 3. Вычитка")
}(color: lime)[**Привет!**
Добро пожаловать в симулятор сценариста.
Сценаристом быть непросто. Все сюжеты давно придуманы, а зритель хочет чего-то новенького. Приходится переделывать старые сказки на новый лад.]
(color: white)[Этим вы и займётесь. Цели игры:]
(color: white)[- Хорошенько покуражиться]
(color: white)[- Довести сценарий до конца]
(color: white)[- Порадовать вашего редактора]
(color: lime)[Вы будете выбирать детали сценария и смотреть что получается.]
(color: blue)[**Синим цветом**] (color: gray)[будет обозначаться возможность выбора]
(color: white)[Белым цветом] (color: gray)[неизменная часть сюжета]
(color: yellow)[Жёлтым цветом] (color: gray)[то что придумали вы]
*И, наконец, курсивом* (color: gray)[мысли сценариста]
---
[[Всё понятно, начинаем! ->Имя сценариста]]
(for: each _save, ...(datanames:(saved-games:)))[{
(link: "Загрузить игру \"" + _save + "\"")[(load-game: _save)]
}
](set: $YouName to (prompt: "Введите своё имя:", "Анонимный Гений"))
(if: $YouName is "")[(set: $YouName to "Анонимный Гений")]
(goto: "Вводное письмо редактора"){
(set: $CasualPoint to 0)
(set: $StrangePoint to 0)
(set: $ShockPoint to 0)
(set: $CasualTotal to 0)
(set: $StrangeTotal to 0)
(set: $ShockTotal to 0)
(set: $ArmoreGoldBang to false)
(set: $ArmorePorkBang to false)
(set: $ArmorePoetBang to false)
(set: $PoetBang to false)
(set: $CloackBountyBang to false)
(set: $GoldManiacBang to false)
(set: $CloackSleepOrUseBang to false)
(set: $PrisonSleepBang to false)
(set: $WolfStartupBang to false)
(set: $WolfEatBang to false)
(set: $HorseStartupBang to false)
(set: $HorseEatBang to false)
(set: $MatrixFearBang to false)
(set: $GirlBountyBang to false)
(set: $GirlGoToGameBang to false)
(set: $GirlLiveBang to false)
(set: $CantReadTextBang to false)
(set: $DestinyBookBang to false)
(set: $UseForceBang to false)
(set: $PrincessAsWolfBang to false)
(set: $PrincessAsDevilBang to false)
(set: $PrincessAsHorseBang to false)
(display: "Сбор статистики. Акт 1")
(display: "Сбор статистики. Акт 2")
(display: "Сбор статистики. Акт 3")
(set: $StrangePoint to (floor: ($StrangePoint * 100.0 / $StrangeTotal)))
(set: $CasualPoint to (floor: ($CasualPoint * 100.0 / $CasualTotal)))
(if: ($StrangePoint + $CasualPoint) > 100)
[(set: $CasualPoint to 100 - $StrangePoint)]
(set: $ShockPoint to 100 - $StrangePoint - $CasualPoint)
(display: "Подсчёт ружей")
}{
(set: _selector to $ArmoreItem)
(if: _selector is "Золотой")
[(set: $ShockPoint to $ShockPoint + 1)(set: $ArmoreGoldBang to true)]
(if: _selector is "Доспех")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $ShockPoint to $ShockPoint + 1)(set: $ArmorePorkBang to true)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)(set: $ArmorePoetBang to true)]
(if: _selector is "Плащ")
[(set: $CasualPoint to $CasualPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $StorageItem)
(if: _selector is "Золотой")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)(set: $PoetBang to true)]
(if: _selector is "Свиной окорок")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Плащ")
[(set: $CasualPoint to $CasualPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)
(if: $FirstPlace is "Тюрьма")
[(set: $StrangePoint to $StrangePoint + 1)]
(else:)
[(set: $CasualPoint to $CasualPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)
(set: _selector to $BountyItem)
(if: _selector is "Золотой")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Меч")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Доспех")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Книга стихов")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Плащ")
[(set: $ShockPoint to $ShockPoint + 1)(set: $CloackBountyBang to true)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $BuyItem)
(if: _selector is "Золотой")
[(set: $ShockPoint to $ShockPoint + 1)(set: $GoldManiacBang to true)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Плащ")
[(set: $StrangePoint to $StrangePoint + 1)(set: $CloackSleepOrUseBang to true)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(if: $StorageItem is not "Меч" and $BuyItem is not "Меч")
[(set: $StrangePoint to $StrangePoint + 1)(set: $StrangeTotal to $StrangeTotal + 1)]
(set: _selector to $NightPlace)
(if: _selector is "Таверна")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Площадь")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Тюрьма")
[(set: $ShockPoint to $ShockPoint + 1)(set: $PrisonSleepBang to true)]
(if: _selector is "Рынок")
[(set: $StrangePoint to $StrangePoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
}{
(set: _selector to $WayPlace)
(if: _selector is "Таверна")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Площадь")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Тюрьма")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Рынок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Лес")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Кладбище")
[(set: $CasualPoint to $CasualPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)
(if: $WhoChar is "Волк")[
(set: _selector to $TroubleItem)
(if: _selector is "Золотой")
[(set: $ShockPoint to $ShockPoint + 1)(set: $WolfStartupBang to true)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)(set: $WolfEatBang to true)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)(set: $CantReadTextBang to true)]
(if: _selector is "Плащ")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Лесные ягоды")
[(set: $ShockPoint to $ShockPoint + 1)(set: $MatrixFearBang to true)]
(if: _selector is "Верёвка")
[(set: $CasualPoint to $CasualPoint + 1)]
]
(if: $WhoChar is "Конь")[
(set: _selector to $TroubleItem)
(if: _selector is "Золотой")
[(set: $ShockPoint to $ShockPoint + 1)(set: $HorseStartupBang to true)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)(set: $HorseEatBang to true)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)(set: $CantReadTextBang to true)]
(if: _selector is "Плащ")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Лесные ягоды")
[(set: $ShockPoint to $ShockPoint + 1)(set: $MatrixFearBang to true)]
(if: _selector is "Верёвка")
[(set: $CasualPoint to $CasualPoint + 1)]
]
(if: $WhoChar is "Баба-Яга")[
(set: _selector to $TroubleItem)
(if: _selector is "Золотой")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Книга стихов")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Плащ")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Лесные ягоды")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Верёвка")
[(set: $CasualPoint to $CasualPoint + 1)]
]
(if: $WhoChar is "Юная дева")[
(set: _selector to $TroubleItem)
(if: _selector is "Золотой")
[(set: $CasualPoint to $CasualPoint + 1)(set: $GirlBountyBang to true)]
(if: _selector is "Меч")
[(set: $ShockPoint to $ShockPoint + 1)(set: $GirlGoToGameBang to true)]
(if: _selector is "Доспех")
[(set: $ShockPoint to $ShockPoint + 1)(set: $GirlGoToGameBang to true)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Плащ")
[(set: $ShockPoint to $ShockPoint + 1)(set: $GirlGoToGameBang to true)]
(if: _selector is "Лесные ягоды")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Верёвка")
[(set: $CasualPoint to $CasualPoint + 1)(set: $GirlLiveBang to true)]
]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $SecretPlace)
(if: _selector is "Таверна")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Площадь")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Тюрьма")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Рынок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Лес")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Кладбище")
[(set: $CasualPoint to $CasualPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $FoundItem)
(if: _selector is "Золотой")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Книга стихов")
[(set: $StrangePoint to $StrangePoint + 1)(set: $DestinyBookBang to true)]
(if: _selector is "Плащ")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Лесные ягоды")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Верёвка")
[(set: $ShockPoint to $ShockPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $ForceChar)
(if: _selector is "Конь")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Волк")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Юная дева")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Баба-Яга")
[(set: $ShockPoint to $ShockPoint + 1)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: $UseForceBang to true)
}{
(if: ($ArmoreItem is not "Доспех") and ($ArmoreChange is not "Доспех") and ($AllArmoreChanges contains "Доспех"))
[(set: $StrangePoint to $StrangePoint + 1)(set: $StrangeTotal to $StrangeTotal + 1)]
(set: _selector to $FirstAttack)
(if: _selector is "Золотой")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Книга стихов")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Плащ")
[
(if: $ArmoreChange is "Плащ")
[(set: $ShockPoint to $ShockPoint + 1)]
(else-if: $ArmoreItem is "Плащ" and $ArmoreChange is "Ничего не менять")
[(set: $ShockPoint to $ShockPoint + 1)]
(else:)
[(set: $StrangePoint to $StrangePoint + 1)]
]
(if: _selector is "Верёвка")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Новые способности")
[
(if: $ForceChar is "Конь")
[(set: $ShockPoint to $ShockPoint + 1)]
(else-if: $ForceChar is "Волк")
[(set: $CasualPoint to $CasualPoint + 1)]
(else-if: $ForceChar is "Баба-Яга")
[(set: $ShockPoint to $ShockPoint + 1)]
(else-if: $ForceChar is "Юная дева")
[(set: $ShockPoint to $ShockPoint + 1)]
]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $SecondAttack)
(if: _selector is "Золотой")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Меч")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Доспех")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Свиной окорок")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Книга стихов")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Плащ")
[
(if: $ArmoreChange is "Плащ")
[(set: $ShockPoint to $ShockPoint + 1)]
(else-if: $ArmoreItem is "Плащ" and $ArmoreChange is "Ничего не менять")
[(set: $ShockPoint to $ShockPoint + 1)]
(else:)
[(set: $StrangePoint to $StrangePoint + 1)]
]
(if: _selector is "Верёвка")
[
(if: $ForceChar is "Конь")
[(set: $ShockPoint to $ShockPoint + 1)]
(else:)
[(set: $StrangePoint to $StrangePoint + 1)]
]
(if: _selector is "Новые способности")
[
(if: $ForceChar is "Конь")
[(set: $CasualPoint to $CasualPoint + 1)]
(else-if: $ForceChar is "Волк")
[(set: $StrangePoint to $StrangePoint + 1)]
(else-if: $ForceChar is "Баба-Яга")
[(set: $ShockPoint to $ShockPoint + 1)]
(else-if: $ForceChar is "Юная дева")
[(set: $ShockPoint to $ShockPoint + 1)]
]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $WhoGirl)
(if: _selector is "Конь")
[(set: $ShockPoint to $ShockPoint + 1)(set: $PrincessAsHorseBang to true)]
(if: _selector is "Волк")
[(set: $StrangePoint to $StrangePoint + 1)(set: $PrincessAsWolfBang to true)]
(if: _selector is "Баба-Яга")
[(set: $StrangePoint to $StrangePoint + 1)(set: $PrincessAsHorseBang to true)]
(if: _selector is "Юная дева")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Богиня")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Дьяволица")
[(set: $ShockPoint to $ShockPoint + 1)(set: $PrincessAsDevilBang to true)]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: _selector to $Twist)
(if: _selector is "Сказочный")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Индийский")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Матрица")
[(set: $ShockPoint to $ShockPoint + 1)]
(if: _selector is "Иллюзия выбора")
[(set: $CasualPoint to $CasualPoint + 1)]
(if: _selector is "Меньшее зло")
[(set: $StrangePoint to $StrangePoint + 1)]
(if: _selector is "Ничего не было")
[
(if: $NightPlace is "Тюрьма")
[(set: $ShockPoint to $ShockPoint + 1)]
(else:)
[(set: $StrangePoint to $StrangePoint + 1)]
]
(set: $CasualTotal to $CasualTotal + 1)(set: $StrangeTotal to $StrangeTotal + 1)(set: $ShockTotal to $ShockTotal + 1)
(set: $BadTwist to ($Twist is "Ничего не было") and ($NightPlace is not "Тюрьма"))
}{
(display: "Акт 1. Сброс")
(display: "Акт 2. Сброс")
(set: $ArmoreItem to "Книга стихов")
(set: $StorageItem to "Меч")
(set: $BountyItem to "Книга стихов")
(set: $BuyItem to "Золотой")
(set: $TroubleItem to "Меч")
(set: $FoundItem to "Книга стихов")
(set: $FirstPlace to "Таверна")
(set: $NightPlace to "Тюрьма")
(set: $WayPlace to "Лес")
(set: $SecretPlace to "Лес")
(set: $WhoChar to "Волк")
(set: $ForceChar to "Волк")
(display: "Акт 3. Сброс")
(set: $HeroName to "Яйцекрут")
(set: _new1 to (a: "Доспех", "Плащ", "Золотой", "Меч", "Свиной окорок", "Книга стихов", "Лесные ягоды", "Верёвка"))
(set: _new2 to (a: "Рынок", "Таверна", "Площадь", "Тюрьма", "Лес", "Кладбище"))
(set: _new3 to (a: "Конь", "Волк", "Баба-Яга", "Юная дева", "Богиня", "Дьяволица"))
(set: _new4 to (a: "Сказочный", "Индийский", "Матрица", "Иллюзия выбора", "Меньшее зло", "Ничего не было"))
(set: _add to (a: "Ничего не менять", "Новые способности"))
(set: $ArmoreChange to "-")
(set: $FirstAttack to "Верёвка")
(set: $SecondAttack to "Книга стихов")
(set: $WhoGirl to "Конь")
(set: $Twist to "Иллюзия выбора")
(set: $BountyChose to "Нет")
(set: $HasSleep to false)
(set: $HasEat to true)
(set: $ForceBang to true)
(display: "Отправка редактору")
}{
(set: $BangTotal to 0)
(set: $NoBangTotal to 0)
(set: $BadList to (a:))
(if: $BadTwist)
[
(set: $BadList to (a: ...$BadList, "- Просто сказать \"это был сон\" - мало. Пробуждение должно быть шокирующим. Пусть всё перевернётся с ног на голову."))
(set: $BangTotal to $BangTotal + 1)
]
(if: $ArmoreGoldBang)
[
(set: _armoreHard to (cond:
($ArmoreChange is "Доспех" or ($ArmoreItem is "Доспех" and $ArmoreChange is not "Плащ")), 2,
($ArmoreChange is "Плащ" or ($ArmoreItem is "Плащ" and $ArmoreChange is not "Доспех")), 1,
0))
(if: (_armoreHard is 2) or (($FirstAttack is not "Золотой") and ($SecondAttack is not "Золотой")))
[(set: $BadList to (a: ...$BadList, "- Нескромный костюм героя из одной лишь золотой монеты должен взбудоражить зрителя. Костюму нужно уделить больше места в сюжете."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $ArmorePorkBang)
[
(if: $CasualPoint > 50)
[(set: $BadList to (a: ...$BadList, "- От героя \"одетого\" в свиной окорок я ожидал больше безумных и странных поступков."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $ArmorePoetBang)
[
(if: ($FirstAttack is not "Книга стихов") and ($SecondAttack is not "Книга стихов"))
[(set: $BadList to (a: ...$BadList, "- Герой избрал своей защитой рифму. Он был уверен в силе слова, но так и не использовал свою силу."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $PoetBang)
[
(set: _poetEnd to (($Twist is "Меньшее зло") or ($Twist is "Иллюзия выбора")) and ($BountyChose is "Нет"))
(if: ($FirstAttack is not "Книга стихов") and ($SecondAttack is not "Книга стихов") and (not _poetEnd))
[(set: $BadList to (a: ...$BadList, "- Герой явно вдохновлялся поэзией, но поэзия никуда его не привела."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $CloackBountyBang)
[
(if: ($Twist is "Ничего не было") or ($BountyChose is "Нет"))
[(set: $BadList to (a: ...$BadList, "- Наградой за дракона был громадный женский гардероб. Герой столько всего совершил ради женских шмоток! А, в итоге, зритель так и не узнал, трансвестит герой или нет."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $GoldManiacBang)
[
(if: ($FisrtAttack is not "Золотой") and ($SecondAttack is not "Золотой"))
[(set: $BadList to (a: ...$BadList, "- В первом акте был намёк, что герой жаден до золота. Если так, то пусть золото спасёт его или едва не погубит."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $CloackSleepOrUseBang)
[
(if: ($NightPlace is not "Рынок") and ($NightPlace is not "Площадь") and ($ArmoreChange is not "Плащ") and ($FirstAttack is not "Плащ") and ($SecondAttack is not "Плащ"))
[(set: $BadList to (a: ...$BadList, "- Зритель жаждет визуала. Битвы, спецэффекты, красивые костюмчики. А твой герой купил плащ и ни разу не достал его из мешка. Не хорошо."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $PrisonSleepBang)
[
(if: $Twist is not "Ничего не было")
[(set: $BadList to (a: ...$BadList, "- Герой отсидел, но его преступное прошлое так и не сыграло свою роль."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $WolfStartupBang)
[
(if: (($Twist is not "Меньшее зло") and ($Twist is not "Иллюзия выбора")) or ($BountyChose is "Да") )
[(set: $BadList to (a: ...$BadList, "- Тема стартапов очень популярна! Хочу узнать, начал ли волк своё дело и как всё сложилось."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $WolfEatBang)
[
(if: (($Twist is not "Меньшее зло") and ($Twist is not "Иллюзия выбора")) or ($BountyChose is "Да") )
[(set: $BadList to (a: ...$BadList, "- Во втором акте всплыла тема веганства и здорового питания. Надо её развить."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $HorseStartupBang)
[
(if: (($Twist is not "Меньшее зло") and ($Twist is not "Иллюзия выбора")) or ($BountyChose is "Да") )
[(set: $BadList to (a: ...$BadList, "- Во втором акте всплыла тема экспутации и жестокого обращения с животными для организации массовых развлечений. Надо её развить."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $HorseEatBang)
[
(if: (($Twist is not "Меньшее зло") and ($Twist is not "Иллюзия выбора")) or ($BountyChose is "Да") )
[(set: $BadList to (a: ...$BadList, "- Во втором акте всплыла тема веганства и здорового питания. Надо её развить."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $MatrixFearBang)
[
(if: ($Twist is not "Матрица") and ($Twist is not "Ничего не было"))
[(set: $BadList to (a: ...$BadList, "- Во втором акте затронута популярная тема иллюзорности мира. Надо её развить."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $GirlBountyBang)
[
(if: ($FoundItem is not "Меч") and (($Twist is "Ничего не было") or ($BountyChose is "Да")))
[(set: $BadList to (a: ...$BadList, "- Герой отдал незнакомой девушке всё своё имущество. Считаю, она задолжала герою как минимум ещё одно появление в сюжете."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $GirlGoToGameBang)
[
(if: ($Twist is not "Матрица") and ($Twist is not "Меньшее зло"))
[(set: $BadList to (a: ...$BadList, "- Была сцена, где второстепенный персонаж шёл на игру. Ролевые игры в мире реальных мечей и драконов? Если это намёк на искусственность, на условность всего путешествия героя, то намёк не сыграл. А мог бы."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $GirlLiveBang)
[
(if: (($Twist is "Ничего не было") or ($BountyChose is "Да")))
[(set: $BadList to (a: ...$BadList, "- Во втором акте девушка испытывает двойственные ощущения - дракон выбрал принцессу, а не её. Сделай красиво. Пусть герой выберет её, а не принцессу."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $CantReadTextBang)
[
(if: (($Twist is not "Меньшее зло") and ($Twist is not "Иллюзия выбора")) or ($BountyChose is "Да") )
[(set: $BadList to (a: ...$BadList, "- Мельком затронута острая социальная проблема - герой неграмотен. Пусть герой учится. А министество образования потом порекомендует наш фильм для показа школьникам (мечты-мечты)."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $DestinyBookBang)
[
(if: ($Twist is not "Матрица") and ($Twist is not "Иллюзия выбора"))
[(set: $BadList to (a: ...$BadList, "- Герой находит книгу своей судьбы. Мощный ход, ведущий... никуда."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $UseForceBang)
[
(if: not $ForceBang)
[(set: $BadList to (a: ...$BadList, "- Герой обрёл волшебную силу, однако так её и не использовал. Зритель будет разочарован."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $PrincessAsWolfBang)
[
(if: ($Twist is not "Иллюзия выбора") and ($Twist is not "Меньшее зло"))
[(set: $BadList to (a: ...$BadList, "- Раз принцесса показана как сильная и незвисимаая, выводи её в главные герои."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $PrincessAsDevilBang)
[
(if: ($Twist is "Сказочный") or ($Twist is not "Индийский") or ($Twist is not "Матрица"))
[(set: $BadList to (a: ...$BadList, "- Злодейская сущность принцессы должна была вывести на какой-то твист. И не вывела."))]
(set: $BangTotal to $BangTotal + 1)
]
(if: $PrincessAsHorseBang)
[
(if: ($BountyChose is "Нет") and ($Twist is not "Ничего не было") and ($Twist is not "Матрица"))
[(set: $BadList to (a: ...$BadList, "- Если уж ты делаешь принцессу далёкой от стандартов красоты, то герой должен взять её в жёны. Иначе общественность нас не поймёт."))]
(set: $BangTotal to $BangTotal + 1)
]
}{
(set: _image to (cond:
($CasualPoint > 50), "dragoncasual",
($StrangePoint > 50), "dragonstrange",
($ShockPoint > 50), "dragonshock",
"dragonmiddle"
))
(set: _urlHeader to "http://www.livejournal.com/update.bml?subject=Дракон убит, принцесса спасена&event=")
(set: _imageUrl to "<p style='text-align: center'><img src='http://mindpin.ru/my_img/" + _image + ".jpg' width=800></p>")
(set: _historyTitle to "<p style='text-align: center'><span style='font-size: 1.2em'><b>Моя история:</b></span></p>")
(set: _statBegin to "<p style='text-align: center'><span style='font-size: 1.2em'><b>")
(set: _statMiddle to "<span style='font-size: 1.4em'>")
(set: _statEnd to "%</span>")
(set: _allStatEnd to "%</span></b></span></p>")
(set: _bottomUrl to "<p style='text-align: center'><span style='font-size: 1.4em'><a href='http://mindpin.ru/games/scenariolj.html'>Создать свою историю</a></p><p style='text-align: center'></span><a href='https://mozgosteb.livejournal.com/113851.html'>Другие игры от mozgosteb'а</a></p>")
(set: _url1 to (_urlHeader + _historyTitle
+ _statBegin))
(set: _url2 to (_statBegin + "Традиционная на " + _statMiddle + (str: $CasualPoint) + _statEnd))
(set: _url3 to (" Странная на " + _statMiddle + (str: $StrangePoint) + _statEnd))
(set: _url4 to (" Безумная на " + _statMiddle + (str: $ShockPoint) + _allStatEnd))
(set: _url to _url1 + _url2 + _url3 + _url4 + _imageUrl + _bottomUrl)
(link-repeat: "Похвастаться у себя в ЖЖ")[(open-url: _url)]
}(set: $StrangePoint to 20)
(set: $CasualPoint to 30)
(set: $ShockPoint to 80)
(display: "Ссылка на ЖЖ")(link: "Сохранить игру")[{
(set: _num to (datanames:(saved-games:))'s length + 1)
(set: _saveName to (prompt: "Название:", "Сохранение " + (str: _num)))
(if: _saveName is "")[(save-game: "Сохранение")]
(else:)[(save-game: _saveName)]
}]
(for: each _save, ...(datanames:(saved-games:)))[{
(link: "Загрузить игру \"" + _save + "\"")[(load-game: _save)]
}
]