AppTitle "Football Star"


Graphics 800, 600
SetBuffer BackBuffer()

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

; LADEN

; Startdaten für die Bälle
Data 100,100,1,1
Data 200,200,1,-1
Data 300,300,-1,1
Dim Ball(3,4)
; Startdaten einlesen
For I=1 To 3
For J=1 To 4
Read Ball(I,J)
Next
Next





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


;
; BILDER
;
spieler1 = LoadImage("Spieler1/rechts.png")
spieler2 = LoadImage("Spieler2/links2.png")
feld = LoadImage("Spielfeld.png")
start = LoadImage("Startbildschirm.png")
;Ball = LoadImage("ball.png")
;
; FONTS
;
font1 = LoadFont("Andy",32,32)
font2 = LoadFont("Arial",40,40)


tor1 = 0
tor2 = 0


X = 100
Y = 280

J = 700
Z = 280

MaskImage spieler1,255,0,255
MaskImage spieler2,255,0,255
;MaskImage ball,255,0,255

Color 0,0,255
Rect 145,100,500,100
DrawImage start,0,0
SetFont font1
Locate 150, 200
Print "Willkommen zum: !!!FOOTBALL STAR!!!"
Delay 500
Locate 150, 240
Print "Loading...."
Delay 500
;
Locate 150, 290
mannschaft1$ = Input$("Wähle den Namen für Mannschaft 1: ")
Locate 150, 330
mannschaft2$ = Input$("Wähle den Namen für Mannschaft 2: ")
;

Locate 150, 500
Print mannschaft1 + " vs " + mannschaft2

;Delay 5000

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

;HAUPTSCHLEIFE

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


Repeat
Cls
DrawImage feld,50,100
DrawImage spieler1, X,Y
DrawImage spieler2, J,Z
;DrawImage ball1,380,280


If KeyDown(200) = 1 Then Y = Y - 1 ;And DrawImage sp1oben ; oben
If KeyDown(208) = 1 Then Y = Y + 1 ;And DrawImage sp1unten ; unten
If KeyDown(205) = 1 Then X = X + 2 ;And DrawImage spieler1 ; rechts
If KeyDown(203) = 1 Then X = X - 2 ;And DrawImage sp1links ; links




If KeyDown(17) = 1 Then Z = Z - 1
If KeyDown(31) = 1 Then Z = Z + 1
If KeyDown(32) = 1 Then J = J + 2
If KeyDown(30) = 1 Then J = J - 2



If X>700 Then X=700
If X<70 Then X=70
If Y>470 Then Y=470
If Y<86 Then Y=86


If J>700 Then J=700
If J<70 Then J=70
If Z>470 Then Z=470
If Z<86 Then Z=86



SetFont font2
Locate 100,10
Print mannschaft1 + "  " + tor1 + " : " + tor2 + "  " + mannschaft2


; KOLLISION

;ClsColor 200,200,0
For I=1 To 1
; Randtest
If Ball(I,1)=50 Then Ball(I,3) = +1
If Ball(I,1)=719 Then Ball(I,3) = -1 ; rechts
If Ball(I,2)=100 Then Ball(I,4) = +1 ; oben
If Ball(I,2)=460 Then Ball(I,4) = -1 ; unten
; Position ändern
Ball(I,1) = Ball(I,1) + Ball(I,3)
Ball(I,2) = Ball(I,2) + Ball(I,4)

Color 0,0,255
Oval Ball(1,1),Ball(1,2),36,36,0
Next





; Kollision

For I = 246 To 380

If ball(1,1) = 50 And ball(1,2) = I Then tor2 = tor2 + 1

Next


For I = 246 To 379

If ball(1,1) = 719 And ball(1,2) = I Then tor1 = tor1 + 1

Next









Flip
Until KeyDown(1)
End