Code: Select all
;Still room for improvements and lots of ideas to implement.
;Simple gui infoscreen example - Could easily be a button, progressbar etc...
;Click the infoscreen's 'X' button to hide infoscreen and SPACEBAR to show it again
;Click anywhere on the entity to toggle scrolling lines
;A + D to rotate the infoscreen
;Escape key = Exit
InitEngine3D()
InitSprite()
InitKeyboard()
InitMouse()
Structure Vector3D
x.f
y.f
z.f
EndStructure
Structure _Object
id.i
ma.i
ms.i
tx.i[2] ;Max two textures per entity
hide.i
EndStructure
Structure _Gui
cube._Object
infoScreen._Object
sp.i ;Sprite crsr
EndStructure
Declare.i CreateScene()
Declare.i ExamineID(ID.i, *v.vector3D)
Global s._Gui, NewID.i, v.Vector3D, pressed.i = #False
OpenWindow(0, 0, 0, 1024, 768, "Simple GUI texture (rotate A-D) (SPACEBAR-SHOW) (LEFT CLICK - TOGGLE LINES)", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 1024, 768)
CreateCamera(0, 0, 0, 100, 100)
MoveCamera(0, 0, 0, 20)
CreateLight(0, $FFFFFF, -20, -20, 30)
CreateScene()
Repeat
Repeat : ev = WindowEvent() : Until ev = 0
ExamineMouse() : ExamineKeyboard()
If MouseButton(#PB_MouseButton_Left) > 0 And pressed = #False
If s\infoScreen\hide = #False
NewID = MouseRayCast(0, MouseX(), MouseY(), #PB_Ignore)
If NewID = s\infoScreen\id
v\x = PickX() : v\y = PickY() : v\z = PickZ()
ExamineID(NewID, v)
EndIf
EndIf
pressed = #True
ElseIf MouseButton(#PB_MouseButton_Left) = 0
pressed = #False
EndIf
If KeyboardReleased(#PB_Key_Space)
If s\infoScreen\hide = #True
HideEntity(s\infoScreen\id, #False)
s\infoScreen\hide = #False
EndIf
EndIf
If KeyboardPushed(#PB_Key_A)
RotateEntity(s\infoScreen\id, 0, 0, 0.1, #PB_Relative)
ElseIf KeyboardPushed(#PB_Key_D)
RotateEntity(s\infoScreen\id, 0, 0, -0.1, #PB_Relative)
EndIf
RotateEntity(s\cube\id, 0.1, 0.3, -0.2, #PB_Relative)
RenderWorld()
DisplayTransparentSprite(s\sp, MouseX(), MouseY())
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
Procedure.i CreateScene()
Protected fo.i = LoadFont(#PB_Any, "Arial", 24)
Protected x.i, y.i, tx.s
s\sp = CreateSprite(#PB_Any, 20, 20)
StartDrawing(SpriteOutput(s\sp))
LineXY(0, 0, 10, 0, $FF6900)
LineXY(0, 0, 0, 10, $FF6900)
LineXY(10, 0, 20, 20, $FF6900)
LineXY(0, 10, 20, 20, $FF6900)
FillArea(2, 2, $FF6900,$FF6900)
StopDrawing()
TransparentSpriteColor(S\sp, 0)
With s\infoScreen
\ms = CreatePlane(#PB_Any, 15, 8, 1, 1, 1, 1)
\tx[0] = CreateTexture(#PB_Any, 1024, 1024, "Info")
StartDrawing(TextureOutput(\tx[0]))
DrawingFont(FontID(fo))
RoundBox(0, 0, 950, 90, 5, 5, $B6B6B6)
RoundBox(954, 0, 70, 90, 5, 5, $9B9B9B)
RoundBox(0, 100, 1024, 924, 5, 5, $B6B6B6)
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(5, 20, "This is a small text for the GUI.", $111111)
DrawText(975, 20, "X", $111111)
Restore Text
For x = 0 To 10
Read.s tx
DrawText(5, 105 + (x*60), tx, $0E0E0E)
Next x
StopDrawing()
\tx[1] = CreateTexture(#PB_Any, 1024, 1024, "InfoLines")
StartDrawing(TextureOutput(\tx[1]))
For y = 0 To 1024 Step 16
Box(0, y, 1024, 2, $888888)
Next y
StopDrawing()
\ma = CreateMaterial(#PB_Any, TextureID(\tx[0]))
MaterialFilteringMode(\ma, #PB_Material_Bilinear)
MaterialCullingMode(\ma, #PB_Material_NoCulling)
MaterialBlendingMode(\ma, #PB_Material_Add)
\id = CreateEntity(#PB_Any, MeshID(\ms), MaterialID(\ma), 0, 0, 0)
RotateEntity(\id, 90, 0, -180)
\hide = #False
EndWith
With s\cube
\ms = CreateCube(#PB_Any, 1)
\tx[0] = CreateTexture(#PB_Any, 50, 50, "CubeLines")
StartDrawing(TextureOutput(\tx[0]))
DrawingMode(#PB_2DDrawing_Outlined)
RoundBox(2, 2, 46, 46, 3, 3, $69FE31)
StopDrawing()
\ma = CreateMaterial(#PB_Any, TextureID(\tx[0]))
MaterialBlendingMode(\ma, #PB_Material_Add)
MaterialFilteringMode(\ma, #PB_Material_Trilinear)
\id = CreateEntity(#PB_Any, MeshID(\ms), MaterialID(\ma), 0, 0, -50)
ScaleEntity(\id, 10, 10, 10)
EndWith
EndProcedure
Procedure.i ExamineID(ID.i, *v.vector3D)
Protected x.f, y.f
If ID = s\infoScreen\id
ConvertWorldToLocalPosition(EntityID(ID), *v\x, *v\y, *v\z)
x = (1 - GetX()) * 7.5
y = (1 - GetZ()) * 4
If x > 55.7 And x < 63.6 And y > -11.9 And y < -9
If s\infoScreen\hide = #False
HideEntity(s\infoScreen\id, #True)
s\infoScreen\hide = #True
EndIf
Else
If CountMaterialLayers(s\infoScreen\ma) > 1
RemoveMaterialLayer(s\infoScreen\ma)
Else
AddMaterialLayer(s\infoScreen\ma, TextureID(s\infoScreen\tx[1]), #PB_Material_Add)
ScrollMaterial(s\infoScreen\ma, 0, 0.08, #PB_Material_Animated, 1)
EndIf
EndIf
EndIf
EndProcedure
DataSection
Text:
Data.s "Your time is limited, so don't waste it living someone else's life."
Data.s "Don't be trapped by dogma - which is living with the results of"
Data.s "other people's thinking. Don't let the noise of others' opinions"
Data.s "drown out your own inner voice. And most important, have the courage"
Data.s "to follow your heart and intuition."
Data.s " -Steve Jobs"
Data.s " "
Data.s "“It had long since come to my attention that people of accomplishment"
Data.s "rarely sat back and let things happen to them. "
Data.s "They went out and happened to things.”"
Data.s " -Leonardo Da Vinci"
EndDataSection
