' pong game in o2
$ filename "Pong.exe"
include "rtl32.inc"
include "window.inc"
Window "Pong in o2 by Peter Wirbelauer",320, 240, 1
'SetFPS 10
x = 50
y = 50
x2 = 130
y2 = 160
pspeed = 1
xadj = 1
yadj = 1
delay = 1
score = 0
'haha = "wav/haha.wav"
'pong = "wav/pong.wav"
WHILE Key(27) = 0
ClsColor (200, 200, 247)
Circle (x, y, 8, 0, 0, 255)
FillBox (x2, y2, 30, 4, 255, 255, 255)
Box (20, 20, 280, 160, 4,255, 255, 0)
Text (10, 0, "SCORE:" & score, 255, 0, 0)
IF y <= 20
yadj = 1
'PlayWav pong
END IF
IF y >= 180
yadj = -1
' PlayWav pong
END IF
IF x >= 300
xadj = -1
' PlayWav pong
END IF
IF x <= 20
xadj = 1
' PlayWav pong
END IF
IF Key(37) AND x2 > 18 : x2 = x2 - pspeed : end if
IF Key(39) AND x2 < 270 : x2 = x2 + pspeed : end if
x = x + xadj
y = y + yadj
IF y > y2 - 7 AND y2 < y2 + 2 AND x < x2 + 30 AND x > x2
yadj = -1
score = score + 1
END IF
IF y > y2 + 10
'Text( sys x, y, string txt, sys r,g,b)
Text (100, 200, "GAME OVER!", 0, 160, 55)
'Playwav haha
Waitkey(27)
score = 0
x = 5
y = 5
x2 = 130
y2 = 150
END IF
FlipBuffer()
SetFps 40
WEND
WinEnd
' Eine Funktion, die zwei Zeitstempel im Format "HH:MM:SS.mmmm" als Strings annimmt und ihre Summe als String zurückgibt
Function AddTimestamps(ByVal sTime1 As String, ByVal sTime2 As String) As String
' Deklarieren Sie zwei Variablen vom Typ IPowerTime
Local t1 As IPowerTime
Local t2 As IPowerTime
' Erstellen Sie zwei Instanzen der Klasse "PowerTime"
Let t1 = Class "PowerTime"
Let t2 = Class "PowerTime"
' Setzen Sie die Zeitwerte der Instanzen mit der Methode SetFromString
t1.SetFromString(sTime1)
t2.SetFromString(sTime2)
' Addieren Sie die beiden Zeitwerte mit der Methode AddTicks
t1.AddTicks(t2.Ticks)
' Geben Sie die Summe als String mit der Methode TimeString zurück
Function = t1.TimeString
End Function
Page created in 0.089 seconds with 14 queries.