/* -*- LPC -*- */ /* * $Locker: $ * $Id: email.c,v 1.1 1998/01/06 05:29:43 ceres Exp $ * $Log: email.c,v $ * Revision 1.1 1998/01/06 05:29:43 ceres * Initial revision * */ #include <player.h> inherit "/cmds/base"; #define TP this_player() int cmd(string str) { string email; email = TP->query_email(); if (!str) { write("Your current email address is "+email+"\n"); write("To clear use \"email CLEAR\"\n"); write("For the email address to be only visible by lords prepend a :\n"); write("eg email :frog@frogcentral.froguni.swamp\n"); return 1; } if (str == "CLEAR") email = ""; else email = str; if (email != "") write("Email address set to "+str+".\n"); else write("Email address is null.\n"); TP->set_email(email); return 1; }