src/game/humans/humanoid_necromancer.cpp

   1 #ifdef HEADER_PHASE
   2 CHARACTER(necromancer, humanoid)
   3 {
   4  public:
   5   virtual truth TryToRaiseZombie();
   6   virtual void RaiseSkeleton();
   7  protected:
   8   virtual void GetAICommand();
   9   int GetSpellAPCost() const;
  10 };
  11
  12
  13 #else
  14
  15
  16
  17 void necromancer::GetAICommand()
  18 {
  19   SeekLeader(GetLeader());
  20
  21   if(FollowLeader(GetLeader()))
  22     return;
  23
  24   character* NearestEnemy = 0;
  25   sLong NearestEnemyDistance = 0x7FFFFFFF;
  26   v2 Pos = GetPos();
  27
  28   for(int c = 0; c < game::GetTeams(); ++c)
  29     if(GetTeam()->GetRelation(game::GetTeam(c)) == HOSTILE)
  30     {
  31       for(std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin(); i != game::GetTeam(c)->GetMember().end(); ++i)
  32   if((*i)->IsEnabled())
  33   {
  34     sLong ThisDistance = Max<sLong>(abs((*i)->GetPos().X - Pos.X), abs((*i)->GetPos().Y - Pos.Y));
  35
  36     if((ThisDistance < NearestEnemyDistance || (ThisDistance == NearestEnemyDistance && !(RAND() % 3))) && (*i)->CanBeSeenBy(this))
  37     {
  38       NearestEnemy = *i;
  39       NearestEnemyDistance = ThisDistance;
  40     }
  41   }
  42     }
  43
  44   if(NearestEnemy && NearestEnemy->GetPos().IsAdjacent(Pos))
  45   {
  46     if(GetConfig() == MASTER_NECROMANCER && !(RAND() & 3))
  47     {
  48       if(CanBeSeenByPlayer())
  49   ADD_MESSAGE("%s invokes a spell and disappears.", CHAR_NAME(DEFINITE));
  50
  51       TeleportRandomly(true);
  52       EditAP(-GetSpellAPCost());
  53       return;
  54     }
  55     else if(NearestEnemy->IsSmall()
  56       && GetAttribute(WISDOM) < NearestEnemy->GetAttackWisdomLimit()
  57       && !(RAND() & 3)
  58       && Hit(NearestEnemy, NearestEnemy->GetPos(), game::GetDirectionForVector(NearestEnemy->GetPos() - GetPos())))
  59       return;
  60   }
  61
  62   if(!NearestEnemy)
  63   {
  64     if(!RAND_N(3) && TryToRaiseZombie())
  65       return;
  66   }
  67   else
  68   {
  69     if(!RAND_N(6) && TryToRaiseZombie())
  70       return;
  71   }
  72
  73   if(NearestEnemy && !(RAND() % (GetConfig() == APPRENTICE_NECROMANCER ? 3 : 2)))
  74   {
  75     lsquare* Square = NearestEnemy->GetLSquareUnder();
  76     EditAP(-GetSpellAPCost());
  77
  78     if(CanBeSeenByPlayer())
  79       ADD_MESSAGE("%s invokes a spell!", CHAR_NAME(DEFINITE));
  80
  81     truth Interrupt = false;
  82
  83     switch(GetConfig())
  84     {
  85      case APPRENTICE_NECROMANCER:
  86       RaiseSkeleton();
  87       break;
  88      case MASTER_NECROMANCER:
  89       if(RAND() % 5)
  90   RaiseSkeleton();
  91       else
  92       {
  93   Square->DrawLightning(v2(8, 8), WHITE, YOURSELF);
  94
  95   beamdata Beam
  96     (
  97       this,
  98       CONST_S("killed by the spells of ") + GetName(INDEFINITE),
  99       YOURSELF,
 100       0
 101     );
 102
 103   Square->Lightning(Beam);
 104   Interrupt = true;
 105       }
 106
 107       break;
 108     }
 109
 110     if(Interrupt) {
 111       if(CanBeSeenByPlayer())
 112         NearestEnemy->DeActivateVoluntaryAction(CONST_S("The spell of ") + GetName(DEFINITE) + CONST_S(" interrupts you."));
 113       else
 114         NearestEnemy->DeActivateVoluntaryAction(CONST_S("The spell interrupts you."));
 115     }
 116     return;
 117   }
 118
 119   if(NearestEnemy && (NearestEnemyDistance < 10 || StateIsActivated(PANIC)) && RAND() & 3)
 120   {
 121     SetGoingTo((Pos << 1) - NearestEnemy->GetPos());
 122
 123     if(MoveTowardsTarget(true))
 124       return;
 125   }
 126
 127   if(CheckForDoors())
 128     return;
 129
 130   if(CheckSadism())
 131     return;
 132
 133   if(MoveRandomly())
 134     return;
 135
 136   EditAP(-1000);
 137 }
 138
 139
 140
 141 truth necromancer::TryToRaiseZombie()
 142 {
 143   for(int c = 0; c < game::GetTeams(); ++c)
 144     for(std::list<character*>::const_iterator i = game::GetTeam(c)->GetMember().begin();
 145   i != game::GetTeam(c)->GetMember().end(); ++i)
 146       if(!(*i)->IsEnabled() && (*i)->GetMotherEntity()
 147    && (*i)->GetMotherEntity()->Exists()
 148    && (GetConfig() == MASTER_NECROMANCER
 149        || (*i)->GetMotherEntity()->GetSquareUnderEntity()->CanBeSeenBy(this)))
 150       {
 151   character* Zombie = (*i)->GetMotherEntity()->TryNecromancy(this);
 152
 153   if(Zombie)
 154   {
 155     if(Zombie->CanBeSeenByPlayer())
 156       ADD_MESSAGE("%s calls %s back to cursed undead life.", CHAR_DESCRIPTION(DEFINITE), Zombie->CHAR_NAME(INDEFINITE));
 157     else if(CanBeSeenByPlayer())
 158       ADD_MESSAGE("%s casts a spell, but you notice no effect.", CHAR_NAME(DEFINITE));
 159
 160     EditAP(-GetSpellAPCost());
 161     return true;
 162   }
 163       }
 164
 165   return false;
 166 }
 167
 168
 169
 170 void necromancer::RaiseSkeleton()
 171 {
 172   /* Gum solution */
 173
 174   const database* WarLordDataBase;
 175   databasecreator<character>::FindDataBase(WarLordDataBase, &skeleton::ProtoType, WAR_LORD);
 176   skeleton* Skeleton;
 177
 178   if(GetConfig() == MASTER_NECROMANCER && !(WarLordDataBase->Flags & HAS_BEEN_GENERATED) && !(RAND() % 250))
 179   {
 180     Skeleton = skeleton::Spawn(WAR_LORD);
 181     Skeleton->SetTeam(GetTeam());
 182     Skeleton->PutNear(GetPos());
 183     Skeleton->SignalGeneration();
 184
 185     if(Skeleton->CanBeSeenByPlayer())
 186       ADD_MESSAGE("The whole area trembles terribly as %s emerges from the ground.", Skeleton->CHAR_NAME(DEFINITE));
 187     else if(CanBeSeenByPlayer())
 188       ADD_MESSAGE("%s casts a powerful spell which makes the whole area tremble.", CHAR_NAME(DEFINITE));
 189     else
 190       ADD_MESSAGE("You feel the presence of an ancient evil being awakened from its long slumber. You shiver.");
 191   }
 192   else
 193   {
 194     Skeleton = skeleton::Spawn(GetConfig() == APPRENTICE_NECROMANCER ? 0 : WARRIOR, NO_EQUIPMENT);
 195     Skeleton->SetTeam(GetTeam());
 196     Skeleton->PutNear(GetPos());
 197
 198     if(Skeleton->CanBeSeenByPlayer())
 199       ADD_MESSAGE("The ground shakes and %s emerges from it.", Skeleton->CHAR_NAME(INDEFINITE));
 200     else if(CanBeSeenByPlayer())
 201       ADD_MESSAGE("%s casts a spell, but you notice no effect.", CHAR_NAME(DEFINITE));
 202   }
 203
 204   Skeleton->SetGenerationDanger(GetGenerationDanger());
 205   EditAP(-GetSpellAPCost());
 206 }
 207
 208
 209
 210 int necromancer::GetSpellAPCost() const
 211 {
 212   switch(GetConfig())
 213   {
 214    case APPRENTICE_NECROMANCER: return 2000;
 215    case MASTER_NECROMANCER: return 1000;
 216   }
 217
 218   return 4000;
 219 }
 220 #endif