15行代码的mud
原文（英文）：http://viewsourcecode.org/why/redhanded/bits/mudIn15LinesOfRuby.html一个叫Jon的用ruby写了一个只有15行代码的mud。
require 'socket';require 'yaml';def q x;$m.find{|o|o.t==:p&&x==o.n};end
def a r,t;$m.find_all{|o|t==o.t&&(!r||r==o.l)};end;def g z;a(nil,:p).each{|p|
p.p z};end;class O;attr_accessor :i,:n,:l,:e,:s,:t;def initialize n,l=nil,t=:r
@n,@l,@i,@t=n,l,$d+=1,t;@e={};end;def p s;@s.puts(s)if @s;end;def y m
v=$m.find{|o|@l==o.i};t=v.e.keys;case m;when/^q/;@s.close;@s=nil;
File.open('d','w'){|f|YAML::dump $m,f};when/^h/;p "i,l,d,g,c,h,q,<exit>,O,R"
when/^i/;a(@i,:o).each{|o|p o.n};when/^c.* (.*)/;g "#{@n}:#{$1}"
when/^g/;a(@l,:o).each{|q|q.l=@i};when/^d/;a(@i,:o).each{|q|q.l=@l}
when/^O (.*)/;$m<<O.new($1,@l,:o);when/^R (.*) (.*) (.*)/;$m<<d=O.new($1)
v.e[$2]=d.i;d.e[$3]=v.i;when/^l/;p v.n;(a(@l,:p)+a(@l,:o)).each{|x|
p x.n if x.s||x.t==:o};p t.join '|';when/(^#{t.empty? ? "\1" : t.join('|^')})/
@l=v.e[$1];else;p "?";end;end;end;test ?e,'d'||begin;$d=0;$m=
end;$m=YAML::load_file 'd';$d=$m.size;z=TCPServer.new 0,4000;while k=z.accept
Thread.new(k){|s|s.puts "Name";s.gets;l=$_.chomp;d=q l;$m<<d=O.new(l,1,:p)if !d
d.s=s;while s.gets;d.y $_.chomp;end;};end
下面是运行方法:
1.上面的内容保存至teensymud.rb
2.创建一个YAML文件，内容是“[]”，不包含引号部分。linux可以直接echo "[]" > d
3.运行teensymud.rb 前提是有ruby的环境（很简单，ruby官网的download里有win、mac、linux的配置方法）
4.telnet到本地的4000端口。
5.输入一个id并回车。
接着你就拥有一个可运行的mud，虽然超级mini。
mud中的命令：
i显示物品
l观察房间
dr相当于北侠的drop all
g相当于北侠的get all
k相当于北侠的kill
s相当于北侠的say
c相当于北侠的chat
q推出并保存
north、south等等 按响应方向移动
O 创建新对象，例如O rose
R 创建房间
上述内容简单的翻译了一下，细节建议看原文。
15行的mud好精致、好精彩。希望ruby爱好者喜欢。
没有用过ruby的直接复制粘贴运行（先去ruby官网下载rubyinstall，这个是windows的安装包），然后连接127.0.0.1 4000就可以把玩吧玩，呵呵！
ruby小礼物，希望大家喜欢
北大侠客行MUD，中国最好的MUD 虽然看不懂，但感觉是个好东东。顶个 话说非常喜欢精致的东西，就是看不懂……那个$1是什么意思…… 火枪手，我永远佩服你 太凶残了。。。 火枪的东西都很高端。 ruby忘光了，看不懂了{:7_275:} 膜拜一下
页:
[1]