Quote
---------- Capture Output ----------
> "C:\Atari2600\bB\2600bas.bat" C:\Projects\Atari\OpenSourcePong\opensourcepong.bas
2600 Basic compilation complete.
DASM V2.20.07, Macro Assembler ©1988-2003
bytes of ROM space left
2643 bytes of ROM space left
2643 bytes of ROM space left
--- Unresolved Symbol List
mul8 0000 ???? (R )
Fatal assembly error: Source is not resolvable.
> Terminated with exit code 0.
> "C:\Atari2600\bB\2600bas.bat" C:\Projects\Atari\OpenSourcePong\opensourcepong.bas
2600 Basic compilation complete.
DASM V2.20.07, Macro Assembler ©1988-2003
bytes of ROM space left
2643 bytes of ROM space left
2643 bytes of ROM space left
--- Unresolved Symbol List
mul8 0000 ???? (R )
Fatal assembly error: Source is not resolvable.
> Terminated with exit code 0.
Code:
rem Open Source Pong rem an Open Source Pong Remake rem Updated: Feburary 10, 2008 rem Website: http://opensourcepong.freepgs.com rem set the rom size set romsize 4k rem set kernel options rem readpaddle - set it so the paddle controlers are read set kernel_options no_blank_lines readpaddle rem set an alias for the ball's x velocity dim ballxvelocity = a rem set an alias for the ball's y velocity dim ballyvelocity = b rem set an alias for the player1's score dim player1score = c rem set an alias for the player2's x score dim player2score = d rem set player1's inital x positon player0x = 15 rem set player1's inital y positon player0y = 45 rem set player2's inital x positon player1x = 140 rem set player2's inital y positon player1y = 45 rem set ball's inital x positon ballx = 80 rem set ball's inital y positon bally = 45 rem start of the game loop gameLoop rem color the background black' COLUBK = 0 rem set the color of the playfield to white COLUPF = 14 rem define the playfield playfield: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ ................................ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX end rem color player 1's paddle COLUP0 = 14 rem define player 1's sprite player0: %00011000 %00011000 %00011000 %00011000 %00011000 %00011000 %00011000 %00011000 end rem color player 2's paddle COLUP1 = 14 rem define player 2's sprite player1: %00011000 %00011000 %00011000 %00011000 %00011000 %00011000 %00011000 %00011000 end rem read paddle 0, use it to position player0x across the screen currentpaddle = 0 rem draw the game screen drawscreen rem set player1's y position to the paddle control's axis rem multiplied by 2 plus 1 rem player0y = 2 * paddle + 1 rem make sure the player doesn't go off the top screen if player0y > 153 then player0y = 153 rem make sure the player doesn't go off the bottom screen if player0y < 8 then player0y = 8 rem redraw the screen drawscreen goto gameLoop
To test it remove the rem from the following statement:
player0y = 2 * paddle + 1
Thanks,
Open Source Pong
Edited by Space Xscape, Fri Feb 15, 2008 10:00 AM.














