mirror of
https://github.com/ProjectEQ/projecteqquests
synced 2026-08-12 00:26:10 -04:00
27 lines
No EOL
281 B
Perl
27 lines
No EOL
281 B
Perl
sub EVENT_SPAWN
|
|
|
|
{
|
|
quest::settimer(1,600);
|
|
}
|
|
|
|
sub EVENT_SAY {
|
|
|
|
if($text=~/hail/i)
|
|
{
|
|
quest::setglobal("pop_cod_bertox", 1, 5, "F");
|
|
$client->Message(4,"You receive a character flag!");
|
|
}
|
|
{
|
|
$pop_cod_bertox=undef;
|
|
|
|
}
|
|
}
|
|
|
|
|
|
sub EVENT_TIMER {
|
|
|
|
if($timer == 1)
|
|
{
|
|
quest::depop();
|
|
}
|
|
} |