' ScriptBasic PONG by Peter Wirbelauer
INCLUDE "sbsw.inc"
SW_Window 320, 240, 1
SW_SetCaption "ScriptBasic Pong"
SW_SetFPS 60
x = 50
y = 50
x2 = 130
y2 = 150
pspeed = 2
xadj = 2
yadj = 2
delay = 1
score = 0
haha = "wav/haha.wav"
pong = "wav/pong.wav"
WHILE SW_Key(27) = 0
SW_Cls SW_RGB(200, 200, 247)
SW_FillCircle x, y, 8, SW_RGB(0, 0, 255)
SW_FillBox x2, y2, 30, 4, SW_RGB(255, 255, 255)
SW_Box 20, 20, 280, 160, 4, SW_RGB(255, 255, 0)
SW_SetText 10, 0, "SCORE:" & score, SW_RGB(255, 0, 0)
IF y <= 20
THEN yadj = 1
SW_PlayWav pong
END IF IF y >= 180
THEN yadj = -1
SW_PlayWav pong
END IF IF x >= 300
THEN xadj = -1
SW_PlayWav pong
END IF IF x <= 20
THEN xadj = 1
SW_PlayWav pong
END IF IF SW_Key(37)
AND x2 > 18
THEN x2 = x2 - pspeed
IF SW_Key(39)
AND x2 < 270
THEN x2 = x2 + pspeed
x += xadj
y += yadj
IF y > y2 - 7
AND y2 < y2 + 2
AND x < x2 + 30
AND x > x2
THEN yadj = -1
score += 1
END IF IF y > y2 + 10
THEN SW_SetText 100, 200, "GAME OVER!", SW_RGB(0, 160, 55)
SW_Playwav haha
SW_Waitkey
score = 0
x = 50
y = 50
x2 = 130
y2 = 150
END IF SW_Sync
WENDSW_CloseWindow