ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/main.C
(Generate patch)

Comparing deliantra/server/server/main.C (file contents):
Revision 1.155 by root, Wed Apr 21 06:45:57 2010 UTC vs.
Revision 1.161 by root, Thu Apr 29 08:26:38 2010 UTC

40{ 40{
41 new_draw_info_format (NDI_UNIQUE, 0, op, "This is Deliantra v%s", VERSION); 41 new_draw_info_format (NDI_UNIQUE, 0, op, "This is Deliantra v%s", VERSION);
42} 42}
43 43
44/* This is a basic little function to put the player back to his 44/* This is a basic little function to put the player back to his
45 * savebed. We do some error checking - its possible that the 45 * savebed.
46 * savebed map may no longer exist, so we make sure the player
47 * goes someplace.
48 */ 46 */
49void 47void
50enter_player_savebed (object *op) 48enter_player_savebed (object *op)
51{ 49{
52 op->player_goto (op->contr->savebed_map, op->contr->bed_x, op->contr->bed_y); 50 op->player_goto (op->contr->savebed_map, op->contr->bed_x, op->contr->bed_y);
57 * new map. map, x, y must be set. map is the map we are moving the 55 * new map. map, x, y must be set. map is the map we are moving the
58 * player to - it could be the map he just came from if the load failed for 56 * player to - it could be the map he just came from if the load failed for
59 * whatever reason. If default map coordinates are to be used, then 57 * whatever reason. If default map coordinates are to be used, then
60 * the function that calls this should figure them out. 58 * the function that calls this should figure them out.
61 */ 59 */
62void 60bool
63object::enter_map (maptile *newmap, int x, int y) 61object::enter_map (maptile *newmap, int x, int y)
64{ 62{
65 if (destroyed () || !newmap || newmap->in_memory != MAP_ACTIVE) 63 if (destroyed () || !newmap || newmap->in_memory != MAP_ACTIVE)
66 return; 64 return false;
67 65
68 if (out_of_map (newmap, x, y)) 66 if (out_of_map (newmap, x, y))
69 { 67 {
70 LOG (llevError, "enter_map: supplied coordinates are not within the map! (%s: %d, %d)\n", &newmap->path, x, y); 68 LOG (llevError, "enter_map: supplied coordinates are not within the map! (%s: %d, %d)\n", &newmap->path, x, y);
71 x = newmap->enter_x; 69 x = newmap->enter_x;
73 if (out_of_map (newmap, x, y)) 71 if (out_of_map (newmap, x, y))
74 { 72 {
75 LOG (llevError, "enter_map: map %s provides invalid default enter location (%d, %d) > (%d, %d)\n", 73 LOG (llevError, "enter_map: map %s provides invalid default enter location (%d, %d) > (%d, %d)\n",
76 &newmap->path, x, y, newmap->width, newmap->height); 74 &newmap->path, x, y, newmap->width, newmap->height);
77 new_draw_info (NDI_UNIQUE, 0, this, "The exit is closed"); 75 new_draw_info (NDI_UNIQUE, 0, this, "The exit is closed");
78 return; 76 return false;
79 } 77 }
80 } 78 }
81 79
82 if (contr && map != newmap && map) 80 if (contr && map != newmap && map)
83 if (INVOKE_MAP (LEAVE, map, ARG_PLAYER (contr))) 81 if (INVOKE_MAP (LEAVE, map, ARG_PLAYER (contr)))
84 return; 82 return false;
85 83
86 // remove, so stupid blocked does not trigger a failure 84 // remove, so stupid blocked does not trigger a failure
87 remove (); 85 remove ();
88 86
89 /* try to find a spot for the player */ 87 /* try to find a spot for the player */
116 } 114 }
117 115
118 if (contr && map != newmap) 116 if (contr && map != newmap)
119 { 117 {
120 if (INVOKE_PLAYER (MAP_CHANGE, contr, ARG_MAP (newmap), ARG_INT (x), ARG_INT (y))) 118 if (INVOKE_PLAYER (MAP_CHANGE, contr, ARG_MAP (newmap), ARG_INT (x), ARG_INT (y)))
121 return; 119 return false;
122 120
123 if (INVOKE_MAP (ENTER, newmap, ARG_PLAYER (contr), ARG_INT (x), ARG_INT (y))) 121 if (INVOKE_MAP (ENTER, newmap, ARG_PLAYER (contr), ARG_INT (x), ARG_INT (y)))
124 return; 122 return false;
125 } 123 }
126
127 newmap->insert (this, x, y, 0, INS_NO_WALK_ON);
128 124
129 enemy = 0; 125 enemy = 0;
130 126
127 //newmap->insert (this, x, y);
128 newmap->insert (this, x, y, 0, INS_NO_AUTO_EXIT);
129
130 if (map == newmap) // see if we actually arrived there - insert might trigger a teleport
131 {
131 if (contr) 132 if (contr)
132 { 133 {
133 contr->maplevel = newmap->path; 134 contr->maplevel = newmap->path;
134 contr->count = 0; 135 contr->count = 0;
135 }
136 136
137 /* Update any golems */ 137 /* Update any golems */
138 if (type == PLAYER)
139 if (object *golem = contr->golem) 138 if (object *golem = contr->golem)
140 { 139 {
141 int i = find_free_spot (golem, newmap, x, y, 1, SIZEOFFREE); 140 int i = find_free_spot (golem, newmap, x, y, 1, SIZEOFFREE);
142 141
143 if (i < 0) 142 if (i < 0)
144 golem->drop_and_destroy (); 143 golem->drop_and_destroy ();
145 else 144 else
146 { 145 {
147 newmap->insert (golem, x + freearr_x[i], y + freearr_y[i]); 146 newmap->insert (golem, x + freearr_x[i], y + freearr_y[i]);
148 golem->direction = find_dir_2 (golem->x - x, golem->y - y); 147 golem->direction = find_dir_2 (golem->x - x, golem->y - y);
148 }
149 } 149 }
150 } 150 }
151 151
152 /* since the players map is already loaded, we don't need to worry 152 /* since the players map is already loaded, we don't need to worry
153 * about pending objects. 153 * about pending objects.
154 */ 154 */
155 remove_all_pets (newmap); 155 move_all_pets ();
156
157 return true;
158 }
159
160 return false;
156} 161}
157 162
158/* process_players1 and process_players2 do all the player related stuff. 163/* process_players1 and process_players2 do all the player related stuff.
159 * I moved it out of process events and process_map. This was to some 164 * I moved it out of process events and process_map. This was to some
160 * extent for debugging as well as to get a better idea of the time used 165 * extent for debugging as well as to get a better idea of the time used
282 287
283/* clean up everything before exiting */ 288/* clean up everything before exiting */
284void 289void
285emergency_save () 290emergency_save ()
286{ 291{
287 LOG (llevDebug, "emergency save begin.\n"); 292 LOG (llevInfo, "emergency_save: enter\n");
293
294 LOG (llevInfo, "emergency_save: saving book archive\n");
295 write_book_archive ();
288 296
289 cfperl_emergency_save (); 297 cfperl_emergency_save ();
290 298
291 LOG (llevDebug, "saving book archive.\n");
292 write_book_archive ();
293
294 LOG (llevDebug, "emergency save done.\n"); 299 LOG (llevInfo, "emergency_save: leave\n");
295} 300}
296 301
297// send all clients some informational text 302// send all clients some informational text
298static void 303static void
299cleanup_inform (const char *cause, bool make_core) 304cleanup_inform (const char *cause, bool make_core)
318cleanup (const char *cause, bool make_core) 323cleanup (const char *cause, bool make_core)
319{ 324{
320 if (make_core) 325 if (make_core)
321 fork_abort (cause); 326 fork_abort (cause);
322 327
323 LOG (llevError, "cleanup cause: %s\n", cause); 328 LOG (make_core ? llevError : llevInfo, "cleanup cause: %s\n", cause);
324 329
325 if (!make_core) 330 if (!make_core)
326 cleanup_inform (cause, make_core); 331 cleanup_inform (cause, make_core);
327 332
328 LOG (llevDebug, "cleanup begin.\n"); 333 LOG (llevDebug, "cleanup begin.\n");

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines