Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - yunhua98

Pages: 1 ... 132 133 [134] 135 136 ... 184
1996
Humour and Jokes / Re: Good bye and good luck to you all.
« on: October 23, 2010, 04:39:18 pm »
lol.  :P   I was scared at first though.  :P

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.  :P  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.  :o
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.  :P  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%.  :P

heres a screenie, the source, and the program:



btw, I suck at it.  :P  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.  :P

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

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.  :P  I can't kill the ghost for soome reason, as you will see in screenie, so Ima gonna need some help on that bug.  :P  And yes, you will be in the credits.  ;)



Spoiler For Source:
Quote from: BASIC Code
:.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→{L[size=8]1[/size]+1}
:56→D→{L[size=8]1[/size]+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→θ→{L[size=8]1[/size]+3}
:1→L
:Repeat K=15 or (L=0 or (L=42
:sub(DG
:.AI
:E+1→E
:If E^15=0
:Pt-Off({L[size=8]1[/size]+1},{L[size=8]1[/size]+2},Pic0C
:Pt-Off(G,D,Pic0C
:rand^2→I
:If I=1
:If {L[size=8]1[/size]+1}>0 and (pxl-Test({L[size=8]1[/size]+1}-7,{L[size=8]1[/size]+2}+6)=0
:{L[size=8]1[/size]+1}-(8*(rand^2))→{L[size=8]1[/size]+1}
:8→{L[size=8]1[/size]+3}
:End
:If G>0 and (pxl-Test(G-7,D+6)=0
:G-(8*(rand^2))→G
:8→θ
:End
:If {L[size=8]1[/size]+1}<87 and (pxl-Test({L[size=8]1[/size]+1}+9,{L[size=8]1[/size]+2}+6)=0
:{L[size=8]1[/size]+1}+(8*(rand^2))→{L[size=8]1[/size]+1}
:16→{L[size=8]1[/size]+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 {L[size=8]1[/size]+2}>0 and (pxl-Test({L[size=8]1[/size]+1}+1,{L[size=8]1[/size]+2}-2)=0
:{L[size=8]1[/size]+2}-(8*(rand^2))→{L[size=8]1[/size]+2}
:24→{L[size=8]1[/size]+3}
:End
:If D>0 and (pxl-Test(G+1,D-2)=0
:D-(8*(rand^2))→D
:24→θ
:End
:If {L[size=8]1[/size]+2}<55 and pxl-Test({L[size=8]1[/size]+1}+1,{L[size=8]1[/size]+2}+14)=0
:{L[size=8]1[/size]+2}+(8*(rand^2))→{L[size=8]1[/size]+2}
:0→{L[size=8]1[/size]+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→{L[size=8]1[/size]+1}→{L[size=8]1[/size]+2}
:End
:Pt-Off({L[size=8]1[/size]+1},{L[size=8]1[/size]+2},Pic9+{L[size=8]1[/size]+3}
:Pt-Off(G,D,Pic9+θ
:End
:If {L[size=8]1[/size]+1}=X and ({L[size=8]1[/size]+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 {L[size=8]1[/size]+1}=P+8 and ({L[size=8]1[/size]+2}=Q
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P+16 and ({L[size=8]1[/size]+2}=Q
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P-8 and ({L[size=8]1[/size]+2}=Q
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P-16 and ({L[size=8]1[/size]+2}=Q
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P and ({L[size=8]1[/size]+2}=Q+8
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P and ({L[size=8]1[/size]+2}=Q+16
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P and ({L[size=8]1[/size]+2}=Q-8
:L+22→L
:End
:If {L[size=8]1[/size]+1}=P and (L[size=8]1[/size]+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, © 2005-2010 Cemetech

here's the program

2009
Humour and Jokes / Re: 9001 signs you're addicted to calcs and Omni
« on: October 23, 2010, 12:09:34 pm »
667. You have folder called ti stuff

668. You cut out the Wsj article on ti rsa craking

2010
Official Contest / Re: [BULLETIN] Cage Matches
« on: October 22, 2010, 06:18:20 pm »
Btw, did anyone design the winners' userbar yet?
* yunhua98 takes the challenge  :P

Pages: 1 ... 132 133 [134] 135 136 ... 184