src/game/human.cpp

   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
  13 /* Compiled through charsset.cpp */
  14
  15 cint humanoid::DrawOrder[] = { TORSO_INDEX, GROIN_INDEX, RIGHT_LEG_INDEX, LEFT_LEG_INDEX, RIGHT_ARM_INDEX, LEFT_ARM_INDEX, HEAD_INDEX };
  16
  17 truth humanoid::BodyPartIsVital(int I) const { return I == TORSO_INDEX || I == HEAD_INDEX || I == GROIN_INDEX; }
  18 truth humanoid::BodyPartCanBeSevered(int I) const { return I != TORSO_INDEX && I != GROIN_INDEX; }
  19 int humanoid::OpenMultiplier() const { return HasAUsableArm() ? 1 : 3; }
  20 int humanoid::CloseMultiplier() const { return HasAUsableArm() ? 1 : 2; }
  21 int humanoid::GetCarryingStrength() const { return Max(GetAttribute(LEG_STRENGTH), 1) + CarryingBonus; }
  22 void humanoid::CalculateBodyParts() { BodyParts = HUMANOID_BODYPARTS; }
  23 void humanoid::CalculateAllowedWeaponSkillCategories() { AllowedWeaponSkillCategories = WEAPON_SKILL_CATEGORIES; }
  24
  25 v2 farmer::GetHeadBitmapPos() const { return v2(96, (4 + (RAND() & 1)) << 4); }
  26 v2 farmer::GetRightArmBitmapPos() const { return v2(64, (RAND() & 1) << 4); }
  27
  28 void guard::SetWayPoints(const fearray<packv2>& What) { ArrayToVector(What, WayPoints); }
  29
  30 cchar* oree::FirstPersonBiteVerb() const { return "vomit acidous blood at"; }
  31 cchar* oree::FirstPersonCriticalBiteVerb() const { return "vomit very acidous blood at"; }
  32 cchar* oree::ThirdPersonBiteVerb() const { return "vomits acidous blood at"; }
  33 cchar* oree::ThirdPersonCriticalBiteVerb() const { return "vomits very acidous blood at"; }
  34 cchar* oree::BiteNoun() const { return "liquid"; }
  35
  36 truth skeleton::BodyPartIsVital(int I) const { return I == GROIN_INDEX || I == TORSO_INDEX; }
  37
  38 truth communist::ShowClassDescription() const { return GetAssignedName() != "Ivan"; }
  39
  40 v2 housewife::GetHeadBitmapPos() const { return v2(112, (RAND() % 6) << 4); }
  41
  42 truth zombie::BodyPartIsVital(int I) const { return I == GROIN_INDEX || I == TORSO_INDEX; }
  43 festring zombie::GetZombieDescription() const { return Description; }
  44
  45 truth angel::BodyPartIsVital(int I) const { return I == TORSO_INDEX || I == HEAD_INDEX; }
  46
  47 truth genie::BodyPartIsVital(int I) const { return I == TORSO_INDEX || I == HEAD_INDEX; }
  48
  49 material* golem::CreateBodyPartMaterial(int, long Volume) const { return MAKE_MATERIAL(GetConfig(), Volume); }
  50
  51 truth sumowrestler::EquipmentIsAllowed(int I) const { return I == BELT_INDEX; }
  52
  53 truth ennerbeast::Hit(character* Enemy, v2, int, int)
  54 {
  55   if(CheckIfTooScaredToHit(Enemy))
  56     return false;
  57
  58   if(RAND() & 1)
  59     ADD_MESSAGE("%s yells: UGH UGHAaaa!", CHAR_DESCRIPTION(DEFINITE));
  60   else
  61     ADD_MESSAGE("%s yells: Uga Ugar Ugade Ugat!", CHAR_DESCRIPTION(DEFINITE));
  62
  63   rect Rect;
  64   femath::CalculateEnvironmentRectangle(Rect, GetLevel()->GetBorder(), GetPos(), 30);
  65
  66   for(int x = Rect.X1; x <= Rect.X2; ++x)
  67     for(int y = Rect.Y1; y <= Rect.Y2; ++y)
  68     {
  69       int ScreamStrength = int(70 / (hypot(GetPos().X - x, GetPos().Y - y) + 1));
  70
  71       if(ScreamStrength)
  72       {
  73   character* Char = GetNearSquare(x, y)->GetCharacter();
  74
  75   if(Char && Char != this)
  76   {
  77     msgsystem::EnterBigMessageMode();
  78
  79     if(Char->IsPlayer())
  80       ADD_MESSAGE("You are hit by the horrible waves of high sound.");
  81     else if(Char->CanBeSeenByPlayer())
  82       ADD_MESSAGE("%s is hit by the horrible waves of high sound.", Char->CHAR_NAME(DEFINITE));
  83
  84     Char->ReceiveDamage(this, ScreamStrength, SOUND, ALL, YOURSELF, true);
  85     Char->CheckDeath(CONST_S("killed @bkp scream"), this);
  86     msgsystem::LeaveBigMessageMode();
  87   }
  88
  89   GetNearLSquare(x, y)->GetStack()->ReceiveDamage(this, ScreamStrength, SOUND);
  90       }
  91     }
  92
  93   EditNP(-100);
  94   EditAP(-1000000 / GetCWeaponSkill(BITE)->GetBonus());
  95   EditStamina(-1000, false);
  96   return true;
  97 }
  98
  99 void skeleton::CreateCorpse(lsquare* Square)
 100 {
 101   if(GetHead())
 102   {
 103     item* Skull = SevereBodyPart(HEAD_INDEX, false, Square->GetStack());
 104     Square->AddItem(Skull);
 105   }
 106
 107   int Amount = 2 + (RAND() & 3);
 108
 109   for(int c = 0; c < Amount; ++c)
 110     Square->AddItem(bone::Spawn());
 111
 112   SendToHell();
 113 }
 114
 115 void humanoid::Save(outputfile& SaveFile) const
 116 {
 117   character::Save(SaveFile);
 118   SaveFile << SWeaponSkill;
 119 }
 120
 121 void humanoid::Load(inputfile& SaveFile)
 122 {
 123   character::Load(SaveFile);
 124   SaveFile >> SWeaponSkill;
 125
 126   if(GetRightWielded())
 127     for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
 128       if((*i)->IsSkillOf(GetRightWielded()))
 129       {
 130   SetCurrentRightSWeaponSkill(*i);
 131   break;
 132       }
 133
 134   if(GetLeftWielded())
 135     for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
 136       if((*i)->IsSkillOf(GetLeftWielded()))
 137       {
 138   SetCurrentLeftSWeaponSkill(*i);
 139   break;
 140       }
 141 }
 142
 143 truth golem::MoveRandomly()
 144 {
 145   if(!(RAND() % 500))
 146   {
 147     Engrave(CONST_S("Golem Needs Master"));
 148     EditAP(-1000);
 149     return true;
 150   }
 151   else
 152     return character::MoveRandomly();
 153 }
 154
 155 void ennerbeast::GetAICommand()
 156 {
 157   SeekLeader(GetLeader());
 158
 159   if(StateIsActivated(PANIC) || !(RAND() % 3))
 160     Hit(0, ZERO_V2, YOURSELF);
 161
 162   if(CheckForEnemies(false, false, true))
 163     return;
 164
 165   if(FollowLeader(GetLeader()))
 166     return;
 167
 168   if(MoveRandomly())
 169     return;
 170
 171   EditAP(-1000);
 172 }
 173
 174 item* humanoid::GetMainWielded() const
 175 {
 176   if(GetMainArm())
 177     if(GetMainArm()->GetWielded())
 178       return GetMainArm()->GetWielded();
 179     else
 180       if(GetSecondaryArm())
 181   return GetSecondaryArm()->GetWielded();
 182       else
 183   return 0;
 184   else
 185     if(GetSecondaryArm())
 186       return GetSecondaryArm()->GetWielded();
 187     else
 188       return 0;
 189 }
 190
 191 item* humanoid::GetSecondaryWielded() const
 192 {
 193   if(GetMainArm() && GetMainArm()->GetWielded() && GetSecondaryArm())
 194     return GetSecondaryArm()->GetWielded();
 195   else
 196     return 0;
 197 }
 198
 199 truth humanoid::Hit(character* Enemy, v2 HitPos, int Direction, int Flags)
 200 {
 201   if(CheckIfTooScaredToHit(Enemy))
 202     return false;
 203
 204   if(IsPlayer())
 205   {
 206     if(!(Enemy->IsMasochist() && GetRelation(Enemy) == FRIEND) && GetRelation(Enemy) != HOSTILE && !game::TruthQuestion(CONST_S("This might cause a hostile reaction. Are you sure? [y/N]")))
 207       return false;
 208   }
 209   else if(GetAttribute(WISDOM) >= Enemy->GetAttackWisdomLimit())
 210     return false;
 211
 212   if(GetBurdenState() == OVER_LOADED)
 213   {
 214     if(IsPlayer())
 215       ADD_MESSAGE("You cannot fight while carrying so much.");
 216
 217     return false;
 218   }
 219
 220   int c, AttackStyles;
 221
 222   for(c = 0, AttackStyles = 0; c < 8; ++c)
 223     if(GetAttackStyle() & (1 << c))
 224       ++AttackStyles;
 225
 226   int Chosen = RAND() % AttackStyles;
 227
 228   for(c = 0, AttackStyles = 0; c < 8; ++c)
 229     if(GetAttackStyle() & (1 << c) && AttackStyles++ == Chosen)
 230     {
 231       Chosen = 1 << c;
 232       break;
 233     }
 234
 235   switch(Chosen)
 236   {
 237    case USE_ARMS:
 238     if(CanAttackWithAnArm() && (!(Flags & SADIST_HIT) || HasSadistWeapon()))
 239     {
 240       msgsystem::EnterBigMessageMode();
 241       Hostility(Enemy);
 242       long FirstAPCost = 0, SecondAPCost = 0;
 243       arm* FirstArm, * SecondArm;
 244
 245       if(RAND() & 1)
 246       {
 247   FirstArm = GetRightArm();
 248   SecondArm = GetLeftArm();
 249       }
 250       else
 251       {
 252   FirstArm = GetLeftArm();
 253   SecondArm = GetRightArm();
 254       }
 255
 256       int Strength = Max(GetAttribute(ARM_STRENGTH), 1);
 257
 258       if(FirstArm && FirstArm->GetDamage() && (!(Flags & SADIST_HIT) || FirstArm->HasSadistWeapon()))
 259       {
 260   FirstAPCost = FirstArm->GetAPCost();
 261   FirstArm->Hit(Enemy, HitPos, Direction, Flags);
 262
 263   if(StateIsActivated(LEPROSY) && !RAND_N(25 * GetAttribute(ENDURANCE)))
 264     DropBodyPart(FirstArm->GetBodyPartIndex());
 265       }
 266
 267       if(!GetAction() && IsEnabled() && Enemy->IsEnabled() && SecondArm && SecondArm->GetDamage() && (!(Flags & SADIST_HIT) || SecondArm->HasSadistWeapon()))
 268       {
 269   SecondAPCost = SecondArm->GetAPCost();
 270   SecondArm->Hit(Enemy, HitPos, Direction, Flags);
 271
 272   if(StateIsActivated(LEPROSY) && !RAND_N(25 * GetAttribute(ENDURANCE)))
 273     DropBodyPart(SecondArm->GetBodyPartIndex());
 274       }
 275
 276       EditNP(-50);
 277       EditAP(-Max(FirstAPCost, SecondAPCost));
 278       EditStamina(-10000 / Strength, false);
 279       msgsystem::LeaveBigMessageMode();
 280       return true;
 281     }
 282    case USE_LEGS:
 283     if(HasTwoUsableLegs())
 284     {
 285       msgsystem::EnterBigMessageMode();
 286       Hostility(Enemy);
 287       Kick(GetNearLSquare(HitPos), Direction, Flags & SADIST_HIT);
 288
 289       if(StateIsActivated(LEPROSY) && !RAND_N(25 * GetAttribute(ENDURANCE)))
 290   DropBodyPart(RAND_2 ? RIGHT_LEG_INDEX : LEFT_LEG_INDEX);
 291
 292       msgsystem::LeaveBigMessageMode();
 293       return true;
 294     }
 295    case USE_HEAD:
 296     if(GetHead())
 297     {
 298       msgsystem::EnterBigMessageMode();
 299       Hostility(Enemy);
 300       Bite(Enemy, HitPos, Direction, Flags & SADIST_HIT);
 301       msgsystem::LeaveBigMessageMode();
 302       return true;
 303     }
 304    default:
 305     if(IsPlayer())
 306       ADD_MESSAGE("You are currently quite unable to damage anything.");
 307
 308     return false;
 309   }
 310 }
 311
 312 truth humanoid::AddSpecialSkillInfo(felist& List) const
 313 {
 314   truth Something = false;
 315
 316   if(CurrentRightSWeaponSkill && CurrentRightSWeaponSkill->GetHits() / 100)
 317   {
 318     List.AddEntry(CONST_S(""), LIGHT_GRAY);
 319     festring Buffer = CONST_S("right accustomization");
 320     Buffer.Resize(30);
 321     Buffer << CurrentRightSWeaponSkill->GetLevel();
 322     Buffer.Resize(40);
 323     Buffer << CurrentRightSWeaponSkill->GetHits() / 100;
 324     Buffer.Resize(50);
 325
 326     if(CurrentRightSWeaponSkill->GetLevel() != 20)
 327       Buffer << (CurrentRightSWeaponSkill->GetLevelMap(CurrentRightSWeaponSkill->GetLevel() + 1) - CurrentRightSWeaponSkill->GetHits()) / 100;
 328     else
 329       Buffer << '-';
 330
 331     Buffer.Resize(60);
 332     int Bonus = CurrentRightSWeaponSkill->GetBonus();
 333     Buffer << '+' << (Bonus - 1000) / 10;
 334
 335     if(Bonus %= 10)
 336       Buffer << '.' << Bonus;
 337
 338     Buffer << '%';
 339     List.AddEntry(Buffer, WHITE);
 340     Something = true;
 341   }
 342
 343   if(CurrentLeftSWeaponSkill && CurrentLeftSWeaponSkill->GetHits() / 100)
 344   {
 345     if(!Something)
 346       List.AddEntry(CONST_S(""), LIGHT_GRAY);
 347
 348     festring Buffer = CONST_S("left accustomization");
 349     Buffer.Resize(30);
 350     Buffer << CurrentLeftSWeaponSkill->GetLevel();
 351     Buffer.Resize(40);
 352     Buffer << CurrentLeftSWeaponSkill->GetHits() / 100;
 353     Buffer.Resize(50);
 354
 355     if(CurrentLeftSWeaponSkill->GetLevel() != 20)
 356       Buffer << (CurrentLeftSWeaponSkill->GetLevelMap(CurrentLeftSWeaponSkill->GetLevel() + 1) - CurrentLeftSWeaponSkill->GetHits()) / 100;
 357     else
 358       Buffer << '-';
 359
 360     Buffer.Resize(60);
 361     int Bonus = CurrentLeftSWeaponSkill->GetBonus();
 362     Buffer << '+' << (Bonus - 1000) / 10;
 363
 364     if(Bonus %= 10)
 365       Buffer << '.' << Bonus;
 366
 367     Buffer << '%';
 368     List.AddEntry(Buffer, WHITE);
 369     Something = true;
 370   }
 371
 372   return Something;
 373 }
 374
 375 void priest::BeTalkedTo () {
 376   if (GetRelation(PLAYER) == HOSTILE) {
 377     ADD_MESSAGE("\"Sinner! My hands shall pour Dinive Wrath upon thee!\"");
 378     return;
 379   }
 380   for (int c = 0; c < PLAYER->GetBodyParts(); ++c) {
 381     if (!PLAYER->GetBodyPart(c) && PLAYER->CanCreateBodyPart(c)) {
 382       truth HasOld = false;
 383       for (std::list<ulong>::const_iterator i = PLAYER->GetOriginalBodyPartID(c).begin(); i != PLAYER->GetOriginalBodyPartID(c).end(); ++i) {
 384         bodypart *OldBodyPart = static_cast<bodypart *>(PLAYER->SearchForItem(*i));
 385         if (OldBodyPart) {
 386           HasOld = true;
 387           long Price = GetConfig() == VALPURUS ? 50 : 10;
 388           if (PLAYER->GetMoney() >= Price) {
 389             if (!OldBodyPart->CanRegenerate())
 390               ADD_MESSAGE("\"Sorry, I cannot put back bodyparts made of %s, not even your severed %s.\"", OldBodyPart->GetMainMaterial()->GetName(false, false).CStr(), PLAYER->GetBodyPartName(c).CStr());
 391             else {
 392               ADD_MESSAGE("\"I could put your old %s back in exchange for %ld gold.\"", PLAYER->GetBodyPartName(c).CStr(), Price);
 393               if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
 394                 OldBodyPart->SetHP(1);
 395                 PLAYER->SetMoney(PLAYER->GetMoney()-Price);
 396                 SetMoney(GetMoney()+Price);
 397                 OldBodyPart->RemoveFromSlot();
 398                 PLAYER->AttachBodyPart(OldBodyPart);
 399                 return;
 400               }
 401             }
 402           } else {
 403             ADD_MESSAGE("\"Your %s is severed. Help yourself and get %ldgp and I'll help you too.\"", PLAYER->GetBodyPartName(c).CStr(), Price);
 404           }
 405         }
 406       }
 407       long Price = GetConfig() == VALPURUS ? 100 : 20;
 408       if (PLAYER->GetMoney() >= Price) {
 409         if (HasOld)
 410           ADD_MESSAGE("\"I could still summon up a new one for %ld gold.\"", Price);
 411         else
 412           ADD_MESSAGE("\"Since you don't seem to have your original %s with you, I could summon up a new one for %ld gold.\"", PLAYER->GetBodyPartName(c).CStr(), Price);
 413         if (game::TruthQuestion(CONST_S("Agreed? [y/N]"))) {
 414           PLAYER->SetMoney(PLAYER->GetMoney()-Price);
 415           SetMoney(GetMoney()+Price);
 416           PLAYER->CreateBodyPart(c);
 417           PLAYER->GetBodyPart(c)->SetHP(1);
 418           return;
 419         }
 420       } else if (!HasOld) {
 421         ADD_MESSAGE("\"You don't have your original %s with you. I could create you a new one, but my Divine Employer is not a communist and you need %ldgp first.\"", PLAYER->GetBodyPartName(c).CStr(), Price);
 422       }
 423     }
 424   }
 425   if (PLAYER->TemporaryStateIsActivated(POISONED)) {
 426     long Price = GetConfig() == VALPURUS ? 25 : 5;
 427     if (PLAYER->GetMoney() >= Price) {
 428       ADD_MESSAGE("\"You seem to be rather ill. I could give you a small dose of antidote for %ld gold pieces.\"", Price);
 429       if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
 430         ADD_MESSAGE("You feel better.");
 431         PLAYER->DeActivateTemporaryState(POISONED);
 432         PLAYER->SetMoney(PLAYER->GetMoney()-Price);
 433         SetMoney(GetMoney()+Price);
 434         return;
 435       }
 436     } else {
 437       ADD_MESSAGE("\"You seem to be rather ill. Get %ld gold pieces and I'll fix that.\"", Price);
 438     }
 439   }
 440   if (PLAYER->TemporaryStateIsActivated(LEPROSY)) {
 441     long Price = GetConfig() == VALPURUS ? 100 : 20;
 442     if (PLAYER->GetMoney() >= Price) {
 443       ADD_MESSAGE("\"You seem to have contracted the vile disease of leprosy. I could give you a small dose of medicince for %ld gold pieces.\"", Price);
 444       if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
 445         ADD_MESSAGE("You feel better.");
 446         PLAYER->DeActivateTemporaryState(LEPROSY);
 447         PLAYER->SetMoney(PLAYER->GetMoney()-Price);
 448         SetMoney(GetMoney()+Price);
 449         return;
 450       }
 451     } else {
 452       ADD_MESSAGE("\"You seem to be falling apart. Get %ld gold pieces and I'll fix that.\"", Price);
 453     }
 454   }
 455   if (PLAYER->TemporaryStateIsActivated(LYCANTHROPY)) {
 456     long Price = GetConfig() == VALPURUS ? 100 : 20;
 457     if (PLAYER->GetMoney() >= Price) {
 458       ADD_MESSAGE("\"You seem to be turning into a werewolf quite frequently. Well, everyone has right to little secret habits, but if you wish to donate %ldgp to %s, maybe I could pray %s to remove the canine blood from your veins, just so you don't scare our blessed youth.\"", Price, GetMasterGod()->GetName(), GetMasterGod()->GetObjectPronoun());
 459       if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
 460         ADD_MESSAGE("You feel better.");
 461         PLAYER->DeActivateTemporaryState(LYCANTHROPY);
 462         PLAYER->SetMoney(PLAYER->GetMoney()-Price);
 463         SetMoney(GetMoney()+Price);
 464         return;
 465       }
 466     } else {
 467       ADD_MESSAGE("\"You seem to be lycanthropic. I might be able to do something for that but I need %ldgp for the ritual materials first.\"", Price);
 468     }
 469   }
 470   humanoid::BeTalkedTo();
 471 }
 472
 473
 474 void skeleton::BeTalkedTo()
 475 {
 476   if(GetHead())
 477     humanoid::BeTalkedTo();
 478   else
 479     ADD_MESSAGE("The headless %s remains silent.", PLAYER->CHAR_DESCRIPTION(UNARTICLED));
 480 }
 481
 482 void communist::BeTalkedTo()
 483 {
 484   if(GetRelation(PLAYER) != HOSTILE
 485      && GetTeam() != PLAYER->GetTeam()
 486      && PLAYER->GetRelativeDanger(this, true) > 0.1)
 487   {
 488     ADD_MESSAGE("%s seems to be very friendly. \"%s make good communist. %s go with %s!\"", CHAR_DESCRIPTION(DEFINITE), PLAYER->GetAssignedName().CStr(), CHAR_NAME(UNARTICLED), PLAYER->GetAssignedName().CStr());
 489
 490     for(std::list<character*>::const_iterator i = GetTeam()->GetMember().begin(); i != GetTeam()->GetMember().end();)
 491       if(*i != this)
 492       {
 493   character* Char = *i++;
 494   Char->ChangeTeam(PLAYER->GetTeam());
 495       }
 496       else
 497   ++i;
 498
 499     ChangeTeam(PLAYER->GetTeam());
 500   }
 501   else if(GetTeam() != PLAYER->GetTeam() && !(RAND() % 5))
 502     ADD_MESSAGE("\"You weak. Learn killing and come back.\"");
 503   else
 504     character::BeTalkedTo();
 505 }
 506
 507 void hunter::BeTalkedTo()
 508 {
 509   if(GetRelation(PLAYER) != HOSTILE && GetMainWielded() && !(RAND() % 10))
 510     ADD_MESSAGE("\"This is my %s. There are many like it but this one is mine. My %s is my best friend.\"", GetMainWielded()->CHAR_NAME(UNARTICLED), GetMainWielded()->CHAR_NAME(UNARTICLED));
 511   else
 512     character::BeTalkedTo();
 513 }
 514
 515 void slave::BeTalkedTo()
 516 {
 517   if(GetRelation(PLAYER) == HOSTILE)
 518   {
 519     ADD_MESSAGE("\"Yikes!\"");
 520     return;
 521   }
 522
 523   room* Room = GetHomeRoom();
 524
 525   if(Room && Room->MasterIsActive())
 526   {
 527     character* Master = Room->GetMaster();
 528
 529     if(PLAYER->GetMoney() >= 50)
 530     {
 531       ADD_MESSAGE("%s talks: \"Do you want to buy me? 50 gold pieces. I work very hard.\"", CHAR_DESCRIPTION(DEFINITE));
 532
 533       if(game::TruthQuestion(CONST_S("Do you want to buy him? [y/N]")))
 534       {
 535   PLAYER->SetMoney(PLAYER->GetMoney() - 50);
 536   Master->SetMoney(Master->GetMoney() + 50);
 537   ChangeTeam(PLAYER->GetTeam());
 538   RemoveHomeData();
 539       }
 540     }
 541     else
 542       ADD_MESSAGE("\"Don't touch me! Master doesn't want people to touch sale items. I'm worth 50 gold pieces, you know!\"");
 543
 544     return;
 545   }
 546
 547   if(GetTeam() == PLAYER->GetTeam())
 548   {
 549     if((PLAYER->GetMainWielded() && PLAYER->GetMainWielded()->IsWhip()) || (PLAYER->GetSecondaryWielded() && PLAYER->GetSecondaryWielded()->IsWhip()))
 550       ADD_MESSAGE("\"Don't hit me! I work! I obey! I don't think!\"");
 551     else
 552       character::BeTalkedTo();
 553   }
 554   else
 555     ADD_MESSAGE("\"I'm free! Rejoice!\"");
 556 }
 557
 558 void slave::GetAICommand()
 559 {
 560   SeekLeader(GetLeader());
 561
 562   if(CheckForEnemies(true, true, true))
 563     return;
 564
 565   if(CheckForUsefulItemsOnGround())
 566     return;
 567
 568   if(FollowLeader(GetLeader()))
 569     return;
 570
 571   if(CheckForDoors())
 572     return;
 573
 574   if(!GetHomeRoom() || !GetHomeRoom()->MasterIsActive())
 575   {
 576     RemoveHomeData();
 577
 578     if(MoveRandomly())
 579       return;
 580   }
 581   else if(MoveTowardsHomePos())
 582     return;
 583
 584   EditAP(-1000);
 585 }
 586
 587 void librarian::BeTalkedTo()
 588 {
 589   if(GetRelation(PLAYER) == HOSTILE)
 590   {
 591     ADD_MESSAGE("\"The pen is mightier than the sword! Fall, unlearned one!\"");
 592     return;
 593   }
 594
 595   static long Said;
 596
 597   switch(RandomizeReply(Said, 12))
 598   {
 599    case 0:
 600     if(game::GetPetrus() && !game::GetStoryState())
 601       ADD_MESSAGE("\"Thou shouldst visit Petrus if thou art in need of further adventures.\"");
 602     else
 603       ADD_MESSAGE("\"They say a wand of polymorph hath dozens of uses.\"");
 604
 605     break;
 606    case 1:
 607     if(game::GetPetrus() && game::GetStoryState() == 1)
 608       ADD_MESSAGE("\"Thou art going to fight Elpuri? Beware! It is a powerful enemy. Other monsters are very vulnerable if surrounded by thy party, but not that beast, for it may slay a horde of thy friends at once with its horrendous tail attack.\"");
 609     else
 610       ADD_MESSAGE("\"Thou shalt remember: Scientia est potentia.\"");
 611
 612     break;
 613    case 2:
 614     if(game::GetPetrus() && game::GetStoryState() == 1)
 615       ADD_MESSAGE("\"Elpuri the Dark Frog abhors light and resides in a level of eternal darkness.\"");
 616     else
 617       ADD_MESSAGE("\"Shh! Thou shalt be silent in the library.\"");
 618
 619     break;
 620    case 3:
 621     if(game::GetPetrus() && game::GetStoryState() == 1)
 622       ADD_MESSAGE("\"Elpuri's attacks are so strong that they may shatter many of thy precious items.\"");
 623     else
 624       ADD_MESSAGE("\"Dost thou not smell all the knowledge floating around here?\"");
 625
 626     break;
 627    case 4:
 628     ADD_MESSAGE("\"It is said that Loricatus, the god of smithing, can upgrade thy weapons' materials.\"");
 629     break;
 630    case 5:
 631     if(game::GetPetrus() && game::GetStoryState() == 1)
 632       ADD_MESSAGE("\"The Shirt of the Golden Eagle is a legendary artifact. Thou canst not find a better armor.\"");
 633     else
 634       ADD_MESSAGE("\"In this book they talk about Mortifer, the great chaos god. He hates us mortals more than anything and will respond only to Champions of Evil.\"");
 635
 636     break;
 637    case 6:
 638     ADD_MESSAGE("\"Attnam is traditionally ruled by the high priest of the Great Frog. He holds the Shirt of the Golden Eagle and has always killed his predecessor.\"");
 639     break;
 640    case 7:
 641     ADD_MESSAGE("\"They say thou shouldst keep all the artifacts thou findst. They shall make thee famous after thy retirement.\"");
 642     break;
 643    case 8:
 644     ADD_MESSAGE("\"If thou wilt ever encounter an enner beast, know this: It is a horrible foe. It may shatter thy items and armor with its scream that penetrates iron and stone. Thou shouldst not engage it in melee but rather kill it from afar.\"");
 645     break;
 646    case 9:
 647     if(game::GetPetrus() && game::GetStoryState() == 1)
 648       ADD_MESSAGE("\"Thou art not alone in thy attempt to defeat Elpuri. A brave adventurer called Ivan also diveth into its cave not long ago.\"");
 649     else
 650       ADD_MESSAGE("\"It is said that chaotic gods offer great power to their followers. But thou must remember: unlike lawfuls, they shall not help thee when things go bad.\"");
 651
 652     break;
 653    case 10:
 654     ADD_MESSAGE("\"If a man cannot choose, he ceases to be a man.\"");
 655     break;
 656    case 11:
 657     ADD_MESSAGE("%s sighs: \"The censorship laws in this town are really too strict...\"", CHAR_DESCRIPTION(DEFINITE));
 658     break;
 659   }
 660 }
 661
 662 truth communist::MoveRandomly()
 663 {
 664   switch(RAND() % 1000)
 665   {
 666    case 0:
 667     if(CanBeSeenByPlayer())
 668       ADD_MESSAGE("%s engraves something to the ground.", CHAR_NAME(UNARTICLED));
 669
 670     Engrave(CONST_S("The bourgeois is a bourgeois -- for the benefit of the working class."));
 671     return true;
 672    case 1:
 673     if(CanBeSeenByPlayer())
 674       ADD_MESSAGE("%s engraves something to the ground.", CHAR_NAME(UNARTICLED));
 675
 676     Engrave(CONST_S("Proletarians of all countries, unite!"));
 677     return true;
 678    case 2:
 679     if(CanBeSeenByPlayer())
 680       ADD_MESSAGE("%s engraves something to the ground.", CHAR_NAME(UNARTICLED));
 681
 682     Engrave(CONST_S("Capital is therefore not only personal; it is a social power."));
 683     return true;
 684    default:
 685     return character::MoveRandomly();
 686   }
 687 }
 688
 689 void zombie::BeTalkedTo()
 690 {
 691   if(GetRelation(PLAYER) == HOSTILE && PLAYER->GetAttribute(INTELLIGENCE) > 5)
 692   {
 693     if(RAND() % 5)
 694     {
 695       if(GetHead())
 696   ADD_MESSAGE("\"Need brain!!\"");
 697       else
 698   ADD_MESSAGE("\"Need head with brain!!\"");
 699     }
 700     else
 701       ADD_MESSAGE("\"Redrum! Redrum! Redrum!\"");
 702   }
 703   else
 704     ADD_MESSAGE("\"Need brain but you too stoopid!\"");
 705 }
 706
 707 void angel::Save(outputfile& SaveFile) const
 708 {
 709   humanoid::Save(SaveFile);
 710   SaveFile << LastHealed;
 711 }
 712
 713 void angel::Load(inputfile& SaveFile)
 714 {
 715   humanoid::Load(SaveFile);
 716   SaveFile >> LastHealed;
 717 }
 718
 719 void angel::CreateInitialEquipment(int SpecialFlags)
 720 {
 721   humanoid::CreateInitialEquipment(SpecialFlags);
 722   GetStack()->AddItem(holybook::Spawn(GetConfig(), SpecialFlags));
 723   armor* Equipment;
 724   meleeweapon* Weapon;
 725
 726   switch(GetMasterGod()->GetBasicAlignment())
 727   {
 728    case GOOD:
 729     Equipment = bodyarmor::Spawn(PLATE_MAIL, SpecialFlags|NO_MATERIALS);
 730     Equipment->InitMaterials(MAKE_MATERIAL(ANGEL_HAIR), !(SpecialFlags & NO_PIC_UPDATE));
 731     Equipment->SetEnchantment(1);
 732     SetBodyArmor(Equipment);
 733     Weapon = meleeweapon::Spawn(LONG_SWORD, SpecialFlags|NO_MATERIALS);
 734     Weapon->InitMaterials(MAKE_MATERIAL(MITHRIL), MAKE_MATERIAL(MITHRIL), !(SpecialFlags & NO_PIC_UPDATE));
 735     Weapon->SetEnchantment(2);
 736     SetRightWielded(Weapon);
 737     Equipment = shield::Spawn(0, SpecialFlags|NO_MATERIALS);
 738     Equipment->InitMaterials(MAKE_MATERIAL(MITHRIL), !(SpecialFlags & NO_PIC_UPDATE));
 739     Equipment->SetEnchantment(2);
 740     SetLeftWielded(Equipment);
 741     GetCWeaponSkill(LARGE_SWORDS)->AddHit(20000);
 742     GetCWeaponSkill(SHIELDS)->AddHit(50000);
 743     GetCurrentRightSWeaponSkill()->AddHit(20000);
 744     GetCurrentLeftSWeaponSkill()->AddHit(20000);
 745     GetRightArm()->SetDexterity(40);
 746     GetLeftArm()->SetDexterity(40);
 747     break;
 748    case NEUTRAL:
 749     Equipment = cloak::Spawn(0, SpecialFlags|NO_MATERIALS);
 750     Equipment->InitMaterials(MAKE_MATERIAL(ANGEL_HAIR), !(SpecialFlags & NO_PIC_UPDATE));
 751     Equipment->SetEnchantment(1);
 752     SetCloak(Equipment);
 753     Weapon = meleeweapon::Spawn(WAR_HAMMER, SpecialFlags|NO_MATERIALS);
 754     Weapon->InitMaterials(MAKE_MATERIAL(MITHRIL), MAKE_MATERIAL(TEAK_WOOD), !(SpecialFlags & NO_PIC_UPDATE));
 755     Weapon->SetEnchantment(2);
 756     SetRightWielded(Weapon);
 757     Weapon = meleeweapon::Spawn(WAR_HAMMER, SpecialFlags|NO_MATERIALS);
 758     Weapon->InitMaterials(MAKE_MATERIAL(MITHRIL), MAKE_MATERIAL(TEAK_WOOD), !(SpecialFlags & NO_PIC_UPDATE));
 759     Weapon->SetEnchantment(2);
 760     SetLeftWielded(Weapon);
 761     GetCWeaponSkill(BLUNT_WEAPONS)->AddHit(50000);
 762     GetCurrentRightSWeaponSkill()->AddHit(20000);
 763     GetCurrentLeftSWeaponSkill()->AddHit(20000);
 764     SetEndurance(40);
 765     break;
 766    case EVIL:
 767     Weapon = meleeweapon::Spawn(HALBERD, SpecialFlags|NO_MATERIALS);
 768     Weapon->InitMaterials(MAKE_MATERIAL(MITHRIL), MAKE_MATERIAL(EBONY_WOOD), !(SpecialFlags & NO_PIC_UPDATE));
 769     Weapon->SetEnchantment(2);
 770     SetRightWielded(Weapon);
 771     Equipment = gauntlet::Spawn(0, SpecialFlags|NO_MATERIALS);
 772     Equipment->InitMaterials(MAKE_MATERIAL(ANGEL_HAIR), !(SpecialFlags & NO_PIC_UPDATE));
 773     Equipment->SetEnchantment(1);
 774     SetRightGauntlet(Equipment);
 775     Equipment = gauntlet::Spawn(0, SpecialFlags|NO_MATERIALS);
 776     Equipment->InitMaterials(MAKE_MATERIAL(ANGEL_HAIR), !(SpecialFlags & NO_PIC_UPDATE));
 777     Equipment->SetEnchantment(1);
 778     SetLeftGauntlet(Equipment);
 779     GetCWeaponSkill(POLE_ARMS)->AddHit(100000);
 780     GetCurrentRightSWeaponSkill()->AddHit(100000);
 781     GetRightArm()->SetStrength(40);
 782     GetLeftArm()->SetStrength(40);
 783   }
 784 }
 785
 786 void kamikazedwarf::CreateInitialEquipment(int SpecialFlags)
 787 {
 788   humanoid::CreateInitialEquipment(SpecialFlags);
 789   SetRightWielded(holybook::Spawn(GetConfig(), SpecialFlags));
 790   GetCWeaponSkill(UNCATEGORIZED)->AddHit(GetWSkillHits());
 791   GetCurrentRightSWeaponSkill()->AddHit(GetWSkillHits());
 792 }
 793
 794 truth kamikazedwarf::Hit(character* Enemy, v2 HitPos, int Direction, int Flags)
 795 {
 796   if(!IsPlayer())
 797   {
 798     itemvector KamikazeWeapon;
 799     sortdata SortData(KamikazeWeapon, this, false, &item::IsKamikazeWeapon);
 800     SortAllItems(SortData);
 801
 802     if(!KamikazeWeapon.empty())
 803     {
 804       if(IsElite() && RAND() & 1)
 805   ADD_MESSAGE("%s shouts: \"This time I won't fail, O Great %s!\"", CHAR_DESCRIPTION(DEFINITE), GetMasterGod()->GetName());
 806       else if(RAND() & 1)
 807   ADD_MESSAGE("%s shouts: \"For %s!\"", CHAR_DESCRIPTION(DEFINITE), GetMasterGod()->GetName());
 808       else
 809   ADD_MESSAGE("%s screams: \"%s, here I come!\"", CHAR_DESCRIPTION(DEFINITE), GetMasterGod()->GetName());
 810
 811       if(KamikazeWeapon[RAND_N(KamikazeWeapon.size())]->Apply(this))
 812   return true;
 813     }
 814   }
 815
 816   return humanoid::Hit(Enemy, HitPos, Direction, Flags);
 817 }
 818
 819 void kamikazedwarf::GetAICommand()
 820 {
 821   if(GetHomeRoom())
 822     StandIdleAI();
 823   else
 824   {
 825     if(!RAND_N(50))
 826     {
 827       SingRandomSong();
 828       return;
 829     }
 830
 831     character::GetAICommand();
 832   }
 833 }
 834
 835 int humanoid::GetSize() const
 836 {
 837   int Size = 0;
 838
 839   if(GetHead())
 840     Size += GetHead()->GetSize();
 841
 842   if(GetTorso())
 843     Size += GetTorso()->GetSize();
 844
 845   leg* RightLeg = GetRightLeg();
 846   leg* LeftLeg = GetLeftLeg();
 847
 848   if(LeftLeg && RightLeg)
 849     Size += Max(LeftLeg->GetSize(), RightLeg->GetSize());
 850   else if(LeftLeg)
 851     Size += LeftLeg->GetSize();
 852   else if(RightLeg)
 853     Size += RightLeg->GetSize();
 854
 855   return Size;
 856 }
 857
 858 long humanoid::GetBodyPartSize(int I, int TotalSize) const
 859 {
 860   switch(I)
 861   {
 862    case HEAD_INDEX: return 20;
 863    case TORSO_INDEX: return ((TotalSize - 20) << 1) / 5;
 864    case RIGHT_ARM_INDEX:
 865    case LEFT_ARM_INDEX: return (TotalSize - 20) * 3 / 5;
 866    case GROIN_INDEX: return (TotalSize - 20) / 3;
 867    case RIGHT_LEG_INDEX:
 868    case LEFT_LEG_INDEX: return (TotalSize - 20) * 3 / 5;
 869   }
 870
 871   ABORT("Illegal humanoid bodypart size request!");
 872   return 0;
 873 }
 874
 875 long humanoid::GetBodyPartVolume(int I) const
 876 {
 877   switch(I)
 878   {
 879    case HEAD_INDEX: return 4000;
 880    case TORSO_INDEX: return (GetTotalVolume() - 4000) * 13 / 30;
 881    case RIGHT_ARM_INDEX:
 882    case LEFT_ARM_INDEX: return (GetTotalVolume() - 4000) / 10;
 883    case GROIN_INDEX: return (GetTotalVolume() - 4000) / 10;
 884    case RIGHT_LEG_INDEX:
 885    case LEFT_LEG_INDEX: return ((GetTotalVolume() - 4000) << 1) / 15;
 886   }
 887
 888   ABORT("Illegal humanoid bodypart volume request!");
 889   return 0;
 890 }
 891
 892 bodypart* humanoid::MakeBodyPart(int I) const
 893 {
 894   switch(I)
 895   {
 896    case TORSO_INDEX: return humanoidtorso::Spawn(0, NO_MATERIALS);
 897    case HEAD_INDEX: return head::Spawn(0, NO_MATERIALS);
 898    case RIGHT_ARM_INDEX: return rightarm::Spawn(0, NO_MATERIALS);
 899    case LEFT_ARM_INDEX: return leftarm::Spawn(0, NO_MATERIALS);
 900    case GROIN_INDEX: return groin::Spawn(0, NO_MATERIALS);
 901    case RIGHT_LEG_INDEX: return rightleg::Spawn(0, NO_MATERIALS);
 902    case LEFT_LEG_INDEX: return leftleg::Spawn(0, NO_MATERIALS);
 903   }
 904
 905   ABORT("Weird bodypart to make for a humanoid. It must be your fault!");
 906   return 0;
 907 }
 908
 909 truth humanoid::ReceiveDamage(character* Damager, int Damage, int Type, int TargetFlags, int Direction, truth Divide, truth PenetrateArmor, truth Critical, truth ShowMsg)
 910 {
 911   int ChooseFrom[MAX_BODYPARTS], BodyParts = 0;
 912
 913   if(TargetFlags & RIGHT_ARM && GetRightArm())
 914     ChooseFrom[BodyParts++] = 2;
 915
 916   if(TargetFlags & LEFT_ARM && GetLeftArm())
 917     ChooseFrom[BodyParts++] = 3;
 918
 919   if(TargetFlags & RIGHT_LEG && GetRightLeg())
 920     ChooseFrom[BodyParts++] = 5;
 921
 922   if(TargetFlags & LEFT_LEG && GetLeftLeg())
 923     ChooseFrom[BodyParts++] = 6;
 924
 925   if(TargetFlags & HEAD && GetHead())
 926     ChooseFrom[BodyParts++] = 1;
 927
 928   if(TargetFlags & TORSO && GetTorso())
 929     ChooseFrom[BodyParts++] = 0;
 930
 931   if(TargetFlags & GROIN && GetGroin())
 932     ChooseFrom[BodyParts++] = 4;
 933
 934   if(!BodyParts)
 935     return false;
 936
 937   truth Affected = false;
 938
 939   if(Divide)
 940   {
 941     int c;
 942     long TotalVolume = 0;
 943
 944     for(c = 0; c < BodyParts; ++c)
 945       TotalVolume += GetBodyPart(ChooseFrom[c])->GetBodyPartVolume();
 946
 947     for(c = 0; c < BodyParts; ++c)
 948       if(ReceiveBodyPartDamage(Damager, long(Damage) * GetBodyPart(ChooseFrom[c])->GetBodyPartVolume() / TotalVolume, Type, ChooseFrom[c], Direction, PenetrateArmor, Critical, false))
 949   Affected = true;
 950   }
 951   else
 952   {
 953     long Possibility[MAX_BODYPARTS], PossibilitySum = 0;
 954     int Index = 0;
 955
 956     for(int c = 0; c < BodyParts; ++c)
 957       PossibilitySum += Possibility[Index++] = GetBodyPart(ChooseFrom[c])->GetBodyPartVolume();
 958
 959     Index = femath::WeightedRand(Possibility, PossibilitySum);
 960     Affected = ReceiveBodyPartDamage(Damager, Damage, Type, ChooseFrom[Index], Direction, PenetrateArmor, Critical, false);
 961   }
 962
 963   if(!Affected && ShowMsg)
 964   {
 965     if(IsPlayer())
 966       ADD_MESSAGE("You are not hurt.");
 967     else if(CanBeSeenByPlayer())
 968       ADD_MESSAGE("%s is not hurt.", GetPersonalPronoun().CStr());
 969   }
 970
 971   if(DamageTypeAffectsInventory(Type))
 972   {
 973     for(int c = 0; c < GetEquipments(); ++c)
 974     {
 975       item* Equipment = GetEquipment(c);
 976
 977       if(Equipment)
 978   Equipment->ReceiveDamage(Damager, Damage, Type);
 979     }
 980
 981     GetStack()->ReceiveDamage(Damager, Damage, Type);
 982   }
 983
 984   return Affected;
 985 }
 986
 987 arm* humanoid::GetMainArm() const
 988 {
 989   return GetRightArm() ? GetRightArm() : GetLeftArm();
 990 }
 991
 992 arm* humanoid::GetSecondaryArm() const
 993 {
 994   return GetRightArm() ? GetLeftArm() : 0;
 995 }
 996
 997 cchar* humanoid::GetEquipmentName(int I) const // convert to array
 998 {
 999   switch(I)
1000   {
1001    case HELMET_INDEX: return "helmet";
1002    case AMULET_INDEX: return "amulet";
1003    case CLOAK_INDEX: return "cloak";
1004    case BODY_ARMOR_INDEX: return "body armor";
1005    case BELT_INDEX: return "belt";
1006    case RIGHT_WIELDED_INDEX: return "right hand wielded";
1007    case LEFT_WIELDED_INDEX: return "left hand wielded";
1008    case RIGHT_RING_INDEX: return "right ring";
1009    case LEFT_RING_INDEX: return "left ring";
1010    case RIGHT_GAUNTLET_INDEX: return "right gauntlet";
1011    case LEFT_GAUNTLET_INDEX: return "left gauntlet";
1012    case RIGHT_BOOT_INDEX: return "right boot";
1013    case LEFT_BOOT_INDEX: return "left boot";
1014   }
1015
1016   return "forbidden piece of cloth";
1017 }
1018
1019 sorter humanoid::EquipmentSorter(int I) const
1020 {
1021   switch(I)
1022   {
1023    case HELMET_INDEX: return &item::IsHelmet;
1024    case AMULET_INDEX: return &item::IsAmulet;
1025    case CLOAK_INDEX: return &item::IsCloak;
1026    case BODY_ARMOR_INDEX: return &item::IsBodyArmor;
1027    case BELT_INDEX: return &item::IsBelt;
1028    case RIGHT_WIELDED_INDEX:
1029    case LEFT_WIELDED_INDEX: return 0;
1030    case RIGHT_RING_INDEX:
1031    case LEFT_RING_INDEX: return &item::IsRing;
1032    case RIGHT_GAUNTLET_INDEX:
1033    case LEFT_GAUNTLET_INDEX: return &item::IsGauntlet;
1034    case RIGHT_BOOT_INDEX:
1035    case LEFT_BOOT_INDEX: return &item::IsBoot;
1036   }
1037
1038   return 0;
1039 }
1040
1041 bodypart* humanoid::GetBodyPartOfEquipment(int I) const
1042 {
1043   switch(I)
1044   {
1045    case HELMET_INDEX:
1046    case AMULET_INDEX:
1047     return GetHead();
1048    case CLOAK_INDEX:
1049    case BODY_ARMOR_INDEX:
1050    case BELT_INDEX:
1051     return GetTorso();
1052    case RIGHT_WIELDED_INDEX:
1053    case RIGHT_RING_INDEX:
1054    case RIGHT_GAUNTLET_INDEX:
1055     return GetRightArm();
1056    case LEFT_WIELDED_INDEX:
1057    case LEFT_RING_INDEX:
1058    case LEFT_GAUNTLET_INDEX:
1059     return GetLeftArm();
1060    case RIGHT_BOOT_INDEX:
1061     return GetRightLeg();
1062    case LEFT_BOOT_INDEX:
1063     return GetLeftLeg();
1064   }
1065
1066   return 0;
1067 }
1068
1069 item* humanoid::GetEquipment(int I) const
1070 {
1071   switch(I)
1072   {
1073    case HELMET_INDEX: return GetHelmet();
1074    case AMULET_INDEX: return GetAmulet();
1075    case CLOAK_INDEX: return GetCloak();
1076    case BODY_ARMOR_INDEX: return GetBodyArmor();
1077    case BELT_INDEX: return GetBelt();
1078    case RIGHT_WIELDED_INDEX: return GetRightWielded();
1079    case LEFT_WIELDED_INDEX: return GetLeftWielded();
1080    case RIGHT_RING_INDEX: return GetRightRing();
1081    case LEFT_RING_INDEX: return GetLeftRing();
1082    case RIGHT_GAUNTLET_INDEX: return GetRightGauntlet();
1083    case LEFT_GAUNTLET_INDEX: return GetLeftGauntlet();
1084    case RIGHT_BOOT_INDEX: return GetRightBoot();
1085    case LEFT_BOOT_INDEX: return GetLeftBoot();
1086   }
1087
1088   return 0;
1089 }
1090
1091 void humanoid::SetEquipment(int I, item* What)
1092 {
1093   switch(I)
1094   {
1095    case HELMET_INDEX: SetHelmet(What); break;
1096    case AMULET_INDEX: SetAmulet(What); break;
1097    case CLOAK_INDEX: SetCloak(What); break;
1098    case BODY_ARMOR_INDEX: SetBodyArmor(What); break;
1099    case BELT_INDEX: SetBelt(What); break;
1100    case RIGHT_WIELDED_INDEX: SetRightWielded(What); break;
1101    case LEFT_WIELDED_INDEX: SetLeftWielded(What); break;
1102    case RIGHT_RING_INDEX: SetRightRing(What); break;
1103    case LEFT_RING_INDEX: SetLeftRing(What); break;
1104    case RIGHT_GAUNTLET_INDEX: SetRightGauntlet(What); break;
1105    case LEFT_GAUNTLET_INDEX: SetLeftGauntlet(What); break;
1106    case RIGHT_BOOT_INDEX: SetRightBoot(What); break;
1107    case LEFT_BOOT_INDEX: SetLeftBoot(What); break;
1108   }
1109 }
1110
1111 void humanoid::SwitchToDig(item* DigItem, v2 Square)
1112 {
1113   dig* Dig = dig::Spawn(this);
1114
1115   if(GetRightArm())
1116   {
1117     item* Item = GetRightArm()->GetWielded();
1118
1119     if(Item && Item != DigItem)
1120     {
1121       Dig->SetRightBackupID(GetRightArm()->GetWielded()->GetID());
1122       GetRightArm()->GetWielded()->MoveTo(GetStack());
1123     }
1124   }
1125
1126   if(GetLeftArm())
1127   {
1128     item* Item = GetLeftArm()->GetWielded();
1129
1130     if(Item && Item != DigItem)
1131     {
1132       Dig->SetLeftBackupID(GetLeftArm()->GetWielded()->GetID());
1133       GetLeftArm()->GetWielded()->MoveTo(GetStack());
1134     }
1135   }
1136
1137   if(GetMainWielded() != DigItem)
1138   {
1139     Dig->SetMoveDigger(true);
1140     DigItem->RemoveFromSlot();
1141
1142     if(GetMainArm() && GetMainArm()->IsUsable())
1143       GetMainArm()->SetWielded(DigItem);
1144     else
1145       GetSecondaryArm()->SetWielded(DigItem);
1146   }
1147   else
1148     Dig->SetMoveDigger(false);
1149
1150   Dig->SetSquareDug(Square);
1151   SetAction(Dig);
1152 }
1153
1154 truth humanoid::CheckKick() const
1155 {
1156   if(!CanKick())
1157   {
1158     if(IsPlayer())
1159       ADD_MESSAGE("This race can't kick.");
1160
1161     return false;
1162   }
1163
1164   if(GetUsableLegs() < 2)
1165   {
1166     if(IsPlayer())
1167       ADD_MESSAGE("How are you going to do that with %s?", GetUsableLegs() ? "only one usable leg" : "no usable legs");
1168
1169     return false;
1170   }
1171   else
1172     return true;
1173 }
1174
1175 int humanoid::GetUsableLegs() const
1176 {
1177   int Legs = 0;
1178
1179   if(RightLegIsUsable())
1180     ++Legs;
1181
1182   if(LeftLegIsUsable())
1183     ++Legs;
1184
1185   return Legs;
1186 }
1187
1188 int humanoid::GetUsableArms() const
1189 {
1190   int Arms = 0;
1191
1192   if(RightArmIsUsable())
1193     ++Arms;
1194
1195   if(LeftArmIsUsable())
1196     ++Arms;
1197
1198   return Arms;
1199 }
1200
1201 truth humanoid::CheckThrow() const
1202 {
1203   if(!character::CheckThrow())
1204     return false;
1205
1206   if(HasAUsableArm())
1207     return true;
1208   else
1209   {
1210     ADD_MESSAGE("You don't have a usable arm to do that!");
1211     return false;
1212   }
1213 }
1214
1215 truth humanoid::CheckOffer() const
1216 {
1217   if(HasAUsableArm())
1218     return true;
1219   else
1220   {
1221     ADD_MESSAGE("You need a usable arm to offer.");
1222     return false;
1223   }
1224 }
1225
1226 v2 humanoid::GetEquipmentPanelPos(int I) const // convert to array
1227 {
1228   switch(I)
1229   {
1230    case HELMET_INDEX: return v2(34, -22);
1231    case AMULET_INDEX: return v2(14, -22);
1232    case CLOAK_INDEX: return v2(-6, -22);
1233    case BODY_ARMOR_INDEX: return v2(54, -22);
1234    case BELT_INDEX: return v2(24, 70);
1235    case RIGHT_WIELDED_INDEX: return v2(-14, 4);
1236    case LEFT_WIELDED_INDEX: return v2(62, 4);
1237    case RIGHT_RING_INDEX: return v2(-14, 44);
1238    case LEFT_RING_INDEX: return v2(62, 44);
1239    case RIGHT_GAUNTLET_INDEX: return v2(-14, 24);
1240    case LEFT_GAUNTLET_INDEX: return v2(62, 24);
1241    case RIGHT_BOOT_INDEX: return v2(4, 70);
1242    case LEFT_BOOT_INDEX: return v2(44, 70);
1243   }
1244
1245   return v2(24, 12);
1246 }
1247
1248 void humanoid::DrawSilhouette(truth AnimationDraw) const
1249 {
1250   int c;
1251   blitdata B1 = { DOUBLE_BUFFER,
1252       { 0, 0 },
1253       { 0, 0 },
1254       { TILE_SIZE, TILE_SIZE },
1255       { ivanconfig::GetContrastLuminance() },
1256       TRANSPARENT_COLOR,
1257       ALLOW_ANIMATE };
1258
1259   v2 Where(RES.X - SILHOUETTE_SIZE.X - 39, 53);
1260   cint Equipments = GetEquipments();
1261
1262   if(CanUseEquipment())
1263     for(c = 0; c < Equipments; ++c)
1264       if(GetBodyPartOfEquipment(c) && EquipmentIsAllowed(c))
1265       {
1266   v2 Pos = Where + GetEquipmentPanelPos(c);
1267
1268   if(!AnimationDraw)
1269     DOUBLE_BUFFER->DrawRectangle(Pos + v2(-1, -1), Pos + TILE_V2, DARK_GRAY);
1270
1271   item* Equipment = GetEquipment(c);
1272
1273   if(Equipment && (!AnimationDraw || Equipment->IsAnimated()))
1274   {
1275     igraph::BlitBackGround(Pos, TILE_V2);
1276     B1.Dest = Pos;
1277
1278     if(Equipment->AllowAlphaEverywhere())
1279       B1.CustomData |= ALLOW_ALPHA;
1280
1281     Equipment->Draw(B1);
1282     B1.CustomData &= ~ALLOW_ALPHA;
1283   }
1284       }
1285
1286   if(!AnimationDraw)
1287   {
1288     blitdata B2 = { DOUBLE_BUFFER,
1289         { 0, 0 },
1290         { Where.X + 8, Where.Y },
1291         { SILHOUETTE_SIZE.X, SILHOUETTE_SIZE.Y },
1292         { 0 },
1293         0,
1294         0 };
1295
1296     for(int c = 0; c < BodyParts; ++c)
1297     {
1298       bodypart* BodyPart = GetBodyPart(c);
1299
1300       if(BodyPart)
1301       {
1302   int Type = BodyPart->IsUsable() ? SILHOUETTE_NORMAL : SILHOUETTE_INTER_LACED;
1303   bitmap* Cache = igraph::GetSilhouetteCache(c, BodyPart->GetConditionColorIndex(), Type);
1304   Cache->NormalMaskedBlit(B2);
1305   BodyPart->DrawScars(B2);
1306       }
1307     }
1308   }
1309 }
1310
1311 int humanoid::GetGlobalResistance(int Type) const
1312 {
1313   int Resistance = GetResistance(Type);
1314
1315   if(GetCloak())
1316     Resistance += GetCloak()->GetResistance(Type);
1317
1318   if(!(Type & PHYSICAL_DAMAGE))
1319   {
1320     if(GetAmulet())
1321       Resistance += GetAmulet()->GetResistance(Type);
1322
1323     if(GetRightRing())
1324       Resistance += GetRightRing()->GetResistance(Type);
1325
1326     if(GetLeftRing())
1327       Resistance += GetLeftRing()->GetResistance(Type);
1328   }
1329
1330   return Resistance;
1331 }
1332
1333 truth humanoid::TryToRiseFromTheDead()
1334 {
1335   int c;
1336
1337   for(c = 0; c < BodyParts; ++c)
1338     if(!GetBodyPart(c))
1339     {
1340       bodypart* BodyPart = SearchForOriginalBodyPart(c);
1341
1342       if(BodyPart)
1343       {
1344   BodyPart->RemoveFromSlot();
1345   AttachBodyPart(BodyPart);
1346   BodyPart->SetHP(1);
1347       }
1348     }
1349
1350   for(c = 0; c < BodyParts; ++c)
1351   {
1352     bodypart* BodyPart = GetBodyPart(c);
1353
1354     if(BodyPartIsVital(c) && !BodyPart)
1355       if(!HandleNoBodyPart(c))
1356   return false;
1357
1358     if(BodyPart)
1359     {
1360       BodyPart->ResetSpoiling();
1361
1362       if(BodyPart->CanRegenerate() || BodyPart->GetHP() < 1)
1363   BodyPart->SetHP(1);
1364     }
1365   }
1366
1367   ResetStates();
1368   return true;
1369 }
1370
1371 truth humanoid::HandleNoBodyPart(int I)
1372 {
1373   switch(I)
1374   {
1375    case HEAD_INDEX:
1376     if(CanBeSeenByPlayer())
1377       ADD_MESSAGE("The headless body of %s vibrates violently.", CHAR_NAME(DEFINITE));
1378
1379     return false;
1380    case GROIN_INDEX:
1381     if(CanBeSeenByPlayer())
1382       ADD_MESSAGE("The groinless body of %s vibrates violently.", CHAR_NAME(DEFINITE));
1383
1384     return false;
1385    case TORSO_INDEX:
1386     ABORT("The corpse does not have a torso.");
1387    default:
1388     return true;
1389   }
1390 }
1391
1392 v2 humanoid::GetBodyPartBitmapPos(int I, truth) const
1393 {
1394   switch(I)
1395   {
1396    case TORSO_INDEX: return GetTorsoBitmapPos();
1397    case HEAD_INDEX: return GetHeadBitmapPos();
1398    case RIGHT_ARM_INDEX: return GetRightArmBitmapPos();
1399    case LEFT_ARM_INDEX: return GetLeftArmBitmapPos();
1400    case GROIN_INDEX: return GetGroinBitmapPos();
1401    case RIGHT_LEG_INDEX: return GetRightLegBitmapPos();
1402    case LEFT_LEG_INDEX: return GetLeftLegBitmapPos();
1403   }
1404
1405   ABORT("Weird bodypart BitmapPos request for a humanoid!");
1406   return v2();
1407 }
1408
1409 col16 humanoid::GetBodyPartColorB(int I, truth) const
1410 {
1411   switch(I)
1412   {
1413    case TORSO_INDEX: return GetTorsoMainColor();
1414    case HEAD_INDEX: return GetCapColor();
1415    case RIGHT_ARM_INDEX:
1416    case LEFT_ARM_INDEX: return GetArmMainColor();
1417    case GROIN_INDEX:
1418    case RIGHT_LEG_INDEX:
1419    case LEFT_LEG_INDEX: return GetLegMainColor();
1420   }
1421
1422   ABORT("Weird bodypart col B request for a humanoid!");
1423   return 0;
1424 }
1425
1426 col16 humanoid::GetBodyPartColorC(int I, truth) const
1427 {
1428   switch(I)
1429   {
1430    case TORSO_INDEX: return GetBeltColor();
1431    case HEAD_INDEX: return GetHairColor();
1432    case RIGHT_ARM_INDEX:
1433    case LEFT_ARM_INDEX: return GetGauntletColor();
1434    case GROIN_INDEX:
1435    case RIGHT_LEG_INDEX:
1436    case LEFT_LEG_INDEX: return GetBootColor();
1437   }
1438
1439   ABORT("Weird bodypart col C request for a humanoid!");
1440   return 0;
1441 }
1442
1443 col16 humanoid::GetBodyPartColorD(int I, truth) const
1444 {
1445   switch(I)
1446   {
1447    case TORSO_INDEX: return GetTorsoSpecialColor();
1448    case HEAD_INDEX: return GetEyeColor();
1449    case RIGHT_ARM_INDEX:
1450    case LEFT_ARM_INDEX: return GetArmSpecialColor();
1451    case GROIN_INDEX:
1452    case RIGHT_LEG_INDEX:
1453    case LEFT_LEG_INDEX: return GetLegSpecialColor();
1454   }
1455
1456   ABORT("Weird bodypart col D request for a humanoid!");
1457   return 0;
1458 }
1459
1460 int humanoid::GetBodyPartSparkleFlags(int I) const
1461 {
1462   truth Sparkling = false;
1463   int SparkleFlags = GetNaturalSparkleFlags() & SKIN_COLOR ? SPARKLING_A : 0;
1464
1465   switch(I)
1466   {
1467    case TORSO_INDEX: Sparkling = GetNaturalSparkleFlags() & TORSO_MAIN_COLOR; break;
1468    case HEAD_INDEX: Sparkling = GetNaturalSparkleFlags() & CAP_COLOR; break;
1469    case RIGHT_ARM_INDEX:
1470    case LEFT_ARM_INDEX: Sparkling = GetNaturalSparkleFlags() & ARM_MAIN_COLOR; break;
1471    case GROIN_INDEX:
1472    case RIGHT_LEG_INDEX:
1473    case LEFT_LEG_INDEX: Sparkling = GetNaturalSparkleFlags() & LEG_MAIN_COLOR; break;
1474   }
1475
1476   SparkleFlags |= Sparkling ? SPARKLING_B : 0;
1477   Sparkling = false;
1478
1479   switch(I)
1480   {
1481    case TORSO_INDEX: Sparkling = GetNaturalSparkleFlags() & BELT_COLOR; break;
1482    case HEAD_INDEX: Sparkling = GetNaturalSparkleFlags() & HAIR_COLOR; break;
1483    case RIGHT_ARM_INDEX:
1484    case LEFT_ARM_INDEX: Sparkling = GetNaturalSparkleFlags() & GAUNTLET_COLOR; break;
1485    case GROIN_INDEX:
1486    case RIGHT_LEG_INDEX:
1487    case LEFT_LEG_INDEX: Sparkling = GetNaturalSparkleFlags() & BOOT_COLOR; break;
1488   }
1489
1490   SparkleFlags |= Sparkling ? SPARKLING_C : 0;
1491   Sparkling = false;
1492
1493   switch(I)
1494   {
1495    case TORSO_INDEX: Sparkling = GetNaturalSparkleFlags() & TORSO_SPECIAL_COLOR; break;
1496    case HEAD_INDEX: Sparkling = GetNaturalSparkleFlags() & EYE_COLOR; break;
1497    case RIGHT_ARM_INDEX:
1498    case LEFT_ARM_INDEX: Sparkling = GetNaturalSparkleFlags() & ARM_SPECIAL_COLOR; break;
1499    case GROIN_INDEX:
1500    case RIGHT_LEG_INDEX:
1501    case LEFT_LEG_INDEX: Sparkling = GetNaturalSparkleFlags() & LEG_SPECIAL_COLOR; break;
1502   }
1503
1504   SparkleFlags |= Sparkling ? SPARKLING_D : 0;
1505   return SparkleFlags;
1506 }
1507
1508 playerkind::playerkind() : SoulID(0), IsBonePlayer(false), IsClone(false)
1509 {
1510 }
1511
1512 shopkeeper::shopkeeper()
1513 {
1514   if(!game::IsLoading())
1515     Money = GetMoney() + RAND() % 2001;
1516 }
1517
1518 void humanoid::Bite(character* Enemy, v2 HitPos, int Direction, truth ForceHit)
1519 {
1520   /* This function ought not to be called without a head */
1521
1522   EditNP(-50);
1523   EditAP(-GetHead()->GetBiteAPCost());
1524   EditExperience(AGILITY, 150, 1 << 9);
1525   EditStamina(-1000, false);
1526   Enemy->TakeHit(this, 0, GetHead(), HitPos, GetHead()->GetBiteDamage(), GetHead()->GetBiteToHitValue(), RAND() % 26 - RAND() % 26, BITE_ATTACK, Direction, !(RAND() % GetCriticalModifier()), ForceHit);
1527 }
1528
1529 void humanoid::Kick(lsquare* Square, int Direction, truth ForceHit)
1530 {
1531   leg* KickLeg = RAND_2 ? GetRightLeg() : GetLeftLeg();
1532   EditNP(-50);
1533   EditAP(-KickLeg->GetKickAPCost());
1534   EditStamina(-10000 / GetAttribute(LEG_STRENGTH), false);
1535
1536   if(Square->BeKicked(this, 0, KickLeg, KickLeg->GetKickDamage(), KickLeg->GetKickToHitValue(), RAND() % 26 - RAND() % 26, Direction, !(RAND() % GetCriticalModifier()), ForceHit))
1537   {
1538     KickLeg->EditExperience(LEG_STRENGTH, 75, 1 << 9);
1539     KickLeg->EditExperience(AGILITY, 75, 1 << 9);
1540   }
1541 }
1542
1543 /* Returns the average number of APs required to kill Enemy */
1544
1545 double humanoid::GetTimeToKill(ccharacter* Enemy, truth UseMaxHP) const
1546 {
1547   double Effectivity = 0;
1548   int AttackStyles = 0;
1549
1550   if(IsUsingArms())
1551   {
1552     arm* RightArm = GetRightArm();
1553
1554     if(RightArm)
1555     {
1556       double Damage = RightArm->GetDamage();
1557
1558       if(Damage)
1559   Effectivity += 1 / (Enemy->GetTimeToDie(this, int(Damage) + 1, RightArm->GetToHitValue(), AttackIsBlockable(GetRightWielded() ? WEAPON_ATTACK : UNARMED_ATTACK), UseMaxHP) * RightArm->GetAPCost());
1560     }
1561
1562     arm* LeftArm = GetLeftArm();
1563
1564     if(LeftArm)
1565     {
1566       double Damage = LeftArm->GetDamage();
1567
1568       if(Damage)
1569   Effectivity += 1 / (Enemy->GetTimeToDie(this, int(Damage) + 1, LeftArm->GetToHitValue(), AttackIsBlockable(GetLeftWielded() ? WEAPON_ATTACK : UNARMED_ATTACK), UseMaxHP) * LeftArm->GetAPCost());
1570     }
1571
1572     ++AttackStyles;
1573   }
1574
1575   if(IsUsingLegs())
1576   {
1577     leg* RightLeg = GetRightLeg();
1578     leg* LeftLeg = GetLeftLeg();
1579     double TimeToDie = Enemy->GetTimeToDie(this, int(RightLeg->GetKickDamage()) + 1, RightLeg->GetKickToHitValue(), AttackIsBlockable(KICK_ATTACK), UseMaxHP) * RightLeg->GetKickAPCost()
1580            + Enemy->GetTimeToDie(this, int(LeftLeg->GetKickDamage()) + 1, LeftLeg->GetKickToHitValue(), AttackIsBlockable(KICK_ATTACK), UseMaxHP) * LeftLeg->GetKickAPCost();
1581     Effectivity += 2 / TimeToDie;
1582     ++AttackStyles;
1583   }
1584
1585   if(IsUsingHead())
1586   {
1587     head* Head = GetHead();
1588     Effectivity += 1 / (Enemy->GetTimeToDie(this, int(Head->GetBiteDamage()) + 1, Head->GetBiteToHitValue(), AttackIsBlockable(BITE_ATTACK), UseMaxHP) * Head->GetBiteAPCost());
1589     ++AttackStyles;
1590   }
1591
1592   if(StateIsActivated(HASTE))
1593     Effectivity *= 2;
1594
1595   if(StateIsActivated(SLOW))
1596     Effectivity /= 2;
1597
1598   return AttackStyles ? AttackStyles / Effectivity : 10000000;
1599 }
1600
1601 int humanoid::GetAttribute(int Identifier, truth AllowBonus) const
1602 {
1603   if(Identifier < BASE_ATTRIBUTES)
1604     return character::GetAttribute(Identifier, AllowBonus);
1605   else
1606   {
1607     int Attrib = 0;
1608
1609     if(Identifier == ARM_STRENGTH || Identifier == DEXTERITY)
1610     {
1611       arm* RightArm = GetRightArm();
1612
1613       if(RightArm)
1614   Attrib += RightArm->GetAttribute(Identifier, AllowBonus);
1615
1616       arm* LeftArm = GetLeftArm();
1617
1618       if(LeftArm)
1619   Attrib += LeftArm->GetAttribute(Identifier, AllowBonus);
1620     }
1621     else if(Identifier == LEG_STRENGTH || Identifier == AGILITY)
1622     {
1623       leg* RightLeg = GetRightLeg();
1624
1625       if(RightLeg)
1626   Attrib += RightLeg->GetAttribute(Identifier, AllowBonus);
1627
1628       leg* LeftLeg = GetLeftLeg();
1629
1630       if(LeftLeg)
1631   Attrib += LeftLeg->GetAttribute(Identifier, AllowBonus);
1632     }
1633     else
1634     {
1635       ABORT("Illegal humanoid attribute %d request!", Identifier);
1636       return 0xEBBA;
1637     }
1638
1639     return Attrib >> 1;
1640   }
1641 }
1642
1643 truth humanoid::EditAttribute(int Identifier, int Value)
1644 {
1645   if(Identifier < BASE_ATTRIBUTES)
1646     return character::EditAttribute(Identifier, Value);
1647   else if(Identifier == ARM_STRENGTH || Identifier == DEXTERITY)
1648   {
1649     truth Success = false;
1650
1651     if(GetRightArm() && GetRightArm()->EditAttribute(Identifier, Value))
1652       Success = true;
1653
1654     if(GetLeftArm() && GetLeftArm()->EditAttribute(Identifier, Value))
1655       Success = true;
1656
1657     return Success;
1658   }
1659   else if(Identifier == LEG_STRENGTH || Identifier == AGILITY)
1660   {
1661     truth Success = false;
1662
1663     if(GetRightLeg() && GetRightLeg()->EditAttribute(Identifier, Value))
1664       Success = true;
1665
1666     if(GetLeftLeg() && GetLeftLeg()->EditAttribute(Identifier, Value))
1667       Success = true;
1668
1669     return Success;
1670   }
1671   else
1672   {
1673     ABORT("Illegal humanoid attribute %d edit request!", Identifier);
1674     return false;
1675   }
1676 }
1677
1678 void humanoid::EditExperience(int Identifier, double Value, double Speed)
1679 {
1680   if(!AllowExperience())
1681     return;
1682
1683   if(Identifier < BASE_ATTRIBUTES)
1684     character::EditExperience(Identifier, Value, Speed);
1685   else if(Identifier == ARM_STRENGTH || Identifier == DEXTERITY)
1686   {
1687     if(GetRightArm())
1688       GetRightArm()->EditExperience(Identifier, Value, Speed);
1689
1690     if(GetLeftArm())
1691       GetLeftArm()->EditExperience(Identifier, Value, Speed);
1692   }
1693   else if(Identifier == LEG_STRENGTH || Identifier == AGILITY)
1694   {
1695     if(GetRightLeg())
1696       GetRightLeg()->EditExperience(Identifier, Value, Speed);
1697
1698     if(GetLeftLeg())
1699       GetLeftLeg()->EditExperience(Identifier, Value, Speed);
1700   }
1701   else
1702     ABORT("Illegal humanoid attribute %d experience edit request!", Identifier);
1703 }
1704
1705 int humanoid::DrawStats(truth AnimationDraw) const
1706 {
1707   DrawSilhouette(AnimationDraw);
1708
1709   if(AnimationDraw)
1710     return 15;
1711
1712   int PanelPosX = RES.X - 96, PanelPosY = 15;
1713   PrintAttribute("AStr", ARM_STRENGTH, PanelPosX, PanelPosY++);
1714   PrintAttribute("LStr", LEG_STRENGTH, PanelPosX, PanelPosY++);
1715   PrintAttribute("Dex", DEXTERITY, PanelPosX, PanelPosY++);
1716   PrintAttribute("Agi", AGILITY, PanelPosX, PanelPosY++);
1717   return PanelPosY;
1718 }
1719
1720 int humanoid::GetRandomStepperBodyPart() const
1721 {
1722   int Possible = 0, PossibleArray[3];
1723
1724   if(GetRightLeg())
1725     PossibleArray[Possible++] = RIGHT_LEG_INDEX;
1726
1727   if(GetLeftLeg())
1728     PossibleArray[Possible++] = LEFT_LEG_INDEX;
1729
1730   if(Possible)
1731     return PossibleArray[RAND_N(Possible)];
1732
1733   if(GetRightArm())
1734     PossibleArray[Possible++] = RIGHT_ARM_INDEX;
1735
1736   if(GetLeftArm())
1737     PossibleArray[Possible++] = LEFT_ARM_INDEX;
1738
1739   if(Possible)
1740     return PossibleArray[RAND_N(Possible)];
1741
1742   if(GetHead())
1743     PossibleArray[Possible++] = HEAD_INDEX;
1744
1745   if(GetGroin())
1746     PossibleArray[Possible++] = GROIN_INDEX;
1747
1748   PossibleArray[Possible++] = TORSO_INDEX;
1749   return PossibleArray[RAND_N(Possible)];
1750 }
1751
1752 int humanoid::CheckForBlock(character* Enemy, item* Weapon, double ToHitValue, int Damage, int Success, int Type)
1753 {
1754   if(GetAction())
1755     return Damage;
1756
1757   if(GetRightWielded())
1758     Damage = CheckForBlockWithArm(Enemy, Weapon, GetRightArm(), ToHitValue, Damage, Success, Type);
1759
1760   if(Damage && GetLeftWielded() && (!Weapon || Weapon->Exists()))
1761     Damage = CheckForBlockWithArm(Enemy, Weapon, GetLeftArm(), ToHitValue, Damage, Success, Type);
1762
1763   return Damage;
1764 }
1765
1766 truth humanoid::CanWield() const
1767 {
1768   return CanUseEquipment(RIGHT_WIELDED_INDEX) || CanUseEquipment(LEFT_WIELDED_INDEX);
1769 }
1770
1771 /* return true if still in balance */
1772
1773 truth humanoid::CheckBalance(double KickDamage)
1774 {
1775   return !CanMove()
1776     || IsStuck()
1777     || !KickDamage
1778     || (GetUsableLegs() != 1
1779   && !IsFlying()
1780   && KickDamage * 5 < RAND() % GetSize());
1781 }
1782
1783 long humanoid::GetMoveAPRequirement(int Difficulty) const
1784 {
1785   if(IsFlying())
1786     return (!StateIsActivated(PANIC) ? 10000000 : 8000000) * Difficulty / (APBonus(GetAttribute(AGILITY)) * GetMoveEase());
1787
1788   switch(GetUsableLegs())
1789   {
1790    case 0:
1791     return (!StateIsActivated(PANIC) ? 20000000 : 16000000) * Difficulty / (APBonus(GetAttribute(AGILITY)) * GetMoveEase());
1792    case 1:
1793     return (!StateIsActivated(PANIC) ? 13333333 : 10666667) * Difficulty / (APBonus(GetAttribute(AGILITY)) * GetMoveEase());
1794    case 2:
1795     return (!StateIsActivated(PANIC) ? 10000000 : 8000000) * Difficulty / (APBonus(GetAttribute(AGILITY)) * GetMoveEase());
1796   }
1797
1798   ABORT("A %d legged humanoid invaded the dungeon!", GetUsableLegs());
1799   return 0;
1800 }
1801
1802 void hunter::CreateBodyParts(int SpecialFlags)
1803 {
1804   for(int c = 0; c < BodyParts; ++c)
1805     if(c != LEFT_ARM_INDEX)
1806       CreateBodyPart(c, SpecialFlags);
1807     else
1808       SetBodyPart(LEFT_ARM_INDEX, 0);
1809 }
1810
1811 truth humanoid::EquipmentEasilyRecognized(int I) const
1812 {
1813   if(GetRelation(PLAYER) != HOSTILE)
1814     return true;
1815
1816   switch(I)
1817   {
1818    case AMULET_INDEX:
1819    case RIGHT_RING_INDEX:
1820    case LEFT_RING_INDEX:
1821    case BELT_INDEX:
1822     return false;
1823   }
1824
1825   return true;
1826 }
1827
1828 void humanoid::SignalEquipmentAdd(int EquipmentIndex)
1829 {
1830   character::SignalEquipmentAdd(EquipmentIndex);
1831
1832   if(EquipmentIndex == RIGHT_WIELDED_INDEX)
1833     EnsureCurrentSWeaponSkillIsCorrect(CurrentRightSWeaponSkill, GetRightWielded());
1834   else if(EquipmentIndex == LEFT_WIELDED_INDEX)
1835     EnsureCurrentSWeaponSkillIsCorrect(CurrentLeftSWeaponSkill, GetLeftWielded());
1836
1837   if(!IsInitializing())
1838     CalculateBattleInfo();
1839 }
1840
1841 void humanoid::SignalEquipmentRemoval(int EquipmentIndex, citem* Item)
1842 {
1843   character::SignalEquipmentRemoval(EquipmentIndex, Item);
1844
1845   if(EquipmentIndex == RIGHT_WIELDED_INDEX)
1846     EnsureCurrentSWeaponSkillIsCorrect(CurrentRightSWeaponSkill, 0);
1847   else if(EquipmentIndex == LEFT_WIELDED_INDEX)
1848     EnsureCurrentSWeaponSkillIsCorrect(CurrentLeftSWeaponSkill, 0);
1849
1850   if(!IsInitializing())
1851     CalculateBattleInfo();
1852 }
1853
1854 void humanoid::SWeaponSkillTick()
1855 {
1856   for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end();)
1857   {
1858     if((*i)->Tick() && IsPlayer())
1859     {
1860       item* Item = SearchForItem(*i);
1861
1862       if(Item)
1863   (*i)->AddLevelDownMessage(Item->CHAR_NAME(UNARTICLED));
1864     }
1865
1866     if(!(*i)->GetHits() && *i != GetCurrentRightSWeaponSkill() && *i != GetCurrentLeftSWeaponSkill())
1867     {
1868       std::list<sweaponskill*>::iterator Dirt = i++;
1869       SWeaponSkill.erase(Dirt);
1870     }
1871     else
1872       ++i;
1873   }
1874 }
1875
1876 void angel::GetAICommand()
1877 {
1878   if((LastHealed || game::GetTick() - LastHealed > 10000) && AttachBodyPartsOfFriendsNear())
1879     return;
1880
1881   humanoid::GetAICommand();
1882 }
1883
1884 /* Returns true if the angel finds somebody near to heal else false */
1885
1886 truth angel::AttachBodyPartsOfFriendsNear()
1887 {
1888   character* HurtOne = 0;
1889   bodypart* SeveredOne = 0;
1890
1891   for(int d = 0; d < GetNeighbourSquares(); ++d)
1892   {
1893     square* Square = GetNeighbourSquare(d);
1894
1895     if(Square)
1896     {
1897       character* Char = Square->GetCharacter();
1898
1899       if(Char && (!HurtOne || Char->IsPlayer()) && GetRelation(Char) == FRIEND && !Char->HasAllBodyParts())
1900       {
1901   bodypart* BodyPart = Char->FindRandomOwnBodyPart(false);
1902
1903   if(BodyPart)
1904   {
1905     HurtOne = Char;
1906     SeveredOne = BodyPart;
1907   }
1908       }
1909     }
1910   }
1911
1912   if(HurtOne)
1913   {
1914     if(HurtOne->IsPlayer())
1915       ADD_MESSAGE("%s puts your %s back to its place.", CHAR_DESCRIPTION(DEFINITE), SeveredOne->GetBodyPartName().CStr());
1916     else if(CanBeSeenByPlayer())
1917       ADD_MESSAGE("%s helps %s by putting %s %s in its old place.", CHAR_DESCRIPTION(DEFINITE), HurtOne->CHAR_DESCRIPTION(DEFINITE), HurtOne->GetPossessivePronoun().CStr(), SeveredOne->GetBodyPartName().CStr());
1918
1919     SeveredOne->SetHP(1);
1920     SeveredOne->RemoveFromSlot();
1921     HurtOne->AttachBodyPart(SeveredOne);
1922     LastHealed = game::GetTick();
1923     DexterityAction(10);
1924     return true;
1925   }
1926   else
1927     return false;
1928 }
1929
1930 void humanoid::DrawBodyParts(blitdata& BlitData) const
1931 {
1932   bitmap* TileBuffer = igraph::GetTileBuffer();
1933   bitmap* RealBitmap = BlitData.Bitmap;
1934   blitdata B = { TileBuffer,
1935      { BlitData.Dest.X, BlitData.Dest.Y },
1936      { 0, 0 },
1937      { TILE_SIZE, TILE_SIZE },
1938      { 0 },
1939      TRANSPARENT_COLOR,
1940      BlitData.CustomData };
1941
1942   RealBitmap->NormalBlit(B);
1943   TileBuffer->FillPriority(0);
1944   B.Src.X = B.Src.Y = 0;
1945   B.Luminance = BlitData.Luminance;
1946
1947   for(int c = 0; c < BodyParts; ++c)
1948   {
1949     bodypart* BodyPart = GetBodyPart(DrawOrder[c]);
1950
1951     if(BodyPart)
1952     {
1953       B.Dest = GetDrawDisplacement(c);
1954       BodyPart->Draw(B);
1955     }
1956   }
1957
1958   B.Dest.X = B.Dest.Y = 0;
1959   arm* LeftArm = GetLeftArm();
1960
1961   if(LeftArm)
1962     LeftArm->DrawWielded(B);
1963
1964   arm* RightArm = GetRightArm();
1965
1966   if(RightArm)
1967     RightArm->DrawWielded(B);
1968
1969   TileBuffer->FastBlit(RealBitmap, BlitData.Dest);
1970 }
1971
1972 v2 kamikazedwarf::GetDrawDisplacement(int I) const
1973 {
1974   static v2 DrawDisplacement[] = { v2(0, 0), v2(0, 1), v2(0, -1), v2(0, -1), v2(0, -1), v2(0, 0), v2(0, 0) };
1975   return DrawDisplacement[I];
1976 }
1977
1978 col16 angel::GetTorsoMainColor() const
1979 {
1980   return GetMasterGod()->GetColor();
1981 }
1982
1983 col16 angel::GetArmMainColor() const
1984 {
1985   return GetMasterGod()->GetColor();
1986 }
1987
1988 col16 kamikazedwarf::GetTorsoMainColor() const
1989 {
1990   return GetMasterGod()->GetColor();
1991 }
1992
1993 col16 kamikazedwarf::GetGauntletColor() const
1994 {
1995   return GetMasterGod()->GetColor();
1996 }
1997
1998 col16 kamikazedwarf::GetLegMainColor() const
1999 {
2000   return GetMasterGod()->GetColor();
2001 }
2002
2003 col16 housewife::GetHairColor() const
2004 {
2005   static col16 HouseWifeHairColor[] = { MakeRGB16(48, 40, 8), MakeRGB16(60, 48, 24),  MakeRGB16(200, 0, 0) };
2006   return HouseWifeHairColor[RAND() % 3];
2007 }
2008
2009 int angel::GetAttribute(int Identifier, truth AllowBonus) const // temporary until wings are bodyparts
2010 {
2011   if(Identifier == LEG_STRENGTH)
2012     return GetDefaultLegStrength();
2013   else if(Identifier == AGILITY)
2014     return GetDefaultAgility();
2015   else
2016     return humanoid::GetAttribute(Identifier, AllowBonus);
2017 }
2018
2019 int genie::GetAttribute(int Identifier, truth AllowBonus) const // temporary until someone invents a better way of doing this
2020 {
2021   if(Identifier == LEG_STRENGTH)
2022     return GetDefaultLegStrength();
2023   else if(Identifier == AGILITY)
2024     return GetDefaultAgility();
2025   else
2026     return humanoid::GetAttribute(Identifier, AllowBonus);
2027 }
2028
2029 truth humanoid::CanUseStethoscope(truth PrintReason) const
2030 {
2031   if(!GetUsableArms())
2032   {
2033     if(PrintReason)
2034       ADD_MESSAGE("You need a usable arm to use a stethoscope.");
2035
2036     return false;
2037   }
2038
2039   if(!GetHead())
2040   {
2041     if(PrintReason)
2042       ADD_MESSAGE("You need a head to use stethoscope.");
2043
2044     return false;
2045   }
2046
2047   return true;
2048 }
2049
2050 truth humanoid::IsUsingArms() const
2051 {
2052   return GetAttackStyle() & USE_ARMS && CanAttackWithAnArm();
2053 }
2054
2055 truth humanoid::IsUsingLegs() const
2056 {
2057   return (GetAttackStyle() & USE_LEGS
2058     || (GetAttackStyle() & USE_ARMS && !CanAttackWithAnArm()))
2059     && HasTwoUsableLegs();
2060 }
2061
2062 truth humanoid::IsUsingHead() const
2063 {
2064   return (GetAttackStyle() & USE_HEAD
2065     || ((GetAttackStyle() & USE_LEGS
2066          || (GetAttackStyle() & USE_ARMS && !CanAttackWithAnArm()))
2067         && !HasTwoUsableLegs()))
2068     && GetHead();
2069 }
2070
2071 void humanoid::CalculateBattleInfo()
2072 {
2073   CalculateDodgeValue();
2074   doforbodyparts()(this, &bodypart::CalculateAttackInfo);
2075 }
2076
2077 item* skeleton::SevereBodyPart(int BodyPartIndex, truth ForceDisappearance, stack* EquipmentDropStack)
2078 {
2079   if(BodyPartIndex == RIGHT_ARM_INDEX)
2080     EnsureCurrentSWeaponSkillIsCorrect(CurrentRightSWeaponSkill, 0);
2081   else if(BodyPartIndex == LEFT_ARM_INDEX)
2082     EnsureCurrentSWeaponSkillIsCorrect(CurrentLeftSWeaponSkill, 0);
2083
2084   item* BodyPart = GetBodyPart(BodyPartIndex);
2085   item* Bone = 0;
2086
2087   if(!ForceDisappearance)
2088   {
2089     if(BodyPartIndex == HEAD_INDEX)
2090       Bone = skull::Spawn(0, NO_MATERIALS);
2091     else
2092       Bone = bone::Spawn(0, NO_MATERIALS);
2093
2094     Bone->InitMaterials(BodyPart->GetMainMaterial());
2095     BodyPart->DropEquipment(EquipmentDropStack);
2096     BodyPart->RemoveFromSlot();
2097     BodyPart->SetMainMaterial(0, NO_PIC_UPDATE|NO_SIGNALS);
2098   }
2099   else
2100   {
2101     BodyPart->DropEquipment(EquipmentDropStack);
2102     BodyPart->RemoveFromSlot();
2103   }
2104
2105   BodyPart->SendToHell();
2106   CalculateAttributeBonuses();
2107   CalculateBattleInfo();
2108   SignalPossibleTransparencyChange();
2109   RemoveTraps(BodyPartIndex);
2110   return Bone;
2111 }
2112
2113 void zombie::CreateBodyParts(int SpecialFlags)
2114 {
2115   bool Anyway = false;
2116   if(GetConfig() == ZOMBIE_OF_KHAZ_ZADM)
2117   {
2118     Anyway = true;
2119   } // Khaz-Zadm needs his hands...
2120
2121   for(int c = 0; c < BodyParts; ++c)
2122     if(Anyway || BodyPartIsVital(c) || RAND_N(3) || (c == HEAD_INDEX && !RAND_N(3)))
2123     {
2124       bodypart* BodyPart = CreateBodyPart(c, SpecialFlags|NO_PIC_UPDATE);
2125       BodyPart->GetMainMaterial()->SetSpoilCounter(2000 + RAND_N(1000));
2126     }
2127 }
2128
2129 void humanoid::AddSpecialEquipmentInfo(festring& String, int I) const
2130 {
2131   if((I == RIGHT_WIELDED_INDEX && GetRightArm()->TwoHandWieldIsActive()) || (I == LEFT_WIELDED_INDEX && GetLeftArm()->TwoHandWieldIsActive()))
2132     String << " (in both hands)";
2133 }
2134
2135 /* Yes, this is evil. */
2136
2137 #define INSTANTIATE(name) if(DataBase->name.IsValid() && (Item = DataBase->name.Instantiate(SpecialFlags))) Set##name(Item);
2138
2139 void humanoid::CreateInitialEquipment(int SpecialFlags)
2140 {
2141   character::CreateInitialEquipment(SpecialFlags);
2142   item* Item;
2143
2144   INSTANTIATE(Helmet);
2145   INSTANTIATE(Amulet);
2146   INSTANTIATE(Cloak);
2147   INSTANTIATE(BodyArmor);
2148   INSTANTIATE(Belt);
2149   INSTANTIATE(RightWielded);
2150   INSTANTIATE(LeftWielded);
2151   INSTANTIATE(RightRing);
2152   INSTANTIATE(LeftRing);
2153   INSTANTIATE(RightGauntlet);
2154   INSTANTIATE(LeftGauntlet);
2155   INSTANTIATE(RightBoot);
2156   INSTANTIATE(LeftBoot);
2157
2158   if(CurrentRightSWeaponSkill)
2159     CurrentRightSWeaponSkill->AddHit(GetRightSWeaponSkillHits() * 100);
2160
2161   if(CurrentLeftSWeaponSkill)
2162     CurrentLeftSWeaponSkill->AddHit(GetLeftSWeaponSkillHits() * 100);
2163 }
2164
2165 festring humanoid::GetBodyPartName(int I, truth Articled) const
2166 {
2167   festring Article;
2168
2169   if(Articled)
2170     Article << 'a';
2171
2172   switch(I)
2173   {
2174    case HEAD_INDEX: return Article + "head";
2175    case TORSO_INDEX: return Article + "torso";
2176    case RIGHT_ARM_INDEX: return Article + "right arm";
2177    case LEFT_ARM_INDEX: return Article + "left arm";
2178    case GROIN_INDEX: return Article + "groin";
2179    case RIGHT_LEG_INDEX: return Article + "right leg";
2180    case LEFT_LEG_INDEX: return Article + "left leg";
2181   }
2182
2183   ABORT("Illegal humanoid bodypart name request!");
2184   return "";
2185 }
2186
2187 void humanoid::CreateBlockPossibilityVector(blockvector& Vector, double ToHitValue) const
2188 {
2189   double RightBlockChance = 0;
2190   int RightBlockCapability = 0;
2191   double LeftBlockChance = 0;
2192   int LeftBlockCapability = 0;
2193   arm* RightArm = GetRightArm();
2194   arm* LeftArm = GetLeftArm();
2195
2196   if(RightArm)
2197   {
2198     RightBlockChance = RightArm->GetBlockChance(ToHitValue);
2199     RightBlockCapability = RightArm->GetBlockCapability();
2200   }
2201
2202   if(LeftArm)
2203   {
2204     LeftBlockChance = LeftArm->GetBlockChance(ToHitValue);
2205     LeftBlockCapability = LeftArm->GetBlockCapability();
2206   }
2207
2208   /* Double block */
2209
2210   if(RightBlockCapability + LeftBlockCapability)
2211     Vector.push_back(std::make_pair(RightBlockChance * LeftBlockChance, RightBlockCapability + LeftBlockCapability));
2212
2213   /* Right block */
2214
2215   if(RightBlockCapability)
2216     Vector.push_back(std::make_pair(RightBlockChance * (1 - LeftBlockChance), RightBlockCapability));
2217
2218   /* Left block */
2219
2220   if(LeftBlockCapability)
2221     Vector.push_back(std::make_pair(LeftBlockChance * (1 - RightBlockChance), LeftBlockCapability));
2222 }
2223
2224 item* humanoid::SevereBodyPart(int BodyPartIndex, truth ForceDisappearance, stack* EquipmentDropStack)
2225 {
2226   if(BodyPartIndex == RIGHT_ARM_INDEX)
2227     EnsureCurrentSWeaponSkillIsCorrect(CurrentRightSWeaponSkill, 0);
2228   else if(BodyPartIndex == LEFT_ARM_INDEX)
2229     EnsureCurrentSWeaponSkillIsCorrect(CurrentLeftSWeaponSkill, 0);
2230
2231   return character::SevereBodyPart(BodyPartIndex, ForceDisappearance, EquipmentDropStack);
2232 }
2233
2234 humanoid::humanoid(const humanoid& Humanoid) : mybase(Humanoid), CurrentRightSWeaponSkill(0), CurrentLeftSWeaponSkill(0)
2235 {
2236   SWeaponSkill.resize(Humanoid.SWeaponSkill.size());
2237   std::list<sweaponskill*>::iterator i1 = SWeaponSkill.begin();
2238   std::list<sweaponskill*>::const_iterator i2 = Humanoid.SWeaponSkill.begin();
2239
2240   for(; i1 != SWeaponSkill.end(); ++i1, ++i2)
2241     *i1 = new sweaponskill(**i2);
2242 }
2243
2244 cfestring& humanoid::GetDeathMessage() const
2245 {
2246   static festring HeadlessDeathMsg = CONST_S("@Dd dies without a sound.");
2247   return GetHead() || character::GetDeathMessage() != "@Dd dies screaming." ? character::GetDeathMessage() : HeadlessDeathMsg;
2248 }
2249
2250 int humanoid::GetSWeaponSkillLevel(citem* Item) const
2251 {
2252   std::list<sweaponskill*>::const_iterator i;
2253
2254   for(i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
2255     if((*i)->IsSkillOf(Item))
2256       return (*i)->GetLevel();
2257
2258   for(idholder* I = Item->GetCloneMotherID(); I; I = I->Next)
2259     for(i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
2260       if((*i)->IsSkillOfCloneMother(Item, I->ID))
2261   return (*i)->GetLevel();
2262
2263   return 0;
2264 }
2265
2266 truth humanoid::UseMaterialAttributes() const
2267 {
2268   return combinebodypartpredicates()(this, &bodypart::UseMaterialAttributes, 0);
2269 }
2270
2271 col24 angel::GetBaseEmitation() const
2272 {
2273   switch(GetMasterGod()->GetBasicAlignment())
2274   {
2275    case GOOD: return MakeRGB24(150, 150, 150);
2276    case NEUTRAL: return MakeRGB24(120, 120, 150);
2277    case EVIL: return MakeRGB24(150, 110, 110);
2278   }
2279
2280   return 0;
2281 }
2282
2283 void bananagrower::BeTalkedTo()
2284 {
2285   static long Said;
2286
2287   if(GetRelation(PLAYER) == HOSTILE)
2288     ProcessAndAddMessage(GetHostileReplies()[RandomizeReply(Said, GetHostileReplies().Size)]);
2289   else if(!game::TweraifIsFree())
2290   {
2291     if(GetRelation(PLAYER) != HOSTILE
2292        && Profession.Find("president", 0) != festring::NPos && !(RAND() % 7))
2293       ADD_MESSAGE("\"I'm glad Petrus spared my life even though I was the president.\"");
2294
2295     ProcessAndAddMessage(GetFriendlyReplies()[RandomizeReply(Said, 6)]);
2296   }
2297   else
2298     ProcessAndAddMessage(GetFriendlyReplies()[6 + RandomizeReply(Said, 3)]);
2299 }
2300
2301 void bananagrower::RandomizeProfession()
2302 {
2303   switch(RAND_N(12))
2304   {
2305    case 0:
2306     Profession = CONST_S("the president of Tweraif");
2307     break;
2308    case 1:
2309     Profession = CONST_S("a diplomat");
2310     break;
2311    case 2:
2312     Profession = CONST_S("a teacher");
2313     break;
2314    case 3:
2315     Profession = CONST_S("a philosopher");
2316     break;
2317    case 4:
2318     Profession = CONST_S("a journalist");
2319     break;
2320    case 5:
2321     Profession = CONST_S("an alchemist");
2322     break;
2323    case 6:
2324     Profession = CONST_S("a renown mathematician");
2325     break;
2326    case 7:
2327     Profession = CONST_S("a priest of Silva");
2328     break;
2329    case 8:
2330    case 9:
2331    case 10:
2332    case 11:
2333     Profession = CONST_S("a professor of ");
2334     AddRandomScienceName(Profession);
2335     break;
2336   }
2337 }
2338
2339 void bananagrower::PostConstruct()
2340 {
2341   Stamina = MaxStamina / 5;
2342   RandomizeProfession();
2343   HasDroppedBananas = FeedingSumo = false;
2344 }
2345
2346 void bananagrower::Save(outputfile& SaveFile) const
2347 {
2348   humanoid::Save(SaveFile);
2349   SaveFile << Profession << HasDroppedBananas << FeedingSumo;
2350 }
2351
2352 void bananagrower::Load(inputfile& SaveFile)
2353 {
2354   humanoid::Load(SaveFile);
2355   SaveFile >> Profession >> HasDroppedBananas >> FeedingSumo;
2356 }
2357
2358 void smith::BeTalkedTo()
2359 {
2360   if(GetRelation(PLAYER) == HOSTILE)
2361   {
2362     ADD_MESSAGE("\"You talkin' to me? You talkin' to me? You talkin' to me? Then who the hell else are you talkin' to? You talkin' to me? Well I'm the only one here. Who do you think you're talking to? Oh yeah? Huh? Ok.\"");
2363     return;
2364   }
2365
2366   if(!GetMainWielded() || !GetMainWielded()->CanBeUsedBySmith())
2367   {
2368     ADD_MESSAGE("\"Sorry, I need an intact hammer to practise the art of smithing.\"");
2369     return;
2370   }
2371
2372   if(PLAYER->PossessesItem(&item::IsFixableBySmith))
2373   {
2374     item* Item = PLAYER->SelectFromPossessions(CONST_S("\"What do you want me to fix?\""), &item::IsFixableBySmith);
2375
2376     if(!Item)
2377       return;
2378
2379     if(!(Item->GetMainMaterial()->GetCategoryFlags() & IS_METAL))
2380     {
2381       ADD_MESSAGE("\"I only fix items made of metal.\"");
2382       return;
2383     }
2384
2385     /** update messages */
2386
2387     long FixPrice = Item->GetFixPrice();
2388
2389     if(PLAYER->GetMoney() < FixPrice)
2390     {
2391       ADD_MESSAGE("\"Getting that fixed costs you %ld gold pieces. Get the money and we'll talk.\"", FixPrice);
2392       return;
2393     }
2394
2395     ADD_MESSAGE("\"I can fix your %s, but it'll cost you %ld gold pieces.\"", Item->CHAR_NAME(UNARTICLED), FixPrice);
2396
2397     if(game::TruthQuestion(CONST_S("Do you accept this deal? [y/N]")))
2398     {
2399       Item->RemoveRust();
2400       Item->Fix();
2401       PLAYER->EditMoney(-FixPrice);
2402       ADD_MESSAGE("%s fixes %s in no time.", CHAR_NAME(DEFINITE), Item->CHAR_NAME(DEFINITE));
2403     }
2404   }
2405   else
2406     ADD_MESSAGE("\"Come back when you have some weapons or armor I can fix.\"");
2407 }
2408
2409 void humanoid::CalculateDodgeValue()
2410 {
2411   DodgeValue = 0.05 * GetMoveEase() * GetAttribute(AGILITY) / sqrt(GetSize());
2412
2413   if(IsFlying())
2414     DodgeValue *= 2;
2415   else
2416   {
2417     if(!HasAUsableLeg())
2418       DodgeValue *= 0.50;
2419     if(!HasTwoUsableLegs())
2420       DodgeValue *= 0.75;
2421   }
2422
2423   if(DodgeValue < 1)
2424     DodgeValue = 1;
2425 }
2426
2427 truth humanoid::CheckZap()
2428 {
2429   if(!GetUsableArms())
2430   {
2431     ADD_MESSAGE("You need at least one usable arm to zap.");
2432     return false;
2433   }
2434   else
2435     return character::CheckZap();
2436 }
2437
2438 void bananagrower::GetAICommand()
2439 {
2440   if(game::TweraifIsFree())
2441   {
2442     humanoid::GetAICommand();
2443     return;
2444   }
2445
2446   if(CheckForEnemies(false, false, true, true))
2447     return;
2448
2449   if(!IsEnabled())
2450     return;
2451
2452   cv2 BananaTarget = FeedingSumo ? SUMO_ROOM_POS + v2(1, 2) : v2(45, 45);
2453
2454   if(GetPos() == BananaTarget)
2455   {
2456     itemvector ItemVector;
2457     GetStack()->FillItemVector(ItemVector);
2458     int BananasDropped = 0;
2459     uint c;
2460
2461     for(c = 0; c < ItemVector.size(); ++c)
2462       if(ItemVector[c]->IsBanana())
2463       {
2464   ItemVector[c]->MoveTo(GetStackUnder());
2465   ++BananasDropped;
2466       }
2467
2468     if(BananasDropped)
2469     {
2470       if(CanBeSeenByPlayer())
2471   ADD_MESSAGE("%s drops %s.", CHAR_NAME(DEFINITE), BananasDropped == 1 ? "a banana" : "some bananas");
2472
2473       return;
2474     }
2475
2476     ItemVector.clear();
2477     GetStackUnder()->FillItemVector(ItemVector);
2478     int PeelsPickedUp = 0;
2479
2480     for(c = 0; c < ItemVector.size(); ++c)
2481       if(ItemVector[c]->IsBananaPeel())
2482       {
2483   ItemVector[c]->MoveTo(GetStack());
2484   ++PeelsPickedUp;
2485       }
2486
2487     if(PeelsPickedUp)
2488     {
2489       if(CanBeSeenByPlayer())
2490   ADD_MESSAGE("%s picks up %s.", CHAR_NAME(DEFINITE), PeelsPickedUp == 1 ? "a banana peel" : "some banana peels");
2491
2492       return;
2493     }
2494
2495     HasDroppedBananas = true;
2496   }
2497
2498   if(!HasDroppedBananas)
2499   {
2500     SetGoingTo(BananaTarget);
2501
2502     if(MoveTowardsTarget(true))
2503       return;
2504   }
2505   else if(GetPos().X == 54)
2506   {
2507     if(CanBeSeenByPlayer())
2508       ADD_MESSAGE("%s leaves the town to gather more bananas.", CHAR_NAME(DEFINITE));
2509
2510     GetStack()->Clean();
2511     character* Sumo = game::GetSumo();
2512     FeedingSumo = Sumo && Sumo->GetNP() < (SATIATED_LEVEL + BLOATED_LEVEL) >> 1 && !(RAND() % 15);
2513     int Bananas = FeedingSumo ? 3 : 10;
2514
2515     for(int c = 0; c < Bananas; ++c)
2516       GetStack()->AddItem(banana::Spawn());
2517
2518     v2 Where = GetLevel()->GetNearestFreeSquare(this, v2(0, 45));
2519
2520     if(Where == ERROR_V2)
2521       Where = GetLevel()->GetRandomSquare(this, NOT_IN_ROOM); // this is odd but at least it doesn't crash
2522
2523     Move(Where, true);
2524     RandomizeProfession();
2525     RestoreBodyParts();
2526     RestoreHP();
2527     Stamina = MaxStamina / 5;
2528     ResetStates();
2529     TemporaryState = 0;
2530
2531     if(CanBeSeenByPlayer())
2532       ADD_MESSAGE("%s enters the town.", CHAR_NAME(INDEFINITE));
2533
2534     HasDroppedBananas = false;
2535   }
2536   else
2537   {
2538     SetGoingTo(v2(54, 45));
2539
2540     if(MoveTowardsTarget(true))
2541       return;
2542   }
2543
2544   EditAP(-1000);
2545 }
2546
2547 truth humanoid::CheckTalk()
2548 {
2549   if(!character::CheckTalk())
2550     return false;
2551
2552   if(!GetHead())
2553   {
2554     ADD_MESSAGE("You need a head to talk.");
2555     return false;
2556   }
2557
2558   return true;
2559 }
2560
2561 truth angel::CanCreateBodyPart(int I) const
2562 {
2563   return I == TORSO_INDEX || I == HEAD_INDEX || I == RIGHT_ARM_INDEX || I == LEFT_ARM_INDEX;
2564 }
2565
2566 truth genie::CanCreateBodyPart(int I) const
2567 {
2568   return I == TORSO_INDEX || I == HEAD_INDEX || I == RIGHT_ARM_INDEX || I == LEFT_ARM_INDEX;
2569 }
2570
2571 truth bananagrower::HandleCharacterBlockingTheWay(character* Char, v2 Pos, int Dir)
2572 {
2573   return Char->GetPos() == v2(45, 45) && (Displace(Char, true) || Hit(Char, Pos, Dir));
2574 }
2575
2576 festring& bananagrower::ProcessMessage(festring& Msg) const
2577 {
2578   character::ProcessMessage(Msg);
2579   SEARCH_N_REPLACE(Msg, "@pd", GetProfession());
2580   SEARCH_N_REPLACE(Msg, "@Pd", GetProfession().CapitalizeCopy());
2581   return Msg;
2582 }
2583
2584 void elder::CreateBodyParts(int SpecialFlags)
2585 {
2586   for(int c = 0; c < BodyParts; ++c)
2587     if(c != LEFT_LEG_INDEX)
2588       CreateBodyPart(c, SpecialFlags);
2589     else
2590       SetBodyPart(LEFT_LEG_INDEX, 0);
2591 }
2592
2593 /*void encourager::GetAICommand()
2594 {
2595   if(CheckForEnemies(true, true, true))
2596     return;
2597
2598   if(CheckForUsefulItemsOnGround())
2599     return;
2600
2601   if(CheckForDoors())
2602     return;
2603
2604   if(game::GetTick() - LastHit > 200)
2605   {
2606     static int NotDiagonal[] = { 1, 3, 4, 6 };
2607
2608     for(int d = 0; d < 4; ++d)
2609     {
2610       square* Square = GetNeighbourSquare(NotDiagonal[d]);
2611
2612       if(Square)
2613       {
2614   character* Char = Square->GetCharacter();
2615
2616   if(Char && Char->IsBananaGrower() && Hit(Char, Square->GetPos(), NotDiagonal[d], true))
2617   {
2618     LastHit = game::GetTick();
2619     TerminateGoingTo();
2620     return;
2621   }
2622       }
2623     }
2624   }
2625
2626   if(MoveTowardsHomePos())
2627     return;
2628
2629   EditAP(-1000);
2630 }*/
2631
2632 /*void encourager::Save(outputfile& SaveFile) const
2633 {
2634   humanoid::Save(SaveFile);
2635   SaveFile << LastHit;
2636 }
2637
2638 void encourager::Load(inputfile& SaveFile)
2639 {
2640   humanoid::Load(SaveFile);
2641   SaveFile >> LastHit;
2642 }*/
2643
2644 long skeleton::GetBodyPartVolume(int I) const
2645 {
2646   switch(I)
2647   {
2648    case HEAD_INDEX: return 600;
2649    case TORSO_INDEX: return (GetTotalVolume() - 600) * 13 / 30;
2650    case RIGHT_ARM_INDEX:
2651    case LEFT_ARM_INDEX: return (GetTotalVolume() - 600) / 10;
2652    case GROIN_INDEX: return (GetTotalVolume() - 600) / 10;
2653    case RIGHT_LEG_INDEX:
2654    case LEFT_LEG_INDEX: return ((GetTotalVolume() - 600) << 1) / 15;
2655   }
2656
2657   ABORT("Illegal humanoid bodypart volume request!");
2658   return 0;
2659 }
2660
2661 truth humanoid::CheckIfEquipmentIsNotUsable(int I) const
2662 {
2663   return (I == RIGHT_WIELDED_INDEX && GetRightArm()->CheckIfWeaponTooHeavy("this item"))
2664        || (I == LEFT_WIELDED_INDEX && GetLeftArm()->CheckIfWeaponTooHeavy("this item"))
2665        || (I == RIGHT_WIELDED_INDEX && GetLeftWielded() && GetLeftWielded()->IsTwoHanded() && GetLeftArm()->CheckIfWeaponTooHeavy(festring(GetPossessivePronoun() + " other wielded item").CStr()))
2666        || (I == LEFT_WIELDED_INDEX && GetRightWielded() && GetRightWielded()->IsTwoHanded() && GetRightArm()->CheckIfWeaponTooHeavy(festring(GetPossessivePronoun() + " other wielded item").CStr()));
2667 }
2668
2669 int mistress::TakeHit(character* Enemy, item* Weapon, bodypart* EnemyBodyPart, v2 HitPos, double Damage, double ToHitValue, int Success, int Type, int Direction, truth Critical, truth ForceHit)
2670 {
2671   int Return = humanoid::TakeHit(Enemy, Weapon, EnemyBodyPart, HitPos, Damage, ToHitValue, Success, Type, Direction, Critical, ForceHit);
2672
2673   if(Return == HAS_HIT && Critical)
2674   {
2675     if(IsPlayer())
2676       ADD_MESSAGE("Aahhh. The pain feels unbelievably good.");
2677     else if(CanBeSeenByPlayer())
2678       ADD_MESSAGE("%s screams: \"Oh the delightful pain!\"", CHAR_NAME(DEFINITE));
2679     else
2680       ADD_MESSAGE("You hear someone screaming: \"Oh the delightful pain!\"");
2681   }
2682
2683   return Return;
2684 }
2685
2686 truth petrusswife::SpecialEnemySightedReaction(character* Char)
2687 {
2688   item* Weapon = Char->GetMainWielded();
2689
2690   if(Weapon && Weapon->IsWeapon(Char) && !(RAND() % 20))
2691     ADD_MESSAGE("%s screams: \"Oh my Frog, %s's got %s %s!\"", CHAR_DESCRIPTION(DEFINITE), Char->CHAR_PERSONAL_PRONOUN_THIRD_PERSON_VIEW, Weapon->GetArticle(), Weapon->GetNameSingular().CStr());
2692
2693   return false;
2694 }
2695
2696 truth housewife::SpecialEnemySightedReaction(character* Char)
2697 {
2698   item* Weapon = Char->GetMainWielded();
2699
2700   if(Weapon && Weapon->IsWeapon(Char) && !(RAND() % 5))
2701     ADD_MESSAGE("%s screams: \"Oh my Frog, %s's got %s %s!\"", CHAR_DESCRIPTION(DEFINITE), Char->CHAR_PERSONAL_PRONOUN_THIRD_PERSON_VIEW, Weapon->GetArticle(), Weapon->GetNameSingular().CStr());
2702
2703   return false;
2704 }
2705
2706 void guard::Save(outputfile& SaveFile) const
2707 {
2708   humanoid::Save(SaveFile);
2709   SaveFile << WayPoints << NextWayPoint;
2710 }
2711
2712 void guard::Load(inputfile& SaveFile)
2713 {
2714   humanoid::Load(SaveFile);
2715   SaveFile >> WayPoints >> NextWayPoint;
2716 }
2717
2718 void guard::GetAICommand()
2719 {
2720   if(GetConfig() == MASTER && HP << 1 < MaxHP && (GetPos() - v2(30, 17)).GetLengthSquare() > 9)
2721   {
2722     if(CanBeSeenByPlayer())
2723       ADD_MESSAGE("%s disappears.", CHAR_NAME(DEFINITE));
2724
2725     GetLevel()->GetLSquare(30, 16)->KickAnyoneStandingHereAway();
2726     Move(v2(30, 16), true);
2727     EditAP(-1000);
2728     return;
2729   }
2730
2731   if(WayPoints.size() && !IsGoingSomeWhere())
2732   {
2733     if(GetPos() == WayPoints[NextWayPoint]) {
2734       if(NextWayPoint < WayPoints.size() - 1) ++NextWayPoint; else NextWayPoint = 0;
2735     }
2736
2737     GoingTo = WayPoints[NextWayPoint];
2738   }
2739
2740   SeekLeader(GetLeader());
2741
2742   if(CheckForEnemies(true, true, true))
2743     return;
2744
2745   if(CheckForUsefulItemsOnGround())
2746     return;
2747
2748   if(FollowLeader(GetLeader()))
2749     return;
2750
2751   if(CheckForDoors())
2752     return;
2753
2754   if(MoveTowardsHomePos())
2755     return;
2756
2757   if(CheckSadism())
2758     return;
2759
2760   if(CheckForBeverage())
2761     return;
2762
2763   EditAP(-1000);
2764 }
2765
2766 truth mistress::ReceiveDamage(character* Damager, int Damage, int Type, int TargetFlags, int Direction, truth Divide, truth PenetrateArmor, truth Critical, truth ShowMsg)
2767 {
2768   truth Success = humanoid::ReceiveDamage(Damager, Damage, Type, TargetFlags, Direction, Divide, PenetrateArmor, Critical, ShowMsg);
2769
2770   if(Type & SOUND && Success && !(RAND() & 7))
2771   {
2772     if(IsPlayer())
2773       ADD_MESSAGE("Aahhh. The pain feels unbelievably good.");
2774     else if(CanBeSeenByPlayer())
2775       ADD_MESSAGE("%s screams: \"Oh the delightful pain!\"", CHAR_NAME(DEFINITE));
2776     else
2777       ADD_MESSAGE("You hear someone screaming: \"Oh the delightful pain!\"");
2778   }
2779
2780   return Success;
2781 }
2782
2783 void humanoid::AddSpecialStethoscopeInfo(felist& Info) const
2784 {
2785   Info.AddEntry(CONST_S("Arm strength: ") + GetAttribute(ARM_STRENGTH), LIGHT_GRAY);
2786   Info.AddEntry(CONST_S("Leg strength: ") + GetAttribute(LEG_STRENGTH), LIGHT_GRAY);
2787   Info.AddEntry(CONST_S("Dexterity: ") + GetAttribute(DEXTERITY), LIGHT_GRAY);
2788   Info.AddEntry(CONST_S("Agility: ") + GetAttribute(AGILITY), LIGHT_GRAY);
2789 }
2790
2791 item* humanoid::GetPairEquipment(int I) const
2792 {
2793   switch(I)
2794   {
2795    case RIGHT_WIELDED_INDEX: return GetLeftWielded();
2796    case LEFT_WIELDED_INDEX: return GetRightWielded();
2797    case RIGHT_GAUNTLET_INDEX: return GetLeftGauntlet();
2798    case LEFT_GAUNTLET_INDEX: return GetRightGauntlet();
2799    case RIGHT_BOOT_INDEX: return GetLeftBoot();
2800    case LEFT_BOOT_INDEX: return GetRightBoot();
2801   }
2802
2803   return 0;
2804 }
2805
2806 cfestring& humanoid::GetStandVerb() const
2807 {
2808   if(ForceCustomStandVerb())
2809     return DataBase->StandVerb;
2810
2811   static festring HasntFeet = CONST_S("crawling");
2812   static festring Hovering = CONST_S("hovering");
2813   static festring Swimming = CONST_S("swimming");
2814
2815   if(StateIsActivated(LEVITATION))
2816     return Hovering;
2817
2818   if(IsSwimming())
2819     return Swimming;
2820
2821   return HasAUsableLeg() ? DataBase->StandVerb : HasntFeet;
2822 }
2823
2824 void darkmage::GetAICommand()
2825 {
2826   SeekLeader(GetLeader());
2827
2828   if(FollowLeader(GetLeader()))
2829     return;
2830
2831   character* NearestEnemy = 0;
2832   long NearestEnemyDistance = 0x7FFFFFFF;
2833   character* RandomFriend = 0;
2834   charactervector Friend;
2835   v2 Pos = GetPos();
2836
2837   for(int c = 0; c < game::GetTeams(); ++c)
2838   {
2839     if(GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE)
2840     {
2841       for(std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i)
2842   if((*i)->IsEnabled())
2843   {
2844     long ThisDistance = Max<long>(abs((*i)->GetPos().X - Pos.X), abs((*i)->GetPos().Y - Pos.Y));
2845
2846     if((ThisDistance < NearestEnemyDistance || (ThisDistance == NearestEnemyDistance && !(RAND() % 3))) && (*i)->CanBeSeenBy(this))
2847     {
2848       NearestEnemy = *i;
2849       NearestEnemyDistance = ThisDistance;
2850     }
2851   }
2852     }
2853     else if(GetTeam()->GetRelation(game::GetTeam(c)) == FRIEND)
2854     {
2855       for(std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i)
2856   if((*i)->IsEnabled() && (*i)->CanBeSeenBy(this))
2857     Friend.push_back(*i);
2858     }
2859   }
2860
2861   if(NearestEnemy && NearestEnemy->GetPos().IsAdjacent(Pos))
2862   {
2863     if(NearestEnemy->IsSmall()
2864        && GetAttribute(WISDOM) < NearestEnemy->GetAttackWisdomLimit()
2865        && !(RAND() % 5)
2866        && Hit(NearestEnemy, NearestEnemy->GetPos(), game::GetDirectionForVector(NearestEnemy->GetPos() - GetPos())))
2867       return;
2868     else if((GetConfig() == ARCH_MAGE && RAND() & 1)
2869       || (GetConfig() == ELDER && !(RAND() & 3)))
2870     {
2871       if(CanBeSeenByPlayer())
2872   ADD_MESSAGE("%s invokes a spell and disappears.", CHAR_NAME(DEFINITE));
2873
2874       TeleportRandomly(true);
2875       EditAP(-GetSpellAPCost());
2876       return;
2877     }
2878   }
2879
2880   if(NearestEnemy && ((GetConfig() != APPRENTICE && NearestEnemyDistance < 10) || StateIsActivated(PANIC)) && RAND() & 3)
2881   {
2882     SetGoingTo((Pos << 1) - NearestEnemy->GetPos());
2883
2884     if(MoveTowardsTarget(true))
2885       return;
2886   }
2887
2888   if(Friend.size() && !(RAND() & 3))
2889   {
2890     RandomFriend = Friend[RAND() % Friend.size()];
2891     NearestEnemy = 0;
2892   }
2893
2894   beamdata Beam
2895     (
2896       this,
2897       CONST_S("killed by the spells of ") + GetName(INDEFINITE),
2898       YOURSELF,
2899       0
2900     );
2901
2902   if(NearestEnemy)
2903   {
2904     lsquare* Square = NearestEnemy->GetLSquareUnder();
2905     EditAP(-GetSpellAPCost());
2906
2907     if(CanBeSeenByPlayer())
2908       ADD_MESSAGE("%s invokes a spell!", CHAR_NAME(DEFINITE));
2909
2910     switch(GetConfig())
2911     {
2912      case APPRENTICE:
2913       Square->DrawLightning(v2(8, 8), WHITE, YOURSELF);
2914       Square->Lightning(Beam);
2915       break;
2916      case BATTLE_MAGE:
2917       if(RAND() % 20)
2918       {
2919   Square->DrawLightning(v2(8, 8), WHITE, YOURSELF);
2920   Square->Lightning(Beam);
2921       }
2922       else
2923       {
2924   Square->DrawParticles(RED);
2925   Square->LowerEnchantment(Beam);
2926       }
2927
2928       break;
2929      case ELDER:
2930       switch(RAND() % 20)
2931       {
2932        case 0:
2933        case 1:
2934        case 2: Square->DrawParticles(RED); Square->Strike(Beam); break;
2935        case 3: Square->DrawParticles(RED); Square->FireBall(Beam); break;
2936        case 4:
2937        case 5:
2938        case 6: Square->DrawParticles(RED); Square->Slow(Beam); break;
2939        case 7: Square->DrawParticles(RED); Square->Teleport(Beam); break;
2940        case 8:
2941        case 9:
2942        case 10: Square->DrawParticles(RED); Square->LowerEnchantment(Beam); break;
2943        default: Square->DrawLightning(v2(8, 8), WHITE, YOURSELF); Square->Lightning(Beam); break;
2944       }
2945
2946       break;
2947      case ARCH_MAGE:
2948       switch(RAND() % 20)
2949       {
2950        case 0:
2951        case 1:
2952        case 2: Square->DrawParticles(RED); Square->FireBall(Beam); break;
2953        case 3:
2954   {
2955     character* Char = NearestEnemy->DuplicateToNearestSquare(this, CHANGE_TEAM|MIRROR|(1000 << LE_BASE_SHIFT)|(1000 << LE_RAND_SHIFT));
2956
2957     if(Char)
2958     {
2959       if(Char->CanBeSeenByPlayer())
2960         ADD_MESSAGE("%s materializes!", Char->CHAR_NAME(INDEFINITE));
2961
2962       break;
2963     }
2964   }
2965        case 4:
2966        case 5: Square->DrawParticles(RED); Square->Slow(Beam); break;
2967        case 6: Square->DrawParticles(RED); Square->Teleport(Beam); break;
2968        case 7:
2969        case 8:
2970        case 9: Square->DrawParticles(RED); Square->LowerEnchantment(Beam); break;
2971        case 10:
2972   {
2973     golem* Golem = golem::Spawn(RAND() % 3 ? ARCANITE : OCTIRON);
2974     v2 Where = GetLevel()->GetNearestFreeSquare(Golem, Square->GetPos());
2975
2976     if(Where == ERROR_V2)
2977     {
2978       if(CanBeSeenByPlayer())
2979         ADD_MESSAGE("Nothing happens.");
2980
2981       delete Golem;
2982     }
2983     else
2984     {
2985       Golem->SetGenerationDanger(GetGenerationDanger());
2986       Golem->SetTeam(GetTeam());
2987       Golem->PutTo(Where);
2988
2989       if(Golem->CanBeSeenByPlayer())
2990         ADD_MESSAGE("Suddenly %s materializes!", Golem->CHAR_NAME(INDEFINITE));
2991
2992       Golem->GetLSquareUnder()->DrawParticles(RED);
2993     }
2994
2995     break;
2996   }
2997        default: Square->DrawParticles(RED); Square->Strike(Beam); break;
2998       }
2999
3000       break;
3001     }
3002
3003     if(CanBeSeenByPlayer())
3004       NearestEnemy->DeActivateVoluntaryAction(CONST_S("The spell of ") + GetName(DEFINITE) + CONST_S(" interrupts you."));
3005     else
3006       NearestEnemy->DeActivateVoluntaryAction(CONST_S("The spell interrupts you."));
3007
3008     return;
3009   }
3010
3011   if(RandomFriend)
3012   {
3013     lsquare* Square = RandomFriend->GetLSquareUnder();
3014     EditAP(-GetSpellAPCost());
3015     Square->DrawParticles(RED);
3016
3017     switch(GetConfig())
3018     {
3019      case APPRENTICE:
3020      case BATTLE_MAGE:
3021       Square->Haste(Beam);
3022       break;
3023      case ARCH_MAGE:
3024       if(!(RAND() & 31))
3025       {
3026   RandomFriend->DuplicateToNearestSquare(this, CHANGE_TEAM);
3027   return;
3028       }
3029      case ELDER:
3030       if(RAND() & 1)
3031   Square->Invisibility(Beam);
3032       else
3033   Square->Haste(Beam);
3034
3035       break;
3036     }
3037
3038     return;
3039   }
3040
3041   if(CheckForDoors())
3042     return;
3043
3044   if(CheckSadism())
3045     return;
3046
3047   if(MoveRandomly())
3048     return;
3049
3050   EditAP(-1000);
3051 }
3052
3053 void zombie::GetAICommand()
3054 {
3055   if(!GetHead())
3056   {
3057     for(stackiterator i = GetLSquareUnder()->GetStack()->GetBottom(); i.HasItem(); ++i)
3058     {
3059       head* Head = i->Behead();
3060
3061       if(Head)
3062       {
3063   if(CanBeSeenByPlayer())
3064     ADD_MESSAGE("%s takes %s and attaches it to its torso.", CHAR_NAME(DEFINITE), Head->CHAR_NAME(INDEFINITE));
3065
3066   Head->RemoveFromSlot();
3067   AttachBodyPart(Head);
3068   Head->SetHP(1);
3069   DexterityAction(10);
3070   return;
3071       }
3072     }
3073   }
3074
3075   humanoid::GetAICommand();
3076 }
3077
3078 head* humanoid::Behead()
3079 {
3080   head* Head = GetHead();
3081
3082   if(Head)
3083     SevereBodyPart(HEAD_INDEX);
3084
3085   return Head;
3086 }
3087
3088 truth communist::BoundToUse(citem* Item, int I) const
3089 {
3090   return Item && Item->IsGorovitsFamilyRelic() && Item->IsInCorrectSlot(I);
3091 }
3092
3093 festring werewolfwolf::GetKillName() const
3094 {
3095   if(GetPolymorphBackup() && GetPolymorphBackup()->GetType() == werewolfhuman::ProtoType.GetIndex())
3096     return GetName(INDEFINITE);
3097
3098   return humanoid::GetKillName();
3099 }
3100
3101 int humanoid::GetRandomApplyBodyPart() const
3102 {
3103   if(RightArmIsUsable())
3104   {
3105     if(LeftArmIsUsable())
3106       return RAND_2 ? RIGHT_ARM_INDEX : LEFT_ARM_INDEX;
3107     else
3108       return RIGHT_ARM_INDEX;
3109   }
3110   else if(LeftArmIsUsable())
3111     return LEFT_ARM_INDEX;
3112
3113   if(GetHead())
3114     return HEAD_INDEX;
3115
3116   return TORSO_INDEX;
3117 }
3118
3119 void golem::BeTalkedTo()
3120 {
3121   static long Said;
3122
3123   if(GetRelation(PLAYER) == HOSTILE)
3124     Engrave(GetHostileReplies()[RandomizeReply(Said, GetHostileReplies().Size)]);
3125   else
3126     Engrave(GetFriendlyReplies()[RandomizeReply(Said, GetFriendlyReplies().Size)]);
3127
3128   if(CanBeSeenByPlayer())
3129     ADD_MESSAGE("%s engraves something.", CHAR_NAME(DEFINITE));
3130 }
3131
3132 #ifdef WIZARD
3133
3134 void humanoid::AddAttributeInfo(festring& Entry) const
3135 {
3136   Entry.Resize(45);
3137   Entry << GetAttribute(ARM_STRENGTH);
3138   Entry.Resize(48);
3139   Entry << GetAttribute(LEG_STRENGTH);
3140   Entry.Resize(51);
3141   Entry << GetAttribute(DEXTERITY);
3142   Entry.Resize(54);
3143   Entry << GetAttribute(AGILITY);
3144   character::AddAttributeInfo(Entry);
3145 }
3146
3147 void humanoid::AddAttackInfo(felist& List) const
3148 {
3149   if(GetAttackStyle() & USE_ARMS)
3150   {
3151     if(GetRightArm())
3152       GetRightArm()->AddAttackInfo(List);
3153
3154     if(GetLeftArm())
3155       GetLeftArm()->AddAttackInfo(List);
3156   }
3157
3158   festring Entry;
3159
3160   if(IsUsingLegs())
3161   {
3162     GetRightLeg()->AddAttackInfo(List);
3163     GetLeftLeg()->AddAttackInfo(List);
3164   }
3165
3166   if(IsUsingHead())
3167   {
3168     Entry = CONST_S("   bite attack");
3169     Entry.Resize(50);
3170     Entry << GetHead()->GetBiteMinDamage() << '-' << GetHead()->GetBiteMaxDamage();
3171     Entry.Resize(60);
3172     Entry << int(GetHead()->GetBiteToHitValue());
3173     Entry.Resize(70);
3174     Entry << GetHead()->GetBiteAPCost();
3175     List.AddEntry(Entry, LIGHT_GRAY);
3176   }
3177 }
3178
3179 void humanoid::AddDefenceInfo(felist& List) const
3180 {
3181   character::AddDefenceInfo(List);
3182
3183   if(GetRightArm())
3184     GetRightArm()->AddDefenceInfo(List);
3185
3186   if(GetLeftArm())
3187     GetLeftArm()->AddDefenceInfo(List);
3188 }
3189
3190 void humanoid::DetachBodyPart()
3191 {
3192   int ToBeDetached;
3193
3194   switch(game::KeyQuestion(CONST_S("What limb? (l)eft arm, (r)ight arm, (L)eft leg, (R)ight leg, (h)ead?"), KEY_ESC, 5, 'l','r','L','R', 'h'))
3195   {
3196    case 'l':
3197     ToBeDetached = LEFT_ARM_INDEX;
3198     break;
3199    case 'r':
3200     ToBeDetached = RIGHT_ARM_INDEX;
3201     break;
3202    case 'L':
3203     ToBeDetached = LEFT_LEG_INDEX;
3204     break;
3205    case 'R':
3206     ToBeDetached = RIGHT_LEG_INDEX;
3207     break;
3208    case 'h':
3209     ToBeDetached = HEAD_INDEX;
3210     break;
3211    default:
3212     return;
3213   }
3214
3215   if(GetBodyPart(ToBeDetached))
3216   {
3217     item* ToDrop = SevereBodyPart(ToBeDetached);
3218     SendNewDrawRequest();
3219
3220     if(ToDrop)
3221     {
3222       GetStack()->AddItem(ToDrop);
3223       ToDrop->DropEquipment();
3224     }
3225
3226     ADD_MESSAGE("Bodypart detached!");
3227   }
3228   else
3229     ADD_MESSAGE("That bodypart has already been detached.");
3230
3231   CheckDeath(CONST_S("removed one of his vital bodyparts"), 0);
3232 }
3233
3234 #else
3235
3236 void humanoid::AddAttributeInfo(festring&) const { }
3237 void humanoid::AddAttackInfo(felist&) const { }
3238 void humanoid::AddDefenceInfo(felist&) const { }
3239 void humanoid::DetachBodyPart() { }
3240
3241 #endif
3242
3243 truth ennerbeast::MustBeRemovedFromBone() const
3244 {
3245   return !IsEnabled() || GetTeam()->GetID() != MONSTER_TEAM || GetDungeon()->GetIndex() != ELPURI_CAVE || GetLevel()->GetIndex() != ENNER_BEAST_LEVEL;
3246 }
3247
3248 truth communist::MustBeRemovedFromBone() const
3249 {
3250   return !IsEnabled() || GetTeam()->GetID() != IVAN_TEAM || GetDungeon()->GetIndex() != ELPURI_CAVE|| GetLevel()->GetIndex() != IVAN_LEVEL;
3251 }
3252
3253 truth humanoid::PreProcessForBone()
3254 {
3255   for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
3256     (*i)->PreProcessForBone();
3257
3258   return character::PreProcessForBone();
3259 }
3260
3261 void humanoid::FinalProcessForBone()
3262 {
3263   character::FinalProcessForBone();
3264
3265   for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end();)
3266   {
3267     boneidmap::iterator BI = game::GetBoneItemIDMap().find(-(*i)->GetID());
3268
3269     if(BI == game::GetBoneItemIDMap().end())
3270     {
3271       std::list<sweaponskill*>::iterator Dirt = i++;
3272       SWeaponSkill.erase(Dirt);
3273     }
3274     else
3275     {
3276       (*i)->SetID(BI->second);
3277       ++i;
3278     }
3279   }
3280 }
3281
3282 void angel::FinalProcessForBone()
3283 {
3284   humanoid::FinalProcessForBone();
3285   LastHealed = 0;
3286 }
3287
3288 /*void encourager::FinalProcessForBone()
3289 {
3290   humanoid::FinalProcessForBone();
3291   LastHit = 0;
3292 }*/
3293
3294 void playerkind::Save(outputfile& SaveFile) const
3295 {
3296   humanoid::Save(SaveFile);
3297   SaveFile << SoulID << HairColor << EyeColor << Talent << Weakness << IsBonePlayer << IsClone;
3298 }
3299
3300 void playerkind::Load(inputfile& SaveFile)
3301 {
3302   humanoid::Load(SaveFile);
3303   SaveFile >> SoulID >> HairColor >> EyeColor >> Talent >> Weakness >> IsBonePlayer >> IsClone;
3304 }
3305
3306 void playerkind::SetSoulID(ulong What)
3307 {
3308   SoulID = What;
3309
3310   if(GetPolymorphBackup())
3311     GetPolymorphBackup()->SetSoulID(What);
3312 }
3313
3314 truth playerkind::SuckSoul(character* Soul)
3315 {
3316   if(Soul->GetID() == SoulID)
3317   {
3318     SoulID = 0;
3319     return true;
3320   }
3321
3322   return false;
3323 }
3324
3325 truth playerkind::TryToRiseFromTheDead()
3326 {
3327   if(humanoid::TryToRiseFromTheDead())
3328   {
3329     if(IsEnabled() && SoulID)
3330     {
3331       ADD_MESSAGE("The soulless body of %s wobbles for a moment.", CHAR_NAME(DEFINITE));
3332       return false;
3333     }
3334
3335     return true;
3336   }
3337   else
3338     return false;
3339 }
3340
3341 void playerkind::FinalProcessForBone()
3342 {
3343   humanoid::FinalProcessForBone();
3344   IsBonePlayer = true;
3345
3346   if(SoulID)
3347   {
3348     boneidmap::iterator BI = game::GetBoneCharacterIDMap().find(SoulID);
3349
3350     if(BI != game::GetBoneCharacterIDMap().end())
3351       SoulID = BI->second;
3352     else
3353       SoulID = 0;
3354   }
3355 }
3356
3357 playerkind::playerkind(const playerkind& Char) : mybase(Char), SoulID(Char.SoulID), HairColor(Char.HairColor), EyeColor(Char.EyeColor), Talent(Char.Talent), Weakness(Char.Weakness), IsBonePlayer(Char.IsBonePlayer), IsClone(true)
3358 {
3359 }
3360
3361 void playerkind::BeTalkedTo()
3362 {
3363   if(IsClone && IsBonePlayer)
3364   {
3365     if(GetRelation(PLAYER) == HOSTILE)
3366     {
3367       ADD_MESSAGE("Oh no, you too! Why does everyone bully me!");
3368       return;
3369     }
3370
3371     static long Said;
3372
3373     switch(RandomizeReply(Said, 4))
3374     {
3375      case 0:
3376       ADD_MESSAGE("\"I'd like to write a memoir, but alas I doubt anyone would believe it.\"");
3377       break;
3378      case 1:
3379       ADD_MESSAGE("\"Then that damned clone appeared, took all my equipment and claimed I was his slave...\"");
3380       break;
3381      case 2:
3382       ADD_MESSAGE("\"The level was a catastrophe for the party, but luckily you saved the day.\"");
3383       break;
3384      case 3:
3385       ADD_MESSAGE("\"Oh, how I hate bananas. I Hate Them! I HATE THEM SO MUCH!!!\"");
3386       break;
3387     }
3388   }
3389   else if(IsClone)
3390   {
3391     if(GetRelation(PLAYER) == HOSTILE)
3392     {
3393       ADD_MESSAGE("%s seems extremely irritated. \"Vanish, you foul mirror image!\"", CHAR_DESCRIPTION(DEFINITE));
3394       return;
3395     }
3396
3397     static long Said;
3398
3399     switch(RandomizeReply(Said, 4))
3400     {
3401      case 0:
3402       ADD_MESSAGE("\"Hey, those clothes are mine! Give them back!\"");
3403       break;
3404      case 1:
3405       ADD_MESSAGE("\"What, you summoned me? What a coincidence, I remember summoning you, too.\"");
3406       break;
3407      case 2:
3408       ADD_MESSAGE("\"I'm leading this party, not you, Mr. copy guy!\"");
3409       break;
3410      case 3:
3411       ADD_MESSAGE("\"Oh, how I hate bananas. I Hate Them! I HATE THEM SO MUCH!!!\"");
3412       break;
3413     }
3414   }
3415   else
3416   {
3417     if(GetRelation(PLAYER) == HOSTILE)
3418     {
3419       ADD_MESSAGE("Let's finish what my ghost failed to do!");
3420       return;
3421     }
3422
3423     static long Said;
3424
3425     switch(RandomizeReply(Said, 4))
3426     {
3427      case 0:
3428       ADD_MESSAGE("\"What was it like? Death, you mean? Well, just like New Attnam. Very hot and whips everywhere.\"");
3429       break;
3430      case 1:
3431       ADD_MESSAGE("\"Stop it already! I *don't* want to know how my corpse smelled!\"");
3432       break;
3433      case 2:
3434       ADD_MESSAGE("\"I'm sorry about that ghost thing. That YASD was just a bit too much to handle, so I lost myself.\"");
3435       break;
3436      case 3:
3437       ADD_MESSAGE("\"Oh, how I hate bananas. I Hate Them! I HATE THEM SO MUCH!!!\"");
3438       break;
3439     }
3440   }
3441 }
3442
3443 void humanoid::EnsureCurrentSWeaponSkillIsCorrect(sweaponskill*& Skill, citem* Wielded)
3444 {
3445   if(Wielded)
3446   {
3447     if(!Skill || !Skill->IsSkillOf(Wielded))
3448     {
3449       if(Skill)
3450   EnsureCurrentSWeaponSkillIsCorrect(Skill, 0);
3451
3452       std::list<sweaponskill*>::iterator i;
3453
3454       for(i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
3455   if((*i)->IsSkillOf(Wielded))
3456   {
3457     Skill = *i;
3458     return;
3459   }
3460
3461       for(idholder* I = Wielded->GetCloneMotherID(); I; I = I->Next)
3462   for(i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
3463     if((*i)->IsSkillOfCloneMother(Wielded, I->ID))
3464     {
3465       Skill = new sweaponskill(**i);
3466       Skill->SetID(Wielded->GetID());
3467       SWeaponSkill.push_back(Skill);
3468       return;
3469     }
3470
3471       Skill = new sweaponskill(Wielded);
3472       SWeaponSkill.push_back(Skill);
3473     }
3474   }
3475   else if(Skill)
3476   {
3477     if(!Skill->GetHits() && (CurrentRightSWeaponSkill != Skill || CurrentLeftSWeaponSkill != Skill))
3478       for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
3479   if(*i == Skill)
3480   {
3481     delete *i;
3482     SWeaponSkill.erase(i);
3483     break;
3484   }
3485
3486     Skill = 0;
3487   }
3488 }
3489
3490 humanoid::~humanoid()
3491 {
3492   for(std::list<sweaponskill*>::iterator i = SWeaponSkill.begin(); i != SWeaponSkill.end(); ++i)
3493     delete *i;
3494 }
3495
3496 truth guard::MoveTowardsHomePos()
3497 {
3498   if(GetConfig() == MASTER && GetPos() != v2(30, 16))
3499   {
3500     if(CanBeSeenByPlayer())
3501       ADD_MESSAGE("%s disappears.", CHAR_NAME(DEFINITE));
3502
3503     GetLevel()->GetLSquare(30, 16)->KickAnyoneStandingHereAway();
3504     Move(v2(30, 16), true);
3505
3506     if(CanBeSeenByPlayer())
3507       ADD_MESSAGE("%s appears.", CHAR_NAME(DEFINITE));
3508
3509     EditAP(-1000);
3510     return true;
3511   }
3512   else
3513     return humanoid::MoveTowardsHomePos();
3514 }
3515
3516 bodypart* ennerbeast::MakeBodyPart(int I) const
3517 {
3518   if(I == HEAD_INDEX)
3519     return ennerhead::Spawn(0, NO_MATERIALS);
3520   else
3521     return humanoid::MakeBodyPart(I);
3522 }
3523
3524 int humanoid::GetSumOfAttributes() const
3525 {
3526   return character::GetSumOfAttributes() + GetAttribute(LEG_STRENGTH) + GetAttribute(DEXTERITY) ;
3527 }
3528
3529 truth humanoid::CheckConsume(cfestring& Verb) const
3530 {
3531   if(!HasHead())
3532   {
3533     if(IsPlayer())
3534       ADD_MESSAGE("You need a head to %s.", Verb.CStr());
3535
3536     return false;
3537   }
3538
3539   return character::CheckConsume(Verb);
3540 }
3541
3542 truth humanoid::CanConsume(material* Material) const
3543 {
3544   return character::CanConsume(Material) && HasHead();
3545 }
3546
3547 void femaleslave::BeTalkedTo()
3548 {
3549   static long Said;
3550
3551   if(GetConfig() != NEW_ATTNAM || GetRelation(PLAYER) == HOSTILE)
3552     humanoid::BeTalkedTo();
3553   else if(!game::TweraifIsFree())
3554     ProcessAndAddMessage(GetFriendlyReplies()[RandomizeReply(Said, 4)]);
3555   else
3556     ProcessAndAddMessage(GetFriendlyReplies()[4 + RandomizeReply(Said, 3)]);
3557 }
3558
3559 void necromancer::GetAICommand()
3560 {
3561   SeekLeader(GetLeader());
3562
3563   if(FollowLeader(GetLeader()))
3564     return;
3565
3566   character* NearestEnemy = 0;
3567   long NearestEnemyDistance = 0x7FFFFFFF;
3568   v2 Pos = GetPos();
3569
3570   for(int c = 0; c < game::GetTeams(); ++c)
3571     if(GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE)
3572     {
3573       for(std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i)
3574   if((*i)->IsEnabled())
3575   {
3576     long ThisDistance = Max<long>(abs((*i)->GetPos().X - Pos.X), abs((*i)->GetPos().Y - Pos.Y));
3577
3578     if((ThisDistance < NearestEnemyDistance || (ThisDistance == NearestEnemyDistance && !(RAND() % 3))) && (*i)->CanBeSeenBy(this))
3579     {
3580       NearestEnemy = *i;
3581       NearestEnemyDistance = ThisDistance;
3582     }
3583   }
3584     }
3585
3586   if(NearestEnemy && NearestEnemy->GetPos().IsAdjacent(Pos))
3587   {
3588     if(GetConfig() == MASTER_NECROMANCER && !(RAND() & 3))
3589     {
3590       if(CanBeSeenByPlayer())
3591   ADD_MESSAGE("%s invokes a spell and disappears.", CHAR_NAME(DEFINITE));
3592
3593       TeleportRandomly(true);
3594       EditAP(-GetSpellAPCost());
3595       return;
3596     }
3597     else if(NearestEnemy->IsSmall()
3598       && GetAttribute(WISDOM) < NearestEnemy->GetAttackWisdomLimit()
3599       && !(RAND() & 3)
3600       && Hit(NearestEnemy, NearestEnemy->GetPos(), game::GetDirectionForVector(NearestEnemy->GetPos() - GetPos())))
3601       return;
3602   }
3603
3604   if(!NearestEnemy)
3605   {
3606     if(!RAND_N(3) && TryToRaiseZombie())
3607       return;
3608   }
3609   else
3610   {
3611     if(!RAND_N(6) && TryToRaiseZombie())
3612       return;
3613   }
3614
3615   if(NearestEnemy && !(RAND() % (GetConfig() == APPRENTICE_NECROMANCER ? 3 : 2)))
3616   {
3617     lsquare* Square = NearestEnemy->GetLSquareUnder();
3618     EditAP(-GetSpellAPCost());
3619
3620     if(CanBeSeenByPlayer())
3621       ADD_MESSAGE("%s invokes a spell!", CHAR_NAME(DEFINITE));
3622
3623     truth Interrupt = false;
3624
3625     switch(GetConfig())
3626     {
3627      case APPRENTICE_NECROMANCER:
3628       RaiseSkeleton();
3629       break;
3630      case MASTER_NECROMANCER:
3631       if(RAND() % 5)
3632   RaiseSkeleton();
3633       else
3634       {
3635   Square->DrawLightning(v2(8, 8), WHITE, YOURSELF);
3636
3637   beamdata Beam
3638     (
3639       this,
3640       CONST_S("killed by the spells of ") + GetName(INDEFINITE),
3641       YOURSELF,
3642       0
3643     );
3644
3645   Square->Lightning(Beam);
3646   Interrupt = true;
3647       }
3648
3649       break;
3650     }
3651
3652     if(Interrupt) {
3653       if(CanBeSeenByPlayer())
3654         NearestEnemy->DeActivateVoluntaryAction(CONST_S("The spell of ") + GetName(DEFINITE) + CONST_S(" interrupts you."));
3655       else
3656         NearestEnemy->DeActivateVoluntaryAction(CONST_S("The spell interrupts you."));
3657     }
3658     return;
3659   }
3660
3661   if(NearestEnemy && (NearestEnemyDistance < 10 || StateIsActivated(PANIC)) && RAND() & 3)
3662   {
3663     SetGoingTo((Pos << 1) - NearestEnemy->GetPos());
3664
3665     if(MoveTowardsTarget(true))
3666       return;
3667   }
3668
3669   if(CheckForDoors())
3670     return;
3671
3672   if(CheckSadism())
3673     return;
3674
3675   if(MoveRandomly())
3676     return;
3677
3678   EditAP(-1000);
3679 }
3680
3681 truth necromancer::TryToRaiseZombie()
3682 {
3683   for(int c = 0; c < game::GetTeams(); ++c)
3684     for(std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin();
3685   i != game::GetTeam(c)->GetMember().end(); ++i)
3686       if(!(*i)->IsEnabled() && (*i)->GetMotherEntity()
3687    && (*i)->GetMotherEntity()->Exists()
3688    && (GetConfig() == MASTER_NECROMANCER
3689        || (*i)->GetMotherEntity()->GetSquareUnderEntity()->CanBeSeenBy(this)))
3690       {
3691   character* Zombie = (*i)->GetMotherEntity()->TryNecromancy(this);
3692
3693   if(Zombie)
3694   {
3695     if(Zombie->CanBeSeenByPlayer())
3696       ADD_MESSAGE("%s calls %s back to cursed undead life.", CHAR_DESCRIPTION(DEFINITE), Zombie->CHAR_NAME(INDEFINITE));
3697     else if(CanBeSeenByPlayer())
3698       ADD_MESSAGE("%s casts a spell, but you notice no effect.", CHAR_NAME(DEFINITE));
3699
3700     EditAP(-GetSpellAPCost());
3701     return true;
3702   }
3703       }
3704
3705   return false;
3706 }
3707
3708 void necromancer::RaiseSkeleton()
3709 {
3710   /* Gum solution */
3711
3712   const database* WarLordDataBase;
3713   databasecreator<character>::FindDataBase(WarLordDataBase, &skeleton::ProtoType, WAR_LORD);
3714   skeleton* Skeleton;
3715
3716   if(GetConfig() == MASTER_NECROMANCER && !(WarLordDataBase->Flags & HAS_BEEN_GENERATED) && !(RAND() % 250))
3717   {
3718     Skeleton = skeleton::Spawn(WAR_LORD);
3719     Skeleton->SetTeam(GetTeam());
3720     Skeleton->PutNear(GetPos());
3721     Skeleton->SignalGeneration();
3722
3723     if(Skeleton->CanBeSeenByPlayer())
3724       ADD_MESSAGE("The whole area trembles terribly as %s emerges from the ground.", Skeleton->CHAR_NAME(DEFINITE));
3725     else if(CanBeSeenByPlayer())
3726       ADD_MESSAGE("%s casts a powerful spell which makes the whole area tremble.", CHAR_NAME(DEFINITE));
3727     else
3728       ADD_MESSAGE("You feel the presence of an ancient evil being awakened from its long slumber. You shiver.");
3729   }
3730   else
3731   {
3732     Skeleton = skeleton::Spawn(GetConfig() == APPRENTICE_NECROMANCER ? 0 : WARRIOR, NO_EQUIPMENT);
3733     Skeleton->SetTeam(GetTeam());
3734     Skeleton->PutNear(GetPos());
3735
3736     if(Skeleton->CanBeSeenByPlayer())
3737       ADD_MESSAGE("The ground shakes and %s emerges from it.", Skeleton->CHAR_NAME(INDEFINITE));
3738     else if(CanBeSeenByPlayer())
3739       ADD_MESSAGE("%s casts a spell, but you notice no effect.", CHAR_NAME(DEFINITE));
3740   }
3741
3742   Skeleton->SetGenerationDanger(GetGenerationDanger());
3743   EditAP(-GetSpellAPCost());
3744 }
3745
3746 void humanoid::StayOn(liquid* Liquid)
3747 {
3748   if(IsFlying())
3749     return;
3750
3751   truth Standing = false;
3752
3753   if(GetRightLeg())
3754   {
3755     GetRightLeg()->StayOn(Liquid);
3756     Standing = true;
3757   }
3758
3759   if(IsEnabled() && GetLeftLeg())
3760   {
3761     GetLeftLeg()->StayOn(Liquid);
3762     Standing = true;
3763   }
3764
3765   if(!Standing)
3766   {
3767     bodypart* BodyPart[MAX_BODYPARTS];
3768     int Index = 0;
3769
3770     for(int c = 0; c < BodyParts; ++c)
3771       if(GetBodyPart(c))
3772   BodyPart[Index++] = GetBodyPart(c);
3773
3774     BodyPart[RAND() % Index]->StayOn(Liquid);
3775   }
3776 }
3777
3778 bodypart* playerkind::MakeBodyPart(int I) const
3779 {
3780   switch(I)
3781   {
3782    case TORSO_INDEX: return playerkindtorso::Spawn(0, NO_MATERIALS);
3783    case HEAD_INDEX: return playerkindhead::Spawn(0, NO_MATERIALS);
3784    case RIGHT_ARM_INDEX: return playerkindrightarm::Spawn(0, NO_MATERIALS);
3785    case LEFT_ARM_INDEX: return playerkindleftarm::Spawn(0, NO_MATERIALS);
3786    case GROIN_INDEX: return playerkindgroin::Spawn(0, NO_MATERIALS);
3787    case RIGHT_LEG_INDEX: return playerkindrightleg::Spawn(0, NO_MATERIALS);
3788    case LEFT_LEG_INDEX: return playerkindleftleg::Spawn(0, NO_MATERIALS);
3789   }
3790
3791   ABORT("Weird bodypart to make for a playerkind. It must be your fault!");
3792   return 0;
3793 }
3794
3795 truth golem::AddAdjective(festring& String, truth Articled) const
3796 {
3797   int TotalRustLevel = sumbodypartproperties()(this, &bodypart::GetMainMaterialRustLevel);
3798
3799   if(!TotalRustLevel)
3800     return humanoid::AddAdjective(String, Articled);
3801   else
3802   {
3803     if(Articled)
3804       String << "a ";
3805
3806     if(TotalRustLevel <= GetBodyParts())
3807       String << "slightly rusted ";
3808     else if(TotalRustLevel <= GetBodyParts() << 1)
3809       String << "rusted ";
3810     else
3811       String << "very rusted ";
3812
3813     String << GetAdjective() << ' ';
3814     return true;
3815   }
3816 }
3817
3818 void oree::Bite(character* Enemy, v2 HitPos, int, truth)
3819 {
3820   if(IsPlayer())
3821     ADD_MESSAGE("You vomit acidous blood at %s.", Enemy->CHAR_DESCRIPTION(DEFINITE));
3822   else if(Enemy->IsPlayer() || CanBeSeenByPlayer() || Enemy->CanBeSeenByPlayer())
3823     ADD_MESSAGE("%s vomits acidous blood at %s.", CHAR_DESCRIPTION(DEFINITE), Enemy->CHAR_DESCRIPTION(DEFINITE));
3824
3825   Vomit(HitPos, 500 + RAND() % 500, false);
3826 }
3827
3828 void sumowrestler::GetAICommand()
3829 {
3830   EditNP(-25);
3831
3832   SeekLeader(GetLeader());
3833
3834   if(CheckForEnemies(true, true, true))
3835     return;
3836
3837   if(CheckForUsefulItemsOnGround())
3838     return;
3839
3840   if(CheckForFood(4))
3841     return;
3842
3843   if(FollowLeader(GetLeader()))
3844     return;
3845
3846   if(CheckForDoors())
3847     return;
3848
3849   if(MoveTowardsHomePos())
3850     return;
3851
3852   EditAP(-1000);
3853 }
3854
3855 void sumowrestler::BeTalkedTo()
3856 {
3857   static long Said;
3858
3859   if(GetRelation(PLAYER) == HOSTILE)
3860     ProcessAndAddMessage(GetHostileReplies()[RandomizeReply(Said, GetHostileReplies().Size)]);
3861   else if(!game::TweraifIsFree())
3862     ProcessAndAddMessage(GetFriendlyReplies()[RandomizeReply(Said, 6)]);
3863   else
3864     ProcessAndAddMessage(GetFriendlyReplies()[6 + RandomizeReply(Said, 3)]);
3865 }
3866
3867 character* tourist::GetLeader() const
3868 {
3869   character* Guide = game::GetTeam(TOURIST_GUIDE_TEAM)->GetLeader();
3870   return Guide && Guide->GetRelation(this) != HOSTILE ? Guide : GetTeam()->GetLeader();
3871 }
3872
3873 void elder::GetAICommand()
3874 {
3875   /* Select a place to guide the tourists to */
3876
3877   if(!(RAND() % 10))
3878     SetGoingTo(GetLevel()->GetRandomSquare());
3879
3880   humanoid::GetAICommand();
3881 }
3882
3883 void tourist::GetAICommand()
3884 {
3885   if(game::IsSumoWrestling() && !(RAND() % 10))
3886   {
3887     if(GetConfig() == HUSBAND)
3888     {
3889       if(RAND() & 1)
3890   ADD_MESSAGE("%s shouts: \"Show that skinny wimp what you've got, Huang!\"", CHAR_DESCRIPTION(DEFINITE));
3891       else
3892   ADD_MESSAGE("%s screams: \"Go for it, Huang!\"", CHAR_DESCRIPTION(DEFINITE));
3893     }
3894     else if(GetConfig() == WIFE)
3895     {
3896       if(RAND() & 1)
3897   ADD_MESSAGE("%s encourages you: \"Knock him out, %s!\"", CHAR_DESCRIPTION(DEFINITE), game::GetPlayerName().CStr());
3898       else
3899   ADD_MESSAGE("%s cheers you: \"A handsome guy like you can't lose to that banana ball!\"", CHAR_DESCRIPTION(DEFINITE));
3900     }
3901     else if(GetConfig() == CHILD)
3902     {
3903       if(RAND() & 1)
3904   ADD_MESSAGE("%s yells: \"More blood on the ring!!!\"", CHAR_DESCRIPTION(DEFINITE));
3905       else
3906   ADD_MESSAGE("%s cries: \"Kill him, Pong!!!\"", CHAR_DESCRIPTION(DEFINITE));
3907     }
3908   }
3909
3910   humanoid::GetAICommand();
3911 }
3912
3913
3914 ///////////////////////////////////////////////////////////////////////////////
3915 character* humanoid::CreateZombie() const
3916 {
3917   if(!TorsoIsAlive())
3918     return 0;
3919
3920   humanoid* Zombie = zombie::Spawn();
3921   int c;
3922
3923   for(c = 0; c < BodyParts; ++c)
3924   {
3925     bodypart* BodyPart = GetBodyPart(c);
3926
3927     if(!BodyPart)
3928     {
3929       BodyPart = SearchForOriginalBodyPart(c);
3930
3931       if(BodyPart)
3932       {
3933   BodyPart->RemoveFromSlot();
3934   BodyPart->SendToHell();
3935       }
3936     }
3937
3938     if(BodyPart)
3939     {
3940       bodypart* ZombieBodyPart = Zombie->GetBodyPart(c);
3941
3942       if(!ZombieBodyPart)
3943   ZombieBodyPart = Zombie->CreateBodyPart(c);
3944
3945       material* M = BodyPart->GetMainMaterial()->Duplicate();
3946       M->SetSpoilCounter(2000 + RAND() % 1000);
3947       M->SetSkinColor(Zombie->GetSkinColor());
3948       ZombieBodyPart->ChangeMainMaterial(M);
3949       ZombieBodyPart->CopyAttributes(BodyPart);
3950     }
3951     else if(!Zombie->BodyPartIsVital(c))
3952     {
3953       bodypart* ZombieBodyPart = Zombie->GetBodyPart(c);
3954
3955       if(ZombieBodyPart)
3956       {
3957   ZombieBodyPart->RemoveFromSlot();
3958   ZombieBodyPart->SendToHell();
3959       }
3960     }
3961   }
3962
3963   for(c = 0; c < Zombie->AllowedWeaponSkillCategories; ++c)
3964     Zombie->CWeaponSkill[c] = CWeaponSkill[c];
3965
3966   Zombie->SWeaponSkill.resize(SWeaponSkill.size());
3967   std::list<sweaponskill*>::iterator i1 = Zombie->SWeaponSkill.begin();
3968   std::list<sweaponskill*>::const_iterator i2 = SWeaponSkill.begin();
3969
3970   for(; i2 != SWeaponSkill.end(); ++i1, ++i2)
3971     *i1 = new sweaponskill(**i2);
3972
3973   memcpy(Zombie->BaseExperience,
3974    BaseExperience,
3975    BASE_ATTRIBUTES * sizeof(*BaseExperience));
3976   Zombie->CalculateAll();
3977   Zombie->RestoreHP();
3978   Zombie->RestoreStamina();
3979   static_cast<zombie*>(Zombie)->SetDescription(GetZombieDescription());
3980   Zombie->GenerationDanger = GenerationDanger;
3981   return Zombie;
3982 }
3983
3984 void zombie::AddPostFix(festring& String, int Case) const
3985 {
3986   if(!Description.IsEmpty())
3987     String << Description;
3988   else
3989     humanoid::AddPostFix(String, Case);
3990 }
3991
3992 void zombie::Save(outputfile& SaveFile) const
3993 {
3994   humanoid::Save(SaveFile);
3995   SaveFile << Description;
3996 }
3997
3998 void zombie::Load(inputfile& SaveFile)
3999 {
4000   humanoid::Load(SaveFile);
4001   SaveFile >> Description;
4002 }
4003
4004 int darkknight::ModifyBodyPartHitPreference(int I, int Modifier) const
4005 {
4006   return IsLimbIndex(I) ? Modifier << 1 : Modifier;
4007 }
4008
4009 int darkknight::ModifyBodyPartToHitChance(int I, int Chance) const
4010 {
4011   return IsLimbIndex(I) ? Chance << 1 : Chance;
4012 }
4013
4014 void darkknight::SpecialBodyPartSeverReaction()
4015 {
4016   if(!IsPlayer())
4017   {
4018     if(IsUsingHead())
4019       ADD_MESSAGE("%s screams: \"I'll do you for that! I'll bite your legs off!\"", CHAR_DESCRIPTION(DEFINITE));
4020     else if(!(RAND() % 5))
4021       switch(RAND() % 3)
4022       {
4023        case 0:
4024   ADD_MESSAGE("%s states calmly: \"'Tis but a scratch.\"", CHAR_DESCRIPTION(DEFINITE)); break;
4025        case 1:
4026   ADD_MESSAGE("%s states calmly: \"Just a flesh wound.\"", CHAR_DESCRIPTION(DEFINITE)); break;
4027        case 2:
4028   ADD_MESSAGE("%s shouts: \"I'm invincible!\"", CHAR_DESCRIPTION(DEFINITE)); break;
4029       }
4030   }
4031 }
4032
4033 void humanoid::LeprosyHandler()
4034 {
4035   if(IsImmuneToLeprosy())
4036   {
4037     return;
4038   }
4039
4040   if(!RAND_N(1000 * GetAttribute(ENDURANCE)))
4041     DropRandomNonVitalBodypart();
4042
4043   if(!game::IsInWilderness())
4044   {
4045     for(int d = 0; d < GetNeighbourSquares(); ++d)
4046     {
4047       lsquare* Square = GetNeighbourLSquare(d);
4048
4049       if(Square && Square->GetCharacter())
4050   Square->GetCharacter()->TryToInfectWithLeprosy(this);
4051     }
4052   }
4053
4054   character::LeprosyHandler();
4055 }
4056
4057 void humanoid::DropRandomNonVitalBodypart()
4058 {
4059   int BodyPartIndexToDrop = GetRandomNonVitalBodyPart();
4060
4061   if(BodyPartIndexToDrop != NONE_INDEX)
4062     DropBodyPart(BodyPartIndexToDrop);
4063 }
4064
4065 void humanoid::DropBodyPart(int Index)
4066 {
4067   if(!GetBodyPart(Index)->IsAlive())
4068     return;
4069
4070   festring NameOfDropped = GetBodyPart(Index)->GetBodyPartName();
4071   item* Dropped = SevereBodyPart(Index);
4072
4073   if(Dropped)
4074   {
4075     GetStack()->AddItem(Dropped);
4076     Dropped->DropEquipment();
4077
4078     if(IsPlayer())
4079     {
4080       ADD_MESSAGE("You feel very ill. Your %s snaps off.", NameOfDropped.CStr());
4081       game::AskForEscPress(CONST_S("Bodypart severed!"));
4082       DeActivateVoluntaryAction();
4083     }
4084     else if(CanBeSeenByPlayer())
4085       ADD_MESSAGE("Suddenly %s's %s snaps off.", CHAR_NAME(DEFINITE), NameOfDropped.CStr());
4086   }
4087   else
4088   {
4089     if(IsPlayer())
4090     {
4091       ADD_MESSAGE("You feel very ill. Your %s disappears.", NameOfDropped.CStr());
4092       game::AskForEscPress(CONST_S("Bodypart destroyed!"));
4093       DeActivateVoluntaryAction();
4094     }
4095     else if(CanBeSeenByPlayer())
4096       ADD_MESSAGE("Suddenly %s's %s disappears.", CHAR_NAME(DEFINITE), NameOfDropped.CStr());
4097   }
4098 }
4099
4100 void humanoid::DuplicateEquipment(character* Receiver, ulong Flags)
4101 {
4102   character::DuplicateEquipment(Receiver, Flags);
4103   EnsureCurrentSWeaponSkillIsCorrect(CurrentRightSWeaponSkill, GetRightWielded());
4104   EnsureCurrentSWeaponSkillIsCorrect(CurrentLeftSWeaponSkill, GetLeftWielded());
4105 }
4106
4107 truth character::CanHear() const
4108 {
4109   return DataBase->CanHear && HasHead();
4110 }
4111
4112 col16 veterankamikazedwarf::GetTorsoMainColor() const
4113 {
4114   return GetMasterGod()->GetEliteColor();
4115 }
4116
4117 col16 veterankamikazedwarf::GetGauntletColor() const
4118 {
4119   return GetMasterGod()->GetEliteColor();
4120 }
4121
4122 col16 veterankamikazedwarf::GetLegMainColor() const
4123 {
4124   return GetMasterGod()->GetEliteColor();
4125 }
4126
4127 col16 archangel::GetTorsoMainColor() const
4128 {
4129   return GetMasterGod()->GetEliteColor();
4130 }
4131
4132 col16 archangel::GetArmMainColor() const
4133 {
4134   return GetMasterGod()->GetEliteColor();
4135 }
4136
4137 void archangel::CreateInitialEquipment(int SpecialFlags)
4138 {
4139   humanoid::CreateInitialEquipment(SpecialFlags);
4140   GetStack()->AddItem(holybook::Spawn(GetConfig(), SpecialFlags));
4141   armor* Equipment;
4142   meleeweapon* Weapon;
4143
4144   switch(GetMasterGod()->GetBasicAlignment())
4145   {
4146    case GOOD:
4147     Weapon = flamingsword::Spawn(0, SpecialFlags|NO_MATERIALS);
4148     Weapon->InitMaterials(MAKE_MATERIAL(DIAMOND), MAKE_MATERIAL(ADAMANT), !(SpecialFlags & NO_PIC_UPDATE));
4149     Weapon->SetEnchantment(4);
4150     SetRightWielded(Weapon);
4151     Equipment = shield::Spawn(0, SpecialFlags|NO_MATERIALS);
4152     Equipment->InitMaterials(MAKE_MATERIAL(DIAMOND), !(SpecialFlags & NO_PIC_UPDATE));
4153     Equipment->SetEnchantment(4);
4154     SetLeftWielded(Equipment);
4155     GetCWeaponSkill(LARGE_SWORDS)->AddHit(200000);
4156     GetCWeaponSkill(SHIELDS)->AddHit(500000);
4157     GetCurrentRightSWeaponSkill()->AddHit(200000);
4158     GetCurrentLeftSWeaponSkill()->AddHit(200000);
4159     GetRightArm()->SetDexterity(70);
4160     GetLeftArm()->SetDexterity(70);
4161     break;
4162    case NEUTRAL:
4163     Weapon = meleeweapon::Spawn(WAR_HAMMER, SpecialFlags|NO_MATERIALS);
4164     Weapon->InitMaterials(MAKE_MATERIAL(SAPPHIRE), MAKE_MATERIAL(OCTIRON), !(SpecialFlags & NO_PIC_UPDATE));
4165     Weapon->SetEnchantment(4);
4166     SetRightWielded(Weapon);
4167     GetCWeaponSkill(BLUNT_WEAPONS)->AddHit(500000);
4168     GetCurrentRightSWeaponSkill()->AddHit(200000);
4169     SetEndurance(70);
4170     break;
4171    case EVIL:
4172     Weapon = meleeweapon::Spawn(HALBERD, SpecialFlags|NO_MATERIALS);
4173     Weapon->InitMaterials(MAKE_MATERIAL(RUBY), MAKE_MATERIAL(OCTIRON), !(SpecialFlags & NO_PIC_UPDATE));
4174     Weapon->SetEnchantment(4);
4175     SetLeftWielded(Weapon);
4176     GetCWeaponSkill(POLE_ARMS)->AddHit(500000);
4177     GetCurrentLeftSWeaponSkill()->AddHit(500000);
4178     GetRightArm()->SetStrength(70);
4179     GetLeftArm()->SetStrength(70);
4180   }
4181 }
4182
4183 void zombie::PostConstruct()
4184 {
4185   if(!RAND_N(3))
4186     GainIntrinsic(LEPROSY);
4187 }
4188
4189 void orc::PostConstruct()
4190 {
4191   if(!RAND_N(25))
4192     GainIntrinsic(LEPROSY);
4193 }
4194
4195 truth mistress::AllowEquipment(citem* Item, int EquipmentIndex) const
4196 {
4197   return ((EquipmentIndex != RIGHT_WIELDED_INDEX
4198      && EquipmentIndex != LEFT_WIELDED_INDEX)
4199     || Item->IsWhip());
4200 }
4201
4202 int humanoid::GetAttributeAverage() const
4203 {
4204   return GetSumOfAttributes() / 9;
4205 }
4206
4207 void golem::CreateCorpse(lsquare* Square)
4208 {
4209   material* Material = GetTorso()->GetMainMaterial();
4210
4211   if(Material->IsSolid())
4212     Square->AddItem(Material->CreateNaturalForm(ItemVolume));
4213
4214   SendToHell();
4215 }
4216
4217 golem::golem()
4218 {
4219   if(!game::IsLoading())
4220     ItemVolume = 50 + RAND_N(100);
4221 }
4222
4223 void golem::Save(outputfile& SaveFile) const
4224 {
4225   humanoid::Save(SaveFile);
4226   SaveFile << ItemVolume;
4227 }
4228
4229 void golem::Load(inputfile& SaveFile)
4230 {
4231   humanoid::Load(SaveFile);
4232   SaveFile >> ItemVolume;
4233 }
4234
4235 truth humanoid::CanVomit() const
4236 {
4237   return HasHead() && character::CanVomit();
4238 }
4239
4240 truth humanoid::CheckApply() const
4241 {
4242   if(!character::CheckApply())
4243     return false;
4244
4245   if(!HasAUsableArm())
4246   {
4247     ADD_MESSAGE("You need a usable arm to apply.");
4248     return false;
4249   }
4250
4251   return true;
4252 }
4253
4254 int darkmage::GetSpellAPCost() const
4255 {
4256   switch(GetConfig())
4257   {
4258    case APPRENTICE: return 4000;
4259    case BATTLE_MAGE: return 2000;
4260    case ELDER: return 1000;
4261    case ARCH_MAGE: return 500;
4262   }
4263
4264   return 4000;
4265 }
4266
4267 int necromancer::GetSpellAPCost() const
4268 {
4269   switch(GetConfig())
4270   {
4271    case APPRENTICE_NECROMANCER: return 2000;
4272    case MASTER_NECROMANCER: return 1000;
4273   }
4274
4275   return 4000;
4276 }
4277
4278 /* Horrible repeating. Sorry */
4279
4280 void tailor::BeTalkedTo()
4281 {
4282   if(GetRelation(PLAYER) == HOSTILE)
4283   {
4284     ADD_MESSAGE("\"You talkin' to me? You talkin' to me? You talkin' to me? Then who the hell else are you talkin' to? You talkin' to me? Well I'm the only one here. Who do you think you're talking to? Oh yeah? Huh? Ok.\"");
4285     return;
4286   }
4287
4288   if(PLAYER->PossessesItem(&item::IsFixableByTailor))
4289   {
4290     item* Item = PLAYER->SelectFromPossessions(CONST_S("\"What do you want me to fix?\""), &item::IsFixableByTailor);
4291
4292     if(!Item)
4293       return;
4294
4295     if(!(Item->GetMainMaterial()->GetCategoryFlags() & CAN_BE_TAILORED))
4296     {
4297       ADD_MESSAGE("\"I can't work on %s.\"", Item->GetMainMaterial()->GetName(false, false).CStr());
4298       return;
4299     }
4300
4301     /** update messages */
4302
4303     long FixPrice = Item->GetFixPrice();
4304
4305     if(PLAYER->GetMoney() < FixPrice)
4306     {
4307       ADD_MESSAGE("\"Getting that fixed costs you %ld gold pieces. Get the money and we'll talk.\"", FixPrice);
4308       return;
4309     }
4310
4311     ADD_MESSAGE("\"I can fix your %s, but it'll cost you %ld gold pieces.\"", Item->CHAR_NAME(UNARTICLED), FixPrice);
4312
4313     if(game::TruthQuestion(CONST_S("Do you accept this deal? [y/N]")))
4314     {
4315       Item->Fix();
4316       PLAYER->EditMoney(-FixPrice);
4317       ADD_MESSAGE("%s fixes %s in no time.", CHAR_NAME(DEFINITE), Item->CHAR_NAME(DEFINITE));
4318     }
4319   }
4320   else
4321     ADD_MESSAGE("\"Come back when you have some weapons or armor I can fix.\"");
4322 }
4323
4324 void veterankamikazedwarf::PostConstruct()
4325 {
4326   kamikazedwarf::PostConstruct();
4327   ivantime Time;
4328   game::GetTime(Time);
4329   int Modifier = Time.Day - KAMIKAZE_INVISIBILITY_DAY_MIN;
4330
4331   if(Time.Day >= KAMIKAZE_INVISIBILITY_DAY_MAX
4332      || (Modifier > 0
4333    && RAND_N(KAMIKAZE_INVISIBILITY_DAY_MAX - KAMIKAZE_INVISIBILITY_DAY_MIN) < Modifier))
4334     GainIntrinsic(INVISIBLE);
4335 }
4336
4337 truth humanoid::IsTransparent() const
4338 {
4339   return character::IsTransparent() || !(GetRightLeg() || GetLeftLeg());
4340 }
4341
4342 void humanoid::ModifySituationDanger(double& Danger) const
4343 {
4344   character::ModifySituationDanger(Danger);
4345
4346   switch(GetUsableArms())
4347   {
4348    case 0: Danger *= 10;
4349    case 1: Danger *= 2;
4350   }
4351
4352   switch(GetUsableLegs())
4353   {
4354    case 0: Danger *= 10;
4355    case 1: Danger *= 2;
4356   }
4357 }
4358
4359 void oree::GetAICommand()
4360 {
4361   if(!RAND_N(50))
4362     CallForMonsters();
4363
4364   humanoid::GetAICommand();
4365 }
4366
4367 void oree::CallForMonsters()
4368 {
4369   if(GetDungeon()->GetIndex() != ELPURI_CAVE || GetLevel()->GetIndex() != OREE_LAIR)
4370     return;
4371
4372   character* ToBeCalled = 0;
4373
4374   switch(RAND_N(6))
4375   {
4376    case 0:
4377     ToBeCalled = darkknight::Spawn(ELITE);
4378     break;
4379    case 1:
4380     ToBeCalled = frog::Spawn(RAND_2 ? GREATER_DARK : GIANT_DARK);
4381     break;
4382    case 2:
4383     ToBeCalled = frog::Spawn(DARK);
4384     break;
4385    case 3:
4386     ToBeCalled = darkmage::Spawn(RAND_2 ? APPRENTICE : BATTLE_MAGE);
4387     break;
4388    case 4:
4389     ToBeCalled = darkmage::Spawn(RAND_2 ? APPRENTICE : ELDER);
4390     break;
4391    case 5:
4392     ToBeCalled = necromancer::Spawn(RAND_2 ? APPRENTICE_NECROMANCER : MASTER_NECROMANCER);
4393     break;
4394   }
4395
4396   v2 TryToCreate;
4397
4398   for(int c = 0; c < 100; ++c)
4399   {
4400     TryToCreate = game::GetMonsterPortal()->GetPos() + game::GetMoveVector(RAND() % DIRECTION_COMMAND_KEYS);
4401
4402     if(GetArea()->IsValidPos(TryToCreate) && ToBeCalled->CanMoveOn(GetNearLSquare(TryToCreate)) && ToBeCalled->IsFreeForMe(GetNearLSquare(TryToCreate)))
4403     {
4404       ToBeCalled->SetTeam(game::GetTeam(MONSTER_TEAM));
4405       ToBeCalled->PutTo(TryToCreate);
4406       return;
4407     }
4408   }
4409
4410   delete ToBeCalled;
4411 }
4412
4413 int humanoid::RandomizeTryToUnStickBodyPart(ulong PossibleBodyParts) const
4414 {
4415   int Possible = 0, PossibleArray[3];
4416
4417   if(RightArmIsUsable() && 1 << RIGHT_ARM_INDEX & PossibleBodyParts)
4418     PossibleArray[Possible++] = RIGHT_ARM_INDEX;
4419
4420   if(LeftArmIsUsable() && 1 << LEFT_ARM_INDEX & PossibleBodyParts)
4421     PossibleArray[Possible++] = LEFT_ARM_INDEX;
4422
4423   if(Possible)
4424     return PossibleArray[RAND_N(Possible)];
4425
4426   if(RightLegIsUsable() && 1 << RIGHT_LEG_INDEX & PossibleBodyParts)
4427     PossibleArray[Possible++] = RIGHT_LEG_INDEX;
4428
4429   if(LeftLegIsUsable() && 1 << LEFT_LEG_INDEX & PossibleBodyParts)
4430     PossibleArray[Possible++] = LEFT_LEG_INDEX;
4431
4432   if(Possible)
4433     return PossibleArray[RAND_N(Possible)];
4434
4435   if(GetHead() && 1 << HEAD_INDEX & PossibleBodyParts)
4436     return HEAD_INDEX;
4437
4438   if(GetGroin() && 1 << GROIN_INDEX & PossibleBodyParts)
4439     PossibleArray[Possible++] = GROIN_INDEX;
4440
4441   if(1 << TORSO_INDEX & PossibleBodyParts)
4442     PossibleArray[Possible++] = TORSO_INDEX;
4443
4444   return Possible ? PossibleArray[RAND_N(Possible)] : NONE_INDEX;
4445 }
4446
4447 truth humanoid::HasAUsableArm() const
4448 {
4449   arm* R = GetRightArm(), * L = GetLeftArm();
4450   return (R && R->IsUsable()) || (L && L->IsUsable());
4451 }
4452
4453 truth humanoid::HasAUsableLeg() const
4454 {
4455   leg* R = GetRightLeg(), * L = GetLeftLeg();
4456   return (R && R->IsUsable()) || (L && L->IsUsable());
4457 }
4458
4459 truth humanoid::HasTwoUsableLegs() const
4460 {
4461   leg* R = GetRightLeg(), * L = GetLeftLeg();
4462   return R && R->IsUsable() && L && L->IsUsable();
4463 }
4464
4465 truth humanoid::CanAttackWithAnArm() const
4466 {
4467   arm* R = GetRightArm();
4468
4469   if(R && R->GetDamage())
4470     return true;
4471
4472   arm* L = GetLeftArm();
4473   return L && L->GetDamage();
4474 }
4475
4476 truth humanoid::RightArmIsUsable() const
4477 {
4478   arm* A = GetRightArm();
4479   return A && A->IsUsable();
4480 }
4481
4482 truth humanoid::LeftArmIsUsable() const
4483 {
4484   arm* A = GetLeftArm();
4485   return A && A->IsUsable();
4486 }
4487
4488 truth humanoid::RightLegIsUsable() const
4489 {
4490   leg* L = GetRightLeg();
4491   return L && L->IsUsable();
4492 }
4493
4494 truth humanoid::LeftLegIsUsable() const
4495 {
4496   leg* L = GetLeftLeg();
4497   return L && L->IsUsable();
4498 }
4499
4500 truth humanoid::AllowUnconsciousness() const
4501 {
4502   return (DataBase->AllowUnconsciousness && TorsoIsAlive()
4503     && BodyPartIsVital(HEAD_INDEX));
4504 }
4505
4506 truth humanoid::CanChokeOnWeb(web* Web) const
4507 {
4508   return CanChoke() && Web->IsStuckToBodyPart(HEAD_INDEX);
4509 }
4510
4511 truth humanoid::BrainsHurt() const
4512 {
4513   head* Head = GetHead();
4514   return !Head || Head->IsBadlyHurt();
4515 }
4516
4517 void playerkind::PostConstruct()
4518 {
4519   int R = 0, G = 0, B = 0;
4520
4521   switch(RAND_N(4))
4522   {
4523    case 0: R = 195; G = 165; B = 40; break;
4524    case 1: R = 130; G = 30; B = 0; break;
4525    case 2: R = 30; G = 30; B = 15; break;
4526    case 3: R = 50; G = 30; B = 5; break;
4527   }
4528
4529   HairColor = MakeRGB16(R + RAND_N(41), G + RAND_N(41), B + RAND_N(41));
4530
4531   switch(RAND_N(4))
4532   {
4533    case 0: R = 25; G = 0; B = 70; break;
4534    case 1: R = 5; G = 0; B = 50; break;
4535    case 2: R = 10; G = 10; B = 10; break;
4536    case 3: R = 60; G = 20; B = 0; break;
4537   }
4538
4539   EyeColor = MakeRGB16(R + RAND_N(41), G + RAND_N(41), B + RAND_N(41));
4540   Talent = RAND_N(TALENTS);
4541   Weakness = RAND_N(TALENTS);
4542 }
4543
4544 v2 playerkind::GetHeadBitmapPos() const
4545 {
4546   int Sum = GetAttribute(INTELLIGENCE, false) + GetAttribute(WISDOM, false);
4547
4548   if(Sum >= 60)
4549     return v2(96, 480);
4550   else if(Sum >= 40)
4551     return v2(96, 464);
4552   else
4553     return v2(96, 416);
4554 }
4555
4556 v2 playerkind::GetRightArmBitmapPos() const
4557 {
4558   if(GetRightArm()->GetAttribute(ARM_STRENGTH, false) >= 20)
4559     return v2(64, 448);
4560   else
4561     return v2(64, 416);
4562 }
4563
4564 v2 playerkind::GetLeftArmBitmapPos() const
4565 {
4566   if(GetLeftArm()->GetAttribute(ARM_STRENGTH, false) >= 20)
4567     return v2(64, 448);
4568   else
4569     return v2(64, 416);
4570 }
4571
4572 int playerkind::GetNaturalSparkleFlags() const
4573 {
4574   return GetAttribute(CHARISMA) >= 30 ? SKIN_COLOR : 0;
4575 }
4576
4577 void slave::PostConstruct()
4578 {
4579   Talent = TALENT_STRONG;
4580   Weakness = TALENT_CLEVER;
4581 }
4582
4583 cint TalentOfAttribute[ATTRIBUTES] = { TALENT_HEALTHY, TALENT_FAST_N_ACCURATE, TALENT_CLEVER, TALENT_CLEVER, TALENT_CLEVER, TALENT_CLEVER, TALENT_CLEVER, TALENT_STRONG, TALENT_STRONG, TALENT_FAST_N_ACCURATE, TALENT_FAST_N_ACCURATE };
4584 const double TalentBonusOfAttribute[ATTRIBUTES] = { 1.1, 1.25, 1.25, 1.25, 1.25, 1.25, 1.25, 1.25, 1.25, 1.25, 1.25 };
4585
4586 double playerkind::GetNaturalExperience(int Identifier) const
4587 {
4588   double NE = DataBase->NaturalExperience[Identifier];
4589
4590   if(Talent == TalentOfAttribute[Identifier])
4591     NE *= TalentBonusOfAttribute[Identifier];
4592
4593   if(Weakness == TalentOfAttribute[Identifier])
4594     NE /= TalentBonusOfAttribute[Identifier];
4595
4596   return NE;
4597 }
4598
4599 cchar* humanoid::GetRunDescriptionLine(int I) const
4600 {
4601   if(!GetRunDescriptionLineOne().IsEmpty())
4602     return !I ? GetRunDescriptionLineOne().CStr() : GetRunDescriptionLineTwo().CStr();
4603
4604   if(IsFlying())
4605     return !I ? "Flying" : "very fast";
4606
4607   if(IsSwimming())
4608   {
4609     if(!GetRightArm() && !GetLeftArm() && !GetRightLeg() && !GetLeftLeg())
4610       return !I ? "Floating" : "ahead fast";
4611     else
4612       return !I ? "Swimming" : "very fast";
4613   }
4614
4615   if(!GetRightLeg() && !GetLeftLeg())
4616     return !I ? "Rolling" : "very fast";
4617
4618   if(!GetRightLeg() || !GetLeftLeg())
4619     return !I ? "Hopping" : "very fast";
4620
4621   return !I ? "Running" : "";
4622 }
4623
4624 cchar* humanoid::GetNormalDeathMessage() const
4625 {
4626   if(BodyPartIsVital(HEAD_INDEX) && (!GetHead() || GetHead()->GetHP() <= 0))
4627     return "beheaded @k";
4628   else if(BodyPartIsVital(GROIN_INDEX) && (!GetGroin() || GetGroin()->GetHP() <= 0))
4629     return "killed @bkp dirty attack below the belt";
4630   else
4631     return "killed @k";
4632 }
4633
4634 void kamikazedwarf::SingRandomSong()
4635 {
4636   festring Song;
4637   festring God = GetMasterGod()->GetName();
4638   festring Bodypart;
4639
4640   switch(RAND_N(9))
4641   {
4642    case 0:
4643
4644     switch(RAND_N(3))
4645     {
4646      case 0:
4647       Bodypart = "palm";
4648       break;
4649
4650      case 1:
4651       Bodypart = "forehead";
4652       break;
4653
4654      default:
4655       Bodypart = "tongue";
4656       break;
4657     }
4658     Song = festring("On the ") + Bodypart + festring(" of ") + God + " everybody fears everything";
4659     break;
4660    case 1:
4661     {
4662       festring Title = GetMasterGod()->GetSex() == MALE ? "King" : "Queen";
4663       Song = festring("Joy to the world, ") + God
4664        + " is come! Let all above Valpurus receive her " + Title;
4665       break;
4666     }
4667    case 2:
4668     Song = festring("Hark the herald angels sing. Glory to ") + God + "!";
4669     break;
4670    case 3:
4671     Song = festring("O ") + God
4672      + ", You are so big, So absolutely huge, Gosh, "
4673      "we're all really impressed down here, I can tell You.";
4674     break;
4675    case 4:
4676     Song = festring("Forgive us, O ") + God
4677      + " for this, our dreadful toadying and barefaced flattery";
4678     break;
4679    case 5:
4680     Song = festring("But you, ") + God
4681      + ", are so strong and, well, just so super fantastic. Amen.";
4682     break;
4683    case 6:
4684     Song = festring("O ") + God + ", please don't burn us";
4685     break;
4686    case 7:
4687     Song = festring("O ") + God + ", please don't grill or toast your flock";
4688     break;
4689    case 8:
4690     Song = festring("O ") + God + ", please don't simmer us in stock";
4691     break;
4692   }
4693
4694   EditAP(-1000);
4695
4696   if(CanBeSeenByPlayer())
4697     ADD_MESSAGE("%s sings: \"%s\"",
4698     CHAR_DESCRIPTION(DEFINITE), Song.CStr());
4699   else
4700     ADD_MESSAGE("You hear someone sing: \"%s\"", Song.CStr());
4701 }
4702
4703 void humanoid::ApplySpecialAttributeBonuses()
4704 {
4705   if(GetHead())
4706   {
4707     AttributeBonus[CHARISMA] -= GetHead()->
4708         CalculateScarAttributePenalty(GetAttribute(CHARISMA, false));
4709   }
4710   else
4711     AttributeBonus[CHARISMA] -= GetAttribute(CHARISMA, false) - 1;
4712 }
4713
4714 void siren::GetAICommand()
4715 {
4716   if(TryToSing())
4717     return;
4718
4719   humanoid::GetAICommand();
4720 }
4721
4722 truth siren::TryToSing()
4723 {
4724   truth Success=false;
4725   for(int d = 0; d < GetNeighbourSquares(); ++d)
4726   {
4727     lsquare* Square = GetNeighbourLSquare(d);
4728
4729     if(Square && Square->GetCharacter())
4730     {
4731       Success = true;
4732       Square->GetCharacter()->ReceiveSirenSong(this);
4733     }
4734   }
4735   if(Success)
4736     EditAP(-2000);
4737
4738   return Success;
4739 }
4740
4741 truth humanoid::MindWormCanPenetrateSkull(mindworm* Worm) const
4742 {
4743   if(GetHelmet())
4744   {
4745     if(RAND_N(102) > GetHelmet()->GetCoverPercentile())
4746     {
4747       return RAND_2;
4748     }
4749   }
4750
4751   return RAND_2;
4752 }
4753
4754 truth humanoid::HasSadistWeapon() const
4755 {
4756   arm* Right = GetRightArm(), * Left = GetLeftArm();
4757   return (Right && Right->HasSadistWeapon()) || (Left && Left->HasSadistWeapon());
4758 }
4759
4760 truth humanoid::HasSadistAttackMode() const
4761 {
4762   return HasSadistWeapon() || IsUsingLegs();
4763 }
4764
4765 void petrusswife::Save(outputfile& SaveFile) const
4766 {
4767   humanoid::Save(SaveFile);
4768   SaveFile << GiftTotal;
4769 }
4770
4771 void petrusswife::Load(inputfile& SaveFile)
4772 {
4773   humanoid::Load(SaveFile);
4774   SaveFile >> GiftTotal;
4775 }
4776
4777 void petrusswife::BeTalkedTo()
4778 {
4779   itemvector Item;
4780
4781   if(!PLAYER->SelectFromPossessions(Item, CONST_S("Do you have something to give me?"), 0, &item::IsLuxuryItem)
4782      || Item.empty())
4783     humanoid::BeTalkedTo();
4784
4785   int Accepted = 0;
4786   truth RefusedSomething = false;
4787
4788   for(unsigned int c = 0; c < Item.size(); ++c)
4789     if(!MakesBurdened(GetCarriedWeight() + Item[c]->GetWeight()))
4790     {
4791       ++Accepted;
4792       GiftTotal += Item[c]->GetTruePrice();
4793       Item[c]->RemoveFromSlot();
4794       GetStack()->AddItem(Item[c]);
4795     }
4796     else
4797     {
4798       RefusedSomething = true;
4799       break;
4800     }
4801
4802   if(Accepted)
4803     ADD_MESSAGE("\"I thank you for your little gift%s.\"", Accepted == 1 ? "" : "s");
4804
4805   if(RefusedSomething)
4806     ADD_MESSAGE("\"Unfortunately I cannot carry any more of your gifts. I'm a delicate woman, you see.\"");
4807 }
4808
4809 void guard::BeTalkedTo()
4810 {
4811   itemvector Item;
4812
4813   if(!PLAYER->SelectFromPossessions(Item, CONST_S("Do you have something to give me?"), 0, &item::IsBeverage)
4814      || Item.empty())
4815     humanoid::BeTalkedTo();
4816
4817   for(unsigned int c = 0; c < Item.size(); ++c)
4818   {
4819     Item[c]->RemoveFromSlot();
4820     GetStack()->AddItem(Item[c]);
4821   }
4822 }
4823
4824
4825 void denim::GetAICommand () {
4826   int Enemies = 0;
4827   for (int c = 0; c < game::GetTeams(); ++c) {
4828     if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) Enemies += game::GetTeam(c)->GetEnabledMembers();
4829   }
4830   StandIdleAI();
4831 }
4832
4833
4834 v2 wisefarmer::GetHeadBitmapPos () const { return v2(96, (4 + (RAND() & 1)) << 4); }
4835 v2 wisefarmer::GetRightArmBitmapPos () const { return v2(64, (RAND() & 1) << 4); }
4836
4837 void wisefarmer::GetAICommand () {
4838   int Enemies = 0;
4839   for (int c = 0; c < game::GetTeams(); ++c) {
4840     if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) Enemies += game::GetTeam(c)->GetEnabledMembers();
4841   }
4842   StandIdleAI();
4843 }
4844
4845
4846 void raven::GetAICommand () {
4847   int Enemies = 0;
4848   for (int c = 0; c < game::GetTeams(); ++c) {
4849     if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) Enemies += game::GetTeam(c)->GetEnabledMembers();
4850   }
4851   StandIdleAI();
4852 }
4853
4854
4855 void vulcan::GetAICommand () {
4856   int Enemies = 0;
4857   for (int c = 0; c < game::GetTeams(); ++c) {
4858     if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) Enemies += game::GetTeam(c)->GetEnabledMembers();
4859   }
4860   StandIdleAI();
4861 }
4862
4863
4864 truth rogue::IsRetreating () const {
4865   if (humanoid::IsRetreating()) return true;
4866   for (stackiterator i = GetStack()->GetBottom(); i.HasItem(); ++i) if ((*i)->GetSparkleFlags()) return true;
4867   return false;
4868 }
4869
4870
4871 void rogue::GetAICommand () {
4872   if (!IsRetreating()) {
4873     character *Char = GetRandomNeighbour();
4874     if (Char) {
4875       itemvector Sparkling;
4876       for (stackiterator i = Char->GetStack()->GetBottom(); i.HasItem(); ++i) {
4877         if ((*i)->GetSparkleFlags() && !MakesBurdened((*i)->GetWeight())) Sparkling.push_back(*i);
4878       }
4879       if (!Sparkling.empty()) {
4880         item *ToSteal = Sparkling[RAND() % Sparkling.size()];
4881         ToSteal->RemoveFromSlot();
4882         GetStack()->AddItem(ToSteal);
4883         if (Char->IsPlayer()) ADD_MESSAGE("%s steals your %s.", CHAR_NAME(DEFINITE), ToSteal->CHAR_NAME(UNARTICLED));
4884         EditAP(-500);
4885         return;
4886       }
4887     }
4888   }
4889   humanoid::GetAICommand();
4890 }
4891
4892
4893 void assassin::BeTalkedTo () {
4894   if (GetRelation(PLAYER) == HOSTILE) {
4895     if (PLAYER->GetMoney() >= 1500) {
4896       ADD_MESSAGE("%s talks: \"If you shell out 1500 gold pieces I'll join your side\"", CHAR_DESCRIPTION(DEFINITE));
4897       if (game::TruthQuestion(CONST_S("Do you want to bribe him? [y/N]"))) {
4898         PLAYER->SetMoney(PLAYER->GetMoney()-1500);
4899         ChangeTeam(PLAYER->GetTeam());
4900         RemoveHomeData();
4901       }
4902     } else {
4903       ADD_MESSAGE("\"Trying to reason me with diplomancy won't work on me.\"");
4904     }
4905   }
4906 }
4907
4908
4909 ///////////////////////////////////////////////////////////////////////////////
4910 petrus::petrus () : LastHealed(0) {
4911   game::SetPetrus(this);
4912 }
4913
4914
4915 petrus::~petrus () {
4916   game::SetPetrus(0);
4917 }
4918
4919
4920 void petrus::FinalProcessForBone () {
4921   humanoid::FinalProcessForBone();
4922   LastHealed = 0;
4923 }
4924
4925
4926 truth petrus::HealFully (character *ToBeHealed) {
4927   truth DidSomething = false;
4928   for (int c = 0; c < ToBeHealed->GetBodyParts(); ++c) {
4929     if (!ToBeHealed->GetBodyPart(c)) {
4930       bodypart* BodyPart = 0;
4931       for (std::list<ulong>::const_iterator i = ToBeHealed->GetOriginalBodyPartID(c).begin(); i != ToBeHealed->GetOriginalBodyPartID(c).end(); ++i) {
4932         BodyPart = static_cast<bodypart *>(ToBeHealed->SearchForItem(*i));
4933         if (BodyPart) break;
4934       }
4935       if (!BodyPart || !BodyPart->CanRegenerate()) continue;
4936       BodyPart->RemoveFromSlot();
4937       ToBeHealed->AttachBodyPart(BodyPart);
4938       BodyPart->RestoreHP();
4939       DidSomething = true;
4940       if (ToBeHealed->IsPlayer())
4941         ADD_MESSAGE("%s attaches your old %s back and heals it.", CHAR_NAME(DEFINITE), BodyPart->GetBodyPartName().CStr());
4942       else if (CanBeSeenByPlayer())
4943         ADD_MESSAGE("%s attaches the old %s of %s back and heals it.", CHAR_NAME(DEFINITE), BodyPart->GetBodyPartName().CStr(), ToBeHealed->CHAR_DESCRIPTION(DEFINITE));
4944     }
4945   }
4946   if (ToBeHealed->IsInBadCondition()) {
4947     ToBeHealed->RestoreLivingHP();
4948     DidSomething = true;
4949     if (ToBeHealed->IsPlayer())
4950       ADD_MESSAGE("%s heals you fully.", CHAR_DESCRIPTION(DEFINITE));
4951     else if (CanBeSeenByPlayer())
4952       ADD_MESSAGE("%s heals %s fully.", CHAR_DESCRIPTION(DEFINITE), ToBeHealed->CHAR_DESCRIPTION(DEFINITE));
4953   }
4954   if (ToBeHealed->TemporaryStateIsActivated(POISONED)) {
4955     ToBeHealed->DeActivateTemporaryState(POISONED);
4956     DidSomething = true;
4957     if (ToBeHealed->IsPlayer())
4958       ADD_MESSAGE("%s removes the foul poison in your body.", CHAR_DESCRIPTION(DEFINITE));
4959     else if (CanBeSeenByPlayer())
4960       ADD_MESSAGE("%s removes the foul poison in %s's body.", CHAR_DESCRIPTION(DEFINITE), ToBeHealed->CHAR_DESCRIPTION(DEFINITE));
4961   }
4962   if (DidSomething) {
4963     LastHealed = game::GetTick();
4964     DexterityAction(10);
4965     return true;
4966   }
4967   return false;
4968 }
4969
4970
4971 void petrus::Save (outputfile &SaveFile) const {
4972   humanoid::Save(SaveFile);
4973   SaveFile << LastHealed;
4974 }
4975
4976
4977 void petrus::Load (inputfile &SaveFile) {
4978   humanoid::Load(SaveFile);
4979   SaveFile >> LastHealed;
4980   game::SetPetrus(this);
4981 }
4982
4983
4984 void petrus::GetAICommand () {
4985   int Enemies = 0;
4986   for (int c = 0; c < game::GetTeams(); ++c) {
4987     if (GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE) Enemies += game::GetTeam(c)->GetEnabledMembers();
4988   }
4989
4990   if (Enemies && !RAND_N(250 / Min(Enemies, 50))) {
4991     if (CanBeSeenByPlayer()) ADD_MESSAGE("%s shouts a magnificent prayer to Valpurus.", CHAR_NAME(DEFINITE));
4992     angel *Angel = angel::Spawn(VALPURUS);
4993     Angel->SetLifeExpectancy(10000, 0);
4994     v2 Where = GetLevel()->GetNearestFreeSquare(Angel, GetPos());
4995     if (Where == ERROR_V2) Where = GetLevel()->GetRandomSquare(Angel);
4996     Angel->SetTeam(GetTeam());
4997     Angel->PutTo(Where);
4998     if (Angel->CanBeSeenByPlayer()) ADD_MESSAGE("%s materializes.", Angel->CHAR_NAME(INDEFINITE));
4999     EditAP(-1000);
5000     return;
5001   }
5002
5003   if (HP << 1 < MaxHP && (GetPos() - v2(28, 20)).GetLengthSquare() > 400 && !RAND_N(10)) {
5004     if (CanBeSeenByPlayer()) ADD_MESSAGE("%s disappears.", CHAR_NAME(DEFINITE));
5005     GetLevel()->GetLSquare(28, 20)->KickAnyoneStandingHereAway();
5006     Move(v2(28, 20), true);
5007     EditAP(-1000);
5008     return;
5009   }
5010
5011   if (!LastHealed || game::GetTick()-LastHealed > 16384) {
5012     for (int d = 0; d < GetNeighbourSquares(); ++d) {
5013       square *Square = GetNeighbourSquare(d);
5014       if (Square) {
5015         character *Char = Square->GetCharacter();
5016         if (Char && GetRelation(Char) == FRIEND && HealFully(Char)) return;
5017       }
5018     }
5019   }
5020
5021   StandIdleAI();
5022 }
5023
5024
5025 void petrus::CreateCorpse (lsquare *Square) {
5026   if (game::GetStoryState() == 2) game::GetTeam(ATTNAM_TEAM)->SetRelation(game::GetTeam(PLAYER_TEAM), FRIEND);
5027   Square->AddItem(leftnutofpetrus::Spawn());
5028   SendToHell();
5029 }
5030
5031
5032 void petrus::BeTalkedTo () {
5033   if (GetRelation(PLAYER) == HOSTILE) {
5034     ADD_MESSAGE("Heretic! Dev/null is a place not worthy to receive thee!");
5035     return;
5036   }
5037
5038   if (PLAYER->HasGoldenEagleShirt()) {
5039     ADD_MESSAGE("Petrus smiles. \"Thou hast defeated Oree! Mayst thou be blessed by Valpurus for the rest of thy life! And thou possess the Shirt of the Golden Eagle, the symbol of Our status! Return it now, please.\"");
5040     if (game::TruthQuestion(CONST_S("Will you give the Shirt of the Golden Eagle to Petrus? [y/n]"), REQUIRES_ANSWER)) {
5041       game::TextScreen(CONST_S(
5042         "The Holy Shirt is returned to its old owner and you kneel down to receive your reward.\n"
5043         "Petrus taps your shoulder with the Justifier and raises you to nobility."));
5044       if (true || game::TruthQuestion(CONST_S("Do you want to become a duke? [y/n]"), REQUIRES_ANSWER)) {
5045         game::TextScreen(CONST_S(
5046           "Later you receive a small dukedom in the middle of tundra\n"
5047           "where you rule with justice till the end of your content life.\n\n"
5048           "You are victorious!"));
5049         game::GetCurrentArea()->SendNewDrawRequest();
5050         game::DrawEverything();
5051         PLAYER->ShowAdventureInfo();
5052         festring Msg = CONST_S("retrieved the Shirt of the Golden Eagle and was raised to nobility");
5053         AddScoreEntry(Msg, 4, false);
5054         game::End(Msg);
5055       } else {
5056         GetArea()->SendNewDrawRequest();
5057       }
5058       return;
5059     }
5060     ADD_MESSAGE("Petrus's face turns red. \"I see. Thy greed hath overcome thy wisdom. Then, we shall fight for the shiny shirt. May Valpurus bless him who is better.\"");
5061     /* And now we actually make his face change color ;-) */
5062     GetHead()->GetMainMaterial()->SetSkinColor(MakeRGB16(255, 75, 50));
5063     GetHead()->UpdatePictures();
5064     SendNewDrawRequest();
5065     game::AskForEscPress(CONST_S("You are attacked!"));
5066     PLAYER->GetTeam()->Hostility(GetTeam());
5067     game::SetStoryState(2);
5068     return;
5069   }
5070
5071   if (PLAYER->HasHeadOfElpuri()) {
5072     game::TextScreen(CONST_S(
5073       "You have slain Elpuri, and Petrus grants you the freedom you desire.\n"
5074       "You spend the next months in Attnam as an honored hero."));
5075     if (true || game::TruthQuestion(CONST_S("Do you want to sail beyond the sunset? [y/n]"), REQUIRES_ANSWER)) {
5076       game::TextScreen(CONST_S(
5077         "When the sea finally melts, you board the first ship,\n"
5078         "leaving your past forever behind.\n\n"
5079         "You are victorious!"));
5080       game::GetCurrentArea()->SendNewDrawRequest();
5081       game::DrawEverything();
5082       PLAYER->ShowAdventureInfo();
5083       festring Msg = CONST_S("defeated Elpuri and continued to further adventures");
5084       AddScoreEntry(Msg, 2, false);
5085       game::End(Msg);
5086     } else {
5087       GetArea()->SendNewDrawRequest();
5088     }
5089     return;
5090   }
5091
5092   if (!game::GetStoryState()) {
5093     if (PLAYER->RemoveEncryptedScroll()) {
5094       game::TextScreen(CONST_S(
5095         "You kneel down and bow before the high priest and hand him the encrypted scroll.\n"
5096         "Petrus raises his arm, the scroll glows yellow, and lo! The letters are clear and\n"
5097         "readable. Petrus asks you to voice them aloud. The first two thousand words praise\n"
5098         "Valpurus the Creator and all His manifestations and are followed by a canticle of\n"
5099         "Saint Petrus the Lion-Hearted lasting roughly three thousand words. Finally there\n"
5100         "are some sentences actually concerning your mission:\n\n"
5101         "\"Alas, I fear dirty tongues have spread lies to my Lord's ears. I assure all tales\n"
5102         "of treasures here in New Attnam are but mythic legends. There is nothing of value here.\n"
5103         "The taxes are already an unbearable burden and I can't possibly pay more. However I do\n"
5104         "not question the wisdom of the government's decisions. I will contribute what I can:\n"
5105         "the ostriches will deliver an extra 10000 bananas to the capital and additionally the\n"
5106         "slave that brought the message will henceforth be at Your disposal. I am certain this\n"
5107         "satisfies the crown's needs.\"\n\n"
5108         "\"Yours sincerely,\n"
5109         "Richel Decos, the viceroy of New Attnam\""));
5110       game::TextScreen(CONST_S(
5111         "You almost expected the last bit. Petrus seems to be deep in his thoughts and you\n"
5112         "wonder what shape your destiny is taking in his mind. Suddenly he seems to return\n"
5113         "to this reality and talks to you.\n\n"
5114         "\"Oh, thou art still here. We were just discussing telepathically with Sir Galladon.\n"
5115         "We started doubting Decos's alleged poverty a while back when he bought a couple of\n"
5116         "medium-sized castles nearby. Thy brethren from New Attnam have also told Us about\n"
5117         "vast riches seized from them. Our law says all such stolen valuables belong to\n"
5118         "the Cathedral's treasury, so this is a severe claim. However, proof is needed,\n"
5119         "and even if such was provided, We couldn't send soldiers over the snow fields\n"
5120         "ere spring.\""));
5121       if (game::GetLiberator()) {
5122         //TODO: do something?
5123         game::TextScreen(CONST_S(
5124           "\"Thy brethren from New Attnam have also told Us that Decos dies while sleeping.\n"
5125           "While We are sad to hear this, We hope that We shall not be forced to send our\n"
5126           "soldiers to New Attnam. We are sure that Our people there will work even better now.\""));
5127       }
5128       game::TextScreen(CONST_S(
5129         "\"However, since thou now servest Us, We ought to find thee something to do. Sir\n"
5130         "Galladon hath told Us his agents witnessed thou leaving the dreaded underwater tunnel.\n"
5131         "This means thou most likely hast defeated genetrix vesana and art a talented warrior.\n"
5132         "We happen to have a task perfect for such a person. An evil dark frog named Elpuri who\n"
5133         "hates Valpurus and Attnam more than anything hath taken control over an abandoned mine\n"
5134         "nearby. It is pestering our fine city in many ways and reconnaissance has reported an\n"
5135         "army of monsters gathering in the cave. Our guards are not trained to fight underground\n"
5136         "and We dare not send them. To make things worse, someone hath recently stolen Us the\n"
5137         "greatest armor in existence - the Shirt of the Golden Eagle. Elpuri cannot wear\n"
5138         "it but he who can is now nearly immortal.\"\n\n"
5139         "\"We have marked the location of the gloomy cave on thy world map. We want you to dive\n"
5140         "into it and slay the vile frog. Bring Us its head and We reward thee with freedom.\n"
5141         "Shouldst thou also find the Shirt, We'll knight thee. Good luck, and return when\n"
5142         "thou hast succeeded.\""));
5143       game::LoadWorldMap();
5144       v2 ElpuriCavePos = game::GetWorldMap()->GetEntryPos(0, ELPURI_CAVE);
5145       game::GetWorldMap()->GetWSquare(ElpuriCavePos)->ChangeOWTerrain(elpuricave::Spawn());
5146       game::GetWorldMap()->RevealEnvironment(ElpuriCavePos, 1);
5147       game::SaveWorldMap();
5148       GetArea()->SendNewDrawRequest();
5149       ADD_MESSAGE("\"And by the way, visit the librarian. He might have advice for thee.\"");
5150       game::SetStoryState(1);
5151     } else {
5152       ADD_MESSAGE("\"Yes, citizen? We are quite busy now, thou shalt not disturb Us without proper cause.\"");
5153     }
5154     return;
5155   }
5156   /* StoryState == 1 */
5157   ADD_MESSAGE("Petrus says: \"Bring me the head of Elpuri and we'll talk.\"");
5158 }
5159
5160
5161 truth petrus::MoveTowardsHomePos () {
5162   if (GetPos() != v2(28, 20)) {
5163     if (CanBeSeenByPlayer()) ADD_MESSAGE("%s disappears.", CHAR_NAME(DEFINITE));
5164     GetLevel()->GetLSquare(28, 20)->KickAnyoneStandingHereAway();
5165     Move(v2(28, 20), true);
5166     if (CanBeSeenByPlayer()) ADD_MESSAGE("%s appears.", CHAR_NAME(DEFINITE));
5167     EditAP(-1000);
5168     return true;
5169   }
5170   return false;
5171 }
5172
5173
5174 ///////////////////////////////////////////////////////////////////////////////
5175 void raven::BeTalkedTo () {
5176   if (GetRelation(PLAYER) == HOSTILE) {
5177     ADD_MESSAGE("I bet you are with those filthy Attnamanese bastards!");
5178     return;
5179   }
5180   if (!game::GetRingOfThieves()) {
5181     if (PLAYER->RemoveRingOfThieves()) {
5182       game::TextScreen(CONST_S(
5183         "You hand over the Ring of Thieves, Raven's eyes glow in amazement.\n"
5184         "\"May Cleptia bless this mighty warrior, whom vanquished Vulcan-Loki!\n"
5185         "Retrieving the ring is no easy task, Vulcan is a powerful adversary.\n"
5186         "The importance of the Ring of Thieves is great. It is used to channel\n"
5187         "Cleptia's power to help Mondedr avoid it's enemies, including Petrus.\n"
5188         "Without it we would have been raided by every nation that hates us.\n"
5189         "Not a mere mortal like Vulcan-Loki could channel the ring's power for\n"
5190         "himself so he decided to contract a deal with Oree to assist him.\n"
5191         "To reward your efforts I will give you the artifact whip, Gleipnir.\"\n\n"
5192         "\"I pray to Cleptia that you will use it well..\"\n\n"""));
5193       game::GetGod(CLEPTIA)->AdjustRelation(500);
5194       game::GetGod(NEFAS)->AdjustRelation(50);
5195       game::GetGod(SCABIES)->AdjustRelation(50);
5196       game::GetGod(INFUSCOR)->AdjustRelation(50);
5197       game::GetGod(CRUENTUS)->AdjustRelation(50);
5198       game::GetGod(MORTIFER)->AdjustRelation(50);
5199       meleeweapon *Weapon = whipofthievery::Spawn();
5200       Weapon->InitMaterials(MAKE_MATERIAL(SPIDER_SILK), MAKE_MATERIAL(EBONY_WOOD), true);
5201       PLAYER->GetGiftStack()->AddItem(Weapon);
5202       GetArea()->SendNewDrawRequest();
5203       ADD_MESSAGE("A whip materializes near your feet.");
5204       game::SetRingOfThieves(1);
5205     } else {
5206       ADD_MESSAGE("\"Mondedr's most important artifact, the Ring of Thieves, has been stolen by Vulcan-Loki; residing at the deepest floor of the underground temple, he awaits Oree to receive it and reward him with incredible power.\"");
5207     }
5208   } else {
5209     /* StoryState == 100 */
5210     ADD_MESSAGE("\"I must thank you again, I hope you make good use of that whip.\"");
5211   }
5212 }
5213
5214
5215 ///////////////////////////////////////////////////////////////////////////////
5216 void mysteryman::BeTalkedTo () {
5217   if (GetRelation(PLAYER) == HOSTILE) {
5218     ADD_MESSAGE("This is why the government doesn't mess with me, fool!");
5219     return;
5220   }
5221   if (!game::GetMondedrPass()) {
5222     if (PLAYER->RemoveMondedrPass()) {
5223       game::TextScreen(CONST_S(
5224         "You hand over the mondedr pass,\n"
5225         "the man quickly snatches it and starts reading it right away.\n"
5226         "The man scans the text very quickly, his eyes run around a hundred laps per second.\n"
5227         "His eyes come to a halt.\n"
5228         "\"I have revealed the location of Mondedr.\" He hands you a map.\n"
5229         "\"It is a good thing I was born in this world, no? You owe me nothing, the \n"
5230         "the amount of information in the sheet of paper is what repays it.\"\n\n"""));
5231       game::LoadWorldMap();
5232       v2 MondedrPos = game::GetWorldMap()->GetEntryPos(0, MONDEDR);
5233       game::GetWorldMap()->GetWSquare(MondedrPos)->ChangeOWTerrain(mondedr::Spawn());
5234       game::GetWorldMap()->RevealEnvironment(MondedrPos, 1);
5235       game::SaveWorldMap();
5236       GetArea()->SendNewDrawRequest();
5237       ADD_MESSAGE("\"And by the way, the government always watches you.\"");
5238       game::SetMondedrPass(1);
5239     } else {
5240       ADD_MESSAGE("\"Shoo, come back if you have a sheet of paper they call 'Mondedr Pass'\"");
5241     }
5242   } else {
5243     /* StoryState == 100 */
5244     ADD_MESSAGE("The man says: \"I don't have anymore business with you, shoo.\"");
5245   }
5246 }
5247
5248
5249 ///////////////////////////////////////////////////////////////////////////////
5250 void imperialist::BeTalkedTo () {
5251   decosadshirt *Shirt = static_cast<decosadshirt *>(PLAYER->SearchForItem(this, &item::IsDecosAdShirt));
5252   if (Shirt) {
5253     ulong Reward = Shirt->GetEquippedTicks()/500;
5254     if (Reward) {
5255       ADD_MESSAGE("%s smiles. \"I see you have advertised our company diligently. Here's %ldgp as a token of my gratitude.\"", CHAR_NAME(DEFINITE), Reward);
5256       PLAYER->EditMoney(Reward);
5257       Shirt->SetEquippedTicks(0);
5258     } else if (!(RAND()%5)) {
5259       ADD_MESSAGE("\"Come back when you've worn the shirt for some time and I'll reward you generously!\"");
5260     }
5261     return;
5262   }
5263   static long Said;
5264   if (GetRelation(PLAYER) == HOSTILE)
5265     ProcessAndAddMessage(GetHostileReplies()[RandomizeReply(Said, GetHostileReplies().Size)]);
5266   else if (!game::PlayerIsSumoChampion())
5267     ProcessAndAddMessage(GetFriendlyReplies()[RandomizeReply(Said, GetFriendlyReplies().Size)]);
5268   else
5269     ProcessAndAddMessage(GetFriendlyReplies()[RandomizeReply(Said, GetFriendlyReplies().Size-1)]);
5270 }
5271
5272
5273 void imperialist::DisplayStethoscopeInfo (character *) const {
5274   ADD_MESSAGE("You hear coins clinking inside.");
5275 }
5276
5277
5278 void imperialist::CreateCorpse (lsquare *Square) {
5279   if (!game::GetLiberator()) {
5280     game::SetLiberator(1);
5281     ADD_MESSAGE("You liberate citizens of New Attnam!");
5282   }
5283   imperialistsysbase::CreateCorpse(Square);
5284 }
5285
5286
5287 ///////////////////////////////////////////////////////////////////////////////
5288 exiledpriest::exiledpriest () :
5289   exiledpriestsysbase(),
5290   mAtHome(false)
5291 {
5292 }
5293
5294
5295 exiledpriest::~exiledpriest () {
5296 }
5297
5298
5299 void exiledpriest::Save (outputfile &saveFile) const {
5300   priest::Save(saveFile);
5301   saveFile << mAtHome;
5302 }
5303
5304
5305 void exiledpriest::Load (inputfile &saveFile) {
5306   priest::Load(saveFile);
5307   saveFile >> mAtHome;
5308 }
5309
5310
5311 void exiledpriest::healBodyParts () {
5312   for (int c = 0; c < PLAYER->GetBodyParts(); ++c) {
5313     if (!PLAYER->GetBodyPart(c) && PLAYER->CanCreateBodyPart(c)) {
5314       truth HasOld = false;
5315       for (std::list<ulong>::const_iterator i = PLAYER->GetOriginalBodyPartID(c).begin(); i != PLAYER->GetOriginalBodyPartID(c).end(); ++i) {
5316         bodypart *OldBodyPart = static_cast<bodypart *>(PLAYER->SearchForItem(*i));
5317         if (OldBodyPart) {
5318           HasOld = true;
5319           if (!OldBodyPart->CanRegenerate())
5320             ADD_MESSAGE("\"Sorry, I cannot put back bodyparts made of %s, not even your severed %s.\"", OldBodyPart->GetMainMaterial()->GetName(false, false).CStr(), PLAYER->GetBodyPartName(c).CStr());
5321           else {
5322             ADD_MESSAGE("\"I will put your old %s back.\"", PLAYER->GetBodyPartName(c).CStr());
5323             if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
5324               OldBodyPart->SetHP(1);
5325               OldBodyPart->RemoveFromSlot();
5326               PLAYER->AttachBodyPart(OldBodyPart);
5327               healBodyParts(); //FIXME
5328               return;
5329             }
5330           }
5331         }
5332       }
5333       if (HasOld)
5334         ADD_MESSAGE("\"I could summon up a new %s.\"", PLAYER->GetBodyPartName(c).CStr());
5335       else
5336         ADD_MESSAGE("\"Since you don't seem to have your original %s with you, I could summon up a new one.\"", PLAYER->GetBodyPartName(c).CStr());
5337       if (game::TruthQuestion(CONST_S("Agreed? [y/N]"))) {
5338         PLAYER->CreateBodyPart(c);
5339         PLAYER->GetBodyPart(c)->SetHP(1);
5340         healBodyParts(); //FIXME
5341         return;
5342       }
5343     }
5344   }
5345 }
5346
5347
5348 void exiledpriest::healDeseases () {
5349   if (PLAYER->TemporaryStateIsActivated(POISONED)) {
5350     ADD_MESSAGE("\"You seem to be rather ill. I could give you a small dose of antidote.\"");
5351     if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
5352       ADD_MESSAGE("You feel better.");
5353       PLAYER->DeActivateTemporaryState(POISONED);
5354     }
5355   }
5356   if (PLAYER->TemporaryStateIsActivated(PARASITIZED)) {
5357     ADD_MESSAGE("\"You seem to have something inside you. I could give you a small dose of antidote.\"");
5358     if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
5359       ADD_MESSAGE("You feel better.");
5360       PLAYER->DeActivateTemporaryState(PARASITIZED);
5361     }
5362   }
5363   if (PLAYER->TemporaryStateIsActivated(LEPROSY)) {
5364     ADD_MESSAGE("\"You seem to have contracted the vile disease of leprosy. I could give you a small dose of medicince.\"");
5365     if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
5366       ADD_MESSAGE("You feel better.");
5367       PLAYER->DeActivateTemporaryState(LEPROSY);
5368     }
5369   }
5370   if (PLAYER->TemporaryStateIsActivated(LYCANTHROPY)) {
5371     ADD_MESSAGE("\"You seem to be turning into a werewolf quite frequently. Well, everyone has right to little secret habits, but I could pray %s to remove the canine blood from your veins, just so you don't scare our blessed youth.\"", GetMasterGod()->GetName());
5372     if (game::TruthQuestion(CONST_S("Do you agree? [y/N]"))) {
5373       ADD_MESSAGE("You feel better.");
5374       PLAYER->DeActivateTemporaryState(LYCANTHROPY);
5375     }
5376   }
5377 }
5378
5379
5380 void exiledpriest::healAll () {
5381   healBodyParts();
5382   healDeseases();
5383 }
5384
5385
5386 //FIXME: GENDER!
5387 void exiledpriest::BeTalkedTo () {
5388   if (GetRelation(PLAYER) != HOSTILE && game::GetLiberator()) {
5389     if (!mAtHome) {
5390       ADD_MESSAGE(
5391         "Priestess says: "
5392         "\"Let %s bless you! I can return to my temple now! "
5393         "Get this things and remember how kind %s is!\"",
5394         GetMasterGod()->GetName(), GetMasterGod()->GetName());
5395       //GetMasterGod()->GetObjectPronoun());
5396       mAtHome = true;
5397       //GetGiftStack()
5398       {
5399         potion *bottle = potion::Spawn(0, NO_MATERIALS);
5400         bottle->InitMaterials(MAKE_MATERIAL(GLASS), MAKE_MATERIAL(HEALING_LIQUID));
5401         PLAYER->GetStack()->AddItem(bottle);
5402         ADD_MESSAGE("Priestess gives %s to you.", bottle->CHAR_DESCRIPTION(DEFINITE));
5403       }
5404       {
5405         potion *bottle = potion::Spawn(0, NO_MATERIALS);
5406         bottle->InitMaterials(MAKE_MATERIAL(GLASS), MAKE_MATERIAL(ANTIDOTE_LIQUID));
5407         PLAYER->GetStack()->AddItem(bottle);
5408         ADD_MESSAGE("Priestess gives %s to you.", bottle->CHAR_DESCRIPTION(DEFINITE));
5409       }
5410       if (RAND_N(100) >= 90) {
5411         potion *bottle = potion::Spawn(0, NO_MATERIALS);
5412         bottle->InitMaterials(MAKE_MATERIAL(GLASS), MAKE_MATERIAL(VODKA));
5413         PLAYER->GetStack()->AddItem(bottle);
5414         ADD_MESSAGE("Priestess gives %s to you.", bottle->CHAR_DESCRIPTION(DEFINITE));
5415       }
5416     }
5417     ADD_MESSAGE("I will heal you for free.");
5418     healAll();
5419     return;
5420   }
5421   priest::BeTalkedTo();
5422 }
5423
5424
5425 truth exiledpriest::MoveTowardsHomePos () {
5426   if (!mAtHome) return false;
5427   v2 homePos(12, 10);
5428   if (GetPos() != homePos) {
5429     SetGoingTo(homePos);
5430     return MoveTowardsTarget(false) || (!GetPos().IsAdjacent(homePos) && MoveRandomly());
5431   }
5432   return false;
5433 }
5434
5435
5436 void exiledpriest::GetAICommand () {
5437   priest::GetAICommand();
5438 }