mirror of
https://github.com/Ragora/TribesReplay.git
synced 2026-01-19 17:44:45 +00:00
669c607190
Map Editor =================================== Several editor crashes have been resolved and this tool should be more stable for the MOD community now. VCR Mode =================================== The VCR Mode has been implemented. F3 starts recording. F4 stops the current recording. Multiple recordings can be made from the same mission. Other controls can be used while playing back a recording. They include: -- ESCAPE will stop the playback -- TAB will pop up the playback controls window in the upper part of the screen -- SPACEBAR will pause/unpause the playback -- Numpad + will increase the time step so that the playback accelerates (maximum of 16X speed) -- Numpad - will decrease the time step so that the playback slows down (minimum of 1/16X speed) ***If you Alt-Tab to windows to rename a demo file and then return to Tribes instead of using the rename file feature of the demo recorder you will crash after you exit the recorder. It is a windows issue and so we can't fix it. Satchel Charge Icon Glow =================================== When the satchel charge is deployed and ready to explode, the icon now glows. The icon disappears completely when the satchel is destroyed (either through activation or destruction). This allows players to more readily keep track of satchel charge status. "Visibility" option for Server Admins ===================================== Allows an Advanced Server option to indicate whether the server will use the "Speed" or "Distance" versions of the maps when hosting games. The "Distance" setting will use world versions with much less fog and more visible distance. The "Speed" setting will use the current foggier map settings. These settings will be displayed as a new column on the Master Server List titled "VISIBILITY" and the settings will be "Speed" or "Distance". NOTE: This visibility change won't be apparent on all maps. A map you can use as a test to show the differences is "Dessicator". World Skins Default to Main Tribes ========================================== The missions are now set up so they have default skins other than "Storm" vs. "Inferno". This occurs whenever a player has "Show Individual Skins" toggled OFF. In otherwords, some maps will have "Diamond Skin" vs. "StarWolf", while others will have different combinations. (NOTE: If a player has "Show Individual Skins" toggled ON, then he will see the regular individual skins for players.) New voice samples have been added to allow Victory messages indicate these new team skins. Also note: Bioderms are bioderms, regardless of the team they are on...we're not changing models or voice packages. Teams now use skins for CTF games relative to the planet - as follows: Terrain Team 1 Team 2 Ice Starwolf Blood Eagle Lush Blood Eagle Diamond Sword Badlands Starwolf Diamond Sword Desert Phoenix Blood Eagle Lava Diamond Sword Phoenix If the server admin wishes to specify team skins, set the variable $host:: useCustomSkins = true; in serverPrefs.cs if this variable is set true the skins and names used are $Host::TeamName1 and $Host::TeamName2 and $Host::TeamSkin1 and $Host::TeamSkin2 also set in serverPrefs.cs. These team and skin names are always used for non-CTF games. NOTE: In "Tournament" mode games, the skins will always default to Storm and Inferno rather than world-specific skins. This is to make it easier for League and Ladder players to assign teams to sides. Cheat Fixes =================================== Significant cheat prevention code has been implemented to eliminate known cheats, as well as to make it much more difficult for future cheating of a similar nature to occur. NOTE: If you have any troubles running a server now, you may have altered or removed something from the build on your server. The code is checking almost everything now (shapes, textures, etc.), so you should ensure that you have all files present from a normal build on your server. (Additional files, like MODs and extra art files won't be a problem...but all original files must be there as well.) Siege Halftime Improved =================================== The Siege halftime now gets a screen listing the winning team instead of simply "Switching Sides". CTF Individual Scoring =================================== No change was made whatsoever to the team CTF scoring. But the individual scoring now takes into account vehicle kills, more repair/destroy stuff, and makes it nice and robust for statistical tracking later. NOTE: The scores are dramatically inflated compared to previous individual scores so that we had more "granularity" in the system and didn't have to use decimal points. Thus, you will appear to be racking up a huge amount of points, but it's all relative when compared to other players in the game. Scoring Details ---------------------- Kill: 10 pts Flag Capture: 30 pts Flag Grab (if subsequently captured): 20 [A one player grab-and-cap you get both for a total of 50] Carrier Escort: 3 Sniper Headshot: 1 Turret kill: manned: 10 automated: 3 Flag Defend: 5 Flag Carrier Kill: 5 Flag Return: 0 - 10 pts [Points are scaled by distance: no points for a short return. 10 pts if the flag carrier gets all the way to the flag. 1 point per 10% (Halfway is 5 pts.)] 15 points if the return breaks a stalemate (both teams have had each others flags for 60 seconds or longer.) Generator Defend: 5 pts Object Destroy Repair Generator 10 8 Sensor 4 1 Base Turret 5 4 Inv Station 2 2 Vehicle Station 5 4 Solar Panel 5 4 Sentry Turret 4 2 Deployed sensor 1 0 Deployed inv station 2 0 Deployed turret 3 3 Shrike 5 Bomber 8 Havoc 5 Wildcat 5 Tank 8 MPB 12 *vehicles destroyed by mines are double points, vehicles destroyed by the Shrike are triple points **vehicles destroyed also score 2 points per passenger (after any multiplier) ***points accumulated in a vehicle are earned by everyone in the vehicle Heat Lock vs. Target Laser Lock =================================== Heat Locking now supercedes Targeting Laser Locking so that heat locks can be attained on objects that are being lazed by friends. Keep in mind that when the target is out of range for the ML, it will still lock onto the targeting laser giving the appearance that its locking onto the laser first. If the target is in range the ML will always look for heated targets first. Objective HUD Visible on Vehicles =================================== The objective HUD is now visible while flying/driving vehicles. Client-Side Toggle on Vehicle Tport =================================== The player now has the ability to toggle Vehicle Tport ability on/off (defaults to ON) as a client-side option in SETTINGS/GAME. EAX Sound Improvements =================================== EAX environmental sound reverbs have been included for underwater and interiors. Those sounds will only be heard when using EAX or EAX2 drivers. (We recommend EAX for best results.) IFeel Force Feedback Mouse =================================== The IFeel force feedback mouse vibrations should now work correctly again. They have also been enhanced beyond what was previously available. Vehicles Parking on Flags =================================== "Anti-Parking" code has been added to flags similar to the "anti-camping" code around a Nexus in Hunters. This results in vehicles taking damage over time when they are parked near a flag, eventually resulting in their destruction if left there too long. Aiming Up and Down =================================== The restrictions on aiming up and down have been virtually removed for all armors. NOTE: This will result in situations where your weapon can clip through the leg of your armor when looking straight down. If this bothers you, then change your graphics setting to "Items Only" so that your body is not drawn when in first-person perspective. Jetpower for Suits =================================== Scout jetpower (power of thrust) was reduced to previous levels, but their maximum speed velocity was increased somewhat. This removes the "butterfly" effect, but allows slightly faster skiing than previously allowed. Additionally, air resistance was reduced by 33% on all armors to further reduce the "floaty" feel. This also allows slightly faster speeds across the board. Splash Damage =================================== Splash damage on shots was reduced slightly. It is still much more powerful than when the game was released, but this change makes mortars and grenades more playable. Shrike Speed =================================== The Shrike thrust was returned to normal, making the Shrike very responsive again. A new maximum speed cap has been added to prevent it from going too fast, but the performance improvement on this vehicle is significant. Mine Damage =================================== Mine damage was reduced slightly to prevent Lights from being one-shotted by stepping on a mine. They will still be severely harmed, but won't go from 100% health to dead in one shot. Missile Launcher =================================== The Missile Launcher range had been inadvertently reduced during the reticule improvements a few patches back. It has now been increased back to its original design. Range is now 400m. Heat Signature Fall Off =================================== Heat reduces *very slightly* slower than it did previously. Players can still easily manage their heat signatures, but must be a bit more paranoid of missile launchers now (thus making it a bit easier for high-ping players to use this weapon). Suit Mortars vs. Tanks =================================== The strength of hand-held mortars versus Tanks was incorrectly weak. It has now been increased so that it is much more useful. Shrike Gun Changes =================================== The Shrike blasters have been moved out to the wing joints to allow easier strafing of objects. Additionally, there is some (very minor...one degree of spread) projectile spread on the blasters now to make strafing easier. (For comparison purposes, the chaingun has eight degrees of spread.)The range of the blasters was incorrectly enormous and has been reduced to a balanced distance (slightly outside the range of hand-held missile launchers). Water Movement =================================== Speeds in water have been greatly increased so as to make water a more viable playing environment. Whiteout Grenades =================================== A maximum saturation has been defined for the Whiteout grenades to keep your "whiteout" time to no more than two seconds. OOB Grid =================================== The mission boundary is now visually defined. As you approach a mission boundary, and "out of bounds grid" will fade into existence. If you go past the boundary, the grid will not fade out until you return inside the mission area. This is done to make it easier to avoid getting a flag stripped or getting damaged due to OOB damage. This visual option can be toggled OFF in your Game Settings area (option button is called "Show Out of Bounds Grid"). Wildcat Grav Bike =================================== "Suspension" has been added to the Wildcat making it easier to control over rough terrain. Air Drag =================================== Air Drag has been reduced making the game feel "faster". Panther XL Support Added =================================== Players will now be able to satisfactorily map the roller ball of the Panther XL. The Z axis or throttle is not configurable with T2 because of a Panther XL driver issue. Flight Ceiling limited for Shrike =================================== If you fly past the flight ceiling then you will lose your jetting and thrusting ability. Angle your nose down (when you are above the flight ceiling) and thrust will function normally. "Unassigned" Team =================================== This bug allowed a person to join as "unassigned" and view all friend/foe triangles as grey. It has been fixed. <Null> and random string issues =================================== There is a finite number of network strings available, the single quote strings. This problem occurs when all strings have been allocated. This is particularly common with mod servers, which appear to be allocating too many net strings. Mod and script developers need to be cautious when creating new strings. Don't create dynamic net strings unless you have a firm understanding of the implications. If a string is added using "AddTaggedString" make sure that there is a corresponding "RemoveTaggedSting" call when the string is no longer needed. Also be sure to limit the number of imbedded strings in your scripts.
3426 lines
113 KiB
C#
3426 lines
113 KiB
C#
//------------------------------------------------------------------------------
|
||
//
|
||
// ChatGui.cs
|
||
//
|
||
//------------------------------------------------------------------------------
|
||
|
||
$CHANNEL_STATUS = "STATUS";
|
||
$VERSION_STRING = "Dynamix IRC Chat 1.2.0";
|
||
$ESCAPE_SEQ = "_-_";
|
||
|
||
$IRCClient::serverList = GetIRCServerList(0);
|
||
$IRCClient::serverCount = getRecordCount($IRCClient::serverList);
|
||
$IRCClient::retries = 0;
|
||
|
||
if ($IRCClient::serverCount > 1)
|
||
$IRCClient::serverIndex = getRandom($IRCClient::serverCount-1)-1;
|
||
else
|
||
$IRCClient::serverIndex = -1;
|
||
|
||
$IRCClient::serverAttempt = 0;
|
||
|
||
$AWAY_TIMEOUT = 5 * 60 * 1000;
|
||
$VERSION_FLOOD_TIMEOUT = 5.0;
|
||
$PING_FLOOD_TIMEOUT = 5.0;
|
||
|
||
// Person flags
|
||
$PERSON_SPEAKER = 1;
|
||
$PERSON_OPERATOR = 2;
|
||
$PERSON_IGNORE = 4;
|
||
$PERSON_AWAY = 8;
|
||
|
||
// Channel flags
|
||
$CHANNEL_PRIVATE = 1;
|
||
$CHANNEL_MODERATED = 2;
|
||
$CHANNEL_INVITE = 4;
|
||
$CHANNEL_LIMITED = 8;
|
||
$CHANNEL_NEWMESSAGE = 16;
|
||
$CHANNEL_IGNORE_EXTERN = 32;
|
||
$CHANNEL_SECRET = 64;
|
||
$CHANNEL_TOPIC_LIMITED = 128;
|
||
$CHANNEL_HAS_KEY = 256;
|
||
$CHANNEL_NEW = 512;
|
||
|
||
// Default messages (if gui is left blank)
|
||
$DefaultChatAwayMessage = "Don't be alarmed. I'm going to step away from my computer.";
|
||
$DefaultChatKickMessage = "Alright, you\'re outta here!";
|
||
$DefaultChatBanMessage = "Get out. And stay out!";
|
||
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinChatDlg::onWake(%this)
|
||
{
|
||
if ($IRCClient::state $= IDIRC_CONNECTED)
|
||
IRCClient::requestChannelList();
|
||
else
|
||
MessageBoxYesNo("Connect IRC","Connect to IRC server?","IRCClient::connect();","Canvas.popDialog(JoinChatDlg);");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinChatList::onAdd( %this )
|
||
{
|
||
%this.addColumn( 0, "Channel Name", 210, 210, 210 );
|
||
%this.addColumn( 1, "Users", 74, 74, 74, "numeric center" );
|
||
%this.addColumn( 2, "", 0, 0, 0, "numeric" );
|
||
%this.setSortColumn( 2 );
|
||
%this.setSortIncreasing( false );
|
||
%this.addStyle( 1, $ShellBoldFont, $ShellFontSize, "180 180 180", "220 220 220", "40 40 40" );
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinChatList::onSelect(%this,%id,%text)
|
||
{
|
||
JoinChatName.setValue( getField( %text, 0 ) );
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinChatDlg::join(%this)
|
||
{
|
||
if(trim(JoinChatName.getValue()) $= "")
|
||
{
|
||
messageBoxOK("ERROR", "Invalid Channel Name");
|
||
return;
|
||
}
|
||
else
|
||
{
|
||
IRCClient::join(IRCClient::channelName(trim( JoinChatName.getValue()) ));
|
||
Canvas.popDialog(JoinChatDlg);
|
||
LaunchTabView.viewTab("CHAT", ChatGui, 0);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinChatName::onCharInput( %this )
|
||
{
|
||
%text = %this.getValue();
|
||
if ( %text !$= "" )
|
||
{
|
||
%count = JoinChatList.rowCount();
|
||
for ( %row = 0; %row < %count; %row++ )
|
||
{
|
||
if ( %text $= getSubStr( getField( JoinChatList.getRowText( %row ), 0 ), 0, strlen( %text ) ) )
|
||
break;
|
||
}
|
||
|
||
if ( %row < %count )
|
||
JoinChatList.scrollVisible( %row );
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatGui::onAdd(%this)
|
||
{
|
||
// Add the Member popup menu:
|
||
new GuiControl(ChatMemberActionDlg) {
|
||
profile = "GuiModelessDialogProfile";
|
||
horizSizing = "width";
|
||
vertSizing = "height";
|
||
position = "0 0";
|
||
extent = "640 480";
|
||
minExtent = "8 8";
|
||
visible = "1";
|
||
setFirstResponder = "0";
|
||
modal = "1";
|
||
|
||
new ShellPopupMenu(ChatMemberPopup) {
|
||
profile = "ShellPopupProfile";
|
||
position = "0 0";
|
||
extent = "0 0";
|
||
minExtent = "0 0";
|
||
visible = "1";
|
||
maxPopupHeight = "200";
|
||
noButtonStyle = "1";
|
||
};
|
||
};
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatGui::onWake(%this)
|
||
{
|
||
Canvas.pushDialog(LaunchToolbarDlg);
|
||
// ChatTabView.addSet(1,"gui/shll_horztabbuttonB","5 5 5","50 50 0","5 5 5");
|
||
ChatGui.awake = true;
|
||
ChatTabView.setSelected($IRCClient::currentChannel);
|
||
ChatGuiScroll.scrollToBottom();
|
||
ChatMessageEntry.schedule(1, makeFirstResponder, true);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatGui::setKey(%this,%ignore)
|
||
{
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatTabView::onAdd(%this)
|
||
{
|
||
// Don't Forget, it needs to be on add unless you have a VERY GOOD REASON, right Brad?.
|
||
ChatTabView.addSet(1,"gui/shll_horztabbuttonB","5 5 5","50 50 0","5 5 5");
|
||
if ($LaunchMode $= "Normal")
|
||
// %this.addTab(0,"WELCOME");
|
||
%this.addTab($IRCClient::channels.getObject(0),"WELCOME");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatTabView::onSelect(%this,%obj,%name)
|
||
{
|
||
if (%name $= "WELCOME")
|
||
{
|
||
%indentSpace = "";
|
||
WelcomeHeadlines.clear();
|
||
WelcomeText.clear();
|
||
%obj.topic = "Welcome to the Tribes 2 Chat Area!";
|
||
|
||
%topic[0] = "Welcome To Tribes 2 Chat";
|
||
%topic[1] = "Public Channels";
|
||
%topic[2] = "Private Channels";
|
||
%topic[3] = "Chat Options";
|
||
%topic[4] = "ShazBot";
|
||
%topic[5] = "Channel Ops";
|
||
%topic[6] = "Private Channel Conduct";
|
||
%topic[7] = "Right Click Mute";
|
||
%topic[8] = "/me, /action, channels";
|
||
%topic[9] = "Tab Complete";
|
||
|
||
%atxt[0] = "Welcome to the Tribes 2 Chat. Tribes has the distinction of having the largest and most devoted player base of any massivly multi-player game. To support this base we have included the Chat area to make it easier to recruit, get help, meet other players and organize games. Tribes 2 Chat is a secure IRC based chat network that requires an authenticated Tribes 2 game client to join, this means that third party IRC clients like mIRC cannot be used.";
|
||
%atxt[1] = "When you access the CHANNELS list, you are seeing a listing of all the available chat rooms. The chat rooms colored \"white\" are general rooms that anyone can access. These are usually the most populated rooms and are \"Tribes 2\" where general gameplay is discussed, \"Recruiting\" where people go to try and find teams, or to recruit players onto their teams, and \"Help\" which is an area to go and speak with other players about technical issues you're having with your system.";
|
||
%atxt[2] = "There are also Private Chat channels that you will see IF you are a member of a Tribe. If that's the case, then there will be a private chat channel visible for each tribe you belong to and you can enter those rooms to speak with other Tribe members. Players that do not belong to those tribes will not be able to enter that room.";
|
||
%atxt[3] = "There are CHAT OPTIONS (use the button at the top of this page to access those options) that allow you to customize your \"away\" message and a few other messages.";
|
||
%atxt[4] = "When you're in a chat channel, beware the Mighty and Powerful SHAZBOT. Shazbot is an automated spam and cursing filter that runs in the general rooms. If you curse a lot, or repeat the same messages too often, or even if you just spam a whole bunch of different nonsense lines in a row, the Mighty and Powerful SHAZBOT will throw you out of the room to think about your transgressions. These kicks are temporary and you can come back later, but if you get kicked enough times, you may be banned entirely, so think before you type and the world will be rosy. (Shazbot doesn't like all-caps messages either...so be careful. No shouting around him...he's sensitive.)";
|
||
%atxt[5] = "There are human Operators (Ops) in each channel also. These Ops are not automated. They are people. If you respect them, then they will be kind and considerate in return. However, if you badmouth them or otherwise annoy them, they may kick or ban you from a channel. Just be civil and all things will be good. (NOTE: In Private channels, the Ops are all Tribe members and there are no cursing or spamming rules...unless those Ops make those rules.)";
|
||
%atxt[6] = "Private channels are completely deregulated. Dynamix/Sierra/Vivendi-Universal neither care, nor want to know, what you talk about in those channels. They are yours. Warning to anyone who goes to those channels: If you go there, and you do not like what you hear, then leave. Don't expect Dynamix/Sierra/Vivendi-Universal to do anything about private channels. We only review the public channels.";
|
||
%atxt[7] = "When in a public channel, if someone is being annoying, then simply use the MUTE functionality to ignore him completely. This is much easier than trying to get an Op to kick him and is usually easier and faster.";
|
||
%atxt[8] = "If you see someone typing in a different color, they are probably using a \"/me\" or \"/action\" command. This allows you to emote an action in chat. For instance, if you type /me is away from the keyboard right now, then you'll see \"<playername> is away from the keyboard right now\" and it will be a different color than normal chat. Channel links are usually green and are created by putting a pound sign \"#\" before the channel name.";
|
||
%atxt[9] = "There is a nifty Tab Complete feature that makes it easier to type names. If there is a player named \"MrMyxlpytlk\" in the room, you may have a tough time typing that out normally. But if you type \"MrMy\" and then hit TAB, the name will auto-complete instantly, allowing you to respond quickly to screwy names.";
|
||
|
||
for (%i = 0; %i < 10; %i++)
|
||
{
|
||
%text = %text @ "<lmargin:10><color:ADFFFA><font:Univers:22><tag:" @ %i @ ">" @ %topic[%i] @
|
||
"\n\n<lmargin:30><rmargin%:80><font:Univers:16><color:82BEB9>" @ %atxt[%i] @ "<sbreak>\n\n\n<rmargin%:100>";
|
||
WelcomeHeadlines.addRow( %i, %topic[%i] );
|
||
}
|
||
|
||
ChatPanel.setVisible(false);
|
||
WelcomePanel.setVisible(true);
|
||
WelcomeText.setValue(%text);
|
||
WelcomeHeadlines.setSelectedRow(0);
|
||
}
|
||
else
|
||
{
|
||
ChatPanel.setVisible(true);
|
||
WelcomePanel.setVisible(false);
|
||
}
|
||
|
||
ChatTabFrame.setAltColor(%obj.private);
|
||
%i = %obj.findMember($IRCClient::people.getObject(0));
|
||
ChatEditChannelBtn.setVisible(%obj.getFlags(%i) & $PERSON_OPERATOR);
|
||
|
||
//is this the status window? do we need the options button
|
||
%vis = (%name $= "WELCOME" ? true : false);
|
||
ChatEditOptionsBtn.setVisible(%vis);
|
||
|
||
ChatChannelTopic.setValue(%obj.topic);
|
||
if (ChatGui.awake)
|
||
{
|
||
if ($IRCClient::currentChannel == $IRCClient::attachedChannel)
|
||
ChatGuiMessageVector.detach();
|
||
|
||
ChatGuiMessageVector.attach(%obj);
|
||
//ChatGuiMessageVector.scrollToBottom();
|
||
$IRCClient::attachedChannel = %obj;
|
||
}
|
||
$IRCClient::currentChannel = %obj;
|
||
ChatRoomMemberList_rebuild(%obj);
|
||
ChatMessageEntry.schedule(1, makeFirstResponder, true);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatTabView::openNewPane(%this)
|
||
{
|
||
Canvas.pushDialog(JoinChatDlg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatTabView::closeCurrentPane(%this)
|
||
{
|
||
if ($IRCClient::currentChannel == $IRCClient::channels.getObject(0))
|
||
LaunchTabView.closeCurrentTab();
|
||
else
|
||
IRCClient::part($IRCClient::currentChannel.getName());
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinPublicTribeChannel(%tribe)
|
||
{
|
||
IRCClient::join(IRCClient::channelName(%tribe) @ "_Public");
|
||
LaunchTabView.viewTab("CHAT",ChatGui,0);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function JoinPrivateTribeChannel(%tribe)
|
||
{
|
||
IRCClient::join(IRCClient::channelName(%tribe) @ "_Private");
|
||
LaunchTabView.viewTab("CHAT",ChatGui,0);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function KeyChannelJoin()
|
||
{
|
||
Canvas.popDialog(ChannelKeyDlg);
|
||
IRCClient::join($IRCClient::keyChannel SPC EditChannelKey.getValue());
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatGuiMessageVector::urlClickCallback(%this,%type,%url,%content)
|
||
{
|
||
switch$(%type)
|
||
{
|
||
case "http":
|
||
gotoWebPage(%url);
|
||
case "server":
|
||
//IRCClient::onJoinGame(%content,%url);
|
||
%url = nextToken(%url,a," ");
|
||
%url = nextToken(%url,map,"(");
|
||
%url = nextToken(%url,type,")");
|
||
|
||
if(getSubStr(%content, 0, 1) $= "#")
|
||
{
|
||
// this is a fake server, its really a channel for invites
|
||
IRCClient::join(%content);
|
||
return;
|
||
}
|
||
// set the loading gui
|
||
// LoadingGui.map = %map;
|
||
// LoadingGui.missionType = %type;
|
||
// Canvas.setContent(LoadingGui);
|
||
// Canvas.repaint();
|
||
|
||
JoinGame(%content);
|
||
case "warrior":
|
||
LaunchBrowser(%url,"Warrior");
|
||
default:
|
||
return;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatSendText()
|
||
{
|
||
TextCheck2(ChatMessageEntry.getValue(),ChatMessageEntry);
|
||
if(ChatMessageEntry.textCheck)
|
||
{
|
||
for(%x=0;%x<getField($strcheck2,0);%x++)
|
||
{
|
||
%msgStr = %msgStr @ getField($strcheck2,1+%x) @ " ";
|
||
}
|
||
MessageBoxOK("NOTICE","The Following Characters may not be used in T2 Chat text:\n" NL
|
||
%msgStr);
|
||
ChatMessageEntry.makeFirstResponder(1);
|
||
}
|
||
else
|
||
{
|
||
|
||
if ($IRCClient::people.getObject(0).flags & $PERSON_AWAY)
|
||
IRCClient::away("");
|
||
else
|
||
{
|
||
if ($IRCClient::awaytimeout)
|
||
cancel($IRCClient::awaytimeout);
|
||
$IRCClient::awaytimeout = schedule($AWAY_TIMEOUT,0,"ChatAway_Timeout");
|
||
}
|
||
if ($IRCClient::currentChannel.private)
|
||
IRCClient::send2(ChatMessageEntry.getValue(),$IRCClient::currentChannel.getName());
|
||
else
|
||
IRCClient::send2(ChatMessageEntry.getValue(),"");
|
||
ChatMessageEntry.setValue("");
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatAway_Timeout()
|
||
{
|
||
$IRCClient::awaytimeout = 0;
|
||
IRCClient::away($pref::IRCClient::awaymsg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatRoomMemberList::onAdd(%this)
|
||
{
|
||
ChatRoomMemberList.addStyle($PERSON_OPERATOR,
|
||
"sys_op_eye", "",
|
||
"","","");
|
||
ChatRoomMemberList.addStyle($PERSON_IGNORE,
|
||
"", "mute_speaker",
|
||
"","","");
|
||
ChatRoomMemberList.addStyle($PERSON_IGNORE | $PERSON_OPERATOR,
|
||
"sys_op_eye", "mute_speaker",
|
||
"","","");
|
||
ChatRoomMemberList.addStyle($PERSON_AWAY,
|
||
"", "",
|
||
"128 128 128","","");
|
||
ChatRoomMemberList.addStyle($PERSON_OPERATOR | $PERSON_AWAY,
|
||
"sys_op_eye", "",
|
||
"128 128 128","","");
|
||
ChatRoomMemberList.addStyle($PERSON_IGNORE | $PERSON_AWAY,
|
||
"", "mute_speaker",
|
||
"128 128 128","","");
|
||
ChatRoomMemberList.addStyle($PERSON_IGNORE | $PERSON_OPERATOR | $PERSON_AWAY,
|
||
"sys_op_eye", "mute_speaker",
|
||
"128 128 128","","");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatRoomMemberList_rebuild(%c)
|
||
{
|
||
if(!%c)
|
||
%c = $IRCClient::currentChannel;
|
||
|
||
//error("ChatRoomMemberList_rebuild("@%c@")");
|
||
ChatRoomMemberList.clear();
|
||
for (%i = 0; %i < %c.numMembers(); %i++)
|
||
{
|
||
ChatRoomMemberList.addRow(%c.getMemberId(%i),%c.getMemberNick(%i));
|
||
ChatRoomMemberList.setRowStyle(%i,%c.getMemberId(%i).flags | %c.getFlags(%i));
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatRoomMemberList_refresh(%channel)
|
||
{
|
||
%list = nameToId(ChatRoomMemberList);
|
||
|
||
// we only want to refresh the list if its the currently active channel
|
||
// we will rebuild the list on channel switch
|
||
if(%channel != $IRCClient::currentChannel)
|
||
return;
|
||
|
||
//%me = $IRCClient::people.getObject(0);
|
||
|
||
//echo("Gui count :"@%list.rowCount());
|
||
//echo("Member count :" @ %channel.numMembers());
|
||
%add = ( %list.rowCount() < %channel.numMembers() ? true : false);
|
||
|
||
if(%add)
|
||
{
|
||
|
||
|
||
// get our gui list
|
||
for(%i = 0; %i < %list.rowCount(); %i++)
|
||
{
|
||
%list.guiValue[%i] = %list.getRowId(%i);
|
||
//echo("List "@%i@": "@%list.guiValue[%i]@"("@%channel.getMemberNick(%i)@")");
|
||
}
|
||
// get "real" list
|
||
for(%i = 0; %i < %channel.numMembers(); %i++)
|
||
{
|
||
%member = %channel.getMemberId(%i);
|
||
if(%member != %list.guiValue[%i])
|
||
{
|
||
|
||
// here is the difference, lets do the magic
|
||
//echo("did we just add: " SPC %channel.getMemberNick(%i));
|
||
%list.addRow(%channel.getMemberId(%i), %channel.getMemberNick(%i), %i);
|
||
%list.setRowStyle(%i, %channel.getMemberId(%i).flags | %channel.getFlags(%i));
|
||
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
for(%i = 0; %i < %list.rowCount(); %i++)
|
||
{
|
||
%list.guiValue[%i] = %list.getRowId(%i);
|
||
}
|
||
|
||
for(%i = 0; %i < %list.rowCount; %i++)
|
||
{
|
||
%member = %channel.getMemberId(%i);
|
||
if(%member != %list.guiValue[%i])
|
||
{
|
||
//echo("List "@%i@": "@%list.guiValue[%i] SPC IRCClient::taggedNick(%list.guiValue[%i]));
|
||
//error(%list.getRowId(%i));
|
||
|
||
%list.removeRow(%i);
|
||
%list.guiValue[%i] = "";
|
||
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChannelBannedList_refresh()
|
||
{
|
||
ChannelBanList.clear();
|
||
%j = 0;
|
||
for (%i = 0; %i < $IRCClient::numBanned; %i++)
|
||
{
|
||
%p = $IRCClient::banList[%i];
|
||
if (!$IRCClient::removeBan[%p])
|
||
{
|
||
ChannelBanList.addRow(%p,IRCClient::taggedNick(%p));
|
||
ChannelBanList.setRowStyle(%j,%p.flags);
|
||
%j++;
|
||
}
|
||
}
|
||
ChannelBanList.sort(0);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChannelRemoveBan()
|
||
{
|
||
$IRCClient::removeBan[ChannelBanList.getSelectedId()] = true;
|
||
ChannelBannedList_refresh();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatRoomMemberList::onRightMouseDown(%this,%column,%row,%mousePos)
|
||
{
|
||
// Open the action menu:
|
||
ChatMemberPopup.member = %this.getRowId(%row);
|
||
ChatMemberPopup.position = %mousePos;
|
||
|
||
ChatMemberPopup.clear();
|
||
%nick = IRCClient::displayNick(ChatMemberPopup.member);
|
||
%is = $IRCClient::currentChannel.findMember(ChatMemberPopup.member);
|
||
%im = $IRCClient::currentChannel.findMember($IRCClient::people.getObject(0));
|
||
|
||
// if ( !ChatMember.player.isBot )
|
||
|
||
ChatMemberPopup.add(%nick,7);
|
||
for (%i = 0; %i < strlen(%nick) * 1.5; %i++)
|
||
%line = %line @ "-";
|
||
ChatMemberPopup.add(%line,-1);
|
||
|
||
if (ChatMemberPopup.member == $IRCClient::people.getObject(0))
|
||
{
|
||
if (ChatMemberPopup.member.flags & $PERSON_AWAY)
|
||
ChatMemberPopup.add("Set Present",0);
|
||
else
|
||
ChatMemberPopup.add("Set Away",1);
|
||
}
|
||
else
|
||
{
|
||
if (strcmp(ChatMemberPopup.member.displayName,$IRCClient::currentChannel.getName()))
|
||
{
|
||
ChatMemberPopup.add("Chat",2);
|
||
}
|
||
|
||
if ($IRCClient::currentChannel.getFlags(%im) & $PERSON_OPERATOR)
|
||
{
|
||
if (strlen(ChatMemberPopup.member.nick) &&
|
||
!($IRCClient::currentChannel.getFlags(%is) & $PERSON_OPERATOR))
|
||
ChatMemberPopup.add("Admin",3);
|
||
ChatMemberPopup.add("Kick",4);
|
||
ChatMemberPopup.add("Ban",5);
|
||
}
|
||
if (ChatMemberPopup.member.flags & $PERSON_IGNORE)
|
||
ChatMemberPopup.add("Unmute",6);
|
||
else
|
||
ChatMemberPopup.add("Mute",6);
|
||
|
||
ChatMemberPopup.add( "--------------------",-1);
|
||
// ChatMemberPopup.add( "Instant Message", 9 );
|
||
ChatMemberPopup.add( "TMail", 10 );
|
||
ChatMemberPopup.add( "Add To Buddylist",11);
|
||
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (%c.private)
|
||
continue;
|
||
%cis = %c.findMember(ChatMemberPopup.member);
|
||
%cim = %c.findMember($IRCClient::people.getObject(0));
|
||
if (%cis < 0 &&
|
||
(!(%c.flags & $CHANNEL_INVITE) ||
|
||
%c.getFlags(%cim) & $PERSON_OPERATOR))
|
||
ChatMemberPopup.add("Invite to" SPC IRCClient::displayChannel(%c.getName()),%c);
|
||
}
|
||
}
|
||
|
||
Canvas.pushDialog(ChatMemberActionDlg);
|
||
ChatMemberPopup.forceOnAction();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatPrivate()
|
||
{
|
||
if (ChatRoomMemberList.getSelectedId() != $IRCClient::people.getObject(0))
|
||
{
|
||
%c = IRCClient::findChannel(ChatRoomMemberList.getSelectedId().getName(),true);
|
||
ChatTabView.setSelected(%c);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatMemberPopup::onSelect(%this,%id,%text)
|
||
{
|
||
%member = getSubStr(ChatMemberPopup.member.displayName,0,strlen(ChatMemberPopup.member.displayname)-strlen(nextToken(ChatMemberPopup.member.displayname,name,"^"))-1);
|
||
if(getsubstr(%member,strlen(%member)-1,strlen(%member)) $= "^")
|
||
%member = getsubstr(%member,0,strlen(%member)-1);
|
||
switch( %id )
|
||
{
|
||
case 0: // Set Back
|
||
IRCClient::away("");
|
||
case 1: // Set Away
|
||
IRCClient::away($pref::IRCClient::awaymsg);
|
||
case 2: // Chat
|
||
%c = IRCClient::findChannel(ChatMemberPopup.member.displayName,true);
|
||
ChatTabView.setSelected(%c);
|
||
case 3: // Admin
|
||
IRCClient::setOperator(ChatMemberPopup.member);
|
||
case 4: // Kick
|
||
IRCClient::kick(ChatMemberPopup.member,$pref::IRCClient::kickmsg);
|
||
case 5: // Ban
|
||
IRCClient::ban(ChatMemberPopup.member,true);
|
||
IRCClient::kick(ChatMemberPopup.member,$pref::IRCClient::banmsg);
|
||
case 6: // Mute/Unmute
|
||
IRCClient::ignore(ChatMemberPopup.member,!(ChatMemberPopup.member.flags & $PERSON_IGNORE));
|
||
case 7: // go to webbrowser page
|
||
LinkBrowser(%member,"warrior");
|
||
// case 9: // Instant Message
|
||
// IRCClient::instant(ChatMemberPopup.member,0);
|
||
case 10: // TMail
|
||
LinkEMail(%member);
|
||
case 11: // Add To Buddylist
|
||
MessageBoxYesNo("CONFIRM","Add " @ %member @ " to Buddy List?",
|
||
"LinkAddBuddy(\"" @ %member @ "\",TWBText,\"addBuddy\");","");
|
||
default: // Link
|
||
// LinkBrowser(%member,"warrior");
|
||
IRCClient::invite(ChatMemberPopup.member,%id);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChannelBanList::onAdd(%this)
|
||
{
|
||
ChannelBanList.addStyle($PERSON_IGNORE,
|
||
"", "mute_speaker",
|
||
"","","");
|
||
ChannelBanList.addStyle($PERSON_AWAY,
|
||
"", "",
|
||
"128 128 128","","");
|
||
ChannelBanList.addStyle($PERSON_IGNORE | $PERSON_AWAY,
|
||
"", "mute_speaker",
|
||
"128 128 128","","");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatGui::onClose(%key)
|
||
{
|
||
if ($IRCClient::people.getObject(0).flags & $PERSON_AWAY)
|
||
IRCClient::away("");
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
IRCClient::part($IRCClient::channels.getObject(%i).getName());
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ChatGui::onSleep(%this)
|
||
{
|
||
ChatGui.awake = false;
|
||
$IRCClient::attachedChannel = 0;
|
||
|
||
Canvas.popDialog(LaunchToolbarDlg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function EditChannelOptions()
|
||
{
|
||
%c = $IRCClient::currentChannel;
|
||
ChannelOptionsDlg.channel = %c;
|
||
%im = $IRCClient::currentChannel.findMember($IRCClient::people.getObject(0));
|
||
|
||
EditChannelName.setValue(IRCClient::displayChannel(%c.getName()));
|
||
|
||
IRCClient::requestBanList($IRCClient::currentChannel);
|
||
|
||
EditChannelTopic.setValue(%c.topic);
|
||
|
||
$EditChannelInvite = %c.flags & $CHANNEL_INVITE;
|
||
ButtonChannelInvite.setActive(!%c.tribe);
|
||
|
||
$EditChannelModerate = %c.flags & $CHANNEL_MODERATED;
|
||
|
||
$EditChannelLimit = %c.flags & $CHANNEL_LIMITED;
|
||
ButtonChannelLimit.setActive(!%c.tribe && !$EditChannelInvite);
|
||
if ($EditChannelLimit)
|
||
{
|
||
EditChannelMaxMembers.setValue(%c.personLimit);
|
||
EditChannelMaxMembers.setActive(!%c.tribe && !$EditChannelInvite);
|
||
}
|
||
else
|
||
EditChannelMaxMembers.setActive(false);
|
||
|
||
$EditChannelKey = %c.flags & $CHANNEL_HAS_KEY;
|
||
ButtonChannelKey.setActive(!%c.tribe);
|
||
if ($EditChannelKey)
|
||
{
|
||
EditChannelPassword.setValue(%c.key);
|
||
EditChannelPassword.setActive(!%c.tribe);
|
||
}
|
||
else
|
||
EditChannelPassword.setActive(false);
|
||
|
||
Canvas.pushDialog(ChannelOptionsDlg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ToggleChannelInvite()
|
||
{
|
||
if ($EditChannelInvite)
|
||
{
|
||
ButtonChannelLimit.setActive(false);
|
||
EditChannelMaxMembers.setActive(false);
|
||
}
|
||
else
|
||
{
|
||
ButtonChannelLimit.setActive(true);
|
||
ToggleChannelLimit();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ToggleChannelLimit()
|
||
{
|
||
EditChannelMaxMembers.setActive($EditChannelLimit);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ToggleChannelKey()
|
||
{
|
||
EditChannelPassword.setActive($EditChannelKey);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function CancelChannelOptions()
|
||
{
|
||
Canvas.popDialog(ChannelOptionsDlg);
|
||
// remove temporarily created people
|
||
for (%i = 0; %i < $IRCClient::numBanned; %i++)
|
||
{
|
||
%p = $IRCClient::banList[%i];
|
||
if (!%p.ref)
|
||
{
|
||
$IRCClient::people.remove(%p);
|
||
%p.delete();
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function AcceptChannelOptions()
|
||
{
|
||
Canvas.popDialog(ChannelOptionsDlg);
|
||
|
||
%c = ChannelOptionsDlg.channel;
|
||
|
||
// undo bans and remove temporarily created people
|
||
for (%i = 0; %i < $IRCClient::numBanned; %i++)
|
||
{
|
||
%p = $IRCClient::banList[%i];
|
||
if ($IRCClient::removeBan[%p])
|
||
IRCClient::ban(%p,false);
|
||
if (!%p.ref)
|
||
{
|
||
$IRCClient::people.remove(%p);
|
||
%p.delete();
|
||
}
|
||
}
|
||
|
||
%t = EditChannelTopic.getValue();
|
||
if (strcmp(%t,%c.topic))
|
||
IRCClient::topic(%c,%t);
|
||
|
||
if ($EditChannelInvite != (%c.flags & $CHANNEL_INVITE))
|
||
IRCClient::setInvite(%c,$EditChannelInvite);
|
||
|
||
if ($EditChannelModerate != (%c.flags & $CHANNEL_MODERATED))
|
||
IRCClient::setModerate(%c,$EditChannelModerate);
|
||
|
||
if ($EditChannelLimit)
|
||
{
|
||
%l = EditChannelMaxMembers.getValue();
|
||
if (!(%c.flags & $CHANNEL_LIMITED) || %l != %c.personLimit)
|
||
IRCClient::setLimit(%c,true,%l);
|
||
}
|
||
else
|
||
if (%c.flags @ $CHANNEL_LIMITED)
|
||
IRCClient::setLimit(%c,false,0);
|
||
|
||
if ($EditChannelKey)
|
||
{
|
||
%k = EditChannelPassword.getValue();
|
||
if (!(%c.flags & $CHANNEL_HAS_KEY) || strcmp(%k,%c.key))
|
||
IRCClient::setKey(%c,true,%k);
|
||
}
|
||
else
|
||
if (%c.flags & $CHANNEL_HAS_KEY)
|
||
IRCClient::setKey(%c,false,"");
|
||
}
|
||
|
||
//========================================================================
|
||
// chat options menu
|
||
|
||
//------------------------------------------------------------------------------
|
||
function EditChatOptions()
|
||
{
|
||
$tempHighlightOn = $pref::IRCClient::HighlightOn;
|
||
ButtonChatHighlight.setValue($tempHighlightOn);
|
||
|
||
$tempHideLinks = $pref::IRCClient::hideLinks;
|
||
ButtonChatNameLinkToggle.setValue($tempHideLinks);
|
||
|
||
//for now
|
||
ButtonChatShowJoin.setVisible(false);
|
||
ButtonChatChannelHighlight.setVisible(false);
|
||
|
||
EditChatAwayMessage.setValue($pref::IRCClient::awaymsg);
|
||
EditChatKickMessage.setValue($pref::IRCClient::kickmsg);
|
||
EditChatBanMessage.setValue($pref::IRCClient::banmsg);
|
||
|
||
Canvas.pushDialog(ChatOptionsDlg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function acceptChatOptions()
|
||
{
|
||
//error("Accepting Chat Options....");
|
||
$pref::IRCClient::HighlightOn = $tempHighlightOn;
|
||
|
||
$pref::IRCClient::hideLinks = $tempHideLinks;
|
||
|
||
if($tempAwayMsg !$= "")
|
||
$pref::IRCClient::awaymsg = $tempAwayMsg;
|
||
else
|
||
$pref::IRCClient::awaymsg = $DefaultChatAwayMessage;
|
||
|
||
if($tempkickmsg !$= "")
|
||
$pref::IRCClient::kickmsg = $tempkickmsg;
|
||
else
|
||
$pref::IRCClient::kickmsg = $DefaultChatKickMessage;
|
||
|
||
if($tempbanmsg !$= "")
|
||
$pref::IRCClient::banmsg = $tempbanmsg;
|
||
else
|
||
$pref::IRCClient::banmsg = $DefaultChatBanMessage;
|
||
|
||
canvas.popDialog(ChatOptionsDlg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function CancelChatOptions()
|
||
{
|
||
canvas.popDialog(ChatOptionsDlg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ToggleChatHiglight()
|
||
{
|
||
$tempHighlightOn = !$tempHighlightOn;
|
||
ButtonChatHighlight.setValue($tempHighlightOn);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function ToggleChatLinkedNicks()
|
||
{
|
||
$tempHideLinks = !$tempHideLinks;
|
||
ButtonChatNameLinkToggle.setValue($tempHideLinks);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::init()
|
||
{
|
||
$IRCClient::tcp = new TCPObject(IRCTCP);
|
||
|
||
$IRCClient::people = new SimGroup(IRCPeople);
|
||
$IRCClient::channels = new SimGroup(IRCChannels);
|
||
$IRCClient::connectwait = 0;
|
||
$IRCClient::room = "";
|
||
$IRCClient::numCensorWords = 0;
|
||
$IRCClient::previousChannelCount = 0;
|
||
|
||
$IRCClient::people.add(new SimObject()
|
||
{
|
||
real = "";
|
||
identity = "";
|
||
nick = "";
|
||
flags = 0;
|
||
ping = 0;
|
||
ref = 1;
|
||
});
|
||
|
||
$IRCClient::channels.add(new ChannelVector($CHANNEL_STATUS)
|
||
{
|
||
topic = "IRC Status";
|
||
key = "";
|
||
flags = 0;
|
||
personLimit = 0;
|
||
private = false;
|
||
tribe = false;
|
||
});
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::notify(%event)
|
||
{
|
||
switch$(%event)
|
||
{
|
||
case IDIRC_CONNECTING_SOCKET:
|
||
case IDIRC_CONNECTED:
|
||
IRCClient::requestChannelList();
|
||
case IDIRC_ERR_HOSTNAME:
|
||
MessageBoxOK("Bad Hostname","Could not resolve IRC server address " @ $IRCClient::server @ ".","");
|
||
case IDIRC_ERR_TIMEOUT:
|
||
MessageBoxOK("No Response","Connection failed. The IRC server did not respond.","");
|
||
case IDIRC_ERR_DROPPED:
|
||
MessageBoxOK("Connection Dropped","You have been disconnected from IRC server " @ $IRCClient::server @ ".","");
|
||
case IDIRC_ERR_BADCHALLENGE:
|
||
case IDIRC_ERR_BADCHALRESP_REPLY:
|
||
case IDIRC_CHANNEL_LIST:
|
||
JoinChatList.clear();
|
||
for (%i = 0; %i < $IRCClient::numChannels; %i++)
|
||
{
|
||
switch$ ( $IRCClient::channelNames[%i] )
|
||
{
|
||
case "#Tribes2": %temp = 5;
|
||
case "#Tribes2-Recruiting": %temp = 4;
|
||
case "#Help": %temp = 3;
|
||
case "#Scripting": %temp = 2;
|
||
case "#Mapping": %temp = 1;
|
||
default: %temp = 0;
|
||
}
|
||
JoinChatList.addRow(%i, IRCClient::displayChannel( $IRCClient::channelNames[%i]) TAB $IRCClient::channelUsers[%i] TAB %temp );
|
||
JoinChatList.setRowStyle( %i, %temp > 0 );
|
||
}
|
||
JoinChatList.sort();
|
||
JoinChatName.onCharInput();
|
||
case IDIRC_CHANNEL_HAS_KEY:
|
||
KeyChannelName.setValue(IRCClient::displayChannel($IRCClient::keyChannel));
|
||
Canvas.pushDialog(ChannelKeyDlg);
|
||
case IDIRC_ADDCHANNEL:
|
||
if (ChatTabView.tabCount() < $IRCClient::channels.getCount())
|
||
ChatTabView.addTab($IRCClient::nextChannel,
|
||
IRCClient::displayChannel($IRCClient::nextChannel.getName()),
|
||
$IRCClient::nextChannel.private);
|
||
if ($IRCClient::nextChannel && !$IRCClient::nextChannel.private)
|
||
{
|
||
ChatTabView.setSelected($IRCClient::nextChannel);
|
||
$IRCClient::nextChannel = 0;
|
||
}
|
||
alxPlay(sButtonDown,0,0,0);
|
||
case IDIRC_JOIN:
|
||
%i = $IRCClient::currentChannel.findMember($IRCClient::people.getObject(0));
|
||
ChatEditChannelBtn.setVisible($IRCClient::currentChannel.getFlags(%i) & $PERSON_OPERATOR);
|
||
ChatRoomMemberList_refresh($IRCClient::currentChannel);
|
||
case IDIRC_SORT:
|
||
%i = $IRCClient::currentChannel.findMember($IRCClient::people.getObject(0));
|
||
ChatEditChannelBtn.setVisible($IRCClient::currentChannel.getFlags(%i) & $PERSON_OPERATOR);
|
||
ChatRoomMemberList_refresh($IRCClient::currentChannel);
|
||
case IDIRC_PART:
|
||
ChatRoomMemberList_refresh($IRCClient::currentChannel);
|
||
case IDIRC_KICK:
|
||
if ($IRCClient::nextChannel)
|
||
{
|
||
$IRCClient::attachedChannel = 0;
|
||
ChatTabView.setSelected($IRCClient::nextChannel);
|
||
$IRCClient::nextChannel = 0;
|
||
}
|
||
ChatTabView.removeTab($IRCClient::deletedChannel);
|
||
// case IDIRC_INSTANT:
|
||
// MessageBoxOK("Message", "You have been instant Messaged by " @ $IRCClient::inviteperson);
|
||
case IDIRC_INVITED: //invited to join existing channel.
|
||
//MessageBoxOKCancel("Invite", "You have been invited to channel " @ IRCClient::displayChannel($IRCClient::invitechannel) @ " by " @ $IRCClient::inviteperson @ ".", "IRCClient::join($IRCClient::invitechannel);");
|
||
IRCClient::newMessage($IRCClient::CurrentChannel, "You have been invited to channel " @ $IRCClient::invitechannel @ " by " @ $IRCClient::inviteperson @ ".");
|
||
case IDIRC_BAN_LIST:
|
||
ChannelBannedList_refresh();
|
||
case IDIRC_TOPIC:
|
||
ChatChannelTopic.setValue($IRCClient::currentChannel.topic);
|
||
case IDIRC_DELCHANNEL:
|
||
if ($IRCClient::nextChannel)
|
||
{
|
||
$IRCClient::attachedChannel = 0;
|
||
ChatTabView.setSelected($IRCClient::nextChannel);
|
||
$IRCClient::nextChannel = 0;
|
||
}
|
||
ChatTabView.removeTab($IRCClient::deletedChannel);
|
||
|
||
default:
|
||
echo("IRCClient: [NOTIFY] " @ %event);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::statusMessage(%message)
|
||
{
|
||
//error("IRCClient::statusMessage( "@%message@" )");
|
||
$IRCClient::channels.getObject(0).pushBackLine("[STATUS] " @ %message);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::connecting()
|
||
{
|
||
$IRCClient::connectwait++;
|
||
if ($IRCClient::connectwait > 1)
|
||
return;
|
||
|
||
ChatChannelPane.setTitle("CONNECTING");
|
||
JoinChatPane.setTitle("CONNECTING");
|
||
ChannelBanPane.setTitle("CONNECTING");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::connected()
|
||
{
|
||
if (!$IRCClient::connectwait)
|
||
return;
|
||
|
||
$IRCClient::connectwait--;
|
||
if ($IRCClient::connectwait)
|
||
return;
|
||
|
||
ChatChannelPane.setTitle("CHAT");
|
||
JoinChatPane.setTitle("CHOOSE CHAT CHANNEL");
|
||
ChannelBanPane.setTitle("EDIT BAN LIST");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::newMessage(%channel,%message)
|
||
{
|
||
%message = IRCClient::findChannelURL(%message);
|
||
|
||
if (%channel == $IRCClient::channels.getObject(0) ||
|
||
%channel $= "")
|
||
$IRCClient::channels.getObject(0).pushBackLine(%message);
|
||
else
|
||
%channel.pushBackLine(%message);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::findPerson(%nick)
|
||
{
|
||
for (%i = 0; %i < $IRCClient::people.getCount(); %i++)
|
||
{
|
||
%person = $IRCClient::people.getObject(%i);
|
||
if (%person.displayName $= %nick)
|
||
return %person;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::findPerson2(%prefix,%create)
|
||
{
|
||
// typical name
|
||
// Yakuza|!yakuzasama@pool032-max7.ds23-ca-us.dialup.earthlink.net
|
||
%prefix = nextToken(%prefix,nick," !");
|
||
nextToken(%prefix,ident," ");
|
||
|
||
if (strlen(%nick))
|
||
{
|
||
if (getSubStr(%nick,0,1) $= "@" || getSubStr(%nick,0,1) $= "+")
|
||
%nick = getSubStr(%nick,1,strlen(%nick)-1);
|
||
if (strlen(%ident) && getSubStr(%ident,0,1) $= "~")
|
||
%ident = getSubStr(%ident,1,strlen(%ident)-1);
|
||
|
||
// look 'em up
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (%p)
|
||
{
|
||
if (strlen(%ident) && strcmp(%ident,%p.identity))
|
||
{
|
||
IRCClient::setIdentity(%p,%ident);
|
||
IRCClient::correctNick(%p);
|
||
}
|
||
|
||
return %p;
|
||
}
|
||
|
||
if (%create)
|
||
{
|
||
%p = new SimObject()
|
||
{
|
||
real = "";
|
||
identity = "";
|
||
nick = "";
|
||
flags = 0;
|
||
ping = 0;
|
||
ref = 0;
|
||
displayName = %nick;
|
||
};
|
||
IRCClient::setIdentity(%p,%ident);
|
||
$IRCClient::people.add(%p);
|
||
|
||
%c = IRCClient::findChannel(%nick);
|
||
if (%c && %c.numMembers != 2)
|
||
{
|
||
IRCClient::newMessage(%c,IRCClient::taggedNick(%p) @ " has reconnected.");
|
||
%c.addMember(%p,IRCClient::taggedNick(%p));
|
||
%p.ref++;
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_JOIN);
|
||
}
|
||
|
||
// initiate WHO do determine username
|
||
//if (!strlen(%ident) && %p != $IRCClient::people.getObject(1) &&
|
||
//getSubStr(%nick,strlen(%nick)-1,1) $= "^")
|
||
//IRCClient::whois(%p);
|
||
|
||
return %p;
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::doEscapes(%string)
|
||
{
|
||
// escape spaces
|
||
while ((%i = strpos(%string," ")) != -1)
|
||
%string = getSubStr(%string,0,%i) @ $ESCAPE_SEQ @ "01" @
|
||
getSubStr(%string,%i+1,strlen(%string)-(%i+1));
|
||
|
||
return %string;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::undoEscapes(%string)
|
||
{
|
||
%esclen = strlen($ESCAPE_SEQ);
|
||
%offset = 0;
|
||
%search = %string;
|
||
while ((%i = strpos(%search,$ESCAPE_SEQ)) != -1)
|
||
{
|
||
%code = getSubStr(%search,%i+%esclen,2);
|
||
switch$(%code)
|
||
{
|
||
case "01":
|
||
%replace = " ";
|
||
}
|
||
|
||
%string = getSubStr(%string,0,%offset+%i) @ %replace @
|
||
getSubStr(%string,%offset+%i+%esclen+2,
|
||
strlen(%string)-(%offset+%i+%esclen+2));
|
||
%search = getSubStr(%string,%offset,strlen(%string)-%offset);
|
||
}
|
||
|
||
return %string;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setIdentity(%p,%ident)
|
||
{
|
||
%p.identity = %ident;
|
||
%nick = %p.displayName;
|
||
if (strpos(%nick, "^") != -1)
|
||
{
|
||
%triple = IRCGetTriple(%nick);
|
||
%name = getField(%triple, 0);
|
||
%tag = getField(%triple, 1);
|
||
%append = getField(%triple, 2);
|
||
%p.untagged = %name;
|
||
if (%tag $= "")
|
||
{
|
||
%p.nick = %name;
|
||
%p.tagged = "<tribe:0>" @ %name @ "</tribe>";
|
||
}
|
||
else
|
||
if(%append)
|
||
{
|
||
%p.nick = %name @ %tag;
|
||
%p.tagged = "<tribe:0>" @ %name @ "</tribe><tribe:1>" @ %tag @ "</tribe>";
|
||
}
|
||
else
|
||
{
|
||
%p.nick = %tag @ %name;
|
||
%p.tagged = "<tribe:1>" @ %tag @ "</tribe><tribe:0>" @ %name @ "</tribe>";
|
||
}
|
||
}
|
||
else
|
||
{
|
||
%p.tagged = %nick;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::displayNick(%person)
|
||
{
|
||
// identity is set and user is WON-authenticated
|
||
if (strlen(%person.nick))
|
||
return %person.nick;
|
||
else
|
||
return %person.displayName;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::taggedNick(%person)
|
||
{
|
||
//error("IRCClient::taggedNick( "@%person@" )");
|
||
// identity is set and user is WON-authenticated
|
||
if (strlen(%person.nick))
|
||
if($pref::IRCClient::hideLinks)
|
||
return %person.nick;
|
||
else
|
||
return %person.tagged;
|
||
else
|
||
return %person.displayName;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::correctNick(%p)
|
||
{
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (%c.getName() $= %p.displayName)
|
||
{
|
||
ChatTabView.setTabText(%c,IRCClient::displayNick(%p));
|
||
%c.topic = "Private chat with" SPC IRCClient::displayNick(%p);
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_TOPIC);
|
||
}
|
||
|
||
%mi = %c.findMember(%p);
|
||
if (%mi >= 0)
|
||
{
|
||
%c.setMemberNick(%mi,IRCClient::taggedNick(%p));
|
||
%c.sort();
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_SORT);
|
||
}
|
||
else
|
||
if (%c == $IRCClient::banChannel)
|
||
IRCClient::notify(IDIRC_BAN_LIST);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::findChannel(%name,%create)
|
||
{
|
||
//error("IRCClient::findChannel( "@%name@", "@%create@" )");
|
||
if(%name $= "")
|
||
return $IRCClient::currentChannel;
|
||
|
||
for (%i = 0; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (%c.getName() $= %name)
|
||
return %c;
|
||
}
|
||
if (%create)
|
||
{
|
||
%topic = "";
|
||
%flags = $CHANNEL_NEW;
|
||
%private = false;
|
||
for (%i = 0; %i < $IRCClient::numChannels; %i++)
|
||
if (%name $= $IRCClient::channelNames[%i])
|
||
{
|
||
%topic = $IRCClient::channelTopics[%i];
|
||
|
||
break;
|
||
}
|
||
|
||
if (strcmp(getSubStr(%name,0,1),"#") && strcmp(getSubStr(%name,0,1),"&"))
|
||
{
|
||
%p = IRCClient::findPerson(%name);
|
||
%topic = "Private chat with " @ IRCClient::displayNick(%p);
|
||
%flags = %flags | $CHANNEL_PRIVATE;
|
||
%private = true;
|
||
}
|
||
%l = strlen(%name);
|
||
%tribe = (%l > 7 && strcmp(getSubStr(%name,%l-7,7),"_Public") == 0) ||
|
||
(%l > 8 && strcmp(getSubStr(%name,%l-8,8),"_Private") == 0);
|
||
%c = new ChannelVector(%name)
|
||
{
|
||
topic = %topic;
|
||
key = $IRCClient::key;
|
||
flags = $CHANNEL_NEW;
|
||
personLimit = 0;
|
||
private = %private;
|
||
tribe = %tribe;
|
||
};
|
||
$IRCClient::channels.add(%c);
|
||
if (%c.private)
|
||
{
|
||
%me = $IRCClient::people.getObject(0);
|
||
%c.addMember(%me,IRCClient::taggedNick(%me));
|
||
%me.ref++;
|
||
%c.addMember(%p,IRCClient::taggedNick(%p));
|
||
%p.ref++;
|
||
|
||
$IRCClient::nextChannel = %c;
|
||
IRCClient::notify(IDIRC_ADDCHANNEL);
|
||
}
|
||
else
|
||
{
|
||
%messages = %name @ "_messages";
|
||
if (isobject(%messages))
|
||
{
|
||
for (%i = 0; %i < %messages.getNumLines(); %i++)
|
||
%c.pushBackLine(%messages.getLineText(%i));
|
||
|
||
%messages.delete();
|
||
}
|
||
}
|
||
|
||
return %c;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::displayChannel(%channel)
|
||
{
|
||
if (getSubStr(%channel,0,1) $= "#" || getSubStr(%channel,0,1) $= "&")
|
||
return IRCClient::undoEscapes(getSubStr(%channel,1,strlen(%channel)-1));
|
||
else
|
||
return IRCClient::displayNick(IRCClient::findPerson(%channel));
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::channelName(%channel)
|
||
{
|
||
%channel = IRCClient::doEscapes(%channel); // escape spaces
|
||
|
||
if (getSubStr(%channel,0,1) $= "#")
|
||
return %channel;
|
||
else
|
||
return "#" @ %channel;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::reset()
|
||
{
|
||
$IRCClient::numBanned = 0;
|
||
|
||
// Delete all the channels except status
|
||
$IRCClient::numChannels = 0;
|
||
while ($IRCClient::channels.getCount() > 1)
|
||
{
|
||
%channel = $IRCClient::channels.getObject(1);
|
||
$IRCClient::channels.remove(%channel);
|
||
%channel.delete();
|
||
}
|
||
$IRCClient::currentChannel = $IRCClient::channels.getObject(0);
|
||
|
||
// Delete everyone except myself
|
||
while ($IRCClient::people.getCount() > 1)
|
||
{
|
||
%person = $IRCClient::people.getObject(1);
|
||
$IRCClient::people.remove(%person);
|
||
%person.delete();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::connect()
|
||
{
|
||
if (strcmp($IRCClient::state,IDIRC_CONNECTING_WAITING))
|
||
{
|
||
IRCClient::disconnect();
|
||
$IRCClient::serverIndex++;
|
||
if ($IRCClient::serverIndex >= $IRCClient::serverCount)
|
||
$IRCClient::serverIndex = 0;
|
||
$IRCClient::serverAttempt++;
|
||
if ($IRCClient::serverAttempt > $IRCClient::serverCount)
|
||
{
|
||
$IRCClient::serverAttempt = 0;
|
||
$IRCClient::retries++;
|
||
|
||
if ($IRCClient::retries > 5)
|
||
{
|
||
IRCClient::newMessage("","Unable to connect to IRC servers.");
|
||
IRCClient::notify(IDIRC_ERR_TIMEOUT);
|
||
$IRCClient::state = IDIRC_DISCONNECTED;
|
||
$IRCClient::retries = 0;
|
||
if($IRCClient::serverCount > 1)
|
||
$IRCClient::serverIndex = getRandom($IRCClient::serverCount-1)-1;
|
||
else
|
||
$IRCClient::serverIndex = -1;
|
||
|
||
return;
|
||
}
|
||
}
|
||
|
||
if($IRCTestServer !$= "")
|
||
$IRCClient::server = $IRCTestServer;
|
||
else
|
||
$IRCClient::server = getField(getRecord($IRCClient::serverList, $IRCClient::serverIndex), 0);
|
||
|
||
IRCClient::newMessage("","Connecting to " @ $IRCClient::server);
|
||
$IRCClient::state = IDIRC_CONNECTING_SOCKET;
|
||
IRCClient::notify(IDIRC_CONNECTING_SOCKET);
|
||
|
||
$IRCClient::tcp.connect($IRCClient::server);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::connect2(%address,%port)
|
||
{
|
||
$IRCClient::server = %address @ ":" @ %port;
|
||
|
||
IRCClient::connect();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCTCP::onConnected(%this)
|
||
{
|
||
IRCClient::newMessage("","Established TCP/IP connection");
|
||
%me = $IRCClient::people.getObject(0);
|
||
|
||
$NextDatabaseQueryId++;
|
||
%id = $NextDatabaseQueryId;
|
||
|
||
%args = WONLoginIRC();
|
||
|
||
// split the cert into chunks
|
||
%len = strlen(%args);
|
||
%i = 0;
|
||
while((%i+400) < %len)
|
||
{
|
||
%msg = getSubStr(%args, %i, 400);
|
||
IRCClient::send("dbqa" SPC %id SPC ":" @ %msg);
|
||
%i += 400;
|
||
}
|
||
%msg = getSubStr(%args, %i, 400);
|
||
|
||
IRCClient::send("CERT " @ %msg);
|
||
$IRCClient::state = IDIRC_CONNECTING_WAITING;
|
||
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCTCP::onDNSFailed(%this)
|
||
{
|
||
IRCClient::newMessage("","Could not resolve address " @ $IRCClient::server @ ".");
|
||
$IRCClient::state = IDIRC_DISCONNECTED;
|
||
IRCClient::notify(IDIRC_ERR_HOSTNAME);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCTCP::onConnectFailed(%this)
|
||
{
|
||
if ($IRCClient::state $= IDIRC_CONNECTED)
|
||
{
|
||
IRCClient::newMessage("","You have been disconnected from " @ $IRCClient::server @ ".");
|
||
if (!IRCClient::reconnect())
|
||
{
|
||
$IRCClient::state = IDIRC_DISCONNECTED;
|
||
IRCClient::notify(IDIRC_ERR_DROPPED);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
IRCClient::newMessage("","Connection failed. The server did not respond.");
|
||
|
||
IRCClient::connect();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::reconnect()
|
||
{
|
||
if (!$pref::IRCClient::autoreconnect)
|
||
return (false);
|
||
|
||
%i = 0;
|
||
while ($IRCClient::channels.getCount() > 1)
|
||
{
|
||
%c = $IRCClient::channels.getObject(1);
|
||
|
||
if (%c.private)
|
||
{
|
||
%c.delete();
|
||
$IRCClient::deletedChannel = %c;
|
||
if ($IRCClient::currentChannel == %c)
|
||
$IRCClient::nextChannel = $IRCClient::channels.getObject(0);
|
||
IRCClient::notify(IDIRC_DELCHANNEL);
|
||
|
||
continue;
|
||
}
|
||
|
||
$IRCClient::previousChannel[%i] = %c.getName();
|
||
$IRCClient::previousKey[%i] = %c.key;
|
||
|
||
%messages = $IRCClient::previousChannel[%i] @ "_messages";
|
||
if (isobject(%messages))
|
||
%messages.delete();
|
||
%m = new MessageVector(%messages);
|
||
|
||
for (%j = 0; %j < %c.getNumLines(); %j++)
|
||
%m.pushBackLine(%c.getLineText(%j));
|
||
|
||
$IRCClient::channels.remove(%c);
|
||
for (%j = 0; %j < %c.numMembers(); %j++)
|
||
{
|
||
%m = %c.getMemberId(%j);
|
||
%m.ref--;
|
||
if (%m.ref == 0)
|
||
{
|
||
$IRCClient::people.remove(%m);
|
||
%m.delete();
|
||
}
|
||
}
|
||
%c.delete();
|
||
$IRCClient::deletedChannel = %c;
|
||
if ($IRCClient::currentChannel == %c)
|
||
$IRCClient::nextChannel = $IRCClient::channels.getObject(0);
|
||
IRCClient::notify(IDIRC_DELCHANNEL);
|
||
|
||
%i++;
|
||
}
|
||
$IRCClient::previousChannelCount = %i;
|
||
|
||
IRCClient::newMessage("","Attempting to reconnect.");
|
||
|
||
IRCClient::connect();
|
||
|
||
return true;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::disconnect()
|
||
{
|
||
if ($IRCClient::awaytimeout)
|
||
{
|
||
cancel($IRCClient::awaytimeout);
|
||
$IRCClient::awaytimeout = 0;
|
||
}
|
||
|
||
$IRCClient::state = IDIRC_DISCONNECTED;
|
||
|
||
$IRCClient::tcp.disconnect();
|
||
|
||
$IRCClient::silentList = 0;
|
||
$IRCClient::silentBanList = 0;
|
||
|
||
IRCClient::reset();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::relogin()
|
||
{
|
||
if($IRCClient::state !$= IDIRC_CONNECTED)
|
||
IRCClient::connect();
|
||
|
||
IRCClient::newMessage("","IRCClient: Reauthentication starting");
|
||
|
||
$NextDatabaseQueryId++;
|
||
%id = $NextDatabaseQueryId;
|
||
|
||
%args = WONLoginIRC();
|
||
|
||
// split the cert into chunks
|
||
%len = strlen(%args);
|
||
%i = 0;
|
||
while((%i+400) < %len)
|
||
{
|
||
%msg = getSubStr(%args, %i, 400);
|
||
IRCClient::send("dbqa" SPC %id SPC ":" @ %msg);
|
||
%i += 400;
|
||
}
|
||
%msg = getSubStr(%args, %i, 400);
|
||
|
||
IRCClient::send("CERT " @ %msg);
|
||
$IRCClient::state = IDIRC_CONNECTING_WAITING;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::send(%message)
|
||
{
|
||
if($IRCEcho)
|
||
echo("IRC SEND:" @ %message);
|
||
|
||
$IRCClient::tcp.send(%message @ "\r\n");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCTCP::onLine(%this,%line)
|
||
{
|
||
if($IRCEcho)
|
||
echo("IRC RECV:" @ %line);
|
||
// HACK: Windows 2000 bug. We shouldn't need to do this!
|
||
if ($IRCClient::state $= IDIRC_CONNECTING_SOCKET)
|
||
IRCTCP::onConnected(%this);
|
||
|
||
IRCClient::processLine(%line);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::processLine(%line)
|
||
{
|
||
// RFC_1459: Message Packet format
|
||
//
|
||
// <message> ::= [':' <prefix> <SPACE> ] <command> <params> <crlf>
|
||
// <prefix> ::= <servername> | <nick> [ '!' <user> ] [ '@' <host> ]
|
||
// <command> ::= <letter> { <letter> } | <number> <number> <number>
|
||
// <SPACE> ::= ' ' { ' ' }
|
||
// <params> ::= <SPACE> [ ':' <trailing> | <middle> <params> ]
|
||
//
|
||
// <middle> ::= <Any *non-empty* sequence of octets not including SPACE
|
||
// or NUL or CR or LF, the first of which may not be ':'>
|
||
// <trailing> ::= <Any, possibly *empty*, sequence of octets not including
|
||
// NUL or CR or LF>
|
||
// <crlf> ::= CR LF
|
||
|
||
%src = %line;
|
||
if($pref::enableBadWordFilter)
|
||
%src = filterString(%src);
|
||
|
||
if (strlen(%src))
|
||
{
|
||
// check for prefix
|
||
if (getSubStr(%src,0,1) $= ":")
|
||
%src = nextToken(getSubStr(%src,1,strlen(%src)-1),prefix," ");
|
||
|
||
// this is the command
|
||
%src = nextToken(%src,command," :");
|
||
|
||
// followed by its params
|
||
%src = nextToken(%src,params,"");
|
||
|
||
if (!IRCClient::dispatch(%prefix,%command,%params))
|
||
{
|
||
//echo("IRCClient: " @ %command @ " not handled by dispatch!");
|
||
echo("(cmd:) " @ %prefix @ " " @ %command @ " " @ %params);
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::dispatch(%prefix,%command,%params)
|
||
{
|
||
switch$(%command)
|
||
{
|
||
case "PING":
|
||
IRCClient::onPing(%prefix,%params);
|
||
case "PONG":
|
||
IRCClient::onPong(%prefix,%params);
|
||
case "PRIVMSG":
|
||
IRCClient::onPrivMsg(%prefix,%params);
|
||
case "JOIN":
|
||
IRCClient::onJoin(%prefix,%params);
|
||
case "NICK":
|
||
IRCClient::onNick(%prefix,%params);
|
||
case "QUIT":
|
||
IRCClient::onQuit(%prefix,%params);
|
||
case "ERROR":
|
||
IRCClient::onError(%prefix,%params);
|
||
case "TOPIC":
|
||
IRCClient::onTopic(%prefix,%params);
|
||
case "PART":
|
||
IRCClient::onPart(%prefix,%params);
|
||
case "KICK":
|
||
IRCClient::onKick(%prefix,%params);
|
||
case "MODE":
|
||
IRCClient::onMode(%prefix,%params);
|
||
case "AWAY":
|
||
IRCClient::onAway(%prefix,%params);
|
||
case "NOTICE":
|
||
IRCClient::onNotice(%prefix,%params);
|
||
case "VERSION":
|
||
IRCClient::onVersion(%prefix,%params);
|
||
case "ACTION":
|
||
IRCClient::onAction(%prefix,%params);
|
||
case "INSTANT":
|
||
IRCClient::onInstantMsg(%prefix,%params);
|
||
case "INVITE":
|
||
IRCClient::onInvite(%prefix,%params);
|
||
case "301":
|
||
IRCClient::onAwayReply(%prefix,%params);
|
||
case "305":
|
||
IRCClient::onUnAwayReply(%prefix,%params);
|
||
case "306":
|
||
IRCClient::onNowAwayReply(%prefix,%params);
|
||
case "311":
|
||
IRCClient::onWhoisUserReply(%prefix,%params);
|
||
case "312":
|
||
IRCClient::onWhoisReply(%prefix,%params);
|
||
case "318":
|
||
IRCClient::onWhoisReply(%prefix,%params);
|
||
case "319":
|
||
IRCClient::onWhoisReply(%prefix,%params);
|
||
case "315":
|
||
IRCClient::onEndOfWho(%prefix,%params);
|
||
case "317":
|
||
IRCClient::onWhoisIdle(%prefix,%params);
|
||
case "322":
|
||
IRCClient::onList(%prefix,%params);
|
||
case "323":
|
||
IRCClient::onListEnd(%prefix,%params);
|
||
case "324":
|
||
IRCClient::onModeReply(%prefix,%params);
|
||
case "331":
|
||
IRCClient::onNoTopic(%prefix,%params);
|
||
case "332":
|
||
IRCClient::onTopic(%prefix,%params);
|
||
case "341":
|
||
IRCClient::onInviteReply(%prefix,%params);
|
||
case "352":
|
||
IRCClient::onWhoReply(%prefix,%params);
|
||
case "353":
|
||
IRCClient::onNameReply(%prefix,%params);
|
||
case "367":
|
||
IRCClient::onBanList(%prefix,%params);
|
||
case "368":
|
||
IRCClient::onBanListEnd(%prefix,%params);
|
||
case "372":
|
||
IRCClient::onMOTD(%prefix,%params);
|
||
case "376":
|
||
IRCClient::onMOTDEnd(%prefix,%params);
|
||
case "401":
|
||
IRCClient::onNoSuchNick(%prefix,%params);
|
||
case "422":
|
||
IRCClient::onMOTDEnd(%prefix,%params);
|
||
case "433":
|
||
IRCClient::onBadNick(%prefix,%params);
|
||
case "444":
|
||
IRCClient::onNoLogin(%prefix,%params);
|
||
case "465":
|
||
IRCClient::onServerBanned(%prefix,%params);
|
||
case "468":
|
||
IRCClient::onInvalidNick(%prefix,%params);
|
||
case "471":
|
||
IRCClient::onChannelFull(%prefix,%params);
|
||
case "473":
|
||
IRCClient::onChannelInviteOnly(%prefix,%params);
|
||
case "474":
|
||
IRCClient::onChannelBanned(%prefix,%params);
|
||
case "475":
|
||
IRCClient::onBadChannelKey(%prefix,%params);
|
||
|
||
case "CHALLENGE":
|
||
IRCClient::onChallenge(%prefix,%params);
|
||
case "CHALRESP_REPLY":
|
||
IRCClient::onChalRespReply(%prefix,%params);
|
||
case "DBMSG":
|
||
HandleDatabaseProxyResponse(%prefix, %params);
|
||
default:
|
||
return false;
|
||
}
|
||
|
||
return true;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onPing(%prefix,%params)
|
||
{
|
||
%time = getSimTime();
|
||
|
||
if ((%time - $IRCClient::lastPinged) >= $PING_FLOOD_TIMEOUT)
|
||
{
|
||
$IRCClient::lastPinged = %time;
|
||
|
||
if (strlen(%prefix))
|
||
{
|
||
nextToken(%prefix,nick,"!");
|
||
%p = IRCClient::findPerson(%nick);
|
||
|
||
if (%p)
|
||
if (%p.ping)
|
||
{
|
||
IRCClient::newMessage($IRCClient::currentChannel,
|
||
IRCClient::taggedNick(%p) @ " roundtrip delay: " @ (%time-%p.ping)/1000 @ " seconds.");
|
||
%p.ping = 0;
|
||
}
|
||
else
|
||
{
|
||
%params = nextToken(%params,nick," :");
|
||
nextToken(%params,key," \x01");
|
||
IRCClient::send("NOTICE " @ %nick @ " :\x01PING " @ %key);
|
||
}
|
||
}
|
||
else
|
||
IRCClient::send("PONG " @ %params);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onPong(%prefix,%params)
|
||
{
|
||
nextToken(%params,nick," ");
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (%p && %p.ping)
|
||
{
|
||
IRCClient::newMessage($IRCClient::currentChannel,
|
||
IRCClient::taggedNick(%p) @ " roundtrip delay: " @ (getSimTime()-%p.ping)/1000 @ " seconds.");
|
||
%p.ping = 0;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onJoin(%prefix,%params)
|
||
{
|
||
%p = IRCClient::findPerson2(%prefix,true);
|
||
%c = IRCClient::findChannel(%params,true);
|
||
|
||
if (%c.addMember(%p,IRCClient::taggedNick(%p)))
|
||
{
|
||
%p.ref++;
|
||
IRCClient::notify(IDIRC_JOIN);
|
||
}
|
||
if ($pref::IRCClient::showJoin && !(%p.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage(%c,"\c4"@IRCClient::taggedNick(%p) @ " has joined the conversation.");
|
||
|
||
// if this is me then set this as the current channel
|
||
if (%p == $IRCClient::people.getObject(0))
|
||
{
|
||
$IRCClient::nextChannel = %c;
|
||
IRCClient::notify(IDIRC_ADDCHANNEL);
|
||
|
||
IRCClient::send("MODE " @ %c.getName());
|
||
|
||
// this is a hack, the list isnt being rebuilt right away but it is if you give it a half second
|
||
schedule(500, 0, chatRoomMemberList_rebuild);
|
||
//error("rebuilt by onJoin");
|
||
}
|
||
IRCClient::connected();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onPrivMsg(%prefix,%params)
|
||
{
|
||
%p = $IRCClient::people.getObject(0);
|
||
%params = nextToken(%params,ch," ");
|
||
%msg = %params;
|
||
|
||
// messages always lead with a ':'
|
||
if (getSubStr(%msg,0,1) $= ":")
|
||
%msg = getSubStr(%msg,1,strlen(%msg)-1);
|
||
|
||
// should we highlight this message
|
||
if($pref::IRCClient::highlightOn)
|
||
%msg = IRCClient::nickHighLight(%msg);
|
||
|
||
%nick = %ch;
|
||
if (getSubStr(%ch,0,1) $= "@" || getSubStr(%ch,0,1) $= "+")
|
||
%nick = getSubStr(%nick,1,strlen(%nick)-1);
|
||
if ( %nick $= %p.displayName)
|
||
nextToken(%prefix,ch," !");
|
||
|
||
if (strcmp(getSubStr(%msg,0,1),"\x01"))
|
||
{
|
||
// are we IGNORING this person?
|
||
%p = IRCClient::findPerson2(%prefix,true);
|
||
if (%p && (%p.flags & $PERSON_IGNORE))
|
||
return;
|
||
|
||
%c = IRCClient::findChannel(%ch, true);
|
||
if ( !%c )
|
||
return;
|
||
IRCClient::newMessage(%c,IRCClient::taggedNick(%p) @ ": " @ %msg);
|
||
}
|
||
else
|
||
{
|
||
// otherwise it's a command imbeded inside PRIVMSG (oh great!)
|
||
%msg = nextToken(%msg,command," \x01");
|
||
IRCClient::dispatch(%prefix,%command,%ch @ ": " @ %msg);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::findChannelURL(%msg)
|
||
{
|
||
%numWords = getWordCount(%msg);
|
||
for(%i = 0; %i < %numWords; %i++)
|
||
{
|
||
%word = getWord(%msg, %i);
|
||
%firstLetter = getSubStr(%word, 0, 1);
|
||
|
||
if(%firstLetter $= "#")
|
||
{
|
||
// this is a fake server link that will get parsed to an
|
||
// IRCClient::join by the urlCallback hack
|
||
%newWord = "<t2server:" @ %word @ ">"@ IRCClient::displayChannel(%word)@"</t2server>";
|
||
%word = %newWord;
|
||
}
|
||
|
||
if(%newText $= "")
|
||
%newText = %word;
|
||
else %newText = %newText SPC %word;
|
||
}
|
||
|
||
return %newText;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNick(%prefix,%params)
|
||
{
|
||
%person = IRCClient::findPerson2(%prefix,false);
|
||
|
||
if (%person)
|
||
{
|
||
if (!(%person.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage($IRCClient::currentChannel,%person.getName() @ " is now known as " @ %params @ ".");
|
||
|
||
%channel = IRCClient::findChannel(%person.getName());
|
||
|
||
if (%channel)
|
||
%channel.setName(%params);
|
||
|
||
%person.setName(%params);
|
||
|
||
// If this is me, re-set the console variable
|
||
if (%person == $IRCClient::people.getObject(0))
|
||
$IRCClient::NickName = %person.getName();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onQuit(%prefix,%params)
|
||
{
|
||
%p = IRCClient::findPerson2(%prefix,false);
|
||
|
||
if (%p)
|
||
{
|
||
// For every channel
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (%c.removeMember(%p))
|
||
{
|
||
if (!(%p.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage(%c,"\c4" @ IRCClient::taggedNick(%p) @ " has disconnected from IRC.");
|
||
if (%c == $IRCClient::currentChannel)
|
||
{
|
||
IRCClient::notify(IDIRC_PART);
|
||
//IRCClient::part(%c.getName());
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
// clean up the Person
|
||
$IRCClient::people.remove(%p);
|
||
%p.delete();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onError(%prefix,%params)
|
||
{
|
||
IRCClient::newMessage($IRCClient::currentChannel,%params);
|
||
IRCClient::notify(IDIRC_ERROR);
|
||
IRCClient::disconnect();
|
||
IRCClient::connect();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onMOTD(%prefix,%params)
|
||
{ // command 372
|
||
// EXAMPLE :StLouis.MO.US.UnderNet.org 372 homer128 :- ==> Disclaimer/ Rules:
|
||
%msg = nextToken(%params,prefix,":");
|
||
IRCClient::newMessage($IRCClient::currentChannel,%msg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onMOTDEnd(%prefix, %params)
|
||
{ // command 372
|
||
// EXAMPLE :StLouis.MO.US.UnderNet.org 372 homer128 :- ==> Disclaimer/ Rules:
|
||
if ($IRCClient::state $= IDIRC_CONNECTING_WAITING)
|
||
{
|
||
IRCClient::newMessage("","Successfully connected to " @ $IRCClient::server);
|
||
$IRCClient::state = IDIRC_CONNECTED;
|
||
IRCClient::notify(IDIRC_CONNECTED);
|
||
|
||
// auto join a room if requested
|
||
if (strlen($IRCClient::room))
|
||
IRCClient::send("JOIN " @ $IRCClient::room);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNoSuchNick(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,me," ");
|
||
nextToken(%params,nick," :");
|
||
|
||
%c = IRCClient::findChannel(%nick);
|
||
if (%c && %c.private)
|
||
{
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (%p)
|
||
{
|
||
if (!(%p.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage(%c,IRCClient::taggedNick(%p) @ " has disconnected from IRC.");
|
||
%c.removeMember(%p);
|
||
%p.delete();
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_PART);
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNameReply(%prefix,%params)
|
||
{ // command 353
|
||
// EXAMPLE homer128 = #Starsiege :homer128 Fusion^WP KM-UnDead Rick-wrk Lord-Star Apoc0410
|
||
%params = nextToken(%params,nick," =@");
|
||
%me = IRCClient::findPerson(%nick);
|
||
if (!%me)
|
||
{
|
||
echo("IRCClient::onNameReply: My nick should have existed.");
|
||
|
||
return;
|
||
}
|
||
|
||
// find the end of channel name
|
||
%params = nextToken(%params,ch," :");
|
||
%c = IRCClient::findChannel(%ch);
|
||
if (!%c)
|
||
{
|
||
echo("IRCClient::onNameReply: This channel should have existed.");
|
||
|
||
return;
|
||
}
|
||
|
||
// loop through the nick and add them to the channel
|
||
while (strlen(%params))
|
||
{
|
||
%params = nextToken(%params,nick," ");
|
||
%p = IRCClient::findPerson2(%nick,true);
|
||
|
||
%flags = 0;
|
||
if (getSubStr(%nick,0,1) $= "@")
|
||
%flags = %flags | $PERSON_OPERATOR;
|
||
else if (getSubStr(%nick,0,1) $= "+")
|
||
%flags = %flags | $PERSON_SPEAKER;
|
||
|
||
// If it's not me, add them to the channel
|
||
if (%p != %me)
|
||
{
|
||
%c.addMember(%p,IRCClient::taggedNick(%p),%flags);
|
||
%p.ref++;
|
||
}
|
||
// If it is me, just set the flags
|
||
else
|
||
{
|
||
%i = %c.findMember(%p);
|
||
if (%i != -1)
|
||
%c.setFlags(%i,%flags,true);
|
||
}
|
||
}
|
||
|
||
IRCClient::notify(IDIRC_JOIN);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onWhoReply(%prefix, %params)
|
||
{
|
||
// command 352
|
||
// EXAMPLE: :StLouis.MO.US.UnderNet.org 352 homer128 #Starsiege ~DrAwkward 198.74.39.31 los-angeles.ca.us.undernet.org DrAwkward H :3 JR
|
||
%params = nextToken(%params,me," ");
|
||
%params = nextToken(%params,ch," ");
|
||
%params = nextToken(%params,user," ");
|
||
%params = nextToken(%params,at," ");
|
||
%params = nextToken(%params,server," ");
|
||
%params = nextToken(%params,nick," *+@");
|
||
%params = nextToken(%params,HG," ");
|
||
%params = nextToken(%params,hops," ");
|
||
nextToken(%params,real," ");
|
||
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (!%p) return;
|
||
|
||
if (getSubStr(%user,0,1) $= "~")
|
||
%user = getSubStr(%user,1,strlen(%user)-1);
|
||
|
||
// update person in question
|
||
if (strcmp(%p.identity,%user @ "@" @ %at))
|
||
{
|
||
IRCClient::setIdentity(%p,%user @ "@" @ %at);
|
||
IRCClient::correctNick(%p);
|
||
}
|
||
%p.real = %real;
|
||
|
||
// Send it to the status channel
|
||
IRCClient::newMessage("","WHO " @ IRCClient::taggedNick(%p) @ ": " @ %user @ "@" @ %at @ " (" @ %real @ ") connected to server " @ %server @ ".");
|
||
IRCClient::connected();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onEndOfWho(%prefix,%params)
|
||
{
|
||
IRCClient::notify(IDIRC_END_OF_WHO);
|
||
// IRCClient::newMessage("","End of WHO list.");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onPart(%prefix,%params)
|
||
{
|
||
%p = IRCClient::findPerson2(%prefix,false);
|
||
%c = IRCClient::findChannel(%params);
|
||
|
||
if (%p && %c)
|
||
if (%c.removeMember(%p))
|
||
{
|
||
if ($pref::IRCClient::showLeave && !(%p.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage(%c,"\c4"@IRCClient::taggedNick(%p) @ " has left the conversation.");
|
||
IRCClient::notify(IDIRC_PART);
|
||
%p.ref--;
|
||
if (%p.ref == 0)
|
||
{
|
||
$IRCClient::people.remove(%p);
|
||
%p.delete();
|
||
}
|
||
}
|
||
|
||
// if this was me parting, clean up the channel
|
||
if (%p == $IRCClient::people.getObject(0) && %c)
|
||
{
|
||
$IRCClient::channels.remove(%c);
|
||
for (%i = 0; %i < %c.numMembers(); %i++)
|
||
{
|
||
%m = %c.getMemberId(%i);
|
||
%m.ref--;
|
||
if (%m.ref == 0)
|
||
{
|
||
$IRCClient::people.remove(%m);
|
||
%m.delete();
|
||
}
|
||
}
|
||
%c.delete();
|
||
$IRCClient::deletedChannel = %c;
|
||
if ($IRCClient::currentChannel == %c)
|
||
$IRCClient::nextChannel = $IRCClient::channels.getObject(0);
|
||
IRCClient::notify(IDIRC_DELCHANNEL);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNoTopic(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,channel," ");
|
||
%params = nextToken(%params,channel," ");
|
||
|
||
// Just a message
|
||
IRCClient::newMessage($IRCClient::currentChannel,%channel @ ": No topic is set.");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onTopic(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,ch," :");
|
||
%c = IRCClient::findChannel(%ch);
|
||
if (!%c)
|
||
{
|
||
%params = nextToken(%params,ch," :");
|
||
%c = IRCCLient::findChannel(%ch);
|
||
}
|
||
|
||
if (!%c)
|
||
return;
|
||
%c.topic = %params;
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_TOPIC);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onKick(%prefix,%params)
|
||
{
|
||
// EXAMPLE: BarbieGrl!Forgot@tsbrk3-204.gate.net KICK #HackPhreak RiseR :0,1 Shitlisted
|
||
nextToken(%prefix,host," !");
|
||
%params = nextToken(%params,ch," ");
|
||
%params = nextToken(%params,nick," :");
|
||
|
||
%h = IRCClient::findPerson(%host);
|
||
if (%h)
|
||
%host = IRCClient::taggedNick(%h);
|
||
%c = IRCClient::findChannel(%ch);
|
||
%p = IRCClient::findPerson(%nick);
|
||
|
||
if (%p && %c)
|
||
if (%c.removeMember(%p))
|
||
{
|
||
// was it me?
|
||
if (%p == $IRCClient::people.getObject(0))
|
||
{
|
||
// Delete the channel
|
||
for (%i = 0; %i < $IRCClient::channels.getCount(); %i++)
|
||
if ($IRCClient::channels.getObject(%i) == %c)
|
||
{
|
||
$IRCClient::channels.remove(%c);
|
||
%c.delete();
|
||
$IRCClient::deletedChannel = %c;
|
||
if ($IRCClient::currentChannel == %c)
|
||
$IRCClient::nextChannel = $IRCClient::channels.getObject(0);
|
||
|
||
break;
|
||
}
|
||
|
||
IRCClient::statusMessage("Host " @ %host @ " kicks " @ IRCClient::taggedNick(%p) @ " out of the chat room, saying \"" @ %params @ "\"");
|
||
IRCClient::notify(IDIRC_KICK);
|
||
}
|
||
else
|
||
{
|
||
IRCClient::newMessage(%c, "Host " @ %host @ " kicks " @ IRCClient::taggedNick(%p) @ " out of the chat room, saying \"" @ %params @ "\"");
|
||
IRCClient::notify(IDIRC_PART);
|
||
}
|
||
|
||
%p.ref--;
|
||
if (%p.ref == 0)
|
||
{
|
||
$IRCClient::people.remove(%p);
|
||
%p.delete();
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onModeReply(%prefix,%params)
|
||
{
|
||
// Strip the person name
|
||
%params = nextToken(%params,person," ");
|
||
|
||
// Send the rest on to the usual handler
|
||
IRCClient::onMode(%prefix,%params);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onMode(%prefix,%params)
|
||
{
|
||
//echo("IRCClient::onMode( "@%prefix@", "@ %params @" )");
|
||
|
||
// EXAMPLE: :RickO!ricko@rick-266.dynamix.com MODE #starsiege +v homer128
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege +m
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege -m
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege +lo 50 nick
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege +l 500
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege -l
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege +s
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege -s
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege +p
|
||
// EXAMPLE: PACKET: :RickO!ricko@rick-266.dynamix.com MODE #starsiege -p
|
||
|
||
IRCClient::newMessage("",%params);
|
||
%params = nextToken(%params,ch," ");
|
||
%params = nextToken(%params,mode," ");
|
||
|
||
%enable = (getSubStr(%mode,0,1) $= "+");
|
||
%c = IRCClient::findChannel(%ch);
|
||
if (!%c) return;
|
||
|
||
for (%i = 1; %i < strlen(%mode); %i++)
|
||
switch$(getSubStr(%mode,%i,1))
|
||
{
|
||
// PERSON Mode command
|
||
case "o": // Operator
|
||
%params = nextToken(%params,arg," ");
|
||
%i = (strlen(%arg) ? %c.findMember(IRCClient::findPerson(%arg)) : -1);
|
||
if (%i == -1)
|
||
break;
|
||
%c.setFlags(%i,$PERSON_OPERATOR,%enable);
|
||
%c.sort();
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_SORT);
|
||
|
||
// only display the message if my privilages are modified.
|
||
if (strcmp(%arg,$IRCClient::people.getObject(0).displayName))
|
||
break;
|
||
|
||
nextToken(%prefix,arg,"!");
|
||
%name = IRCClient::findPerson(%arg);
|
||
%taggedName = IRCClient::taggedNick(%name);
|
||
if (%c.getFlags(%i) & $PERSON_OPERATOR)
|
||
IRCClient::newMessage(%c, %taggedName @ " made you an operator.");
|
||
else
|
||
if (%c.getFlags(%i) & $PERSON_SPEAKER)
|
||
IRCClient::newMessage(%c, %taggedName @ " made you a speaker.");
|
||
else
|
||
IRCClient::newMessage(%c, %taggedName @ " made you an spectator.");
|
||
|
||
case "v": // Speaker (voice)
|
||
%params = nextToken(%params,arg," ");
|
||
%i = (strlen(%arg) ? %c.findMember(IRCClient::findPerson(%arg)) : -1);
|
||
if (%i == -1)
|
||
break;
|
||
%c.setFlags(%i,$PERSON_SPEAKER,%enable);
|
||
%c.sort();
|
||
if (%c == $IRCClient::currentChannel)
|
||
IRCClient::notify(IDIRC_SORT);
|
||
|
||
// only display the message if my privilages are modified.
|
||
if (strcmp(%arg,$IRCClient::people.getObject(0).displayName))
|
||
break;
|
||
|
||
nextToken(%prefix,arg,"!");
|
||
%name = IRCClient::findPerson(%arg);
|
||
%taggedName = IRCClient::taggedNick(%name);
|
||
if (%c.getFlags(%i) & $PERSON_OPERATOR)
|
||
IRCClient::newMessage(%c, %taggedName @ " made you an operator.");
|
||
else
|
||
if (%c.getFlags(%i) & $PERSON_SPEAKER)
|
||
IRCClient::newMessage(%c, %taggedName @ " made you a speaker.");
|
||
else
|
||
IRCClient::newMessage(%c, %taggedName @ " made you a spectator.");
|
||
|
||
// CHANNEL Mode command
|
||
case "b": // Ban
|
||
%params = nextToken(%params,arg," ");
|
||
|
||
case "i": // Channel is Invite only
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_INVITE;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_INVITE;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "l": // Channel has limited members
|
||
%params = nextToken(%params,arg," ");
|
||
%c.personLimit = (%enable ? %arg : 0);
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_LIMITED;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_LIMITED;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "m": // Channel is moderated
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_MODERATED;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_MODERATED;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "n": // External messages are ignored
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_IGNORE_EXTERN;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_IGNORE_EXTERN;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "p": // Channel is Private
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_PRIVATE;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_PRIVATE;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "s": // Channel is Secret
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_SECRET;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_SECRET;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "t": // Channel topic limited to Operators
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_TOPIC_LIMITED;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_TOPIC_LIMITED;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
|
||
case "k": // Channel has secret key
|
||
%params = nextToken(%params,arg," ");
|
||
%c.key = (%enable ? %arg : "");
|
||
if (%enable)
|
||
%c.flags = %c.flags | $CHANNEL_HAS_KEY;
|
||
else
|
||
%c.flags = %c.flags & ~$CHANNEL_HAS_KEY;
|
||
IRCClient::notify(IDIRC_CHANNEL_FLAGS);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onWhoisReply(%prefix,%params)
|
||
{
|
||
// EXAMPLE :rick-266.dynamix.com 311 homer128 RickO ricko rick-266.dynamix.com 198.74.38.222 :Rick
|
||
// EXAMPLE :rick-266.dynamix.com 319 homer128 RickO :@#starsiege
|
||
// EXAMPLE :rick-266.dynamix.com 312 homer128 RickO rick-266.dynamix.com :WIRCSRV Windows IRC Server
|
||
// $params = nextToken($params,ch," ");
|
||
// IRCClient::newMessage("",%params);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onWhoisUserReply(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,chunk," ");
|
||
%tmp = %params;
|
||
%params = nextToken(%params,nick," ");
|
||
%params = nextToken(%params,user," ");
|
||
%params = nextToken(%params,at," ");
|
||
%real = nextToken(%params,chunk,":");
|
||
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (!%p) return;
|
||
|
||
if (getSubStr(%user,0,1) $= "~")
|
||
%user = getSubStr(%user,1,strlen(%user)-1);
|
||
|
||
// update person in question
|
||
if (strcmp(%p.identity,%user @ "@" @ %at))
|
||
{
|
||
IRCClient::setIdentity(%p,%user @ "@" @ %at);
|
||
IRCClient::correctNick(%p);
|
||
}
|
||
%p.real = %real;
|
||
|
||
// Send it to the status channel
|
||
IRCClient::newMessage("","WHOIS " @ IRCClient::taggedNick(%p) @ ": " @ %user @ "@" @ %at @ " (" @ %real @ ").");
|
||
IRCClient::connected();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onWhoisIdle(%prefix,%params)
|
||
{
|
||
// EXAMPLE :rick-266.dynamix.com 317 homer128 RickO 5350 907453369 :seconds idle
|
||
// the date is encoded in '907453369' but I have not figured out how to decode it :(
|
||
%params = nextToken(%params,nick," "); // strip out caller's name
|
||
%params = nextToken(%params,nick," ");
|
||
%params = nextToken(%params,seconds," ");
|
||
nextToken(%params,date," ");
|
||
|
||
%p = IRCClient::findPerson(%nick);
|
||
|
||
%iMinutes = %seconds/60;
|
||
%iSeconds = %seconds%60;
|
||
if (%iMinutes)
|
||
IRCClient::newMessage("",IRCClient::taggedNick(%p) @ " has been idle for " @ %iMinutes @ " minute(s) and " @ %iSeconds @ " second(s).");
|
||
else
|
||
IRCCLient::newMessage("",IRCClient::taggedNick(%p) @ " has been idle for " @ %iSeconds @ "second(s).");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::censor(%str)
|
||
{
|
||
if (!strlen(%str))
|
||
return false;
|
||
if (!$IRCClient::numCensorWords)
|
||
if ($IRCClient::censorChannel)
|
||
{
|
||
%buffer = %str;
|
||
%p = strlwr(%buffer);
|
||
while (strlen(%p))
|
||
{
|
||
%p = nextToken(%p,word," ,");
|
||
$IRCClient::censorWords[$IRCClient::numCensorWords] = %word;
|
||
$IRCClient::numCensorWords++;
|
||
}
|
||
}
|
||
|
||
%buffer = %str;
|
||
strlwr(%buffer);
|
||
|
||
for (%i = 0; %i < $IRCClient::numCensorWords; %i++)
|
||
if (strstr(%buffer,$IRCClient::censorWords[%i]))
|
||
return true;
|
||
|
||
return false;
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onList(%prefix,%params)
|
||
{
|
||
//error("IRCClient::onList( "@ %prefix @", "@ %params @")");
|
||
//EXAMPLE: :StLouis.MO.US.UnderNet.org 322 homer128 #bmx 9 :BMX Rules!
|
||
|
||
%params = nextToken(%params,nick," ");
|
||
%params = nextToken(%params,ch," ");
|
||
%topic = nextToken(%params,users," :");
|
||
|
||
%l = strlen(%ch);
|
||
if ((%l > 7 && strcmp(getSubStr(%ch,%l-7,7),"_Public") == 0) ||
|
||
(%l > 8 && strcmp(getSubStr(%ch,%l-8,8),"_Private") == 0))
|
||
return;
|
||
if (IRCClient::censor(%topic))
|
||
return;
|
||
|
||
if ($IRCClient::silentList)
|
||
{
|
||
$IRCClient::channelNames[$IRCClient::numChannels] = %ch;
|
||
$IRCClient::channelUsers[$IRCClient::numChannels] = %users;
|
||
$IRCClient::channelTopics[$IRCClient::numChannels] = %topic;
|
||
$IRCClient::numChannels++;
|
||
}
|
||
// else
|
||
// IRCClient::newMessage($IRCClient::currentChannel,%users @ " " @ %ch @ " -- " @ %topic);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onBanList(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,banned," ");
|
||
%params = nextToken(%params,banned," ");
|
||
%params = nextToken(%params,banned," ");
|
||
nextToken(%banned,banned,"!*@*");
|
||
|
||
if ($IRCClient::silentBanList)
|
||
{
|
||
// temporarily create person
|
||
$IRCClient::banList[$IRCClient::numBanned] = IRCClient::findPerson2(%banned,true);
|
||
$IRCClient::removeBan[$IRCClient::banList[$IRCClient::numBanned]] = false;
|
||
$IRCClient::numBanned++;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onListEnd(%prefix,%params)
|
||
{
|
||
if ($IRCClient::silentList)
|
||
{
|
||
$IRCClient::silentList = false;
|
||
IRCClient::notify(IDIRC_CHANNEL_LIST);
|
||
IRCClient::connected();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onBanListEnd(%prefix,%params)
|
||
{
|
||
if ($IRCClient::silentBanList)
|
||
{
|
||
$IRCClient::silentBanList = false;
|
||
IRCClient::notify(IDIRC_BAN_LIST);
|
||
IRCClient::connected();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onBadNick(%prefix,%params)
|
||
{
|
||
//error("IRCClient::onBadNick( "@%prefix@", "@%params@" )");
|
||
IRCClient::newMessage("","NOTICE: Nickname (" @ $IRCClient::people.getObject(0).displayName @ ") is already in use.");
|
||
IRCClient::notify(IDIRC_ERR_NICK_IN_USE);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNoLogin(%prefix,%params)
|
||
{
|
||
%msg = nextToken(%params,cmd," :");
|
||
IRCClient::connected();
|
||
IRCClient::newMessage("","Could not log in:" SPC %msg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onAway(%prefix,%params)
|
||
{
|
||
%msg = nextToken(%params,nick," :");
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (!%p)
|
||
return;
|
||
%c = IRCClient::findChannel(%nick);
|
||
if (!%c)
|
||
return;
|
||
|
||
if (strlen(%msg))
|
||
{
|
||
%p.flags = %p.flags | $PERSON_AWAY;
|
||
if (!(%p.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage($IRCClient::currentChannel,IRCClient::taggedNick(%p) @ " is away: " @ %msg);
|
||
}
|
||
else
|
||
{
|
||
%p.flags = %p.flags & ~$PERSON_AWAY;
|
||
if (!(%p.flags & $PERSON_IGNORE))
|
||
IRCClient::newMessage($IRCClient::currentChannel,IRCClient::taggedNick(%p) @ " has returned.");
|
||
}
|
||
if ($IRCClient::currentChannel.findMember(%p) >= 0)
|
||
IRCClient::notify(IDIRC_SORT);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onAction(%prefix,%params)
|
||
{
|
||
//error("IRCClient::onAction( "@ %prefix @", "@ %params @")");
|
||
%msg = nextToken(%params,ch," :");
|
||
%c = IRCClient::findChannel(%ch,true);
|
||
|
||
%person = IRCClient::findPerson2(%prefix,true);
|
||
%name = IRCClient::taggedNick(%person);
|
||
|
||
IRCClient::newMessage(%c, %name @ "\c9 " @ %msg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onAwayReply(%prefix,%params)
|
||
{
|
||
//EXAMPLE :rick-266.dynamix.com 301 homer128 RickO :Gone fishing.
|
||
%params = nextToken(%params,me," ");
|
||
%msg = nextToken(%params,nick," :");
|
||
%p = IRCClient::findPerson(%nick);
|
||
|
||
if (%p)
|
||
{
|
||
%p.flags = %p.flags | $PERSON_AWAY;
|
||
IRCClient::newMessage($IRCClient::currentChannel,IRCClient::taggedNick(%p) SPC "is away:" SPC %msg);
|
||
IRCClient::notify(IDIRC_SORT);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onUnAwayReply(%prefix,%params)
|
||
{
|
||
if ($IRCClient::awaytimeout)
|
||
cancel($IRCClient::awaytimeout);
|
||
$IRCClient::awaytimeout = schedule($AWAY_TIMEOUT,0,"ChatAway_Timeout");
|
||
IRCClient::newMessage("","You are no longer marked as being away.");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNowAwayReply(%prefix,%params)
|
||
{
|
||
IRCClient::newMessage("","You have been marked as being away.");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onNotice(%prefix,%params)
|
||
{
|
||
//EXAMPLE NOTICE AUTH :*** Found your hostname
|
||
|
||
%sender = IRCClient::findPerson2(%prefix,true);
|
||
|
||
if (!%sender || !(%sender.flags & $PERSON_IGNORE))
|
||
{
|
||
%msg = strchr(%params,"\x01");
|
||
if (!strlen(%msg))
|
||
{
|
||
// Skip past the target name
|
||
%params = nextToken(%params,params,":");
|
||
|
||
IRCClient::newMessage("","NOTICE FROM " @ IRCClient::taggedNick(%sender) @ ": " @ %params);
|
||
}
|
||
else
|
||
{
|
||
// otherwise it's a command imbeded inside NOTICE (oh great!)
|
||
%msg = nextToken(%msg,command," \x01");
|
||
IRCClient::dispatch(%prefix,%command,%msg);
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onChannelFull(%prefix,%params)
|
||
{
|
||
%channel = nextToken(%params,channel," ");
|
||
nextToken(%channel,channel," ");
|
||
|
||
IRCClient::connected();
|
||
IRCClient::statusMessage("Cannot join " @ %channel @ ": room is full.");
|
||
IRCClient::notify(IDIRC_CHANNEL_FULL);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onChannelInviteOnly(%prefix,%params)
|
||
{
|
||
%channel = nextToken(%params,channel," ");
|
||
nextToken(%channel,channel," ");
|
||
|
||
IRCClient::connected();
|
||
IRCClient::statusMessage("Cannot join " @ %channel @ ": room is invite only.");
|
||
IRCClient::notify(IDIRC_INVITE_ONLY);
|
||
}
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onInvite(%prefix,%params)
|
||
{
|
||
// Find or create the person (should never be NULL)
|
||
%p = IRCClient::findPerson2(%prefix,true);
|
||
if (%p)
|
||
{
|
||
%params = nextToken(%params,channel,":");
|
||
%channel = %params;
|
||
|
||
// Only bother the user if they aren't ignoring this person
|
||
if (!(%person.flags & $PERSON_IGNORE))
|
||
{
|
||
// Set vars and notify the responder
|
||
$IRCClient::invitechannel = %channel;
|
||
$IRCClient::inviteperson = IRCClient::displayNick(%p);
|
||
IRCClient::notify(IDIRC_INVITED);
|
||
}
|
||
}
|
||
}
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onInviteReply(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,me," ");
|
||
%params = nextToken(%params,person," ");
|
||
%params = nextToken(%params,channel," ");
|
||
%p = IRCClient::findPerson(%person);
|
||
|
||
IRCClient::newMessage($IRCClient::currentChannel,"You have invited" SPC IRCClient::taggedNick(%p) SPC "to channel" SPC IRCClient::displayChannel(%channel) @ ".");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onChannelBanned(%prefix,%params)
|
||
{
|
||
%channel = nextToken(%params,channel," ");
|
||
nextToken(%channel,channel," ");
|
||
|
||
IRCClient::connected();
|
||
//IRCClient::statusMessage("Cannot join " @ %channel @ ": you have been banned.");
|
||
MessageBoxOk("Banned", "Cannot join " @ IRCClient::displayChannel(%channel) @ ". You have been banned.");
|
||
IRCClient::notify(IDIRC_BANNED_CH);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onServerBanned(%prefix,%params)
|
||
{
|
||
$IRCClient::state = $IDIRC_DISCONNECTED;
|
||
|
||
IRCClient::statusMessage("You have been banned from this server.");
|
||
MessageBoxOk("Server Ban", "You have been banned from this server.");
|
||
// IRCClient::notify(IDIRC_BANNED_SERVER);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onInvalidNick(%prefix,%params)
|
||
{
|
||
$IRCClient::state = IDIRC_DISCONNECTED;
|
||
%params = nextToken(%params,name,":");
|
||
IRCClient::newMessage("",%params);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onBadChannelKey(%prefix,%params)
|
||
{
|
||
%channel = nextToken(%params,channel," ");
|
||
nextToken(%channel,channel," ");
|
||
|
||
IRCClient::connected();
|
||
IRCClient::statusMessage("Cannot join " @ IRCClient::displayChannel(%channel) @ ": invalid password.");
|
||
$IRCClient::keyChannel = %channel;
|
||
IRCClient::notify(IDIRC_CHANNEL_HAS_KEY);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onVersion(%prefix,%params)
|
||
{
|
||
%time = getSimTime();
|
||
|
||
if ((%time - $IRCClient::lastVersioned) >= $VERSION_FLOOD_TIMEOUT)
|
||
{
|
||
$IRCClient::lastVersioned = %time;
|
||
|
||
nextToken(%prefix,nick,"!");
|
||
%params = nextToken(%params,msg,": ");
|
||
nextToken(%params,msg,"\x01");
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (%p && strlen(%msg))
|
||
IRCClient::newMessage($IRCClient::currentChannel,%nick @ "'s version: " @ %msg @ ".");
|
||
else
|
||
IRCClient::send("NOTICE " @ %prefix @ " :\x01VERSION " @ $VERSION_STRING @ "\x01");
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onChallenge(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,challenge," ");
|
||
%me = $IRCClient::people.getObject(0);
|
||
IRCClient::newMessage("","Received WON authentication challenge");
|
||
%response = WONLoginIRC(%challenge);
|
||
if (strcmp(%challenge,"ERROR"))
|
||
IRCClient::send("CHALRESP " @ %response);
|
||
else
|
||
IRCClient::notify(IDIRC_ERR_BADCHALLENGE);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onChalRespReply(%prefix,%params)
|
||
{
|
||
%params = nextToken(%params,nick," ");
|
||
%params = nextToken(%params,ident," ");
|
||
%params = nextToken(%params,reply," ");
|
||
%me = $IRCClient::people.getObject(0);
|
||
%me.displayName = %nick;
|
||
IRCClient::setIdentity(%me,%ident @ "@localhost");
|
||
if (WONLoginIRC(%reply) $= "OK")
|
||
{
|
||
if ($IRCClient::state !$= IDIRC_CONNECTED)
|
||
{
|
||
IRCClient::newMessage("","Successfully connected to " @ $IRCClient::server);
|
||
$IRCClient::state = IDIRC_CONNECTED;
|
||
IRCClient::notify(IDIRC_CONNECTED);
|
||
|
||
if ($IRCClient::awaytimeout)
|
||
cancel($IRCClient::awaytimeout);
|
||
$IRCClient::awaytimeout = schedule($AWAY_TIMEOUT,0,"ChatAway_Timeout");
|
||
// auto join a room if requested
|
||
if (strlen($IRCClient::room))
|
||
IRCClient::send("JOIN " @ $IRCClient::room);
|
||
|
||
if ($IRCClient::previousChannelCount > 0)
|
||
{
|
||
for (%i = 0; %i < $IRCClient::previousChannelCount; %i++)
|
||
IRCClient::join($IRCClient::previousChannel[%i] @ " " @ $IRCClient::previousKey[%i]);
|
||
$IRCClient::previousChannelCount = 0;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
IRCClient::newMessage("","Successfully reauthenticated with " @ $IRCClient::server);
|
||
IRCClient::correctNick($IRCClient::people.getObject(0));
|
||
}
|
||
}
|
||
else
|
||
{
|
||
IRCClient::disconnect();
|
||
IRCClient::notify(IDIRC_ERR_BADCHALRESP_REPLY);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::send2(%message,%to)
|
||
{
|
||
if ((strcmp($IRCCLient::state,IDIRC_CONNECTING_IRC) && strcmp($IRCClient::state,IDIRC_CONNECTED)) ||
|
||
!strlen(%message))
|
||
return;
|
||
|
||
if (getSubStr(%message,0,1) $= "/")
|
||
{
|
||
%buffer = getSubStr(%message,1,strlen(%message)-1);
|
||
%params = nextToken(%buffer,command," ");
|
||
|
||
// dispatch the command to a handler -- if one exists
|
||
// we don't need to handle all outgoing commands just a few
|
||
switch$(%command)
|
||
{
|
||
case "PING":
|
||
IRCClient::ping(%params);
|
||
case "PART":
|
||
IRCClient::part(%params);
|
||
case "AWAY":
|
||
IRCClient::away(%params);
|
||
case "ME":
|
||
IRCClient::sendAction(%params);
|
||
case "ACTION":
|
||
IRCClient::sendAction(%params);
|
||
case "JOIN":
|
||
IRCClient::join(%params);
|
||
case "QUIT":
|
||
IRCClient::quit(%params);
|
||
|
||
default:
|
||
// otherwise ship it to the server, RAW
|
||
IRCClient::send(getSubStr(%message,1,strlen(%message)-1));
|
||
}
|
||
}
|
||
else
|
||
if (strlen(%to))
|
||
{
|
||
IRCClient::send("PRIVMSG " @ %to @ " :" @ %message);
|
||
%c = IRCClient::findChannel(%to);
|
||
if (%c)
|
||
{
|
||
%me = $IRCClient::people.getObject(0);
|
||
IRCClient::newMessage(%c,IRCClient::taggedNick(%me) @ ": " @ %message);
|
||
}
|
||
}
|
||
else
|
||
if (strcmp($IRCClient::currentChannel.getName(),$CHANNEL_STATUS))
|
||
{
|
||
IRCClient::send("PRIVMSG " @ $IRCClient::currentChannel.getName() @ " :" @ %message);
|
||
%me = $IRCClient::people.getObject(0);
|
||
IRCClient::newMessage($IRCClient::currentChannel,IRCClient::taggedNick(%me) @ ": " @ %message);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::sendAction(%message)
|
||
{
|
||
if (($IRCClient::state != $IDIRC_CONNECTING_IRC && $IRCClient::state != $IDIRC_CONNECTED) ||
|
||
!strlen(%message))
|
||
return;
|
||
|
||
if (getSubStr(%message,0,1) $= "/")
|
||
IRCClient::send2(%message,"");
|
||
else
|
||
{
|
||
IRCClient::send("PRIVMSG " @ $IRCClient::currentChannel.getName() @ " :\x01ACTION " @ %message @ "\x01");
|
||
%me = $IRCClient::people.getObject(0);
|
||
IRCClient::newMessage($IRCClient::currentChannel, IRCClient::taggedNick(%me) @ "\c9 " @ %message);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::join(%params)
|
||
{
|
||
%tmp = nextToken(%params,channel," ");
|
||
nextToken(%tmp,key," ");
|
||
|
||
// Only allow one channel / key combination at a time - no
|
||
// comma delimiting
|
||
nextToken(%channel,channel,",");
|
||
nextToken(%key,key,",");
|
||
|
||
%c = IRCClient::findChannel(%channel);
|
||
if (%c)
|
||
{
|
||
$IRCClient::nextChannel = %c;
|
||
IRCClient::notify(IDIRC_ADDCHANNEL);
|
||
}
|
||
else
|
||
{
|
||
$IRCClient::key = %key;
|
||
|
||
IRCClient::send("JOIN " @ %channel @ " " @ %key);
|
||
IRCClient::connecting();
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::quit(%params)
|
||
{
|
||
IRCClient::send("QUIT");
|
||
|
||
IRCClient::disconnect();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::nick(%nick)
|
||
{
|
||
if (($IRCClient::state $= IDIRC_CONNECTED || $IRCClient::state $= IDIRC_CONNECTING_IRC) &&
|
||
strlen(nick))
|
||
{
|
||
if (stricmp(%nick, $IRCClient::people.getObject(0).getName()))
|
||
IRCClient::send("NICK " @ %nick);
|
||
}
|
||
else
|
||
{
|
||
$IRCClient::people.getObject(0).setName(%nick);
|
||
$IRCClient::NickName = %nick;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::name(%name)
|
||
{
|
||
$IRCClient::people.getObject(0).real = %name;
|
||
}
|
||
|
||
//--------------------------------------------------------------------------------
|
||
function ChatMessageEntry::onTabComplete(%this)
|
||
{
|
||
// the word that the cursor is on or just behind
|
||
// and exchange it for a matching nick from this channel
|
||
|
||
//%channel = $IRCClient::channels.getObject(0);
|
||
%me = $IRCClient::people.getObject(0);
|
||
|
||
// if there is no text just iterate through the channel members
|
||
|
||
%text = %this.getValue();
|
||
|
||
if(%text $= "")
|
||
{
|
||
error("null string completion not implemented yet.");
|
||
return;
|
||
}
|
||
|
||
%cursorPos = %this.getCursorPos();
|
||
%textLen = strLen(%text);
|
||
|
||
// find the first space behind the cursor
|
||
for(%a = %cursorPos; %a >= 0; %a--)
|
||
{
|
||
%letter = getSubStr(%text, %a, 1);
|
||
if(%letter $= " ")
|
||
{
|
||
%space = %a + 1; // add 1 so we dont INCLUDE the space
|
||
%begining = %space;
|
||
//echo("first space is at pos" SPC %begining);
|
||
break;
|
||
}
|
||
if(%a == 0)
|
||
{
|
||
//echo("there are no prev spaces.");
|
||
%begining = 0;
|
||
}
|
||
}
|
||
|
||
// find the first space in front of the cursor
|
||
for(%b = %cursorPos; %b <= %textLen; %b++)
|
||
{
|
||
%letter = getSubStr(%text, %b, 1);
|
||
if(%letter $= " ")
|
||
{
|
||
%end = %b;
|
||
//echo("end space is at pos" SPC %end);
|
||
|
||
break;
|
||
}
|
||
if(%b == %textLen)
|
||
{
|
||
//echo("there are no end spaces.");
|
||
%end = %textLen;
|
||
}
|
||
|
||
}
|
||
|
||
//why dont we move the cursor to the end of the word if they try and tab complete
|
||
//successfull or not
|
||
%this.setCursorPos(%b);
|
||
|
||
// this forms a word
|
||
%wordLen = %end - %begining;
|
||
%word = getSubStr(%text, %begining, %wordLen);
|
||
//error("Word to tabComplete: "@%word@".");
|
||
|
||
//we interupt here
|
||
// if we have the last word we tab completed then we are trying to cycle
|
||
// we want to cycle with the stem of the last word we completed from
|
||
// so we use the stem instead of the word
|
||
if(%word $= %me.lastCompletion)
|
||
{
|
||
%word = %me.lastCompletionStub;
|
||
%wordLen = strLen(%word);
|
||
}
|
||
|
||
// is it a tab-completable word?
|
||
for (%i = 0; %i < $IRCClient::people.getCount(); %i++)
|
||
{
|
||
%person = $IRCClient::people.getObject(%i);
|
||
if(%person.untagged !$= "")
|
||
%personName = %person.untagged;
|
||
else %personName = %person;
|
||
|
||
%personSnip = getSubStr(%personName, 0, %wordLen);
|
||
|
||
if(%personSnip $= %word)
|
||
{
|
||
%nickPossiblity[%numMatches++] = %personName;
|
||
}
|
||
}
|
||
|
||
if(!%numMatches)
|
||
{
|
||
//error("no matches...sorry.");
|
||
return;
|
||
}
|
||
|
||
// we have ALL the possible tab completes for the word
|
||
// if we have just tab completed on of them give us the next one instead
|
||
// cycle through the possiblities
|
||
|
||
for(%i = 1; %i <= %numMatches; %i++)
|
||
{
|
||
if(%nickPossiblity[%i] $= %me.lastCompletion)
|
||
{
|
||
%newWord = %nickPossiblity[%i+1];
|
||
break;
|
||
}
|
||
}
|
||
if(%newWord $= "" )
|
||
%newWord = %nickPossiblity1;
|
||
|
||
%newWordLenDif = strLen(%newWord) - strLen(%word);
|
||
|
||
if(%newWord $= "")
|
||
{
|
||
//error("There is no word to tab complete");
|
||
return -1;
|
||
}
|
||
|
||
// there is a word (%newWord) find out which word it is
|
||
for(%i = 0; %i < getWordCount(%text); %i++)
|
||
{
|
||
%wordCheck = getWord(%text, %i);
|
||
//echo("is this word our candidate? "@%wordCheck);
|
||
if(%wordCheck $= %word)
|
||
{
|
||
%wordNum = %i;
|
||
}
|
||
//what if there are multiple instances of this word?
|
||
}
|
||
|
||
// replace the word with the new word and move the cursor
|
||
|
||
for(%x = 0; %x < getWordCount(%text); %x++)
|
||
{
|
||
%thisWord = getWord(%text, %x);
|
||
|
||
if(%wordNum == %x)
|
||
{
|
||
%thisWord = %newWord;
|
||
}
|
||
|
||
if(%newText $= "")
|
||
%newText = %thisWord;
|
||
else %newText = %newText SPC %thisWord;
|
||
}
|
||
|
||
%this.setCursorPos( %this.getCursorPos() + %newWordLenDif -1 );
|
||
|
||
// replace what the current text is, with new text
|
||
%this.setValue(%newText);
|
||
|
||
%me.lastCompletion = %newWord;
|
||
%me.lastCompletionStub = %word;
|
||
}
|
||
|
||
//----------------------------------------------------------------------
|
||
function IRCClient::nickHighLight(%message)
|
||
{
|
||
//error("IRCClient::nickHighLight( "@%message@" )");
|
||
%nick = $IRCClient::people.getObject(0).untagged;
|
||
|
||
//%nickLen = strLen(%nick);
|
||
// swap in for multiple nick options here
|
||
|
||
%wordCount = getWordCount(%message);
|
||
for(%i = 0; %i < %wordCount; %i++)
|
||
{
|
||
%word = getWord(%message, %i);
|
||
if(%word $= %nick)
|
||
{
|
||
%message = "\c2" @ %message;
|
||
}
|
||
}
|
||
return %message;
|
||
}
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onInstantMsg(%prefix,%params)
|
||
{
|
||
// Find or create the person (should never be NULL)
|
||
%p = IRCClient::findPerson2(%prefix,true);
|
||
if (%p)
|
||
{
|
||
%params = nextToken(%params,channel,":");
|
||
%channel = %params;
|
||
|
||
// Only bother the user if they aren't ignoring this person
|
||
if (!(%person.flags & $PERSON_IGNORE))
|
||
{
|
||
// Set vars and notify the responder
|
||
$IRCClient::inviteperson = IRCClient::displayNick(%p);
|
||
IRCClient::notify(IDIRC_INSTANT);
|
||
}
|
||
}
|
||
}
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::instant(%p,%c)
|
||
{
|
||
IRCClient::send("INSTANT" SPC %p.displayName SPC 0);
|
||
}
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::part(%params)
|
||
{
|
||
nextToken(%params,ch," ");
|
||
if (%ch $= $CHANNEL_STATUS)
|
||
return;
|
||
|
||
%c = IRCClient::findChannel(%ch);
|
||
if (%c)
|
||
for (%i = 0; %i < $IRCClient::channels.getCount(); %i++)
|
||
if ($IRCClient::channels.getObject(%i) == %c)
|
||
{
|
||
if (getSubStr(%ch,0,1) $= "#" || getSubStr(%ch,0,1) $= "&")
|
||
IRCClient::send("PART " @ %params);
|
||
else
|
||
{
|
||
$IRCClient::channels.remove(%c);
|
||
for (%i = 0; %i < %c.numMembers(); %i++)
|
||
{
|
||
%m = %c.getMemberId(%i);
|
||
%m.ref--;
|
||
if (%m.ref == 0)
|
||
{
|
||
$IRCClient::people.remove(%m);
|
||
%m.delete();
|
||
}
|
||
else
|
||
if (%m != $IRCClient::people.getObject(0) &&
|
||
(%m.flags & $PERSON_AWAY))
|
||
%m.flags = %m.flags & ~$PERSON_AWAY;
|
||
}
|
||
%c.delete();
|
||
$IRCClient::deletedChannel = %c;
|
||
if ($IRCClient::currentChannel == %c)
|
||
$IRCClient::nextChannel = $IRCClient::channels.getObject(0);
|
||
|
||
IRCClient::notify(IDIRC_DELCHANNEL);
|
||
}
|
||
|
||
break;
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::away(%params)
|
||
{
|
||
%me = $IRCClient::people.getObject(0);
|
||
if (strlen(%params))
|
||
{
|
||
if ($IRCClient::awaytimeout)
|
||
{
|
||
cancel($IRCClient::awaytimeout);
|
||
$IRCClient::awaytimeout = 0;
|
||
}
|
||
%me.flags = %me.flags | $PERSON_AWAY;
|
||
IRCClient::send("AWAY :" @ %params);
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (%c.private)
|
||
IRCClient::send("PRIVMSG " @ %c.getName() @ " :\x01AWAY :" @ %params @ "\x01");
|
||
}
|
||
}
|
||
else
|
||
{
|
||
%me.flags = %me.flags & ~$PERSON_AWAY;
|
||
IRCClient::send("AWAY");
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (%c.private)
|
||
IRCClient::send("PRIVMSG " @ %c.getName() @ " :\x01AWAY \x01");
|
||
}
|
||
|
||
}
|
||
IRCClient::notify(IDIRC_SORT);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::ping(%params)
|
||
{
|
||
%params = nextToken(%params,nick," ");
|
||
while (strlen(%nick))
|
||
{
|
||
%p = IRCClient::findPerson(%nick);
|
||
if (%p)
|
||
{
|
||
%p.ping = GetSimTime();
|
||
IRCClient::send("PRIVMSG " @ %nick @ " :\x01PING 0\x01");
|
||
}
|
||
%params = nextToken(%params,nick," ");
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setOperator(%p)
|
||
{
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " +o " @ %p.displayName);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setSpeaker(%nick)
|
||
{
|
||
if (strcmp($IRCClient::currentChannel.getName(),$CHANNEL_STATUS))
|
||
{
|
||
%i = $IRCClient::currentChannel.findMember(%nick);
|
||
|
||
if (%i != -1)
|
||
{
|
||
if ($IRCClient::currentChannel.getFlags(%i) & $PERSON_OPERATOR)
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " -o " @ %nick);
|
||
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " +v " @ %nick);
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setSpectator(%nick)
|
||
{
|
||
if (strcmp($IRCClient::currentChannel.getName(),$CHANNEL_STATUS))
|
||
{
|
||
%i = $IRCClient::currentChannel.findMember(%nick);
|
||
|
||
if (%i != -1)
|
||
{
|
||
if ($IRCClient::currentChannel.getFlags(%i) & $PERSON_OPERATOR)
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " -o " @ %nick);
|
||
if ($IRCClient::currentChannel.getFlags(%i) & $PERSON_SPEAKER)
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " -v " @ %nick);
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::kick(%p,%msg)
|
||
{
|
||
//error("IRCClient::kick( "@ %p @", "@ %msg@" )");
|
||
IRCClient::send("KICK" SPC $IRCClient::currentChannel.getName() SPC %p.displayName @ " :" @ %msg);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::ban(%p,%add)
|
||
{
|
||
if (%add)
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " +b " @ %p.displayName);
|
||
else
|
||
IRCClient::send("MODE " @ $IRCClient::currentChannel.getName() @ " -b " @ %p.displayName);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::ignore(%p,%tf)
|
||
{
|
||
if ($IRCClient::currentChannel.getName() $= $CHANNEL_STATUS)
|
||
{
|
||
echo("IRCClient::ignore: no current channel.");
|
||
|
||
return;
|
||
}
|
||
|
||
if (%p)
|
||
{
|
||
if (%tf)
|
||
{
|
||
%p.flags = %p.flags | $PERSON_IGNORE;
|
||
IRCClient::newMessage("","You are now ignoring " @ IRCClient::taggedNick(%p) @ ".");
|
||
}
|
||
else
|
||
{
|
||
%p.flags = %p.flags & ~$PERSON_IGNORE;
|
||
IRCClient::newMessage("","You are no longer ignoring " @ IRCClient::taggedNick(%p) @ ".");
|
||
}
|
||
IRCClient::notify(IDIRC_SORT);
|
||
}
|
||
else
|
||
{
|
||
echo("not P:" @ %p TAB %tf);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::invite(%p,%c)
|
||
{
|
||
IRCClient::send("INVITE" SPC %p.displayName SPC %c.getName());
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::who(%p)
|
||
{
|
||
IRCClient::connecting();
|
||
IRCClient::send("WHO" SPC %p.displayName);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::whois(%p)
|
||
{
|
||
IRCClient::connecting();
|
||
IRCClient::send("WHOIS" SPC %p.displayName);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::topic(%c,%t)
|
||
{
|
||
IRCClient::send("TOPIC" SPC %c.getName() SPC ":" @ %t);
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setInvite(%c,%i)
|
||
{
|
||
if (%i)
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "+i");
|
||
else
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "-i");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setModerate(%c,%m)
|
||
{
|
||
if (%m)
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "+m");
|
||
else
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "-m");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setLimit(%c,%l,%m)
|
||
{
|
||
if (%l)
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "+l" SPC %m);
|
||
else
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "-l");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::setKey(%c,%k,%p)
|
||
{
|
||
if (%k)
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "+k" SPC %p);
|
||
else
|
||
IRCClient::send("MODE" SPC %c.getName() SPC "-k");
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::requestChannelList()
|
||
{
|
||
// clear the global channel List
|
||
$IRCClient::numChannels = 0;
|
||
|
||
$IRCClient::silentList = true;
|
||
IRCClient::send("LIST");
|
||
IRCClient::connecting();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::requestBanList(%c)
|
||
{
|
||
// clear the global banned list
|
||
$IRCClient::banChannel = %c;
|
||
$IRCClient::numBanned = 0;
|
||
|
||
$IRCClient::silentBanList = true;
|
||
IRCClient::send("MODE " @ %c.getName() @ " +b");
|
||
IRCClient::connecting();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onJoinServer(%mission,%server,%address,%mayprequire,%prequire)
|
||
{
|
||
// server and address are required, and we have to be connected
|
||
if (strlen(%server) && strlen(%address) && $IRCClient::state == $IDIRC_CONNECTED)
|
||
{
|
||
%buf = "left to play " @ %mission @ " on server " @ %server @ " [" @ %address @ ":" @ %mayprequire @ %prequire @ "]";
|
||
|
||
IRCClient::send("PRIVMSG " @ $IRCClient::currentChannel.getName() @ ":\x01ACTION " @ %buf @ "\x01");
|
||
IRCClient::newMessage($IRCClient::currentChannel,
|
||
IRCClient::taggedNick($IRCClient::people.getObject(0)) @ " " @ %buf);
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onJoinGame(%address, %desc)
|
||
{
|
||
if(!isObject($IRCClient::tcp))
|
||
return;
|
||
|
||
//error("IRCClient::onJoinGame( "@ %address @", "@ %desc @" )");
|
||
//IRCClient::away("joined a game.");
|
||
|
||
%me = $IRCClient::people.getObject(0);
|
||
if(%address $= %me.lastAddress)
|
||
{
|
||
return;
|
||
}
|
||
|
||
%me.lastAddress = %address;
|
||
|
||
%joinLink = "<t2server:" @ %address @ ">Click here to follow</t2server>.";
|
||
|
||
if(%address $= "")
|
||
%msg = %desc;
|
||
else
|
||
%msg = %desc SPC %joinLink;
|
||
|
||
//IRCClient::sendAction(%msg);
|
||
|
||
for (%i = 1; %i < $IRCClient::channels.getCount(); %i++)
|
||
{
|
||
%c = $IRCClient::channels.getObject(%i);
|
||
if (!%c.private)
|
||
{
|
||
IRCClient::send("PRIVMSG " @ %c.getName() @ " :\x01ACTION " @ %msg @ "\x01");
|
||
IRCClient::newMessage($IRCClient::currentChannel, IRCClient::taggedNick($IRCClient::people.getObject(0)) @ "\c9 " @ %msg);
|
||
}
|
||
}
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function IRCClient::onLeaveGame()
|
||
{
|
||
IRCClient::away("");
|
||
}
|
||
|
||
if ($LaunchMode $= "Normal")
|
||
{
|
||
IRCClient::init();
|
||
IRCClient::connect();
|
||
}
|
||
|
||
//------------------------------------------------------------------------------
|
||
function WelcomeHeadlines::onSelect( %this, %id, %text )
|
||
{
|
||
WelcomeText.scrollToTag( %id );
|
||
}
|