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
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,"
