NORTY
[Prev][Next][Index][Thread]
NORTY
HERE HAVE NORTY.
NORTEY (By AL)
The AMaze Feature is a seperate program in itself.
:AxesOff
:PlotsOff
:ClrHome
:Lbl OO <- "OO" not 00
:ClrDraw
:Menu("ARENA","NORMAL",Z,"FOREST",A,"PIC ARENA",B,"AMAZE",AM,"QUIT",Q)
:Lbl AM
:prgmAMAZE
:Goto Z
:Lbl A
:ClrHome
:Input "NO. OF TREES ",E
:For(R,1,E)
:randInt(1,49) \->\ S <- The "STO>" button
:randInt(1,89) \->\ T
:Text(S,T,"pi") <- Put Pi Character in here
:End
:Goto Z
:
:Lbl B
:0 \->\ R
:Input "RECALL PIC 1-3 ",R <- Add more if you want
:If R=1
:RecallPic 1
:If R=2
:RecallPic 2
:If R=3
:RecallPic 3
:Goto Z <- Makes upgrading easier
:
:Lbl Z
:Line(XMin,YMin,XMax,YMin)
:Line(XMin,YMin,XMin,Ymax)
:Line(XMin,Ymax,XMax,Ymax)
:Line(XMax,YMin,XMax,YMax)
:
:10 \->\ X
:10 \->\ Y
:2 \->\ Z
:0 \->\ \@\ <- Theta
:90 \->\ A
:50 \->\ B
:-2 \->\ C
:0 \->\ D
:Text(25,37," " <- 19 Spaces
:Repeat (pxl-Test(Y,X)=1) or pxl-Test(B,A)=1
:If pxl-Test(B,A+C)=1 or pxl-Test(B,A+.5)=1
:Then
:0 \->\ C
:randInt(1,2) \->\ R
:If R=1 and pxl-Test(B-2,A)=0 and pxl-Test(B-1,A)=0
:Then
:-2 \->\ D
:Else
:2 \->\ D
:End
:
:If R=2 and pxl-Test(B+2,A)=0 and pxl-Test(B+1,A)=0
:Then
:2 \->\ D
:Else
:-2 \->\ D
:End
:End
:
:If pxl-Test(B+D,A)=1 or pxl-Test(B+.5D,A)=1
:Then
:0 \->\ D
:randInt(1,2) \->\ R
:If R=1 and pxl-Test(B,A+2)=0 and pxl-Test(B,A+1)=0
:Then
:2 \->\ C
:Else
:-2 \->\ C
:End
:
:If R=2 and pxl-Test(B,A-2)=0 and pxl-Test(B,A-1)=0
:Then
:-2 \->\ C
:Else
:2 \->\ C
:End
:End
:
:getKey \->\ K
:If K=25
:Then
:0 \->\ Z
:-2 \->\ \@\
:End
:If K=24
:Then
:-2 \->\ Z
:0 \->\ \@\
:End
:If K=26
:Then
:2 \->\ Z
:0 \->\ \@\
:End
:If K=34
:Then
:0 \->\ Z
:2 \->\ \@\
:End
:
:Pxl-On(B,A)
:Pxl-On(Y,X)
:X+Z \->\ X
:Y+ \@\ \->\ Y
:A+C \->\ A
:B+D \->\ B
:End
:
:If pxl-Test(Y,X)=1
:Text(11,25,"P1 CRASHED")
:If pxl-Test(B,A)=1
:Text(20,25,"CALC CRASHED")
:Pause
:ClrHome
:Goto OO
:Lbl Q
AMAZE (By AL)
For use with NORTEY. About 20 lines is norm on the Standard 10,-10 axis.
Change axis to change density of lines.
:Lbl RE
:ClrDraw
:ClrHome
:Input "LINES? ",L
:For(A,1,0,-1)
:For(I,1,L)
:randInt(1,2) \->\ R
:If R=1
:Then
:randInt(XMin,Xmax) \->\ X
:randInt(YMin,Ymax) \->\ Y
:randInt(YMin,YMax) \->\ Z
:Line(X,Y,X,Z,A
:End
:If R=2
:Then
:randInt(XMin,Xmax) \->\ X
:randInt(YMin,Ymax) \->\ Y
:randInt(XMin,XMax) \->\ Z
:Line(X,Y,Z,Y,A
:End
:End
:End
:Pause
:Lbl MU
:Menu("AMAZE","STORE 1",ST,"REDRAW",RE,"USE",QW)
:Lbl QW
:Return
:Lbl ST
:StorePic 1
:Goto MU