Code: Select all
InitEngine3D(#PB_Engine3D_NoLog,#PB_Compiler_Home+"Compilers\Engine3d.dll")
InitSprite():InitKeyboard():InitMouse()
OpenWindow(0,0,0,800,600,"tip",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,800,600,0,0,0,#PB_Screen_WaitSynchronization)
Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Textures", #PB_3DArchive_FileSystem)
CreateLight(0,$EEEEEE,4,4,2,#PB_Light_Point)
CreateCamera(0,0,0,100,100):CameraProjectionMode(0,#PB_Camera_Perspective)
MoveCamera(0,0,0,3,#PB_Absolute)
CreateMaterial(0,LoadTexture(0,"soil_wall.jpg"))
CreateCube(0,0.3)
CreateEntity(0,MeshID(0),MaterialID(0),-0.5,0,0)
CreateSphere(1,0.2,5,5)
CreateEntity(1,MeshID(1),MaterialID(0),0.5,0,0)
CreateNode(0,-0.5,0,0)
Repeat
While WindowEvent():Wend
ExamineKeyboard()
If KeyboardReleased(#PB_Key_1)
If AttachedtoNode.b
DetachNodeObject(0,EntityID(1))
AttachedtoNode.b=0
Else
AttachNodeObject(0,EntityID(1)); <- should this command move the entity number 1 ???
AttachedtoNode.b=1
EndIf
ElseIf KeyboardReleased(#PB_Key_2)
If AttachedtoObject.b
DetachEntityObject(0,EntityID(1))
AttachedtoObject.b=0
Else
AttachEntityObject(0,"",EntityID(1)); <- should this command move the entity number 1 ???
AttachedtoObject.b=1
EndIf
EndIf
RenderWorld()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)