904 lines
36 KiB
Lua
904 lines
36 KiB
Lua
mywear = obj {
|
||
nam = 'ватник',
|
||
dsc = function(s)
|
||
if here() == stolcorridor then
|
||
local st='';
|
||
if not have('gun') then
|
||
st = 'Под которым спрятан дробовик.';
|
||
end
|
||
return 'А еще на вешалке висит мой {ватник}.'..st;
|
||
else
|
||
return 'На гвоздике, вбитом в сосновую дверь, висит {ватник}.';
|
||
end
|
||
end,
|
||
inv = 'Зима. Но я одет в теплый ватник.',
|
||
tak = function(s)
|
||
if here() == stolcorridor then
|
||
if have('alienwear') then
|
||
return 'Я уже одет... Если я еще схвачу свой ватник, то буду выглядеть подозрительно...', false;
|
||
end
|
||
if me()._walked then
|
||
me()._walked = false;
|
||
inv():add('gun');
|
||
return 'Все-же мой ватник самый лучший!';
|
||
end
|
||
return 'Это слишком заметно... ', false;
|
||
else
|
||
return 'Я снял с гвоздика свой ватник.';
|
||
end
|
||
end,
|
||
use = function(s, o)
|
||
if o == 'guy' then
|
||
return 'Немного помешкав, вы поменялись ватниками...';
|
||
end
|
||
end
|
||
};
|
||
|
||
money = obj {
|
||
nam = 'деньги',
|
||
inv = 'Большие деньги -- большое зло... Хорошо что у меня немного денег...',
|
||
use = function(s, w)
|
||
if w == 'shopman' then
|
||
if shopman._wantmoney then
|
||
shopman._wantmoney = false;
|
||
return 'Я расплачиваюсь с Владимиром.';
|
||
end
|
||
return 'Я не хочу платить просто так...';
|
||
end
|
||
end
|
||
};
|
||
|
||
mybed = obj {
|
||
nam = 'кровать',
|
||
dsc = 'У окна стоит {кровать}.',
|
||
act = 'Сейчас не время спать.',
|
||
};
|
||
|
||
mytable = obj {
|
||
nam = 'стол',
|
||
dsc = 'В левом углу стоит дубовый {стол} с ящиками.',
|
||
act = function()
|
||
if not have(money) then
|
||
take('money');
|
||
return 'Порывшись в ящиках я достал деньги.';
|
||
end
|
||
return 'Стол... Этот стол я сделал своими руками.';
|
||
end,
|
||
};
|
||
|
||
foto = obj {
|
||
nam = 'фото',
|
||
dsc = 'На столе стоит {фотокарточка} в рамке.',
|
||
tak = 'Я взял фотографию.',
|
||
inv = 'На этой фотографии изображены я и мой Барсик.',
|
||
};
|
||
|
||
gun = obj {
|
||
nam = 'дробовик',
|
||
dsc = 'В правом углу хижины стоит {дробовик}.',
|
||
tak = 'Я взял дробовик и повесил его за спину.',
|
||
inv = function(s)
|
||
local st = '';
|
||
if s._obrez then
|
||
st = ' Кстати, теперь это обрез.';
|
||
if s._hidden then
|
||
st = st..' Он спрятан в моей одежде.';
|
||
end
|
||
end
|
||
if s._loaded then
|
||
return 'Дробовик заряжен...'..st;
|
||
else
|
||
return 'Разряженный дробовик... Я редко пользовался им в лесу...'..st;
|
||
end
|
||
end,
|
||
use = function(s, w)
|
||
if w == 'guard' then
|
||
return 'Да, они негодяи, но во-первых они люди, а во-вторых все-равно не поможет...', false;
|
||
end
|
||
if w == 'wire' then
|
||
return 'Слишком близко... Тут нужно что-то вроде кусачек...', false;
|
||
end
|
||
if w == 'cam' and not cam._boken then
|
||
cam._broken = true;
|
||
s._loaded = false;
|
||
return 'Я прицелился в камеру и выстрелил из обоих стволов... Глухой выстрел потонул в порывах вьюги...';
|
||
end
|
||
if not s._hidden then
|
||
if w == 'mywear' or w == 'alienwear' then
|
||
if not s._obrez then
|
||
return 'Я попытался спрятать дробовик в одежду, но он слишком длинный.'
|
||
else
|
||
s._hidden = true;
|
||
return 'Теперь я могу спрятать обрез в одежде!.';
|
||
end
|
||
end
|
||
end
|
||
if not s._loaded then
|
||
return 'Не заряжен...', false;
|
||
end
|
||
if w == 'mycat' or w == 'shopman' or w == 'guy' then
|
||
return 'Это не моя мысль...', false;
|
||
end
|
||
end
|
||
};
|
||
|
||
fireplace = obj {
|
||
nam = 'камин',
|
||
dsc = 'У стены стоит {камин}. Огоньки пламени неравномерно освещают хижину.',
|
||
act = 'Мне нравится сидеть у камина долгими зимними вечерами.',
|
||
};
|
||
|
||
mycat = obj {
|
||
nam = 'Барсик',
|
||
_lflast = 0,
|
||
lf = {
|
||
[1] = 'Барсик шевелится у меня за пазухой.',
|
||
[2] = 'Барсик выглядывает из за пазухи.',
|
||
[3] = 'Барсик мурлычит у меня за пазухой.',
|
||
[4] = 'Барсик дрожит у меня за пазухой.',
|
||
[5] = 'Я чувствую тепло Барсика у себя за пазухой.',
|
||
[6] = 'Барсик высовывает голову из за пазухи и осматривает местность.',
|
||
},
|
||
life = function(s)
|
||
local r = rnd(6);
|
||
if r > 2 then
|
||
return;
|
||
end
|
||
r = rnd(6);
|
||
while (s._lflast == r) do
|
||
r = rnd(6);
|
||
end
|
||
s._lflast = r;
|
||
return s.lf[r];
|
||
end,
|
||
desc = { [1] = 'Возле камина уютно свернувшись в клубок спит мой кот {Барсик}.',
|
||
[2] = '{Барсик} изучает местность вокруг хижины.',
|
||
[3] = '{Барсик} сидит на соседнем сидении.',
|
||
[4] = '{Барсик} что-то изучает у мусорных баков...',
|
||
[5] = '{Барсик} трется у моих ног.',
|
||
},
|
||
inv = 'Барсик у меня за пазухой... Бедный мой котик... Я спасу тебя!!! И весь мир...',
|
||
dsc = function(s)
|
||
local state
|
||
if here() == home then
|
||
state = 1;
|
||
elseif here() == forest then
|
||
state = 2;
|
||
elseif here() == inmycar then
|
||
state = 3;
|
||
elseif here() == village then
|
||
state = 4;
|
||
elseif here() == escape3 then
|
||
state = 5;
|
||
end
|
||
return s.desc[state];
|
||
end,
|
||
act = function(s)
|
||
if here() == escape3 then
|
||
take('mycat');
|
||
lifeon('mycat');
|
||
return 'Я забираю Барсика к себе за пазуху.';
|
||
end
|
||
return 'Я почесал Барсика за ушами...';
|
||
end,
|
||
};
|
||
|
||
inmycar = room {
|
||
nam = 'в машине',
|
||
dsc = 'Я в своей машине... Моя рабочая лошадка...',
|
||
pic = 'gfx/incar.png',
|
||
way = {'forest', 'village'},
|
||
enter = function(s, f)
|
||
local s = 'Я открываю дверь машины.';
|
||
if have('mybox') then
|
||
return 'Я не могу залезть в кабину вместе с этим ящиком...', false;
|
||
end
|
||
if seen('mycat') then
|
||
s = s..' Барсик запрыгивает в кабину.'
|
||
move('mycat','inmycar');
|
||
elseif not me()._know_where then
|
||
return 'Нет... Сначала я должен найти Барсика!', false
|
||
end
|
||
if f == 'guarddlg' then
|
||
return 'Хмм... Нужно что-то придумать...';
|
||
end
|
||
return cat(s, ' Ну что же, пора ехать...');
|
||
end,
|
||
exit = function(s, t)
|
||
local s=''
|
||
if seen('mycat') then
|
||
s = ' Барсик выпрыгивает из машины первым.';
|
||
move('mycat',t);
|
||
end
|
||
if ref(t) ~= from() then
|
||
from().obj:del('mycar');
|
||
move('mycar', t);
|
||
return [[
|
||
Машина неохотно заводится... После длинного пути я, наконец, выключаю мотор и открываю дверь...]]..s;
|
||
end
|
||
return 'Нет... Кажется я что-то забыл...'..s;
|
||
end
|
||
};
|
||
|
||
mycar = obj {
|
||
nam = 'моя машина',
|
||
desc = {
|
||
[1] = 'Перед хижиной стоит мой старенький {пикап} Toyota.',
|
||
[2] = 'На стоянке машин стоит мой старенький {пикап}.',
|
||
[3] = 'Возле КПП стоит мой {пикап}.',
|
||
[4] = 'За углом стены стоит мой {пикап}.',
|
||
},
|
||
dsc = function(s)
|
||
local state
|
||
if here() == forest then
|
||
state = 1;
|
||
elseif here() == village then
|
||
state = 2;
|
||
elseif here() == inst then
|
||
state = 3;
|
||
elseif here() == backwall then
|
||
state = 4;
|
||
end
|
||
return s.desc[state];
|
||
end,
|
||
act = function(s)
|
||
return goto('inmycar');
|
||
end
|
||
};
|
||
|
||
iso = obj {
|
||
nam = 'изолента',
|
||
inv = 'Моток изоленты. Синего цвета...',
|
||
use = function(s, o)
|
||
if o == 'trap' and not trap._iso then
|
||
trap._iso = true;
|
||
return 'Я изолировал капкан изолентой.';
|
||
end
|
||
if o == 'wire' then
|
||
return 'Зачем мне это? Я все-равно не пролезу по колючей проволоке. К тому же я не могу ее изолировать -- меня долбанет током!';
|
||
end
|
||
end
|
||
};
|
||
|
||
trap = obj {
|
||
nam = 'капкан',
|
||
dsc = 'В траве лежит стальной {капкан}.',
|
||
tak = 'Проклятые браконьеры! Я беру капкан себе.',
|
||
inv = function(s)
|
||
if s._salo then
|
||
return 'Большая мышеловка! К тому же изолированная изолентой.';
|
||
end
|
||
if s._iso then
|
||
return 'Стальной. Очень острый. К тому же изолированный изолентой.';
|
||
else
|
||
return 'Стальной. Очень острый.';
|
||
end
|
||
end,
|
||
use = function(s, o)
|
||
if o == 'wire' and not wire._broken then
|
||
if not s._iso then
|
||
return 'Капкан железный... Тряхонет током и будь здоров...';
|
||
end
|
||
wire._broken = true;
|
||
onwall.way:add('eside');
|
||
return 'Я подношу взведенный капкан к проволоке... Как я и думал -- капкан перебил проволоку!';
|
||
end
|
||
end
|
||
};
|
||
|
||
deepforest = room {
|
||
i = 0,
|
||
nam = 'чаща',
|
||
pic = 'gfx/deepforest.png',
|
||
dsc = function(s)
|
||
local st = 'Я в чаще... ';
|
||
if s._i == 1 then
|
||
return st..'Сосны и ели... Больше ничего...';
|
||
elseif s._i == 2 then
|
||
return st..'Красивая березы -- только бы не заблудиться...';
|
||
elseif s._i == 3 then
|
||
return st..'Непроходимая чаща... Ничего не пойму -- я что -- заблудился?...';
|
||
elseif s._i == 4 then
|
||
return st..'Красивое озеро... Да... Может пора возвращаться?';
|
||
elseif s._i == 5 then
|
||
s._trap = true;
|
||
return st..'Какие-то кусты... Кусты.. Кусты...';
|
||
else
|
||
return st..'Пенек... Какой красивый пенек...';
|
||
end
|
||
end,
|
||
enter = function(s,f)
|
||
if f == 'forest' then
|
||
s._trap = false;
|
||
end
|
||
s._lasti = s._i;
|
||
while (s._i == s._lasti) do
|
||
s._i = rnd(6);
|
||
end
|
||
s.obj:del('trap');
|
||
s.way:del('forest');
|
||
if s._i == 5 and not inv():srch('trap') then
|
||
s.obj:add('trap');
|
||
end
|
||
if s._i == 3 and s._trap then
|
||
s.way:add('forest');
|
||
end
|
||
if f == 'forest' and inv():srch('trap') then
|
||
return [[Спасибо, я уже погулял по лесу...]], false;
|
||
end
|
||
if f == 'deepforest' then
|
||
return 'Хмм... Посмотрим...';
|
||
end
|
||
return [[В дикую чащу, пешком?
|
||
Хм... Почему бы и нет -- это же моя работа... Браконьеров погоняю...]], true;
|
||
--Я пол часа бродил по лесу, когда наткнулся на капкан...
|
||
--Проклятые ьраконьеры! Я взял капкан с собой.]], false;
|
||
end,
|
||
way = {'deepforest'},
|
||
};
|
||
|
||
road = room {
|
||
nam = 'дорога',
|
||
enter = function()
|
||
return 'Пешком? Нееет...', false;
|
||
end
|
||
};
|
||
|
||
forest = room {
|
||
nam = 'перед хижиной',
|
||
pic = 'gfx/forest.png',
|
||
dsc = [[
|
||
На улице перед хижиной все занесено снегом. Дикий лес окружает хижину со всех сторон. Дорога, ведущая в поселок занесена снегом.]],
|
||
way = { 'home', 'deepforest', 'road' },
|
||
obj = { 'mycar' },
|
||
};
|
||
|
||
home = room {
|
||
nam = 'хижина',
|
||
pic ="gfx/house.png",
|
||
dsc = [[
|
||
В этой хижине я провел 10 лет. 10 лет назад я своими руками построил ее. Довольно тесно, но уютно.]],
|
||
obj = { 'fireplace', 'mytable', 'foto', 'mycat', 'gun',
|
||
vobj(1,'окно', 'В хижине есть единственное {окно}.'),
|
||
'mybed', 'mywear' },
|
||
way = { 'forest' },
|
||
act = function(s,o)
|
||
if o == 1 then
|
||
return 'За окном белым-бело...';
|
||
end
|
||
end,
|
||
exit = function()
|
||
if not have('mywear') then
|
||
return 'На улице холодно... Я не пойду туда без моего ватника.', false
|
||
end
|
||
if seen(mycat) then
|
||
move('mycat','forest');
|
||
return [[
|
||
Когда я выходил из хижины Барсик внезапно проснулся и бросился мне под ноги.
|
||
Я погладил его за ушами -- Значит едем вместе?
|
||
]]
|
||
end
|
||
end
|
||
};
|
||
---------------- here village begins
|
||
truck = obj {
|
||
nam = 'черная машина',
|
||
dsc = 'Черная {машина} с тонированными стеклами стоит возле магазина.',
|
||
act = 'Гм... Это фургон... Кузов бронирован, это видно по нагрузке на колеса...',
|
||
};
|
||
|
||
guydlg = dlg {
|
||
pic = 'gfx/guy.png',
|
||
nam = 'разговор с бездомным',
|
||
dsc = 'Я подошел к нему... Он оглянулся и посмотрел на меня беглым взглядом - невысокий человек в потертой кепке и драном ватнике.',
|
||
obj = {
|
||
[1] = phr('Привет! Холодно наверное?', 'Да... Немного...'),
|
||
[2] = phr('Как случилось что ты оказался на улице?',
|
||
[[Когда то я хотел стать кандидатом наук... Писал диссертацию на тему строения материи.. Но... Мой мозг
|
||
переутомился... Я пытался успокоиться и вот... Теперь я здесь...]]),
|
||
[3] = phr('Как тебя зовут?', 'Эдуард...'),
|
||
[4] = _phr('Когда я уходил тут возле тебя был Кот... Где он?', 'Гм...', 'pon(5)'),
|
||
[5] = _phr('Да... Кот. Обычный кот, бродящий по снегу возле мусорных баков.', 'Так это был твой кот? Эммм...', 'pon(6)');
|
||
[6] = _phr('Да... Это мой Барсик! Говори же!',
|
||
'... Ммм... Кажется его взял этот человек... Ммм... -- холодок пробежал у меня по спине...', 'pon(7)'),
|
||
[7] = _phr('Куда, куда он поехал?', 'Извини, братишка, я не видел...', 'shopdlg:pon(4); pon(8);'),
|
||
[8] = phr('Ладно... Не важно...', '...', 'pon(8); back()'),
|
||
},
|
||
exit = function()
|
||
pon(1);
|
||
return 'Он отвернулся от меня и снова стал шарить по бакам...';
|
||
end
|
||
};
|
||
|
||
guy = obj {
|
||
nam = 'бездомный',
|
||
dsc = 'В мусорных баках копается {бездомный}.',
|
||
act = function()
|
||
return goto('guydlg');
|
||
end,
|
||
used = function(s, w)
|
||
if w == 'money' then
|
||
return [[
|
||
Я подошел и попытался дать немного денег... -- Мне не нужны чужие деньги... -- ответил он.]];
|
||
else
|
||
return 'Зачем это ему?';
|
||
end
|
||
end,
|
||
};
|
||
|
||
nomoney = function()
|
||
pon(1,2,3,4,5);
|
||
shopdlg:pon(2);
|
||
return cat('Тут я вспоминаю, что у меня нет денег... Совсем...^',back());
|
||
end
|
||
|
||
ifmoney ='if not have("money") then return nomoney(); end; shopman._wantmoney = true; ';
|
||
|
||
dshells = obj {
|
||
nam = 'гильзы',
|
||
dsc = function(s)
|
||
if here()._dshells > 4 then
|
||
return 'Под ногами валяется '..here()._dshells..' {гильз} от моего дробовика...';
|
||
else
|
||
return 'Под ногами валяются '..here()._dshells..' {гильзы} от моего дробовика...';
|
||
end
|
||
end,
|
||
act = 'Это мои гильзы... Мне они больше не нужны...';
|
||
};
|
||
|
||
function dropshells()
|
||
if here() == deepforest then
|
||
return;
|
||
end
|
||
if not here()._dshells then
|
||
here()._dshells = 2;
|
||
else
|
||
here()._dshells = here()._dshells + 2;
|
||
end
|
||
here().obj:add('dshells');
|
||
end
|
||
|
||
shells = obj {
|
||
nam = 'патроны',
|
||
inv = 'Патроны для моего дробовика. Я очень редко их использую в лесу, в основном -- против браконьеров.',
|
||
use = function(s, on)
|
||
if on == 'gun' then
|
||
if gun._loaded then
|
||
return 'Уже заряжен...';
|
||
end
|
||
if gun._loaded == false then
|
||
gun._loaded = true;
|
||
dropshells();
|
||
return 'Открыв дробовик я выбрасываю две гильзы и перезаряжаю дробовик.';
|
||
end
|
||
gun._loaded = true;
|
||
return 'Я беру два патрона и отправляю их в оба ствола дробовика...';
|
||
end
|
||
end
|
||
};
|
||
|
||
news = obj {
|
||
nam = 'газета',
|
||
inv = [[
|
||
Свежая газета... <<недавно построенный в тайге институт квантовой механики категорически опровергает
|
||
причастность к аномальным явлениям>>.. Гм...]],
|
||
used = function(s, w)
|
||
if w == 'poroh' then
|
||
if have('trut') then
|
||
return 'У меня уже есть трут.';
|
||
end
|
||
inv():add('trut');
|
||
inv():del('poroh');
|
||
return 'Я высыпаю порох на клочок бумаги, которую я оторвал от газеты...';
|
||
end
|
||
end,
|
||
};
|
||
|
||
hamb = obj {
|
||
nam = 'гамбургер',
|
||
inv = function()
|
||
inv():del('hamb');
|
||
return 'Я перекусил. Вредная пища...';
|
||
end
|
||
};
|
||
|
||
zerno = obj {
|
||
nam = 'крупа',
|
||
inv = 'Просто гречка. Гречневая крупа...',
|
||
};
|
||
|
||
shop2 = dlg {
|
||
nam = 'купить',
|
||
pic = 'gfx/shopbuy.png',
|
||
obj = {
|
||
[1] = phr('Патронов... Мне нужны патроны...', 'Хорошо... Цена как обычно', ifmoney..'inv():add("shells")'),
|
||
[2] = phr('Зерна..', 'Хорошо... ', ifmoney..'inv():add("zerno")'),
|
||
[3] = phr('И еще гамбургер...', 'Ок..', ifmoney..'inv():add("hamb")'),
|
||
[4] = phr('Свежую прессу...', 'Конечно...', ifmoney..'inv():add("news")'),
|
||
[5] = phr('Моток изоленты...', 'Да. Держи.', ifmoney..'inv():add("iso")'),
|
||
[6] = phr('Ничего не надо...', 'Как пожелаешь.', 'pon(6); back()'),
|
||
[7] = _phr('Еще мне нужна лестница и кусачки...', 'Извини, этого у меня нет -- качает головой Владимир'),
|
||
},
|
||
exit = function(s)
|
||
if have('news') then
|
||
s.obj[4]:disable();
|
||
end
|
||
end
|
||
};
|
||
|
||
shopdlg = dlg {
|
||
nam = 'разговор с продавцом',
|
||
pic = 'gfx/shopman.png',
|
||
dsc = 'Маленькие глазки буравят меня маслянистым взглядом.',
|
||
obj = {
|
||
[1] = phr('Здравствуй, Владимир! Ну как оно?', 'Здравствуй, '..me().nam..'... Да потихоньку... - Владимир хитро улыбается.', 'pon(2)'),
|
||
[2] = _phr('Хочу сделать покупки.', 'Хорошо... Давай посмотрим, что тебе нужно?', 'pon(2); return goto("shop2")'),
|
||
[3] = phr('Ну пока!...', 'Ага... Удачи!', 'pon(3); return back();'),
|
||
[4] = _phr('Здесь только что был человек -- кто он?', 'Гм? -- тонкие брови Володи приподнимаются..','pon(5)'),
|
||
[5] = _phr('Он почему-то взял моего кота... Наверное подумал, что он бездомный... Кто этот человек в сером пальто?',
|
||
[[
|
||
Вообще-то он какая-то шишка... - поскреб Владимир свой небритый подбородок. -- В этом новом институте, что построили в
|
||
нашей глуши год назад... -- пенсне Владимира задергалось в такт его речи -- он часто заходит в наш магазин,
|
||
не любит толпы -- эти физики -- ну ты понимаешь... Странный народ -- Владимир пожал плечами...]],'pon(6)'),
|
||
[6] = _phr('А где этот институт находится?',
|
||
'Да на 127-ом.. Только это, знаешь чего -- Владимир понизил голос -- об этом институте всякое говорят...', 'me()._know_where = true; inmycar.way:add("inst");pon(7)'),
|
||
[7] = _phr('Я только заберу своего кота назад...', 'Ну смотри, как знаешь.. Я бы на твоем месте... - качает головой Владимир. - Да, кажется его фамилия Белин. Я видел его кредитку... Хотя ты знаешь -- я их не принимаю -- Владимир зашмакал губами, пенсне хитро зашевелилось.'),
|
||
},
|
||
};
|
||
|
||
shopman = obj {
|
||
nam = 'продавец',
|
||
dsc = 'За прилавком стоит {продавец}. Довольно полное его лицо с небритой щетиной дополняет монокль.',
|
||
act = function()
|
||
return goto('shopdlg');
|
||
end
|
||
};
|
||
|
||
shop = room {
|
||
nam = 'магазин',
|
||
pic = 'gfx/inshop.png',
|
||
enter = function(s, f)
|
||
if village.obj:look('truck') then
|
||
village.obj:del('truck');
|
||
village.obj:del('mycat');
|
||
return [[
|
||
Когда я заходил в магазин я чуть не с толкнулся с неприятным типом в сером пальто и
|
||
шляпе с длинными полями... Он извинился каким-то шипящим голосом и сделал вид, что приподнимает шляпу... Из под
|
||
ее полей блеснули белые зубы... Дойдя до прилавка я услышал звук запускающегося двигателя.]];
|
||
end
|
||
end,
|
||
act = function(s,w)
|
||
if w == 1 then
|
||
return 'Теперь на стоянке стоит только моя машина.';
|
||
end
|
||
end,
|
||
dsc = [[
|
||
Это довольно странный магазин... Здесь вы найдете и скобяные изделия, и продукты и
|
||
даже патроны... Не удивительно, ведь это единственный магазин на 100км...]],
|
||
way = { 'village' },
|
||
obj = {'shopman',vobj(1, 'окно', 'Сквозь {окно} видно стоянку машин.') },
|
||
exit = function(s, t)
|
||
if t ~= 'village' then
|
||
return;
|
||
end
|
||
if shopman._wantmoney then
|
||
return 'Я собираюсь выйти, когда меня останавливает деликатное покашливание Владимира... Конечно, я забыл заплатить...', false;
|
||
end
|
||
if not have('news') then
|
||
shop2.obj[4]:disable();
|
||
inv():add('news');
|
||
return 'Я собираюсь уходить, когда меня останавливает голос Владимира -- Возьми свежую прессу, для тебя -- бесплатно. Я возвращаюсь, беру газету и выхожу из магазина.';
|
||
end
|
||
end
|
||
};
|
||
|
||
carbox = obj {
|
||
_num = 0,
|
||
nam = function(s)
|
||
if s._num > 1 then
|
||
return 'ящики в машине';
|
||
else
|
||
return 'ящик в машине';
|
||
end
|
||
end,
|
||
act = function(s)
|
||
if inv():srch('mybox') then
|
||
return 'У меня уже есть ящик в руках...';
|
||
end
|
||
s._num = s._num - 1;
|
||
if s._num == 0 then
|
||
mycar.obj:del('carbox');
|
||
end
|
||
take('mybox');
|
||
return 'Я взял ящик из машины.';
|
||
end,
|
||
dsc = function(s)
|
||
if s._num == 0 then
|
||
return;
|
||
elseif s._num == 1 then
|
||
return 'В кузове моей машины лежит один {ящик}.';
|
||
elseif s._num < 5 then
|
||
return 'В кузове моей машины лежат '..tostring(s._num)..' {ящика}.';
|
||
else
|
||
return 'В кузове моей машины лежит '..tostring(s._num)..' {ящиков}.';
|
||
end
|
||
end,
|
||
};
|
||
|
||
mybox = obj {
|
||
nam = 'ящик',
|
||
inv = 'Я держу в руках ящик.... Добротно сделанная вещь! Пригодится в хозяйстве.',
|
||
use = function(s, o)
|
||
if o == 'boxes' then
|
||
inv():del('mybox');
|
||
return 'Я положил ящик обратно...';
|
||
end
|
||
if o == 'mycar' then
|
||
inv():del('mybox');
|
||
mycar.obj:add('carbox');
|
||
carbox._num = carbox._num + 1;
|
||
return 'Я положил ящик в кузов своей машины...';
|
||
end
|
||
if o == 'ewall' or o == 'wboxes' then
|
||
if not cam._broken then
|
||
return 'Мне мешает камера...';
|
||
end
|
||
inv():del('mybox');
|
||
ewall.obj:add('wboxes');
|
||
wboxes._num = wboxes._num + 1;
|
||
if wboxes._num > 1 then
|
||
return 'Я поставил следующий ящик на предыдущий...';
|
||
end
|
||
return 'Я поставил ящик у стены...';
|
||
end
|
||
end
|
||
};
|
||
|
||
boxes = obj {
|
||
nam = 'ящики',
|
||
desc = {
|
||
[1] = 'Около стоянки валяются пустые деревянные {ящики} из-под тушенки.',
|
||
},
|
||
dsc = function(s)
|
||
local state = 1;
|
||
return s.desc[state];
|
||
end,
|
||
act = function(s, t)
|
||
if carbox._num >= 5 then
|
||
return 'А может хватит уже брать ящики?...';
|
||
end
|
||
if inv():srch('mybox') then
|
||
return 'У меня уже есть один ящик...';
|
||
end
|
||
take('mybox');
|
||
return 'Я взял ящик в руки.';
|
||
end,
|
||
};
|
||
|
||
village = room {
|
||
nam = 'стоянка перед магазином',
|
||
dsc = 'Привычное место перед магазином. Стоянка машин. Все в снегу...',
|
||
pic = 'gfx/shop.png',
|
||
act = function(s, w)
|
||
if w == 1 then
|
||
return 'Баки как баки... Белый снег прикрывает мусор...';
|
||
end
|
||
end,
|
||
exit = function(s, t)
|
||
if t == 'shop' and seen('mycat') then
|
||
return 'Я позвал барсика, но он был сильно увлечен мусорными баками... Ладно -- я не на долго...';
|
||
end
|
||
end,
|
||
enter = function(s, f)
|
||
if ewall:srch('wboxes') and wboxes._num == 1 then
|
||
ewall.obj:del('wboxes');
|
||
ewall._stolen = true;
|
||
wboxes._num = 0;
|
||
end
|
||
if f == 'shop' and not s._ogh then
|
||
s._ogh = true;
|
||
set_music("mus/revel.s3m");
|
||
guydlg:pon(4);
|
||
guydlg:poff(8);
|
||
return 'Окинув стоянку беглым взглядом я позвал -- Барсик! Барсик! -- Куда запропастился мой кот?';
|
||
end
|
||
end,
|
||
way = { 'road', 'shop' },
|
||
obj = { 'truck', vobj(1,'баки', 'Ржавые мусорные {баки} покрыты снегом.'), 'guy','boxes' },
|
||
};
|
||
----------- trying to go over wall
|
||
function guardreact()
|
||
pon(7);
|
||
if inst:srch('mycar') then
|
||
inst.obj:del('mycar');
|
||
inmycar.way:add('backwall');
|
||
inst.way:add('backwall');
|
||
return cat([[Четверо людей с автоматами провожают меня до моей машины.
|
||
Мне пришлось завести двигатель и отъехать от института. Я проехал с дюжину километров, прежде чем в зеркале заднего вида
|
||
исчез военный джип, с моими провожающими... ]], goto('inmycar'));
|
||
end
|
||
return cat([[Четверо вооруженных людей вышвыривают меня из КПП.^^]], goto('inst'));
|
||
end
|
||
|
||
guarddlg = dlg {
|
||
nam = 'охранник',
|
||
pic = 'gfx/guard.png',
|
||
dsc = [[Передо мной угловатое лицо охранника. Его глаза глядят насмешливо, но уголки рта загнуты
|
||
вниз, что не располагает к беседе...]],
|
||
obj = {
|
||
[1] = phr('Моего кота по ошибке забрал сотрудник вашего института -- мне нужно войти.','-- Пропуск...', 'poff(2); pon(3);'),
|
||
[2] = phr('Я забыл свой пропуск -- можно мне зайти?','-- Нет...', 'poff(1); pon(3);'),
|
||
[3] = _phr('Вы знаете Белина? У него мой кот -- мне нужно его забрать...', '-- Нет пропуска?', 'pon(4)'),
|
||
[4] = _phr('Я просто пришел забрать своего кота! Дайте телефон Белина.',
|
||
[[Глаза охранника меняют свой цвет. Уголки губ поднимаются наверх -- вот что, господин хороший -- я так понял,
|
||
пропуска у вас нет, идите-ка отсюда пока можете...]], 'pon(5, 6)'),
|
||
[5] = _phr('Ну все, щас я дам по твоей роже...', 'Рука охранника тянется к автомату. ', 'poff(6); return guardreact();'),
|
||
[6] = _phr('Ладно, я пошел...', '-- Не спеши - охранник уже не скрывает свою ухмылку - ты мне не нравишься...','poff(5); return guardreact()'),
|
||
[7] = _phr('Щас я вас всех перестреляю из своего дробовика...', 'На этот раз охранник даже не отвечает. Его налитые кровью глаза красноречивей всяких слов.','return guardreact()'),
|
||
},
|
||
};
|
||
guard = obj {
|
||
nam = 'охрана',
|
||
dsc = [[
|
||
В будке сидит {охрана}. Кажется она вооружена автоматами калашникова.
|
||
]],
|
||
act = function(s)
|
||
return goto('guarddlg');
|
||
end,
|
||
};
|
||
kpp = room {
|
||
nam = 'КПП',
|
||
pic = 'gfx/kpp.png',
|
||
dsc = [[КПП -- контрольно пропускной пункт не оставляет никаких сомнений в том, что в институте не жалуют посторонних. Шлагбаум. Решетчатая будка. И тишина.
|
||
]],
|
||
obj = { 'guard' },
|
||
way = { 'inst' }
|
||
};
|
||
inst = room {
|
||
nam = 'институт',
|
||
pic = 'gfx/inst.png',
|
||
dsc = [[
|
||
Институт возвышается посреди пустынного снежного поля. Его зловещие контуры напоминают скорее тюрьму, чем научное
|
||
учреждение. Позади территории института находятся железнодорожные пути. ]],
|
||
act = function(s, w)
|
||
if w == 1 then
|
||
return 'Высота стены около 5 метров. Но этого мало -- сверху проходит колючая проволока -- думаю она под напряжением...';
|
||
end
|
||
if w == 2 then
|
||
return 'Нет, Владимир был прав... Это какой-то военный штаб...';
|
||
end
|
||
if w == 3 then
|
||
return 'Да -- это похоже тот самый фургон, в котором человек в сером пальто увез моего Барсика.';
|
||
end
|
||
end,
|
||
used = function(s, w, b)
|
||
if b == 'mybox' and w == 1 then
|
||
return 'Я думаю, меня сразу заметит охрана.';
|
||
end
|
||
if w == 2 and b == 'gun' and gun._loaded then
|
||
return 'Меня посадят... Или просто побьют... Охранники совсем недалеко.';
|
||
end
|
||
if w == 3 and b == 'gun' and gun._loaded then
|
||
return 'Мне нужен мой кот, а не разрушения...';
|
||
end
|
||
end,
|
||
obj = {vobj(1, 'стена', 'Здание института окружено массивной бетонной {стеной}. В центре находится КПП.'),
|
||
vobj(2, 'камеры', 'На вышках установлены {камеры} слежения.'),
|
||
vobj(3, 'фургон', 'За шлагбаумом виднеется черный {фургон}')},
|
||
way = { 'road', 'kpp' },
|
||
exit = function(s, t)
|
||
if have('mybox') and t ~= 'inmycar' then
|
||
return 'Я не буду ходить с ящиком в руках...', false;
|
||
end
|
||
end,
|
||
};
|
||
|
||
cam = obj {
|
||
nam = 'камера слежения',
|
||
dsc = function(s)
|
||
if not s._broken then
|
||
return 'Неподалеку от меня -- одна из {камер} слежения. Я прижимаюсь к стене, чтобы меня не заметили.';
|
||
end
|
||
return 'Неподалеку валяются осколки {камеры} слежения. Их уже запорошило снегом.';
|
||
end,
|
||
act = function(s)
|
||
if not s._broken then
|
||
return 'Проклятая камера...';
|
||
end
|
||
return 'Ха... Получил, проклятый механизм? Интересно, когда придет охрана...';
|
||
end,
|
||
};
|
||
|
||
wire = obj {
|
||
nam = 'колючая проволока',
|
||
dsc = function(s)
|
||
if s._broken then
|
||
return 'Перед моими глазами обрывки колючей {проволоки}.';
|
||
end
|
||
return 'Перед моими глазами колючая {проволока}.';
|
||
end,
|
||
act = function(s)
|
||
if s._broken then
|
||
return 'Теперь она безопасна! Можно пробраться внутрь...';
|
||
end
|
||
return 'А вдруг она под напряжением?';
|
||
end,
|
||
};
|
||
|
||
onwall = room {
|
||
pic = 'gfx/onwall.png',
|
||
nam = 'на стене',
|
||
dsc = 'Я стою на ящиках, моя голова находится на уровне вершины стены. Холодно.',
|
||
enter = function(s)
|
||
if have('mybox') then
|
||
return 'Я не могу взобраться на стену с ящиком в руках.', false;
|
||
end
|
||
if wboxes._num < 5 then
|
||
return 'Я пытаюсь взобраться на стену... Но все-еще слишком высоко...',false;
|
||
end
|
||
return 'Я взбираюсь на стену по ящикам.';
|
||
end,
|
||
obj = { 'wire' },
|
||
way = { 'backwall' }
|
||
};
|
||
|
||
wboxes = obj {
|
||
_num = 0,
|
||
nam = function(s)
|
||
if (s._num > 1) then
|
||
return 'ящики у стены';
|
||
end
|
||
return 'ящик у стены';
|
||
end,
|
||
act = function(s)
|
||
return goto('onwall');
|
||
end,
|
||
dsc = function(s)
|
||
if s._num == 0 then
|
||
return;
|
||
elseif s._num == 1 then
|
||
return 'У стены лежит один {ящик}.';
|
||
elseif s._num < 5 then
|
||
return 'У стены стоит '..tostring(s._num)..' {ящика}, поставленные один на другой.';
|
||
else
|
||
return 'У стены стоят '..tostring(s._num)..' {ящиков}, поставленные один на другой.';
|
||
end
|
||
end,
|
||
};
|
||
|
||
ewall = obj {
|
||
nam = 'стена',
|
||
dsc = '{Стена} здесь возвышается на 4 метра. Снежная метель с воем бросает ледяные снежинки к ее подножию.',
|
||
act = function(s)
|
||
if not s._ladder then
|
||
s._ladder = true;
|
||
shop2:pon(7);
|
||
end
|
||
return 'Слишком высокая... Нужна лестница.';
|
||
end
|
||
};
|
||
|
||
backwall = room {
|
||
pic = 'gfx/instback.png',
|
||
enter = function(s, f)
|
||
local st = '';
|
||
if ewall._stolen then
|
||
ewall._stolen = false;
|
||
st = 'Ого!!! Кто-то украл мой ящик!!!';
|
||
end
|
||
if f == 'inmycar' then
|
||
return 'Отлично... Кажется удалось добраться незамеченным...'..' '..st;
|
||
end
|
||
return 'Плутая по снежному полю я добрался до задней стены.'..' '..st;
|
||
end,
|
||
nam = 'восточная стена института',
|
||
dsc = 'Я нахожусь у задней стороны института.',
|
||
obj = { 'ewall', 'cam' },
|
||
way = { 'inst', },
|
||
exit = function(s, t)
|
||
if have('mybox') and t ~= 'inmycar' then
|
||
return 'Я не буду ходить с ящиком в руках...', false;
|
||
end
|
||
end,
|
||
};
|