【转帖】qn 银行(上)

[dayu]

潜能银行

inherit ROOM;

int deposit(string arg, object ob);
int check(string arg, object ob);
int withdraw(string arg, object ob);

void create ()
{
set ("short", "潜能银行");
set ("long", @LONG

这是一家由心动大侠开设的为玩家储存潜能的银行。
声誉非常好，在全国只有一家，别无分号。在南面
有一块用一整块大理石雕刻的屏风。银行的门口挂
有一块黄金做的牌子(paizi)。

LONG);
set("item_desc", ([
"paizi": @TEXT
这里是潜能银行，目前我们提供的服务有：

qn_cha 查潜能。
qn_cun 存潜能。
qn_qu 取潜能。

注意：上限是一千万。
另： 江湖朋友取的时候会扣掉0.1%的潜能，
至于经常来捣乱的吗？嘿嘿......
TEXT,
"pingfeng": "这个大理石屏风似乎可以推开(push)。\n",
"屏风" : "这个大理石屏风似乎可以推开(push)。\n",
"大理石屏风" : "这个大理石屏风似乎可以推开(push)。\n"
]) );
set("exits", ([ /* sizeof() == 4 */
"up" : "/d/city/basement",

]));
set("objects", ([ /* sizeof() == 2 */
"/d/city/npc/yhguanshi" : 1,
]));
//set("no_fight", 1);
set("no_magic", 1);
setup();

}

void init()
{
// add_action("do_deposit", "qn_cun")
add_action("do_check", "qn_cha");
add_action("do_withdraw", "qn_qu");
add_action("do_push", "push");

}

int do_deposit(string arg, object ob)
{
string what;
int amount;
object what_ob, me,who;
me = this_player();
who = this_object();

if(!arg || sscanf(arg, "%d", amount) !=1)
{
return notify_fail("命令格式：qn_cun <数量>\n");
}

if(((int)me->query("potential")-(int)me->query("learned_points")) < amount)
{
return notify_fail("你没有这么多潜能。\n");
}

if(amount<0) //没有这一行，若了不少祸。cry
{
object *objs = all_inventory(me);
int i = sizeof (objs);
message_vision ("$N想存入负潜能？grin...\n 空中突然伸出一只金箍棒，向$N的后脑砸了下去。\n",me);
me->unconcious(); //昏
while (i--) //没收东西
{
object obj = objs;
message_vision ("$N身上的"+obj->query("name")+"莫名其妙的飞走了。\n",me);
obj->move(me);
destruct(obj);
}
return 1;
}




// me->start_busy(3);//设置延时
message_vision(sprintf("$N拿出%s点潜能，存进了银行。\n",
chinese_number(amount)), me);
me->add("qn_balance",amount);
me->add("potential",-amount);

me->save();

return 1;
}

int do_check()
{
int total = (int)this_player()->query("qn_balance");

if(!total || total < 0) {
this_player()->set("qn_balance", 0);
return notify_fail("这现在这里没有你的潜能。\n");
}
write("您在敝银行共存有" +
chinese_number(total) + "点潜能。\n");

return 1;
}

int do_withdraw(string arg)
{
int amount, v, sl,rv;
string what;
object me;

me = this_player();
sl = me->query("daoluan");

if (!arg || sscanf(arg, "%d", amount) != 1)
{
return notify_fail("命令格式：qn_qu <数量>\n");
}

if (amount < 1)
{
return notify_fail("你想取出多少潜能？\n");
}

if ((v = amount) > me->query("qn_balance"))
{
return notify_fail("你存的潜能不够取。\n");
}

rv = v;

if(sl<1)
{
if(v<1000)
{
v=v-1;
me->add("qn_balance", -rv);
me->add("potential",v);
me->save();
message_vision(sprintf("$N从银行里取出%s点潜能。\n", chinese_number(v)),me);
}
else
{
sl=1;
v = v-v*sl/1000;
me->add("qn_balance", -rv);
me->add("potential",v);
me->save();
message_vision(sprintf("$N从银行里取出%s点潜能。\n", chinese_number(v)),me);
}
}

if(sl>1)
{
if(v<1000)
{
v=v-sl;
me->add("qn_balance", -rv);
me->add("potential",v);
me->save();
message_vision(sprintf("因为$N来这捣乱过%d次,所以$N的税率是千分之%s.\n",sl,chinese_number(sl)),me);
message_vision(sprintf("$N从银行里取出%s点潜能。\n", chinese_number(v)),me);
}
else
{
v = v-v*sl/1000;
me->add("qn_balance", -rv);
me->add("potential",v);
me->save();
message_vision(sprintf("因为$N来这捣乱过%d次,所以$N的税率是千分之%s.\n",sl,chinese_number(sl)),me);
message_vision(sprintf("$N从银行里取出%s点潜能。\n", chinese_number(v)),me);
}
}
return 1;
}


void close_path()
{
if( !query("exits/north") ) return;
message("vision",
"大理石屏风又移回了原位，盖住了暗门。\n",
this_object() );
delete("exits/south");
}


int do_push(string arg)
{
object me;
me = this_player();
if( !arg || arg=="" ) return 0;

if( arg=="pingfeng" || arg =="屏风" || arg=="大理石屏风") {
write("你推开大理石屏风，");
if( (int) me->query("force_factor") >= 150 )
{
write("推开了后面向南的一扇暗门。\n");
if( !query("exits/west") ) {
set("exits/south",/d/city/npc/"wenrouxiang");
call_out("close_path", 5);
}
return 1;
}
else
write("试着推了推后面的暗门，但没有推开。\n");
return 1;
}
write("你要推开什么？\n");
}

[ppgg]

[kkkkk]

看看再说
哈哈
~~~~~~~

[fengyue_xyj]

噫？？以前怎么没看到哦～～
dayu是个好青年。
呼唤dayu！

[willrain]

看看再说。。。。。。。

[lys76]

买了，看看！ 看看再说。。。。。。。

[kroto]

shenme dongdong

[onlyhero]

看看。好的话就买啊.

[gzjdywer]

究竟是什么东东啊



我好可怜啊````````````

[maotou]

要拉Dayu入伙.

烈火西游就有qn银行的.


___________________________________________________________________



___________________________________________________________________

刚才我在削苹果，一只苍蝇嗡嗡的在耳际萦绕。

我听着声音，看也不看一刀向后挥出，果然嗡嗡的声音没有了。


我继续削苹果，吃完苹果要去洗刀扔苹果皮与核，刚一转身，发现地上有一只被斩首的巨大绿头毛苍蝇。

现在，我无比烦恼：我会不会得痢疾啊？