Un petit prog trouvé, comme une sorte de combat de boxe plutot bien fait^^
Code | :0->V
:AxesOff:GridOff:FnOff
:ClrHome
:Goto Z
:Lbl Q:C+2->D
:50->T
:Output(8,D,"[racine carré] !"
:For(P,1,T:End
:Output(7,C-1,"..":For(P,1,T:End:Output(7,C-1," "
:Output(8,C-2,":":Output(8,C+1,"X"
:For(P,1,T:End
:Output(8,C-2," ":For(X,5,1,-1:Output(8,X,".. "
:For(P,1,T:End
:End:Stop
:Lbl O
:C+1->C
:For(X,6,8
:Output(X,C," "
:For(P,1,100:End:End
:2->C:Output(8,C,"^"
:For(P,1,100:End
:Output(7,C,"T"
:For(P,1,100:End
:Output(6,C,"O"
:For(P,1,100:End
:Output(7,C-1,"<"
:For(X,3,10:Output(6,X,"-"
:For(P,1,25:End
:End
:For(X,11,3,-1
:Output(6,X,"[téta] "
:For(P,1,25:End
:End:Output(7,10," ":Output(8,8,"+< "
:Stop
:Lbl P
:50->T
:Output(7,C,"/T"
:For(P,1,T:End
:Output(7,C," ":Output(6,C,"L":For(P,1,T:End:Output(6,C," "
:C+1->C
:Output(5,C,"."
:For(P,1,T:End
:Output(5,C," "
:C+1->C
:Output(5,C,"/"
:For(P,1,T:End
:Output(5,C," "
:Output(6,C," ."
:Output(7,C,"/0"
:C+1->C
:Output(8,C,"[le M couché vers la gauche]x"
:Output(8,C+1," "
:Stop
:Lbl Z
:0->Xmin:0->Ymin
:94->Xmax:62->Ymax
:ClrDraw:Line(10,56,22,52
:Line(22,52,22,9
:Line(22,9,10,9
:Line(10,9,10,56
:Line(22,45,51,57
:Line(51,57,46,48
:Line(46,48,43,46
:Line(42,45,22,36
:Line(22,34,64,13
:Line(64,13,54,13
:Line(54,13,22,25
:Line(56,52,56,17
:Line(56,13,56,6
:Line(56,6,64,9
:Line(69,17,64,9
:Line(69,17,69,56
:Line(68,56,56,52
:Text(25,14,"KILLER INSTINCT
:0->K
:Lbl U
:Text(56,27,"HIT ENTER
:For(P,1,20
:getKey->K:If K[different]0
:Goto W
:End
:Text(56,27," "
:For(P,1,10
:getKey->K:If K[different]0
:Goto W
:End
:Goto U
:Lbl W
:ClrDraw
:If K=21:96->V
:If K=15:Goto G
:If K=14:Then:96->V:Goto G:End
:Text(3,23,"KI 1.1 BY YAN.
:Line(0,62,94,62
:Line(0,62,0,50
:Line(0,50,94,50
:Line(94,50,94,62
:Text(16,20,"O
:Text(16,70,"0
:Text(22,20,"+ <-YOU HIM-> +
:Text(28,20,"^
:Text(28,70,"^
:Text(38,0,"LIKE STICK FIGHTER WITHOUT":Text(44,0,"THE MEMORY LEAKS!
:Pause
:ClrDraw
:Disp "MOVES:","< MOVE LEFT","> MOVE RIGHT","1:HIGH PUNCH","2:LOW PUNCH","3:KICK"
:Pause :ClrHome
:Disp "DIFFICULTY(1-6)","1=EASY
:Input Y
:6-Y->M
:0->X
:400->T
:0->N
:9->A:9->B
:7->C:10->D
:ClrHome
:Output(1,1,"YOU
:Output(1,14,"HIM
:Output(4,6,"READY?
:Output(2,2,A
:Output(2,15,B
:Output(1,7,"{KI}
:For(téta,1,16
:Output(3,téta,"-
:End
:Output(6,C,"O 0
:Output(7,C,"+ +
:Output(8,C,"^ ^
:For(P,1,T:End
:Output(4,6,"FIGHT!
:For(P,1,T:End
:Output(4,6," "
:Lbl 0:0->H:0->F
:X+1->X
:Output(6,C-1," O "
:Output(7,C-1," + "
:Output(8,C-1," ^ "
:1->R
:getKey->K
:If K=0:Goto 4
:If K=24 and C>2:1->F:If F=1
:C-1->C
:If F=1:Goto 1
:0->F
:If K=26 and C<16 and C<D-2:1->F:If F=1
:C+1->C:If F=1
:Goto 1
:If K=92:Goto A
:If K=93:Goto B
:If K=94:Goto C
:Lbl 1
:Output(6,C-1," O "
:Output(7,C-1," + "
:Output(8,C-1," ^ "
:Lbl 4
:If X[inferieur ou egale]M
:Goto 0
:Lbl 5:0->H
:Output(6,D-1," 0 "
:Output(7,D-1," + "
:Output(8,D-1," ^ "
:rand->N
:2->R
:If N>.75:Goto D
:If N>.5:Goto E
:If N>.25:Goto F
:If D>C+2:Then:D-1->D
:Output(6,D,"0 "
:Output(7,D,"+ "
:Output(8,D,"^ "
:End
:If D>C+2:Goto 5
:0->X:Goto 0
:Lbl A
:Output(6,C,"O/
:Output(7,C-1,"<T
:If D=C+2
:Then:1->H
:Output(6,D," ":Output(7,D," ":Output(8,D," "
:If D<15:D+1->D
:Output(6,D," 0
:Output(7,D,"/
:Output(8,D,"^
:B-1->B:For(P,1,50:End
:Output(6,C,"O ":Output(7,C-1," +
:End:Goto 3
:Lbl B
:Output(7,C+1,"-
:If D=C+2:Then:
:1->H
:Output(6,D,"
:Output(7,D,"
:Output(8,D,"
:If D<15:D+1->D
:Output(6,D,"0
:Output(7,D," )
:Output(8,D,"^
:B-1->B:For(P,1,50:End
:End:Goto 3
:Lbl C
:Output(6,C-1,"O
:Output(7,C,"X/
:Output(8,C-1,"/
:If D=C+2:Then
:1->H:Output(6,D,"
:Output(7,D,"
:Output(8,D,"
:If D<15:D+1->D
:Output(6,D," 0
:Output(7,D,"X
:Output(8,D-1,"/!
:B-1->B:For(P,1,50:End
:Output(8,D-1,"
:End
:Goto 3
:Lbl D
:Output(7,D-1,"-
:If C=D-2
:Then:1->H
:Output(6,C,"
:Output(7,C,"
:Output(8,C,"
:If C>2:C-1->C
:Output(6,C,"O
:Output(7,C-1,"(
:Output(8,C,"^
:A-1->A
:For(P,1,50:End
:Output(7,C-1," +
:End:Goto 6
:Lbl E
:Output(6,D-1,"L
:Output(7,D,"T!
:If C=D-2
:Then:1->H
:Output(6,C,"
:Output(7,C,"
:Output(8,C,"
:If C>2:C-1->C
:Output(6,C-1,"O
:Output(7,C,")
:Output(8,C,"^
:A-1->A
:For(P,1,50:End
:End
:Goto 6
:Lbl F
:Output(6,D,"0
:Output(7,D,"[le x avec une barre au dessus]
:Output(8,D-1,"/!
:If C=D-2:Then
:1->H:Output(6,C,"
:Output(7,C,"
:Output(8,C,"
:If C>2:C-1->C
:Output(6,C,"O
:Output(7,C,"+
:Output(8,C-1,"/!
:A-1->A
:For(P,1,50
:End:Output(8,C-1,"
:End:Goto 6
:Goto 0
:Lbl 3
:Output(2,15,B
:If B=0:Goto G
:If B=6 and H=1 or B=3 and H=1
:Then:Output(6,D,"
:Output(7,D,"
:Output(8,D,">+0
:For(P,1,400:End
:End
:Output(6,D,"0
:Output(7,D,"+
:Output(8,D,"^
:Goto 4
:Lbl 6:0->X
:Output(2,2,A
:If A=0:Goto G
:If A=6 and H=1 or A=3 and H=1
:Then:Output(6,C-1,"
:Output(7,C,"
:Output(8,C-1,"O+<
:For(P,1,400:End
:Output(6,C,"O
:Output(7,C,"+
:Output(8,C-1," ^
:End
:Goto 0
:Lbl G:ClrHome
:int 3rand->F
:If A>B:Then:Output(3,5,"YOU WIN
:0->Q:Else
:Output(3,5,"YOU LOSE
:1->Q:End
:Lbl H
:Output(6,C," O 0
:Output(7,C," + +
:Output(8,C," ^ ^
:If C=7:Goto 7
:If C>7:C-1->C
:If C<7:C+1->C
:Goto H
:Lbl 7
:For(P,1,100:End
:100->T
:If V=96:prgmKIFATALS
:If Q=1:Goto Q
:If F=0:Goto N
:If F=1:Goto O
:If F=2:Goto P
:Lbl N
:Output(5,C-1,"*
:Output(6,C,"LO
:Output(7,C+1,"T
:For(P,1,T:End
:Output(5,C-1,"-*
:Output(6,C,"
:For(P,1,T:End
:Output(5,C-1,"
:Output(4,C-1," -*
:For(P,1,T:End
:Output(4,C-1,"
:Output(5,C+2,"*
:For(P,1,T:End
:Output(5,C+2,"
:Output(6,C+3,"*
:For(P,1,50:End
:1->X:1->Y
:Lbl 9
:For(X,5,1,-1
:Output(X,10,"0
:Output(X+1,10,"
:For(P,1,40:End
:End
:Output(1,10,"
:Stop
|
Voila^^ je l'ai traduit via microsoft word et si on peut l'ameliorer ou le diminuer (surement d'ailleur) ca serai encore mieu^^ Bon jeu
|