| 12345678910111213141516171819202122232425262728293031323334353637383940 |
- ; FreeEntity Example
- ; This example creates an entity and
- ; allows you to move it, but shows
- ; that a handle is no longer valid after
- ; FreeEntity is used on it.
- ; Run in Debug Mode
- Graphics3D 640,480
- AppTitle "FreeEntity Example"
- Cam = CreateCamera()
- Lit = CreateLight()
- PositionEntity Lit,-5,-5,0
- PositionEntity Cam,0,0,-5
- AnEntity = CreateCube() ; This is our Test Entity
- RotateMesh AnEntity,45,45,45
- While Not KeyDown(1) ; Until we press ESC
- ; Use the Left or Right Arrows to Move the Entity
- If KeyDown(203) Then MoveEntity AnEntity,-0.1,0,0
- If KeyDown(205) Then MoveEntity AnEntity,0.1,0,0
- ; Use the Space Key to Free the Entity. It will disappear
- ; The next time you try to move it, you will get an error
- ; Notice that the Handle Variable doesn't change after the
- ; Entity is free. It simply becomes invalid.
- If KeyHit(57) Then FreeEntity AnEntity ; Hit Space to Free!
- RenderWorld ; Draw the Scene
- ; What is in the AnEntity handle?
- Text 10,10,"Entity Handle: "+AnEntity
- Flip ; Flip it into View
- Wend
- End
|
