2017-02-20 11:18:44 +02:00
--$Author:Alexander Yakolev, 2017
--$Version:1.0
require " format "
2017-02-20 18:40:12 +02:00
require " dlg "
require ' dbg ' -- ПОЧЕМУ-Т О Н Е
require ' tools '
2017-02-21 16:16:48 +02:00
declare " char " ( { } )
2017-02-21 16:06:05 +02:00
-- require 'hideinv'
2017-02-20 11:18:44 +02:00
format.dash = true
format.quotes = true
format.para = true
-- https://www.google.ru/maps/place/%D0%9C%D0%B5%D0%BA%D1%81%D0%B8%D0%BA%D0%B0/@22.8355052,-105.0808555,16z/data=!4m5!3m4!1s0x84043a3b88685353:0xed64b4be6b099811!8m2!3d23.634501!4d-102.552784
2017-02-21 16:06:05 +02:00
init = function ( )
map = obj {
nam = " Карта " ,
inv = function ( )
walk ( ' map ' )
end
}
take ( map )
end
local markers = {
chos = " 626,666 " ,
}
room {
nam = ' map ' ,
disp = " Карта " ,
hideinv = true ,
enter = function ( here , from )
2017-02-21 16:17:21 +02:00
char.lastroom = from.nam
2017-02-21 16:06:05 +02:00
end ,
pic = function ( )
local map = ' images/satellite.jpg '
2017-02-21 16:17:21 +02:00
if markers [ char.lastroom ] then
map = map .. ' ;images/marker.png@ ' .. markers [ char.lastroom ]
2017-02-21 16:06:05 +02:00
end
return map
end ,
decor = [ [
В ы с в е р я е т е с ь с к а р т о й . ^^
{ back | Н а з а д }
] ] ,
obj = {
obj {
nam = ' back ' ,
act = function ( )
return walkout ( )
end
}
}
}
2017-02-20 11:18:44 +02:00
dlg {
nam = ' main ' ,
dsc = [ [
О т а в т о б у с н о й о с т а н о в к и д о д о м а Ч о б ы л о п о л т о р а к и л о м е т р а .
П о п у т и в ы о с м а т р и в а л и о к р е с т н о с т и : в ы с о к а я г о р а , б е с к о н е ч н ы е п а ш н и
и м а л е н ь к о е с е л о в о к р у г е д и н с т в е н н о й к о л о н к и с в о д о й . ^^
С е м ь я Ч о о т г о р о д и л а с ь о т с е л а ш и р о к о й п о л о с о й д е р е в ь е в .
И х п а ш н я н е о т л и ч а л а с ь о т о с т а л ь н ы х : т а к о е ж е ч ё р н о е п о л е с р я д а м и
р о б о т о в , к о т о р ы е м о л ч а к о п а л и с ь в з е м л е . П е р е д п о л е м с т о я л
н е в ы с о к и й к р а с н о в а т о - ч ё р н ы й д о м с д в у м я о к н а м и . ^^
Н а с т у к в д в е р ь о т к р ы л а н и з е н ь к а я ч е р н о в о л о с а я д е в у ш к а . ^^
-- А
Я ж е п р а в и л ь н о г о в о р ю , в ы ж е и н ж е н е р ?
] ] ,
obj = {
{
2017-02-21 16:06:05 +02:00
{
' Инженер (она) ' ,
function ( )
2017-02-21 16:16:48 +02:00
char.gender = " she " ;
char.plural = false ;
2017-02-21 16:06:05 +02:00
walk ( ' start2 ' ) ;
return true ;
end
} ,
{
' Инженер (он) ' ,
function ( )
2017-02-21 16:16:48 +02:00
char.gender = " he " ;
char.plural = false ;
2017-02-21 16:06:05 +02:00
walk ( ' start2 ' ) ;
return true ;
end
} ,
{
' Инженер (оно) ' ,
function ( )
2017-02-21 16:16:48 +02:00
char.gender = " it " ;
char.plural = false ;
2017-02-21 16:06:05 +02:00
walk ( ' start2 ' ) ;
return true ;
end
} ,
{
' Инженер (они) ' ,
function ( )
2017-02-21 16:16:48 +02:00
char.gender = " they " ;
char.plural = false ;
2017-02-21 16:06:05 +02:00
walk ( ' start2 ' ) ;
return true ;
end
} ,
{
' Инженеры (они) ' ,
function ( )
2017-02-21 16:16:48 +02:00
char.gender = " they " ;
char.plural = true ;
2017-02-21 16:06:05 +02:00
walk ( ' start2 ' ) ;
return true ;
end
}
2017-02-20 11:18:44 +02:00
}
}
}
dlg {
nam = ' start2 ' ,
2017-02-20 18:40:12 +02:00
dsc = function ( )
2017-02-20 11:18:44 +02:00
return [ [
2017-02-20 18:40:12 +02:00
-- А
2017-02-20 11:18:44 +02:00
М ы у ж е д у м а л и , ч т о н а ш а г а р а н т и я в с ё .
Э т о ж е т а к и е с т а р ы е р о б о т ы , в с ё в р е м я в п о л е . ^^
О н а в ы ш л а и з д о м а и п р и г л а с и л а в а с з а с о б о й .
В ы ш л и в д о л ь п о л я ; м е т а л л и ч е с к и е р а б о ч и е н е о б р а щ а л и н а в а с в н и м а н и я .
-- Вы знаете, у
К о г д а - т о х о т е л и к у п и т ь ч т о - н и б у д ь д л я д о м а , н о т у т э т а в о й н а с Л у н о й …
В ы б ы л и н а в о й н е ?
] ]
end ,
obj = {
{
2017-02-20 18:40:12 +02:00
{
function ( )
return [[Цех РБ-23, с .. endings ( ) .. [[ ремонтных ботов.]]
end ,
function ( )
2017-02-21 16:16:48 +02:00
char.earth = 1 ;
2017-02-20 18:40:12 +02:00
walk ( ' start3 ' ) ;
return ' -- Доблесть рабочих, конечно. ' ;
end
} , -- + к симпатизирующим Земле
2017-02-20 11:18:44 +02:00
{ function ( )
2017-02-20 18:40:12 +02:00
return ' Нет, ' .. pronoun_1 ( ) .. ' не был ' .. endings ( ) .. ' . '
2017-02-21 16:16:48 +02:00
end , function ( ) char.earth = 0 ; walk ( ' start3 ' ) ; return ' -- А ' ; end } ,
2017-02-20 11:18:44 +02:00
-- нет эффекта
{ ' Да, но Луна проиграла. ' ,
2017-02-21 16:16:48 +02:00
function ( ) char.earth = - 1 ; walk ( ' start3 ' ) ; return " -- Ой, вы из этих… Извините. " end } ,
2017-02-20 11:18:44 +02:00
-- + к симпатизирующим Луне
} ,
2017-02-20 18:40:12 +02:00
} ,
2017-02-20 11:18:44 +02:00
}
2017-02-23 06:53:25 +02:00
dlg {
2017-02-20 11:18:44 +02:00
nam = ' start3 ' ,
2017-02-23 06:53:25 +02:00
dsc = [ [
( к у р с и в о м ) С ю д а , п о ж а л у й с т а . ^^
О н а п р о в е л а в а с в б о л ь ш о й с а р а й , г д е п ы л и л с я в ы с о к и й а в т о м а т и ч е с к и й с е л ь х о з к о м б а й н .
2017-02-20 18:40:12 +02:00
2017-02-23 06:53:25 +02:00
-- Вот и наш больной. Мы прогрели е г о а
В ы ж е ] ] .. engineer ( ) .. [ [ , в ы с м о ж е т е е г о п о ч и н и т ь ?
А т о м ы п о т е р я е м у р о ж а й .
2017-02-20 18:40:12 +02:00
] ] ,
2017-02-23 06:53:25 +02:00
decor = [ [
С т а р у ш к а Ч о в н и м а т е л ь н о с м о т р и т н а в а с .
В е ё г л а з а х в ы ч и т а е т е , ч т о о т п о ч и н к и э т о г о к о м б а й н а з а в и с и т н е с к о л ь к о ж и з н е й .
] ]
onempty = function ( )
walk ( ' start4 ' )
end
2017-02-20 18:40:12 +02:00
obj = {
2017-02-23 06:53:25 +02:00
{
' Зачем вы заводили комбайн весной? ' ,
' -- Он замёрз! После зимы у '
} ,
{
' У ' ,
[ [ В с е г о с е м е р о , и о н и о б ы ч н о у п а к о в ы в а ю т и с к л а д ы в а ю т .
Е с л и о н и б у д у т е щ ё и к о с и т ь , м ы н е у п р а в и м с я д о о с е н и .
У р о ж а й с г н и ё т п о д д о ж д я м и . ] ]
} ,
{
' Да, ' .. pronoun_1 ( ) .. ' -- ' .. engineer ( ) .. [ [ .
Н о я м о г у т о л ь к о о п р е д е л и т ь п р о б л е м у , у в а с ж е н е т м а с т е р с к о й и л и и н с т р у м е н т о в . ] ] ,
' -- Вы знаете, я могу попросить соседей. У '
} ,
{
' Давно он у ' ,
[ [ Н у , л е т д в а д ц а т ь у ж е , н а в е р н о е .
Т о е с т ь , я х о т е л а с к а з а т ь , д е в я т н а д ц а т ь .
Г а р а н т и я ж е е щ ё д е й с т в у е т , п р а в д а ? ] ]
2017-02-20 18:40:12 +02:00
}
}
2017-02-20 11:18:44 +02:00
}
2017-02-23 06:53:25 +02:00
dlg {
nam = ' start4 ' ,
dsc = function ( ) [ [
К о м б а й н о к а з а л с я с т а р ы м , о ч е н ь с т а р ы м .
В ы к о п а л и с ь н е м е н ь ш е ч а с а , п о к а н е н а ш л и и з н о с и в ш и й с я п р о г р а м м а т о р н ы й б л о к . ^^
-- Н у Н о
-- А У
-- Нет, это…^^
-- Послушайте. У
В а с у с т р о и т … д е с я т ь т ы с я ч ? ^^
-- В
-- Подождите, не отказывайтесь. Десять новых кусков. Золотом. И вы почините это здесь.^^
В ы з а д у м а л и с ь . Н а д е с я т ь к у с к о в м о ж н о б ы л о б ы к у п и т ь н о в ы й к о м б а й н - к о н е ч н о , н е т а к о й м о щ н ы й , н о е с л и п р о д а т ь з о л о т о н а Л у н у … Б ы л о д и н х и т р ы й в ы х о д . ^^
-- Давайте так: ]]..pronoun_1()..[[ здесь на три дня. Если за эти три дня что-то получится… Н о У
-- Спасибо! -- она улыбнулась. -- Я скажу внучке, чтобы вас проводила. Сейчас.^^
В ы в е р н у л и с ь к д о м у . С т а р у ш к а и с ч е з л а з а д в е р ь ю , а з а т е м б ы с т р о в е р н у л а с ь с ч у м а з о й д е в у ш к о й л е т с е м н а д ц а т и .
-- Это Катя, она вас проводит. Катя, до Павла и обратно, хорошо?^^
Д е в у ш к а х о т е л а ч т о - т о в о з р а з и т ь , н о п е р е д у м а л а , о п у с т и л а г о л о в у и т и х о о т в е т и л а : ^^
-- Хорошо, бабушка.
] ]
end ,
decor = [ [
] ]
onempty = function ( )
walk ( ' chos ' )
end
}
2017-02-20 11:18:44 +02:00
room {
nam = ' exit_west ' ,
title = ' Дорога на запад ' ,
disp = ' Дорога на запад ' ,
way = { ' intersection ' } ,
dsc = [ [
В ы с т о и т е н а о к р а и н е Ж е с т и а н ы .
П р я м а я а в т о д о р о г а и д ё т н а з а п а д , г д е н а ч и н а е т с я л е с .
В л е с у о н а т у т ж е д е л а е т к р у т о й п о в о р о т .
] ]
}
room {
nam = ' exit_north ' ,
disp = ' Дорога на север ' ,
title = ' Дорога на север ' ,
way = { ' town ' } ,
dsc = [ [
В ы с т о и т е н а о к р а и н е Ж е с т и а н ы .
П р я м а я а в т о д о р о г а и д ё т н а с е в е р .
З д е с ь о т н е ё о т х о д и т н е б о л ь ш о й з а е з д н а з а п а д .
] ]
}
room {
nam = ' chos ' ,
disp = ' Дом Чо ' ,
title = ' Дом Чо ' ,
way = { ' town ' , ' intersection ' } ,
dsc = [ [
Н е б о л ь ш о й д о м с б о л ь ш о й п а ш н е й .
] ]
}
room {
nam = ' intersection ' ,
title = ' Перекрёсток ' ,
disp = ' Перекрёсток ' ,
decor = [[]] ,
way = { ' exit_west ' , ' chos ' , ' town ' }
}
room {
nam = ' town ' ,
title = ' Жестиана ' ,
disp = ' Жестиана ' ,
way = { ' exit_north ' , ' chos ' , ' intersection ' , ' factory ' } ,
decor = [[]]
}
room {
nam = ' factory ' ,
title = [[Здание на г о р е ,
disp = [[Здание на г о р е ,
way = { ' town ' } ,
dsc = [ [
В ы з а б и р а е т е с ь н а с к л о н г о р ы . З д е с ь с т о и т
О т с ю д а х о р о ш о в и д н а в с я Ж е с т и а н а .
] ]
}
