0 Members and 2 Guests are viewing this topic.
:ClrHome:Output(7,1,"**PRESS [2ND]**** TO BEGIN **:Repeat Ans>17:¦ For(A,1,16:¦ ¦ Output(3,1," G^r^AVI^T^Y! :¦ ¦ Output(3,A,">:¦ ¦ Output(3,‾A+17,"<:¦ ¦ rand(2:¦ ¦ A+[size=8]E[/size]2(getKey=21→A:¦ End:End:7→A:1→θ:1→F:3→G:1→U:1→T:DelVar Z:Repeat K=22 or not(G:¦ DelVar T:¦ For(X,1,4:¦ ¦ Output(X,1,"XXXXXXXXXXXXXXXX:¦ ¦ Output(‾X+9,1,"XXXXXXXXXXXXXXXX:¦ ¦ rand(5:¦ End:¦ For(X,4,2,‾1:¦ ¦ Output(X,1," :¦ ¦ Output(‾X+9,1," :¦ ¦ rand(5:¦ End:¦ For(X,1,16:¦ ¦ Output(4,1,sub("*********WORLD 1*********WORLD 2*********WORLD 3*********WORLD 4",(16U-16)+(‾X+17),X:¦ ¦ Output(5,‾X+17,sub("INDUSTRIAL ZONE*SUBTERRA ZONE***SKY ZONE********METROPOLIS ZONE*",16U-15,X:¦ ¦ rand(2:¦ End:¦ getKey:¦ rand(60:¦ Repeat G≤0 or K=22 or T:¦ ¦ (θ<8)+15(B=1)(K=24)(θ>1→B:¦ ¦ (θ<8)(16A-15)+15(B=16)(K=24)(θ>1→C:¦ ¦ prgmGRAVLVLS:¦ ¦ Ans→Str0:¦ ¦ inString(Str0,"θ→W:¦ ¦ 16(^-1)(W+15→V:¦ ¦ {V,W→L[size=8]1[/size]:¦ ¦ Output(1,1,Str0:¦ ¦ If W:¦ ¦ Output(V,1," :¦ ¦ DelVar VDelVar WDelVar Z5→H:¦ ¦ Repeat B=16 and K=26 or B=1 and K=24 or Z or K=22 or sub(Str0,C,1)=":¦ ¦ ¦ ¦ Output(A,B,"θ:¦ ¦ ¦ ¦ Output(1,1,sub(Str0,1,10:¦ ¦ ¦ ¦ If H:¦ ¦ ¦ ¦ Then:¦ ¦ ¦ ¦ ¦ Output(1,1,"LIVES: :¦ ¦ ¦ ¦ ¦ Output(1,8,G:¦ ¦ ¦ ¦ End:¦ ¦ ¦ ¦ Output(1,16,sub("",F+3(F=‾1),1:¦ ¦ ¦ ¦ For(X,1,5:¦ ¦ ¦ ¦ ¦ getKey→K:¦ ¦ ¦ ¦ ¦ X+5K→X:¦ ¦ ¦ ¦ End:¦ ¦ ¦ ¦ If K=11:¦ ¦ ¦ ¦ Then:¦ ¦ ¦ ¦ ¦ 1→Z:¦ ¦ ¦ ¦ ¦ ClrHome:¦ ¦ ¦ ¦ ¦ Input "WORLD? ",U:¦ ¦ ¦ ¦ ¦ Input "SCREEN? ",θ:¦ ¦ ¦ ¦ End:¦ ¦ ¦ ¦ H-(H≠0→H:¦ ¦ ¦ ¦ Y+(Y<8)-7(Y≥8→Y:¦ ¦ ¦ ¦ If A=1 or A=8 or sub(Str0,C,1)="*:¦ ¦ ¦ ¦ Then:¦ ¦ ¦ ¦ ¦ ClrHome:¦ ¦ ¦ ¦ ¦ Output(4,7,"OUCH!:¦ ¦ ¦ ¦ ¦ Repeat getKey=21:¦ ¦ ¦ ¦ ¦ End:¦ ¦ ¦ ¦ ¦ G-1→G:¦ ¦ ¦ ¦ ¦ 1→Z:¦ ¦ ¦ ¦ ¦ L[size=8]1[/size](1→A:¦ ¦ ¦ ¦ ¦ L[size=8]1[/size](2→C:¦ ¦ ¦ ¦ End:¦ ¦ ¦ ¦ If K or sub(Str0,C+F16,1)≠"X:¦ ¦ ¦ ¦ Output(A,B," :¦ ¦ ¦ ¦ A+F(A>1)(A<8)(sub(Str0,C+F16,1)≠"X→A:¦ ¦ ¦ ¦ C+F16(A>1)(A<8)(sub(Str0,C+F16,1)≠"X→C:¦ ¦ ¦ ¦ If sub(Str0,C,1)="[phat]:¦ ¦ ¦ ¦ 1→S:¦ ¦ ¦ ¦ If K=21:¦ ¦ ¦ ¦ 1-2(F=1→F:¦ ¦ ¦ ¦ B+(K=26)(B<16)(sub(Str0,C+1,1)≠"X" or S and sub(Str0,C+1,1)="-")-(K=24)(B>1)(sub(Str0,C-1,1)≠"X" or S and sub(Str0,C-1,1)="-→D:¦ ¦ ¦ ¦ C+(D-B→C:¦ ¦ ¦ ¦ D→B:¦ ¦ ¦ End:¦ ¦ ¦ θ+(θ<7)(B=16)(K=26)-(θ>1)(B=1)(K=24→θ:¦ ¦ ¦ If sub(Str0,C,1)=":¦ ¦ ¦ ¦ Then:¦ ¦ ¦ ¦ ¦ U+1→U:¦ ¦ ¦ ¦ ¦ 1→T:¦ ¦ ¦ ¦ ¦ 1→θ:¦ ¦ ¦ ¦ End:¦ ¦ ¦ End:¦ ¦ End:¦ ¦ ClrHome:¦ ¦ If K≠22 and G:¦ ¦ Then:¦ ¦ ¦ Output(4,1," YOU WIN! :¦ ¦ ¦ Else:¦ ¦ ¦ Output(4,1," YOU LOSE..:¦ ¦ EndGenerated by [url=http://www.cemetech.net/projects/basicelite/sourcecoder.php]SourceCoder[/url], © 2005 [url=http://www.cemetech.net]Cemetech[/url]