void main()
{
    object oItemToTake;
    oItemToTake = GetItemPossessedBy(GetPCSpeaker(), "di_dabloon");
    if(GetIsObjectValid(oItemToTake) != 0)
    {
        DestroyObject(oItemToTake);
        CreateItemOnObject("di_blackpearl_ar", GetPCSpeaker(), 1);
    }
    ExecuteScript("di_dooropener", GetObjectByTag("di_doortoship"));
    DestroyObject(OBJECT_SELF, 5.0f);

}