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

Comparing deliantra/server/server/player.C (file contents):
Revision 1.247 by elmex, Fri Nov 13 16:01:30 2009 UTC vs.
Revision 1.263 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 (©) 2002,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2002 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.
… …
110 link_skills (); 110 link_skills ();
111 111
112 assign (title, ob->arch->object::name); 112 assign (title, ob->arch->object::name);
113 113
114 /* if it's a dragon player, set the correct title here */ 114 /* if it's a dragon player, set the correct title here */
115 if (is_dragon_pl (ob)) 115 if (ob->is_dragon ())
116 { 116 {
117 object *tmp, *abil = 0, *skin = 0; 117 object *tmp, *abil = 0, *skin = 0;
118 118
119 for (tmp = ob->inv; tmp; tmp = tmp->below) 119 for (tmp = ob->inv; tmp; tmp = tmp->below)
120 if (tmp->type == FORCE) 120 if (tmp->type == FORCE)
… …
134 134
135 ns->floorbox_update (); 135 ns->floorbox_update ();
136 esrv_send_inventory (ob, ob); 136 esrv_send_inventory (ob, ob);
137 esrv_add_spells (this, 0); 137 esrv_add_spells (this, 0);
138 138
139 ob->flag [FLAG_READY_WEAPON] = false;
140 ob->flag [FLAG_READY_SKILL] = false;
141 ob->flag [FLAG_READY_RANGE] = false;
142 ob->flag [FLAG_READY_BOW] = false;
143
144 for (object *op = ob->inv; op; op = op->below)
145 if (op->flag [FLAG_APPLIED])
146 switch (op->type)
147 {
148 case SKILL:
149 op->flag [FLAG_APPLIED] = false;
150 break;
151
152 case SPELL:
153 case WAND:
154 case ROD:
155 case HORN:
156 case BOW:
157 case RANGED:
158 ranged_ob = op;
159 op->flag [FLAG_APPLIED] = false;
160 break;
161
162 case WEAPON:
163 combat_ob = op;
164 op->flag [FLAG_APPLIED] = false;
165 break;
166 }
167
168 ob->update_stats (); // we unapplied stuff above
169
170 ob->current_weapon = 0;
171 if (object *item = combat_ob ? combat_ob : ranged_ob)
172 ob->apply (item);
173
139 activate (); 174 activate ();
140 175
141 INVOKE_PLAYER (CONNECT, this); 176 INVOKE_PLAYER (CONNECT, this);
142 INVOKE_PLAYER (LOGIN, this); 177 INVOKE_PLAYER (LOGIN, this);
143} 178}
… …
182 217
183 ob->speed = 1.0f; 218 ob->speed = 1.0f;
184 ob->speed_left = 0.5f; 219 ob->speed_left = 0.5f;
185 220
186 ob->direction = 5; /* So player faces south */ 221 ob->direction = 5; /* So player faces south */
187
188 ob->flag [FLAG_READY_WEAPON] = false;
189 ob->flag [FLAG_READY_SKILL] = false;
190 ob->flag [FLAG_READY_BOW] = false;
191
192 for (object *op = ob->inv; op; op = op->below)
193 if (op->flag [FLAG_APPLIED])
194 switch (op->type)
195 {
196 case SKILL:
197 ob->flag [FLAG_APPLIED] = false;
198 break;
199
200 case WAND:
201 case ROD:
202 case HORN:
203 case BOW:
204 ranged_ob = op;
205 break;
206
207 case WEAPON:
208 combat_ob = op;
209 break;
210 }
211
212 ob->change_weapon (combat_ob ? combat_ob : ranged_ob);
213 ob->deactivate (); // change_weapon activates, fix this better
214} 222}
215 223
216void 224void
217player::set_observe (object *op) 225player::set_observe (object *op)
218{ 226{
… …
308player * 316player *
309player::create () 317player::create ()
310{ 318{
311 player *pl = new player; 319 player *pl = new player;
312 320
313 pl->set_object (arch_to_object (get_player_archetype (0))); 321 pl->set_object (get_player_archetype (0)->instance ());
314 322
315 pl->ob->roll_stats (); 323 pl->ob->roll_stats ();
316 pl->ob->stats.wc = 2; 324 pl->ob->stats.wc = 2;
317 pl->ob->run_away = 25; /* Then we panick... */ 325 pl->ob->run_away = 25; /* Then we panick... */
318 326
… …
635 send_query (op->contr->ns, CS_QUERY_HIDEINPUT, "What is the password?\n:"); 643 send_query (op->contr->ns, CS_QUERY_HIDEINPUT, "What is the password?\n:");
636} 644}
637 645
638/* This rolls four 1-6 rolls and sums the best 3 of the 4. */ 646/* This rolls four 1-6 rolls and sums the best 3 of the 4. */
639static int 647static int
640roll_stat (void) 648roll_stat ()
641{ 649{
642 int a[4], i, j, k; 650 int a[4], i, j, k;
643 651
644 for (i = 0; i < 4; i++) 652 for (i = 0; i < 4; i++)
645 a[i] = (int) rndm (6) + 1; 653 a[i] = (int) rndm (6) + 1;
… …
839 dir = absdir (4 + rv.direction); 847 dir = absdir (4 + rv.direction);
840 for (diff = 0; diff < 3; diff++) 848 for (diff = 0; diff < 3; diff++)
841 { 849 {
842 int m = 1 - rndm (2) * 2; 850 int m = 1 - rndm (2) * 2;
843 851
844 if (move_ob (op, absdir (dir + diff * m), op) || (diff == 0 && move_ob (op, absdir (dir - diff * m), op))) 852 if (op->move (absdir (dir + diff * m)) || (diff == 0 && op->move (absdir (dir - diff * m))))
845 return; 853 return;
846 } 854 }
847 855
848 /* Cornered, get rid of scared */ 856 /* Cornered, get rid of scared */
849 CLEAR_FLAG (op, FLAG_SCARED); 857 CLEAR_FLAG (op, FLAG_SCARED);
… …
859{ 867{
860 object *tmp, *next; 868 object *tmp, *next;
861 int stop = 0; 869 int stop = 0;
862 int wvratio; 870 int wvratio;
863 871
864 /* if you're flying, you cna't pick up anything */ 872 /* if you're flying, you can't pick up anything */
865 if (op->move_type & MOVE_FLYING) 873 if (op->move_type & MOVE_FLYING)
866 return 1; 874 return 1;
867 875
868 next = op->below; 876 next = op->below;
869 877
… …
1585 { 1593 {
1586 LOG (llevError, "Object %s lacks a spell\n", &item->name); 1594 LOG (llevError, "Object %s lacks a spell\n", &item->name);
1587 return; 1595 return;
1588 } 1596 }
1589 1597
1590 if (!op->change_weapon (item)) 1598 if (!op->apply (item))
1591 return; 1599 return;
1592 1600
1593 if (item->type == WAND) 1601 if (item->type == WAND)
1594 { 1602 {
1595 if (item->stats.food <= 0) 1603 if (item->stats.food <= 0)
… …
1646} 1654}
1647 1655
1648/* Received a fire command for the player - go and do it. 1656/* Received a fire command for the player - go and do it.
1649 */ 1657 */
1650bool 1658bool
1651fire (object *op, int dir) 1659fire (object *who, int dir)
1652{ 1660{
1653 int spellcost = 0; 1661 int spellcost = 0;
1654 1662
1655 player *pl = op->contr; 1663 player *pl = who->contr;
1656 1664
1657 if (pl->golem) 1665 if (pl->golem)
1658 { 1666 {
1659 control_golem (op->contr->golem, dir); 1667 control_golem (who->contr->golem, dir);
1660 return false; 1668 return false;
1661 } 1669 }
1662 1670
1663 object *ob = pl->ranged_ob; 1671 object *ob = pl->ranged_ob;
1664 1672
1665 if (!ob) 1673 if (!ob)
1666 return false; 1674 return false;
1667 1675
1668 if (op->speed_left > 0.f) 1676 if (who->speed_left > 0.f)
1669 --op->speed_left; 1677 --who->speed_left;
1670 else 1678 else
1671 return false; 1679 return false;
1672 1680
1673 if (!op->change_weapon (ob)) 1681 if (!who->apply (ob))
1674 return false; 1682 return false;
1675 1683
1676 /* check for loss of invisiblity/hide */ 1684 /* check for loss of invisiblity/hide */
1677 if (action_makes_visible (op)) 1685 if (action_makes_visible (who))
1678 make_visible (op); 1686 make_visible (who);
1679 1687
1680 switch (ob->type) 1688 switch (ob->type)
1681 { 1689 {
1682 case BOW: 1690 case BOW:
1683 player_fire_bow (op, dir); 1691 player_fire_bow (who, dir);
1684 break; 1692 break;
1685 1693
1686 case SPELL: 1694 case SPELL:
1687 spellcost = cast_spell (op, op, dir, ob, *pl->spellparam ? pl->spellparam : 0); 1695 spellcost = cast_spell (who, who, dir, ob, *pl->spellparam ? pl->spellparam : 0);
1688 break; 1696 break;
1689 1697
1690 case BUILDER: 1698 case BUILDER:
1691 apply_map_builder (op, dir); 1699 apply_map_builder (who, dir);
1692 break; 1700 break;
1693 1701
1694 case SKILL: 1702 case SKILL:
1695 do_skill (op, op, ob, dir, 0); 1703 do_skill (who, who, ob, dir, 0);
1696 break; 1704 break;
1697 1705
1706 case RANGED:
1707 do_skill (who, ob, who->chosen_skill, dir, 0);
1708 break;
1709
1698 default: 1710 default:
1699 fire_misc_object (op, dir); 1711 fire_misc_object (who, dir);
1700 break; 1712 break;
1701 } 1713 }
1702 1714
1703 return true; 1715 return true;
1704} 1716}
… …
1857 * going to try and move (not fire weapons). 1869 * going to try and move (not fire weapons).
1858 */ 1870 */
1859bool 1871bool
1860move_player_attack (object *op, int dir) 1872move_player_attack (object *op, int dir)
1861{ 1873{
1862 if (!op->contr->braced && op->speed_left > 0.f && move_ob (op, dir, op)) 1874 if (!op->contr->braced && op->speed_left > 0.f && op->move (dir))
1863 { 1875 {
1864 --op->speed_left; 1876 --op->speed_left;
1865 return true; 1877 return true;
1866 } 1878 }
1867 1879
1868 int on_battleground;
1869
1870 sint16 nx = freearr_x[dir] + op->x; 1880 sint16 nx = freearr_x[dir] + op->x;
1871 sint16 ny = freearr_y[dir] + op->y; 1881 sint16 ny = freearr_y[dir] + op->y;
1872
1873 on_battleground = op_on_battleground (op, 0, 0);
1874 1882
1875 if (out_of_map (op->map, nx, ny)) 1883 if (out_of_map (op->map, nx, ny))
1876 return false; 1884 return false;
1877 1885
1878 /* If braced, or can't move to the square, and it is not out of the 1886 /* If braced, or can't move to the square, and it is not out of the
… …
1950 } 1958 }
1951 else 1959 else
1952 return false; 1960 return false;
1953 } 1961 }
1954 1962
1963 bool on_battleground = op_on_battleground (op, 0, 0);
1964
1955 /* in certain circumstances, you shouldn't attack friendly 1965 /* in certain circumstances, you shouldn't attack friendly
1956 * creatures. Note that if you are braced, you can't push 1966 * creatures. Note that if you are braced, you can't push
1957 * someone, but put it inside this loop so that you won't 1967 * someone, but put it inside this loop so that you won't
1958 * attack them either. 1968 * attack them either.
1959 */ 1969 */
… …
2027{ 2037{
2028 if (!op->map || op->map->in_memory != MAP_ACTIVE) 2038 if (!op->map || op->map->in_memory != MAP_ACTIVE)
2029 return 0; 2039 return 0;
2030 2040
2031 /* Sanity check: make sure dir is valid */ 2041 /* Sanity check: make sure dir is valid */
2032 if ((dir < 0) || (dir >= 9)) 2042 if (dir < 0 || dir >= 9)
2033 { 2043 {
2034 LOG (llevError, "move_player: invalid direction %d\n", dir); 2044 LOG (llevError, "move_player: invalid direction %d\n", dir);
2035 return 0; 2045 return 0;
2036 } 2046 }
2037 2047
… …
2129 2139
2130 if (op->stats.hp < 0) 2140 if (op->stats.hp < 0)
2131 op->stats.hp = op->stats.maxhp; 2141 op->stats.hp = op->stats.maxhp;
2132 2142
2133 if (op->stats.food < 0) 2143 if (op->stats.food < 0)
2134 op->stats.food = 999; 2144 op->stats.food = MAX_FOOD;
2135 2145
2136 op->update_stats (); 2146 op->update_stats ();
2137 return 1; 2147 return 1;
2138 } 2148 }
2139 2149
… …
2368 2378
2369 if (tmp->type == FOOD || tmp->type == DRINK || tmp->type == POISON) 2379 if (tmp->type == FOOD || tmp->type == DRINK || tmp->type == POISON)
2370 { 2380 {
2371 op->statusmsg ("You blindly grab for a bite of food. " 2381 op->statusmsg ("You blindly grab for a bite of food. "
2372 "H<To prevent you from starving, you ate some random item from your backpack.>"); 2382 "H<To prevent you from starving, you ate some random item from your backpack.>");
2373 manual_apply (op, tmp, 0); 2383 op->apply (tmp);
2374 2384
2375 if (op->stats.food >= 0 || op->stats.hp < 0) 2385 if (op->stats.food >= 0 || op->stats.hp < 0)
2376 break; 2386 break;
2377 } 2387 }
2378 else if (tmp->type == FLESH) 2388 else if (tmp->type == FLESH)
… …
2384 */ 2394 */
2385 if (op->stats.food < 0 && op->stats.hp >= 0 && flesh) 2395 if (op->stats.food < 0 && op->stats.hp >= 0 && flesh)
2386 { 2396 {
2387 op->statusmsg ("You blindly grab for a bite of food. " 2397 op->statusmsg ("You blindly grab for a bite of food. "
2388 "H<To prevent you from starving, you ate some random item from your backpack.>"); 2398 "H<To prevent you from starving, you ate some random item from your backpack.>");
2389 manual_apply (op, flesh, 0); 2399 op->apply (flesh);
2390 } 2400 }
2391 2401
2392 // If player is still starving, alert him! 2402 // If player is still starving, alert him!
2393 if (op->stats.food < 0) 2403 if (op->stats.food < 0)
2394 op->failmsg ("You are starving! " 2404 op->failmsg ("You are starving! "
… …
2450 cure_disease (op, 0, 0); /* remove any disease */ 2460 cure_disease (op, 0, 0); /* remove any disease */
2451 2461
2452 max_it (op->stats.hp , op->stats.maxhp); 2462 max_it (op->stats.hp , op->stats.maxhp);
2453 max_it (op->stats.sp , op->stats.maxsp); 2463 max_it (op->stats.sp , op->stats.maxsp);
2454 max_it (op->stats.grace, op->stats.maxgrace); 2464 max_it (op->stats.grace, op->stats.maxgrace);
2455
2456 if (op->stats.food <= 0) 2465 max_it (op->stats.food , 200);
2457 op->stats.food = 999;
2458 2466
2459 // remove all spell effects that are active 2467 // remove all spell effects that are active
2460 // to avoid long-term effects such as word-of-recall 2468 // to avoid long-term effects such as word-of-recall
2461 for (object *item = op->inv; item; ) 2469 for (object *item = op->inv; item; )
2462 { 2470 {
… …
2475 if (op_on_battleground (op, &x, &y)) 2483 if (op_on_battleground (op, &x, &y))
2476 { 2484 {
2477 deathtab << "You almost died in combat, but local medics have saved your life...\r"; 2485 deathtab << "You almost died in combat, but local medics have saved your life...\r";
2478 2486
2479 /* create a bodypart-trophy to make the winner happy */ 2487 /* create a bodypart-trophy to make the winner happy */
2480 if (object *tmp = arch_to_object (archetype::find (shstr_finger))) 2488 object *tmp = archetype::find (shstr_finger)->instance ();
2481 { 2489
2482 tmp->name = format ("%s's finger" , &op->name); 2490 tmp->name = format ("%s's finger" , &op->name);
2483 tmp->name_pl = format ("%s's fingers", &op->name); 2491 tmp->name_pl = format ("%s's fingers", &op->name);
2484 tmp->msg = format ( 2492 tmp->msg = format (
2485 "This finger has been cut off of %s the %s, when he was defeated at level %d by %s.\n", 2493 "This finger has been cut off of %s the %s, when he was defeated at level %d by %s.\n",
2486 &op->name, op->contr->title, 2494 &op->name, op->contr->title,
2487 (int)op->level, 2495 (int)op->level,
2488 op->contr->killer_name () 2496 op->contr->killer_name ()
2489 ); 2497 );
2490 tmp->value = 0, tmp->type = 0; 2498 tmp->value = 0, tmp->type = 0;
2491 tmp->material = name_to_material (shstr_organic); 2499 tmp->material = name_to_material (shstr_organic);
2492 tmp->insert_at (op, tmp); 2500 tmp->insert_at (op, tmp);
2493 }
2494 2501
2495 /* teleport defeated player to new destination */ 2502 /* teleport defeated player to new destination */
2496 transfer_ob (op, x, y, 0, NULL); 2503 transfer_ob (op, x, y, 0, NULL);
2497 op->contr->braced = 0; 2504 op->contr->braced = 0;
2498 2505
… …
2566 object *dep; 2573 object *dep;
2567 2574
2568 dep = present_arch_in_ob (deparch, op); 2575 dep = present_arch_in_ob (deparch, op);
2569 if (!dep) 2576 if (!dep)
2570 { 2577 {
2571 dep = arch_to_object (deparch); 2578 dep = deparch->instance ();
2572 insert_ob_in_ob (dep, op); 2579 insert_ob_in_ob (dep, op);
2573 } 2580 }
2574 lose_this_stat = 1; 2581 lose_this_stat = 1;
2575 if (settings.balanced_stat_loss) 2582 if (settings.balanced_stat_loss)
2576 { 2583 {
… …
2642#endif 2649#endif
2643 2650
2644 /* Put a gravestone up where the character 'almost' died. List the 2651 /* Put a gravestone up where the character 'almost' died. List the
2645 * exp loss on the stone. 2652 * exp loss on the stone.
2646 */ 2653 */
2647 tmp = arch_to_object (archetype::find (shstr_gravestone)); 2654 tmp = archetype::find (shstr_gravestone)->instance ();
2648 tmp->name = format ("%s's gravestone", &op->name); 2655 tmp->name = format ("%s's gravestone", &op->name);
2649 tmp->name_pl = format ("%s's gravestones", &op->name); 2656 tmp->name_pl = format ("%s's gravestones", &op->name);
2650 tmp->msg = format ("T<RIP>\n\nHere rests the hero %s the %s,\rwho was killed\rby %s.\n", 2657 tmp->msg = format ("T<RIP>\n\nHere rests the hero %s the %s,\rwho was killed\rby %s.\n",
2651 &op->name, op->contr->title, op->contr->killer_name ()); 2658 &op->name, op->contr->title, op->contr->killer_name ());
2652 tmp->x = op->x, tmp->y = op->y; 2659 tmp->x = op->x, tmp->y = op->y;
… …
2748 * fix_weight(): Check recursively the weight of all players, and fix 2755 * fix_weight(): Check recursively the weight of all players, and fix
2749 * what needs to be fixed. Refresh windows and fix speed if anything 2756 * what needs to be fixed. Refresh windows and fix speed if anything
2750 * was changed. 2757 * was changed.
2751 */ 2758 */
2752void 2759void
2753fix_weight (void) 2760fix_weight ()
2754{ 2761{
2755 for_all_players (pl) 2762 for_all_players (pl)
2756 { 2763 {
2757 sint32 old = pl->ob->carrying; 2764 sint32 old = pl->ob->carrying;
2758 2765
… …
2765 } 2772 }
2766 } 2773 }
2767} 2774}
2768 2775
2769void 2776void
2770fix_luck (void) 2777fix_luck ()
2771{ 2778{
2772 for_all_players (pl) 2779 for_all_players (pl)
2773 if (!pl->ob->contr->ns->state) 2780 if (!pl->ob->contr->ns->state)
2774 pl->ob->change_luck (0); 2781 pl->ob->change_luck (0);
2775} 2782}
… …
3047 && tmp->name == shstr_battleground 3054 && tmp->name == shstr_battleground
3048 && EXIT_X (tmp) && EXIT_Y (tmp)) 3055 && EXIT_X (tmp) && EXIT_Y (tmp))
3049 { 3056 {
3050 /* before we assign the exit, check if this is a teambattle */ 3057 /* before we assign the exit, check if this is a teambattle */
3051 if (EXIT_ALT_X (tmp) && EXIT_ALT_Y (tmp) && EXIT_PATH (tmp)) 3058 if (EXIT_ALT_X (tmp) && EXIT_ALT_Y (tmp) && EXIT_PATH (tmp))
3052 {
3053 for (object *invtmp = op->inv; invtmp; invtmp = invtmp->below) 3059 for (object *invtmp = op->inv; invtmp; invtmp = invtmp->below)
3060 if (invtmp->type == FORCE && invtmp->slaying && tmp->slaying == invtmp->slaying)
3054 { 3061 {
3055 if (invtmp->type == FORCE && invtmp->slaying && tmp->slaying == invtmp->slaying)
3056 {
3057 if (x && y) 3062 if (x && y)
3058 *x = EXIT_ALT_X (tmp), *y = EXIT_ALT_Y (tmp); 3063 *x = EXIT_ALT_X (tmp), *y = EXIT_ALT_Y (tmp);
3059 3064
3060 return 1; 3065 return 1;
3061 }
3062 } 3066 }
3063 }
3064 3067
3065 if (x && y) 3068 if (x && y)
3066 *x = EXIT_X (tmp), *y = EXIT_Y (tmp); 3069 *x = EXIT_X (tmp), *y = EXIT_Y (tmp);
3067 3070
3068 return 1; 3071 return 1;
… …
3225 new_draw_info (NDI_UNIQUE | NDI_BLUE, 0, who, item->msg); 3228 new_draw_info (NDI_UNIQUE | NDI_BLUE, 0, who, item->msg);
3226 } 3229 }
3227 else 3230 else
3228 { 3231 {
3229 /* generate misc. treasure */ 3232 /* generate misc. treasure */
3230 tmp = arch_to_object (tr->item); 3233 tmp = tr->item->instance ();
3231 new_draw_info_format (NDI_UNIQUE | NDI_BLUE, 0, who, "You gained %s", query_short_name (tmp)); 3234 new_draw_info_format (NDI_UNIQUE | NDI_BLUE, 0, who, "You gained %s", query_short_name (tmp));
3232 who->insert (tmp); 3235 who->insert (tmp);
3233 } 3236 }
3234}
3235
3236/**
3237 * Unready an object for a player. This function does nothing if the object was
3238 * not readied.
3239 */
3240void
3241player_unready_range_ob (player *pl, object *ob)
3242{
3243 if (pl->ob->current_weapon == ob)
3244 pl->ob->current_weapon = 0;
3245
3246 if (pl->combat_ob == ob)
3247 pl->combat_ob = 0;
3248
3249 if (pl->ranged_ob == ob)
3250 pl->ranged_ob = 0;
3251} 3237}
3252 3238
3253//-GPL 3239//-GPL
3254 3240
3255sint8 3241sint8

Diff Legend

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