void main()
// Modified by AW Olorin on 6-11-2004
//  Changed trigger level of portal to above 16 to reflect Area Level Lists

{
object oPC = GetEnteringObject();
int hd = GetHitDice(oPC);
location loc = GetLocation(oPC);
location sucked = GetLocation(GetWaypointByTag("sucked"));
if (GetIsPC(oPC) && !GetIsDM(oPC) && hd >= 17){
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_FNF_IMPLOSION), loc, 3.0);
DelayCommand(1.0, AssignCommand(oPC, JumpToLocation(sucked)));
DelayCommand(1.1, AssignCommand(oPC, TakeGoldFromCreature(100000, oPC, TRUE)));
DelayCommand(1.2, SendMessageToPC(oPC, "A strange portal has opened, and you have been sucked into it!"));
DelayCommand(1.3, SendMessageToPC(oPC, "Some of your gold has been turned to lead!"));
DelayCommand(1.4, SetCommandable(FALSE));
DelayCommand(4.0, SetCommandable(TRUE));
}


}