$Connectify::Client::Server = "irc.quakenet.org";$Connectify::Client::Port = "6667";
function Connectify_Connect(){ if(!isObject(Connectify_TCP)) new TCPObject(Connectify_TCP); else Connectify_TCP.disconnect(); %server = $Connectify::Client::Server @ ":" @ $Connectify::Client::Port; Connectify_TCP.connect(%server); connectifyGui.push("Connecting to server..."); Connectify_TCP.send("JOIN #Connectify" @ " \r\n");}
You have to do a lot more than just sending JOIN.You connect to quakenet server, send a NICK, then send the USER. Wait a couple seconds for the server to catch up until you send JOIN.
function Connectify_Connect(){ if(!isObject(Connectify_TCP)) { new TCPObject(Connectify_TCP) { connected = 0; }; } else Connectify_TCP.disconnect(); %server = $Connectify::Client::Server @ ":" @ $Connectify::Client::Port; Connectify_TCP.connect(%server); connectifyGui.push("Connecting to server..."); %guestName = "Blockhead" @ getNumKeyID(); Connectify_TCP.sendLine("NICK " @ %guestName); if($Pref::Player::NetName !$= "" && isUnlocked()) %userName = filterString(strReplace($Pref::Player::NetName," ","_"),"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789[]-"); else if($Pref::Player::LANName !$= "") %userName = filterString(strReplace($Pref::Player::LANName," ","_"),"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789[]-"); Connectify_TCP.sendLine("USER " @ %guestName @ " 0 * :" @ %userName@ "-" @getNumKeyID());}function Connectify_TCP::onConnected(%this){ connectifyGui.push("Connected."); Connectify_TCP.connected = 1; schedule(2000,0,Connectify_ConnectChannel);}function Connectify_ConnectChannel(){ connectifyGui.push("Joining Channel..."); Connectify_TCP.sendLine("JOIN #Connectify");}