- Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic

'  - Bacong V1.0 - Sorte de Pong traduit / modifié depuis un source en Aurel Basic

Label Splashscreen,touche, Startball, Endgame, main, Moveball, Restart

dim itercount, lifes : itercount = 0 : lifes = 3
dim paddle$, delpad$ : paddle$ = "<===>" : delpad$ = "    "
dim lpaddle : lpaddle = LEN(paddle$)*10
dim ball$, LF$, Message$ : ball$ = "O" : LF$=CHR$(10)
dim touche_enfoncee, pause : pause = 0
dim bx, by, nextcol, c, r
dim score : score = 0

' Screen size
dim maxx, maxy : maxx = 450 : maxy = 320
dim paddlerow, paddlecol, paddleinc  : paddlerow = maxy-80 : paddlecol = int(maxx / 2) :paddleinc = 4

' How many times the paddle moves faster than the ball (integer)
dim speedratio : speedratio = 2

' Time delay (msec) determines game speed
dim msdelay : msdelay = 50

' Variables needed to delete ball
dim lball : lball = LEN(ball$)
dim delball$ : delball$ = " "

' Open window -------------------------------------------
WIDTH 0,maxx : HEIGHT 0, maxy : CAPTION 0, "Bac Pong"
maxx = maxx -25 : maxy = maxy - 50

Timer 5 : Timer_off 5 : Timer_interval 5,15 : on_timer 5, main

Restart:
GOSUB Splashscreen
GOSUB startball
PRINT_LOCATE 20, 4: PRINT "Vie = ",lifes, "      "
PRINT_LOCATE 100, 4: PRINT "Score = ", score, "      "
on_key_down 0,touche
timer_on 5
END

touche:
touche_enfoncee = key_down_code
if touche_enfoncee = 37 then touche_enfoncee = 87
if touche_enfoncee = 39 then touche_enfoncee = 88
select touche_enfoncee
' Left
 case 87
  IF paddlecol > 14 and pause = 0
    ' Delete old paddle
    PRINT_LOCATE paddlecol,paddlerow: PRINT delpad$
    paddlecol = paddlecol - paddleinc
    PRINT_LOCATE paddlecol,paddlerow: PRINT paddle$
  END_IF
  Case 88
'  Right
    ' Delete old paddle
    PRINT_LOCATE paddlecol,paddlerow: PRINT delpad$
    IF paddlecol < (maxx - 40) and pause = 0         
      paddlecol = paddlecol + paddleinc
      PRINT_LOCATE paddlecol,paddlerow: PRINT paddle$
    END_IF
  Case 81: GOTO FIN
  Case 27: GOTO FIN
  Case 80: If Pause = 0 then Pause = 1 :else: Pause = 0
END_SELECT
' Draws new paddle
PRINT_LOCATE paddlecol, paddlerow: PRINT paddle$
RETURN

' ........................................
' Initial screen
'
Splashscreen:
    PRINT_LOCATE 80, 20: PRINT "  - Bacong V1.0 -  Pong en ASCII"
    PRINT_LOCATE 80, 60: PRINT "  Conversion en Panormaic d'un"
    PRINT_LOCATE 80, 80: PRINT "  programme Aurel Basic. "

    PRINT_LOCATE 20, 120: PRINT  "Use keys:"
    PRINT_LOCATE 20, 140: PRINT  "  w : move left    (you can use LEFT  arrow too)"
    PRINT_LOCATE 20, 160: PRINT  "  x : move right    (you can use RIGHT arrow too)"
    PRINT_LOCATE 20, 180: PRINT  "  p : pause/continue game"
    PRINT_LOCATE 20, 180: PRINT  "  q : quit game    (you can use <ESC> too) "
    PRINT_LOCATE 20, 240: PRINT "Press key 'P' to play... (or 'Q' or <ESC> to quit)"
    touche_enfoncee = 0
    WHILE touche_enfoncee = 0
      touche_enfoncee = key_down_code
      if touche_enfoncee = 27 or touche_enfoncee = 81 or touche_enfoncee = 80 then exit_while
      wait 20
    END_WHILE
    If touche_enfoncee = 27 or touche_enfoncee = 81 then goto fin
RETURN

' ........................................
' Sets start position for ball
'
startball:
  by = INT(RND(maxy/2))
  bx = 10
  r=1
RETURN

' ........................................
' Updates ball position and direction
'
moveball:
  ' Delete old ball position
  PRINT_LOCATE bx, by: PRINT " "
  IF bx > maxx -10 THEN c = 2 : ELSE : IF bx < 10 THEN c = 1
'  IF by > maxy -26 THEN r = 1 : ELSE : IF by < 22 THEN r = 2
  IF by < 22 THEN r = 2
  IF c<2 THEN bx = bx + 1 : ELSE: bx = bx - 1
  IF r<2 THEN by = by - 1 : ELSE: by = by + 1   
  PRINT_LOCATE bx, by: PRINT ball$
RETURN

' Main--------------------------------
main:
If pause = 1 then return
2D_RECTANGLE 10,20,maxx, maxy-10
        PRINT_LOCATE 20, 4: PRINT "Vie = ",lifes, "      "
        PRINT_LOCATE 100, 4: PRINT "Score = ", score, "      "
'        PRINT_LOCATE 180, 4: PRINT "BX = ",BX, "      "

'    itercount = 1 : ' itercount = MOD(itercount, speedratio)
'    IF itercount > 0 THEN GOSUB moveball

    GOSUB moveball
    PRINT_LOCATE paddlecol, paddlerow: PRINT paddle$
   
  ' Check ball on paddle
    IF r = 2 and by > (paddlerow - 5)
      IF bx > paddlecol and bx < (paddlecol + lpaddle)
        r = 1
            score=score+1
      ELSE
            ' Ball lost
            GOSUB startball
            lifes=lifes-1
      END_IF
      PRINT_LOCATE 20, 4: PRINT "Vie = ",lifes, "      "
      PRINT_LOCATE 100, 4: PRINT "Score = ", score, "      "
    END_IF
    IF lifes < 1 THEN GOTO Endgame
RETURN

' ........................................
' End of the game
'
Endgame:
 Timer_off 5
 Message$ =  "********************" +LF$+ "*** GAME OVER ***" +LF$+ "********************"
 Message$ = Message$ +LF$ + LF$ + "Your final score is: "+ STR$ (score)
 Message$ = Message$ +LF$ + LF$ + "Try again!"
 Message Message$
 Terminate

dim paddle$, delpad$ : paddle$ = "<=================================>" : delpad$ = "    "