Show Posts

1996

Humour and Jokes / Re: Good bye and good luck to you all.

« on: October 23, 2010, 04:39:18 pm »

lol.

I was scared at first though.

1997

Official Contest / Re: [BULLETIN] Cage Matches

« on: October 23, 2010, 02:20:47 pm »

Userbar template!

suggestions anyone?

1998

TI Z80 / Re: Dual Pong

« on: October 23, 2010, 02:11:36 pm »

thanks, although I don't use spaces that much, that was done because I had a block error.

Look at my bomberman source and you won't think me so organized.

1999

Art / Re: 8x8 Flame

« on: October 23, 2010, 02:05:58 pm »

heres my go, 3 level

2000

TI Z80 / Re: Dual Pong

« on: October 23, 2010, 02:04:45 pm »

sure, feel free, its "AXE2PONG" in the first post.

2001

TI Z80 / Re: Dual Pong

« on: October 23, 2010, 02:01:23 pm »

I don't follow, could you rephrase that?

doesn't the ball go diagnolly?

2002

TI Z80 / Re: Dual Pong

« on: October 23, 2010, 01:58:08 pm »

nah, I was thinking the AI being top and left, while I'm bottom and right, and whoever gets to 7 points first wins, but thanks.

2003

Humour and Jokes / Re: Wow Eeems...

« on: October 23, 2010, 01:52:25 pm »

darn ztrumpet has lot.

I have 100 even!

2004

TI Z80 / Dual Pong

« on: October 23, 2010, 01:47:25 pm »

As you may have seen in my sig, I've been working on a project called Dual Pong. Technically I've only been working on it for two days, but oh well.

It was inspired by FSPong in the arcade, and I will add a AI soon. Its only single player now, but I may add linkplay, in which case it will go to 150%.

heres a screenie, the source, and the program:

btw, I suck at it.

highscore 11, the Emu on't show the score for some reason though

and yes, once again, those sprites are place holders, I lost Hexpic, and I hate converting by hand.

2005

TI Z80 / Re: Bomberman

« on: October 23, 2010, 01:36:17 pm »

yeah, but I know when I can't do something myself. And I honestly don't think anyone here would steal anyone else's projects. Besides, even if someone did, I have the rest of Omnimaga knowing that I was the one who was making it, so I'm not worried.

Long Live Omnimaga!

ok... maybe that sounded a bit out of place.

2006

TI Z80 / Need help for Bomberman

« on: October 23, 2010, 01:26:34 pm »

Hello,

I'm having a little trouble with getting my enemies to die, and I can't die unless I touch them. (As in my bombs won't kill me) Here's my source, and whoever helps will be put in the credits.

TIA!

Code: [Select]

:.BOMBRMAN AXE BomberMan! v1.0 by: Yunhua Z
:.TITLE
:[Pic1→Pic0T
:.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
:40→A
:Full
:Repeat K=54
:getKey→K
:If K=1 and (A=40
:48→A
:Pt-Off(22,40,Pic2A
:End
:If K=4 and (A=48
:40→A
:Pt-Off(22,48,Pic2A
:End
:Pt-On(22,A,Pic1
:DispGraph
:Pic0T→DispGraph
:End
:ClrDraw
:Normal
:If A=48
:."CREDITS:→Str3
:."THE OMNIMAGA COMMUNITY FOR SUPPORTING ME
:End
:If A=40
:0→X→Y→A→B→C→E
:16→Z→L
:88→G→{{L1}+1}
:56→D→{{L1}+2}
: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→θ→{{L1}+3}
:1→L
:Repeat K=15 or (L=0 or (L=42
:sub(DG
:.AI
:E+1→E
:If E^15=0
:Pt-Off({{L1}+1},{{L1}+2},Pic0C
:Pt-Off(G,D,Pic0C
:rand^2→I
:If I=1
:If {{L1}+1}>0 and (pxl-Test({{L1}+1}-7,{{L1}+2}+6)=0
:{{L1}+1}-(8*(rand^2))→{{L1}+1}
:8→{{L1}+3}
:End
:If G>0 and (pxl-Test(G-7,D+6)=0
:G-(8*(rand^2))→G
:8→θ
:End
:If {{L1}+1}<87 and (pxl-Test({{L1}+1}+9,{{L1}+2}+6)=0
:{{L1}+1}+(8*(rand^2))→{{L1}+1}
:16→{{L1}+3}
:End
:If G<87 and (pxl-Test(G+9,D+6)=0
:G+(8*(rand^2))→G
:16→θ
:End
:End
:If I=0
:If {{L1}+2}>0 and (pxl-Test({{L1}+1}+1,{{L1}+2}-2)=0
:{{L1}+2}-(8*(rand^2))→{{L1}+2}
:24→{{L1}+3}
:End
:If D>0 and (pxl-Test(G+1,D-2)=0
:D-(8*(rand^2))→D
:24→θ
:End
:If {{L1}+2}<55 and pxl-Test({{L1}+1}+1,{{L1}+2}+14)=0
:{{L1}+2}+(8*(rand^2))→{{L1}+2}
:0→{{L1}+3}
:End
:If D<55 and (pxl-Test(G+1,D+14)=0
:D+(8*(rand^2))→D
:0→θ
:End
:End
:If L=20
:254→G→D
:End
:If L=22
:254→{{L1}+1}→{{L1}+2}
:End
:Pt-Off({{L1}+1},{{L1}+2},Pic9+{{L1}+3}
:Pt-Off(G,D,Pic9+θ
:End
:If {{L1}+1}=X and ({{L1}+2}=Y
:0→L
: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
:If G+8=P and (D=Q
:L+19→L
:End
:If G+16=P and (D=Q
:L+19→L
:End
:If G-8=P and (D=Q
:L+19→L
:End
:If G-16=P and (D=Q
:L+19→L
:End
:If G=P and (D+8=Q
:L+19→L
:End
:If G=P and (D+16=Q
:L+19→L
:End
:If G=P and (D-8=Q
:L+19→L
:End
:If G=P and (D-8=Q
:L+19→L
:End
:If {{L1}+1}=P+8 and ({{L1}+2}=Q
:L+22→L
:End
:If {{L1}+1}=P+16 and ({{L1}+2}=Q
:L+22→L
:End
:If {{L1}+1}=P-8 and ({{L1}+2}=Q
:L+22→L
:End
:If {{L1}+1}=P-16 and ({{L1}+2}=Q
:L+22→L
:End
:If {{L1}+1}=P and ({{L1}+2}=Q+8
:L+22→L
:End
:If {{L1}+1}=P and ({{L1}+2}=Q+16
:L+22→L
:End
:If {{L1}+1}=P and ({{L1}+2}=Q-8
:L+22→L
:End
:If {{L1}+1}=P and ({L1}+2}=Q-16
:L+22→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
:.WIN
:If L=42
:Output(1,1,Str2
:End
:.DIE ROUTINE
:!If L
:Output(0,0,Str1
: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
:End
:
Generated by SourceCoder (http://sc.cemetech.net)
© 2005-2010 Cemetech (http://www.cemetech.net)

2007

TI Z80 / Re: Bomberman

« on: October 23, 2010, 01:17:52 pm »

well, the source is in the spoiler, but I'll post it in the Axe subforum as well. and as for the explosion, I got if from a Flash version of bomberman.

2008

TI Z80 / Re: Bomberman

« on: October 23, 2010, 01:11:02 pm »

Weekend at last!
anyways, I haven't done too much due to a ERR: Block for 3 days, but when I figured it out, I was plagued by another bug. I managed to get a version with two enemies, and am working on aversion with a user specified number, but since I'm not done with that, no upload yet, just the 2-version.

heres what I have now, and yes, the title screen is still a placeholder.

I can't kill the ghost for soome reason, as you will see in screenie, so Ima gonna need some help on that bug.

And yes, you will be in the credits.