annotate collision_task.cc @ 5:c9e9b605f08e

rename tcollision.cc
author koba <koba@cr.ie.u-ryukyu.ac.jp>
date Tue, 14 Dec 2010 15:29:13 +0900
parents
children 23d54565aa7b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #include <stdio.h>
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 #include <stdlib.h>
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 #include <SDL.h>
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 #include "SDL_opengl.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 #include "object.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 #include "Character.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 #include "Character_state.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 #include "tokuten.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 #include "collision.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 #include "bom.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 #include "count2.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 #include "sgoex.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 #include "TaskManager.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 #include "Func.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 #include "property.h"
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 extern SpriteTable sptable[DEFOBJ];
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 extern TaskManager *tmanager;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 CollisionPropertyPtr
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 get_property(CHARACTER *p)
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 CollisionPropertyPtr property = new(CollisionProperty);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 property->infg_level = infg_level;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 property->enemycount = 0;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
27
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 property->jiki = jiki;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 property->p = *p;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 property->tlv3 = tlv3[0];
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 property->lg = lg;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 property->infg = infg;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 memcpy(property->tama_lv1, &tama_lv1, sizeof(tama1)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 memcpy(property->tama_lv2, &tama_lv2, sizeof(tama2)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 memcpy(property->laser_lv1, &laser_lv1, sizeof(laser)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 memcpy(property->laser_lv2, &laser_lv2, sizeof(laser)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 memcpy(property->laser_lv3, &laser_lv3, sizeof(laser)*128);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 memcpy(property->bchar, &bchar, sizeof(bomchar)*100);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 return property;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 }
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
44
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 void
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 free_property(SchedTask *s, void *prop, void *chara)
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 CollisionPropertyPtr property = (CollisionPropertyPtr)prop;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 CHARACTER *character = (CHARACTER *)chara;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 if(infg_level <= property->infg_level||infg_level != 0) {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 infg_level--;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 }
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 if(lg.stg <= property->lg.stg) {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 lg.stg -= 26;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 }
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 enemycount += property->enemycount;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
58
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 jiki = property->jiki;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 *character = property->p;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 tlv3[0] = property->tlv3;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 infg = property->infg;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
63
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 memcpy(tama_lv1, property->tama_lv1, sizeof(tama1)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 memcpy(tama_lv2, property->tama_lv2, sizeof(tama2)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 memcpy(laser_lv1, property->laser_lv1, sizeof(laser)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 memcpy(laser_lv2, property->laser_lv2, sizeof(laser)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 memcpy(laser_lv3, property->laser_lv3, sizeof(laser)*128);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 memcpy(bchar, property->bchar, sizeof(bomchar)*100);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 delete property;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 }
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
74
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 CHARACTER * atari(CHARACTER *p)
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 int w, h, charno;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 CollisionPropertyPtr property = get_property(p);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
79
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 charno = p->charano;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 w = sptable[charno].w;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 h = sptable[charno].h;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
83
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 HTaskPtr collision_task = tmanager->create_task(ATARI);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
85
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 collision_task->set_param(0,(memaddr)w);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 collision_task->set_param(1,(memaddr)h);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 collision_task->set_param(2,(memaddr)enemycount);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 collision_task->set_param(3,(memaddr)bomend);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 collision_task->set_param(4,(memaddr)tama_lv1_end);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 collision_task->set_param(5,(memaddr)tama_lv2_end);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 collision_task->set_param(6,(memaddr)laser_lv1_end);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 collision_task->set_param(7,(memaddr)infg_level);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
94
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 collision_task->add_inData(property, sizeof(CollisionProperty));
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 collision_task->add_outData(property, sizeof(CollisionProperty));
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 collision_task->set_post(free_property, property, p);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
98
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 collision_task->set_cpu(SPE_ANY);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 collision_task->spawn();
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
101
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 return p;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 }