1437
« on: August 30, 2009, 10:40:03 pm »
: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..
:¦ ¦ End
Generated by [url=http://www.cemetech.net/projects/basicelite/sourcecoder.php]SourceCoder[/url], © 2005 [url=http://www.cemetech.net]Cemetech[/url]