329
« on: November 23, 2011, 08:59:12 pm »
:.MARIO
:0→Q→V→L
:48→R
:88→N
:Lbl SAT
:1→T
:If (L=4)
:Text(25,,"WIN")
:Goto END
:End
:ClrDraw
:Full
:0→Z→H→A→I→J→P→X
:48→Y→G
:88→D
:[FFFFFFFFFFFF427E]→Pic6
:[F789898E89D1A1FF]→Pic5
:[3C7EDBDBFF246699]→Pic4
:[7E81A58181A5817E]→Pic3
:[1C3F3442247E2436]→Pic2
:[7E99A5858981897E]→Pic1
:Pt-On(X,Y,Pic2)
:Pt-On(Q,40,Pic1)
:Pt-On(R,40,Pic1)
:Pt-On(N,40,Pic1)
:Pt-On(D,G,Pic4)
:sub(ABCD)
:DispGraph
:Lbl MOV
:If getKey(54)
:1→J
:Pt-On(X,Y,Pic2)
:pxl-Test(X,Y-1)→T
:!If T
:For(A,0,20)
:0→J
:If getKey(3)
:X++
:Q--
:R--
:N--
:Z--
:If (Z=‾8)
:-1→Z
:End
:End
:If getKey(2)
:Q++
:R++
:N++
:Z++
:X--
:If (Z=88)
:-1→Z
:End
:End
:If X=D + (Y≠G)
:65→G
:End
:ClrDraw
:sub(ABCD)
:Pt-On(X,Y--,Pic2)
:DispGraph
:If X=D
:If Y=G
:→H
:End
:End
:!If A
:Pt-On(R,40,Pic1)
:Else
:Pt-On(R,40,Pic3)
:End
:!If I
:Pt-On(N,40,Pic1)
:Else
:Pt-On(N,40,Pic3)
:End
:!If P
:Pt-On(Q,40,Pic1)
:Else
:Pt-On(Q,40,Pic3)
:End
:DispGraph
:End
:ClrDraw
:Pt-On(D,G,Pic4)
:Pt-On(X,Y,Pic2)
:sub(ABCD)
:If X=D
:If Y=G
:→H
:End
:End
:DispGraph
:End
:End
:!If A
:Pt-On(R,40,Pic1)
:Else
:Pt-On(R,40,Pic3)
:End
:DispGraph
:!If I
:Pt-On(N,40,Pic1)
:Else
:Pt-On(N,40,Pic3)
:End
:DispGraph
:Pt-On(X,Y,Pic2
:!If P
:Pt-On(Q,40,Pic1)
:Else
:Pt-On(Q,40,Pic3
:End
:DispGraph
:If X=D
:If Y=G
:1→H
:End
:End
:If getKey(54)
:If X=N
:1→I
:End
:If X=Q
:1→P
:End
:If X=R
:1→A
:End
:End
:ClrDraw
:sub(ABCD)
:D--
:Pt-On(D,G,Pic4)
:Pt-On(X,Y,Pic2)
:If X=D
:If Y=G
:→H
:End
:End
:Pt-On(X,Y,Pic2)
:DispGraph
:!If A
:Pt-On(R,40,Pic1)
:DispGraph
:Else
:Pt-On(R,40,Pic3)
:DispGraph
:End
:!If I
:Pt-On(N,40,Pic1)
:DispGraph
:Else
:Pt-On(N,40,Pic3)
:DispGraph
:End
:!If P
:Pt-On(Q,40,Pic1
:DispGraph
:Else
:Pt-On(Q,40,Pic3
:DispGraph
:End
:DispGraph
:pxl-Test(X,Y+8)→T
:While (T=0) and (J=1)
:If pxl-Test(D,G-1)→V
:!If V-1
:65→G
:End
:End
:If getKey(3)
:X++
:Q--
:R--
:N--
:Z--
:If (Z=‾8)
:-1→Z
:End
:End
:If getKey(2)
:X--
:End
:ClrDraw
:sub(ABCD)
:Y++
:Pt-On(X,Y,Pic2)
:Pt-On(D,G,Pic4)
:!If A
:Pt-On(R,40,Pic1)
:Else
:Pt-On(R,40,Pic3)
:End
:!If I
:Pt-On(N,40,Pic1)
:Else
:Pt-On(N,40,Pic3)
:End
:!If P
:Pt-On(Q,40,Pic1)
:Else
:Pt-On(Q,40,Pic3)
:End
:DispGraph
:If X=D
:If Y=G
:1→H
:End
:End
:End
:If X=D
:If Y=G
:1→H
:End
:End
:DispGraph
:!If A
:Pt-On(R,40,Pic1)
:Else
:Pt-On(R,40,Pic3)
:End
:If I=0
:Pt-On(N,40,Pic1
:sub(ABCD)
:D--
:Pt-On(D,G,Pic4
:Pt-On(X,Y,Pic2
:Else
:Pt-On(N,40,Pic3
:D--
:Pt-On(D,G,Pic4
:Pt-On(X,Y,Pic2
:If X=D
:If Y=G
:1→H
:End
:End
:DispGraph
:!If A
:Pt-On(R,40,Pic1)
:Else
:Pt-On(R,40,Pic3)
:End
:DispGraph
:I!f P
:Pt-On(Q,40,Pic1)
:Pt-On(X,Y,Pic2)
:Else
:Pt-On(Q,40,Pic3)
:Pt-On(X,Y,Pic2)
:End
:DispGraph
:Pt-On(X,Y,Pic2)
:DispGraph
:End
:0→J
:If getKey(3)
:If (X>80) and (L=0)
:40→Q
:48→R
:56→N
:1→L
:Goto SAT
:End
:If (X>80) and (L=1)
:0→Q+2→L
:8→R
:16→N
:Goto SAT
:End
:If (X>80) and (L=2)
:72→Q
:80→R
:88→N
:3→L
:Goto SAT
:End
:If (X>80) and (L=3)
:20→Q
:40→R
:80→N
:4→L
:Goto SAT
:End
:ClrDraw
:Q--
:R--
:N--
:If (Q=‾8)
:88→Q
:End
:If (R=‾8)
:88→R
:End
:If (N=‾8)
:88→N
:End
:Z--
:If (Z=‾8)
:0→Z
:End
:Pt-On(Z,56,Pic5
:sub(ABCD)
:DispGraph
:X++
:While (Y≠48) and (X≠Q) and (X≠R) and (X≠N)
:ClrDraw
:Y++
:Pt-On(X,Y,Pic2
:DispGraph
:End
:Pt-On(X,Y,Pic2)
:D--
:Pt-On(D,G,Pic4
:Pt-On(X,Y,Pic2
:If X=D
:If Y=G
:→H
:End
:End
:!If A
:Pt-On(R,40,Pic1
:Else
:Pt-On(R,40,Pic3
:End
:DispGraph
:!If I
:Pt-On(N,40,Pic1
:Pt-On(X,Y,Pic2
:Else
:Pt-On(N,40,Pic3
:Pt-On(X,Y,Pic2
:End
:DispGraph
:!If P
:Pt-On(Q,40,Pic1
:Pt-On(X,Y,Pic2
:Else
:Pt-On(Q,40,Pic3
:Pt-On(X,Y,Pic2
:End
:Pt-On(X,Y,Pic2
:End
:DispGraph
:If getKey(2)
:Q++
:R++
:N++
:If (Q=96)
:88→Q
:End
:If (R=96)
:88→R
:End
:If (N=96)
:88→N
:End
:X--
:While (Y≠48) and (X≠Q) and (X≠R) and (X≠N)
:ClrDraw
:Y++
:Pt-On(X,Y,Pic2
:DispGraph
:End
:ClrDraw
:Z++
:If (Z=88)
:0→Z
:End
:sub(ABCD)
:DispGraph
:Pt-On(X,Y,Pic2)
:D--
:Pt-On(D,G,Pic4
:Pt-On(X,Y,Pic2
:If X=D
:If Y=G
:1→H
:End
:End
:!If A
:Pt-On(R,40,Pic1
:Else
:Pt-On(R,40,Pic3
:End
:!If I
:Pt-On(N,40,Pic1
:Pt-On(X,Y,Pic2
:Else
:Pt-On(N,40,Pic3
:Pt-On(X,Y,Pic2
:End
:Pt-On(X,Y,Pic2
:DispGraph
:!If P
:Pt-On(Q,40,Pic1
:Pt-On(X,Y,Pic2
:DispGraph
:Else
:Pt-On(Q,40,Pic3
:Pt-On(X,Y,Pic2
:DispGraph
:End
:Pt-On(X,Y,Pic2
:DispGraph
:End
:If H=1
:Goto END
:End
:If getKey(15)
:Goto END
:End
:If getKey(55)
:Goto SAT
:End
:Goto MOV
:If (L=4)
:Text(5,5,"WIN"
:Pause 1000
:Goto END
:End
:Lbl ABCD
:For(P,0,11)
:Pt-On(P*8+Z,56,Pic5
:End
:Return
:Lbl END
Please take no offense, but i have never seen such unoptimized code.
Does your game look glitchy around some sprites when you play it?
You can save over 100 bytes by reworking DispGraphs.