#nop vim: set filetype=tt:;

/*
本文件属于 PaoTin++ 的一部分
===========
PaoTin++ © 2020~2023 的所有版权均由担子炮(dzp <danzipao@gmail.com>) 享有并保留一切法律权利
你可以在遵照 GPLv3 协议的基础之上使用、修改及重新分发本程序。
===========
*/

event.Define {map/GotNodeInfo}  {无参} {$MODULE} {已经获取到节点信息，并更新到 gMapRoom 全局变量。};

/*
╭───扬州─────────┬─────────────╮
│目的地                      │拼音名称                  │
│丐帮分舵                    │gaibang                   │
│濠州府                      │haozhou                   │
│长江[建康府]                │jiankang                  │
│曲阜                        │qufu                      │
│往生堂                      │shashou                   │
│信阳                        │xinyang                   │
│长江[镇江]                  │zhenjiang                 │
├──────────────┴─────────────┤
│walk [拼音名]命令使用内建路径。                         │
│walk -c [拼音名]返回具体地点的路径。                    │
│node 命令列出玩家自建路径。                             │
╰───────────────────北大侠客行────╯
*/

///=== {
// ## map.GetNodeInfo
//    通过 walk -c 命令查询当前房间的节点信息。如果当前房间不是节点，则什么也获取不到。
//    否则可以获得两个信息：
//        1. 当前节点的名称，如「扬州」，储存在 \$gMapRoom[node]。
//        2. 当前节点所联通的节点列表，是个表格，储存在 \$gMapRoom[nodeLinks];
// };
#alias {map.GetNodeInfo} {
    #local gag {%1};

    #class map.GetNodeInfo open;

    #alias {map.GetNodeInfo.done} {
        #class map.GetNodeInfo kill;

        #if { &gMapRoom[nodeLinks][] > 0 } {
            #local links {@table.Keys{gMapRoom[nodeLinks]}};
            #var gMapRoom[area][LINK] {$gMapRoom[node]/$links};
            #delay 0 okLog 节点信息已识别。;
        };

        event.DelayEmit map/GotNodeInfo;
    };

    #local {E} {{?:|id=map/getnode}$};

    #if { "$gag" == "gag" } {
        #gag {^%*{|ID=map/getnode}$E};
    };

    #action {^│目的地%s│拼音名称%s│$E} {
        #if { "%1" == "gag" } {#line gag};
    } {4.999};

    #action {{*UTF8}{^}╭─{(─)*}─{\p{Han}+}─{(─|┬)*}──╮$E} {
        #var gMapRoom[node]         {%%4};
        #var gMapRoom[nodeLinks]    {};

        #class map.GetNodeInfo open;

        #action {^│%S%s│%S%s│{|ID=map/getnode}$} {
            #var {gMapRoom[nodeLinks][%%%3]} {%%%1};
        };

        #class map.GetNodeInfo close;
    };

    #action {^%*内的系统内建路径出发点在：%*，请查询localmaps获得具体方位。$E} {
        #var gMapRoom[area][WALK] {%%1/%%2};
    };

    #action {^%*内共有一处内建玩家路径起点，在%*。$E} {
        #var gMapRoom[area][NODE] {%%1/%%2};
    };

    #action {^%*内共有%d处内建玩家路径起点，分别在%*。$E} {
        #var gMapRoom[area][NODE] {%%1/%%3};
    };

    #action {^当前区域的系统内建路径出发点在：%*，请查询localmaps获得具体方位。$E} {
        #var gMapRoom[area][WALK] {%%1};
    };

    #action {^当前区域共有%d处内建玩家路径起点，分别在%*。$E} {
        #var gMapRoom[area][NODE] {%%2};
    };

    #action {^当前区域共有一处内建玩家路径起点，在%*。$E} {
        #var gMapRoom[area][NODE] {%%1};
    };

    #action {^当前区域的内建路径出发点暂时不明确。$E} {
        #var gMapRoom[area][WALK] {NOTHING};
    };

    #action {^当前区域没有任何内建玩家路径起点。$E} {
        #var gMapRoom[area][NODE] {NOTHING};
    };

    #class map.GetNodeInfo close;

    xtt.Send {walk -c};
    sync.Wait {map.GetNodeInfo.done} {map/GetNodeInfo};
};

#alias {walk} {
    #if { "%1" == "-c" && "%2" == "{gag|nogag|}" } {
        map.GetNodeInfo {%2};
    };
    #elseif { "%1" == "{[a-z0-9;]+}" } {
        map.WalkNodes {%1} {%2};
    };
    #else {
        xtt.Send {walk %0};
    };
};

///=== {
// ## map.WalkNodes <节点列表> [<回调钩子ID>]
//    执行 walk 命令，按节点列表顺序依次行走，并发射走路机器人事件。
//    可选的回调钩子 ID 可以只唤醒指定的钩子，避免惊群。
//    到达目的地后会自动执行 look 命令。
// };
#alias {map.WalkNodes} {
    #class map.WalkNodes open;

    #var map.WalkNodes.nodes   {@list.FromSlist{%1}};
    #var map.WalkNodes.hook    {%2};
    #var map.WalkNodes.delay   {3};

    #local ID {|ID=map/WalkNodes};

    #action {^你开始往%*方向飞奔过去……{$ID}$} {
        #var map.WalkNodes.delay   {3};
    };

    #action {^频繁使用此命令会对系统造成很重负担，请稍等。{$ID}$} {
        #delay map.WalkNodes.retry {walk} $map.WalkNodes.delay;
    };

    #action {^你因为种种原因停了下来，可以用walk继续进行。{$ID}$} {
        #switch {"$gMapRoom[name]"} {
            #case {"襄阳南门"}  {ask shou jiang about 投军; walk};
            #case {"万纶台"}    {ask liang liuhe about 拜山; walk};
            #case {"山路"} {
                #local obj {@map.Room.GetObjByID{shan xiao}};
                #if { "$obj[name]" == "山魈" } {
                    give 1 coin to shan xiao;
                };
                busy.Wait walk;
            };
            #default {
                tuna max;
                #delay $map.WalkNodes.delay {halt; walk};
                #var map.WalkNodes.delay   {1};
            };
        };
    };

    #action {^你到达了%*。{$ID}$} {
        #delay 0 {map.WalkNodes.walk-next};
    };

    #alias {map.WalkNodes.walk-next} {
        #if { &map.WalkNodes.nodes[] > 0 } {
            #local node {$map.WalkNodes.nodes[1]};
            #local node {@str.Replace{{$map.WalkNodes.nodes[1]};{^%+{|/(.+)}$};{{step}{&1}{args}{&3}}}};
            #list map.WalkNodes.nodes delete 1;
            #if { "$node[step]" == "PATH" } {
                xtt.SendBatch {$node[args]};
                sync.Wait {map.WalkNodes.walk-next};
            };
            #elseif { "$node[step]" == "{[A-Z][A-Za-z0-9]+}" } {
                #local bot {$node[step]};
                event.HandleOnce map/walk/continue {map.$bot} {map} {map.WalkNodes.walk-next};
                map.$bot $node[args];
            };
            #else {
                xtt.Send {walk $node[step]};
            };
        };
        #else {
            #local hook {$map.WalkNodes.hook};
            #class map.WalkNodes kill;
            event.Emit map/walk/continue {$hook};
        };
    };

    #class map.WalkNodes close;

    map.WalkNodes.walk-next;
};

#alias {^{[a-z0-9]{2,}}_{[a-z0-9]{2,}}$} {node walk %0} 9.5;

/*
襄阳南门
守军拦住了你的去路，大声喝到：干什么的？要想通过先问问我们守将大人！
守将给了你一块腰牌。
牧民告诉你：牧场上最近出现了一只游荡的野狼，已经吞食了很多单身的旅人，没事最好经过这里。
走路太快，你没在意脚下，被杂草绊了一下。
*/