Hi,
I'm trying to make a little game in which you control a plane that's supposed to dodge objects. I got the objects scrolling and the plane moving, but it reacts kind of slow. I'm kind of stuck here, since I already tried to keep everything as small as possible. This is what I have:
Main Program:
Code:
prgmAASKY:
Code:
Those 'ü's are storage arrows btw. If anyone can point me in the right direction, that would rock
I'm trying to make a little game in which you control a plane that's supposed to dodge objects. I got the objects scrolling and the plane moving, but it reacts kind of slow. I'm kind of stuck here, since I already tried to keep everything as small as possible. This is what I have:
Main Program:
Code:
ClrHome
5üY
5üX
ClrHome
DelVar [A]
{2,99}üdim([A])
" "üStr1
" "üStr2
" "üStr3
For(I,1,7)
Str2+Str1üStr1
End
While 1
Output(Y-1,X+1,"A")
Output(Y,X,"=X=")
For(T,1,05)
getKeyüK
If Kø0:Then
Output(Y-1,X+1," ")
Output(Y,X," ")
End
If K=24 or K=26:X+(K=26)+(X÷13)-(K=24)-(Xù2)üX
If K=25 or K=34:Y+(K=34)+(Y÷7)-(K=25)-(Yù3)üY
Output(Y-1,X+1,"A")
Output(Y,X,"=X=")
End
prgmAASKY
End
prgmAASKY:
Code:
randInt(2,16)üL
randInt(1,2)üS
sub(Str2,1,L-1)üStr3
If S=1:Str3+"Ñ"+" "üStr3
If S=2:Str3+"Ã"+" "üStr3
sub(sub(Str3,1,16)+Str1,1,128)üStr1
Output(1,1,Str1)
Return
Those 'ü's are storage arrows btw. If anyone can point me in the right direction, that would rock