Autorisation : Membre
Nb de messages : 19
Inscrit le : Lun 17 Déc 2012, 15:20
Posté le : Ven 01 Fév 2013, 18:58
Bonjour à vous programmeur(euse)
voici ici la présentation de mon premier jeu incluant le déplacement d'une "image"
le concept de ce jeu est simple vous êtes un bonhomme et vous devez récupérer un maximum de O sans prendre de 0(c'est le chiffre zéro) et récupérez un maximum de point
la difficulté actuel est fixe mais je prévois de mettre une difficulté croissante avec plus de mauvais truc à ne pas ramasser et quelques autres items à ramasser
donc le code :
Code
ClrHome
8->B
2->C
0->S
0->X
1->V
1->F
1->G
0->T
1->H
1->I
Lbl 0
If H=0 and I=0 or T=0
Then
int(rand*16+1->H
int(rand*8+1->I
End
If T=0:60->T
If F=0 and G=0
Then
int(rand*16+1->F
int(rand*8+1->G
End
C+1->D
C+2->E
If D=9:1->D
If D=10:1->D
If E=9:1->E
If E=10:2->E
If E=11:1->E
Output(D,B,"I
Output(E,B,"(pi)
Output(C,B,0
If C=G and B=F or E=G and B=F or D=G and B=F
Then
1->F:1->G:1->S
End
If C=I and B=H or E=I and B=H or D=I and B=H
Then
1->H:1->I:S-1->S:V-1->V
End
If V=-1:Goto 2
If S=10
Then
0->S:1->X
End
getKey->A
If A=24:B-1->B
If A=25:C-1->C
If A=26:B+1->B
If A=34:C+1->C
If A=24 and B=0:16->B
If A=25 and C=0:8->C
If A=26 and B=17:1->B
If A=34 and C=9:1->C
If A=/=0:ClrHome
T-1->T
Output(G,F,"O
Output(I,H,0
Output(1,1," "
Goto 0
Lbl 2
ClrHome
Output(4,6,"GAME
Output(5,6,"OVER
Pause
ClrHome
X*10->X
X+S->S
Output(4,6,"SCORE:
Output(5,8,S
Pause
ClrHome
Output(1,1,"
---------------------- Jeu en cour de programmation: Black jack
90%
possesseur d'une ti82
