43 lines
993 B
Raku
43 lines
993 B
Raku
#!/usr/bin/perl
|
|
|
|
sub reject_say
|
|
{
|
|
my $random = int(rand(4));
|
|
|
|
if ($random == 0)
|
|
{
|
|
quest::say("I didn't know Slime could speak common. Go back to the sewer before I lose my temper.");
|
|
}
|
|
elsif ($random == 1)
|
|
{
|
|
quest::say("Is that your BREATH, or did something die in here? Now go away!");
|
|
}
|
|
elsif ($random == 2)
|
|
{
|
|
quest::say("I wonder how much I could get for the tongue of a blithering fool? Leave before I decide to find out for myself.");
|
|
}
|
|
elsif ($random == 3)
|
|
{
|
|
quest::say("Oh look, a talking lump of refuse. How novel!");
|
|
}
|
|
}
|
|
|
|
sub attack_insult
|
|
{
|
|
my $race = plugin::val('$race');
|
|
my $random = int(rand(3));
|
|
my $raceplural = $race . "s";
|
|
|
|
if ($random == 0)
|
|
{
|
|
quest::say("It's $raceplural like you that have ruined your own lands. You'll not ruin mine!");
|
|
}
|
|
elsif ($random == 1)
|
|
{
|
|
quest::say("$raceplural like you are better dead than alive.");
|
|
}
|
|
elsif ($random == 2)
|
|
{
|
|
quest::say("$raceplural like you must die!");
|
|
}
|
|
}
|