#2001
Не пускать посторонних~
0 q 100
~
  if %direction% == запад
    msend %actor% $%self.name% не пустил Вас в зал суда!
	mechoaround %actor% $%self.name% не пустил %actor.name_vi% в зал суда!
	return -1
  end
~

#2002
Закрывать дверь~
0 b 100
~
  закрыть дверь зап
~

#2003
Позвать на помощь~
0 k 80
~
  if %self.hppercent% < 70
    зватьнапомощь
  end
~

#2004
К: Позвать на помощь~
2 cx 100
зватьнапомощь~
  if %random.2% == 1
    wat 2029 wforce safe here Аарон юг
  else
    wat 2029 wforce safe here Келли юг
  end
~

#2005
Аарон и Хелли на место~
0 b 75
~
  if %self.room% == 2027 && !%self.fighting%
    север
  end
~
#2006
квест помощника~
0 c 100
слушать~
 if (%arg% == помощник)
   wait 1
    произ Не многое я могу Вам рассказать.
    эмоц тяжело вздохнул.
   wait 5
    произ Гоблины наводнили окрестности Утехи.
    mecho "Мы делаем, что можем, но у нас связаны руки: малейшее неповиновение, "
    mecho "или даже намек на него - и мы окажемся на рудниках Пакс-Таркаса."
   wait 2
    произ Вы, если пожелаете, можете помочь нам: наверняка продвижение этих
    mecho "тварей замедлится, если украсть у них лошадиную упряжь, а мы, в свою "
    mecho "очередь, в долгу не останемся!"
 else
  return 0
end
~

#2007
что-то дали~
0 j 100
~
wait 1
switch %self.vnum%
  case 2001
    if (%object.vnum% == 3516)
      mpurge мешок3516
      произ Благодарю тебя, %actor.name%!
      mexp %actor.name% 519
      mload obj 2085
      mload obj 906
      wait 3
      произ А это за счет заведения.
      миг %actor.name%
      дать жарен.картошк %actor.name%
      дать бутер.сало %actor.name%
    end
   break
  case 2105
    if (%object.vnum% == 3513)
      mpurge уздечка3513
      произ Благодарю тебя, %actor.name%!
      mexp %actor.name% 509
      wait 3
      произ Возьми это, в знак нашей признательности.
      дать расписка %actor.name%
      eval rnd %random.10%+5
      mgold %actor.name% %rnd%
      msend %actor% Помощник Тероса отдал Вам %rnd% стальных монет.
    end
   break
done
~

$