Jeu de dés zorg6

Soyez le premier à donner votre avis sur cette source.

Vue 3 551 fois - Téléchargée 392 fois

Description

Le jeu ZORG6 a été inventé, il y a longtemps, un midi, en attendant l'apéro.

Lassé du 421, c'est avec 16 capsules, une feuille de papier pour dessiner la grille de jeu et deux dés que j'ai concocté ce jeu, qui grace à ce fabuleux site qu'est Codes-Sources, vous permet désormais de pratiquer ce sport particulièrement efficace pour entretenir la dextérité de vos doigts et votre intellect.

Les régles sont simples, on lance les 2 dés :
- Si une case correspondant à un dé est vide, on y pose un de ses pions,
- Si la case est occupée on ramasse le pion.

Tant qu'on n'a pas ramassé un pion, on a le droit de rejouer.

Pour gagner la manche, il faut se débarasser de tous ses pions.

Il faut gagner 3 manches pour gagner la partie

Source / Exemple :


Inclus dans le Zip :
0.bmp
1.bmp
2.bmp
3.bmp
4.bmp
5.bmp
6.bmp
ALIAS.pas
GestH.pas
Regor.aid
uDeplace.pas
uZone.pas
x.bmp
ZORG6.dpr
Zorg61.dfm
Zorg61.pas
Zorg62.dfm
Zorg62.pas

Conclusion :


Les spécialistes du design et de delphi pourront peut être faire évoluer le look par que sais-je, une main avec des doigts pour déplacer les pions, du son (l'ordi qu parle au lieu du vulgaire message delphinien !)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
13
Merci Quentinix !
Messages postés
98
Date d'inscription
dimanche 15 février 2009
Statut
Membre
Dernière intervention
28 juin 2020

il est super rien à redire
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
13
voila c'est modifié :
il suffisait de mettre : uses Windows , ExtCtrls , StdCtrls;
dans l'unité uDeplace
Messages postés
152
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
29 avril 2009

bonjour,

merci DUBOIS77 pour cet info :)

ben apparament tu developpe sous delphi 7 en mode CLX, je suis sous delphi 6 je vais voir si je peut mettre la CLX en place.
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
13
en fait ça ne concerne que GetCursorPos du l'unité uDeplace :
procedure DeplaceObjet(var O:Tpanel);
var x,y:integer;
begin
if O.tag=1 then
begin
GetCursorPos(souris0); // nouvelle position e la souris
X := O.Left + Souris0.X - souris9.X;
Y := O.top + Souris0.Y - souris9.Y;
souris9 := souris0;
O.SetBounds(X,Y,O.Width,O.Height);
end;
end;
Si il y a moyen de trouver autre chose ?
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.