unction SetActorWeapon(AI.ActorInstance, MeshID)

    ; Free existing mesh if there is one
    If AI\WeaponEN <> 0
        FreeEntityEmitters(AI\WeaponEN)
        FreeEntity(AI\WeaponEN)
        AI\WeaponEN = 0
    EndIf

    If MeshID > -1 And MeshID < 65535
        AI\WeaponEN = GetMesh(MeshID)
        Name$ = Upper$(GetMeshName$(MeshID))
        If AI\WeaponEN = 0 Then RuntimeError("Could not load weapon mesh!")
        EntityAutoFade(AI\WeaponEN, nearFadeModifier * CameraViewRange, farFadeModifier * CameraViewRange)
        RHand = FindChild(AI\EN, "R_Hand")
        If RHand = 0 Then RuntimeError(AI\Actor\Race$ + " actor mesh is missing an 'R_Hand' joint!")
        EntityParent AI\WeaponEN, RHand, False
        PositionEntity AI\WeaponEN, LoadedMeshX#(MeshID), LoadedMeshY#(MeshID), LoadedMeshZ#(MeshID)
        ScaleEntity AI\WeaponEN, LoadedMeshScales#(MeshID), LoadedMeshScales#(MeshID), LoadedMeshScales#(MeshID)
        ; Correct rotation for Max models
        If AI\TeamID = True Then TurnEntity AI\WeaponEN, 0, 180, 90
        CreateEntityEmitters(AI\WeaponEN)
        ;! New Lights
        If Instr(Name$, "LIGHTS\")
            range# = 20
            L.Lights = New Lights
            L\EN = CreateLight(2, AI\WeaponEN)
            LightColor(L\EN, 0, 0, 255)
            LightRange L\EN,range
            PositionEntity L\EN, LoadedMeshX#(MeshID), LoadedMeshY#(MeshID), LoadedMeshZ#(MeshID)
            NameEntity(L\EN, Handle(L))
            ShadowLight L\EN
        EndIf
    EndIf

End Function