快乐风云2的交易系统tradeup.c

tradeup.c

1. // by tiandi for trade system 
2. #include <ansi.h> 
3. inherit F_CLEAN_UP;
4. string value_string(int value)
5. {
6.     if( value < 1 ) value = 1;
7.     else if( value < 100 )
8.         return chinese_number(value) + "文钱";
9.     else
10.         return chinese_number(value/100) + "两"
11.             + (value%100? "又" + chinese_number(value%100) + "文钱": "");
12. }
14. int main(object me, string arg)
15. {
16.     string item;
17.     object ob1;
18.     int price;
19.         if( me->is_fighting() )
20.                 return notify_fail("战斗中不能上架。/n");
21.             if(! environment(me)->query("trade") )
22.                    return notify_fail("这里不允许上架。/n");
23.             if(!me->query_temp("in_trade") )
24.                    return notify_fail("你得先摆摊才可以上架啊。/n");
25.        if(me->is_ghost())
26.            return notify_fail("鬼魂是没有办法摆摊的，你摆了别人也看不见啊。/n");
27.             if(me->query("level")< 10 )
28.                    return notify_fail("你的等级太低。/n");
29.            if( me->is_busy() )
30.                    return notify_fail("你上一个动作还没有完成，不能上架。/n");
31.      
32.            if(!arg || sscanf(arg,"%d %s",price,item) != 2)
33.                         return notify_fail("请输入正确的格式，tradeup <price> <item id>。/n");
34.      if ( price > 999999999)
35.                       return notify_fail("你摆的价格也太黑了点吧。/n");
36.      if ( price < 10000)
37.                       return notify_fail("这东西只值这点钱吗？/n");
38.        ob1 = present(item,me);
39.       if(!ob1)
40.             return notify_fail("你身上好像没有这个东西吧？/n");
41.       if( ob1->query("money_id") )
42.             return notify_fail("你想把钱上架？真是好主意啊，哈哈哈～/n");
43.      if(ob1->query_temp("trading") )
44.             return notify_fail("这个东西已经上架了。/n");
45.      if(ob1->query_temp("no_drop") || ob1->query_temp("no_get"))
46.             return notify_fail("这个东西不能上架。/n");
47.      if(!ob1->query("value") )
48.             return notify_fail("这个东西没有什么价值。/n");
49.      if(ob1->query("owner") && !ob1->query("selfmaking") )
50.             return notify_fail("这个东西是自造物品，不能上架。/n");
54.      message_vision("$N把"+ob1->query("name")+"以"+value_string(price)+"的价格上架了。/n",me);
55.      ob1->set_temp("price",price);
56.      ob1->set_temp("trading",1);
57.     ob1->set_temp("no_drop",1);
58.     ob1->set_temp("no_get",1);
60.            me->set_temp("in_trade",1);
62.     
63.         return 1;
64. }
66. int help(object me)
67. {
68.         write(@HELP
69. 指令格式 : tradeup <price> <item id>
71. 摆摊后，你可以用此命令把你身上想要卖的东西上架贩卖。
73. HELP
74.         );
75.         return 1;
76. }