Paper Golf

[GloryMXE7]

this is my other project*
anyway heres the link to the original game Papergolf**
and consider checking out the other games on the site
nut back to the project the end prodect will be on the graph screen but first i am finishing the homescreen demo of the the game first wich i will post soon unfortunately i have to type all the code out onto the computer myself because i lost my linkcable

*yes i am working on two projects at the same time
**link can be found in my sig too

[cjgone]

Why are you working on two projects that should take atleast 4+months each?

That seems rather pointless, but okay. Games don't spontaneously code themselves.

[DigiTan]

Yeah, I mean let's at least start one of those projects first before pulling double-duty.

[GloryMXE7]

well actually Im not the kinda person who can do one thing at a time i tend to make things harder for myself but anyway ive alredy started this one the other is just kinda sitting there for now but that doesnt mean ive forgotten it
and i never expected instant gratification when i started them,

Heres the code for the rough draft of the homescreen demo
theres no scoring and isnt optimized much

[[2,0,0,0,2,2,2,2,2,2,2,2,5,5,2,2],
[0,0,0,0,0,2,2,0,0,0,0,0,5,5,5,2],
[0,0,8,0,0,0,0,0,0,0,0,0,0,5,5,2],
[0,0,0,0,0,0,5,5,5,2,5,5,0,2,2,2],
[2,0,0,0,3,0,0,0,0,0,0,5,0,2,0,2],
[3,3,3,3,3,3,0,0,0,0,0,0,2,0,0,0],
[2,2,3,3,3,3,3,3,2,2,2,0,0,1,0,0],
[2,2,2,2,2,3,3,3,3,2,2,2,0,0,0,2]]->[A]
ClrHome
Repeat X=W and Y=H
For(A,1,16
For(B,1,8
[A](B,A->D
if ans=1
then
OutputB,A,"F
B->H:A->W
end
if D=2
Output(B,A,"X
if D=3
Output(B,A,"W
if D=5
Output(B,A,"S
if D=8
then
OutputB,A,"O
B->Y:A->X
end
end
end
Pause
X->O
Y->P
Repeat K=105 or [A](Y,X)=2
clrhome
output(Y,X,"O
getkey->K
X->C
Y->L
x-(K=24)+(K=26->X
Y+(K=34)-(K=25->Y
end
if [A](Y,X)=2
then
C->X:L->Y
end
if [A](Y,X)!=3
then
8->[A](Y,X
0->[A](P,O
end
end
Output(Y,X,"F