As of now, I'm no longer entering the compo.
Reason? I'm a n00b with a half finished project that turns itself off the second you run it. I'll post the source and you're welcome to show me where I've gone wrong but I won't enter it because I haven't done it myself. It would be like another lesson for me. Okay...
`********************************************************************************
`* ================== P O N G worlds ================================== *
`* Created by Daz Retro Gaming Competition Entry *
`********************************************************************************
` Setup the basics/get variables.
SYNC ON
SYNC RATE 100
HIDE MOUSE
AUTOCAM OFF
scorep = 0
scorec = 0
lost$ = "You lost! Press any key to retry."
goal$ = "G O A L"
SYNC
` Make the ball, paddles, arena and cameras.
MAKE OBJECT BOX 1, 100, 100, 400
MAKE OBJECT SPHERE 2, 15
MAKE OBJECT PLAIN 3, 500, 50
MAKE OBJECT BOX 4, 20, 20, 5
MAKE OBJECT BOX 5, 20, 20, 5
MAKE OBJECT PLAIN 6, 100, 100
MAKE OBJECT PLAIN 7, 100, 100
LOAD OBJECT "os.x", 8
LOAD OBJECT "cm.x", 9
LOAD OBJECT "ss.x", 10
LOAD OBJECT "vd.x", 11
COLOR OBJECT 4, RGB(0,255,0)
COLOR OBJECT 5, RGB(255,0,0)
COLOR OBJECT 6, RGB(255,128,0)
COLOR OBJECT 7, RGB(255,128,0)
LOCK OBJECT ON 3
POSITION OBJECT 3, 0, 165, 310
POSITION OBJECT 4, 0, 0, 180
POSITION OBJECT 5, 0, 0, -180
POSITION CAMERA 0, 0, 20, 320
POSITION OBJECT 6, 0, 0, 200
POSITION OBJECT 7, 0, 0, -200
POINT CAMERA 0, 0, 0, 0
SYNC
` Load the images/texture objects/setup arena mode/get the score bar
LOAD IMAGE "arena.bmp", 1
LOAD IMAGE "uk.bmp", 2
LOAD IMAGE "bar.bmp", 3
LOAD IMAGE "target.bmp", 4
LOAD IMAGE "toon.bmp", 5
TEXTURE OBJECT 1, 1
TEXTURE OBJECT 2, 2
TEXTURE OBJECT 3, 3
GHOST OBJECT ON 1
FADE OBJECT 1, 100
SET OBJECT CULL 1, 0
GHOST OBJECT ON 6
FADE OBJECT 6, 100
GHOST OBJECT ON 7
FADE OBJECT 7, 100
SET CARTOON SHADING ON 1, 1, 5
SYNC
` Setup the music.
LOAD MUSIC "music fun.mp3", 1
LOAD MUSIC "music misty room.mp3", 2
LOAD MUSIC "music space.mp3", 3
LOAD MUSIC "music triumph.mp3", 4
SYNC
` Setup the lights.
MAKE LIGHT 1
MAKE LIGHT 2
MAKE LIGHT 3
COLOR LIGHT 1, RGB(255,255,255)
COLOR LIGHT 2, RGB(0,0,255)
COLOR LIGHT 3, RGB(255,0,0)
SET SPOT LIGHT 1, 50, 100
SET SPOT LIGHT 2, 50, 100
SET SPOT LIGHT 3, 50, 100
SET OBJECT LIGHT 3, 0
SET OBJECT LIGHT 4, 0
SET OBJECT LIGHT 5, 0
POSITION LIGHT 1, 0, 50, 0
POSITION LIGHT 2, 0, 50, 250
POSITION LIGHT 3, 0, 50, -250
POINT LIGHT 1, 0, 0, 0
POINT LIGHT 2, 0, 0, 0
POINT LIGHT 3, 0, 0, 0
SET LIGHT RANGE 1, 100
SET LIGHT RANGE 2, 100
SET LIGHT RANGE 3, 100
SET AMBIENT LIGHT 10
SYNC
` Start the main program loop.
DO
` Setup scoring.
` Get collision working.
` Give the ball movement and character.
` Give paddle control to user.
IF UPKEY() THEN MOVE OBJECT UP 4, 0.5
IF DOWNKEY() THEN MOVE OBJECT DOWN 4, 0.5
IF RIGHTKEY() THEN MOVE OBJECT LEFT 4, 0.5
IF LEFTKEY() THEN MOVE OBJECT RIGHT 4, 0.5
IF ESCAPEKEY() THEN END
SYNC
` Create basic enemy AI paddle movement.
`Goal system working.
IF OBJECT HIT(2, 6) = 1
PRINT goal$
INC scorep, 1
WAIT 3000
ENDIF
IF OBJECT HIT(2, 7) = 1
PRINT goal$
WAIT 3000
ENDIF
SYNC
`Setup the 4 levels.
LevelOne:
scorep = 0
scorec = 0
LOOP MUSIC 1
HIDE OBJECT 9
HIDE OBJECT 10
HIDE OBJECT 11
POSITION OBJECT 8, 0, 0, 0
IF scorep = 5
PRINT "Level One complete!"
SLEEP 5000
GOSUB LevelTwo
scorep = 0
scorec = 0
ELSE
RETURN
ENDIF
IF scorec = 5
PRINT lost$
WAIT KEY
GOSUB LevelOne
ENDIF
SYNC
LevelTwo:
scorep = 0
scorec = 0
HIDE OBJECT 8
HIDE OBJECT 10
HIDE OBJECT 11
POSITION OBJECT 9, 0, 0, 0
DELETE MUSIC 1
LOOP MUSIC 2
IF scorep = 10
PRINT "Level Two complete!"
SLEEP 5000
GOSUB LevelThree
scorep = 0
scorec = 0
ELSE
GOSUB LevelTwo
ENDIF
IF scorec = 10
PRINT lost$
WAIT KEY
GOSUB LevelTwo
ENDIF
SYNC
LevelThree:
scorep = 0
scorec = 0
HIDE OBJECT 8
HIDE OBJECT 9
HIDE OBJECT 11
POSITION OBJECT 10, 0, 0, 0
DELETE MUSIC 2
LOOP MUSIC 3
IF scorep = 20
PRINT "Level Three complete!"
SLEEP 5000
GOSUB LevelFour
scorep = 0
scorec = 0
ELSE
GOSUB LevelThree
ENDIF
IF scorec = 20
PRINT lost$
WAIT KEY
GOSUB LevelThree
ENDIF
SYNC
LevelFour:
scorep = 0
scorec = 0
HIDE OBJECT 8
HIDE OBJECT 9
HIDE OBJECT 10
POSITION OBJECT 11, 0, 0, 0
DELETE MUSIC 3
LOOP MUSIC 4
IF scorep = 30
PRINT "You have completed the game!"
SLEEP 5000
GOSUB Credits
ELSE
GOSUB LevelFour
ENDIF
IF scorec = 30
PRINT lost$
WAIT KEY
GOSUB LevelFour
ENDIF
SYNC
`The credits.
Credits:
INK RGB(0,0,0), RGB(0,0,0)
CLS
WAIT 3000
SET CURSOR 50, 130
PRINT "P O N G"
WAIT 5000
SET CURSOR 50, 150
PRINT "Created by Daz"
WAIT 5000
CLS
SET CURSOR 50, 130
PRINT "Media by : DarkBASIC Software, Daz"
WAIT 5000
CLS
PRINT "Thanks to:"
PRINT "The DarkBASIC community"
WAIT 5000
CLS
END
EXIT PROMPT "Created by Daz in DarkBASIC Professional.", "Retro Gaming Competition Entry."
SYNC
` End the main loop.
LOOP
Laters.
DarkBASIC Professional is the best programming utility.
8/10 Housewives agree!
