PureBasic

C'est très fluide bravo.

Salut,
Poste un code sommaire de ton soucis.

Bravo à toi.
C'est toujours sympa de voir un projet aboutir. Le plus dur étant souvent de finir
Bonne chance pour la suite.

J'avoue que pour l'éphéméride c'est top. Merci.

C'est très chouette. Je suis en 6.20
Par contre les déplacements souris + fleches me font vite tourner la tête, et je n'arrive pas à l'expliquer car j'ai quand même pas mal l'habitude de la 3D

Top !
Merci MindPhaser et merci falsam du coup.

Du lancement de thread dans une procedure je trouve ça étrange. C'est GPT qui t'a fait ça non ?
Petit exemple de Falsam ici : viewtopic.php?t=11872

Il ne faut pas oublier qu'il y a, avec le cumule de dès (2 pour l'exemple), plus de chance de faire des 7 que des 2 par exemple.
7 tu peux l'obtenir avec 1,6 avec 2,5 avec 3,4 et 4,3 etc...
Alors que 2 tu dois faire 1 et 1 épicétout... Pareil pour 12
Tu auras donc env 16% de faire un 7 en jetant 2 ...

Une version un peu plus condensée.
lancer = 9999

Dim resultat(lancer)
Dim stat(18)

For i = 0 To lancer - 1
rez = 0
For nb = 1 To 3
jet = Random(6, 1)
rez + jet
Next
resultat(i) = rez
stat(rez) + 1
Next

Debug "Voici les stats sur " + Str(lancer) + " lancés de 3 dés"
Debug ""

For i = 3 To ...

@Shadow @sph @venom @Mindphazer
On arrête là les débats stériles s'il vous plait. On parle code.

SPH a écrit : mar. 06/mai/2025 23:12 J'avais bien dit à l'avance (par 2 fois) : "excuse moi a l'avance"

Je l'avais vu sinon je t'aurai viré ton com' illico. je me suis cantonné à un "tu abuses"
Et sinon ton site HS ?

Je testerai à l'occasion, merci du partage.


Je connais ce jeu. J'en ai un très bien fait quelque part sur un disque dur.

PS : comment se fait il (excuse moi a l'avance) que les graphismes sont très moches ?? (sorry d'avance) :!: 8O


Tu abuses SPH. Hexasceabble n'est pas non plus une ...

SPH a écrit : mar. 01/avr./2025 23:51 Le groupe de demomaker "Intense" m'est totalement inconnu. Pourtant, je collectionnais les demos amiga. J'en avais plus de 600 (disquettes).

Tu en as d'Apocalypse Bay ? J'en doute mais sait on jamais

@falsam. CoOl

Pas de soucis ici en 6.20 x64

Peut être ta profondeur ? tu as essayé en 24 au lieu de 32 ?

Moi en 32 ça passe mais pas en 24 par exemple.
EnableExplicit

#ScreenWidth = 800
#ScreenHeight = 600

InitSprite()
InitKeyboard()

If OpenScreen(#ScreenWidth, #ScreenHeight, 32, "Test")

Repeat ...