Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

If Y=1 Or R=1 Or U=1 Or T=1 Or K=1
Then Goto r
IfEnd
Lbl r
ClrText
Locate 1,1,"xxxx A T T A C K xxxx"
Y=0Locate 1,2,"[F1] YELLOW KNIGHT"
R=0 And S10Locate 1,3,"[F2] RED KNIGHT"
U=0 And S30Locate 1,4,"[F3] BLUE KNIGHT"
T=0 And S50Locate 1,5,"[F4] GREEN KNIGHT"
K=0 And S100Locate 1,6,"[F5] BLACK KNIGHT"
Locate 1,7,"[F6] EXIT"
Goto
Lbl
Getkey=29Goto A
Getkey=79Goto B
Getkey=69Goto C
Getkey=59Goto D
Getkey=49Goto E
Getkey=39Goto F
Goto
Lbl A
1A
Return
Lbl B
Y1Goto
1E
100A
Goto G
Lbl C
S<10 Or R=1Goto
2E
250A
Goto G
Lbl D
S<30 Or U=1Goto
3E
500A
Goto G
Lbl E
S<50 Or T=1Goto
4E
750A
Goto G
Lbl F
S<100 Or K=1Goto
5E
2000A
Goto G
Lbl G
ClrText
Locate 1,4,"!"
Locate 1,4,"K!"
Locate 1,4,"CK!"
Locate 1,4,"ACK!"
Locate 1,4,"TACK!"
Locate 1,4,"TTACK!"
Locate 1,4,"ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4," ATTACK!"
Locate 7,1,"xxxxxxxxx"
Locate 7,7,"xxxxxxxxx"
Locate 7,1," "
Locate 7,7," "
Locate 7,2,"xxxxxxxxx"
Locate 7,6,"xxxxxxxxx"
Locate 7,2," "
Locate 7,6," "
Locate 7,3,"xxxxxxxxx"
Locate 7,5,"xxxxxxxxx"
Goto Z
Lbl Z
Getkey=31Goto Y
Goto Z
Lbl Y
ClrText
Int (1.5xS)Ran#+1B
Locate 1,1,"xxxx A T T A C K xxxx"
Locate 1,4,":"
Locate 1,4,"S:"
Locate 1,4,"RS:"
Locate 1,4,"ERS:"
Locate 1,4,"IESR:"
Locate 1,4,"DIERS:"
Locate 1,4,"LDIERS:"
Locate 1,4,"OLDIERS:"
Locate 1,4,"SOLDIERS:"
Locate 1,5,":"
Locate 1,5,"K:"
Locate 1,5,"CK:"
Locate 1,5,"ACK:"
Locate 1,5,"TACK:"
Locate 1,5,"TTACK:"
Locate 1,5,"ATTACK:"
Locate 1,6,":"
Locate 1,6,"D:"
Locate 1,6,"LD:"
Locate 1,6,"OLD:"
Locate 1,6,"GOLD:"
Locate 1,7,":"
Locate 1,7,"S:"
Locate 1,7,"ES:"
Locate 1,7,"IES:"
Locate 1,7,"RIES:"
Locate 1,7,"RRIES:"
Locate 1,7,"ARRIES:"
Locate 1,7,"CARRIES:"
E=1Locate 9,3,"YELLOW"
E=2Locate 12,3,"RED"
E=3Locate 11,3,"BLUE"
E=4Locate 10,3,"GREEN"
E=5Locate 10,3,"BLACK"
Locate 16,3,"KNIGHT"
Locate 11,4,A
Locate 11,5,B
Locate 11,6,"100"
E=1Locate 11,7,"SWORD"
E=2Locate 11,7,"LANCE"
E=3Locate 11,7,"MACE"
E=4Locate 11,7,"AXE"
E=5Locate 11,7,"CATAPULT"
Goto T
Lbl T
Getkey=31Goto H
Goto T
Lbl H
H0Goto P
ClrText
Locate 1,1,"xxxx A T T A C K xxxx"
Locate 1,3,"YOU ENEMY"
Locate 1,4,H
Locate 18,4,A
Locate 1,6,"[F1] ATTACK"
Locate 1,7,"[F2] RETREAT"
Goto I
Lbl I
Getkey=79Goto J
Getkey=69Goto R
Goto I
Lbl J
Locate 1,6," "
Locate 1,7," "
Int 5Ran#+1X
Int SRan#+1O
OxXX
Locate 10,5,"KILLED"
Locate 17,5,X
A-XA
A<00A
Locate 18,4," "
Locate 18,4,A
Goto K
Lbl K
Getkey=31Goto L
Goto K
Lbl L
A0Goto N
Int 5Ran#+1X
XxEX
H-XH
H<00H
Locate 1,5," "
Locate 1,5,"KILLED"
Locate 8,5,X
Locate 1,4," "
Locate 1,4,H
Goto M
Lbl M
Getkey=31Goto H
Goto M
Lbl N
ClrText
100C
Locate 1,1,"xxxxxx VICTORY xxxxxx"
Locate 1,3,"ON THE ENEMY YOU FIND"
Locate 1,4,C
Locate 5,4,"GOLD AND A"
E=1Locate 16,4,"SWORD."
E=1S+1S
E=2Locate 16,4,"LANCE."
E=2S+2S
E=3Locate 16,4,"MACE."
E=3S+3S
E=4Locate 15,4,"N AXE."
E=4S+4S
E=5Locate 1,5,"CATAPULT."
E=5S+25S
E=11Y
E=21R
E=31U
E=41T
E=51K
C+GG
Goto X
Lbl O
1A
Getkey=31Return
Goto O
Lbl P
ClrText
Locate 1,1,"xxxxxxx R I P xxxxxxx"
Locate 1,2,"YOU ARE DEAD AND YOUR"
Locate 1,3,"KINGDOM IS OVERTAKEN"
Locate 3,4,"BY THE EVIL BLACK"
Locate 8,5,"KNIGHT."
Locate 1,7,"xxx GAME OVER xxx"
Goto Q
Lbl Q
Getkey=31ClrText
Stop
Goto Q
Lbl R
Locate 1,6," "
Locate 1,7," "
Locate 2,7,"UNABLE TO RETREAT!"
Goto L
Lbl X
Getkey=31Goto S
Goto X
Lbl S
If Y0 And R0 And U0 And T0 And K0
Then Goto W
IfEnd
1A
Return
Lbl W
ClrText
Locate 1,1," CAMELOT IS SAVED!"
Locate 2,2,"YOU HAVE ONCE AGAIN"
Locate 1,3,"PROVED YOUR WORTH AS"
Locate 1,4," KING. THE BLACK"
Locate 1,5,"KNIGHT WILL NO LONGER"
Locate 1,6,"TORMENT YOUR PEOPLE."
Locate 1,7," OR WILL HE?"
Goto V
Lbl V
Getkey=31Goto U
Goto V
Lbl U
ClrText
Locate 1,2,"THIS GAME WAS CREATED"
Locate 1,3,"BY:"
Locate 11,5," S"
Locate 11,5," SE"
Locate 11,5," SEA"
Locate 11,5," SEAN"
Locate 11,5," SEAN "
Locate 11,5," SEAN W"
Locate 11,5," SEAN WA"
Locate 11,5," SEAN WAR"
Locate 11,5," SEAN WARR"
Locate 11,5," SEAN WARRE"
Locate 11,5,"SEAN WARREN"
Goto 0
Lbl 0
Getkey=31Goto 1
Goto 0
Lbl 1
ClrText
Locate 1,2," xxxxxxxxxxx"
Locate 1,3," x x"
Locate 1,4," x THE END x"
Locate 1,5," x x"
Locate 1,6," xxxxxxxxxxx"
Goto 2
Lbl 2
Getkey=31Goto 3
Goto 2
Lbl 3
ClrText
Stop