API tools faq
paste
elePHPant

prpg 0.2

elePHPant
Apr 15th, 2022 (edited)
251
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 44.16 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. use utf8;
  3. $os = $^O;
  4. if($os == /win/){
  5.     print "Windows\n";
  6.     use open qw( :encoding(cp866) :std );
  7. } else {
  8.     print "Other OS\n";
  9.     use open qw( :encoding(utf8) :std );
  10. }
  11.  
  12. #START FRAGMENT#
  13. print '
  14.    //   ) )                     //   ) )  //   ) ) //   ) )
  15.   //___/ /  ___      __     // //___/ /  //___/ / //        
  16.  / ____ / //___) ) //  ) ) // / ___ (   / ____ / //  ____  
  17. //       //       //      // //   | |  //       //    / /  
  18. //       ((____   //      // //    | | //       ((____/ /  0.2
  19. ____  
  20. (  _ \
  21. ( |_| |
  22. )___/
  23. (__) ERL.ORG
  24. perl.org
  25. ';
  26. $gn = "
  27. **********************************
  28. Hello user! This is:
  29. #PRpg - Perl RPG - RPG on the Perl#
  30. **********************************
  31. Write your name: ";
  32. print $gn;
  33. $name = <STDIN>;
  34. chomp $name;
  35. print "
  36.         Knight $name
  37.  / \
  38.  | |
  39.  |.|
  40.  |.|
  41.  |:|      __
  42. ,_|:|_,   /  )
  43.  (Oo    / _I_
  44.   +\ \ || __|
  45.      \ \||___|
  46.        \ /.:.\-\
  47.         |.:. /-----\
  48.         |___|::oOo::|
  49.         /   |:<_T_>:|
  50.        |_____\ ::: /
  51.         | |  \ \:/
  52.         | |   | |
  53.         \ /   | \___
  54.         / |   \_____\
  55.         `-'
  56. ";
  57. print "\n";
  58. <STDIN>;
  59. $instr_w = 'Чтобы перемещаться используйте "W", "A", "S", "D"';
  60. print "
  61.          *Вперёд к приключениям!*
  62. _   _   _   _+       |
  63. /_`-'_`-'_`-'_|  \+/  |
  64. \_`M'_`D'_`C'_| _<=>_ |
  65.  `-' `-' `-' 0/ \ / o=o
  66.              \/\ ^ /`0
  67.              | /_^_\
  68.              | || ||
  69.            __|_d|_|b__
  70. ";
  71. print $instr_w;
  72. my %items = (25 => "Очень тяжелый зачарованный меч",
  73.     20 => "Книга зачарованний",
  74.     15 => "Карта местности");
  75. my %characteristics = (health => 100,
  76.                       maxhealth => 100,
  77.                       gold => 20,
  78.                       sword => 30,
  79.                       item1 => "",
  80.                       item2 => "",
  81.                       item3 => "",
  82.                       bow => 25,
  83.                       crossbow => 30,
  84.                       axe => 40,
  85.                       arrows => 10,
  86.                       lightning => 35,
  87.                       fireball => 40,
  88.                       maxarrows => 150,
  89.                       weapon1 => "",
  90.                       weapon2 => "",
  91.                       weapon3 => "",
  92.                       scroll1 => "",
  93.                       scroll2 => "",
  94.                       scroll3 => "",
  95.                       moves => 0,
  96.                       days => 0,
  97.                       weeks => 0,
  98.                       months => 0,
  99.                       score => 0,
  100.                       hand => "",
  101.                       body => "",
  102.                       pants => "",
  103.                       shoes=>"",
  104.                       magic1 => "",
  105.                       magic2 => "",
  106.                       magic3 => "",
  107.                       magic4 => "",
  108.                       magic5 => "",
  109.                       mana => 20,
  110.                       intelligence => 0,
  111.                       power => 0,
  112.                       power_astr => 0,
  113.                       luck => 0,
  114.                       luck_astr => 0,
  115.                       magic => 0,
  116.                       magic_astr => 0,
  117.                       uron => 20,
  118.                       maxuron => 100);
  119. my %wasd =  ( W => 'Шаг вперед',
  120.                A => 'Шаг влево',
  121.                S => 'Шаг назад',
  122.                D => 'Шаг вправо',
  123.                N => "Ваше имя это: $name",
  124.                H => "Лечится с помощью чёрной магии"
  125.                 );
  126. $quest1 == "inactive";
  127. $quest2 == "inactive";
  128. $quest3 == "inactive";
  129. $quest4 == "inactive";
  130. my %buildings = (1 => "шахта",
  131.                 2 => "замок
  132. ** A castle**
  133.  
  134.     |Zz.                      |Zz.
  135.     |                         |
  136.    _L__                      _|
  137.   (____)      _             /__\
  138.   /____\    /_\          /____\
  139.  (______)    | |          (______)
  140.   |  U |_____| |___________| U  |
  141.   |u   | |  |   __   |  |  |   u|
  142.   |    | |  |  ||||  |  |  |    |
  143.   -------------''''--------------js
  144.   ",
  145.    3=> "казарма
  146.      `'::::.
  147.        _____A_
  148.       /      /\
  149.    __/__/\__/  \___
  150. ---/__|'' '' '| /___/\----
  151.   |''|''||''| |' '||
  152.   `''`''))''`'''''
  153.   ",
  154.    4=> "город
  155.  
  156.                         **A city**
  157.  
  158.                      \|/
  159.                      -o-                              |
  160.                      /|\                            ( )_
  161.             |                                       /\ | |
  162.            (_)             |      |   __         |  ||-| |-[]|  \|/  \|
  163. ___|___   _| |____   |    (_)_  _( )_|[]|     __(_)_|| |     |_~(|)~~(|
  164. (_)__)__|_| []|[]  |_(_)_  |[]|_|_[]__|__|  __| |[]|__| | []|___|_|____|
  165. | |__| [] |   |[]  |  | |  |    | []  |  | |  | |   |||_|    [][]      |
  166.   ",
  167.    5=>"башня с лучниками
  168.     **Tower with archers**
  169.                                                                    
  170.                
  171.                /\
  172.     /\       /__\
  173.    /__\      |. |
  174.    |n |     :_|__|_:
  175.  :_|  |_:     |. |
  176.    | n|       |. |
  177.    |  |       |. |
  178.    |n |_______|. |
  179.    |n |.      |. |
  180.     |n |       |. |
  181.   _|__|_______|__|____
  182.  /  \        \       \  
  183.   ",
  184.    6=>"дерево
  185.     **A tree**
  186.  
  187.       _-_
  188.    /~~   ~~\
  189. /~~         ~~\
  190. {               }
  191. \ _-     -_  /
  192.   ~  \\ //  ~
  193. _- -   | | _- _
  194.  _ -  | |   -_
  195.      // \\
  196.   "
  197.    );
  198. my %dealers = (
  199. 1 => "минотавр
  200.     .      .
  201.     |\____/|
  202.    (\|----|/)
  203.     \ 0  0 /
  204.      |    |
  205.   ___/\../\____
  206.  /     --       \
  207. /  \        /   \
  208. |    \___/___/(   |
  209. \  /|  }{   | \ )
  210. \ ||__}{__|  |  |
  211.  \ |;;;;;;;\ \ / \_______
  212.   \ /;;;;;;;;| [,,[|======'
  213.     |;;;;;;/ |     /
  214.     ||;;|\  |
  215.     ||;;/|   /
  216.     \_|:||__|
  217.      \ ;||  /
  218.      |= || =|
  219.      |= /\ =|
  220.      /_/  \_\
  221.                ",
  222.                2 => "торговец
  223.      .-.
  224.     (o.o)
  225.      |=|
  226.     __|__
  227.   //.=|=.\\
  228.  // .=|=. \\
  229.  \\ .=|=. //
  230.   \\(_=_)//
  231.    (:| |:)
  232.     || ||
  233.     () ()
  234.     || ||
  235.     || ||
  236. l42 ==' '==
  237.                ",
  238.                3 => "скелет
  239.            _..--''---.
  240.          /           ''.
  241.          `            l
  242.          |''._  ,._ l/''\
  243.          |  _J<__/.v._/
  244.           \( ,~._,,,,-)
  245.            `-\' \`,,j|
  246.               \_,____J
  247.          .--.__)--(__.--.
  248.         /  `-----..--'. j
  249.                ");
  250.  
  251. my %monstrs = ( 1 => "человек
  252.      __      _
  253.     /__\__  //
  254.    //_____\///
  255.   _| /-_-\)|/_
  256.  (___\ _ //___\
  257.  (  |\\_/// * \\
  258.   \_| \_((*   *))
  259.   ( |__|_\\  *//
  260.   (o/  _  \_*_/
  261.   //\__|__/\
  262.  // |  | |  |
  263. //  _\ | |___)
  264. //  (___|
  265. ",
  266.                2 => "эльф
  267.  
  268.             ..-.--..
  269.           ,','.-`.-.`.
  270.          :.',;'     `.\.
  271.          ||//----,-.--\|
  272.        \`:|/-----`-'--||'/
  273.         \\|:    |:'
  274.          `||      \  |!
  275.          |!|          ;|
  276.          !||:.   --  /|!
  277.         /||!||:.___.|!||\
  278.        /|!|||!|    |!||!\\:.
  279.     ,'//!||!||!`._.||!||,:\\\
  280.    : :: |!|||!| SSt|!||! |!::
  281.    | |! !||!|||`---!|!|| ||!|
  282.    | || |!|||!|    |!||! |!||
  283.                ",
  284.                3 => "гном
  285.  
  286.              \ |  / ,           ,-`````````'-.
  287.            `-.\ | /,'           /              `. `. \ |  / ,'
  288.           ----     ---         /    _,---''''--.,|  `.\| /,'
  289.            --,     `-.         |   |. __   . __,(| ---     ---
  290.            ,' /_\\_\_          |   | '  `   `. `|/   /    `.
  291.                \ \ `._       |() |,        `. \ /` ,| \ `.
  292.                 \   -' `-.__  \__/ `,  .  _   )|/' \/ |  \
  293.                  `.      -'  `--,/|  '`-'`'_`''-|    \
  294.                    `-._           `|     {`-`}  \    \
  295.                        `-._        \,     ``'  |` ,---'
  296.                            `-.       |         \,-'
  297.                               |\    `\        \
  298.                               \ `      \,       \
  299.                               /          \    |`
  300.                              |            \,  / \
  301.                              /              `'  |
  302.                              |                  |
  303.                              /                  |
  304.                             /      _ __    ,   ,'___,
  305.                            /  _   ' /,-`--'/  ' /   /    Zeus
  306.                            `-' `--..'-----'----'---'
  307.                ",
  308.                4 => "орк
  309.           _......._
  310.       .-'.'.'.'.'.'.`-.
  311.     .'.'.'.'.'.'.'.'.'.`.
  312.    /.'.'               '.\
  313.    |.'    _.--...--._     |
  314.    \   `._.-.....-._.'   /
  315.     |     _..- .-. -.._   |
  316. .-.'    `. ((@  @))  .'   '.-.
  317. ( ^ \     `--.   .-'     / ^ )
  318. \ /         .   .       \ /
  319. /          .'     '.  .-    \
  320. ( _.\   \ (_`-._.-'_)    /._\)
  321. `-' \  ' .--.          / `-'
  322.     |  / /|_| `-._.'\  |
  323.     |   |       |_| |   /-.._
  324. _..-\  `.--.______.'  |
  325.      \      .....     |
  326.       `.  .'      `.  /
  327.         \          .'
  328.  LGB     `-..___..-`
  329.                ",
  330.                5 => "демон
  331.                                             ,--,  ,.-.
  332.               ,                   \,       '-,-`,'-.' | ._
  333.              /|           \   ,   |\        }  )/  / `-,',
  334.              [ ,          |\ /|   | |        /  \|  |/`  ,`
  335.              | |       ,.`  `,` `, | |  _,...(   (      .',
  336.              \ \ __ ,-` `  ,  , `/ |,'      Y     (   /_L\
  337.               \ \_\,``,   ` , ,  /  |         )         _,/
  338.                \ '  `  ,_ _`_,-,<._.<        /         /
  339.                 ', `>.,`  `  `   ,., |_      |         /
  340.                   \/`  `,   `   ,`  | /__,.-`    _,   `\
  341.               -,-..\ _  \ `  /  ,  / `._) _,-\`       \
  342.                \_,,.) /\   ` /  / ) (-,, ``    ,        |
  343.               ,` )  | \_\      '-`  |  `(               \
  344.              /  /```(   , --, ,' \  |`<`    ,            |
  345.             /  /_,--`\  <\ V /> ,` )<_/)  | \     _____)
  346.       ,-, ,`   `   (_,\ \   |   /) / __/  /   `----`
  347.      (-, \          ) \ ('_.-._)/ /,`    /
  348.      | /  `          `/ \\ V   V, /`     /
  349.   ,--\(        ,     <_/`\\     ||      /
  350.  (   ,``-     \/|         \-A.A-`|     /
  351. ,>,_ )_,..(    )\         -,,_-`  _--`
  352. (_ \|`   _,/_  /  \_            ,--`
  353. \( `   <.,../`     `-.._   _,-`
  354.                ",
  355.                6 => "ангел
  356.   _               _
  357.  ( `-._\|||||/_.-' )
  358.   \  ((('_')))   /
  359.    )   ))) (((   (
  360.   (   ((( v )))   )
  361.    )`--' )X( `-._(
  362.   /   _./   \._   \
  363.  /  .' /     \ `.  \
  364. (__/  /       \ \__)
  365.      /         \
  366. jgs  /           \
  367.    WwWwWwWwWwWwWwW
  368.                ",
  369.                7 => "дракон
  370.                    -,,,__
  371.                     \   ``~~--,,__                /   /
  372.                     /              ``~~--,,_     //--//
  373.          _,,,,-----,\             ,,,,---- >   (c  c)\
  374.      ,;''            `\,,,,----''''   ,,-'''---/   /_ ;___        -,_
  375.     ( ''---,;====;,----/             (-,,_____/  /'/ `;   '''''----\ `:.
  376.     (                 '               `      (oo)/   ;~~~~~~~~~~~~~/--~
  377.      `;_           ;    \           ;   \  `  ' ,,'
  378.         ```-----...|     )___________|    )-----'''
  379. Art by               \  /             \  \\
  380.  Korrath            /  /,              `\  \\
  381.                   ,'---\ \             ,---`,;,
  382.                         ```
  383.                        ",
  384.                8 => "кентавр
  385.  <=======]}======
  386.    --.   /|
  387.   _\"/_.'/
  388. .'._._,.'
  389. :/ \{}/
  390. (L  /--',----._
  391.    |          \\
  392.   : /-\ .'-'\ / |
  393. snd \\, ||    \|
  394.     \/ ||    ||
  395.              "
  396.                );
  397. sub mdw{
  398.     $characteristics{moves} = $characteristics{moves} + 1;
  399.     $day = $day + 1;
  400.     if($day eq 7){
  401.         $characteristics{days} = $characteristics{days} + 1;
  402.         undef $day;
  403.     }
  404.     $week = $week + 1;
  405.     if ($week eq "49"){
  406.         $characteristics{weeks} = $characteristics{weeks} + 1;
  407.         undef $week;
  408.         &astrologers;
  409.     }
  410.     $month = $month + 1;
  411.     if ($month eq "147"){
  412.         $characteristics{months} = $characteristics{months} + 1;
  413.         undef $month;
  414.     }
  415. }
  416. sub astrologers{
  417.     $week_name = int(rand(4));
  418.     if ($week_name eq 1){
  419.         $week_n = "магии (магия +1)";
  420.         $w_n = "magic";
  421.     } elsif ($week_name eq 2){
  422.         $week_n = "силы (сила +1)";
  423.         $w_n = "power";
  424.     } elsif ($week_name eq 3){
  425.         $week_n = "удачи";
  426.         $w_n = "luck";
  427.     }
  428.     print "
  429. **************************************
  430. *Астрологи объявили неделю $week_n*
  431. **************************************
  432. \n";
  433.     if($w_n eq "magic"){
  434.         $characteristics{magic} = $characteristics{magic} + 1;
  435.         undef $w_n;
  436.         $magic_astr = 1;
  437.         if($power_astr eq 1){
  438.             $characteristics{power} = $characteristics{power} -1;
  439.         } elsif($luck_astr eq 1){
  440.             $characteristics{luck} = $characteristics{luck} -1;
  441.         }
  442.     } elsif($w_n eq "power"){
  443.         $power_astr = 1;
  444.         $characteristics{power} = $characteristics{power} + 1;
  445.         undef $w_n;
  446.         $power_astr = 1;
  447.         if($magic_astr eq 1){
  448.             $characteristics{magic} = $characteristics{magic} -1;
  449.         } elsif($power_astr eq 1){
  450.             $characteristics{luck} = $characteristics{luck} -1;
  451.         }
  452.     } elsif($w_n eq "luck"){
  453.         $luck_astr = 1;
  454.         $characteristics{luck} = $characteristics{luck} + 1;
  455.         undef $w_n;
  456.         $luck_astr = 1;
  457.         if($power_astr eq 1){
  458.             $characteristics{power} = $characteristics{power} -1;
  459.         } elsif($magic_astr eq 1){
  460.             $characteristics{magic} = $characteristics{magic} -1;
  461.         }
  462.     }
  463. }
  464. sub items {
  465.     $items = int(rand(30)) - $characteristics{luck};
  466.     foreach $key(sort keys %items){
  467.         if ($items eq $key){
  468.             print "Ты нашёл: ". $items{$key}."\n";
  469.             if (!$characteristics{item1}){
  470.                 $characteristics{item1} = $items{$key};
  471.             } elsif (!$characteristics{item2}){
  472.                 $characteristics{item2} = $items{$key};
  473.             } elsif (!$characteristics{item3}){
  474.                 $characteristics{item3} = $items{$key};
  475.             } else {
  476.                 print "Инвентарь полон!";
  477.             }
  478.         }
  479.     }
  480. }
  481. sub wasd{
  482.     #Считываем ввод с клавиатуры. С помощью uc мы переводим ввод в верхний
  483.     #регистр, а с помощью функции chomp() мы удаляем последний символ \n
  484.     $enter_b = uc <STDIN>;
  485.     chomp $enter_b;
  486.     if ($enter_b eq "IWANTTOBEAGOD" or $enter_b eq "PERLISROCK"){
  487.         print "Вы применили чит-код!\n";
  488.         $characteristics{gold} = $characteristics{gold} +1000;
  489.         $characteristics{power} = 10;
  490.         $characteristics{health} = 1000;
  491.         $characteristics{intelligence} = 10;
  492.         $characteristics{luck} = 10;
  493.         $characteristics{weapon1} = "Лук";
  494.         $characteristics{weapon2} = "Арбалет";
  495.         $characteristics{weapon3} = "Топор";
  496.         $characteristics{magic1} = "Молния";
  497.         $characteristics{score} = 1000;
  498.     } elsif($enter_b eq "MONEY") {
  499.         $characteristics{gold} = 1000;
  500.         print "Вы применили чит-код!\n";
  501.     }
  502.     elsif ($enter_b eq "B"){
  503.         if (!$characteristics{item1} or !$characteristics{item2} or !$characteristics{item3}) {
  504.                     print "Извини... но у тебя нет нужного количества предметов.\n";
  505.                 } else {
  506.                     $characteristics{gold} = $characteristics{gold} + 10;
  507.                     $characteristics{item1} = undef;
  508.                     $characteristics{item2} = undef;
  509.                     $characteristics{item3} = undef;
  510.                     print "С помощью чёрной магии вы превратили найденное барахло в золото!\n";
  511.     }
  512. }
  513.     elsif ($enter_b eq "T") {
  514.         print "
  515. ______  __ __   ____  ____   __  _  _____    
  516. |      ||  |  | /    ||    \ |  |/ ]/ ___/    
  517. |      ||  |  ||  o  ||  _  ||  ' /(   \_    
  518. |_|  |_||  _  ||     ||  |  ||    \ \__  |  
  519.  |  |  |  |  ||  _  ||  |  ||     \/  \ |    
  520.  |  |  |  |  ||  |  ||  |  ||  .  |\   |  
  521.  |__|  |__|__||__|__||__|__||__|\_| \___|  
  522.         \n";
  523.         sleep (1);
  524.         print "SITES\n";
  525.         sleep(1);
  526.         print "stackoverflow.com for help with perl\n";
  527.         sleep(1);
  528.         print "patorjk.com for ASCII art\n";
  529.         sleep (1);
  530.         print "www.asciiart.eu for ASCII art\n";
  531.         sleep (1);
  532.         print "ascii.co.uk for ASCII art\n";
  533.         sleep (1);
  534.         print "www.cyberforum.ru for help with perl\n";
  535.         sleep(1);
  536.         print "perl.org for... PERL!\n";
  537.         sleep (1);
  538.         print "PEOPLE\n";
  539.         sleep(1);
  540.         print "Larry Wall for... perl!\n";
  541.         sleep (1);
  542.         print "GAMES\n";
  543.         sleep(1);
  544.         print "Might and Magic Book One: The Secret of the Inner Sanctum for inspiration\n";
  545.         sleep (1);
  546.         print "Fallout 1 for inspiration\n";
  547.         sleep (1);
  548.         print "Heroes of Might and Magic III for inspiration\n";
  549.         sleep (1);
  550.         print "BOOKS\n";
  551.         sleep (1);
  552.         print "Programming Perl 3th edition for help with perl\n";
  553.         sleep (2);
  554.     }
  555.     elsif ($enter_b eq "Y") {
  556.         print "Здоровье: $characteristics{health}\n";
  557.         print "Золото: $characteristics{gold}\n";
  558.         if($characteristics{gold} < 100 or $characteristics{gold} eq 100){
  559.             print "Статус: нищий\n";
  560.         } elsif ($characteristics{gold} > 100 and $characteristics{gold} < 300) {
  561.             print "Статус: при деньгах\n";
  562.         }
  563.         elsif ($characteristics{gold} > 300 or $characteristics{gold} eq 300) {
  564.             print "Статус: Богач\n";
  565.         }
  566.         $uron_power = $characteristics{uron}+$characteristics{power};
  567.         print "Вы наносите: ".$uron_power." урона\n";
  568.         print "Характеристики:\n";
  569.         print "1.Сила: $characteristics{power}\n";
  570.         print "2.Интеллект: $characteristics{intelligence}\n";
  571.         print "3.Удача: $characteristics{luck}\n";
  572.         print "4.Магия: $characteristics{magic}\n";
  573.         print "Вы сделали $characteristics{moves} ходов. Прошло $characteristics{days} дней, $characteristics{weeks} недель и $characteristics{months} месецев\n";
  574.         print "Инвентарь:\n";
  575.         print "1. ".$characteristics{item1}."\n";
  576.         print "2. ".$characteristics{item2}."\n";
  577.         print "3. ".$characteristics{item3}."\n";
  578.         print "Оружие:\n";
  579.         print "1. ".$characteristics{weapon1}."\n";
  580.         print "2. ".$characteristics{weapon2}."\n";
  581.         print "3. ".$characteristics{weapon3}."\n";
  582.         print "Магия:\n";
  583.         print "1. ".$characteristics{magic1}."\n";
  584.         print "2. ".$characteristics{magic2}."\n";
  585.         print "3. ".$characteristics{magic3}."\n";
  586.         print "4. ".$characteristics{magic4}."\n";
  587.         print "5. ".$characteristics{magic5}."\n";
  588.         print "Score: $characteristics{score}.\n";
  589.         print "Уровень: ";
  590.         if($characteristics{score} < 100) {
  591.             print "1 уровень.";
  592.         } elsif ($characteristics{score} eq 100 or $characteristics{score} < 200) {
  593.             print "2 уровень.";
  594.         } elsif ($characteristics{score} eq 200 or $characteristics{score} < 300) {
  595.             print "3 уровень.";
  596.         }elsif ($characteristics{score} eq 300 or $characteristics{score} < 400) {
  597.             print "4 уровень.";
  598.         }elsif ($characteristics{score} eq 400 or $characteristics{score} < 500) {
  599.             print "5 уровень.";
  600.         }elsif ($characteristics{score} eq 500 or $characteristics{score} < 600) {
  601.             print "6 уровень.";
  602.         }elsif ($characteristics{score} eq 600 or $characteristics{score} < 700) {
  603.             print "7 уровень.";
  604.         }elsif ($characteristics{score} eq 700 or $characteristics{score} < 800) {
  605.             print "8 уровень.";
  606.         }elsif ($characteristics{score} eq 800 or $characteristics{score} < 900) {
  607.             print "9 уровень.";
  608.         }elsif ($characteristics{score} eq 900 or $characteristics{score} < 1000 or $characteristics{score} eq 1000) {
  609.             print "10 уровень.";
  610.         } elsif ($characteristics{score} > 1000){
  611.             print "БОГ";
  612.         }
  613.         print "\n";
  614.         print "Мана: $characteristics{mana}.\n";
  615.         print "Стрелы: $characteristics{arrows}.\n";
  616.         print "Квесты:\n";
  617.         if ($quest1 eq "active"){
  618.         print "Спасти невесту Бесталла - квест активный\n";
  619.     } elsif ($quest1 eq "done") {
  620.         print "Спасти невесту Бесталла - квест выполнен\n";
  621.     } elsif ($quest1 eq "false") {
  622.         print "Спасти невесту Бесталла - квест провален\n";
  623.     }
  624.     } elsif ($enter_b eq "H") {
  625.         if ($characteristics{health} eq 100 or $characteristics{health} > 100){
  626.             print "У вас максимальное здоровье!\n";
  627.         }  elsif ($characteristics{gold} eq 0 or $characteristics{gold} < 0) {
  628.             print "У вас нехватает золота!";
  629.         }
  630.         else {
  631.             $characteristics{gold} = $characteristics{gold} - 10;
  632.             $characteristics{health} = $characteristics{health} + 10;
  633.         }
  634.     }
  635.     foreach $key(sort keys %wasd){
  636.         if ($enter_b eq $key){
  637.             print $wasd{$key}."\n";
  638.         }
  639.     }
  640. }
  641. sub dealers {
  642.     $rand_q = int(rand(10));
  643.     if ($rand_q eq 1){
  644.         $deal = int(rand(20)) - $characteristics{luck};
  645.         foreach $key(sort keys %dealers){
  646.             if ($deal eq $key) {   
  647.                 if($quest1 == "inactive"){
  648.                 print $dealers{$key}."\n";
  649.                 print "Бесталл: Привет...\n";
  650.                 print "Вы:\n";
  651.                 print "1. Что случилось?.\n";
  652.                 print "2. Привет.\n";
  653.                 print "Пропустить диалог <Enter>.\n";
  654.                 $deal_quest1 = uc <STDIN>;
  655.                 chomp $deal_quest1;
  656.                 if($deal_quest1 eq 1){
  657.                     print "Бесталл: У меня украли невесту Архану\n";
  658.                     print "Вы:\n";
  659.                     print "1. Я могу тебе помочь.\n";
  660.                     print "2. Понятно, пока.\n";
  661.                     $deal_quest1_ans = uc <STDIN>;
  662.                     chomp $deal_quest1_ans;
  663.                     if($deal_quest1_ans eq 1){
  664.                         print "Бесталл: Спасибо!";
  665.                         $quest1 = "active";
  666.                     } elsif ($deal_quest1_ans eq 2){
  667.                         print "Бесталл: Пока";
  668.                     }
  669.                 } elsif ($deal_quest1 eq 2){
  670.                     print "Бесталл отказался разговаривать и убежал\n";
  671.                 }
  672.     }
  673. }
  674.     }
  675. }elsif($rand_q eq 2){
  676.     print $monstrs{3};
  677.     print "\n";
  678.     print "Маг: Здравствуй, страник! Я могу предложить тебе купить у меня ману и несколько заклинаний\n";
  679.     print "1. Выучить заклинание огненых шаров - 60 золота.\n";
  680.     print "2. Мана 100  - 45 золота.\n";
  681.     $buy = uc <STDIN>;
  682.     chomp $buy;
  683.     if($buy eq 1){
  684.         if($characteristics{gold} < 60){
  685.                     print "У вас недостаточно средств\n";
  686.                 } else {
  687.                         $characteristics{magic2} = "Огненые шары";
  688.                         $characteristics{gold} = $characteristics{gold} - 60;
  689.                         $characteristics{score} = $characteristics{score} + 14;
  690.                         print "Вы купили заклинание огненых шаров!\n";
  691.                         print "Маг: спасибо, приходи ещё!";
  692.                     }
  693.     } elsif ($buy eq 2){
  694.         if($characteristics{gold} < 45){
  695.                     print "У вас недостаточно средств\n";
  696.                 } else {
  697.                     if($characteristics{mana} eq 200 or $characteristics{mana} > 200){
  698.                         print "У вас максимальный уровень маны\n";
  699.                     } else {
  700.                         $characteristics{gold} = $characteristics{gold} - 45;
  701.                         $characteristics{mana} = $characteristics{mana} +100;
  702.                         $characteristics{score} = $characteristics{score} + 20;
  703.                         print "Вы купили ману! +100\n";
  704.                     }
  705.                 }
  706.     }
  707. } elsif ($rand_q eq 3){
  708.     $deal = int(rand(20)) - $characteristics{luck};
  709.     foreach $key(sort keys %dealers){
  710.         if ($deal eq $key) {
  711.             print $dealers{$key}."\n";
  712.             print "Вы встретили торговца, B продать весь инвентарь\n";
  713.             print "1. Зелье силы (+1) - 30 золота.\n";
  714.             print "2. Зелье ума (+1) - 30 золота.\n";
  715.             print "3. Зелье удачи (+1) 35 золота.\n";
  716.             print "4. Здоровье +10 - 10 золота.\n";
  717.             print "5. Лук - 50 золота.\n";
  718.             print "6. Выучить заклинание молнии - 70 золота.\n";
  719.             print "7. Мана 50  - 30 золота.\n";
  720.             $buy = uc <STDIN>;
  721.             chomp $buy;
  722.             if($buy eq 1){
  723.                 if($characteristics{gold} < 30){
  724.                     print "У вас недостаточно средств\n";
  725.                 } else {
  726.                     if($characteristics{power} eq 10 or $characteristics{power} > 10){
  727.                         print "У вас максимальный уровень силы\n";
  728.                     } else {
  729.                     $characteristics{gold} = $characteristics{gold} - 30;
  730.                     $characteristics{uron} = $characteristics{uron} + 1;
  731.                     $characteristics{power} = $characteristics{power} +1;
  732.                     $characteristics{score} = $characteristics{score} + 5;
  733.                     print "Вы купили зелье силы! +1\n";
  734.                 }
  735.                 }
  736.             } elsif($buy eq 2){
  737.                 if($characteristics{gold} < 30){
  738.                     print "У вас недостаточно средств\n";
  739.                 } else {
  740.                     if($characteristics{intelligence} eq 10 or $characteristics{intelligence} > 10){
  741.                         print "У вас максимальный уровень ума\n";
  742.                     } else {
  743.                     $characteristics{gold} = $characteristics{gold} - 30;
  744.                     $characteristics{intelligence} = $characteristics{intelligence} +1;
  745.                     $characteristics{score} = $characteristics{score} + 5;
  746.                     print "Вы купили зелье ума! +1\n";
  747.                 }
  748.                 }
  749.             } elsif($buy eq 3){
  750.                 if($characteristics{gold} < 35){
  751.                     print "У вас недостаточно средств\n";
  752.                 } else {
  753.                     if($characteristics{luck} eq 10 or $characteristics{luck} > 10){
  754.                         print "У вас максимальный уровень удачи\n";
  755.                     } else {
  756.                         $characteristics{gold} = $characteristics{gold} - 35;
  757.                         $characteristics{luck} = $characteristics{luck} +1;
  758.                         $characteristics{score} = $characteristics{score} + 5;
  759.                         print "Вы купили зелье удачи! +1\n";
  760.                     }
  761.                 }
  762.             } elsif($buy eq 4){
  763.                 if($characteristics{gold} < 10){
  764.                     print "У вас недостаточно средств\n";
  765.                 } else {
  766.                     if ($characteristics{health} eq 100 or $characteristics{health} > 100){
  767.             print "У вас максимальное здоровье!\n";
  768.         } else {
  769.                     $characteristics{gold} = $characteristics{gold} - 10;
  770.                     $characteristics{health} = $characteristics{health} + 10;
  771.                     $characteristics{score} = $characteristics{score} + 5;
  772.                     print "Вы купили зелье здоровья! +1\n";
  773.                 }
  774.                 }
  775.             } elsif($buy eq 5) {
  776.             if($characteristics{gold} < 50){
  777.                     print "У вас недостаточно средств\n";
  778.                 } else {
  779.                         $characteristics{weapon1} = "Лук";
  780.                         $characteristics{gold} = $characteristics{gold} - 50;
  781.                         $characteristics{score} = $characteristics{score} + 10;
  782.                         print "Вы купили лук!\n";
  783.                     }
  784.     }
  785.     elsif($buy eq 6) {
  786.             if($characteristics{gold} < 70){
  787.                     print "У вас недостаточно средств\n";
  788.                 } else {
  789.                         $characteristics{magic1} = "Молния";
  790.                         $characteristics{gold} = $characteristics{gold} - 70;
  791.                         $characteristics{score} = $characteristics{score} + 12;
  792.                         print "Вы купили заклинание молнии!\n";
  793.                     }
  794.     } elsif($buy eq 7){
  795.                 if($characteristics{gold} < 30){
  796.                     print "У вас недостаточно средств\n";
  797.                 } else {
  798.                     if($characteristics{mana} eq 200 or $characteristics{mana} > 200){
  799.                         print "У вас максимальный уровень маны\n";
  800.                     } else {
  801.                         $characteristics{gold} = $characteristics{gold} - 30;
  802.                         $characteristics{mana} = $characteristics{mana} +50;
  803.                         $characteristics{score} = $characteristics{score} + 10;
  804.                         print "Вы купили ману! +50\n";
  805.                     }
  806.                 }
  807.             }
  808.             if ($buy eq "B"){
  809.                 if (!$characteristics{item1} or !$characteristics{item2} or !$characteristics{item3}) {
  810.                     $answ_d_1 = int(rand(20)) - $characteristics{luck};
  811.                     if ($answ_d_1 eq 1) {
  812.                         print "Торговец: Проваливай у тебя нету нужного количества предметов!\n";
  813.                         print "Вы:\n";
  814.                         print "1.Как тебя зовут? Из какого клана?\n";
  815.                         print "2.Что это за место?\n";
  816.                         print "3.А мне и не нужны твои паршивое золото.\n";
  817.                         print "Чтобы не вступать в беседу нажмите <Enter>\n";
  818.                         $answ_d_1_1 = <STDIN>;
  819.                         chomp $answ_d_1_1;
  820.                         if($answ_d_1_1 eq 1){
  821.                             print "Торговец: Меня зовут Ростран. Я из клана \"леденящий ветер\"\n";
  822.                         }elsif ($answ_d_1_1 eq 2){
  823.                             print "Торговец: Слушай, мне некогда болтать с тобой, у меня есть дела по важнее.\n";
  824.                         }
  825.                          elsif ($answ_d_1_1 eq 3){
  826.                             print "Торговец: И мне твоё тоже! Хоть в чём-то я с тобой соглашусь.";
  827.                         }
  828.                     } elsif($answ_d_1 eq 2) {
  829.                         print "Торговец: Прийди в другой раз. Когда накопишь предметов.\n";
  830.                         print "Вы:\n";
  831.                         print "1.Как тебя зовут? Из какого клана?\n";
  832.                         print "2.Спасибо за помощь!.\n";
  833.                         print "Чтобы не вступать в беседу нажмите <Enter>\n";
  834.                         $answ_d_1_2 = <STDIN>;
  835.                         chomp $answ_d_1_2;
  836.                         if($answ_d_1_2 eq 1){
  837.                             print "Торговец: Меня зовут Дегдрин и я одиночка. Когда-то давно я был в клане \"Серебрянная кровь\", но я многое переосмыслил с того времени\n";
  838.                         }elsif ($answ_d_1_1 eq 2){
  839.                             print "Торговец: Всегда обращяйся!\n";
  840.                         }
  841.                     } elsif ($answ_d_1 eq 3) {
  842.                         print "Торговец: Извини... но у тебя нет нужного количества предметов.\n";
  843.                         print "Вы:\n";
  844.                         print "1.Ладно, я приду в другой раз.\n";
  845.                         print "2.Спасибо за помощь!.\n";
  846.                         print "Чтобы не вступать в беседу нажмите <Enter>\n";
  847.                         $answ_d_1_2 = <STDIN>;
  848.                         chomp $answ_d_1_2;
  849.                         if($answ_d_1_2 eq 1){
  850.                             print "Торговец: Буду ждать.\n";
  851.                         }elsif ($answ_d_1_1 eq 2){
  852.                             print "Торговец: Всегда обращяйся!\n";
  853.                         }
  854.                     } elsif ($answ_d_1 eq 4) {
  855.                         print "Торговец: Я не разговариваю с людьми! Проваливай!\n";
  856.                         print "Вы:\n";
  857.                         print "1.Ладно, я приду в другой раз.\n";
  858.                         print "2.Спасибо за помощь!.\n";
  859.                         print "Чтобы не вступать в беседу нажмите <Enter>\n";
  860.                         $answ_d_1_2 = <STDIN>;
  861.                         chomp $answ_d_1_2;
  862.                         if($answ_d_1_2 eq 1){
  863.                             print "Торговец: ПРОВАЛИВАЙ!.\n";
  864.                         }elsif ($answ_d_1_1 eq 2){
  865.                             print "Торговец: Всегда обращяйся!\n";
  866.                         }
  867.                     }
  868.                 } else {
  869.                     $gld = int(rand(3));
  870.                     if ($gld eq 1) {
  871.                         $characteristics{gold} = $characteristics{gold} + 30;
  872.                         $characteristics{score} = $characteristics{score} + 15;
  873.                     } elsif ($gld eq 2) {
  874.                         $characteristics{gold} = $characteristics{gold} + 15;
  875.                         $characteristics{score} = $characteristics{score} + 10;
  876.                     }
  877.                     $characteristics{item1} = undef;
  878.                     $characteristics{item2} = undef;
  879.                     $characteristics{item3} = undef;
  880.                     $answerd = int(rand(4));
  881.                     if ($answerd eq 1){
  882.                         print "Торговец: Спасибо, приходи ещё!\n";
  883.                     } elsif ($gld eq 2) {
  884.                         print "Торговец: Скажи хоть спасибо что я купил у тебя эти вещи за 15 золота!";
  885.                     } elsif ($answerd eq 2){
  886.                         print "Торговец: Я некромант! Наш клан не любит ваш поэтому сваливай быстрее!";
  887.                     } elsif ($answerd eq 3) {
  888.                         print "Торговец: Берегись монстров!";
  889.                     }
  890.     }
  891.         }
  892. }
  893. }
  894. }
  895. }
  896.  
  897.  
  898. sub buildings {
  899.     foreach $key(sort keys %buildings){
  900.         if ($building eq $key){
  901.             print $buildings{$key}."\n";
  902.         }
  903.     }
  904. }
  905.  
  906. sub monstr {
  907.     #Тут с помощью int(rand(11)) вычисляется рандомное число от 0 до 10
  908.     #если это число равно 8 перед вами монстр. С помощью int мы округляем число
  909.     $monstrl = int(rand(11));
  910.     #тип монстра: 1.Люди 2.Эльфы 3.Гномы 4.Орки 5.Демоны 6.Ангелы 7.Драконы 8.Кентавры 9минотавр
  911.     $monstr_t = int(rand(10));
  912.     $quest1_r = int(rand(6));
  913.     if($quest1_r eq 1){
  914.     if ($quest1 eq "active") {
  915.         print "Вы нашли монстров которые держат у себя невесту Бесталла\n";
  916.         print "Напасть - F, R - не помогать\n";
  917.         $quest1_ans = uc <STDIN>;
  918.         chomp $quest1_ans;
  919.         if ($quest1_ans eq "F") {
  920.             &quest1;
  921.         } elsif ($quest1_ans eq "R") {
  922.             $quest1 = "false";
  923.         }
  924.     }
  925. }
  926.     if ($monstrl eq 8){
  927.         print "Впереди монстр!\n";
  928.     foreach $key(sort keys %monstrs){
  929.         if ($monstr_t eq $key){
  930.             print "Это ".$monstrs{$key}."\n";
  931.                     $z = 100;
  932.                     while ($z > 0){
  933.                         print "Убежать: r, ударить: f\n";
  934.                         $fight = uc <STDIN>;
  935.                         chomp $fight;
  936.                         if ($fight eq "F") {
  937.                             print "Какое оружие использовать? F - меч.\n";
  938.                             print "Оружие:\n";
  939.                             if ($characteristics{arrows} <= 0){
  940.                                     print "1.(Недоступно)У вас нету нужного количества стрел.\n"
  941.                             } else{
  942.                             print "1. ".$characteristics{weapon1}."\n";
  943.                         }
  944.                             if ($characteristics{arrows} <= 0){
  945.                                     print "2.(Недоступно)У вас нету нужного количества стрел.\n"
  946.                             } else{
  947.                             print "2. ".$characteristics{weapon2}."\n";
  948.                         }
  949.                             print "3. ".$characteristics{weapon3}."\n";
  950.                             print "Стрелы: $characteristics{arrows}.\n";
  951.                             print "Магия:\n";
  952.                             print "4. ".$characteristics{magic1}."\n";
  953.                             print "5. ".$characteristics{magic2}."\n";
  954.                             print "6. ".$characteristics{magic3}."\n";
  955.                             print "7. ".$characteristics{magic4}."\n";
  956.                             print "8. ".$characteristics{magic5}."\n";
  957.                             print "Мана: $characteristics{mana}\n";
  958.                             $fight_weapon = uc <STDIN>;
  959.                             chomp $fight_weapon;
  960.                             if ($fight_weapon eq "F"){
  961.                             $z = $z - $characteristics{uron}-$characteristics{power};
  962.                             $characteristics{uron} = $characteristics{uron}+$characteristics{power};
  963.                             print "Вы ударили ".$monstrs{$key}." у него осталось ".$z." здоровья \n";
  964.                             $characteristics{sword} = $characteristics{sword} -1;
  965.                             $characteristics{uron} = $characteristics{uron} +0.5;
  966.                             if ($z > 0) {
  967.                             $ud = int(rand(31));
  968.                             $characteristics{health} = $characteristics{health} - $ud;
  969.                             print "Монстр атаковал вас и снял $ud здоровья";
  970.                         } else {
  971.                             print "Вы победили монстра! +5 к здоровью, +10 золота.";
  972.                             $characteristics{health} = $characteristics{health} +5;
  973.                             $monstr_gold = int(rand(4));
  974.                             if($monstr_gold eq 1) {
  975.                                 $characteristics{gold} = $characteristics{gold} +10;
  976.                             } elsif($monstr_gold eq 2){
  977.                                 $characteristics{gold} = $characteristics{gold} +15;
  978.                             } elsif($monstr_gold eq 3){
  979.                                 $characteristics{gold} = $characteristics{gold} +18;
  980.                             }
  981.                             $characteristics{score} = $characteristics{score} + 20;
  982.                         }
  983.                         if ($characteristics{health} <= 0){
  984.                             print "
  985.                                                                              
  986.    //   ) )                                                                    
  987.   //         ___      _   __      ___          ___              ___      __    
  988.  //  ____  //   ) ) // ) )  ) ) //___) )     //   ) ) ||  / / //___) ) //  ) )
  989. //    / / //   / / // / /  / / //           //   / /  || / / //       //      
  990. ((____/ / ((___( ( // / /  / / ((____       ((___/ /   ||/ / ((____   //    
  991.                             ";
  992.                             die;
  993.                         }
  994.                             }
  995.                              elsif ($fight_weapon eq 1) {
  996.                                 if(!$characteristics{weapon1}){
  997.                                     print " У вас нету оружия";
  998.         } else {
  999.                                 if ($characteristics{arrows} <= 0){
  1000.                                     print "1.(Недоступно)У вас нету нужного количества стрел.\n"
  1001.                                     } else {
  1002.                                 $z = $z - $characteristics{bow};
  1003.                                 print "Вы ударили ".$monstrs{$key}." у него осталось ".$z." здоровья \n";
  1004.                                 $characteristics{bow} = $characteristics{bow} +0.5;
  1005.                                 $characteristics{arrows} = $characteristics{arrows} -1;
  1006.                                 if ($characteristics{arrows} <= 0){
  1007.                                     print "У вас недостаточно стрел.";
  1008.                                 }
  1009.                                 if ($z > 0) {
  1010.                             $ud = int(rand(31));
  1011.                             $characteristics{health} = $characteristics{health} - $ud;
  1012.                             print "Монстр атаковал вас и снял $ud здоровья";
  1013.                         } else {
  1014.                             print "Вы победили монстра! +5 к здоровью, +10 золота.";
  1015.                             $characteristics{health} = $characteristics{health} +5;
  1016.                             $characteristics{gold} = $characteristics{gold} +10;
  1017.                         }
  1018.                         if ($characteristics{health} <= 0){
  1019.                             print "
  1020.                                                                              
  1021.    //   ) )                                                                    
  1022.   //         ___      _   __      ___          ___              ___      __    
  1023.  //  ____  //   ) ) // ) )  ) ) //___) )     //   ) ) ||  / / //___) ) //  ) )
  1024. //    / / //   / / // / /  / / //           //   / /  || / / //       //      
  1025. ((____/ / ((___( ( // / /  / / ((____       ((___/ /   ||/ / ((____   //    
  1026.                             ";
  1027.                             die;
  1028.                         }
  1029.                     }
  1030.  
  1031.                             }
  1032.                         }
  1033.  
  1034. elsif ($fight_weapon eq 2) {
  1035.     if(!$characteristics{weapon2}){
  1036.         print " У вас нету оружия";
  1037.         } else {
  1038.                                 if ($characteristics{arrows} <= 0){
  1039.                                     print "1.(Недоступно)У вас нету нужного количества стрел.\n"
  1040.                                     } else {
  1041.                                 $z = $z - $characteristics{crossbow};
  1042.                                 print "Вы ударили ".$monstrs{$key}." у него осталось ".$z." здоровья \n";
  1043.                                 $characteristics{crossbow} = $characteristics{crossbow} +0.5;
  1044.                                 $characteristics{arrows} = $characteristics{arrows} -1;
  1045.                                 if ($characteristics{arrows} <= 0){
  1046.                                     print "У вас недостаточно стрел.";
  1047.                                 }
  1048.                                 if ($z > 0) {
  1049.                             $ud = int(rand(31));
  1050.                             $characteristics{health} = $characteristics{health} - $ud;
  1051.                             print "Монстр атаковал вас и снял $ud здоровья";
  1052.                         } else {
  1053.                             print "Вы победили монстра! +5 к здоровью, +10 золота.";
  1054.                             $characteristics{health} = $characteristics{health} +5;
  1055.                             $characteristics{gold} = $characteristics{gold} +10;
  1056.                         }
  1057.                         if ($characteristics{health} <= 0){
  1058.                             print "
  1059.                                                                              
  1060.    //   ) )                                                                    
  1061.   //         ___      _   __      ___          ___              ___      __    
  1062.  //  ____  //   ) ) // ) )  ) ) //___) )     //   ) ) ||  / / //___) ) //  ) )
  1063. //    / / //   / / // / /  / / //           //   / /  || / / //       //      
  1064. ((____/ / ((___( ( // / /  / / ((____       ((___/ /   ||/ / ((____   //    
  1065.                             ";
  1066.                             die;
  1067.                         }
  1068.                     }
  1069. }
  1070.                             } elsif ($fight_weapon eq 3) {
  1071.     if(!$characteristics{weapon3}){
  1072.         print " У вас нету оружия";
  1073.         } else {
  1074.                                 $z = $z - $characteristics{axe};
  1075.                                 print "Вы ударили ".$monstrs{$key}." у него осталось ".$z." здоровья \n";
  1076.                                 $characteristics{axe} = $characteristics{axe} +0.5;
  1077.                                 if ($z > 0) {
  1078.                             $ud = int(rand(31));
  1079.                             $characteristics{health} = $characteristics{health} - $ud;
  1080.                             print "Монстр атаковал вас и снял $ud здоровья";
  1081.                         } else {
  1082.                             print "Вы победили монстра! +5 к здоровью, +10 золота.";
  1083.                             $characteristics{health} = $characteristics{health} +5;
  1084.                             $characteristics{gold} = $characteristics{gold} +10;
  1085.                         }
  1086.                         if ($characteristics{health} <= 0){
  1087.                             print "
  1088.                                                                              
  1089.    //   ) )                                                                    
  1090.   //         ___      _   __      ___          ___              ___      __    
  1091.  //  ____  //   ) ) // ) )  ) ) //___) )     //   ) ) ||  / / //___) ) //  ) )
  1092. //    / / //   / / // / /  / / //           //   / /  || / / //       //      
  1093. ((____/ / ((___( ( // / /  / / ((____       ((___/ /   ||/ / ((____   //    
  1094.                             ";
  1095.                             die;
  1096.                         }
  1097.                     }
  1098. } elsif ($fight_weapon eq 4) {
  1099.     if(!$characteristics{magic1}){
  1100.         print " У вас нету магии";
  1101.         } else {
  1102.                                 if ($characteristics{mana} < 20){
  1103.                                     print "a.(Недоступно)У вас нету нужного количества маны.\n";
  1104.                                     } else {
  1105.                                 $z = $z - $characteristics{lightning} - $characteristics{magic};
  1106.                                 print "Вы ударили ".$monstrs{$key}." у него осталось ".$z." здоровья \n";
  1107.                                 $characteristics{lightning} = $characteristics{lightning} +0.5;
  1108.                                 $characteristics{mana} = $characteristics{mana} -20;
  1109.                                 $characteristics{magic} = $characteristics{magic} + 0.1;
  1110.                                 if ($characteristics{mana} < 20){
  1111.                                     print "У вас недостаточно маны.\n";
  1112.                                 }
  1113.                                 if ($z > 0) {
  1114.                             $ud = int(rand(31));
  1115.                             $characteristics{health} = $characteristics{health} - $ud;
  1116.                             print "Монстр атаковал вас и снял $ud здоровья";
  1117.                         } else {
  1118.                             print "Вы победили монстра! +5 к здоровью, +10 золота.";
  1119.                             $characteristics{health} = $characteristics{health} +5;
  1120.                             $characteristics{gold} = $characteristics{gold} +10;
  1121.                         }
  1122.                         if ($characteristics{health} <= 0){
  1123.                             print "
  1124.                                                                              
  1125.    //   ) )                                                                    
  1126.   //         ___      _   __      ___          ___              ___      __    
  1127.  //  ____  //   ) ) // ) )  ) ) //___) )     //   ) ) ||  / / //___) ) //  ) )
  1128. //    / / //   / / // / /  / / //           //   / /  || / / //       //      
  1129. ((____/ / ((___( ( // / /  / / ((____       ((___/ /   ||/ / ((____   //    
  1130.                             ";
  1131.                             die;
  1132.                         }
  1133.                     }
  1134. }
  1135.                             } elsif($fight_weapon eq 5){
  1136.                                 if(!$characteristics{magic2}){
  1137.         print " У вас нету магии";
  1138.         } else {
  1139.                                 if ($characteristics{mana} < 20){
  1140.                                     print "a.(Недоступно)У вас нету нужного количества маны.\n";
  1141.                                     } else {
  1142.                                 $z = $z - $characteristics{fireball} - $characteristics{magic};
  1143.                                 print "Вы ударили ".$monstrs{$key}." у него осталось ".$z." здоровья \n";
  1144.                                 $characteristics{lightning} = $characteristics{lightning} +0.5;
  1145.                                 $characteristics{mana} = $characteristics{mana} -20;
  1146.                                 $characteristics{magic} = $characteristics{magic} + 0.1;
  1147.                                 if ($characteristics{mana} < 20){
  1148.                                     print "У вас недостаточно маны.\n";
  1149.                                 }
  1150.                                 if ($z > 0) {
  1151.                             $ud = int(rand(31));
  1152.                             $characteristics{health} = $characteristics{health} - $ud;
  1153.                             print "Монстр атаковал вас и снял $ud здоровья";
  1154.                         } else {
  1155.                             print "Вы победили монстра! +5 к здоровью, +10 золота.";
  1156.                             $characteristics{health} = $characteristics{health} +5;
  1157.                             $characteristics{gold} = $characteristics{gold} +10;
  1158.                         }
  1159.                         if ($characteristics{health} <= 0){
  1160.                             print "
  1161.                                                                              
  1162.    //   ) )                                                                    
  1163.   //         ___      _   __      ___          ___              ___      __    
  1164.  //  ____  //   ) ) // ) )  ) ) //___) )     //   ) ) ||  / / //___) ) //  ) )
  1165. //    / / //   / / // / /  / / //           //   / /  || / / //       //      
  1166. ((____/ / ((___( ( // / /  / / ((____       ((___/ /   ||/ / ((____   //    
  1167.                             ";
  1168.                             die;
  1169.                         }
  1170.                     }
  1171.                             }
  1172.                             }
  1173.                         }                           elsif ($fight eq "R"){
  1174.                             $death_f = int(rand(4));
  1175.                             if ($death_f eq 1) {
  1176.                                 print "Вы увязли в земле и монстр вас догнал...\n";
  1177.                             } elsif($death_f eq 2) {
  1178.                                 print "Монстр кинул клинок вам в спину и догнал вас!\n";
  1179.                             } elsif($death_f eq 3) {
  1180.                                 print "Вы упали и монстр вас догнал!\n";
  1181.                             }
  1182.                             }
  1183.  
  1184.                         }
  1185.                     }
  1186.                     }
  1187.                 }
  1188.         }
  1189.  
  1190. #/START FRAGMENT#
  1191.  
  1192. #INPUT FRAGMENT#
  1193. while(True) {
  1194.     #Постройка
  1195.     #1.Шахта
  1196.     #2.Замок
  1197.     #3.Казарма
  1198.     #4.Город
  1199.     #5.Башня с лучниками.
  1200.     #6.Дерево
  1201.     $building = int(rand(20));
  1202.     &wasd;
  1203.     &monstr;
  1204.     &buildings;
  1205.     &items;
  1206.     &dealers;
  1207.     &mdw;
  1208. }
  1209. #/INPUT FRAGMENT#
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!