I've just creating the foundation of my programe it's supposed to draw the graphics then change the game state to clear them but it seems to be doing this in debug mode but not when i run it, source:
;;;;;;;;;;;;;;;;;;;;;
; Cubies - BreakIn! ;
;;;;;;;;;;;;;;;;;;;;;
;;;;; Setup Game Here ;;;;;
; Setup The Game : Window
AppTitle "BreakIn!"
Local ScreenWidth = 165
Local ScreenHeight = 165
Local ScreenBorder = LoadImage("border.bmp")
Graphics ScreenWidth,ScreenHeight
; Setup The Game : Conditions
Local GameState = 1
; Setup Game : Font
Local GameFontSize = 16
Local GameFontType = "Verdana"
Local GameFontBold = False
Local GameFontItalic = False
Local GameFontUnderlined = False
Local GameFontPointer = LoadFont(GameFontType,GameFontSize,GameFontBold,GameFontItalic,GameFontUnderlined)
; Setup Game : Graphics
Local GameAdvert = LoadImage("advertisement.bmp")
;;;;;; Game Starts Here ;;;;;
SetBuffer BackBuffer()
While Not KeyDown(1)
Select GameState
Case 1 ; Advertisement
Cls
DrawImage ScreenBorder,0,0
DrawImage GameAdvert,0,ImageHeight(ScreenBorder)
DrawImage ScreenBorder,0,ScreenHeight - ImageHeight(ScreenBorder)
Flip
GameState = 2
Case 2 ; Game : Press Start!
Cls
SetFont GameFontPointer
Text 50,50,"Testing!"
Case 3 ; Game : Over
Case 4 ; Game : Paused
Case 5 ; Game : Completed
End Select
Wend
End
Any reasons why? :S
;;;;;;;;;;;;;;;;;;;;;
; Cubies - BreakIn! ;
;;;;;;;;;;;;;;;;;;;;;
;;;;; Setup Game Here ;;;;;
; Setup The Game : Window
AppTitle "BreakIn!"
Local ScreenWidth = 165
Local ScreenHeight = 165
Local ScreenBorder = LoadImage("border.bmp")
Graphics ScreenWidth,ScreenHeight
; Setup The Game : Conditions
Local GameState = 1
; Setup Game : Font
Local GameFontSize = 16
Local GameFontType = "Verdana"
Local GameFontBold = False
Local GameFontItalic = False
Local GameFontUnderlined = False
Local GameFontPointer = LoadFont(GameFontType,GameFontSize,GameFontBold,GameFontItalic,GameFontUnderlined)
; Setup Game : Graphics
Local GameAdvert = LoadImage("advertisement.bmp")
;;;;;; Game Starts Here ;;;;;
SetBuffer BackBuffer()
While Not KeyDown(1)
Select GameState
Case 1 ; Advertisement
Cls
DrawImage ScreenBorder,0,0
DrawImage GameAdvert,0,ImageHeight(ScreenBorder)
DrawImage ScreenBorder,0,ScreenHeight - ImageHeight(ScreenBorder)
Flip
GameState = 2
Case 2 ; Game : Press Start!
Cls
SetFont GameFontPointer
Text 50,50,"Testing!"
Case 3 ; Game : Over
Case 4 ; Game : Paused
Case 5 ; Game : Completed
End Select
Wend
End
Any reasons why? :S