Author Topic: The Blue Platform (Read 124282 times)

Eeems · « **Reply #195 on:** August 23, 2009, 08:25:35 pm »

well I'm going to be releasing a bunch of subroutines that I made in this project as soon as the contest is over, this is a list of all the routines, if you want to bet a copy first for one of these, just let me know and I will get it to you when the contest is over

window thing
graph screen input routine
map loading routine

hmm, I was sure I had more...

DJ Omnimaga · « **Reply #196 on:** August 23, 2009, 09:23:35 pm »

nice ^^ be sure to finish the entire game too^^

Eeems · « **Reply #197 on:** August 23, 2009, 09:31:42 pm »

don't worry I intend to

Eeems · « **Reply #198 on:** September 10, 2009, 06:22:40 pm »

I just finished making a new engine, here it is...

Code: [Select]

: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

Code: [Select]

: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:

Code: [Select]

: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

Eeems · « **Reply #199 on:** November 23, 2009, 01:03:55 pm »

I have released a beta here for anyone who wants to try their hand at coding it. If you have any questions just post them here.

DJ Omnimaga · « **Reply #200 on:** November 23, 2009, 01:47:31 pm »

I like how it ran faster in overall, even with enemies around. With enemies, I can notice a 100% speed increase and 50% everywhere else. I wish the collision detection wasn't off, though, else I would probably go further. I just can't even climb ladders and get to the sword

ztrumpet · « **Reply #201 on:** November 23, 2009, 03:37:02 pm »

I tried it in Wabbitemu, and after sending everything in the zip except the read-me I get "P is not found"->L1 and an Error syntax just after archiving Map ZE9 (I think). I really want to play, but I don't think I can.

Eeems · « **Reply #202 on:** November 23, 2009, 04:45:40 pm »

did you follow what it said in the readme? also did you install Celtic III?
(revision s)

ztrumpet · « **Reply #203 on:** November 23, 2009, 04:51:28 pm »

*ztrumpet realizes that there are groups, so it woln't work in Wabbit*

He tried a different approach...

Got it!

I love the title screen btw.

Eeems · « **Reply #204 on:** November 23, 2009, 04:56:16 pm »

actually it will work in wabbit....read the readme

ztrumpet · « **Reply #205 on:** November 23, 2009, 05:05:38 pm »

I figured it out... after reading the read me. I didn't at first because you said the instilation process was different than in the read me.

This game is coming great, only I think it would be better with more speed.

Eeems · « **Reply #206 on:** November 23, 2009, 05:11:35 pm »

yeah I don't quite remember what is wrong, but there are a few problems, but most of it is right

DJ Omnimaga · « **Reply #207 on:** November 24, 2009, 12:08:53 am »

Didn't the game was uploaded with both groups and ungrouped files in folders, fixing the Wabbitemu issue?

Eeems · « **Reply #208 on:** November 24, 2009, 12:18:01 am »

Yes it did, ztrumpet just didn't realize that probably. But all is fixed now. And let this be a reminder to all to read the readme!

DJ Omnimaga · « **Reply #209 on:** November 24, 2009, 12:21:21 am »

Yeah, a rule that should be followed with every game, actually

, even ASM ones. I mean, like for example, warnings telling you to not run a game in particular in MirageOs or more complex install issues. I actually ignored any e-mail I got when someone was asking me a question about one of my game that was alerady awnsered in the readme because I got about 10 of these a week back then (which is why I removed my e-mail address from my readmes and just redirected to Omnimaga)

Author Topic: The Blue Platform (Read 124282 times)

Eeems

Re: Platform Game Engine

DJ Omnimaga

Re: Platform Game Engine

Eeems

Re: Platform Game Engine

Eeems

Re: Platform Game Engine

Eeems

Beta Released

DJ Omnimaga

Re: Beta Released

ztrumpet

Re: Beta Released

Eeems

Re: Beta Released

ztrumpet

Re: Beta Released

Eeems

Re: Beta Released

ztrumpet

Re: Beta Released

Eeems

Re: Beta Released

DJ Omnimaga

Re: Beta Released

Eeems

Re: Beta Released

DJ Omnimaga

Re: Beta Released