Omnimaga: The Coders Of Tomorrow
Welcome, Guest. Please login or register.
 
Omnimaga: The Coders Of Tomorrow
19 May, 2013, 00:59:10 *
Welcome, Guest. Please login or register.

Login with username, password and session length
 
   home   news downloads projects tutorials misc forums rules new posts irc about Login Register  
+-OmnomIRC

You must Register, be logged in and have at least 40 posts to use this shout-box! If it still doesn't show up afterward, it might be that OmnomIRC is disabled for your group or under maintenance.

Note: You can also use an IRC client like mIRC, X-Chat or Mibbit to connect to an EFnet server and #omnimaga.

Pages: [1] 2 3 ... 8   Go Down
  Print  
Author Topic: Bomberman -  (Read 9165 times) Bookmark and Share
0 Members and 1 Guest are viewing this topic.
yunhua98
You won't this read sentence right.
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 14 May, 2012, 03:06:37
Date Registered: 26 May, 2010, 22:58:45
Location: Somewhere in Deep Space.
Posts: 2717


Topic starter
Total Post Ratings: +199

View Profile
« on: 17 October, 2010, 00:01:00 »
+2
As many of you know, I stopped working on this due to a memory loss.  Well, yesterday, I was looking through my backups and found Bomberman again, I thought, maybe I should revive this?  I was a bit less busy, and all were doing in my Science and Math classes were review, so I decided to pick it up again.  heres what I have so far:


I don't really understand why my enemy never faces the right direction though, and I would be glad if anyone could find some more bugs.
all, it does so far is drop bombs, explode stuff, including you but not the enemy yet, and the light blocks are explodable, the "grey" ones aren't

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
: 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
:.Return
Generated by SourceCoder, © 2005-2010 Cemetech

Bomberman is the executable, no-stub
Axebomb is the source

also, if you can spot any optimizations, please point them out to me.  Wink

EDIT:
Credits list so far:
Omnimaga Community
DJ Omnimaga for inspiring this game with Axe Contest
Aichi for helping me figure out a bug that I was stuck on
* AXEBOMB.8xp (2.11 KB - downloaded 90 times.)
* BOMBRMAN.8xp (3.14 KB - downloaded 120 times.)
« Last Edit: 29 October, 2010, 23:42:05 by yunhua98 » Logged

Spoiler for =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
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
matthias1992
LV6 Super Member (Next: 500)
******
Offline Offline

Gender: Male
Last Login: 28 May, 2012, 01:54:05
Date Registered: 02 July, 2010, 22:52:13
Location: The Netherlands
Posts: 414


Total Post Ratings: +28

View Profile
« Reply #1 on: 17 October, 2010, 00:09:23 »
0
THERE IS SMILIES IN THE SOURCE Cheesy

Looks great yunhua!
Logged
MASM xxxxxxxxxx aborted | SADce ====:::::: 40% -Halted until further notice| XAOS =====::::: 50% -Units done| SKYBOX2D engine ========== 100% -Pre-alpha done. Need to  document it and extend |

~Those who dream by day are cognizant of much more than those who dream by night only. -Sir Edgar Allen Poe-
yunhua98
You won't this read sentence right.
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 14 May, 2012, 03:06:37
Date Registered: 26 May, 2010, 22:58:45
Location: Somewhere in Deep Space.
Posts: 2717


Topic starter
Total Post Ratings: +199

View Profile
« Reply #2 on: 17 October, 2010, 00:10:31 »
0
lol  Tongue
* yunhua98 goes to change
Logged

Spoiler for =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
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
MRide
LV8 Addict (Next: 1000)
********
Offline Offline

Gender: Male
Last Login: 13 July, 2011, 22:22:01
Date Registered: 16 July, 2010, 18:31:10
Location: On a set of Penrose steps
Posts: 710


Total Post Ratings: +14

View Profile
« Reply #3 on: 17 October, 2010, 00:11:36 »
0
Quote from: yunhua98 on 17 October, 2010, 00:01:00
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
Cheesy-(8*(rand^2))→D
:24→θ
:End
:If D<55 and (pxl-Test(G+1,D+14)=0
Cheesy+(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
:.Return
Generated by SourceCoder, © 2005-2010 Cemetech

Bomberman is the executable, no-stub
Axebomb is the source

also, if you can spot any optimizations, please point them out to me.  Wink
I didn't know you could have smilies in code. Tongue

EDIT: Ninja'd
« Last Edit: 17 October, 2010, 01:47:56 by MRide » Logged

Please click the eggs/dragons! :
Spoiler for My Incubator:
kindermoumoute
LV8 Addict (Next: 1000)
********
Offline Offline

Last Login: 17 May, 2013, 21:33:10
Date Registered: 15 May, 2010, 17:53:56
Posts: 836


Total Post Ratings: +51

View Profile
« Reply #4 on: 17 October, 2010, 00:19:10 »
0
I like this game, nice project Wink
Logged
Projects :

Worms armageddon z80 :
- smoothscrolling Pixelmapping : 100%
- Map editor : 80%
- Game System : 0%

Tutoriel français sur l'Axe Parser
- 1ère partie : en ligne.
- 2ème partie : en ligne.
- 3ème partie : en ligne.
- 4ème partie : 10%
- Annexe : 100%
yunhua98
You won't this read sentence right.
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 14 May, 2012, 03:06:37
Date Registered: 26 May, 2010, 22:58:45
Location: Somewhere in Deep Space.
Posts: 2717


Topic starter
Total Post Ratings: +199

View Profile
« Reply #5 on: 17 October, 2010, 00:38:19 »
0
thanks for the encouragement guys!  although I might not post screenies very often, I will work on it a bit everyday.  All I've got to worry about are like 2 tests on monday.  Tongue
Logged

Spoiler for =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
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
Ranman
LV10 31337 u53r (Next: 2000)
**********
Offline Offline

Last Login: 23 April, 2013, 23:37:04
Date Registered: 16 October, 2008, 23:25:59
Posts: 1390


Total Post Ratings: +78

View Profile
« Reply #6 on: 17 October, 2010, 00:46:50 »
0
Wow... Lookin' good!
Logged
Ranman
Bringing Randy Glover's Jumpman to the TI-89 calculator.  Download available here.
shmibs
bonsai bok choy wiseguy waterboy
Administrator
LV10 31337 u53r (Next: 2000)
*
Offline Offline

Last Login: Yesterday at 07:07:51
Date Registered: 11 June, 2010, 19:36:15
Location: 89B6
Posts: 1839


Total Post Ratings: +227

View Profile
« Reply #7 on: 17 October, 2010, 00:53:40 »
0
this is how i would write the same code that you have here(although i probably screwed something up because i'm running a massive fever right now and just got back from work.) personally, though, i would use a matrix for the map data instead of a massive list of pixel-tests. bomberman is the greatest; good luck on implementing it!

Code: Select All | Copy To Clipboard

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
:.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
Logged


We're not human, are we?
yunhua98
You won't this read sentence right.
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 14 May, 2012, 03:06:37
Date Registered: 26 May, 2010, 22:58:45
Location: Somewhere in Deep Space.
Posts: 2717


Topic starter
Total Post Ratings: +199

View Profile
« Reply #8 on: 17 October, 2010, 00:55:43 »
0
kk, thanks, but is the For(L,0,11 part supposed to not be on a seperate line?
Logged

Spoiler for =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
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
shmibs
bonsai bok choy wiseguy waterboy
Administrator
LV10 31337 u53r (Next: 2000)
*
Offline Offline

Last Login: Yesterday at 07:07:51
Date Registered: 11 June, 2010, 19:36:15
Location: 89B6
Posts: 1839


Total Post Ratings: +227

View Profile
« Reply #9 on: 17 October, 2010, 01:38:40 »
0
yes. some of the things in here are just personal preferences for code structuring, however
Logged


We're not human, are we?
DJ Omnimaga
Retired Omnimaga founder (Site issues must be PM'ed to Netham45, Eeems, Shmibs, Deep Thought and AngelFish, not me.)
Editor
LV15 Omnimagician (Next: --)
*
Offline Offline

Gender: Male
Last Login: Yesterday at 18:13:08
Date Registered: 25 August, 2008, 07:00:21
Location: Québec (Canada)
Posts: 50196


Total Post Ratings: +2611

View Profile WWW
« Reply #10 on: 17 October, 2010, 10:20:29 »
0
WOW that's great that you found it agaiN! Now if only you could have managed to find it before the contest ended Sad

ALso it looks great. I'm glad this is alive again Smiley.
Logged
Retired 83+ coder, Omnimaga/TIMGUL founder. Now doing power metal music (formerly did electronica)

Follow me on Bandcamp|Facebook|Reverbnation|Youtube|Twitter|Myspace
yunhua98
You won't this read sentence right.
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 14 May, 2012, 03:06:37
Date Registered: 26 May, 2010, 22:58:45
Location: Somewhere in Deep Space.
Posts: 2717


Topic starter
Total Post Ratings: +199

View Profile
« Reply #11 on: 17 October, 2010, 13:38:15 »
0
well, technically I knew where it was before the contest ended, but I just lacked the motivation to do anything with it.  Tongue
Logged

Spoiler for =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
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
DJ Omnimaga
Retired Omnimaga founder (Site issues must be PM'ed to Netham45, Eeems, Shmibs, Deep Thought and AngelFish, not me.)
Editor
LV15 Omnimagician (Next: --)
*
Offline Offline

Gender: Male
Last Login: Yesterday at 18:13:08
Date Registered: 25 August, 2008, 07:00:21
Location: Québec (Canada)
Posts: 50196


Total Post Ratings: +2611

View Profile WWW
« Reply #12 on: 17 October, 2010, 20:06:05 »
0
Ah ok Big frown

Btw did you lose some progress or was it a recent backup?
Logged
Retired 83+ coder, Omnimaga/TIMGUL founder. Now doing power metal music (formerly did electronica)

Follow me on Bandcamp|Facebook|Reverbnation|Youtube|Twitter|Myspace
meishe91
Super Ninja
Members
LV11 Super Veteran (Next: 3000)
***********
Offline Offline

Gender: Male
Last Login: 02 May, 2013, 23:54:14
Date Registered: 05 March, 2010, 05:39:48
Posts: 2965


Total Post Ratings: +102

View Profile WWW
« Reply #13 on: 17 October, 2010, 22:54:14 »
0
That looks great! Good luck on this Smiley
Logged




For the 51st time, that is not my card! (Magic Joke)
ztrumpet
The Rarely Active One
LV13 Extreme Addict (Next: 9001)
*************
Offline Offline

Gender: Male
Last Login: 23 April, 2013, 16:09:52
Date Registered: 08 November, 2009, 21:10:12
Location: Michigan
Posts: 5687


Total Post Ratings: +360

View Profile
« Reply #14 on: 17 October, 2010, 23:00:11 »
0
That looks neat!  Nice job! Grin
Logged
If I'm wrong, please correct me!
Unfinished Projects:
Elmgon14%BasicMovement Demo
Homescreen Game Pack80%BasicLatest Release
Cube Droid Saves the Galaxy65%AxeDemo
Detonate70%Axe
Completed Projects:
Exodus | Midnight |Drifter | Axe Snake | Jump! | Factory Theta | Spider | Plot Drop | Papi Jump | Numb3rs | Nibbler | Boost | Duel Tile Map Editor | Homescreen Map Editor | Key Group Check | Oasis
Pages: [1] 2 3 ... 8   Go Up
  Print  
 
Jump to:  

Powered by EzPortal
Powered by MySQL Powered by SMF 1.1.18 | SMF © 2013, Simple Machines Powered by PHP
Page created in 0.427 seconds with 30 queries.
Skin by DJ Omnimaga edited from SMF default theme with the help of tr1p1ea.
All programs, games and songs avaliable on this website are property of their respective owners.
Best viewed in Opera, Firefox, Chrome and Safari with a resolution of 1024x768 or above.