RCON.pm6

unit class Net::RCON;

use IO::Socket::INET;
use experimental :pack;

has Str   $.host      = "localhost";
has UInt  $.port      = 27015;
has Str   $.password  is required;

has $!connection;

enum ServerData (
    RESPONSE_VALUE => 0,
    AUTH_RESPONSE  => 1,
    EXECCOMMAND    => 2,
    AUTH           => 3
);

method connect {

    my $socket = IO::Socket::INET.new: :$hostname, :$port;
    $!connection = $socket.accept;

    self.authenticate
}

method authenticate {
    self.send: :type(AUTH), :data($!password)
}

method send(ServerData :$type, Str() :$data) {

    my $payload = "{ pack "VV", 1, $type }{ $data }{ pack "xx" }";
    $payload [R~]= pack "V", $payload.bytes;

    $!connection.write($payload);
}

method recieve() {
    
}