北大侠客行MUD论坛

 找回密码
 注册
搜索
热搜: 新手 wiki 升级
查看: 5275|回复: 1

之前玩ES2 时用的地图.

[复制链接]
发表于 2015-4-8 20:40:45 | 显示全部楼层 |阅读模式
很粗糙不过手动辅助还算能用









  1.    name="es2_map"
  2.    id="17bc23ea8b108255c54637fc"
  3.    language="PerlScript"
  4.    save_state="y"
  5.    date_written="2014-07-02 17:44:58"
  6.    requires="4.84"
  7.    version="1.0"
  8.    >











  9.   
  10.    enabled="y"
  11.    group="map"
  12.    lines_to_match="15"
  13.    match="(.+) - \n((?:((?! - ).)*\n){1,14}?)(?:    .+\n)?(?:    這裡沒有任何明顯的出路。|    這裡.+的出口是 (.+)。)\n\z"
  14.    multi_line="y"
  15.    regexp="y"
  16.    script="onMapLog"
  17.    sequence="100"
  18.   >
  19.   
  20.   
  21.    enabled="y"
  22.    group="map"
  23.    match="指令錯誤,請用 help cmds 查詢可用的指令。"
  24.    script="clearPath"
  25.    sequence="100"
  26.   >
  27.   
  28.    enabled="y"
  29.    group="map"
  30.    match="要移動請你先用 halt 終止你正在做的事。"
  31.    script="clearPath"
  32.    sequence="100"
  33.   >
  34.   
  35.   
  36.    enabled="y"
  37.    group="map"
  38.    match="這個方向沒有出路。"
  39.    script="clearPath"
  40.    sequence="100"
  41.   >
  42.   





  43.   
  44.    name="MAP_checkAsciiOn"
  45.    match="MAP_checkASCIIOn"
  46.    enabled="y"
  47.    group="map"
  48.    send_to="12"
  49.    sequence="100"
  50.   >
  51.   setVariable("asciiCheck", 1);
  52. setAliasOption ("MAP_checkAsciiOn", "menu", "n");
  53. setAliasOption ("MAP_checkAsciiOff", "menu", "y");
  54. note("ascii check turn on");
  55.   
  56.   
  57.    name="MAP_checkAsciiOff"
  58.    match="MAP_checkAsciiOff"
  59.    enabled="y"
  60.    group="map"
  61.    send_to="12"
  62.    menu="y"
  63.    sequence="100"
  64.   >
  65.   setVariable("asciiCheck", 0);
  66. setAliasOption ("MAP_checkAsciiOn", "menu", "y");
  67. setAliasOption ("MAP_checkAsciiOff", "menu", "n");
  68. note("ascii check turn off");
  69.   
  70.   
  71.    name="MAP_mapLogOn"
  72.    script="logOn"
  73.    match="MAP_logOn"
  74.    enabled="y"
  75.    menu="y"
  76.    sequence="100"
  77.   >
  78.   
  79.   
  80.    name="MAP_mapLogOff"
  81.    script="logOff"
  82.    match="MAP_logOff"
  83.    enabled="y"
  84.    sequence="100"
  85.   >
  86.   
  87.   
  88.    script="delete"
  89.    match="#d (\w+) ([\d,]+)"
  90.    enabled="y"
  91.    regexp="y"
  92.    sequence="100"
  93.   >
  94.   
  95.   
  96.    match="#mp *"
  97.    enabled="y"
  98.    send_to="12"
  99.    sequence="100"
  100.   >
  101.   &main::markAsPuzzle("%1")
  102.   
  103.   
  104.    match="^#ad (\d+) (\d+)"
  105.    enabled="y"
  106.    regexp="y"
  107.    send_to="12"
  108.    sequence="100"
  109.   >
  110.   &main::addDoor("%1", "%2")
  111.   
  112.   
  113.    match="^#gp (\d+) (\d+)"
  114.    enabled="y"
  115.    regexp="y"
  116.    send_to="12"
  117.    sequence="100"
  118.   >
  119.   &main::getPaths("%1", "%2", 1)
  120.   
  121.   
  122.    match="^#wtf (\d+)$"
  123.    enabled="y"
  124.    regexp="y"
  125.    send_to="12"
  126.    sequence="99"
  127.   >
  128.   &main::getPathsForIdAndWalkTo("%1", 0.3)
  129.   
  130.   
  131.    match="^#wtf ([A-z0-9_]+)$"
  132.    enabled="y"
  133.    regexp="y"
  134.    send_to="12"
  135.    sequence="100"
  136.   >
  137.   &main::getPathsForAliasAndWalkTo("%1", 0.3)
  138.   
  139.   
  140.    match="^#aa ([A-z0-9_]+) (\d+)$"
  141.    enabled="y"
  142.    regexp="y"
  143.    send_to="12"
  144.    sequence="100"
  145.   >
  146.   &main::alias("%2", "%1")
  147.   
  148.   
  149.    match="^#aag ([A-z0-9_]+) (\d+)$"
  150.    enabled="y"
  151.    regexp="y"
  152.    send_to="12"
  153.    sequence="100"
  154.   >
  155.   &main::aliasGlobal("%2", "%1")
  156.   
  157.   
  158.    match="^#da (\d+)$"
  159.    enabled="y"
  160.    regexp="y"
  161.    send_to="12"
  162.    sequence="100"
  163.   >
  164.   &main::delAlias("%1")
  165.   
  166.   
  167.    name="MAP_showAlias"
  168.    match="#sa"
  169.    omit_from_command_history="y"
  170.    enabled="y"
  171.    send_to="12"
  172.    menu="y"
  173.    sequence="100"
  174.   >
  175.   &main::showAlias()
  176.   
  177.   
  178.    match="^#sp( (\d+))?$"
  179.    enabled="y"
  180.    regexp="y"
  181.    send_to="12"
  182.    sequence="100"
  183.   >
  184.   
  185.     if("%2" eq ""){
  186.                 &main::walkTo(getVariable("sp1"), 0.3);
  187.         }else{
  188.                 &main::walkTo(getVariable("sp%2"), 0.3);
  189.         }
  190.   
  191.   
  192.   
  193.    name="MAP_closeDB"
  194.    script="closeDB"
  195.    match="MAP_closeDB"
  196.    enabled="y"
  197.    omit_from_command_history="y"
  198.    sequence="100"
  199.   >
  200.   
  201.   
  202.    name="MAP_openDB"
  203.    script="openDB"
  204.    match="MAP_openDB"
  205.    enabled="y"
  206.    sequence="100"
  207.   >
  208.   
  209.   
  210.    name="MAP_usage"
  211.    script="usage"
  212.    match="MAP_usage"
  213.    enabled="y"
  214.    sequence="100"
  215.    menu="y"
  216.   >
  217.   
  218.   
  219.    name="MAP_debug"
  220.    script="debug"
  221.    match="MAP_debug"
  222.    enabled="y"
  223.    sequence="100"
  224.    menu="y"
  225.   >
  226.   





  227.   0
  228.   0
  229.   0
  230.   0
  231.   1
  232.   、| 和
  233.    -~
  234.   -1
  235.   1
  236.   -1
  237.   3









复制代码

北大侠客行MUD,中国最好的MUD
北大侠客行Mud(pkuxkx.com),最好的中文Mud游戏!
发表于 2015-4-8 21:36:03 | 显示全部楼层
好长
北大侠客行Mud(pkuxkx.com),最好的中文Mud游戏!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|北大侠客行MUD ( 京ICP备16065414号-1 )

GMT+8, 2024-11-1 03:34 PM , Processed in 0.012053 second(s), 14 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表