LCOV - code coverage report
Current view: top level - omega-rpg-0.90-pa9 - mon.c (source / functions) Hit Total Coverage
Test: lcov.info Lines: 173 820 21.1 %
Date: 2017-08-31 19:31:11 Functions: 17 36 47.2 %
Branches: 93 510 18.2 %

           Branch data     Line data    Source code
       1                 :            : /* omega copyright (c) 1987,1988,1989 by Laurence Raphael Brothers */
       2                 :            : /* mon.c */
       3                 :            : /* various functions to do with monsters */
       4                 :            : 
       5                 :            : #include "glob.h"
       6                 :            : 
       7                 :            : 
       8                 :            : 
       9                 :            : /*               Revised function                   */ 
      10                 :            : /* WDT: code contributed by David J. Robertson */
      11                 :            : /* consider one monster's action */
      12                 :      14013 : void m_pulse(pmt m)
      13                 :            : {
      14                 :      14013 :   int range = distance(m->x, m->y, Player.x,Player.y);
      15                 :      14013 :   int STRIKE=FALSE;
      16                 :            :   pol prev;
      17                 :            :  
      18         [ +  + ]:      14013 :   if (Time % 10 == 0) 
      19         [ -  + ]:       1257 :     if (m->hp < Monsters[m->id].hp)
      20                 :          0 :       m->hp++;
      21                 :            :   
      22 [ +  + ][ +  + ]:      14013 :   if ((! m_statusp(m,AWAKE)) && (range <= m->wakeup)) {
      23                 :         15 :     m_status_set(m,AWAKE);
      24                 :         15 :     resetgamestatus(FAST_MOVE);
      25                 :            :   }
      26                 :            :   
      27         [ +  + ]:      14013 :   if (m_statusp(m,AWAKE)) {
      28         [ -  + ]:      10917 :     if (m_statusp(m,WANDERING)) {
      29         [ #  # ]:          0 :       if (m_statusp(m,MOBILE)) m_random_move(m);
      30 [ #  # ][ #  # ]:          0 :       if (range <= m->sense && (m_statusp(m, HOSTILE) || 
                 [ #  # ]
      31                 :          0 :           m_statusp(m, NEEDY)))
      32                 :          0 :         m_status_reset(m,WANDERING);
      33                 :            :     }
      34                 :            :     else /* not wandering */ {
      35         [ +  + ]:      10917 :       if (m_statusp(m,HOSTILE))
      36 [ +  + ][ +  - ]:        298 :         if ((range > 2) && (range < m->sense) && (random_range(2) == 1))
                 [ +  + ]
      37 [ +  + ][ +  - ]:        142 :           if (los_p(m->x,m->y,Player.x,Player.y) &&
      38                 :         27 :               (Player.status[INVISIBLE] == 0)) {
      39                 :         27 :             STRIKE=TRUE;
      40                 :         27 :             monster_strike(m);
      41                 :            :           }
      42                 :            :       
      43 [ +  + ][ +  + ]:      10917 :       if ((m_statusp(m,HOSTILE) || m_statusp(m,NEEDY))
      44 [ +  + ][ +  - ]:        310 :           && (range > 1) && m_statusp(m,MOBILE) &&
                 [ +  + ]
      45         [ +  + ]:         27 :           (!STRIKE || (random_range(2) == 1)))
      46                 :        289 :         monster_move(m);
      47                 :            :       else
      48 [ +  + ][ +  + ]:      10628 :         if (m_statusp(m,HOSTILE) && (range ==1)) {
      49                 :          8 :           resetgamestatus(FAST_MOVE);
      50                 :          8 :           tacmonster(m);
      51                 :            :         }
      52                 :            :     }
      53                 :            :     /* if monster is greedy, picks up treasure it finds */
      54 [ +  + ][ +  - ]:      10917 :     if (m_statusp(m,GREEDY) && (m->hp >0) )
      55         [ -  + ]:         81 :       while (Level->site[m->x][m->y].things != NULL) {
      56                 :          0 :         m_pickup(m,Level->site[m->x][m->y].things->thing);
      57                 :          0 :         prev = Level->site[m->x][m->y].things;
      58                 :          0 :         Level->site[m->x][m->y].things =
      59                 :          0 :           Level->site[m->x][m->y].things->next;
      60                 :          0 :         free((char *) prev);
      61                 :            :       }
      62                 :            :     /* prevents monsters from casting spells from other side of dungeon */
      63         [ +  + ]:      13651 :     if ((range < max(5,m->level)) && (m->hp > 0) &&
           [ +  -  +  + ]
      64                 :       2734 :         (random_range(2) == 1))
      65                 :       1394 :       monster_special(m);
      66                 :            :   }
      67                 :      14013 : }
      68                 :            : 
      69                 :            : /* actually make a move */
      70                 :         90 : void movemonster(pmt m, int newx, int newy)
      71                 :            : {
      72         [ -  + ]:         90 :   if (Level->site[newx][newy].creature != NULL)
      73                 :          0 :     return;
      74         [ +  - ]:         90 :   if (Level->site[m->x][m->y].creature == m)
      75                 :         90 :     Level->site[m->x][m->y].creature = NULL;
      76                 :         90 :   m->x = newx;
      77                 :         90 :   m->y = newy;
      78                 :         90 :   Level->site[m->x][m->y].creature = m;
      79                 :         90 :   m_movefunction(m,Level->site[m->x][m->y].p_locf);
      80                 :            : }
      81                 :            : 
      82                 :            : 
      83                 :            : /* give object o to monster m */
      84                 :         66 : void m_pickup(pmt m, pob o)
      85                 :            : {
      86                 :         66 :   pol tmp = ((pol) checkmalloc(sizeof(oltype)));
      87                 :         66 :   tmp->thing = o;
      88                 :         66 :   tmp->next = m->possessions;
      89                 :         66 :   m->possessions = tmp;
      90                 :         66 : }
      91                 :            : 
      92                 :          2 : void m_dropstuff(pmt m)
      93                 :            : {
      94                 :          2 :   pol tmp = m->possessions;
      95         [ +  - ]:          2 :   if (tmp != NULL) {
      96         [ -  + ]:          2 :     while (tmp->next != NULL)
      97                 :          0 :       tmp = tmp->next;
      98                 :            : 
      99                 :          2 :     tmp->next = Level->site[m->x][m->y].things;
     100                 :          2 :     Level->site[m->x][m->y].things = m->possessions;
     101                 :          2 :     m->possessions = NULL;
     102                 :            :   }
     103                 :          2 : }
     104                 :            : 
     105                 :            : 
     106                 :          5 : void m_damage(pmt m, int dmg, int dtype)
     107                 :            : {
     108                 :          5 :   m_status_set(m,AWAKE);
     109                 :          5 :   m_status_set(m,HOSTILE);
     110         [ -  + ]:          5 :   if (m_immunityp(m,dtype)) {
     111         [ #  # ]:          0 :     if (los_p(Player.x,Player.y,m->x,m->y)) { 
     112         [ #  # ]:          0 :       if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     113                 :            :       else {
     114                 :          0 :         strcpy(Str1,"The ");
     115                 :          0 :         strcat(Str1,m->monstring);
     116                 :            :       }
     117                 :          0 :       strcat(Str1," ignores the attack!");
     118                 :          0 :       mprint(Str1);
     119                 :            :     }
     120                 :            :   }
     121         [ +  + ]:          5 :   else if ((m->hp -= dmg) < 1) m_death(m);
     122                 :          5 : }
     123                 :            : 
     124                 :            : 
     125                 :            : /* remove a monster -- death without crediting player */
     126                 :          4 : void m_remove(pmt m)
     127                 :            : {
     128                 :          4 :   Level->site[m->x][m->y].creature = NULL;
     129                 :          4 :   erase_monster(m);
     130                 :          4 :   m->hp = -1; /* signals "death" -- no credit to player, though */
     131                 :            :   /* DAG -- monster structure will be "cleaned up" in time_clock() which */
     132                 :            :   /*     walks through all the monsters each "tick".  (Or on level free.) */
     133                 :          4 : }
     134                 :            : 
     135                 :          2 : void m_death(pmt m)
     136                 :            : {
     137                 :            :   pob corpse;
     138                 :            :   pml ml;
     139                 :          2 :   int x,y,found=FALSE;
     140                 :          2 :   pol curr, prev = NULL;
     141                 :            : 
     142                 :          2 :   m->hp = -1;
     143         [ +  - ]:          2 :   if (los_p(Player.x,Player.y,m->x,m->y)) {
     144                 :          2 :     gain_experience(m->xpv);
     145                 :          2 :     calc_melee();
     146         [ -  + ]:          2 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     147                 :            :     else {
     148                 :          2 :       strcpy(Str1,"The ");
     149                 :          2 :       strcat(Str1,m->monstring);
     150                 :            :     }
     151                 :          2 :     strcat(Str1," is dead! ");
     152                 :          2 :     mprint(Str1);
     153                 :            :   }
     154                 :          2 :   m_dropstuff(m);
     155         [ -  + ]:          2 :   if (m->id == DEATH) { /* Death */
     156                 :          0 :     mprint("Death lies sprawled out on the ground......");
     157                 :          0 :     mprint("Death laughs ironically and gets back to its feet.");
     158                 :          0 :     mprint("It gestures and another scythe appears in its hands.");
     159   [ #  #  #  #  :          0 :     switch(random_range(10)) {
          #  #  #  #  #  
                   #  # ]
     160                 :            :     case 0:
     161                 :          0 :       mprint("Death performs a little bow and goes back on guard."); 
     162                 :          0 :       break;
     163                 :            :     case 1:
     164                 :          0 :       mprint("'A hit! A palpable hit!' Death goes back on the attack."); 
     165                 :          0 :       break;
     166                 :            :     case 2:
     167                 :          0 :       mprint("'Ah, if only it could be so simple!' snickers Death.");
     168                 :          0 :       break;
     169                 :            :     case 3:
     170                 :          0 :       mprint("'You think Death can be slain?  What a jest!' says Death.");
     171                 :          0 :       break;
     172                 :            :     case 4:
     173                 :          0 :       mprint("'Your point is well taken.' says Death, attacking again.");
     174                 :          0 :       break;
     175                 :            :     case 5:
     176                 :          0 :       mprint("'Oh, come now, stop delaying the inevitable.' says Death.");
     177                 :          0 :       break;
     178                 :            :     case 6:
     179                 :          0 :       mprint("'Your destiny ends here with me.' says Death, scythe raised.");
     180                 :          0 :       break;
     181                 :            :     case 7:
     182                 :          0 :       mprint("'I almost felt that.' says Death, smiling.");
     183                 :          0 :       break;
     184                 :            :     case 8:
     185                 :          0 :       mprint("'Timeo Mortis?' asks Death quizzically, 'Not me!'");
     186                 :          0 :       break;
     187                 :            :     case 9:
     188                 :          0 :       mprint("Death sighs theatrically. 'They never learn.'");
     189                 :          0 :       break;
     190                 :            :     }
     191                 :          0 :     strengthen_death(m);
     192                 :            :   }
     193                 :            :   else {
     194                 :          2 :     Level->site[m->x][m->y].creature = NULL;
     195         [ -  + ]:          2 :     if (m == Arena_Monster)
     196                 :          0 :       Arena_Victory = TRUE;     /* won this round of arena combat */
     197 [ +  + ][ -  + ]:          2 :     if (random_range(2) || (m->uniqueness != COMMON)) {
     198                 :          1 :       corpse=((pob) checkmalloc(sizeof(objtype)));
     199                 :          1 :       make_corpse(corpse,m);
     200                 :          1 :       drop_at(m->x,m->y,corpse);
     201                 :            :     }
     202                 :          2 :     plotspot(m->x,m->y,FALSE);
     203   [ -  -  -  -  :          2 :     switch(m->id) {
          -  -  -  -  -  
                      + ]
     204                 :            :     case HISCORE_NPC:
     205   [ #  #  #  #  :          0 :       switch(m->aux2) {
          #  #  #  #  #  
             #  #  #  # ]
     206                 :            :       case 0:
     207                 :          0 :         mprint("You hear a faroff dirge. You feel a sense of triumph.");
     208                 :          0 :         break;
     209                 :            :       case 1:case 2: case 3:case 4:case 5:case 6:
     210                 :          0 :         mprint("You hear a faroff sound like angels crying....");
     211                 :          0 :         strcpy(Priest[m->aux2],nameprint());
     212                 :          0 :         Priestbehavior[m->aux2] = 2933;
     213                 :          0 :         break;
     214                 :            :       case 7:
     215                 :          0 :       mprint("A furtive figure dashes out of the shadows, takes a look at");
     216                 :          0 :         mprint("the corpse, and runs away!");
     217                 :          0 :         strcpy(Shadowlord,nameprint());
     218                 :          0 :         Shadowlordbehavior = 2912;
     219                 :          0 :         break;
     220                 :            :       case 8:
     221                 :          0 :         mprint("An aide-de-camp approaches, removes the corpse's insignia,");
     222                 :          0 :         mprint("and departs.");
     223                 :          0 :         strcpy(Commandant,nameprint());
     224                 :          0 :         Commandantbehavior = 2912;
     225                 :          0 :         break;
     226                 :            :       case 9:
     227                 :          0 :         mprint("An odd glow surrounds the corpse, and slowly fades.");
     228                 :          0 :         strcpy(Archmage,nameprint());
     229                 :          0 :         Archmagebehavior = 2933;
     230                 :          0 :         break;
     231                 :            :       case 10:
     232                 :          0 :         mprint("A demon materializes, takes a quick look at the corpse,");
     233                 :          0 :         mprint("and teleports away with a faint popping noise.");
     234                 :          0 :         strcpy(Prime,nameprint());
     235                 :          0 :         Primebehavior = 2932;
     236                 :          0 :         break;
     237                 :            :       case 11:
     238                 :          0 :         mprint("A sports columnist rushes forward and takes a quick photo");
     239                 :          0 :         mprint("of the corpse and rushes off muttering about a deadline.");
     240                 :          0 :         strcpy(Champion,nameprint());
     241                 :          0 :         Championbehavior = 2913;
     242                 :          0 :         break;
     243                 :            :       case 12:
     244                 :          0 :         mprint("You hear a fanfare in the distance, and feel dismayed.");
     245                 :          0 :         strcpy(Duke,nameprint());
     246                 :          0 :         Dukebehavior = 2911;
     247                 :          0 :         break;
     248                 :            :       case 13:
     249         [ #  # ]:          0 :         if (Player.alignment > 10) mprint("You feel smug.");
     250         [ #  # ]:          0 :         else if (Player.alignment < 10) mprint("You feel ashamed.");
     251                 :          0 :         strcpy(Chaoslord,nameprint());
     252                 :          0 :         Chaoslordbehavior = 2912;
     253                 :          0 :         break;
     254                 :            :       case 14:
     255         [ #  # ]:          0 :         if (Player.alignment < 10) mprint("You feel smug.");
     256         [ #  # ]:          0 :         else if (Player.alignment > 10) mprint("You feel ashamed.");
     257                 :          0 :         strcpy(Lawlord,nameprint());
     258                 :          0 :         Lawlordbehavior = 2911;
     259                 :          0 :         break;
     260                 :            :       case 15: 
     261                 :            :         /* just a tad complicated. Promote a new justiciar if any
     262                 :            :            guards are left in the city, otherwise Destroy the Order! */
     263                 :          0 :         Player.alignment -= 100;
     264         [ #  # ]:          0 :         if (! gamestatusp(DESTROYED_ORDER)) {
     265                 :          0 :           curr = Level->site[m->x][m->y].things;
     266 [ #  # ][ #  # ]:          0 :           while (curr && curr->thing->id != OB_JUSTICIAR_BADGE) {
     267                 :          0 :             prev = curr;
     268                 :          0 :             curr = curr->next;
     269                 :            :           }
     270                 :          0 :           strcpy(Justiciar,nameprint());
     271                 :          0 :           Justiciarbehavior = 2911;
     272                 :          0 :           mprint("In the distance you hear a trumpet. A Servant of Law");
     273                 :            :           /* promote one of the city guards to be justiciar */
     274                 :          0 :           ml = City->mlist;
     275 [ #  # ][ #  # ]:          0 :           while ((! found) && (ml != NULL)) {
     276 [ #  # ][ #  # ]:          0 :             found = ((ml->m->id == GUARD) && (ml->m->hp > 0));
     277         [ #  # ]:          0 :             if (! found) ml=ml->next;
     278                 :            :           }
     279         [ #  # ]:          0 :           if (ml != NULL) {
     280         [ #  # ]:          0 :             if (curr) {
     281                 :          0 :               mprint("materializes, sheds a tear, picks up the badge, and leaves.");
     282                 :          0 :               m_pickup(ml->m, curr->thing);
     283         [ #  # ]:          0 :               if (prev)
     284                 :          0 :                 prev->next = curr->next;
     285                 :            :               else
     286                 :          0 :                 Level->site[m->x][m->y].things = curr->next;
     287                 :          0 :               free(curr);
     288                 :            :             }
     289                 :            :             else
     290                 :          0 :               mprint("materializes, sheds a tear, and leaves.");
     291                 :          0 :             mprint("A new justiciar has been promoted!");
     292                 :          0 :             x = ml->m->x; y = ml->m->y;
     293                 :          0 :             make_hiscore_npc(ml->m,15);
     294                 :          0 :             ml->m->x = x;
     295                 :          0 :             ml->m->y = y;
     296                 :          0 :             ml->m->click = (Tick + 1) % 60;
     297                 :          0 :             m_status_reset(ml->m,AWAKE);
     298                 :          0 :             m_status_reset(ml->m,HOSTILE);
     299                 :            :           }
     300                 :            :           else {
     301                 :          0 :             mprint("materializes, sheds a tear, and leaves.");
     302                 :          0 :             morewait();
     303                 :            :           }
     304                 :          0 :           alert_guards(); 
     305                 :            :           /* will cause order to be destroyed if no guards or justiciar*/
     306                 :            :         }
     307                 :            :         else {
     308                 :          0 :           mprint("A Servant of Chaos materializes, grabs the corpse,");
     309                 :          0 :           mprint("snickers a bit, and vanishes.");
     310                 :            :         }
     311                 :          0 :         break;
     312                 :            :       case 16:
     313                 :            : #ifdef TRADEMARK_VIOLATION /* paraphrase of harlan ellison... ? PGM */
     314                 :          0 :         mprint("It doesn't rain this day, anywhere in the known universe.");
     315                 :            : #else
     316                 :            :         mprint("The universal equilibrium slides down a notch.");
     317                 :            : #endif
     318                 :          0 :         strcpy(Grandmaster,nameprint());
     319                 :          0 :         Grandmasterbehavior = 2933;
     320                 :          0 :         break;
     321                 :            :       }
     322                 :          0 :       save_hiscore_npc(m->aux2);
     323                 :          0 :       break;
     324                 :            :     case GUARD: /* guard */
     325                 :          0 :       Player.alignment -= 10;
     326 [ #  # ][ #  # ]:          0 :       if ((Current_Environment == E_CITY) || 
     327                 :          0 :           (Current_Environment == E_VILLAGE))
     328                 :          0 :         alert_guards();
     329                 :          0 :       break;
     330                 :            :     case GOBLIN_KING: 
     331         [ #  # ]:          0 :       if (! gamestatusp(ATTACKED_ORACLE)) {
     332                 :          0 :         mprint("You seem to hear a woman's voice from far off:");
     333                 :          0 :         mprint("'Well done! Come to me now....'");
     334                 :            :       }
     335                 :          0 :       setgamestatus(COMPLETED_CAVES); 
     336                 :          0 :       break; /* gob king */
     337                 :            :     case GREAT_WYRM: 
     338         [ #  # ]:          0 :       if (! gamestatusp(ATTACKED_ORACLE)) {
     339                 :          0 :         mprint("A female voice sounds from just behind your ear:");
     340                 :          0 :         mprint("'Well fought! I have some new advice for you....'");
     341                 :            :       }
     342                 :          0 :       setgamestatus(COMPLETED_SEWERS); 
     343                 :          0 :       break; /*grt worm */
     344                 :            :     case EATER:
     345                 :          0 :       setgamestatus(KILLED_EATER);
     346                 :          0 :       break;
     347                 :            :     case LAWBRINGER:
     348                 :          0 :       setgamestatus(KILLED_LAWBRINGER);
     349                 :          0 :       break;
     350                 :            :     case DRAGON_LORD:
     351                 :          0 :       setgamestatus(KILLED_DRAGONLORD);
     352                 :          0 :       break;
     353                 :            :     case DEMON_EMP:
     354                 :          0 :       setgamestatus(COMPLETED_VOLCANO);
     355         [ #  # ]:          0 :       if (! gamestatusp(ATTACKED_ORACLE)) {
     356                 :          0 :         mprint("You feel a soft touch on your shoulder...");
     357                 :          0 :         mprint("You turn around but there is no one there!");
     358                 :          0 :         mprint("You turn back and see a note: 'See me soon.'");
     359                 :          0 :         mprint("The note vanishes in a burst of blue fire!");
     360                 :            :       }
     361                 :          0 :       break;
     362                 :            :     case ELEM_MASTER: 
     363         [ #  # ]:          0 :       if (! gamestatusp(ATTACKED_ORACLE)) {
     364                 :          0 :         mprint("Words appear before you, traced in blue flame!");
     365                 :          0 :         mprint("'Return to the Prime Plane via the Circle of Sorcerors....'");
     366                 :            :       }
     367                 :          0 :       break; /* elem mast */
     368                 :            :     }
     369         [ -  + ]:          2 :     switch (m->specialf) {
     370                 :            :       case M_SP_COURT:
     371                 :            :       case M_SP_LAIR:
     372                 :          0 :         m_status_set(m,HOSTILE);
     373                 :          0 :         monster_action(m, m->specialf);
     374                 :            :     }
     375                 :            :   }
     376                 :          2 : }
     377                 :            : 
     378                 :        289 : void monster_move(pmt m)
     379                 :            : {
     380                 :        289 :   monster_action(m,m->movef);
     381                 :        289 : }
     382                 :            : 
     383                 :            : 
     384                 :         27 : void monster_strike(pmt m)
     385                 :            : {
     386         [ -  + ]:         27 :   if (player_on_sanctuary())
     387                 :          0 :     print1("The aegis of your deity protects you!");
     388                 :            :   else {
     389                 :            :     /* being attacked wakes you up/stops fast move */
     390                 :         27 :     resetgamestatus(FAST_MOVE);
     391                 :            : 
     392                 :            :     /* It's lawful to wait to be attacked */
     393         [ +  + ]:         27 :     if (m->attacked==0) Player.alignment++;
     394                 :         27 :     m->attacked++;
     395                 :         27 :     monster_action(m,m->strikef);
     396                 :            :   }
     397                 :         27 : }
     398                 :            : 
     399                 :       1394 : void monster_special(pmt m)
     400                 :            : {
     401                 :            :   /* since many special functions are really attacks, cancel them
     402                 :            :      all if on sanctuary */
     403         [ +  - ]:       1394 :   if (! player_on_sanctuary())
     404                 :            :   {
     405                 :            :     /* being attacked wakes you up/stops fast move */
     406                 :       1394 :     resetgamestatus(FAST_MOVE);
     407                 :            : 
     408                 :       1394 :     monster_action(m,m->specialf);
     409                 :            :   }
     410                 :       1394 : }  
     411                 :            : 
     412                 :            : 
     413                 :         23 : void monster_talk(pmt m)
     414                 :            : {
     415                 :         23 :   monster_action(m,m->talkf);
     416                 :         23 : }
     417                 :            : 
     418                 :       1733 : void monster_action(pmt m, int action)
     419                 :            : {
     420                 :            :   int meleef;
     421 [ +  + ][ -  + ]:       1733 :   if ((action >= M_MELEE_NORMAL) && (action < M_MOVE_NORMAL)) {
     422                 :            :     /* kluge allows multiple attack forms */
     423         [ #  # ]:          0 :     if (distance(m->x,m->y,Player.x,Player.y)<2) {
     424                 :          0 :       meleef = m->meleef;
     425                 :          0 :       m->meleef = action;
     426                 :          0 :       tacmonster(m);
     427                 :          0 :       m->meleef = meleef;
     428                 :            :     }
     429                 :            :   }
     430   [ +  +  -  +  :       1733 :   else switch(action) {
          -  -  +  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          +  -  -  -  -  
          -  -  +  -  +  
          -  -  +  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  +  -  -  -  
          +  +  +  -  +  
          +  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
             -  -  -  -  
                      - ]
     431                 :            : 
     432                 :        334 :   case M_NO_OP:m_no_op(m); break;
     433                 :            :     
     434                 :        215 :   case M_MOVE_NORMAL:m_normal_move(m); break;
     435                 :          0 :   case M_MOVE_FLUTTER:m_flutter_move(m); break;
     436                 :          9 :   case M_MOVE_FOLLOW:m_follow_move(m); break;
     437                 :          0 :   case M_MOVE_TELEPORT:m_teleport(m); break;
     438                 :          0 :   case M_MOVE_RANDOM:m_random_move(m); break;
     439                 :         65 :   case M_MOVE_SMART:m_smart_move(m); break;
     440                 :          0 :   case M_MOVE_SPIRIT:m_spirit_move(m); break;
     441                 :          0 :   case M_MOVE_CONFUSED:m_confused_move(m); break;
     442                 :          0 :   case M_MOVE_SCAREDY:m_scaredy_move(m); break;
     443                 :          0 :   case M_MOVE_ANIMAL:m_move_animal(m); break;
     444                 :          0 :   case M_MOVE_LEASH:m_move_leash(m); break;
     445                 :            : 
     446                 :          0 :   case M_STRIKE_MISSILE:m_nbolt(m); break;
     447                 :          0 :   case M_STRIKE_FBOLT:m_firebolt(m); break;
     448                 :          0 :   case M_STRIKE_LBALL:m_lball(m); break;
     449                 :          0 :   case M_STRIKE_FBALL:m_fireball(m); break;
     450                 :          0 :   case M_STRIKE_SNOWBALL:m_snowball(m); break;
     451                 :          0 :   case M_STRIKE_BLIND:m_blind_strike(m); break;
     452                 :          0 :   case M_STRIKE_SONIC:m_strike_sonic(m); break;
     453                 :            :     
     454                 :          7 :   case M_TALK_HORSE:m_talk_horse(m); break;
     455                 :          0 :   case M_TALK_THIEF:m_talk_thief(m);break;
     456                 :          0 :   case M_TALK_STUPID:m_talk_stupid(m); break;
     457                 :          0 :   case M_TALK_SILENT:m_talk_silent(m); break;
     458                 :          0 :   case M_TALK_HUNGRY:m_talk_hungry(m); break;
     459                 :          0 :   case M_TALK_GREEDY:m_talk_greedy(m); break;
     460                 :          0 :   case M_TALK_TITTER:m_talk_titter(m); break;
     461                 :          2 :   case M_TALK_MP:m_talk_mp(m); break;
     462                 :          0 :   case M_TALK_IM:m_talk_im(m); break;
     463                 :          6 :   case M_TALK_MAN:m_talk_man(m); break;
     464                 :          0 :   case M_TALK_ROBOT:m_talk_robot(m); break;
     465                 :          0 :   case M_TALK_EVIL:m_talk_evil(m); break;
     466                 :          5 :   case M_TALK_GUARD:m_talk_guard(m); break;
     467                 :          0 :   case M_TALK_MIMSY:m_talk_mimsy(m); break;
     468                 :          0 :   case M_TALK_SLITHY:m_talk_slithy(m); break;
     469                 :          0 :   case M_TALK_BURBLE:m_talk_burble(m); break;
     470                 :          0 :   case M_TALK_BEG:m_talk_beg(m); break;
     471                 :          0 :   case M_TALK_HINT:m_talk_hint(m); break;
     472                 :          0 :   case M_TALK_EF:m_talk_ef(m); break;
     473                 :          0 :   case M_TALK_GF:m_talk_gf(m); break;
     474                 :          0 :   case M_TALK_SEDUCTOR:m_talk_seductor(m); break;
     475                 :          0 :   case M_TALK_DEMONLOVER:m_talk_demonlover(m); break;
     476                 :          0 :   case M_TALK_NINJA:m_talk_ninja(m); break;
     477                 :          0 :   case M_TALK_ASSASSIN:m_talk_assassin(m); break;
     478                 :          0 :   case M_TALK_SERVANT: m_talk_servant(m); break;
     479                 :          0 :   case M_TALK_ANIMAL: m_talk_animal(m); break;
     480                 :          0 :   case M_TALK_SCREAM: m_talk_scream(m); break;
     481                 :          0 :   case M_TALK_PARROT: m_talk_parrot(m); break;
     482                 :          0 :   case M_TALK_HYENA: m_talk_hyena(m); break;
     483                 :          0 :   case M_TALK_DRUID: m_talk_druid(m); break;
     484                 :          0 :   case M_TALK_ARCHMAGE: m_talk_archmage(m); break;
     485                 :          3 :   case M_TALK_MERCHANT: m_talk_merchant(m); break;
     486                 :          0 :   case M_TALK_PRIME: m_talk_prime(m); break;
     487                 :          0 :   case M_TALK_MAHARAJA: m_talk_maharaja(m); break;
     488                 :            : 
     489                 :          0 :   case M_SP_BOG:m_sp_bogthing(m); break;
     490                 :         23 :   case M_SP_WERE:m_sp_were(m); break;
     491                 :       1042 :   case M_SP_WHISTLEBLOWER:m_sp_whistleblower(m); break;
     492                 :         13 :   case M_SP_MERCHANT:m_sp_merchant(m); break;
     493                 :          0 :   case M_SP_SURPRISE:m_sp_surprise(m); break;
     494                 :          4 :   case M_SP_MP:m_sp_mp(m); break;
     495                 :          5 :   case M_SP_THIEF:m_thief_f(m); break;
     496                 :          0 :   case M_SP_DEMONLOVER:m_sp_demonlover(m); break;
     497                 :          0 :   case M_SP_AGGRAVATE:m_aggravate(m); break;
     498                 :          0 :   case M_SP_POISON_CLOUD:m_sp_poison_cloud(m); break;
     499                 :          0 :   case M_SP_HUGE:m_huge_sounds(m); break;
     500                 :          0 :   case M_SP_SUMMON:m_summon(m); break;
     501                 :          0 :   case M_SP_ILLUSION:m_illusion(m); break;
     502                 :          0 :   case M_SP_ESCAPE:m_sp_escape(m); break;
     503                 :          0 :   case M_SP_FLUTTER:m_flutter_move(m); break;
     504                 :          0 :   case M_SP_EXPLODE:m_sp_explode(m); break;
     505                 :          0 :   case M_SP_DEMON:m_sp_demon(m); break;
     506                 :          0 :   case M_SP_ACID_CLOUD:m_sp_acid_cloud(m); break;
     507                 :          0 :   case M_SP_GHOST:m_sp_ghost(m); break;
     508                 :          0 :   case M_SP_SPELL:m_sp_spell(m); break;
     509                 :          0 :   case M_SP_SEDUCTOR:m_sp_seductor(m); break;
     510                 :          0 :   case M_SP_EATER:m_sp_eater(m); break;
     511                 :          0 :   case M_SP_DRAGONLORD:m_sp_dragonlord(m); break;
     512                 :          0 :   case M_SP_BLACKOUT:m_sp_blackout(m); break;
     513                 :          0 :   case M_SP_SWARM: m_sp_swarm(m); break;
     514                 :          0 :   case M_SP_ANGEL: m_sp_angel(m); break;
     515                 :          0 :   case M_SP_SERVANT: m_sp_servant(m); break;
     516                 :          0 :   case M_SP_AV: m_sp_av(m); break;
     517                 :          0 :   case M_SP_LW: m_sp_lw(m); break;
     518                 :          0 :   case M_SP_MB: m_sp_mb(m); break;
     519                 :          0 :   case M_SP_RAISE: m_sp_raise(m); break;
     520                 :          0 :   case M_SP_MIRROR: m_sp_mirror(m); break;
     521                 :          0 :   case M_SP_COURT: m_sp_court(m); break;
     522                 :          0 :   case M_SP_LAIR: m_sp_lair(m); break;
     523                 :          0 :   case M_SP_PRIME: m_sp_prime(m); break;
     524                 :            :   }
     525                 :       1733 : }
     526                 :            :   
     527                 :            : /* makes one of the highscore npcs */    
     528                 :          1 : void make_hiscore_npc(pmt npc, int npcid)
     529                 :            : {
     530                 :          1 :   int st = -1;
     531                 :            :   pob ob;
     532                 :          1 :   *npc = Monsters[HISCORE_NPC];
     533                 :          1 :   npc->aux2 = npcid;
     534                 :            :   /* each of the high score npcs can be created here */
     535   [ -  -  -  -  :          1 :   switch(npcid) {
          -  -  -  -  -  
             -  +  -  - ]
     536                 :            :   case 0:
     537                 :          0 :     strcpy(Str2,Hiscorer);
     538                 :          0 :     determine_npc_behavior(npc,Hilevel,Hibehavior);
     539                 :          0 :     break;
     540                 :            :   case 1: case 2: case 3: case 4: case 5: case 6:
     541                 :          0 :     strcpy(Str2,Priest[npcid]);
     542                 :          0 :     determine_npc_behavior(npc,Priestlevel[npcid],Priestbehavior[npcid]);
     543                 :          0 :     st = ARTIFACTID+13+npcid;   /* appropriate holy symbol... */
     544                 :          0 :     Objects[st].uniqueness = UNIQUE_MADE;
     545         [ #  # ]:          0 :     if (npcid == DRUID)
     546                 :          0 :       npc->talkf = M_TALK_DRUID;
     547         [ #  # ]:          0 :     if (Player.patron == npcid)
     548                 :          0 :       m_status_reset(npc, HOSTILE);
     549                 :          0 :     break;
     550                 :            :   case 7:
     551                 :          0 :     strcpy(Str2,Shadowlord);
     552                 :          0 :     determine_npc_behavior(npc,Shadowlordlevel,Shadowlordbehavior);
     553                 :          0 :     break;
     554                 :            :   case 8:
     555                 :          0 :     strcpy(Str2,Commandant);
     556                 :          0 :     determine_npc_behavior(npc,Commandantlevel,Commandantbehavior);
     557         [ #  # ]:          0 :     if (Player.rank[LEGION])
     558                 :          0 :       m_status_reset(npc, HOSTILE);
     559                 :          0 :     break;
     560                 :            :   case 9:
     561                 :          0 :     strcpy(Str2,Archmage);
     562                 :          0 :     determine_npc_behavior(npc,Archmagelevel,Archmagebehavior);
     563                 :          0 :     st = OB_KOLWYNIA; /* kolwynia */
     564                 :          0 :     npc->talkf = M_TALK_ARCHMAGE;
     565                 :          0 :     m_status_reset(npc, WANDERING);
     566                 :          0 :     m_status_reset(npc, HOSTILE);
     567                 :          0 :     break;
     568                 :            :   case 10:
     569                 :          0 :     strcpy(Str2,Prime);
     570                 :          0 :     determine_npc_behavior(npc,Primelevel,Primebehavior);
     571                 :          0 :     npc->talkf = M_TALK_PRIME;
     572                 :          0 :     npc->specialf = M_SP_PRIME;
     573         [ #  # ]:          0 :     if (Player.alignment < 0)
     574                 :          0 :       m_status_reset(npc, HOSTILE);
     575                 :          0 :     break;
     576                 :            :   case 11:
     577                 :          0 :     strcpy(Str2,Champion);
     578                 :          0 :     determine_npc_behavior(npc,Championlevel,Championbehavior);
     579         [ #  # ]:          0 :     if (Player.rank[ARENA])
     580                 :          0 :       m_status_reset(npc, HOSTILE);
     581                 :          0 :     break;
     582                 :            :   case 12:
     583                 :          0 :     strcpy(Str2,Duke);
     584                 :          0 :     determine_npc_behavior(npc,Dukelevel,Dukebehavior);
     585                 :          0 :     break;
     586                 :            :   case 13:
     587                 :          0 :     strcpy(Str2,Chaoslord);
     588                 :          0 :     determine_npc_behavior(npc,Chaoslordlevel,Chaoslordbehavior);
     589 [ #  # ][ #  # ]:          0 :     if (Player.alignment < 0 && random_range(2))
     590                 :          0 :       m_status_reset(npc, HOSTILE);
     591                 :          0 :     break;
     592                 :            :   case 14:
     593                 :          0 :     strcpy(Str2,Lawlord);
     594                 :          0 :     determine_npc_behavior(npc,Lawlordlevel,Lawlordbehavior);
     595         [ #  # ]:          0 :     if (Player.alignment > 0)
     596                 :          0 :       m_status_reset(npc, HOSTILE);
     597                 :          0 :     break;
     598                 :            :   case 15:
     599                 :          1 :     strcpy(Str2,Justiciar);
     600                 :          1 :     determine_npc_behavior(npc,Justiciarlevel,Justiciarbehavior);
     601                 :          1 :     st = OB_JUSTICIAR_BADGE;    /* badge */
     602                 :          1 :     npc->talkf = M_TALK_GUARD;
     603                 :          1 :     npc->specialf = M_SP_WHISTLEBLOWER;
     604                 :          1 :     m_status_reset(npc, WANDERING);
     605                 :          1 :     m_status_reset(npc, HOSTILE);
     606                 :          1 :     break;
     607                 :            :   case 16:   /* PGM TODO */
     608                 :          0 :     strcpy(Str2,Grandmaster);
     609                 :          0 :     determine_npc_behavior(npc,Grandmasterlevel,Grandmasterbehavior);
     610                 :          0 :     break;
     611                 :            :   }
     612 [ +  - ][ +  - ]:          1 :   if (st > -1 && Objects[st].uniqueness == UNIQUE_MADE) {
     613                 :          1 :     ob = ((pob) checkmalloc(sizeof(objtype)));
     614                 :          1 :     *ob = Objects[st];
     615                 :          1 :     m_pickup(npc,ob);
     616                 :            :   }
     617                 :          1 :   npc->monstring = salloc(Str2);
     618                 :          1 :   strcpy(Str1,"The body of ");
     619                 :          1 :   strcat(Str1,Str2);
     620                 :          1 :   npc->corpsestr = salloc(Str1);
     621                 :          1 :   m_status_set( npc, ALLOC );
     622                 :          1 : }
     623                 :            : 
     624                 :            : 
     625                 :            : /* sets npc behavior given level and behavior code */
     626                 :          9 : void determine_npc_behavior(pmt npc, int level, int behavior)
     627                 :            : {
     628                 :            :   int combatype,competence,talktype;
     629                 :          9 :   npc->hp = (level+1)*20;
     630                 :          9 :   npc->status = AWAKE+MOBILE+WANDERING;
     631                 :          9 :   combatype = (behavior % 100) / 10;
     632                 :          9 :   competence = (behavior % 1000) / 100;
     633                 :          9 :   talktype = behavior / 1000;
     634                 :          9 :   npc->level = competence;
     635         [ +  + ]:          9 :   if (npc->level < 2*difficulty()) npc->status += HOSTILE;
     636                 :          9 :   npc->xpv = npc->level*20;
     637   [ +  -  -  -  :          9 :   switch (combatype) {
                   -  - ]
     638                 :            :   case 1: /* melee */
     639                 :          9 :     npc->meleef = M_MELEE_NORMAL;
     640                 :          9 :     npc->dmg = competence*5;
     641                 :          9 :     npc->hit = competence*3;
     642                 :          9 :     npc->speed = 3;
     643                 :          9 :     break;
     644                 :            :   case 2: /*missile*/
     645                 :          0 :     npc->meleef = M_MELEE_NORMAL;
     646                 :          0 :     npc->strikef = M_STRIKE_MISSILE;
     647                 :          0 :     npc->dmg = competence*3;
     648                 :          0 :     npc->hit = competence*2;
     649                 :          0 :     npc->speed = 4;
     650                 :          0 :     break;
     651                 :            :   case 3: /* spellcasting */
     652                 :          0 :     npc->meleef = M_MELEE_NORMAL;
     653                 :          0 :     npc->dmg = competence;
     654                 :          0 :     npc->hit = competence;
     655                 :          0 :     npc->specialf = M_SP_SPELL;
     656                 :          0 :     npc->speed = 6;
     657                 :          0 :     break;
     658                 :            :   case 4: /* thievery */
     659                 :          0 :     npc->meleef = M_MELEE_NORMAL;
     660                 :          0 :     npc->dmg = competence;
     661                 :          0 :     npc->hit = competence;
     662                 :          0 :     npc->specialf=M_SP_THIEF;
     663                 :          0 :     npc->speed = 3;
     664                 :          0 :     break;
     665                 :            :   case 5: /* flee */
     666                 :          0 :     npc->dmg = competence;
     667                 :          0 :     npc->hit = competence;
     668                 :          0 :     npc->meleef = M_MELEE_NORMAL;
     669                 :          0 :     npc->specialf = M_MOVE_SCAREDY;
     670                 :          0 :     npc->speed = 3;
     671                 :          0 :     break;
     672                 :            :   }
     673         [ +  + ]:          9 :   if (npc->talkf == M_TALK_MAN)
     674   [ -  +  -  -  :          1 :     switch (talktype) {
                   -  - ]
     675                 :          0 :     case 1: npc->talkf = M_TALK_EVIL; break;
     676                 :          1 :     case 2: npc->talkf = M_TALK_MAN; break;
     677                 :          0 :     case 3: npc->talkf = M_TALK_HINT; break;
     678                 :          0 :     case 4: npc->talkf = M_TALK_BEG; break;
     679                 :          0 :     case 5: npc->talkf = M_TALK_SILENT; break;
     680                 :          0 :     default: mprint("Say Whutt? (npc talk weirdness)"); break;
     681                 :            :     }
     682                 :          9 :   npc->uniqueness = UNIQUE_MADE;
     683                 :          9 : }
     684                 :            : 
     685                 :            : 
     686                 :            : /* makes an ordinary npc (maybe undead) */
     687                 :          0 : void make_log_npc(pmt npc)
     688                 :            : {
     689                 :            :   int i,n;
     690                 :            :   int behavior,status,level;
     691                 :            :   FILE *fd;
     692                 :            : 
     693                 :            :   /* in case the log file is null */
     694                 :          0 :   behavior = 2718;
     695                 :          0 :   level = 1;
     696                 :          0 :   status = 2;
     697                 :          0 :   strcpy(Str2,"Malaprop the Misnamed");
     698                 :            :   
     699                 :          0 :   strcpy(Str1,Omegavar);
     700                 :          0 :   strcat(Str1,"omega.log");
     701                 :          0 :   fd = checkfopen(Str1,"r");
     702                 :          0 :   n = 1;
     703         [ #  # ]:          0 :   while(fgets(Str1,STRING_LEN, fd)) {
     704         [ #  # ]:          0 :     if (random_range(n) == 0) { /* this algo. from Knuth 2 - cute, eh? */
     705                 :          0 :       sscanf(Str1,"%d %d %d",&status,&level,&behavior);
     706 [ #  # ][ #  # ]:          0 :       for (i = 0; (Str1[i] < 'a' || Str1[i] > 'z') &&
                 [ #  # ]
     707         [ #  # ]:          0 :         (Str1[i] < 'A' || Str1[i] > 'Z'); i++)
     708                 :            :         ;
     709                 :          0 :       strcpy(Str2, Str1 + i);
     710                 :          0 :       Str2[strlen(Str2) - 1] = '\0';    /* 'cos fgets reads in the \n */
     711                 :            :     }
     712                 :          0 :     n++;
     713                 :            :   }
     714                 :          0 :   fclose(fd);
     715                 :          0 :   npc->hp = level*20;
     716         [ #  # ]:          0 :   if (status==1) {
     717         [ #  # ]:          0 :     if (level < 3) {
     718                 :          0 :       *npc = Monsters[GHOST];
     719                 :          0 :       strcpy(Str1,"ghost named ");
     720                 :            :     }
     721         [ #  # ]:          0 :     else if (level < 7) {
     722                 :          0 :       *npc = Monsters[HAUNT];
     723                 :          0 :       strcpy(Str1,"haunt named ");
     724                 :            :     }
     725         [ #  # ]:          0 :     else if (level < 12) {
     726                 :          0 :       *npc = Monsters[SPECTRE];
     727                 :          0 :       strcpy(Str1,"spectre named ");
     728                 :            :     }
     729                 :            :     else {
     730                 :          0 :       *npc = Monsters[LICHE];
     731                 :          0 :       strcpy(Str1,"lich named ");
     732                 :            :     }
     733                 :          0 :     strcat(Str1,Str2);
     734                 :          0 :     npc->monstring = salloc(Str1);
     735                 :          0 :     strcpy(Str3,"the mortal remains of ");
     736                 :          0 :     strcat(Str3,Str2);
     737                 :          0 :     npc->corpsestr = salloc(Str3);
     738                 :          0 :     m_status_set( npc, ALLOC );
     739                 :            :   }
     740                 :            :   else {
     741                 :          0 :     npc->monstring=salloc(Str2);
     742                 :          0 :     strcpy(Str3,"the corpse of ");
     743                 :          0 :     strcat(Str3,Str2);
     744                 :          0 :     npc->corpsestr = salloc(Str3);
     745                 :          0 :     m_status_set( npc, ALLOC );
     746                 :            :   }
     747                 :          0 :   determine_npc_behavior(npc,level,behavior);
     748                 :          0 : }
     749                 :            : 
     750                 :            : 
     751                 :          0 : void m_trap_dart(pmt m)
     752                 :            : {
     753         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) {
     754         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     755                 :            :     else {
     756                 :          0 :       strcpy(Str1,"The ");
     757                 :          0 :       strcat(Str1,m->monstring);
     758                 :            :     }
     759                 :          0 :     strcat(Str1," was hit by a dart!");
     760                 :          0 :     mprint(Str1);
     761                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     762                 :          0 :     lset(m->x, m->y, CHANGED);
     763                 :            :   }
     764                 :          0 :   m_damage(m,difficulty()*2,NORMAL_DAMAGE);
     765                 :          0 : }
     766                 :            : 
     767                 :          0 : void m_trap_pit(pmt m)
     768                 :            : {
     769         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) {
     770         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     771                 :            :     else {
     772                 :          0 :       strcpy(Str1,"The ");
     773                 :          0 :       strcat(Str1,m->monstring);
     774                 :            :     }
     775                 :          0 :     strcat(Str1," fell into a pit!");
     776                 :          0 :     mprint(Str1);
     777                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     778                 :          0 :     lset(m->x, m->y, CHANGED);
     779                 :            :   }
     780         [ #  # ]:          0 :   if (! m_statusp(m,INTANGIBLE))
     781                 :          0 :     m_status_reset(m,MOBILE);
     782                 :          0 :   m_damage(m,difficulty()*5,NORMAL_DAMAGE);
     783                 :            : 
     784                 :          0 : }
     785                 :            : 
     786                 :          0 : void m_trap_door(pmt m)
     787                 :            : {
     788         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) {
     789         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     790                 :            :     else {
     791                 :          0 :       strcpy(Str1,"The ");
     792                 :          0 :       strcat(Str1,m->monstring);
     793                 :            :     }
     794                 :          0 :     strcat(Str1," fell into a trap door!");
     795                 :          0 :     mprint(Str1);
     796                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     797                 :          0 :     lset(m->x, m->y, CHANGED);
     798                 :            :   }
     799                 :          0 :   m_vanish(m);
     800                 :          0 : }
     801                 :            : 
     802                 :          0 : void m_trap_abyss(pmt m)
     803                 :            : {
     804                 :            :   char Str1[80];
     805         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) {
     806         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     807                 :            :     else {
     808                 :          0 :       strcpy(Str1,"The ");
     809                 :          0 :       strcat(Str1,m->monstring);
     810                 :            :     }
     811                 :          0 :     strcat(Str1," fell into the infinite abyss!");
     812                 :          0 :     mprint(Str1);
     813                 :          0 :     Level->site[m->x][m->y].locchar = ABYSS;
     814                 :          0 :     lset(m->x, m->y, CHANGED);
     815                 :          0 :     Level->site[m->x][m->y].p_locf = L_ABYSS;
     816                 :          0 :     lset(m->x, m->y, CHANGED);
     817                 :            :   }
     818                 :          0 :   setgamestatus(SUPPRESS_PRINTING);
     819                 :          0 :   m_vanish(m);
     820                 :          0 :   resetgamestatus(SUPPRESS_PRINTING);
     821                 :          0 : }
     822                 :            : 
     823                 :          0 : void m_trap_snare(pmt m)
     824                 :            : {
     825                 :            :   char Str1[80];
     826                 :          0 :   Level->site[m->x][m->y].locchar = TRAP;
     827                 :          0 :   lset(m->x, m->y, CHANGED);
     828         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) {
     829         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     830                 :            :     else {
     831                 :          0 :       strcpy(Str1,"The ");
     832                 :          0 :       strcat(Str1,m->monstring);
     833                 :            :     }
     834                 :          0 :     strcat(Str1," was caught in a snare!");
     835                 :          0 :     mprint(Str1);
     836                 :            :   }
     837         [ #  # ]:          0 :   if (! m_statusp(m,INTANGIBLE)) m_status_reset(m,MOBILE);
     838                 :          0 : }
     839                 :            : 
     840                 :          0 : void m_trap_blade(pmt m)
     841                 :            : {
     842                 :            :   char Str1[80];
     843                 :          0 :   Level->site[m->x][m->y].locchar = TRAP;
     844                 :          0 :   lset(m->x, m->y, CHANGED);
     845         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     846         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     847                 :            :     else {
     848                 :          0 :       strcpy(Str1,"The ");
     849                 :          0 :       strcat(Str1,m->monstring);
     850                 :            :     }
     851                 :          0 :     strcat(Str1," was hit by a blade trap!");
     852                 :          0 :     mprint(Str1); } 
     853                 :          0 :   m_damage(m,(difficulty()+1)*7-Player.defense,NORMAL_DAMAGE);
     854                 :          0 : }
     855                 :            : 
     856                 :          0 : void m_trap_fire(pmt m)
     857                 :            : {
     858                 :            :   char Str1[80];
     859                 :          0 :   Level->site[m->x][m->y].locchar = TRAP;
     860                 :          0 :   lset(m->x, m->y, CHANGED);
     861         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     862         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     863                 :            :     else {
     864                 :          0 :       strcpy(Str1,"The ");
     865                 :          0 :       strcat(Str1,m->monstring);
     866                 :            :     }
     867                 :          0 :     strcat(Str1," was hit by a fire trap!");
     868                 :          0 :     mprint(Str1); 
     869                 :            :   } 
     870                 :          0 :   m_damage(m,(difficulty()+1)*5,FLAME);
     871                 :          0 : }
     872                 :            : 
     873                 :            : 
     874                 :          0 : void m_fire(pmt m)
     875                 :            : {
     876                 :            :   char Str1[80];
     877         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     878         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     879                 :            :     else {
     880                 :          0 :       strcpy(Str1,"The ");
     881                 :          0 :       strcat(Str1,m->monstring);
     882                 :            :     }
     883                 :          0 :     strcat(Str1," was blasted by fire!");
     884                 :          0 :     mprint(Str1); 
     885                 :            :   } 
     886                 :          0 :   m_damage(m,random_range(100),FLAME);
     887                 :          0 : }
     888                 :            : 
     889                 :          0 : void m_trap_teleport(pmt m)
     890                 :            : {
     891                 :            :   char Str1[80];
     892                 :          0 :   Level->site[m->x][m->y].locchar = TRAP;
     893                 :          0 :   lset(m->x, m->y, CHANGED);
     894         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     895         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     896                 :            :     else {
     897                 :          0 :       strcpy(Str1,"The ");
     898                 :          0 :       strcat(Str1,m->monstring);
     899                 :            :     }
     900                 :          0 :     strcat(Str1," walked into a teleport trap!");
     901                 :          0 :     mprint(Str1); 
     902                 :            :   } 
     903                 :          0 :   m_teleport(m);
     904                 :          0 : }
     905                 :            : 
     906                 :          0 : void m_trap_disintegrate(pmt m)
     907                 :            : {
     908                 :            :   char Str1[80];
     909         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     910         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     911                 :            :     else {
     912                 :          0 :       strcpy(Str1,"The ");
     913                 :          0 :       strcat(Str1,m->monstring);
     914                 :            :     }
     915                 :          0 :     strcat(Str1," walked into a disintegration trap!");
     916                 :          0 :     mprint(Str1); 
     917                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     918                 :          0 :     lset(m->x, m->y, CHANGED);
     919                 :            :   } 
     920                 :          0 :   disintegrate(m->x,m->y);
     921                 :          0 : }
     922                 :            : 
     923                 :          0 : void m_trap_sleepgas(pmt m)
     924                 :            : {
     925                 :            :   char Str1[80];
     926         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     927         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     928                 :            :     else {
     929                 :          0 :       strcpy(Str1,"The ");
     930                 :          0 :       strcat(Str1,m->monstring);
     931                 :            :     }
     932                 :          0 :     strcat(Str1," walked into a sleepgas trap!");
     933                 :          0 :     mprint(Str1); 
     934                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     935                 :          0 :     lset(m->x, m->y, CHANGED);
     936                 :            :   } 
     937         [ #  # ]:          0 :   if (! m_immunityp(m,SLEEP)) m_status_reset(m,AWAKE);
     938                 :          0 : }
     939                 :            : 
     940                 :          0 : void m_trap_acid(pmt m)
     941                 :            : {
     942                 :            :   char Str1[80];
     943         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     944         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     945                 :            :     else {
     946                 :          0 :       strcpy(Str1,"The ");
     947                 :          0 :       strcat(Str1,m->monstring);
     948                 :            :     }
     949                 :          0 :     strcat(Str1," walked into an acid bath trap!");
     950                 :          0 :     mprint(Str1); 
     951                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     952                 :          0 :     lset(m->x, m->y, CHANGED);
     953                 :            :   } 
     954                 :          0 :   m_damage(m,random_range(difficulty()*difficulty()),ACID);
     955                 :          0 : }
     956                 :            : 
     957                 :          0 : void m_trap_manadrain(pmt m)
     958                 :            : {
     959                 :            :   char Str1[80];
     960         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) { 
     961         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     962                 :            :     else {
     963                 :          0 :       strcpy(Str1,"The ");
     964                 :          0 :       strcat(Str1,m->monstring);
     965                 :            :     }
     966                 :          0 :     strcat(Str1," walked into a manadrain trap!");
     967                 :          0 :     mprint(Str1); 
     968                 :          0 :     Level->site[m->x][m->y].locchar = TRAP;
     969                 :          0 :     lset(m->x, m->y, CHANGED);
     970                 :            :   } 
     971         [ #  # ]:          0 :   if (m->specialf == M_SP_SPELL) m->specialf = M_NO_OP;
     972                 :          0 : }
     973                 :            : 
     974                 :            : 
     975                 :          8 : void m_water(pmt m)
     976                 :            : {
     977                 :            :   char Str1[80];
     978 [ +  - ][ -  + ]:          8 :   if ((! m_statusp(m,INTANGIBLE)) && 
     979         [ #  # ]:          0 :       (! m_statusp(m,SWIMMING)) &&
     980                 :          0 :       (! m_statusp(m,ONLYSWIM))) {
     981         [ #  # ]:          0 :     if (los_p(m->x,m->y,Player.x,Player.y)) { 
     982         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
     983                 :            :     else {
     984                 :          0 :       strcpy(Str1,"The ");
     985                 :          0 :       strcat(Str1,m->monstring);
     986                 :            :     }
     987                 :          0 :       strcat(Str1," drowned!");
     988                 :          0 :       mprint(Str1); 
     989                 :            :     }
     990                 :          0 :     m_death(m);
     991                 :            :   }
     992                 :          8 : }
     993                 :            : 
     994                 :            : 
     995                 :          0 : void m_abyss(pmt m)
     996                 :            : {
     997                 :            :   char Str1[80];
     998         [ #  # ]:          0 :   if (los_p(m->x,m->y,Player.x,Player.y)) {
     999         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
    1000                 :            :     else {
    1001                 :          0 :       strcpy(Str1,"The ");
    1002                 :          0 :       strcat(Str1,m->monstring);
    1003                 :            :     }
    1004                 :          0 :     strcat(Str1," fell into the infinite abyss!");
    1005                 :          0 :     mprint(Str1);
    1006                 :            :   }
    1007                 :          0 :   m_vanish(m);
    1008                 :          0 : }
    1009                 :            : 
    1010                 :            : 
    1011                 :          0 : void m_lava(pmt m)
    1012                 :            : {
    1013                 :            :   char Str1[80];
    1014 [ #  # ][ #  # ]:          0 :   if ((! m_immunityp(m,FLAME)) ||
    1015         [ #  # ]:          0 :       ((! m_statusp(m,SWIMMING))&& (! m_statusp(m,ONLYSWIM)))) {
    1016         [ #  # ]:          0 :     if (los_p(m->x,m->y,Player.x,Player.y)) { 
    1017         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
    1018                 :            :     else {
    1019                 :          0 :       strcpy(Str1,"The ");
    1020                 :          0 :       strcat(Str1,m->monstring);
    1021                 :            :     }
    1022                 :          0 :       strcat(Str1," died in a pool of lava!");
    1023                 :          0 :       mprint(Str1); 
    1024                 :            :     }
    1025                 :          0 :     m_death(m);
    1026                 :            :   }
    1027                 :          0 : }
    1028                 :            : 
    1029                 :          0 : void m_altar(pmt m)
    1030                 :            : {
    1031                 :          0 :   int visible = view_los_p(Player.x,Player.y,m->x,m->y);
    1032                 :          0 :   int reaction = 0;
    1033                 :          0 :   int altar = Level->site[m->x][m->y].aux;
    1034                 :            : 
    1035         [ #  # ]:          0 :   if (visible) {
    1036         [ #  # ]:          0 :     if (m->uniqueness != COMMON) strcpy(Str1,m->monstring);
    1037                 :            :     else {
    1038                 :          0 :       strcpy(Str1,"The ");
    1039                 :          0 :       strcat(Str1,m->monstring);
    1040                 :            :     }
    1041                 :          0 :     strcat(Str1," walks next to an altar...");
    1042                 :          0 :     mprint(Str1);
    1043                 :            :   }
    1044         [ #  # ]:          0 :   if (!m_statusp(m, HOSTILE))
    1045                 :          0 :     reaction = 0;
    1046 [ #  # ][ #  # ]:          0 :   else if (m->id == HISCORE_NPC && m->aux2 == altar)
    1047                 :          0 :     reaction = 1;       /* high priest of same deity */
    1048 [ #  # ][ #  # ]:          0 :   else if ((m->id == ANGEL || m->id == HIGH_ANGEL || m->id == ARCHANGEL) &&
         [ #  # ][ #  # ]
    1049                 :          0 :       m->aux1 == altar)
    1050                 :          0 :     reaction = 1;       /* angel of same deity */
    1051         [ #  # ]:          0 :   else if (altar == Player.patron)
    1052                 :          0 :     reaction = -1;      /* friendly deity will zap hostile monster */
    1053 [ #  # ][ #  # ]:          0 :   else if (((Player.patron == ODIN || Player.patron == ATHENA) &&
                 [ #  # ]
    1054 [ #  # ][ #  # ]:          0 :       (altar == SET || altar == HECATE)) ||
    1055 [ #  # ][ #  # ]:          0 :       ((Player.patron == SET || Player.patron == HECATE) &&
    1056         [ #  # ]:          0 :       (altar == ODIN || altar == ATHENA)))
    1057                 :          0 :     reaction = 1;       /* hostile deity will help hostile monster */
    1058      [ #  #  # ]:          0 :   switch (reaction) {
    1059                 :            :     case -1:
    1060         [ #  # ]:          0 :       if (visible) {
    1061                 :          0 :         mprint("Your deity is angry!");
    1062                 :          0 :         mprint("A bolt of godsfire strikes the monster....");
    1063                 :            :       }
    1064                 :          0 :       disrupt(m->x,m->y,Player.rank[PRIESTHOOD]*50);
    1065                 :          0 :       break;
    1066                 :            :     case 1:
    1067         [ #  # ]:          0 :       if (visible) {
    1068                 :          0 :         mprint("The deity of the altar smiles on the monster....");
    1069                 :          0 :         mprint("A shaft of light zaps the altar...");
    1070                 :            :       }
    1071                 :          0 :       m->hp = Monsters[m->id].hp*2;
    1072                 :          0 :       break;
    1073                 :            :     default:
    1074         [ #  # ]:          0 :       if (visible)
    1075                 :          0 :         mprint("but nothing much seems to happen");
    1076                 :          0 :       break;
    1077                 :            :   }
    1078                 :          0 : }
    1079                 :            : 
    1080                 :          2 : char *mancorpse(void)
    1081                 :            : {
    1082   [ -  -  -  -  :          2 :   switch(random_range(20)) {
          -  -  -  -  -  
          -  -  -  -  +  
          -  -  -  -  -  
                      - ]
    1083                 :          0 :     case 0:  return "dead janitor";
    1084                 :          0 :     case 1:  return "dead beggar";
    1085                 :          0 :     case 2:  return "dead barbarian";
    1086                 :          0 :     case 3:  return "dead hairdresser";
    1087                 :          0 :     case 4:  return "dead accountant";
    1088                 :          0 :     case 5:  return "dead lawyer";
    1089                 :          0 :     case 6:  return "dead indian chief";
    1090                 :          0 :     case 7:  return "dead tinker";
    1091                 :          0 :     case 8:  return "dead tailor";
    1092                 :          0 :     case 9:  return "dead soldier";
    1093                 :          0 :     case 10: return "dead spy";
    1094                 :          0 :     case 11: return "dead doctor";
    1095                 :          0 :     case 12: return "dead miner";
    1096                 :          2 :     case 13: return "dead noble";
    1097                 :          0 :     case 14: return "dead serf";
    1098                 :          0 :     case 15: return "dead neer-do-well";
    1099                 :          0 :     case 16: return "dead vendor";
    1100                 :          0 :     case 17: return "dead dilettante";
    1101                 :          0 :     case 18: return "dead surveyor";
    1102                 :            :     default:
    1103                 :          0 :     case 19: return "dead jongleur";
    1104                 :            :   }
    1105                 :            : }
    1106                 :            : 
    1107                 :          0 : char *angeltype(int mid, int deity)
    1108                 :            : {
    1109         [ #  # ]:          0 :    if (ANGEL == mid )
    1110                 :            :    {
    1111   [ #  #  #  #  :          0 :      switch (deity)
                #  #  # ]
    1112                 :            :      {
    1113                 :          0 :      case ODIN:    return "angel of Odin";break;
    1114                 :          0 :      case SET:     return "angel of Set";break;
    1115                 :          0 :      case HECATE:  return "angel of Hecate";break;
    1116                 :          0 :      case ATHENA:  return "angel of Athena";break;
    1117                 :          0 :      case DESTINY: return "angel of Destiny";break;
    1118                 :          0 :      case DRUID:   return "angel of the Balance";break;
    1119                 :            :      }
    1120                 :            :    } 
    1121         [ #  # ]:          0 :    else if (HIGH_ANGEL == mid )
    1122                 :            :    {
    1123   [ #  #  #  #  :          0 :      switch (deity)
                #  #  # ]
    1124                 :            :      {
    1125                 :          0 :      case ODIN:    return "high angel of Odin";break;
    1126                 :          0 :      case SET:     return "high angel of Set";break;
    1127                 :          0 :      case HECATE:  return "high angel of Hecate";break;
    1128                 :          0 :      case ATHENA:  return "high angel of Athena";break;
    1129                 :          0 :      case DESTINY: return "high angel of Destiny";break;
    1130                 :          0 :      case DRUID:   return "high angel of the Balance";break;
    1131                 :            :      }
    1132                 :            :    }
    1133                 :            :    else /* ARCHANGEL */
    1134                 :            :    {
    1135   [ #  #  #  #  :          0 :      switch (deity)
                #  #  # ]
    1136                 :            :      {
    1137                 :          0 :      case ODIN:    return "archangel of Odin";break;
    1138                 :          0 :      case SET:     return "archangel of Set";break;
    1139                 :          0 :      case HECATE:  return "archangel of Hecate";break;
    1140                 :          0 :      case ATHENA:  return "archangel of Athena";break;
    1141                 :          0 :      case DESTINY: return "archangel of Destiny";break;
    1142                 :          0 :      case DRUID:   return "archangel of the Balance";break;
    1143                 :            :      }
    1144                 :            :    }
    1145                 :            :   /* And, if none of those work, this function's broken -- I'm gonna die. */
    1146                 :          0 :   return "angel of Death";
    1147                 :            : }
    1148                 :            : 
    1149                 :          0 : void strengthen_death(pmt m)
    1150                 :            : {
    1151                 :          0 :   pol ol = ((pol)checkmalloc(sizeof(oltype)));
    1152                 :          0 :   pob scythe = ((pob)checkmalloc(sizeof(objtype)));
    1153                 :            : #ifdef MSDOS_SUPPORTED_ANTIQUE
    1154                 :            :   unsigned tmp;
    1155                 :            : #endif
    1156                 :          0 :   m->xpv += min(10000,m->xpv+1000);
    1157                 :          0 :   m->hit += min(1000,m->hit+10);
    1158                 :          0 :   m->dmg = min(10000,m->dmg*2);
    1159                 :          0 :   m->ac += min(1000,m->ac+10);
    1160                 :          0 :   m->speed = max(m->speed-1,1);
    1161                 :          0 :   m->movef = M_MOVE_SMART;
    1162                 :            : #ifndef MSDOS_SUPPORTED_ANTIQUE
    1163                 :          0 :   m->hp = min(100000,100+m->dmg*10);
    1164                 :            : #else
    1165                 :            :   /* In order not to have to make the hp's into longs or unsigned,
    1166                 :            :      which would involve lots of changes, I'll make it max out at 30000. */
    1167                 :            :   tmp = 100+m->dmg*10;
    1168                 :            :   m->hp = (tmp > 30000) ? 30000 : tmp;
    1169                 :            : #endif
    1170                 :          0 :   *scythe = Objects[OB_SCYTHE_DEATH];
    1171                 :          0 :   ol->thing = scythe;
    1172                 :          0 :   ol->next = NULL;
    1173                 :          0 :   m->possessions = ol;
    1174                 :          0 : }
    1175                 :            : 
    1176                 :            : 
    1177                 :        406 : void m_no_op(pmt m)
    1178                 :            : {
    1179                 :        406 : }

Generated by: LCOV version 1.11