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
» Calculatrice
par papydall Hier à 22:54

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Planétarium virtuel.
par Pedro Alvarez Mer 19 Sep 2018 - 9:28

» Demande pour Jack concernant PanExpress
par Marc Mar 18 Sep 2018 - 23:56

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

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

Aller en bas 
AuteurMessage
Jicehel

avatar

Nombre de messages : 5929
Age : 46
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 : 61
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 : 5643
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 : 61
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 : 5929
Age : 46
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 : 6326
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 : 5929
Age : 46
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 : 6326
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 : 5929
Age : 46
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: