Graphics 1024,768,64,2
AppTitle "FF"
TMusik=PlayMusic("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\titel.wav")
BackBild = LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Back.bmp")
DrawImage BackBild,1,1
ChannelVolume TMusik,1
Repeat
If Not ChannelPlaying(TMusik)
   Musik = PlayMusic("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\titel.wav")
EndIf
If KeyHit(1) 
Goto MapLoad
End If
Forever
.Mapload
 Cls
StopChannel Musik
Musik=PlayMusic("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\welt.mp3") 

Global xmax=1024,ymax=768
Graphics xmax,ymax,32,2
SetBuffer BackBuffer()
Graphics 64,64,16,2
;.................
;LOS
;.................
Status = LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Status.bmp")
Global Tile = LoadAnimImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Tiless.bmp",32,32,0,2)
Global spielerO=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typO.bmp");damit ist der Charakter gemeint
Global spielerU=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typU.bmp");damit ist der Charakter gemeint
Global spielerR=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typR.bmp");damit ist der Charakter gemeint
Global spielerL=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typL.bmp");damit ist der Charakter gemeint
Global spielerRG=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typRG.bmp");damit ist der Charakter gemeint
Global spielerLG=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typLG.bmp");damit ist der Charakter gemeint
Global spielerOG=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typOG.bmp")
Global spielerUG=LoadImage("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\Typ\typUG.bmp")
MaskImage spielerO,255,255,255
MaskImage spielerL,255,255,255
MaskImage spielerR,255,255,255
MaskImage spielerU,255,255,255
MaskImage spielerLG,255,255,255
MaskImage spielerRG,255,255,255
MaskImage spielerOG,255,255,255
MaskImage spielerUG,255,255,255
Global XSp = 5
Global YSp = 5
Dim Map(1,1)
Map(0,1)=1
Map(1,1)=1
Map(1,0)=1
Map(0,0)=1
DrawImage Tile,1,1,1


;.................

Spieler = 1
Repeat
If Not ChannelPlaying(Musik)
   Musik=PlayMusic("C:\Dokumente und Einstellungen\Jonas\Desktop\Blitzbasic\welt.mp3")
EndIf
Flip
Cls

If KeyHit(203) And LKol = 0 Then XSp = XSp-25  Spieler = 1 steh=0
If KeyHit(205) Then XSp = XSp+25  Spieler = 2 steh=0
If KeyHit(200) Then YSp = YSp-25  Spieler = 4 steh=0
If KeyHit(208) Then YSp = YSp+25  Spieler = 3 steh=0
If XSp >= 800 Then XSp = 2
If YSp >= 800 Then YSp = 2
If XSp <= 1 Then XSp = 1022
If YSp <= 1 Then YSP = 766
Select Spieler
Case 1

If steh = 0 DrawImage spielerLG,XSp,YSp Delay(400)
DrawImage spielerL,XSp,YSp
steh=1
Case  2


If steh=0 DrawImage spielerRG,XSp,YSp Delay(400)
DrawImage spielerR,XSp,YSp
steh=1
Case  3

If steh = 0 DrawImage spielerUG,XSp,YSp Delay(400)
DrawImage spielerU,XSp,YSp
steh=1
Case  4

If steh=0 DrawImage spielerOG,XSp,YSp Delay(400)
DrawImage spielerO,XSp,YSp
steh=1
End Select

For Y = 1 To 2500
Next

Until KeyHit(1)

WaitKey
End