inherit ROOM; static object times_check; void create() { ::create(); seteuid(getuid(this_object())); set("short","== 星舰企业号 =="); set("boat_name","_starcraft_boat"); // 航行计划 set("plan",({ ({30,"/x/x/xxx1"}), ({330,"/x/x/xxx2"}), ({630,"/x/x/xxx3"}), })); set("plan_time",900); call_out("cancel_effect",2,this_object(),"start_plan"); } int cancel_effect(object boat,string med_names) { string names,files; mixed tmps; int i,j,t,s1,s2; object room; if(!times_check) if(catch(times_check=find_object_or_load("/open/cmds/times_check"))) return 1; names=query("boat_name"); files=base_name(boat); tmps=query("plan"); j=sizeof(tmps); if(med_names=="start_plan") { // 将 times_check 里与 boat_name 有关的航行计划都移除 // 重新设定一个新的航行计划 times_check->remove_names(names); // 先读取总航行时间 t=(int)query("plan_time"); // 设定该航行时间後重新执行 // 当 update 船只时, 船只会先清掉 times_check 的资料 // 当 update times_check 但是没有 update 船只时，起码 // times_check 知道时间到了时要重启该船的航行计划 times_check->set_times_check(names,files,"start_plan",t); // 然後开始设定航行计划 for(i=0;i<j;i++) { times_check->set_times_no_save(names,files,"plan_"+i+"_1",tmps[i][0]); times_check->set_times_no_save(names,files,"plan_"+i+"_2",30+tmps[i][0]); times_check->set_times_no_save(names,files,"plan_"+i+"_3",60+tmps[i][0]); } return 1; } // 接下来就是针对各航行计划做处理 sscanf(med_names,"plan_%d_%d",s1,s2); // 停靠, 打开出口 if(s2==1) { room=find_object_or_load(tmps[s1][1]; set("exits/out",tmps[s1][1]); tell_room(boat,"广播: 已经抵达"+room->query("short")+"。\n"); room->set("exits/enter",files)); tell_room(room,"广播: "+query("short")+"已经抵达这里了。\n"); } // 即将开走的广播 if(s2==2) { room=find_object_or_load(tmps[s1][1]; // 已经开到最後一个港口 if(s1==j-1) tell_room(boat,"广播: 即将驶离"+room->query("short")+"，开往"+ find_object_or_load(tmps[0][1])->query("short")+"。\n"); else tell_room(boat,"广播: 即将驶离"+room->query("short")+"，开往"+ find_object_or_load(tmps[s1+1][1])->query("short")+"。\n"); tell_room(room,"广播: "+query("short")+"即将驶离这里。\n"); } // 准备开走, 关闭出口 if(s2==3) { room=find_object_or_load(tmps[s1][1]; delete("exits/out",tmps[s1][1]); // 已经开到最後一个港口 if(s1==j-1) tell_room(boat,"广播: 已经驶离"+room->query("short")+"，开往"+ find_object_or_load(tmps[0][1])->query("short")+"。\n"); else tell_room(boat,"广播: 已经驶离"+room->query("short")+"，开往"+ find_object_or_load(tmps[s1+1][1])->query("short")+"。\n"); room->delete("exits/enter",files)); tell_room(room,"广播: "+query("short")+"已经驶离这里了。\n"); } return 1; } 从上面可发现一些缺点，最明显的缺点就是 times_check 被频繁呼叫， 所以虽然船只可以用 times_check 跑，但或许不用 times_check 比较 好，sanc 有 BOAT 样本，应该已足够支援，可参考菲里德军舰写法。 /d/tatak/room/boat.c ==菲里德军舰== 一艘来自菲里德王国的军舰. 菲里德王国位於亚雷克莱斯特大陆 的东侧海湾国家, 是世界军事强国之一, 拥有的炮舰数目也是数 一数二的. 如果你搭上军舰, 可以跳下甲板(jumpdown). 明显出口有: 无 > 老船长：西斯迪克港到了。 Laechan --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 210.61.157.53