Author Topic: Bomberman  (Read 24890 times)

0 Members and 1 Guest are viewing this topic.

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #30 on: October 20, 2010, 04:23:11 pm »
nah, I didn't, I could get on here in front of them, but I'd rather not because of something else I don't want to get into.

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #31 on: October 21, 2010, 03:01:45 am »
Ah ok, I hope it isn't something wrong that happened x.x

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #32 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
« Last Edit: October 23, 2010, 01:20:38 pm by yunhua98 »

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #33 on: October 23, 2010, 01:15:25 pm »
I really love that bomb explosion animation. As for the bugs maybe you could post your source code so someone can help? (Maybe in the Axe sub-forum so people notice)

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #34 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.  ;)

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #35 on: October 23, 2010, 01:32:58 pm »
Ah I didn't see the code in there. I am used to asking because most people doesn't post their source right away since it's their project.

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #36 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

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #37 on: October 23, 2010, 02:44:04 pm »
Yeah true but I know some people want their game to be closed source so other people discover their tricks by themselves (as some sort of competition I guess :P)

Offline Happybobjr

  • James Oldiges
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2325
  • Rating: +128/-20
  • Howdy :)
    • View Profile
Re: Bomberman
« Reply #38 on: October 23, 2010, 02:55:57 pm »
I think i see a problem...

:If {L1+1}=P and ({L1+2}=Q+8
:L+22→L
:End

should be
:If {L1+1}=P and ({L1+2}=(Q+8)
:L+22→L
:End
School: East Central High School
 
Axe: 1.0.0
TI-84 +SE  ||| OS: 2.53 MP (patched) ||| Version: "M"
TI-Nspire    |||  Lent out, and never returned
____________________________________________________________

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #39 on: October 29, 2010, 05:40:28 pm »
thanks for everyone's help guys!
I figured out the bug with the help of Aichi, so I'm gonna post another version hopefully with menus soon, and then it'll be playable.  afterwards is the bonus stuff.  ;)
* yunhua98 goes to add Aichi to credits...

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #40 on: October 29, 2010, 11:25:16 pm »
Glad to hear, can't wait to try it when I have time :)

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #41 on: November 04, 2010, 01:17:19 pm »
I got a decent titlescreen now. but I removed the second ghost since it seemed to be causing problems.  I'm gonna recode that section and see if it works.  ;)

btw, will repeatedly displaying and removing a picture using Axe to produce waves damage the LCD?  cause thats what I'm using for the title.

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #42 on: November 04, 2010, 07:43:46 pm »
Do you mean something like Repeat getkey=15:DrawInv:DispGraph:End that quickly flashes? That should be perfectly fine. Will you post a screenshot of the title screen, by the way? I'm happy to see it is still progressing :)

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Bomberman
« Reply #43 on: November 04, 2010, 11:24:28 pm »
no, its just repeatedly Pic1->DispGraph type thing.  as for screenie, I will but not until weekends.  ;)

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Bomberman
« Reply #44 on: November 04, 2010, 11:40:05 pm »
I'M not sure what you mean then ???