Начальная версия, основные намётки.

This commit is contained in:
Alexander Yakovlev 2010-09-13 23:53:56 +07:00
commit 860c2cb53d

45
make.pl Executable file
View file

@ -0,0 +1,45 @@
#!/usr/bin/perl
open (OUTPUT,">","Game.tex");
print OUTPUT q{\documentclass[oneside,a4paper,12pt]{memoir}
\usepackage[utf8]{inputenc}
\usepackage[russian]{babel}
\usepackage[a4paper]{geometry}
\geometry{tmargin=1cm,bmargin=1cm,lmargin=1cm,rmargin=1cm,headheight=1cm,headsep=1cm,footskip=0.7cm}
\usepackage{indentfirst}
\usepackage{makeidx}
\begin{document}
\chapterstyle{chappell}
\title{Универсальная игра}
\author{Александр Яковлев}
\maketitle
Эта игра генерируется случайно. Вы задаёте необходимое количество игроков -- и получаете готовый сценарий. Уникальный сценарий.
\chapter{Предыстория}
};
$dice = int(rand(10));
@town_names = ("Майские Раки","Дурдомово",'Сычургино','Марусяно');
@country_names = ('Нарния', 'Варчения', 'Эрафия', 'Неридел');
print OUTPUT "Игра проходит в деревне ".$town_names[rand @town_names].". ";
if ($dice = 0){
$setting = 'fantasy';
print OUTPUT "Это тихая деревушка в волшебной стране ".$country_names[rand @country_names].".";
}
elsif ($dice = 1){
$setting = 'horror';
print OUTPUT "Это обычная тихая деревушка на самом отшибе цивилизации. Но в ней начали происходить странные вещи.";
}
else{
$setting = 'normal';
print OUTPUT 'Это обычная деревня, каких много.';
}
$dice = int(rand(10));
if ($setting eq 'horror'){
for ($i=0;$i<3;$i++){ #генерируем 3 общих квеста
if ($dice = 0){
$werewolf = true;
print OUTPUT 'Ходят слухи, что в округе завёлся оборотень.';
}
}
}
print OUTPUT '\end{document}';
close OUTPUT;
system "pdflatex Game.tex";