Code:
sub EVENT_SPAWN {
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);
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 && $rewardr > 6) {quest::addloot($randa,1);}
if($rewardr > 9) {quest::addloot($randw,1);}
}
}
Really untested, didn't check your logic (besides the mistype of $rewardar instead of $rewardr in one instance), am on the laptop at the moment..