Erste schritte

Huhu habe mal versucht was zu programmieren und wollte ganz klein mit dem spiel pong anfangen jetzt ist das problem dass das ich immer einen schwarzen screen habe wenn ich das programm starte und ich dass mit esc nicht beenden kann wäre nett wenn dass mal einer ansieht was ich falsch mache.


InitSprite()

InitKeyboard()

OpenScreen(640,480,16,"Beispiel 7_1")

Global BallX.w

Global BallY.w

Global SchlaegerX.w

Global SchlaegerY.w

Global BewegX.w

Global BewegY.w

BallX = 319

BallY = 239

BewegX = -1

BewegY = -1

SchlaegerX = 639 - 10

SchlaegerY = 239 - (30 / 2)


ClearScreen(000000000)

StartDrawing(ScreenOutput())

FrontColor(255255255)

Box(0,0,20,480)

Box(0,0,640,20)

Box(0,460,640,20)

Box(SchlaegerX,SchlaegerY,10,30)

Box(BallX-1,BallY-1,3,3)

StopDrawing()

FlipBuffers()

ExamineKeyboard()

If KeyboardPushed(200)

SchlaegerY - 1

EndIf

If KeyboardPushed(208)

SchlaegerY + 1

EndIf

If SchlaegerY < 21

SchlaegerY = 20

ElseIf SchlaegerY > 460 - 30

SchlaegerY = 460 - 30

EndIf

BallX + BewegX

BallY + BewegY

If BallX < 20

BewegX = 1

EndIf

If BallY < 20

BewegY = 1

EndIf

If BallY > 460

BewegY = -1

EndIf

If BallX > SchlaegerX And BallX < SchlaegerX + 10 And BallY > SchlaegerY And BallY < SchlaegerY + 30

BewegX = -1

EndIf

Repeat

Until KeyboardPushed(1) Or BallX > 640