Hey all,

Recently I've been working on BomberMan TI. Its basically like the classic bomberman game but on the calculator and you're only going to be running through different mazes and such (instead of actually trying to blow your teammate up )

This game is a CLASSIC and not many people have actually heard of it from what I can see. I used to play this game non-stop when I was younger and I finally found it again at the link above. I've been working on it for a little bit and all I have to do is make it render custom maps and such and it should work fine.

I'll post the source for voluntary optimization (if anyone is up to it ), as well as different maps I make that will ressemble the original bomberman maps, when I find my silverlink cable...

Mine is in basic, but it runs surprisingly smooth. I'm adding extras too though, including block-drops like fire, and possibly ice.

The custom map configuration will be stored in a matrix and the syntax will be the same as the original bomberman txt file syntax.

Fire will increase your explosions radius and ice will make you lose traction (might take too much work to program, but I might try ). I'll make it so that you can blow up drops as well though since it was in the original game and it will allow you to avoid accidently getting the ice addon. I was going to say I'll add the skate and the slow drops but I'm not sure I can manipulate the speed of bomberman through Basic (make it faster, at least).

Am I hearing the possibility of custom maps and an in-game map editor

...and all I have to do is make it render custom maps and such and it should work fine.

:Lbl ST
:ClrHome
:0→θ
:1→C:1→M
:1→X:1→Y
:1→V:1→W
:1→H:1→K:0→P
:Lbl G
:While C=1
:¦ Repeat θ
:¦ ¦ If P≠0
:¦ ¦ Output(K,H,"°
:¦ ¦ If P≠0 and checkTmr(P)≥2
:¦ ¦ Goto E
:¦ ¦ If M=1
:¦ ¦ Then
:¦ ¦ ¦ Output(Y,X,"x
:¦ ¦ ¦ 0→M
:¦ ¦ ¦ Else
:¦ ¦ ¦ Output(Y,X,"+
:¦ ¦ ¦ 1→M
:¦ ¦ End
:¦ ¦ getKey→θ
:¦ End
:¦ If θ=21
:¦ Then
:¦ ¦ startTmr→P:X→H:Y→K
:¦ End
:¦ If θ=26 and X<16
:¦ Then
:¦ ¦ Output(Y,X,"
:¦ ¦ X+1→X
:¦ End
:¦ If θ=24 and X>1
:¦ Then
:¦ ¦ Output(Y,X,"
:¦ ¦ X-1→X
:¦ End
:¦ If θ=25 and Y>1
:¦ Then
:¦ ¦ Output(Y,X,"
:¦ ¦ Y-1→Y
:¦ End
:¦ If θ=34 and Y<8
:¦ Then
:¦ ¦ Output(Y,X,"
:¦ ¦ Y+1→Y
:¦ End
:¦ If θ=105
:¦ DelVar C
:End
:Goto θ
:Lbl E
:Output(K,H,"*
:0→θ
:While θ≤1
:¦ θ+1→θ
:¦ If H-θ>0
:¦ Output(K,H-θ,"*
:¦ If H+θ<17
:¦ Output(K,H+θ,"*
:¦ If K-θ>0
:¦ Output(K-θ,H,"*
:¦ If K+θ<9
:¦ Output(K+θ,H,"*
:End
:Output(K,H,"
:0→θ
:While θ≤1
:¦ θ+1→θ
:¦ If H-θ>0
:¦ Output(K,H-θ,"
:¦ If H+θ<17
:¦ Output(K,H+θ,"
:¦ If K-θ>0
:¦ Output(K-θ,H,"
:¦ If K+θ<9
:¦ Output(K+θ,H,"
:End
:If (X≥H-2 and X≤H+2 and Y=K) or (Y≥K-2 and Y≤K+2 and X=H)
:Goto ST
:0→P
:Goto G
:Lbl θ
:ClrHome
:Output(1,1," BomberMan - TI
:Output(6,1,"Currently Being
:Output(7,1,"Developed
:Output(8,1," -Hit Any Key -
:Repeat getKey:End
:ClrHome
:Output(1,1,"
Generated by SourceCoder, © 2005 Cemetech

:Lbl ST
:ClrHome
:Delvar θDelvar P1→C:1→M
:1→X:1→Y
:1→V:1→W
:1→H:1→K
:Lbl G
:While C=1
:¦ Repeat θ
:¦ ¦ If P:Output(K,H,"°
:¦ ¦ If P and checkTmr(P)≥2
:¦ ¦ Goto E
:¦ ¦ "+
:| | If M:"x
:| | Output(Y,X,Ans
:¦ ¦ not(M->M
:¦ ¦ getKey→θ
:¦ End
:¦ If θ=21
:¦ Then
:¦ ¦ startTmr→P:X→H:Y→K
:¦ End
:¦ If θ≠105:Output(Y,X,"
:¦ X+(θ=26 and X<16)-(θ=24 and X>1→X
:¦ Y+(θ=34 and Y<8)-(θ=25 and Y>1→Y
:¦ If θ=105:DelVar C
:End
:Goto θ
:Lbl E
:Output(K,H,"*
:Delvar θWhile θ≤1
:¦ θ+1→θ
:¦ If H-θ>0
:¦ Output(K,H-θ,"*
:¦ If H+θ<17
:¦ Output(K,H+θ,"*
:¦ If K-θ>0
:¦ Output(K-θ,H,"*
:¦ If K+θ<9
:¦ Output(K+θ,H,"*
:End
:Output(K,H,"
:0→θ
:While θ≤1
:¦ θ+1→θ
:¦ If H-θ>0
:¦ Output(K,H-θ,"
:¦ If H+θ<17
:¦ Output(K,H+θ,"
:¦ If K-θ>0
:¦ Output(K-θ,H,"
:¦ If K+θ<9
:¦ Output(K+θ,H,"
:End
:If (X≥H-2 and X≤H+2 and Y=K) or (Y≥K-2 and Y≤K+2 and X=H)
:Goto ST
:0→P
:Goto G
:Lbl θ
:ClrHome
:Output(1,1," BomberMan - TI
:Output(6,1,"Currently Being
:Output(7,1,"Developed
:Output(8,1," -Hit Any Key -
:Repeat getKey:End
:ClrHome
:Output(1,1,"
Generated by SourceCoder, © 2005 Cemetech

:¦ ¦ Goto E

I can't predict what error you got, so you'll have to explain what happened when you got it