Author Topic: Bomberman (Read 22719 times)

yunhua98 · « **on:** October 16, 2010, 06:01:00 pm »

As many of you know, I stopped working on this due to a memory loss. Well, yesterday, I was looking through my backups and found Bomberman again, I thought, maybe I should revive this? I was a bit less busy, and all were doing in my Science and Math classes were review, so I decided to pick it up again. heres what I have so far:

I don't really understand why my enemy never faces the right direction though, and I would be glad if anyone could find some more bugs.
all, it does so far is drop bombs, explode stuff, including you but not the enemy yet, and the light blocks are explodable, the "grey" ones aren't

code:

Spoiler For code:

Bomberman is the executable, no-stub
Axebomb is the source

also, if you can spot any optimizations, please point them out to me.

EDIT:
Credits list so far:
Omnimaga Community
DJ Omnimaga for inspiring this game with Axe Contest
Aichi for helping me figure out a bug that I was stuck on

matthias1992 · « **Reply #1 on:** October 16, 2010, 06:09:23 pm »

THERE IS SMILIES IN THE SOURCE

Looks great yunhua!

yunhua98 · « **Reply #2 on:** October 16, 2010, 06:10:31 pm »

lol

* yunhua98 goes to change

MRide · « **Reply #3 on:** October 16, 2010, 06:11:36 pm »

Quote from: yunhua98 on October 16, 2010, 06:01:00 pm

code:

Spoiler For code:
Quote from: BASIC Code
:.BOMBRMAN AXE BomberMan! v1.0 by: Yunhua Z
:.CLEAR SPRITE
:[2288228822882288→Pic0C
:.BOMB SPRITE
:[0C103C4E5E7E7E3C→Pic1
:.BLANK SPACE
:[0000000000000000→Pic2A
:.DOTTED BLOCK
:[7EABD5ABD5ABD57E→Pic2
:.BREAKABLE BLOCK
:[7E81BDA1A1A1817E→Pic3
:.GUY LEFT
:[1C7E1222142A1436→Pic4
:.GUY RIGHT
:[387E48442854286C→Pic5
:.GUY FRONT/BACK
:[1C3E22143E081436→Pic6
:.EXPLODE Horizontal(
:[00FF55AAAA55FF00→Pic7
:.EXPLODE Vertical
:[5A665A665A665A66→Pic8
:.ENEMY FORWARD
:[3C4281A58181A55A→Pic9
:.ENEMY LEFT
:[1C2241514141552A→Pic0
:.ENEMY RIGHT
:[3844828A8282AA54→Pic10
:.ENEMY BACK
:[3C4281818181A55A→Pic11
:.CHERRIES
:[08182464B6FB6F06→Pic12
:.COIN
:[184218A5A5184218→Pic13
:.EXPLODE CENTER
:[5AE75AA5A55AE75A→Pic0E
:"GAME OVER→Str1
:"YOU WIN→Str2
:DiagnosticOff
:ClrDraw
:0→X→Y→A→B→C→E
:16→Z→L
:88→G
:56→D
:For(L,0,11
:L*8→N
:For(M,0,7
:M*8→O
:Pt-On(N,O,Pic0C
:End
:End
:sub(BK
:Pt-Off(8,0,Pic0C
:Pt-Off(0,8,Pic0C
:0→θ
:Repeat K=15 or (L=0
:sub(DG
:.AI
:E+1→E
:If E^20=0
:Pt-Off(G,D,Pic0C
:rand^2→I
:If I=1
:If G>0 and (pxl-Test(G-7,D+6)=0
:G-(8*(rand^2))→G
:8→θ
:End
:If G<87 and (pxl-Test(G+9,D+6)=0
:G+(8*(rand^2))→G
:16→θ
:End
:End
:If I=0
:If D>0=(pxl-Test(G+1,D-2)=0
-(8*(rand^2))→D
:24→θ
:End
:If D<55 and (pxl-Test(G+1,D+14)=0
+(8*(rand^2))→D
:0→θ
:End
:End
:Pt-Off(G,D,Pic9+θ
:End
:If G=X and (D=Y
:0→L
:End
:
:
:
:
:
:.BOMB CHECK AND EXPLODE
:!If B=0
:A+1→A
:End
:If A=200
:Pt-Off(P,Q,Pic0E
:If pxl-Test(P+9,Q+2)=0
:Pt-Off(P+8,Q,Pic7
:If pxl-Test(P+17,Q+2)=0
:Pt-Off(P+16,Q,Pic7
:End
:End
:If pxl-Test(P-7,Q+2)=0
:Pt-Off(P-8,Q,Pic7
:If pxl-Test(P-15,Q+2)=0
:Pt-Off(P-16,Q,Pic7
:End
:End
:If pxl-Test(P+1,Q+10)=0
:Pt-Off(P,Q+8,Pic8
:If pxl-Test(P+1,Q+18)=0
:Pt-Off(P,Q+16,Pic8
:End
:End
:If pxl-Test(P+1,Q-6)=0
:Pt-Off(P,Q-8,Pic8
:If pxl-Test(P+1,Q-14)=0
:Pt-Off(P,Q-16,Pic8
:End
:End
:DispGraph
:Pause 100
:If (X-P≤16 or (P-X≤16)) and (Y=Q
:0→L
:End
:If (Y-Q≤16 or (Q-Y≤16)) and (X=P
:0→L
:End
:End
:If A=250
:Pt-Off(P,Q,Pic0C
:Pt-Off(P-8,Q,Pic0C
:Pt-Off(P-16,Q,Pic0C
:Pt-Off(P,Q-8,Pic0C
:Pt-Off(P,Q-16,Pic0C
:Pt-Off(P+8,Q,Pic0C
:Pt-Off(P+16,Q,Pic0C
:Pt-Off(P,Q+8,Pic0C
:Pt-Off(P,Q+16,Pic0C
:.DispGraph
:0→A→B
:End
:.END BOMB SECTION
:!If L=0
:.KEYCHECK SERIES
:getKey→K
:If K=48 and (B=1
:199→A
:End
:If K=54 and (B=0
:8→C
:1→B
:X→P
:Y→Q
:Pt-On(P,Q,Pic1
:Pt-On(P,Q,Pic0C
:.DispGraph
:End
:If K=3 and (X<87 and (pxl-Test(X+10,Y+5)=0
:8→Z
:sub(CS
:X+8→X
:End
:If K=2 and (X>0 and (pxl-Test(X-6,Y+5)=0
:0→Z
:sub(CS
:X-8→X
:End
:If K=4 and (Y>0 and (pxl-Test(X+2,Y-3)=0
:16→Z
:sub(CS
:Y-8→Y
:End
:If K=1 and (Y<55 and (pxl-Test(X+2,Y+13)=0
:16→Z
:sub(CS
:Y+8→Y
:End
:Pt-Off(X,Y,Pic4+Z
:.DispGraph
:End
:End
:.DIE ROUTINE
:!If L
:Output(0,0,Str1
:Pause 1000
:End
:Lbl CS
:.CLEAR ROUTINE
:Pt-Off(X,Y,Pic0C+C
:0→C
:.DispGraph
:Return
:.MAP
:Lbl BK
:For(O,1,7
:O*8→T
:O+1→O
:For(N,0,11
:8*N→V
:If rand^5≠0
:Pt-Off(V,T,Pic3
:End
:End
:End
:For(N,0,11
:8*N→V
:N+1→N
:For(O,1,7
:O*8→T
:If rand^5≠0
:Pt-Off(T,V,Pic3
:End
:End
:End
:Return
:Lbl DG
:For(N,1,10
:N+1→N
:N*8→R
:For(O,1,6
:O+1→O
:O*8→S
:Pt-Off(R,S,Pic2
:End
:End
:DispGraph
:Return
:.Lbl BK
:.For(M,1,11
:.M*8→T
:.M+1→M
:.For(U,1,7
:.U*8→V
:.U+1→U
:.Pt-On(T,V,Pic3
:.End
:.End
:.StorePic
:.DispGraph
:.Return
Generated by SourceCoder, © 2005-2010 Cemetech

Bomberman is the executable, no-stub
Axebomb is the source

also, if you can spot any optimizations, please point them out to me.

I didn't know you could have smilies in code.

EDIT: Ninja'd

kindermoumoute · « **Reply #4 on:** October 16, 2010, 06:19:10 pm »

I like this game, nice project

yunhua98 · « **Reply #5 on:** October 16, 2010, 06:38:19 pm »

thanks for the encouragement guys! although I might not post screenies very often, I will work on it a bit everyday. All I've got to worry about are like 2 tests on monday.

Ranman · « **Reply #6 on:** October 16, 2010, 06:46:50 pm »

Wow... Lookin' good!

shmibs · « **Reply #7 on:** October 16, 2010, 06:53:40 pm »

this is how i would write the same code that you have here(although i probably screwed something up because i'm running a massive fever right now and just got back from work.) personally, though, i would use a matrix for the map data instead of a massive list of pixel-tests. bomberman is the greatest; good luck on implementing it!

Code: [Select]

:.BOMBRMAN AXE BomberMan! v1.0 by: Yunhua Z
:.CLEAR SPRITE
:[2288228822882288→Pic0C
:.BOMB SPRITE
:[0C103C4E5E7E7E3C→Pic1
:.BLANK SPACE
:[0000000000000000→Pic2A
:.DOTTED BLOCK
:[7EABD5ABD5ABD57E→Pic2
:.BREAKABLE BLOCK
:[7E81BDA1A1A1817E→Pic3
:.GUY LEFT
:[1C7E1222142A1436→Pic4
:.GUY RIGHT
:[387E48442854286C→Pic5
:.GUY FRONT/BACK
:[1C3E22143E081436→Pic6
:.EXPLODE Horizontal(
:[00FF55AAAA55FF00→Pic7
:.EXPLODE Vertical 
:[5A665A665A665A66→Pic8
:.ENEMY FORWARD
:[3C4281A58181A55A→Pic9
:.ENEMY LEFT
:[1C2241514141552A→Pic0
:.ENEMY RIGHT
:[3844828A8282AA54→Pic10
:.ENEMY BACK
:[3C4281818181A55A→Pic11
:.CHERRIES
:[08182464B6FB6F06→Pic12
:.COIN
:[184218A5A5184218→Pic13
:.EXPLODE CENTER
:[5AE75AA5A55AE75A→Pic0E
:"GAME OVER→Str1
:"YOU WIN→Str2
:DiagnosticOff
:ClrDraw
:0→X→Y→A→B→C→E+16→Z→L+40→D+32→GFor(L,0,11
:For(M,0,7
:Pt-On(L*8,M*8,Pic0C
:End:End
:sub(BK
:Pt-Off(8,0,Pic0C
:Pt-Off(0,8,Pic0C
:0→θWhile K^15+L
:sub(DG
:.AI
:E+1→E
:!If E^20
:Pt-Off(G,D,Pic0C
:rand^2→IIf I
:!If pxl-Test(G-7,D+6)*G
:G-(rand^2*8)→G
:8→θEnd
:If G<87 and (pxl-Test(G+9,D+6)=0
:G+(8*(rand^2))→G
:16→θ
:End
:Else
:!If pxl-Test(G+1,D-2)*D
:D-(rand^2*8)→D24→θEnd
:!If D>54*pxl-Test(G+1,D+14)
:D+(rand^2*8)→D-D→θ
:End
:End:End
:Pt-Off(G,D,Pic9+θ
:End
:If G=X and (D=Y
:0→LEnd
:
:
:
:
:
:.BOMB CHECK AND EXPLODE
:If B
:A+1→AEnd
:If A=200
:Pt-Off(P,Q,Pic0E
:!If pxl-Test(P+9,Q+2)
:Pt-Off(P+8,Q,Pic7
:!If pxl-Test(P+17,Q+2)
:Pt-Off(P+16,Q,Pic7
:End
:End
:!If pxl-Test(P-7,Q+2)
:Pt-Off(P-8,Q,Pic7
:!If pxl-Test(P-15,Q+2)
:Pt-Off(P-16,Q,Pic7
:End
:End
:!If pxl-Test(P+1,Q+10)
:Pt-Off(P,Q+8,Pic8
:!If pxl-Test(P+1,Q+18)
:Pt-Off(P,Q+16,Pic8
:End
:End
:!If pxl-Test(P+1,Q-6)
:Pt-Off(P,Q-8,Pic8
:!If pxl-Test(P+1,Q-14)
:Pt-Off(P,Q-16,Pic8
:End
:End
:DispGraph
:Pause 100
:If (X-P≤16 or (P-X≤16)) and (Y=Q
:0→L
:End
:If (Y-Q≤16 or (Q-Y≤16)) and (X=P
:0→L
:End
:End
:If A=250
:.mebbe add a for loop here instead of the massive list of PtOffs?
:Pt-Off(P,Q,Pic0C
:Pt-Off(P-8,Q,Pic0C
:Pt-Off(P-16,Q,Pic0C
:Pt-Off(P,Q-8,Pic0C
:Pt-Off(P,Q-16,Pic0C
:Pt-Off(P+8,Q,Pic0C
:Pt-Off(P+16,Q,Pic0C
:Pt-Off(P,Q+8,Pic0C
:Pt-Off(P,Q+16,Pic0C
:DispGraph
:0→A→BEnd
:.END BOMB SECTION
:If L
:.KEYCHECK SERIES
:getKey→K
:If K=48 and (B=1
:199→AEnd
:!If K^54*B
:1→B+7→CX→PY→QPt-On(P,Q,Pic1
:Pt-On(P,Q,Pic0C
:DispGraph
:End
:!If K=3*(X<87 and (pxl-Test(X+10,Y+5)
:8→Zsub(CS
:X+8→X
:End
:!If K=2*X*pxl-Test(X-6,Y+5)
:0→Zsub(CS
:X-8→X
:End
:If K=4 and (Y>0 and (pxl-Test(X+2,Y-3)=0
:16→Zsub(CS
:Y-8→Y
:End
:If K=1 and (Y<55 and (pxl-Test(X+2,Y+13)=0
:16→Z
:sub(CS
:Y+8→YEnd
:Pt-Off(X,Y,Pic4+Z
:DispGraph
:End:End
:.DIE ROUTINE
:!If L
:Output(0,0,Str1
:Pause 1000
:End
:Lbl CS
:.CLEAR ROUTINE
:Pt-Off(X,Y,Pic0C+C
:0→C
:DispGraph
:Return
:.MAP
:Lbl BK
:For(O,1,7
:O*8→T/8+1→O
:For(N,0,11
:If rand^5≠0
:Pt-Off(N*8,T,Pic3
:End
:End
:End
:For(N,0,11
:8*N→V
:N+1→N
:For(O,1,7
:If rand^5
:Pt-Off(O*8,V,Pic3
:End
:End
:End
:Return
:Lbl DG
:For(N,2,11
:For(O,2,7
:Pt-Off(N*8,O*8,Pic2
:End
:End
:DispGraph
:Return
:Lbl BK
:For(M,2,12
:For(U,2,8
:Pt-On(M-1*8,U-1*8,Pic3
:End:End
:StorePic 
:DispGraph
:Return

yunhua98 · « **Reply #8 on:** October 16, 2010, 06:55:43 pm »

kk, thanks, but is the For(L,0,11 part supposed to not be on a seperate line?

shmibs · « **Reply #9 on:** October 16, 2010, 07:38:40 pm »

yes. some of the things in here are just personal preferences for code structuring, however

DJ Omnimaga · « **Reply #10 on:** October 17, 2010, 04:20:29 am »

WOW that's great that you found it agaiN! Now if only you could have managed to find it before the contest ended

ALso it looks great. I'm glad this is alive again

.

yunhua98 · « **Reply #11 on:** October 17, 2010, 07:38:15 am »

well, technically I knew where it was before the contest ended, but I just lacked the motivation to do anything with it.

DJ Omnimaga · « **Reply #12 on:** October 17, 2010, 02:06:05 pm »

Ah ok

Btw did you lose some progress or was it a recent backup?

meishe91 · « **Reply #13 on:** October 17, 2010, 04:54:14 pm »

That looks great! Good luck on this

ztrumpet · « **Reply #14 on:** October 17, 2010, 05:00:11 pm »

That looks neat! Nice job!

Author Topic: Bomberman (Read 22719 times)

yunhua98

Bomberman

matthias1992

Re: Bomberman

yunhua98

Re: Bomberman

MRide

Re: Bomberman

kindermoumoute

Re: Bomberman

yunhua98

Re: Bomberman

Ranman

Re: Bomberman

shmibs

Re: Bomberman

yunhua98

Re: Bomberman

shmibs

Re: Bomberman

DJ Omnimaga

Re: Bomberman

yunhua98

Re: Bomberman

DJ Omnimaga

Re: Bomberman

meishe91

Re: Bomberman

ztrumpet

Re: Bomberman