Code:
my $rands = quest::ChooseRandom(15270,15275,15075,15271,15279, 15212,15079,15274,15272);
my $randa = quest::ChooseRandom(2031,2036,2030,2034,2027,2038, 2026,2029,2025,2032,2028,2033);
my $randw = quest::ChooseRandom(5043,6032,6030,7022,7024,94155 ,6031);
sub EVENT_COMBAT {
my $NPCRace = $npc->GetRace();
if($combat_state == 1)
{
$npc->Heal();
if($NPCRace==54)
{
quest::say("your blood will spill.");
}
else {
quest::say("Time to die $name!");
}
}
}
sub EVENT_DEATH
{
my $rewardr = quest::ChooseRandom(1,2,3,4,5,6,7,8,9,10);
if($NPCRace!=54){
if($rewardr < 4)
{
quest::addloot($rands,1);
}
if($rewardr < 7 && $rewardr > 3)
{
quest::addloot($randw,1);
}
if($rewardr < 10 && $rewardar > 6)
{
quest::addloot($randa,1);
}
if($rewardr > 9)
{
quest::addloot($randw,1);
}
}
}
http://www.perlmonks.org/index.pl?node_id=105446