Pong minimaliste

[SPH]

Pong pour KCC :

Code : Tout sélectionner

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Pong par SPH  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Code : SPH(2026) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;é

InitSprite() 
InitMouse() 
InitKeyboard() 

OpenScreen(1024,768,32,"Pong") 
xx=63
yy=47
Dim decors(xx,yy)
For i=0 To xx
  decors(i,0)=1
  decors(i,yy)=1
Next
ball_x=3
ball_y=3
sens_x=1
sens_y=1

Repeat ; Boucle principale
  ClearScreen(0)
  ExamineMouse()
  ymouse=MouseY()/16
  ;;;;;;;;;;;
  StartDrawing(ScreenOutput())
  For u=0 To yy
    For i=0 To xx
      If decors(i,u)=1
        Box(i*16,u*16,16,16,RGB(255,255,255))
      EndIf
    Next
  Next
  For u=-2 To 2
    Box(xx*16,(u+ymouse)*16,16,16,RGB(255,255,255))
  Next
  For u=-2 To 2
    Box(0,(u+ball_y)*16,16,16,RGB(255,255,255))
  Next
  
  Box(ball_x*16,ball_y*16,16,16,RGB(255,255,255))
  StopDrawing() 
  
  ball_x+sens_x
  ball_y+sens_y
  If ball_y<1
    sens_y*-1
    ball_y+sens_y
  EndIf
  If ball_y>=yy
    sens_y*-1
    ball_y+sens_y
  EndIf
  If ball_x<1
    sens_x*-1
    ball_x+sens_x
  EndIf
  If ball_x>=xx
    If ymouse-2<=ball_y And ymouse+2>=ball_y
      sens_x*-1
      ball_x+sens_x
    Else
      End
    EndIf
  EndIf
  
  FlipBuffers() 
  Delay(30)
  
  ExamineKeyboard() 
Until KeyboardPushed(#PB_Key_All)
End

[SPH]

Le jeu quitte dès que vous loupez la balle. (minimaliste je vous dis )

[venom]

Pourquoi as tu fais un pong minimaliste pour KCC ? Ou j'ai zappé un truc.

J'en avais fait un ici
Je pense qu'il fonctionne toujours







@++

[SPH]

Pourquoi as tu fais un pong minimaliste pour KCC ? Ou j'ai zappé un truc.

Dans ses derniers posts, j'ai cru comprendre qu'il a joué peu mais avec des vieux jeux (donc, j'ai déguainé pong)

[SPH]

J'en avais fait un ici
Je pense qu'il fonctionne toujours

Le lien est mort mais tu as mis un code qui ne fonctionne pas seul car il fait reference a des fichiers sons que je n'ai pas.

Donc, ca marche pô

[Kwai chang caine]

Pong pour KCC :

Bonjour mon canard
Mille mercis d'avoir pensé à moi , je l'ai vu ce matin, mais comme j'écrivais sur mon tel, je pouvais pas le tester
Effectivement voir ce jeu, me fait toujours quelque chose, contrairement au gamin qui arrivait pas à comprendre qu'on pouvait s'éclater sur quelques carrés blancs qui bougent juste en Y (Connaissent rien ces d'jeun's )

J'suis dégouté parce que je l'ai lancé et ça ne marche pas sur mon écran 3840x1080, remarque avant de le démarrer je me faisais du soucis car je me disait que si chaque raquette était à chaque bord, j'allais soit me faire un torticolis en faisant gauche droite comme au tennis, ou alors j'allais me faire un strabisme avec un œil à gauche et l'autre à droite

Bon du coups..pas de victime, l’écran est complétement noir, et le programme se termine...j'ai annulé mon rdv chez l'ophtalmo
En tout cas encore merci de cette gentille intention

[venom]

J'en avais fait un ici
Je pense qu'il fonctionne toujours

Le lien est mort mais tu as mis un code qui ne fonctionne pas seul car il fait reference a des fichiers sons que je n'ai pas.

Donc, ca marche pô

J'ai modifié le lien (il faut faire clic droit puis enregistrer sous)






@++

[SPH]

@KCC

Tu n'as pas réussi à le tester alors ?
Sais tu si ton ordi peux ouvrir un écran 1024*768 ?

[Kwai chang caine]

J'ai pas pu tester, car ecran noir

Sais tu si ton ordi peux ouvrir un écran 1024*768 ?

Bah non, j'ai déjà eu un mal fou à paramétrer mes 2 nouveaux écrans de 3800, y'a fallu que j’achète une espèce de carte vidéo externe qui coute un bras, alors maintenant que ça marche...je touche plus rien, déjà que j'y pige quedal dans toutes ces histoires de résolution, DPI et tout le toutim
Faut dire que quand on fait jamais de jeux, on a à régler et changer quoi que ce soit qu'une fois dans la vie de l'écran et presque parfois du PC
Quand je vois les galères que vous avez, avec vos carte graphiques parfois plus puissantes et chères que le PC lui même, bientôt on te vendra une carte graphique avec PC intégré et ben j'me dit "Quand on voit ce qu'on voit, qu'on entend ce qu'on entend, qu'on sait ce qu'on sait, et ben j'ai raison de penser et d'aimer l'utilitaire que j'aime !!! " (Pierre Dac)