开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 查看源码
SPECIAL.C
资源名称：mercwsrc.zip　[点击查看]
上传用户：kesirui
上传日期：2007-01-07
资源大小：263k
文件大小：48k
源码类别：

Internet/网络编程

开发平台：

WINDOWS

SPECIAL.C：源码内容
  1. /***************************************************************************
  2.  *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
  3.  *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
  4.  *                                                                         *
  5.  *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
  6.  *  Chastain, Michael Quan, and Mitchell Tse.                              *
  7.  *                                                                         *
  8.  *  In order to use any part of this Merc Diku Mud, you must comply with   *
  9.  *  both the original Diku license in 'license.doc' as well the Merc       *
  10.  *  license in 'license.txt'.  In particular, you may not remove either of *
  11.  *  these copyright notices.                                               *
  12.  *                                                                         *
  13.  *  Much time and thought has gone into this software and you are          *
  14.  *  benefitting.  We hope that you share your changes too.  What goes      *
  15.  *  around, comes around.                                                  *
  16.  ***************************************************************************/
  18. #if defined(macintosh)
  19. #include <types.h>
  20. #else
  21. #include <sys/types.h>
  22. #endif
  23. #include <stdio.h>
  24. #include <stdlib.h>
  25. #include <string.h>
  26. #include <time.h>
  27. #include "merc.h"
  28. #include <ctype.h> // @@@ Needed for spec_cast_from_list
  31. /*
  32.  * The following special functions are available for mobiles.
  33.  */
  34. DECLARE_SPEC_FUN( spec_breath_any );
  35. DECLARE_SPEC_FUN( spec_breath_acid );
  36. DECLARE_SPEC_FUN( spec_breath_fire );
  37. DECLARE_SPEC_FUN( spec_breath_frost );
  38. DECLARE_SPEC_FUN( spec_breath_gas );
  39. DECLARE_SPEC_FUN( spec_breath_lightning );
  40. DECLARE_SPEC_FUN( spec_cast_adept );
  41. DECLARE_SPEC_FUN( spec_cast_cleric );
  42. DECLARE_SPEC_FUN( spec_cast_judge );
  43. DECLARE_SPEC_FUN( spec_cast_mage );
  44. DECLARE_SPEC_FUN( spec_cast_undead );
  45. DECLARE_SPEC_FUN( spec_executioner );
  46. DECLARE_SPEC_FUN( spec_fido );
  47. DECLARE_SPEC_FUN( spec_guard );
  48. DECLARE_SPEC_FUN( spec_janitor );
  49. DECLARE_SPEC_FUN( spec_mayor );
  50. DECLARE_SPEC_FUN( spec_poison );
  51. DECLARE_SPEC_FUN( spec_thief );
  52. DECLARE_SPEC_FUN(       spec_cast_psionicist    );
  53. DECLARE_SPEC_FUN( spec_animated_dead    ); // @@@
  54. DECLARE_SPEC_FUN( spec_taxidermist    ); // @@@
  55. DECLARE_SPEC_FUN( spec_capn_swing    ); // @@@
  56. DECLARE_SPEC_FUN( spec_snake_charm ); // @@@
  57. DECLARE_SPEC_FUN( spec_hunger );
  58. DECLARE_SPEC_FUN( spec_cast_from_list ); // @@@ ###
  59. DECLARE_SPEC_FUN( spec_shopkeeper ); // @@@
  60. DECLARE_SPEC_FUN( spec_obj_bribe ); // @@@
  61. DECLARE_SPEC_FUN( spec_agg_no_object ); // @@@
  62. DECLARE_SPEC_FUN( spec_follow_mob ); // @@@
  63. DECLARE_SPEC_FUN( spec_generator ); // @@@
  64. DECLARE_SPEC_FUN( spec_defend_vs_agg ); // @@@
  65. DECLARE_SPEC_FUN( spec_agg_if_object ); // @@@
  66. DECLARE_SPEC_FUN( spec_circuit ); // @@@
  67. DECLARE_SPEC_FUN( spec_hatred ); // @@@
  71. /*
  72.  * Given a name, return the appropriate spec fun.
  73.  */
  74. SPEC_FUN *spec_lookup( const char *name )
  75. {
  76.     if ( !str_cmp( name, "spec_breath_any"   ) ) return spec_breath_any;
  77.     if ( !str_cmp( name, "spec_breath_acid"   ) ) return spec_breath_acid;
  78.     if ( !str_cmp( name, "spec_breath_fire"   ) ) return spec_breath_fire;
  79.     if ( !str_cmp( name, "spec_breath_frost"   ) ) return spec_breath_frost;
  80.     if ( !str_cmp( name, "spec_breath_gas"   ) ) return spec_breath_gas;
  81.     if ( !str_cmp( name, "spec_breath_lightning"  ) ) return
  82. spec_breath_lightning;
  83.     if ( !str_cmp( name, "spec_cast_adept"   ) ) return spec_cast_adept;
  84.     if ( !str_cmp( name, "spec_cast_cleric"   ) ) return spec_cast_cleric;
  85.     if ( !str_cmp( name, "spec_cast_judge"   ) ) return spec_cast_judge;
  86.     if ( !str_cmp( name, "spec_cast_mage"   ) ) return spec_cast_mage;
  87.     if ( !str_cmp( name, "spec_cast_undead"   ) ) return spec_cast_undead;
  88.     if ( !str_cmp( name, "spec_executioner"   ) ) return spec_executioner;
  89.     if ( !str_cmp( name, "spec_fido"   ) ) return spec_fido;
  90.     if ( !str_cmp( name, "spec_guard"   ) ) return spec_guard;
  91.     if ( !str_cmp( name, "spec_janitor"   ) ) return spec_janitor;
  92.     if ( !str_cmp( name, "spec_mayor"   ) ) return spec_mayor;
  93.     if ( !str_cmp( name, "spec_poison"   ) ) return spec_poison;
  95.     if ( !str_cmp( name, "spec_cast_psionicist"   ) ) return
  96.                                                         spec_cast_psionicist;
  97.                                                         
  98.     if ( !str_cmp( name, "spec_thief"   ) ) return spec_thief;
  99.     if ( !str_cmp( name, "spec_taxidermist"   ) ) return spec_taxidermist; // @@@
  100.     if ( !str_cmp( name, "spec_animated_dead"   ) ) return spec_animated_dead;
  101.     if ( !str_cmp( name, "spec_capn_swing"   ) ) return spec_capn_swing; // @@@
  102.     if ( !str_cmp( name, "spec_snake_charm"   ) ) return spec_snake_charm; // @@@
  103.     if ( !str_cmp( name, "spec_hunger"   ) ) return spec_hunger; // @@
  104.     if ( !str_cmp( name, "spec_cast_from_list" )) return spec_cast_from_list; // @@@ ###
  105.     if ( !str_cmp( name, "spec_shopkeeper" )) return spec_shopkeeper; // @@@ ###
  106.     if ( !str_cmp( name, "spec_obj_bribe" )) return spec_obj_bribe; // @@@ ###
  107.     if ( !str_cmp( name, "spec_agg_no_object" )) return spec_agg_no_object; // @@@ ###
  108.     if ( !str_cmp( name, "spec_follow_mob" )) return spec_follow_mob; // @@@
  109.     if ( !str_cmp( name, "spec_generator" )) return spec_generator; // @@@
  110.     if ( !str_cmp( name, "spec_defend_vs_agg" )) return spec_defend_vs_agg; // @@@
  111.     if ( !str_cmp( name, "spec_agg_if_object" )) return spec_agg_if_object; // @@@
  112.     if ( !str_cmp( name, "spec_circuit" )) return spec_circuit; // @@@
  113.     if ( !str_cmp( name, "spec_hatred" )) return spec_hatred; // @@@
  114.     return 0;
  115. }
  119. /*
  120.  * Core procedure for dragons.
  121.  */
  122. bool dragon( CHAR_DATA *ch, char *spell_name )
  123. {
  124.     CHAR_DATA *victim;
  125.     CHAR_DATA *v_next;
  126.     int sn;
  128.     if ( ch->position != POS_FIGHTING )
  129. return FALSE;
  131.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  132.     {
  133. v_next = victim->next_in_room;
  134. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  135.     break;
  136.     }
  138.     if ( victim == NULL )
  139. return FALSE;
  141.     if ( ( sn = skill_lookup( spell_name ) ) < 0 )
  142. return FALSE;
  143.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  144.     return TRUE;
  145. }
  149. /*
  150.  * Special procedures for mobiles.
  151.  */
  152. bool spec_breath_any( CHAR_DATA *ch )
  153. {
  154.     if ( ch->position != POS_FIGHTING )
  155. return FALSE;
  157.     switch ( number_bits( 3 ) )
  158.     {
  159.     case 0: return spec_breath_fire ( ch );
  160.     case 1:
  161.     case 2: return spec_breath_lightning ( ch );
  162.     case 3: return spec_breath_gas ( ch );
  163.     case 4: return spec_breath_acid ( ch );
  164.     case 5:
  165.     case 6:
  166.     case 7: return spec_breath_frost ( ch );
  167.     }
  169.     return FALSE;
  170. }
  174. bool spec_breath_acid( CHAR_DATA *ch )
  175. {
  176.     return dragon( ch, "acid breath" );
  177. }
  181. bool spec_breath_fire( CHAR_DATA *ch )
  182. {
  183.     return dragon( ch, "fire breath" );
  184. }
  188. bool spec_breath_frost( CHAR_DATA *ch )
  189. {
  190.     return dragon( ch, "frost breath" );
  191. }
  195. bool spec_breath_gas( CHAR_DATA *ch )
  196. {
  197.     int sn;
  199.     if ( ch->position != POS_FIGHTING )
  200. return FALSE;
  202.     if ( ( sn = skill_lookup( "gas breath" ) ) < 0 )
  203. return FALSE;
  204.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, NULL );
  205.     return TRUE;
  206. }
  210. bool spec_breath_lightning( CHAR_DATA *ch )
  211. {
  212.     return dragon( ch, "lightning breath" );
  213. }
  217. bool spec_cast_adept( CHAR_DATA *ch )
  218. {
  219.     CHAR_DATA *victim;
  220.     CHAR_DATA *v_next;
  222.     if ( !IS_AWAKE(ch) )
  223. return FALSE;
  225.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  226.     {
  227. v_next = victim->next_in_room;
  228. if ( victim != ch && can_see( ch, victim ) && number_bits( 1 ) == 0 )
  229.     break;
  230.     }
  232.     if ( victim == NULL )
  233. return FALSE;
  235.     switch ( number_bits( 3 ) )
  236.     {
  237.     case 0:
  238. act( "$n utters the word 'tehctah'.", ch, NULL, NULL, TO_ROOM );
  239. spell_armor( skill_lookup( "armor" ), ch->level, ch, victim );
  240. return TRUE;
  242.     case 1:
  243. act( "$n utters the word 'nhak'.", ch, NULL, NULL, TO_ROOM );
  244. spell_bless( skill_lookup( "bless" ), ch->level, ch, victim );
  245. return TRUE;
  247.     case 2:
  248. act( "$n utters the word 'yeruf'.", ch, NULL, NULL, TO_ROOM );
  249. spell_cure_blindness( skill_lookup( "cure blindness" ),
  250.     ch->level, ch, victim );
  251. return TRUE;
  253.     case 3:
  254. act( "$n utters the word 'garf'.", ch, NULL, NULL, TO_ROOM );
  255. spell_cure_light( skill_lookup( "cure light" ),
  256.     ch->level, ch, victim );
  257. return TRUE;
  259.     case 4:
  260. act( "$n utters the words 'rozar'.", ch, NULL, NULL, TO_ROOM );
  261. spell_cure_poison( skill_lookup( "cure poison" ),
  262.     ch->level, ch, victim );
  263. return TRUE;
  265.     case 5:
  266. act( "$n utters the words 'nadroj'.", ch, NULL, NULL, TO_ROOM );
  267. spell_refresh( skill_lookup( "refresh" ), ch->level, ch, victim );
  268. return TRUE;
  270.     }
  272.     return FALSE;
  273. }
  277. bool spec_cast_cleric( CHAR_DATA *ch )
  278. {
  279.     CHAR_DATA *victim;
  280.     CHAR_DATA *v_next;
  281.     char *spell;
  282.     int sn;
  284.     if ( ch->position != POS_FIGHTING )
  285. return FALSE;
  287.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  288.     {
  289. v_next = victim->next_in_room;
  290. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  291.     break;
  292.     }
  294.     if ( victim == NULL )
  295. return FALSE;
  297.     for ( ;; )
  298.     {
  299. int min_level;
  301. switch ( number_bits( 4 ) )
  302. {
  303. case  0: min_level =  0; spell = "blindness";      break;
  304. case  1: min_level =  3; spell = "cause serious";  break;
  305. case  2: min_level =  7; spell = "earthquake";     break;
  306. case  3: min_level =  9; spell = "cause critical"; break;
  307. case  4: min_level = 10; spell = "dispel evil";    break;
  308. case  5: min_level = 12; spell = "curse";          break;
  309. case  6: min_level = 12; spell = "change sex";     break;
  310. case  7: min_level = 13; spell = "flamestrike";    break;
  311. case  8:
  312. case  9:
  313. case 10: min_level = 15; spell = "harm";           break;
  314. default: min_level = 16; spell = "dispel magic";   break;
  315. }
  317. if ( ch->level >= min_level )
  318.     break;
  319.     }
  321.     if ( ( sn = skill_lookup( spell ) ) < 0 )
  322. return FALSE;
  323.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  324.     return TRUE;
  325. }
  329. bool spec_cast_judge( CHAR_DATA *ch )
  330. {
  331.     CHAR_DATA *victim;
  332.     CHAR_DATA *v_next;
  333.     char *spell;
  334.     int sn;
  336.     if ( ch->position != POS_FIGHTING )
  337. return FALSE;
  339.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  340.     {
  341. v_next = victim->next_in_room;
  342. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  343.     break;
  344.     }
  346.     if ( victim == NULL )
  347. return FALSE;
  349.     spell = "high explosive";
  350.     if ( ( sn = skill_lookup( spell ) ) < 0 )
  351. return FALSE;
  352.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  353.     return TRUE;
  354. }
  358. bool spec_cast_mage( CHAR_DATA *ch )
  359. {
  360.     CHAR_DATA *victim;
  361.     CHAR_DATA *v_next;
  362.     char *spell;
  363.     int sn;
  365.     if ( ch->position != POS_FIGHTING )
  366. return FALSE;
  368.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  369.     {
  370. v_next = victim->next_in_room;
  371. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  372.     break;
  373.     }
  375.     if ( victim == NULL )
  376. return FALSE;
  378.     for ( ;; )
  379.     {
  380. int min_level;
  382. switch ( number_bits( 4 ) )
  383. {
  384. case  0: min_level =  0; spell = "blindness";      break;
  385. case  1: min_level =  3; spell = "chill touch";    break;
  386. case  2: min_level =  7; spell = "weaken";         break;
  387. case  3: min_level =  8; spell = "teleport";       break;
  388. case  4: min_level = 11; spell = "colour spray";   break;
  389. case  5: min_level = 12; spell = "change sex";     break;
  390. case  6: min_level = 13; spell = "energy drain";   break;
  391. case  7:
  392. case  8:
  393. case  9: min_level = 15; spell = "fireball";       break;
  394. default: min_level = 20; spell = "acid blast";     break;
  395. }
  397. if ( ch->level >= min_level )
  398.     break;
  399.     }
  401.     if ( ( sn = skill_lookup( spell ) ) < 0 )
  402. return FALSE;
  403.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  404.     return TRUE;
  405. }
  409. bool spec_cast_undead( CHAR_DATA *ch )
  410. {
  411.     CHAR_DATA *victim;
  412.     CHAR_DATA *v_next;
  413.     char *spell;
  414.     int sn;
  416.     if ( ch->position != POS_FIGHTING )
  417. return FALSE;
  419.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  420.     {
  421. v_next = victim->next_in_room;
  422. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  423.     break;
  424.     }
  426.     if ( victim == NULL )
  427. return FALSE;
  429.     for ( ;; )
  430.     {
  431. int min_level;
  433. switch ( number_bits( 4 ) )
  434. {
  435. case  0: min_level =  0; spell = "curse";          break;
  436. case  1: min_level =  3; spell = "weaken";         break;
  437. case  2: min_level =  6; spell = "chill touch";    break;
  438. case  3: min_level =  9; spell = "blindness";      break;
  439. case  4: min_level = 12; spell = "poison";         break;
  440. case  5: min_level = 15; spell = "energy drain";   break;
  441. case  6: min_level = 18; spell = "harm";           break;
  442. case  7: min_level = 21; spell = "teleport";       break;
  443. default: min_level = 24; spell = "gate";           break;
  444. }
  446. if ( ch->level >= min_level )
  447.     break;
  448.     }
  450.     if ( ( sn = skill_lookup( spell ) ) < 0 )
  451. return FALSE;
  452.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  453.     return TRUE;
  454. }
  458. bool spec_executioner( CHAR_DATA *ch )
  459. {
  460.     char buf[MAX_STRING_LENGTH];
  461.     CHAR_DATA *victim;
  462.     CHAR_DATA *v_next;
  463.     char *crime;
  465.     if ( !IS_AWAKE(ch) || ch->fighting != NULL )
  466. return FALSE;
  468.     crime = "";
  469.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  470.     {
  471. v_next = victim->next_in_room;
  473. if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_KILLER) )
  474.     { crime = "KILLER"; break; }
  476. if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_THIEF) )
  477.     { crime = "THIEF"; break; }
  478.     }
  480.     if ( victim == NULL )
  481. return FALSE;
  483.     sprintf( buf, "%s is a %s!  PROTECT THE INNOCENT!  MORE BLOOOOD!!!",
  484. victim->name, crime );
  485.     do_shout( ch, buf );
  486.     multi_hit( ch, victim, TYPE_UNDEFINED );
  487.     char_to_room( create_mobile( get_mob_index(MOB_VNUM_CITYGUARD) ),
  488. ch->in_room );
  489.     char_to_room( create_mobile( get_mob_index(MOB_VNUM_CITYGUARD) ),
  490. ch->in_room );
  491.     return TRUE;
  492. }
  496. bool spec_fido( CHAR_DATA *ch )
  497. {
  498.     OBJ_DATA *corpse;
  499.     OBJ_DATA *c_next;
  500.     OBJ_DATA *obj;
  501.     OBJ_DATA *obj_next;
  503.     if ( !IS_AWAKE(ch) )
  504. return FALSE;
  506.     for ( corpse = ch->in_room->contents; corpse != NULL; corpse = c_next )
  507.     {
  508. c_next = corpse->next_content;
  509. if ( corpse->item_type != ITEM_CORPSE_NPC )
  510.     continue;
  512. act( "$n savagely devours a corpse.", ch, NULL, NULL, TO_ROOM );
  513. for ( obj = corpse->contains; obj; obj = obj_next )
  514. {
  515.     obj_next = obj->next_content;
  516.     obj_from_obj( obj );
  517.     obj_to_room( obj, ch->in_room );
  518. }
  519. extract_obj( corpse );
  520. return TRUE;
  521.     }
  523.     return FALSE;
  524. }
  528. bool spec_guard( CHAR_DATA *ch )
  529. {
  530.     char buf[MAX_STRING_LENGTH];
  531.     CHAR_DATA *victim;
  532.     CHAR_DATA *v_next;
  533.     CHAR_DATA *ech;
  534.     char *crime;
  535.     int max_evil;
  537.     if ( !IS_AWAKE(ch) || ch->fighting != NULL )
  538. return FALSE;
  540.     max_evil = 300;
  541.     ech      = NULL;
  542.     crime    = "";
  544.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  545.     {
  546. v_next = victim->next_in_room;
  548. if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_KILLER) )
  549.     { crime = "KILLER"; break; }
  551. if ( !IS_NPC(victim) && IS_SET(victim->act, PLR_THIEF) )
  552.     { crime = "THIEF"; break; }
  554. if ( victim->fighting != NULL
  555. &&   victim->fighting != ch
  556. &&   victim->alignment < max_evil )
  557. {
  558.     max_evil = victim->alignment;
  559.     ech      = victim;
  560. }
  561.     }
  563.     if ( victim != NULL )
  564.     {
  565. sprintf( buf, "%s is a %s!  PROTECT THE INNOCENT!!  BANZAI!!",
  566.     victim->name, crime );
  567. do_shout( ch, buf );
  568. multi_hit( ch, victim, TYPE_UNDEFINED );
  569. return TRUE;
  570.     }
  572.     if ( ech != NULL )
  573.     {
  574. act( "$n screams 'PROTECT THE INNOCENT!!  BANZAI!!",
  575.     ch, NULL, NULL, TO_ROOM );
  576. multi_hit( ch, ech, TYPE_UNDEFINED );
  577. return TRUE;
  578.     }
  580.     return FALSE;
  581. }
  585. bool spec_janitor( CHAR_DATA *ch )
  586. {
  587.     OBJ_DATA *trash;
  588.     OBJ_DATA *trash_next;
  590.     if ( !IS_AWAKE(ch) )
  591. return FALSE;
  593.     for ( trash = ch->in_room->contents; trash != NULL; trash = trash_next )
  594.     {
  595. trash_next = trash->next_content;
  596. if ( !IS_SET( trash->wear_flags, ITEM_TAKE ) )
  597.     continue;
  598. if ( trash->item_type == ITEM_DRINK_CON
  599. ||   trash->item_type == ITEM_TRASH
  600. ||   trash->cost < 10 )
  601. {
  602.     act( "$n picks up some trash.", ch, NULL, NULL, TO_ROOM );
  603.     obj_from_room( trash );
  604.     obj_to_char( trash, ch );
  605.     return TRUE;
  606. }
  607.     }
  609.     return FALSE;
  610. }
  614. bool spec_mayor( CHAR_DATA *ch )
  615. {
  616.     static const char open_path[] =
  617. "W3a3003b33000c111d0d111Oe333333Oe22c222112212111a1S.";
  619.     static const char close_path[] =
  620. "W3a3003b33000c111d0d111CE333333CE22c222112212111a1S.";
  622.     static const char *path;
  623.     static int pos;
  624.     static bool move;
  626.     if ( !move )
  627.     {
  628. if ( time_info.hour ==  6 )
  629. {
  630.     path = open_path;
  631.     move = TRUE;
  632.     pos  = 0;
  633. }
  635. if ( time_info.hour == 20 )
  636. {
  637.     path = close_path;
  638.     move = TRUE;
  639.     pos  = 0;
  640. }
  641.     }
  643.     if ( ch->fighting != NULL )
  644. return spec_cast_cleric( ch );
  645.     if ( !move || ch->position < POS_SLEEPING )
  646. return FALSE;
  648.     switch ( path[pos] )
  649.     {
  650.     case '0':
  651.     case '1':
  652.     case '2':
  653.     case '3':
  654. move_char( ch, path[pos] - '0' );
  655. break;
  657.     case 'W':
  658. ch->position = POS_STANDING;
  659. act( "$n awakens and groans loudly.", ch, NULL, NULL, TO_ROOM );
  660. break;
  662.     case 'S':
  663. ch->position = POS_SLEEPING;
  664. act( "$n lies down and falls asleep.", ch, NULL, NULL, TO_ROOM );
  665. break;
  667.     case 'a':
  668. act( "$n says 'Hello Honey!'", ch, NULL, NULL, TO_ROOM );
  669. break;
  671.     case 'b':
  672. act( "$n says 'What a view!  I must do something about that dump!'",
  673.     ch, NULL, NULL, TO_ROOM );
  674. break;
  676.     case 'c':
  677. act( "$n says 'Vandals!  Youngsters have no respect for anything!'",
  678.     ch, NULL, NULL, TO_ROOM );
  679. break;
  681.     case 'd':
  682. act( "$n says 'Good day, citizens!'", ch, NULL, NULL, TO_ROOM );
  683. break;
  685.     case 'e':
  686. act( "$n says 'I hereby declare the city of Midgaard open!'",
  687.     ch, NULL, NULL, TO_ROOM );
  688. break;
  690.     case 'E':
  691. act( "$n says 'I hereby declare the city of Midgaard closed!'",
  692.     ch, NULL, NULL, TO_ROOM );
  693. break;
  695.     case 'O':
  696. do_unlock( ch, "gate" );
  697. do_open( ch, "gate" );
  698. break;
  700.     case 'C':
  701. do_close( ch, "gate" );
  702. do_lock( ch, "gate" );
  703. break;
  705.     case '.' :
  706. move = FALSE;
  707. break;
  708.     }
  710.     pos++;
  711.     return FALSE;
  712. }
  716. bool spec_poison( CHAR_DATA *ch )
  717. {
  718.     CHAR_DATA *victim;
  720.     if ( ch->position != POS_FIGHTING
  721.     || ( victim = ch->fighting ) == NULL
  722.     ||   number_percent( ) > 2 * ch->level )
  723. return FALSE;
  725.     act( "You bite $N!",  ch, NULL, victim, TO_CHAR    );
  726.     act( "$n bites $N!",  ch, NULL, victim, TO_NOTVICT );
  727.     act( "$n bites you!", ch, NULL, victim, TO_VICT    );
  728.     spell_poison( gsn_poison, ch->level, ch, victim );
  729.     return TRUE;
  730. }
  734. bool spec_thief( CHAR_DATA *ch )
  735. {
  736.     CHAR_DATA *victim;
  737.     CHAR_DATA *v_next;
  738.     int gold;
  740.     if ( ch->position != POS_STANDING )
  741. return FALSE;
  743.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  744.     {
  745. v_next = victim->next_in_room;
  747. if ( IS_NPC(victim)
  748. ||   victim->level >= LEVEL_IMMORTAL
  749. ||   number_bits( 2 ) != 0
  750. ||   !can_see( ch, victim ) ) /* Thx Glop */
  751.     continue;
  753. if ( IS_AWAKE(victim) && number_range( 0, ch->level ) == 0 )
  754. {
  755.     act( "You discover $n's hands in your wallet!",
  756. ch, NULL, victim, TO_VICT );
  757.     act( "$N discovers $n's hands in $S wallet!",
  758. ch, NULL, victim, TO_NOTVICT );
  759.     return TRUE;
  760. }
  761. else
  762. {
  763.     gold = victim->gold * number_range( 1, 20 ) / 100;
  764.     ch->gold     += 7 * gold / 8;
  765.     victim->gold -= gold;
  766.     return TRUE;
  767. }
  768.     }
  770.     return FALSE;
  771. }
  773. // @@@
  774. bool spec_taxidermist( CHAR_DATA *ch )
  775. {
  776.     OBJ_DATA *inv;
  777.     int sn;
  779.     if ( ch->position != POS_STANDING )
  780. return FALSE;
  782.     if ( ch->pIndexData->pShop == 0 ||
  783.          time_info.hour < ch->pIndexData->pShop->open_hour ||
  784.          time_info.hour > ch->pIndexData->pShop->close_hour )
  785.        return FALSE;
  787.     for ( inv = ch->carrying; inv != NULL; inv = inv->next_content )
  788.     {
  789.     if (inv->item_type == ITEM_CORPSE_NPC)
  790.        {
  791.        if ( ( sn = skill_lookup( "make purse" ) ) >= 0 )
  792.           (*skill_table[sn].spell_fun) ( sn, ch->level, ch, inv );
  793.        return TRUE;
  794.        }
  795.     else if (inv->wear_loc == WEAR_NONE && number_percent() < 5)
  796.        {
  797.        act( "$n suggests you buy $p.", ch, inv, NULL, TO_ROOM );
  798.        return TRUE;
  799.        }
  800.     }
  802.     return FALSE;
  803. }
  805. // @@@
  806. /* The start and end piers are hard-coded into Captain Swing.  If we need more
  807.    ferries we will have to give him something that encodes the vnums and the
  808.    current ferry state information */
  809. #define ROOM_VNUM_START 5950
  810. #define ROOM_VNUM_FINISH 5953
  811. #define OBJ_VNUM_TICKET 5953
  813. bool spec_capn_swing( CHAR_DATA *ch )
  814. {
  815.     static int state;                   /* Boat's current state, 0-11 */
  816.     static EXIT_DATA *exit_to_boat;     /* A 'doorless' door onto the boat,
  817.                                            disconnected when the ferry leaves
  818.                                            and reconnected when it returns. */
  820.     int has_ticket;                     /* Does the PC/Mob have a ticket? */
  821.     CHAR_DATA *passenger;               /* A passenger */
  822.     ROOM_INDEX_DATA *boat = ch->in_room->exit[1]->to_room; /* The boat room */
  823.     OBJ_DATA *obj;                      /* An inv object */
  824.     CHAR_DATA *sea_hag;                 /* A mob which boards the ship at sea */
  825.     CHAR_DATA *person;                  /* A person standing on the dock */
  826.     int i;
  828.     /* @@@ */
  829.     for (i = 0; i < 10; i++)
  830.        obj_to_room( create_money( 50 ),  boat);
  832.     switch(state) {
  833.     case 0: /* Check to see if anyone is on the boat */
  834.        for ( passenger = boat->people;
  835.              passenger;
  836.              passenger = passenger->next_in_room )
  837.           {
  838.           state = 1;
  839.           send_to_char("Captain Swing says 'All aboard?'.nr", passenger);
  840.           }
  841.        break;
  842.     case 1: /* Warn chars on boat they are going to Mahn-Tor */
  843.        state = 0;
  844.        for ( passenger = boat->people;
  845.              passenger;
  846.              passenger = passenger->next_in_room )
  847.           {
  848.           state = 2;
  849.           send_to_char("Captain Swing says 'Last call for Mahn-Tor!'.nr",
  850.              passenger);
  851.           }
  852.        break;
  854.     case 2: /* Check for tickets and leave the dock */
  855.        state = 0;
  856.        for ( passenger = boat->people;
  857.              passenger;
  858.              passenger = passenger->next_in_room )
  859.           {
  860.           /* We can't require immortals to have a ticket, as they might not
  861.              be able to afford one, and also might be able to kill Swing,
  862.              leaving the boat adrift until he repops. */
  863.           if ( IS_IMMORTAL(passenger) )
  864.              {
  865.              has_ticket = 1;
  866.              state = 3;
  867.              send_to_char( "Captain Swing has comped you.nr",
  868.                 passenger );
  869.              }
  870.           else
  871.              {
  872.              /* Check for a valid ferry ticket. */
  873.              has_ticket = 0;
  874.              for ( obj = passenger->carrying; obj; obj = obj->next_content )
  875.                 {
  876.                 if ( obj->pIndexData->vnum == OBJ_VNUM_TICKET )
  877.                 {
  878.                    has_ticket = 1;
  879.                    state = 3;
  880.                    extract_obj( obj );
  881.                    send_to_char( "Captain Swing collects your ticket.nr",
  882.                       passenger );
  883.                    }
  884.                 }
  885.              }
  887.           if (!has_ticket)
  888.              {
  889.              send_to_char( "Captain Swing notices you have no ticket and hurls"
  890.                            " you into the air.nr", passenger );
  891.              act( "$n is hurtled off by an angry Captain Swing.",
  892.                 passenger, NULL, NULL, TO_ROOM );
  893.              char_from_room( passenger );
  894.              char_to_room( passenger, boat->exit[3]->to_room );
  895.              act( "$n crashes to the ground.", passenger, NULL, NULL, TO_ROOM );
  896.              send_to_char( "You hit the ground, hard!nr", passenger);
  897.              do_look( passenger, "auto" );
  898.              }
  899.           }
  901.        /* Close and lock the pick-proof door, to prevent players from trying to
  902.           kill Captain Swing.  They shouldn't even be able to see him unless
  903.           they teleport into his room... */
  904.        SET_BIT(boat->exit[3]->exit_info, EX_CLOSED|EX_LOCKED);
  905.        for ( passenger = boat->people;
  906.              passenger;
  907.              passenger = passenger->next_in_room )
  908.           send_to_char("Captain Swing has secured the door.nr"
  909.              "You feel the boat begin to rock as it leaves the dock.nr",
  910.              passenger);
  912.        /* Remove the boat from the dock's list of exits */
  913.        exit_to_boat = get_room_index( ROOM_VNUM_START )->exit[1];
  914.        get_room_index( ROOM_VNUM_START )->exit[1] = 0;
  916.        /* Let people on the dock know the boat has left without them */
  917.        for ( person = get_room_index( ROOM_VNUM_START )->people;
  918.              person;
  919.              person = person->next_in_room )
  920.           send_to_char("A ship pulls away from the dock.nr", person);
  922.        state = 3;
  923.        break;
  925.     case 3: /* Boring.  Makes the boat ride take a long time */
  926.     case 4:
  927.     case 5:
  928.     case 6:
  929.     case 8:
  930.     case 9:
  931.        for ( passenger = boat->people;
  932.              passenger;
  933.              passenger = passenger->next_in_room )
  934.           send_to_char("You begin to feel seasick as"
  935.              " the ferry rocks up and down.nr", passenger);
  938.        state++;
  939.        break;
  941.     case 7: /* A sea monster invades the ship! */
  942.        if ( number_percent() < 33 )
  943.           {
  944.           sea_hag = create_mobile( get_mob_index(7041) );
  945.           char_to_room( sea_hag, boat );
  946.           act( "The porthole opens and $n climbs through!", sea_hag, NULL, NULL,
  947.              TO_ROOM );
  948.           }
  950.        state++;
  951.        break;
  953.     case 10: /* The boat lands at the far pier.  (There is no way to board) */
  954.        REMOVE_BIT(boat->exit[3]->exit_info, EX_CLOSED|EX_LOCKED);
  955.        boat->exit[3]->to_room = get_room_index( ROOM_VNUM_FINISH );
  956.        for ( passenger = boat->people;
  957.              passenger;
  958.              passenger = passenger->next_in_room )
  959.           send_to_char("You feel a gentle thud as the ferry docks.nr"
  960.              "Captain Swing opens the door and motions you to leave.nr",
  961.              passenger);
  963.        for ( person = get_room_index( ROOM_VNUM_FINISH )->people;
  964.              person;
  965.              person = person->next_in_room )
  966.           send_to_char("A ship pulls into the dock.nr", person);
  968.        state = 11;
  969.        break;
  971.     case 11: /* Get passengers off the boat so it can return to Midgaard */
  972.        state = 0;
  973.        for ( passenger = boat->people; passenger;
  974.                                          passenger = passenger->next_in_room )
  975.           {
  976.           /* The boat will not return until all passengers debark */
  977.           state = 11;
  978.           send_to_char("Captain Swing reminds you to debark promptly.nr",
  979.              passenger);
  980.           }
  982.        /* Did the boat return? */
  983.        if (state == 0)
  984.           {
  985.           /* The boat is now back at the start pier */
  986.           boat->exit[3]->to_room = get_room_index( ROOM_VNUM_START );
  988.           /* Add the boat to the dock's list of exits */
  989.           get_room_index( ROOM_VNUM_START )->exit[1] = exit_to_boat;
  991.           for ( person = get_room_index( ROOM_VNUM_START )->people;
  992.                 person;
  993.                 person = person->next_in_room )
  994.              send_to_char("A ship pulls into the dock.nr", person);
  995.           }
  997.        break;
  998.     }
  1000.     return FALSE;
  1001. }
  1003. bool spec_snake_charm( CHAR_DATA *ch )
  1004. {
  1005.     CHAR_DATA *victim;
  1006.     CHAR_DATA *v_next;
  1007.     char *spell;
  1008.     int sn;
  1010.     if ( ch->position != POS_FIGHTING )
  1011.        {
  1012.        switch ( number_bits( 3 ) ) {
  1013.        case 0:
  1014.           do_order( ch, "all sing charmer" ); /* a chance to get free here */
  1015.           break;
  1016.        case 1:
  1017.           do_order( ch,
  1018.              "all chat 'The snake charmer area is pretty cool.  "
  1019.              "I'm getting a lot of experience really fast!" );
  1020.           break;
  1021.        case 2:
  1022.           do_order( ch,
  1023.              "all chat 'YES!  I just got 327xp for killing the snake charmer!");
  1024.           break;
  1025.        case 3:
  1026.           do_order( ch, "all remove dagger" );
  1027.           do_order( ch, "all give dagger charmer" );
  1028.           break;
  1029.        case 4:
  1030.           do_order( ch, "all remove sword" );
  1031.           do_order( ch, "all give sword charmer" );
  1032.           break;
  1033.        case 5:
  1034.           do_order( ch, "all remove mace" );
  1035.           do_order( ch, "all give mace charmer" );
  1036.           break;
  1037.        case 6:
  1038.           do_order( ch, "all drop all" );
  1039.           break;
  1040.        case 7:
  1041.           do_order( ch, "all cast 'cure light' charmer" );
  1042.           break;
  1043.        };
  1045.        return TRUE;
  1046.        }
  1048.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1049.     {
  1050. v_next = victim->next_in_room;
  1051. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  1052.     break;
  1053.     }
  1055.     if ( victim == NULL )
  1056. return FALSE;
  1058. act( "$n begins playing a new, beautiful song.", ch, NULL, NULL, TO_ROOM );
  1059.     spell_charm_person(gsn_charm_person, ch->level, ch, victim );
  1060.     if (IS_AFFECTED(victim, AFF_CHARM))
  1061.        stop_fighting( victim, TRUE );
  1062. //       do_flee( victim, "" );
  1063. //       do_rest( victim, "" );
  1064. //       do_order( ch, "all rest" );
  1066.     return TRUE;
  1067. }
  1069. bool spec_hunger( CHAR_DATA *ch )
  1070. {
  1071.     CHAR_DATA *victim;
  1072.     OBJ_DATA *obj;
  1073.     OBJ_DATA *obj_next;
  1075.     if ( !IS_AWAKE(ch) )
  1076. return FALSE;
  1078.     for ( victim = ch->in_room->people; victim; victim = victim->next_in_room )
  1079. if ( number_bits( 2 ) == 0 )
  1080.     break;
  1082.     if ( victim == NULL )
  1083. return FALSE;
  1085.     if ( !IS_NPC(victim) )
  1086.        victim->pcdata->condition[COND_FULL] = 0;
  1088.     for ( obj = victim->carrying; obj; obj = obj_next )
  1089.        {
  1090.        obj_next = obj->next_content;
  1091.        if ( obj->item_type == ITEM_FOOD )
  1092.           {
  1093.           extract_obj( obj );
  1094.           act( "Chomp!", ch, NULL, NULL, TO_ROOM );
  1095.           }
  1096.        }
  1098.     act( "$n looks a little healthier.", ch, NULL, NULL, TO_ROOM );
  1099.     return TRUE;
  1100. }
  1102. // @@@ ###
  1103. /*
  1104.    spec_cast_from_list-
  1105.       I copied the basic structure from spec_cast_undead.  The first time any
  1106.       mobile with this vnum gets pulsed, the cargo for this mobile vnum is
  1107.       initialized.  From then on, the mobile will cast spells in it's cargo.
  1108. */
  1110. struct string_cargo_struct {
  1111.    int ncount;
  1112.    char *string_list[16];      /* Allow up to 16 spells / mobile vnum */
  1113. };
  1115. void check_init_cargo( CHAR_DATA *ch )
  1116. {
  1117.     struct string_cargo_struct *cls;
  1119.     if (ch->pIndexData->cargo == 0)
  1120.        {
  1121.        /* remove the @ from the mobile's description */
  1122.        char *q = strchr(ch->pIndexData->description, '@');
  1123.        int ncount = 0;
  1125.        // Allocate the cargo
  1126.        ch->pIndexData->cargo = cls = alloc_perm( sizeof (*cls) );
  1128.        /* Is there a spell cargo? */
  1129.        if (q)
  1130.           {
  1131.           /* count the spells */
  1132.           while (*q)
  1133.              {
  1134.              *q++ = '';  /* Break descr after @ into spell text */
  1135.              while (isspace(*q))
  1136.                 q++;
  1137.              if (*q)
  1138.                 {
  1139.                 if (ncount < 16)
  1140.                    cls->string_list[ncount++] = q;
  1141.                 while (*q && *q != 'n')
  1142. //                   {
  1143. //                   if (*q == '_') /* fix _ in spell names to a space */
  1144. //                      *q = ' ';
  1145.                    q++;
  1146. //                   }
  1147.                 }
  1148.              }
  1149.           }
  1151.        cls->ncount = ncount;
  1152.        }
  1153. }
  1155. bool spec_cast_from_list( CHAR_DATA *ch )
  1156. {
  1157.     CHAR_DATA *victim;
  1158.     CHAR_DATA *v_next;
  1159.     char *spell;
  1160.     int sn;
  1161.     struct string_cargo_struct *cls;
  1162.     int nwhich;
  1164.     /* Do we need to initialize cargo? */
  1165.     check_init_cargo(ch);
  1167.     cls = ch->pIndexData->cargo;
  1168.     if ( ch->position != POS_FIGHTING || cls->ncount == 0)
  1169. return FALSE;
  1171.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1172.     {
  1173. v_next = victim->next_in_room;
  1174. if ( victim->fighting == ch && number_bits( 2 ) == 0 )
  1175.     break;
  1176.     }
  1178.     if ( victim == NULL )
  1179. return FALSE;
  1181.     // Calculate the spell randomly from mobile's table
  1182.     nwhich = number_range(0, cls->ncount-1);
  1183.     sn = skill_lookup( cls->string_list[nwhich] );
  1184.     if (sn < 0)
  1185.        return FALSE;
  1187.     /* If the spell is defensive, the mobile casts on itself.  This allows it
  1188.        to heal itself, bless itself, etc.  All other spells are cast on the
  1189.        character the mob is fighting.  For offensive spells that is cool.  For
  1190.        SELF spells it's not cool, if the mob casts 'STONE SKIN' say it will be
  1191.        on the victim, not itself.  This is to allow TELEPORT to teleport the
  1192.        victim away, like mages do.  Good idea?  I don't know...
  1193.        If the spell has no target, like 'EARTHQUAKE', it is probably a bad idea
  1194.        to have the mobile cast it...  The spell is probably coded to hit all
  1195.        NPCs... */
  1196.     if (skill_table[sn].target == TAR_CHAR_DEFENSIVE)
  1197.        (*skill_table[sn].spell_fun) ( sn, ch->level, ch, ch );
  1198.     else
  1199.        (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  1200.     return TRUE;
  1201. }
  1203. bool spec_shopkeeper( CHAR_DATA *ch )
  1204. {
  1205.     OBJ_DATA *inv;
  1206.     struct string_cargo_struct *cls;
  1208.     /* Make sure the cargo was safely initialized */
  1209.     check_init_cargo(ch);
  1211.     if ( !IS_AWAKE(ch) || ch->position != POS_STANDING )
  1212. return FALSE;
  1214.     cls = ch->pIndexData->cargo;
  1215.     for ( inv = ch->carrying; inv != NULL; inv = inv->next_content )
  1216.     {
  1217.     int npercent = (cls->ncount >= 2) ? atoi(cls->string_list[1]) : 5;
  1218.     if (inv->wear_loc == WEAR_NONE && number_percent() < npercent)
  1219.        {
  1220.        if (cls->ncount)
  1221.           act( cls->string_list[0], ch, inv, NULL, TO_ROOM );
  1222.        else
  1223.           act( "$n suggests you buy a $p.", ch, inv, NULL, TO_ROOM );
  1224.        return TRUE;
  1225.        }
  1226.     }
  1228.     return FALSE;
  1229. }
  1231. // @@@ Modify to take a list of objects
  1232. bool spec_obj_bribe( CHAR_DATA *ch )
  1233. {
  1234.     OBJ_DATA *inv;
  1235.     int nobjvnum;
  1236.     struct string_cargo_struct *cls;
  1237.     char *p;
  1238.     char buf[MAX_STRING_LENGTH];
  1239.     sh_int old_trust;
  1241.     /* Make sure the cargo was safely initialized */
  1242.     check_init_cargo(ch);
  1244.     if ( ch->position != POS_STANDING )
  1245. return FALSE;
  1247.     cls = ch->pIndexData->cargo;
  1248.     if (!IS_AWAKE(ch) || cls->ncount < 2)
  1249.        return FALSE;
  1251.     for (p = cls->string_list[0]; *p; )
  1252.     {
  1253.        nobjvnum = atoi(p);
  1254.        for ( inv = ch->carrying; inv != NULL; inv = inv->next_content )
  1255.        {
  1256.        if (inv->pIndexData->vnum == nobjvnum)
  1257.           {
  1258.           int nwhich = number_range(1, cls->ncount-1);
  1259.           char *q;
  1260.           extract_obj( inv );
  1261.           q = p = cls->string_list[nwhich];
  1262.           if (*p)
  1263.              for ( ;; )
  1264.                 {
  1265.                 if (*p == ';' || *p == '')
  1266.                    {
  1267.                    memcpy(buf, q, p-q);
  1268.                    buf[p-q] = '';
  1269.                    old_trust = ch->trust;
  1270.                    ch->trust = 55;        /* Safe on TFC? */
  1271.                    interpret(ch, buf);
  1272.                    ch->trust = old_trust;
  1273.                    if (*p == '')
  1274.                       return TRUE;
  1276.                    q = p+1;
  1277.                    }
  1279.                 p++;
  1280.                 }
  1281.           }
  1282.        }
  1284.        while (*p && *p != ' ')
  1285.           p++;
  1286.        if (*p)
  1287.          p++;
  1288.     }
  1290.     return FALSE;
  1291. }
  1293. OBJ_DATA *is_wielding(CHAR_DATA *victim, char *vnum_list)
  1294. {
  1295.     OBJ_DATA *obj;
  1296.     int nobjvnum;
  1298.     while (*vnum_list)
  1299.     {
  1300.        nobjvnum = atoi(vnum_list);
  1301.        for ( obj = victim->carrying; obj != NULL; obj = obj->next_content )
  1302.        {
  1303.           if ( obj->pIndexData->vnum == nobjvnum && obj->wear_loc != -1)
  1304.              return obj;
  1305.        }
  1307.        while (*vnum_list && *vnum_list != ' ')
  1308.           vnum_list++;
  1309.        if (*vnum_list == ' ')
  1310.           vnum_list++;
  1311.    }
  1313.    return 0;
  1314. }
  1316. bool spec_agg_no_object( CHAR_DATA *ch )
  1317. {
  1318.     char buf[MAX_STRING_LENGTH];
  1319.     CHAR_DATA *victim;
  1320.     CHAR_DATA *v_next;
  1321.     struct string_cargo_struct *cls;
  1322. //    OBJ_DATA *obj;
  1323. //    int nobjvnum;
  1325.     /* Make sure the cargo was safely initialized */
  1326.     check_init_cargo(ch);
  1328.     cls = ch->pIndexData->cargo;
  1329.     if (!IS_AWAKE(ch) || cls->ncount < 2 || ch->fighting != NULL)
  1330.        return FALSE;
  1332. //    nobjvnum = atoi(cls->string_list[0]);
  1333.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1334.     {
  1335.     v_next = victim->next_in_room;
  1337.     if (!IS_NPC(victim))
  1338.        if (!is_wielding(victim, cls->string_list[0]))
  1339.        {
  1340. // act( "$n screams 'PROTECT THE INNOCENT!!  BANZAI!!",
  1341.        act( cls->string_list[1], ch, NULL, NULL, TO_ROOM );
  1342.     multi_hit( ch, victim, TYPE_UNDEFINED );
  1343.        return TRUE;
  1344.        }
  1345.     }
  1347.     return FALSE;
  1348. }
  1350. bool spec_follow_mob( CHAR_DATA *ch )
  1351. {
  1352.     char buf[MAX_STRING_LENGTH];
  1353.     CHAR_DATA *victim;
  1354.     CHAR_DATA *v_next;
  1355.     struct string_cargo_struct *cls;
  1356.     OBJ_DATA *obj;
  1357.     int nmobvnum;
  1359.     /* Make sure the cargo was safely initialized */
  1360.     check_init_cargo(ch);
  1362.     cls = ch->pIndexData->cargo;
  1363.     if (!IS_AWAKE(ch) || cls->ncount < 1 || ch->fighting != NULL || ch->master)
  1364.        return FALSE;
  1366.     nmobvnum = atoi(cls->string_list[0]);
  1367.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1368.     {
  1369.     v_next = victim->next_in_room;
  1371.     if (IS_NPC(victim) && victim->pIndexData->vnum == nmobvnum)
  1372.        {
  1373.        add_follower( ch, victim );
  1374.        break;
  1375.        }
  1376.     }
  1378.     return FALSE;
  1379. }
  1381. struct char_cargo_struct {
  1382.    int timer;
  1383.    int state;
  1384. };
  1386. /*
  1387.    Blight-generator:  Makes mobs aggressive.  (Ages...  starts out as some kind
  1388.       of low-level and when it gets to high level it changes its descr and
  1389.       starts up.--maybe)
  1390. */
  1391. // @@@ Modify this to take a list...
  1392. bool spec_generator( CHAR_DATA *ch )
  1393. {
  1394.     char buf[MAX_STRING_LENGTH];
  1395.     CHAR_DATA *victim;
  1396.     CHAR_DATA *v_next;
  1397.     struct string_cargo_struct *cls;
  1398.     OBJ_DATA *obj;
  1399.     struct char_cargo_struct *mobcargo = ch->cargo;
  1401.     /* Make sure the cargo was safely initialized */
  1402.     check_init_cargo(ch);
  1404.     /* If this mob is freshly popped, initialize the character cargo */
  1405.     if (mobcargo == 0)
  1406.        {
  1407.        mobcargo = ch->cargo = calloc(1, sizeof (struct char_cargo_struct));
  1408.        mobcargo->timer = 0;
  1409.        mobcargo->state = 0;
  1410.        }
  1412.     cls = ch->pIndexData->cargo;
  1413.     if (!IS_AWAKE(ch) || cls->ncount < 1 || ch->fighting != NULL)
  1414.        return FALSE;
  1416.     if (mobcargo->state < cls->ncount-1)
  1417.        {
  1418.        if (mobcargo->timer++ >= 10)
  1419.           {
  1420.           char buf[128];
  1421.           sprintf(buf, "New state is %d", ++mobcargo->state); // @@@
  1422.           free_string( ch->description );
  1423.         ch->description = str_dup( buf );
  1424.           act( "You here the sound of stretching and tearing.",
  1425.              ch, NULL, NULL, TO_ROOM );
  1426.           ch->level += 30 / cls->ncount + 1;
  1427.           ch->max_hit = ch->level * 8 + number_range(
  1428.    ch->level * ch->level / 4,
  1429.    ch->level * ch->level );
  1431.           mobcargo->timer = 0;
  1432.           }
  1433.        }
  1434.     else
  1435.        for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1436.        {
  1437.           v_next = victim->next_in_room;
  1439.           if (IS_NPC(victim) && !saves_spell(ch->level, victim))
  1440.           {
  1441.              victim->act |= ACT_AGGRESSIVE;
  1442.              victim->act &= ~ACT_WIMPY; /* Add Super-Wimp if desired */
  1443.              victim->alignment = -1000;
  1444.           }
  1445.        }
  1447.     return FALSE;
  1448. }
  1450. /*
  1451.    Blight-fighter:  A cityguard that attacks aggressive mobs.
  1452. */
  1453. // @@@ Modify this to take a list...
  1454. bool spec_defend_vs_agg( CHAR_DATA *ch )
  1455. {
  1456.     char buf[MAX_STRING_LENGTH];
  1457.     CHAR_DATA *victim;
  1458.     CHAR_DATA *v_next;
  1459.     struct string_cargo_struct *cls;
  1460.     OBJ_DATA *obj;
  1461.     int nobjvnum;
  1463.     /* Make sure the cargo was safely initialized */
  1464.     check_init_cargo(ch);
  1466.     cls = ch->pIndexData->cargo;
  1467.     if (!IS_AWAKE(ch) || ch->fighting != NULL)
  1468.        return FALSE;
  1470.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1471.     {
  1472.     v_next = victim->next_in_room;
  1474.     if (victim != ch && IS_NPC(victim) &&
  1475.         (victim->act & ACT_AGGRESSIVE) == ACT_AGGRESSIVE)
  1476.        {
  1477.        if (cls->ncount < 1)
  1478.           act( "$n screams 'PROTECT THE INNOCENT!!  BANZAI!!", ch, NULL, NULL,
  1479.              TO_ROOM);
  1480.        else
  1481.           act( cls->string_list[0], ch, NULL, NULL, TO_ROOM );
  1483.     multi_hit( ch, victim, TYPE_UNDEFINED );
  1484.        return TRUE;
  1485.        }
  1486.     }
  1488.     return FALSE;
  1489. }
  1491. /*
  1492.    Agg-if-object:  Attacks players who have an item in their inventory, say
  1493.    alcohol or they have stolen some holy relic.
  1494. */
  1495. // @@@ Modify this to take a list...
  1496. bool spec_agg_if_object( CHAR_DATA *ch )
  1497. {
  1498.     char buf[MAX_STRING_LENGTH];
  1499.     CHAR_DATA *victim;
  1500.     CHAR_DATA *v_next;
  1501.     struct string_cargo_struct *cls;
  1502.     OBJ_DATA *obj;
  1503.     int nobjvnum;
  1505.     /* Make sure the cargo was safely initialized */
  1506.     check_init_cargo(ch);
  1508.     cls = ch->pIndexData->cargo;
  1509.     if (!IS_AWAKE(ch) || cls->ncount < 2 || ch->fighting != NULL)
  1510.        return FALSE;
  1512.     nobjvnum = atoi(cls->string_list[0]);
  1513.     for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1514.     {
  1515.        v_next = victim->next_in_room;
  1517.     /* @@@ This needs to be replaced with a no-hassle check */
  1518.     if (!IS_IMMORTAL(victim))
  1519.     {
  1520.        for ( obj = victim->carrying; obj != NULL; obj = obj->next_content )
  1521.        {
  1522.        if ( obj->pIndexData->vnum == nobjvnum )
  1523.           break;
  1524.        }
  1526.        if (obj)
  1527.        {
  1528.        act( cls->string_list[1], ch, NULL, NULL, TO_ROOM );
  1529.     multi_hit( ch, victim, TYPE_UNDEFINED );
  1530.        return TRUE;
  1531.        }
  1532.     }
  1533.     }
  1535.     return FALSE;
  1536. }
  1538. bool spec_circuit( CHAR_DATA *ch )
  1539. {
  1540.     OBJ_DATA *inv;
  1541.     int nobjvnum;
  1542.     struct string_cargo_struct *cls;
  1543.     struct char_cargo_struct *mobcargo = ch->cargo;
  1545.     /* Make sure the cargo was safely initialized */
  1546.     check_init_cargo(ch);
  1548.     /* If this mob is freshly popped, initialize the character cargo */
  1549.     if (mobcargo == 0)
  1550.        {
  1551.        mobcargo = ch->cargo = calloc(1, sizeof (struct char_cargo_struct));
  1552.        mobcargo->timer = 0;
  1553.        mobcargo->state = 0;
  1554.        }
  1556.     // Is the mob able to perform it's next action?
  1557.     cls = ch->pIndexData->cargo;
  1558.     if (!IS_AWAKE(ch) || cls->ncount < 1 || ch->fighting != NULL)
  1559.        return FALSE;
  1561.     // Is it time for a state change?
  1562.     // @@@ 10 is hardcoded...
  1563.     if (mobcargo->timer++ >= 10)
  1564.        {
  1565.        interpret(ch, cls->string_list[mobcargo->state]);
  1566.        mobcargo->timer = 0;
  1567.        if (mobcargo->state < cls->ncount-1)
  1568.           mobcargo->state++;
  1569.        else
  1570.           mobcargo->state = 0;
  1572.        return TRUE;
  1573.        }
  1575.     return FALSE;
  1576. }
  1578. /* This spec-fun lets mobs act the way they do on some muds--Remebering who
  1579.    they last fought against and going aggressive against that player.
  1580. */
  1581. bool spec_hatred( CHAR_DATA *ch )
  1582. {
  1583.     char *char_enemy = ch->cargo;   /* Store current hated char in cargo */
  1584.     CHAR_DATA *victim, *v_next;
  1586.     if (!IS_AWAKE(ch))              /* Mob can't hate while asleep */
  1587.        return FALSE;
  1589.     if (ch->fighting)               /* Is the mobile fighting? */
  1590.        {
  1591.        /* If the mobile is fighting a player, check and see if it is a player
  1592.           the mobile doesn't currently hate. */
  1593.        if (!IS_NPC(ch->fighting) &&
  1594.           (!char_enemy ||
  1595.            str_cmp(ch->fighting->name, char_enemy) == TRUE))
  1596.           {
  1597.           free_string( char_enemy );
  1598.           ch->cargo = str_dup( ch->fighting->name );
  1599.           }
  1600.        }
  1602.     /* The mobile is not fighting.  Does the mobile hate anyone? */
  1603.     else if (char_enemy)
  1604.        {
  1605.        /* Check the room for the player the mobile hates: */
  1606.        for ( victim = ch->in_room->people; victim != NULL; victim = v_next )
  1607.          {
  1608.          v_next = victim->next_in_room;
  1610.          /* @@@ A no-hassle check is needed here. */
  1611.          if (!IS_NPC(victim) && str_cmp(victim->name, char_enemy) == FALSE)
  1612.             {
  1613.             act( "$n screams with rage!", ch, NULL, NULL, TO_ROOM );
  1614.           multi_hit( ch, victim, TYPE_UNDEFINED );
  1615.             return TRUE;
  1616.             }
  1617.          }
  1618.        }
  1620.     return FALSE;
  1621. }
  1623. /*
  1624.  * Psionicist spec_fun by Thelonius for EnvyMud.
  1625.  */
  1626. bool spec_cast_psionicist( CHAR_DATA *ch )
  1627. {
  1628.     CHAR_DATA *victim;
  1629.     char      *spell;
  1630.     int        sn;
  1632.     if ( ch->position != POS_FIGHTING )
  1633.         return FALSE;
  1635.     for ( victim = ch->in_room->people; victim; victim = victim->next_in_room )
  1636.     {
  1637.         if ( victim->fighting == ch && can_see( ch, victim )
  1638.     && number_bits( 2 ) == 0 )
  1639.             break;
  1640.     }
  1642.     if ( !victim )
  1643.         return FALSE;
  1645.     for ( ; ; )
  1646.     {
  1647.         int min_level;
  1649.         switch ( number_bits( 4 ) )
  1650.         {
  1651.         case  0: min_level =  0; spell = "mind thrust";          break;
  1652.         case  1: min_level =  4; spell = "psychic drain";        break;
  1653.         case  2: min_level =  6; spell = "agitation";            break;
  1654.         case  3: min_level =  8; spell = "psychic crush";        break;
  1655.         case  4: min_level =  9; spell = "project force";        break;
  1656.         case  5: min_level = 13; spell = "ego whip";             break;
  1657.         case  6: min_level = 14; spell = "energy drain";         break;
  1658.         case  7:
  1659.         case  8: min_level = 17; spell = "psionic blast";        break;
  1660.         case  9: min_level = 20; spell = "detonate";             break;
  1661. case 10: min_level = 27; spell = "disintegrate";         break;
  1662.         default: min_level = 25; spell = "ultrablast";           break;
  1663.         }
  1665.         if ( ch->level >= min_level )
  1666.             break;
  1667.     }
  1669.     if ( ( sn = skill_lookup( spell ) ) < 0 )
  1670.         return FALSE;
  1671.     (*skill_table[sn].spell_fun) ( sn, ch->level, ch, victim );
  1672.     return TRUE;
  1673. }
  1675. #if 0
  1676. /* This current version of spec_animated_dead just emotes.  It could be
  1677.    enhanced in all kinds of ways...  Tying in HPs with the charm-master,
  1678.    turning on the charm master, etc.  When the charm wears off, the mobile
  1679.    turns to dust.
  1680. */
  1681. bool spec_animated_dead( CHAR_DATA *ch )
  1682. {
  1683.    if ( !IS_AFFECTED(ch, AFF_CHARM) )
  1684.       {
  1685.     act( "$n crumbles into dust.", ch, NULL, NULL, TO_ROOM );
  1687.       stop_fighting( ch, TRUE );
  1688.       /* Uncomment the following line if you have mobprogs */
  1689.       /* mprog_death_trigger( ch ); */
  1691.       extract_char( ch, TRUE );
  1693.       return TRUE;
  1694.       }
  1696.    switch ( number_bits(5) )
  1697.    {
  1698.    case 0:
  1699.     act( "Another gobbet of lose flesh falls off $n.", ch, NULL, NULL, TO_ROOM );
  1700.       return TRUE;
  1701.    case 1:
  1702.     act( "$n lets loose with a blood-curdling wail.", ch, NULL, NULL, TO_ROOM );
  1703.       return TRUE;
  1704.    case 2:
  1705.     act( "$n's odor is getting very bad.  You gag.", ch, NULL, NULL, TO_ROOM );
  1706.       return TRUE;
  1707.    default:
  1708.       break;
  1709.    }
  1711.    return FALSE;
  1712. }
  1713. #else
  1714. bool spec_animated_dead( CHAR_DATA *ch )
  1715. {
  1716.    act( "$n crumbles into dust.", ch, NULL, NULL, TO_ROOM );
  1718.    stop_fighting( ch, TRUE );
  1719.    /* Uncomment the following line if you have mobprogs */
  1720.    /* mprog_death_trigger( ch ); */
  1722.    extract_char( ch, TRUE );
  1724.    return TRUE;
  1725. }
  1726. #endif