discworld-tintin/src/gmcp.tin

#CLASS gmcp kill
#CLASS gmcp open


#FORMAT IAC  %a 255
#FORMAT DONT %a 254
#FORMAT DO   %a 253
#FORMAT WONT %a 252
#FORMAT WILL %a 251
#FORMAT SB   %a 250
#FORMAT SE   %a 240

#FORMAT GMCP %a 201

#ALIAS {debug {on|off}}
{
    #IF {"%1" == "on"} { #VARIABLE debug 1 };
    #ELSE { #VARIABLE debug 0 };
    #SHOWME { Debug is <139>$debug<099> };
    #NOP;
}

#EVENT {IAC SB GMCP Char.Vitals IAC SE}
{
    #IF {$debug} { #SHOWME %1 };
    #VAR GMCP[oldvitals] {$GMCP[vitals]};
    #VAR GMCP[vitals] {%0};

    #math {hploss} {$GMCP[vitals][hp] - $GMCP[oldvitals][hp]};
    #if {$hploss < -150} {
        #echo {<139>HP IS FALLING! CAREFUL!<099>};
        #showme {\a\a};
    }
    
    update_prompt;
}

#EVENT {IAC SB GMCP char.info IAC SE}
{
    #IF {$debug} { #SHOWME %1 };
    #VAR GMCP[charinfo] {%0};
}

#EVENT {IAC SB GMCP room.info IAC SE}
{
    #IF {$debug} { #SHOWME %1 };
    #VAR GMCP[room][info] {%0};
    #nop;
}

#EVENT {IAC SB GMCP room.map IAC SE}
{
    #IF {$debug} { #SHOWME %1 };
    #VAR {minimap} {%0};
    #REPLACE {minimap} {u001b} {};
    #SYSTEM {rm logs/minimap.log && touch logs/minimap.log};

    #LINE {log} {logs/minimap.log} {\n\n$minimap};
    #SYSTEM {sed -i -e 's/^/     /' logs/minimap.log};
}

#EVENT {IAC SB GMCP room.writtenmap IAC SE}
{
    #IF {$debug} { #SHOWME %1 };
    #VAR GMCP[room][mdt] {%0};
    #REPLACE {GMCP[room][mdt]} {\\n} {};
    #SYSTEM {rm logs/mapdoortext.log && touch logs/mapdoortext.log};
    #LINE {log} {logs/mapdoortext.log} {$GMCP[room][mdt]};
}

#EVENT {IAC WILL GMCP}
{
    #SHOWME {GMCP ENABLED};
    #SEND {$IAC$DO$GMCP\};
    #nop #SEND {$IAC$SB$GMCP Core.Hello { "client": "$CLIENT_NAME", "version": "$CLIENT_VERSION" } $IAC$SE\};
    #SEND {$IAC$SB$GMCP Core.Hello { "client": "TinTin++", "version": "2.01.2" } $IAC$SE\};
    #SEND {$IAC$SB$GMCP Core.Supports.Set ["Char.Vitals", "room.info", "room.map", "room.writtenmap", "char.info"] $IAC$SE\}
}

#EVENT {PROGRAM START}
{
    #VARIABLE CLIENT_NAME %0;
    #VARIABLE CLIENT_VERSION %1;
}

#CLASS gmcp close