State = "You shouldn't be reading this: "+Rcv.KeyHitCnt(EKEY_SPACE)

Function UsrIpt()
    State = "Working"
    If Rcv.IsKeyUpDown( EKEY_SPACE ) And Rcv.KeyHitCnt(EKEY_SPACE,True)=1 Then ..
        State = "You shouldn't be reading this: "+Rcv.KeyHitCnt(EKEY_SPACE)
    Print State
End Function

Strict
Framework brl.Blitz
Import brl.StandardIO
Import irrlicht.Core
Import irrlicht.addons
Import brl.pngloader

Const ScreenW = 800, ScreenH = 600, ScreenD = 32
Global Rcv:SmoothEventReceiver = SmoothEventReceiver.createReceiver()
Global Device:IrrlichtDevice = IrrlichtDevice.Create( EDT_DIRECT3D9, _DIMENSION2DI( ScreenW, ScreenH ), ScreenD, True, False, True, Rcv )
Global State:String

While( Device.Run())
    UsrIpt()
Wend

Function UsrIpt()
    State = "Working"
    If Rcv.IsKeyUpDown( EKEY_SPACE ) Then State = "You shouldn't be reading this"
    Print State
End Function

Strict
Framework brl.Blitz
Import brl.StandardIO
Import irrlicht.Core
Import irrlicht.addons
Import brl.pngloader

Const ScreenW = 800, ScreenH = 600, ScreenD = 32
Global Rcv:SmoothEventReceiver = SmoothEventReceiver.createReceiver()
Global device:IrrlichtDevice = IrrlichtDevice.Create( EDT_DIRECT3D9, _DIMENSION2DI( ScreenW, ScreenH ), ScreenD, True, False, True, Rcv )

While(Device.Run())
UsrIpt()
Wend

Function UsrIpt()
    If Rcv.IsKeyDown( EKEY_KEY_W ) Then Print "W Key Pressed"
End Function

Global CNT:Int = 0
Global ListBox:T_irrIGUIListBox

Type MyEventReceiver Extends T_irrIEventReceiver

    Method OnEvent:Int(event:T_irrSEvent)

'---------------- Input Events -----------------
        If (event.GetEventType()=EET_KEY_INPUT_EVENT and event.GetKeyPressedDown()=True)
            
            Local Key:Int=event.GetKeyInputKey()
            
            Select Key
            'Thrust
                'Forward
                Case EKEY_UP
'                    thrust:Int = 1
                    Return True
                'Retro
                Case EKEY_DOWN
'                    retro:Int = 1
                    Return True
            
            'Action Primary
                Case EKEY_SPACE
                    Ammo:-1
                    Return True
            
                Default
                    Return False
            EndSelect
        EndIf

'----------------- GUI Events ------------------
        If (event.GetEventType()=EET_GUI_EVENT)

            Local id:Int = event.GetGUIEventCaller().GetID()
            Local GUI:T_irrIGUIEnvironment = device.GetGUIEnvironment()

            Local EvType:Int=event.GetGUIEventType()

            Select EvType
                rem
                If a scrollbar changed its scroll position, And it is 'our'
                scrollbar (the one with id 104), Then we change the
                transparency of all gui elements. This is a very easy task:
                There is a skin Object, in which all color settings are stored.
                We simply go through all colors stored in the skin And change
                their alpha value.
                endrem

                Case EGET_SCROLL_BAR_CHANGED
                    If (id = 104)
                        Local Pos:Int = T_irrIGUIScrollBar.CreateFromHandle(event.GetGUIEventCaller().handle,False).GetPos()
                        Local I:Int

                        For I=0 To EGDC_COUNT-1
                            Local Col:T_irrSColor = GUI.GetSkin().GetColor(I)
                            Col.SetAlpha(Pos)
                            GUI.GetSkin().SetColor(I,Col)
                        Next
                    EndIf

                rem
                If a button was clicked, it could be one of 'our'
                three buttons. If it is the first, we shut down the engine.
                If it is the second, we create a little window with some
                text on it. We also add a String To the list box To Log
                what happened. And If it is the third button, we create
                a file open dialog, And add also this as String To the list box.
                That's all for the event receiver.
                endrem

                Case EGET_BUTTON_CLICKED

                    If (id = 103)
                        device.CloseDevice()
                        Return True
                    EndIf

                    If (id = 102)
                        ListBox.AddItem("Window created")
                        CNT :+ 30
                        If (CNT > 200)
                            CNT = 0
                        EndIf

                        Local Window:T_irrIGUIWindow = GUI.AddWindow( ..
                            T_irrRect_S32.CreateFromVals(100 + CNT, 100 + CNT, 300 + CNT, 200 + CNT), ..
                            False, .. ' modal?
                            "Test window")

                        GUI.AddStaticText("Please close me", ..
                            T_irrRect_S32.CreateFromVals(35,35,140,50), ..
                            True, .. ' border?
                            False, .. ' wordwrap?
                            Window)

                        Return True
                    EndIf

                    If (id = 101)
                        ListBox.AddItem("File open");
                        GUI.AddFileOpenDialog("Please choose a file.")
                        Return True
                    EndIf
            EndSelect
        EndIf

        Return False

    EndMethod

    ' we must override the generate function in order for instantiation to work properly
    ' must return T_irrIEventReceiver
    Function Generate:T_irrIEventReceiver()
        Return T_irrIEventReceiver(New MyEventReceiver)
    EndFunction
EndType