Jogos para calculadora Gráfica CASIO

Home Pesquisar Contacto Guestbook Links Úteis Webmaster

∞ Mário ∞

Program: "MARIO"

Cls
{0} -> List 5
0 -> A~Z
0 -> r
0 -> @
ViewWindow 1,127,0,63,1,0
AxesOff
GridOff
LabelOff
Green F-Line 18,10,100,10
F-Line 100,10,100,28
F-Line 100,28,18,28
Green F-Line 18,28,18,10
PlotOn 20,12
PlotOn 98,12
PlotOn 20,26
PlotOn 98,26
F-Line 53,9,53,6
F-Line 53,6,66,6
F-Line 66,6,66,9
F-Line 53,29,53,38
F-Line 66,38,66,29
F-Line 1,38,127,38
Orange F-Line 1,39,127,39
Orange F-Line 1,40,127,40
Text 14,25,"SUPER MARIO LAND"
Green Text 21,42,"CFX-9850G"
Orange Text 50,25,"BY: B.RASMUS ANTHIN"_
3 -> L
Lbl A
Isz @
@=1 => Prog "MLEV1"
@=2 => Prog "MLEV2"
@=3 => Prog "MLEV3"
0 -> B
1+L -> O
Lbl 0
L<O => 500 -> T
L<O => F-1 -> H
L -> O
0 -> D
-1 -> Q
-1 -> K
For 1+B -> A To 21+B
Isz D
List 6[A]=1 => D -> K
List 6[A]=2 => D -> K
Next
Cls
If @ >= 1 And @ <= 3
Then Orange F-Line 91,41,53,5
Orange F-Line 53,5,8,51
Orange F-Line 80,51,103,30
Orange F-Line 103,30,125,51
IfEnd
If @ >= 4 And @ <= 6
Then Orange Circle 20,15,10
Orange PlotOn 16,2
Orange PlotOn 17,1
Orange PlotOn 18,1
Orange PlotOn 19,2
Orange PlotOn 21,2
Orange PlotOn 22,1
Orange PlotOn 23,1
Orange PlotOn 24,2
Orange PlotOn 18,10
Orange PlotOn 17,10
Orange PlotOn 16,11
Orange PlotOn 16,12
Orange PlotOn 16,13
Orange PlotOn 16,14
Orange PlotOn 17,15
Orange PlotOn 18,15
Orange PlotOn 19,15
Orange PlotOn 20,14
Orange PlotOn 20,13
Orange PlotOn 21,15
Orange PlotOn 22,15
Orange PlotOn 23,15
Orange PlotOn 24,14
Orange PlotOn 24,13
Orange PlotOn 24,12
Orange PlotOn 24,11
Orange PlotOn 23,10
Orange PlotOn 22,10
Orange PlotOn 18,13
Orange PlotOn 22,13
Orange PlotOn 15,17
Orange PlotOn 14,18
Orange PlotOn 14,19
Orange PlotOn 15,20
Orange PlotOn 16,21
Orange PlotOn 17,21
Orange PlotOn 18,22
Orange PlotOn 19,22
Orange PlotOn 20,22
Orange PlotOn 21,22
Orange PlotOn 22,22
Orange PlotOn 23,22
Orange PlotOn 24,21
Orange PlotOn 25,20
Orange PlotOn 25,19
Orange PlotOn 29,6
Orange PlotOn 30,5
Orange PlotOn 31,4
Orange PlotOn 32,15
Orange PlotOn 33,15
Orange PlotOn 34,15
Orange PlotOn 29,24
Orange PlotOn 30,25
Orange PlotOn 31,26
Orange PlotOn 20,27
Orange PlotOn 20,28
Orange PlotOn 20,29
Orange PlotOn 11,24
Orange PlotOn 10,25
Orange PlotOn 9,26
Orange PlotOn 8,15
Orange PlotOn 7,15
Orange PlotOn 6,15
IfEnd
0 -> D
For B+1 -> A To B+21
Isz D
List 1[A] >= 1 => Text 50,6D-5,"[]" test with "#" and C what U think about it
List 1[A] >= 2 => Text 44,6D-5,"[]
List 1[A] >= 3 => Text 38,6D-5,"[]
List 1[A] >= 4 => Text 32,6D-5,"[]
Next
0 -> D
For B+1 -> A To B+21
Isz D
If List 3[A]=1
Then Green Text 44-6List 1[A],6D-4,"¤" 'OPTN, f6, f5, f4
Text 44-6List 1[A],6D-4,"¤" 'the same here
IfEnd
If List 2[A]=1
Then Green Text 47-6List 1[A],6D-4,"I"
Green Text 51-6List 1[A],6D-4,"I"
Green PlotOn 6D-3,46-6List 1[A]
Green PlotOn 6D-2,45-6List 1[A]
Green PlotOn 6D-4,45-6List 1[A]
Green PlotOn 6D-5,46-6List 1[A]
Green PlotOn 6D-1,46-6List 1[A]
Green PlotOn 6D,47-6List 1[A]
Green PlotOn 6D-6,47-6List 1[A]
PlotOff 6D-4,51-6List 1[A]
PlotOff 6D-2,51-6List 1[A]
IfEnd
If List 2[A]=2
Then Orange Text 50-6List 1[A],6D-4," "
Text 50-6List 1[A],6D-4,"U"
F-Line 6D-5,50-6List 1[A],6D,50-6List 1[A]
PlotOn 6D-5,51-6List 1[A]
PlotOn 6D,51-6List 1[A]
IfEnd
If List 2[A]=3
Then Green Text 50-6List 1[A],6D-6,"]"
Green Text 50-6List 1[A],6D-4,"="
IfEnd
Next
N=0 => 0 -> E
N=0 => -List 1[E+B+1]+1 -> F
N=0 => F -> H
Text 57,2,"LIVES:"
Text 57,28,L
Text 57,41,"POINTS:"
Text 57,72,P
Text 1,100,"M:"
Text 1,112,M
Text 57,108,"L:"
Text 57,118,@
K -> Q
0 -> R
0 -> D
-1 -> W
For 1+B -> A To 21+B
Isz D
List 3[A]=2 => D -> W
Next
While 1
If Getkey=31
Then For 1 -> A To 200
Next
Do
Text 20,45,"PAUSED"
Text 20,45,"PAUSED"
Text 20,45," "
Text 20,45," "
LpWhile Getkey <> 31
IfEnd
M=100 => Isz L
M=100 => Text 1,112,"0 " '2 spaces
M=100 => Text 57,28,L
M=100 => 0 -> M
T=99 => Text 1,1," " '3 spaces
T=9 => Text 1,1," " '2 spaces
Text 1,1,T
B -> C
E -> G
0 -> N
T-1 -> T
If F=H
Then If List 1[E+B+1] <= -F
Then If Not (List 1[E+B+1]=-F-1 And List 3[E+B+1]=1)
Then If Not (List 1[E+B+1]=-F And List 2[E+B+1]=2)
Then Text 44+6F,2+6E," "
Isz F
IfEnd
IfEnd
IfEnd
IfEnd
If List 3[E+B+1]=1 Or List 3[E+B+1]=3
Then If List 1[E+B+1]=-F+1
Then If Getkey=78
Then Text 44+6F,2+6E," "
Text 41+6F,2+6E,"@"
List 4[E+B+1] <> 0 => List 3[E+B+1]=1 => Text 38-6List 1[E+B+1],2+6E,"¤" 'OPTN, f6, f5, f1
If List 3[E+B+1]=3
Then 0 -> List 3[E+B+1]
Text 15,45,"1 UP"
Text 15,45,"1 UP"
Text 15,45,"1 UP"
Text 15,45," "
Isz L
Text 57,28,L
200+P -> P
Text 57,72,P
IfEnd
Text 41+6F,2+6E," "
Text 44+6F,2+6E,"@"
Text 38-6List 1[E+B+1],2+6E," "
If List 4[E+B+1] <> 0
Then List 4[E+B+1]-1 -> List 4[E+B+1]
10+P -> P
Text 57,72,P
Isz M
Text 1,112,M
IfEnd
IfEnd
IfEnd
IfEnd
F<H => Text 44+6H,2+6E," "
Text 44+6F,2+6E,"@"
Getkey=27 => List 1[E+B+2] <> -F+2 => Not (List 1[E+B+2]=-F+1 And List 2[E+B+2]=2) => Not (List 1[E+B+2]=-F And List 3[E+B+2]=1) => Isz E
E>0 => Getkey=38 => List 1[E+B] <> -F+2 => Not (List 1[E+B]=-F+1 And List 2[E+B]=2) => Not (List 1[E+B]=-F And List 3[E+B]=1) => Dsz E
E<0 => 0 -> E
F -> H
If List 2[E+B+1] <> 2
Then -F-List 1[E+B+1]=1 => 1 -> U
-F-List 1[E+B+1]=-1 => 0 -> U
IfEnd
If List 2[E+B+1]=2
Then -F-List 1[E+B+1]=2 => 1 -> U 'Upgraders; fix this part.
-F-List 1[E+B+1]=0 => 0 -> U
IfEnd
If List 3[E+B+1]=1
Then -F-List 1[E+B+1]=3 => 1 -> U
-F-List 1[E+B+1]=1 => 0 -> U
IfEnd
List 1[E+B+1]=0 => 1 -> U
Getkey=78 => U=0 => Not (List 1[E+B+1]=-F+1 And List 3[E+B+1]=1) => Dsz F
If E >= 21
Then B+21 -> B
0 -> E
Goto 0
IfEnd
E <> G => Text 44+6F,2+6G," "
E <> G => List 1[E+B+1]=-F+1 => Text 44+6F,2+6E,"@"
If Getkey=37
Then If List 2[E+B+1]=2
Then If List 4[E+B+1]=1
Then 0 -> List 4[E+B+1]
0 -> N
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1} -> List 5 '16 1's
Cls
Text 57,2,"LIVES:"
Text 57,28,L
Text 57,41,"POINTS:"
Text 57,72,P
Text 1,100,"M:"
Text 1,112,M
Text 57,108,"L:"
Text 57,118,@
E -> I
F -> J
Goto 3
IfEnd
IfEnd
IfEnd
If E+1=Q
Then If List 1[E+B+1]=-F
Then 0 -> List 6[K+B]
100+P -> P
Text 57,72,P
-1 -> Q
-1 -> K
IfEnd
IfEnd
0 -> List 5[1]
E+1=Q => List 1[E+B+1]-1=-F => 1 -> List 5[1]
If K>0
Then If List 6[K+B]=1 Or List 6[K+B]=2
Then Q -> S
Isz R
R=1 => Isz Q
R=2 => Dsz Q
R=3 => Dsz Q
R=4 => Isz Q
R=4 => 0 -> R
Text 50-6List 1[S+B],-4+6S," "
List 6[K+B]=1 => Text 50-6List 1[Q+B],-4+6Q,"."
List 6[K+B]=2 => Text 50-6List 1[Q+B],-4+6Q,","
IfEnd
IfEnd
E+1=Q => List 1[E+B+1]-1=-F => 1 -> List 5[1]
If F=1 Or T=0 Or (List 3[E+B+1]=2 And (V >= 1 And V<3) And List 1[E+B+1]=-F) Or List 5[1]
Then L-1 -> L
If L=0 '97-03-30; remove the former line under this
Then Orange Text 10,40," " '12 spaces
Orange Text 15,40," " '12 spaces
Text 15,40," GAME OVER! "
Orange Text 20,40," " '12 spaces
Text 44+6F,2+6E," "
Text 57,28,L
Stop
IfEnd
Goto 0
IfEnd
If List 2[E+B+1]=3
Then Orange Text 10,30," " '13 spaces
Orange Text 15,30," " '13 spaces
@ <> 3 => Text 15,30," LEVEL CLEAR "
@=3 => Text 15,25," CONGRATULATIONS! "
Orange Text 20,30," " '13 spaces
While T>0
1+P -> P
Dsz T
T=99 => Text 1,1," " '3 spaces
T=9 => Text 1,1," " '2 spaces
Text 1,1,T
Text 57,72,P
WhileEnd
For 1 -> A To 500
Next
@ <> 3 => Goto A
@=3 => Goto 4
IfEnd
B <> C => Goto 0
If W>0 And List 3[E+B+1] <> 2
Then Isz V
V=6 => 0 -> V
If V=1
Then Orange Text 43-6List 1[W+B],-4+6W," "
Text 44-6List 1[W+B],-4+6W,"Y"
PlotOn -3+6W,49-6List 1[W+B]
IfEnd
V=3 => Text 44-6List 1[W+B],-5+6W," "
IfEnd
WhileEnd
Lbl 3
If Getkey=31
Then For 1 -> A To 200
Next
Do
Text 20,45,"PAUSED"
Text 20,45,"PAUSED"
Text 20,45," "
Text 20,45," "
LpWhile Getkey <> 31
IfEnd
Dsz T
T=99 => Text 1,1," " '3 spaces
T=9 => Text 1,1," " '2 spaces
Text 1,1,T
M=100 => Isz L
M=100 => Text 1,112,"0 " '2 spaces
M=100 => Text 57,28,L
M=100 => 0 -> M
Isz N
N=1 => -5 -> F
N=1 => -5 -> U
N=1 => 2 -> E
E -> G
If N=1
Then For 3 -> A To 18
Text 46,6A+2,"¤" 'OPTN, f6, f5, f1
Next
For 1 -> A To 21
Text 50,6A-5,"[]"
Text 8,6A-5,"[]"
Next
Green Text 8,7,"[]"
Green Text 8,19,"[]"
For 2 -> A To 8
Text 6A-4,1,"[]"
Text 6A-4,121,"[]"
Next
Text 8,13," "
Text 8,14," "
Green Text 44,115,"]"
Green Text 44,117,"="
IfEnd
Getkey=27 => Isz E
Getkey=38 => E>1 => Dsz E
Text 44+6F,2+6E,"@"
Getkey=78 => F <> -2 => Dsz F
F=U => F <> 0 => Isz F
F <> U => Text 44+6U,2+6E," "
E <> G => Text 44+6F,2+6G," "
F=0 => Text 38,2+6E," " '97-08-16
F -> U
If E>2 And E<19
Then If List 5[E-2]=1 And F=0
Then 10+P -> P
Isz M
0 -> List 5[E-2]
Text 57,72,P
Text 1,112,M
IfEnd
IfEnd
If E=19
Then I -> E
J -> F
Goto 0
IfEnd
If T=0
Then L-1 -> L
If L=0
Then Text 25,40," GAME OVER"
Text 57,28,L
IfEnd
0 -> E~H
L <> 0 => Goto 0
L=0=> Stop
IfEnd
Goto 3
Lbl 4
Cls
Text 15,15,"TOTAL SCORE="
Text 22,30,P_
Lbl 2
Cls
F-Line 51,40,66,40
F-Line 66,40,68,38
F-Line 68,37,64,33
F-Line 64,33,60,33
F-Line 60,33,58,35
F-Line 58,35,55,35
F-Line 55,35,52,32
F-Line 52,32,50,32
F-Line 50,32,50,39
F-Line 49,38,49,37
F-Line 55,38,60,38
Green F-Line 59,36,66,36
Green F-Line 62,35,62,34
PlotOn 64,35
Orange Text 1,95,"(C) -97"
0 -> A~E
127 -> C
Do
Isz A
A=3 => Isz B
A=1 => Orange Text 35,44,"-"
A=2 => Orange Text 35,44,"="
A=3 => Orange Text 35,44,"/" 'Division sign
A=3 => 0 -> A
Isz D
C=127 => Isz E
D=1 => Text 14,50," " '14 spaces
E=1 => Text 14,50,"IDEAS"
E=2 => Text 14,50,"PROGRAMMING"
E=3 => Text 14,50,"GRAPHIC DESIGN"
C-2 -> C '97-03-30
Text 24,C,"B. RASMUS ANTHIN. " '1 space after
C=21 => 0 -> D
C=21 => Text 24,1," " '31 spaces
C=21 => 127 -> C
LpWhile E <> 4 '97-03-30
Stop

Program: "MLEV1"

{1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,2,2,1,1,1,1
,1,1,1,1,1,2,2,2,2,2,
1,1,1,0,1,1,1,1,1,1,1
,1,1,1,1,1,1,1,1,1,1,
1,0,1,1,1,1,1,1,1,1,1
,1,2,2,2,2,2,0,1,1,1,
0,1,1,1,1,1,2,2,2,2,2
} -> List 1

{0,0,1,1,0,0,0,0,0,0,
2,0,1,0,0,0,2,0,0,1,1
,0,0,0,0,0,2,0,0,0,1,
1,1,0,0,0,0,0,0,2,0,1
,1,0,0,0,0,2,0,0,0,0,
0,0,0,0,1,0,0,0,1,0,0
,0,1,1,0,0,0,0,0,1,0,
0,0,0,0,0,0,0,0,1,1,3
} -> List 2

{0,0,0,0,0,1,1,0,0,0,
0,0,0,0,0,0,0,0,0,0,1
,1,1,1,0,0,0,1,0,0,0,
0,0,0,0,1,1,1,0,2,0,0
,1,0,1,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0
,0,0,1,1,0,0,0,0,0,0,
0,0,0,0,1,0,0,1,1,0,0
} -> List 3

{0,0,0,0,0,1,10,0,0,0
,1,0,0,0,0,0,0,0,0,0,
1,1,1,1,0,0,1,1,0,0,0
,0,0,0,0,1,10,1,0,1,0
,0,1,0,1,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,1,0,0
,0,0,0,1,1,0,0,0,0,0,
0,0,0,0,0,1,0,0,1,1} ->
List 4

{0,0,0,0,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,2,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0
} -> List 6

Program: "MLEV2"

{1,1,1,1,0,1,2,3,3,0,
1,1,1,1,1,1,0,1,1,2,2
,1,0,1,1,1,0,1,2,2,2,
1,0,1,1,1,1,2,2,3,3,2
,1,1,0,1,1,2,3,2,1,1,
1,1,1,1,1,1,0,1,1,1,1
,1,1,1,1,1,1,1,2,2,2,
3,3,2,2,1,1,1,1,1,1,1
} -> List 1

{0,1,0,0,0,0,0,0,0,0,
0,1,1,2,0,0,0,0,0,1,0
,0,0,0,1,0,0,0,0,1,0,
0,0,0,1,1,0,0,2,0,0,1
,0,0,0,0,1,0,0,0,0,2,
0,1,1,0,2,0,0,0,0,1,0
,0,0,1,1,2,0,0,0,0,1,
0,0,0,0,0,1,1,0,0,0,3
} -> List 2

{0,0,1,0,0,0,0,1,1,0,
0,0,0,2,0,0,0,0,0,0,1
,0,0,0,1,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,1,1,0
,0,1,0,0,0,0,1,0,0,2,
0,3,1,0,0,0,0,0,1,0,0
,0,0,0,0,2,0,0,0,0,0,
0,1,0,0,0,0,0,1,0,0,0
} -> List 3

{0,0,1,0,0,0,0,10,0,0
,0,0,0,1,0,0,0,0,0,0,
1,0,0,0,1,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,1,1,
0,0,1,0,0,0,0,1,0,0,0
,0,0,0,0,1,0,0,0,1,0,
0,0,0,0,0,1,0,0,0,0,0
,0,10,0,0,0,0,0,1,0,0
,0} -> List 4

{0,0,1,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,1,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,
0,0,2,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0
} -> List 6

Program: "MLEV3"

{2,1,1,1,1,2,2,2,3,3,
4,4,0,4,4,3,3,2,1,1,1
,1,1,1,1,2,1,1,2,2,0,
2,2,1,1,1,0,1,1,1,1,1
,1,1,1,2,2,2,3,3,2,2,
3,3,3,2,1,1,1,1,1,1,1
,1,1,1,1,0,0,1,0,1,1,
1,1,1,1,1,0,1,1,1,1,1
} -> List 1

{0,0,1,1,0,0,0,0,1,0,
0,0,0,0,0,0,0,0,2,0,0
,0,0,1,0,0,0,1,1,0,0,
0,2,0,1,1,0,0,2,0,0,0
,0,0,1,1,2,0,0,1,1,0,
0,0,0,0,0,1,0,0,2,0,0
,0,0,1,1,0,0,0,0,0,0,
1,0,0,0,0,0,1,0,0,0,3
} -> List 2

{0,0,1,0,1,0,1,0,0,1,
0,0,0,0,0,0,0,1,2,0,0
,0,1,0,1,0,0,1,0,0,0,
0,2,1,0,0,0,0,0,1,1,0
,1,1,0,0,2,0,0,0,0,1,
1,0,0,1,0,0,0,1,0,1,0
,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0
} -> List 3

{0,0,1,0,1,0,0,0,0,1,
0,0,0,0,0,0,0,1,1,0,0
,0,1,0,1,0,0,2,0,0,0,
0,1,0,0,0,0,0,0,1,1,0
,1,1,0,0,0,0,0,0,0,0,
1,0,0,1,0,0,0,0,1,1,0
,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0
} -> List 4

{0,0,0,2,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,2,0,
0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0
} -> List 6

Instruções

Use as teclas direccionais para movimentar a personagem.