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

Comparing deliantra/server/server/skills.C (file contents):
Revision 1.71 by root, Sat Nov 7 13:58:01 2009 UTC vs.
Revision 1.80 by root, Sat Apr 3 22:30:21 2010 UTC

1/* 1/*
2 * This file is part of Deliantra, the Roguelike Realtime MMORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 4 * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2003,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2003 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 6 * Copyright (©) 1992 Frank Tore Johansen
7 * 7 *
8 * Deliantra is free software: you can redistribute it and/or modify it under 8 * Deliantra is free software: you can redistribute it and/or modify it under
9 * the terms of the Affero GNU General Public License as published by the 9 * the terms of the Affero GNU General Public License as published by the
10 * Free Software Foundation, either version 3 of the License, or (at your 10 * Free Software Foundation, either version 3 of the License, or (at your
11 * option) any later version. 11 * option) any later version.
… …
260 260
261 x = op->x + freearr_x[dir]; 261 x = op->x + freearr_x[dir];
262 y = op->y + freearr_y[dir]; 262 y = op->y + freearr_y[dir];
263 263
264 if (dir == 0) 264 if (dir == 0)
265 { 265 return 0; // you can't steal from ourself!
266 /* Can't steal from ourself! */
267 return 0;
268 }
269 266
270 m = op->map; 267 m = op->map;
271 mflags = get_map_flags (m, &m, x, y, &x, &y); 268 mflags = get_map_flags (m, &m, x, y, &x, &y);
272 /* Out of map - can't do it. If nothing alive on this space, 269 /* Out of map - can't do it. If nothing alive on this space,
273 * don't need to look any further. 270 * don't need to look any further.
… …
281 278
282 /* Find the topmost object at this spot */ 279 /* Find the topmost object at this spot */
283 for (tmp = GET_MAP_OB (m, x, y); tmp != NULL && tmp->above != NULL; tmp = tmp->above); 280 for (tmp = GET_MAP_OB (m, x, y); tmp != NULL && tmp->above != NULL; tmp = tmp->above);
284 281
285 /* For all the stacked objects at this point, attempt a steal */ 282 /* For all the stacked objects at this point, attempt a steal */
286 for (; tmp != NULL; tmp = next) 283 for (; tmp; tmp = next)
287 { 284 {
288 next = tmp->below; 285 next = tmp->below;
289 /* Minor hack--for multi square beings - make sure we get 286 /* Minor hack--for multi square beings - make sure we get
290 * the 'head' coz 'tail' objects have no inventory! - b.t. 287 * the 'head' coz 'tail' objects have no inventory! - b.t.
291 */ 288 */
… …
296 continue; 293 continue;
297 294
298 /* do not reveal hidden DMs */ 295 /* do not reveal hidden DMs */
299 if (tmp->type == PLAYER && QUERY_FLAG (tmp, FLAG_WIZ) && tmp->contr->hidden) 296 if (tmp->type == PLAYER && QUERY_FLAG (tmp, FLAG_WIZ) && tmp->contr->hidden)
300 continue; 297 continue;
298
301 if (attempt_steal (tmp, op, skill)) 299 if (attempt_steal (tmp, op, skill))
302 { 300 {
303 if (tmp->type == PLAYER) /* no xp for stealing from another player */ 301 if (tmp->type == PLAYER) /* no xp for stealing from another player */
304 return 0; 302 return 0;
305 303
306 /* no xp for stealing from pets (of players) */ 304 /* no xp for stealing from pets (of players) */
307 if (QUERY_FLAG (tmp, FLAG_FRIENDLY) && tmp->attack_movement == PETMOVE) 305 if (QUERY_FLAG (tmp, FLAG_FRIENDLY) && tmp->attack_movement == PETMOVE)
308 { 306 {
309 object *owner = tmp->owner; 307 object *owner = tmp->owner;
310 308
311 if (owner != NULL && owner->type == PLAYER) 309 if (owner && owner->type == PLAYER)
312 return 0; 310 return 0;
313 } 311 }
314 312
315 // reduce monster experience by experience we gained, as to 313 // reduce monster experience by experience we gained, as to
316 // limit the amount of exp that can be gained by stealing from monsters 314 // limit the amount of exp that can be gained by stealing from monsters
317 // (jessies gave ~20,000,000 exp otherwise. 315 // (jessies gave ~20,000,000 exp otherwise.
318 int exp = calc_skill_exp (op, tmp, skill); 316 int exp = calc_skill_exp (op, tmp, skill);
319 317
320 exp = MIN (tmp->stats.exp, exp); 318 exp = min (tmp->stats.exp, exp);
321 tmp->stats.exp -= exp; 319 tmp->stats.exp -= exp;
322 return exp; 320 return exp;
323 } 321 }
324 } 322 }
323
325 return 0; 324 return 0;
326} 325}
327 326
328static int 327static int
329attempt_pick_lock (object *door, object *pl, object *skill) 328attempt_pick_lock (object *door, object *pl, object *skill)
… …
482static void 481static void
483stop_jump (object *pl, int dist, int spaces) 482stop_jump (object *pl, int dist, int spaces)
484{ 483{
485 pl->update_stats (); 484 pl->update_stats ();
486 pl->map->insert (pl, pl->x, pl->y, pl); 485 pl->map->insert (pl, pl->x, pl->y, pl);
487 pl->speed_left -= fabs (pl->speed * 8); 486 pl->speed_left -= pl->speed * 8.;
488} 487}
489 488
490static int 489static int
491attempt_jump (object *pl, int dir, int spaces, object *skill) 490attempt_jump (object *pl, int dir, int spaces, object *skill)
492{ 491{
… …
925 924
926 if (pl->type != PLAYER) 925 if (pl->type != PLAYER)
927 return 0; /* only players use this skill */ 926 return 0; /* only players use this skill */
928 927
929 new_draw_info_format (NDI_UNIQUE, 0, pl, "You sing."); 928 new_draw_info_format (NDI_UNIQUE, 0, pl, "You sing.");
930 for (i = 0; i < MIN (skill->level, SIZEOFFREE); i++) 929 for (i = 0; i < min (skill->level, SIZEOFFREE); i++)
931 { 930 {
932 x = pl->x + freearr_x[i]; 931 x = pl->x + freearr_x[i];
933 y = pl->y + freearr_y[i]; 932 y = pl->y + freearr_y[i];
934 m = pl->map; 933 m = pl->map;
935 934
… …
986} 985}
987 986
988/* The find_traps skill (aka, search). Checks for traps 987/* The find_traps skill (aka, search). Checks for traps
989 * on the spaces or in certain objects 988 * on the spaces or in certain objects
990 */ 989 */
991
992int 990int
993find_traps (object *pl, object *skill) 991find_traps (object *pl, object *skill)
994{ 992{
995 object *tmp, *tmp2; 993 object *tmp, *tmp2;
996 int i, expsum = 0, mflags; 994 int i, expsum = 0, mflags;
… …
998 maptile *m; 996 maptile *m;
999 997
1000 /* First we search all around us for runes and traps, which are 998 /* First we search all around us for runes and traps, which are
1001 * all type RUNE 999 * all type RUNE
1002 */ 1000 */
1003
1004 for (i = 0; i < 9; i++) 1001 for (i = 0; i < 9; i++)
1005 { 1002 {
1006 x = pl->x + freearr_x[i]; 1003 x = pl->x + freearr_x[i];
1007 y = pl->y + freearr_y[i]; 1004 y = pl->y + freearr_y[i];
1008 m = pl->map; 1005 m = pl->map;
… …
1010 mflags = get_map_flags (m, &m, x, y, &x, &y); 1007 mflags = get_map_flags (m, &m, x, y, &x, &y);
1011 if (mflags & P_OUT_OF_MAP) 1008 if (mflags & P_OUT_OF_MAP)
1012 continue; 1009 continue;
1013 1010
1014 /* Check everything in the square for trapness */ 1011 /* Check everything in the square for trapness */
1015 for (tmp = GET_MAP_OB (m, x, y); tmp != NULL; tmp = tmp->above) 1012 for (tmp = GET_MAP_OB (m, x, y); tmp; tmp = tmp->above)
1016 { 1013 {
1017
1018 /* And now we'd better do an inventory traversal of each 1014 /* And now we'd better do an inventory traversal of each
1019 * of these objects' inventory 1015 * of these objects' inventory
1020 * We can narrow this down a bit - no reason to search through 1016 * We can narrow this down a bit - no reason to search through
1021 * the players inventory or monsters for that matter. 1017 * the players inventory or monsters for that matter.
1022 */ 1018 */
1023 if (tmp->type != PLAYER && !QUERY_FLAG (tmp, FLAG_MONSTER)) 1019 if (tmp->type != PLAYER && !QUERY_FLAG (tmp, FLAG_MONSTER))
1024 {
1025 for (tmp2 = tmp->inv; tmp2 != NULL; tmp2 = tmp2->below) 1020 for (tmp2 = tmp->inv; tmp2 != NULL; tmp2 = tmp2->below)
1026 if (tmp2->type == RUNE || tmp2->type == TRAP) 1021 if (tmp2->type == RUNE || tmp2->type == TRAP)
1027 if (trap_see (pl, tmp2)) 1022 if (trap_see (pl, tmp2))
1028 { 1023 {
1029 trap_show (tmp2, tmp); 1024 trap_show (tmp2, tmp);
1030 if (tmp2->stats.Cha > 1) 1025 if (tmp2->stats.Cha > 1)
1031 { 1026 {
1032 if (!tmp2->owner || tmp2->owner->type != PLAYER) 1027 if (!tmp2->owner || tmp2->owner->type != PLAYER)
1033 expsum += calc_skill_exp (pl, tmp2, skill); 1028 expsum += calc_skill_exp (pl, tmp2, skill);
1034 1029
1035 tmp2->stats.Cha = 1; /* unhide the trap */ 1030 tmp2->stats.Cha = 1; /* unhide the trap */
1036 } 1031 }
1037 } 1032 }
1038 } 1033
1039 if ((tmp->type == RUNE || tmp->type == TRAP) && trap_see (pl, tmp)) 1034 if ((tmp->type == RUNE || tmp->type == TRAP) && trap_see (pl, tmp))
1040 { 1035 {
1041 trap_show (tmp, tmp); 1036 trap_show (tmp, tmp);
1042 if (tmp->stats.Cha > 1) 1037 if (tmp->stats.Cha > 1)
1043 { 1038 {
… …
1046 tmp->stats.Cha = 1; /* unhide the trap */ 1041 tmp->stats.Cha = 1; /* unhide the trap */
1047 } 1042 }
1048 } 1043 }
1049 } 1044 }
1050 } 1045 }
1046
1051 new_draw_info (NDI_BLACK, 0, pl, "You search the area."); 1047 new_draw_info (NDI_BLACK, 0, pl, "You search the area.");
1052 return expsum; 1048 return expsum;
1053} 1049}
1054 1050
1055/* remove_trap() - This skill will disarm any previously discovered trap 1051/* remove_trap() - This skill will disarm any previously discovered trap
… …
1240 1236
1241 STRLEN char_len = utf8_length ((U8 *)msg, (U8 *)(msg+len)); 1237 STRLEN char_len = utf8_length ((U8 *)msg, (U8 *)(msg+len));
1242 1238
1243 if (char_len <= item->weight_limit) 1239 if (char_len <= item->weight_limit)
1244 { 1240 {
1245 object *newbook = arch_to_object (item->other_arch); 1241 object *newbook = item->other_arch->instance ();
1246 item->decrease (); 1242 item->decrease ();
1247 newbook->nrof = 1; 1243 newbook->nrof = 1;
1248 newbook->msg = shstr (msg); 1244 newbook->msg = shstr (msg);
1249 newbook->flag [FLAG_IDENTIFIED] = true; 1245 newbook->flag [FLAG_IDENTIFIED] = true;
1250 1246
… …
1306 pl->stats.grace -= SP_level_spellpoint_cost (pl, chosen_spell, SPELL_GRACE); 1302 pl->stats.grace -= SP_level_spellpoint_cost (pl, chosen_spell, SPELL_GRACE);
1307 pl->stats.sp -= SP_level_spellpoint_cost (pl, chosen_spell, SPELL_MANA); 1303 pl->stats.sp -= SP_level_spellpoint_cost (pl, chosen_spell, SPELL_MANA);
1308 1304
1309 if (random_roll (0, chosen_spell->level * 4 - 1, pl, PREFER_LOW) < skill->level) 1305 if (random_roll (0, chosen_spell->level * 4 - 1, pl, PREFER_LOW) < skill->level)
1310 { 1306 {
1311 object *newscroll = arch_to_object (scroll->other_arch); 1307 object *newscroll = scroll->other_arch->instance ();
1312 scroll->decrease (); 1308 scroll->decrease ();
1313 newscroll->nrof = 1; 1309 newscroll->nrof = 1;
1314 1310
1315 pl->contr->play_sound (sound_find ("inscribe_success")); 1311 pl->contr->play_sound (sound_find ("inscribe_success"));
1316 1312
1317 if (!confused) 1313 if (!confused)
1318 { 1314 {
1319 newscroll->level = MAX (skill->level, chosen_spell->level); 1315 newscroll->level = max (skill->level, chosen_spell->level);
1320 newscroll->flag [FLAG_IDENTIFIED] = true; 1316 newscroll->flag [FLAG_IDENTIFIED] = true;
1321 new_draw_info (NDI_UNIQUE, 0, pl, "You succeed in writing the spell."); 1317 new_draw_info (NDI_UNIQUE, 0, pl, "You succeed in writing the spell.");
1322 } 1318 }
1323 else 1319 else
1324 { 1320 {
1325 chosen_spell = find_random_spell_in_ob (pl, NULL); 1321 chosen_spell = find_random_spell_in_ob (pl, NULL);
1326 if (!chosen_spell) 1322 if (!chosen_spell)
1327 return 0; 1323 return 0;
1328 1324
1329 newscroll->level = MAX (skill->level, chosen_spell->level); 1325 newscroll->level = max (skill->level, chosen_spell->level);
1330 new_draw_info (NDI_UNIQUE, 0, pl, "In your confused state, you write down some odd spell."); 1326 new_draw_info (NDI_UNIQUE, 0, pl, "In your confused state, you write down some odd spell.");
1331 } 1327 }
1332 1328
1333 object *tmp = chosen_spell->clone (); 1329 object *tmp = chosen_spell->clone ();
1334 insert_ob_in_ob (tmp, newscroll); 1330 insert_ob_in_ob (tmp, newscroll);
… …
1352 { /* Inscription has failed */ 1348 { /* Inscription has failed */
1353 pl->contr->play_sound (sound_find ("inscribe_fail")); 1349 pl->contr->play_sound (sound_find ("inscribe_fail"));
1354 1350
1355 if (chosen_spell->level > skill->level || confused) 1351 if (chosen_spell->level > skill->level || confused)
1356 { /*backfire! */ 1352 { /*backfire! */
1357 new_draw_info (NDI_UNIQUE, 0, pl, "Ouch! Your attempt to write a new scroll strains your mind!"); 1353 new_draw_info (NDI_UNIQUE, 0, pl, "Ouch! Your attempt to write a new scroll strains your mind! H<The spell level is too high for your inscription skill.>");
1358 1354
1359 if (random_roll (0, 1, pl, PREFER_LOW) == 1) 1355 if (random_roll (0, 1, pl, PREFER_LOW) == 1)
1360 pl->drain_specific_stat (4); 1356 pl->drain_specific_stat (4);
1361 else 1357 else
1362 { 1358 {
… …
1830 else 1826 else
1831 throw_ob = find_mon_throw_ob (op); 1827 throw_ob = find_mon_throw_ob (op);
1832 1828
1833 return do_throw (op, part, throw_ob, dir, skill); 1829 return do_throw (op, part, throw_ob, dir, skill);
1834} 1830}
1831
1832bool
1833skill_mining (object *who, object *tool, object *skill, int dir, const char *string)
1834{
1835 printf ("******** mining\n");
1836 return false;
1837}
1838
1839bool
1840skill_fishing (object *who, object *tool, object *skill, int dir, const char *string)
1841{
1842 printf ("******** fishing\n");
1843 return false;
1844}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines