main engine::
:Text(‾1,0,0,sub(Str1,1,15
:Text(‾1,8,0,sub(Str1,16,15
:Text(‾1,16,0,sub(Str1,31,15
:Text(‾1,24,0,sub(Str1,46,15
:Text(‾1,32,0,sub(Str1,61,15
:Text(‾1,40,0,sub(Str1,76,15
:Text(‾1,48,0,sub(Str1,91,15
:Text(‾1,56,0,sub(Str1,106,15
:StorePic 2
:Text(‾1,0,0,sub(Str2,1,15
:Text(‾1,8,0,sub(Str2,16,15
:Text(‾1,16,0,sub(Str2,31,15
:Text(‾1,24,0,sub(Str2,46,15
:Text(‾1,32,0,sub(Str2,61,15
:Text(‾1,40,0,sub(Str2,76,15
:Text(‾1,48,0,sub(Str2,91,15
:Text(‾1,56,0,sub(Str2,106,15
:RecallPic 2
:L1(3→B:L1(4→A
:L1(1→G
:L1(2→H
:L1(5→S
:L1(6→T
:L2(1→Z
:L2(2→Y
:L2(3→X
:DelVar M
:DelVar JText(‾1,0,90,H
:If S:Then
:Text(‾1,24,90,"!
:End
:If G=3:Then
:Text(‾1,16,90,"
:End
:If T:Then
:Text(‾1,32,90,"
:End
:While A≠1 and A≠9 and B≠0 and B≠16 and H
:If E:Then
:E-1→E
:If not(E
:Then
:Text(‾1,8,90,"
:End:End
:A→C
:B→D
:Text(‾1,8A-8,6B-6,"Ω
:If M
:Then
:2→M
:Text(‾1,8A-8,6B-6,"Î
:End
:getKey→K
:If K:Then
:B+(K=26)-(K=24→B
:If B≠D
:Then
:If B and B≠16 and ""=sub(Str1,15A-14+B-1,1
:Then
:D→B
:End
:End
:End
:If A≠1 and A≠9
:Then
:If not(J) and ""≠sub(Str1,15(A+1)-15+B,1) and ""≠sub(Str1,15(A-1)-15+B,1
:Then
:A+1→A
:Else
:If S and K=21:Then
:prgmZAT
:End
:If T and K=31:Then
:prgmZSH
:End
:J+G(K=25 and not(J→J
:End
:If J:Then
:If ""≠sub(Str1,15(A-1)-15+B,1
:Then
:A-1→A
:End
:J-1→J
:End
:If (A≠C or B≠D) and B and B≠16
:Then
:Text(‾1,8A-8,6B-6,"Ω
:Text(‾1,8C-8,6D-6,"
:If ""=sub(Str1,15C-15+B,1
:Then
:Text(‾1,8C-8,6D-6,"
:End
:If 2=M
:Then
:Text(‾1,8C-8,6D-6,"Î
:DelVar M
:End
:End
:If " "≠sub(Str1,15A-15+B,1
:Then
:prgmZIT
:End:End
:If Z:Then
:prgmZEN
:End:End
:G→L1(1
:H→L1(2
:A→L1(3
:B→L1(4
:S→L1(5
special tiles (prgmZIT)
:If "o"=sub(Str1,15A-15+B,1
:Then
:1→T
:sub(Str1,15A-15+B,length(Str1)-15A-14+B→Str3
:sub(Str2,1,15A-16+B)+" "+Str3→Str1
:Else
:If "!"=sub(Str1,15A-15+B,1
:Then
:1→S
:sub(Str1,15A-14+B,length(Str1)-(15A-14+B→Str3
:sub(Str1,1,15A-16+B)+" "+Str3→Str1
:Text(‾1,24,90,"!
:Else
:If "Δ"=sub(Str1,15A-14+B-1,1
:Then
:H+3→H
:If 9<H
:Then
:9→H
:End
:sub(Str1,15A-14+B,length(Str1)-(15A-14+B→Str3
:sub(Str1,1,15A-16+B)+" "+Str3→Str1
:Text(‾1,0,90,H
:Text(‾1,8,90,"┼
:3→E
:Else
:If ""=sub(Str1,15A-14+B-1,1
:Then
:Text(‾1,16,90,"
:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3
:sub(Str1,1,15A-14+B-2)+" "+Str3→Str1
:3→G
:Else
:If "Î"=sub(Str1,15A-14+B-1,1
:Then
:Text(‾1,0,90,H
:H-1→H
:1→M
:End
:End
:End
:End
sword animation (prgmZAT)
:15A-15+B→S
:Text(‾1,8A-8,6B,"-
:Text(‾1,8A-16,6B-6,"/
:Text(‾1,8A-8,6B,sub(Str1,S+1,1
:StorePic 2
:Text(‾1,8A-8,6B,sub(Str2,S+1,1
:RecallPic 2
:Text(‾1,8A-16,6B-6,"!
:Text(‾1,8A-16,6B,sub(Str1,S-14,1
:StorePic 2
:Text(‾1,8A-16,6B,sub(Str2,S-14,1
:RecallPic 2
:Text(‾1,8A-16,6B-12,"
:Text(‾1,8A-16,6B-6,sub(Str1,S-15,1
:StorePic 2
:Text(‾1,8-16,6B-6,sub(Str2,S-15,1
:RecallPic 2
:Text(‾1,8A-8,6B-12,"-
:Text(‾1,8A-16,6B-12,sub(Str1,S-16,1
:StorePic 2
:Text(‾1,8A-16,6B-12,sub(Str2,S-16,1
:RecallPic 2
:Text(‾1,8A-8,6B-12,sub(Str1,15A-16+B,1
:StorePic 2
:Text(‾1,8A-8,6B-12,sub(Str2,15A-16+B,1
:RecallPic 2
:1→S
:If (A=Y and (B-1=X or B+1=X)) or (A-1=Y and (B-1=X or B=X or B+1=X
:Then
:DelVar Z
:End
magic animation (prgmZSH)
:H+2(X=B or X=B+1 or X=B-1→H
:A-1→T
:If H>9:Then
:9→H
:End
:Text(‾1,8T-8,6B-6,"O
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"∙
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,sub(Str1,15T-15+B,1
:StorePic 2
:Text(‾1,8T-8,6B-6,sub(Str2,15T-15+B,1
:RecallPic 2
enemy movement and action handler (prgmZEN)
:H+2(X=B or X=B+1 or X=B-1→H
:A-1→T
:If H>9:Then
:9→H
:End
:Text(‾1,8T-8,6B-6,"O
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"o
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,"∙
:For(θ,1,10):End
:Text(‾1,8T-8,6B-6,sub(Str1,15T-15+B,1
:StorePic 2
:Text(‾1,8T-8,6B-6,sub(Str2,15T-15+B,1
:RecallPic 2
please give me your optimizations :)
you mean that they were intentionalHaha. Either way you say it makes sense. "Just making sure [the numbers] weren't intentional" is the same as "Just making sure [the numbers] were intentional".
Oh on a side note I hope this wasn't what you were planning to enter into the contest considering you've released demos at least 3 times.so does that mean we're allowed to submit a game if we haven't released demos? even if we have announced the project?
so does that mean we're allowed to submit a game if we haven't released demos? even if we have announced the project?You can't have announced it prior to the contest, but if you announced it on/after April 24 (the day the contest was announced) you can enter it.
oh right, :( oh well. they weren't really demos, they were more for people to test to see If I had errorsThere's also rule #2:
2). You may release screenshots of your progress - however, you are not allowed to release demos or have direct help with your code.And you've had a lot of help (in the other thread).
aww, rat's oh well. This was more of a platform engine then a game thoughRules are rules Eeems. If they made the exception for you, and accepted it just because it's more of an engine than a game, then they would have to do it for everyone else. Meaning that they could release the engine behind their game and retrieve help from the community. The whole point of the contest is to work independently and to show what you yourself can do.
Load map
Get Lists
Display HUD
Display Map
While health and character is not off limits
getkey
Update Tile
Physics
Display character
If Key then
sword
Jump
magic
End
Jump action
If enemy then
enemy movement
End
Tile tests
End
By the way, this is a dual-layer platformer I'm guessing? And are those screenshots with 6 MHz?Yes it is, and yes they are at 6MHz, which is why they are slow compared to Trev's
While CONDITION
CODE
Repeat Getkey
End
Ans->VAR
MOAR CODE
End
While CONDITION
CODE
Getkey->VAR
MOAR CODE
End
While CONDITION
CODE
Repeat Getkey
End
Ans->VAR
MOAR CODE
End
This code is actually incorrect the Ans does not store to VAR.
This code is actually incorrect the Ans does not store to VAR.
:While CONDITION
:CODE
:Repeat Ans
:getKey
:End
:Ans→VAR
:MORE CODE
:End
:While STUFF
:getKey→K
:If K
:prgmMOVE
:(some stuff that has to be executed every time)
:End
Uhm Noah, by var I meant any real var. I wrote VAR because the user could decide to use whatever var from A to Z, and yes you can store Ans to real vars, I tried and it works.I believe he meant that with "Repeat getKey:End", the getKey does not store to Ans, so you have no way to retrieve the input if a key was pressed.
This should work:Code: [Select]:While CONDITION
:CODE
:Repeat Ans
:getKey
:End
:Ans→VAR
:MORE CODE
:End
What I do for Chip's Challenge is along the lines ofCode: [Select]:While STUFF
:getKey→K
:If K
:prgmMOVE
:(some stuff that has to be executed every time)
:End
prgmMOVE contains all the code for if the player moved, so if they didn't move the (useless) code isn't executed. There's stuff besides a key press that triggers movement (or at least the need to run the movement code), but that's the gist of it.
:While STUFF
:getKey→K
:If K
:Then
:prgmMOVE
:End
:(some stuff that has to be executed every time)
:End
When using If statements with only 1 line afterwards, it's faster to execute that line WITHOUT the Then:End, but when skipping that line (in cases where key presses aren't pushed often), it's faster to have Then:End because instead of reading what's inside, it skips. Not sure if what I said just made sense, but to sum it up, it's faster to skip code using Then:End, and it's faster to execute the code just using If by itself.So, when the condition is false (the next line is skipped) it's faster to use If:Then:End.
Yes, you put it in a much simpler way. That is correct.When using If statements with only 1 line afterwards, it's faster to execute that line WITHOUT the Then:End, but when skipping that line (in cases where key presses aren't pushed often), it's faster to have Then:End because instead of reading what's inside, it skips. Not sure if what I said just made sense, but to sum it up, it's faster to skip code using Then:End, and it's faster to execute the code just using If by itself.So, when the condition is false (the next line is skipped) it's faster to use If:Then:End.
When the condition is true (the code is executed) it's faster to just use If.
Is that right? If that's the case, then whether to use the Then:End depends on if most of the time the condition will be true or false.
BTW remember this is for teh contest so you can't really help me with it...:(^^^
OOPS!!!
I don't think you're supposed to be helping him... I believe he is entering this into the Omnimaga contest, and any outside help will disqualify him.I didn't know and he asked for help in the first topic. I didn't read a reply saying that it is an entry in the contest...
no I have recently restarted it and gave up the last engine, I did say to you that I didn't need help with this because I wasn't wanting to get disqualified, but you can take the old engine (which kind of sucks) and do what you want with it. I'll upload my last backup of it for you (if I still have one). But I'll let you have the source to the new engine as soon as the contest is over if you wantCool. I want to pick up the code. ;)
:ClrDraw:ClrHome:AxesOff
:Input "World: ",W
:Text(57,0,"World ",W
:For(A,1,7)
:For(B,1,6)
:{A,B,W→L3
:L3(3→W
:If W=1:Then
:prgmZW1
:Else
:If W=2:Then
:prgmZW2
:Else
:If W=3:Then
:prgmZW3
:Else
:If W=4:Then
:prgmZW4
:Else
:If W=5:Then
:prgmZW5
:Else
:If W=6:Then
:prgmZW6
:Else
:If W=7:Then
:prgmZW7
:Else
:If W=8:Then
:prgmZW8
:Else
:If W=9:Then
:prgmZW9
:Else
:".ER:NO:MP→Str1
:End:End:End:End:End:End:End:End:End
:For(Y,1,8)
:For(X,1,15)
:If 9=length(Str1
:Then
:Pxl-On(Y+8A-9,X+15B-16
:Else
:If "#"=sub(Str1,15Y+X,1
:Then
:Pxl-On(Y+8A-9,X+B15-16
:End
:End
:End
:End
:End
:End
:ClrDraw:ClrHome:AxesOff
:Input "World: ",W
:Text(57,0,"World ",W
:For(A,1,7)
:For(B,1,6)
:{A,B,W→L3
:L3(3→W
:If W=1:prgmZW1
:If W=2:prgmZW2
:If W=3:prgmZW3
:If W=4:prgmZW4
:If W=5:prgmZW5
:If W=6:prgmZW6
:If W=7:prgmZW7
:If W=8:prgmZW8
:If W=9:prgmZW9
:".ER:NO:MP→Str1
:End:End
:For(Y,1,8)
:For(X,1,15)
:If 9=length(Str1) or "#"=sub(Str1,15Y+X,1
:Pxl-On(Y+8A-9,X+15B-16
:End
:End
stuff like For(A,1,7) could also be changed to For(A,1,7That together with an If without Then:End makes the execution much slower when the condition is false.
well, sorry for the double post, but I thought that this deserved a post of it's own:same way as it does with large text sprites......
I am over halfway done the first world and then I will work on events for it. I haven't really been doing anything with the engine lately, because I think I am pretty much done it. I actually was thinking about dual layer text sprites with smaller text, how would that work? anybody played around with that yet?
except a larger area for stuff ;D (but i suppose it would take longer to fill up the area)well, sorry for the double post, but I thought that this deserved a post of it's own:same way as it does with large text sprites......
I am over halfway done the first world and then I will work on events for it. I haven't really been doing anything with the engine lately, because I think I am pretty much done it. I actually was thinking about dual layer text sprites with smaller text, how would that work? anybody played around with that yet?
you know.. I think Geekboy has his calculator's ram cleared.. the most.. Just working on the 1 prgm we weremaking.. which took like.. 20-30 mins. he cleared his ram like.. 2-3 times.. even though we wern't running the prgm..
And when he clears his ram. he's like. No biggie XD! and imlike >=OOO
I think he deserves an award =D.
thanks!Ahem (http://ourl.ca/3296) :) Some new stories?
funny story, I was playing around with Celtic III and trying to figure out identity(4 and I accidentally cleared my RAM, and everything I had made was lost....luckily I had backed it up to make this :) I am glad I did
I was wondering if it would be ok for me to ask what magics I should use, or would that be counted as asking for help?That would count as game help, since you're getting help with ideas.
ok new screenshot which shows all the magics, and the AI in water, as well as your character almost drowning... ;DIs the magic when the screen shakes or those beams shooting up?
Interesting! Did you do all of that in BASIC?I believe it's hybrid (using Celtic III).
Or is that a hybrid?
:det(28,"00"+det(27,Str1,22(A+D)+B+C,1→U
:Repeat H≤0 or V=2 or V=3
:Repeat H≤0 or V
:Repeat H≤0 or (U>12 and U<15) or U>35 or K or V
:real(8→K
:prgmZD
:real(6
:det(28,"00"+det(27,Str1,22(A+D)+B+C-22,1→S
:det(28,"00"+det(27,Str1,22(A+D)+B+C+22,1→T
:J+(G+2)((K=7 or K=8 or K=4) and not(J) and (T=4 or T=3 or T=9 or T=28))-(J≠0)-(J-1)(S=3 or S=28 or S=9→J
:A-(J and S≠3 and S≠28 and S≠9)+(T≠3 and T≠4 and T≠28 and T≠9 and U≠10 and not(J→A
:(K=3 or K=8 or K=6)-(K=5 or K=2 or K=7→T
:det(28,"00"+det(27,Str1,22(A+D)+B+C+T,1→S
:B+T(S≠28 and S≠4 and S≠3 and S≠9→B
:(A≤0 or A≥9 or B≤0 or B≥12)+2(A+D=1 or A+D=16 or B+C=1 or B+C=22→V
:If RZ:Then
:det(28,"00"+det(27,Str1,22Y+X+Z-(abs(Z)=2),1→S
:(S=3 or S=28 or S=9 or S=4→N
:X+(Z-(abs(Z)=2))(N=0→X
:Z+‾2Z(N≠0→Z
:H-(RZ and X=B+C and Y=A+D→H
:End
:det(28,"00"+det(27,Str1,22(A+D)+B+C,1→U
:End
:prgmZD
:real(6
:If K:Then
:If K=54:Then
:prgmZA
:R(R>0→R
:End
:If K=49:prgmZM
:If K=48:prgmZB
:If K=53:prgmZS
:If K=9:Then
:identity(1,0,1
:real(0,1
:getKey
:Repeat real(8)=63
:real(12,6,0,0,4,6,1
:rand(20
:real(12,7,0,0,4,6,1
:rand(20
:End
:real(3,0,0,1
:End:End:End
:If V=1:Then
:If A≤0:Then:DelVar D
:8→A:Else:If A≥9:Then:1→A:8→D:End:End
:If B≤0:Then:DelVar C
:11→B:Else:If B≥12:Then:1→B:11→C:End
:End
:If (U>12 and U<15) or U=35
:Then
:prgmZE
:End
:End:End
:If V=3:Then
:W+1→W
:{1,1,W→L3
:3→A:3→B
:DelVar DDelVar C
:1→L5(W
:prgmZF
:Else
:L3(2)+(A+D>15)-(A+D=1→L3(2
:L3(1)+(B+C>21)-(B+C=1→L3(1
:C→I:D→V
:C-11(C+B>21)+11(B+C=1→C
:D-8(D+A>15)+8(A+D=1→D
:A-6(A=8 and V)+6(A=1 and not(V→A
:B-9(B>11 and I)+9(B=1 and not(I→B
:End
loops/if then tabs:det(28,"00"+det(27,Str1,22(A+D)+B+C,1→U
:Repeat H≤0 or V=2 or V=3
:¦ Repeat H≤0 or V
:¦ ¦ Repeat H≤0 or (U>12 and U<15) or U>35 or K or V
:¦ ¦ ¦ real(8→K
:¦ ¦ ¦ prgmZD
:¦ ¦ ¦ real(6
:¦ ¦ ¦ det(28,"00"+det(27,Str1,22(A+D)+B+C-22,1→S
:¦ ¦ ¦ det(28,"00"+det(27,Str1,22(A+D)+B+C+22,1→T
:¦ ¦ ¦ J+(G+2)((K=7 or K=8 or K=4) and not(J) and (T=4 or T=3 or T=9 or T=28))-(J≠0)-(J-1)(S=3 or S=28 or S=9→J
:¦ ¦ ¦ A-(J and S≠3 and S≠28 and S≠9)+(T≠3 and T≠4 and T≠28 and T≠9 and U≠10 and not(J→A
:¦ ¦ ¦ (K=3 or K=8 or K=6)-(K=5 or K=2 or K=7→T
:¦ ¦ ¦ det(28,"00"+det(27,Str1,22(A+D)+B+C+T,1→S
:¦ ¦ ¦ B+T(S≠28 and S≠4 and S≠3 and S≠9→B
:¦ ¦ ¦ (A≤0 or A≥9 or B≤0 or B≥12)+2(A+D=1 or A+D=16 or B+C=1 or B+C=22→V
:¦ ¦ ¦ If RZ:Then
:¦ ¦ ¦ ¦ det(28,"00"+det(27,Str1,22Y+X+Z-(abs(Z)=2),1→S
:¦ ¦ ¦ ¦ (S=3 or S=28 or S=9 or S=4→N
:¦ ¦ ¦ ¦ X+(Z-(abs(Z)=2))(N=0→X
:¦ ¦ ¦ ¦ Z+‾2Z(N≠0→Z
:¦ ¦ ¦ ¦ H-(RZ and X=B+C and Y=A+D→H
:¦ ¦ ¦ End
:¦ ¦ ¦ det(28,"00"+det(27,Str1,22(A+D)+B+C,1→U
:¦ ¦ End
:¦ ¦ prgmZD
:¦ ¦ real(6
:¦ ¦ If K:Then
:¦ ¦ ¦ If K=54:Then
:¦ ¦ ¦ ¦ prgmZA
:¦ ¦ ¦ ¦ R(R>0→R
:¦ ¦ ¦ End
:¦ ¦ ¦ If K=49:prgmZM
:¦ ¦ ¦ If K=48:prgmZB
:¦ ¦ ¦ If K=53:prgmZS
:¦ ¦ ¦ If K=9:Then
:¦ ¦ ¦ ¦ identity(1,0,1
:¦ ¦ ¦ ¦ real(0,1
:¦ ¦ ¦ ¦ getKey
:¦ ¦ ¦ ¦ Repeat real(8)=63
:¦ ¦ ¦ ¦ ¦ real(12,6,0,0,4,6,1
:¦ ¦ ¦ ¦ ¦ rand(20
:¦ ¦ ¦ ¦ ¦ real(12,7,0,0,4,6,1
:¦ ¦ ¦ ¦ ¦ rand(20
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ real(3,0,0,1
:¦ ¦ ¦ End:End:End
:¦ If V=1:Then
:¦ ¦ If A≤0:Then:DelVar D
:¦ ¦ ¦ 8→A:Else:If A≥9:Then:1→A:8→D:End:End
:¦ ¦ If B≤0:Then:DelVar C
:¦ ¦ ¦ 11→B:Else:If B≥12:Then:1→B:11→C:End
:¦ ¦ End
:¦ ¦ If (U>12 and U<15) or U=35
:¦ ¦ Then
:¦ ¦ ¦ prgmZE
:¦ ¦ End
:¦ End:End
:If V=3:Then
:¦ W+1→W
:¦ {1,1,W→L3
:¦ 3→A:3→B
:¦ DelVar DDelVar C
:¦ 1→L5(W
:¦ prgmZF
:¦ Else
:¦ L3(2)+(A+D>15)-(A+D=1→L3(2
:¦ L3(1)+(B+C>21)-(B+C=1→L3(1
:¦ C→I:D→V
:¦ C-11(C+B>21)+11(B+C=1→C
:¦ D-8(D+A>15)+8(A+D=1→D
:¦ A-6(A=8 and V)+6(A=1 and not(V→A
:¦ B-9(B>11 and I)+9(B=1 and not(I→B
:End
sourcoder optimizations::det(28,"00"+det(27,Str1,22(A+D)+B+C,1→U
:Repeat H≤0 or V=2 or V=3
:Repeat H≤0 or V
:Repeat H≤0 or (U>12 and U<15) or U>35 or K or V
:real(8→K
:prgmZD
:real(6
:det(28,"00"+det(27,Str1,22(A+D)+B+C-22,1→S
:det(28,"00"+det(27,Str1,22(A+D)+B+C+22,1→T
- :J+(G+2)((K=7 or K=8 or K=4) and not(J) and (T=4 or T=3 or T=9 or T=28))-(J≠0)-(J-1)(S=3 or S=28 or S=9→J
+ :J+(G+2)((K=7 or K=8 or K=4) and not(J) and (T=4 or T=3 or T=9 or T=28))-(not(J))-(J-1)(S=3 or S=28 or S=9→J
:A-(J and S≠3 and S≠28 and S≠9)+(T≠3 and T≠4 and T≠28 and T≠9 and U≠10 and not(J→A
:(K=3 or K=8 or K=6)-(K=5 or K=2 or K=7→T
:det(28,"00"+det(27,Str1,22(A+D)+B+C+T,1→S
:B+T(S≠28 and S≠4 and S≠3 and S≠9→B
:(A≤0 or A≥9 or B≤0 or B≥12)+2(A+D=1 or A+D=16 or B+C=1 or B+C=22→V
:If RZ:Then
:det(28,"00"+det(27,Str1,22Y+X+Z-(abs(Z)=2),1→S
:(S=3 or S=28 or S=9 or S=4→N
- :X+(Z-(abs(Z)=2))(N=0→X
- :Z+‾2Z(N≠0→Z
- :H-(RZ and X=B+C and Y=A+D→H
+ :X+(Z-(abs(Z)=2))(N=DelVar XZ+‾2Z(N≠DelVar ZH-(RZ and X=B+C and Y=A+D→H
:End
:det(28,"00"+det(27,Str1,22(A+D)+B+C,1→U
:End
:prgmZD
:real(6
:If K:Then
:If K=54:Then
:prgmZA
- :R(R>0→R
- :End
+ :R(R>DelVar REnd
:If K=49:prgmZM
:If K=48:prgmZB
:If K=53:prgmZS
:If K=9:Then
:identity(1,0,1
:real(0,1
:getKey
:Repeat real(8)=63
:real(12,6,0,0,4,6,1
:rand(20
:real(12,7,0,0,4,6,1
:rand(20
:End
:real(3,0,0,1
:End:End:End
:If V=1:Then
- :If A≤0:Then:DelVar D
- :8→A:Else:If A≥9:Then:1→A:8→D:End:End
- :If B≤0:Then:DelVar C
- :11→B:Else:If B≥12:Then:1→B:11→C:End
+ :If A≤0:Then:DelVar D8→A:Else:If A≥9:Then:1→A:8→D:End:End
+ :If B≤0:Then:DelVar C11→B:Else:If B≥12:Then:1→B:11→C:End
:End
:If (U>12 and U<15) or U=35
- :Then
:prgmZE
- :End
:End:End
:If V=3:Then
:W+1→W
:{1,1,W→L3
:3→A:3→B
- :DelVar DDelVar C
- :1→L5(W
+ :DelVar DDelVar C1→L5(W
:prgmZF
:Else
:L3(2)+(A+D>15)-(A+D=1→L3(2
:L3(1)+(B+C>21)-(B+C=1→L3(1
:C→I:D→V
:C-11(C+B>21)+11(B+C=1→C
:D-8(D+A>15)+8(A+D=1→D
:A-6(A=8 and V)+6(A=1 and not(V→A
:B-9(B>11 and I)+9(B=1 and not(I→B
:End
any fixes? optimizations? changes in setup? just let me know
Woah Eeems! That looks wonderfantabulasticamazing! (wonderful + fabulous + fantastic + amazing!). Not Epic yet, but I'm sure it will be :D
Thanks guys :) hopefully I can implement some cool stuff today :P I'm going to attempt to add in health and make the spikes damage you, and work on jumping
you would start getting damaged as soon as you touched the spike which with smooth scrolling is a little hard to do
you would start getting damaged as soon as you touched the spike which with smooth scrolling is a little hard to do
Very hard to do the second image, that would require a level data AND extensive pixel checking routine. Not worth speed and size.
Hmm, I think we lost a few posts last night...Really? Are you sure about that? I haven't seen any other report about lost forum data in IRC logs and forum posts yet. ???
Yeah I'm missing a few in this topic.Weird. I guess not a lot were lost, because I found no other reports/complaints about this yet.
Thanks :) yeah it's 6MHz, and it's drawing to the screen every 4 frames, so I can speed it up more if I have to :)
well the first 3 chapters were easy, but IV is really hard, and I don't mind the simple plot, the epic battles make up for itthat is understanable since it's freaking AWESOME
That would be very nice. I have even more experience now with C++, so I can help more as well.:)
Ah ok, kinda like Calc84maniac. :DYeah :P