Basic, fejl ved compilering
Hej!Jeg skal først lige sige, at dette spørgsmål ER ikke om Basic, men om PureBasic. En der er vant til Basic kan sikkert hurtigt finde fejlen.
Jeg synes det ser spændende ud, men det er svært at lave noget brugbart program, når der er fejl i.
Jeg har følgende program i PureBasic, som jeg gerne ville compilere, men får følgende fejl ved compilering:
Line 96: Another 'End condition' operand is expected here.
Og her programmet:
;/////////////////////////////////////////////////////
; Blank Games Program....
; (C) Shaun Raven 2003 - Use freely...
;/////////////////////////////////////////////////////
;//////////////////////////////////////////////////////////////
;- Initialisation
;//////////////////////////////////////////////////////////////
;- Window Constants
;
#Window_0 = 0
;- Screen constants
#SCREEN_WIDTH = 640
#SCREEN_HEIGHT = 480
;- Window Title
Title$ = "Blank Program"
; Initialistion code...
; 1. create a window
If OpenWindow(#Window_0, 216, 0, #SCREEN_WIDTH, #SCREEN_HEIGHT, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , Title$)
;If CreateGadgetList(WindowID())
;
;EndIf
EndIf
; 2. Initialise the sprite & keyboard engines
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("Error","Can't open DirectX",0)
End
EndIf
; 3. Create a double buffered screen, assigned to your Window
If OpenWindowedScreen(WindowID(),0,0,#SCREEN_WIDTH, #SCREEN_HEIGHT,0,0,0)
;//////////////////////////////////////////////////////////////
;- GAME LOOP
;//////////////////////////////////////////////////////////////
Repeat
;//////////////////////////////////////////////////////
;- Game Logic
;//////////////////////////////////////////////////////
;//////////////////////////////////////////////////////////////
;-Transformations
;//////////////////////////////////////////////////////////////
;-
;///////////////////////////////////////////////////
;- Input
;///////////////////////////////////////////////////
;if escape pressed, leave program,
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape)
done = 1
EndIf
Event = WindowEvent()
If Event = #PB_EventCloseWindow
done = 1
EndIf
;//////////////////////////////////////////////////////////////
;- Transform Player
;//////////////////////////////////////////////////////////////
;//////////////////////////////////////////////////////////////
;- Rendering
;//////////////////////////////////////////////////////////////
ClearScreen(0,0,0)
If StartDrawing(ScreenOutput())
; we draw here
FlipBuffers()
StopDrawing()
EndIf
;//////////////////////////////////////////////////////////////
;- Music, sound effects & housekeeping
;//////////////////////////////////////////////////////////////
Until done = 1 ; Dette er linie 96.
EndIf
;///////////////////////////////////////////////////////
;- Tidy up here if required
;///////////////////////////////////////////////////////
End
