[Arles]

Include "xors3d.bb"
xGraphics3D 1024,768,32,False,True
xSetBuffer xBackBuffer()

Camera = xCreateCamera()
xPositionEntity Camera,5,2,-10
Hole1=xLoadSprite("Media\Gfx\Decal\Metall\Hole1.png",2)
xHideEntity Hole1

pivot = xCreatePivot()

xCreateLight%()

Cube = xCreateCube()
xEntityPickMode Cube,2

While Not xKeyHit(1)
    
    If xMouseHit(1) Then
        xCameraPick(Camera,xMouseX(),xMouseY())
        If xPickedEntity() <> 0 Then
            MakeHole(Hole1,pivot,5)
        End If
    End If
    
    xRenderWorld
    xText 5,5,"xPickedNX : "+xPickedNX()
    xText 5,25,"xPickedNY : "+xPickedNY()
    xText 5,45,"xPickedNZ : "+xPickedNZ()
    xFlip
Wend
End

Function MakeHole(hole%,lvlpivot%,maxdecals%)
    hole=xCopyEntity(hole,lvlpivot)
    xSpriteViewMode hole,2
    xScaleSprite hole,0.1,0.1
    
    xPositionEntity hole,xPickedX(),xPickedY(),xPickedZ(),True
    xRotateSprite hole,Rnd(0,360)
    xAlignToVector(hole,-xPickedNX(),-xPickedNY(),-xPickedNZ(),3,1)
    xMoveEntity hole,0,0,-0.05
    If xCountChildren(lvlpivot)>maxdecals Then xFreeEntity xGetChild(lvlpivot,0)
End Function

Честно говоря, с плохим знанием английского, даже, с хелпом трудно разобраться, а гугл переводит так, что проще сделать "наугад"..