Ok, ok, first of all I know what you're thinking- don't you still have BasicNote to work on? Why are you starting other side-projects? Well the answer is, I am still focusing on BasicNote and getting help from my beta testers. And in the time I'm not taking care of other life responsibilities and whenever I'm tired of working on BasicNote for the day, I'm having fun doing these side projects 
This is a game demo based around orbiting a planet, and in it, you have limited fuel. You can use fuel to go to a higher orbit, and also use fuel to slow yourself down to a lower orbit. At the moment I have it designed so you must dock with the space station in higher orbit.
It is rather simple at the moment but I hope you like it! I'm hoping I can make an ICE version to get some more speed and fun graphics out of it too.
Code:
(side note: obviously, orbits decay if not maintained, but that is not currently a feature in this)
This is a game demo based around orbiting a planet, and in it, you have limited fuel. You can use fuel to go to a higher orbit, and also use fuel to slow yourself down to a lower orbit. At the moment I have it designed so you must dock with the space station in higher orbit.
It is rather simple at the moment but I hope you like it! I'm hoping I can make an ICE version to get some more speed and fun graphics out of it too.
Code:
ClrHome
10->P
{0,0,10->L1
1->S
ClrDraw
132->Xmax:~Ans->Xmin
82->Ymax:~Ans->Ymin
For(I,1,dim(L1),3
Circle(L1(I),L1(I+1),L1(I+2),Blue,1
End
0->E:L1(3)+5->D:0->theta:0->T:L1(3)+5->V:1->I
0->A:L1(3)+77->B:0->Z
100->F
Repeat getKey
End
Repeat K=45 or (abs(E-A)<=10 and abs(D-B)<=10 and V>=76 and V<=78
Pt-On(E,D,S,Red
Pt-On(A,B,S,Navy
getKey->K
V+.1P(F>0)((K=25)-(K=34)(V>5+L1(I+2->V
If K=25 or K=34
max(0,F-1->F
Pt-Off(E,D,S
Pt-Off(A,B,S
L1(I)+Vsin(theta->E
L1(I+1)+Vcos(theta->D
theta+P/V->theta
L1(I)+77sin(Z->A
L1(I+1)+77cos(Z->B
Z+P/77->Z
End
If K!=45
Then
ClrDraw
~100->A
100->C
For(I,1,20
For(B,1,0,~1
If B=1 or (B=0 and I<20
Then
Line(A-I,I,A-I,~I,B,Red
Line(A-I,I,A+I,I,B,Red
Line(A-I,~I,A+I,~I,B,Red
Line(A+I,I,A+I,~I,B,Red
40-I
Line(C-Ans,Ans,C-Ans,~Ans,B,Navy
Line(C-Ans,Ans,C+Ans,Ans,B,Navy
Line(C-Ans,~Ans,C+Ans,~Ans,B,Navy
Line(C+Ans,Ans,C+Ans,~Ans,B,Navy
End
End
A+3->A
C-4->C
End
For(I,~21,3,2
rand(10
Pt-On(I,5,1,Gray
Pt-On(I,~5,1,Gray
End
Text(~1,1,1,"SUCCESSFULLY DOCKED!
End(side note: obviously, orbits decay if not maintained, but that is not currently a feature in this)
