FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 11:55

» Projet de planétarium virtuel.
par Pedro Alvarez Hier à 17:29

» Quantité de mémoire utilisée par un exe
par Navigateur Hier à 14:52

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

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

Aller en bas 
AuteurMessage
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 18:37

Bon, ce n'est pas le jeu du siècle, mais bon, je me suis amusé à convertir un autre source Aurel puis, pour le rendre jouable, je l'ai modifié un peu en gardant comme objectif de rester sur de l'ASCII (il faut bien se donner un ligne de conduite ...)

Voilà, je pense que j'en ferais un casse brique (Avec des briques ASCII !!) un autre jour ou j'aurais quelques heures devant moi Smile

Code:
'  - 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1127
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 18:46

Super, j'ai réussi à faire 8 points! Quel exploit!!! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5473
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 20:03

Hé Bigono, t'es pas doué, moi j'ai fait 100 (au bout d'un quart d'heure) Very Happy

Bon, j'ai juste un peu bricolé le code à la ligne 6 Embarassed

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

Evil or Very Mad No
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1127
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 20:17

lol! Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 20:47

oh, pas bien de tricher Shocked Mais bon, il n'est pas si dur quand même hein ? Sinon, je vous fais un menu avec des options pour régler la vitesse, mais bon, je pense que vous faisiez une blague, hein ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 47
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 21:06

très amusant, bravo (pour la traduction)! j'aurais jamais pensé de faire un truc pareil tout en ascii!...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
JL35



Nombre de messages : 6273
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 21:18

Pas bête ! mais ça nous ramène quoi, 30 ans en arrière, au moins, au temps du ping pong sur la télé... on s'est bien blasés depuis.
C'est bien fait en tout cas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 22:09

Merci Smile Pour le côté retour en arrière, c'est vrai, ça me rappelle ma jeunesse ... mais bon, je ferais une version plus moderne avec des sprites alors, à l'occasion.
(avec un menu aussi pour régler la vitesse ^^)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6273
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 22:21

Ce que je trouve amusant dans ce jeu c'est justement sa rusticité et son côté rétro, pas sûr que tu y gagnes beaucoup en le faisant plus perfectionné ! mais ce n'est évidemment que mon avis Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: - Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic   Dim 19 Fév 2012 - 22:45

Je suis d'accord, JL35, j'aime bien le côté retro et le temps d'hebdogiciel ... Toute une époque
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




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

Revenir en haut Aller en bas
 
- Bacong V1.0 - Sorte de Pong traduit depuis Aurel Basic
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» PPLOT - conversion depuis le Basic d'Hector ...
» Mon ordinateur troune au ralenti....depuis plusieurs jours.
» [Annulée] Une sorte de "tableau" dans un Message
» Comment ouvrir un document word/pdf depuis un bouton ?
» Probleme Freeze depuis mise a jour et debit chute

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: