好久没有兴趣写这样地东西玩了，
手机，像模像样地仿照电信做，呵呵。
刚开始那会我真很热衷做各种自己
觉得有趣地东西，现在...sigh
不过里头计费那个我是其实是受水儿地
启发，用的心跳，以前我都没想到心跳这么
好用地，呵呵。
贴出来吧，反正没有水。
里头有个bug,我少判断了一个条件。
// /obj/tele/nokia.c
// a model of handphone
// ver 1.0 by akuma@mudnow
// last modify 2000/10/3
// jason make it a indeed phone 2001-5-27
#include  //这个没什么大用。
#include
inherit HANDPHONE;
int phone_time=0;
#define PRICE 1
//int wait_for_recall(object,object);
void create()
{
        set_name("Nokia 3210手机", ({ "nokia","3210" }) );
        set("long",
        "这是一部崭新的Nokia 3210手机，号称“一键通”、“彩壳随心换”。\n"
        "重量约和一块砖头相仿，虽然是内置天线，通话质量倒还算是不错。\n"
        "仔细看时，背面还有一行小字：\n"
        "          北京英迪时空科技发展有限公司祝您玩的开心！          \n"
        "用phone id来打电话，这是英迪公司提供的id解析功能。\n"
        "请用send 内容  来通话。如果您要结束通话，请用hangup指令"
        "特别提示：虚拟电信实行两秒计费，每两秒收费2分。\n"
        );
        set("menu",([
                "打电话给":"phone ...",
                "发送":"send ...",
                "挂机":"hangup",
                "缴费":"turnin ...",
                "查询":"checkmoney",
        ]));
        set_weight(129);
        set("value",120000);
        set("wap_type",NOWAP);
        set("unit", "部");
        set("material", "plastic");
        setup();
}
void init()
{
        add_action("do_phone","phone");
        add_action("do_send","send");
        add_action("do_hangup","hangup");
        add_action("do_turnin","turnin");
        add_action("do_check","checkmoney");
//        add_action("do_jieting","jieting");
}
void heart_beat()
{
        phone_time+=2;
        return;
}
void turn_heart_beat(int flag)
{
        if(flag>0) set_heart_beat(1);
                else set_heart_beat(0);
}
void reset_phone_time()
{
        phone_time=0;
}
int do_phone(string arg)
{
        object me,ppl,target,phone2;
        me=this_object();
        ppl=this_player();
        if(environment(me)!=ppl)
        {
                write("那是别人的手机，不好乱用吧？\n");
                return 1;
        }
        if(!arg||arg=="")
        {
                write("你要给谁打电话？\n");
                return 1;
        }
        if(ppl->query("phone/money")<=0)
        {
                write("您的电话费已经用完了，请即时续费。\n");
                return 1;
        }
        if(ppl->query_temp("is_phone")==1)
        {
                write("你正在通话中。。。\n");
                return 1;
        }
        if(!objectp(target=find_player(arg)))
        {
                write("嘟..嘟..嘟..没有这个电话号码。。\n");
                return 1;
        }
        if(!objectp(phone2=present("nokia",target)))
        {
                write("嘟..嘟..嘟..没有这个电话号码。。\n");
                return 1;
        }
        if(target==ppl)
        {