Sorry your browser is not supported!

Rem Project: Pong
Rem Created: 13.04.2005 16:49:51

Rem ***** Main Source File *****
level# = 0.2 `level of how tough the ai is
`0.2 is very dumb, 1.0 is very clever (never loses actually)




null = make vector2(1)
top:
REM CREATE IMAGES
REM STICK
box 0,0,10,50
get image 1,0,0,10,50
cls
sprite 1,0,0,1
offset sprite 1, sprite width(1)/2.0, sprite height(1)/2.0
sprite 1,5,25,1
sprite 3,635,25,1

REM BALL
Circle 10,10,9
get image 2,0,0,20,20
cls
sprite 2,0,0,2
offset sprite 2, sprite width(2)/2.0, sprite height(2)/2.0
sprite 2,320,240,2


backdrop on
reRandom:
nx# = rnd(8)-4 : ny# = rnd(8)-4
if nx# = 0 then goto reRandom
if ny# = 0 then goto reRandom
set vector2 1,nx#, ny# : normalize vector2 1, 1
nx# = x vector2(1) : ny# = y vector2(1)
bx# = 0 : by# = 0

Sync On
Do

y = y + downkey() - upkey()
if y < 25 then y = 25
if y > screen height() - 25 then y = screen height() - 25
sprite 1,5,y,1

if sprite hit (2,1) then nx# = nx#*-1
if sprite hit (2,3) then nx# = nx#*-1
if sprite x(2) < 10 or sprite x(2) > 630 then sprX = sprite x(2) : exit
if sprite y(2) < 10 then ny# = ny#*-1
if sprite y(2) > 470 then ny# = ny#*-1

bx# = (bx# + nx#) : by# = (by# + ny#)
sprite 2, 320+bx#, 240+by#, 2
if sprite collision (2,1)
endif

ay# = ay# + ai#
if ay# < by# then ai# = level#
if ay# > by# then ai# = -level#
sprite 3,630,240+ay#,1

Line 320, 0, 320, 640
text 300, 0, str$(score1)
text 340, 0, str$(score2)
Sync
Loop
if sprX < 10 then score2 = score2+1
if sprX > 630 then score1 = score1+1

delete image 1 : delete image 2
delete sprite 1 : delete sprite 2 : delete sprite 3
goto top

Sync On
Sync Rate 100
Set Display Mode 800 , 600 , 32 , 0
Set Text Size 30
Do
    CLS
    Inc PlayerBatY , ( Downkey() - Upkey() ) * 10
    Inc EnemyBatY  , ( 1 - ( BallY < EnemyBatY ) * 2 ) * ( Abs( EnemyBatY - BallY ) && %00000111 )
    If PlayerBatY < -270 Or PlayerBatY > 270 Then PlayerBatY = PlayerBatY - PlayerBatY MOD 270
    Inc BallX      , ( XDifficulty * 0.1 + 4 ) * ( -1 + XDirection * 2 )
    Inc BallY      , ( YDifficulty * 0.1 + 4 ) * ( -1 + YDirection * 2 )
    If BallY < -297 Or BallY > 297 Then YDirection = 1 - YDirection
    If BallX < -400 Or BallX > 400 Then XDirection = 1 - XDirection : PlayerScore = PlayerScore + ( BallX > 0 ) : EnemyScore = EnemyScore + ( BallX < 0 ) : XDifficulty = 0 : YDifficulty = 0 : Center Text 400 + ( BallX < 0)*1000 , 300 , "Player scores! Get ready" : Center Text 400 + ( BallX > 0)*1000 , 300 , "Enemy scores! Get ready" : BallX = 0 : BallY = 0 : Sync : Wait 1000
    If BallX > -395 And BallX < -385 And BallY > PlayerBatY - 30 And BallY < PlayerBatY + 30 Then XDirection = 1 : XDifficulty = XDifficulty + Rnd(5) : YDifficulty = YDifficulty + Rnd(5)
    If BallX >  385 And BallX <  395 And BallY > EnemyBatY  - 30 And BallY < EnemyBatY  + 30 Then XDirection = 0 : XDifficulty = XDifficulty + Rnd(5) : YDifficulty = YDifficulty + Rnd(5)
    Text 315 , 5 , "   Pong!" + Chr$(10) + Str$( PlayerScore ) + "         " + Str$( EnemyScore ) + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |"
    Box   5 , PlayerBatY + 300 - 30 ,  15 , PlayerBatY + 300 + 30
    Box 785 , EnemyBatY  + 300 - 30 , 795 , EnemyBatY  + 300 + 30
    Box BallX - 3 + 400 , BallY - 3 + 300 , BallX + 3 + 400 , BallY + 3 + 300
    Sync
Loop

Sync On
Sync Rate 100
Set Display Mode 800 , 600 , 32 , 0
Set Text Size 30
Do
    CLS
    Inc PlayerBatY , ( Downkey() - Upkey() ) * 10
    Inc EnemyBatY  , ( 1 - ( BallY < EnemyBatY ) * 2 ) * ( Abs( EnemyBatY - BallY ) && %00000111 )
    If PlayerBatY < -270 Or PlayerBatY > 270
      PlayerBatY = PlayerBatY - PlayerBatY MOD 270
    Endif
    Inc BallX      , ( XDifficulty * 0.1 + 4 ) * ( -1 + XDirection * 2 )
    Inc BallY      , ( YDifficulty * 0.1 + 4 ) * ( -1 + YDirection * 2 )
    If BallY < -297 Or BallY > 297
      YDirection = 1 - YDirection
    Endif
    If BallX < -400 Or BallX > 400
      XDirection = 1 - XDirection
      PlayerScore = PlayerScore + ( BallX > 0 )
      EnemyScore = EnemyScore + ( BallX < 0 )
      XDifficulty = 0 : YDifficulty = 0
      Center Text 400 + ( BallX < 0)*1000 , 300 , "Player scores! Get ready"
      Center Text 400 + ( BallX > 0)*1000 , 300 , "Enemy scores! Get ready"
      BallX = 0
      BallY = 0
      Sync
      Wait 1000
    Endif
    If BallX > -395 And BallX < -385 And BallY > PlayerBatY - 30 And BallY < PlayerBatY + 30
      XDirection = 1
      XDifficulty = XDifficulty + Rnd(5)
      YDifficulty = YDifficulty + Rnd(5)
    Endif
    If BallX >  385 And BallX <  395 And BallY > EnemyBatY  - 30 And BallY < EnemyBatY  + 30
      XDirection = 0
      XDifficulty = XDifficulty + Rnd(5)
      YDifficulty = YDifficulty + Rnd(5)
    Endif
    Text 315 , 5 , "   Pong!" + Chr$(10) + Str$( PlayerScore ) + "         " + Str$( EnemyScore ) + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |"
    Box   5 , PlayerBatY + 300 - 30 ,  15 , PlayerBatY + 300 + 30
    Box 785 , EnemyBatY  + 300 - 30 , 795 , EnemyBatY  + 300 + 30
    Box BallX - 3 + 400 , BallY - 3 + 300 , BallX + 3 + 400 , BallY + 3 + 300
    Sync
Loop

Set Display Mode 800 , 600 , 32 , 0
Set Text Size 30
Do
    CLS
    Inc PlayerBatY , ( Downkey() - Upkey() ) * 10
    Inc EnemyBatY  , ( 1 - ( (Ballz# - 297) < EnemyBatY ) * 2 ) * ( Abs( EnemyBatY - (Ballz# - 297) ) && %00000111 )
    If PlayerBatY < -270 Or PlayerBatY > 270 THEN PlayerBatY = PlayerBatY - PlayerBatY MOD 270
    ballz# = (((((ballz# MOD 1.0)*800.0)-400) + (((XDirection * 2) - 1) * 4)+400.0)/800.0) + (Ballz#) - (ballz# MOD 1.0) + (((YDirection * 2) - 1) * 4)
    YDirection = YDirection + (ballz# < 2.0) - (ballz# > (297.0 * 2))
    If ballz# MOD 1.0 < 0.01 or ballz# MOD 1.0 > 0.99
      XDirection = 1 - XDirection
      PlayerScore = PlayerScore + ( (((ballz# MOD 1.0)*800.0)-400) > 0 )
      EnemyScore = EnemyScore + ( (((ballz# MOD 1.0)*800.0)-400) < 0 )
      ballz# = 297.5
    Endif
    If ballz# MOD 1.0 < 0.025 And ballz# - 297 > PlayerBatY - 30 And Ballz# - 297 < PlayerBatY + 30 THEN XDirection = 1
    If ballz# MOD 1.0 > 0.975 And Ballz# - 297 > EnemyBatY  - 30 And Ballz# - 297 < EnemyBatY  + 30 THEN XDirection = 0
    Text 315 , 5 , "   Pong!" + Chr$(10) + Str$( PlayerScore ) + "         " + Str$( EnemyScore-1 ) + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |" + Chr$(10) + "     |"
    Box   5 , PlayerBatY + 300 - 30 ,  15 , PlayerBatY + 300 + 30
    Box 785 , EnemyBatY  + 300 - 30 , 795 , EnemyBatY  + 300 + 30
    Box (((ballz# MOD 1.0)*800.0)-400) + 397 , Ballz# - 3 , (((ballz# MOD 1.0)*800.0)-400) + 403, Ballz# + 3
    WAIT 10
Loop

` Pong (gbark)
` DBPro Coding Challenge
` 01/11/08 - 01/12/08

` Screen settings
sync on : sync rate 60
set display mode 640, 480, 32
backdrop on : color backdrop 0
set ambient light 35 : hide light 0
autocam off
set text font "Terminal" : set text size 72
hide mouse


` Create textures for objects
gosub MakeTextures


` Create game objects
` (Player)
make object box 1, 30, 70, 16
texture object 1, 1
` (Cpu)
make object box 2, 30, 70, 16
texture object 2, 2
` (Ball)
make object sphere 3, 30
texture object 3, 3
` (Ball Light)
make light 1
set light range 1, 300
` (Ball Glow Object)
make object plain 4, 300, 300
set object ambient 4, 0
set object light 4, 0
texture object 4, 4
ghost object on 4
disable object zdepth 4


` Set camera
position camera 0, 0, -500
point camera 0, 0, 0


` Start new game
`gosub NewGame


` Prepare for main menu
gameMode = 0


` Main loop
do
   ` Run menu or game loop, depending on current game mode
   if gameMode = 0 then gosub MenuLoop else gosub GameLoop

   sync
loop


` Main menu loop
MenuLoop:
   ` Show the title
   gosub DrawTitle
   
   ` Check for game start
   gosub StartGame
return


` Main game loop
GameLoop:
   ` Move player's paddle
   gosub MovePlayer

   ` Move cpu's paddle
   gosub MoveCpu

   ` Update the ball
   gosub UpdateBall

   ` Draw scores
   gosub DrawScore
return


` Prepare variables for a new game
NewGame:
   ` Reset scores
   playerScore = 0
   cpuScore = 0
   
   ` Prepare for first round
   gosub NextRound
   
   ` Spawn ball in the field center for the first round
   ballX = 0
   ballY = 0
   ballServe = 0

   ` Set the ball in a random direction
   ballXSpeed = rnd(2)+1 : if rnd(1)=1 then ballXSpeed = -ballXSpeed
   ballYSpeed = rnd(2)+1 : if rnd(1)=1 then ballYSpeed = -ballYSpeed
return


` Reset paddles and ball for a new round
NextRound:
   ` Reset paddle positions
   playerY = 0 : playerKick = 0
   cpuY = 0 : cpuKick = 0
   
   ` Reset ball speeds
   ballXSpeed = 0
   ballYSpeed = 0
   
   ` Set cpu difficulty based on score difference
   ` (1 = Easy, 5 = Normal, 10 = Hard)
   cpuLevel = 5 + (playerScore - cpuScore)*2
   if cpuLevel > 10 then cpuLevel = 10
   if cpuLevel < 1 then cpuLevel = 1
   
   ` Set some error for the cpu so it's not "perfect"
   cpuError = (rnd(20-cpuLevel*2)-rnd(20-cpuLevel*2))*(2+rnd(5))
return


` Control player's paddle
MovePlayer:
   ` Determine where to move based on arrow keys
   playerYSpeed = (upkey()-downkey())*5
   
   ` No movement if the ball went past
   if ballX < -300 then playerYSpeed = 0
   
   ` Move player paddle
   inc playerY, playerYSpeed
   
   ` Keep paddle onscreen
   if playerY > 260 then playerY = 260
   if playerY < -260 then playerY = -260
   
   ` Kick paddle with space
   sp = spacekey()
   if sp = 1 and keySpace = 0 and playerKick = 0 then playerKick = 1
   keySpace = sp
   
   ` Update paddle kick
   if playerKick > 0 then inc playerKick, 35
   if playerKick > 180 then playerKick = 0
   
   ` Update paddle position
   position object 1, -300+sin(playerKick)*40, playerY, 0
return


` Control cpu's paddle
MoveCpu:
   ` Guess where the ball will end up
   if (ballXSpeed > 0 or cpuLevel > 6) and ballServe = 0
      ` Look ahead and determine where the ball will end up
      ` (Cpu can look farther ahead the higher the level)
      for i = 1 to 10 + (cpuLevel*6)
         guessX = ballX + ballXSpeed*i
         guessY = ballY + ballYSpeed*i
         if guessY > 280 then guessY = (280-guessY)+280
         if guessY < -280 then guessY = (-280-guessY)-280
         if guessX < -270 then guessX = (-270-guessX)-270
         if guessX > 270 then exit
      next i
      ` Add some error into the cpu's judgement
      inc guessY, cpuError
   endif
   
   ` Determine where to move based on guess
   if abs(cpuY - guessY) < 5 then cpuY = guessY : cpuYSpeed = 0
   if cpuY > guessY then cpuYSpeed = -5
   if cpuY < guessY then cpuYSpeed = 5
   
   ` No movement if the ball went past
   if ballX > 300 then cpuYSpeed = 0
   
   ` Move cpu paddle
   inc cpuY, cpuYSpeed
   
   ` Keep paddle onscreen
   if cpuY > 260 then cpuY = 260
   if cpuY < -260 then cpuY = -260
   
   ` Kick the ball if it is close (and the cpu is a high enough level)
   if cpuLevel > 6 and ballXSpeed > 0 and ballX+ballXSpeed > 260 and ballY > cpuY-50 and ballY < cpuY+50 and cpuKick = 0 and ballServe = 0
      cpuKick = 1
   endif
   
   ` Also kick the ball if it is time to serve
   if ballServe = -1 and abs(cpuY-guessY)<5 and cpuKick = 0
      cpuKick = 1
   endif
   
   ` Update paddle kick
   if cpuKick > 0 then inc cpuKick, 35
   if cpuKick > 180 then cpuKick = 0

   ` Update paddle position
   position object 2, 300-sin(cpuKick)*40, cpuY, 0
return


` Move the ball around the field
UpdateBall:
   ` Check if a player is serving or not
   if ballServe <> 0
      ` A player is serving the ball
      gosub ServeBall
   else
      ` The ball is moving freely around the field
      gosub MoveBall
   endif
   
   ` Update ball position
   position object 3, ballX, ballY, 0
   position light 1, ballX, ballY, -50
   position object 4, ballX, ballY, 0
return


` Ball is in SERVE MODE
ServeBall:
   ` Who is serving the ball?
   if ballServe = 1
      ` Player serving
      ballX = -270
      ballY = playerY

      ` When player kicks, ball has been served
      if playerKick > 0
         ` Ball should be in normal movement mode
         ballServe = 0
         ` Send the ball to the right
         ballXSpeed = 1
         ` Vertical direction should be the same as the paddle's
         ballYSpeed = rnd(3)+2
         if (rnd(1) = 1 or SignVal(playerYSpeed) = -1) and SignVal(playerYSpeed) <> 1 then ballYSpeed = -ballYSpeed
      endif
   else
      ` Cpu serving
      ballX = 270
      ballY = cpuY

      ` When player kicks, ball has been served
      if cpuKick > 0
         ` Ball should be in normal movement mode
         ballServe = 0
         ` Send the ball to the left
         ballXSpeed = -1
         ` Vertical direction should be the same as the paddle's
         ballYSpeed = rnd(3)+2
         if (rnd(1) = 1 or SignVal(cpuYSpeed) = -1) and SignVal(cpuYSpeed) <> 1 then ballYSpeed = -ballYSpeed
      endif
   endif
return


` Ball is in NORMAL MOVE MODE
MoveBall:
   ` Move ball
   inc ballX, ballXSpeed
   inc ballY, ballYSpeed

   ` Bounce off the top and bottom edges
   if ballY > 280
      ballY = 280 : ballYSpeed = -abs(ballYSpeed)
   endif
   if ballY < -280
      ballY = -280 : ballYSpeed = abs(ballYSpeed)
   endif

   ` Bounce off player paddle
   if ballX < -270+sin(playerKick)*40 and ballX > -300 and ballY > playerY-50 and ballY < playerY+50
      ` Bounce towards the right
      ballX = -270+sin(playerKick)*40 : ballXSpeed = abs(ballXSpeed)
      ` Bounce faster if player is kicking
      if playerKick > 0 then inc ballXSpeed, SignVal(ballXSpeed)*3
      ` Bounce vertically if ball and paddle are moving in the same direction
      if playerYSpeed * ballYSpeed > 0
         dec ballXSpeed, SignVal(ballXSpeed)
         inc ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Bounce horizontally if ball and paddle are moving in the opposite direction
      if playerYSpeed * ballYSpeed < 0
         inc ballXSpeed, SignVal(ballXSpeed)
         dec ballYSpeed, SignVal(ballYSpeed)
      endif
   endif

   ` Bounce off cpu paddle
   if ballX > 270-sin(cpuKick)*40 and ballX < 300 and ballY > cpuY-50 and ballY < cpuY+50
      ` Bounce towards the left
      ballX = 270-sin(cpuKick)*40 : ballXSpeed = -abs(ballXSpeed)
      ` Bounce faster if cpu is kicking
      if cpuKick > 0 then inc ballXSpeed, SignVal(ballXSpeed)*3
      ` Bounce vertically if ball and paddle are moving in the same direction
      if cpuYSpeed * ballYSpeed > 0
         dec ballXSpeed, SignVal(ballXSpeed)
         inc ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Bounce horizontally if ball and paddle are moving in the opposite direction
      if cpuYSpeed * ballYSpeed < 0
         inc ballXSpeed, SignVal(ballXSpeed)
         dec ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Set some error for the cpu so it's not "perfect"
      cpuError = (rnd(20-cpuLevel*2)-rnd(20-cpuLevel*2))*(2+rnd(5))
   endif

   ` Keep ball from moving too fast or too slow
   if abs(ballXSpeed) < 2 then ballXSpeed = 2*SignVal(ballXSpeed)    ` Min X speed
   if abs(ballYSpeed) < 2 then ballYSpeed = 2*SignVal(ballYSpeed)    ` Min Y speed
   if abs(ballXSpeed) > 20 then ballXSpeed = 20*SignVal(ballXSpeed)  ` Max X speed
   if abs(ballYSpeed) > 20 then ballYSpeed = 20*SignVal(ballYSpeed)  ` Max Y speed

   ` Check for a score
   if abs(ballX) > 530
      ` Check who scored
      if ballX > 530
         ` Player scored
         inc playerScore
         ` Cpu to serve
         ballServe = -1
         guessY = rnd(260)-rnd(260)
      else
         ` Cpu scored
         inc cpuScore
         ` Player to serve
         ballServe = 1
         ` Cpu to wait
         guessY = 0
      endif

      ` Update stats
      gosub DrawScore

      ` Update screen and sleep
      sync : sleep 1500

      ` Check if anybody has won yet
      if playerScore < 10 and cpuScore < 10
         ` No win yet, next round
         gosub NextRound
      else
         ` Game over, display who won
         if playerScore = 10
            ` Player won
            center text 320, 100, "You Win!"
         else
            ` Cpu won
            center text 320, 10, "You Lose."
         endif
         ` Update the screen and sleep
         sync : sleep 4000
         ` Return to title screen
         gameMode = 0
         set text size 72
      endif
   endif
return


` Draw each player's score
DrawScore:
   ink rgb(200, 200, 200), 0

   ` Player score
   text 200, 30, str$(playerScore)
   
   ` Cpu score
   text 400, 30, str$(cpuScore)
return


` Draw the title screen
DrawTitle:
   ` Title
   ink rgb(255, 255, 255), 0
   center text 320, 50, "Pong"
   
   ` Space to start
   ink rgb(200, 200, 200), 0
   center text 320, 400, "SPACE To Start"
   
   ` Position paddles and ball
   position object 1, -300, 0, 0    ` Player paddle
   position object 2, 300, 0, 0     ` Cpu paddle
   position object 3, 0, 0, 0       ` Ball
   position object 4, 0, 0, 0       ` Ball glow
   position light 1, 0, 0, 0        ` Ball light
return


` Start the game when space is pressed
StartGame:
   ` Check for space key
   sp = spacekey()
   if sp = 1 and keySpace = 0
      ` Prepare main game
      gameMode = 1
      set text size 48
      gosub NewGame
   endif
   keySpace = sp
return


` Make textures for game objects
MakeTextures:
   ` Player paddle
   create bitmap 1, 30, 70
   ` Green background
   ink rgb(0, 255, 0), 0
   box 0, 0, 30, 70
   ` Dark green lines
   ink rgb(0, 128, 0), 0
   line 5, 5, 25, 5 : line 25, 5, 25, 65 : line 25, 65, 5, 65 : line 5, 65, 5, 5
   line 10, 10, 20, 10 : line 20, 10, 20, 60 : line 20, 60, 10, 60 : line 10, 60, 10, 10
   ` Store image
   get image 1, 0, 0, 30, 70
   delete bitmap 1
   
   ` Cpu paddle
   create bitmap 1, 30, 70
   ` Red background
   ink rgb(255, 0, 0), 0
   box 0, 0, 30, 70
   ` Dark red lines
   ink rgb(128, 0, 0), 0
   line 5, 5, 25, 5 : line 25, 5, 25, 65 : line 25, 65, 5, 65 : line 5, 65, 5, 5
   line 10, 10, 20, 10 : line 20, 10, 20, 60 : line 20, 60, 10, 60 : line 10, 60, 10, 10
   ` Store image
   get image 2, 0, 0, 30, 70
   delete bitmap 1
   
   ` Ball
   create bitmap 1, 8, 8
   ` Yellow background
   ink rgb(255, 255, 0), 0
   box 0, 0, 8, 8
   ` Store image
   get image 3, 0, 0, 8, 8
   delete bitmap 1
   
   ` Ball glow
   create bitmap 1, 64, 64
   ` Black background
   ink 0, 0
   box 0, 0, 64, 64
   ` Add glow
   for x = 0 to 64
      for y = 0 to 64
         d# = Dist2(x, y, 32, 32)
         c = 255-(d#/32)*255
         if d# < 32 then dot x, y, rgb(c, c, 0)
      next y
   next x
   ` Store image
   get image 4, 0, 0, 64, 64
   delete bitmap 1
return


` Return the positive/negative sign of any integer
function SignVal(n)
   if n < 0 then exitfunction -1
   if n > 0 then exitfunction 1
endfunction 0

` Return the 2D distance between two points
function Dist2(x1#, y1#, x2#, y2#)
   d# = sqrt((x2#-x1#)*(x2#-x1#) + (y2#-y1#)*(y2#-y1#))
endfunction d#

`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`GOLBALS
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`whdts/heights

screenwidth = screen width()
screenheight = screen height()
screenwidth10 = (screen width() / 10)
screenheight10 = (screen height() / 10)
screenwidth10 = (screen width() / 10)
screenheight10 = (screen height() / 10)
screenmin10 = (screen width() - 10)
fieldsize = (screenwidth / 2)
`your object
global plankobject = 2
global plankx = 10
global planky 
global plankwith = (10)
global plankheight =  (100)
global planknewxpos = screenheight
global planknewypos


`evil object
global evilobject = 3
global evilx = screenmin10
global evily = screenheight10
global evilwith = (screenwidth100)
global evilheight = (screenheight10)
global evilnewx
global evilnewy
global evilspeed = 9

global dosomething = 0
global doright = 0

`AI
global randomAI
global AIdiff
global AIdiffmax

`ball
global ballx = fieldsize
global bally = fieldsize
global ballwith = 10
global ballheight = 10
global ballxspeed = 100
global ballyspeed = 100
global ballobject = 1
global ballnewx
global ballnewy


`points
global yourpoints
global evilpoints

`sides
global upsidex = 1
global upsidey = 1
global upsidewith = screenwidth

global downsidex  = 1
global downsidey = screenheight
global downsidewith = screenwidth
global fieldwith = screenwidth

`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`SETUP
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~


`create ball
ink rgb(255,255,255),1
box 0,0,ballwith,ballheight
get image 1,0,0,ballwith, ballheight,0


`create plank and evil

ink rgb(255,255,255),1
box 0,0,plankwith,plankheight
get image 2,0,0,plankwith, plankheight,0


cls



`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`MAIN
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`plank
Sprite plankobject, planknewxpos, planknewypos, 2
`evil
Sprite evilobject, evilnewx, evilnewy, 2
`ball
Sprite ballobject, ballnewx, ballnewy, 1


do



`#######
`take this out to try
    `ballcollision
    remstart if ballx < (plankx + plankwith) and (ballx + ballwith) > plankx 
        `hits plankx
        if baly < (planky + plankheight) and (bally + ballheight) > planky
            `hits plank full
            ballxspeed = ballxspeed * -1
        endif
    endif remend   
`ballcollision on side
    if (bally + ballheight) > downsidey then ballyspeed = ballyspeed * -1
    if bally < upsidey then yspeed = yspeed * -1
`evilcollision
remstart    if ballx < (evilx + evilwith) and (ballx + ballwith) > evilx 
        `hits evilx
        if baly < (evily + evilheight) and (bally + ballheight) > evily
            `hits evil full
            ballxspeed = ballxspeed * -1
        endif
    endifremend        
    
    
    
`#######

`new to trie

`ballcollision

if sprite collision( 1, 2) then ballxspeed = ballxspeed *-1
if sprite collision( 1, 3) then ballxspeed = ballxspeed *-1
    
`move your plank
    `planknewxpos = mousex()
    planknewxpos = 10
    planknewypos = mousey()
    if planknewypos < upsidey then plankypos = upsidey 
    if (planknewypos + plankheight) > downsidey then planky = (downsidey - plankheight) 

`AI
    `if ballx > fieldsize 
        if dosomething = 0
            randomAI = rnd(AIdiffmax)
            if randomAI < AIdiff then doright = 1
            dosomething = 1
        endif
        if doright = 1 `goes to the good side
            if bally < evilplanky then evilnewy = (evily - evilspeed)
            if (bally + ballheight) > (evily + evilheight) then evilnewy = (evily + evilspeed)
        endif     
    `endif
    remstart if ballx < fieldsize 
        dosomething = 0
        doright = 0
        randomAI = 0
    endif remend

`update ball
ballnewx = ballx + ballxspeed
ballnewy = bally + ballyspeed




`!!!!!!!
`REPOSITIONING 
`!!!!!!!

`plank
Sprite plankobject, planknewxpos, planknewypos, 2
`evil
Sprite evilobject, evilnewx, evilnewy, 2
`ball
Sprite ballobject, ballnewx, ballnewy, 1



    sync
loop

`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`GOLBALS
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`whdts/heights

screenwidth = screen width()
screenheight = screen height()
screenwidth10 = (screen width() / 10)
screenheight10 = (screen height() / 10)
screenwidth10 = (screen width() / 10)
screenheight10 = (screen height() / 10)
screenmin10 = (screen width() - 10)
fieldsize = (screenwidth / 2)
`your object
global plankobject = 2
global plankx = 10
global planky
global plankwith = (10)
global plankheight =  (100)
global planknewxpos = screenheight
global planknewypos


`evil object
global evilobject = 3
global evilx = screenmin10
global evily = screenheight10
global evilwith = (screenwidth100)
global evilheight = (screenheight10)
global evilnewx
global evilnewy
global evilspeed = 9

global dosomething = 0
global doright = 0

`AI
global randomAI
global AIdiff
global AIdiffmax

`ball
global ballx = fieldsize
global bally = fieldsize
global ballwith = 10
global ballheight = 10

`--- changed 2 lines here ---
global ballxspeed = 1
global ballyspeed = 1
global ballobject = 1
global ballnewx
global ballnewy


`points
global yourpoints
global evilpoints

`sides
global upsidex = 1
global upsidey = 1
global upsidewith = screenwidth

global downsidex  = 1
global downsidey = screenheight
global downsidewith = screenwidth
global fieldwith = screenwidth

`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`SETUP
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~


`create ball
ink rgb(255,255,255),1
box 0,0,ballwith,ballheight
get image 1,0,0,ballwith, ballheight,0


`create plank and evil

ink rgb(255,255,255),1
box 0,0,plankwith,plankheight
get image 2,0,0,plankwith, plankheight,0


cls



`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`MAIN
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`plank
Sprite plankobject, planknewxpos, planknewypos, 2
`evil
Sprite evilobject, evilnewx, evilnewy, 2
`ball
Sprite ballobject, ballnewx, ballnewy, 1


do



`#######
`take this out to try
    `ballcollision
    remstart if ballx < (plankx + plankwith) and (ballx + ballwith) > plankx
        `hits plankx
        if baly < (planky + plankheight) and (bally + ballheight) > planky
            `hits plank full
            ballxspeed = ballxspeed * -1
        endif
    endif remend
`ballcollision on side
    if (bally + ballheight) > downsidey then ballyspeed = ballyspeed * -1
    if bally < upsidey then yspeed = yspeed * -1
`evilcollision
remstart    if ballx < (evilx + evilwith) and (ballx + ballwith) > evilx
        `hits evilx
        if baly < (evily + evilheight) and (bally + ballheight) > evily
            `hits evil full
            ballxspeed = ballxspeed * -1
        endif
    endifremend



`#######

`new to trie

`ballcollision

if sprite collision( 1, 2) then ballxspeed = ballxspeed *-1
if sprite collision( 1, 3) then ballxspeed = ballxspeed *-1

`move your plank
    `planknewxpos = mousex()
    planknewxpos = 10
    planknewypos = mousey()
    if planknewypos < upsidey then plankypos = upsidey
    if (planknewypos + plankheight) > downsidey then planky = (downsidey - plankheight)

`AI
    `if ballx > fieldsize
        if dosomething = 0
            randomAI = rnd(AIdiffmax)
            if randomAI < AIdiff then doright = 1
            dosomething = 1
        endif
        if doright = 1 `goes to the good side
            if bally < evilplanky then evilnewy = (evily - evilspeed)
            if (bally + ballheight) > (evily + evilheight) then evilnewy = (evily + evilspeed)
        endif
    `endif
    remstart if ballx < fieldsize
        dosomething = 0
        doright = 0
        randomAI = 0
    endif remend

`update ball
ballnewx = ballx + ballxspeed
ballnewy = bally + ballyspeed

`--- added 2 lines here ----
ballx=ballnewx
bally=ballnewy




`!!!!!!!
`REPOSITIONING
`!!!!!!!

`plank
Sprite plankobject, planknewxpos, planknewypos, 2
`evil
Sprite evilobject, evilnewx, evilnewy, 2
`ball
Sprite ballobject, ballnewx, ballnewy, 1

`--- added 5 lines here ---
set cursor 1,1
print "ballx=";ballx
print "bally=";bally
print "ballxspeed";ballxspeed
print "ballyspeed";ballyspeed

    sync
loop

` Pong (gbark)
` DBPro Coding Challenge
` 01/11/08 - 01/12/08

` Screen settings
sync on : sync rate 60
set display mode 640, 480, 32
backdrop on : color backdrop 0
set ambient light 35 : hide light 0
autocam off
set text font "Terminal" : set text size 72
hide mouse


` Create textures for objects
gosub MakeTextures


` Create game objects
` (Player)
make object box 1, 30, 70, 16
texture object 1, 1
` (Cpu)
make object box 2, 30, 70, 16
texture object 2, 2
` (Ball)
make object sphere 3, 30
texture object 3, 3
` (Ball Light)
make light 1
set light range 1, 300
` (Ball Glow Object)
make object plain 4, 300, 300
set object ambient 4, 0
set object light 4, 0
texture object 4, 4
ghost object on 4
disable object zdepth 4


` Set camera
position camera 0, 0, -500
point camera 0, 0, 0


` Start new game
`gosub NewGame


` Prepare for main menu
gameMode = 0


` Main loop
do
   ` Run menu or game loop, depending on current game mode
   if gameMode = 0 then gosub MenuLoop else gosub GameLoop

   sync
loop


` Main menu loop
MenuLoop:
   ` Show the title
   gosub DrawTitle
   
   ` Check for game start
   gosub StartGame
return


` Main game loop
GameLoop:
   ` Move player's paddle
   gosub MovePlayer

   ` Move cpu's paddle
   gosub MoveCpu

   ` Update the ball
   gosub UpdateBall

   ` Draw scores
   gosub DrawScore
return


` Prepare variables for a new game
NewGame:
   ` Reset scores
   playerScore = 0
   cpuScore = 0
   
   ` Prepare for first round
   gosub NextRound
   
   ` Spawn ball in the field center for the first round
   ballX = 0
   ballY = 0
   ballServe = 0

   ` Set the ball in a random direction
   ballXSpeed = rnd(2)+1 : if rnd(1)=1 then ballXSpeed = -ballXSpeed
   ballYSpeed = rnd(2)+1 : if rnd(1)=1 then ballYSpeed = -ballYSpeed
return


` Reset paddles and ball for a new round
NextRound:
   ` Reset paddle positions
   playerY = 0 : playerKick = 0
   cpuY = 0 : cpuKick = 0
   
   ` Reset ball speeds
   ballXSpeed = 0
   ballYSpeed = 0
   
   ` Set cpu difficulty based on score difference
   ` (1 = Easy, 5 = Normal, 10 = Hard)
   cpuLevel = 5 + (playerScore - cpuScore)*2
   if cpuLevel > 10 then cpuLevel = 10
   if cpuLevel < 1 then cpuLevel = 1
   
   ` Set some error for the cpu so it's not "perfect"
   cpuError = (rnd(20-cpuLevel*2)-rnd(20-cpuLevel*2))*(2+rnd(5))
return


` Control player's paddle
MovePlayer:
   ` Determine where to move based on arrow keys
   playerYSpeed = (upkey()-downkey())*5
   
   ` No movement if the ball went past
   if ballX < -300 then playerYSpeed = 0
   
   ` Move player paddle
   inc playerY, playerYSpeed
   
   ` Keep paddle onscreen
   if playerY > 260 then playerY = 260
   if playerY < -260 then playerY = -260
   
   ` Kick paddle with space
   sp = spacekey()
   if sp = 1 and keySpace = 0 and playerKick = 0 then playerKick = 1
   keySpace = sp
   
   ` Update paddle kick
   if playerKick > 0 then inc playerKick, 35
   if playerKick > 180 then playerKick = 0
   
   ` Update paddle position
   position object 1, -300+sin(playerKick)*40, playerY, 0
return


` Control cpu's paddle
MoveCpu:
   ` Guess where the ball will end up
   if (ballXSpeed > 0 or cpuLevel > 6) and ballServe = 0
      ` Look ahead and determine where the ball will end up
      ` (Cpu can look farther ahead the higher the level)
      for i = 1 to 10 + (cpuLevel*6)
         guessX = ballX + ballXSpeed*i
         guessY = ballY + ballYSpeed*i
         if guessY > 280 then guessY = (280-guessY)+280
         if guessY < -280 then guessY = (-280-guessY)-280
         if guessX < -270 then guessX = (-270-guessX)-270
         if guessX > 270 then exit
      next i
      ` Add some error into the cpu's judgement
      inc guessY, cpuError
   endif
   
   ` Determine where to move based on guess
   if abs(cpuY - guessY) < 5 then cpuY = guessY : cpuYSpeed = 0
   if cpuY > guessY then cpuYSpeed = -5
   if cpuY < guessY then cpuYSpeed = 5
   
   ` No movement if the ball went past
   if ballX > 300 then cpuYSpeed = 0
   
   ` Move cpu paddle
   inc cpuY, cpuYSpeed
   
   ` Keep paddle onscreen
   if cpuY > 260 then cpuY = 260
   if cpuY < -260 then cpuY = -260
   
   ` Kick the ball if it is close (and the cpu is a high enough level)
   if cpuLevel > 6 and ballXSpeed > 0 and ballX+ballXSpeed > 260 and ballY > cpuY-50 and ballY < cpuY+50 and cpuKick = 0 and ballServe = 0
      cpuKick = 1
   endif
   
   ` Also kick the ball if it is time to serve
   if ballServe = -1 and abs(cpuY-guessY)<5 and cpuKick = 0
      cpuKick = 1
   endif
   
   ` Update paddle kick
   if cpuKick > 0 then inc cpuKick, 35
   if cpuKick > 180 then cpuKick = 0

   ` Update paddle position
   position object 2, 300-sin(cpuKick)*40, cpuY, 0
return


` Move the ball around the field
UpdateBall:
   ` Check if a player is serving or not
   if ballServe <> 0
      ` A player is serving the ball
      gosub ServeBall
   else
      ` The ball is moving freely around the field
      gosub MoveBall
   endif
   
   ` Update ball position
   position object 3, ballX, ballY, 0
   position light 1, ballX, ballY, -50
   position object 4, ballX, ballY, 0
return


` Ball is in SERVE MODE
ServeBall:
   ` Who is serving the ball?
   if ballServe = 1
      ` Player serving
      ballX = -270
      ballY = playerY

      ` When player kicks, ball has been served
      if playerKick > 0
         ` Ball should be in normal movement mode
         ballServe = 0
         ` Send the ball to the right
         ballXSpeed = 1
         ` Vertical direction should be the same as the paddle's
         ballYSpeed = rnd(3)+2
         if (rnd(1) = 1 or SignVal(playerYSpeed) = -1) and SignVal(playerYSpeed) <> 1 then ballYSpeed = -ballYSpeed
      endif
   else
      ` Cpu serving
      ballX = 270
      ballY = cpuY

      ` When player kicks, ball has been served
      if cpuKick > 0
         ` Ball should be in normal movement mode
         ballServe = 0
         ` Send the ball to the left
         ballXSpeed = -1
         ` Vertical direction should be the same as the paddle's
         ballYSpeed = rnd(3)+2
         if (rnd(1) = 1 or SignVal(cpuYSpeed) = -1) and SignVal(cpuYSpeed) <> 1 then ballYSpeed = -ballYSpeed
      endif
   endif
return


` Ball is in NORMAL MOVE MODE
MoveBall:
   ` Move ball
   inc ballX, ballXSpeed
   inc ballY, ballYSpeed

   ` Bounce off the top and bottom edges
   if ballY > 280
      ballY = 280 : ballYSpeed = -abs(ballYSpeed)
   endif
   if ballY < -280
      ballY = -280 : ballYSpeed = abs(ballYSpeed)
   endif

   ` Bounce off player paddle
   if ballX < -270+sin(playerKick)*40 and ballX > -300 and ballY > playerY-50 and ballY < playerY+50
      ` Bounce towards the right
      ballX = -270+sin(playerKick)*40 : ballXSpeed = abs(ballXSpeed)
      ` Bounce faster if player is kicking
      if playerKick > 0 then inc ballXSpeed, SignVal(ballXSpeed)*3
      ` Bounce vertically if ball and paddle are moving in the same direction
      if playerYSpeed * ballYSpeed > 0
         dec ballXSpeed, SignVal(ballXSpeed)
         inc ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Bounce horizontally if ball and paddle are moving in the opposite direction
      if playerYSpeed * ballYSpeed < 0
         inc ballXSpeed, SignVal(ballXSpeed)
         dec ballYSpeed, SignVal(ballYSpeed)
      endif
   endif

   ` Bounce off cpu paddle
   if ballX > 270-sin(cpuKick)*40 and ballX < 300 and ballY > cpuY-50 and ballY < cpuY+50
      ` Bounce towards the left
      ballX = 270-sin(cpuKick)*40 : ballXSpeed = -abs(ballXSpeed)
      ` Bounce faster if cpu is kicking
      if cpuKick > 0 then inc ballXSpeed, SignVal(ballXSpeed)*3
      ` Bounce vertically if ball and paddle are moving in the same direction
      if cpuYSpeed * ballYSpeed > 0
         dec ballXSpeed, SignVal(ballXSpeed)
         inc ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Bounce horizontally if ball and paddle are moving in the opposite direction
      if cpuYSpeed * ballYSpeed < 0
         inc ballXSpeed, SignVal(ballXSpeed)
         dec ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Set some error for the cpu so it's not "perfect"
      cpuError = (rnd(20-cpuLevel*2)-rnd(20-cpuLevel*2))*(2+rnd(5))
   endif

   ` Keep ball from moving too fast or too slow
   if abs(ballXSpeed) < 2 then ballXSpeed = 2*SignVal(ballXSpeed)    ` Min X speed
   if abs(ballYSpeed) < 2 then ballYSpeed = 2*SignVal(ballYSpeed)    ` Min Y speed
   if abs(ballXSpeed) > 20 then ballXSpeed = 20*SignVal(ballXSpeed)  ` Max X speed
   if abs(ballYSpeed) > 20 then ballYSpeed = 20*SignVal(ballYSpeed)  ` Max Y speed

   ` Check for a score
   if abs(ballX) > 530
      ` Check who scored
      if ballX > 530
         ` Player scored
         inc playerScore
         ` Cpu to serve
         ballServe = -1
         guessY = rnd(260)-rnd(260)
      else
         ` Cpu scored
         inc cpuScore
         ` Player to serve
         ballServe = 1
         ` Cpu to wait
         guessY = 0
      endif

      ` Update stats
      gosub DrawScore

      ` Update screen and sleep
      sync : sleep 1500

      ` Check if anybody has won yet
      if playerScore < 10 and cpuScore < 10
         ` No win yet, next round
         gosub NextRound
      else
         ` Game over, display who won
         if playerScore = 10
            ` Player won
            center text 320, 100, "You Win!"
         else
            ` Cpu won
            center text 320, 10, "You Lose."
         endif
         ` Update the screen and sleep
         sync : sleep 4000
         ` Return to title screen
         gameMode = 0
         set text size 72
      endif
   endif
return


` Draw each player's score
DrawScore:
   ink rgb(200, 200, 200), 0

   ` Player score
   text 200, 30, str$(playerScore)
   
   ` Cpu score
   text 400, 30, str$(cpuScore)
return


` Draw the title screen
DrawTitle:
   ` Title
   ink rgb(255, 255, 255), 0
   center text 320, 50, "Pong"
   
   ` Space to start
   ink rgb(200, 200, 200), 0
   center text 320, 400, "SPACE To Start"
   
   ` Position paddles and ball
   position object 1, -300, 0, 0    ` Player paddle
   position object 2, 300, 0, 0     ` Cpu paddle
   position object 3, 0, 0, 0       ` Ball
   position object 4, 0, 0, 0       ` Ball glow
   position light 1, 0, 0, 0        ` Ball light
return


` Start the game when space is pressed
StartGame:
   ` Check for space key
   sp = spacekey()
   if sp = 1 and keySpace = 0
      ` Prepare main game
      gameMode = 1
      set text size 48
      gosub NewGame
   endif
   keySpace = sp
return


` Make textures for game objects
MakeTextures:
   ` Player paddle
   create bitmap 1, 30, 70
   ` Green background
   ink rgb(0, 255, 0), 0
   box 0, 0, 30, 70
   ` Dark green lines
   ink rgb(0, 128, 0), 0
   line 5, 5, 25, 5 : line 25, 5, 25, 65 : line 25, 65, 5, 65 : line 5, 65, 5, 5
   line 10, 10, 20, 10 : line 20, 10, 20, 60 : line 20, 60, 10, 60 : line 10, 60, 10, 10
   ` Store image
   get image 1, 0, 0, 30, 70
   delete bitmap 1
   
   ` Cpu paddle
   create bitmap 1, 30, 70
   ` Red background
   ink rgb(255, 0, 0), 0
   box 0, 0, 30, 70
   ` Dark red lines
   ink rgb(128, 0, 0), 0
   line 5, 5, 25, 5 : line 25, 5, 25, 65 : line 25, 65, 5, 65 : line 5, 65, 5, 5
   line 10, 10, 20, 10 : line 20, 10, 20, 60 : line 20, 60, 10, 60 : line 10, 60, 10, 10
   ` Store image
   get image 2, 0, 0, 30, 70
   delete bitmap 1
   
   ` Ball
   create bitmap 1, 8, 8
   ` Yellow background
   ink rgb(255, 255, 0), 0
   box 0, 0, 8, 8
   ` Store image
   get image 3, 0, 0, 8, 8
   delete bitmap 1
   
   ` Ball glow
   create bitmap 1, 64, 64
   ` Black background
   ink 0, 0
   box 0, 0, 64, 64
   ` Add glow
   for x = 0 to 64
      for y = 0 to 64
         d# = Dist2(x, y, 32, 32)
         c = 255-(d#/32)*255
         if d# < 32 then dot x, y, rgb(c, c, 0)
      next y
   next x
   ` Store image
   get image 4, 0, 0, 64, 64
   delete bitmap 1
return


` Return the positive/negative sign of any integer
function SignVal(n)
   if n < 0 then exitfunction -1
   if n > 0 then exitfunction 1
endfunction 0

` Return the 2D distance between two points
function Dist2(x1#, y1#, x2#, y2#)
   d# = sqrt((x2#-x1#)*(x2#-x1#) + (y2#-y1#)*(y2#-y1#))
endfunction d#

set text font "Terminal" : set text size 72


`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`GOLBALS
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`whdts/heights

screenwidth = screen width()
screenheight = screen height()
screenwidth10 = (screen width() / 10)
screenheight10 = (screen height() / 10)
screenwidth10 = (screen width() / 10)
screenheight10 = (screen height() / 10)
screenmin10 = (screen width() - 10)
screenmin20 = (screen width() - 20)
screenwidthhalf = (screen width() / 2)

fieldsize = (screenwidth / 2)
`your object
global plankobject = 2
global plankx = 10
global planky
global plankwith = (10)
global plankheight =  (100)
global planknewxpos = screenheight
global planknewypos


`evil object
global evilobject = 3
global evilx = screenmin20
global evily = screenheight10
global evilwith = (screenwidth100)
global evilheight = (screenheight10)
global evilnewx
global evilnewy
global evilspeed = 2

global dosomething = 0
global doright = 0

`AI
global randomAI
global AIdiff
global AIdiffmax

`ball
global ballx = fieldsize
global bally = fieldsize
global ballwith = 10
global ballheight = 10

`--- changed 2 lines here ---
global ballxspeed = 3
global ballyspeed = 3
global ballobject = 1
global ballnewx
global ballnewy


`points
global yourpoints
global evilpoints

`sides
global upsidex = 1
global upsidey = 1
global upsidewith = screenwidth

global downsidex  = 1
global downsidey = screenheight
global downsidewith = screenwidth
global fieldwith = screenwidth

`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`SETUP
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~


`create ball
ink rgb(255,255,255),1
box 0,0,ballwith,ballheight
get image 1,0,0,ballwith, ballheight,0


`create plank and evil

ink rgb(255,255,255),1
box 0,0,plankwith,plankheight
get image 2,0,0,plankwith, plankheight,0


cls


cls

   ` Player score
   text 200, 30, str$(yourpoints)
   
   ` Cpu score
   text 400, 30, str$(evilpoints)

get image 4,0,0,500,40

`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`MAIN
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~
`plank
Sprite plankobject, planknewxpos, planknewypos, 2
`evil
Sprite evilobject, evilnewx, evilnewy, 2
`ball
Sprite ballobject, ballnewx, ballnewy, 1


do



`#######
`take this out to try
    `ballcollision
    remstart if ballx < (plankx + plankwith) and (ballx + ballwith) > plankx
        `hits plankx
        if baly < (planky + plankheight) and (bally + ballheight) > planky
            `hits plank full
            ballxspeed = ballxspeed * -1
        endif
    endif remend
`ballcollision on side
    if (bally + ballheight) > downsidey then ballyspeed = ballyspeed * -1
    if bally < upsidey then ballyspeed = ballyspeed * -1
`evilcollision
remstart    if ballx < (evilx + evilwith) and (ballx + ballwith) > evilx
        `hits evilx
        if baly < (evily + evilheight) and (bally + ballheight) > evily
            `hits evil full
            ballxspeed = ballxspeed * -1
        endif
    endifremend



`#######

`new to trie

`ballcollision

if sprite collision( 1, 2) then ballxspeed = ballxspeed *-1
if sprite collision( 1, 3) then ballxspeed = ballxspeed *-1


`move your plank
    `planknewxpos = mousex()
    planknewxpos = 10
    planknewypos = mousey()
    if planknewypos < upsidey then plankypos = upsidey
    if (planknewypos + plankheight) > downsidey then planky = (downsidey - plankheight)

`AI
    `if ballx > fieldsize
      remstart  if dosomething = 0
            randomAI = rnd(AIdiffmax)
            if randomAI < AIdiff then doright = 1
            dosomething = 1
        endif
        if doright = 1 `goes to the good side remend
            if bally <= evily then evilnewy = (evily - evilspeed)
            if bally  >= evily then evilnewy = (evily + evilspeed)
        `endif
    `endif 
     remstart if ballx < fieldsize
        dosomething = 0
        doright = 0
        randomAI = 0
    endif remend
evilnewx = screenmin20
`update ball
ballnewx = ballx + ballxspeed
ballnewy = bally + ballyspeed

`--- added 2 lines here ----
ballx=ballnewx
bally=ballnewy

evilx = evilnewx
`evily = evilnewy



`!!!!!!!
`REPOSITIONING
`!!!!!!!

`plank
Sprite plankobject, planknewxpos, planknewypos, 2
`evil
Sprite evilobject, evilnewx, evilnewy, 2
`ball
Sprite ballobject, ballnewx, ballnewy, 1
`score
   ` Player score
   text 200, 30, str$(yourpoints)
   
   ` Cpu score
   text 400, 30, str$(evilpoints)

`show score


` Draw each player's score
DrawScore:
  ` ink rgb(200, 200, 200), 0
remstart
   ` Player score
   text 200, 30, str$(yourscore)
   
   ` Cpu score
   text 400, 30, str$(evilscore)
remend 

`--- added 5 lines here ---
`set cursor 1,1
remstart print "ballx=";ballx
print "bally=";bally
print "ballxspeed";ballxspeed
print "ballyspeed";ballyspeed
remend
evily = evilnewy
    sync
    
    
    
    
`scoring

if ballx < 0 
    ballxspeed = ballxspeed * -1 :
     score(1)
     endif
if ballx > screenwidth 
    ballxspeed = ballxspeed * -1 
     score(0)
    endif
loop




function score(whoscored)
if whoscored = 0 then yourpoints = yourpoints + 1
if whoscored = 1 then evilpoints = evilpoints + 1


   ` Player score
   text 200, 30, str$(yourpoints)
   
   ` Cpu score
   text 400, 30, str$(evilpoints)

sleep 3000

`kick off
ballx = fieldsize
ballnewy = fieldsize
ballnewx = fieldsize
bally = fieldsize

endfunction

` Pong (gbark)
` DBPro Coding Challenge
` 01/11/08 - 01/20/08

` Screen settings
sync on : sync rate 60
set display mode 640, 480, 32
backdrop on : color backdrop 0
set ambient light 35 : hide light 0
autocam off
set text font "Terminal" : set text size 72
hide mouse


` Create textures for objects
gosub MakeTextures


` Create game objects
` (Player)
make object box 1, 30, 70, 16
texture object 1, 1
` (Cpu)
make object box 2, 30, 70, 16
texture object 2, 2
` (Ball)
make object sphere 3, 30
texture object 3, 3
` (Ball Light)
make light 1
set light range 1, 300
` (Ball Glow Object)
make object plain 4, 300, 300
set object ambient 4, 0
set object light 4, 0
texture object 4, 4
ghost object on 4
disable object zdepth 4


` Set camera
position camera 0, 0, -500
point camera 0, 0, 0


` Prepare for main menu
gameMode = 0


` Main loop
do
   ` Run menu or game loop, depending on current game mode
   if gameMode = 0 then gosub MenuLoop else gosub GameLoop

   sync
loop


` Main menu loop
MenuLoop:
   ` Show the title
   gosub DrawTitle
   
   ` Check for game start
   gosub StartGame
return


` Main game loop
GameLoop:
   ` Move player's paddle
   gosub MovePlayer

   ` Move cpu's paddle
   gosub MoveCpu

   ` Update the ball
   gosub UpdateBall

   ` Draw scores
   gosub DrawScore
return


` Prepare variables for a new game
NewGame:
   ` Reset scores
   playerScore = 0
   cpuScore = 0
   
   ` Prepare for first round
   gosub NextRound
   
   ` Spawn ball in the field center for the first round
   ballX = 0
   ballY = 0
   ballServe = 0

   ` Set the ball in a random direction
   ballXSpeed = rnd(2)+1 : if rnd(1)=1 then ballXSpeed = -ballXSpeed
   ballYSpeed = rnd(2)+1 : if rnd(1)=1 then ballYSpeed = -ballYSpeed
return


` Reset paddles and ball for a new round
NextRound:
   ` Reset paddle positions
   playerY = 0 : playerKick = 0
   cpuY = 0 : cpuKick = 0
   
   ` Reset ball speeds
   ballXSpeed = 0
   ballYSpeed = 0
   
   ` Set cpu difficulty based on score difference
   ` (1 = Easy, 5 = Normal, 10 = Hard)
   cpuLevel = 5 + (playerScore - cpuScore)
   if cpuLevel > 10 then cpuLevel = 10
   if cpuLevel < 1 then cpuLevel = 1
   
   ` Ball is moving slowly at the beginning of the round, so cpu should not miss
   cpuError = 0
return


` Control player's paddle
MovePlayer:
   ` Determine where to move based on arrow keys
   playerYSpeed = (upkey()-downkey())*5
   
   ` No movement if the ball went past
   if ballX < -300 then playerYSpeed = 0
   
   ` Move player paddle
   inc playerY, playerYSpeed
   
   ` Keep paddle onscreen
   if playerY > 260 then playerY = 260
   if playerY < -260 then playerY = -260
   
   ` Kick paddle with space
   sp = spacekey()
   if sp = 1 and keySpace = 0 and playerKick = 0 then playerKick = 1
   keySpace = sp
   
   ` Update paddle kick
   if playerKick > 0 then inc playerKick, 35
   if playerKick > 180 then playerKick = 0
   
   ` Update paddle position
   position object 1, -300+sin(playerKick)*40, playerY, 0
return


` Control cpu's paddle
MoveCpu:
   ` Guess where the ball will end up
   if ballXSpeed > 0 or cpuLevel >= 6 and ballServe = 0
      ` Move to where the ball will end up
      cpuGuessY = PredictBall(ballX, ballY, ballXSpeed, ballYSpeed, 270, (cpuLevel+10)*10)
      ` Add some error to the cpu's judgement (more error if the cpu is winning)
      inc cpuGuessY, cpuError
   else
      ` Return to center screen
      if ballServe = 0 then cpuGuessY = 0
   endif

   ` Determine where to move based on guess
   if cpuY > cpuGuessY then cpuYSpeed = -5
   if cpuY < cpuGuessY then cpuYSpeed = 5
   if abs(cpuY - cpuGuessY) < 5 then cpuYSpeed = 0
   
   ` No movement if the ball went past
   if ballX > 300 then cpuYSpeed = 0
   
   ` Move cpu paddle
   inc cpuY, cpuYSpeed
   
   ` Keep paddle onscreen
   if cpuY > 260 then cpuY = 260
   if cpuY < -260 then cpuY = -260
   
   ` Kick the ball if it is close (and the cpu is a high enough level)
   if cpuLevel >= 7 and ballXSpeed > 0 and ballX+ballXSpeed > 260 and ballY > cpuY-50 and ballY < cpuY+50 and cpuKick = 0 and ballServe = 0
      cpuKick = 1
   endif
   
   ` Also kick the ball if it is time to serve
   if ballServe = -1 and abs(cpuY-cpuGuessY)<5 and cpuKick = 0
      cpuKick = 1
   endif
   
   ` Update paddle kick
   if cpuKick > 0 then inc cpuKick, 35
   if cpuKick > 180 then cpuKick = 0

   ` Update paddle position
   position object 2, 300-sin(cpuKick)*40, cpuY, 0
return


` Move the ball around the field
UpdateBall:
   ` Check if a player is serving or not
   if ballServe <> 0
      ` A player is serving the ball
      gosub ServeBall
   else
      ` The ball is moving freely around the field
      gosub MoveBall
   endif
   
   ` Update ball position
   position object 3, ballX, ballY, 0
   position light 1, ballX, ballY, -50
   position object 4, ballX, ballY, 0
return


` Ball is in SERVE MODE
ServeBall:
   ` Who is serving the ball?
   if ballServe = 1
      ` Player serving
      ballX = -270
      ballY = playerY

      ` When player kicks, ball has been served
      if playerKick > 0
         ` Ball should be in normal movement mode
         ballServe = 0
         ` Send the ball to the right
         ballXSpeed = 1
         ` Vertical direction should be the same as the paddle's
         ballYSpeed = rnd(3)+2
         if (rnd(1) = 1 or SignVal(playerYSpeed) = -1) and SignVal(playerYSpeed) <> 1 then ballYSpeed = -ballYSpeed
      endif
   else
      ` Cpu serving
      ballX = 270
      ballY = cpuY

      ` When cpu kicks, ball has been served
      if cpuKick > 0
         ` Ball should be in normal movement mode
         ballServe = 0
         ` Send the ball to the left
         ballXSpeed = -1
         ` Vertical direction should be the same as the paddle's
         ballYSpeed = rnd(3)+2
         if (rnd(1) = 1 or SignVal(cpuYSpeed) = -1) and SignVal(cpuYSpeed) <> 1 then ballYSpeed = -ballYSpeed
      endif
   endif
return


` Ball is in NORMAL MOVE MODE
MoveBall:
   ` Move ball
   inc ballX, ballXSpeed
   inc ballY, ballYSpeed

   ` Bounce off the top and bottom edges
   if ballY > 280 or ballY < -280
      ballYSpeed = -ballYSpeed
      dec ballY, ballY mod 280
   endif

   ` Bounce off player paddle
   if ballX < -270+sin(playerKick)*40 and ballX > -300 and ballY > playerY-50 and ballY < playerY+50
      ` Bounce towards the right
      ballX = -270+(playerKick>0)*40 : ballXSpeed = abs(ballXSpeed)
      ` Bounce faster if player is kicking
      if playerKick > 0 then inc ballXSpeed, SignVal(ballXSpeed)*5
      ` Bounce vertically if ball and paddle are moving in the same direction
      if playerYSpeed * ballYSpeed > 0
         dec ballXSpeed, SignVal(ballXSpeed)
         inc ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Bounce horizontally if ball and paddle are moving in the opposite direction
      if playerYSpeed * ballYSpeed < 0
         inc ballXSpeed, SignVal(ballXSpeed)
         dec ballYSpeed, SignVal(ballYSpeed)
      endif
   endif

   ` Bounce off cpu paddle
   if ballX > 270-sin(cpuKick)*40 and ballX < 300 and ballY > cpuY-50 and ballY < cpuY+50
      ` Bounce towards the left
      ballX = 270-(cpuKick>0)*40 : ballXSpeed = -abs(ballXSpeed)
      ` Bounce faster if cpu is kicking
      if cpuKick > 0 then inc ballXSpeed, SignVal(ballXSpeed)*5
      ` Bounce vertically if ball and paddle are moving in the same direction
      if cpuYSpeed * ballYSpeed > 0
         dec ballXSpeed, SignVal(ballXSpeed)
         inc ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Bounce horizontally if ball and paddle are moving in the opposite direction
      if cpuYSpeed * ballYSpeed < 0
         inc ballXSpeed, SignVal(ballXSpeed)
         dec ballYSpeed, SignVal(ballYSpeed)
      endif
      ` Set some error for the cpu so it's not "perfect"
      cpuError = (rnd(30-cpuLevel*2)-rnd(30-cpuLevel*2))*(3+rnd(abs(ballYSpeed)/3))
   endif

   ` Keep ball from moving too fast or too slow
   if abs(ballXSpeed) < 2 then inc ballXSpeed, ballXSpeed mod 2      ` Min X speed
   if abs(ballYSpeed) < 2 then inc ballYSpeed, ballYSpeed mod 2      ` Min Y speed
   if abs(ballXSpeed) > 20 then dec ballXSpeed, ballXSpeed mod 20    ` Max X speed
   if abs(ballYSpeed) > 20 then dec ballYSpeed, ballYSpeed mod 20    ` Max Y speed

   ` Check for a score
   if abs(ballX) > 550
      ` Check who scored
      if ballX > 550
         ` Player scored
         inc playerScore
         ` Cpu to serve
         ballServe = -1
         cpuGuessY = rnd(260)-rnd(260)
      else
         ` Cpu scored
         inc cpuScore
         ` Player to serve
         ballServe = 1
         ` Cpu to wait
         cpuGuessY = 0
      endif

      ` Update stats
      gosub DrawScore

      ` Update screen and sleep
      sync : sleep 1500

      ` Check if anybody has won yet
      if playerScore < 10 and cpuScore < 10
         ` No win yet, next round
         gosub NextRound
      else
         ` Game over, display who won
         if playerScore = 10
            ` Player won
            center text 320, 100, "You Win!"
         else
            ` Cpu won
            center text 320, 100, "You Lose."
         endif
         ` Update the screen and sleep
         sync : sleep 3000
         ` Return to title screen
         gameMode = 0
         set text size 72
      endif
   endif
return


` Guess where ball will end up when it reached the cpu
function PredictBall(x, y, xSpeed, ySpeed, targetX, maxLook)
   ` Assume the ball is moving to the right (from the player)
   xSpeed = abs(xSpeed)

   ` Determine distance from ball to target
   dist = abs(targetX-x)
   if dist > maxLook then dist = maxLook

   ` Guess where the ball will end up
   if xSpeed <> 0 then guessY = y + (ySpeed*dist/xSpeed)

   ` "Bounce" the guess off the screen edges
   if guessY > 280 then guessY = (280-guessY)+280
   if guessY < -280 then guessY = (-280-guessY)-280
endfunction guessY


` Draw each player's score
DrawScore:
   ink rgb(200, 200, 200), 0

   ` Player score
   text 200, 30, str$(playerScore)
   
   ` Cpu score
   text 400, 30, str$(cpuScore)
return


` Draw the title screen
DrawTitle:
   ` Title
   ink rgb(255, 255, 255), 0
   center text 320, 50, "Pong"
   
   ` Space to start
   ink rgb(200, 200, 200), 0
   center text 320, 400, "SPACE To Start"
   
   ` Position paddles and ball
   position object 1, -300, 0, 0    ` Player paddle
   position object 2, 300, 0, 0     ` Cpu paddle
   position object 3, 0, 0, 0       ` Ball
   position object 4, 0, 0, 0       ` Ball glow
   position light 1, 0, 0, 0        ` Ball light
return


` Start the game when space is pressed
StartGame:
   ` Check for space key
   sp = spacekey()
   if sp = 1 and keySpace = 0
      ` Prepare main game
      gameMode = 1
      set text size 48
      gosub NewGame
   endif
   keySpace = sp
return


` Make textures for game objects
MakeTextures:
   ` Player paddle
   create bitmap 1, 30, 70
   ` Green background
   ink rgb(0, 255, 0), 0
   box 0, 0, 30, 70
   ` Dark green lines
   ink rgb(0, 128, 0), 0
   line 5, 5, 25, 5 : line 25, 5, 25, 65 : line 25, 65, 5, 65 : line 5, 65, 5, 5
   line 10, 10, 20, 10 : line 20, 10, 20, 60 : line 20, 60, 10, 60 : line 10, 60, 10, 10
   ` Store image
   get image 1, 0, 0, 30, 70
   delete bitmap 1
   
   ` Cpu paddle
   create bitmap 1, 30, 70
   ` Red background
   ink rgb(255, 0, 0), 0
   box 0, 0, 30, 70
   ` Dark red lines
   ink rgb(128, 0, 0), 0
   line 5, 5, 25, 5 : line 25, 5, 25, 65 : line 25, 65, 5, 65 : line 5, 65, 5, 5
   line 10, 10, 20, 10 : line 20, 10, 20, 60 : line 20, 60, 10, 60 : line 10, 60, 10, 10
   ` Store image
   get image 2, 0, 0, 30, 70
   delete bitmap 1
   
   ` Ball
   create bitmap 1, 8, 8
   ` Yellow background
   ink rgb(255, 255, 0), 0
   box 0, 0, 8, 8
   ` Store image
   get image 3, 0, 0, 8, 8
   delete bitmap 1
   
   ` Ball glow
   create bitmap 1, 64, 64
   ` Black background
   ink 0, 0
   box 0, 0, 64, 64
   ` Add glow
   for x = 0 to 64
      for y = 0 to 64
         d# = sqrt((32-x)*(32-x) + (32-y)*(32-y))
         c = 255-(d#/32)*255
         if d# < 32 then dot x, y, rgb(c, c, 0)
      next y
   next x
   ` Store image
   get image 4, 0, 0, 64, 64
   delete bitmap 1
return


` Return the positive/negative sign of any integer
function SignVal(n)
   if n < 0 then exitfunction -1
   if n > 0 then exitfunction 1
endfunction 0

create bitmap 1,10,50
set current bitmap 1
cls rgb(255,255,255)
get image 1,0,0,bitmap width(1),bitmap height(1),1
delete bitmap 1
create bitmap 1,20,20
circle bitmap width(1)/2-1, bitmap height(1)/2-1,bitmap width(1)/2-1
get image 2,0,0,bitmap width(1),bitmap height(1),1
delete bitmap 1
set current bitmap 0

Global Dim Ball(3) as float,P1,P2
Global X1,X2,Y1,Y2,Dim C(3,5)
Global ng as float

Ball(0)=screen width()/2 : Ball(1)=screen height()/2 : Ball(2)=1 : Ball(3)=1
sprite 1,0,screen height()/2,1
sprite 2,0,screen height()/2,1
sprite 3,Ball(0),Ball(1),2
sync on : sync rate 60

randomize timer()

for b=0 to 3
 for v=0 to 2
 C(b,v)=rnd(255)
 C(b,v+3)=1+rnd(1)*(-2)
 next v
next b

ng=3
do
 if ng<1 then X1=1 : X2=screen width()-1 : Y1=1 : Y2=screen height()-1
 cls rgb(255,255,255)
 box 1,1,screen width()-1,screen height()-1,_Color(0),_Color(1),_Color(2),_Color(3)
 line 50,0,50,screen height()
 line screen width()-50,0,screen width()-50,screen height()
 _Score()
 if ng>1
  if ng=3 then X1=screen width()/2-rnd(30)-20 : Y1=screen height()/2-rnd(30)-20 : X2=screen width()/2+rnd(30)+20 : Y2=screen height()/2+rnd(30)+20 : Ball(2)=1 : Ball(3)=1
  line X1,Y1,X1,Y2 : `<
  line X1,Y1,X2,Y1 : `^
  line X2,Y2,X2,Y1 : `>
  line X2,Y2,X1,Y2 : `v
  dec ng,0.016
  center text screen width()/2, screen height()/2,_Round_Number(ng)
 endif
 sprite 1,45,_Move(1),1
 sprite 2,screen width()-55,_Move(2),1
 sprite 3,_Ball(0)-10,_Ball(1)-10,2
 if escapekey() then end
 sync
loop

Function _Move(n)

 key=17 : i=14
 Y=0
 if n=2 then key=72 : i=4

 if keystate(key)=1 then Y=-4
 if keystate(key+i)=1 then Y=4

 if sprite y(n)+Y>-1 and sprite y(n)+Y+50<screen height()+3
  Y=Y+sprite y(n)
 else
  Y=sprite y(n)
 endif

endfunction Y

Function _Ball(n)

 if (Ball(0)+10)>X2 or (Ball(0)-10)<X1 then Ball(2)=Ball(2)*(-1)
 if (Ball(1)+10)>Y2 or (Ball(1)-10)<Y1  then Ball(3)=Ball(3)*(-1)

 if sprite hit(3,1)=1 and n=0
  Ball(2)=Ball(2)*(-1)
  Ball(0)=Ball(0)+Ball(2)+1
  if Ball(2)>0
   Ball(2)=Ball(2)+0.1
  else
   Ball(2)=Ball(2)-0.1
  endif
 endif
 if sprite hit(3,2)=1 and n=0
  Ball(2)=Ball(2)*(-1)
  Ball(0)=Ball(0)+Ball(2)-1
  if Ball(2)>0
   Ball(2)=Ball(2)+0.1
  else
   Ball(2)=Ball(2)-0.1
  endif
 endif
 if Ball(2)>5 then Ball(2)=5
 if Ball(2)<-5 then Ball(2)=-5

 Ball(0)=Ball(0)+Ball(2)
 Ball(1)=Ball(1)+Ball(3)

 C=Ball(0)
 if n=1 then C=Ball(1)
endfunction C

Function _Score()

 if Ball(0)<50 then inc P2 : Ball(0)=screen width()/2 : Ball(1)=screen height()/2 : Ball(2)=1 : ng=3
 if Ball(0)>screen width()-50 then inc P1 : Ball(0)=screen width()/2 : Ball(1)=screen height()/2: Ball(2)=-1 : ng=3

 center text screen width()/2,0,"Player 1:" + str$(P1) + "  " + "Player 2:" + str$(P2)
 center text screen width()/2,screen height()-20,"Player 1-> W and S  Player 2-> Num8 and Num5"
endfunction

Function _Round_Number(n as float )

 txt$=str$(n)
 i=1
 while mid$(txt$,i)<>"."
  inc i
 endwhile
 i=i+2
 txt$=left$(txt$,i)

endfunction txt$

Function _Color(n)
 Color as dword

 if rnd(1000)<5 then C(n,3)=C(n,3)*(-1)
 if rnd(1000)<5 then C(n,4)=C(n,4)*(-1)
 if rnd(1000)<5 then C(n,5)=C(n,5)*(-1)

 C(n,0)=C(n,0)+C(n,3)
 C(n,1)=C(n,1)+C(n,4)
 C(n,2)=C(n,2)+C(n,5)

 red=C(n,0)
 green=C(n,1)
 blue=C(n,2)

 if red>254 or red<1 then C(n,3)=C(n,3)*(-1)
 if green>254 or green<1 then C(n,4)=C(n,4)*(-1)
 if blue>254 or blue<1 then C(n,5)=C(n,5)*(-1)

 Color=rgb(red,green,blue)

endfunction Color

rem ------- Dark Pong -------
rem --- Competition entry ---
rem ---- By Gary Jeffery ----

set display mode 800,600,32
set window size 800,800
set window on
color backdrop rgb(0,0,0)
sync rate 60
autocam off
hide mouse


type bouncy
   angle as integer
   speed as float
endtype

ball as bouncy
global p1score
global p2score


p1score=1
p2score=1
BatAngle=0

Make_Score_Images()
Make_3DMedia()
Setup_Ball()

EndOfGame=0
repeat
   main_loop()
   
   if object position z(1)>30
      inc p1score
      Setup_Ball()
      if p1score=6 then EndOfGame=1
   endif
   if object position z(1)<-30
      inc p2score
      Setup_Ball()
      if p2score=6 then EndOfGame=1
   endif
until EndOfGame=1
ink rgb(255,255,0),0
repeat
    center text 400,300,"Game Over"
until inkey$()<>""
end

function main_loop()

   if object hit(1,2) or object hit(1,3) then Change_Ball_Angle(ball.angle,2)
   if object collision(1,4) or object collision(1,5) then Change_Ball_Angle(ball.angle,1)
   
   if rightkey() and object position x(2)<12 then position object 2,object position x(2)+0.4,0,-20
   if leftkey() and object position x(2)>-12 then position object 2,object position x(2)-0.4,0,-20
   move object 1,ball.speed

   if object position x(1)<object position x(3) and object position x(3)>-12 then move object up 3,0.3+(0.05*p1score)
   if object position x(1)>object position x(3) and object position x(3)<12 then move object down 3,0.3+(0.05*p1score)

   sprite 1,32,32,p1score
   sprite 2,700,32,p2score

endfunction

function Change_Ball_Angle(Old_Ball_Angle as integer,mode as integer)
   if mode=1
      Wall_Angle=int(ball.angle/90)*90
      if Wall_Angle=0 then Wall_Angle=360
      select Wall_Angle
         case 90 :
            ball.angle=wrapvalue(180+(180-Old_Ball_Angle))
         endcase

         case 180 :
            ball.angle=wrapvalue(180+(180-Old_Ball_Angle))
         endcase

         case 270 :
            ball.angle=wrapvalue(90-(Old_Ball_Angle-270))
         endcase

         case 360 :
            ball.angle=wrapvalue(360-Old_Ball_Angle)
         endcase
      endselect
   endif
   if mode=2
      Wall_Angle=int(ball.angle/90)*90
      if Wall_Angle=0 then Wall_Angle=360
      select Wall_Angle
         case 90 :
            ball.angle=wrapvalue(86+(90-Old_Ball_Angle)+rnd(8))
         endcase

         case 180 :
            ball.angle=wrapvalue(86-(Old_Ball_Angle-90)+rnd(8))
         endcase

         case 270 :
            ball.angle=wrapvalue(266+(270-Old_Ball_Angle)+rnd(8))
         endcase

         case 360 :
            ball.angle=wrapvalue(176+(360-Old_Ball_Angle)+rnd(8))
         endcase
      endselect
         inc ball.speed,0.01
   endif

   rotate object 1,0,ball.angle,0

endfunction

function Setup_Ball()
   ball.angle=rnd(20)+35
   ball.speed=0.5
   rotate object 1,0,ball.angle,0
   position object 1,0,0,0
   position object 2,0,0,-20
   position object 3,0,0,20
endfunction

function Make_Score_Images()
   create bitmap 1,50,50
   set current bitmap 1
   for x=1 to 5
      for m=0 to 4
         for n=0 to 4
            read a
            if a=1 then ink rgb(255,255,255),0 else ink 0,0
            box n*5,m*5,(n*5)+4,(m*5)+4
         next n
      next m
      get image x,0,0,24,24
   next x
   data 1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,1,1,1,1
   data 0,0,1,0,0,0,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,1,1,1,0
   data 0,1,1,1,0,1,0,0,0,1,0,0,0,1,0,0,1,1,0,0,1,1,1,1,1
   data 0,1,1,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,0
   data 0,0,0,1,0,0,0,1,1,0,0,1,0,1,0,1,1,1,1,1,0,0,0,1,0
   set current bitmap 0
endfunction

function Make_3DMedia()
   position camera 0,15,-33
   rotate camera 33,0,0
   make object sphere 1,1
   make object cylinder 2,1
   scale object 2,100,400,100
   make mesh from object 1,1
   make mesh from object 2,1
   make mesh from object 3,2
   delete object 2
   make object 2,3,0
   add limb 2,1,1
   add limb 2,2,2
   offset limb 2,1,0,2,0
   offset limb 2,2,0,-2,0
   make mesh from object 3,2
   delete object 2
   make object 2,3,0
   color object 2,rgb(255,0,0)
   set object ambient 2,0
   rotate object 2,0,0,90
   position object 2,0,0,-20
   clone object 3,2
   position object 3,0,0,20
   set object diffuse 1,rgb(128,128,128)
   set object specular 1,rgb(255,255,255)
   set object specular power 1,100
   set object ambient 1,0
   make object box 4,1,1,40
   color object 4,rgb(255,0,0)
   create bitmap 2,32,32
   set current bitmap 2
   box 1,1,32,32,rgb(255,0,0),rgb(255,255,0),rgb(255,0,0),rgb(255,255,0)
   get image 6,1,1,32,32
   set current bitmap 0
   texture object 4,6
   clone object 5,4
   position object 4,-15,0,0
   position object 5,15,0,0
   set object collision to boxes 1
   set object collision to boxes 2
   set object collision to boxes 3
   set object collision to boxes 4
   set object collision to boxes 5
endfunction

set_displaymode()
create_graphics()
Global ball_y
Global ball_x
Global ai_y
Global p1_score
Global p2_score
Global speed#
Global dir$
Global y_speed#
Global bg01_x#
Global bg02_x#
y_speed# = 2
dir$ = "right"
ball_x = screen width()/2 : ball_y = screen height()/2
p1_score = 0 : p2_score = 0
speed# = 2

do

   cls
   scroll_bg()
   p1_score(p1_score)
   p2_score(p2_score)
   p1_control()
   ai_control()
   ball_movement()
   ball_collision()
   ball_score()
   sync rate 70

loop

function scroll_bg()

   sprite 4,bg01_x#,0,200
   sprite 5,bg01_x#+screen width(),0,200
   sprite 6,bg02_x#,0,201
   sprite 7,bg02_x#+screen width(),0,201
   dec bg01_x#,0.5+(speed#*0.5) : dec bg02_x#,1+(speed#*0.5)
   if bg01_x# < -screen width() Then bg01_x# = 0
   if bg02_x# < -screen width() Then bg02_x# = 0


endfunction

function ball_score()

   if ball_x > screen width()
      inc p1_score,1+speed#
      ball_x = screen width()/2
      ball_y = screen height()/2
      y_speed# = 2
      speed# = 2
   endif
   if ball_x < 0
      inc p2_score,1+speed#
      ball_x = screen width()/2
      ball_y = screen height()/2
      speed# = 2
      y_speed# = 2
   endif

endfunction

function ball_movement()

   inc ball_y,y_speed#
   if dir$="right" Then inc ball_x,speed#
   if dir$="left" Then dec ball_x,speed#
   sprite 1,ball_x,ball_y,500

endfunction

function ball_collision()

   if ball_y > screen height()
      y_speed# = -y_speed#
   endif
   if ball_y < 0
      y_speed# = -y_speed#
   endif
   if SPRITE COLLISION(1,2)
      dir$ = "right"
      inc speed#,0.5
      y_speed# = speed#*rnd(1)+1
   endif
   if SPRITE COLLISION(1,3)
      dir$ = "left"
      inc speed#,0.5
      y_speed# = speed#*rnd(1)+1
   endif

endfunction

function ai_control()

   bally = mousey()
   if ai_y < ball_y+40 And ball_x > screen height()/2 then inc ai_y,10+speed#
   if ai_y > ball_y-40 And ball_x > screen height()/2 then dec ai_y,10+speed#
   sprite 3,screen width()-50,ai_y,501

endfunction
function p1_control()

   sprite 2,30,mouseY(),501

endfunction

function set_displaymode()

   set display mode 1024,768,32
   Sync Rate 70
   Hide Mouse


endfunction

function p1_score(p1_score)

      if p1_score = 0 Then paste image 1,200,40,1
      if p1_score < 10 and p1_score > 0
         paste image p1_score+1,200,40
      endif
      if p1_score >=10 and p1_score < 100
         paste image (p1_score/10)+1,200,40,1
         paste image (p1_score MOD 10)+1,240,40,1
      endif
      if p1_score >= 100 and p1_score < 1000
         paste image (p1_score/100)+1,200,40,1
         paste image ((p1_score MOD 100)/10)+1,240,40,1
         paste image ((p1_score MOD 100) MOD 10)+1,280,40,1
      endif

endfunction

function p2_score(p2_score)

      if p2_score = 0 Then paste image 1,650,40,1
      if p2_score < 10 and p2_score > 0
         paste image p2_score+1,650,40
      endif
      if p2_score >=10 and p2_score < 100
         paste image (p2_score/10)+1,650,40,1
         paste image (p2_score MOD 10)+1,690,40,1
      endif
      if p2_score >= 100 and p2_score < 1000
         paste image (p2_score/100)+1,650,40,1
         paste image ((p2_score MOD 100)/10)+1,690,40,1
         paste image ((p2_score MOD 100) MOD 10)+1,730,40,1
      endif

endfunction


function create_graphics()

   Set Text Font "Arial Bold"
   ink rgb(255,255,0),1
   Set Cursor (screen width()/2)-25,(screen height()/2)-50 : Print "LOADING"
   box (screen width()/2)-150,(screen height()/2)-25,(screen width()/2)+150,(screen height()/2+25)
   ink rgb(0,0,0),1
   box (screen width()/2)-148,(screen height()/2)-23,(screen width()/2)+149,(screen height()/2+23)
   ink rgb(255,255,0),1
   box (screen width()/2)-146,(screen height()/2)-21,(screen width()/2)-100,(screen height()/2+21)
   sync
   REM Make Background
   cls : ink rgb(255,255,255),1
   for i = 0 to 500
      dot rnd(screen width()),rnd(screen height())
   next i
   get image 200,0,0,screen width(),screen height()
   cls
   for i = 0 to 100
      circle rnd(screen width()),rnd(screen height()),1
   next i
   get image 201,0,0,screen width(),screen height()
   cls
   REM Make The Ball
   _centerX = 200 : _centerY = 200
   ballradius# = 10
for i = 0 to 360
   angle# = i
  ballx#=ballradius#*cos(angle#)+_centerX
  bally#=ballradius#*sin(angle#)+_centerY
  ink rgb(255,255,255),1
  line _centerX,_centerY, ballx#,bally#
next i
   r# = 50 : g# = 50 : b# = 50
   for a = 188 to 212
      for b = 188 to 212
         ink rgb(r#,g#,b#),1
         red = RGBR(point(b,a))
         if red = 255 Then dot b,a,RGB(r#,g#,b#)
      next b
      inc g#,10 : inc r#,10 : inc b#,10
   next a
   ballradius# = 8
   for i = 0 to 360
      angle# = i
     ballx#=ballradius#*cos(angle#)+_centerX
     bally#=ballradius#*sin(angle#)+_centerY
     ink rgb(255,255,255),1
     line _centerX,_centerY, ballx#,bally#
   next i
   r# = 50 : g# = 0 : b# = 0
   for a = 188 to 212
      for b = 188 to 212
         ink rgb(r#,g#,b#),1
         red = RGBR(point(b,a))
         if red = 255 Then dot b,a,RGB(r#,g#,b#)
      next b
      inc r#,10
   next a
   get image 500,188,188,212,221,1
   cls : sync
   ink rgb(255,255,0),1
   Set Cursor (screen width()/2)-25,(screen height()/2)-50 : Print "LOADING"
   box (screen width()/2)-150,(screen height()/2)-25,(screen width()/2)+150,(screen height()/2+25)
   ink rgb(0,0,0),1
   box (screen width()/2)-148,(screen height()/2)-23,(screen width()/2)+149,(screen height()/2+23)
   ink rgb(255,255,0),1
   box (screen width()/2)-146,(screen height()/2)-21,(screen width()/2)-50,(screen height()/2+21)
   sync

   Set Text Size 75
   global r# : Global g#
   r# = 255 : g# = 0
      cls
      Set Cursor 10,100 : Print "0  1  2  3  4  5  6  7  8  9" ` 160 to 114 X 693
   ink rgb(r#,g#,0),1
   for y = 114 to 160
      for x = 0 to 700
         ink rgb(r#,g#,0),1
         `set cursor 10,400 : Print RGBR(point(mousex(),mousey()))
         `circle mousex(),mousey(),5
         red = RGBR(point(x,y))
         `g = RGBG(point(mousex(),mousey()))
         `b = RGBB(point(mousex(),mousey()))
         if red = 255 Then dot x,y,RGB(r#,g#,0)
      next x
      inc g#,4
   next y
   get image 999,10,114,700,160
   paste image 999,10,114
   Get Image 1,2,114,52,160
   Get Image 2,75,114,125,160
   Get Image 3,146,114,196,160
   Get Image 4,217,114,267,160
   Get Image 5,289,114,339,160
   Get Image 6,363,114,413,160
   Get Image 7,434,114,484,160
   Get Image 8,506,114,556,160
   Get Image 9,578,114,628,160
   Get Image 10,650,114,700,160
   cls : sync
   ink rgb(255,255,0),1
   set text size 12
   Set Cursor (screen width()/2)-25,(screen height()/2)-50 : Print "LOADING"
   box (screen width()/2)-150,(screen height()/2)-25,(screen width()/2)+150,(screen height()/2+25)
   ink rgb(0,0,0),1
   box (screen width()/2)-148,(screen height()/2)-23,(screen width()/2)+149,(screen height()/2+23)
   ink rgb(255,255,0),1
   box (screen width()/2)-146,(screen height()/2)-21,(screen width()/2)+50,(screen height()/2+21)
   sync
  ` do
  `    p1_score(11)
  ` loop

   REM MAKE THE PADDLE
   r# = 27 : g# = 22 : b# = 77
   ink rgb(r#,g#,b#),1
   for i = 0 to 99
      line 10,10+i,35,10+i
      if i < 25
         inc r#,9.1 : inc g#,8.4 : inc b#,6.9
      endif
      if i > 25
         dec r#,9.5*0.33 : dec g#,8.8*0.33 : dec b#,7.00*0.33
      endif
      ink rgb(r#,g#,b#),1
   next i
      REM INNER PADDLE
   r# = 27 : g# = 22 : b# = 77
   ink rgb(r#,g#,b#),1
   for i = 0 to 20
      line 12+i,12,12+i,108
   if i < 15
      inc r#,15.2 : inc g#,15.53 : inc b#,11.86
   endif
   if i > 15
      dec r#,45.6 : dec g#,46.6 : dec b#,36.6
   endif
      ink rgb(r#,g#,b#),1
   next i
   get image 501,10,10,35,110

   cls : sync
   ink rgb(255,255,0),1
   set text size 12
   Set Cursor (screen width()/2)-25,(screen height()/2)-50 : Print "LOADING"
   box (screen width()/2)-150,(screen height()/2)-25,(screen width()/2)+150,(screen height()/2+25)
   ink rgb(0,0,0),1
   box (screen width()/2)-148,(screen height()/2)-23,(screen width()/2)+149,(screen height()/2+23)
   ink rgb(255,255,0),1
   box (screen width()/2)-146,(screen height()/2)-21,(screen width()/2)+146,(screen height()/2+21)
   sync
   wait 2000 : cls

endfunction

Function free_image()

   repeat
      inc n
   until image exist(n) = 0

endfunction n

Function free_sprite()

   repeat
      inc n
   until sprite exist(n) = 0

endfunction n

set text font "symbol"
for n=167 to 170
   print str$(n)," : ",chr$(n)
next n

Global c_width
Global c_height
Global cards
Global s_money = 1000
Global received_p1
Global p1_Suite
Global ai_Suite
Global p1_Number
Global ai_Number
Global p1_blackjack
Global ai_blackjack
Global hit
Global c_out
Global c_out_ai
Global p1_total
Global ai_total
Global bet
Global p1_Bet
Global money_p1
Global money_ai
Global p1_bust
Global ai_bust
Global ai_turn
Global received_ai
Global received_p1


Dim cards(5,14) 
Dim p1_Suite(20)
Dim p1_Number(20)
Dim ai_Suite(20)
Dim ai_Number(20)

c_width = 90 ` Card Width
c_height = 120 ` Card Height
c_out = 1
money_p1 = s_money
money_ai = s_money

gfx_mode()
create_bg()
c_front()
c_back()
make_cards()

do

    cls
    draw_hud()
    if hit = 1 Then _hit()
    if ai_turn = 1 then _ai()
    if bet = 1 then get_cards()
    draw_cards()
    if p1_bust = 1 or ai_bust = 1 then _bust()
    if p1_blackjack = 1 and ai_blackjack = 1 then bet = -8 ` push
    if p1_total = 21 and c_out = 1
        p1_blackjack = 1
        _blackjack()
    endif
    if ai_total = 21 and c_out_ai = 1
        ai_blackjack = 1
        _blackjack()
    endif
    sync
    

loop

function check_win()

    if ai_total > p1_total and ai_total <= 21 and bet = 1
        inc money_ai,p1_Bet
        dec money_p1,p1_Bet
        bet = -6
    endif
    if p1_total > ai_total and p1_total <= 21 and bet = 1
        inc money_p1,p1_Bet
        dec money_ai,p1_Bet
        bet = -7
    endif
    if ai_total = p1_total then bet = -8

endfunction

function _ai()

    Rem If ai card total is lower than 17 then hit
    if ai_total < 17
        inc c_out_ai,1
        ai_Suite(c_out_ai) = rnd(3)+1
        ai_Number(c_out_ai) = rnd(12)+1
        if ai_Number(c_out_ai) >= 2 and ai_Number(c_out_ai) <= 10 then inc ai_total,ai_Number(c_out_ai)
        if ai_Number(c_out_ai) > 10 then inc ai_total,10
        if ai_Number(c_out_ai) = 1
            if ai_total > 11 then inc ai_total,1
            if ai_total <= 11 then inc ai_total,11
        endif
        if ai_total > 21 Then ai_bust = 1
    endif
    Rem If ai card total is 17 or greater then check who won
    if ai_total >= 17 and ai_total <= 21 then check_win()

endfunction

function _blackjack()

    if p1_blackjack = 1 and bet = 1
        inc money_p1,p1_Bet
        dec money_ai,p1_Bet
        bet = -4
    endif
    
    if ai_blackjack = 1 and bet = 1
        inc money_ai,p1_Bet
        dec money_p1,p1_Bet
        ai_turn = 1
        bet = -5
    endif
    
    p1_blackjack = 0
    ai_blackjack = 0

endfunction

function _bust()

    if p1_bust = 1
        dec money_p1,p1_Bet
        inc money_ai,p1_Bet
        bet = -2
    endif
    
    if ai_bust = 1
        dec money_ai,p1_Bet
        inc money_p1,p1_Bet
        bet = -3
    endif
    
    p1_bust = 0
    ai_bust = 0      

endfunction

function _hit()

    hit = 0
    p1_Suite(c_out) = rnd(3)+1
    p1_Number(c_out) = rnd(12)+1
    if p1_Number(c_out) >= 2 and p1_Number(c_out) <= 10 then inc p1_total,p1_Number(c_out)
    if p1_Number(c_out) > 10 then inc p1_total,10
    if p1_Number(c_out) = 1
        if p1_total > 11 then inc p1_total,1
        if p1_total <= 11 then inc p1_total,11
    endif
    if p1_total > 21 Then p1_bust = 1   
    while mouseclick() = 1
    endwhile

endfunction

function draw_cards()

    if received_p1 = 1
        paste image cards(p1_Suite(0),p1_Number(0)),100,500
        paste image cards(p1_Suite(1),p1_Number(1)),200,500
        for a = 2 to c_out ` draws all the cards out
            paste image cards(p1_Suite(a),p1_Number(a)),(a+1)*100,500
        next a
    endif
        
    if received_ai = 1 and ai_turn = 0
        paste image img_front,100,100
        paste image img_front,200,100        
    endif
    
    if received_ai = 1 and ai_turn = 1
        paste image cards(ai_Suite(0),ai_Number(0)),100,100
        paste image cards(ai_Suite(1),ai_Number(1)),200,100
        for b = 2 to c_out_ai ` draws all the cards out
            paste image cards(ai_Suite(b),ai_Number(b)),(b+1)*100,100
        next b
    endif
        
endfunction

function get_cards()

    if received_p1 = 0
        p1_Suite(0) = rnd(3)+1 : p1_Number(0) = rnd(12)+1
        p1_Suite(1) = rnd(3)+1 : p1_Number(1) = rnd(12)+1
        received_p1 = 1
        if p1_Number(0) >= 2 and p1_Number(0) <= 10 then inc p1_total,p1_Number(0)
        if p1_Number(0) > 10 then inc p1_total,10
        if p1_Number(0) = 1
            if p1_total > 11 then inc p1_total,1
            if p1_total <= 11 then inc p1_total,11
        endif
        
        if p1_Number(1) >= 2 and p1_Number(1) <= 10 then inc p1_total,p1_Number(1)
        if p1_Number(1) > 10 then inc p1_total,10
        if p1_Number(1) = 1
            if p1_total > 11 then inc p1_total,1
            if p1_total <= 10 then inc p1_total,11
        endif         
    endif
    
    if received_ai = 0
        ai_Suite(0) = rnd(3)+1 : ai_Number(0) = rnd(12)+1
        ai_Suite(1) = rnd(3)+1 : ai_Number(1) = rnd(12)+1
        received_ai = 1
        if ai_Number(0) >= 2 and ai_Number(0) <= 10 then inc ai_total,ai_Number(0)
        if ai_Number(0) > 10 then inc ai_total,10
        if ai_Number(0) = 1
            if ai_total > 11 then inc ai_total,1
            if ai_total <= 10 then inc ai_total,11
        endif
        
        if ai_Number(1) >= 2 and ai_Number(1) <= 10 then inc ai_total,ai_Number(1)
        if ai_Number(1) > 10 then inc ai_total,10
        if ai_Number(1) = 1
            if ai_total > 11 then inc ai_total,1
            if ai_total <= 11 then inc ai_total,11
        endif
    endif

endfunction

function draw_hud()

    Set Text Font "Arial" : Set Text Size 19
    paste image img_bg,0,0
    paste image deal_off,345,screen height()-40
    paste image stay_off,400,screen height()-40
    paste image hit_off,450,screen height()-40
    paste image dbl_off,500,screen height()-40
    paste image split_off,605,screen height()-40
    paste image b5_off,700,screen height()-40
    paste image b10_off,740,screen height()-40
    paste image b25_off,780,screen height()-40
    paste image b50_off,820,screen height()-40
    paste image b100_off,860,screen height()-40
    paste image b500_off,900,screen height()-40

    if mouseX() >= 345 and mouseX() <= 395
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
        paste image 510,345,screen height()-40 ` DEAL
            if mouseclick() = 1 And bet < 1
                bet = 1
                received_p1 = 0
                received_ai = 0
                c_out = 1
                p1_total = 0
                ai_total = 0
                ai_turn = 0
                c_out_ai = 1
            endif
            while mouseclick() = 1
            endwhile
        endif 
    endif
    if mouseX() >= 400 and mouseX() <= 445
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
            paste image 500,400,screen height()-40 ` STAY
            if mouseclick() = 1
                ai_turn = 1
            endif
            while mouseclick() = 1
            endwhile
        endif 
    endif
    if mouseX() >= 450 and mouseX() <= 495
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
            paste image 501,450,screen height()-40 ` HIT
            if mouseclick() = 1 and bet = 1 and ai_turn = 0
                hit = 1
                inc c_out,1                
            endif
        endif 
    endif
    if mouseX() >= 500 and mouseX() <= 600
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
            paste image 502,500,screen height()-40 ` DOUBLE DOWN
            if mouseclick() = 1 and bet = 1 and ai_turn = 0
                inc p1_Bet,p1_Bet
                hit = 1
                ai_turn = 1
                inc c_out
            endif
            while mouseclick() = 1
            endwhile        
        endif 
    endif
    if mouseX() >= 605 and mouseX() <= 660
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
        paste image 503,605,screen height()-40 ` SPLIT
        endif 
    endif
    if mouseX() >= 700 and mouseX() <= 735
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
            paste image 504,700,screen height()-40 ` Bet 5
            if mouseclick() = 1 and bet < 1
                inc p1_Bet,5
                while mouseclick() = 1
                endwhile
            endif
            if mouseclick() = 2 and bet < 1
                dec p1_Bet,5
                while mouseclick() = 2
                endwhile
            endif
        endif 
    endif
    if mouseX() >= 740 and mouseX() <= 775
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
            paste image 505,740,screen height()-40 ` Bet 10
            if mouseclick() = 1 and bet < 1
                inc p1_Bet,10
                while mouseclick() = 1
                endwhile
            endif
            if mouseclick() = 2 and bet < 1
                dec p1_Bet,10
                while mouseclick() = 2
                endwhile
            endif
        endif 
    endif
    if mouseX() >= 780 and mouseX() <= 815
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
        paste image 506,780,screen height()-40 ` Bet 25
            if mouseclick() = 1 and bet < 1
                inc p1_Bet,25
                while mouseclick() = 1
                endwhile
            endif
            if mouseclick() = 2 and bet < 1
                dec p1_Bet,25
                while mouseclick() = 2
                endwhile
            endif
        endif 
    endif
    if mouseX() >= 820 and mouseX() <= 855
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
        paste image 507,820,screen height()-40 ` Bet 50
            if mouseclick() = 1 and bet < 1
                inc p1_Bet,50
                while mouseclick() = 1
                endwhile
            endif
            if mouseclick() = 2 and bet < 1
                dec p1_Bet,50
                while mouseclick() = 2
                endwhile
            endif
        endif 
    endif
    if mouseX() >= 860 and mouseX() <= 895
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
        paste image 508,860,screen height()-40 ` Bet 100
            if mouseclick() = 1 and bet < 1
                inc p1_Bet,100
                while mouseclick() = 1
                endwhile
            endif
            if mouseclick() = 2 and bet < 1
                dec p1_Bet,100
                while mouseclick() = 2
                endwhile
            endif
        endif 
    endif
    if mouseX() >= 900 and mouseX() <= 935
        if mouseY() >= screen height()-41 and mouseY() <= screen height()-8
        paste image 509,900,screen height()-40 ` Bet 500
            if mouseclick() = 1 and bet < 1
                inc p1_Bet,500
                while mouseclick() = 1
                endwhile
            endif
            if mouseclick() = 2 and bet < 1
                dec p1_Bet,500
                while mouseclick() = 2
                endwhile
            endif
        endif 
    endif
        
    if received_p1 = 1
        ink rgb(0,0,0),1 : box 75,500,95,520
        ink rgb(255,255,255),1 : set cursor 75,500
        print p1_total
    endif
    if received_ai = 1 and ai_turn = 1
        ink rgb(0,0,0),1 : box 75,100,95,120
        ink rgb(255,255,255),1 : set cursor 75,100
        print ai_total
    endif
    
    set cursor 10,screen height()-40 : ink RGB(25,200,0),1
    Print "YOU: $ ",money_p1,"     DEALER: $",money_ai     
    if bet = 0
        Set cursor screen width()/2 - 100,10 : ink rgb(255,255,255),1
        print "PLEASE PLACE YOUR BET"
     endif
        if bet = -2
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "YOU BUSTED! DEALER WINS! PLEASE PLACE YOUR BET"
     endif
    if bet = -3
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "THE DEALER BUSTED! YOU WIN! PLEASE PLACE YOUR BET"
     endif
     if bet = -4
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "YOU RECEIVED A BLACK JACK! YOU WON!"
     endif
    if bet = -5
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "THE DEALER RECEIVED A BLACK JACK! YOU LOST!"
     endif
    if bet = -6
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "THE DEALER HAS WON! YOU LOST!"
    endif
    if bet = -7
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "CONGRATULATIONS YOU WIN"
    endif
    if bet = -8
        Set cursor screen width()/2 - 200,10 : ink rgb(255,255,255),1
        print "IT'S A PUSH! NOBODY WINS!"
     endif
    ink RGB(255,255,255),1
    if p1_Bet < 0 then p1_Bet = 0
    if p1_Bet > money_p1
        p1_Bet = money_p1
        ink rgb(255,100,0),1
    endif    
    set cursor 945,screen height()-40 : Print "Bet: ",p1_Bet   

endfunction

function create_bg()

    set cursor screen width()/2-10,screen height()/2
    ink RGB(255,255,255),1 : print "LOADING..."
    wait 100
    sync on
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,445,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,444,screen height()-9,0,0,0,1,1,1,1)
    ink rgb(50,50,50),1
    set cursor 405,screen height()-33 : print "STAY"
    Global stay_off
    stay_off = free_image()
    Get image stay_off,400,screen height()-41,445,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,445,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,444,screen height()-9,0,0,0,1,1,0,1)
    ink rgb(200,200,50),1
    set cursor 405,screen height()-33 : print "STAY"
    Global stay_on
    stay_on = 500
    Get image stay_on,400,screen height()-41,445,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,445,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,444,screen height()-9,0,0,0,1,1,1,1)
    ink rgb(50,50,50),1
    set cursor 405,screen height()-33 : print " HIT"
    Global hit_off
    hit_off = free_image()
    Get image hit_off,400,screen height()-41,445,screen height()-8
    
    cls
    ink rgb(200,200,200),1
    ink rgb(50,50,50),1
    box 400,screen height()-41,445,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,444,screen height()-9,0,0,0,1,1,0,1)
    ink rgb(200,200,50),1
    set cursor 405,screen height()-33 : print " HIT"
    Global hit_on
    hit_on = 501
    Get image hit_on,400,screen height()-41,445,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,500,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,499,screen height()-9,0,0,0,1,1,1,1)
    ink rgb(50,50,50),1
    set cursor 405,screen height()-33 : print "DOUBLE DOWN"
    Global dbl_off
    dbl_off = free_image()
    Get image dbl_off,400,screen height()-41,500,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,500,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,499,screen height()-9,0,0,0,1,1,0,1)
    ink rgb(200,200,50),1
    set cursor 405,screen height()-33 : print "DOUBLE DOWN"
    Global dbl_on
    dbl_on = 502
    Get image dbl_on,400,screen height()-41,500,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,450,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,449,screen height()-9,0,0,0,1,1,1,1)
    ink rgb(50,50,50),1
    set cursor 405,screen height()-33 : print "SPLIT"
    Global split_off
    split_off = free_image()
    Get image split_off,400,screen height()-41,450,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,450,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,449,screen height()-9,0,0,0,1,1,0,1)
    ink rgb(200,200,50),1
    set cursor 405,screen height()-33 : print "SPLIT"
    Global stay_on
    split_on = 503
    Get image split_on,400,screen height()-41,450,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,0.5,1,0,0)
    ink rgb(100,100,100),1
    set cursor 405,screen height()-33 : print " 5"
    Global b5_off
    b5_off = free_image()
    Get image b5_off,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(100,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,5,1,0,0)
    ink rgb(255,255,255),1
    set cursor 405,screen height()-33 : print " 5"
    Global b5_on
    b5_on = 504
    Get image b5_on,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,0.5,0,1,0)
    ink rgb(100,100,100),1
    set cursor 405,screen height()-33 : print "1 0"
    Global b10_off
    b10_off = free_image()
    Get image b10_off,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,100,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,5,0,1,0)
    ink rgb(255,255,255),1
    set cursor 405,screen height()-33 : print "1 0"
    Global b10_on
    b10_on = 505
    Get image b10_on,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,0.5,0,0,1)
    ink rgb(100,100,100),1
    set cursor 405,screen height()-33 : print "2 5"
    Global b25_off
    b25_off = free_image()
    Get image b25_off,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,100,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,5,0,0,1)
    ink rgb(255,255,255),1
    set cursor 405,screen height()-33 : print "2 5"
    Global b25_on
    b25_on = 506
    Get image b25_on,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,0.5,1,1,0)
    ink rgb(100,100,100),1
    set cursor 405,screen height()-33 : print "5 0"
    Global b50_off
    b50_off = free_image()
    Get image b50_off,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,100,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,5,1,1,0)
    ink rgb(255,255,255),1
    set cursor 405,screen height()-33 : print "5 0"
    Global b50_on
    b50_on = 507
    Get image b50_on,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,0.5,1,0,1)
    ink rgb(100,100,100),1
    set cursor 405,screen height()-33 : print "100"
    Global b100_off
    b100_off = free_image()
    Get image b100_off,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,100,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,5,1,0,1)
    ink rgb(255,255,255),1
    set cursor 405,screen height()-33 : print "100"
    Global b100_on
    b100_on = 508
    Get image b100_on,400,screen height()-41,435,screen height()-8

    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,0.5,0,0,1)
    ink rgb(100,100,100),1
    set cursor 405,screen height()-33 : print "500"
    Global b500_off
    b500_off = free_image()
    Get image b500_off,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,435,screen height()-8
    ink rgb(0,100,0),1
    _gradient(401,screen height()-40,434,screen height()-9,0,0,0,5,10,1,1)
    ink rgb(255,255,255),1
    set cursor 405,screen height()-33 : print "500"
    Global b500_on
    b500_on = 509
    Get image b500_on,400,screen height()-41,435,screen height()-8
    
    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,450,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,449,screen height()-9,0,0,0,1,1,1,1)
    ink rgb(50,50,50),1
    set cursor 405,screen height()-33 : print "DEAL"
    Global deal_off
    deal_off = free_image()
    Get image deal_off,400,screen height()-41,450,screen height()-8

    cls
    ink rgb(50,50,50),1
    box 400,screen height()-41,450,screen height()-8
    ink rgb(0,0,0),1
    _gradient(401,screen height()-40,449,screen height()-9,25,25,25,5,1,1,1)
    ink rgb(200,200,50),1
    set cursor 405,screen height()-33 : print "DEAL"
    Global deal_on
    deal_on = 510
    Get image deal_on,400,screen height()-41,450,screen height()-8
    
    _gradient(0,0,screen width(),screen height(),0,10,0,0.05,0,1,0)
    _gradient(0,0,screen width(),50,0,0,0,0.25,1,1,1)
    _gradient(0,screen height()-50,screen width(),screen height(),0,0,0,0.25,1,1,1)
    Global img_bg
    img_bg = free_image()
    get image img_bg,0,0,screen width(),screen height()

endfunction

function c_front()

    ink rgb(255,255,255),1
    box 0,0,screen width(),screen height()
    ink rgb(0,0,0),1
    box c_width,c_height,c_width*2,c_height*2
    ink rgb(255,255,255),1
    _gradient(c_width+1,c_height+1,c_width*2-1,c_height*2-1,225,225,200,0.25,1,1,1)
    ink rgb(25,25,100),1
    box c_width+5,c_height+5,c_width*2-5,c_height*2-5
    ink rgb(255,255,255),1
    box c_width+7,c_height+7,c_width*2-7,c_height*2-7
    ink rgb(25,25,100),1
    box c_width+8,c_height+8,c_width*2-8,c_height*2-8
    ink rgb(255,255,255),1
    box c_width+10,c_height+10,c_width*2-10,c_height*2-10
    ink rgb(25,25,100),1
    _gradient(c_width+11,c_height+11,c_width*2-11,c_height*2-11,25,25,100,1,0,0,1)
    Global img_front
    img_front = free_image()
    Get Image img_front,c_width,c_height,c_width+90,c_height+120
    cls    

endfunction


function c_back()

    ink rgb(255,255,255),1
    box 0,0,screen width(),screen height()
    ink rgb(0,0,0),1
    box c_width,c_height,c_width*2,c_height*2
    ink rgb(255,255,255),1
    _gradient(c_width+1,c_height+1,c_width*2-1,c_height*2-1,225,225,200,0.25,1,1,1)
    Global img_back
    img_back = free_image()
    Get image img_back,c_width,c_height,c_width*2,c_height*2
    cls

endfunction

function make_cards()
   
        for suite = 167 to 170
            for number = 1 to 13
                cls
                paste image img_back,10,10
                align_font(suite,number)
                align_symbols(suite,number)
                cards(n+1,number) = free_image()
                Get Image cards(n+1,number),10,10,c_width+10,c_height+10
            next b
            inc n,1
        next a
        
endfunction

function align_symbols(suite,number)

    ink RGB(255,0,0),1
    if suite = 167 then ink RGB(0,0,0),1
    if suite = 170 then ink RGB(0,0,0),1
    if number = 1 and suite = 170
        set text size 125
        set cursor 25,10 : print chr$(suite)
    endif
    if number = 1 and suite < 170
        set text size 35
        set cursor 47,47 : print chr$(suite)
    endif 
    if number = 2
        set text size 35
        set cursor 47,15 : print chr$(suite)
        set cursor 47,80 : print chr$(suite)        
    endif
    if number = 3
        set text size 35
        set cursor 47,15 : print chr$(suite)
        set cursor 47,80 : print chr$(suite)
        set cursor 47,47 : print chr$(suite)        
    endif
    if number = 4
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)        
    endif
    if number = 5
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)
        set cursor 47,47 : print chr$(suite)        
    endif
    if number = 6
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)
        set cursor 25,47 : print chr$(suite)
        set cursor 68,47 : print chr$(suite)        
    endif
    if number = 7
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)
        set cursor 25,47 : print chr$(suite)
        set cursor 68,47 : print chr$(suite)
        set cursor 47,30 : print chr$(suite)       
    endif
    if number = 8
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)
        set cursor 25,47 : print chr$(suite)
        set cursor 68,47 : print chr$(suite)
        set cursor 47,30 : print chr$(suite)
        set cursor 47,65 : print chr$(suite)       
    endif
    if number = 9
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 25,38 : print chr$(suite)
        set cursor 25,60 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,38 : print chr$(suite)
        set cursor 68,60 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 47,47 : print chr$(suite)      
    endif
    if number = 10
        set text size 35
        set cursor 25,15 : print chr$(suite)
        set cursor 25,38 : print chr$(suite)
        set cursor 25,60 : print chr$(suite)
        set cursor 25,80 : print chr$(suite)
        set cursor 68,15 : print chr$(suite)
        set cursor 68,38 : print chr$(suite)
        set cursor 68,60 : print chr$(suite)
        set cursor 68,80 : print chr$(suite)
        set cursor 47,30 : print chr$(suite)
        set cursor 47,65 : print chr$(suite)      
    endif

endfunction

function align_font(suite,number)

    ink RGB(255,0,0),1
    if suite = 167 then ink RGB(0,0,0),1
    if suite = 170 then ink RGB(0,0,0),1
    set text font "Impact"
    set text size 20
   ` set cursor 15,12 : print number
    if number >= 2 And number <= 9 
        set cursor 15,12
        print number
    endif
    if number = 1 
        set cursor 15,12
        print "A"
    endif
    if number = 10
        set cursor 15,12
        print number
    endif
    if number = 11 
        set cursor 15,12
        print "J"
    endif
        if number = 12
        set cursor 15,12
        print "Q"
    endif
        if number = 13 
        set cursor 15,12
        print "K"
    endif
    REM Lower-Right Corner
    if number >= 2 And number <= 9 
        set cursor 87,107
        print number
    endif
    if number = 1 
        set cursor 87,107
        print "A"
    endif
    if number = 10
        set cursor 83,107
        print number
    endif
    if number = 11 
        set cursor 87,107
        print "J"
    endif
        if number = 12
        set cursor 87,107
        print "Q"
    endif
        if number = 13 
        set cursor 87,107
        print "K"
    endif
    set text font "symbol"
    set text size 20
    set cursor 14,25 : print chr$(suite)
    set cursor 85,92 : print chr$(suite) 

endfunction

function _gradient(X1,Y1,X2,Y2,r#,g#,b#,blend#,ri,gi,bi)
REM X1,Y1,X2,Y2 is the area which will be filled
REM r#,g#,b# are color presets that will alter the beginning gradient color
REM blend# is the amount at which the color values are incremented
REM ri,gi,bi if all set to 1 will increment corresponding #blend

    for y = Y1 to Y2 - 1
        ink RGB(r#,g#,b#),1
        line X1,y,X2,y
        if ri AND r# < 255 then inc r#,blend#
        if gi AND g# < 255 then inc g#,blend#
        if bi AND b# < 255 then inc b#,blend#
    next y

endfunction

function free_image()

    repeat
        inc n,1
    until image exist (n) = 0

endfunction n

function gfx_mode()

Set Display Mode 1024,768,32

   set display mode 1024,768,32
   Sync Rate 70
   

endfunction

`Blackjack by BmacZero
`Started: 2/8/08
`Finished: --/--/--

`Basic Setup
set window title "Blackjack - DarkBASIC Pro"
set window on
sync on : sync rate 0
set display mode 800,600,32
randomize timer()
disable escapekey

`These are the image numbers
Clubs=1
Diamonds=2
Hearts=3
Spades=4

`Make a spiffy header
center text 400,20,  "  \\--------------------||--------------------//    "
center text 400,40,  " /  |""\ |   /""\ /""\ | /   | /""\ /""\ | /   \   "
center text 400,60,  "<   |--< |   |--| |    |<    | |--| |    |<     >  "
center text 400,80,  " \  |__/ |__ |  | \__/ | \ \_/ |  | \__/ | \   /   "
center text 400,100, "  //--------------------||--------------------\\    "
sync
get image 5,1,1,screen width(),120,1

`Get the card suite symbols
set text font "symbol"
set text size 24
for c=1 to 4
    print chr$(c+166)
    get image c,1,1,20,20
    cls
next c
set text font "arial"

`Arrays store the card in your hand and its suite
DIM DealerHand(16,2)
DIm YourHand(16,2)

`This is a reference for the cards
DIM TheDeck(52,3)
`1=#
`2=suite
`3=Has been used?
`This is the deck

`Fill up the deck
for c=1 to 13
    for d=1 to 4
        CardNo=c+(d-1)*13
        TheDeck(CardNo,1)=c
        TheDeck(CardNo,2)=d
    next d
next c

Menu:
do
cls
paste image 5,1,1
text 300,200,"1.) Play"
text 300,240,"2.) Quit"
if keystate(2)=1 then gosub Play
if keystate(3)=1 or escapekey()=1 then end
sync
loop

`Play a quick game
Play:
YourMoney=500
NewGame:
`Reset Variables
YourPass=0
GameOver=0
YourBust=0
DealerBust=0
pressed=1
`Check for loss
if YourMoney=0 then gosub GameOverish

buttonpushed=1
`Make a bet
do
    cls
    paste image 5,1,1
    text 300,140,"You have $"+str$(YourMoney)+"."
    text 300,170,"What will you bet? "
    if buttonpushed=0 and scancode()>0
        buttonpushed=1
        if scancode()>1 and scancode()<=11
            Bet$=Bet$+inkey$()
        endif
        if scancode()=14
            Bet$=left$(Bet$,len(Bet$)-1)
        endif
    endif
    text 320,200,"$"+Bet$
    if buttonpushed=1 and scancode()=0 then buttonpushed=0
    if returnkey()=1 then gosub Start
    sync
    if escapekey()=1 then gosub Menu
loop

Start:

BetValue=val(Bet$)
if BetValue<=0 then gosub NewGame
if BetValue>YourMoney then gosub NewGame
`Naturals pay at higher odds.  This calculates that.
NaturalBet=(2*BetValue)/3

`==============================================
`========= MAIN LOOP!!!!! =====================
`==============================================
`Deal hands
for c=1 to 16
    DealerHand(c,1)=0
    YourHand(c,1)=0
next c
Rand1=rnd(51)+1
DealerHand(1,1)=TheDeck(Rand1,1)
DealerHand(1,2)=TheDeck(Rand1,2)
TheDeck(Rand1,3)=1
Rerand:
Rand2=rnd(51)+1
if Rand2=Rand1 then gosub Rerand
DealerHand(2,1)=TheDeck(Rand2,1)
DealerHand(2,2)=TheDeck(Rand2,2)
TheDeck(Rand2,3)=1
DealerCards=2

Rerand2:
Rand1=rnd(51)+1
if TheDeck(Rand1,3)=1 then gosub Rerand2
YourHand(1,1)=TheDeck(Rand1,1)
YourHand(1,2)=TheDeck(Rand1,2)
TheDeck(Rand1,3)=1
Rerand3:
Rand2=rnd(51)+1
if TheDeck(Rand2,3)=1 then gosub Rerand3
YourHand(2,1)=TheDeck(Rand2,1)
YourHand(2,2)=TheDeck(Rand2,2)
TheDeck(Rand2,3)=1
YourCards=2

`Check for a natural
YourTotal=0
YourAces=0
for g=1 to 16
    if YourHand(g,1)<11 and YourHand(g,1)>1 then inc YourTotal,YourHand(g,1)
    if YourHand(g,1)>11 then inc YourTotal,10
    if YourHand(g,1)=1 then inc YourAces,1
next g
if YourTotal>10 and YourAces>0 then inc YourTotal,YourAces
if YourTotal<=10 and YourAces>0 then inc YourTotal,11+(YourAces-1)
if YourTotal=21 then GameOver=4

`Gameover - Signifies how the game ended
`1= You have the higher hand
`2= The dealer has the higher hand
`3= Push
`4= You got a natural
`Busts are handled seperately

do
cls
paste image 5,1,1
center text 400,140,"Press spacebar to hit."
center text 400,160,"Press return (enter) to stand."

gosub PrintHands

if scancode()>0 and pressed=0
    pressed=1
    if spacekey()=1 and YourPass=0
        if YourBust=0
            inc YourCards
            YouHit=1
            Rerand5:
            Rand=rnd(51)+1
            if TheDeck(Rand,3)=1 then gosub Rerand5
            YourHand(YourCards,1)=TheDeck(Rand,1)
            YourHand(YourCards,2)=TheDeck(Rand,2)
            TheDeck(Rand,3)=1
        endif
    endif
    if returnkey()=1
        YourPass=1
    endif
    if YourBust=1 or GameOver=2 `If your lost
        dec YourMoney,BetValue
        gosub NewGame
    endif
    if DealerBust=1 and YourBust=0 or GameOver=1 `If you won
        inc YourMoney,BetValue
        gosub NewGame
    endif
    if GameOver=3 then gosub NewGame `If you tied
    if GameOver=4 `If you had a natural (You win more money)
        inc YourMoney,NaturalBet
        gosub NewGame
    endif
endif
if scancode()=0 and pressed=1 then pressed=0

If YourPass=1 or YouHit=1 `Dealer plays
    YouHit=0
    if DealerTotal<17 and DealerBust=0
        inc DealerCards
        Rerand6:
        Rand=rnd(51)+1
        if TheDeck(Rand,3)=1 then gosub Rerand6
            DealerHand(DealerCards,1)=TheDeck(Rand,1)
            DealerHand(DealerCards,2)=TheDeck(Rand,2)
        TheDeck(Rand,3)=1
    endif
endif

sync
loop

`==============================================
`========= ============== =====================
`==============================================

PrintHands:
`Reset variables
DealerTotal=0
YourTotal=0
DealerAces=0
YourAces=0

`Score the hands
for g=1 to 16
    if DealerHand(g,1)<11 and DealerHand(g,1)>1 then inc DealerTotal,DealerHand(g,1)
    if DealerHand(g,1)>=11 then inc DealerTotal,10
    if DealerHand(g,1)=1 then inc DealerAces,1
    if YourHand(g,1)<11 and YourHand(g,1)>1 then inc YourTotal,YourHand(g,1)
    if YourHand(g,1)>=11 then inc YourTotal,10
    if YourHand(g,1)=1 then inc YourAces,1
next g
if YourTotal>10 and YourAces>0 then inc YourTotal,YourAces
if YourTotal<=10 and YourAces>0 then inc YourTotal,11+(YourAces-1)
if YourTotal>21 then YourBust=1
if DealerTotal>10 and DealerAces>0 then inc DealerTotal,DealerAces
if DealerTotal<=10 and DealerAces>0 then inc DealerTotal,11+(DealerAces-1)
if DealerTotal>21 then DealerBust=1

if DealerTotal>=17 and YourPass=1 `If play is done, in other words
    if YourTotal>DealerTotal then GameOver=1
    if DealerTotal>YourTotal then GameOver=2
    if DealerTotal=YourTotal then GameOver=3
endif

center text 200,190,"Dealer's Hand:"
if DealerBust=1 then center text 200,210,"Bust!"
for g=1 to 16
    if DealerHand(g,1)>0
        if g>1 and DealerBust=0 and YourBust=0 and YourPass=0
            text 200,220+(g*20),"# #"
            else
            if DealerHand(g,1)<11 and DealerHand(g,1)>1 then text 200,220+(g*20),str$(DealerHand(g,1));
            if DealerHand(g,1)=11 then text 200,220+(g*20),"J"
            if DealerHand(g,1)=12 then text 200,220+(g*20),"Q"
            if DealerHand(g,1)=13 then text 200,220+(g*20),"K"
            if DealerHand(g,1)=1 then text 200,220+(g*20),"A"
            paste image DealerHand(g,2),220,220+(g*20),1
        endif
    endif
    if YourHand(g,1)>0 `Putting this here is a little confusing, but it eliminates a for-next loop
        if YourHand(g,1)<11 and YourHand(g,1)>1 then text 600,220+(g*20),str$(YourHand(g,1));
        if YourHand(g,1)=11 then text 600,220+(g*20),"J"
        if YourHand(g,1)=12 then text 600,220+(g*20),"Q"
        if YourHand(g,1)=13 then text 600,220+(g*20),"K"
        if YourHand(g,1)=1 then text 600,220+(g*20),"A"
        paste image YourHand(g,2),620,220+(g*20),1
    endif
next g
center text 600,190,"Your Hand:"
if YourBust=1 then center text 600,210,"Bust! - You have lost $"+str$(BetValue)
if DealerBust=1 and YourBust=0 then center text 600,210,"You have won $"+str$(BetValue)
if GameOver=1 and YourBust=0 then center text 600,210,"You have won $"+str$(BetValue)
if GameOver=2 and DealerBust=0 then center text 600,210,"You have lost $"+str$(BetValue)
if GameOver=3 and YourBust=0 then center text 600,210,"Tied"
if GameOver=4 then center text 600,210,"Natural 21 - You have won $"+str$(NaturalBet)

return

GameOverish:
cls
paste image 5,1,1,1
text 200,200,"You have lost - you have 0$"
text 200,240,"Press any key to continue."
sync
wait key
gosub Menu