my $random; sub EVENT_SPAWN { my $random = int(rand(3000)); if($random == 2999) { quest::addloot(1619,1); } }