?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
finished adding content from CLIVAN; not tested yet
[k8-i-v-a-n.git] / src / game / char.cpp
blob6b1fce1f30fb20e8ad88136f4f1bdfe001ba4685
1 /*
2 *
3 * Iter Vehemens ad Necem (IVAN)
4 * Copyright (C) Timo Kiviluoto
5 * Released under the GNU General
6 * Public License
7 *
8 * See LICENSING which should be included
9 * along with this file for more details
10 *
11 */
12 /* Compiled through charset.cpp */
13 #include <time.h>
14 #include <sys/stat.h>
15 #include <sys/types.h>
16 #include <unistd.h>
17
18
19 /* These statedata structs contain functions and values used for handling
20 * states. Remember to update them. All normal states must have
21 * PrintBeginMessage and PrintEndMessage functions and a Description string.
22 * BeginHandler, EndHandler, Handler (called each tick) and IsAllowed are
23 * optional, enter zero if the state doesn't need one. If the SECRET flag
24 * is set, Description is not shown in the panel without magical means.
25 * You can also set some source (SRC_*) and duration (DUR_*) flags, which
26 * control whether the state can be randomly activated in certain situations.
27 * These flags can be found in ivandef.h. RANDOMIZABLE sets all source
28 * & duration flags at once. */
29 struct statedata {
30 const char *Description;
31 int Flags;
32 void (character::*PrintBeginMessage) () const;
33 void (character::*PrintEndMessage) () const;
34 void (character::*BeginHandler) ();
35 void (character::*EndHandler) ();
36 void (character::*Handler) ();
37 truth (character::*IsAllowed) () const;
38 void (character::*SituationDangerModifier) (double &) const;
39 };
40
41
42 const statedata StateData[STATES] =
43 {
44 {
45 "Polymorphed",
46 NO_FLAGS,
47 0,
48 0,
49 0,
50 &character::EndPolymorph,
51 0,
52 0,
53 0
54 }, {
55 "Hasted",
56 RANDOMIZABLE&~(SRC_MUSHROOM|SRC_EVIL),
57 &character::PrintBeginHasteMessage,
58 &character::PrintEndHasteMessage,
59 0,
60 0,
61 0,
62 0,
63 0
64 }, {
65 "Slowed",
66 RANDOMIZABLE&~SRC_GOOD,
67 &character::PrintBeginSlowMessage,
68 &character::PrintEndSlowMessage,
69 0,
70 0,
71 0,
72 0,
73 0
74 }, {
75 "PolyControl",
76 RANDOMIZABLE&~(SRC_MUSHROOM|SRC_EVIL|SRC_GOOD),
77 &character::PrintBeginPolymorphControlMessage,
78 &character::PrintEndPolymorphControlMessage,
79 0,
80 0,
81 0,
82 0,
83 0
84 }, {
85 "LifeSaved",
86 SECRET,
87 &character::PrintBeginLifeSaveMessage,
88 &character::PrintEndLifeSaveMessage,
89 0,
90 0,
91 0,
92 0,
93 0
94 }, {
95 "Lycanthropy",
96 SECRET|SRC_FOUNTAIN|SRC_CONFUSE_READ|DUR_FLAGS,
97 &character::PrintBeginLycanthropyMessage,
98 &character::PrintEndLycanthropyMessage,
99 0,
100 0,
101 &character::LycanthropyHandler,
102 0,
103 &character::LycanthropySituationDangerModifier
104 }, {
105 "Invisible",
106 RANDOMIZABLE&~(SRC_MUSHROOM|SRC_EVIL),
107 &character::PrintBeginInvisibilityMessage,
108 &character::PrintEndInvisibilityMessage,
109 &character::BeginInvisibility, &character::EndInvisibility,
110 0,
111 0,
112 0
113 }, {
114 "Infravision",
115 RANDOMIZABLE&~(SRC_MUSHROOM|SRC_EVIL),
116 &character::PrintBeginInfraVisionMessage,
117 &character::PrintEndInfraVisionMessage,
118 &character::BeginInfraVision,
119 &character::EndInfraVision,
120 0,
121 0,
122 0
123 }, {
124 "ESP",
125 RANDOMIZABLE&~SRC_EVIL,
126 &character::PrintBeginESPMessage,
127 &character::PrintEndESPMessage,
128 &character::BeginESP,
129 &character::EndESP,
130 0,
131 0,
132 0
133 }, {
134 "Poisoned",
135 DUR_TEMPORARY,
136 &character::PrintBeginPoisonedMessage,
137 &character::PrintEndPoisonedMessage,
138 0,
139 0,
140 &character::PoisonedHandler,
141 &character::CanBePoisoned,
142 &character::PoisonedSituationDangerModifier
143 }, {
144 "Teleporting",
145 SECRET|(RANDOMIZABLE&~(SRC_MUSHROOM|SRC_GOOD)),
146 &character::PrintBeginTeleportMessage,
147 &character::PrintEndTeleportMessage,
148 0,
149 0,
150 &character::TeleportHandler,
151 0,
152 0
153 }, {
154 "Polymorphing",
155 SECRET|(RANDOMIZABLE&~(SRC_MUSHROOM|SRC_GOOD)),
156 &character::PrintBeginPolymorphMessage,
157 &character::PrintEndPolymorphMessage,
158 0,
159 0,
160 &character::PolymorphHandler,
161 0,
162 &character::PolymorphingSituationDangerModifier
163 }, {
164 "TeleControl",
165 RANDOMIZABLE&~(SRC_MUSHROOM|SRC_EVIL),
166 &character::PrintBeginTeleportControlMessage,
167 &character::PrintEndTeleportControlMessage,
168 0,
169 0,
170 0,
171 0,
172 0
173 }, {
174 "Panicked",
175 NO_FLAGS,
176 &character::PrintBeginPanicMessage,
177 &character::PrintEndPanicMessage,
178 &character::BeginPanic,
179 &character::EndPanic,
180 0,
181 &character::CanPanic,
182 &character::PanicSituationDangerModifier
183 }, {
184 "Confused",
185 SECRET|(RANDOMIZABLE&~(DUR_PERMANENT|SRC_GOOD)),
186 &character::PrintBeginConfuseMessage,
187 &character::PrintEndConfuseMessage,
188 0,
189 0,
190 0,
191 &character::CanBeConfused,
192 &character::ConfusedSituationDangerModifier
193 }, {
194 "Parasitized",
195 SECRET|(RANDOMIZABLE&~DUR_TEMPORARY),
196 &character::PrintBeginParasitizedMessage,
197 &character::PrintEndParasitizedMessage,
198 0,
199 0,
200 &character::ParasitizedHandler,
201 &character::CanBeParasitized,
202 &character::ParasitizedSituationDangerModifier
203 }, {
204 "Searching",
205 NO_FLAGS,
206 &character::PrintBeginSearchingMessage,
207 &character::PrintEndSearchingMessage,
208 0,
209 0,
210 &character::SearchingHandler,
211 0,
212 0
213 }, {
214 "GasImmunity",
215 SECRET|(RANDOMIZABLE&~(SRC_GOOD|SRC_EVIL)),
216 &character::PrintBeginGasImmunityMessage,
217 &character::PrintEndGasImmunityMessage,
218 0,
219 0,
220 0,
221 0,
222 0
223 }, {
224 "Levitating",
225 RANDOMIZABLE&~SRC_EVIL,
226 &character::PrintBeginLevitationMessage,
227 &character::PrintEndLevitationMessage,
228 0,
229 &character::EndLevitation,
230 0,
231 0,
232 0
233 }, {
234 "Leprosy",
235 SECRET|(RANDOMIZABLE&~DUR_TEMPORARY),
236 &character::PrintBeginLeprosyMessage,
237 &character::PrintEndLeprosyMessage,
238 &character::BeginLeprosy,
239 &character::EndLeprosy,
240 &character::LeprosyHandler,
241 0,
242 &character::LeprosySituationDangerModifier
243 }, {
244 "Hiccups",
245 SRC_FOUNTAIN|SRC_CONFUSE_READ|DUR_FLAGS,
246 &character::PrintBeginHiccupsMessage,
247 &character::PrintEndHiccupsMessage,
248 0,
249 0,
250 &character::HiccupsHandler,
251 0,
252 &character::HiccupsSituationDangerModifier
253 }, {
254 "Vampirism",
255 DUR_FLAGS, //perhaps no fountain, no secret and no confuse read either: SECRET|SRC_FOUNTAIN|SRC_CONFUSE_READ|
256 &character::PrintBeginVampirismMessage,
257 &character::PrintEndVampirismMessage,
258 0,
259 0,
260 &character::VampirismHandler,
261 0,
262 &character::VampirismSituationDangerModifier
263 }, {
264 "Detecting",
265 SECRET|(RANDOMIZABLE&~(SRC_MUSHROOM|SRC_EVIL)),
266 &character::PrintBeginDetectMessage,
267 &character::PrintEndDetectMessage,
268 0,
269 0,
270 &character::DetectHandler,
271 0,
272 0
273 }
274 };
275
276
277 characterprototype::characterprototype (const characterprototype *Base, characterspawner Spawner,
278 charactercloner Cloner, cchar *ClassID)
279 : Base(Base),
280 Spawner(Spawner),
281 Cloner(Cloner),
282 ClassID(ClassID)
283 {
284 Index = protocontainer<character>::Add(this);
285 }
286
287
288 std::list<character *>::iterator character::GetTeamIterator () { return TeamIterator; }
289 void character::SetTeamIterator (std::list<character *>::iterator What) { TeamIterator = What; }
290 void character::CreateInitialEquipment (int SpecialFlags) { AddToInventory(DataBase->Inventory, SpecialFlags); }
291 void character::EditAP (sLong What) { AP = Limit<sLong>(AP+What, -12000, 1200); }
292 int character::GetRandomStepperBodyPart () const { return TORSO_INDEX; }
293 void character::GainIntrinsic (sLong What) { BeginTemporaryState(What, PERMANENT); }
294 truth character::IsUsingArms () const { return GetAttackStyle() & USE_ARMS; }
295 truth character::IsUsingLegs () const { return GetAttackStyle() & USE_LEGS; }
296 truth character::IsUsingHead () const { return GetAttackStyle() & USE_HEAD; }
297 void character::CalculateAllowedWeaponSkillCategories () { AllowedWeaponSkillCategories = MARTIAL_SKILL_CATEGORIES; }
298 festring character::GetBeVerb () const { return IsPlayer() ? CONST_S("are") : CONST_S("is"); }
299 void character::SetEndurance (int What) { BaseExperience[ENDURANCE] = What * EXP_MULTIPLIER; }
300 void character::SetPerception (int What) { BaseExperience[PERCEPTION] = What * EXP_MULTIPLIER; }
301 void character::SetIntelligence (int What) { BaseExperience[INTELLIGENCE] = What * EXP_MULTIPLIER; }
302 void character::SetWisdom (int What) { BaseExperience[WISDOM] = What * EXP_MULTIPLIER; }
303 void character::SetWillPower (int What) { BaseExperience[WILL_POWER] = What * EXP_MULTIPLIER; }
304 void character::SetCharisma (int What) { BaseExperience[CHARISMA] = What * EXP_MULTIPLIER; }
305 void character::SetMana (int What) { BaseExperience[MANA] = What * EXP_MULTIPLIER; }
306 truth character::IsOnGround () const { return MotherEntity && MotherEntity->IsOnGround(); }
307 truth character::LeftOversAreUnique () const { return GetArticleMode() || AssignedName.GetSize(); }
308 truth character::HomeDataIsValid () const { return (HomeData && HomeData->Level == GetLSquareUnder()->GetLevelIndex() && HomeData->Dungeon == GetLSquareUnder()->GetDungeonIndex()); }
309 void character::SetHomePos (v2 Pos) { HomeData->Pos = Pos; }
310 cchar *character::FirstPersonUnarmedHitVerb () const { return "hit"; }
311 cchar *character::FirstPersonCriticalUnarmedHitVerb () const { return "critically hit"; }
312 cchar *character::ThirdPersonUnarmedHitVerb () const { return "hits"; }
313 cchar *character::ThirdPersonCriticalUnarmedHitVerb () const { return "critically hits"; }
314 cchar *character::FirstPersonKickVerb () const { return "kick"; }
315 cchar *character::FirstPersonCriticalKickVerb () const { return "critically kick"; }
316 cchar *character::ThirdPersonKickVerb () const { return "kicks"; }
317 cchar *character::ThirdPersonCriticalKickVerb () const { return "critically kicks"; }
318 cchar *character::FirstPersonBiteVerb () const { return "bite"; }
319 cchar *character::FirstPersonCriticalBiteVerb () const { return "critically bite"; }
320 cchar *character::ThirdPersonBiteVerb () const { return "bites"; }
321 cchar *character::ThirdPersonCriticalBiteVerb () const { return "critically bites"; }
322 cchar *character::UnarmedHitNoun () const { return "attack"; }
323 cchar *character::KickNoun () const { return "kick"; }
324 cchar *character::BiteNoun () const { return "attack"; }
325 cchar *character::GetEquipmentName (int) const { return ""; }
326 const std::list<feuLong> &character::GetOriginalBodyPartID (int I) const { return OriginalBodyPartID[I]; }
327 square *character::GetNeighbourSquare (int I) const { return GetSquareUnder()->GetNeighbourSquare(I); }
328 lsquare *character::GetNeighbourLSquare (int I) const { return static_cast<lsquare *>(GetSquareUnder())->GetNeighbourLSquare(I); }
329 wsquare *character::GetNeighbourWSquare (int I) const { return static_cast<wsquare *>(GetSquareUnder())->GetNeighbourWSquare(I); }
330 god *character::GetMasterGod () const { return game::GetGod(GetConfig()); }
331 col16 character::GetBodyPartColorA (int, truth) const { return GetSkinColor(); }
332 col16 character::GetBodyPartColorB (int, truth) const { return GetTorsoMainColor(); }
333 col16 character::GetBodyPartColorC (int, truth) const { return GetBeltColor(); } // sorry...
334 col16 character::GetBodyPartColorD (int, truth) const { return GetTorsoSpecialColor(); }
335 int character::GetRandomApplyBodyPart () const { return TORSO_INDEX; }
336 truth character::MustBeRemovedFromBone () const { return IsUnique() && !CanBeGenerated(); }
337 truth character::IsPet () const { return GetTeam()->GetID() == PLAYER_TEAM; }
338 character* character::GetLeader () const { return GetTeam()->GetLeader(); }
339 int character::GetMoveType () const { return (!StateIsActivated(LEVITATION) ? DataBase->MoveType : DataBase->MoveType | FLY); }
340 festring character::GetZombieDescription () const { return " of "+GetName(INDEFINITE); }
341 truth character::BodyPartCanBeSevered (int I) const { return I; }
342 truth character::HasBeenSeen () const { return DataBase->Flags & HAS_BEEN_SEEN; }
343 truth character::IsTemporary () const { return GetTorso()->GetLifeExpectancy(); }
344 cchar *character::GetNormalDeathMessage () const { return "killed @k"; }
345
346
347 int characterdatabase::*ExpPtr[ATTRIBUTES] = {
348 &characterdatabase::DefaultEndurance,
349 &characterdatabase::DefaultPerception,
350 &characterdatabase::DefaultIntelligence,
351 &characterdatabase::DefaultWisdom,
352 &characterdatabase::DefaultWillPower,
353 &characterdatabase::DefaultCharisma,
354 &characterdatabase::DefaultMana,
355 &characterdatabase::DefaultArmStrength,
356 &characterdatabase::DefaultLegStrength,
357 &characterdatabase::DefaultDexterity,
358 &characterdatabase::DefaultAgility
359 };
360
361
362 contentscript<item> characterdatabase::*EquipmentDataPtr[EQUIPMENT_DATAS] = {
363 &characterdatabase::Helmet,
364 &characterdatabase::Amulet,
365 &characterdatabase::Cloak,
366 &characterdatabase::BodyArmor,
367 &characterdatabase::Belt,
368 &characterdatabase::RightWielded,
369 &characterdatabase::LeftWielded,
370 &characterdatabase::RightRing,
371 &characterdatabase::LeftRing,
372 &characterdatabase::RightGauntlet,
373 &characterdatabase::LeftGauntlet,
374 &characterdatabase::RightBoot,
375 &characterdatabase::LeftBoot
376 };
377
378
379 character::character (ccharacter &Char) :
380 entity(Char), id(Char), NP(Char.NP), AP(Char.AP),
381 TemporaryState(Char.TemporaryState&~POLYMORPHED),
382 Team(Char.Team), GoingTo(ERROR_V2), Money(0),
383 AssignedName(Char.AssignedName), Action(0),
384 DataBase(Char.DataBase), MotherEntity(0),
385 PolymorphBackup(0), EquipmentState(0), SquareUnder(0),
386 AllowedWeaponSkillCategories(Char.AllowedWeaponSkillCategories),
387 BodyParts(Char.BodyParts),
388 RegenerationCounter(Char.RegenerationCounter),
389 SquaresUnder(Char.SquaresUnder), LastAcidMsgMin(0),
390 Stamina(Char.Stamina), MaxStamina(Char.MaxStamina),
391 BlocksSinceLastTurn(0), GenerationDanger(Char.GenerationDanger),
392 CommandFlags(Char.CommandFlags), WarnFlags(0),
393 ScienceTalks(Char.ScienceTalks), TrapData(0), CounterToMindWormHatch(0)
394 {
395 int c;
396 Flags &= ~C_PLAYER;
397 Flags |= C_INITIALIZING|C_IN_NO_MSG_MODE;
398 Stack = new stack(0, this, HIDDEN);
399 for (c = 0; c < STATES; ++c) TemporaryStateCounter[c] = Char.TemporaryStateCounter[c];
400 if (Team) TeamIterator = Team->Add(this);
401 for (c = 0; c < BASE_ATTRIBUTES; ++c) BaseExperience[c] = Char.BaseExperience[c];
402 BodyPartSlot = new bodypartslot[BodyParts];
403 OriginalBodyPartID = new std::list<feuLong>[BodyParts];
404 CWeaponSkill = new cweaponskill[AllowedWeaponSkillCategories];
405 SquareUnder = new square *[SquaresUnder];
406 if (SquaresUnder == 1) *SquareUnder = 0; else memset(SquareUnder, 0, SquaresUnder*sizeof(square *));
407 for (c = 0; c < BodyParts; ++c) {
408 BodyPartSlot[c].SetMaster(this);
409 bodypart *CharBodyPart = Char.GetBodyPart(c);
410 OriginalBodyPartID[c] = Char.OriginalBodyPartID[c];
411 if (CharBodyPart) {
412 bodypart *BodyPart = static_cast<bodypart *>(CharBodyPart->Duplicate());
413 SetBodyPart(c, BodyPart);
414 BodyPart->CalculateEmitation();
415 }
416 }
417 for (c = 0; c < AllowedWeaponSkillCategories; ++c) CWeaponSkill[c] = Char.CWeaponSkill[c];
418 HomeData = Char.HomeData ? new homedata(*Char.HomeData) : 0;
419 ID = game::CreateNewCharacterID(this);
420 }
421
422
423 character::character () :
424 entity(HAS_BE), NP(50000), AP(0), TemporaryState(0), Team(0),
425 GoingTo(ERROR_V2), Money(0), Action(0), MotherEntity(0),
426 PolymorphBackup(0), EquipmentState(0), SquareUnder(0),
427 RegenerationCounter(0), HomeData(0), LastAcidMsgMin(0),
428 BlocksSinceLastTurn(0), GenerationDanger(DEFAULT_GENERATION_DANGER),
429 WarnFlags(0), ScienceTalks(0), TrapData(0), CounterToMindWormHatch(0)
430 {
431 Stack = new stack(0, this, HIDDEN);
432 }
433
434
435 character::~character () {
436 if (Action) delete Action;
437 if (Team) Team->Remove(GetTeamIterator());
438 delete Stack;
439 for (int c = 0; c < BodyParts; ++c) delete GetBodyPart(c);
440 delete [] BodyPartSlot;
441 delete [] OriginalBodyPartID;
442 delete PolymorphBackup;
443 delete [] SquareUnder;
444 delete [] CWeaponSkill;
445 delete HomeData;
446 for (trapdata *T = TrapData; T;) {
447 trapdata *ToDel = T;
448 T = T->Next;
449 delete ToDel;
450 }
451 game::RemoveCharacterID(ID);
452 }
453
454
455 void character::Hunger () {
456 switch (GetBurdenState()) {
457 case OVER_LOADED:
458 case STRESSED:
459 EditNP(-8);
460 EditExperience(LEG_STRENGTH, 150, 1 << 2);
461 EditExperience(AGILITY, -50, 1 << 2);
462 break;
463 case BURDENED:
464 EditNP(-2);
465 EditExperience(LEG_STRENGTH, 75, 1 << 1);
466 EditExperience(AGILITY, -25, 1 << 1);
467 break;
468 case UNBURDENED:
469 EditNP(-1);
470 break;
471 }
472
473 switch (GetHungerState()) {
474 case STARVING:
475 EditExperience(ARM_STRENGTH, -75, 1 << 3);
476 EditExperience(LEG_STRENGTH, -75, 1 << 3);
477 break;
478 case VERY_HUNGRY:
479 EditExperience(ARM_STRENGTH, -50, 1 << 2);
480 EditExperience(LEG_STRENGTH, -50, 1 << 2);
481 break;
482 case HUNGRY:
483 EditExperience(ARM_STRENGTH, -25, 1 << 1);
484 EditExperience(LEG_STRENGTH, -25, 1 << 1);
485 break;
486 case SATIATED:
487 EditExperience(AGILITY, -25, 1 << 1);
488 break;
489 case BLOATED:
490 EditExperience(AGILITY, -50, 1 << 2);
491 break;
492 case OVER_FED:
493 EditExperience(AGILITY, -75, 1 << 3);
494 break;
495 }
496 CheckStarvationDeath(CONST_S("starved to death"));
497 }
498
499
500 int character::TakeHit (character *Enemy, item *Weapon, bodypart *EnemyBodyPart, v2 HitPos, double Damage,
501 double ToHitValue, int Success, int Type, int GivenDir, truth Critical, truth ForceHit)
502 {
503 //FIXME: args
504 game::ClearEventData();
505 game::mActor = Enemy;
506 game::mResult = DID_NO_DAMAGE;
507 if (game::RunOnCharEvent(this, CONST_S("take_hit"))) { game::ClearEventData(); return game::mResult; }
508 game::ClearEventData();
509 int Dir = Type == BITE_ATTACK ? YOURSELF : GivenDir;
510 double DodgeValue = GetDodgeValue();
511 if (!Enemy->IsPlayer() && GetAttackWisdomLimit() != NO_LIMIT) Enemy->EditExperience(WISDOM, 75, 1 << 13);
512 if (!Enemy->CanBeSeenBy(this)) ToHitValue *= 2;
513 if (!CanBeSeenBy(Enemy)) DodgeValue *= 2;
514 if (Enemy->StateIsActivated(CONFUSED)) ToHitValue *= 0.75;
515
516 switch (Enemy->GetTirednessState()) {
517 case FAINTING:
518 ToHitValue *= 0.50;
519 case EXHAUSTED:
520 ToHitValue *= 0.75;
521 }
522 switch (GetTirednessState()) {
523 case FAINTING:
524 DodgeValue *= 0.50;
525 case EXHAUSTED:
526 DodgeValue *= 0.75;
527 }
528
529 if (!ForceHit) {
530 if (!IsRetreating()) SetGoingTo(Enemy->GetPos());
531 else SetGoingTo(GetPos()-((Enemy->GetPos()-GetPos())<<4));
532 if (!Enemy->IsRetreating()) Enemy->SetGoingTo(GetPos());
533 else Enemy->SetGoingTo(Enemy->GetPos()-((GetPos()-Enemy->GetPos())<<4));
534 }
535
536 /* Effectively, the average chance to hit is 100% / (DV/THV + 1). */
537 if (RAND() % int(100+ToHitValue/DodgeValue*(100+Success)) < 100 && !Critical && !ForceHit) {
538 Enemy->AddMissMessage(this);
539 EditExperience(AGILITY, 150, 1 << 7);
540 EditExperience(PERCEPTION, 75, 1 << 7);
541 if (Enemy->CanBeSeenByPlayer())
542 DeActivateVoluntaryAction(CONST_S("The attack of ")+Enemy->GetName(DEFINITE)+CONST_S(" interrupts you."));
543 else
544 DeActivateVoluntaryAction(CONST_S("The attack interrupts you."));
545 return HAS_DODGED;
546 }
547
548 int TrueDamage = int(Damage*(100+Success)/100)+(RAND()%3 ? 1 : 0);
549 if (Critical) {
550 TrueDamage += TrueDamage >> 1;
551 ++TrueDamage;
552 }
553
554 int BodyPart = ChooseBodyPartToReceiveHit(ToHitValue, DodgeValue);
555 if (Critical) {
556 switch (Type) {
557 case UNARMED_ATTACK:
558 Enemy->AddPrimitiveHitMessage(this, Enemy->FirstPersonCriticalUnarmedHitVerb(), Enemy->ThirdPersonCriticalUnarmedHitVerb(), BodyPart);
559 break;
560 case WEAPON_ATTACK:
561 Enemy->AddWeaponHitMessage(this, Weapon, BodyPart, true);
562 break;
563 case KICK_ATTACK:
564 Enemy->AddPrimitiveHitMessage(this, Enemy->FirstPersonCriticalKickVerb(), Enemy->ThirdPersonCriticalKickVerb(), BodyPart);
565 break;
566 case BITE_ATTACK:
567 Enemy->AddPrimitiveHitMessage(this, Enemy->FirstPersonCriticalBiteVerb(), Enemy->ThirdPersonCriticalBiteVerb(), BodyPart);
568 break;
569 }
570 } else {
571 switch (Type) {
572 case UNARMED_ATTACK:
573 Enemy->AddPrimitiveHitMessage(this, Enemy->FirstPersonUnarmedHitVerb(), Enemy->ThirdPersonUnarmedHitVerb(), BodyPart);
574 break;
575 case WEAPON_ATTACK:
576 Enemy->AddWeaponHitMessage(this, Weapon, BodyPart, false);
577 break;
578 case KICK_ATTACK:
579 Enemy->AddPrimitiveHitMessage(this, Enemy->FirstPersonKickVerb(), Enemy->ThirdPersonKickVerb(), BodyPart);
580 break;
581 case BITE_ATTACK:
582 Enemy->AddPrimitiveHitMessage(this, Enemy->FirstPersonBiteVerb(), Enemy->ThirdPersonBiteVerb(), BodyPart);
583 break;
584 }
585 }
586
587 if (!Critical && TrueDamage && Enemy->AttackIsBlockable(Type)) {
588 TrueDamage = CheckForBlock(Enemy, Weapon, ToHitValue, TrueDamage, Success, Type);
589 if (!TrueDamage || (Weapon && !Weapon->Exists())) {
590 if (Enemy->CanBeSeenByPlayer())
591 DeActivateVoluntaryAction(CONST_S("The attack of ")+Enemy->GetName(DEFINITE)+CONST_S(" interrupts you."));
592 else
593 DeActivateVoluntaryAction(CONST_S("The attack interrupts you."));
594 return HAS_BLOCKED;
595 }
596 }
597
598 int WeaponSkillHits = CalculateWeaponSkillHits(Enemy);
599 int DoneDamage = ReceiveBodyPartDamage(Enemy, TrueDamage, PHYSICAL_DAMAGE, BodyPart, Dir, false, Critical, true, Type == BITE_ATTACK && Enemy->BiteCapturesBodyPart());
600 truth Succeeded = (GetBodyPart(BodyPart) && HitEffect(Enemy, Weapon, HitPos, Type, BodyPart, Dir, !DoneDamage)) || DoneDamage;
601 if (Succeeded) Enemy->WeaponSkillHit(Weapon, Type, WeaponSkillHits);
602
603 if (Weapon) {
604 if (Weapon->Exists() && DoneDamage < TrueDamage) Weapon->ReceiveDamage(Enemy, TrueDamage-DoneDamage, PHYSICAL_DAMAGE);
605 if (Weapon->Exists() && DoneDamage && SpillsBlood() && GetBodyPart(BodyPart) &&
606 (GetBodyPart(BodyPart)->IsAlive() || GetBodyPart(BodyPart)->GetMainMaterial()->IsLiquid()))
607 Weapon->SpillFluid(0, CreateBlood(15+RAND()%15));
608 }
609
610 if (Enemy->AttackIsBlockable(Type)) SpecialBodyDefenceEffect(Enemy, EnemyBodyPart, Type);
611
612 if (!Succeeded) {
613 if (Enemy->CanBeSeenByPlayer())
614 DeActivateVoluntaryAction(CONST_S("The attack of ")+Enemy->GetName(DEFINITE)+CONST_S(" interrupts you."));
615 else
616 DeActivateVoluntaryAction(CONST_S("The attack interrupts you."));
617
618 return DID_NO_DAMAGE;
619 }
620
621 if (CheckDeath(GetNormalDeathMessage(), Enemy, Enemy->IsPlayer() ? FORCE_MSG : 0)) return HAS_DIED;
622
623 if (Enemy->CanBeSeenByPlayer())
624 DeActivateVoluntaryAction(CONST_S("The attack of ")+Enemy->GetName(DEFINITE)+CONST_S(" interrupts you."));
625 else
626 DeActivateVoluntaryAction(CONST_S("The attack interrupts you."));
627
628 return HAS_HIT;
629 }
630
631
632 struct svpriorityelement {
633 svpriorityelement (int BodyPart, int StrengthValue) : BodyPart(BodyPart), StrengthValue(StrengthValue) {}
634 bool operator < (const svpriorityelement &AnotherPair) const { return StrengthValue > AnotherPair.StrengthValue; }
635 int BodyPart;
636 int StrengthValue;
637 };
638
639
640 int character::ChooseBodyPartToReceiveHit (double ToHitValue, double DodgeValue) {
641 if (BodyParts == 1) return 0;
642 std::priority_queue<svpriorityelement> SVQueue;
643 for (int c = 0; c < BodyParts; ++c) {
644 bodypart *BodyPart = GetBodyPart(c);
645 if (BodyPart && (BodyPart->GetHP() != 1 || BodyPart->CanBeSevered(PHYSICAL_DAMAGE)))
646 SVQueue.push(svpriorityelement(c, ModifyBodyPartHitPreference(c, BodyPart->GetStrengthValue()+BodyPart->GetHP())));
647 }
648 while (SVQueue.size()) {
649 svpriorityelement E = SVQueue.top();
650 int ToHitPercentage = int(GLOBAL_WEAK_BODYPART_HIT_MODIFIER*ToHitValue*GetBodyPart(E.BodyPart)->GetBodyPartVolume()/(DodgeValue*GetBodyVolume()));
651 ToHitPercentage = ModifyBodyPartToHitChance(E.BodyPart, ToHitPercentage);
652 if (ToHitPercentage < 1) ToHitPercentage = 1;
653 else if (ToHitPercentage > 95) ToHitPercentage = 95;
654 if (ToHitPercentage > RAND()%100) return E.BodyPart;
655 SVQueue.pop();
656 }
657 return 0;
658 }
659
660
661 void character::Be () {
662 if (game::ForceJumpToPlayerBe()) {
663 if (!IsPlayer()) return;
664 game::SetForceJumpToPlayerBe(false);
665 } else {
666 truth ForceBe = HP != MaxHP || AllowSpoil();
667 for (int c = 0; c < BodyParts; ++c) {
668 bodypart *BodyPart = GetBodyPart(c);
669 if (BodyPart && (ForceBe || BodyPart->NeedsBe())) BodyPart->Be();
670 }
671 HandleStates();
672 if (!IsEnabled()) return;
673 if (GetTeam() == PLAYER->GetTeam()) {
674 for (int c = 0; c < AllowedWeaponSkillCategories; ++c) {
675 if (CWeaponSkill[c].Tick() && IsPlayer()) CWeaponSkill[c].AddLevelDownMessage(c);
676 }
677 SWeaponSkillTick();
678 }
679 if (IsPlayer()) {
680 if (GetHungerState() == STARVING && !(RAND()%50)) LoseConsciousness(250+RAND_N(250), true);
681 if (!Action || Action->AllowFoodConsumption()) Hunger();
682 }
683 if (Stamina != MaxStamina) RegenerateStamina();
684 if (HP != MaxHP) Regenerate();
685 if (Action && AP >= 1000) ActionAutoTermination();
686 if (Action && AP >= 1000) {
687 Action->Handle();
688 if (!IsEnabled()) return;
689 } else {
690 EditAP(GetStateAPGain(100));
691 }
692 }
693 if (AP >= 1000) {
694 SpecialTurnHandler();
695 BlocksSinceLastTurn = 0;
696 if (IsPlayer()) {
697 static int Timer = 0;
698 //
699 if (ivanconfig::GetAutoSaveInterval() && !GetAction() && ++Timer >= ivanconfig::GetAutoSaveInterval()) {
700 //fprintf(stderr, "autosaving..."); fflush(stderr);
701 game::Save(game::GetAutoSaveFileName());
702 //fprintf(stderr, "done\n"); fflush(stderr);
703 Timer = 0;
704 }
705 game::CalculateNextDanger();
706 if (!StateIsActivated(POLYMORPHED)) game::UpdatePlayerAttributeAverage();
707 if (!game::IsInWilderness()) Search(GetAttribute(PERCEPTION));
708 if (!Action) {
709 GetPlayerCommand();
710 } else {
711 if (Action->ShowEnvironment()) {
712 static int Counter = 0;
713 if (++Counter == 10) {
714 game::DrawEverything();
715 Counter = 0;
716 }
717 }
718 msgsystem::ThyMessagesAreNowOld();
719 if (Action->IsVoluntary() && READ_KEY()) Action->Terminate(false);
720 }
721 } else {
722 if (!Action && !game::IsInWilderness()) GetAICommand();
723 }
724 }
725 }
726
727
728 void character::Move (v2 MoveTo, truth TeleportMove, truth Run) {
729 if (!IsEnabled()) return;
730 /* Test whether the player is stuck to something */
731 if (!TeleportMove && !TryToUnStickTraps(MoveTo-GetPos())) return;
732 if (Run && !IsPlayer() && TorsoIsAlive() && (Stamina <= 10000 / Max(GetAttribute(LEG_STRENGTH), 1) ||
733 (!StateIsActivated(PANIC) && Stamina < MaxStamina >> 2)))
734 Run = false;
735 RemoveTraps();
736 if (GetBurdenState() != OVER_LOADED || TeleportMove) {
737 lsquare *OldSquareUnder[MAX_SQUARES_UNDER];
738 if (!game::IsInWilderness()) {
739 for (int c = 0; c < GetSquaresUnder(); ++c) OldSquareUnder[c] = GetLSquareUnder(c);
740 }
741 Remove();
742 PutTo(MoveTo);
743 if (!TeleportMove) {
744 /* Multitiled creatures should behave differently, maybe? */
745 if (Run) {
746 int ED = GetSquareUnder()->GetEntryDifficulty();
747 EditAP(-GetMoveAPRequirement(ED) >> 1);
748 EditNP(-24 * ED);
749 EditExperience(AGILITY, 125, ED << 7);
750 int Base = 10000;
751 if (IsPlayer()) {
752 switch (GetHungerState()) {
753 case SATIATED: Base = 11000; break;
754 case BLOATED: Base = 12500; break;
755 case OVER_FED: Base = 15000; break;
756 }
757 }
758 EditStamina(-Base / Max(GetAttribute(LEG_STRENGTH), 1), true);
759 } else {
760 int ED = GetSquareUnder()->GetEntryDifficulty();
761 EditAP(-GetMoveAPRequirement(ED));
762 EditNP(-12 * ED);
763 EditExperience(AGILITY, 75, ED << 7);
764 }
765 }
766 if (IsPlayer()) ShowNewPosInfo();
767 if (IsPlayer() && !game::IsInWilderness()) GetStackUnder()->SetSteppedOn(true);
768 if (!game::IsInWilderness()) SignalStepFrom(OldSquareUnder);
769 } else {
770 if (IsPlayer()) {
771 cchar *CrawlVerb = StateIsActivated(LEVITATION) ? "float" : "crawl";
772 ADD_MESSAGE("You try very hard to %s forward. But your load is too heavy.", CrawlVerb);
773 }
774 EditAP(-1000);
775 }
776 }
777
778
779 void character::GetAICommand () {
780 SeekLeader(GetLeader());
781 if (FollowLeader(GetLeader())) return;
782 if (CheckForEnemies(true, true, true)) return;
783 if (CheckForUsefulItemsOnGround()) return;
784 if (CheckForDoors()) return;
785 if (CheckSadism()) return;
786 if (MoveRandomly()) return;
787 EditAP(-1000);
788 }
789
790
791 truth character::MoveTowardsTarget (truth Run) {
792 v2 MoveTo[3];
793 v2 TPos;
794 v2 Pos = GetPos();
795
796 if (!Route.empty()) {
797 TPos = Route.back();
798 Route.pop_back();
799 } else TPos = GoingTo;
800
801 MoveTo[0] = v2(0, 0);
802 MoveTo[1] = v2(0, 0);
803 MoveTo[2] = v2(0, 0);
804
805 if (TPos.X < Pos.X) {
806 if (TPos.Y < Pos.Y) {
807 MoveTo[0] = v2(-1, -1);
808 MoveTo[1] = v2(-1, 0);
809 MoveTo[2] = v2( 0, -1);
810 } else if (TPos.Y == Pos.Y) {
811 MoveTo[0] = v2(-1, 0);
812 MoveTo[1] = v2(-1, -1);
813 MoveTo[2] = v2(-1, 1);
814 } else if (TPos.Y > Pos.Y) {
815 MoveTo[0] = v2(-1, 1);
816 MoveTo[1] = v2(-1, 0);
817 MoveTo[2] = v2( 0, 1);
818 }
819 } else if (TPos.X == Pos.X) {
820 if (TPos.Y < Pos.Y) {
821 MoveTo[0] = v2( 0, -1);
822 MoveTo[1] = v2(-1, -1);
823 MoveTo[2] = v2( 1, -1);
824 } else if (TPos.Y == Pos.Y) {
825 TerminateGoingTo();
826 return false;
827 } else if (TPos.Y > Pos.Y) {
828 MoveTo[0] = v2( 0, 1);
829 MoveTo[1] = v2(-1, 1);
830 MoveTo[2] = v2( 1, 1);
831 }
832 } else if (TPos.X > Pos.X) {
833 if (TPos.Y < Pos.Y) {
834 MoveTo[0] = v2(1, -1);
835 MoveTo[1] = v2(1, 0);
836 MoveTo[2] = v2(0, -1);
837 } else if (TPos.Y == Pos.Y) {
838 MoveTo[0] = v2(1, 0);
839 MoveTo[1] = v2(1, -1);
840 MoveTo[2] = v2(1, 1);
841 } else if (TPos.Y > Pos.Y) {
842 MoveTo[0] = v2(1, 1);
843 MoveTo[1] = v2(1, 0);
844 MoveTo[2] = v2(0, 1);
845 }
846 }
847
848 v2 ModifiedMoveTo = ApplyStateModification(MoveTo[0]);
849
850 if (TryMove(ModifiedMoveTo, true, Run)) return true;
851
852 int L = (Pos-TPos).GetManhattanLength();
853
854 if (RAND()&1) Swap(MoveTo[1], MoveTo[2]);
855
856 if (Pos.IsAdjacent(TPos)) {
857 TerminateGoingTo();
858 return false;
859 }
860
861 if ((Pos+MoveTo[1]-TPos).GetManhattanLength() <= L && TryMove(ApplyStateModification(MoveTo[1]), true, Run)) return true;
862 if ((Pos+MoveTo[2]-TPos).GetManhattanLength() <= L && TryMove(ApplyStateModification(MoveTo[2]), true, Run)) return true;
863 Illegal.insert(Pos+ModifiedMoveTo);
864 if (CreateRoute()) return true;
865 return false;
866 }
867
868
869 int character::CalculateNewSquaresUnder (lsquare **NewSquare, v2 Pos) const {
870 if (GetLevel()->IsValidPos(Pos)) {
871 *NewSquare = GetNearLSquare(Pos);
872 return 1;
873 }
874 return 0;
875 }
876
877
878 truth character::TryMove (v2 MoveVector, truth Important, truth Run) {
879 lsquare *MoveToSquare[MAX_SQUARES_UNDER];
880 character *Pet[MAX_SQUARES_UNDER];
881 character *Neutral[MAX_SQUARES_UNDER];
882 character *Hostile[MAX_SQUARES_UNDER];
883 v2 PetPos[MAX_SQUARES_UNDER];
884 v2 NeutralPos[MAX_SQUARES_UNDER];
885 v2 HostilePos[MAX_SQUARES_UNDER];
886 v2 MoveTo = GetPos()+MoveVector;
887 int Direction = game::GetDirectionForVector(MoveVector);
888 if (Direction == DIR_ERROR) ABORT("Direction fault.");
889 if (!game::IsInWilderness()) {
890 int Squares = CalculateNewSquaresUnder(MoveToSquare, MoveTo);
891 if (Squares) {
892 int Pets = 0;
893 int Neutrals = 0;
894 int Hostiles = 0;
895 for (int c = 0; c < Squares; ++c) {
896 character* Char = MoveToSquare[c]->GetCharacter();
897 if (Char && Char != this) {
898 v2 Pos = MoveToSquare[c]->GetPos();
899 if (IsAlly(Char)) {
900 Pet[Pets] = Char;
901 PetPos[Pets++] = Pos;
902 } else if (Char->GetRelation(this) != HOSTILE) {
903 Neutral[Neutrals] = Char;
904 NeutralPos[Neutrals++] = Pos;
905 } else {
906 Hostile[Hostiles] = Char;
907 HostilePos[Hostiles++] = Pos;
908 }
909 }
910 }
911
912 if (Hostiles == 1) return Hit(Hostile[0], HostilePos[0], Direction);
913 if (Hostiles) {
914 int Index = RAND() % Hostiles;
915 return Hit(Hostile[Index], HostilePos[Index], Direction);
916 }
917
918 if (Neutrals == 1) {
919 if (!IsPlayer() && !Pets && Important && CanMoveOn(MoveToSquare[0]))
920 return HandleCharacterBlockingTheWay(Neutral[0], NeutralPos[0], Direction);
921 else
922 return IsPlayer() && Hit(Neutral[0], NeutralPos[0], Direction);
923 } else if (Neutrals) {
924 if (IsPlayer()) {
925 int Index = RAND() % Neutrals;
926 return Hit(Neutral[Index], NeutralPos[Index], Direction);
927 }
928 return false;
929 }
930
931 if (!IsPlayer()) {
932 for (int c = 0; c < Squares; ++c) if (MoveToSquare[c]->IsScary(this)) return false;
933 }
934
935 if (Pets == 1) {
936 if (IsPlayer() && !ivanconfig::GetBeNice() && Pet[0]->IsMasochist() && HasSadistAttackMode() &&
937 game::TruthQuestion("Do you want to punish " + Pet[0]->GetObjectPronoun() + "? [y/N]"))
938 return Hit(Pet[0], PetPos[0], Direction, SADIST_HIT);
939 else
940 return (Important && (CanMoveOn(MoveToSquare[0]) ||
941 (IsPlayer() && game::GoThroughWallsCheatIsActive())) && Displace(Pet[0]));
942 } else if (Pets) return false;
943
944 if ((CanMove() && CanMoveOn(MoveToSquare[0])) || ((game::GoThroughWallsCheatIsActive() && IsPlayer()))) {
945 Move(MoveTo, false, Run);
946 if (IsEnabled() && GetPos() == GoingTo) TerminateGoingTo();
947 return true;
948 } else {
949 for (int c = 0; c < Squares; ++c) {
950 olterrain *Terrain = MoveToSquare[c]->GetOLTerrain();
951 if (Terrain && Terrain->CanBeOpened()) {
952 if (CanOpen()) {
953 if (Terrain->IsLocked()) {
954 if (IsPlayer()) {
955 /*k8*/
956 if (ivanconfig::GetKickDownDoors()) {
957 if (game::TruthQuestion(CONST_S("Locked! Do you want to kick ")+Terrain->GetName(DEFINITE)+"? [Y/n]", true, game::GetMoveCommandKeyBetweenPoints(PLAYER->GetPos(), MoveToSquare[0]->GetPos()))) {
958 Kick(MoveToSquare[c], Direction);
959 return true;
960 } else {
961 return false;
962 }
963 }
964 /*k8*/
965 ADD_MESSAGE("The %s is locked.", Terrain->GetNameSingular().CStr()); /* not sure if this is better than "the door is locked", but I guess it _might_ be slighltly better */
966 return false;
967 } else if (Important && CheckKick()) {
968 room *Room = MoveToSquare[c]->GetRoom();
969 if (!Room || Room->AllowKick(this, MoveToSquare[c])) {
970 int HP = Terrain->GetHP();
971 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s kicks %s.", CHAR_NAME(DEFINITE), Terrain->CHAR_NAME(DEFINITE));
972 Kick(MoveToSquare[c], Direction);
973 olterrain *NewTerrain = MoveToSquare[c]->GetOLTerrain();
974 if (NewTerrain == Terrain && Terrain->GetHP() == HP) { // BUG!
975 Illegal.insert(MoveTo);
976 CreateRoute();
977 }
978 return true;
979 }
980 }
981 } else { /* if (Terrain->IsLocked()) */
982 /*if(!IsPlayer() || game::TruthQuestion(CONST_S("Do you want to open ") + Terrain->GetName(DEFINITE) + "? [y/N]", false, game::GetMoveCommandKeyBetweenPoints(PLAYER->GetPos(), MoveToSquare[0]->GetPos()))) return MoveToSquare[c]->Open(this);*/
983 /* Non-players always try to open it */
984 if (!IsPlayer()) return MoveToSquare[c]->Open(this);
985 if (game::TruthQuestion(CONST_S("Do you want to ")+(ivanconfig::GetKickDownDoors()?"kick ":"open ")+
986 Terrain->GetName(DEFINITE)+"? [y/N]", false, game::GetMoveCommandKeyBetweenPoints(PLAYER->GetPos(),
987 MoveToSquare[0]->GetPos()))) {
988 if (ivanconfig::GetKickDownDoors()) {
989 Kick(MoveToSquare[c], Direction);
990 return true;
991 }
992 return MoveToSquare[c]->Open(this);
993 }
994 return false;
995 } /* if (Terrain->IsLocked()) */
996 } else { /* if (CanOpen()) */
997 if (IsPlayer()) {
998 ADD_MESSAGE("This monster type cannot open doors.");
999 return false;
1000 }
1001 if (Important) {
1002 Illegal.insert(MoveTo);
1003 return CreateRoute();
1004 }
1005 } /* if (CanOpen()) */
1006 } /* if (Terrain && Terrain->CanBeOpened()) */
1007 } /* for */
1008 } /* if */
1009 return false;
1010 } else {
1011 if (IsPlayer() && !IsStuck() && GetLevel()->IsOnGround() && game::TruthQuestion(CONST_S("Do you want to leave ")+game::GetCurrentDungeon()->GetLevelDescription(game::GetCurrentLevelIndex())+"? [y/N]")) {
1012 if (HasPetrussNut() && !HasGoldenEagleShirt()) {
1013 game::TextScreen(CONST_S("An undead and sinister voice greets you as you leave the city behind:\n\n\"MoRtAl! ThOu HaSt SlAuGtHeReD pEtRuS aNd PlEaSeD mE!\nfRoM tHiS dAy On, ThOu ArT tHe DeArEsT sErVaNt Of AlL eViL!\"\n\nYou are victorious!"));
1014 game::GetCurrentArea()->SendNewDrawRequest();
1015 game::DrawEverything();
1016 ShowAdventureInfo();
1017 festring Msg = CONST_S("killed Petrus and became the Avatar of Chaos");
1018 PLAYER->AddScoreEntry(Msg, 3, false);
1019 game::End(Msg);
1020 return true;
1021 }
1022 if (game::TryTravel(WORLD_MAP, WORLD_MAP, game::GetCurrentDungeonIndex())) return true;
1023 }
1024 return false;
1025 }
1026 } else {
1027 /** No multitile support */
1028 if (CanMove() && GetArea()->IsValidPos(MoveTo) && (CanMoveOn(GetNearWSquare(MoveTo)) || game::GoThroughWallsCheatIsActive())) {
1029 if (!game::GoThroughWallsCheatIsActive()) {
1030 charactervector &V = game::GetWorldMap()->GetPlayerGroup();
1031 truth Discard = false;
1032 for (uInt c = 0; c < V.size(); ++c) {
1033 if (!V[c]->CanMoveOn(GetNearWSquare(MoveTo))) {
1034 if (!Discard) {
1035 ADD_MESSAGE("One or more of your team members cannot cross this terrain.");
1036 if (!game::TruthQuestion("Discard them? [y/N]")) return false;
1037 Discard = true;
1038 }
1039 if (Discard) delete V[c];
1040 V.erase(V.begin() + c--);
1041 }
1042 }
1043 }
1044 Move(MoveTo, false);
1045 return true;
1046 } else {
1047 return false;
1048 }
1049 }
1050 }
1051
1052
1053 void character::CreateCorpse (lsquare *Square) {
1054 if (!BodyPartsDisappearWhenSevered() && !game::AllBodyPartsVanish()) {
1055 corpse *Corpse = corpse::Spawn(0, NO_MATERIALS);
1056 Corpse->SetDeceased(this);
1057 Square->AddItem(Corpse);
1058 Disable();
1059 } else {
1060 SendToHell();
1061 }
1062 }
1063
1064
1065 void character::Die (ccharacter *Killer, cfestring &Msg, feuLong DeathFlags) {
1066 /* Note: This function musn't delete any objects, since one of these may be
1067 the one currently processed by pool::Be()! */
1068 if (!IsEnabled()) return;
1069 game::ClearEventData();
1070 game::mActor = Killer;
1071 if (game::RunOnCharEvent(this, CONST_S("die"))) { game::ClearEventData(); RemoveTraps(); return; }
1072 game::ClearEventData();
1073 RemoveTraps();
1074 if (IsPlayer()) {
1075 ADD_MESSAGE("You die.");
1076 game::DrawEverything();
1077 if (game::TruthQuestion(CONST_S("Do you want to save screenshot? [y/n]"), REQUIRES_ANSWER)) {
1078 festring dir = inputfile::GetMyDir()+"/DeathShots";
1079 #ifndef WIN32
1080 mkdir(dir.CStr(), 0755);
1081 #else
1082 mkdir(dir.CStr());
1083 #endif
1084 festring timestr;
1085 time_t t = time(NULL);
1086 struct tm *ts = localtime(&t);
1087 if (ts) {
1088 timestr << (int)(ts->tm_year%100);
1089 int t = ts->tm_mon+1;
1090 if (t < 10) timestr << '0'; timestr << t;
1091 t = ts->tm_mday; if (t < 10) timestr << '0'; timestr << t;
1092 timestr << '_';
1093 t = ts->tm_hour; if (t < 10) timestr << '0'; timestr << t;
1094 t = ts->tm_min; if (t < 10) timestr << '0'; timestr << t;
1095 t = ts->tm_sec; if (t < 10) timestr << '0'; timestr << t;
1096 } else {
1097 timestr = "heh";
1098 }
1099 #if defined(HAVE_IMLIB2) || defined(HAVE_LIBPNG)
1100 festring ext = ".png";
1101 #else
1102 festring ext = ".bmp";
1103 #endif
1104 festring fname = dir+"/deathshot_"+timestr;
1105 if (inputfile::fileExists(fname+ext)) {
1106 for (int f = 0; f < 1000; f++) {
1107 char buf[16];
1108 sprintf(buf, "%03d", f);
1109 festring fn = fname+buf;
1110 if (!inputfile::fileExists(fn+ext)) {
1111 fname = fn;
1112 break;
1113 }
1114 }
1115 }
1116 fname << ext;
1117 fprintf(stderr, "deathshot: %s\n", fname.CStr());
1118 #if defined(HAVE_IMLIB2) || defined(HAVE_LIBPNG)
1119 DOUBLE_BUFFER->SavePNG(fname);
1120 #else
1121 DOUBLE_BUFFER->SaveBMP(fname);
1122 #endif
1123 }
1124 if (game::WizardModeIsActive()) {
1125 game::DrawEverything();
1126 if (!game::TruthQuestion(CONST_S("Do you want to do this, cheater? [y/n]"), REQUIRES_ANSWER)) {
1127 RestoreBodyParts();
1128 ResetSpoiling();
1129 RestoreHP();
1130 RestoreStamina();
1131 ResetStates();
1132 SetNP(SATIATED_LEVEL);
1133 SendNewDrawRequest();
1134 return;
1135 }
1136 }
1137 } else if (CanBeSeenByPlayer() && !(DeathFlags & DISALLOW_MSG)) {
1138 ProcessAndAddMessage(GetDeathMessage());
1139 } else if (DeathFlags & FORCE_MSG) {
1140 ADD_MESSAGE("You sense the death of something.");
1141 }
1142
1143 if (!(DeathFlags & FORBID_REINCARNATION)) {
1144 if (StateIsActivated(LIFE_SAVED) && CanMoveOn(!game::IsInWilderness() ? GetSquareUnder() : PLAYER->GetSquareUnder())) {
1145 SaveLife();
1146 return;
1147 }
1148 if (SpecialSaveLife()) return;
1149 } else if (StateIsActivated(LIFE_SAVED)) {
1150 RemoveLifeSavers();
1151 }
1152
1153 Flags |= C_IN_NO_MSG_MODE;
1154 character *Ghost = 0;
1155 if (IsPlayer()) {
1156 game::RemoveSaves();
1157 if (!game::IsInWilderness()) {
1158 Ghost = game::CreateGhost();
1159 Ghost->Disable();
1160 }
1161 }
1162
1163 square *SquareUnder[MAX_SQUARES_UNDER];
1164 memset(SquareUnder, 0, sizeof(SquareUnder));
1165 Disable();
1166 if (IsPlayer() || !game::IsInWilderness()) {
1167 for (int c = 0; c < SquaresUnder; ++c) SquareUnder[c] = GetSquareUnder(c);
1168 Remove();
1169 } else {
1170 charactervector& V = game::GetWorldMap()->GetPlayerGroup();
1171 V.erase(std::find(V.begin(), V.end(), this));
1172 }
1173 //lsquare **LSquareUnder = reinterpret_cast<lsquare **>(SquareUnder); /* warning; wtf? */
1174 lsquare *LSquareUnder[MAX_SQUARES_UNDER];
1175 memmove(LSquareUnder, SquareUnder, sizeof(SquareUnder));
1176 //
1177 if (!game::IsInWilderness()) {
1178 if (!StateIsActivated(POLYMORPHED)) {
1179 if (!IsPlayer() && !IsTemporary() && !Msg.IsEmpty()) game::SignalDeath(this, Killer, Msg);
1180 if (!(DeathFlags & DISALLOW_CORPSE)) CreateCorpse(LSquareUnder[0]); else SendToHell();
1181 } else {
1182 if (!IsPlayer() && !IsTemporary() && !Msg.IsEmpty()) game::SignalDeath(GetPolymorphBackup(), Killer, Msg);
1183 GetPolymorphBackup()->CreateCorpse(LSquareUnder[0]);
1184 GetPolymorphBackup()->Flags &= ~C_POLYMORPHED;
1185 SetPolymorphBackup(0);
1186 SendToHell();
1187 }
1188 } else {
1189 if (!IsPlayer() && !IsTemporary() && !Msg.IsEmpty()) game::SignalDeath(this, Killer, Msg);
1190 SendToHell();
1191 }
1192
1193 if (IsPlayer()) {
1194 if (!game::IsInWilderness()) {
1195 for (int c = 0; c < GetSquaresUnder(); ++c) LSquareUnder[c]->SetTemporaryEmitation(GetEmitation());
1196 }
1197 ShowAdventureInfo();
1198 if (!game::IsInWilderness()) {
1199 for(int c = 0; c < GetSquaresUnder(); ++c) LSquareUnder[c]->SetTemporaryEmitation(0);
1200 }
1201 }
1202
1203 if (!game::IsInWilderness()) {
1204 if (GetSquaresUnder() == 1) {
1205 stack *StackUnder = LSquareUnder[0]->GetStack();
1206 GetStack()->MoveItemsTo(StackUnder);
1207 doforbodypartswithparam<stack*>()(this, &bodypart::DropEquipment, StackUnder);
1208 } else {
1209 while (GetStack()->GetItems()) GetStack()->GetBottom()->MoveTo(LSquareUnder[RAND_N(GetSquaresUnder())]->GetStack());
1210 for (int c = 0; c < BodyParts; ++c) {
1211 bodypart *BodyPart = GetBodyPart(c);
1212 if (BodyPart) BodyPart->DropEquipment(LSquareUnder[RAND_N(GetSquaresUnder())]->GetStack());
1213 }
1214 }
1215 }
1216
1217 if (GetTeam()->GetLeader() == this) GetTeam()->SetLeader(0);
1218
1219 Flags &= ~C_IN_NO_MSG_MODE;
1220
1221 if (IsPlayer()) {
1222 AddScoreEntry(Msg);
1223 if (!game::IsInWilderness()) {
1224 Ghost->PutTo(LSquareUnder[0]->GetPos());
1225 Ghost->Enable();
1226 game::CreateBone();
1227 }
1228 game::TextScreen(CONST_S("Unfortunately you died."), ZERO_V2, WHITE, true, true, &game::ShowDeathSmiley);
1229 game::End(Msg);
1230 }
1231 }
1232
1233
1234 void character::AddMissMessage (ccharacter *Enemy) const {
1235 festring Msg;
1236 if (Enemy->IsPlayer()) Msg = GetDescription(DEFINITE)+" misses you!";
1237 else if (IsPlayer()) Msg = CONST_S("You miss ")+Enemy->GetDescription(DEFINITE)+'!';
1238 else if (CanBeSeenByPlayer() || Enemy->CanBeSeenByPlayer()) Msg = GetDescription(DEFINITE)+" misses "+Enemy->GetDescription(DEFINITE)+'!';
1239 else return;
1240 ADD_MESSAGE("%s", Msg.CStr());
1241 }
1242
1243
1244 void character::AddBlockMessage (ccharacter *Enemy, citem *Blocker, cfestring &HitNoun, truth Partial) const {
1245 festring Msg;
1246 festring BlockVerb = (Partial ? " to partially block the " : " to block the ")+HitNoun;
1247 if (IsPlayer()) {
1248 Msg << "You manage" << BlockVerb << " with your " << Blocker->GetName(UNARTICLED) << '!';
1249 } else if (Enemy->IsPlayer() || Enemy->CanBeSeenByPlayer()) {
1250 if (CanBeSeenByPlayer())
1251 Msg << GetName(DEFINITE) << " manages" << BlockVerb << " with " << GetPossessivePronoun() << ' ' << Blocker->GetName(UNARTICLED) << '!';
1252 else
1253 Msg << "Something manages" << BlockVerb << " with something!";
1254 } else {
1255 return;
1256 }
1257 ADD_MESSAGE("%s", Msg.CStr());
1258 }
1259
1260
1261 void character::AddPrimitiveHitMessage (ccharacter *Enemy, cfestring &FirstPersonHitVerb,
1262 cfestring &ThirdPersonHitVerb, int BodyPart) const
1263 {
1264 festring Msg;
1265 festring BodyPartDescription;
1266 if (BodyPart && (Enemy->CanBeSeenByPlayer() || Enemy->IsPlayer()))
1267 BodyPartDescription << " in the " << Enemy->GetBodyPartName(BodyPart);
1268 if (Enemy->IsPlayer())
1269 Msg << GetDescription(DEFINITE) << ' ' << ThirdPersonHitVerb << " you" << BodyPartDescription << '!';
1270 else if (IsPlayer())
1271 Msg << "You " << FirstPersonHitVerb << ' ' << Enemy->GetDescription(DEFINITE) << BodyPartDescription << '!';
1272 else if (CanBeSeenByPlayer() || Enemy->CanBeSeenByPlayer())
1273 Msg << GetDescription(DEFINITE) << ' ' << ThirdPersonHitVerb << ' ' << Enemy->GetDescription(DEFINITE) + BodyPartDescription << '!';
1274 else
1275 return;
1276 ADD_MESSAGE("%s", Msg.CStr());
1277 }
1278
1279
1280 cchar *const HitVerb[] = { "strike", "slash", "stab" };
1281 cchar *const HitVerb3rdPersonEnd[] = { "s", "es", "s" };
1282
1283
1284 void character::AddWeaponHitMessage (ccharacter *Enemy, citem *Weapon, int BodyPart, truth Critical) const {
1285 festring Msg;
1286 festring BodyPartDescription;
1287
1288 if (BodyPart && (Enemy->CanBeSeenByPlayer() || Enemy->IsPlayer()))
1289 BodyPartDescription << " in the " << Enemy->GetBodyPartName(BodyPart);
1290
1291 int FittingTypes = 0;
1292 int DamageFlags = Weapon->GetDamageFlags();
1293 int DamageType = 0;
1294
1295 for (int c = 0; c < DAMAGE_TYPES; ++c) {
1296 if (1 << c & DamageFlags) {
1297 if (!FittingTypes || !RAND_N(FittingTypes+1)) DamageType = c;
1298 ++FittingTypes;
1299 }
1300 }
1301
1302 if (!FittingTypes) ABORT("No damage flags specified for %s!", Weapon->CHAR_NAME(UNARTICLED));
1303
1304 festring NewHitVerb = Critical ? " critically " : " ";
1305 NewHitVerb << HitVerb[DamageType];
1306 cchar *const E = HitVerb3rdPersonEnd[DamageType];
1307
1308 if (Enemy->IsPlayer()) {
1309 Msg << GetDescription(DEFINITE) << NewHitVerb << E << " you" << BodyPartDescription;
1310 if (CanBeSeenByPlayer()) Msg << " with " << GetPossessivePronoun() << ' ' << Weapon->GetName(UNARTICLED);
1311 Msg << '!';
1312 } else if (IsPlayer()) {
1313 Msg << "You" << NewHitVerb << ' ' << Enemy->GetDescription(DEFINITE) << BodyPartDescription << '!';
1314 } else if(CanBeSeenByPlayer() || Enemy->CanBeSeenByPlayer()) {
1315 Msg << GetDescription(DEFINITE) << NewHitVerb << E << ' ' << Enemy->GetDescription(DEFINITE) << BodyPartDescription;
1316 if (CanBeSeenByPlayer()) Msg << " with " << GetPossessivePronoun() << ' ' << Weapon->GetName(UNARTICLED);
1317 Msg << '!';
1318 } else {
1319 return;
1320 }
1321 ADD_MESSAGE("%s", Msg.CStr());
1322 }
1323
1324
1325 item *character::GeneralFindItem (ItemCheckerCB chk) const {
1326 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) {
1327 item *it = *i;
1328 if (it && chk(it)) return it;
1329 }
1330 return 0;
1331 }
1332
1333
1334 static truth isElpuriHead (item *i) { return i->IsHeadOfElpuri(); }
1335 truth character::HasHeadOfElpuri () const {
1336 if (GeneralFindItem(::isElpuriHead)) return true;
1337 return combineequipmentpredicates()(this, &item::IsHeadOfElpuri, 1);
1338 }
1339
1340
1341 static truth isPetrussNut (item *i) { return i->IsPetrussNut(); }
1342 truth character::HasPetrussNut () const {
1343 if (GeneralFindItem(::isPetrussNut)) return true;
1344 return combineequipmentpredicates()(this, &item::IsPetrussNut, 1);
1345 }
1346
1347
1348 static truth isGoldenEagleShirt (item *i) { return i->IsGoldenEagleShirt(); }
1349 truth character::HasGoldenEagleShirt () const {
1350 if (GeneralFindItem(::isGoldenEagleShirt)) return true;
1351 return combineequipmentpredicates()(this, &item::IsGoldenEagleShirt, 1);
1352 }
1353
1354
1355 truth character::HasOmmelBlood () const {
1356 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i)
1357 if (i->IsKleinBottle() && i->GetSecondaryMaterial() && i->GetSecondaryMaterial()->GetConfig() == OMMEL_BLOOD) return true;
1358 //
1359 for (int c = 0; c < GetEquipments(); ++c) {
1360 item *Item = GetEquipment(c);
1361 //
1362 if (Item && Item->IsKleinBottle() && Item->GetSecondaryMaterial() && Item->GetSecondaryMaterial()->GetConfig() == OMMEL_BLOOD) return true;
1363 }
1364 return false; //combineequipmentpredicates()(this, &item::IsKleinBottle, 1);
1365 }
1366
1367
1368 truth character::CurdleOmmelBlood () const {
1369 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) {
1370 if (i->IsKleinBottle() && i->GetSecondaryMaterial() && i->GetSecondaryMaterial()->GetConfig() == OMMEL_BLOOD) {
1371 i->ChangeSecondaryMaterial(MAKE_MATERIAL(CURDLED_OMMEL_BLOOD));
1372 return true;
1373 }
1374 }
1375 //
1376 for (int c = 0; c < GetEquipments(); ++c) {
1377 item *Item = GetEquipment(c);
1378 //
1379 if (Item && Item->IsKleinBottle() && Item->GetSecondaryMaterial() && Item->GetSecondaryMaterial()->GetConfig() == OMMEL_BLOOD) {
1380 Item->ChangeSecondaryMaterial(MAKE_MATERIAL(CURDLED_OMMEL_BLOOD));
1381 return true;
1382 }
1383 }
1384 return false; //combineequipmentpredicates()(this, &item::IsKleinBottle, 1);
1385 }
1386
1387
1388 truth character::RemoveCurdledOmmelBlood () {
1389 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) {
1390 if (i->IsKleinBottle() && i->GetSecondaryMaterial() && i->GetSecondaryMaterial()->GetConfig() == CURDLED_OMMEL_BLOOD) {
1391 (*i)->RemoveFromSlot();
1392 (*i)->SendToHell();
1393 return true;
1394 }
1395 }
1396 //
1397 for (int c = 0; c < GetEquipments(); ++c) {
1398 item *Item = GetEquipment(c);
1399 //
1400 if (Item && Item->IsKleinBottle() && Item->GetSecondaryMaterial() && Item->GetSecondaryMaterial()->GetConfig() == CURDLED_OMMEL_BLOOD) {
1401 Item->RemoveFromSlot();
1402 Item->SendToHell();
1403 return true;
1404 }
1405 }
1406 return false;
1407 }
1408
1409
1410 int character::GeneralRemoveItem (ItemCheckerCB chk, truth allItems) {
1411 truth done;
1412 int cnt = 0;
1413 // inventory
1414 do {
1415 done = true;
1416 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) {
1417 item *Item = *i;
1418 if (Item && chk(Item)) {
1419 Item->RemoveFromSlot();
1420 Item->SendToHell();
1421 cnt++;
1422 if (!allItems) return cnt;
1423 done = false;
1424 break;
1425 }
1426 }
1427 } while (!done);
1428 // equipments
1429 do {
1430 done = true;
1431 for (int c = 0; c < GetEquipments(); ++c) {
1432 item *Item = GetEquipment(c);
1433 if (Item && chk(Item)) {
1434 Item->RemoveFromSlot();
1435 Item->SendToHell();
1436 cnt++;
1437 if (!allItems) return cnt;
1438 done = false;
1439 break;
1440 }
1441 }
1442 } while (!done);
1443 return cnt;
1444 }
1445
1446
1447 static truth isEncryptedScroll (item *i) { return i->IsEncryptedScroll(); }
1448 truth character::RemoveEncryptedScroll () { return GeneralRemoveItem(::isEncryptedScroll) != 0; }
1449
1450
1451 static truth isMondedrPass (item *i) { return i->IsMondedrPass(); }
1452 truth character::RemoveMondedrPass () { return GeneralRemoveItem(::isMondedrPass) != 0; }
1453
1454
1455 static truth isRingOfThieves (item *i) { return i->IsRingOfThieves(); }
1456 truth character::RemoveRingOfThieves () { return GeneralRemoveItem(::isRingOfThieves) != 0; }
1457
1458
1459 truth character::ReadItem (item *ToBeRead) {
1460 if (!ToBeRead->CanBeRead(this)) {
1461 if (IsPlayer()) ADD_MESSAGE("You can't read this.");
1462 return false;
1463 }
1464 if (!GetLSquareUnder()->IsDark() || game::GetSeeWholeMapCheatMode()) {
1465 if (StateIsActivated(CONFUSED) && !(RAND()&7)) {
1466 if (!ToBeRead->IsDestroyable(this)) {
1467 ADD_MESSAGE("You read some words of %s and understand exactly nothing.", ToBeRead->CHAR_NAME(DEFINITE));
1468 } else {
1469 ADD_MESSAGE("%s is very confusing. Or perhaps you are just too confused?", ToBeRead->CHAR_NAME(DEFINITE));
1470 ActivateRandomState(SRC_CONFUSE_READ, 1000+RAND()%1500);
1471 ToBeRead->RemoveFromSlot();
1472 ToBeRead->SendToHell();
1473 }
1474 EditAP(-1000);
1475 return true;
1476 }
1477 if (ToBeRead->Read(this)) {
1478 if (!game::WizardModeIsActive()) {
1479 /* This AP is used to take the stuff out of backpack */
1480 DexterityAction(5);
1481 }
1482 return true;
1483 }
1484 return false;
1485 }
1486 if (IsPlayer()) ADD_MESSAGE("It's too dark here to read.");
1487 return false;
1488 }
1489
1490
1491 void character::CalculateBurdenState () {
1492 int OldBurdenState = BurdenState;
1493 sLong SumOfMasses = GetCarriedWeight();
1494 sLong CarryingStrengthUnits = sLong(GetCarryingStrength())*2500;
1495 if (SumOfMasses > (CarryingStrengthUnits << 1) + CarryingStrengthUnits) BurdenState = OVER_LOADED;
1496 else if (SumOfMasses > CarryingStrengthUnits << 1) BurdenState = STRESSED;
1497 else if (SumOfMasses > CarryingStrengthUnits) BurdenState = BURDENED;
1498 else BurdenState = UNBURDENED;
1499 if (!IsInitializing() && BurdenState != OldBurdenState) CalculateBattleInfo();
1500 }
1501
1502
1503 void character::Save (outputfile &SaveFile) const {
1504 SaveFile << (uShort)GetType();
1505 Stack->Save(SaveFile);
1506 SaveFile << ID;
1507 for (int c = 0; c < BASE_ATTRIBUTES; ++c) SaveFile << BaseExperience[c];
1508
1509 SaveFile << ExpModifierMap;
1510 SaveFile << NP << AP << Stamina << GenerationDanger << ScienceTalks << CounterToMindWormHatch;
1511 SaveFile << TemporaryState << EquipmentState << Money << GoingTo << RegenerationCounter << Route << Illegal;
1512 SaveFile << CurrentSweatMaterial;
1513 SaveFile.Put(!!IsEnabled());
1514 SaveFile << HomeData << BlocksSinceLastTurn << CommandFlags;
1515 SaveFile << WarnFlags << (uShort)Flags;
1516
1517 for (int c = 0; c < BodyParts; ++c) SaveFile << BodyPartSlot[c] << OriginalBodyPartID[c];
1518
1519 SaveLinkedList(SaveFile, TrapData);
1520 SaveFile << Action;
1521
1522 for (int c = 0; c < STATES; ++c) SaveFile << TemporaryStateCounter[c];
1523
1524 if (GetTeam()) {
1525 SaveFile.Put(true);
1526 SaveFile << Team->GetID(); // feuLong
1527 } else {
1528 SaveFile.Put(false);
1529 }
1530
1531 if (GetTeam() && GetTeam()->GetLeader() == this) SaveFile.Put(true); else SaveFile.Put(false);
1532
1533 SaveFile << AssignedName << PolymorphBackup;
1534
1535 for (int c = 0; c < AllowedWeaponSkillCategories; ++c) SaveFile << CWeaponSkill[c];
1536
1537 SaveFile << (uShort)GetConfig();
1538 }
1539
1540
1541 void character::Load (inputfile &SaveFile) {
1542 LoadSquaresUnder();
1543 Stack->Load(SaveFile);
1544 SaveFile >> ID;
1545 game::AddCharacterID(this, ID);
1546
1547 for (int c = 0; c < BASE_ATTRIBUTES; ++c) SaveFile >> BaseExperience[c];
1548
1549 SaveFile >> ExpModifierMap;
1550 SaveFile >> NP >> AP >> Stamina >> GenerationDanger >> ScienceTalks >> CounterToMindWormHatch;
1551 SaveFile >> TemporaryState >> EquipmentState >> Money >> GoingTo >> RegenerationCounter >> Route >> Illegal;
1552 SaveFile >> CurrentSweatMaterial;
1553
1554 if (!SaveFile.Get()) Disable();
1555
1556 SaveFile >> HomeData >> BlocksSinceLastTurn >> CommandFlags;
1557 SaveFile >> WarnFlags;
1558 WarnFlags &= ~WARNED;
1559 Flags |= ReadType<uShort>(SaveFile) & ~ENTITY_FLAGS;
1560
1561 for (int c = 0; c < BodyParts; ++c) {
1562 SaveFile >> BodyPartSlot[c] >> OriginalBodyPartID[c];
1563 item *BodyPart = *BodyPartSlot[c];
1564 if (BodyPart) BodyPart->Disable();
1565 }
1566
1567 LoadLinkedList(SaveFile, TrapData);
1568 SaveFile >> Action;
1569
1570 if (Action) Action->SetActor(this);
1571
1572 for (int c = 0; c < STATES; ++c) SaveFile >> TemporaryStateCounter[c];
1573
1574 if (SaveFile.Get()) SetTeam(game::GetTeam(ReadType<feuLong>(SaveFile)));
1575
1576 if (SaveFile.Get()) GetTeam()->SetLeader(this);
1577
1578 SaveFile >> AssignedName >> PolymorphBackup;
1579
1580 for (int c = 0; c < AllowedWeaponSkillCategories; ++c) SaveFile >> CWeaponSkill[c];
1581
1582 databasecreator<character>::InstallDataBase(this, ReadType<uShort>(SaveFile));
1583
1584 if (IsEnabled() && !game::IsInWilderness()) {
1585 for (int c = 1; c < GetSquaresUnder(); ++c) GetSquareUnder(c)->SetCharacter(this);
1586 }
1587 }
1588
1589
1590 truth character::Engrave (cfestring &What) {
1591 GetLSquareUnder()->Engrave(What);
1592 return true;
1593 }
1594
1595 truth character::MoveRandomly () {
1596 if (!IsEnabled()) return false;
1597 for (int c = 0; c < 10; ++c) {
1598 v2 ToTry = game::GetMoveVector(RAND()&7);
1599 if (GetLevel()->IsValidPos(GetPos()+ToTry)) {
1600 lsquare *Square = GetNearLSquare(GetPos()+ToTry);
1601 if (!Square->IsDangerous(this) && !Square->IsScary(this) && TryMove(ToTry, false, false)) return true;
1602 }
1603 }
1604 return false;
1605 }
1606
1607
1608 truth character::TestForPickup (item *ToBeTested) const {
1609 if (MakesBurdened(ToBeTested->GetWeight()+GetCarriedWeight())) return false;
1610 return true;
1611 }
1612
1613
1614 void character::AddScoreEntry (cfestring &Description, double Multiplier, truth AddEndLevel) const {
1615 if (!game::WizardModeIsReallyActive()) {
1616 highscore HScore;
1617 if (!HScore.CheckVersion()) {
1618 if (game::Menu(0, v2(RES.X >> 1, RES.Y >> 1), CONST_S("The highscore version doesn't match.\rDo you want to erase previous records and start a new file?\rNote, if you answer no, the score of your current game will be lost!\r"), CONST_S("Yes\rNo\r"), LIGHT_GRAY)) return;
1619 HScore.Clear();
1620 }
1621 festring Desc = game::GetPlayerName();
1622 Desc << ", " << Description;
1623 if (AddEndLevel) Desc << " in "+(game::IsInWilderness() ? "the world map" : game::GetCurrentDungeon()->GetLevelDescription(game::GetCurrentLevelIndex()));
1624 HScore.Add(sLong(game::GetScore()*Multiplier), Desc);
1625 HScore.Save();
1626 }
1627 }
1628
1629
1630 truth character::CheckDeath (cfestring &Msg, ccharacter *Murderer, feuLong DeathFlags) {
1631 if (!IsEnabled()) return true;
1632 if (game::IsSumoWrestling() && IsDead()) {
1633 game::EndSumoWrestling(!!IsPlayer());
1634 return true;
1635 }
1636 if (DeathFlags & FORCE_DEATH || IsDead()) {
1637 if (Murderer && Murderer->IsPlayer() && GetTeam()->GetKillEvilness()) game::DoEvilDeed(GetTeam()->GetKillEvilness());
1638 festring SpecifierMsg;
1639 int SpecifierParts = 0;
1640 if (GetPolymorphBackup()) {
1641 SpecifierMsg << " polymorphed into ";
1642 id::AddName(SpecifierMsg, INDEFINITE);
1643 ++SpecifierParts;
1644 }
1645 if (!(DeathFlags & IGNORE_TRAPS) && IsStuck()) {
1646 if (SpecifierParts++) SpecifierMsg << " and";
1647 SpecifierMsg << " caught in " << GetTrapDescription();
1648 }
1649 if (GetAction() && !(DeathFlags & IGNORE_UNCONSCIOUSNESS && GetAction()->IsUnconsciousness())) {
1650 festring ActionMsg = GetAction()->GetDeathExplanation();
1651 if (!ActionMsg.IsEmpty()) {
1652 if (SpecifierParts > 1) {
1653 SpecifierMsg = ActionMsg << ',' << SpecifierMsg;
1654 } else {
1655 if (SpecifierParts) SpecifierMsg << " and";
1656 SpecifierMsg << ActionMsg;
1657 }
1658 ++SpecifierParts;
1659 }
1660 }
1661 festring NewMsg = Msg;
1662 if (Murderer == this) {
1663 SEARCH_N_REPLACE(NewMsg, "@bkp", CONST_S("by ") + GetPossessivePronoun(false) + " own");
1664 SEARCH_N_REPLACE(NewMsg, "@bk", CONST_S("by ") + GetObjectPronoun(false) + "self");
1665 SEARCH_N_REPLACE(NewMsg, "@k", GetObjectPronoun(false) + "self");
1666 } else {
1667 SEARCH_N_REPLACE(NewMsg, "@bkp", CONST_S("by ") + Murderer->GetName(INDEFINITE) + "'s");
1668 SEARCH_N_REPLACE(NewMsg, "@bk", CONST_S("by ") + Murderer->GetName(INDEFINITE));
1669 SEARCH_N_REPLACE(NewMsg, "@k", CONST_S("by ") + Murderer->GetName(INDEFINITE));
1670 }
1671 if (SpecifierParts) NewMsg << " while" << SpecifierMsg;
1672 if (IsPlayer() && game::WizardModeIsActive()) ADD_MESSAGE("Death message: %s. Score: %d.", NewMsg.CStr(), game::GetScore());
1673 Die(Murderer, NewMsg, DeathFlags);
1674 return true;
1675 }
1676 return false;
1677 }
1678
1679
1680 truth character::CheckStarvationDeath (cfestring &Msg) {
1681 if (GetNP() < 1 && UsesNutrition()) return CheckDeath(Msg, 0, FORCE_DEATH);
1682 return false;
1683 }
1684
1685
1686 void character::ThrowItem (int Direction, item *ToBeThrown) {
1687 if (Direction > 7) ABORT("Throw in TOO odd direction...");
1688 ToBeThrown->Fly(this, Direction, GetAttribute(ARM_STRENGTH));
1689 }
1690
1691
1692 void character::HasBeenHitByItem (character *Thrower, item *Thingy, int Damage, double ToHitValue, int Direction) {
1693 if (IsPlayer()) ADD_MESSAGE("%s hits you.", Thingy->CHAR_NAME(DEFINITE));
1694 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s hits %s.", Thingy->CHAR_NAME(DEFINITE), CHAR_NAME(DEFINITE));
1695 int BodyPart = ChooseBodyPartToReceiveHit(ToHitValue, DodgeValue);
1696 int WeaponSkillHits = Thrower ? CalculateWeaponSkillHits(Thrower) : 0;
1697 int DoneDamage = ReceiveBodyPartDamage(Thrower, Damage, PHYSICAL_DAMAGE, BodyPart, Direction);
1698 truth Succeeded = (GetBodyPart(BodyPart) && HitEffect(Thrower, Thingy, Thingy->GetPos(), THROW_ATTACK, BodyPart, Direction, !DoneDamage)) || DoneDamage;
1699 if (Succeeded && Thrower) Thrower->WeaponSkillHit(Thingy, THROW_ATTACK, WeaponSkillHits);
1700 festring DeathMsg = CONST_S("killed by a flying ")+Thingy->GetName(UNARTICLED);
1701 if (CheckDeath(DeathMsg, Thrower)) return;
1702 if (Thrower) {
1703 if (Thrower->CanBeSeenByPlayer())
1704 DeActivateVoluntaryAction(CONST_S("The attack of ")+Thrower->GetName(DEFINITE)+CONST_S(" interrupts you."));
1705 else
1706 DeActivateVoluntaryAction(CONST_S("The attack interrupts you."));
1707 } else {
1708 DeActivateVoluntaryAction(CONST_S("The hit interrupts you."));
1709 }
1710 }
1711
1712
1713 truth character::DodgesFlyingItem (item *Item, double ToHitValue) {
1714 return !Item->EffectIsGood() && RAND() % int(100+ToHitValue/DodgeValue*100) < 100;
1715 }
1716
1717
1718 void character::GetPlayerCommand () {
1719 command *cmd;
1720 truth HasActed = false;
1721 while (!HasActed) {
1722 game::DrawEverything();
1723 if (game::GetDangerFound()) {
1724 if (game::GetDangerFound() > 500.) {
1725 if (game::GetCausePanicFlag()) {
1726 game::SetCausePanicFlag(false);
1727 BeginTemporaryState(PANIC, 500+RAND_N(500));
1728 }
1729 game::AskForEscPress(CONST_S("You are horrified by your situation!"));
1730 } else if (ivanconfig::GetWarnAboutDanger()) {
1731 if (game::GetDangerFound() > 50.) game::AskForEscPress(CONST_S("You sense great danger!"));
1732 else game::AskForEscPress(CONST_S("You sense danger!"));
1733 }
1734 game::SetDangerFound(0);
1735 }
1736 game::SetIsInGetCommand(true);
1737 int Key = GET_KEY();
1738 game::SetIsInGetCommand(false);
1739 if (Key != '+' && Key != '-' && Key != 'M') msgsystem::ThyMessagesAreNowOld(); // gum
1740 truth ValidKeyPressed = false;
1741 //
1742 for (int c = 0; c < DIRECTION_COMMAND_KEYS; ++c) {
1743 if (Key == game::GetMoveCommandKey(c)) {
1744 HasActed = TryMove(ApplyStateModification(game::GetMoveVector(c)), true, game::PlayerIsRunning());
1745 ValidKeyPressed = true;
1746 }
1747 }
1748 //
1749 if (!ValidKeyPressed) {
1750 for (int c = 0; (cmd = commandsystem::GetCommand(c)); ++c) {
1751 /* k8 */
1752 /* Numpad aliases for most commonly used commands */
1753 if (Key == KEY_DEL && cmd->GetName() == "Eat") Key = cmd->GetKey();
1754 if (Key == KEY_INS && cmd->GetName() == "PickUp") Key = cmd->GetKey();
1755 if (Key == KEY_PLUS && cmd->GetName() == "EquipmentScreen") Key = cmd->GetKey();
1756 /* k8 */
1757 if (Key == cmd->GetKey()) {
1758 if (game::IsInWilderness() && !commandsystem::GetCommand(c)->IsUsableInWilderness()) {
1759 ADD_MESSAGE("This function cannot be used while in wilderness.");
1760 } else if (!game::WizardModeIsActive() && commandsystem::GetCommand(c)->IsWizardModeFunction()) {
1761 ADD_MESSAGE("Activate wizardmode to use this function.");
1762 } else {
1763 HasActed = commandsystem::GetCommand(c)->GetLinkedFunction()(this);
1764 }
1765 ValidKeyPressed = true;
1766 break;
1767 }
1768 }
1769 }
1770 if (!ValidKeyPressed) ADD_MESSAGE("Unknown key. Press '?' for a list of commands.");
1771 }
1772 game::IncreaseTurn();
1773 }
1774
1775
1776 void character::Vomit (v2 Pos, int Amount, truth ShowMsg) {
1777 if (!CanVomit()) return;
1778 if (ShowMsg) {
1779 if (IsPlayer()) ADD_MESSAGE("You vomit.");
1780 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s vomits.", CHAR_NAME(DEFINITE));
1781 }
1782 if (VomittingIsUnhealthy()) {
1783 EditExperience(ARM_STRENGTH, -75, 1 << 9);
1784 EditExperience(LEG_STRENGTH, -75, 1 << 9);
1785 }
1786 if (IsPlayer()) {
1787 EditNP(-2500-RAND()%2501);
1788 CheckStarvationDeath(CONST_S("vomited himself to death"));
1789 }
1790 if (StateIsActivated(PARASITIZED) && !(RAND() & 7)) {
1791 if (IsPlayer()) ADD_MESSAGE("You notice a dead broad tapeworm among your former stomach contents.");
1792 DeActivateTemporaryState(PARASITIZED);
1793 }
1794 if (!game::IsInWilderness()) {
1795 GetNearLSquare(Pos)->ReceiveVomit(this, liquid::Spawn(GetVomitMaterial(), sLong(sqrt(GetBodyVolume())*Amount/1000)));
1796 }
1797 }
1798
1799
1800 truth character::Polymorph (character *NewForm, int Counter) {
1801 if (!IsPolymorphable() || (!IsPlayer() && game::IsInWilderness())) {
1802 delete NewForm;
1803 return false;
1804 }
1805 RemoveTraps();
1806 if (GetAction()) GetAction()->Terminate(false);
1807 NewForm->SetAssignedName("");
1808 if (IsPlayer())
1809 ADD_MESSAGE("Your body glows in a crimson light. You transform into %s!", NewForm->CHAR_NAME(INDEFINITE));
1810 else if (CanBeSeenByPlayer())
1811 ADD_MESSAGE("%s glows in a crimson light and %s transforms into %s!", CHAR_NAME(DEFINITE), GetPersonalPronoun().CStr(), NewForm->CHAR_NAME(INDEFINITE));
1812
1813 Flags |= C_IN_NO_MSG_MODE;
1814 NewForm->Flags |= C_IN_NO_MSG_MODE;
1815 NewForm->ChangeTeam(GetTeam());
1816 NewForm->GenerationDanger = GenerationDanger;
1817 NewForm->mOnEvents = this->mOnEvents;
1818
1819 if (GetTeam()->GetLeader() == this) GetTeam()->SetLeader(NewForm);
1820
1821 v2 Pos = GetPos();
1822 Remove();
1823 NewForm->PutToOrNear(Pos);
1824 NewForm->SetAssignedName(GetAssignedName());
1825 NewForm->ActivateTemporaryState(POLYMORPHED);
1826 NewForm->SetTemporaryStateCounter(POLYMORPHED, Counter);
1827
1828 if (TemporaryStateIsActivated(POLYMORPHED)) {
1829 NewForm->SetPolymorphBackup(GetPolymorphBackup());
1830 SetPolymorphBackup(0);
1831 SendToHell();
1832 } else {
1833 NewForm->SetPolymorphBackup(this);
1834 Flags |= C_POLYMORPHED;
1835 Disable();
1836 }
1837
1838 GetStack()->MoveItemsTo(NewForm->GetStack());
1839 NewForm->SetMoney(GetMoney());
1840 DonateEquipmentTo(NewForm);
1841 Flags &= ~C_IN_NO_MSG_MODE;
1842 NewForm->Flags &= ~C_IN_NO_MSG_MODE;
1843 NewForm->CalculateAll();
1844
1845 if (IsPlayer()) {
1846 Flags &= ~C_PLAYER;
1847 game::SetPlayer(NewForm);
1848 game::SendLOSUpdateRequest();
1849 UpdateESPLOS();
1850 }
1851
1852 NewForm->TestWalkability();
1853 return true;
1854 }
1855
1856
1857 void character::BeKicked (character *Kicker, item *Boot, bodypart *Leg, v2 HitPos, double KickDamage,
1858 double ToHitValue, int Success, int Direction, truth Critical, truth ForceHit)
1859 {
1860 //FIXME: other args
1861 game::ClearEventData();
1862 game::mActor = Kicker;
1863 if (game::RunOnCharEvent(this, CONST_S("before_be_kicked"))) { game::ClearEventData(); return; }
1864 game::ClearEventData();
1865 game::mActor = 0;
1866 switch (TakeHit(Kicker, Boot, Leg, HitPos, KickDamage, ToHitValue, Success, KICK_ATTACK, Direction, Critical, ForceHit)) {
1867 case HAS_HIT:
1868 case HAS_BLOCKED:
1869 case DID_NO_DAMAGE:
1870 if (IsEnabled() && !CheckBalance(KickDamage)) {
1871 if (IsPlayer()) ADD_MESSAGE("The kick throws you off balance.");
1872 else if (Kicker->IsPlayer()) ADD_MESSAGE("The kick throws %s off balance.", CHAR_DESCRIPTION(DEFINITE));
1873 v2 FallToPos = GetPos()+game::GetMoveVector(Direction);
1874 FallTo(Kicker, FallToPos);
1875 }
1876 }
1877 }
1878
1879
1880 /* Return true if still in balance */
1881 truth character::CheckBalance (double KickDamage) {
1882 return !CanMove() || IsStuck() || !KickDamage || (!IsFlying() && KickDamage*5 < RAND()%GetSize());
1883 }
1884
1885
1886 void character::FallTo (character *GuiltyGuy, v2 Where) {
1887 EditAP(-500);
1888 lsquare *MoveToSquare[MAX_SQUARES_UNDER];
1889 int Squares = CalculateNewSquaresUnder(MoveToSquare, Where);
1890 if (Squares) {
1891 truth NoRoom = false;
1892 for (int c = 0; c < Squares; ++c) {
1893 olterrain *Terrain = MoveToSquare[c]->GetOLTerrain();
1894 if (Terrain && !CanMoveOn(Terrain)) { NoRoom = true; break; }
1895 }
1896 if (NoRoom) {
1897 if (HasHead()) {
1898 if (IsPlayer()) ADD_MESSAGE("You hit your head on the wall.");
1899 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s hits %s head on the wall.", CHAR_NAME(DEFINITE), GetPossessivePronoun().CStr());
1900 }
1901 ReceiveDamage(GuiltyGuy, 1+RAND()%5, PHYSICAL_DAMAGE, HEAD);
1902 CheckDeath(CONST_S("killed by hitting a wall due to being kicked @bk"), GuiltyGuy);
1903 } else {
1904 if (IsFreeForMe(MoveToSquare[0])) Move(Where, true);
1905 // Place code that handles characters bouncing to each other here
1906 }
1907 }
1908 }
1909
1910
1911 truth character::CheckCannibalism (cmaterial *What) const {
1912 return GetTorso()->GetMainMaterial()->IsSameAs(What);
1913 }
1914
1915
1916 void character::StandIdleAI () {
1917 SeekLeader(GetLeader());
1918 if (CheckForEnemies(true, true, true)) return;
1919 if (CheckForUsefulItemsOnGround()) return;
1920 if (FollowLeader(GetLeader())) return;
1921 if (CheckForDoors()) return;
1922 if (MoveTowardsHomePos()) return;
1923 if (CheckSadism()) return;
1924 EditAP(-1000);
1925 }
1926
1927
1928 truth character::LoseConsciousness (int Counter, truth HungerFaint) {
1929 if (!AllowUnconsciousness()) return false;
1930 action *Action = GetAction();
1931 if (Action) {
1932 if (HungerFaint && !Action->AllowUnconsciousness()) return false;
1933 if (Action->IsUnconsciousness()) {
1934 static_cast<unconsciousness *>(Action)->RaiseCounterTo(Counter);
1935 return true;
1936 }
1937 Action->Terminate(false);
1938 }
1939 if (IsPlayer()) ADD_MESSAGE("You lose consciousness.");
1940 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s loses consciousness.", CHAR_NAME(DEFINITE));
1941 unconsciousness *Unconsciousness = unconsciousness::Spawn(this);
1942 Unconsciousness->SetCounter(Counter);
1943 SetAction(Unconsciousness);
1944 return true;
1945 }
1946
1947
1948 void character::DeActivateVoluntaryAction (cfestring &Reason) {
1949 if (GetAction() && GetAction()->IsVoluntary()) {
1950 if (IsPlayer()) {
1951 if (Reason.GetSize()) ADD_MESSAGE("%s", Reason.CStr());
1952 if (game::TruthQuestion(CONST_S("Continue ") + GetAction()->GetDescription()+"? [y/N]")) GetAction()->ActivateInDNDMode();
1953 else GetAction()->Terminate(false);
1954 }
1955 else {
1956 GetAction()->Terminate(false);
1957 }
1958 }
1959 }
1960
1961
1962 void character::ActionAutoTermination () {
1963 if (!GetAction() || !GetAction()->IsVoluntary() || GetAction()->InDNDMode()) return;
1964 v2 Pos = GetPos();
1965 for (int c = 0; c < game::GetTeams(); ++c) {
1966 if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) {
1967 for (std::list<character *>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i) {
1968 character *ch = *i;
1969 if (ch->IsEnabled() && ch->CanBeSeenBy(this, false, true) && (ch->CanMove() || ch->GetPos().IsAdjacent(Pos)) && ch->CanAttack()) {
1970 if (IsPlayer()) {
1971 ADD_MESSAGE("%s seems to be hostile.", ch->CHAR_NAME(DEFINITE));
1972 if (game::TruthQuestion(CONST_S("Continue ")+GetAction()->GetDescription()+"? [y/N]")) GetAction()->ActivateInDNDMode();
1973 else GetAction()->Terminate(false);
1974 } else {
1975 GetAction()->Terminate(false);
1976 }
1977 return;
1978 }
1979 }
1980 }
1981 }
1982 }
1983
1984
1985 truth character::CheckForEnemies (truth CheckDoors, truth CheckGround, truth MayMoveRandomly, truth RunTowardsTarget) {
1986 if (!IsEnabled()) return false;
1987 truth HostileCharsNear = false;
1988 character *NearestChar = 0;
1989 sLong NearestDistance = 0x7FFFFFFF;
1990 v2 Pos = GetPos();
1991 for (int c = 0; c < game::GetTeams(); ++c) {
1992 if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) {
1993 for (std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i) {
1994 character *ch = *i;
1995 if (ch->IsEnabled() && GetAttribute(WISDOM) < ch->GetAttackWisdomLimit()) {
1996 sLong ThisDistance = Max<sLong>(abs(ch->GetPos().X - Pos.X), abs(ch->GetPos().Y - Pos.Y));
1997 if (ThisDistance <= GetLOSRangeSquare()) HostileCharsNear = true;
1998 if ((ThisDistance < NearestDistance || (ThisDistance == NearestDistance && !(RAND() % 3))) &&
1999 ch->CanBeSeenBy(this, false, IsGoingSomeWhere()) &&
2000 (!IsGoingSomeWhere() || HasClearRouteTo(ch->GetPos()))) {
2001 NearestChar = ch;
2002 NearestDistance = ThisDistance;
2003 }
2004 }
2005 }
2006 }
2007 }
2008
2009 if (NearestChar) {
2010 if (GetAttribute(INTELLIGENCE) >= 10 || IsSpy()) game::CallForAttention(GetPos(), 100);
2011 if (SpecialEnemySightedReaction(NearestChar)) return true;
2012 if (IsExtraCoward() && !StateIsActivated(PANIC) && NearestChar->GetRelativeDanger(this) >= 0.5) {
2013 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s sees %s.", CHAR_NAME(DEFINITE), NearestChar->CHAR_DESCRIPTION(DEFINITE));
2014 BeginTemporaryState(PANIC, 500+RAND()%500);
2015 }
2016 if (!IsRetreating()) {
2017 if (CheckGround && NearestDistance > 2 && CheckForUsefulItemsOnGround(false)) return true;
2018 SetGoingTo(NearestChar->GetPos());
2019 } else {
2020 SetGoingTo(Pos-((NearestChar->GetPos()-Pos)<<4));
2021 }
2022 return MoveTowardsTarget(true);
2023 } else {
2024 character *Leader = GetLeader();
2025 if (Leader == this) Leader = 0;
2026 if (!Leader && IsGoingSomeWhere()) {
2027 if (!MoveTowardsTarget(RunTowardsTarget)) {
2028 TerminateGoingTo();
2029 return false;
2030 } else {
2031 if (!IsEnabled()) return true;
2032 if (GetPos() == GoingTo) TerminateGoingTo();
2033 return true;
2034 }
2035 } else {
2036 if ((!Leader || (Leader && !IsGoingSomeWhere())) && HostileCharsNear) {
2037 if (CheckDoors && CheckForDoors()) return true;
2038 if (CheckGround && CheckForUsefulItemsOnGround()) return true;
2039 if (MayMoveRandomly && MoveRandomly()) return true; // one has heard that an enemy is near but doesn't know where
2040 }
2041 return false;
2042 }
2043 }
2044 }
2045
2046
2047 truth character::CheckForDoors () {
2048 if (!CanOpen() || !IsEnabled()) return false;
2049 for (int d = 0; d < GetNeighbourSquares(); ++d) {
2050 lsquare *Square = GetNeighbourLSquare(d);
2051 if (Square && Square->GetOLTerrain() && Square->GetOLTerrain()->Open(this)) return true;
2052 }
2053 return false;
2054 }
2055
2056
2057 truth character::CheckForUsefulItemsOnGround (truth CheckFood) {
2058 if (StateIsActivated(PANIC) || !IsEnabled()) return false;
2059 itemvector ItemVector;
2060 GetStackUnder()->FillItemVector(ItemVector);
2061 for (uInt c = 0; c < ItemVector.size(); ++c) {
2062 if (ItemVector[c]->CanBeSeenBy(this) && ItemVector[c]->IsPickable(this)) {
2063 if (!(CommandFlags & DONT_CHANGE_EQUIPMENT) && TryToEquip(ItemVector[c])) return true;
2064 if (CheckFood && UsesNutrition() && !CheckIfSatiated() && TryToConsume(ItemVector[c])) return true;
2065 if (IsRangedAttacker() && (ItemVector[c])->GetThrowItemTypes() && TryToAddToInventory(ItemVector[c])) return true;
2066 }
2067 }
2068 return false;
2069 }
2070
2071
2072 truth character::TryToAddToInventory (item *Item) {
2073 if (!(GetBurdenState() > STRESSED) || !CanUseEquipment() || Item->GetSquaresUnder() != 1) return false;
2074 room *Room = GetRoom();
2075 if (!Room || Room->PickupItem(this, Item, 1)) {
2076 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s picks up %s from the ground.", CHAR_NAME(DEFINITE), Item->CHAR_NAME(INDEFINITE));
2077 Item->MoveTo(GetStack());
2078 DexterityAction(5);
2079 return true;
2080 }
2081 return false;
2082 }
2083
2084
2085 truth character::CheckInventoryForItemToThrow (item *ToBeChecked) {
2086 return (ToBeChecked->GetThrowItemTypes() & GetWhatThrowItemTypesToThrow()) ? true : false; //hehe
2087 }
2088
2089
2090 truth character::CheckThrowItemOpportunity () {
2091 if (!IsRangedAttacker() || !CanThrow() || !IsHumanoid() || !IsSmall() || !IsEnabled()) return false; // total gum
2092 //fprintf(stderr, "character::CheckThrowItemOpportunity...\n");
2093 // Steps:
2094 // (1) - Acquire target as nearest enemy
2095 // (2) - Check that this enemy is in range, and is in appropriate direction; no friendly fire!
2096 // (3) - check inventory for throwing weapon, select this weapon
2097 // (4) - throw item in direction where the enemy is
2098 //
2099 //Check the visible area for hostiles
2100 int ThrowDirection = 0;
2101 int TargetFound = 0;
2102 v2 Pos = GetPos();
2103 v2 TestPos;
2104 int RangeMax = GetLOSRange();
2105 int CandidateDirections[7] = {0, 0, 0, 0, 0, 0, 0};
2106 int HostileFound = 0;
2107 item *ToBeThrown = 0;
2108 level *Level = GetLevel();
2109 //
2110 for (int r = 1; r <= RangeMax; ++r) {
2111 for (int dir = 0; dir < 8; ++dir) {
2112 //
2113 switch (dir) {
2114 case 0: TestPos = v2(Pos.X-r, Pos.Y-r); break;
2115 case 1: TestPos = v2(Pos.X, Pos.Y-r); break;
2116 case 2: TestPos = v2(Pos.X+r, Pos.Y-r); break;
2117 case 3: TestPos = v2(Pos.X-r, Pos.Y); break;
2118 case 4: TestPos = v2(Pos.X+r, Pos.Y); break;
2119 case 5: TestPos = v2(Pos.X-r, Pos.Y+r); break;
2120 case 6: TestPos = v2(Pos.X, Pos.Y+r); break;
2121 case 7: TestPos = v2(Pos.X+r, Pos.Y+r); break;
2122 }
2123 if (Level->IsValidPos(TestPos)) {
2124 square *TestSquare = GetNearSquare(TestPos);
2125 character *Dude = TestSquare->GetCharacter();
2126 //
2127 if (Dude && Dude->IsEnabled() && Dude->CanBeSeenBy(this, false, true)) {
2128 if (GetRelation(Dude) != HOSTILE) CandidateDirections[dir] = BLOCKED;
2129 else if (GetRelation(Dude) == HOSTILE && CandidateDirections[dir] != BLOCKED) {
2130 //then load this candidate position direction into the vector of possible throw directions
2131 CandidateDirections[dir] = SUCCESS;
2132 HostileFound = 1;
2133 }
2134 }
2135 }
2136 }
2137 }
2138 //
2139 if (HostileFound) {
2140 for (int dir = 0; dir < 8; ++dir) {
2141 if (CandidateDirections[dir] == SUCCESS && !TargetFound) {
2142 ThrowDirection = dir;
2143 TargetFound = 1;
2144 break;
2145 }
2146 }
2147 if (!TargetFound) return false;
2148 } else {
2149 return false;
2150 }
2151 //fprintf(stderr, "throw: has target.\n");
2152 // check inventory for throwing weapon
2153 itemvector ItemVector;
2154 GetStack()->FillItemVector(ItemVector);
2155 for (uInt c = 0; c < ItemVector.size(); ++c) {
2156 if (ItemVector[c]->IsThrowingWeapon()) {
2157 ToBeThrown = ItemVector[c];
2158 break;
2159 }
2160 }
2161 if (!ToBeThrown) return false;
2162 //fprintf(stderr, "throw: has throwing weapon.\n");
2163 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s throws %s.", CHAR_NAME(DEFINITE), ToBeThrown->CHAR_NAME(INDEFINITE));
2164 ThrowItem(ThrowDirection, ToBeThrown);
2165 EditExperience(ARM_STRENGTH, 75, 1<<8);
2166 EditExperience(DEXTERITY, 75, 1<<8);
2167 EditExperience(PERCEPTION, 75, 1<<8);
2168 EditNP(-50);
2169 DexterityAction(5);
2170 TerminateGoingTo();
2171 return true;
2172 }
2173
2174
2175 truth character::CheckAIZapOpportunity () {
2176 if (/*!IsRangedAttacker() || */ !CanZap() || !IsHumanoid() || !IsSmall() || !IsEnabled()) return false; // total gum
2177 // Steps:
2178 // (1) - Acquire target as nearest enemy
2179 // (2) - Check that this enemy is in range, and is in appropriate direction; no friendly fire!
2180 // (3) - check inventory for zappable item
2181 // (4) - zap item in direction where the enemy is
2182 //Check the rest of the visible area for hostiles
2183 v2 Pos = GetPos();
2184 v2 TestPos;
2185 int SensibleRange = 5;
2186 int RangeMax = GetLOSRange();
2187 if (RangeMax < SensibleRange) SensibleRange = RangeMax;
2188 int CandidateDirections[7] = {0, 0, 0, 0, 0, 0, 0};
2189 int HostileFound = 0;
2190 int ZapDirection = 0;
2191 int TargetFound = 0;
2192 item *ToBeZapped = 0;
2193 level *Level = GetLevel();
2194 //
2195 for (int r = 2; r <= SensibleRange; ++r) {
2196 for (int dir = 0; dir < 8; ++dir) {
2197 switch (dir) {
2198 case 0: TestPos = v2(Pos.X-r, Pos.Y-r); break;
2199 case 1: TestPos = v2(Pos.X, Pos.Y-r); break;
2200 case 2: TestPos = v2(Pos.X+r, Pos.Y-r); break;
2201 case 3: TestPos = v2(Pos.X-r, Pos.Y); break;
2202 case 4: TestPos = v2(Pos.X+r, Pos.Y); break;
2203 case 5: TestPos = v2(Pos.X-r, Pos.Y+r); break;
2204 case 6: TestPos = v2(Pos.X, Pos.Y+r); break;
2205 case 7: TestPos = v2(Pos.X+r, Pos.Y+r); break;
2206 }
2207 if (Level->IsValidPos(TestPos)) {
2208 square *TestSquare = GetNearSquare(TestPos);
2209 character *Dude = TestSquare->GetCharacter();
2210 //
2211 if (Dude && Dude->IsEnabled() && Dude->CanBeSeenBy(this, false, true)) {
2212 if (GetRelation(Dude) != HOSTILE) CandidateDirections[dir] = BLOCKED;
2213 else if (GetRelation(Dude) == HOSTILE && CandidateDirections[dir] != BLOCKED) {
2214 //then load this candidate position direction into the vector of possible zap directions
2215 CandidateDirections[dir] = SUCCESS;
2216 HostileFound = 1;
2217 }
2218 }
2219 }
2220 }
2221 }
2222
2223 if (HostileFound) {
2224 for (int dir = 0; dir < 8; ++dir) {
2225 if (CandidateDirections[dir] == SUCCESS && !TargetFound) {
2226 ZapDirection = dir;
2227 TargetFound = 1;
2228 break;
2229 }
2230 }
2231 if (!TargetFound) return false;
2232 } else {
2233 return false;
2234 }
2235 // check inventory for zappable item
2236 itemvector ItemVector;
2237 GetStack()->FillItemVector(ItemVector);
2238 for (unsigned int c = 0; c < ItemVector.size(); ++c) {
2239 if (ItemVector[c]->GetMinCharges() > 0 && ItemVector[c]->GetPrice()) {
2240 // bald-faced gum solution for choosing zappables that have shots left.
2241 // MinCharges needs to be replaced. Empty wands have zero price!
2242 ToBeZapped = ItemVector[c];
2243 break;
2244 }
2245 }
2246 if (!ToBeZapped) return false;
2247 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s zaps %s.", CHAR_NAME(DEFINITE), ToBeZapped->CHAR_NAME(INDEFINITE));
2248 if (ToBeZapped->Zap(this, GetPos(), ZapDirection)) {
2249 EditAP(-100000/APBonus(GetAttribute(PERCEPTION)));
2250 return true;
2251 } else {
2252 return false;
2253 }
2254 TerminateGoingTo();
2255 return true;
2256 }
2257
2258
2259 truth character::FollowLeader (character *Leader) {
2260 if (!Leader || Leader == this || !IsEnabled()) return false;
2261 if (CommandFlags & FOLLOW_LEADER && Leader->CanBeSeenBy(this) && Leader->SquareUnderCanBeSeenBy(this, true)) {
2262 v2 Distance = GetPos()-GoingTo;
2263 if (abs(Distance.X) <= 2 && abs(Distance.Y) <= 2) return false;
2264 return MoveTowardsTarget(false);
2265 }
2266 if (IsGoingSomeWhere()) {
2267 if (!MoveTowardsTarget(true)) {
2268 TerminateGoingTo();
2269 return false;
2270 }
2271 return true;
2272 }
2273 return false;
2274 }
2275
2276
2277 void character::SeekLeader (ccharacter *Leader) {
2278 if (Leader && Leader != this) {
2279 if (Leader->CanBeSeenBy(this) && (Leader->SquareUnderCanBeSeenBy(this, true) || !IsGoingSomeWhere())) {
2280 if (CommandFlags & FOLLOW_LEADER) SetGoingTo(Leader->GetPos());
2281 } else if (!IsGoingSomeWhere()) {
2282 team *Team = GetTeam();
2283 for (std::list<character *>::const_iterator i = Team->GetMember().begin(); i != Team->GetMember().end(); ++i) {
2284 character *ch = *i;
2285 if (ch->IsEnabled() && ch->GetID() != GetID() &&
2286 (CommandFlags & FOLLOW_LEADER) == (ch->CommandFlags & FOLLOW_LEADER) && ch->CanBeSeenBy(this)) {
2287 v2 Pos = ch->GetPos();
2288 v2 Distance = GetPos()-Pos;
2289 if (abs(Distance.X) > 2 && abs(Distance.Y) > 2) {
2290 SetGoingTo(Pos);
2291 break;
2292 }
2293 }
2294 }
2295 }
2296 }
2297 }
2298
2299
2300 int character::GetMoveEase () const {
2301 switch (BurdenState) {
2302 case OVER_LOADED:
2303 case STRESSED: return 50;
2304 case BURDENED: return 75;
2305 case UNBURDENED: return 100;
2306 }
2307 return 666;
2308 }
2309
2310
2311 int character::GetLOSRange () const {
2312 if (!game::IsInWilderness()) return GetAttribute(PERCEPTION)*GetLevel()->GetLOSModifier()/48;
2313 return 3;
2314 }
2315
2316
2317 truth character::Displace (character *Who, truth Forced) {
2318 if (GetBurdenState() == OVER_LOADED) {
2319 if (IsPlayer()) {
2320 cchar *CrawlVerb = StateIsActivated(LEVITATION) ? "float" : "crawl";
2321 ADD_MESSAGE("You try very hard to %s forward. But your load is too heavy.", CrawlVerb);
2322 EditAP(-1000);
2323 return true;
2324 }
2325 return false;
2326 }
2327
2328 double Danger = GetRelativeDanger(Who);
2329 int PriorityDifference = Limit(GetDisplacePriority()-Who->GetDisplacePriority(), -31, 31);
2330
2331 if (IsPlayer()) ++PriorityDifference;
2332 else if (Who->IsPlayer()) --PriorityDifference;
2333
2334 if (PriorityDifference >= 0) Danger *= 1 << PriorityDifference;
2335 else Danger /= 1 << -PriorityDifference;
2336
2337 if (IsSmall() && Who->IsSmall() &&
2338 (Forced || Danger > 1.0 || !(Who->IsPlayer() || Who->IsBadPath(GetPos()))) &&
2339 !IsStuck() && !Who->IsStuck() && (!Who->GetAction() || Who->GetAction()->TryDisplace()) &&
2340 CanMove() && Who->CanMove() && Who->CanMoveOn(GetLSquareUnder())) {
2341 if (IsPlayer()) ADD_MESSAGE("You displace %s!", Who->CHAR_DESCRIPTION(DEFINITE));
2342 else if (Who->IsPlayer()) ADD_MESSAGE("%s displaces you!", CHAR_DESCRIPTION(DEFINITE));
2343 else if (CanBeSeenByPlayer() || Who->CanBeSeenByPlayer()) ADD_MESSAGE("%s displaces %s!", CHAR_DESCRIPTION(DEFINITE), Who->CHAR_DESCRIPTION(DEFINITE));
2344 lsquare *OldSquareUnder1[MAX_SQUARES_UNDER];
2345 lsquare *OldSquareUnder2[MAX_SQUARES_UNDER];
2346 for (int c = 0; c < GetSquaresUnder(); ++c) OldSquareUnder1[c] = GetLSquareUnder(c);
2347 for (int c = 0; c < Who->GetSquaresUnder(); ++c) OldSquareUnder2[c] = Who->GetLSquareUnder(c);
2348 v2 Pos = GetPos();
2349 v2 WhoPos = Who->GetPos();
2350 Remove();
2351 Who->Remove();
2352 PutTo(WhoPos);
2353 Who->PutTo(Pos);
2354 EditAP(-GetMoveAPRequirement(GetSquareUnder()->GetEntryDifficulty()) - 500);
2355 EditNP(-12*GetSquareUnder()->GetEntryDifficulty());
2356 EditExperience(AGILITY, 75, GetSquareUnder()->GetEntryDifficulty() << 7);
2357 if (IsPlayer()) ShowNewPosInfo();
2358 if (Who->IsPlayer()) Who->ShowNewPosInfo();
2359 SignalStepFrom(OldSquareUnder1);
2360 Who->SignalStepFrom(OldSquareUnder2);
2361 return true;
2362 } else {
2363 if (IsPlayer()) {
2364 ADD_MESSAGE("%s resists!", Who->CHAR_DESCRIPTION(DEFINITE));
2365 EditAP(-1000);
2366 return true;
2367 }
2368 return false;
2369 }
2370 }
2371
2372
2373 void character::SetNP (sLong What) {
2374 int OldState = GetHungerState();
2375 NP = What;
2376 if (IsPlayer()) {
2377 int NewState = GetHungerState();
2378 if (NewState == STARVING && OldState > STARVING) DeActivateVoluntaryAction(CONST_S("You are getting really hungry."));
2379 else if (NewState == VERY_HUNGRY && OldState > VERY_HUNGRY) DeActivateVoluntaryAction(CONST_S("You are getting very hungry."));
2380 else if (NewState == HUNGRY && OldState > HUNGRY) DeActivateVoluntaryAction(CONST_S("You are getting hungry."));
2381 }
2382 }
2383
2384
2385 void character::ShowNewPosInfo () const {
2386 msgsystem::EnterBigMessageMode();
2387 v2 Pos = GetPos();
2388
2389 if (ivanconfig::GetAutoCenterMap()) {
2390 game::UpdateCameraX();
2391 game::UpdateCameraY();
2392 } else {
2393 if (Pos.X < game::GetCamera().X+3 || Pos.X >= game::GetCamera().X+game::GetScreenXSize()-3) game::UpdateCameraX();
2394 if (Pos.Y < game::GetCamera().Y+3 || Pos.Y >= game::GetCamera().Y+game::GetScreenYSize()-3) game::UpdateCameraY();
2395 }
2396
2397 game::SendLOSUpdateRequest();
2398 game::DrawEverythingNoBlit();
2399 UpdateESPLOS();
2400
2401 if (!game::IsInWilderness()) {
2402 if (GetLSquareUnder()->IsDark() && !game::GetSeeWholeMapCheatMode()) ADD_MESSAGE("It's dark in here!");
2403
2404 GetLSquareUnder()->ShowSmokeMessage();
2405 itemvectorvector PileVector;
2406 GetStackUnder()->Pile(PileVector, this, CENTER);
2407
2408 if (PileVector.size()) {
2409 truth Feel = !GetLSquareUnder()->IsTransparent() || GetLSquareUnder()->IsDark();
2410 if (PileVector.size() == 1) {
2411 if (Feel) ADD_MESSAGE("You feel %s lying here.", PileVector[0][0]->GetName(INDEFINITE, PileVector[0].size()).CStr());
2412 else ADD_MESSAGE("%s %s lying here.", PileVector[0][0]->GetName(INDEFINITE, PileVector[0].size()).CStr(), PileVector[0].size() == 1 ? "is" : "are");
2413 } else {
2414 int Items = 0;
2415 for (uInt c = 0; c < PileVector.size(); ++c) {
2416 if ((Items += PileVector[c].size()) > 3) break;
2417 }
2418 if (Items > 3) {
2419 if (Feel) ADD_MESSAGE("You feel several items lying here.");
2420 else ADD_MESSAGE("Several items are lying here.");
2421 } else if (Items) {
2422 if (Feel) ADD_MESSAGE("You feel a few items lying here.");
2423 else ADD_MESSAGE("A few items are lying here.");
2424 }
2425 }
2426 }
2427
2428 festring SideItems;
2429 GetLSquareUnder()->GetSideItemDescription(SideItems);
2430
2431 if (!SideItems.IsEmpty()) ADD_MESSAGE("There is %s.", SideItems.CStr());
2432
2433 if (GetLSquareUnder()->HasEngravings()) {
2434 if (CanRead()) ADD_MESSAGE("Something has been engraved here: \"%s\"", GetLSquareUnder()->GetEngraved());
2435 else ADD_MESSAGE("Something has been engraved here.");
2436 }
2437 }
2438
2439 msgsystem::LeaveBigMessageMode();
2440 }
2441
2442
2443 void character::Hostility (character *Enemy) {
2444 if (Enemy == this || !Enemy || !Team || !Enemy->Team) return;
2445 if (Enemy->IsMasochist() && GetRelation(Enemy) == FRIEND) return;
2446 if (!IsAlly(Enemy)) {
2447 GetTeam()->Hostility(Enemy->GetTeam());
2448 } else if (IsPlayer() && !Enemy->IsPlayer()) {
2449 // I believe both may be players due to polymorph feature...
2450 if (Enemy->CanBeSeenByPlayer()) ADD_MESSAGE("%s becomes enraged.", Enemy->CHAR_NAME(DEFINITE));
2451 Enemy->ChangeTeam(game::GetTeam(BETRAYED_TEAM));
2452 }
2453 }
2454
2455
2456 stack *character::GetGiftStack () const {
2457 if (GetLSquareUnder()->GetRoomIndex() && !GetLSquareUnder()->GetRoom()->AllowDropGifts()) return GetStack();
2458 return GetStackUnder();
2459 }
2460
2461
2462 truth character::MoveRandomlyInRoom () {
2463 for (int c = 0; c < 10; ++c) {
2464 v2 ToTry = game::GetMoveVector(RAND()&7);
2465 if (GetLevel()->IsValidPos(GetPos()+ToTry)) {
2466 lsquare *Square = GetNearLSquare(GetPos()+ToTry);
2467 if (!Square->IsDangerous(this) && !Square->IsScary(this) &&
2468 (!Square->GetOLTerrain() || !Square->GetOLTerrain()->IsDoor()) &&
2469 TryMove(ToTry, false, false)) return true;
2470 }
2471 }
2472 return false;
2473 }
2474
2475
2476 truth character::IsPassableSquare (int x, int y) const {
2477 area *ca = GetSquareUnder()->GetArea();
2478 if (x < 0 || y < 0 || x >= ca->GetXSize() || y >= ca->GetYSize()) return false;
2479 lsquare *sq = static_cast<lsquare *>(ca->GetSquare(x, y));
2480 return sq && CanMoveOn(sq);
2481 }
2482
2483
2484 truth character::IsInCorridor () const { return IsInCorridor(GetPos().X, GetPos().Y); }
2485
2486 truth character::IsInCorridor (int x, int y) const {
2487 if (!IsPassableSquare(x, y-1) && !IsPassableSquare(x, y+1)) return true;
2488 if (!IsPassableSquare(x-1, y) && !IsPassableSquare(x+1, y)) return true;
2489 if (IsPassableSquare(x, y-1) && IsPassableSquare(x, y+1) &&
2490 (IsPassableSquare(x-1, y) || IsPassableSquare(x+1, y))) return false;
2491 if (IsPassableSquare(x-1, y) && IsPassableSquare(x+1, y) &&
2492 (IsPassableSquare(x, y-1) || IsPassableSquare(x, y+1))) return false;
2493 if (!IsPassableSquare(x-1, y-1) && !IsPassableSquare(x+1, y-1) &&
2494 !IsPassableSquare(x-1, y+1) && !IsPassableSquare(x+1, y+1)) return true;
2495 return false;
2496 }
2497
2498
2499 truth character::IsInCorridor (const v2 dir) const {
2500 v2 nxy = GetPos()+dir;
2501 return IsInCorridor(nxy.X, nxy.Y);
2502 }
2503
2504
2505 void character::GoOn (go *Go, truth FirstStep) {
2506 //fprintf(stderr, "corridor: %s\n", IsInCorridor() ? "tan" : "ona");
2507 if (FirstStep) Go->SetIsWalkingInOpen(!IsInCorridor());
2508
2509 v2 MoveVector = ApplyStateModification(game::GetMoveVector(Go->GetDirection()));
2510 lsquare *MoveToSquare[MAX_SQUARES_UNDER];
2511
2512 int Squares = CalculateNewSquaresUnder(MoveToSquare, GetPos()+MoveVector);
2513 if (!Squares || !CanMoveOn(MoveToSquare[0])) {
2514 Go->Terminate(false);
2515 return;
2516 }
2517
2518 if (!FirstStep && !Go->IsWalkingInOpen() && !IsInCorridor(MoveVector)) {
2519 Go->Terminate(false);
2520 return;
2521 }
2522
2523 uInt OldRoomIndex = GetLSquareUnder()->GetRoomIndex();
2524 uInt CurrentRoomIndex = MoveToSquare[0]->GetRoomIndex();
2525
2526 if ((OldRoomIndex && (CurrentRoomIndex != OldRoomIndex)) && !FirstStep) {
2527 Go->Terminate(false);
2528 return;
2529 }
2530
2531 for (int c = 0; c < Squares; ++c) {
2532 if ((MoveToSquare[c]->GetCharacter() && GetTeam() != MoveToSquare[c]->GetCharacter()->GetTeam()) || MoveToSquare[c]->IsDangerous(this)) {
2533 Go->Terminate(false);
2534 return;
2535 }
2536 }
2537
2538 /*
2539 0: up-left
2540 1: up
2541 2: up-right
2542 3: left
2543 4: right
2544 5: down-left
2545 6: down
2546 7: down-right
2547 8: stand still
2548 */
2549 static const int revDir[8] = { 7, 6, 5, 4, 3, 3, 1, 0 };
2550 static const bool orthoDir[8] = { false, true, false, true, true, false, true, false };
2551
2552 int OKDirectionsCounter = 0, gd = Go->GetDirection(), odc = 0;
2553 for (int d = 0; d < GetNeighbourSquares(); ++d) {
2554 lsquare *Square = GetNeighbourLSquare(d);
2555 if (Square && CanMoveOn(Square)) ++OKDirectionsCounter;
2556 }
2557
2558 int nDir = -1;
2559 if (orthoDir[gd] && !Go->IsWalkingInOpen()) {
2560 // check if there is dead end forward and we have only one turn
2561 v2 nxy = GetPos()+MoveVector;
2562 v2 nxyff = nxy+MoveVector;
2563 odc = 0;
2564 lsquare *sqf = static_cast<lsquare *>(GetSquareUnder()->GetArea()->GetSquare(nxy));
2565 lsquare *sqff = static_cast<lsquare *>(GetSquareUnder()->GetArea()->GetSquare(nxyff));
2566 if (sqf && CanMoveOn(sqf) && (!sqff || !CanMoveOn(sqff))) {
2567 // dead end found
2568 for (int d = 0; d < GetNeighbourSquares(); ++d) {
2569 if (d == gd || d == revDir[gd] || !orthoDir[d]) continue;
2570 v2 sqxy = nxy+game::GetMoveVector(d);
2571 lsquare *sq = static_cast<lsquare *>(GetSquareUnder()->GetArea()->GetSquare(sqxy));
2572 if (sq && CanMoveOn(sq)) {
2573 nDir = d;
2574 odc++;
2575 }
2576 }
2577 }
2578 //fprintf(stderr, "*: %d; nDir: %d\n", odc, nDir);
2579 }
2580
2581 bool doStop = false;
2582 if (!Go->IsWalkingInOpen()) {
2583 // in the corridor
2584 //fprintf(stderr, "dc: %d\n", OKDirectionsCounter);
2585 if (Go->prevWasTurn()) {
2586 Go->SetPrevWasTurn(false);
2587 } else if (odc == 1) {
2588 // if we will step on something, do it
2589 for (int d = 0; d < GetNeighbourSquares(); ++d) {
2590 lsquare *Square = GetNeighbourLSquare(d);
2591 if (Square && Square->GetStack()->HasSomethingFunny(this, ivanconfig::GetStopOnCorpses(), ivanconfig::GetStopOnSeenItems())) {
2592 //newDir = -1;
2593 doStop = true;
2594 break;
2595 }
2596 }
2597 // follow the turn; 3: back, forward and turn
2598 if (!doStop) {
2599 int newDir = -1;
2600 switch (nDir) {
2601 case 1: // up
2602 if (gd == 3) newDir = 0;
2603 else if (gd == 4) newDir = 2;
2604 break;
2605 case 3: // left
2606 if (gd == 1) newDir = 0;
2607 else if (gd == 6) newDir = 5;
2608 break;
2609 case 4: // right
2610 if (gd == 1) newDir = 2;
2611 else if (gd == 6) newDir = 7;
2612 break;
2613 case 6: // down
2614 if (gd == 3) newDir = 5;
2615 else if (gd == 4) newDir = 7;
2616 break;
2617 }
2618 //if (newDir < 0) ABORT("go error");
2619 if (newDir < 0) { Go->Terminate(false); return; }
2620 lsquare *Square = GetNeighbourLSquare(newDir);
2621 if (Square && CanMoveOn(Square)) {
2622 // fuckin' copypasta
2623 MoveVector = ApplyStateModification(game::GetMoveVector(newDir));
2624 int squares = CalculateNewSquaresUnder(MoveToSquare, GetPos()+MoveVector);
2625 if (squares) {
2626 for (int c = 0; c < squares; ++c) {
2627 if ((MoveToSquare[c]->GetCharacter() && GetTeam() != MoveToSquare[c]->GetCharacter()->GetTeam()) || MoveToSquare[c]->IsDangerous(this)) {
2628 newDir = -1;
2629 break;
2630 }
2631 }
2632 if (newDir != -1) {
2633 }
2634 } else {
2635 newDir = -1;
2636 }
2637 }
2638 if (newDir < 0) { Go->Terminate(false); return; }
2639 newDir = nDir;
2640 //fprintf(stderr, "newDir: %d\n", newDir);
2641 Go->SetDirection(newDir);
2642 Go->SetPrevWasTurn(true);
2643 v2 nxyf = GetPos()+MoveVector+game::GetMoveVector(newDir);
2644 v2 nxyff = nxyf+game::GetMoveVector(newDir);
2645 lsquare *sqf = static_cast<lsquare *>(GetSquareUnder()->GetArea()->GetSquare(nxyf));
2646 lsquare *sqff = static_cast<lsquare *>(GetSquareUnder()->GetArea()->GetSquare(nxyff));
2647 if (sqf && CanMoveOn(sqf)) {
2648 Go->SetPrevWasTurn(sqff && CanMoveOn(sqff));
2649 }
2650 }
2651 } else if (!IsInCorridor()) {
2652 Go->Terminate(false);
2653 return;
2654 }
2655 } else {
2656 Go->SetPrevWasTurn(false);
2657 //if (OKDirectionsCounter <= 2) Go->SetIsWalkingInOpen(false);
2658 Go->SetIsWalkingInOpen(!IsInCorridor());
2659 }
2660
2661 square *BeginSquare = GetSquareUnder();
2662
2663 if (!doStop) {
2664 for (int c = 0; c < Squares; ++c) {
2665 if (MoveToSquare[c]->GetStack()->HasSomethingFunny(this, ivanconfig::GetStopOnCorpses(), ivanconfig::GetStopOnSeenItems())) {
2666 doStop = true;
2667 break;
2668 }
2669 }
2670 }
2671
2672 truth moveOk = TryMove(MoveVector, true, game::PlayerIsRunning());
2673 if (!moveOk || BeginSquare == GetSquareUnder() || (CurrentRoomIndex && (OldRoomIndex != CurrentRoomIndex))) {
2674 if (moveOk) {
2675 if (ivanconfig::GetGoingDelay()) DELAY(ivanconfig::GetGoingDelay());
2676 game::DrawEverything();
2677 }
2678 Go->Terminate(false);
2679 return;
2680 }
2681
2682 if (doStop/* || GetStackUnder()->HasSomethingFunny(this, ivanconfig::GetStopOnCorpses(), ivanconfig::GetStopOnSeenItems())*/) {
2683 Go->Terminate(false);
2684 }
2685 if (ivanconfig::GetGoingDelay()) DELAY(ivanconfig::GetGoingDelay());
2686
2687 game::DrawEverything();
2688 }
2689
2690
2691 void character::SetTeam (team *What) {
2692 /*k8 if(Team) int esko = esko = 2; */
2693 Team = What;
2694 SetTeamIterator(What->Add(this));
2695 }
2696
2697
2698 void character::ChangeTeam (team *What) {
2699 if (Team) Team->Remove(GetTeamIterator());
2700 Team = What;
2701 SendNewDrawRequest();
2702 if (Team) SetTeamIterator(Team->Add(this));
2703 }
2704
2705
2706 truth character::ChangeRandomAttribute (int HowMuch) {
2707 for (int c = 0; c < 50; ++c) {
2708 int AttribID = RAND()%ATTRIBUTES;
2709 if (EditAttribute(AttribID, HowMuch)) return true;
2710 }
2711 return false;
2712 }
2713
2714
2715 int character::RandomizeReply (sLong &Said, int Replies) {
2716 truth NotSaid = false;
2717 for (int c = 0; c < Replies; ++c) {
2718 if (!(Said & (1 << c))) {
2719 NotSaid = true;
2720 break;
2721 }
2722 }
2723 if (!NotSaid) Said = 0;
2724 sLong ToSay;
2725 while (Said & 1 << (ToSay = RAND() % Replies));
2726 Said |= 1 << ToSay;
2727 return ToSay;
2728 }
2729
2730
2731 void character::DisplayInfo (festring &Msg) {
2732 if (IsPlayer()) {
2733 Msg << " You are " << GetStandVerb() << " here.";
2734 } else {
2735 Msg << ' ' << GetName(INDEFINITE).CapitalizeCopy() << " is " << GetStandVerb() << " here. " << GetPersonalPronoun().CapitalizeCopy();
2736 cchar *Separator1 = GetAction() ? "," : " and";
2737 cchar *Separator2 = " and";
2738 if (GetTeam() == PLAYER->GetTeam()) {
2739 Msg << " is tame";
2740 } else {
2741 int Relation = GetRelation(PLAYER);
2742 if (Relation == HOSTILE) Msg << " is hostile";
2743 else if (Relation == UNCARING) {
2744 Msg << " does not care about you";
2745 Separator1 = Separator2 = " and is";
2746 } else {
2747 Msg << " is friendly";
2748 }
2749 }
2750 if (StateIsActivated(PANIC)) {
2751 Msg << Separator1 << " panicked";
2752 Separator2 = " and";
2753 }
2754 if (GetAction()) Msg << Separator2 << ' ' << GetAction()->GetDescription();
2755 Msg << '.';
2756 }
2757 }
2758
2759
2760 void character::TestWalkability () {
2761 if (!IsEnabled()) return;
2762 square *SquareUnder = !game::IsInWilderness() ? GetSquareUnder() : PLAYER->GetSquareUnder();
2763 if (SquareUnder->IsFatalToStay() && !CanMoveOn(SquareUnder)) {
2764 truth Alive = false;
2765 if (!game::IsInWilderness() || IsPlayer()) {
2766 for (int d = 0; d < GetNeighbourSquares(); ++d) {
2767 square *Square = GetNeighbourSquare(d);
2768 if (Square && CanMoveOn(Square) && IsFreeForMe(Square)) {
2769 if (IsPlayer()) ADD_MESSAGE("%s.", SquareUnder->SurviveMessage(this));
2770 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s %s.", CHAR_NAME(DEFINITE), SquareUnder->MonsterSurviveMessage(this));
2771 Move(Square->GetPos(), true); // actually, this shouldn't be a teleport move
2772 SquareUnder->SurviveEffect(this);
2773 Alive = true;
2774 break;
2775 }
2776 }
2777 }
2778 if (!Alive) {
2779 if (IsPlayer()) {
2780 Remove();
2781 SendToHell();
2782 festring DeathMsg = festring(SquareUnder->DeathMessage(this));
2783 game::AskForEscPress(DeathMsg+".");
2784 festring Msg = SquareUnder->ScoreEntry(this);
2785 PLAYER->AddScoreEntry(Msg);
2786 game::End(Msg);
2787 } else {
2788 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s %s.", CHAR_NAME(DEFINITE), SquareUnder->MonsterDeathVerb(this));
2789 Die(0, SquareUnder->ScoreEntry(this), DISALLOW_MSG);
2790 }
2791 }
2792 }
2793 }
2794
2795
2796 int character::GetSize () const {
2797 return GetTorso()->GetSize();
2798 }
2799
2800
2801 void character::SetMainMaterial (material *NewMaterial, int SpecialFlags) {
2802 NewMaterial->SetVolume(GetBodyPart(0)->GetMainMaterial()->GetVolume());
2803 GetBodyPart(0)->SetMainMaterial(NewMaterial, SpecialFlags);
2804 for (int c = 1; c < BodyParts; ++c) {
2805 NewMaterial = NewMaterial->SpawnMore(GetBodyPart(c)->GetMainMaterial()->GetVolume());
2806 GetBodyPart(c)->SetMainMaterial(NewMaterial, SpecialFlags);
2807 }
2808 }
2809
2810
2811 void character::ChangeMainMaterial (material *NewMaterial, int SpecialFlags) {
2812 NewMaterial->SetVolume(GetBodyPart(0)->GetMainMaterial()->GetVolume());
2813 GetBodyPart(0)->ChangeMainMaterial(NewMaterial, SpecialFlags);
2814 for (int c = 1; c < BodyParts; ++c) {
2815 NewMaterial = NewMaterial->SpawnMore(GetBodyPart(c)->GetMainMaterial()->GetVolume());
2816 GetBodyPart(c)->ChangeMainMaterial(NewMaterial, SpecialFlags);
2817 }
2818 }
2819
2820
2821 void character::SetSecondaryMaterial (material *, int) {
2822 ABORT("Illegal character::SetSecondaryMaterial call!");
2823 }
2824
2825
2826 void character::ChangeSecondaryMaterial (material *, int) {
2827 ABORT("Illegal character::ChangeSecondaryMaterial call!");
2828 }
2829
2830
2831 void character::TeleportRandomly (truth Intentional) {
2832 v2 TelePos = ERROR_V2;
2833 if (StateIsActivated(TELEPORT_CONTROL)) {
2834 if (IsPlayer()) {
2835 v2 Input = game::PositionQuestion(CONST_S("Where do you wish to teleport? [direction keys move cursor, space accepts]"), GetPos(), &game::TeleportHandler, 0, false);
2836 if (Input == ERROR_V2) Input = GetPos(); // esc pressed
2837 lsquare *Square = GetNearLSquare(Input);
2838 if (CanMoveOn(Square) || game::GoThroughWallsCheatIsActive()) {
2839 if (Square->GetPos() == GetPos()) {
2840 ADD_MESSAGE("You disappear and reappear.");
2841 return;
2842 }
2843 if (IsFreeForMe(Square)) {
2844 if ((Input-GetPos()).GetLengthSquare() <= GetTeleportRangeSquare()) {
2845 EditExperience(INTELLIGENCE, 100, 1 << 10);
2846 TelePos = Input;
2847 } else {
2848 ADD_MESSAGE("You cannot concentrate yourself enough to control a teleport that far.");
2849 }
2850 } else {
2851 character *C = Square->GetCharacter();
2852 if (C) ADD_MESSAGE("For a moment you feel very much like %s.", C->CHAR_NAME(INDEFINITE));
2853 else ADD_MESSAGE("You feel that something weird has happened, but can't really tell what exactly.");
2854 }
2855 } else {
2856 ADD_MESSAGE("You feel like having been hit by something really hard from the inside.");
2857 }
2858 } else if (!Intentional) {
2859 if (IsGoingSomeWhere() && GetLevel()->IsValidPos(GoingTo)) {
2860 v2 Where = GetLevel()->GetNearestFreeSquare(this, GoingTo);
2861 if (Where != ERROR_V2 && (Where-GetPos()).GetLengthSquare() <= GetTeleportRangeSquare()) {
2862 EditExperience(INTELLIGENCE, 100, 1 << 10);
2863 Where = TelePos;
2864 }
2865 }
2866 }
2867 }
2868
2869 if (IsPlayer()) {
2870 ADD_MESSAGE("A rainbow-colored whirlpool twists the existence around you. You are sucked through a tunnel piercing a myriad of surreal universes. Luckily you return to this dimension in one piece.");
2871 }
2872
2873 //if (TelePos != ERROR_V2) Move(TelePos, true);
2874 //else Move(GetLevel()->GetRandomSquare(this), true);
2875 //if (!IsPlayer() && CanBeSeenByPlayer()) ADD_MESSAGE("%s appears.", CHAR_NAME(INDEFINITE));
2876 //if (GetAction() && GetAction()->IsVoluntary()) GetAction()->Terminate(false);
2877
2878 if (TelePos == ERROR_V2) TelePos = GetLevel()->GetRandomSquare(this);
2879 //
2880 room *PossibleRoom = game::GetCurrentLevel()->GetLSquare(TelePos)->GetRoom();
2881 //
2882 if (!PossibleRoom) {
2883 //if it's outside of a room
2884 if (TelePos != ERROR_V2) Move(TelePos, true);
2885 else Move(GetLevel()->GetRandomSquare(this), true);
2886 if (!IsPlayer() && CanBeSeenByPlayer()) ADD_MESSAGE("%s appears.", CHAR_NAME(INDEFINITE));
2887 if (GetAction() && GetAction()->IsVoluntary()) GetAction()->Terminate(false);
2888 } else if (PossibleRoom && PossibleRoom->IsOKToTeleportInto()) {
2889 // If it's inside of a room, check whether a ward is active that might impede the player
2890 if (TelePos != ERROR_V2) Move(TelePos, true);
2891 else Move(GetLevel()->GetRandomSquare(this), true);
2892 if (!IsPlayer() && CanBeSeenByPlayer()) ADD_MESSAGE("%s appears.", CHAR_NAME(INDEFINITE));
2893 if (GetAction() && GetAction()->IsVoluntary()) GetAction()->Terminate(false);
2894 } else {
2895 if (IsPlayer()){
2896 ADD_MESSAGE("A mighty force blasts you back to where you were standing. A ward prevents you from teleporting.");
2897 }
2898 game::GetCurrentLevel()->Explosion(this, CONST_S("killed by an explosion triggered when attempting to teleport into room protected by a ward"), PLAYER->GetPos(), 300 >> 3, false);
2899 /*
2900 beamdata Beam
2901 (
2902 this,
2903 CONST_S("killed by an explosion triggered when attempting to teleport into room protected by a ward"),
2904 YOURSELF,
2905 3 // or 0 ?
2906 );
2907 lsquare* Square = GetNearLSquare(GetPos());
2908 Square->DrawParticles(RED);
2909 Square->FireBall(Beam);*/
2910 }
2911 }
2912
2913
2914 void character::DoDetecting () {
2915 material *TempMaterial;
2916 //
2917 for (;;) {
2918 festring Temp = game::DefaultQuestion(CONST_S("What material do you want to detect?"), game::GetDefaultDetectMaterial());
2919 TempMaterial = protosystem::CreateMaterial(Temp);
2920 if (TempMaterial) break;
2921 game::DrawEverythingNoBlit();
2922 }
2923 //
2924 level *Level = GetLevel();
2925 int Squares = Level->DetectMaterial(TempMaterial);
2926 //
2927 if (Squares > GetAttribute(INTELLIGENCE) * (25+RAND()%51)) {
2928 ADD_MESSAGE("An enormous burst of geographical information overwhelms your consciousness. Your mind cannot cope with it and your memories blur.");
2929 Level->BlurMemory();
2930 BeginTemporaryState(CONFUSED, 1000 + RAND() % 1000);
2931 EditExperience(INTELLIGENCE, -100, 1 << 12);
2932 } else if (!Squares) {
2933 ADD_MESSAGE("You feel a sudden urge to imagine the dark void of a starless night sky.");
2934 EditExperience(INTELLIGENCE, 200, 1 << 12);
2935 } else {
2936 ADD_MESSAGE("You feel attracted to all things made of %s.", TempMaterial->GetName(false, false).CStr());
2937 game::PositionQuestion(CONST_S("Detecting material [direction keys move cursor, space exits]"), GetPos(), 0, 0, false);
2938 EditExperience(INTELLIGENCE, 300, 1 << 12);
2939 }
2940 //
2941 delete TempMaterial;
2942 Level->CalculateLuminances();
2943 game::SendLOSUpdateRequest();
2944 }
2945
2946
2947 void character::RestoreHP () {
2948 doforbodyparts()(this, &bodypart::FastRestoreHP);
2949 HP = MaxHP;
2950 }
2951
2952
2953 void character::RestoreLivingHP () {
2954 HP = 0;
2955 for (int c = 0; c < BodyParts; ++c) {
2956 bodypart *BodyPart = GetBodyPart(c);
2957 if (BodyPart && BodyPart->CanRegenerate()) {
2958 BodyPart->FastRestoreHP();
2959 HP += BodyPart->GetHP();
2960 }
2961 }
2962 }
2963
2964
2965 truth character::AllowDamageTypeBloodSpill (int Type) {
2966 switch (Type&0xFFF) {
2967 case PHYSICAL_DAMAGE:
2968 case SOUND:
2969 case ENERGY:
2970 return true;
2971 case ACID:
2972 case FIRE:
2973 case DRAIN:
2974 case POISON:
2975 case ELECTRICITY:
2976 case MUSTARD_GAS_DAMAGE:
2977 case PSI:
2978 return false;
2979 }
2980 ABORT("Unknown blood effect destroyed the dungeon!");
2981 return false;
2982 }
2983
2984
2985 /* Returns truly done damage */
2986 int character::ReceiveBodyPartDamage (character *Damager, int Damage, int Type, int BodyPartIndex,
2987 int Direction, truth PenetrateResistance, truth Critical, truth ShowNoDamageMsg, truth CaptureBodyPart)
2988 {
2989 bodypart *BodyPart = GetBodyPart(BodyPartIndex);
2990 if (!Damager || Damager->AttackMayDamageArmor()) BodyPart->DamageArmor(Damager, Damage, Type);
2991 if (!PenetrateResistance) {
2992 Damage -= (BodyPart->GetTotalResistance(Type)>>1)+RAND()%((BodyPart->GetTotalResistance(Type)>>1)+1);
2993 }
2994 if (int(Damage) < 1) {
2995 if (Critical) {
2996 Damage = 1;
2997 } else {
2998 if (ShowNoDamageMsg) {
2999 if (IsPlayer()) ADD_MESSAGE("You are not hurt.");
3000 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s is not hurt.", GetPersonalPronoun().CStr());
3001 }
3002 return 0;
3003 }
3004 }
3005
3006 if (Critical && AllowDamageTypeBloodSpill(Type) && !game::IsInWilderness()) {
3007 BodyPart->SpillBlood(2+(RAND()&1));
3008 for (int d = 0; d < GetNeighbourSquares(); ++d) {
3009 lsquare *Square = GetNeighbourLSquare(d);
3010 if (Square && Square->IsFlyable()) BodyPart->SpillBlood(1, Square->GetPos());
3011 }
3012 }
3013
3014 if (BodyPart->ReceiveDamage(Damager, Damage, Type, Direction) && BodyPartCanBeSevered(BodyPartIndex)) {
3015 if (DamageTypeDestroysBodyPart(Type)) {
3016 if (IsPlayer()) ADD_MESSAGE("Your %s is destroyed!", BodyPart->GetBodyPartName().CStr());
3017 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s %s is destroyed!", GetPossessivePronoun().CStr(), BodyPart->GetBodyPartName().CStr());
3018 GetBodyPart(BodyPartIndex)->DropEquipment();
3019 item *Severed = SevereBodyPart(BodyPartIndex);
3020 if (Severed) Severed->DestroyBodyPart(!game::IsInWilderness() ? GetStackUnder() : GetStack());
3021 SendNewDrawRequest();
3022 if (IsPlayer()) game::AskForEscPress(CONST_S("Bodypart destroyed!"));
3023 } else {
3024 if (IsPlayer()) ADD_MESSAGE("Your %s is severed off!", BodyPart->GetBodyPartName().CStr());
3025 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s %s is severed off!", GetPossessivePronoun().CStr(), BodyPart->GetBodyPartName().CStr());
3026 item *Severed = SevereBodyPart(BodyPartIndex);
3027 SendNewDrawRequest();
3028 if (Severed) {
3029 if (CaptureBodyPart) {
3030 Damager->GetLSquareUnder()->AddItem(Severed);
3031 } else if (!game::IsInWilderness()) {
3032 /** No multi-tile humanoid support! */
3033 GetStackUnder()->AddItem(Severed);
3034 if (Direction != YOURSELF) Severed->Fly(0, Direction, Damage);
3035 } else {
3036 GetStack()->AddItem(Severed);
3037 }
3038 Severed->DropEquipment();
3039 } else if (IsPlayer() || CanBeSeenByPlayer()) {
3040 ADD_MESSAGE("It vanishes.");
3041 }
3042 if (IsPlayer()) game::AskForEscPress(CONST_S("Bodypart severed!"));
3043 }
3044 if (CanPanicFromSeveredBodyPart() && RAND()%100 < GetPanicLevel() && !StateIsActivated(PANIC) && !IsDead()) {
3045 BeginTemporaryState(PANIC, 1000+RAND()%1001);
3046 }
3047 SpecialBodyPartSeverReaction();
3048 }
3049
3050 if (!IsDead()) CheckPanic(500);
3051
3052 return Damage;
3053 }
3054
3055
3056 /* Returns 0 if bodypart disappears */
3057 item *character::SevereBodyPart (int BodyPartIndex, truth ForceDisappearance, stack *EquipmentDropStack) {
3058 bodypart *BodyPart = GetBodyPart(BodyPartIndex);
3059 if (StateIsActivated(LEPROSY)) BodyPart->GetMainMaterial()->SetIsInfectedByLeprosy(true);
3060 if (ForceDisappearance || BodyPartsDisappearWhenSevered() || StateIsActivated(POLYMORPHED) || game::AllBodyPartsVanish()) {
3061 BodyPart->DropEquipment(EquipmentDropStack);
3062 BodyPart->RemoveFromSlot();
3063 CalculateAttributeBonuses();
3064 CalculateBattleInfo();
3065 BodyPart->SendToHell();
3066 SignalPossibleTransparencyChange();
3067 RemoveTraps(BodyPartIndex);
3068 return 0;
3069 }
3070 BodyPart->SetOwnerDescription("of " + GetName(INDEFINITE));
3071 BodyPart->SetIsUnique(LeftOversAreUnique());
3072 UpdateBodyPartPicture(BodyPartIndex, true);
3073 BodyPart->RemoveFromSlot();
3074 BodyPart->RandomizePosition();
3075 CalculateAttributeBonuses();
3076 CalculateBattleInfo();
3077 BodyPart->Enable();
3078 SignalPossibleTransparencyChange();
3079 RemoveTraps(BodyPartIndex);
3080 return BodyPart;
3081 }
3082
3083
3084 /* The second int is actually TargetFlags, which is not used here, but seems to be used in humanoid::ReceiveDamage.
3085 * Returns true if the character really receives damage */
3086 truth character::ReceiveDamage (character *Damager, int Damage, int Type, int, int Direction,
3087 truth, truth PenetrateArmor, truth Critical, truth ShowMsg)
3088 {
3089 truth Affected = ReceiveBodyPartDamage(Damager, Damage, Type, 0, Direction, PenetrateArmor, Critical, ShowMsg);
3090 if (DamageTypeAffectsInventory(Type)) {
3091 for (int c = 0; c < GetEquipments(); ++c) {
3092 item *Equipment = GetEquipment(c);
3093 if (Equipment) Equipment->ReceiveDamage(Damager, Damage, Type);
3094 }
3095 GetStack()->ReceiveDamage(Damager, Damage, Type);
3096 }
3097 return Affected;
3098 }
3099
3100
3101 festring character::GetDescription (int Case) const {
3102 if (IsPlayer()) return CONST_S("you");
3103 if (CanBeSeenByPlayer()) return GetName(Case);
3104 return CONST_S("something");
3105 }
3106
3107
3108 festring character::GetPersonalPronoun (truth PlayersView) const {
3109 if (IsPlayer() && PlayersView) return CONST_S("you");
3110 if (GetSex() == UNDEFINED || (PlayersView && !CanBeSeenByPlayer() && !game::GetSeeWholeMapCheatMode())) return CONST_S("it");
3111 if (GetSex() == MALE) return CONST_S("he");
3112 return CONST_S("she");
3113 }
3114
3115
3116 festring character::GetPossessivePronoun (truth PlayersView) const {
3117 if (IsPlayer() && PlayersView) return CONST_S("your");
3118 if (GetSex() == UNDEFINED || (PlayersView && !CanBeSeenByPlayer() && !game::GetSeeWholeMapCheatMode())) return CONST_S("its");
3119 if (GetSex() == MALE) return CONST_S("his");
3120 return CONST_S("her");
3121 }
3122
3123
3124 festring character::GetObjectPronoun (truth PlayersView) const {
3125 if (IsPlayer() && PlayersView) return CONST_S("you");
3126 if (GetSex() == UNDEFINED || (PlayersView && !CanBeSeenByPlayer() && !game::GetSeeWholeMapCheatMode())) return CONST_S("it");
3127 if (GetSex() == MALE) return CONST_S("him");
3128 return CONST_S("her");
3129 }
3130
3131
3132 void character::AddName (festring &String, int Case) const {
3133 if (AssignedName.IsEmpty()) {
3134 id::AddName(String, Case);
3135 } else if (!(Case & PLURAL)) {
3136 if (!ShowClassDescription()) {
3137 String << AssignedName;
3138 } else {
3139 String << AssignedName << ' ';
3140 id::AddName(String, (Case|ARTICLE_BIT)&~INDEFINE_BIT);
3141 }
3142 } else {
3143 id::AddName(String, Case);
3144 String << " named " << AssignedName;
3145 }
3146 }
3147
3148
3149 int character::GetHungerState () const {
3150 if (!UsesNutrition()) return NOT_HUNGRY;
3151 if (GetNP() > OVER_FED_LEVEL) return OVER_FED;
3152 if (GetNP() > BLOATED_LEVEL) return BLOATED;
3153 if (GetNP() > SATIATED_LEVEL) return SATIATED;
3154 if (GetNP() > NOT_HUNGER_LEVEL) return NOT_HUNGRY;
3155 if (GetNP() > HUNGER_LEVEL) return HUNGRY;
3156 if (GetNP() > VERY_HUNGER_LEVEL) return VERY_HUNGRY;
3157 return STARVING;
3158 }
3159
3160
3161 truth character::CanConsume (material *Material) const {
3162 return GetConsumeFlags() & Material->GetConsumeType();
3163 }
3164
3165
3166 void character::SetTemporaryStateCounter (sLong State, int What) {
3167 for (int c = 0; c < STATES; ++c) {
3168 if ((1 << c) & State) TemporaryStateCounter[c] = What;
3169 }
3170 }
3171
3172
3173 void character::EditTemporaryStateCounter (sLong State, int What) {
3174 for (int c = 0; c < STATES; ++c) {
3175 if ((1 << c) & State) TemporaryStateCounter[c] += What;
3176 }
3177 }
3178
3179
3180 int character::GetTemporaryStateCounter (sLong State) const {
3181 for (int c = 0; c < STATES; ++c) {
3182 if ((1 << c) & State) return TemporaryStateCounter[c];
3183 }
3184 ABORT("Illegal GetTemporaryStateCounter request!");
3185 return 0;
3186 }
3187
3188
3189 truth character::CheckKick () const {
3190 if (!CanKick()) {
3191 if (IsPlayer()) ADD_MESSAGE("This race can't kick.");
3192 return false;
3193 }
3194 return true;
3195 }
3196
3197
3198 int character::GetResistance (int Type) const {
3199 switch (Type&0xFFF) {
3200 case PHYSICAL_DAMAGE:
3201 case SOUND:
3202 case DRAIN:
3203 case MUSTARD_GAS_DAMAGE:
3204 case PSI:
3205 return 0;
3206 case ENERGY: return GetEnergyResistance();
3207 case FIRE: return GetFireResistance();
3208 case POISON: return GetPoisonResistance();
3209 case ELECTRICITY: return GetElectricityResistance();
3210 case ACID: return GetAcidResistance();
3211 }
3212 ABORT("Resistance lack detected!");
3213 return 0;
3214 }
3215
3216
3217 void character::Regenerate () {
3218 if (HP == MaxHP) return;
3219 sLong RegenerationBonus = 0;
3220 truth NoHealableBodyParts = true;
3221 for (int c = 0; c < BodyParts; ++c) {
3222 bodypart *BodyPart = GetBodyPart(c);
3223 if (BodyPart && BodyPart->CanRegenerate()) {
3224 RegenerationBonus += BodyPart->GetMaxHP();
3225 if (NoHealableBodyParts && BodyPart->GetHP() < BodyPart->GetMaxHP()) NoHealableBodyParts = false;
3226 }
3227 }
3228 if (!RegenerationBonus || NoHealableBodyParts) return;
3229 RegenerationBonus *= (50+GetAttribute(ENDURANCE));
3230
3231 if (Action && Action->IsRest()) {
3232 if (SquaresUnder == 1) RegenerationBonus *= GetSquareUnder()->GetRestModifier() << 1;
3233 else {
3234 int Lowest = GetSquareUnder(0)->GetRestModifier();
3235 for (int c = 1; c < GetSquaresUnder(); ++c) {
3236 int Mod = GetSquareUnder(c)->GetRestModifier();
3237 if (Mod < Lowest) Lowest = Mod;
3238 }
3239 RegenerationBonus *= Lowest << 1;
3240 }
3241 }
3242
3243 RegenerationCounter += RegenerationBonus;
3244
3245 while (RegenerationCounter > 1250000) {
3246 bodypart *BodyPart = HealHitPoint();
3247 if (!BodyPart) break;
3248 EditNP(-Max(7500/MaxHP, 1));
3249 RegenerationCounter -= 1250000;
3250 int HP = BodyPart->GetHP();
3251 EditExperience(ENDURANCE, Min(1000*BodyPart->GetMaxHP()/(HP*HP), 300), 1000);
3252 }
3253 }
3254
3255
3256 void character::PrintInfo () const {
3257 felist Info(CONST_S("Information about ")+GetName(DEFINITE));
3258 for (int c = 0; c < GetEquipments(); ++c) {
3259 item *Equipment = GetEquipment(c);
3260 if ((EquipmentEasilyRecognized(c) || game::WizardModeIsActive()) && Equipment) {
3261 int ImageKey = game::AddToItemDrawVector(itemvector(1, Equipment));
3262 Info.AddEntry(festring(GetEquipmentName(c))+": "+Equipment->GetName(INDEFINITE), LIGHT_GRAY, 0, ImageKey, true);
3263 }
3264 }
3265 if (Info.IsEmpty()) {
3266 ADD_MESSAGE("There's nothing special to tell about %s.", CHAR_NAME(DEFINITE));
3267 } else {
3268 game::SetStandardListAttributes(Info);
3269 Info.SetEntryDrawer(game::ItemEntryDrawer);
3270 Info.Draw();
3271 }
3272 game::ClearItemDrawVector();
3273 }
3274
3275
3276 truth character::TryToRiseFromTheDead () {
3277 for (int c = 0; c < BodyParts; ++c) {
3278 bodypart *BodyPart = GetBodyPart(c);
3279 if (BodyPart) {
3280 BodyPart->ResetSpoiling();
3281 if (BodyPart->CanRegenerate() || BodyPart->GetHP() < 1) BodyPart->SetHP(1);
3282 }
3283 }
3284 ResetStates();
3285 return true;
3286 }
3287
3288
3289 truth character::RaiseTheDead (character *) {
3290 truth Useful = false;
3291 for (int c = 0; c < BodyParts; ++c) {
3292 bodypart *BodyPart = GetBodyPart(c);
3293 if (!BodyPart && CanCreateBodyPart(c)) {
3294 CreateBodyPart(c)->SetHP(1);
3295 if (IsPlayer()) ADD_MESSAGE("Suddenly you grow a new %s.", GetBodyPartName(c).CStr());
3296 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s grows a new %s.", CHAR_NAME(DEFINITE), GetBodyPartName(c).CStr());
3297 Useful = true;
3298 } else if (BodyPart && BodyPart->CanRegenerate() && BodyPart->GetHP() < 1) {
3299 BodyPart->SetHP(1);
3300 }
3301 }
3302 if (!Useful) {
3303 if (IsPlayer()) ADD_MESSAGE("You shudder.");
3304 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s shudders.", CHAR_NAME(DEFINITE));
3305 }
3306 return Useful;
3307 }
3308
3309
3310 void character::SetSize (int Size) {
3311 for (int c = 0; c < BodyParts; ++c) {
3312 bodypart *BodyPart = GetBodyPart(c);
3313 if (BodyPart) BodyPart->SetSize(GetBodyPartSize(c, Size));
3314 }
3315 }
3316
3317
3318 sLong character::GetBodyPartSize (int I, int TotalSize) const {
3319 if (I == TORSO_INDEX) return TotalSize;
3320 ABORT("Weird bodypart size request for a character!");
3321 return 0;
3322 }
3323
3324
3325 sLong character::GetBodyPartVolume (int I) const {
3326 if (I == TORSO_INDEX) return GetTotalVolume();
3327 ABORT("Weird bodypart volume request for a character!");
3328 return 0;
3329 }
3330
3331
3332 void character::CreateBodyParts (int SpecialFlags) {
3333 for (int c = 0; c < BodyParts; ++c) if (CanCreateBodyPart(c)) CreateBodyPart(c, SpecialFlags);
3334 }
3335
3336
3337 void character::RestoreBodyParts () {
3338 for (int c = 0; c < BodyParts; ++c) if (!GetBodyPart(c) && CanCreateBodyPart(c)) CreateBodyPart(c);
3339 }
3340
3341
3342 void character::UpdatePictures () {
3343 if (!PictureUpdatesAreForbidden()) for (int c = 0; c < BodyParts; ++c) UpdateBodyPartPicture(c, false);
3344 }
3345
3346
3347 bodypart *character::MakeBodyPart (int I) const {
3348 if (I == TORSO_INDEX) return normaltorso::Spawn(0, NO_MATERIALS);
3349 ABORT("Weird bodypart to make for a character!");
3350 return 0;
3351 }
3352
3353
3354 bodypart *character::CreateBodyPart (int I, int SpecialFlags) {
3355 bodypart *BodyPart = MakeBodyPart(I);
3356 material *Material = CreateBodyPartMaterial(I, GetBodyPartVolume(I));
3357 BodyPart->InitMaterials(Material, false);
3358 BodyPart->SetSize(GetBodyPartSize(I, GetTotalSize()));
3359 BodyPart->SetBloodMaterial(GetBloodMaterial());
3360 BodyPart->SetNormalMaterial(Material->GetConfig());
3361 SetBodyPart(I, BodyPart);
3362 BodyPart->InitSpecialAttributes();
3363 if (!(SpecialFlags & NO_PIC_UPDATE)) UpdateBodyPartPicture(I, false);
3364 if (!IsInitializing()) {
3365 CalculateBattleInfo();
3366 SendNewDrawRequest();
3367 SignalPossibleTransparencyChange();
3368 }
3369 return BodyPart;
3370 }
3371
3372
3373 v2 character::GetBodyPartBitmapPos (int I, truth) const {
3374 if (I == TORSO_INDEX) return GetTorsoBitmapPos();
3375 ABORT("Weird bodypart BitmapPos request for a character!");
3376 return v2();
3377 }
3378
3379
3380 void character::UpdateBodyPartPicture (int I, truth Severed) {
3381 bodypart *BP = GetBodyPart(I);
3382 if (BP) {
3383 BP->SetBitmapPos(GetBodyPartBitmapPos(I, Severed));
3384 BP->GetMainMaterial()->SetSkinColor(GetBodyPartColorA(I, Severed));
3385 BP->GetMainMaterial()->SetSkinColorIsSparkling(GetBodyPartSparkleFlags(I) & SPARKLING_A);
3386 BP->SetMaterialColorB(GetBodyPartColorB(I, Severed));
3387 BP->SetMaterialColorC(GetBodyPartColorC(I, Severed));
3388 BP->SetMaterialColorD(GetBodyPartColorD(I, Severed));
3389 BP->SetSparkleFlags(GetBodyPartSparkleFlags(I));
3390 BP->SetSpecialFlags(GetSpecialBodyPartFlags(I));
3391 BP->SetWobbleData(GetBodyPartWobbleData(I));
3392 BP->UpdatePictures();
3393 }
3394 }
3395
3396
3397 void character::LoadDataBaseStats () {
3398 for (int c = 0; c < BASE_ATTRIBUTES; ++c) {
3399 BaseExperience[c] = DataBase->NaturalExperience[c];
3400 if (BaseExperience[c]) LimitRef(BaseExperience[c], MIN_EXP, MAX_EXP);
3401 }
3402 SetMoney(GetDefaultMoney());
3403 SetInitialSweatMaterial(GetSweatMaterial());
3404 const fearray<sLong> &Skills = GetKnownCWeaponSkills();
3405 if (Skills.Size) {
3406 const fearray<sLong> &Hits = GetCWeaponSkillHits();
3407 if (Hits.Size == 1) {
3408 for (uInt c = 0; c < Skills.Size; ++c) {
3409 if (Skills[c] < AllowedWeaponSkillCategories) CWeaponSkill[Skills[c]].AddHit(Hits[0]*100);
3410 }
3411 } else if (Hits.Size == Skills.Size) {
3412 for (uInt c = 0; c < Skills.Size; ++c) {
3413 if (Skills[c] < AllowedWeaponSkillCategories) CWeaponSkill[Skills[c]].AddHit(Hits[c]*100);
3414 }
3415 } else {
3416 ABORT("Illegal weapon skill hit array size detected!");
3417 }
3418 }
3419 }
3420
3421
3422 character *characterprototype::SpawnAndLoad (inputfile &SaveFile) const {
3423 character *Char = Spawner(0, LOAD);
3424 Char->Load(SaveFile);
3425 Char->CalculateAll();
3426 return Char;
3427 }
3428
3429
3430 void character::Initialize (int NewConfig, int SpecialFlags) {
3431 Flags |= C_INITIALIZING|C_IN_NO_MSG_MODE;
3432 CalculateBodyParts();
3433 CalculateAllowedWeaponSkillCategories();
3434 CalculateSquaresUnder();
3435 BodyPartSlot = new bodypartslot[BodyParts];
3436 OriginalBodyPartID = new std::list<feuLong>[BodyParts];
3437 CWeaponSkill = new cweaponskill[AllowedWeaponSkillCategories];
3438 SquareUnder = new square*[SquaresUnder];
3439
3440 if (SquaresUnder == 1) *SquareUnder = 0; else memset(SquareUnder, 0, SquaresUnder*sizeof(square *));
3441
3442 for (int c = 0; c < BodyParts; ++c) BodyPartSlot[c].SetMaster(this);
3443
3444 if (!(SpecialFlags & LOAD)) {
3445 ID = game::CreateNewCharacterID(this);
3446 databasecreator<character>::InstallDataBase(this, NewConfig);
3447 LoadDataBaseStats();
3448 TemporaryState |= GetClassStates();
3449 if (TemporaryState) {
3450 for (int c = 0; c < STATES; ++c) if (TemporaryState & (1 << c)) TemporaryStateCounter[c] = PERMANENT;
3451 }
3452
3453 CreateBodyParts(SpecialFlags | NO_PIC_UPDATE);
3454 InitSpecialAttributes();
3455 CommandFlags = GetDefaultCommandFlags();
3456
3457 if (GetAttribute(INTELLIGENCE, false) < 8) CommandFlags &= ~DONT_CONSUME_ANYTHING_VALUABLE; // gum
3458 if (!GetDefaultName().IsEmpty()) SetAssignedName(GetDefaultName());
3459 }
3460
3461 if (!(SpecialFlags & LOAD)) PostConstruct();
3462
3463 if (!(SpecialFlags & LOAD)) {
3464 if (!(SpecialFlags & NO_EQUIPMENT)) CreateInitialEquipment((SpecialFlags & NO_EQUIPMENT_PIC_UPDATE) >> 1);
3465 if (!(SpecialFlags & NO_PIC_UPDATE)) UpdatePictures();
3466 CalculateAll();
3467 RestoreHP();
3468 RestoreStamina();
3469 }
3470
3471 Flags &= ~(C_INITIALIZING|C_IN_NO_MSG_MODE);
3472 }
3473
3474
3475 truth character::TeleportNear (character *Caller) {
3476 v2 Where = GetLevel()->GetNearestFreeSquare(this, Caller->GetPos());
3477 if (Where == ERROR_V2) return false;
3478 Move(Where, true);
3479 return true;
3480 }
3481
3482
3483 void character::ReceiveHeal (sLong Amount) {
3484 int c;
3485 for (c = 0; c < Amount / 10; ++c) if (!HealHitPoint()) break;
3486 Amount -= c*10;
3487 if (RAND()%10 < Amount) HealHitPoint();
3488 if (Amount >= 250 || RAND()%250 < Amount) {
3489 bodypart *NewBodyPart = GenerateRandomBodyPart();
3490 if (!NewBodyPart) return;
3491 NewBodyPart->SetHP(1);
3492 if (IsPlayer()) ADD_MESSAGE("You grow a new %s.", NewBodyPart->GetBodyPartName().CStr());
3493 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s grows a new %s.", CHAR_NAME(DEFINITE), NewBodyPart->GetBodyPartName().CStr());
3494 }
3495 }
3496
3497
3498 void character::AddHealingLiquidConsumeEndMessage () const {
3499 if (IsPlayer()) ADD_MESSAGE("You feel better.");
3500 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks healthier.", CHAR_NAME(DEFINITE));
3501 }
3502
3503
3504 void character::ReceiveSchoolFood (sLong SizeOfEffect) {
3505 SizeOfEffect += RAND()%SizeOfEffect;
3506 if (SizeOfEffect >= 250) VomitAtRandomDirection(SizeOfEffect);
3507 if (!(RAND() % 3) && SizeOfEffect >= 500 && EditAttribute(ENDURANCE, SizeOfEffect/500)) {
3508 if (IsPlayer()) ADD_MESSAGE("You gain a little bit of toughness for surviving this stuff.");
3509 else if (CanBeSeenByPlayer()) ADD_MESSAGE("Suddenly %s looks tougher.", CHAR_NAME(DEFINITE));
3510 }
3511 BeginTemporaryState(POISONED, (SizeOfEffect>>1));
3512 }
3513
3514
3515 void character::AddSchoolFoodConsumeEndMessage () const {
3516 if (IsPlayer()) ADD_MESSAGE("Yuck! This stuff tasted like vomit and old mousepads.");
3517 }
3518
3519
3520 void character::AddSchoolFoodHitMessage () const {
3521 if (IsPlayer()) ADD_MESSAGE("Yuck! This stuff feels like vomit and old mousepads.");
3522 }
3523
3524
3525 void character::ReceiveNutrition (sLong SizeOfEffect) {
3526 EditNP(SizeOfEffect);
3527 }
3528
3529
3530 void character::ReceiveOmmelUrine (sLong Amount) {
3531 EditExperience(ARM_STRENGTH, 500, Amount<<4);
3532 EditExperience(LEG_STRENGTH, 500, Amount<<4);
3533 if (IsPlayer()) game::DoEvilDeed(Amount/25);
3534 }
3535
3536
3537 void character::ReceiveOmmelCerumen (sLong Amount) {
3538 EditExperience(INTELLIGENCE, 500, Amount << 5);
3539 EditExperience(WISDOM, 500, Amount << 5);
3540 if (IsPlayer()) game::DoEvilDeed(Amount / 25);
3541 }
3542
3543
3544 void character::ReceiveOmmelSweat (sLong Amount) {
3545 EditExperience(AGILITY, 500, Amount << 4);
3546 EditExperience(DEXTERITY, 500, Amount << 4);
3547 RestoreStamina();
3548 if (IsPlayer()) game::DoEvilDeed(Amount / 25);
3549 }
3550
3551
3552 void character::ReceiveOmmelTears (sLong Amount) {
3553 EditExperience(PERCEPTION, 500, Amount << 4);
3554 EditExperience(CHARISMA, 500, Amount << 4);
3555 if (IsPlayer()) game::DoEvilDeed(Amount / 25);
3556 }
3557
3558
3559 void character::ReceiveOmmelSnot (sLong Amount) {
3560 EditExperience(ENDURANCE, 500, Amount << 5);
3561 RestoreLivingHP();
3562 if (IsPlayer()) game::DoEvilDeed(Amount / 25);
3563 }
3564
3565
3566 void character::ReceiveOmmelBone (sLong Amount) {
3567 EditExperience(ARM_STRENGTH, 500, Amount << 6);
3568 EditExperience(LEG_STRENGTH, 500, Amount << 6);
3569 EditExperience(DEXTERITY, 500, Amount << 6);
3570 EditExperience(AGILITY, 500, Amount << 6);
3571 EditExperience(ENDURANCE, 500, Amount << 6);
3572 EditExperience(PERCEPTION, 500, Amount << 6);
3573 EditExperience(INTELLIGENCE, 500, Amount << 6);
3574 EditExperience(WISDOM, 500, Amount << 6);
3575 EditExperience(CHARISMA, 500, Amount << 6);
3576 RestoreLivingHP();
3577 RestoreStamina();
3578 if (IsPlayer()) game::DoEvilDeed(Amount / 25);
3579 }
3580
3581
3582 void character::AddOmmelConsumeEndMessage () const {
3583 if (IsPlayer()) ADD_MESSAGE("You feel a primitive force coursing through your veins.");
3584 else if (CanBeSeenByPlayer()) ADD_MESSAGE("Suddenly %s looks more powerful.", CHAR_NAME(DEFINITE));
3585 }
3586
3587
3588 void character::ReceivePepsi (sLong Amount) {
3589 ReceiveDamage(0, Amount / 100, POISON, TORSO);
3590 EditExperience(PERCEPTION, Amount, 1 << 14);
3591 if (CheckDeath(CONST_S("was poisoned by pepsi"), 0)) return;
3592 if (IsPlayer()) game::DoEvilDeed(Amount / 10);
3593 }
3594
3595
3596 void character::AddPepsiConsumeEndMessage () const {
3597 if (IsPlayer()) ADD_MESSAGE("Urgh. You feel your guruism fading away.");
3598 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks very lame.", CHAR_NAME(DEFINITE));
3599 }
3600
3601
3602 void character::ReceiveDarkness (sLong Amount) {
3603 EditExperience(INTELLIGENCE, -Amount / 5, 1 << 13);
3604 EditExperience(WISDOM, -Amount / 5, 1 << 13);
3605 EditExperience(CHARISMA, -Amount / 5, 1 << 13);
3606 if (IsPlayer()) game::DoEvilDeed(int(Amount / 50));
3607 }
3608
3609
3610 void character::AddFrogFleshConsumeEndMessage () const {
3611 if (IsPlayer()) ADD_MESSAGE("Arg. You feel the fate of a navastater placed upon you...");
3612 else if (CanBeSeenByPlayer()) ADD_MESSAGE("Suddenly %s looks like a navastater.", CHAR_NAME(DEFINITE));
3613 }
3614
3615
3616 void character::ReceiveKoboldFlesh (sLong) {
3617 /* As it is commonly known, the possibility of fainting per 500 cubic
3618 centimeters of kobold flesh is exactly 5%. */
3619 if (!(RAND() % 20)) {
3620 if (IsPlayer()) ADD_MESSAGE("You lose control of your legs and fall down.");
3621 LoseConsciousness(250 + RAND_N(250));
3622 }
3623 }
3624
3625
3626 void character::AddKoboldFleshConsumeEndMessage () const {
3627 if (IsPlayer()) ADD_MESSAGE("This stuff tasted really funny.");
3628 }
3629
3630
3631 void character::AddKoboldFleshHitMessage () const {
3632 if (IsPlayer()) ADD_MESSAGE("You feel very funny.");
3633 }
3634
3635
3636 void character::AddBoneConsumeEndMessage () const {
3637 if (IsPlayer()) ADD_MESSAGE("You feel like a hippie.");
3638 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s barks happily.", CHAR_NAME(DEFINITE)); // this suspects that nobody except dogs can eat bones
3639 }
3640
3641 truth character::RawEditAttribute (double &Experience, int Amount) const {
3642 /* Check if the attribute is disabled for creature */
3643 if (!Experience) return false;
3644 if ((Amount < 0 && Experience < 2 * EXP_MULTIPLIER) || (Amount > 0 && Experience > 999 * EXP_MULTIPLIER)) return false;
3645 Experience += Amount * EXP_MULTIPLIER;
3646 LimitRef<double>(Experience, MIN_EXP, MAX_EXP);
3647 return true;
3648 }
3649
3650
3651 void character::DrawPanel (truth AnimationDraw) const {
3652 if (AnimationDraw) { DrawStats(true); return; }
3653 igraph::BlitBackGround(v2(19 + (game::GetScreenXSize() << 4), 0), v2(RES.X - 19 - (game::GetScreenXSize() << 4), RES.Y));
3654 igraph::BlitBackGround(v2(16, 45 + (game::GetScreenYSize() << 4)), v2(game::GetScreenXSize() << 4, 9));
3655 FONT->Printf(DOUBLE_BUFFER, v2(16, 45 + (game::GetScreenYSize() << 4)), WHITE, "%s", GetPanelName().CStr());
3656 game::UpdateAttributeMemory();
3657 int PanelPosX = RES.X - 96;
3658 int PanelPosY = DrawStats(false);
3659 PrintAttribute("End", ENDURANCE, PanelPosX, PanelPosY++);
3660 PrintAttribute("Per", PERCEPTION, PanelPosX, PanelPosY++);
3661 PrintAttribute("Int", INTELLIGENCE, PanelPosX, PanelPosY++);
3662 PrintAttribute("Wis", WISDOM, PanelPosX, PanelPosY++);
3663 PrintAttribute("Wil", WILL_POWER, PanelPosX, PanelPosY++);
3664 PrintAttribute("Cha", CHARISMA, PanelPosX, PanelPosY++);
3665 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Siz %d", GetSize());
3666 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), IsInBadCondition() ? RED : WHITE, "HP %d/%d", GetHP(), GetMaxHP());
3667 ++PanelPosY;
3668 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Gold: %d", GetMoney());
3669 ++PanelPosY;
3670
3671 if (game::IsInWilderness())
3672 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Worldmap");
3673 else
3674 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "%s", game::GetCurrentDungeon()->GetShortLevelDescription(game::GetCurrentLevelIndex()).CapitalizeCopy().CStr());
3675
3676 ivantime Time;
3677 game::GetTime(Time);
3678 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Day %d", Time.Day);
3679 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Time %d:%s%d", Time.Hour, Time.Min < 10 ? "0" : "", Time.Min);
3680 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Turn %d", game::GetTurn());
3681
3682 ++PanelPosY;
3683
3684 if (GetAction())
3685 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "%s", festring(GetAction()->GetDescription()).CapitalizeCopy().CStr());
3686
3687 for (int c = 0; c < STATES; ++c)
3688 if (!(StateData[c].Flags & SECRET) && StateIsActivated(1 << c) && (1 << c != HASTE || !StateIsActivated(SLOW)) && (1 << c != SLOW || !StateIsActivated(HASTE)))
3689 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), (1 << c) & EquipmentState || TemporaryStateCounter[c] == PERMANENT ? BLUE : WHITE, "%s", StateData[c].Description);
3690
3691 /* Make this more elegant!!! */
3692 if (GetHungerState() == STARVING)
3693 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), RED, "Starving");
3694 else if (GetHungerState() == VERY_HUNGRY)
3695 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), BLUE, "Very hungry");
3696 else if (GetHungerState() == HUNGRY)
3697 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), BLUE, "Hungry");
3698 else if (GetHungerState() == SATIATED)
3699 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Satiated");
3700 else if (GetHungerState() == BLOATED)
3701 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Bloated");
3702 else if (GetHungerState() == OVER_FED)
3703 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Overfed!");
3704
3705 switch (GetBurdenState()) {
3706 case OVER_LOADED:
3707 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), RED, "Overload!");
3708 break;
3709 case STRESSED:
3710 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), BLUE, "Stressed");
3711 break;
3712 case BURDENED:
3713 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), BLUE, "Burdened");
3714 break;
3715 }
3716
3717 switch (GetTirednessState()) {
3718 case FAINTING:
3719 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), RED, "Fainting");
3720 break;
3721 case EXHAUSTED:
3722 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "Exhausted");
3723 break;
3724 }
3725
3726 if (game::PlayerIsRunning()) {
3727 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "%s", GetRunDescriptionLine(0));
3728 cchar *SecondLine = GetRunDescriptionLine(1);
3729 if (strlen(SecondLine)) FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY++ * 10), WHITE, "%s", SecondLine);
3730 }
3731 }
3732
3733
3734 void character::CalculateDodgeValue () {
3735 DodgeValue = 0.05 * GetMoveEase() * GetAttribute(AGILITY) / sqrt(GetSize());
3736 if (IsFlying()) DodgeValue *= 2;
3737 if (DodgeValue < 1) DodgeValue = 1;
3738 }
3739
3740
3741 truth character::DamageTypeAffectsInventory (int Type) {
3742 switch (Type&0xFFF) {
3743 case SOUND:
3744 case ENERGY:
3745 case ACID:
3746 case FIRE:
3747 case ELECTRICITY:
3748 return true;
3749 case PHYSICAL_DAMAGE:
3750 case POISON:
3751 case DRAIN:
3752 case MUSTARD_GAS_DAMAGE:
3753 case PSI:
3754 return false;
3755 }
3756 ABORT("Unknown reaping effect destroyed dungeon!");
3757 return false;
3758 }
3759
3760
3761 int character::CheckForBlockWithArm (character *Enemy, item *Weapon, arm *Arm,
3762 double WeaponToHitValue, int Damage, int Success, int Type)
3763 {
3764 int BlockStrength = Arm->GetBlockCapability();
3765 double BlockValue = Arm->GetBlockValue();
3766 if (BlockStrength && BlockValue) {
3767 item *Blocker = Arm->GetWielded();
3768 if (RAND() % int(100+WeaponToHitValue/BlockValue/(1<<BlocksSinceLastTurn)*(100+Success)) < 100) {
3769 int NewDamage = BlockStrength < Damage ? Damage-BlockStrength : 0;
3770 switch (Type) {
3771 case UNARMED_ATTACK: AddBlockMessage(Enemy, Blocker, Enemy->UnarmedHitNoun(), NewDamage); break;
3772 case WEAPON_ATTACK: AddBlockMessage(Enemy, Blocker, "attack", NewDamage); break;
3773 case KICK_ATTACK: AddBlockMessage(Enemy, Blocker, Enemy->KickNoun(), NewDamage); break;
3774 case BITE_ATTACK: AddBlockMessage(Enemy, Blocker, Enemy->BiteNoun(), NewDamage); break;
3775 }
3776 sLong Weight = Blocker->GetWeight();
3777 sLong StrExp = Limit(15 * Weight / 200, 75, 300);
3778 sLong DexExp = Weight ? Limit(75000 / Weight, 75, 300) : 300;
3779 Arm->EditExperience(ARM_STRENGTH, StrExp, 1 << 8);
3780 Arm->EditExperience(DEXTERITY, DexExp, 1 << 8);
3781 EditStamina(-10000 / GetAttribute(ARM_STRENGTH), false);
3782 if (Arm->TwoHandWieldIsActive()) {
3783 arm *PairArm = Arm->GetPairArm();
3784 PairArm->EditExperience(ARM_STRENGTH, StrExp, 1 << 8);
3785 PairArm->EditExperience(DEXTERITY, DexExp, 1 << 8);
3786 }
3787 Blocker->WeaponSkillHit(Enemy->CalculateWeaponSkillHits(this));
3788 Blocker->ReceiveDamage(this, Damage, PHYSICAL_DAMAGE);
3789 Blocker->BlockEffect(this, Enemy, Weapon, Type);
3790 if (Weapon) Weapon->ReceiveDamage(Enemy, Damage - NewDamage, PHYSICAL_DAMAGE);
3791 if (BlocksSinceLastTurn < 16) ++BlocksSinceLastTurn;
3792 return NewDamage;
3793 }
3794 }
3795 return Damage;
3796 }
3797
3798
3799 sLong character::GetStateAPGain (sLong BaseAPGain) const {
3800 if (!StateIsActivated(HASTE) == !StateIsActivated(SLOW)) return BaseAPGain;
3801 if (StateIsActivated(HASTE)) return (BaseAPGain * 5) >> 2;
3802 return (BaseAPGain << 2) / 5;
3803 }
3804
3805
3806 void character::SignalEquipmentAdd (int EquipmentIndex) {
3807 item *Equipment = GetEquipment(EquipmentIndex);
3808 if (Equipment->IsInCorrectSlot(EquipmentIndex)) {
3809 sLong AddedStates = Equipment->GetGearStates();
3810 if (AddedStates) {
3811 for (int c = 0; c < STATES; ++c) {
3812 if (AddedStates & (1 << c)) {
3813 if (!StateIsActivated(1 << c)) {
3814 if (!IsInNoMsgMode()) (this->*StateData[c].PrintBeginMessage)();
3815 EquipmentState |= 1 << c;
3816 if (StateData[c].BeginHandler) (this->*StateData[c].BeginHandler)();
3817 } else {
3818 EquipmentState |= 1 << c;
3819 }
3820 }
3821 }
3822 }
3823 }
3824 if (!IsInitializing() && Equipment->IsInCorrectSlot(EquipmentIndex)) ApplyEquipmentAttributeBonuses(Equipment);
3825 }
3826
3827
3828 void character::SignalEquipmentRemoval (int, citem *Item) {
3829 CalculateEquipmentState();
3830 if (CalculateAttributeBonuses()) CheckDeath(festring("lost ")+GetPossessivePronoun(false)+" vital "+Item->GetName(INDEFINITE));
3831 }
3832
3833
3834 void character::CalculateEquipmentState () {
3835 sLong Back = EquipmentState;
3836 EquipmentState = 0;
3837 for (int c = 0; c < GetEquipments(); ++c) {
3838 item *Equipment = GetEquipment(c);
3839 if (Equipment && Equipment->IsInCorrectSlot(c)) EquipmentState |= Equipment->GetGearStates();
3840 }
3841 for (int c = 0; c < STATES; ++c) {
3842 if (Back & (1 << c) && !StateIsActivated(1 << c)) {
3843 if (StateData[c].EndHandler) {
3844 (this->*StateData[c].EndHandler)();
3845 if (!IsEnabled()) return;
3846 }
3847 if (!IsInNoMsgMode()) (this->*StateData[c].PrintEndMessage)();
3848 }
3849 }
3850 }
3851
3852
3853 /* Counter = duration in ticks */
3854 void character::BeginTemporaryState (sLong State, int Counter) {
3855 if (!Counter) return;
3856 int Index;
3857 if (State == POLYMORPHED) ABORT("No Polymorphing with BeginTemporaryState!");
3858 for (Index = 0; Index < STATES; ++Index) if (1 << Index == State) break;
3859 if (Index == STATES) ABORT("BeginTemporaryState works only when State == 2 ^ n!");
3860 if (TemporaryStateIsActivated(State)) {
3861 int OldCounter = GetTemporaryStateCounter(State);
3862 if (OldCounter != PERMANENT) EditTemporaryStateCounter(State, Max(Counter, 50-OldCounter));
3863 } else if (StateData[Index].IsAllowed == 0 || (this->*StateData[Index].IsAllowed)()) {
3864 SetTemporaryStateCounter(State, Max(Counter, 50));
3865 if (!EquipmentStateIsActivated(State)) {
3866 if (!IsInNoMsgMode()) (this->*StateData[Index].PrintBeginMessage)();
3867 ActivateTemporaryState(State);
3868 if (StateData[Index].BeginHandler) (this->*StateData[Index].BeginHandler)();
3869 } else {
3870 ActivateTemporaryState(State);
3871 }
3872 }
3873 }
3874
3875
3876 void character::HandleStates () {
3877 if (!TemporaryState && !EquipmentState) return;
3878 for (int c = 0; c < STATES; ++c) {
3879 if (TemporaryState & (1 << c) && TemporaryStateCounter[c] != PERMANENT) {
3880 if (!--TemporaryStateCounter[c]) {
3881 TemporaryState &= ~(1 << c);
3882 if (!(EquipmentState & (1 << c))) {
3883 if (StateData[c].EndHandler) {
3884 (this->*StateData[c].EndHandler)();
3885 if (!IsEnabled()) return;
3886 }
3887 if (!TemporaryStateCounter[c]) (this->*StateData[c].PrintEndMessage)();
3888 }
3889 }
3890 }
3891 if (StateIsActivated(1 << c)) {
3892 if (StateData[c].Handler) (this->*StateData[c].Handler)();
3893 }
3894 if (!IsEnabled()) return;
3895 }
3896 }
3897
3898
3899 void character::PrintBeginPolymorphControlMessage () const {
3900 if (IsPlayer()) ADD_MESSAGE("You feel your mind has total control over your body.");
3901 }
3902
3903
3904 void character::PrintEndPolymorphControlMessage () const {
3905 if (IsPlayer()) ADD_MESSAGE("You are somehow uncertain of your willpower.");
3906 }
3907
3908
3909 void character::PrintBeginLifeSaveMessage () const {
3910 if (IsPlayer()) ADD_MESSAGE("You hear Hell's gates being locked just now.");
3911 }
3912
3913
3914 void character::PrintEndLifeSaveMessage () const {
3915 if (IsPlayer()) ADD_MESSAGE("You feel the Afterlife is welcoming you once again.");
3916 }
3917
3918
3919 void character::PrintBeginLycanthropyMessage () const {
3920 if (IsPlayer()) ADD_MESSAGE("You suddenly notice you've always loved full moons.");
3921 }
3922
3923
3924 void character::PrintEndLycanthropyMessage () const {
3925 if (IsPlayer()) ADD_MESSAGE("You feel the wolf inside you has had enough of your bad habits.");
3926 }
3927
3928
3929 void character::PrintBeginVampirismMessage () const {
3930 if (IsPlayer()) ADD_MESSAGE("You suddenly decide you have always hated garlic.");
3931 }
3932
3933
3934 void character::PrintEndVampirismMessage () const {
3935 if (IsPlayer()) ADD_MESSAGE("You recall your delight of the morning sunshine back in New Attnam. You are a vampire no longer.");
3936 }
3937
3938
3939 void character::PrintBeginInvisibilityMessage () const {
3940 if ((PLAYER->StateIsActivated(INFRA_VISION) && IsWarm()) || (PLAYER->StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5)) {
3941 if (IsPlayer()) ADD_MESSAGE("You seem somehow transparent.");
3942 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s seems somehow transparent.", CHAR_NAME(DEFINITE));
3943 } else {
3944 if (IsPlayer()) ADD_MESSAGE("You fade away.");
3945 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s disappears!", CHAR_NAME(DEFINITE));
3946 }
3947 }
3948
3949
3950 void character::PrintEndInvisibilityMessage () const {
3951 if ((PLAYER->StateIsActivated(INFRA_VISION) && IsWarm()) || (PLAYER->StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5)) {
3952 if (IsPlayer()) ADD_MESSAGE("Your notice your transparency has ended.");
3953 else if (CanBeSeenByPlayer()) ADD_MESSAGE("The appearance of %s seems far more solid now.", CHAR_NAME(INDEFINITE));
3954 } else {
3955 if (IsPlayer()) ADD_MESSAGE("You reappear.");
3956 else if (CanBeSeenByPlayer()) ADD_MESSAGE("Suddenly %s appears from nowhere!", CHAR_NAME(INDEFINITE));
3957 }
3958 }
3959
3960
3961 void character::PrintBeginInfraVisionMessage () const {
3962 if (IsPlayer()) {
3963 if (StateIsActivated(INVISIBLE) && IsWarm() && !(StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5))
3964 ADD_MESSAGE("You reappear.");
3965 else
3966 ADD_MESSAGE("You feel your perception being magically altered.");
3967 }
3968 }
3969
3970
3971 void character::PrintEndInfraVisionMessage () const {
3972 if (IsPlayer()) {
3973 if (StateIsActivated(INVISIBLE) && IsWarm() && !(StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5))
3974 ADD_MESSAGE("You disappear.");
3975 else
3976 ADD_MESSAGE("You feel your perception returning to normal.");
3977 }
3978 }
3979
3980
3981 void character::PrintBeginESPMessage () const {
3982 if (IsPlayer()) ADD_MESSAGE("You suddenly feel like being only a tiny part of a great network of intelligent minds.");
3983 }
3984
3985
3986 void character::PrintEndESPMessage () const {
3987 if (IsPlayer()) ADD_MESSAGE("You are filled with desire to be just yourself from now on.");
3988 }
3989
3990
3991 void character::PrintBeginHasteMessage () const {
3992 if (IsPlayer()) ADD_MESSAGE("Time slows down to a crawl.");
3993 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks faster!", CHAR_NAME(DEFINITE));
3994 }
3995
3996
3997 void character::PrintEndHasteMessage () const {
3998 if (IsPlayer()) ADD_MESSAGE("Everything seems to move much faster now.");
3999 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks slower!", CHAR_NAME(DEFINITE));
4000 }
4001
4002
4003 void character::PrintBeginSlowMessage () const {
4004 if (IsPlayer()) ADD_MESSAGE("Everything seems to move much faster now.");
4005 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks slower!", CHAR_NAME(DEFINITE));
4006 }
4007
4008
4009 void character::PrintEndSlowMessage () const {
4010 if (IsPlayer()) ADD_MESSAGE("Time slows down to a crawl.");
4011 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks faster!", CHAR_NAME(DEFINITE));
4012 }
4013
4014
4015 void character::EndPolymorph () {
4016 ForceEndPolymorph();
4017 }
4018
4019
4020 character *character::ForceEndPolymorph () {
4021 if (IsPlayer()) {
4022 ADD_MESSAGE("You return to your true form.");
4023 } else if (game::IsInWilderness()) {
4024 ActivateTemporaryState(POLYMORPHED);
4025 SetTemporaryStateCounter(POLYMORPHED, 10);
4026 return this; // fast gum solution, state ends when the player enters a dungeon
4027 }
4028 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s returns to %s true form.", CHAR_NAME(DEFINITE), GetPossessivePronoun().CStr());
4029 RemoveTraps();
4030 if (GetAction()) GetAction()->Terminate(false);
4031 v2 Pos = GetPos();
4032 SendToHell();
4033 Remove();
4034 character *Char = GetPolymorphBackup();
4035 Flags |= C_IN_NO_MSG_MODE;
4036 Char->Flags |= C_IN_NO_MSG_MODE;
4037 Char->ChangeTeam(GetTeam());
4038 if (GetTeam()->GetLeader() == this) GetTeam()->SetLeader(Char);
4039 SetPolymorphBackup(0);
4040 Char->PutToOrNear(Pos);
4041 Char->Enable();
4042 Char->Flags &= ~C_POLYMORPHED;
4043 GetStack()->MoveItemsTo(Char->GetStack());
4044 DonateEquipmentTo(Char);
4045 Char->SetMoney(GetMoney());
4046 Flags &= ~C_IN_NO_MSG_MODE;
4047 Char->Flags &= ~C_IN_NO_MSG_MODE;
4048 Char->CalculateAll();
4049 Char->SetAssignedName(GetAssignedName());
4050 if (IsPlayer()) {
4051 Flags &= ~C_PLAYER;
4052 game::SetPlayer(Char);
4053 game::SendLOSUpdateRequest();
4054 UpdateESPLOS();
4055 }
4056 Char->TestWalkability();
4057 return Char;
4058 }
4059
4060
4061 void character::LycanthropyHandler () {
4062 if (!(RAND() % 2000)) {
4063 if (StateIsActivated(POLYMORPH_CONTROL) && !game::TruthQuestion(CONST_S("Do you wish to change into a werewolf? [y/N]"))) return;
4064 Polymorph(werewolfwolf::Spawn(), 1000 + RAND() % 2000);
4065 }
4066 }
4067
4068
4069 void character::SaveLife () {
4070 if (TemporaryStateIsActivated(LIFE_SAVED)) {
4071 if (IsPlayer())
4072 ADD_MESSAGE("But wait! You glow briefly red and seem to be in a better shape!");
4073 else if (CanBeSeenByPlayer())
4074 ADD_MESSAGE("But wait, suddenly %s glows briefly red and seems to be in a better shape!", GetPersonalPronoun().CStr());
4075 DeActivateTemporaryState(LIFE_SAVED);
4076 } else {
4077 item *LifeSaver = 0;
4078 for (int c = 0; c < GetEquipments(); ++c) {
4079 item *Equipment = GetEquipment(c);
4080 if (Equipment && Equipment->IsInCorrectSlot(c) && Equipment->GetGearStates() & LIFE_SAVED) LifeSaver = Equipment;
4081 }
4082 if (!LifeSaver) ABORT("The Universe can only kill you once!");
4083 if (IsPlayer())
4084 ADD_MESSAGE("But wait! Your %s glows briefly red and disappears and you seem to be in a better shape!", LifeSaver->CHAR_NAME(UNARTICLED));
4085 else if (CanBeSeenByPlayer())
4086 ADD_MESSAGE("But wait, suddenly %s %s glows briefly red and disappears and %s seems to be in a better shape!", GetPossessivePronoun().CStr(), LifeSaver->CHAR_NAME(UNARTICLED), GetPersonalPronoun().CStr());
4087 LifeSaver->RemoveFromSlot();
4088 LifeSaver->SendToHell();
4089 }
4090
4091 if (IsPlayer()) game::AskForEscPress(CONST_S("Life saved!"));
4092
4093 RestoreBodyParts();
4094 ResetSpoiling();
4095 RestoreHP();
4096 RestoreStamina();
4097 ResetStates();
4098
4099 if (GetNP() < SATIATED_LEVEL) SetNP(SATIATED_LEVEL);
4100
4101 SendNewDrawRequest();
4102
4103 if (GetAction()) GetAction()->Terminate(false);
4104 }
4105
4106
4107 character *character::PolymorphRandomly (int MinDanger, int MaxDanger, int Time) {
4108 character *NewForm = 0;
4109 if (StateIsActivated(POLYMORPH_CONTROL)) {
4110 if (IsPlayer()) {
4111 if (!GetNewFormForPolymorphWithControl(NewForm)) return NewForm;
4112 }
4113 else {
4114 NewForm = protosystem::CreateMonster(MinDanger * 10, MaxDanger * 10, NO_EQUIPMENT);
4115 }
4116 } else {
4117 NewForm = protosystem::CreateMonster(MinDanger, MaxDanger, NO_EQUIPMENT);
4118 }
4119 Polymorph(NewForm, Time);
4120 return NewForm;
4121 }
4122
4123
4124 /* In reality, the reading takes Time / (Intelligence * 10) turns */
4125 void character::StartReading (item *Item, sLong Time) {
4126 study *Read = study::Spawn(this);
4127 Read->SetLiteratureID(Item->GetID());
4128 if (game::WizardModeIsActive()) Time = 1;
4129 Read->SetCounter(Time);
4130 SetAction(Read);
4131 if (IsPlayer()) ADD_MESSAGE("You start reading %s.", Item->CHAR_NAME(DEFINITE));
4132 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s starts reading %s.", CHAR_NAME(DEFINITE), Item->CHAR_NAME(DEFINITE));
4133 }
4134
4135
4136 /* Call when one makes something with his/her/its hands.
4137 * Difficulty of 5 takes about one turn, so it's the most common to use. */
4138 void character::DexterityAction (int Difficulty) {
4139 EditAP(-20000 * Difficulty / APBonus(GetAttribute(DEXTERITY)));
4140 EditExperience(DEXTERITY, Difficulty * 15, 1 << 7);
4141 }
4142
4143
4144 /* If Theoretically != false, range is not a factor. */
4145 truth character::CanBeSeenByPlayer (truth Theoretically, truth IgnoreESP) const {
4146 if (IsEnabled() && !game::IsGenerating() && (Theoretically || GetSquareUnder())) {
4147 truth MayBeESPSeen = PLAYER->IsEnabled() && !IgnoreESP && PLAYER->StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5;
4148 truth MayBeInfraSeen = PLAYER->IsEnabled() && PLAYER->StateIsActivated(INFRA_VISION) && IsWarm();
4149 truth Visible = !StateIsActivated(INVISIBLE) || MayBeESPSeen || MayBeInfraSeen;
4150 if (game::IsInWilderness()) return Visible;
4151 if (MayBeESPSeen && (Theoretically || GetDistanceSquareFrom(PLAYER) <= PLAYER->GetESPRangeSquare())) return true;
4152 if (!Visible) return false;
4153 return Theoretically || SquareUnderCanBeSeenByPlayer(MayBeInfraSeen);
4154 }
4155 return false;
4156 }
4157
4158
4159 truth character::CanBeSeenBy (ccharacter *Who, truth Theoretically, truth IgnoreESP) const {
4160 if (Who->IsPlayer()) return CanBeSeenByPlayer(Theoretically, IgnoreESP);
4161 if (IsEnabled() && !game::IsGenerating() && (Theoretically || GetSquareUnder())) {
4162 truth MayBeESPSeen = Who->IsEnabled() && !IgnoreESP && Who->StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5;
4163 truth MayBeInfraSeen = Who->IsEnabled() && Who->StateIsActivated(INFRA_VISION) && IsWarm();
4164 truth Visible = !StateIsActivated(INVISIBLE) || MayBeESPSeen || MayBeInfraSeen;
4165 if (game::IsInWilderness()) return Visible;
4166 if (MayBeESPSeen && (Theoretically || GetDistanceSquareFrom(Who) <= Who->GetESPRangeSquare())) return true;
4167 if (!Visible) return false;
4168 return Theoretically || SquareUnderCanBeSeenBy(Who, MayBeInfraSeen);
4169 }
4170 return false;
4171 }
4172
4173
4174 truth character::SquareUnderCanBeSeenByPlayer (truth IgnoreDarkness) const {
4175 if (!GetSquareUnder()) return false;
4176 int S1 = SquaresUnder, S2 = PLAYER->SquaresUnder;
4177 if (S1 == 1 && S2 == 1) {
4178 if (GetSquareUnder()->CanBeSeenByPlayer(IgnoreDarkness)) return true;
4179 if (IgnoreDarkness) {
4180 int LOSRangeSquare = PLAYER->GetLOSRangeSquare();
4181 if ((GetPos() - PLAYER->GetPos()).GetLengthSquare() <= LOSRangeSquare) {
4182 eyecontroller::Map = GetLevel()->GetMap();
4183 return mapmath<eyecontroller>::DoLine(PLAYER->GetPos().X, PLAYER->GetPos().Y, GetPos().X, GetPos().Y, SKIP_FIRST);
4184 }
4185 }
4186 return false;
4187 } else {
4188 for (int c1 = 0; c1 < S1; ++c1) {
4189 lsquare *Square = GetLSquareUnder(c1);
4190 if (Square->CanBeSeenByPlayer(IgnoreDarkness)) return true;
4191 else if (IgnoreDarkness) {
4192 v2 Pos = Square->GetPos();
4193 int LOSRangeSquare = PLAYER->GetLOSRangeSquare();
4194 for (int c2 = 0; c2 < S2; ++c2) {
4195 v2 PlayerPos = PLAYER->GetPos(c2);
4196 if ((Pos-PlayerPos).GetLengthSquare() <= LOSRangeSquare) {
4197 eyecontroller::Map = GetLevel()->GetMap();
4198 if (mapmath<eyecontroller>::DoLine(PlayerPos.X, PlayerPos.Y, Pos.X, Pos.Y, SKIP_FIRST)) return true;
4199 }
4200 }
4201 }
4202 }
4203 return false;
4204 }
4205 }
4206
4207
4208 truth character::SquareUnderCanBeSeenBy (ccharacter *Who, truth IgnoreDarkness) const {
4209 int S1 = SquaresUnder, S2 = Who->SquaresUnder;
4210 int LOSRangeSquare = Who->GetLOSRangeSquare();
4211 if (S1 == 1 && S2 == 1) return GetSquareUnder()->CanBeSeenFrom(Who->GetPos(), LOSRangeSquare, IgnoreDarkness);
4212 for (int c1 = 0; c1 < S1; ++c1) {
4213 lsquare *Square = GetLSquareUnder(c1);
4214 for (int c2 = 0; c2 < S2; ++c2) if (Square->CanBeSeenFrom(Who->GetPos(c2), LOSRangeSquare, IgnoreDarkness)) return true;
4215 }
4216 return false;
4217 }
4218
4219
4220 int character::GetDistanceSquareFrom (ccharacter *Who) const {
4221 int S1 = SquaresUnder, S2 = Who->SquaresUnder;
4222 if (S1 == 1 && S2 == 1) return (GetPos() - Who->GetPos()).GetLengthSquare();
4223 v2 MinDist(0x7FFF, 0x7FFF);
4224 int MinLength = 0xFFFF;
4225 for (int c1 = 0; c1 < S1; ++c1) {
4226 for (int c2 = 0; c2 < S2; ++c2) {
4227 v2 Dist = GetPos(c1)-Who->GetPos(c2);
4228 if (Dist.X < 0) Dist.X = -Dist.X;
4229 if (Dist.Y < 0) Dist.Y = -Dist.Y;
4230 if (Dist.X <= MinDist.X && Dist.Y <= MinDist.Y) {
4231 MinDist = Dist;
4232 MinLength = Dist.GetLengthSquare();
4233 } else if (Dist.X < MinDist.X || Dist.Y < MinDist.Y) {
4234 int Length = Dist.GetLengthSquare();
4235 if (Length < MinLength) {
4236 MinDist = Dist;
4237 MinLength = Length;
4238 }
4239 }
4240 }
4241 }
4242 return MinLength;
4243 }
4244
4245
4246 void character::AttachBodyPart (bodypart *BodyPart) {
4247 SetBodyPart(BodyPart->GetBodyPartIndex(), BodyPart);
4248 if (!AllowSpoil()) BodyPart->ResetSpoiling();
4249 BodyPart->ResetPosition();
4250 BodyPart->UpdatePictures();
4251 CalculateAttributeBonuses();
4252 CalculateBattleInfo();
4253 SendNewDrawRequest();
4254 SignalPossibleTransparencyChange();
4255 }
4256
4257
4258 /* Returns true if the character has all bodyparts, false if not. */
4259 truth character::HasAllBodyParts () const {
4260 for (int c = 0; c < BodyParts; ++c) if (!GetBodyPart(c) && CanCreateBodyPart(c)) return false;
4261 return true;
4262 }
4263
4264
4265 bodypart *character::GenerateRandomBodyPart () {
4266 int NeededBodyPart[MAX_BODYPARTS];
4267 int Index = 0;
4268 for (int c = 0; c < BodyParts; ++c) if (!GetBodyPart(c) && CanCreateBodyPart(c)) NeededBodyPart[Index++] = c;
4269 return Index ? CreateBodyPart(NeededBodyPart[RAND() % Index]) : 0;
4270 }
4271
4272
4273 /* Searches the character's Stack and if it find some bodyparts there that are the character's
4274 * old bodyparts returns a stackiterator to one of them (choosen in random).
4275 * If no fitting bodyparts are found the function returns 0 */
4276 bodypart *character::FindRandomOwnBodyPart (truth AllowNonLiving) const {
4277 itemvector LostAndFound;
4278 for (int c = 0; c < BodyParts; ++c) {
4279 if (!GetBodyPart(c)) {
4280 for (std::list<feuLong>::iterator i = OriginalBodyPartID[c].begin(); i != OriginalBodyPartID[c].end(); ++i) {
4281 bodypart *Found = static_cast<bodypart *>(SearchForItem(*i));
4282 if (Found && (AllowNonLiving || Found->CanRegenerate())) LostAndFound.push_back(Found);
4283 }
4284 }
4285 }
4286 if (LostAndFound.empty()) return 0;
4287 return static_cast<bodypart *>(LostAndFound[RAND() % LostAndFound.size()]);
4288 }
4289
4290
4291 void character::PrintBeginPoisonedMessage () const {
4292 if (IsPlayer()) ADD_MESSAGE("You seem to be very ill.");
4293 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks very ill.", CHAR_NAME(DEFINITE));
4294 }
4295
4296
4297 void character::PrintEndPoisonedMessage () const {
4298 if (IsPlayer()) ADD_MESSAGE("You feel better again.");
4299 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks better.", CHAR_NAME(DEFINITE));
4300 }
4301
4302
4303 void character::PoisonedHandler () {
4304 if (!(RAND() % 100)) VomitAtRandomDirection(500 + RAND_N(250));
4305 int Damage = 0;
4306 for (int Used = 0; Used < GetTemporaryStateCounter(POISONED); Used += 100) if (!(RAND() % 100)) ++Damage;
4307 if (Damage) {
4308 ReceiveDamage(0, Damage, POISON, ALL, 8, false, false, false, false);
4309 CheckDeath(CONST_S("died of acute poisoning"), 0);
4310 }
4311 }
4312
4313
4314 truth character::IsWarm () const {
4315 return combinebodypartpredicates()(this, &bodypart::IsWarm, 1);
4316 }
4317
4318
4319 void character::BeginInvisibility () {
4320 UpdatePictures();
4321 SendNewDrawRequest();
4322 SignalPossibleTransparencyChange();
4323 }
4324
4325
4326 void character::BeginInfraVision () {
4327 if (IsPlayer()) GetArea()->SendNewDrawRequest();
4328 }
4329
4330
4331 void character::BeginESP () {
4332 if (IsPlayer()) GetArea()->SendNewDrawRequest();
4333 }
4334
4335
4336 void character::EndInvisibility () {
4337 UpdatePictures();
4338 SendNewDrawRequest();
4339 SignalPossibleTransparencyChange();
4340 }
4341
4342
4343 void character::EndInfraVision () {
4344 if (IsPlayer() && IsEnabled()) GetArea()->SendNewDrawRequest();
4345 }
4346
4347
4348 void character::EndESP () {
4349 if (IsPlayer() && IsEnabled()) GetArea()->SendNewDrawRequest();
4350 }
4351
4352
4353 void character::Draw (blitdata &BlitData) const {
4354 col24 L = BlitData.Luminance;
4355 if (PLAYER->IsEnabled() &&
4356 ((PLAYER->StateIsActivated(ESP) && GetAttribute(INTELLIGENCE) >= 5 &&
4357 (PLAYER->GetPos() - GetPos()).GetLengthSquare() <= PLAYER->GetESPRangeSquare()) ||
4358 (PLAYER->StateIsActivated(INFRA_VISION) && IsWarm())))
4359 BlitData.Luminance = ivanconfig::GetContrastLuminance();
4360
4361 DrawBodyParts(BlitData);
4362 BlitData.Luminance = ivanconfig::GetContrastLuminance();
4363 BlitData.Src.Y = 16;
4364 cint SquareIndex = BlitData.CustomData & SQUARE_INDEX_MASK;
4365
4366 if (GetTeam() == PLAYER->GetTeam() && !IsPlayer() && SquareIndex == GetTameSymbolSquareIndex()) {
4367 BlitData.Src.X = 32;
4368 igraph::GetSymbolGraphic()->LuminanceMaskedBlit(BlitData);
4369 }
4370
4371 if (IsFlying() && SquareIndex == GetFlySymbolSquareIndex()) {
4372 BlitData.Src.X = 128;
4373 igraph::GetSymbolGraphic()->LuminanceMaskedBlit(BlitData);
4374 }
4375
4376 if (IsSwimming() && SquareIndex == GetSwimmingSymbolSquareIndex()) {
4377 BlitData.Src.X = 240;
4378 igraph::GetSymbolGraphic()->LuminanceMaskedBlit(BlitData);
4379 }
4380
4381 if (GetAction() && GetAction()->IsUnconsciousness() && SquareIndex == GetUnconsciousSymbolSquareIndex()) {
4382 BlitData.Src.X = 224;
4383 igraph::GetSymbolGraphic()->LuminanceMaskedBlit(BlitData);
4384 }
4385
4386 BlitData.Src.X = BlitData.Src.Y = 0;
4387 BlitData.Luminance = L;
4388 }
4389
4390
4391 void character::DrawBodyParts (blitdata &BlitData) const {
4392 GetTorso()->Draw(BlitData);
4393 }
4394
4395
4396 void character::PrintBeginTeleportMessage () const {
4397 if (IsPlayer()) ADD_MESSAGE("You feel jumpy.");
4398 }
4399
4400
4401 void character::PrintEndTeleportMessage () const {
4402 if (IsPlayer()) ADD_MESSAGE("You suddenly realize you've always preferred walking to jumping.");
4403 }
4404
4405
4406 void character::PrintBeginDetectMessage () const {
4407 if (IsPlayer()) ADD_MESSAGE("You feel curious about your surroundings.");
4408 }
4409
4410
4411 void character::PrintEndDetectMessage () const {
4412 if (IsPlayer()) ADD_MESSAGE("You decide to rely on your intuition from now on.");
4413 }
4414
4415
4416 void character::TeleportHandler () {
4417 if (!(RAND() % 1500) && !game::IsInWilderness()) {
4418 if (IsPlayer()) ADD_MESSAGE("You feel an urgent spatial relocation is now appropriate.");
4419 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s disappears.", CHAR_NAME(DEFINITE));
4420 TeleportRandomly();
4421 }
4422 }
4423
4424
4425 void character::DetectHandler () {
4426 if (IsPlayer()) {
4427 //the AI can't be asked position questions! So only the player can hav this state really :/ a bit daft of me
4428 if (!(RAND()%3000) && !game::IsInWilderness()) {
4429 ADD_MESSAGE("Your mind wanders in search of something.");
4430 DoDetecting(); //in fact, who knows what would happen if a dark frog had the detecting state?
4431 }
4432 }
4433 }
4434
4435
4436 void character::PrintBeginPolymorphMessage () const {
4437 if (IsPlayer()) ADD_MESSAGE("An unconfortable uncertainty of who you really are overwhelms you.");
4438 }
4439
4440
4441 void character::PrintEndPolymorphMessage () const {
4442 if (IsPlayer()) ADD_MESSAGE("You feel you are you and no one else.");
4443 }
4444
4445
4446 void character::PolymorphHandler () {
4447 if (!(RAND() % 1500)) PolymorphRandomly(1, 999999, 200 + RAND() % 800);
4448 }
4449
4450 void character::PrintBeginTeleportControlMessage () const {
4451 if (IsPlayer()) ADD_MESSAGE("You feel very controlled.");
4452 }
4453
4454
4455 void character::PrintEndTeleportControlMessage () const {
4456 if (IsPlayer()) ADD_MESSAGE("You feel your control slipping.");
4457 }
4458
4459
4460 void character::DisplayStethoscopeInfo (character *) const {
4461 felist Info(CONST_S("Information about ") + GetDescription(DEFINITE));
4462 AddSpecialStethoscopeInfo(Info);
4463 Info.AddEntry(CONST_S("Endurance: ") + GetAttribute(ENDURANCE), LIGHT_GRAY);
4464 Info.AddEntry(CONST_S("Perception: ") + GetAttribute(PERCEPTION), LIGHT_GRAY);
4465 Info.AddEntry(CONST_S("Intelligence: ") + GetAttribute(INTELLIGENCE), LIGHT_GRAY);
4466 Info.AddEntry(CONST_S("Wisdom: ") + GetAttribute(WISDOM), LIGHT_GRAY);
4467 //Info.AddEntry(CONST_S("Willpower: ") + GetAttribute(WILL_POWER), LIGHT_GRAY);
4468 Info.AddEntry(CONST_S("Charisma: ") + GetAttribute(CHARISMA), LIGHT_GRAY);
4469 Info.AddEntry(CONST_S("HP: ") + GetHP() + "/" + GetMaxHP(), IsInBadCondition() ? RED : LIGHT_GRAY);
4470 if (GetAction()) Info.AddEntry(festring(GetAction()->GetDescription()).CapitalizeCopy(), LIGHT_GRAY);
4471 for (int c = 0; c < STATES; ++c) {
4472 if (StateIsActivated(1 << c) && (1 << c != HASTE || !StateIsActivated(SLOW)) && (1 << c != SLOW || !StateIsActivated(HASTE)))
4473 Info.AddEntry(StateData[c].Description, LIGHT_GRAY);
4474 }
4475 switch (GetTirednessState()) {
4476 case FAINTING: Info.AddEntry("Fainting", RED); break;
4477 case EXHAUSTED: Info.AddEntry("Exhausted", LIGHT_GRAY); break;
4478 }
4479 game::SetStandardListAttributes(Info);
4480 Info.Draw();
4481 }
4482
4483
4484 truth character::CanUseStethoscope (truth PrintReason) const {
4485 if (PrintReason) ADD_MESSAGE("This type of monster can't use a stethoscope.");
4486 return false;
4487 }
4488
4489
4490 /* Effect used by at least Sophos.
4491 * NOTICE: Doesn't check for death! */
4492 void character::TeleportSomePartsAway (int NumberToTeleport) {
4493 for (int c = 0; c < NumberToTeleport; ++c) {
4494 int RandomBodyPart = GetRandomNonVitalBodyPart();
4495 if (RandomBodyPart == NONE_INDEX) {
4496 for (; c < NumberToTeleport; ++c) {
4497 GetTorso()->SetHP((GetTorso()->GetHP() << 2) / 5);
4498 sLong TorsosVolume = GetTorso()->GetMainMaterial()->GetVolume() / 10;
4499 if (!TorsosVolume) break;
4500 sLong Amount = (RAND() % TorsosVolume)+1;
4501 item *Lump = GetTorso()->GetMainMaterial()->CreateNaturalForm(Amount);
4502 GetTorso()->GetMainMaterial()->EditVolume(-Amount);
4503 Lump->MoveTo(GetNearLSquare(GetLevel()->GetRandomSquare())->GetStack());
4504 if (IsPlayer()) ADD_MESSAGE("Parts of you teleport away.");
4505 else if (CanBeSeenByPlayer()) ADD_MESSAGE("Parts of %s teleport away.", CHAR_NAME(DEFINITE));
4506 }
4507 } else {
4508 item *SeveredBodyPart = SevereBodyPart(RandomBodyPart);
4509 if (SeveredBodyPart) {
4510 GetNearLSquare(GetLevel()->GetRandomSquare())->AddItem(SeveredBodyPart);
4511 SeveredBodyPart->DropEquipment();
4512 if (IsPlayer()) ADD_MESSAGE("Your %s teleports away.", GetBodyPartName(RandomBodyPart).CStr());
4513 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s %s teleports away.", GetPossessivePronoun().CStr(), GetBodyPartName(RandomBodyPart).CStr());
4514 } else {
4515 if (IsPlayer()) ADD_MESSAGE("Your %s disappears.", GetBodyPartName(RandomBodyPart).CStr());
4516 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s %s disappears.", GetPossessivePronoun().CStr(), GetBodyPartName(RandomBodyPart).CStr());
4517 }
4518 }
4519 }
4520 }
4521
4522
4523 /* Returns an index of a random bodypart that is not vital. If no non-vital bodypart is found returns NONE_INDEX */
4524 int character::GetRandomNonVitalBodyPart () const {
4525 int OKBodyPart[MAX_BODYPARTS];
4526 int OKBodyParts = 0;
4527 for (int c = 0; c < BodyParts; ++c) if (GetBodyPart(c) && !BodyPartIsVital(c)) OKBodyPart[OKBodyParts++] = c;
4528 return OKBodyParts ? OKBodyPart[RAND() % OKBodyParts] : NONE_INDEX;
4529 }
4530
4531
4532 void character::CalculateVolumeAndWeight () {
4533 Volume = Stack->GetVolume();
4534 Weight = Stack->GetWeight();
4535 BodyVolume = 0;
4536 CarriedWeight = Weight;
4537 for (int c = 0; c < BodyParts; ++c) {
4538 bodypart *BodyPart = GetBodyPart(c);
4539 if (BodyPart) {
4540 BodyVolume += BodyPart->GetBodyPartVolume();
4541 Volume += BodyPart->GetVolume();
4542 CarriedWeight += BodyPart->GetCarriedWeight();
4543 Weight += BodyPart->GetWeight();
4544 }
4545 }
4546 }
4547
4548
4549 void character::SignalVolumeAndWeightChange () {
4550 if (!IsInitializing()) {
4551 CalculateVolumeAndWeight();
4552 if (IsEnabled()) CalculateBurdenState();
4553 if (MotherEntity) MotherEntity->SignalVolumeAndWeightChange();
4554 }
4555 }
4556
4557
4558 void character::SignalEmitationIncrease (col24 EmitationUpdate) {
4559 if (game::CompareLights(EmitationUpdate, Emitation) > 0) {
4560 game::CombineLights(Emitation, EmitationUpdate);
4561 if (MotherEntity) MotherEntity->SignalEmitationIncrease(EmitationUpdate);
4562 else if (SquareUnder[0] && !game::IsInWilderness()) {
4563 for(int c = 0; c < GetSquaresUnder(); ++c) GetLSquareUnder()->SignalEmitationIncrease(EmitationUpdate);
4564 }
4565 }
4566 }
4567
4568
4569 void character::SignalEmitationDecrease (col24 EmitationUpdate) {
4570 if (game::CompareLights(EmitationUpdate, Emitation) >= 0 && Emitation) {
4571 col24 Backup = Emitation;
4572 CalculateEmitation();
4573 if (Backup != Emitation) {
4574 if (MotherEntity) MotherEntity->SignalEmitationDecrease(EmitationUpdate);
4575 else if (SquareUnder[0] && !game::IsInWilderness()) {
4576 for (int c = 0; c < GetSquaresUnder(); ++c) GetLSquareUnder(c)->SignalEmitationDecrease(EmitationUpdate);
4577 }
4578 }
4579 }
4580 }
4581
4582
4583 void character::CalculateEmitation () {
4584 Emitation = GetBaseEmitation();
4585 for (int c = 0; c < BodyParts; ++c) {
4586 bodypart *BodyPart = GetBodyPart(c);
4587 if (BodyPart) game::CombineLights(Emitation, BodyPart->GetEmitation());
4588 }
4589 game::CombineLights(Emitation, Stack->GetEmitation());
4590 }
4591
4592
4593 void character::CalculateAll () {
4594 Flags |= C_INITIALIZING;
4595 CalculateAttributeBonuses();
4596 CalculateVolumeAndWeight();
4597 CalculateEmitation();
4598 CalculateBodyPartMaxHPs(0);
4599 CalculateMaxStamina();
4600 CalculateBurdenState();
4601 CalculateBattleInfo();
4602 Flags &= ~C_INITIALIZING;
4603 }
4604
4605
4606 void character::CalculateHP () {
4607 HP = sumbodypartproperties()(this, &bodypart::GetHP);
4608 }
4609
4610
4611 void character::CalculateMaxHP () {
4612 MaxHP = sumbodypartproperties()(this, &bodypart::GetMaxHP);
4613 }
4614
4615
4616 void character::CalculateBodyPartMaxHPs (feuLong Flags) {
4617 doforbodypartswithparam<feuLong>()(this, &bodypart::CalculateMaxHP, Flags);
4618 CalculateMaxHP();
4619 CalculateHP();
4620 }
4621
4622
4623 truth character::EditAttribute (int Identifier, int Value) {
4624 if (Identifier == ENDURANCE && UseMaterialAttributes()) return false;
4625 if (RawEditAttribute(BaseExperience[Identifier], Value)) {
4626 if (!IsInitializing()) {
4627 if (Identifier == LEG_STRENGTH) CalculateBurdenState();
4628 else if (Identifier == ENDURANCE) CalculateBodyPartMaxHPs();
4629 else if (IsPlayer() && Identifier == PERCEPTION) game::SendLOSUpdateRequest();
4630 else if (IsPlayerKind() && (Identifier == INTELLIGENCE || Identifier == WISDOM || Identifier == CHARISMA)) UpdatePictures();
4631 CalculateBattleInfo();
4632 }
4633 return true;
4634 }
4635 return false;
4636 }
4637
4638
4639 truth character::ActivateRandomState (int Flags, int Time, sLong Seed) {
4640 femath::SaveSeed();
4641 if (Seed) femath::SetSeed(Seed);
4642 sLong ToBeActivated = GetRandomState(Flags|DUR_TEMPORARY);
4643 femath::LoadSeed();
4644 if (!ToBeActivated) return false;
4645 BeginTemporaryState(ToBeActivated, Time);
4646 return true;
4647 }
4648
4649
4650 truth character::GainRandomIntrinsic (int Flags) {
4651 sLong ToBeActivated = GetRandomState(Flags|DUR_PERMANENT);
4652 if (!ToBeActivated) return false;
4653 GainIntrinsic(ToBeActivated);
4654 return true;
4655 }
4656
4657
4658 /* Returns 0 if state not found */
4659 sLong character::GetRandomState (int Flags) const {
4660 sLong OKStates[STATES];
4661 int NumberOfOKStates = 0;
4662 for (int c = 0; c < STATES; ++c) {
4663 if (StateData[c].Flags & Flags & DUR_FLAGS && StateData[c].Flags & Flags & SRC_FLAGS) OKStates[NumberOfOKStates++] = 1 << c;
4664 }
4665 return NumberOfOKStates ? OKStates[RAND() % NumberOfOKStates] : 0;
4666 }
4667
4668
4669 int characterprototype::CreateSpecialConfigurations (characterdatabase **TempConfig, int Configs, int Level) {
4670 if (Level == 0 && TempConfig[0]->CreateDivineConfigurations) {
4671 Configs = databasecreator<character>::CreateDivineConfigurations(this, TempConfig, Configs);
4672 }
4673 if (Level == 1 && TempConfig[0]->CreateUndeadConfigurations) {
4674 for (int c = 1; c < protocontainer<character>::GetSize(); ++c) {
4675 const character::prototype *Proto = protocontainer<character>::GetProto(c);
4676 const character::database *const *CharacterConfigData = Proto->GetConfigData();
4677 if (!CharacterConfigData) ABORT("No database entry for character <%s>!", Proto->GetClassID());
4678 const character::database*const* End = CharacterConfigData + Proto->GetConfigSize();
4679 for (++CharacterConfigData; CharacterConfigData != End; ++CharacterConfigData) {
4680 const character::database *CharacterDataBase = *CharacterConfigData;
4681 if (CharacterDataBase->UndeadVersions) {
4682 character::database* ConfigDataBase = new character::database(**TempConfig);
4683 ConfigDataBase->InitDefaults(this, (c << 8) | CharacterDataBase->Config);
4684 ConfigDataBase->PostFix << "of ";
4685 if (CharacterDataBase->Adjective.GetSize()) {
4686 if (CharacterDataBase->UsesLongAdjectiveArticle) ConfigDataBase->PostFix << "an ";
4687 else ConfigDataBase->PostFix << "a ";
4688 ConfigDataBase->PostFix << CharacterDataBase->Adjective << ' ';
4689 } else {
4690 if (CharacterDataBase->UsesLongArticle) ConfigDataBase->PostFix << "an ";
4691 else ConfigDataBase->PostFix << "a ";
4692 }
4693 ConfigDataBase->PostFix << CharacterDataBase->NameSingular;
4694 if (CharacterDataBase->PostFix.GetSize()) ConfigDataBase->PostFix << ' ' << CharacterDataBase->PostFix;
4695 int P1 = TempConfig[0]->UndeadAttributeModifier;
4696 int P2 = TempConfig[0]->UndeadVolumeModifier;
4697 int c2;
4698 for (c2 = 0; c2 < ATTRIBUTES; ++c2) ConfigDataBase->*ExpPtr[c2] = CharacterDataBase->*ExpPtr[c2] * P1 / 100;
4699 for (c2 = 0; c2 < EQUIPMENT_DATAS; ++c2) ConfigDataBase->*EquipmentDataPtr[c2] = contentscript<item>();
4700 ConfigDataBase->DefaultIntelligence = 5;
4701 ConfigDataBase->DefaultWisdom = 5;
4702 ConfigDataBase->DefaultCharisma = 5;
4703 ConfigDataBase->TotalSize = CharacterDataBase->TotalSize;
4704 ConfigDataBase->Sex = CharacterDataBase->Sex;
4705 ConfigDataBase->AttributeBonus = CharacterDataBase->AttributeBonus;
4706 ConfigDataBase->TotalVolume = CharacterDataBase->TotalVolume * P2 / 100;
4707 if (TempConfig[0]->UndeadCopyMaterials) {
4708 ConfigDataBase->HeadBitmapPos = CharacterDataBase->HeadBitmapPos;
4709 ConfigDataBase->HairColor = CharacterDataBase->HairColor;
4710 ConfigDataBase->EyeColor = CharacterDataBase->EyeColor;
4711 ConfigDataBase->CapColor = CharacterDataBase->CapColor;
4712 ConfigDataBase->FleshMaterial = CharacterDataBase->FleshMaterial;
4713 ConfigDataBase->BloodMaterial = CharacterDataBase->BloodMaterial;
4714 ConfigDataBase->VomitMaterial = CharacterDataBase->VomitMaterial;
4715 ConfigDataBase->SweatMaterial = CharacterDataBase->SweatMaterial;
4716 }
4717 ConfigDataBase->KnownCWeaponSkills = CharacterDataBase->KnownCWeaponSkills;
4718 ConfigDataBase->CWeaponSkillHits = CharacterDataBase->CWeaponSkillHits;
4719 ConfigDataBase->PostProcess();
4720 TempConfig[Configs++] = ConfigDataBase;
4721 }
4722 }
4723 }
4724 }
4725 if (Level == 0 && TempConfig[0]->CreateGolemMaterialConfigurations) {
4726 for (int c = 1; c < protocontainer<material>::GetSize(); ++c) {
4727 const material::prototype* Proto = protocontainer<material>::GetProto(c);
4728 const material::database*const* MaterialConfigData = Proto->GetConfigData();
4729 const material::database*const* End = MaterialConfigData + Proto->GetConfigSize();
4730 for (++MaterialConfigData; MaterialConfigData != End; ++MaterialConfigData) {
4731 const material::database* MaterialDataBase = *MaterialConfigData;
4732 if (MaterialDataBase->CategoryFlags & IS_GOLEM_MATERIAL) {
4733 character::database* ConfigDataBase = new character::database(**TempConfig);
4734 ConfigDataBase->InitDefaults(this, MaterialDataBase->Config);
4735 ConfigDataBase->Adjective = MaterialDataBase->NameStem;
4736 ConfigDataBase->UsesLongAdjectiveArticle = MaterialDataBase->NameFlags & USE_AN;
4737 ConfigDataBase->AttachedGod = MaterialDataBase->AttachedGod;
4738 TempConfig[Configs++] = ConfigDataBase;
4739 }
4740 }
4741 }
4742 }
4743 return Configs;
4744 }
4745
4746
4747 double character::GetTimeToDie (ccharacter *Enemy, int Damage, double ToHitValue, truth AttackIsBlockable, truth UseMaxHP) const {
4748 double DodgeValue = GetDodgeValue();
4749 if (!Enemy->CanBeSeenBy(this, true)) ToHitValue *= 2;
4750 if (!CanBeSeenBy(Enemy, true)) DodgeValue *= 2;
4751 double MinHits = 1000;
4752 truth First = true;
4753 for (int c = 0; c < BodyParts; ++c) {
4754 if (BodyPartIsVital(c) && GetBodyPart(c)) {
4755 double Hits = GetBodyPart(c)->GetTimeToDie(Damage, ToHitValue, DodgeValue, AttackIsBlockable, UseMaxHP);
4756 if (First) { MinHits = Hits; First = false; } else MinHits = 1 / (1 / MinHits + 1 / Hits);
4757 }
4758 }
4759 return MinHits;
4760 }
4761
4762
4763 double character::GetRelativeDanger (ccharacter *Enemy, truth UseMaxHP) const {
4764 double Danger = Enemy->GetTimeToKill(this, UseMaxHP) / GetTimeToKill(Enemy, UseMaxHP);
4765 int EnemyAP = Enemy->GetMoveAPRequirement(1);
4766 int ThisAP = GetMoveAPRequirement(1);
4767 if (EnemyAP > ThisAP) Danger *= 1.25;
4768 else if (ThisAP > EnemyAP) Danger *= 0.80;
4769 if (!Enemy->CanBeSeenBy(this, true)) Danger *= Enemy->IsPlayer() ? 0.2 : 0.5;
4770 if (!CanBeSeenBy(Enemy, true)) Danger *= IsPlayer() ? 5. : 2.;
4771 if (GetAttribute(INTELLIGENCE) < 10 && !IsPlayer()) Danger *= 0.80;
4772 if (Enemy->GetAttribute(INTELLIGENCE) < 10 && !Enemy->IsPlayer()) Danger *= 1.25;
4773 return Limit(Danger, 0.001, 1000.0);
4774 }
4775
4776
4777 festring character::GetBodyPartName (int I, truth Articled) const {
4778 if (I == TORSO_INDEX) return Articled ? CONST_S("a torso") : CONST_S("torso");
4779 ABORT("Illegal character bodypart name request!");
4780 return "";
4781 }
4782
4783
4784 item *character::SearchForItem(feuLong ID) const {
4785 item *Equipment = findequipment<feuLong>()(this, &item::HasID, ID);
4786 if (Equipment) return Equipment;
4787 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) if (i->GetID() == ID) return *i;
4788 return 0;
4789 }
4790
4791
4792 truth character::ContentsCanBeSeenBy (ccharacter *Viewer) const {
4793 return Viewer == this;
4794 }
4795
4796
4797 truth character::HitEffect (character *Enemy, item* Weapon, v2 HitPos, int Type, int BodyPartIndex,
4798 int Direction, truth BlockedByArmour)
4799 {
4800 if (Weapon) return Weapon->HitEffect(this, Enemy, HitPos, BodyPartIndex, Direction, BlockedByArmour);
4801 switch (Type) {
4802 case UNARMED_ATTACK: return Enemy->SpecialUnarmedEffect(this, HitPos, BodyPartIndex, Direction, BlockedByArmour);
4803 case KICK_ATTACK: return Enemy->SpecialKickEffect(this, HitPos, BodyPartIndex, Direction, BlockedByArmour);
4804 case BITE_ATTACK: return Enemy->SpecialBiteEffect(this, HitPos, BodyPartIndex, Direction, BlockedByArmour);
4805 }
4806 return false;
4807 }
4808
4809
4810 void character::WeaponSkillHit (item *Weapon, int Type, int Hits) {
4811 int Category;
4812 switch (Type) {
4813 case UNARMED_ATTACK: Category = UNARMED; break;
4814 case WEAPON_ATTACK: Weapon->WeaponSkillHit(Hits); return;
4815 case KICK_ATTACK: Category = KICK; break;
4816 case BITE_ATTACK: Category = BITE; break;
4817 case THROW_ATTACK:
4818 if (!IsHumanoid()) return;
4819 Category = Weapon->GetWeaponCategory();
4820 break;
4821 default:
4822 ABORT("Illegal Type %d passed to character::WeaponSkillHit()!", Type);
4823 return;
4824 }
4825 if (GetCWeaponSkill(Category)->AddHit(Hits)) {
4826 CalculateBattleInfo();
4827 if (IsPlayer()) GetCWeaponSkill(Category)->AddLevelUpMessage(Category);
4828 }
4829 }
4830
4831
4832 /* Returns 0 if character cannot be duplicated */
4833 character *character::Duplicate (feuLong Flags) {
4834 if (!(Flags & IGNORE_PROHIBITIONS) && !CanBeCloned()) return 0;
4835 character *Char = GetProtoType()->Clone(this);
4836 if (Flags & MIRROR_IMAGE) {
4837 DuplicateEquipment(Char, Flags & ~IGNORE_PROHIBITIONS);
4838 Char->SetLifeExpectancy(Flags >> LE_BASE_SHIFT & LE_BASE_RANGE, Flags >> LE_RAND_SHIFT & LE_RAND_RANGE);
4839 }
4840 Char->CalculateAll();
4841 Char->CalculateEmitation();
4842 Char->UpdatePictures();
4843 Char->Flags &= ~(C_INITIALIZING|C_IN_NO_MSG_MODE);
4844 return Char;
4845 }
4846
4847
4848 truth character::TryToEquip (item *Item) {
4849 if (!Item->AllowEquip() || !CanUseEquipment() || GetAttribute(WISDOM) >= Item->GetWearWisdomLimit() || Item->GetSquaresUnder() != 1)
4850 return false;
4851 for (int e = 0; e < GetEquipments(); ++e) {
4852 if (GetBodyPartOfEquipment(e) && EquipmentIsAllowed(e)) {
4853 sorter Sorter = EquipmentSorter(e);
4854 if ((Sorter == 0 || (Item->*Sorter)(this)) &&
4855 ((e != RIGHT_WIELDED_INDEX && e != LEFT_WIELDED_INDEX) ||
4856 Item->IsWeapon(this) || Item->IsShield(this)) && AllowEquipment(Item, e)) {
4857 item *OldEquipment = GetEquipment(e);
4858 if (BoundToUse(OldEquipment, e)) continue;
4859 lsquare *LSquareUnder = GetLSquareUnder();
4860 stack *StackUnder = LSquareUnder->GetStack();
4861 msgsystem::DisableMessages();
4862 Flags |= C_PICTURE_UPDATES_FORBIDDEN;
4863 LSquareUnder->Freeze();
4864 StackUnder->Freeze();
4865 double Danger = GetRelativeDanger(PLAYER);
4866 if (OldEquipment) OldEquipment->RemoveFromSlot();
4867 Item->RemoveFromSlot();
4868 SetEquipment(e, Item);
4869 double NewDanger = GetRelativeDanger(PLAYER);
4870 Item->RemoveFromSlot();
4871 StackUnder->AddItem(Item);
4872 if (OldEquipment) SetEquipment(e, OldEquipment);
4873 msgsystem::EnableMessages();
4874 Flags &= ~C_PICTURE_UPDATES_FORBIDDEN;
4875 LSquareUnder->UnFreeze();
4876 StackUnder->UnFreeze();
4877 if (OldEquipment) {
4878 if (NewDanger > Danger || BoundToUse(Item, e)) {
4879 room *Room = GetRoom();
4880 if (!Room || Room->PickupItem(this, Item, 1)) {
4881 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s drops %s %s and equips %s instead.", CHAR_NAME(DEFINITE), CHAR_POSSESSIVE_PRONOUN, OldEquipment->CHAR_NAME(UNARTICLED), Item->CHAR_NAME(INDEFINITE));
4882 if (Room) Room->DropItem(this, OldEquipment, 1);
4883 OldEquipment->MoveTo(StackUnder);
4884 Item->RemoveFromSlot();
4885 SetEquipment(e, Item);
4886 DexterityAction(5);
4887 return true;
4888 }
4889 }
4890 } else {
4891 if (NewDanger > Danger || (NewDanger == Danger && e != RIGHT_WIELDED_INDEX && e != LEFT_WIELDED_INDEX) || BoundToUse(Item, e)) {
4892 room *Room = GetRoom();
4893 if (!Room || Room->PickupItem(this, Item, 1)) {
4894 if (CanBeSeenByPlayer()) ADD_MESSAGE("%s picks up and equips %s.", CHAR_NAME(DEFINITE), Item->CHAR_NAME(INDEFINITE));
4895 Item->RemoveFromSlot();
4896 SetEquipment(e, Item);
4897 DexterityAction(5);
4898 return true;
4899 }
4900 }
4901 }
4902 }
4903 }
4904 }
4905 return false;
4906 }
4907
4908
4909 truth character::TryToConsume (item *Item) {
4910 return Item->CanBeEatenByAI(this) && ConsumeItem(Item, Item->GetConsumeMaterial(this)->GetConsumeVerb());
4911 }
4912
4913
4914 void character::UpdateESPLOS () const {
4915 if (StateIsActivated(ESP) && !game::IsInWilderness()) {
4916 for (int c = 0; c < game::GetTeams(); ++c) {
4917 for (std::list<character *>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i) {
4918 const character *ch = *i;
4919 if (ch->IsEnabled()) ch->SendNewDrawRequest();
4920 }
4921 }
4922 }
4923 }
4924
4925
4926 int character::GetCWeaponSkillLevel (citem *Item) const {
4927 if (Item->GetWeaponCategory() < GetAllowedWeaponSkillCategories()) return GetCWeaponSkill(Item->GetWeaponCategory())->GetLevel();
4928 return 0;
4929 }
4930
4931
4932 void character::PrintBeginPanicMessage () const {
4933 if (IsPlayer()) ADD_MESSAGE("You panic!");
4934 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s panics.", CHAR_NAME(DEFINITE));
4935 }
4936
4937
4938 void character::PrintEndPanicMessage () const {
4939 if (IsPlayer()) ADD_MESSAGE("You finally calm down.");
4940 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s calms down.", CHAR_NAME(DEFINITE));
4941 }
4942
4943
4944 void character::CheckPanic (int Ticks) {
4945 if (GetPanicLevel() > 1 && !StateIsActivated(PANIC) && GetHP() * 100 < RAND() % (GetPanicLevel() * GetMaxHP() << 1))
4946 BeginTemporaryState(PANIC, ((Ticks * 3) >> 2) + RAND() % ((Ticks >> 1) + 1)); // 25% randomness to ticks...
4947 }
4948
4949
4950 /* returns 0 if fails else the newly created character */
4951 character *character::DuplicateToNearestSquare (character *Cloner, feuLong Flags) {
4952 character *NewlyCreated = Duplicate(Flags);
4953 if (!NewlyCreated) return 0;
4954 if (Flags & CHANGE_TEAM && Cloner) NewlyCreated->ChangeTeam(Cloner->GetTeam());
4955 NewlyCreated->PutNear(GetPos());
4956 return NewlyCreated;
4957 }
4958
4959
4960 void character::SignalSpoil (material *m) {
4961 if (GetMotherEntity()) GetMotherEntity()->SignalSpoil(m);
4962 else Disappear(0, "spoil", &item::IsVeryCloseToSpoiling);
4963 }
4964
4965
4966 truth character::CanHeal () const {
4967 for (int c = 0; c < BodyParts; ++c) {
4968 bodypart *BodyPart = GetBodyPart(c);
4969 if (BodyPart && BodyPart->CanRegenerate() && BodyPart->GetHP() < BodyPart->GetMaxHP()) return true;
4970 }
4971 return false;
4972 }
4973
4974
4975 int character::GetRelation (ccharacter *Who) const {
4976 return GetTeam()->GetRelation(Who->GetTeam());
4977 }
4978
4979
4980 truth (item::*AffectTest[BASE_ATTRIBUTES])() const = {
4981 &item::AffectsEndurance,
4982 &item::AffectsPerception,
4983 &item::AffectsIntelligence,
4984 &item::AffectsWisdom,
4985 &item::AffectsWillPower,
4986 &item::AffectsCharisma,
4987 &item::AffectsMana
4988 };
4989
4990
4991 /* Returns nonzero if endurance has decreased and death may occur */
4992 truth character::CalculateAttributeBonuses () {
4993 doforbodyparts()(this, &bodypart::CalculateAttributeBonuses);
4994 int BackupBonus[BASE_ATTRIBUTES];
4995 int BackupCarryingBonus = CarryingBonus;
4996 CarryingBonus = 0;
4997 int c1;
4998 for (c1 = 0; c1 < BASE_ATTRIBUTES; ++c1) {
4999 BackupBonus[c1] = AttributeBonus[c1];
5000 AttributeBonus[c1] = 0;
5001 }
5002 for (c1 = 0; c1 < GetEquipments(); ++c1) {
5003 item *Equipment = GetEquipment(c1);
5004 if (!Equipment || !Equipment->IsInCorrectSlot(c1)) continue;
5005 for (int c2 = 0; c2 < BASE_ATTRIBUTES; ++c2) {
5006 if ((Equipment->*AffectTest[c2])()) AttributeBonus[c2] += Equipment->GetEnchantment();
5007 }
5008 if (Equipment->AffectsCarryingCapacity()) CarryingBonus += Equipment->GetCarryingBonus();
5009 }
5010
5011 ApplySpecialAttributeBonuses();
5012
5013 if (IsPlayer() && !IsInitializing() && AttributeBonus[PERCEPTION] != BackupBonus[PERCEPTION]) game::SendLOSUpdateRequest();
5014 if (IsPlayer() && !IsInitializing() && AttributeBonus[INTELLIGENCE] != BackupBonus[INTELLIGENCE]) UpdateESPLOS();
5015
5016 if (!IsInitializing() && CarryingBonus != BackupCarryingBonus) CalculateBurdenState();
5017
5018 if (!IsInitializing() && AttributeBonus[ENDURANCE] != BackupBonus[ENDURANCE]) {
5019 CalculateBodyPartMaxHPs();
5020 CalculateMaxStamina();
5021 return AttributeBonus[ENDURANCE] < BackupBonus[ENDURANCE];
5022 }
5023
5024 return false;
5025 }
5026
5027
5028 void character::ApplyEquipmentAttributeBonuses (item *Equipment) {
5029 if (Equipment->AffectsEndurance()) {
5030 AttributeBonus[ENDURANCE] += Equipment->GetEnchantment();
5031 CalculateBodyPartMaxHPs();
5032 CalculateMaxStamina();
5033 }
5034 if (Equipment->AffectsPerception()) {
5035 AttributeBonus[PERCEPTION] += Equipment->GetEnchantment();
5036 if (IsPlayer()) game::SendLOSUpdateRequest();
5037 }
5038 if (Equipment->AffectsIntelligence()) {
5039 AttributeBonus[INTELLIGENCE] += Equipment->GetEnchantment();
5040 if (IsPlayer()) UpdateESPLOS();
5041 }
5042 if (Equipment->AffectsWisdom()) AttributeBonus[WISDOM] += Equipment->GetEnchantment();
5043 if (Equipment->AffectsWillPower()) AttributeBonus[WILL_POWER] += Equipment->GetEnchantment();
5044 if (Equipment->AffectsCharisma()) AttributeBonus[CHARISMA] += Equipment->GetEnchantment();
5045 if (Equipment->AffectsMana()) AttributeBonus[MANA] += Equipment->GetEnchantment();
5046 if (Equipment->AffectsCarryingCapacity()) {
5047 CarryingBonus += Equipment->GetCarryingBonus();
5048 CalculateBurdenState();
5049 }
5050 }
5051
5052
5053 void character::ReceiveAntidote (sLong Amount) {
5054 if (StateIsActivated(POISONED)) {
5055 if (GetTemporaryStateCounter(POISONED) > Amount) {
5056 EditTemporaryStateCounter(POISONED, -Amount);
5057 Amount = 0;
5058 } else {
5059 if (IsPlayer()) ADD_MESSAGE("Aaaah... You feel much better.");
5060 Amount -= GetTemporaryStateCounter(POISONED);
5061 DeActivateTemporaryState(POISONED);
5062 }
5063 }
5064 if ((Amount >= 100 || RAND_N(100) < Amount) && StateIsActivated(PARASITIZED)) {
5065 if (IsPlayer()) ADD_MESSAGE("Something in your belly didn't seem to like this stuff.");
5066 DeActivateTemporaryState(PARASITIZED);
5067 Amount -= Min(100, Amount);
5068 }
5069 if ((Amount >= 100 || RAND_N(100) < Amount) && StateIsActivated(LEPROSY)) {
5070 if (IsPlayer()) ADD_MESSAGE("You are not falling to pieces anymore.");
5071 DeActivateTemporaryState(LEPROSY);
5072 Amount -= Min(100, Amount);
5073 }
5074 }
5075
5076
5077 void character::AddAntidoteConsumeEndMessage () const {
5078 if (StateIsActivated(POISONED)) {
5079 // true only if the antidote didn't cure the poison completely
5080 if (IsPlayer()) ADD_MESSAGE("Your body processes the poison in your veins with rapid speed.");
5081 }
5082 }
5083
5084
5085 truth character::IsDead () const {
5086 for (int c = 0; c < BodyParts; ++c) {
5087 bodypart *BodyPart = GetBodyPart(c);
5088 if (BodyPartIsVital(c) && (!BodyPart || BodyPart->GetHP() < 1)) return true;
5089 }
5090 return false;
5091 }
5092
5093
5094 void character::SignalSpoilLevelChange (material *m) {
5095 if (GetMotherEntity()) GetMotherEntity()->SignalSpoilLevelChange(m); else UpdatePictures();
5096 }
5097
5098
5099 void character::AddOriginalBodyPartID (int I, feuLong What) {
5100 if (std::find(OriginalBodyPartID[I].begin(), OriginalBodyPartID[I].end(), What) == OriginalBodyPartID[I].end()) {
5101 OriginalBodyPartID[I].push_back(What);
5102 if (OriginalBodyPartID[I].size() > 100) OriginalBodyPartID[I].erase(OriginalBodyPartID[I].begin());
5103 }
5104 }
5105
5106
5107 void character::AddToInventory (const fearray<contentscript<item> > &ItemArray, int SpecialFlags) {
5108 for (uInt c1 = 0; c1 < ItemArray.Size; ++c1) {
5109 if (ItemArray[c1].IsValid()) {
5110 const interval *TimesPtr = ItemArray[c1].GetTimes();
5111 int Times = TimesPtr ? TimesPtr->Randomize() : 1;
5112 for (int c2 = 0; c2 < Times; ++c2) {
5113 item *Item = ItemArray[c1].Instantiate(SpecialFlags);
5114 if (Item) {
5115 Stack->AddItem(Item);
5116 Item->SpecialGenerationHandler();
5117 }
5118 }
5119 }
5120 }
5121 }
5122
5123
5124 truth character::HasHadBodyPart (citem *Item) const {
5125 for (int c = 0; c < BodyParts; ++c)
5126 if (std::find(OriginalBodyPartID[c].begin(), OriginalBodyPartID[c].end(), Item->GetID()) != OriginalBodyPartID[c].end())
5127 return true;
5128 return GetPolymorphBackup() && GetPolymorphBackup()->HasHadBodyPart(Item);
5129 }
5130
5131
5132 festring &character::ProcessMessage (festring &Msg) const {
5133 SEARCH_N_REPLACE(Msg, "@nu", GetName(UNARTICLED));
5134 SEARCH_N_REPLACE(Msg, "@ni", GetName(INDEFINITE));
5135 SEARCH_N_REPLACE(Msg, "@nd", GetName(DEFINITE));
5136 SEARCH_N_REPLACE(Msg, "@du", GetDescription(UNARTICLED));
5137 SEARCH_N_REPLACE(Msg, "@di", GetDescription(INDEFINITE));
5138 SEARCH_N_REPLACE(Msg, "@dd", GetDescription(DEFINITE));
5139 SEARCH_N_REPLACE(Msg, "@pp", GetPersonalPronoun());
5140 SEARCH_N_REPLACE(Msg, "@sp", GetPossessivePronoun());
5141 SEARCH_N_REPLACE(Msg, "@op", GetObjectPronoun());
5142 SEARCH_N_REPLACE(Msg, "@Nu", GetName(UNARTICLED).CapitalizeCopy());
5143 SEARCH_N_REPLACE(Msg, "@Ni", GetName(INDEFINITE).CapitalizeCopy());
5144 SEARCH_N_REPLACE(Msg, "@Nd", GetName(DEFINITE).CapitalizeCopy());
5145 SEARCH_N_REPLACE(Msg, "@Du", GetDescription(UNARTICLED).CapitalizeCopy());
5146 SEARCH_N_REPLACE(Msg, "@Di", GetDescription(INDEFINITE).CapitalizeCopy());
5147 SEARCH_N_REPLACE(Msg, "@Dd", GetDescription(DEFINITE).CapitalizeCopy());
5148 SEARCH_N_REPLACE(Msg, "@Pp", GetPersonalPronoun().CapitalizeCopy());
5149 SEARCH_N_REPLACE(Msg, "@Sp", GetPossessivePronoun().CapitalizeCopy());
5150 SEARCH_N_REPLACE(Msg, "@Op", GetObjectPronoun().CapitalizeCopy());
5151 SEARCH_N_REPLACE(Msg, "@Gd", GetMasterGod()->GetName());
5152 return Msg;
5153 }
5154
5155
5156 void character::ProcessAndAddMessage (festring Msg) const {
5157 ADD_MESSAGE("%s", ProcessMessage(Msg).CStr());
5158 }
5159
5160
5161 void character::BeTalkedTo () {
5162 static sLong Said;
5163 if (GetRelation(PLAYER) == HOSTILE)
5164 ProcessAndAddMessage(GetHostileReplies()[RandomizeReply(Said, GetHostileReplies().Size)]);
5165 else
5166 ProcessAndAddMessage(GetFriendlyReplies()[RandomizeReply(Said, GetFriendlyReplies().Size)]);
5167 }
5168
5169
5170 truth character::CheckZap () {
5171 if (!CanZap()) {
5172 ADD_MESSAGE("This monster type can't zap.");
5173 return false;
5174 }
5175 return true;
5176 }
5177
5178
5179 void character::DamageAllItems (character *Damager, int Damage, int Type) {
5180 GetStack()->ReceiveDamage(Damager, Damage, Type);
5181 for (int c = 0; c < GetEquipments(); ++c) {
5182 item *Equipment = GetEquipment(c);
5183 if (Equipment) Equipment->ReceiveDamage(Damager, Damage, Type);
5184 }
5185 }
5186
5187
5188 truth character::Equips (citem *Item) const {
5189 return combineequipmentpredicateswithparam<feuLong>()(this, &item::HasID, Item->GetID(), 1);
5190 }
5191
5192
5193 void character::PrintBeginConfuseMessage () const {
5194 if (IsPlayer()) ADD_MESSAGE("You feel quite happy.");
5195 }
5196
5197
5198 void character::PrintEndConfuseMessage () const {
5199 if (IsPlayer()) ADD_MESSAGE("The world is boring again.");
5200 }
5201
5202
5203 v2 character::ApplyStateModification (v2 TryDirection) const {
5204 if (!StateIsActivated(CONFUSED) || RAND() & 15 || game::IsInWilderness()) return TryDirection;
5205 v2 To = GetLevel()->GetFreeAdjacentSquare(this, GetPos(), true);
5206 if (To == ERROR_V2) return TryDirection;
5207 To -= GetPos();
5208 if (To != TryDirection && IsPlayer()) ADD_MESSAGE("Whoa! You somehow don't manage to walk straight.");
5209 return To;
5210 }
5211
5212
5213 void character::AddConfuseHitMessage () const {
5214 if (IsPlayer()) ADD_MESSAGE("This stuff is confusing.");
5215 }
5216
5217
5218 item *character::SelectFromPossessions (cfestring &Topic, sorter Sorter) {
5219 itemvector ReturnVector;
5220 SelectFromPossessions(ReturnVector, Topic, NO_MULTI_SELECT, Sorter);
5221 return !ReturnVector.empty() ? ReturnVector[0] : 0;
5222 }
5223
5224
5225 truth character::SelectFromPossessions (itemvector &ReturnVector, cfestring &Topic, int Flags, sorter Sorter) {
5226 felist List(Topic);
5227 truth InventoryPossible = GetStack()->SortedItems(this, Sorter);
5228 if (InventoryPossible) List.AddEntry(CONST_S("choose from inventory"), LIGHT_GRAY, 20, game::AddToItemDrawVector(itemvector()));
5229 truth Any = false;
5230 itemvector Item;
5231 festring Entry;
5232 int c;
5233 for (c = 0; c < BodyParts; ++c) {
5234 bodypart *BodyPart = GetBodyPart(c);
5235 if (BodyPart && (Sorter == 0 || (BodyPart->*Sorter)(this))) {
5236 Item.push_back(BodyPart);
5237 Entry.Empty();
5238 BodyPart->AddName(Entry, UNARTICLED);
5239 int ImageKey = game::AddToItemDrawVector(itemvector(1, BodyPart));
5240 List.AddEntry(Entry, LIGHT_GRAY, 20, ImageKey, true);
5241 Any = true;
5242 }
5243 }
5244 for (c = 0; c < GetEquipments(); ++c) {
5245 item *Equipment = GetEquipment(c);
5246 if (Equipment && (Sorter == 0 || (Equipment->*Sorter)(this))) {
5247 Item.push_back(Equipment);
5248 Entry = GetEquipmentName(c);
5249 Entry << ':';
5250 Entry.Resize(20);
5251 Equipment->AddInventoryEntry(this, Entry, 1, true);
5252 AddSpecialEquipmentInfo(Entry, c);
5253 int ImageKey = game::AddToItemDrawVector(itemvector(1, Equipment));
5254 List.AddEntry(Entry, LIGHT_GRAY, 20, ImageKey, true);
5255 Any = true;
5256 }
5257 }
5258 if (Any) {
5259 game::SetStandardListAttributes(List);
5260 List.SetFlags(SELECTABLE|DRAW_BACKGROUND_AFTERWARDS);
5261 List.SetEntryDrawer(game::ItemEntryDrawer);
5262 game::DrawEverythingNoBlit();
5263 int Chosen = List.Draw();
5264 game::ClearItemDrawVector();
5265 if (Chosen != ESCAPED) {
5266 if ((InventoryPossible && !Chosen) || Chosen & FELIST_ERROR_BIT) {
5267 GetStack()->DrawContents(ReturnVector, this, Topic, Flags, Sorter);
5268 } else {
5269 ReturnVector.push_back(Item[InventoryPossible ? Chosen - 1 : Chosen]);
5270 if (Flags & SELECT_PAIR && ReturnVector[0]->HandleInPairs()) {
5271 item *PairEquipment = GetPairEquipment(ReturnVector[0]->GetEquipmentIndex());
5272 if (PairEquipment && PairEquipment->CanBePiledWith(ReturnVector[0], this)) ReturnVector.push_back(PairEquipment);
5273 }
5274 }
5275 }
5276 } else {
5277 if (!GetStack()->SortedItems(this, Sorter)) return false;
5278 game::ClearItemDrawVector();
5279 GetStack()->DrawContents(ReturnVector, this, Topic, Flags, Sorter);
5280 }
5281 return true;
5282 }
5283
5284
5285 truth character::EquipsSomething (sorter Sorter) {
5286 for (int c = 0; c < GetEquipments(); ++c) {
5287 item *Equipment = GetEquipment(c);
5288 if (Equipment && (Sorter == 0 || (Equipment->*Sorter)(this))) return true;
5289 }
5290 return false;
5291 }
5292
5293
5294 material *character::CreateBodyPartMaterial (int, sLong Volume) const {
5295 return MAKE_MATERIAL(GetFleshMaterial(), Volume);
5296 }
5297
5298
5299 truth character::CheckTalk () {
5300 if (!CanTalk()) {
5301 ADD_MESSAGE("This monster does not know the art of talking.");
5302 return false;
5303 }
5304 return true;
5305 }
5306
5307
5308 truth character::MoveTowardsHomePos () {
5309 if (HomeDataIsValid() && IsEnabled()) {
5310 SetGoingTo(HomeData->Pos);
5311 return MoveTowardsTarget(false) || (!GetPos().IsAdjacent(HomeData->Pos) && MoveRandomly());
5312 }
5313 return false;
5314 }
5315
5316
5317 truth character::TryToChangeEquipment (stack *MainStack, stack *SecStack, int Chosen) {
5318 if (!GetBodyPartOfEquipment(Chosen)) {
5319 ADD_MESSAGE("Bodypart missing!");
5320 return false;
5321 }
5322 item *OldEquipment = GetEquipment(Chosen);
5323 if (!IsPlayer() && BoundToUse(OldEquipment, Chosen)) {
5324 ADD_MESSAGE("%s refuses to unequip %s.", CHAR_DESCRIPTION(DEFINITE), OldEquipment->CHAR_NAME(DEFINITE));
5325 return false;
5326 }
5327 if (OldEquipment) OldEquipment->MoveTo(MainStack);
5328 sorter Sorter = EquipmentSorter(Chosen);
5329 if (!MainStack->SortedItems(this, Sorter) && (!SecStack || !SecStack->SortedItems(this, Sorter))) {
5330 ADD_MESSAGE("You haven't got any item that could be used for this purpose.");
5331 return false;
5332 }
5333 game::DrawEverythingNoBlit();
5334 itemvector ItemVector;
5335 int Return = MainStack->DrawContents(ItemVector, SecStack, this,
5336 CONST_S("Choose ") + GetEquipmentName(Chosen) + ':',
5337 SecStack ? CONST_S("Items in your inventory") : CONST_S(""),
5338 SecStack ? festring(CONST_S("Items in ") + GetPossessivePronoun() + " inventory") : CONST_S(""),
5339 SecStack ? festring(GetDescription(DEFINITE) + " is " + GetVerbalBurdenState()) : CONST_S(""),
5340 GetVerbalBurdenStateColor(),
5341 NONE_AS_CHOICE|NO_MULTI_SELECT,
5342 Sorter);
5343 if (Return == ESCAPED) {
5344 if (OldEquipment) {
5345 OldEquipment->RemoveFromSlot();
5346 SetEquipment(Chosen, OldEquipment);
5347 }
5348 return false;
5349 }
5350 item *Item = ItemVector.empty() ? 0 : ItemVector[0];
5351 if (Item) {
5352 if (!IsPlayer() && !AllowEquipment(Item, Chosen)) {
5353 ADD_MESSAGE("%s refuses to equip %s.", CHAR_DESCRIPTION(DEFINITE), Item->CHAR_NAME(DEFINITE));
5354 return false;
5355 }
5356 Item->RemoveFromSlot();
5357 SetEquipment(Chosen, Item);
5358 if (CheckIfEquipmentIsNotUsable(Chosen)) Item->MoveTo(MainStack); // small bug?
5359 }
5360 return Item != OldEquipment;
5361 }
5362
5363
5364 void character::PrintBeginParasitizedMessage () const {
5365 if (IsPlayer()) ADD_MESSAGE("You feel you are no longer alone.");
5366 }
5367
5368
5369 void character::PrintEndParasitizedMessage () const {
5370 if (IsPlayer()) ADD_MESSAGE("A feeling of sLong welcome emptiness overwhelms you.");
5371 }
5372
5373
5374 void character::ParasitizedHandler () {
5375 EditNP(-5);
5376 if (!(RAND() % 250)) {
5377 if (IsPlayer()) ADD_MESSAGE("Ugh. You feel something violently carving its way through your intestines.");
5378 ReceiveDamage(0, 1, POISON, TORSO, 8, false, false, false, false);
5379 CheckDeath(CONST_S("killed by a vile parasite"), 0);
5380 }
5381 }
5382
5383
5384 truth character::CanFollow () const {
5385 return CanMove() && !StateIsActivated(PANIC) && !IsStuck();
5386 }
5387
5388
5389 festring character::GetKillName () const {
5390 if (!GetPolymorphBackup()) return GetName(INDEFINITE);
5391 festring KillName;
5392 GetPolymorphBackup()->AddName(KillName, INDEFINITE);
5393 KillName << " polymorphed into ";
5394 id::AddName(KillName, INDEFINITE);
5395 return KillName;
5396 }
5397
5398
5399 festring character::GetPanelName () const {
5400 festring Name;
5401 Name << AssignedName << " the " << game::GetVerbalPlayerAlignment() << ' ';
5402 id::AddName(Name, UNARTICLED);
5403 return Name;
5404 }
5405
5406
5407 sLong character::GetMoveAPRequirement (int Difficulty) const {
5408 return (!StateIsActivated(PANIC) ? 10000000 : 8000000) * Difficulty / (APBonus(GetAttribute(AGILITY)) * GetMoveEase());
5409 }
5410
5411
5412 bodypart *character::HealHitPoint() {
5413 int NeedHeal = 0, NeedHealIndex[MAX_BODYPARTS];
5414 for (int c = 0; c < BodyParts; ++c) {
5415 bodypart *BodyPart = GetBodyPart(c);
5416 if (BodyPart && BodyPart->CanRegenerate() && BodyPart->GetHP() < BodyPart->GetMaxHP()) NeedHealIndex[NeedHeal++] = c;
5417 }
5418 if (NeedHeal) {
5419 bodypart *BodyPart = GetBodyPart(NeedHealIndex[RAND() % NeedHeal]);
5420 BodyPart->IncreaseHP();
5421 ++HP;
5422 return BodyPart;
5423 }
5424 return 0;
5425 }
5426
5427
5428 void character::CreateHomeData () {
5429 HomeData = new homedata;
5430 lsquare *Square = GetLSquareUnder();
5431 HomeData->Pos = Square->GetPos();
5432 HomeData->Dungeon = Square->GetDungeonIndex();
5433 HomeData->Level = Square->GetLevelIndex();
5434 HomeData->Room = Square->GetRoomIndex();
5435 }
5436
5437
5438 room *character::GetHomeRoom() const {
5439 if (HomeDataIsValid() && HomeData->Room) return GetLevel()->GetRoom(HomeData->Room);
5440 return 0;
5441 }
5442
5443
5444 void character::RemoveHomeData () {
5445 delete HomeData;
5446 HomeData = 0;
5447 }
5448
5449
5450 void character::AddESPConsumeMessage () const {
5451 if (IsPlayer()) ADD_MESSAGE("You feel a strange mental activity.");
5452 }
5453
5454
5455 void character::SetBodyPart (int I, bodypart *What) {
5456 BodyPartSlot[I].PutInItem(What);
5457 if (What) {
5458 What->SignalPossibleUsabilityChange();
5459 What->Disable();
5460 AddOriginalBodyPartID(I, What->GetID());
5461 if (What->GetMainMaterial()->IsInfectedByLeprosy()) GainIntrinsic(LEPROSY);
5462 else if (StateIsActivated(LEPROSY)) What->GetMainMaterial()->SetIsInfectedByLeprosy(true);
5463 }
5464 }
5465
5466
5467 truth character::ConsumeItem (item *Item, cfestring &ConsumeVerb) {
5468 if (IsPlayer() && HasHadBodyPart(Item) && !game::TruthQuestion(CONST_S("Are you sure? You may be able to put it back... [y/N]")))
5469 return false;
5470 if (Item->IsOnGround() && GetRoom() && !GetRoom()->ConsumeItem(this, Item, 1))
5471 return false;
5472 if (IsPlayer()) ADD_MESSAGE("You begin %s %s.", ConsumeVerb.CStr(), Item->CHAR_NAME(DEFINITE));
5473 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s begins %s %s.", CHAR_NAME(DEFINITE), ConsumeVerb.CStr(), Item->CHAR_NAME(DEFINITE));
5474 consume *Consume = consume::Spawn(this);
5475 Consume->SetDescription(ConsumeVerb);
5476 Consume->SetConsumingID(Item->GetID());
5477 SetAction(Consume);
5478 DexterityAction(5);
5479 return true;
5480 }
5481
5482
5483 truth character::CheckThrow () const {
5484 if (!CanThrow()) {
5485 ADD_MESSAGE("This monster type cannot throw.");
5486 return false;
5487 }
5488 return true;
5489 }
5490
5491
5492 void character::GetHitByExplosion (const explosion *Explosion, int Damage) {
5493 int DamageDirection = GetPos() == Explosion->Pos ? RANDOM_DIR : game::CalculateRoughDirection(GetPos() - Explosion->Pos);
5494 if (!IsPet() && Explosion->Terrorist && Explosion->Terrorist->IsPet()) Explosion->Terrorist->Hostility(this);
5495 GetTorso()->SpillBlood((8 - Explosion->Size + RAND() % (8 - Explosion->Size)) >> 1);
5496 v2 SpillPos = GetPos() + game::GetMoveVector(DamageDirection);
5497 if (GetArea()->IsValidPos(SpillPos)) GetTorso()->SpillBlood((8-Explosion->Size+RAND()%(8-Explosion->Size))>>1, SpillPos);
5498 if (IsPlayer()) ADD_MESSAGE("You are hit by the explosion!");
5499 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s is hit by the explosion.", CHAR_NAME(DEFINITE));
5500 truth WasUnconscious = GetAction() && GetAction()->IsUnconsciousness();
5501 ReceiveDamage(Explosion->Terrorist, Damage >> 1, FIRE, ALL, DamageDirection, true, false, false, false);
5502 if (IsEnabled()) {
5503 ReceiveDamage(Explosion->Terrorist, Damage >> 1, PHYSICAL_DAMAGE, ALL, DamageDirection, true, false, false, false);
5504 CheckDeath(Explosion->DeathMsg, Explosion->Terrorist, !WasUnconscious ? IGNORE_UNCONSCIOUSNESS : 0);
5505 }
5506 }
5507
5508
5509 void character::SortAllItems (const sortdata &SortData) {
5510 GetStack()->SortAllItems(SortData);
5511 doforequipmentswithparam<const sortdata&>()(this, &item::SortAllItems, SortData);
5512 }
5513
5514
5515 void character::PrintBeginSearchingMessage () const {
5516 if (IsPlayer()) ADD_MESSAGE("You feel you can now notice even the very smallest details around you.");
5517 }
5518
5519
5520 void character::PrintEndSearchingMessage () const {
5521 if (IsPlayer()) ADD_MESSAGE("You feel less perceptive.");
5522 }
5523
5524
5525 void character::SearchingHandler () {
5526 if (!game::IsInWilderness()) Search(15);
5527 }
5528
5529
5530 void character::Search (int Perception) {
5531 for (int d = 0; d < GetExtendedNeighbourSquares(); ++d) {
5532 lsquare *LSquare = GetNeighbourLSquare(d);
5533 if (LSquare) LSquare->GetStack()->Search(this, Min(Perception, 200));
5534 }
5535 }
5536
5537
5538 // surprisingly returns 0 if fails
5539 character *character::GetRandomNeighbour (int RelationFlags) const {
5540 character *Chars[MAX_NEIGHBOUR_SQUARES];
5541 int Index = 0;
5542 for (int d = 0; d < GetNeighbourSquares(); ++d) {
5543 lsquare *LSquare = GetNeighbourLSquare(d);
5544 if (LSquare) {
5545 character *Char = LSquare->GetCharacter();
5546 if (Char && (GetRelation(Char) & RelationFlags)) Chars[Index++] = Char;
5547 }
5548 }
5549 return Index ? Chars[RAND() % Index] : 0;
5550 }
5551
5552
5553 void character::ResetStates () {
5554 for (int c = 0; c < STATES; ++c) {
5555 if (1 << c != POLYMORPHED && TemporaryStateIsActivated(1 << c) && TemporaryStateCounter[c] != PERMANENT) {
5556 TemporaryState &= ~(1 << c);
5557 if (StateData[c].EndHandler) {
5558 (this->*StateData[c].EndHandler)();
5559 if (!IsEnabled())return;
5560 }
5561 }
5562 }
5563 }
5564
5565
5566 void characterdatabase::InitDefaults (const characterprototype *NewProtoType, int NewConfig) {
5567 IsAbstract = false;
5568 ProtoType = NewProtoType;
5569 Config = NewConfig;
5570 Alias.Clear();
5571 }
5572
5573
5574 void character::PrintBeginGasImmunityMessage () const {
5575 if (IsPlayer()) ADD_MESSAGE("All smells fade away.");
5576 }
5577
5578
5579 void character::PrintEndGasImmunityMessage () const {
5580 if (IsPlayer()) ADD_MESSAGE("Yuck! The world smells bad again.");
5581 }
5582
5583
5584 void character::ShowAdventureInfo () const {
5585 static const char *lists[4][4] = {
5586 { "Show massacre history",
5587 "Show inventory",
5588 "Show message history",
5589 NULL },
5590 { "Show inventory",
5591 "Show message history",
5592 NULL,
5593 NULL },
5594 { "Show message history",
5595 NULL,
5596 NULL,
5597 NULL },
5598 { "Show massacre history",
5599 "Show message history",
5600 NULL,
5601 NULL }
5602 };
5603 // massacre, inventory, messages
5604 static const int nums[4][3] = {
5605 { 0, 1, 2},
5606 {-1, 0, 1},
5607 {-1,-1, 0},
5608 { 0,-1, 0}
5609 };
5610 int idx = 0;
5611 if (GetStack()->GetItems()) {
5612 idx = game::MassacreListsEmpty() ? 1 : 0;
5613 } else {
5614 idx = game::MassacreListsEmpty() ? 2 : 3;
5615 }
5616 int sel = -1;
5617 for (;;) {
5618 sel = game::ListSelectorArray(sel, CONST_S("Do you want to see some funny history?"), lists[idx]);
5619 if (sel < 0) break;
5620 if (sel == nums[idx][0] && !game::MassacreListsEmpty()) {
5621 game::DisplayMassacreLists();
5622 }
5623 if (sel == nums[idx][1] && GetStack()->GetItems()) {
5624 GetStack()->DrawContents(this, CONST_S("Your inventory"), NO_SELECT);
5625 for(stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) i->DrawContents(this);
5626 doforequipmentswithparam<ccharacter *>()(this, &item::DrawContents, this);
5627 }
5628 if (sel == nums[idx][2]) {
5629 msgsystem::DrawMessageHistory();
5630 }
5631 }
5632 }
5633
5634
5635 truth character::EditAllAttributes (int Amount) {
5636 if (!Amount) return true;
5637 int c;
5638 truth MayEditMore = false;
5639 for (c = 0; c < BodyParts; ++c) {
5640 bodypart *BodyPart = GetBodyPart(c);
5641 if (BodyPart && BodyPart->EditAllAttributes(Amount)) MayEditMore = true;
5642 }
5643 for (c = 0; c < BASE_ATTRIBUTES; ++c) {
5644 if (BaseExperience[c]) {
5645 BaseExperience[c] += Amount * EXP_MULTIPLIER;
5646 LimitRef(BaseExperience[c], MIN_EXP, MAX_EXP);
5647 if ((Amount < 0 && BaseExperience[c] != MIN_EXP) || (Amount > 0 && BaseExperience[c] != MAX_EXP)) MayEditMore = true;
5648 }
5649 }
5650 CalculateAll();
5651 RestoreHP();
5652 RestoreStamina();
5653 if (IsPlayer()) {
5654 game::SendLOSUpdateRequest();
5655 UpdateESPLOS();
5656 }
5657 if (IsPlayerKind()) UpdatePictures();
5658 return MayEditMore;
5659 }
5660
5661
5662 #ifdef WIZARD
5663 void character::AddAttributeInfo (festring &Entry) const {
5664 Entry.Resize(57);
5665 Entry << GetAttribute(ENDURANCE);
5666 Entry.Resize(60);
5667 Entry << GetAttribute(PERCEPTION);
5668 Entry.Resize(63);
5669 Entry << GetAttribute(INTELLIGENCE);
5670 Entry.Resize(66);
5671 Entry << GetAttribute(WISDOM);
5672 Entry.Resize(69);
5673 Entry << GetAttribute(CHARISMA);
5674 Entry.Resize(72);
5675 Entry << GetAttribute(MANA);
5676 }
5677
5678
5679 void character::AddDefenceInfo (felist &List) const {
5680 festring Entry;
5681 for (int c = 0; c < BodyParts; ++c) {
5682 bodypart *BodyPart = GetBodyPart(c);
5683 if (BodyPart) {
5684 Entry = CONST_S(" ");
5685 BodyPart->AddName(Entry, UNARTICLED);
5686 Entry.Resize(60);
5687 Entry << BodyPart->GetMaxHP();
5688 Entry.Resize(70);
5689 Entry << BodyPart->GetTotalResistance(PHYSICAL_DAMAGE);
5690 List.AddEntry(Entry, LIGHT_GRAY);
5691 }
5692 }
5693 }
5694
5695
5696 void character::DetachBodyPart () {
5697 ADD_MESSAGE("You haven't got any extra bodyparts.");
5698 }
5699 #endif
5700
5701
5702 void character::ReceiveHolyBanana (sLong Amount) {
5703 Amount <<= 1;
5704 EditExperience(ARM_STRENGTH, Amount, 1 << 13);
5705 EditExperience(LEG_STRENGTH, Amount, 1 << 13);
5706 EditExperience(DEXTERITY, Amount, 1 << 13);
5707 EditExperience(AGILITY, Amount, 1 << 13);
5708 EditExperience(ENDURANCE, Amount, 1 << 13);
5709 EditExperience(PERCEPTION, Amount, 1 << 13);
5710 EditExperience(INTELLIGENCE, Amount, 1 << 13);
5711 EditExperience(WISDOM, Amount, 1 << 13);
5712 EditExperience(CHARISMA, Amount, 1 << 13);
5713 RestoreLivingHP();
5714 }
5715
5716
5717 void character::AddHolyBananaConsumeEndMessage () const {
5718 if (IsPlayer()) ADD_MESSAGE("You feel a mysterious strengthening fire coursing through your body.");
5719 else if (CanBeSeenByPlayer()) ADD_MESSAGE("For a moment %s is surrounded by a swirling fire aura.", CHAR_NAME(DEFINITE));
5720 }
5721
5722
5723 void character::ReceiveHolyMango (sLong Amount) {
5724 Amount <<= 1;
5725 EditExperience(ARM_STRENGTH, Amount, 1 << 13);
5726 EditExperience(LEG_STRENGTH, Amount, 1 << 13);
5727 EditExperience(DEXTERITY, Amount, 1 << 13);
5728 EditExperience(AGILITY, Amount, 1 << 13);
5729 EditExperience(ENDURANCE, Amount, 1 << 13);
5730 EditExperience(PERCEPTION, Amount, 1 << 13);
5731 EditExperience(INTELLIGENCE, Amount, 1 << 13);
5732 EditExperience(WISDOM, Amount, 1 << 13);
5733 EditExperience(CHARISMA, Amount, 1 << 13);
5734 RestoreLivingHP();
5735 }
5736
5737
5738 void character::AddHolyMangoConsumeEndMessage () const {
5739 if (IsPlayer()) ADD_MESSAGE("You feel a mysterious strengthening fire coursing through your body.");
5740 else if (CanBeSeenByPlayer()) ADD_MESSAGE("For a moment %s is surrounded by a swirling fire aura.", CHAR_NAME(DEFINITE));
5741 }
5742
5743
5744 truth character::PreProcessForBone () {
5745 if (IsPet() && IsEnabled()) {
5746 Die(0, CONST_S(""), FORBID_REINCARNATION);
5747 return true;
5748 }
5749 if (GetAction()) GetAction()->Terminate(false);
5750 if (TemporaryStateIsActivated(POLYMORPHED)) {
5751 character *PolymorphBackup = GetPolymorphBackup();
5752 EndPolymorph();
5753 PolymorphBackup->PreProcessForBone();
5754 return true;
5755 }
5756 if (MustBeRemovedFromBone()) return false;
5757 if (IsUnique() && !CanBeGenerated()) game::SignalQuestMonsterFound();
5758 RestoreLivingHP();
5759 ResetStates();
5760 RemoveTraps();
5761 GetStack()->PreProcessForBone();
5762 doforequipments()(this, &item::PreProcessForBone);
5763 doforbodyparts()(this, &bodypart::PreProcessForBone);
5764 game::RemoveCharacterID(ID);
5765 ID = -ID;
5766 game::AddCharacterID(this, ID);
5767 return true;
5768 }
5769
5770
5771 truth character::PostProcessForBone (double &DangerSum, int& Enemies) {
5772 if (PostProcessForBone()) {
5773 if (GetRelation(PLAYER) == HOSTILE) {
5774 double Danger = GetRelativeDanger(PLAYER, true);
5775 if (Danger > 99.0) game::SetTooGreatDangerFound(true);
5776 else if (!IsUnique() && !IgnoreDanger()) {
5777 DangerSum += Danger;
5778 ++Enemies;
5779 }
5780 }
5781 return true;
5782 }
5783 return false;
5784 }
5785
5786
5787 truth character::PostProcessForBone () {
5788 feuLong NewID = game::CreateNewCharacterID(this);
5789 game::GetBoneCharacterIDMap().insert(std::make_pair(-ID, NewID));
5790 game::RemoveCharacterID(ID);
5791 ID = NewID;
5792 if (IsUnique() && CanBeGenerated()) {
5793 if (DataBase->Flags & HAS_BEEN_GENERATED) return false;
5794 SignalGeneration();
5795 }
5796 GetStack()->PostProcessForBone();
5797 doforequipments()(this, &item::PostProcessForBone);
5798 doforbodyparts()(this, &bodypart::PostProcessForBone);
5799 return true;
5800 }
5801
5802
5803 void character::FinalProcessForBone () {
5804 Flags &= ~C_PLAYER;
5805 GetStack()->FinalProcessForBone();
5806 doforequipments()(this, &item::FinalProcessForBone);
5807 int c;
5808 for (c = 0; c < BodyParts; ++c) {
5809 for (std::list<feuLong>::iterator i = OriginalBodyPartID[c].begin(); i != OriginalBodyPartID[c].end();) {
5810 boneidmap::iterator BI = game::GetBoneItemIDMap().find(*i);
5811 if (BI == game::GetBoneItemIDMap().end()) {
5812 std::list<feuLong>::iterator Dirt = i++;
5813 OriginalBodyPartID[c].erase(Dirt);
5814 } else {
5815 *i = BI->second;
5816 ++i;
5817 }
5818 }
5819 }
5820 }
5821
5822
5823 void character::SetSoulID (feuLong What) {
5824 if (GetPolymorphBackup()) GetPolymorphBackup()->SetSoulID(What);
5825 }
5826
5827
5828 truth character::SearchForItem (citem *Item) const {
5829 if (combineequipmentpredicateswithparam<feuLong>()(this, &item::HasID, Item->GetID(), 1)) return true;
5830 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) if (*i == Item) return true;
5831 return false;
5832 }
5833
5834
5835 item *character::SearchForItem (const sweaponskill *SWeaponSkill) const {
5836 for (int c = 0; c < GetEquipments(); ++c) {
5837 item *Equipment = GetEquipment(c);
5838 if (Equipment && SWeaponSkill->IsSkillOf(Equipment)) return Equipment;
5839 }
5840 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) if (SWeaponSkill->IsSkillOf(*i)) return *i;
5841 return 0;
5842 }
5843
5844
5845 void character::PutNear (v2 Pos) {
5846 v2 NewPos = game::GetCurrentLevel()->GetNearestFreeSquare(this, Pos, false);
5847 if (NewPos == ERROR_V2) {
5848 do { NewPos = game::GetCurrentLevel()->GetRandomSquare(this); } while(NewPos == Pos);
5849 }
5850 PutTo(NewPos);
5851 }
5852
5853
5854 void character::PutToOrNear (v2 Pos) {
5855 if (game::IsInWilderness() || (CanMoveOn(game::GetCurrentLevel()->GetLSquare(Pos)) && IsFreeForMe(game::GetCurrentLevel()->GetLSquare(Pos))))
5856 PutTo(Pos);
5857 else
5858 PutNear(Pos);
5859 }
5860
5861
5862 void character::PutTo (v2 Pos) {
5863 SquareUnder[0] = game::GetCurrentArea()->GetSquare(Pos);
5864 SquareUnder[0]->AddCharacter(this);
5865 }
5866
5867
5868 void character::Remove () {
5869 SquareUnder[0]->RemoveCharacter();
5870 SquareUnder[0] = 0;
5871 }
5872
5873
5874 void character::SendNewDrawRequest () const {
5875 for (int c = 0; c < SquaresUnder; ++c) {
5876 square *Square = GetSquareUnder(c);
5877 if (Square) Square->SendNewDrawRequest();
5878 }
5879 }
5880
5881
5882 truth character::IsOver (v2 Pos) const {
5883 for (int c = 0; c < SquaresUnder; ++c) {
5884 square *Square = GetSquareUnder(c);
5885 if (Square && Square->GetPos() == Pos) return true;
5886 }
5887 return false;
5888 }
5889
5890
5891 truth character::CanTheoreticallyMoveOn (const lsquare *LSquare) const { return GetMoveType() & LSquare->GetTheoreticalWalkability(); }
5892 truth character::CanMoveOn (const lsquare *LSquare) const { return GetMoveType() & LSquare->GetWalkability(); }
5893 truth character::CanMoveOn (const square *Square) const { return GetMoveType() & Square->GetSquareWalkability(); }
5894 truth character::CanMoveOn (const olterrain *OLTerrain) const { return GetMoveType() & OLTerrain->GetWalkability(); }
5895 truth character::CanMoveOn (const oterrain *OTerrain) const { return GetMoveType() & OTerrain->GetWalkability(); }
5896 truth character::IsFreeForMe(square *Square) const { return !Square->GetCharacter() || Square->GetCharacter() == this; }
5897 void character::LoadSquaresUnder () { SquareUnder[0] = game::GetSquareInLoad(); }
5898
5899 truth character::AttackAdjacentEnemyAI () {
5900 if (!IsEnabled()) return false;
5901 character *Char[MAX_NEIGHBOUR_SQUARES];
5902 v2 Pos[MAX_NEIGHBOUR_SQUARES];
5903 int Dir[MAX_NEIGHBOUR_SQUARES];
5904 int Index = 0;
5905 for (int d = 0; d < GetNeighbourSquares(); ++d) {
5906 square *Square = GetNeighbourSquare(d);
5907 if (Square) {
5908 character *Enemy = Square->GetCharacter();
5909 if (Enemy && (GetRelation(Enemy) == HOSTILE || StateIsActivated(CONFUSED))) {
5910 Dir[Index] = d;
5911 Pos[Index] = Square->GetPos();
5912 Char[Index++] = Enemy;
5913 }
5914 }
5915 }
5916 if (Index) {
5917 int ChosenIndex = RAND() % Index;
5918 Hit(Char[ChosenIndex], Pos[ChosenIndex], Dir[ChosenIndex]);
5919 return true;
5920 }
5921 return false;
5922 }
5923
5924
5925 void character::SignalStepFrom (lsquare **OldSquareUnder) {
5926 int c;
5927 lsquare *NewSquareUnder[MAX_SQUARES_UNDER];
5928 for (c = 0; c < GetSquaresUnder(); ++c) NewSquareUnder[c] = GetLSquareUnder(c);
5929 for (c = 0; c < GetSquaresUnder(); ++c) {
5930 if (IsEnabled() && GetLSquareUnder(c) == NewSquareUnder[c]) NewSquareUnder[c]->StepOn(this, OldSquareUnder);
5931 }
5932 }
5933
5934
5935 int character::GetSumOfAttributes () const {
5936 return GetAttribute(ENDURANCE) + GetAttribute(PERCEPTION) + GetAttribute(INTELLIGENCE) + GetAttribute(WISDOM) + GetAttribute(CHARISMA) + GetAttribute(ARM_STRENGTH) + GetAttribute(AGILITY);
5937 }
5938
5939
5940 void character::IntelligenceAction (int Difficulty) {
5941 EditAP(-20000 * Difficulty / APBonus(GetAttribute(INTELLIGENCE)));
5942 EditExperience(INTELLIGENCE, Difficulty * 15, 1 << 7);
5943 }
5944
5945
5946 struct walkabilitycontroller {
5947 static truth Handler (int x, int y) {
5948 return x >= 0 && y >= 0 && x < LevelXSize && y < LevelYSize && Map[x][y]->GetTheoreticalWalkability() & MoveType;
5949 }
5950 static lsquare ***Map;
5951 static int LevelXSize, LevelYSize;
5952 static int MoveType;
5953 };
5954
5955
5956 lsquare ***walkabilitycontroller::Map;
5957 int walkabilitycontroller::LevelXSize, walkabilitycontroller::LevelYSize;
5958 int walkabilitycontroller::MoveType;
5959
5960
5961 truth character::CreateRoute () {
5962 Route.clear();
5963 if (GetAttribute(INTELLIGENCE) >= 10 && !StateIsActivated(CONFUSED)) {
5964 v2 Pos = GetPos();
5965 walkabilitycontroller::Map = GetLevel()->GetMap();
5966 walkabilitycontroller::LevelXSize = GetLevel()->GetXSize();
5967 walkabilitycontroller::LevelYSize = GetLevel()->GetYSize();
5968 walkabilitycontroller::MoveType = GetMoveType();
5969 node *Node;
5970 for (int c = 0; c < game::GetTeams(); ++c)
5971 for (std::list<character *>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i) {
5972 character *Char = *i;
5973 if (Char->IsEnabled() && !Char->Route.empty() && (Char->GetMoveType()&GetMoveType()) == Char->GetMoveType()) {
5974 v2 CharGoingTo = Char->Route[0];
5975 v2 iPos = Char->Route.back();
5976 if ((GoingTo-CharGoingTo).GetLengthSquare() <= 100 && (Pos - iPos).GetLengthSquare() <= 100 &&
5977 mapmath<walkabilitycontroller>::DoLine(CharGoingTo.X, CharGoingTo.Y, GoingTo.X, GoingTo.Y, SKIP_FIRST) &&
5978 mapmath<walkabilitycontroller>::DoLine(Pos.X, Pos.Y, iPos.X, iPos.Y, SKIP_FIRST)) {
5979 if (!Illegal.empty() && Illegal.find(Char->Route.back()) != Illegal.end()) continue;
5980 Node = GetLevel()->FindRoute(CharGoingTo, GoingTo, Illegal, GetMoveType());
5981 if (Node) { while(Node->Last) { Route.push_back(Node->Pos); Node = Node->Last; } }
5982 else { Route.clear(); continue; }
5983 Route.insert(Route.end(), Char->Route.begin(), Char->Route.end());
5984 Node = GetLevel()->FindRoute(Pos, iPos, Illegal, GetMoveType());
5985 if (Node) { while (Node->Last) { Route.push_back(Node->Pos); Node = Node->Last; } }
5986 else { Route.clear(); continue; }
5987 IntelligenceAction(1);
5988 return true;
5989 }
5990 }
5991 }
5992 Node = GetLevel()->FindRoute(Pos, GoingTo, Illegal, GetMoveType());
5993 if (Node) { while(Node->Last) { Route.push_back(Node->Pos); Node = Node->Last; } }
5994 else TerminateGoingTo();
5995 IntelligenceAction(5);
5996 return true;
5997 }
5998 return false;
5999 }
6000
6001
6002 void character::SetGoingTo (v2 What) {
6003 if (GoingTo != What) {
6004 GoingTo = What;
6005 Route.clear();
6006 Illegal.clear();
6007 }
6008 }
6009
6010
6011 void character::TerminateGoingTo () {
6012 GoingTo = ERROR_V2;
6013 Route.clear();
6014 Illegal.clear();
6015 }
6016
6017
6018 truth character::CheckForFood (int Radius) {
6019 if (StateIsActivated(PANIC) || !UsesNutrition() || !IsEnabled()) return false;
6020 v2 Pos = GetPos();
6021 int x, y;
6022 for (int r = 1; r <= Radius; ++r) {
6023 x = Pos.X-r;
6024 if (x >= 0) {
6025 for (y = Pos.Y-r; y <= Pos.Y+r; ++y) if (CheckForFoodInSquare(v2(x, y))) return true;
6026 }
6027 x = Pos.X+r;
6028 if (x < GetLevel()->GetXSize()) {
6029 for (y = Pos.Y-r; y <= Pos.Y+r; ++y) if (CheckForFoodInSquare(v2(x, y))) return true;
6030 }
6031 y = Pos.Y-r;
6032 if (y >= 0) {
6033 for (x = Pos.X-r; x <= Pos.X+r; ++x) if (CheckForFoodInSquare(v2(x, y))) return true;
6034 }
6035 y = Pos.Y+r;
6036 if (y < GetLevel()->GetYSize()) {
6037 for (x = Pos.X-r; x <= Pos.X+r; ++x) if (CheckForFoodInSquare(v2(x, y))) return true;
6038 }
6039 }
6040 return false;
6041 }
6042
6043
6044 truth character::CheckForFoodInSquare (v2 Pos) {
6045 level *Level = GetLevel();
6046 if (Level->IsValidPos(Pos)) {
6047 lsquare *Square = Level->GetLSquare(Pos);
6048 stack *Stack = Square->GetStack();
6049 if (Stack->GetItems()) {
6050 for (stackiterator i = Stack->GetBottom(); i.HasItem(); ++i) {
6051 if (i->IsPickable(this) && i->CanBeSeenBy(this) && i->CanBeEatenByAI(this) && (!Square->GetRoomIndex() || Square->GetRoom()->AllowFoodSearch())) {
6052 SetGoingTo(Pos);
6053 return MoveTowardsTarget(false);
6054 }
6055 }
6056 }
6057 }
6058 return false;
6059 }
6060
6061
6062 void character::SetConfig (int NewConfig, int SpecialFlags) {
6063 databasecreator<character>::InstallDataBase(this, NewConfig);
6064 CalculateAll();
6065 CheckIfSeen();
6066 if (!(SpecialFlags & NO_PIC_UPDATE)) UpdatePictures();
6067 }
6068
6069
6070 truth character::IsOver (citem *Item) const {
6071 for (int c1 = 0; c1 < Item->GetSquaresUnder(); ++c1)
6072 for (int c2 = 0; c2 < SquaresUnder; ++c2)
6073 if (Item->GetPos(c1) == GetPos(c2)) return true;
6074 return false;
6075 }
6076
6077
6078 truth character::CheckConsume (cfestring &Verb) const {
6079 if (!UsesNutrition()) {
6080 if (IsPlayer()) ADD_MESSAGE("In this form you can't and don't need to %s.", Verb.CStr());
6081 return false;
6082 }
6083 return true;
6084 }
6085
6086
6087 void character::PutTo (lsquare *To) {
6088 PutTo(To->GetPos());
6089 }
6090
6091
6092 double character::RandomizeBabyExperience (double SumE) {
6093 if (!SumE) return 0;
6094 double E = (SumE / 4) - (SumE / 32) + (double(RAND()) / MAX_RAND) * (SumE / 16 + 1);
6095 return Limit(E, MIN_EXP, MAX_EXP);
6096 }
6097
6098
6099 liquid *character::CreateBlood (sLong Volume) const {
6100 return liquid::Spawn(GetBloodMaterial(), Volume);
6101 }
6102
6103
6104 void character::SpillFluid (character *Spiller, liquid *Liquid, int SquareIndex) {
6105 sLong ReserveVolume = Liquid->GetVolume() >> 1;
6106 Liquid->EditVolume(-ReserveVolume);
6107 GetStack()->SpillFluid(Spiller, Liquid, sLong(Liquid->GetVolume() * sqrt(double(GetStack()->GetVolume()) / GetVolume())));
6108 Liquid->EditVolume(ReserveVolume);
6109 int c;
6110 sLong Modifier[MAX_BODYPARTS], ModifierSum = 0;
6111 for (c = 0; c < BodyParts; ++c) {
6112 if (GetBodyPart(c)) {
6113 Modifier[c] = sLong(sqrt(GetBodyPart(c)->GetVolume()));
6114 if (Modifier[c]) Modifier[c] *= 1 + (RAND() & 3);
6115 ModifierSum += Modifier[c];
6116 } else {
6117 Modifier[c] = 0;
6118 }
6119 }
6120 for (c = 1; c < GetBodyParts(); ++c) {
6121 if (GetBodyPart(c) && IsEnabled())
6122 GetBodyPart(c)->SpillFluid(Spiller, Liquid->SpawnMoreLiquid(Liquid->GetVolume() * Modifier[c] / ModifierSum), SquareIndex);
6123 }
6124 if (IsEnabled()) {
6125 Liquid->SetVolume(Liquid->GetVolume() * Modifier[TORSO_INDEX] / ModifierSum);
6126 GetTorso()->SpillFluid(Spiller, Liquid, SquareIndex);
6127 }
6128 }
6129
6130
6131 void character::StayOn (liquid *Liquid) {
6132 Liquid->TouchEffect(this, TORSO_INDEX);
6133 }
6134
6135
6136 truth character::IsAlly (ccharacter *Char) const {
6137 return Char->GetTeam()->GetID() == GetTeam()->GetID();
6138 }
6139
6140
6141 void character::ResetSpoiling () {
6142 doforbodyparts()(this, &bodypart::ResetSpoiling);
6143 }
6144
6145
6146 item *character::SearchForItem (ccharacter *Char, sorter Sorter) const {
6147 item *Equipment = findequipment<ccharacter *>()(this, Sorter, Char);
6148 if (Equipment) return Equipment;
6149 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) if (((*i)->*Sorter)(Char)) return *i;
6150 return 0;
6151 }
6152
6153
6154 truth character::DetectMaterial (cmaterial *Material) const {
6155 return GetStack()->DetectMaterial(Material) ||
6156 combinebodypartpredicateswithparam<cmaterial*>()(this, &bodypart::DetectMaterial, Material, 1) ||
6157 combineequipmentpredicateswithparam<cmaterial*>()(this, &item::DetectMaterial, Material, 1);
6158 }
6159
6160
6161 truth character::DamageTypeDestroysBodyPart (int Type) {
6162 return (Type&0xFFF) != PHYSICAL_DAMAGE;
6163 }
6164
6165
6166 truth character::CheckIfTooScaredToHit (ccharacter *Enemy) const {
6167 if (IsPlayer() && StateIsActivated(PANIC)) {
6168 for (int d = 0; d < GetNeighbourSquares(); ++d) {
6169 square *Square = GetNeighbourSquare(d);
6170 if (Square) {
6171 if(CanMoveOn(Square) && (!Square->GetCharacter() || Square->GetCharacter()->IsPet())) {
6172 ADD_MESSAGE("You are too scared to attack %s.", Enemy->CHAR_DESCRIPTION(DEFINITE));
6173 return true;
6174 }
6175 }
6176 }
6177 }
6178 return false;
6179 }
6180
6181
6182 void character::PrintBeginLevitationMessage () const {
6183 if (!IsFlying()) {
6184 if (IsPlayer()) ADD_MESSAGE("You rise into the air like a small hot-air balloon.");
6185 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s begins to float.", CHAR_NAME(DEFINITE));
6186 }
6187 }
6188
6189
6190 void character::PrintEndLevitationMessage () const {
6191 if (!IsFlying()) {
6192 if (IsPlayer()) ADD_MESSAGE("You descend gently onto the ground.");
6193 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s drops onto the ground.", CHAR_NAME(DEFINITE));
6194 }
6195 }
6196
6197
6198 truth character::IsLimbIndex (int I) {
6199 switch (I) {
6200 case RIGHT_ARM_INDEX:
6201 case LEFT_ARM_INDEX:
6202 case RIGHT_LEG_INDEX:
6203 case LEFT_LEG_INDEX:
6204 return true;
6205 }
6206 return false;
6207 }
6208
6209
6210 void character::EditExperience (int Identifier, double Value, double Speed) {
6211 if (!AllowExperience() || (Identifier == ENDURANCE && UseMaterialAttributes())) return;
6212 int Change = RawEditExperience(BaseExperience[Identifier], GetNaturalExperience(Identifier), Value, Speed);
6213 if (!Change) return;
6214 cchar *PlayerMsg = 0, *NPCMsg = 0;
6215 switch (Identifier) {
6216 case ENDURANCE:
6217 if (Change > 0) {
6218 PlayerMsg = "You feel tougher than anything!";
6219 if (IsPet()) NPCMsg = "Suddenly %s looks tougher.";
6220 } else {
6221 PlayerMsg = "You feel less healthy.";
6222 if (IsPet()) NPCMsg = "Suddenly %s looks less healthy.";
6223 }
6224 CalculateBodyPartMaxHPs();
6225 CalculateMaxStamina();
6226 break;
6227 case PERCEPTION:
6228 if (IsPlayer()) {
6229 if (Change > 0) {
6230 PlayerMsg = "You now see the world in much better detail than before.";
6231 } else {
6232 PlayerMsg = "You feel very guru.";
6233 game::GetGod(VALPURUS)->AdjustRelation(100);
6234 }
6235 game::SendLOSUpdateRequest();
6236 }
6237 break;
6238 case INTELLIGENCE:
6239 if (IsPlayer()) {
6240 if (Change > 0) PlayerMsg = "Suddenly the inner structure of the Multiverse around you looks quite simple.";
6241 else PlayerMsg = "It surely is hard to think today.";
6242 UpdateESPLOS();
6243 }
6244 if (IsPlayerKind()) UpdatePictures();
6245 break;
6246 case WISDOM:
6247 if (IsPlayer()) {
6248 if (Change > 0) PlayerMsg = "You feel your life experience increasing all the time.";
6249 else PlayerMsg = "You feel like having done something unwise.";
6250 }
6251 if (IsPlayerKind()) UpdatePictures();
6252 break;
6253 case CHARISMA:
6254 if (Change > 0) {
6255 PlayerMsg = "You feel very confident of your social skills.";
6256 if (IsPet()) {
6257 if (GetAttribute(CHARISMA) <= 15) NPCMsg = "%s looks less ugly.";
6258 else NPCMsg = "%s looks more attractive.";
6259 }
6260 } else {
6261 PlayerMsg = "You feel somehow disliked.";
6262 if (IsPet()) {
6263 if (GetAttribute(CHARISMA) < 15) NPCMsg = "%s looks more ugly.";
6264 else NPCMsg = "%s looks less attractive.";
6265 }
6266 }
6267 if (IsPlayerKind()) UpdatePictures();
6268 break;
6269 case MANA:
6270 if (Change > 0) {
6271 PlayerMsg = "You feel magical forces coursing through your body!";
6272 NPCMsg = "You notice an odd glow around %s.";
6273 } else {
6274 PlayerMsg = "You feel your magical abilities withering slowly.";
6275 NPCMsg = "You notice strange vibrations in the air around %s. But they disappear rapidly.";
6276 }
6277 break;
6278 }
6279
6280 if (IsPlayer()) ADD_MESSAGE("%s", PlayerMsg);
6281 else if (NPCMsg && CanBeSeenByPlayer()) ADD_MESSAGE(NPCMsg, CHAR_NAME(DEFINITE));
6282
6283 CalculateBattleInfo();
6284 }
6285
6286
6287 int character::RawEditExperience (double &Exp, double NaturalExp, double Value, double Speed) const {
6288 double OldExp = Exp;
6289 if (Speed < 0) {
6290 Speed = -Speed;
6291 Value = -Value;
6292 }
6293 if(!OldExp || !Value || (Value > 0 && OldExp >= NaturalExp * (100 + Value) / 100) ||
6294 (Value < 0 && OldExp <= NaturalExp * (100 + Value) / 100)) return 0;
6295 if (!IsPlayer()) Speed *= 1.5;
6296 Exp += (NaturalExp * (100 + Value) - 100 * OldExp) * Speed * EXP_DIVISOR;
6297 LimitRef(Exp, MIN_EXP, MAX_EXP);
6298 int NewA = int(Exp * EXP_DIVISOR);
6299 int OldA = int(OldExp * EXP_DIVISOR);
6300 int Delta = NewA - OldA;
6301 if (Delta > 0) Exp = Max(Exp, (NewA + 0.05) * EXP_MULTIPLIER);
6302 else if (Delta < 0) Exp = Min(Exp, (NewA + 0.95) * EXP_MULTIPLIER);
6303 LimitRef(Exp, MIN_EXP, MAX_EXP);
6304 return Delta;
6305 }
6306
6307
6308 int character::GetAttribute (int Identifier, truth AllowBonus) const {
6309 int A = int(BaseExperience[Identifier] * EXP_DIVISOR);
6310 if (AllowBonus && Identifier == INTELLIGENCE && BrainsHurt()) return Max((A + AttributeBonus[INTELLIGENCE]) / 3, 1);
6311 return A && AllowBonus ? Max(A + AttributeBonus[Identifier], 1) : A;
6312 }
6313
6314
6315 void characterdatabase::PostProcess () {
6316 double AM = (100 + AttributeBonus) * EXP_MULTIPLIER / 100;
6317 for (int c = 0; c < ATTRIBUTES; ++c) NaturalExperience[c] = this->*ExpPtr[c] * AM;
6318 }
6319
6320
6321 void character::EditDealExperience (sLong Price) {
6322 EditExperience(CHARISMA, sqrt(Price) / 5, 1 << 9);
6323 }
6324
6325
6326 void character::PrintBeginLeprosyMessage () const {
6327 if (IsPlayer()) ADD_MESSAGE("You feel you're falling in pieces.");
6328 }
6329
6330
6331 void character::PrintEndLeprosyMessage () const {
6332 if (IsPlayer()) ADD_MESSAGE("You feel your limbs are stuck in place tightly."); // CHANGE OR DIE
6333 }
6334
6335
6336 void character::TryToInfectWithLeprosy (ccharacter *Infector) {
6337 if (!IsImmuneToLeprosy() &&
6338 ((GetRelation(Infector) == HOSTILE && !RAND_N(50 * GetAttribute(ENDURANCE))) ||
6339 !RAND_N(500 * GetAttribute(ENDURANCE)))) GainIntrinsic(LEPROSY);
6340 }
6341
6342
6343 void character::SignalGeneration () {
6344 const_cast<database *>(DataBase)->Flags |= HAS_BEEN_GENERATED;
6345 }
6346
6347
6348 void character::CheckIfSeen () {
6349 if (IsPlayer() || CanBeSeenByPlayer()) SignalSeen();
6350 }
6351
6352
6353 void character::SignalSeen () {
6354 if (!(WarnFlags & WARNED) && GetRelation(PLAYER) == HOSTILE) {
6355 double Danger = GetRelativeDanger(PLAYER);
6356 if (Danger > 5.0) {
6357 game::SetDangerFound(Max(game::GetDangerFound(), Danger));
6358 if (Danger > 500.0 && !(WarnFlags & HAS_CAUSED_PANIC)) {
6359 WarnFlags |= HAS_CAUSED_PANIC;
6360 game::SetCausePanicFlag(true);
6361 }
6362 WarnFlags |= WARNED;
6363 }
6364 }
6365 const_cast<database *>(DataBase)->Flags |= HAS_BEEN_SEEN;
6366 }
6367
6368
6369 int character::GetPolymorphIntelligenceRequirement () const {
6370 if (DataBase->PolymorphIntelligenceRequirement == DEPENDS_ON_ATTRIBUTES) return Max(GetAttributeAverage() - 5, 0);
6371 return DataBase->PolymorphIntelligenceRequirement;
6372 }
6373
6374
6375 void character::RemoveAllItems () {
6376 GetStack()->Clean();
6377 for (int c = 0; c < GetEquipments(); ++c) {
6378 item *Equipment = GetEquipment(c);
6379 if (Equipment) {
6380 Equipment->RemoveFromSlot();
6381 Equipment->SendToHell();
6382 }
6383 }
6384 }
6385
6386
6387 int character::CalculateWeaponSkillHits (ccharacter *Enemy) const {
6388 if (Enemy->IsPlayer()) {
6389 configid ConfigID(GetType(), GetConfig());
6390 const dangerid& DangerID = game::GetDangerMap().find(ConfigID)->second;
6391 return Min(int(DangerID.EquippedDanger * 2000), 1000);
6392 }
6393 return Min(int(GetRelativeDanger(Enemy, true) * 2000), 1000);
6394 }
6395
6396
6397 truth character::CanUseEquipment (int I) const {
6398 return CanUseEquipment() && I < GetEquipments() && GetBodyPartOfEquipment(I) && EquipmentIsAllowed(I);
6399 }
6400
6401
6402 /* Target mustn't have any equipment */
6403 void character::DonateEquipmentTo (character *Character) {
6404 if (IsPlayer()) {
6405 feuLong *EquipmentMemory = game::GetEquipmentMemory();
6406 for (int c = 0; c < MAX_EQUIPMENT_SLOTS; ++c) {
6407 item *Item = GetEquipment(c);
6408 if (Item) {
6409 if (Character->CanUseEquipment(c)) {
6410 Item->RemoveFromSlot();
6411 Character->SetEquipment(c, Item);
6412 } else {
6413 EquipmentMemory[c] = Item->GetID();
6414 Item->MoveTo(Character->GetStack());
6415 }
6416 } else if (CanUseEquipment(c)) {
6417 EquipmentMemory[c] = 0;
6418 } else if (EquipmentMemory[c] && Character->CanUseEquipment(c)) {
6419 for (stackiterator i = Character->GetStack()->GetBottom(); i.HasItem(); ++i) {
6420 if (i->GetID() == EquipmentMemory[c]) {
6421 item *Item = *i;
6422 Item->RemoveFromSlot();
6423 Character->SetEquipment(c, Item);
6424 break;
6425 }
6426 }
6427 EquipmentMemory[c] = 0;
6428 }
6429 }
6430 } else {
6431 for (int c = 0; c < GetEquipments(); ++c) {
6432 item *Item = GetEquipment(c);
6433 if (Item) {
6434 if (Character->CanUseEquipment(c)) {
6435 Item->RemoveFromSlot();
6436 Character->SetEquipment(c, Item);
6437 } else {
6438 Item->MoveTo(Character->GetStackUnder());
6439 }
6440 }
6441 }
6442 }
6443 }
6444
6445
6446 void character::ReceivePeaSoup (sLong) {
6447 lsquare *Square = GetLSquareUnder();
6448 if (Square->IsFlyable()) Square->AddSmoke(gas::Spawn(FART, 250));
6449 }
6450
6451
6452 void character::AddPeaSoupConsumeEndMessage () const {
6453 if (IsPlayer()) {
6454 if (CanHear()) ADD_MESSAGE("Mmmh! The soup is very tasty. You hear a small puff.");
6455 else ADD_MESSAGE("Mmmh! The soup is very tasty.");
6456 } else if (CanBeSeenByPlayer() && PLAYER->CanHear()) {
6457 // change someday
6458 ADD_MESSAGE("You hear a small puff.");
6459 }
6460 }
6461
6462
6463 void character::CalculateMaxStamina () {
6464 MaxStamina = TorsoIsAlive() ? GetAttribute(ENDURANCE) * 10000 : 0;
6465 }
6466
6467
6468 void character::EditStamina (int Amount, truth CanCauseUnconsciousness) {
6469 if (!TorsoIsAlive()) return;
6470 int UnconsciousnessStamina = MaxStamina >> 3;
6471 if (!CanCauseUnconsciousness && Amount < 0) {
6472 if (Stamina > UnconsciousnessStamina) {
6473 Stamina += Amount;
6474 if (Stamina < UnconsciousnessStamina) Stamina = UnconsciousnessStamina;
6475 }
6476 return;
6477 }
6478 int OldStamina = Stamina;
6479 Stamina += Amount;
6480 if (Stamina > MaxStamina) {
6481 Stamina = MaxStamina;
6482 } else if (Stamina < 0) {
6483 Stamina = 0;
6484 LoseConsciousness(250 + RAND_N(250));
6485 } else if (IsPlayer()) {
6486 if (OldStamina >= MaxStamina >> 2 && Stamina < MaxStamina >> 2) {
6487 ADD_MESSAGE("You are getting a little tired.");
6488 } else if(OldStamina >= UnconsciousnessStamina && Stamina < UnconsciousnessStamina) {
6489 ADD_MESSAGE("You are seriously out of breath!");
6490 game::SetPlayerIsRunning(false);
6491 }
6492 }
6493 if (IsPlayer() && StateIsActivated(PANIC) && GetTirednessState() != FAINTING) game::SetPlayerIsRunning(true);
6494 }
6495
6496
6497 void character::RegenerateStamina () {
6498 if (GetTirednessState() != UNTIRED) {
6499 EditExperience(ENDURANCE, 50, 1);
6500 if (Sweats() && TorsoIsAlive() && !RAND_N(30) && !game::IsInWilderness()) {
6501 sLong Volume = sLong(0.05 * sqrt(GetBodyVolume()));
6502 if (GetTirednessState() == FAINTING) Volume <<= 1;
6503 for (int c = 0; c < SquaresUnder; ++c) GetLSquareUnder(c)->SpillFluid(0, CreateSweat(Volume), false, false);
6504 }
6505 }
6506 int Bonus = 1;
6507 if (Action) {
6508 if (Action->IsRest()) {
6509 if (SquaresUnder == 1) {
6510 Bonus = GetSquareUnder()->GetRestModifier() << 1;
6511 } else {
6512 int Lowest = GetSquareUnder(0)->GetRestModifier();
6513 for (int c = 1; c < GetSquaresUnder(); ++c) {
6514 int Mod = GetSquareUnder(c)->GetRestModifier();
6515 if (Mod < Lowest) Lowest = Mod;
6516 }
6517 Bonus = Lowest << 1;
6518 }
6519 } else if (Action->IsUnconsciousness()) Bonus = 2;
6520 }
6521 int Plus1 = 100;
6522 switch (GetBurdenState()) {
6523 case OVER_LOADED: Plus1 = 25; break;
6524 case STRESSED: Plus1 = 50; break;
6525 case BURDENED: Plus1 = 75; break;
6526 }
6527 int Plus2 = 100;
6528 if (IsPlayer()) {
6529 switch (GetHungerState()) {
6530 case STARVING: Plus2 = 25; break;
6531 case VERY_HUNGRY: Plus2 = 50; break;
6532 case HUNGRY: Plus2 = 75; break;
6533 }
6534 }
6535 Stamina += Plus1 * Plus2 * Bonus / 1000;
6536 if (Stamina > MaxStamina) Stamina = MaxStamina;
6537 if (IsPlayer() && StateIsActivated(PANIC) && GetTirednessState() != FAINTING) game::SetPlayerIsRunning(true);
6538 }
6539
6540
6541 void character::BeginPanic () {
6542 if (IsPlayer() && GetTirednessState() != FAINTING) game::SetPlayerIsRunning(true);
6543 DeActivateVoluntaryAction();
6544 }
6545
6546
6547 void character::EndPanic () {
6548 if (IsPlayer()) game::SetPlayerIsRunning(false);
6549 }
6550
6551
6552 int character::GetTirednessState () const {
6553 if (Stamina >= MaxStamina >> 2) return UNTIRED;
6554 if (Stamina >= MaxStamina >> 3) return EXHAUSTED;
6555 return FAINTING;
6556 }
6557
6558
6559 void character::ReceiveBlackUnicorn (sLong Amount) {
6560 if (!(RAND() % 160)) game::DoEvilDeed(Amount / 50);
6561 BeginTemporaryState(TELEPORT, Amount / 100);
6562 for (int c = 0; c < STATES; ++c) {
6563 if (StateData[c].Flags & DUR_TEMPORARY) {
6564 BeginTemporaryState(1 << c, Amount / 100);
6565 if (!IsEnabled()) return;
6566 } else if (StateData[c].Flags & DUR_PERMANENT) {
6567 GainIntrinsic(1 << c);
6568 if (!IsEnabled()) return;
6569 }
6570 }
6571 }
6572
6573
6574 void character::ReceiveGrayUnicorn (sLong Amount) {
6575 if (!(RAND() % 80)) game::DoEvilDeed(Amount / 50);
6576 BeginTemporaryState(TELEPORT, Amount / 100);
6577 for (int c = 0; c < STATES; ++c) {
6578 if (1 << c != TELEPORT) {
6579 DecreaseStateCounter(1 << c, -Amount / 100);
6580 if (!IsEnabled()) return;
6581 }
6582 }
6583 }
6584
6585
6586 void character::ReceiveWhiteUnicorn (sLong Amount) {
6587 if (!(RAND() % 40)) game::DoEvilDeed(Amount / 50);
6588 BeginTemporaryState(TELEPORT, Amount / 100);
6589 DecreaseStateCounter(LYCANTHROPY, -Amount / 100);
6590 DecreaseStateCounter(POISONED, -Amount / 100);
6591 DecreaseStateCounter(PARASITIZED, -Amount / 100);
6592 DecreaseStateCounter(LEPROSY, -Amount / 100);
6593 DecreaseStateCounter(VAMPIRISM, -Amount / 100);
6594 }
6595
6596
6597 /* Counter should be negative. Removes intrinsics. */
6598 void character::DecreaseStateCounter (sLong State, int Counter) {
6599 int Index;
6600 for (Index = 0; Index < STATES; ++Index) if (1 << Index == State) break;
6601 if (Index == STATES) ABORT("DecreaseTemporaryStateCounter works only when State == 2 ^ n!");
6602 if (TemporaryState & State) {
6603 if (TemporaryStateCounter[Index] == PERMANENT || (TemporaryStateCounter[Index] += Counter) <= 0) {
6604 TemporaryState &= ~State;
6605 if (!(EquipmentState & State)) {
6606 if (StateData[Index].EndHandler) {
6607 (this->*StateData[Index].EndHandler)();
6608 if (!IsEnabled()) return;
6609 }
6610 (this->*StateData[Index].PrintEndMessage)();
6611 }
6612 }
6613 }
6614 }
6615
6616
6617 truth character::IsImmuneToLeprosy () const {
6618 return DataBase->IsImmuneToLeprosy || UseMaterialAttributes();
6619 }
6620
6621
6622 void character::LeprosyHandler () {
6623 EditExperience(ARM_STRENGTH, -25, 1 << 1);
6624 EditExperience(LEG_STRENGTH, -25, 1 << 1);
6625 EditExperience(DEXTERITY, -25, 1 << 1);
6626 EditExperience(AGILITY, -25, 1 << 1);
6627 EditExperience(ENDURANCE, -25, 1 << 1);
6628 EditExperience(CHARISMA, -25, 1 << 1);
6629 CheckDeath(CONST_S("killed by leprosy"));
6630 }
6631
6632
6633 bodypart *character::SearchForOriginalBodyPart (int I) const {
6634 for (stackiterator i1 = GetStackUnder()->GetBottom(); i1.HasItem(); ++i1) {
6635 for (std::list<feuLong>::iterator i2 = OriginalBodyPartID[I].begin(); i2 != OriginalBodyPartID[I].end(); ++i2)
6636 if (i1->GetID() == *i2) return static_cast<bodypart*>(*i1);
6637 }
6638 return 0;
6639 }
6640
6641
6642 void character::SetLifeExpectancy (int Base, int RandPlus) {
6643 int c;
6644 for (c = 0; c < BodyParts; ++c) {
6645 bodypart *BodyPart = GetBodyPart(c);
6646 if (BodyPart) BodyPart->SetLifeExpectancy(Base, RandPlus);
6647 }
6648 for (c = 0; c < GetEquipments(); ++c) {
6649 item *Equipment = GetEquipment(c);
6650 if (Equipment) Equipment->SetLifeExpectancy(Base, RandPlus);
6651 }
6652 }
6653
6654
6655 /* Receiver should be a fresh duplicate of this */
6656 void character::DuplicateEquipment (character *Receiver, feuLong Flags) {
6657 for (int c = 0; c < GetEquipments(); ++c) {
6658 item *Equipment = GetEquipment(c);
6659 if (Equipment) {
6660 item *Duplicate = Equipment->Duplicate(Flags);
6661 Receiver->SetEquipment(c, Duplicate);
6662 }
6663 }
6664 }
6665
6666
6667 void character::Disappear (corpse *Corpse, cchar *Verb, truth (item::*ClosePredicate)() const) {
6668 truth TorsoDisappeared = false;
6669 truth CanBeSeen = Corpse ? Corpse->CanBeSeenByPlayer() : IsPlayer() || CanBeSeenByPlayer();
6670 int c;
6671 if ((GetTorso()->*ClosePredicate)()) {
6672 if (CanBeSeen) {
6673 if (Corpse) ADD_MESSAGE("%s %ss.", Corpse->CHAR_NAME(DEFINITE), Verb);
6674 else if (IsPlayer()) ADD_MESSAGE("You %s.", Verb);
6675 else ADD_MESSAGE("%s %ss.", CHAR_NAME(DEFINITE), Verb);
6676 }
6677 TorsoDisappeared = true;
6678 for (c = 0; c < GetEquipments(); ++c) {
6679 item *Equipment = GetEquipment(c);
6680 if (Equipment && (Equipment->*ClosePredicate)()) {
6681 Equipment->RemoveFromSlot();
6682 Equipment->SendToHell();
6683 }
6684 }
6685 itemvector ItemVector;
6686 GetStack()->FillItemVector(ItemVector);
6687 for (uInt c = 0; c < ItemVector.size(); ++c) {
6688 if (ItemVector[c] && (ItemVector[c]->*ClosePredicate)()) {
6689 ItemVector[c]->RemoveFromSlot();
6690 ItemVector[c]->SendToHell();
6691 }
6692 }
6693 }
6694 for (c = 1; c < GetBodyParts(); ++c) {
6695 bodypart *BodyPart = GetBodyPart(c);
6696 if (BodyPart) {
6697 if ((BodyPart->*ClosePredicate)()) {
6698 if (!TorsoDisappeared && CanBeSeen) {
6699 if(IsPlayer()) ADD_MESSAGE("Your %s %ss.", GetBodyPartName(c).CStr(), Verb);
6700 else ADD_MESSAGE("The %s of %s %ss.", GetBodyPartName(c).CStr(), CHAR_NAME(DEFINITE), Verb);
6701 }
6702 BodyPart->DropEquipment();
6703 item *BodyPart = SevereBodyPart(c);
6704 if (BodyPart) BodyPart->SendToHell();
6705 } else if (TorsoDisappeared) {
6706 BodyPart->DropEquipment();
6707 item *BodyPart = SevereBodyPart(c);
6708 if (BodyPart) {
6709 if (Corpse) Corpse->GetSlot()->AddFriendItem(BodyPart);
6710 else if (!game::IsInWilderness()) GetStackUnder()->AddItem(BodyPart);
6711 else BodyPart->SendToHell();
6712 }
6713 }
6714 }
6715 }
6716 if (TorsoDisappeared) {
6717 if (Corpse) {
6718 Corpse->RemoveFromSlot();
6719 Corpse->SendToHell();
6720 } else {
6721 CheckDeath(festring(Verb) + "ed", 0, FORCE_DEATH|DISALLOW_CORPSE|DISALLOW_MSG);
6722 }
6723 } else {
6724 CheckDeath(festring(Verb) + "ed", 0, DISALLOW_MSG);
6725 }
6726 }
6727
6728
6729 void character::SignalDisappearance () {
6730 if (GetMotherEntity()) GetMotherEntity()->SignalDisappearance();
6731 else Disappear(0, "disappear", &item::IsVeryCloseToDisappearance);
6732 }
6733
6734
6735 truth character::HornOfFearWorks () const {
6736 return CanHear() && GetPanicLevel() > RAND() % 33;
6737 }
6738
6739
6740 void character::BeginLeprosy () {
6741 doforbodypartswithparam<truth>()(this, &bodypart::SetIsInfectedByLeprosy, true);
6742 }
6743
6744
6745 void character::EndLeprosy () {
6746 doforbodypartswithparam<truth>()(this, &bodypart::SetIsInfectedByLeprosy, false);
6747 }
6748
6749
6750 truth character::IsSameAs (ccharacter *What) const {
6751 return What->GetType() == GetType() && What->GetConfig() == GetConfig();
6752 }
6753
6754
6755 feuLong character::GetCommandFlags () const {
6756 return !StateIsActivated(PANIC) ? CommandFlags : CommandFlags|FLEE_FROM_ENEMIES;
6757 }
6758
6759
6760 feuLong character::GetConstantCommandFlags () const {
6761 return !StateIsActivated(PANIC) ? DataBase->ConstantCommandFlags : DataBase->ConstantCommandFlags|FLEE_FROM_ENEMIES;
6762 }
6763
6764
6765 feuLong character::GetPossibleCommandFlags () const {
6766 int Int = GetAttribute(INTELLIGENCE);
6767 feuLong Flags = ALL_COMMAND_FLAGS;
6768 if (!CanMove() || Int < 4) Flags &= ~FOLLOW_LEADER;
6769 if (!CanMove() || Int < 6) Flags &= ~FLEE_FROM_ENEMIES;
6770 if (!CanUseEquipment() || Int < 8) Flags &= ~DONT_CHANGE_EQUIPMENT;
6771 if (!UsesNutrition() || Int < 8) Flags &= ~DONT_CONSUME_ANYTHING_VALUABLE;
6772 return Flags;
6773 }
6774
6775
6776 truth character::IsRetreating () const {
6777 return StateIsActivated(PANIC) || (CommandFlags & FLEE_FROM_ENEMIES && IsPet());
6778 }
6779
6780
6781 truth character::ChatMenu () {
6782 if (GetAction() && !GetAction()->CanBeTalkedTo()) {
6783 ADD_MESSAGE("%s is silent.", CHAR_DESCRIPTION(DEFINITE));
6784 PLAYER->EditAP(-200);
6785 return true;
6786 }
6787 feuLong ManagementFlags = GetManagementFlags();
6788 if (ManagementFlags == CHAT_IDLY || !IsPet()) return ChatIdly();
6789 static cchar *const ChatMenuEntry[CHAT_MENU_ENTRIES] = {
6790 "Change equipment",
6791 "Take items",
6792 "Give items",
6793 "Issue commands",
6794 "Chat idly",
6795 };
6796 static const petmanagementfunction PMF[CHAT_MENU_ENTRIES] = {
6797 &character::ChangePetEquipment,
6798 &character::TakePetItems,
6799 &character::GivePetItems,
6800 &character::IssuePetCommands,
6801 &character::ChatIdly
6802 };
6803 felist List(CONST_S("Choose action:"));
6804 game::SetStandardListAttributes(List);
6805 List.AddFlags(SELECTABLE);
6806 int c, i;
6807 for (c = 0; c < CHAT_MENU_ENTRIES; ++c) if (1 << c & ManagementFlags) List.AddEntry(ChatMenuEntry[c], LIGHT_GRAY);
6808 int Chosen = List.Draw();
6809 if (Chosen & FELIST_ERROR_BIT) return false;
6810 for (c = 0, i = 0; c < CHAT_MENU_ENTRIES; ++c) {
6811 if (1 << c & ManagementFlags && i++ == Chosen) return (this->*PMF[c])();
6812 }
6813 return false; // dummy
6814 }
6815
6816
6817 truth character::ChangePetEquipment () {
6818 if (EquipmentScreen(PLAYER->GetStack(), GetStack())) {
6819 DexterityAction(3);
6820 return true;
6821 }
6822 return false;
6823 }
6824
6825
6826 truth character::TakePetItems () {
6827 truth Success = false;
6828 stack::SetSelected(0);
6829 for (;;) {
6830 itemvector ToTake;
6831 game::DrawEverythingNoBlit();
6832 GetStack()->DrawContents(
6833 ToTake,
6834 0,
6835 PLAYER,
6836 CONST_S("What do you want to take from ") + CHAR_DESCRIPTION(DEFINITE) + '?',
6837 CONST_S(""),
6838 CONST_S(""),
6839 GetDescription(DEFINITE) + " is " + GetVerbalBurdenState(),
6840 GetVerbalBurdenStateColor(),
6841 REMEMBER_SELECTED);
6842 if (ToTake.empty()) break;
6843 for (uInt c = 0; c < ToTake.size(); ++c) ToTake[c]->MoveTo(PLAYER->GetStack());
6844 ADD_MESSAGE("You take %s.", ToTake[0]->GetName(DEFINITE, ToTake.size()).CStr());
6845 Success = true;
6846 }
6847 if (Success) {
6848 DexterityAction(2);
6849 PLAYER->DexterityAction(2);
6850 }
6851 return Success;
6852 }
6853
6854
6855 truth character::GivePetItems () {
6856 truth Success = false;
6857 stack::SetSelected(0);
6858 for (;;) {
6859 itemvector ToGive;
6860 game::DrawEverythingNoBlit();
6861 PLAYER->GetStack()->DrawContents(
6862 ToGive,
6863 0,
6864 this,
6865 CONST_S("What do you want to give to ") + CHAR_DESCRIPTION(DEFINITE) + '?',
6866 CONST_S(""),
6867 CONST_S(""),
6868 GetDescription(DEFINITE) + " is " + GetVerbalBurdenState(),
6869 GetVerbalBurdenStateColor(),
6870 REMEMBER_SELECTED);
6871 if (ToGive.empty()) break;
6872 for (uInt c = 0; c < ToGive.size(); ++c) ToGive[c]->MoveTo(GetStack());
6873 ADD_MESSAGE("You give %s to %s.", ToGive[0]->GetName(DEFINITE, ToGive.size()).CStr(), CHAR_DESCRIPTION(DEFINITE));
6874 Success = true;
6875 }
6876 if (Success) {
6877 DexterityAction(2);
6878 PLAYER->DexterityAction(2);
6879 }
6880 return Success;
6881 }
6882
6883
6884 truth character::IssuePetCommands () {
6885 if (!IsConscious()) {
6886 ADD_MESSAGE("%s is unconscious.", CHAR_DESCRIPTION(DEFINITE));
6887 return false;
6888 }
6889 feuLong PossibleC = GetPossibleCommandFlags();
6890 if (!PossibleC) {
6891 ADD_MESSAGE("%s cannot be commanded.", CHAR_DESCRIPTION(DEFINITE));
6892 return false;
6893 }
6894 feuLong OldC = GetCommandFlags();
6895 feuLong NewC = OldC, VaryFlags = 0;
6896 game::CommandScreen(CONST_S("Issue commands to ")+GetDescription(DEFINITE), PossibleC, GetConstantCommandFlags(), VaryFlags, NewC);
6897 if (NewC == OldC) return false;
6898 SetCommandFlags(NewC);
6899 PLAYER->EditAP(-500);
6900 PLAYER->EditExperience(CHARISMA, 25, 1 << 7);
6901 return true;
6902 }
6903
6904
6905 truth character::ChatIdly () {
6906 if (!TryToTalkAboutScience()) {
6907 BeTalkedTo();
6908 PLAYER->EditExperience(CHARISMA, 75, 1 << 7);
6909 }
6910 PLAYER->EditAP(-1000);
6911 return true;
6912 }
6913
6914
6915 truth character::EquipmentScreen (stack *MainStack, stack *SecStack) {
6916 if (!CanUseEquipment()) {
6917 ADD_MESSAGE("%s cannot use equipment.", CHAR_DESCRIPTION(DEFINITE));
6918 return false;
6919 }
6920 int Chosen = 0;
6921 truth EquipmentChanged = false;
6922 felist List(CONST_S("Equipment menu [ESC exits]"));
6923 festring Entry;
6924 for (;;) {
6925 List.Empty();
6926 List.EmptyDescription();
6927 if (!IsPlayer()) {
6928 List.AddDescription(CONST_S(""));
6929 List.AddDescription(festring(GetDescription(DEFINITE) + " is " + GetVerbalBurdenState()).CapitalizeCopy(), GetVerbalBurdenStateColor());
6930 }
6931 for (int c = 0; c < GetEquipments(); ++c) {
6932 Entry = GetEquipmentName(c);
6933 Entry << ':';
6934 Entry.Resize(20);
6935 item *Equipment = GetEquipment(c);
6936 if (Equipment) {
6937 Equipment->AddInventoryEntry(this, Entry, 1, true);
6938 AddSpecialEquipmentInfo(Entry, c);
6939 int ImageKey = game::AddToItemDrawVector(itemvector(1, Equipment));
6940 List.AddEntry(Entry, LIGHT_GRAY, 20, ImageKey, true);
6941 } else {
6942 Entry << (GetBodyPartOfEquipment(c) ? "-" : "can't use");
6943 List.AddEntry(Entry, LIGHT_GRAY, 20, game::AddToItemDrawVector(itemvector()));
6944 }
6945 }
6946 game::DrawEverythingNoBlit();
6947 game::SetStandardListAttributes(List);
6948 List.SetFlags(SELECTABLE|DRAW_BACKGROUND_AFTERWARDS);
6949 List.SetEntryDrawer(game::ItemEntryDrawer);
6950 Chosen = List.Draw();
6951 game::ClearItemDrawVector();
6952 if (Chosen >= GetEquipments()) break;
6953 EquipmentChanged = TryToChangeEquipment(MainStack, SecStack, Chosen);
6954 }
6955 if (EquipmentChanged) DexterityAction(5);
6956 return EquipmentChanged;
6957 }
6958
6959
6960 feuLong character::GetManagementFlags () const {
6961 feuLong Flags = ALL_MANAGEMENT_FLAGS;
6962 if (!CanUseEquipment() || !AllowPlayerToChangeEquipment()) Flags &= ~CHANGE_EQUIPMENT;
6963 if (!GetStack()->GetItems()) Flags &= ~TAKE_ITEMS;
6964 if (!WillCarryItems()) Flags &= ~GIVE_ITEMS;
6965 if (!GetPossibleCommandFlags()) Flags &= ~ISSUE_COMMANDS;
6966 return Flags;
6967 }
6968
6969
6970 cchar *VerbalBurdenState[] = { "overloaded", "stressed", "burdened", "unburdened" };
6971 col16 VerbalBurdenStateColor[] = { RED, BLUE, BLUE, WHITE };
6972
6973 cchar *character::GetVerbalBurdenState () const { return VerbalBurdenState[BurdenState]; }
6974 col16 character::GetVerbalBurdenStateColor () const { return VerbalBurdenStateColor[BurdenState]; }
6975 int character::GetAttributeAverage () const { return GetSumOfAttributes()/7; }
6976
6977 cfestring &character::GetStandVerb() const {
6978 if (ForceCustomStandVerb()) return DataBase->StandVerb;
6979 static festring Hovering = "hovering";
6980 static festring Swimming = "swimming";
6981 if (StateIsActivated(LEVITATION)) return Hovering;
6982 if (IsSwimming()) return Swimming;
6983 return DataBase->StandVerb;
6984 }
6985
6986
6987 truth character::CheckApply () const {
6988 if (!CanApply()) {
6989 ADD_MESSAGE("This monster type cannot apply.");
6990 return false;
6991 }
6992 return true;
6993 }
6994
6995
6996 void character::EndLevitation () {
6997 if (!IsFlying() && GetSquareUnder()) {
6998 if (!game::IsInWilderness()) SignalStepFrom(0);
6999 if (game::IsInWilderness() || !GetLSquareUnder()->IsFreezed()) TestWalkability();
7000 }
7001 }
7002
7003
7004 truth character::CanMove () const {
7005 return !IsRooted() || StateIsActivated(LEVITATION);
7006 }
7007
7008
7009 void character::CalculateEnchantments () {
7010 doforequipments()(this, &item::CalculateEnchantment);
7011 GetStack()->CalculateEnchantments();
7012 }
7013
7014
7015 truth character::GetNewFormForPolymorphWithControl (character *&NewForm) {
7016 festring Topic, Temp;
7017 NewForm = 0;
7018 while (!NewForm) {
7019 festring Temp = game::DefaultQuestion(CONST_S("What do you want to become? [press '?' for a list]"), game::GetDefaultPolymorphTo(), &game::PolymorphControlKeyHandler);
7020 NewForm = protosystem::CreateMonster(Temp);
7021 if (NewForm) {
7022 if (NewForm->IsSameAs(this)) {
7023 delete NewForm;
7024 ADD_MESSAGE("You choose not to polymorph.");
7025 NewForm = this;
7026 return false;
7027 }
7028 if (PolymorphBackup && NewForm->IsSameAs(PolymorphBackup)) {
7029 delete NewForm;
7030 NewForm = ForceEndPolymorph();
7031 return false;
7032 }
7033 if (NewForm->GetPolymorphIntelligenceRequirement() > GetAttribute(INTELLIGENCE) && !game::WizardModeIsActive()) {
7034 ADD_MESSAGE("You feel your mind isn't yet powerful enough to call forth the form of %s.", NewForm->CHAR_NAME(INDEFINITE));
7035 delete NewForm;
7036 NewForm = 0;
7037 } else {
7038 NewForm->RemoveAllItems();
7039 }
7040 }
7041 }
7042 return true;
7043 }
7044
7045
7046 liquid *character::CreateSweat(sLong Volume) const {
7047 //return liquid::Spawn(GetSweatMaterial(), Volume);
7048 return liquid::Spawn(GetCurrentSweatMaterial(), Volume);
7049 }
7050
7051
7052 truth character::TeleportRandomItem (truth TryToHinderVisibility) {
7053 if (IsImmuneToItemTeleport()) return false;
7054 itemvector ItemVector;
7055 std::vector<sLong> PossibilityVector;
7056 int TotalPossibility = 0;
7057 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) {
7058 ItemVector.push_back(*i);
7059 int Possibility = i->GetTeleportPriority();
7060 if (TryToHinderVisibility) Possibility += i->GetHinderVisibilityBonus(this);
7061 PossibilityVector.push_back(Possibility);
7062 TotalPossibility += Possibility;
7063 }
7064 for (int c = 0; c < GetEquipments(); ++c) {
7065 item *Equipment = GetEquipment(c);
7066 if (Equipment) {
7067 ItemVector.push_back(Equipment);
7068 int Possibility = Equipment->GetTeleportPriority();
7069 if (TryToHinderVisibility) Possibility += Equipment->GetHinderVisibilityBonus(this);
7070 PossibilityVector.push_back(Possibility <<= 1);
7071 TotalPossibility += Possibility;
7072 }
7073 }
7074 if (!TotalPossibility) return false;
7075 int Chosen = femath::WeightedRand(PossibilityVector, TotalPossibility);
7076 item *Item = ItemVector[Chosen];
7077 truth Equipped = PLAYER->Equips(Item);
7078 truth Seen = Item->CanBeSeenByPlayer();
7079 Item->RemoveFromSlot();
7080 if (Seen) ADD_MESSAGE("%s disappears.", Item->CHAR_NAME(DEFINITE));
7081 if (Equipped) game::AskForEscPress(CONST_S("Equipment lost!"));
7082 v2 Pos = GetPos();
7083 int Range = Item->GetEmitation() && TryToHinderVisibility ? 25 : 5;
7084 rect Border(Pos + v2(-Range, -Range), Pos + v2(Range, Range));
7085 Pos = GetLevel()->GetRandomSquare(this, 0, &Border);
7086 if (Pos == ERROR_V2) Pos = GetLevel()->GetRandomSquare();
7087 GetNearLSquare(Pos)->GetStack()->AddItem(Item);
7088 if (Item->CanBeSeenByPlayer()) ADD_MESSAGE("%s appears.", Item->CHAR_NAME(INDEFINITE));
7089 return true;
7090 }
7091
7092
7093 truth character::HasClearRouteTo (v2 Pos) const {
7094 pathcontroller::Map = GetLevel()->GetMap();
7095 pathcontroller::Character = this;
7096 v2 ThisPos = GetPos();
7097 return mapmath<pathcontroller>::DoLine(ThisPos.X, ThisPos.Y, Pos.X, Pos.Y, SKIP_FIRST);
7098 }
7099
7100
7101 truth character::IsTransparent () const {
7102 return !IsEnormous() || GetTorso()->GetMainMaterial()->IsTransparent() || StateIsActivated(INVISIBLE);
7103 }
7104
7105
7106 void character::SignalPossibleTransparencyChange () {
7107 if (!game::IsInWilderness()) {
7108 for (int c = 0; c < SquaresUnder; ++c) {
7109 lsquare *Square = GetLSquareUnder(c);
7110 if (Square) Square->SignalPossibleTransparencyChange();
7111 }
7112 }
7113 }
7114
7115
7116 int character::GetCursorData () const {
7117 int Bad = 0;
7118 int Color = game::PlayerIsRunning() ? BLUE_CURSOR : DARK_CURSOR;
7119 for (int c = 0; c < BodyParts; ++c) {
7120 bodypart *BodyPart = GetBodyPart(c);
7121 if (BodyPart && BodyPart->IsUsable()) {
7122 int ConditionColorIndex = BodyPart->GetConditionColorIndex();
7123 if ((BodyPartIsVital(c) && !ConditionColorIndex) || (ConditionColorIndex <= 1 && ++Bad == 2)) return Color|CURSOR_FLASH;
7124 } else if (++Bad == 2) return Color|CURSOR_FLASH;
7125 }
7126 Color = game::PlayerIsRunning() ? YELLOW_CURSOR : RED_CURSOR;
7127 return Bad ? Color|CURSOR_FLASH : Color;
7128 }
7129
7130
7131 void character::TryToName () {
7132 if (!IsPet()) ADD_MESSAGE("%s refuses to let YOU decide what %s's called.", CHAR_NAME(DEFINITE), CHAR_PERSONAL_PRONOUN);
7133 else if (IsPlayer()) ADD_MESSAGE("You can't rename yourself.");
7134 else if (!IsNameable()) ADD_MESSAGE("%s refuses to be called anything else but %s.", CHAR_NAME(DEFINITE), CHAR_NAME(DEFINITE));
7135 else {
7136 festring Topic = CONST_S("What name will you give to ")+GetName(DEFINITE)+'?';
7137 festring Name = game::StringQuestion(Topic, WHITE, 0, 80, true);
7138 if (Name.GetSize()) SetAssignedName(Name);
7139 }
7140 }
7141
7142
7143 double character::GetSituationDanger (ccharacter *Enemy, v2 ThisPos, v2 EnemyPos, truth SeesEnemy) const {
7144 double Danger;
7145 if (IgnoreDanger() && !IsPlayer()) {
7146 if (Enemy->IgnoreDanger() && !Enemy->IsPlayer()) {
7147 Danger = double(GetHP())*GetHPRequirementForGeneration()/(Enemy->GetHP()*Enemy->GetHPRequirementForGeneration());
7148 }
7149 else {
7150 Danger = 0.25*GetHPRequirementForGeneration()/Enemy->GetHP();
7151 }
7152 } else if (Enemy->IgnoreDanger() && !Enemy->IsPlayer()) {
7153 Danger = 4.0*GetHP()/Enemy->GetHPRequirementForGeneration();
7154 } else {
7155 Danger = GetRelativeDanger(Enemy);
7156 }
7157 Danger *= 3.0/((EnemyPos-ThisPos).GetManhattanLength()+2);
7158 if (!SeesEnemy) Danger *= 0.2;
7159 if (StateIsActivated(PANIC)) Danger *= 0.2;
7160 Danger *= double(GetHP())*Enemy->GetMaxHP()/(Enemy->GetHP()*GetMaxHP());
7161 return Danger;
7162 }
7163
7164
7165 void character::ModifySituationDanger (double &Danger) const {
7166 switch (GetTirednessState()) {
7167 case FAINTING: Danger *= 1.5;
7168 case EXHAUSTED: Danger *= 1.25;
7169 }
7170 for (int c = 0; c < STATES; ++c) {
7171 if (StateIsActivated(1 << c) && StateData[c].SituationDangerModifier != 0) (this->*StateData[c].SituationDangerModifier)(Danger);
7172 }
7173 }
7174
7175
7176 void character::LycanthropySituationDangerModifier (double &Danger) const {
7177 character *Wolf = werewolfwolf::Spawn();
7178 double DangerToWolf = GetRelativeDanger(Wolf);
7179 Danger *= pow(DangerToWolf, 0.1);
7180 delete Wolf;
7181 }
7182
7183
7184 void character::PoisonedSituationDangerModifier (double &Danger) const {
7185 int C = GetTemporaryStateCounter(POISONED);
7186 Danger *= (1+(C*C)/(GetHP()*10000.0*(GetGlobalResistance(POISON)+1)));
7187 }
7188
7189
7190 void character::PolymorphingSituationDangerModifier (double &Danger) const {
7191 if (!StateIsActivated(POLYMORPH_CONTROL)) Danger *= 1.5;
7192 }
7193
7194
7195 void character::PanicSituationDangerModifier (double &Danger) const {
7196 Danger *= 1.5;
7197 }
7198
7199
7200 void character::ConfusedSituationDangerModifier (double &Danger) const {
7201 Danger *= 1.5;
7202 }
7203
7204
7205 void character::ParasitizedSituationDangerModifier (double &Danger) const {
7206 Danger *= 1.25;
7207 }
7208
7209
7210 void character::LeprosySituationDangerModifier (double &Danger) const {
7211 Danger *= 1.5;
7212 }
7213
7214
7215 void character::AddRandomScienceName (festring &String) const {
7216 festring Science = GetScienceTalkName().GetRandomElement().CStr();
7217 if (Science[0] == '!') {
7218 String << Science.CStr()+1;
7219 return;
7220 }
7221 festring Attribute = GetScienceTalkAdjectiveAttribute().GetRandomElement();
7222 festring Prefix;
7223 truth NoAttrib = Attribute.IsEmpty(), NoSecondAdjective = false;
7224 if (!Attribute.IsEmpty() && Attribute[0] == '!') {
7225 NoSecondAdjective = true;
7226 Attribute.Erase(0, 1);
7227 }
7228 if (!Science.Find("the ")) {
7229 Science.Erase(0, 4);
7230 if (!Attribute.Find("the ", 0, 4)) Attribute << " the"; else Attribute.Insert(0, "the ", 4);
7231 }
7232 if (islower(Science[0]) && Science.Find(' ') == festring::NPos && Science.Find('-') == festring::NPos &&
7233 Science.Find("phobia") == festring::NPos) {
7234 Prefix = GetScienceTalkPrefix().GetRandomElement();
7235 if (!Prefix.IsEmpty() && Science.Find(Prefix) != festring::NPos) Prefix.Empty();
7236 }
7237 int L = Prefix.GetSize();
7238 if (L && Prefix[L-1] == Science[0]) Science.Erase(0, 1);
7239 if (!NoAttrib && !NoSecondAdjective == !RAND_GOOD(3)) {
7240 int S1 = NoSecondAdjective ? 0 : GetScienceTalkAdjectiveAttribute().Size;
7241 int S2 = GetScienceTalkSubstantiveAttribute().Size;
7242 festring OtherAttribute;
7243 int Chosen = RAND_GOOD(S1+S2);
7244 if (Chosen < S1) OtherAttribute = GetScienceTalkAdjectiveAttribute()[Chosen];
7245 else OtherAttribute = GetScienceTalkSubstantiveAttribute()[Chosen - S1];
7246 if (!OtherAttribute.IsEmpty() && OtherAttribute.Find("the ", 0, 4) && Attribute.Find(OtherAttribute) == festring::NPos) {
7247 String << Attribute << ' ' << OtherAttribute << ' ' << Prefix << Science;
7248 return;
7249 }
7250 }
7251 String << Attribute;
7252 if (!NoAttrib) String << ' ';
7253 String << Prefix << Science;
7254 }
7255
7256
7257 truth character::TryToTalkAboutScience () {
7258 if (GetRelation(PLAYER) == HOSTILE ||
7259 GetScienceTalkPossibility() <= RAND_GOOD(100) ||
7260 PLAYER->GetAttribute(INTELLIGENCE) < GetScienceTalkIntelligenceRequirement() ||
7261 PLAYER->GetAttribute(WISDOM) < GetScienceTalkWisdomRequirement() ||
7262 PLAYER->GetAttribute(CHARISMA) < GetScienceTalkCharismaRequirement())
7263 return false;
7264 festring Science;
7265 if (RAND_GOOD(3)) {
7266 AddRandomScienceName(Science);
7267 } else {
7268 festring S1, S2;
7269 AddRandomScienceName(S1);
7270 AddRandomScienceName(S2);
7271 if (S1.Find(S2) == festring::NPos && S2.Find(S1) == festring::NPos) {
7272 switch (RAND_GOOD(3)) {
7273 case 0: Science = "the relation of "; break;
7274 case 1: Science = "the differences of "; break;
7275 case 2: Science = "the similarities of "; break;
7276 }
7277 Science << S1 << " and " << S2;
7278 }
7279 else {
7280 AddRandomScienceName(Science);
7281 }
7282 }
7283 switch ((RAND() + GET_TICK()) % 10) {
7284 case 0:
7285 ADD_MESSAGE("You have a rather pleasant chat about %s with %s.", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7286 break;
7287 case 1:
7288 ADD_MESSAGE("%s explains a few of %s opinions regarding %s to you.", CHAR_DESCRIPTION(DEFINITE), CHAR_POSSESSIVE_PRONOUN, Science.CStr());
7289 break;
7290 case 2:
7291 ADD_MESSAGE("%s reveals a number of %s insightful views of %s to you.", CHAR_DESCRIPTION(DEFINITE), CHAR_POSSESSIVE_PRONOUN, Science.CStr());
7292 break;
7293 case 3:
7294 ADD_MESSAGE("You exhange some information pertaining to %s with %s.", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7295 break;
7296 case 4:
7297 ADD_MESSAGE("You engage in a pretty intriguing conversation about %s with %s.", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7298 break;
7299 case 5:
7300 ADD_MESSAGE("You discuss at length about %s with %s.", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7301 break;
7302 case 6:
7303 ADD_MESSAGE("You have a somewhat boring talk concerning %s with %s.", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7304 break;
7305 case 7:
7306 ADD_MESSAGE("You are drawn into a heated argument regarding %s with %s.", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7307 break;
7308 case 8:
7309 ADD_MESSAGE("%s delivers a sLong monologue concerning eg. %s.", CHAR_DESCRIPTION(DEFINITE), Science.CStr());
7310 break;
7311 case 9:
7312 ADD_MESSAGE("You dive into a brief but thought-provoking debate over %s with %s", Science.CStr(), CHAR_DESCRIPTION(DEFINITE));
7313 break;
7314 }
7315 PLAYER->EditExperience(INTELLIGENCE, 1000, 50. * GetScienceTalkIntelligenceModifier() / ++ScienceTalks);
7316 PLAYER->EditExperience(WISDOM, 1000, 50. * GetScienceTalkWisdomModifier() / ++ScienceTalks);
7317 PLAYER->EditExperience(CHARISMA, 1000, 50. * GetScienceTalkCharismaModifier() / ++ScienceTalks);
7318 return true;
7319 }
7320
7321
7322 truth character::IsUsingWeaponOfCategory (int Category) const {
7323 return
7324 ((GetMainWielded() && GetMainWielded()->GetWeaponCategory() == Category) ||
7325 (GetSecondaryWielded() && GetSecondaryWielded()->GetWeaponCategory() == Category));
7326 }
7327
7328
7329 truth character::TryToUnStickTraps (v2 Dir) {
7330 if (!TrapData) return true;
7331 std::vector<trapdata> TrapVector;
7332 for (const trapdata *T = TrapData; T; T = T->Next) TrapVector.push_back(*TrapData);
7333 for (uInt c = 0; c < TrapVector.size(); ++c) {
7334 if (IsEnabled()) {
7335 entity *Trap = game::SearchTrap(TrapVector[c].TrapID);
7336 /*k8:??? if(!Trap->Exists()) int esko = esko = 2; */
7337 if (!Trap->Exists()) continue; /*k8: ??? added by me; what this means? */
7338 if (Trap->GetVictimID() == GetID() && Trap->TryToUnStick(this, Dir)) break;
7339 }
7340 }
7341 return !TrapData && IsEnabled();
7342 }
7343
7344
7345 struct trapidcomparer {
7346 trapidcomparer (feuLong ID) : ID(ID) {}
7347 truth operator () (const trapdata *T) const { return T->TrapID == ID; }
7348 feuLong ID;
7349 };
7350
7351
7352 void character::RemoveTrap (feuLong ID) {
7353 trapdata *&T = ListFind(TrapData, trapidcomparer(ID));
7354 T = T->Next;
7355 doforbodyparts()(this, &bodypart::SignalPossibleUsabilityChange);
7356 }
7357
7358
7359 void character::AddTrap (feuLong ID, feuLong BodyParts) {
7360 trapdata *&T = ListFind(TrapData, trapidcomparer(ID));
7361 if (T) T->BodyParts |= BodyParts;
7362 else T = new trapdata(ID, GetID(), BodyParts);
7363 doforbodyparts()(this, &bodypart::SignalPossibleUsabilityChange);
7364 }
7365
7366
7367 truth character::IsStuckToTrap (feuLong ID) const {
7368 for (const trapdata *T = TrapData; T; T = T->Next) if (T->TrapID == ID) return true;
7369 return false;
7370 }
7371
7372
7373 void character::RemoveTraps () {
7374 for (trapdata *T = TrapData; T;) {
7375 entity *Trap = game::SearchTrap(T->TrapID);
7376 if (Trap) Trap->UnStick();
7377 trapdata *ToDel = T;
7378 T = T->Next;
7379 delete ToDel;
7380 }
7381 TrapData = 0;
7382 doforbodyparts()(this, &bodypart::SignalPossibleUsabilityChange);
7383 }
7384
7385
7386 void character::RemoveTraps (int BodyPartIndex) {
7387 feuLong Flag = 1 << BodyPartIndex;
7388 for (trapdata **T = &TrapData; *T;) {
7389 if ((*T)->BodyParts & Flag) {
7390 entity *Trap = game::SearchTrap((*T)->TrapID);
7391 if (!((*T)->BodyParts &= ~Flag)) {
7392 if (Trap) Trap->UnStick();
7393 trapdata *ToDel = *T;
7394 *T = (*T)->Next;
7395 delete ToDel;
7396 } else {
7397 if (Trap) Trap->UnStick(BodyPartIndex);
7398 T = &(*T)->Next;
7399 }
7400 }
7401 else {
7402 T = &(*T)->Next;
7403 }
7404 }
7405 if (GetBodyPart(BodyPartIndex)) GetBodyPart(BodyPartIndex)->SignalPossibleUsabilityChange();
7406 }
7407
7408
7409 festring character::GetTrapDescription () const {
7410 festring Desc;
7411 std::pair<entity *, int> TrapStack[3];
7412 int Index = 0;
7413 for (const trapdata *T = TrapData; T; T = T->Next) {
7414 if (Index < 3) {
7415 entity *Trap = game::SearchTrap(T->TrapID);
7416 if (Trap) {
7417 int c;
7418 for (c = 0; c < Index; ++c) if (TrapStack[c].first->GetTrapType() == Trap->GetTrapType()) ++TrapStack[c].second;
7419 if (c == Index) TrapStack[Index++] = std::make_pair(Trap, 1);
7420 }
7421 } else {
7422 ++Index;
7423 break;
7424 }
7425 }
7426 if (Index <= 3) {
7427 TrapStack[0].first->AddTrapName(Desc, TrapStack[0].second);
7428 if (Index == 2) {
7429 Desc << " and ";
7430 TrapStack[1].first->AddTrapName(Desc, TrapStack[1].second);
7431 } else if (Index == 3) {
7432 Desc << ", ";
7433 TrapStack[1].first->AddTrapName(Desc, TrapStack[1].second);
7434 Desc << " and ";
7435 TrapStack[2].first->AddTrapName(Desc, TrapStack[2].second);
7436 }
7437 } else {
7438 Desc << "lots of traps";
7439 }
7440 return Desc;
7441 }
7442
7443
7444 int character::RandomizeHurtBodyPart (feuLong BodyParts) const {
7445 int BodyPartIndex[MAX_BODYPARTS];
7446 int Index = 0;
7447 for (int c = 0; c < GetBodyParts(); ++c) {
7448 if (1 << c & BodyParts) {
7449 /*k8: ??? if(!GetBodyPart(c)) int esko = esko = 2; */
7450 if (!GetBodyPart(c)) continue;
7451 BodyPartIndex[Index++] = c;
7452 }
7453 /*k8: ??? if(!Index) int esko = esko = 2;*/
7454 }
7455 if (!Index) abort();
7456 return BodyPartIndex[RAND_N(Index)];
7457 }
7458
7459
7460 truth character::BodyPartIsStuck (int I) const {
7461 for (const trapdata *T = TrapData; T; T = T->Next) if (1 << I & T->BodyParts) return true;
7462 return false;
7463 }
7464
7465
7466 void character::PrintAttribute (cchar *Desc, int I, int PanelPosX, int PanelPosY) const {
7467 int Attribute = GetAttribute(I);
7468 int NoBonusAttribute = GetAttribute(I, false);
7469 col16 C = game::GetAttributeColor(I);
7470 festring String = Desc;
7471 String.Resize(5);
7472 String << Attribute;
7473 String.Resize(8);
7474 FONT->Printf(DOUBLE_BUFFER, v2(PanelPosX, PanelPosY * 10), C, "%s", String.CStr());
7475 if (Attribute != NoBonusAttribute) {
7476 int Where = PanelPosX + ((String.GetSize() + 1) << 3);
7477 FONT->Printf(DOUBLE_BUFFER, v2(Where, PanelPosY * 10), LIGHT_GRAY, "%d", NoBonusAttribute);
7478 }
7479 }
7480
7481
7482 truth character::AllowUnconsciousness () const {
7483 return DataBase->AllowUnconsciousness && TorsoIsAlive();
7484 }
7485
7486
7487 truth character::CanPanic () const {
7488 return !Action || !Action->IsUnconsciousness();
7489 }
7490
7491
7492 int character::GetRandomBodyPart (feuLong Possible) const {
7493 int OKBodyPart[MAX_BODYPARTS];
7494 int OKBodyParts = 0;
7495 for (int c = 0; c < BodyParts; ++c) if (1 << c & Possible && GetBodyPart(c)) OKBodyPart[OKBodyParts++] = c;
7496 return OKBodyParts ? OKBodyPart[RAND_N(OKBodyParts)] : NONE_INDEX;
7497 }
7498
7499
7500 void character::EditNP (sLong What) {
7501 int OldState = GetHungerState();
7502 NP += What;
7503 int NewState = GetHungerState();
7504 if (OldState > VERY_HUNGRY && NewState == VERY_HUNGRY) DeActivateVoluntaryAction(CONST_S("You are getting really hungry."));
7505 if (OldState > STARVING && NewState == STARVING) DeActivateVoluntaryAction(CONST_S("You are getting extremely hungry."));
7506 }
7507
7508
7509 truth character::IsSwimming () const {
7510 return !IsFlying() && GetSquareUnder() && GetSquareUnder()->GetSquareWalkability() & SWIM;
7511 }
7512
7513
7514 void character::AddBlackUnicornConsumeEndMessage () const {
7515 if (IsPlayer()) ADD_MESSAGE("You feel dirty and loathsome.");
7516 }
7517
7518
7519 void character::AddGrayUnicornConsumeEndMessage () const {
7520 if (IsPlayer()) ADD_MESSAGE("You feel neutralized.");
7521 }
7522
7523
7524 void character::AddWhiteUnicornConsumeEndMessage () const {
7525 if (IsPlayer()) ADD_MESSAGE("You feel purified.");
7526 }
7527
7528
7529 void character::AddOmmelBoneConsumeEndMessage () const {
7530 if (IsPlayer()) ADD_MESSAGE("You feel the power of all your canine ancestors combining in your body.");
7531 else if (CanBeSeenByPlayer()) ADD_MESSAGE("For a moment %s looks extremely ferocious. You shudder.", CHAR_NAME(DEFINITE));
7532 }
7533
7534
7535 void character::AddLiquidHorrorConsumeEndMessage () const {
7536 if (IsPlayer()) ADD_MESSAGE("Untold horrors flash before your eyes. The melancholy of the world is on your shoulders!");
7537 else if (CanBeSeenByPlayer()) ADD_MESSAGE("%s looks as if the melancholy of the world is on %s shoulders!.", CHAR_NAME(DEFINITE), GetPossessivePronoun().CStr());
7538 }
7539
7540
7541 int character::GetBodyPartSparkleFlags (int) const {
7542 return
7543 ((GetNaturalSparkleFlags() & SKIN_COLOR ? SPARKLING_A : 0) |
7544 (GetNaturalSparkleFlags() & TORSO_MAIN_COLOR ? SPARKLING_B : 0) |
7545 (GetNaturalSparkleFlags() & TORSO_SPECIAL_COLOR ? SPARKLING_D : 0));
7546 }
7547
7548
7549 truth character::IsAnimated () const {
7550 return combinebodypartpredicates()(this, &bodypart::IsAnimated, 1);
7551 }
7552
7553
7554 double character::GetNaturalExperience (int Identifier) const {
7555 return DataBase->NaturalExperience[Identifier];
7556 }
7557
7558
7559 truth character::HasBodyPart (sorter Sorter) const {
7560 if (Sorter == 0) return true;
7561 return combinebodypartpredicateswithparam<ccharacter*>()(this, Sorter, this, 1);
7562 }
7563
7564
7565 truth character::PossessesItem (sorter Sorter) const {
7566 if (Sorter == 0) return true;
7567 return
7568 (GetStack()->SortedItems(this, Sorter) ||
7569 combinebodypartpredicateswithparam<ccharacter*>()(this, Sorter, this, 1) ||
7570 combineequipmentpredicateswithparam<ccharacter*>()(this, Sorter, this, 1));
7571 }
7572
7573
7574 /* 0 <= I <= 1 */
7575 cchar *character::GetRunDescriptionLine (int I) const {
7576 if (!GetRunDescriptionLineOne().IsEmpty()) return !I ? GetRunDescriptionLineOne().CStr() : GetRunDescriptionLineTwo().CStr();
7577 if (IsFlying()) return !I ? "Flying" : "very fast";
7578 if (IsSwimming()) return !I ? "Swimming" : "very fast";
7579 return !I ? "Running" : "";
7580 }
7581
7582
7583 void character::VomitAtRandomDirection (int Amount) {
7584 if (game::IsInWilderness()) return;
7585 /* Lacks support of multitile monsters */
7586 v2 Possible[9];
7587 int Index = 0;
7588 for (int d = 0; d < 9; ++d) {
7589 lsquare *Square = GetLSquareUnder()->GetNeighbourLSquare(d);
7590 if (Square && !Square->VomitingIsDangerous(this)) Possible[Index++] = Square->GetPos();
7591 }
7592 if (Index) Vomit(Possible[RAND_N(Index)], Amount);
7593 else Vomit(GetPos(), Amount);
7594 }
7595
7596
7597 void character::RemoveLifeSavers () {
7598 for (int c = 0; c < GetEquipments(); ++c) {
7599 item *Equipment = GetEquipment(c);
7600 if (Equipment && Equipment->IsInCorrectSlot(c) && Equipment->GetGearStates() & LIFE_SAVED) {
7601 Equipment->SendToHell();
7602 Equipment->RemoveFromSlot();
7603 }
7604 }
7605 }
7606
7607
7608 ccharacter *character::FindCarrier () const {
7609 return this; //check
7610 }
7611
7612
7613 void character::PrintBeginHiccupsMessage () const {
7614 if (IsPlayer()) ADD_MESSAGE("Your diaphragm is spasming vehemently.");
7615 }
7616
7617
7618 void character::PrintEndHiccupsMessage () const {
7619 if (IsPlayer()) ADD_MESSAGE("You feel your annoying hiccoughs have finally subsided.");
7620 }
7621
7622
7623 void character::HiccupsHandler () {
7624 /*
7625 if (!(RAND() % 2000)) {
7626 if (IsPlayer()) ADD_MESSAGE("");
7627 else if (CanBeSeenByPlayer()) ADD_MESSAGE("");
7628 else if ((PLAYER->GetPos()-GetPos()).GetLengthSquare() <= 400) ADD_MESSAGE("");
7629 game::CallForAttention(GetPos(), 400);
7630 }
7631 */
7632 }
7633
7634
7635 void character::VampirismHandler () {
7636 //EditExperience(ARM_STRENGTH, -25, 1 << 1);
7637 //EditExperience(LEG_STRENGTH, -25, 1 << 1);
7638 //EditExperience(DEXTERITY, -25, 1 << 1);
7639 //EditExperience(AGILITY, -25, 1 << 1);
7640 //EditExperience(ENDURANCE, -25, 1 << 1);
7641 EditExperience(CHARISMA, -25, 1 << 1);
7642 EditExperience(WISDOM, -25, 1 << 1);
7643 EditExperience(INTELLIGENCE, -25, 1 << 1);
7644 CheckDeath(CONST_S("killed by vampirism"));
7645 }
7646
7647
7648 void character::HiccupsSituationDangerModifier (double &Danger) const {
7649 Danger *= 1.25;
7650 }
7651
7652
7653 void character::VampirismSituationDangerModifier (double &Danger) const {
7654 character *Vampire = vampire::Spawn();
7655 double DangerToVampire = GetRelativeDanger(Vampire);
7656 Danger *= pow(DangerToVampire, 0.1);
7657 delete Vampire;
7658 }
7659
7660
7661 bool character::IsConscious () const {
7662 return !Action || !Action->IsUnconsciousness();
7663 }
7664
7665
7666 wsquare *character::GetNearWSquare (v2 Pos) const {
7667 return static_cast<wsquare *>(GetSquareUnder()->GetArea()->GetSquare(Pos));
7668 }
7669
7670
7671 wsquare *character::GetNearWSquare (int x, int y) const {
7672 return static_cast<wsquare *>(GetSquareUnder()->GetArea()->GetSquare(x, y));
7673 }
7674
7675
7676 void character::ForcePutNear (v2 Pos) {
7677 /* GUM SOLUTION!!! */
7678 v2 NewPos = game::GetCurrentLevel()->GetNearestFreeSquare(PLAYER, Pos, false);
7679 if (NewPos == ERROR_V2) do { NewPos = game::GetCurrentLevel()->GetRandomSquare(this); } while(NewPos == Pos);
7680 PutTo(NewPos);
7681 }
7682
7683
7684 void character::ReceiveMustardGas (int BodyPart, sLong Volume) {
7685 if (Volume) GetBodyPart(BodyPart)->AddFluid(liquid::Spawn(MUSTARD_GAS_LIQUID, Volume), CONST_S("skin"), 0, true);
7686 }
7687
7688
7689 void character::ReceiveMustardGasLiquid (int BodyPartIndex, sLong Modifier) {
7690 bodypart *BodyPart = GetBodyPart(BodyPartIndex);
7691 if (BodyPart->GetMainMaterial()->GetInteractionFlags() & IS_AFFECTED_BY_MUSTARD_GAS) {
7692 sLong Tries = Modifier;
7693 Modifier -= Tries; //opt%?
7694 int Damage = 0;
7695 for (sLong c = 0; c < Tries; ++c) if (!(RAND() % 100)) ++Damage;
7696 if (Modifier && !(RAND() % 1000 / Modifier)) ++Damage;
7697 if (Damage) {
7698 feuLong Minute = game::GetTotalMinutes();
7699 if (GetLastAcidMsgMin() != Minute && (CanBeSeenByPlayer() || IsPlayer())) {
7700 SetLastAcidMsgMin(Minute);
7701 if (IsPlayer()) ADD_MESSAGE("Mustard gas dissolves the skin of your %s.", BodyPart->GetBodyPartName().CStr());
7702 else ADD_MESSAGE("Mustard gas dissolves %s.", CHAR_NAME(DEFINITE));
7703 }
7704 ReceiveBodyPartDamage(0, Damage, MUSTARD_GAS_DAMAGE, BodyPartIndex, YOURSELF, false, false, false);
7705 CheckDeath(CONST_S("killed by a fatal exposure to mustard gas"));
7706 }
7707 }
7708 }
7709
7710
7711 truth character::IsBadPath (v2 Pos) const {
7712 if (!IsGoingSomeWhere()) return false;
7713 v2 TPos = !Route.empty() ? Route.back() : GoingTo;
7714 return ((TPos - Pos).GetManhattanLength() > (TPos - GetPos()).GetManhattanLength());
7715 }
7716
7717
7718 double &character::GetExpModifierRef (expid E) {
7719 return ExpModifierMap.insert(std::make_pair(E, 1.)).first->second;
7720 }
7721
7722
7723 /* Should probably do more. Now only makes Player forget gods */
7724 truth character::ForgetRandomThing () {
7725 if (IsPlayer()) {
7726 /* hopefully this code isn't some where else */
7727 std::vector<god *> Known;
7728 for (int c = 1; c <= GODS; ++c) if (game::GetGod(c)->IsKnown()) Known.push_back(game::GetGod(c));
7729 if (Known.empty()) return false;
7730 int RandomGod = RAND_N(Known.size());
7731 Known.at(RAND_N(Known.size()))->SetIsKnown(false);
7732 ADD_MESSAGE("You forget how to pray to %s.", Known.at(RandomGod)->GetName());
7733 return true;
7734 }
7735 return false;
7736 }
7737
7738
7739 int character::CheckForBlock (character *Enemy, item *Weapon, double ToHitValue, int Damage, int Success, int Type) {
7740 return Damage;
7741 };
7742
7743
7744 void character::ApplyAllGodsKnownBonus () {
7745 stack *AddPlace = GetStackUnder();
7746 if (game::IsInWilderness()) AddPlace = GetStack(); else AddPlace = GetStackUnder();
7747 pantheonbook *NewBook = pantheonbook::Spawn();
7748 AddPlace->AddItem(NewBook);
7749 ADD_MESSAGE("\"MORTAL! BEHOLD THE HOLY SAGA\"");
7750 ADD_MESSAGE("%s materializes near your feet.", NewBook->CHAR_NAME(INDEFINITE));
7751 }
7752
7753
7754 void character::ReceiveSirenSong (character *Siren) {
7755 if (Siren->GetTeam() == GetTeam()) return;
7756 if (!RAND_N(4)) {
7757 if (IsPlayer()) ADD_MESSAGE("The beautiful melody of %s makes you feel sleepy.", Siren->CHAR_NAME(DEFINITE));
7758 else if (CanBeSeenByPlayer()) ADD_MESSAGE("The beautiful melody of %s makes %s look sleepy.", Siren->CHAR_NAME(DEFINITE), CHAR_NAME(DEFINITE)); /*k8*/
7759 Stamina -= (1 + RAND_N(4)) * 10000;
7760 return;
7761 }
7762 if (!IsPlayer() && IsCharmable() && !RAND_N(5)) {
7763 ChangeTeam(Siren->GetTeam());
7764 ADD_MESSAGE("%s seems to be totally brainwashed by %s melodies.", CHAR_NAME(DEFINITE), Siren->CHAR_NAME(DEFINITE));
7765 return;
7766 }
7767 if (!RAND_N(4)) {
7768 item *What = GiveMostExpensiveItem(Siren);
7769 if (What) {
7770 if (IsPlayer()) {
7771 ADD_MESSAGE("%s music persuades you to give %s to %s as a present.", Siren->CHAR_NAME(DEFINITE), What->CHAR_NAME(DEFINITE), Siren->CHAR_OBJECT_PRONOUN);
7772 } else {
7773 ADD_MESSAGE("%s is persuated to give %s to %s because of %s beautiful singing.", CHAR_NAME(DEFINITE), What->CHAR_NAME(INDEFINITE), Siren->CHAR_NAME(DEFINITE), Siren->CHAR_OBJECT_PRONOUN);
7774 }
7775 } else {
7776 if (IsPlayer()) ADD_MESSAGE("You would like to give something to %s.", Siren->CHAR_NAME(DEFINITE));
7777 }
7778 return;
7779 }
7780 }
7781
7782
7783 // return 0, if no item found
7784 item *character::FindMostExpensiveItem () const {
7785 int MaxPrice = -1;
7786 item *MostExpensive = 0;
7787 for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) {
7788 if ((*i)->GetPrice() > MaxPrice) {
7789 MaxPrice = (*i)->GetPrice();
7790 MostExpensive = (*i);
7791 }
7792 }
7793 for (int c = 0; c < GetEquipments(); ++c) {
7794 item *Equipment = GetEquipment(c);
7795 if (Equipment && Equipment->GetPrice() > MaxPrice) {
7796 MaxPrice = Equipment->GetPrice();
7797 MostExpensive = Equipment;
7798 }
7799 }
7800 return MostExpensive;
7801 }
7802
7803
7804 // returns 0 if no items available
7805 item *character::GiveMostExpensiveItem(character *ToWhom) {
7806 item *ToGive = FindMostExpensiveItem();
7807 if (!ToGive) return 0;
7808 truth Equipped = PLAYER->Equips(ToGive);
7809 ToGive->RemoveFromSlot();
7810 if (Equipped) game::AskForEscPress(CONST_S("Equipment lost!"));
7811 ToWhom->ReceiveItemAsPresent(ToGive);
7812 EditAP(-1000);
7813 return ToGive;
7814 }
7815
7816
7817 void character::ReceiveItemAsPresent (item *Present) {
7818 if (TestForPickup(Present)) GetStack()->AddItem(Present); else GetStackUnder()->AddItem(Present);
7819 }
7820
7821
7822 /* returns 0 if no enemies in sight */
7823 character *character::GetNearestEnemy () const {
7824 character *NearestEnemy = 0;
7825 sLong NearestEnemyDistance = 0x7FFFFFFF;
7826 v2 Pos = GetPos();
7827 for (int c = 0; c < game::GetTeams(); ++c) {
7828 if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) {
7829 for (std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i) {
7830 if ((*i)->IsEnabled()) {
7831 sLong ThisDistance = Max<sLong>(abs((*i)->GetPos().X - Pos.X), abs((*i)->GetPos().Y - Pos.Y));
7832 if ((ThisDistance < NearestEnemyDistance || (ThisDistance == NearestEnemyDistance && !(RAND() % 3))) && (*i)->CanBeSeenBy(this)) {
7833 NearestEnemy = *i;
7834 NearestEnemyDistance = ThisDistance;
7835 }
7836 }
7837 }
7838 }
7839 }
7840 return NearestEnemy;
7841 }
7842
7843
7844 truth character::MindWormCanPenetrateSkull (mindworm *) const {
7845 return false;
7846 }
7847
7848
7849 truth character::CanTameWithDulcis (const character *Tamer) const {
7850 int TamingDifficulty = GetTamingDifficulty();
7851 if (TamingDifficulty == NO_TAMING) return false;
7852 if (GetAttachedGod() == DULCIS) return true;
7853 int Modifier = Tamer->GetAttribute(WISDOM) + Tamer->GetAttribute(CHARISMA);
7854 if (Tamer->IsPlayer()) Modifier += game::GetGod(DULCIS)->GetRelation() / 20;
7855 else if (Tamer->GetAttachedGod() == DULCIS) Modifier += 50;
7856 if (TamingDifficulty == 0) {
7857 if (!IgnoreDanger()) TamingDifficulty = int(10 * GetRelativeDanger(Tamer));
7858 else TamingDifficulty = 10 * GetHPRequirementForGeneration()/Max(Tamer->GetHP(), 1);
7859 }
7860 return Modifier >= TamingDifficulty * 3;
7861 }
7862
7863
7864 truth character::CanTameWithLyre (const character *Tamer) const {
7865 int TamingDifficulty = GetTamingDifficulty();
7866 if (TamingDifficulty == NO_TAMING) return false;
7867 if (TamingDifficulty == 0) {
7868 if (!IgnoreDanger()) TamingDifficulty = int(10 * GetRelativeDanger(Tamer));
7869 else TamingDifficulty = 10*GetHPRequirementForGeneration()/Max(Tamer->GetHP(), 1);
7870 }
7871 return Tamer->GetAttribute(CHARISMA) >= TamingDifficulty;
7872 }
7873
7874
7875 truth character::CanTameWithScroll (const character *Tamer) const {
7876 int TamingDifficulty = GetTamingDifficulty();
7877 return
7878 (TamingDifficulty != NO_TAMING &&
7879 (TamingDifficulty == 0 ||
7880 Tamer->GetAttribute(INTELLIGENCE) * 4 + Tamer->GetAttribute(CHARISMA) >= TamingDifficulty * 5));
7881 }
7882
7883
7884 truth character::CheckSadism () {
7885 if (!IsSadist() || !HasSadistAttackMode() || !IsSmall()) return false; // gum
7886 if (!RAND_N(10)) {
7887 for (int d = 0; d < 8; ++d) {
7888 square *Square = GetNeighbourSquare(d);
7889 if (Square) {
7890 character *Char = Square->GetCharacter();
7891 if (Char && Char->IsMasochist() && GetRelation(Char) == FRIEND &&
7892 Char->GetHP() * 3 >= Char->GetMaxHP() * 2 && Hit(Char, Square->GetPos(), d, SADIST_HIT)) {
7893 TerminateGoingTo();
7894 return true;
7895 }
7896 }
7897 }
7898 }
7899 return false;
7900 }
7901
7902
7903 truth character::CheckForBeverage () {
7904 if (StateIsActivated(PANIC) || !IsEnabled() || !UsesNutrition() || CheckIfSatiated()) return false;
7905 itemvector ItemVector;
7906 GetStack()->FillItemVector(ItemVector);
7907 for (uInt c = 0; c < ItemVector.size(); ++c) if (ItemVector[c]->IsBeverage(this) && TryToConsume(ItemVector[c])) return true;
7908 return false;
7909 }
7910
7911
7912 void character::Haste () {
7913 doforbodyparts()(this, &bodypart::Haste);
7914 doforequipments()(this, &item::Haste);
7915 BeginTemporaryState(HASTE, 500 + RAND() % 1000);
7916 }
7917
7918
7919 void character::Slow () {
7920 doforbodyparts()(this, &bodypart::Slow);
7921 doforequipments()(this, &item::Slow);
7922 //BeginTemporaryState(HASTE, 500 + RAND() % 1000); // this seems to be a bug
7923 BeginTemporaryState(SLOW, 500 + RAND() % 1000);
7924 }
7925
7926
7927 void character::SurgicallyDetachBodyPart () {
7928 ADD_MESSAGE("You haven't got any extra bodyparts.");
7929 }
7930
7931
7932 truth character::CanHear() const
7933 {
7934 return DataBase->CanHear && HasHead();
7935 }
I.V.A.N. roguelike fork