// Message spell. // Mobydick, 11-18-92. // Part of the good old MudOS mudlib. Please leave this header on. #include <mudlib.h> inherit DAEMON ; varargs int cast (string str, int obj) { object target ; int sp, cost, skill ; if (str=="NONE") { write ("To whom do you wish to send a message?\n") ; return 1 ; } str = lower_case(str) ; target = find_player(str) ; if (!target) { write ("That person is not logged on.\n") ; return 1 ; } // If obj==1, then the spell call came from an object and we do not want // to assess the spell points cost. if (obj!=1) { sp = this_player()->query("spell_points") ; skill = this_player()->query_skill("Divinations spells") ; cost = 100/(skill+10) ; if (sp<cost) { write ("You haven't got enough spell points to cast it.\n") ; return 1 ; } this_player()->set ("spell_points", sp-cost) ; } this_player()->message_cast(target) ; this_player()->improve_skill("Divinations spells", 5) ; return 1 ; }