ObjectReference Property WIDeadBodyCleanupCellMarker Auto

Function CreateCorpse()
    Actor kCorpse = WIDeadBodyCleanupCellMarker.PlaceActorAtMe( PlayerRef.GetActorBase() )
    kCorpse.Kill()
    kCorpse.RemoveAllItems() ; 死体を裸にする

    ; プレイヤーの所持品を死体に移動する
    ; 1つずつ移動させないとCTDすることがあるみたい
    ; 鍵など移動させない処理はここに追加する
    Form[] kItemList = PlayerRef.GetContainerForms()
    Int i = kItemList.Length
    while i > 0
        i -= 1
        PlayerRef.RemoveItem(kItemList[i], kCorpse)
    endwhile

    kCorpse.MoveTo(PlayerRef)
EndFunction