annotate collision.c @ 25:aa37f220b7a8

add new files, not working.
author koba <koba@cr.ie.u-ryukyu.ac.jp>
date Wed, 24 Nov 2010 19:24:43 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #include <stdio.h>
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 #include <stdlib.h>
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 #include <SDL.h>
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 #include "SDL_opengl.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 #include "object.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 #include "Character.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 #include "Character_state.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 #include "tokuten.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 #include "collision.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 //#include "atari.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 #include "bom.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 #include "count2.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 #include "sound.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 //#include "Enemy.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 //#include "libps.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 #include "sgoex.h"
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 extern SpriteTable sptable[DEFOBJ];
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 void
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 nocollision(SceneGraphPtr node, int screen_w, int screen_h,
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 SceneGraphPtr tree){}
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 CHARACTER * atari(CHARACTER *p)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 int i1, h, w, ex, ey, charno;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 int n;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 ex = p->x;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 ey = p->y;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 charno = p->charano;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 w = sptable[charno].w;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 h = sptable[charno].h;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 //i2 = playerno;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 //自機やられ
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 #ifndef INVISIBLE_MODE
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 if ((ex < jiki.x + 128 / 2) && (ex + w > jiki.x + 128 / 2)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 && (ey < jiki.y + 128 / 2) && (ey + h > jiki.y + 128 / 2)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 && jiki.muteki == 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 //se_voice[0] = SsUtKeyOn(vab[JIKIOUT], 0, 0, 65, 0, 60, 60);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 Bom(jiki.x + 16, jiki.y + 16);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 jiki.bf = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 jiki.zanki--;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 jiki.muteki = 120;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
46
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 infg.stg = 0;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 infg_level--;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 if (infg_level < 0)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 infg_level = 0;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 #endif
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
55
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 if (p->tama == TRUE)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 goto jumping;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 for (i1 = 0; i1 < tama_lv1_end + 1; i1++) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 if ((tama_lv1[i1].x + 64 + 64 > ex)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 && (ex + w > tama_lv1[i1].x + 16)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 && (tama_lv1[i1].y + 128 > ey) && (tama_lv1[i1].y < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 && (tama_lv1[i1].r != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 tama_lv1[i1].r = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 p->vit -= TAMALV1P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 if ((tama_lv1[i1].x + 64 > ex) && (ex + w > tama_lv1[i1].x)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 && (tama_lv1[i1].y + 128 > ey) && (tama_lv1[i1].y < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 && (tama_lv1[i1].l != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 tama_lv1[i1].l = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 p->vit -= TAMALV1P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
96
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 for (i1 = 0; i1 < tama_lv2_end + 1; i1++) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 if ((tama_lv2[i1].x + 128 + 64 > ex)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 && (ex + w > tama_lv2[i1].x + 128)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 && (tama_lv2[i1].y + 192 > ey) && (tama_lv2[i1].y < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 && (tama_lv2[i1].rr != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 tama_lv2[i1].rr = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 p->vit -= TAMALV2P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
116
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 if ((tama_lv2[i1].x + 64 + 64 > ex)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 && (ex + w > tama_lv2[i1].x + 16)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 && (tama_lv2[i1].y - 32 + 192 > ey)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 && (tama_lv2[i1].y - 32 < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 && (tama_lv2[i1].sr != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 tama_lv2[i1].sr = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 p->vit -= TAMALV2P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 if ((tama_lv2[i1].x + 64 > ex) && (ex + w > tama_lv2[i1].x)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 && (tama_lv2[i1].y - 32 + 192 > ey)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 && (tama_lv2[i1].y - 32 < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 && (tama_lv2[i1].sl != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 tama_lv2[i1].sl = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 p->vit -= TAMALV2P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 if ((tama_lv2[i1].x - 64 + 64 > ex)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 && (ex + w > tama_lv2[i1].x - 64)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 && (tama_lv2[i1].y + 192 > ey) && (tama_lv2[i1].y < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 && (tama_lv2[i1].ll != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 tama_lv2[i1].ll = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 p->vit -= TAMALV2P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 if ((tlv3[0].r > 0) && (jiki.x < ex + w) && (jiki.x + 128 > ex)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 && (jiki.y > ey + h)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 p->vit -= TAMALV3P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 jumping:
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 if ((tlv3[0].r > 0) && (jiki.x < ex + w) && (jiki.x + 128 > ex)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 && (jiki.y + 128 > ey) && (jiki.y < ey + h)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 p->vit -= TAMALV3P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 /*laser lv1 */
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 for (i1 = 0; i1 < laser_lv1_end + 1; i1++) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 n = laser_lv1[i1].r * 128 / 4096;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
207
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 if ((laser_lv1[i1].x + n > ex) && (ex + w > laser_lv1[i1].x)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 && (laser_lv1[i1].y + n > ey) && (laser_lv1[i1].y < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 && (laser_lv1[i1].r != -1)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 laser_lv1[i1].r = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 laser_lv1[i1].y = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 p->vit -= LASERLV1P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 /*shield(laser lv2) */
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 if ((p->tama == TRUE) && (lg.stg > 0) &&
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 (laser_lv2[0].x + 128 > ex) && (ex + w > laser_lv2[0].x - 128)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 && (laser_lv2[0].y + 128 > ey) && (laser_lv2[0].y - 128 < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 && (laser_lv2[0].r != 0)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 p->vit -= LASERLV2P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 lg.stg -= 26;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 /*bomber(laser lv3) */
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 if (laser_lv3[0].r < 62) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 for (i1 = 1; i1 < 128; i1++) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 if ((laser_lv3[i1].x + 128 > ex) && (ex + w > laser_lv3[i1].x)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 && (laser_lv3[i1].y + 128 > ey)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 && (laser_lv3[i1].y < ey + h)
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 && (laser_lv3[i1].r > 0)) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 tama_lv2[i1].rr = -1;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 p->vit -= LASERLV3P;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 infg.stg++;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 if (p->vit <= 0) {
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 infg.stg += 4;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 Bom(p->x, p->y);
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 enemycount += (p->score *
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 ((infg.stg / 128) + infg_level + 1));
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 p->state = delete_chara;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 p->collision = noaction;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 p->f = FALSE;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 }
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 return p;
aa37f220b7a8 add new files, not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 }