0 Members and 2 Guests are viewing this topic.
:.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: D-(8*(rand^2))→D:24→θ:End:If D<55 and (pxl-Test(G+1,D+14)=0: D+(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:.ReturnGenerated by SourceCoder, © 2005-2010 Cemetech
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:.ReturnGenerated by SourceCoder, © 2005-2010 CemetechBomberman is the executable, no-stubAxebomb is the sourcealso, if you can spot any optimizations, please point them out to me.
:.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:.ReturnGenerated by SourceCoder, © 2005-2010 Cemetech
:.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