Yeah. I want someone to help me make it not run slow
Here's the whole damn thing:
Code: :Lbl AA
:50→dim(L1
:50→dim(L2
:50→dim(L3
:50→dim(L4
:50→dim(L5
:10→dim(L6
:Fill 0,L1
:Fill 0,L2
:Fill 0,L3
:Fill 0,L4
:Fill 0,L5
:Fill 0,L6
:0→Xmin
:0→Ymin
:95→Xmax
:62→YMax
:ClrDraw
:ClrHome
:0→S
:0→T
:0→U
:0→V
:0→W
:0→X
:0→Y
:0→Z
:Menu("TI.TD V0.25","NEW GAME",BA,"RESUME",AC,"ERASE SAVE",AD,"CREDITS",AB
:Lbl AC
:Lbl AD
:Lbl AB
:ClrDraw
:Text(0,0,"TI-TOWER DEFENSE BETA V0.1"
:Text(6,0,"BY AEROMAX/FLAMEVIPER
:Text(12,0,"AUGUST 1, 2008. UPLOADED TO"
:Text(18,0,"UNITED-TI.ORG FORUMS AS"
:Text(24,0,"INCOMPLETE WORK. EXPECT"
:Text(30,0,"COMPLETION BY SEPTEMBER."
:Text(36,0,"ALL RIGHTS RESERVED.
:0→θ
:Repeat θ≠0
:getKey→θ
:End
:ClrHome
:ClrDraw
:Goto AA
:Lbl BA
:0→T
:Text(0,0,"-----"
:Line(20,55,20,62
:For(θ,0,55,5
:Line(0,θ,80,θ
:Line(85,θ,95,θ
:End
:For(θ,0,95,5
:Line(θ,0,θ,25
:Line(θ,30,θ,40
:Line(θ,45,θ,55
:End
:For(θ,70,80,5
:Line(θ,6,θ,9,0
:End
:For(θ,10,25,5
:Line(69,θ,66,θ,0
:End
:For(θ,70,90,5
:Line(θ,29,θ,26
:End
:For(θ,0,5,5
:Line(81,θ,84,θ
:End
:For(θ,45,55,5
:Line(81,θ,84,θ
:End
:Line(85,41,85,44
:Line(90,41,90,44
:For(θ,1,54,1
:Line(θ,1,θ,14,0
:End
:For(θ,1,4,1
:For(W,51,54,1
:Pxl-Change((62-W),θ
:End
:End
:0→X
:55→Y
:Goto BB
:Lbl BZ
:L6(1)+.33→L6(1)
:Text(0,0,(iPart(L6(1)))
:getKey→Z
:If Z=0
:Goto BC
:X→U
:Y→V
:If Z=24 and X>0
:X-5→X
:If Z=25 and Y<55
:Y+5→Y
:If Z=26 and X<90
:X+5→X
:If Z=34 and Y>0
:Y-5→Y
:For(θ,(X+1),(X+4),1)
:For(W,(63-Y),(66-Y),1)
:Pxl-Change(W,θ
:End
:End
:For(θ,(U+1),(U+2),1
:For(W,(V-2),(V-1),1
:Pxl-Change((62-W),θ
:End
:End
:Goto BC
:Lbl BB
:For(θ,5,50,5)
:(θ*2)→Z
:(0-Z)→L1(θ-4)
:44→L1(θ-3)
:L1(41)→L1(θ-2)
:L1(41)→L1(θ-1)
:0→L1(θ)
:End
:Lbl BC
:L1→L2
:For(θ,5,50,5)
:Line(L2(θ+1),(L2(θ+2)-2),(L2(θ+1)+3),(L2(θ+2)-2),0
:If L1(θ+5)<81
:L1(θ+1)+1→L1(θ+1):L1(θ+5)+1→L1(θ+5)
:If L1(θ+5)≥81 and L1(θ+5)<116
:L1(θ+2)-1→L1(θ+2):L1(θ+5)+1→L1(θ+5)
:If L1(θ+5)≥116 and L1(θ+5)<131
:L1(θ+1)-1→L1(θ+1):L1(θ+5)+1→L1(θ+5)
:If L1(θ+5)≥131 and L1(θ+5)<151
:L1(θ+2)+1→L1(θ+2):L1(θ+5)+1→L1(θ+5)
:If L1(θ+5)≥151
:L1(θ+1)-1→L1(θ+1)
:Line(L1(θ+1),(L1(θ+2)-2),(L1(θ+1)+3),(L1(θ+2)-2)
:End
:Goto BZ