annotate collision_task.cc @ 70:cee55c8365e9 default tip

fix
author Kazuma
date Thu, 19 May 2016 18:52:26 +0900
parents 6989f8cb0259
children b31bed246abd
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
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
21 get_property()
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 {
8
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
23 CollisionPropertyPtr property = (CollisionPropertyPtr)tmanager->allocate(sizeof(CollisionProperty));
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
24
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 property->enemycount = 0;
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
26 property->tlv3 = tlv3[0];
34
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
27 property->laser_lv2 = laser_lv2[0];
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
29 memcpy(property->tama_lv1, tama_lv1, sizeof(tama1)*20);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
30 memcpy(property->tama_lv2, tama_lv2, sizeof(tama2)*20);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
31 memcpy(property->laser_lv1, laser_lv1, sizeof(laser)*20);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
32 memcpy(property->laser_lv3, laser_lv3, sizeof(laser)*128);
5
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 return property;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 }
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
36
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 void
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
38 free_property(SchedTask *s, void *prop, void *obj)
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 CollisionPropertyPtr property = (CollisionPropertyPtr)prop;
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
41 ObjContainer *new_obj = (ObjContainerPtr)obj;
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
42
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
43 if ((new_obj->flag == true) && (new_obj->length == 1)){
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
44 ObjDataPtr obj_data = new_obj->data;
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
45 Bom(obj_data->x, obj_data->y);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
46 }
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47
8
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
48 if(lg.stg > property->lg.stg) {
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 lg.stg -= 26;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 }
8
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
51 infg_level = property->infg_level;
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 enemycount += property->enemycount;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
53
7
23d54565aa7b not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
54 jiki.bf = property->jiki.bf;
23d54565aa7b not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
55 jiki.zanki = property->jiki.zanki;
23d54565aa7b not working.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 5
diff changeset
56 jiki.muteki = property->jiki.muteki;
8
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
57
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 infg = property->infg;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59
34
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
60 memcpy(tama_lv1, property->tama_lv1, sizeof(tama1)*20);
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 memcpy(tama_lv2, property->tama_lv2, sizeof(tama2)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 memcpy(laser_lv1, property->laser_lv1, sizeof(laser)*20);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
63
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
64 free(new_obj);
8
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 7
diff changeset
65 free(prop);
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 }
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
68
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
69 CHARACTER*
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
70 atari(CHARACTER *p)
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 {
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 int w, h, charno;
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
73 CollisionPropertyPtr property = get_property();
5
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 charno = p->charano;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 w = sptable[charno].w;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 h = sptable[charno].h;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
78
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
79 int obj_size = sizeof(ObjContainer)+sizeof(ObjData)*1;
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
80 ObjContainerPtr obj = (ObjContainerPtr)tmanager->allocate(obj_size);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
81 obj->flag = false;
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
82 obj->length = 0;
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
83
5
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);
19
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
88 collision_task->set_param(2,(memaddr)tama_lv1_end);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
89 collision_task->set_param(3,(memaddr)tama_lv2_end);
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
90 collision_task->set_param(4,(memaddr)laser_lv1_end);
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
91
34
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
92 collision_task->set_inData(0, p, sizeof(CHARACTER));
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
93 collision_task->set_inData(1, &jiki, sizeof(player));
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
94 collision_task->set_inData(2, &lg, sizeof(stge));
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
95 collision_task->set_inData(3, &infg, sizeof(stge));
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
96 collision_task->set_inData(4, &infg_level, sizeof(int));
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
97 collision_task->set_inData(5, property, sizeof(CollisionProperty));
34
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
98
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
99 collision_task->set_outData(0, p, sizeof(CHARACTER));
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
100 collision_task->set_outData(1, property, sizeof(CollisionProperty));
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
101 collision_task->set_outData(2, obj, 0);
34
7aaaaf5dde40 add new task.
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 28
diff changeset
102
37
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents: 36
diff changeset
103 collision_task->set_post(free_property, (void*)property, (void*)obj);
5
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 collision_task->set_cpu(SPE_ANY);
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 collision_task->spawn();
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
106
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 return p;
c9e9b605f08e rename tcollision.cc
koba <koba@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 }