paotin/plugins/lib/gmcp.tin

#nop GMCP 支持库;
#nop vim: set filetype=tt:;

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

load-lib telnet;
load-lib event;

event.Define {GMCP.Move}    {无参} {$MODULE} {接收到 GMCP 移动信息，已更新 gGMCP[Move]};
event.Define {GMCP.Status}  {无参} {$MODULE} {接收到 GMCP 角色状态，已更新 gGMCP[Status]};
event.Define {GMCP.Combat}  {无参} {$MODULE} {接收到 GMCP 战斗信息，已更新 gGMCP[Combat]};
event.Define {GMCP.Buff}    {无参} {$MODULE} {接收到 GMCP BUFF状态，已更新 gGMCP[Buff]};

#alias {gmcp.Enable} {
    #event {IAC WILL GMCP} {
        #send {$TELNET[IAC]$TELNET[DO]$TELNET[GMCP]\};
    };
};

#alias {gmcp.Handle} {
    #local key      {%1};
    #local handler  {%2};

    #line sub var #event {IAC SB GMCP $key IAC SE} {$handler};
};

#alias {gmcp.Subscribe} {
    gmcp.Handle GMCP.Move {
        #line sub escape #var gGMCP[Move] {%%0};
        #var gGMCP[Move] {$gGMCP[Move][1]};
        event.Emit GMCP.Move {};
    };

    gmcp.Handle GMCP.Status {
        #line sub escape #var gGMCP[Status] {%%0};
        event.Emit GMCP.Status {};
    };

    gmcp.Handle GMCP.Combat {
        #line sub escape #var gGMCP[Combat] {%%0};
        event.Emit GMCP.Combat {};
    };

    gmcp.Handle GMCP.Buff {
        #line sub escape #var gGMCP[Buff] {%%0};
        event.Emit GMCP.Buff {};
    };
};