;Intro
; OpenMovie
; MovieHeight
; MovieWidth
; MoviePlaying
; DrawMovie
Graphics 640,480,16,1
Const WIDTH = 640
Const HEIGHT = 480
SetBuffer BackBuffer()
ClsColor 0,0,0
Color 0,255,0

;movie muss avi / mpeg sein

; Next, open the movie file. Feel free to change this to an AVI or MPEG file.
intro=OpenMovie("video/intro.mpeg")

If intro=0 Then RuntimeError "Fehler - kann Video nicht laden""
If Not(MoviePlaying(intro)) Then RuntimeError "Fehler - Kann Video nicht abspielen!"

w=MovieWidth(640) ; the width of the movie
h=MovieHeight(480) ; the height of the movie

; Now set up the starting position and timing variables
x=(1); the x position of the movie on screen
y=(1) ; the y position of the movie on screen
period=100 ; the interval between frames
time=MilliSecs() ; the time of the last frame update

; And here's the main loop
Repeat

; Wait for the specified period



; GIFs have no timing info, and as such will redraw the next frame on each call to DrawMovie.
; AVIs and MPEGs do have timing info, and as such will redraw the most recent frame on each call to DrawMovie.
; Ergo, this time limiter only has an impact, and is only required for GIFs.
Repeat
; do nothing
Until MilliSecs()-time>=period
time=MilliSecs() ; save the current time for the next frame

; Redraw the screen, by...

Cls ; clear the screen
DrawMovie intro,x,y,w,h ; draw the movie

; Flip the buffers
Flip

Until KeyHit(1) ; Escape to exit

; Remove the movie from memory before closing down
CloseMovie(intro)

Include "Luciana.bb"

Graphics 640,480,16,1

   Delay 1000
   Text 320,280,"Project Luciana"
   Delay 1000
   Text 320,320,"1.Start"
   Delay 1500
   Text 320,340,"2.Ende"
   mainmenustart$="1"
   mainmenuende$="2"
   
   Locate 320,360
   mainmenuchoose$=Input("Wähle: ")
   
   
   If mainmenuchoose$=mainmenuende$ Then End
   If mainmenuchoose$=mainmenustart$ Then
   Cls
   Delay 1500
   Text 320,280,"Include des Newgamefiles"
   Delay 3000
   ;Include "startnewgame.bb"
   ;Goto startnewgame
   Delay 2000
   Else
   Text 320,550,"False Input Type."
   Goto mainmenu
   Delay 10000

   EndIf

   Delay 1000
   Text 320,280,"Project Luciana"
   Delay 1000
   Text 320,320,"1.Start"
   Delay 1500
   Text 320,340,"2.Ende"
   mainmenustart$="1" ;$ kann man weglassen, verbraucht nur speicher
   mainmenuende$="2"
   
   Locate 320,360
   mainmenuchoose$=Input("Wähle: ")
   
   
   If mainmenuchoose$=mainmenuende$ Then End
   If mainmenuchoose$=mainmenustart$ Then
   Cls ;Hier loeschst du alles, was du zuvor auf den buffer geschrieben hast
   Delay 1500
   Text 320,280,"Include des Newgamefiles"
   Delay 3000
   ;Include "startnewgame.bb"
   ;Goto startnewgame
   Delay 2000
   Else
   Text 320,550,"False Input Type."
   Goto mainmenu
   Delay 10000

   EndIf

Movie% = OpenMovie("intro.mpg")
While Movie <> 0 And KeyHit(1) = False And MouseHit(1) = False And KeyHit(57) = False
   DrawMovie Movie,0,0,800,600 : Flip 1 : If Not MoviePlaying(Movie) Exit
Wend
If Movie <> 0 Then CloseMovie Movie : Movie = 0