Bon alors le tataupe est un jeu ou on tape des taupes. Mais encore...? Eh bien y a un carré composé de neufs 0 disposé comme dans un sudoku. De ces 0 sortent des ° (les taupes) et avec le touches de la calto 1,2,3,4,5,6,7,8,9 on décide sur quel trou on tape. On gagne des points a chaque fois qu'on explose une taupe. Il y a aussi des taupes piégées qui font perdre 2 pts. Voila.N'hésitez pas à l'améliorer (vous n' y arriverez pas de toute manière ahah. Si en fait vous y arriverez surement...
Code
:3->dim(L1
:3->dim(L2
:{2,4,6->L1
:{3,9,14->L2
:175->R
:Lbl M
:EffEcr
:L1(1->C:L1(2->D:L1(3->E
:L2(1->F:L2(2->G:L2(3->H
:1->M:1->N:1->A:1->B:0->S:0->I:0->Q
:Menu("TAPTAUPE","JOUER",J,"I.A.",I,"QUITTER",Q
:Lbl I
:Menu("NIVEAU I.A.","FACILE",1,"MOYEN",2,"DIFFICILE",3,"DEMENTIEL",4
:Lbl 1
:200->R
:Goto M
:Lbl 2
:175->R
:Goto M
:Lbl 3
:150->R
:Goto M
:Lbl 4
:125->R
:Goto M
:Lbl J
:EffEcr
:Output(C,F,"O
:Output(D,F,"O
:Output(E,F,"O
:Output(C,G,"O
:Output(D,G,"O
:Output(E,G,"O
:Output(C,H,"O
:Output(D,H,"O
:Output(E,H,"O
:Output(8,1,S
:For(X,1,100
:End
:L1(entAléat(1,3->M
:L2(entAléat(1,3->N
:Output(M,N,"°
:For(X,Q,R
:End
:If X>125
:entAléat(1,10->X
:If X=125
:entAléat(2,8->X
:If X=4 ou X=5:Then
:L1(entAléat(1,3->O
:L2(entAléat(1,3->P
:Output(O,P,"[petit carré qu\\\\\\\'on trouve dans le bas du catalogue]
:If X=/=4 et X=/=5:Then
:0->O:0->P
:End
:For(X,1,150
:End
:codeTouche->K
:If K=72 ou K=73 ou K=74
:2->A
:If K=82 ou K=83 ou K=84
:4->A
:If K=92 ou K=93 ou K=94
:6->A
:If K=73 ou K=83 ou K=93
:3->B
:If K=74 ou K=84 ou K=94
:9->B
:If K=75 ou K=85 ou K=95
:14->B
:Output(A,B,"*
:If A=M et B=N:Then
:Output(A,B+1,"+1
:S+1->S
:End
:If A=O et B=N:Then
:Output(A,B+1,"-2
:S-2->S
:End
:For(X,1,100
:End
:I+1->I
:If I=75:Then
:EffEcr
:Disp "VOUS AVEZ FAIT:",S
:Pause
:Goto M
:End
:Lbl Q
:Goto J
)! Il fait dans les 500 octets et je n'ai pas le code désolé...
????? surtout pour celui-là)