很粗糙不过手动辅助还算能用
-
- name="es2_map"
- id="17bc23ea8b108255c54637fc"
- language="PerlScript"
- save_state="y"
- date_written="2014-07-02 17:44:58"
- requires="4.84"
- version="1.0"
- >
-
- enabled="y"
- group="map"
- lines_to_match="15"
- match="(.+) - \n((?:((?! - ).)*\n){1,14}?)(?: .+\n)?(?: 這裡沒有任何明顯的出路。| 這裡.+的出口是 (.+)。)\n\z"
- multi_line="y"
- regexp="y"
- script="onMapLog"
- sequence="100"
- >
-
-
- enabled="y"
- group="map"
- match="指令錯誤,請用 help cmds 查詢可用的指令。"
- script="clearPath"
- sequence="100"
- >
-
- enabled="y"
- group="map"
- match="要移動請你先用 halt 終止你正在做的事。"
- script="clearPath"
- sequence="100"
- >
-
-
- enabled="y"
- group="map"
- match="這個方向沒有出路。"
- script="clearPath"
- sequence="100"
- >
-
-
- name="MAP_checkAsciiOn"
- match="MAP_checkASCIIOn"
- enabled="y"
- group="map"
- send_to="12"
- sequence="100"
- >
- setVariable("asciiCheck", 1);
- setAliasOption ("MAP_checkAsciiOn", "menu", "n");
- setAliasOption ("MAP_checkAsciiOff", "menu", "y");
- note("ascii check turn on");
-
-
- name="MAP_checkAsciiOff"
- match="MAP_checkAsciiOff"
- enabled="y"
- group="map"
- send_to="12"
- menu="y"
- sequence="100"
- >
- setVariable("asciiCheck", 0);
- setAliasOption ("MAP_checkAsciiOn", "menu", "y");
- setAliasOption ("MAP_checkAsciiOff", "menu", "n");
- note("ascii check turn off");
-
-
- name="MAP_mapLogOn"
- script="logOn"
- match="MAP_logOn"
- enabled="y"
- menu="y"
- sequence="100"
- >
-
-
- name="MAP_mapLogOff"
- script="logOff"
- match="MAP_logOff"
- enabled="y"
- sequence="100"
- >
-
-
- script="delete"
- match="#d (\w+) ([\d,]+)"
- enabled="y"
- regexp="y"
- sequence="100"
- >
-
-
- match="#mp *"
- enabled="y"
- send_to="12"
- sequence="100"
- >
- &main::markAsPuzzle("%1")
-
-
- match="^#ad (\d+) (\d+)"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
- &main::addDoor("%1", "%2")
-
-
- match="^#gp (\d+) (\d+)"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
- &main::getPaths("%1", "%2", 1)
-
-
- match="^#wtf (\d+)$"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="99"
- >
- &main::getPathsForIdAndWalkTo("%1", 0.3)
-
-
- match="^#wtf ([A-z0-9_]+)$"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
- &main::getPathsForAliasAndWalkTo("%1", 0.3)
-
-
- match="^#aa ([A-z0-9_]+) (\d+)$"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
- &main::alias("%2", "%1")
-
-
- match="^#aag ([A-z0-9_]+) (\d+)$"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
- &main::aliasGlobal("%2", "%1")
-
-
- match="^#da (\d+)$"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
- &main::delAlias("%1")
-
-
- name="MAP_showAlias"
- match="#sa"
- omit_from_command_history="y"
- enabled="y"
- send_to="12"
- menu="y"
- sequence="100"
- >
- &main::showAlias()
-
-
- match="^#sp( (\d+))?$"
- enabled="y"
- regexp="y"
- send_to="12"
- sequence="100"
- >
-
- if("%2" eq ""){
- &main::walkTo(getVariable("sp1"), 0.3);
- }else{
- &main::walkTo(getVariable("sp%2"), 0.3);
- }
-
-
-
- name="MAP_closeDB"
- script="closeDB"
- match="MAP_closeDB"
- enabled="y"
- omit_from_command_history="y"
- sequence="100"
- >
-
-
- name="MAP_openDB"
- script="openDB"
- match="MAP_openDB"
- enabled="y"
- sequence="100"
- >
-
-
- name="MAP_usage"
- script="usage"
- match="MAP_usage"
- enabled="y"
- sequence="100"
- menu="y"
- >
-
-
- name="MAP_debug"
- script="debug"
- match="MAP_debug"
- enabled="y"
- sequence="100"
- menu="y"
- >
-
- 0
- 0
- 0
- 0
- 1
- 、| 和
- -~
- -1
- 1
- -1
- 3
复制代码
北大侠客行MUD,中国最好的MUD |