Code:
sub EVENT_SAY {
if($text=~/Hail/i) {quest::say("Hi"); }
if($text=~/Test/i)
{
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
quest::say(quest::ChooseRandom(1,2,3,4,5));
}
}