here is a moon lander game. movement, crashing, fuel count, and gravity all work. i need 3-5 landing pads, a way to 'refuel' at those landing pads, a way to pause when you touch a landing pad so you dont fly right through it and crash, and a way to count scores... THE FIRST PERSON TO MAKE A FEASIBLE, WORKING OPTIMIZATION GETS THERE NAME IN THE CREDITS!!!!!!
Code:
Code:
:31→Z
:47→X
:1→W
:100→G
:Lbl 1
:If Z≤7 and Z≥0:Text(34,47,"CRASH!"
:If Z≤7 and Z≥0:Stop
:If G≤0:0→G
:W+.5→W
:Z-W→Z
:Horizontal(0
:Text(1,1,"FUEL:"
:Text(1,20,G
:Line(X-1,Z,X+1,Z
:Line(X-2,Z-1,X+2,Z-1
:Line(X-1,Z-2,X+1,Z-2
:Line(X-2,Z-3,X-2,Z-4
:Line(X+2,Z-3,X+2,Z-4
:Line(X,Z-3,X,Z-3
:If G≥1:Goto 2
:If G≤0:Goto 1
:Lbl 2
:If K=34:Line(X,Z-5,X,Z-6
:getKey→K
:If K=24:X+2→X:Z+.5→Z
:If K=34:Z+3→Z
:If K=34:W-1.25→W
:If K=26:X-2→X:Z+.5→Z
:If K=34:Line(X,Z-5,X,Z-6
:If K=34:G-1→G
:ClrDraw
:Goto 1