You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
89 lines
1.9 KiB
89 lines
1.9 KiB
#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;
|
|
}
|
|
|
|
#alias {repopwatch {on|off}}
|
|
{
|
|
#if {"%1" == "on"} { #variable repop 1 };
|
|
#else { #variable repop 0 };
|
|
#showme { Repopwatch is <139>$repop<099> };
|
|
#nop;
|
|
}
|
|
|
|
#alias {{^check repop$}}
|
|
{
|
|
#format {timestamp} {%T};
|
|
#math {repop_time} {($last_repop+606)-$timestamp};
|
|
#send {$repchan @CNext repop@w: @R$repop_time @Wseconds.@w};
|
|
}
|
|
|
|
#event {IAC SB GMCP comm.channel IAC SE}
|
|
{
|
|
#if {$debug} { #showme %1 };
|
|
#var {GMCPDATA[COMM][CHATLOGGER]} {%0};
|
|
#if {"$GMCPDATA[COMM][CHATLOGGER][chan]" != "mobsay"}
|
|
{
|
|
#line log {$dir/logs/channel.log} {$GMCPDATA[COMM][CHATLOGGER][msg]};
|
|
};
|
|
}
|
|
|
|
#event {IAC SB GMCP comm.repop IAC SE}
|
|
{
|
|
#if {$debug} { #showme %1 };
|
|
#var {GMCP[COMM][REPOP]} {%0};
|
|
|
|
#format {last_repop} {%T};
|
|
#format {time} {%t} {%H:%M:%S};
|
|
#send {$repchan @WRepop @w= @r$GMCP[COMM][REPOP][zone]@w @@ @r$time};
|
|
#var time {};
|
|
#nop;
|
|
}
|
|
|
|
#nop Start up GMCP connection with the server
|
|
#event {IAC WILL GMCP}
|
|
{
|
|
#send {$IAC$DO$GMCP\};
|
|
#send {$IAC$SB$GMCP Core.Hello { "client": "$CLIENT_NAME", "version": "$CLIENT_VERSION" } $IAC$SE\};
|
|
#send {$IAC$SB$GMCP Core.Supports.Set [ "Room 1", "Char 1", "Core 1", "Comm 1", "Debug 1", "Group 1" ] $IAC$SE\}
|
|
}
|
|
|
|
#event {PROGRAM START}
|
|
{
|
|
#variable CLIENT_NAME %0;
|
|
#variable CLIENT_VERSION %1;
|
|
}
|
|
|
|
#nop Write out command history and variable class on disconnect
|
|
#event {SESSION DISCONNECTED}
|
|
{
|
|
#history write {$dir/logs/history.log};
|
|
}
|
|
|
|
#event {SESSION CONNECTED}
|
|
{
|
|
$name;
|
|
$password;
|
|
#unvar name;
|
|
#unvar password;
|
|
#history read {$dir/logs/history.log};
|
|
}
|
|
|
|
#class gmcp close
|