【mud】坐在车里玩mud（/obj/toy/car.c）

坐在车里看mud真的很酷，

代码：

// by snowcat 5/3/1997#include <ansi.h>inherit ITEM;mapping chinese_dirs = (["north":        "北","south":        "南","east":         "东","west":         "西","northup":      "北边","southup":      "南边","eastup":       "东边",  "westup":       "西边","northdown":    "北边","southdown":    "南边","eastdown":     "东边","westdown":     "西边","northeast":    "东北","northwest":    "西北","southeast":    "东南","southwest":    "西南",]);mapping left_dirs = (["north":        "northwest","south":        "southeast","east":         "northeast","west":         "southwest","northeast":    "north","northwest":    "west","southeast":    "east","southwest":    "south",]);mapping right_dirs = (["north":        "northeast","south":        "southwest","east":         "southeast","west":         "northwest","northeast":    "east","northwest":    "north","southeast":    "south","southwest":    "west",]);string *makes = ({"Acura NXL","Audi Cabriolet","BMW 850","Buick Skylark","Cadillac Seville","Chevrolet Monte Carlo","Chrysler Sebring Convertable","Dodge Viper","Eagle Vision","Ford Thunderbird","Geo Metro","Honda Accord","Hyundai Sonata","Infinti Q45","Jaguar","Lexus SC400","Lincoln Towncar","Mazda Protege","Mercedes-Benz SLK-CLASS","Mercury Tracer","Mitsubishi Mirage","Nissan Maxima","Oldsmobile Aurora","Plymouth Neon","Pontiac Sunfire","Porsche Boxster","Saab 9000","Saturn","Subaru Legacy","Suzuki Esteem","Toyota Camry","Volksvagon Passat","Volvo 960",});void create()
{string name = makes[random(sizeof(makes))]+" 轿车";set_name(name, ({"car", "che"}));set_weight(300000);set_max_encumbrance (1000000);if (clonep())set_default_object(__FILE__);else {set("short", name+"(Car)");set("long", "这是一辆"+name+"。\n");set("unit", "辆");set("material", "metal");set("value", 1000000);set("dir", "north");set("speed", 0);set("fuel", 10000);set("miles", 0);}setup();
}void automate();int init()
{add_action("do_enter", "enter");add_action("do_out", "out");add_action("do_look", "look");add_action("do_left", "4");add_action("do_right", "6");add_action("do_speedup", "8");add_action("do_slowdown", "2");add_action("do_stop", "5");add_action("do_handdrive", "7");add_action("do_autodrive", "9");automate();return 1;
}int test_busy ()
{object me = this_object();object who = this_player();if (me->query_temp("is_busy")){tell_object (who,"动作别太猛，车子会搞坏的！\n");    return 1;}me->set_temp("is_busy",1);remove_call_out ("reset_busy_temp");call_out ("reset_busy_temp",1,me);return 0;
}void reset_busy_temp (object me)
{me->set_temp("is_busy",0);
}int is_in ()
{object me = this_object();object who = this_player();return environment(who) == me;
}int is_driver ()
{object me = this_object();object who = this_player();if (me->query("driver") != who){tell_object (who,"别乱动，你又不是司机！\n");  return 0;}return 1;
}int report_outside_objects ()
{object me = this_object();object who = this_player();object where = environment(me);mixed *inv = all_inventory(where);int i;if (sizeof(inv) <= 1)return 1;tell_object (who,"外面有：");  for (i=0; i < sizeof(inv); i++){if (inv[i] != me)tell_object (who,inv[i]->query("name")+"("+inv[i]->query("id")+") ");    }tell_object (who,"\n");  return 1;
}int report_inside_objects ()
{object me = this_object();object who = this_player();mixed *inv = all_inventory(me);int i;if (sizeof(inv) == 0)return 1;tell_object (who,"车里有：");  for (i=0; i < sizeof(inv); i++){tell_object (who,inv[i]->query("name")+"("+inv[i]->query("id")+") ");    }tell_object (who,"\n");  return 1;
}int report_dir ()
{object me = this_object();object who = this_player();object where = environment(me);mapping exits = where->query("exits");string *dirs;int i;if (! exits)return 1;dirs = keys(exits);tell_object (who,"四面的出口是：");  for (i=0; i < sizeof(dirs); i++){tell_object (who,chinese_dirs[dirs[i]]+"("+dirs[i]+")");    }tell_object (who," [车头朝向："+chinese_dirs[me->query("dir")]+"("+me->query("dir")+")]\n");  return 1;
}int report_view ()
{object me = this_object();object who = this_player();object where = environment(me);tell_object (who,"≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡\n");  tell_object (who,"从车窗里可以看到：");  tell_object (who,where->query("short")+"\n");  tell_object (who,where->query("long")+"\n");  report_outside_objects();report_dir();tell_object (who,"≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡\n");  return 1;
}int report_short ()
{object me = this_object();object who = this_player();string strspeed, strfuel, strmiles;int i, len = 15;strspeed = "速度："+sprintf("%d",me->query("speed"));strfuel  = "汽油："+sprintf("%d",me->query("fuel")) ;strmiles = "里程："+sprintf("%d",me->query("miles"));for (i = sizeof(strspeed); i < len; i++)strspeed = strspeed + " ";for (i = sizeof(strfuel); i < len; i++)strfuel = strfuel + " ";for (i = sizeof(strmiles); i < len; i++)strmiles = strmiles + " ";tell_object (who,"\n");  tell_object (who,"  □□□□□□□□□□□□□□□□□□□□□□\n");  tell_object (who,"  □"+ strspeed + " 7[手导] 8[加速] 9[自导] □\n");  tell_object (who,"  □"+ strfuel  + " 4[左转] 5[刹车] 6[右转] □\n");  tell_object (who,"  □"+ strmiles + "         2[减速]         □\n");  tell_object (who,"  □□□□□□□□□□□□□□□□□□□□□□\n");  if (me->query("autodrive") > 0)tell_object (who,"  方向控制：全自动");  elsetell_object (who,"  方向控制：手动");  if (me->query("driver"))tell_object (who,"  司机："+me->query("driver")->query("name"));  tell_object (who,"\n");  report_inside_objects();return 1;
}int do_enter (string arg)
{object me = this_object();object who = this_player();if (arg != "car")return 0;if (is_in())return 0;if (me->query("speed") > 0){tell_object (who,"跳进正在行驶的车子会有生命危险！\n");  return 1;}message_vision ("$N一弯腰，坐进车。\n",who);who->move(me);if (! me->query("driver") ||environment(me->query("driver")) != me){me->set("driver",who);message_vision ("$N坐在司机座位上。\n",who);}elsemessage_vision ("$N坐在客座上。\n",who);return 1;
}int do_out (string arg)
{object me = this_object();object who = this_player();if (! is_in())return 0;if (me->query("speed") > 0){tell_object (who,"跳出正在行驶的车子会有生命危险！\n");  return 1;}if (me->query("driver") == who){me->set("driver",0);}message_vision ("$N一打开车门跳下车。\n",who);who->move(environment(me));message_vision ("$N跳出车，将车门关上。\n",who);return 1;
}int do_look (string arg)
{object me = this_object();object who = this_player();if (! is_in()){if (arg == "car"){tell_object (who,"这是一"+me->query("unit")+me->query("name")+"(enter)。\n");return 1;}return 0;}report_view();report_short();return 1;
}int do_left (string arg)
{object me = this_object();object who = this_player();string dir = me->query("dir");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;if (me->query("speed") == 0){tell_object (who,"先将车子发动起来再转弯。\n");return 1;  }dir = left_dirs[dir];tell_object (who,"你将方向盘向左一转。\n");  message_vision (me->query("name")+"车头朝"+chinese_dirs[dir]+"一拐……\n",me);me->set("dir",dir);return 1;
}int do_right (string arg)
{object me = this_object();object who = this_player();string dir = me->query("dir");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;if (me->query("speed") == 0){tell_object (who,"先将车子发动起来再转弯。\n");return 1;  }dir = right_dirs[dir];tell_object (who,"你将方向盘向右一转。\n");  message_vision (me->query("name")+"车头朝"+chinese_dirs[dir]+"一拐……\n",me);me->set("dir",dir);return 1;
}int do_speedup (string arg)
{object me = this_object();object who = this_player();int s = me->query("speed");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;if (s == 0){s += 2+random(4);tell_object (who,"你点火发动车子。\n");  message_vision (me->query("name")+"轻吼了一声，排气管吐出一股青烟\n",me);}else if (s < 45){s += 4+random(8);tell_object (who,"你踩了一踩油门。\n");  message_vision (me->query("name")+"轻轻地加速。\n",me);}else if (s < 90){s += 8+random(16);tell_object (who,"你用力踩了一踩油门。\n");  message_vision (me->query("name")+"嗖地一声加快了时速！\n",me);}else {s += 16+random(32);tell_object (who,"你使劲地了踩了一踩油门。\n");  message_vision (me->query("name")+"发疯似地加速！\n",me);}if (s > 320)s = 320;me->set("speed",s);return 1;
}int do_slowdown (string arg)
{object me = this_object();object who = this_player();int s = me->query("speed");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;if (s == 0){tell_object (who,"车子已经停了。\n");  }else if (s < 45){s -= 4+random(8);tell_object (who,"你轻轻地踩了踩闸。\n");  message_vision (me->query("name")+"慢慢减速。\n",me);}else if (s < 90){s -= 8+random(16);tell_object (who,"你踩了踩闸。\n");  message_vision (me->query("name")+"明显地慢了下来。\n",me);}else {s -= 16+random(32);tell_object (who,"你使劲地踩了一踩闸。\n");  message_vision (me->query("name")+"在飞弛中减速。\n",me);}if (s < 0)s = 0;me->set("speed",s);return 1;
}int do_stop (string arg)
{object me = this_object();object who = this_player();int s = me->query("speed");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;if (s == 0){tell_object (who,"车子已经停了。\n");  }else if (s < 20){s = 0;tell_object (who,"你猛地一刹车。\n");  message_vision (me->query("name")+"轻轻一颠，停了。\n",me);}else if (s < 45){s = 0;tell_object (who,"你一个急刹车！\n");  message_vision (me->query("name")+"突然急剧地减速！\n",me);message_vision (me->query("name")+"发出一声长长的尖叫，吱一声停了！\n",me);tell_object (who,"你猛地跄了一下！\n");  }else if (s < 100){s -= 40+random(40);tell_object (who,"你疯狂地踩闸急刹车！\n");  message_vision (me->query("name")+"突然急剧地减速！\n",me);message_vision (me->query("name")+"剧烈地震动着！\n",me);tell_object (who,"你一阵头晕，差一点吐了出来！\n");  }else {s -= 60+random(60);tell_object (who,"你不顾一切地地踩闸急刹车！\n");  message_vision (me->query("name")+"突然急剧地减速！\n",me);message_vision (me->query("name")+"可怕地震动着，地上划出两道黑印！\n",me);tell_object (who,"强烈的震动中你一阵剧烈头痛！\n");  //who->unconcious();}if (s < 0)s = 0;me->set("speed",s);return 1;
}int do_handdrive (string arg)
{object me = this_object();object who = this_player();int s = me->query("speed");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;me->set("autodrive",0);tell_object (who,"现在手动控制行车方向。\n");  return 1;
}int do_autodrive (string arg)
{object me = this_object();object who = this_player();int s = me->query("speed");if (! is_in())return 0;if (! is_driver())return 1;if (test_busy())return 1;me->set("autodrive",1);tell_object (who,"现在全自动控制行车方向。\n");  return 1;
}void collision ()
{object me = this_object();object who = me->query("driver");int s = me->query("speed");string *hits = ({"冲出了路","滑进路边的草丛中","撞进一个大土堆","滑进一滩烂泥","闯进一个小木棚","冲向一大丛灌木丛","撞向一片小树",});string how;if (s == 0)how = "极轻地";else if (s < 20)how = "咣当一声";else if (s < 40)how = "哗啦一声";else if (s < 60)how = "砰地一声";else if (s < 80)how = "轰地一声";else if (s < 100)how = "象脱缰野马一样地";else if (s < 150)how = "极疯狂地";else how = "天塌地裂般地";if (s < 50){message_vision (me->query("name")+how+hits[random(sizeof(hits))]+"。\n",me);message_vision (me->query("name")+"停了下来。\n",me);}else if (s < 100){message_vision (me->query("name")+how+hits[random(sizeof(hits))]+"！\n",me);message_vision (me->query("name")+"在一阵强烈的震动中停了下来！\n",me);tell_object (who,"你一阵目眩！\n");  }else{message_vision (me->query("name")+how+hits[random(sizeof(hits))]+"！\n",me);message_vision (me->query("name")+"在一阵极可怕的震动中发出巨响！\n",me);message_vision ("一切又突然安静了下来停了下来。\n",me);tell_object (who,"你一刹那觉得窗外的所有东西向你猛地扑来又突然停止！\n");  //who->unconcious();}me->set("speed",0);
}void display_me ()
{object me = this_object();string name = me->query("name");int s = me->query("speed");string msg = 0;if (s == 0){set("short", "停在路上的"+name+"(Car)");    }else if (s < 30){set("short", "慢慢行驶的"+name+"(Car)");msg = name+"慢慢地驶着。\n";}else if (s < 50){set("short", "行驶中的"+name+"(Car)");msg = name+"正在行驶着。\n";}else if (s < 110){set("short", "飞驶的"+name+"(Car)");msg = name+"飞快地行驶着。\n";}else {set("short", "狂驶中的"+name+"(Car)");msg = name+"发疯似地狂驶着。\n";}if (msg && random(10) == 0)message_vision (msg,me);
}void check_speed ()
{object me = this_object();if (me->query("speed") > 0 &&me->query("fuel") <= 0){me->set("speed",0);message_vision (me->query("name")+"奇怪地冒出一股青烟，没有燃油了。\n",me);message_vision (me->query("name")+"有气无力地停了。\n",me);}if (me->query("speed") > 0 &&(! me->query("driver") ||environment(me->query("driver")) != me)){me->set("speed",0);message_vision (me->query("name")+"没有司机了。\n",me);message_vision (me->query("name")+"吱地一声歪歪斜斜地停了。\n",me);}
}void check_fuel ()
{object me = this_object();if (me->query("speed") > 0 &&me->query("fuel") > 0){int f = me->query("fuel");f -= (me->query("speed")/10+1); if (f < 0)f = 0;me->set("fuel",f);}
}void check_miles ()
{object me = this_object();if (me->query("speed") > 0){me->add("miles",me->query("speed")/6);}
}object find_room (string dest)
{object me = this_object();object where = environment(me);if (!dest)return 0;return find_object(dest);
}object find_exit ()
{object me = this_object();object where = environment(me);object who = me->query("driver");string dir = me->query("dir");object obj = 0;mapping dirs;string dest;if (!mapp(dirs = where->query("exits"))){tell_object (who,"这里好象没有什么路可行了。\n");return 0;  }while (obj == 0){dest = dirs[dir];if (dest)obj = find_room(dest);if (!dest || !obj){dest = dirs[dir+"down"];if (dest)obj = find_room(dest);}if (!dest || !obj){dest = dirs[dir+"up"];if (dest)obj = find_room(dest);}if (!dest || !obj){if (me->query("autodrive")){if (random(2) == 0)dir = left_dirs[dir];elsedir = right_dirs[dir];continue;}else{if (random(3) == 0)tell_object (who,"前方("+chinese_dirs[dir]+")没有什么路可行了。\n");return 0;}  }if (! obj->query("outdoors")){if (me->query("autodrive")){if (random(2) == 0)dir = left_dirs[dir];elsedir = right_dirs[dir];continue;}else{if (random(3) == 0)tell_object (who,"前方("+chinese_dirs[dir]+")不是汽车可行的路。\n");return 0;}  }if (me->query("car_from/"+where->query("short"))==obj->query("short") &&me->query("autodrive") &&random(20))obj = 0;}if (me->query("autodrive")){if (random(3) == 0)tell_object (who,"汽车现在向"+chinese_dirs[dir]+"行驶。\n");me->set("dir",dir);}return obj;
}void check_move ()
{object me = this_object();object where = environment(me);object exit = 0;if (me->query("speed") == 0)return;exit = find_exit();me->add("distance",me->query("speed")/5+1);if (me->query("distance") < 100)return;me->set("distance",0);if (! exit){remove_call_out("collision");call_out ("collision",1);}else{me->set("car_from/"+exit->query("short"),where->query("short"));message_vision (me->query("name")+"开出"+where->query("short")+"。\n",me);me->move(exit);message_vision (me->query("name")+"开进"+exit->query("short")+"。\n",me);}
}void automate ()
{check_speed ();check_fuel ();check_miles (); display_me ();remove_call_out("check_move");call_out("check_move",2); remove_call_out("automate");call_out("automate",5);
}

【mud】坐在车里玩mud（/obj/toy/car.c）相关推荐

坐在车里把钱赚？百度路淘，轻松月入4万
正文开始开车赚钱?没有车也能干,有人通过这个方法已经赚了好几万了, 项目介绍百度路淘是百度地图推出的一款道路采集的众包app,百度地图可以通过卫星看到地面上的道路,但是无法精准判断出道路是否在修路 ...
一篇长文带你在python里玩转Json数据
Json简介 Json(JavaScript Object Notation) 很多网站都会用到Json格式来进行数据的传输和交换. 这因为Json是一种轻量级的数据交换格式,具有数据格式简单,读写方 ...
ado filter 多条记录_车里能开直播行车记录仪十大隐藏设置
[爱卡汽车用车原创] 相信大家都知道行车记录仪的功能就是实时记录画面,在发生交通事故或者遇到碰瓷的时候可以提供视频证据.不过往往有些朋友只知道行车记录仪这个功能,其实除了这些,还可以激活行车记录仪 ...
(转)结婚那天，妈问我：坐在角落里象两个要饭模样的人是谁?
人人看到的文章很感人~~~~ 结婚那天,妈问我:坐在角落里象两个要饭模样的人是谁? 我看过去的时候,有个老头正盯着我,旁边还有个老太太,发现我看着他们时赶忙低下头.我不认识他们但也不象要饭的,衣服是 ...
hutol json null值没了_一篇长文带你在python里玩转Json数据
前言文的文字及图片来源于网络,仅供学习.交流使用,不具有任何商业用途,版权归原作者所有,如有问题请及时联系我们以作处理. 作者: 朱小五/凹凸玩数据 PS:如有需要Python学习资料的小伙伴可以加 ...
Android9很多游戏玩不了,安卓狂野飙车9玩不了应该如何解决
很多人对安卓手机不喜欢,是因为它有很多游戏都玩不了,或者是非常卡,但是现在安卓手机已经非常高科技了,能够快速带动游戏,下面就来说一说安卓狂野飙车9会不会玩不了,如果玩不了应该如何解决. 游戏简介在全 ...
昨天在被窝里玩手机游戏到深夜，自己写的“扫雷”，一个字：好玩。
昨天在被窝里玩手机游戏到深夜,自己写的"扫雷",一个字:好玩. 起因:上周日晚看wxWidgets的例程,其中有一个扫雷游戏,即兴玩了一通,感觉有一点不爽,就是每一局开始的时候,都 ...
C# json解析字符串总是多出双引号_一篇长文带你在python里玩转Json数据
Json简介 Json(JavaScript Object Notation) 很多网站都会用到Json格式来进行数据的传输和交换,就像上篇我提到的网易云音乐接口,它们返回的数据都是Json格式的. ...
Win8 Metro App里玩XNA：ContentPipeline内容管线问题
Win8 Metro App里玩XNA:ContentPipeline内容管线问题开了个头本篇中其实没有真正解决Win8里XNA的ContentPipeline(内容管线)问题,而是说明如何使 ...

【mud】坐在车里玩mud（/obj/toy/car.c）

【mud】坐在车里玩mud（/obj/toy/car.c）相关推荐

最新文章

热门文章