AppTitle "xXxXxXx"

Graphics 800,600

SetBuffer BackBuffer()

; LOADING ::: LOADING ::: LOADING ::: LOADING

Global bg$=LoadImage("stars.jpg")
Global button1=LoadImage("button1.jpg")
Global button1_A=LoadImage("button1_Active.jpg")
Global button2=LoadImage("button2.jpg")
Global button2_A=LoadImage("button2_Active.jpg")
Global mouse=LoadImage("mouse.bmp")
DrawImage bg$,0,0
Cls
Global button1ende=LoadImage("bu1ende.jpg")
Global button1ea=LoadImage("bu1ende_active.jpg")
Global button2ende=LoadImage("bu2ende.jpg")
Global button2ea=LoadImage("bu2ende_active.jpg")
Global soundshoot=LoadSound("shoot.wav")
Global sound1=LoadSound("mtruc.wav")

;END

;hauptschleife

Repeat

.anfang
Cls
DrawImage bg$,0,0
DrawImage button1,50,50
DrawImage button2,50,100

If ImagesOverlap(mouse,MouseX(),MouseY(),button1,50,50)=1 Then DrawImage button1_A,50,50
If ImagesOverlap(mouse,MouseX(),MouseY(),button2,50,100)=1 Then DrawImage button2_A,50,100


If MouseDown(1)=True And ImagesOverlap(mouse,MouseX(),MouseY(),button1,50,50)=1 Then PlaySound sound1 Goto startgame Cls
If MouseDown(1)=True And ImagesOverlap(mouse,MouseX(),MouseY(),button2,50,100)=1 Then PlaySound sound1 Goto ende Cls

DrawImage mouse,MouseX(),MouseY()

Flip
Cls
Until KeyHit(1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Repeat
.ende

DrawImage bg$,0,0
Text 20,20,"Wirklich beenden?"
DrawImage button1ende,50,50
DrawImage button2ende,50,100

If ImagesOverlap(mouse,MouseX(),MouseY(),button1ende,50,50)=1 Then DrawImage button1ea,50,50
If ImagesOverlap(mouse,MouseX(),MouseY(),button2ende,50,100)=1 Then DrawImage button2ea,50,100

If MouseDown(1)=True And ImagesOverlap(mouse,MouseX(),MouseY(),button1ende,50,50)=1 Then PlaySound sound1 Delay 200 End
If MouseDown(1)=True And ImagesOverlap(mouse,MouseX(),MouseY(),button2ende,50,100)=1 Then PlaySound sound1 Goto anfang

[color=red]DrawImage mouse,MouseX(),MouseY()[/color]

Flip
Cls
Until KeyHit(1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Repeat
.startgame

Print "hallo"

Flip
Cls
Until KeyHit(1)