do '/home/ziaw/mmc-4.1/set/shared.pl';

my $mmc = $ENV{MMC} || $ENV{MMC} || $ENV{HOME} || './mud';
MUD::logopen("ziaw.sow.log");
CMD::cmd_ticksize(60);

use locale;

$U::password = 'pass';

$U::friends = "";
$U::targets = "";
$Conf::status_height=2;

trig {
  $tst = CL::unparse_colors($;);
  echo(" $tst");
} ".*", "800nfg-:TEST";

sub st {

$U::targets = sprintf("[%-8s] 1.%-8s 2.%-8s 3.%-8s 4.%-8s",
                      $U::target,
                      $U::t1,
                      $U::t2,
                      $U::t3,
                      $U::t4
                    );

$U::friends = sprintf("1.%-8s 2.%-8s 3.%-8s 4.%-8s",
                      $U::f1,
                      $U::f2,
                      $U::f3,
                      $U::f4
                    );
}

alias {
  st();
} "st";

Status::new_svy($U::targets, 1, 55, 11);
Status::new_svy($U::friends, 0, 45, 10);
Status::new_svy($U::_ticker, 0, 3, 10);
Status::new_svy($U::hunt, 0, 4, 9);

timeout {st()} 100;

my $basename = "/home/ziaw/mmc-4.1/set/base.txt";
my $save_state = 0;

my $e = "(?:ел|ла|ло)";
my $e2 = "(?:л|ла|ло)";
my $moving = "приш$e|приеха$e2|прилете$e2|приплы$e2|приполз(?:ла|ло)?";
my $standing = "стоит|летает|отдыхает|сидит|спит|плавает";

my $incoming = "^(.*) ($moving) (с.+)";

trig {
 $: = "\003P+ $1\003H $2 $3 - \003PINCOMING +";
} "$incoming", "4000f:WALK";

alias {
  $_ = $_[0];
  my $p = $U::huntlist;
  my $silence = 0;
  if (/1/) {
    $U::hunt = "HUNT";
    my $incoming = "^($p) (.*)($moving) (с.+)";
    echo("in: $incoming");
    CMD::cmd_unaction("HUNT");
    CMD::cmd_xsub("$incoming", '&N$1 &P$3 $4 !!!САМ ПРИШЕЛ!!!', 'atac_target $1;охота -', "5000f:HUNT");
    CMD::cmd_xsub("^.*($p),? (.*)($standing) здесь. \$", '&N$1 &P$3 здесь !!!ПОПАЛСЯ!!!', 'atac_target $1;охота -', "5000f:HUNT");
  } elsif (/(0|\-)/) {
    $silence = 1 if (/\-/);
    $U::hunt = "";
    CMD::cmd_unaction("HUNT");
    CMD::cmd_xsub("^($p) (.*)($moving) (с.*)\$", '&N$1 &P$3 $4 !!!', '', "5000f:HUNT");
    CMD::cmd_xsub("^.*($p),? (.*)($standing) здесь. \$", '&N$1 &P$3 здесь !!!', '', "5000f:HUNT");
  } elsif ($_) {
    $U::hunt = "HUNT";
    $p = $U::huntlist = add2list("", @_);
    $U::hunt = "HUNT";
    CMD::cmd_unaction("HUNT");
    CMD::cmd_xsub("^($p) (.*)($moving) (с.*)\$", '&N$1 &P$3 $4 !!!САМ ПРИШЕЛ!!!', 'atac_target $1;охота -', "5000f:HUNT");
    CMD::cmd_xsub("^.*($p),? (.*)($standing) здесь. \$", '&N$1 &P$3 здесь !!!ПОПАЛСЯ!!!', 'atac_target $1;охота -', "5000f:HUNT");
  } 
  my $en = ($U::hunt eq "HUNT") ? "ON" : "OFF";
  echo("\003OРазыскиваются: $U::huntlist, HUNT:$en") unless ($p eq '-');
} "охота";

alias {
  my $c=shift;
  my $delay = shift || 2000;
  my $prefix = shift || "count";
  timeout {echo("\003O$prefix: ". ($c--))} $delay, $c;
} "count";

alias {
  my $str = shift;
  $str =~ s/\./\\S*\\s+/g;
  echo("Regexp: $str");
  open(F, $basename) || echo("no base");
  while (<F>) {
    chomp;
    next unless (/^Предмет '.*$str/);
    echo("\003O$_");
    while (<F>) {
      chomp;
      last if (/^\s*$/);
      echo($_);
    }
  }
  close(F);
} "свойства";

sub add2list {
  my $var = shift, $p;
  while ($p = shift) {
    if ($var) {$var .= "|";}
    $var .= $p;
  }
  return $var;
}

sub rem_from_list {
  my $list = shift, $pr = shift, $p;

  use locale;
  while ($p = shift) {
    if ($list =~ /^($p\w*)\|/i) {
      echo("\003O$1 вычеркнут из $prа.");
      $list =~ s/^$p\w*\|//i;
    } elsif ($list =~ /\|($p\w*)$/i) {
      echo("\003O$1 вычеркнут из $prа.");
      $list =~ s/\|$p\w*$//i;
    } elsif ($list =~ /\|($p\w*)\|/i) {
      echo("\003O$1 вычеркнут из $prа.");
      $list =~ s/\|$p\w*\|/|/i;
    } else {
      echo("\003O$1 не найден в $prе.");
    }
  }
  return $list;
}

alias {
  use locale;
  my $p = $U::pklist = add2list($U::pklist, @_);
  CMD::cmd_unaction("PKLIST");
  CMD::cmd_xsub("((?i)$p\\w*)", '&N$1', 'set_atarget $1', "f:PKLIST");
  echo("\003OПклист: " . $U::pklist)
} "пклист";

alias {
  $U::auto_target = shift;
} "set_atarget";

alias {
  use locale;
  my $p = $U::pklist = rem_from_list($U::pklist, "пклист", @_);

  CMD::cmd_unaction("PKLIST");
  CMD::cmd_xsub("((?i)$p\\w*)", '&N$1[]', 'set_atarget $1', "f:PKLIST");
  echo("\003OПклист: " . $U::pklist)
} "-пклист";

sub Xp {
  my $exp = shift;
  if ($exp > 1500000) {
    return sprintf('%.4gM', $exp/1000000);
  }
  if ($exp > 1000) {
    return sprintf('%.4gk', $exp/1000);
  }
  return $exp;
}

hook {
# функции передается prompt, пришедший из mud'а. Изменяй, как хочешь.
    my $prompt = shift;
    if($prompt =~ /\[.*\]/) {
        ${U::fight} = 1;
    } else {
        ${U::fight} = 0;
    }
    $prompt =~ s/Вых://;
    $prompt =~ s/Зауч:/M:/;
    $prompt =~ s/(\d+)о/&Xp($1)/ge;
#    if($who_lines && ($prompt =~ /\>/)) {
#        $who_lines = 0;
#        my $Total = "\003PTotal:";
#        foreach my $col (keys(%NCO)) {
#            $Total .= " \003$col($NCO{$col})";
#        }
#        echo($Total);
#        echo('');
#        undef %NCO;
#        disable("CHECK_WHO");
#        disable('GBUILD');    
#    }
    $prompt;
} "prompt";

sub get_color($$) {
# Параметры: строка с цветами в формате внутренних цветов mmc
# и номер символа в ней.
# Возвращаемое значение: цвет этого символа в диапазоне A..P
    return chr(ord(substr($_[0], 2*$_[1]+1, 1))+ord('A'));
}

trig {
    if (get_color($;, 1) eq 'I') {
        $: = "\003F*$1";
    }
    if (get_color($;, 1) eq 'D') {
        $: = "\003L$1";
    }
} "(.*)", "f1200";

hook {
  my $str = shift;
  if ($save_state) {
    if ($str ne "") {
      print F "$str\n";
    } else {
      print F "\n";
      close F;
      $save_state = 0;
      echo("End grab");
    }
    return "";
  }
  return $str;
} "input";

alias {
  open(F, ">>$basename") || echo("no base");
  $save_state = 1;
  echo("Begin grab");
} "вбазу";

alias {
  if (${U::block} eq 'блок') {
    sendl("сн ${U::shield}");
    sendl("сн ${U::light}");
  } elsif (${U::block} eq 'афф') {
    sendl("сн ${U::dvur}");
    sendl("воор ${U::prime}");
  }
  sendl("дер ${U::off}");
  ${U::block} = 'пари';
  echo("\003CDual mode");
} "дуал";

alias {
  if (${U::block} eq 'пари') {
    sendl("сн ${U::off}");
  } elsif (${U::block} eq 'афф') {
    sendl("сн ${U::dvur}");
    sendl("воор ${U::prime}");
  }
  sendl("одеть ${U::shield}");
  sendl("держ ${U::light}");
  ${U::block} = 'блок';
  echo("\003CBash mode");
} "баш";

alias {
  if (${U::block} eq 'блок') {
    sendl("сн ${U::shield}");
    sendl("сн ${U::light}");
  } elsif (${U::block} eq 'пари') {
    sendl("сн ${U::off}");
  }
  sendl("сн ${U::prime}");
  sendl("воор ${U::dvur}");
  ${U::block} = 'афф';
  echo("\003CTo handed mode");
} "двур";

alias {
  sendl("вз ${U::prime}");
  sendl("вз ${U::off}");
  sendl("вз ${U::dvur}");
  if (${U::block} eq 'блок') {
    sendl("воор ${U::prime}");
    echo("\003CДизарм прайма");
  } elsif (${U::block} eq 'пари') {
    sendl("воор ${U::prime}");
    sendl("дер ${U::off}");
    echo("\003CДизарм прайма или оффа");
  } elsif (${U::block} eq 'афф') {
    sendl("воор ${U::dvur}");
    echo("\003CДизарм двура");
  } else {
    sendl("воор ${U::dvur}");
    sendl("воор ${U::prime}");
    sendl("дер ${U::off}");
    echo("\003CПАНИКА!!!! Дизарм в непонятном режиме!!!!!");
  }
} "дд";

sub set_target {
  my $n = shift;
  my $t = shift;
  $t = "########" if ($t eq '-');
  if ($t) {
    CMD::cmd_variable("t$n", "$t");
    echo("\003CЦель$n = $t");
  } else {
    $t = eval("\$U::t$n");
    echo("\003CЦель$n = $t");
    return;
  }
  CMD::cmd_unaction("t$n");
#  CMD::cmd_substitute("($t\\w*)", "[Ц$n]\$1", ":t$n");
  CMD::cmd_substitute("\\b($t\\w*)", "[Ц$n]\$1", "f1100:t$n");
  if ($U::pk) {sendl("гг ц$n $t")}
}

alias {
  set_target(shift, shift);
} "нцель";

alias {
  my $ch = shift;
  my $info = join " ", @_;
  my $igrp = int rand(1000000000);
  CMD::cmd_substitute("$ch", "$ch\[$info\]", "f1200:INFO,$igrp");
} "инфо";


alias {set_target(1, shift);} "ц1";
alias {set_target(2, shift);} "ц2";
alias {set_target(3, shift);} "ц3";
alias {set_target(4, shift);} "ц4";

connect("light.demos.su", "4000");

__DATA__
[triggers]
3	^(Эардор) (.*)(приш(?:ел|ла|ло)|приеха(?:л|ла|ло)|прилете(?:л|ла|ло)|приплы(?:л|ла|ло)) (с.*)$		&N$1\ &P$3\ $4\ !!!	f5000:HUNT
3	^.*(Эардор),? (.*)(стоит|летает|отдыхает|сидит|спит|плавает) здесь. $		&N$1\ &P$3\ здесь\ !!!	f5000:HUNT
2	Эльхазар		Эльхазар[Маг]	f1200:INFO,657043457
2	Фьюн		Фьюн[Баш]	f1200:INFO,552398681
2	Нивр		Нивр[Вар]	f1200:INFO,912384033
2	Мэлайс		Мэлайс[Пал]	f1200:INFO,432128906
2	Микеле		Микеле[Дру]	f1200:INFO,360565185
2	Кчарк		Кчарк[Маг]	f1200:INFO,752380371
2	Ивор		Ивор[След]	f1200:INFO,625091552
2	Волдя		Волдя[Воин]	f1200:INFO,623748779
2	Агиол		Агиол[Дру]	f1200:INFO,993682861
2	Марвин		Марвин[Лек]	f1200:INFO,637237548
2	Лаэдо		Лаэдо[Воин]	-f1200:INFO,393341064
2	Зордраг		Зордраг[Следак]	f1200:INFO,698089599
2	Моретта		Моретта[Некр]	f1200:INFO,641815185
2	Морета		Морета[Некр]	f1200:INFO,237609863
2	Дунстан		Дунстан[Лек]	f1200:INFO,689422607
2	Дрегго		Дрегго[Воин]	f1200:INFO,890350341
2	Глимм		Глимм[Маг]	f1200:INFO,375335693
2	Стэрр		Стэрр[Черн]	f1200:INFO,107055664
2	Роцуа		Роцуа[Маг]	-f1200:INFO,420166015
2	Таравир		Таравир[Стая]	f1200:INFO,305236816
2	\b(отец\w*)		[Ц4]$1	f1100:t4
0	Хорошо, Вы попытаетесь спрятаться.			-g1000:821aa8c
1	Крот встал на ноги.	пп крот		1000:83666f4
1	Вы попытались подсечь .*, но упали сами...	вст;count 3 2000 Сидишь		1000:8342374
1	Вы слишком устали...  Спать... Спа...	просн		1000:8340b7c
1	Ваш опыт повысился на	лут		1000:835c2d8
1	Вы не сумели остаться незаметным.	ссс		1000:839c1c4
1	Гордон$	ссс		-1000:train_hide
1	Кураж прошел. Мама, лучше бы я умер вчера.	ик че;опохмел		1000:839ca50
1	Вы прекратили прятаться	/perl {$U::hide=''}		1000:835e830
1	Посетите наш сайт: www.mud.ru	$char;$password		1000:8153854
1	^ Древлянин Гордон \(прячется\)	/disable train_hide;/perl {$U::hide='H'}		1000:834433c
1	Вы стали заметны окружающим.	ссс		1000:839feb0
1	Вы провели подсечку, ловко усадив 	count 3 2000 Подножка		1000:8347000
1	Вы приземлились на землю.	гг ===== ПОЛЕТ СПАЛ ======		1000:8347080
2	(Вы отравили .*)		&O$1\ ****\ ОТРАВА\ ПРОШЛА\ !!!	1000:833f9f4
1	Это составило (\d+) кун	разд $1		1000:833f8ec
1	 ловко выбил.* из Ваших рук.	дд		1000:834d188
2	(.* замер.* на месте)		&O$1\ \ \ !!!!ХОЛД!!!!	1000:834e2f8
2	(.*) сообщил.* группе : '(.*)'		группе:\ &O$1\ '$2'	1000:83a8ffc
1	 Ни за что !  Вы сражаетесь за свою жизнь!	/disable train_hide		1000:829cc4c
1	Вы попытались спрятаться, но Ваша экипировка выдала Вас.	ссс		1000:834f920
1	^Вы почувствовали себя менее защищенно.	гг ======= ЗАЩИТУ ====		1000:836c9e4
1	Вы чувствуете себя немного слабее.	гг ===== СИЛА СПАЛА ======		1000:83ab0a4
1	Ваши очертания приобрели отчетливость.	гг === ТУМАН СПАЛ ===		1000:836dc04
1	следы ведут на (.*)$	$1		-1000:trаc
1	Вы не видите похожих следов.	выслед $trac		-1000:trаc
1	Вы двинулись по следу.	выслед $trac		-1000:trac
1	Вы не в состоянии больше видеть невидимых.	гг === ДЕТЕКТ ИНВИЗ ===		1000:83ae0b4
1	Минул час.	/tickset		1000:83b079c
1	Ни за что !  Вы сражаетесь за свою жизнь!	$flee_dir		-1000:FOLLOW
1	.* сбежал\S? на (.*)\.	/var flee_dir $1;$1;/enable FOLLOW		-1000:fol_flee
1	^\[ Exits	/disable FOLLOW		1000:8375cfc
1	Ваша кожа вновь стала мягкой и бархатистой.	гг ====КАМНЕКОЖА СПАЛА====		1000:8358a00
1	У Вас не хватит умения вылечить Зиава.	леч я		1000:835a2d8
1	(.*) заметил.? : ('.*')	/wecho 1 $1 -> всем: $2		1000:835d51c
1	(.*) заорал.? : ('.*')	/wecho 1 $1 -> всем: $2		1000:835b468
2	(.* прикусил\S* язык !)		&O$1\ -\ МОЛЧАНКА!!!	1000:835b4bc
1	Боги сурово поглядели на Вас.	леч		1000:83bd974
1	^Небольшой фонтан с чистой водой журчит у стены. ..шумит !$	напол $tank фонт		1000:835dbb0
1	Персонаж       \| Здоровье \|Энергия\|Рядом\|Учить\| Доп \| Кто \| Положение	/enable GBUILD		1000:8360218
1	Please, select your charset:	0		-1000:8358460
1	 Welcome To AdamantMUD 	зиавер;$apassword;$char;$apassword		1000:8365158
1	Облака пропали.	/tickset		1000:83c5e40
1	Вы хотите есть	/tickset		1000:83509f4
1	Небо затянули облака.	/tickset		1000:8385668
1	Ваше точное попадание вывело 	гг ==== Я ВЫВЕЛ ЭТО ИЗ СТРОЯ ====		1000:8386560
2	(Анноха)		&K$1	1000:8360788
2	(Инессу)		&K$1	1000:8383514
2	Ваши размеры стали прежними.		&O================\ УВЕЛИЧЕНИЕ\ СПАЛО\ ================	1000:83c1870
3	(Белая аура вокруг Вашего тела угасла.)	гг ==== САНК СПАЛ ======	&N$1	1000:83c227c
1	^\S+:	/enable TRACE		1000:8356074
3	^(\-.*следы ведут на) (\S+)$	/disable TRACE;/set trace_dir $2	$1\ &O$2	1000:TRACE
2	Соню		&KСоню	1000:838b93c
2	(.*) попытал\S+ завалить (.*), но не тут-то было\.		&O==============\ \ $1\ ПРОВАЛИЛ\ БАШ\ НА\ $2\ ==========	1000:83c9438
2	(.*) избежа\S+ попытку (.*) завалить \S+\.		&O=================\ $2\ ПРОВАЛИЛ\ БАШ\ НА\ $1\ =================	1000:838c728
2	(.*) завали\S+ (.*) на землю мощным ударом\.		&O===============\ $1\ ЗАБАШИЛ\ $2!!!\ =================	1000:83ca430
2	(.*) вста\S+ на ноги\.		&O===========\ $1\ ВСТАЛ(А)!!!\ ===========	1000:83c9c70
1	К Вам вернулась способность двигаться.	гг ===== $char БОЛЬШЕ НЕ В ХОЛДЕ ====		1000:838e898
2	Диллару		&KДиллару	1000:83657f0
2	Несмеяну		&KНесмеяну	1000:83c6ac8
2	Валадара		&KВаладара	1000:83ead18
1	   В склонах плато, на котором вырос город, очень давно были копи, в	напол $tank колодец		1000:83c6ab0
2	 Скаила		\ &KСкаила	1000:83c6aa0
2	 Пауля		\ &KПауля	1000:83eaacc
1	Здесь князь любит бывать в одиночестве, размышляя о судьбах вверенных	напол $tank фонтан		1000:83c5e7c
1	Вы ловко выбили .* из рук 	вз все		1000:825b2d0
2	^Одним ударом (.*) повалил(а|о)? (.*) на землю.		&O=============\ \ $1\ ЗАБАШИЛ\ $2\ =============	1000:83c83cc
2	 Наину		\ &KНаину	1000:8428718
2	 Гневну		\ &KГневну	1000:8429500
2	 Михаила		\ &KМихаила	1000:83ed930
2	 Эоллу		\ &KЭоллу	1000:83c85b8
2	 Линду		\ &KЛинду	1000:83c92fc
2	 Рону		\ &KРону	1000:8425a7c
2	 Алтею		\ &KАлтею	1000:8428de4
1	Хуйибаный сказал Вам :			g1000:83cab30
1	^Злобень сообщил группе : 'кил (.*)'	у $1		-1000:84338fc
1	^Злобень сообщил группе : 'рекол'	1		-1000:8488534
1	^Злобень сообщил группе : 'вст'	вст		-1000:8491b38
1	Вы получили \d+ един.* опыта.	лут		1000:loot
2	^Вы полетели на землю от мощного удара (.*)!		&O===============\ !\ ЛЕЖИШЬ\ ОТ\ БАША\ $1\ !\ ============	1000:8460d60
1	^Вы получили свою часть опыта -- 	лут		1000:loot
2	Гилена		&KГилена	1000:8435a4c
2	Лизаньку		&KЛизаньку	1000:8436260
2	(Берегора)		&K$1	1000:b909cc
2	(Смешину)		&K$1	1000:beb790
1	(.* дружине: '.*').	/wecho 2 $1		1000:bb4aa0
1	Please, select your charset:	 3 		1000:b23c78
1	 \| Добро пожаловать в Сферу Миров! \|      \.\~\)\)\>\>	Зиав;		1000:1c62a6c
1	Вы получили \d+ единиц.? опыта.	/if $autoass {/enable AUTOASS};встать		1000:1cc155c
1	 вступил.? в бой на стороне 	помочь;/disable AUTOASS		-1000:AUTOASS
1	Вам стало не по себе, когда вы услышали предсмертный крик	/enable AUTOASS		-f1000:AUTOASSIST
2	(.*) попытал.* завалить (.*) на землю, но он.? уклонил.*, и .* упал.		&O=====\ $1\ ПРОВАЛИЛ\ БАШ\ НА\ $2\ =========	1000:d0f5b8
2	(.*) завалил.? (.*) на землю сокрушающим ударом!		&O=======\ $1\ ЗАБАШИЛ\ $2\ =======	1000:d0f57c
1	Кладовщик дал медную лампу 	г припасы		1000:db9dd0
1	Вы почувствовали себя менее праведно.	гг ==== БЛЕСС =====		1000:db9e3c
2	(.* попытал.*, но промахнул.*)		&I$1	1000:dc51a0
2	(.* попытал.*, но он.? закрыл.* щитом.)		&I$1	1000:dc50c8
1	R.I.P.	вз все все.тру		f1000:LOOT
1	^Вы не смогли удержать .* и выронили 	дд		1000:ccfd28
2	Вам лучше встать на ноги!		&PВам\ лучше\ встать\ на\ ноги!	1000:cf4cec
1	^Вы ослепли!	гг ==== Я ОСЛЕП ====		1000:cde35c
1	\S+ \S+ с 	у 1.		-1000:AUTOLEVEL
1	(.*) появил	у 1.		-1000:AUTOLEVEL
1	^Мерцающий магический щит, защищавший вас, пропал.	гг ===== МАГИЧЕСКИЙ ЩИТ ПРОПАЛ ======		1000:d50154
1	Орбен сказал группе: "кил (.*)"	у $1		1000:d63d7c
1	\*Тульбо тест связи 1	эм тест связи 2		1000:cc5814
1	\*Тульбо тест связи 2	эм тест связи 3		1000:d230e8
1	\*Тульбо тест связи 3	эм тест связи 4		1000:d24230
1	\*Тульбо тест связи 4	эм тест связи 5		1000:cc2efc
1	\*Тульбо тест связи 5	/perl {echo(time() - $begin_test)}		1000:cc3004
1	\*Тульбо тест связи$	эм тест связи 1;/perl {$begin_test = time();}		1000:cc310c
1	Тилазис сказал группе: "кил (.*)"	у $1		1000:cde134
1	(\d+)d(\d+)	/perl {echo ("Сред :".(($1+1)*$2/2))}		1000:d782f8
1	 при.+ с 	у 1.		-1000:AUTOLEV
1	^Сияющая аура вокруг вас исчезла.	гг "==== САНК СПАЛ ====="		1000:838480c
1	^Вы взяли .* монет из трупа .*, там было (\d+) монет	разд $1		1000:AUTOSPLIT
1	^Вы призвали .*	/enable CHARMSET		1000:837cf18
2	(Вы вновь можете использовать заклинание 'призвать животное'.)		&O$1	1000:8151b78
1	^(.*) теперь следует за вами.	/var charm $1;гр все;/disable CHARMSET		-1000:CHARMSET
1	^Ашнаг шепнул вам: "у (.*)"	у $1		1000:8388688
1	^Ашнаг шепнул вам: "сбить"	сбить		1000:830048c
1	^Ашнаг шепнул вам: "встать"	встать		1000:83006a8
1	^Ашнаг шепнул вам: "рек"	1		1000:83007bc
2	(.*) потерял.? способность разговаривать.		&O$1\ !!!!!\ МОЛЧА\ !!!!!	1000:8388b00
1	^Вы попытались поставить подножку 	вст		1000:8388c30
2	(.*) ловко поставил.* подножку (.*), сбив .* с ног!		&O=====\ $1\ СДЕЛАЛ\ ТРИП\ $2\ ======	1000:83d4718
2	(.* при\s+ c[вн ]\s+\.)		&O<---\ $1\ --->	1000:8388e4c
2	(.* при\s+ c[вн ]\s+\.)		&O<---\ $1\ --->	f1000:MOVE
2	\b(пират\w*)		$1(ц1)	1000:t1
2	\b(боцм\w*)		$1(ц3)	1000:t3
2	\b(2пират\w*)		$1(ц2)	1000:t2
3	((?i)страж|гоблин\w*)	set_atarget $1	&N$1	f1000:PKLIST
1	Хозяйка фермы сказала: "Найди их, умоляю."	г найду		1000:838d610
1	пролезть через него в овраг на юге, но вряд ли сможете выбраться из него.	лезть овраг		1000:85574a8
1	Маленькая девочка сказала: "Не трогайте меня пожалуйста."	дать плат девоч		1000:8358fd8
1	Хозяйка фермы сказала: "Вы нашли ее! Спасибо Вам!"	украсть платотк дев		1000:83db460
[complete]
^/v	p/1/v/
^/unv	p/1/v/
^/unal	p/1/a/
^/en	p/1-/t/
^/di	p/1-/t/
^/h	p/1/H/
^/unh	p/1/h/
^/ki	p/1-/p/
^/	p/0/c/ 
^	p/0/a/ 	c//u/ 
[tablist]

[sounds]
Editor	beep
MudBeep	beep
[hooks]

[aliases]
-бв	сня $she2;од $she1
-краст	/unalias up;/unalias down;/unalias e;/unalias w;/unalias s;/unalias n;
1	зачит свит $1;ик свит
9	лезть котел;вылезти пенек;у черт
atac_target	сбить $0
colors	/perl {$c='A';$i=27;while($i--) {echo("\003$c$c$c$c");$c++}}
quit	/quit
trans	/system /home/ziaw/dl/mova/usr/bin/mova -wop $0 /home/ziaw/dl/mova/usr/dict/muller7accent.koi
а	$atac $1
аа	соск;баш;сбить $1
ааофф	/disable AUTOASS AUTOASSIST
ааон	/enable AUTOASS AUTOASSIST;/var autoass 1
афклеч	/if ($1) {/hook tick {леч};леч} {/hook tick {}}
амуд	/conn amud.orc.ru 9000
атак	/var atac $0
атака	/var atac $1
б	баш
бб	дуал
бес1	сп инг эвит офел беспа;закол ингр
бес2	сп эвит офел беспа;закол эвит
бес3	сп офел беспа;закол офел
блок	/var block $1
бсвет	лл;см;сня лам;дер стат
бв	сня $she1;од $she2
ц	/var target $0
цель	/var target $0
д	двур
д1	/var f1 $1
д2	/var f2 $1
д3	/var f3 $1
д4	/var f4 $1
доб	сня бел.пла;од бел.пла
еда	/var eat $1
фреш	ик крас;осуш крас;держ $off
гд	кгов $0
гром	сп гро 2гро 3гро;закол гро
хх	палочка посох $1
ик	вз $1 $cont
й	закол $target
к1	к $0;зауч стоп $0
кбв	к !бы во! $1
кд	к благо $0
кг	к гор.рук $0
кгд	к !г д!
кгр	к !г р! $1
кгу	к !г у!
кк	к кислот $0
кки	к !кисл! $0
км	к !молч! $1
кмс	к !маг стре! $1
кн	к !насы! $0
ко	к окост $0
кох	к !о х! $1
конт	/var cont $1
ковер	ик коврик;развернуть;оседлать ков;вск
кп	к !прок! $1
краст	/al n {подкраст с};/al s {подкраст s};/al w {подкраст w};/al e {подкраст e};/al up  {подкраст up};/al down {подкраст down};
кс	к сила $0
кси	к !сила! $1
ксо	к !сон! $1
кст	к !страх! $1
ктод	кто клан серый
ку	к уск $0
куя	к !у я! $1
кув	к !ув! $1
кв	к восс $1
квн	к !вид нев! $1
кза	к !защита! $1
кч	к !под раз! $1
л	к легк.исц $1
леч	/var heal $0
лечлеч	сн каф;од исп;сн исп;од каф;лечить я
ли	ик чер;осуш чер
лл	снять $off;дер $light
ллл	снять засап;дер ламп
ллут	сня $off;дер $light;вз все все.тру;сня $light;дер $off
лук	/var dvur $1
лут	
лутофф	/al лут {}
лутон	/alias лут {вз тру;вз все тру;бро тру}
м	молот $1
мм	к !м м! $0
молоко	ик нап.вид.нев;осуш нап.вид.нев
муд	сов
напиток	ик $1;осуш $1; держ $off
о	огл
обед	вз $eat $cont;есть $eat;
оц	снять щит;снять $off;держать жало;прим жало $1
офф	/var off $1
ох	к !о х! $1
оо	сн $prime;отрав $prime;воор $prime
отп	отпер $0;отк $0;вз все $0
п	подно $0
палочка	сн $off; держ $1; примен $1 $2; сн $1; дер $off
пароль	/var password $1 
пц	подно $0;ц $0
пи	пить $tank
портал	войти пентаграмма
пп	подно $0;закол $0
прайм	/var prime $1
пж	держ $1;к призв.жив
я	к !яр бли! $1
яя	осуш сер
сетдвур	/var dvur $1
сия	эм засиял от радости.
ск	осм $cont
снковер	соск;свернуть;вз коврик;вк коврик
сов	/conn light.demos.su 4000
сп	/var st $0;/perl {@h= split(/\s+/, $U::st);map {sendl "подно $_"} @h}
спп	/var st $0;/perl {@h= split(/\s+/, $U::st);map {sendl "подно $_"} @h;sendl("закол $h[0]")}
сс	/perl {if ($U::hide !~ /H/) {sendl('спрят')}}
ссс	спрят;кто Гордон;/enable train_hide
св	к со.во $1
трек	/var trac $1
уп	убить $target;привлечь
вб	сбить ведь;сбить бес
вик	вз все.$1 $cont
вк	пол $1 $cont
всевид	ик всев;осуш всев;дер $off
ввк	пол все.$1 $cont
забыть	зау забыть !$0
замзаз	сн заз;ик заз;воор заз;вк заз
зб	зау забыть !$0
зс	зау стоп !$0
зз	сня овальный;од ворон;подно $0;сня ворон;од овальн;закол $0 
ззз	сс;поднож $0;сс;закол $0
ш	к !ша мол! $1
щит	/var shield $1
чар	/var char $1
чарм	/var $charm $1
чек	.essseeesse
черт	сесть пенек;вылезти котел;у черт
[keys]
k5	look
k6	e
k7	вст
k8	n
M+l	дуал
k9	а
/M-щ	дуал
M-OF	/perl LE::end_of_line
M-OH	/perl LE::beginning_of_line
/M-l	баш
M-k1	соск
C-G	пнуть 1.
/M-o	дуал
M-ю	двур
M-а	гг !!!! ВНИМАНИЕ, ПРИГОТОВИТЬСЯ К БОЮ !!!
M-k7	вск
M-ц	снять жало;дер $off;сбить $target
M-д	баш
M-k9	аа
M-е	/var track_target $target
M-ф	спрят;подно $target
C-Q	clear
M-г	к !гор рук!
M-и	вз изаб;вз все изаб
M-й	вз все.труп
M-к	к !кислота!
C-f1	см
M-м	км
M-о	отст
M-я	цель $auto_target
k10	clear
M-р	осуш сурья
M-с	кс
k11	подно 1.
M-т	высл $target
M-у	у 2.
M-в	вз все все.тру
M-ы	обез $target
M-ш	ш
S-f1	1
M-щ	дуал
M-On	exits
M-ч	охота 1
alt+l	look
M-Op	scan
M-Oq	rest
M-a	/perl CL::sbup1
M-Or	s
M-Os	б
M-Ot	w
M-Ou	look
M-Ov	e
M-M-C-[Oq	соск
M-Ow	stand
M-Ox	n
M-h	осуш сурья
M-Oy	а
M-f12	аа $target
M-M-C-[Ow	вск
M-l	дуал
M-M-C-[Oy	аа
C-k9	аа
M-z	/perl CL::sbdown1
kins	scan
f1	выбыть;бежать
f2	помо
f3	спасти $f1 $f2 $f3 $f4 $f5
f4	вст;к $heal $f2;гр 
f5	/var target $t1
f6	/var target $t2
M+д	дуал
f7	вст;к лег.исц $f3
f8	закол $target
f9	подно $target
kdel	exits
`	взять все все труп
f10	clear
f11	подно 1.
f12	украсть все $target
/M-д	баш
k*	гр
k+	down
k-	up
k.	exits
k/	высле
k0	scan
k1	отд
k2	s
k3	привлеч
k4	w
[history]

[vars]
HUNT	ON
agro	1
atac	к г.р
auto_taret	
auto_target	страж
autoass	1
block	блок
char	зиав
charm	Варан
cont	ящик
dvur	праща
eat	ра
f1	здор
f2	гурд
f3	
f4	
fight	0
flee_dir	восток
friends	1.здор     2.гурд     3.         4.        
g	3
heal	лег.исц
hide	
hunt	
huntlist	Эардор
light	ламп
not_hide	H
off	меч.с.тонк
password	
prime	при.меч
she1	при.кулон
she2	ожере
shield	щит
st	узн 2узн
t1	пират
t2	2пират
t3	боцм
t4	отец
tank	фляг
target	узни
targets	[узни    ] 1.пират    2.2пират   3.боцм     4.отец     auto.страж   
tcolor	P
trac	кайл
trace_dir	север
track_target	риста
trec	юлия
_ticker
pklist
password,