Chat Modifications - Flashchat: Who is chatting

This modification is no longer available or supported.

This is a simple display of who is currently chatting in FlashChat - on the forum homepage display.

Note: Version 3.7.003 and above are for Flashchat 5.0.x onwards, and will not work with Flashchat 4.x.x. Version 3.7.002 will currently continue to be available for Flashchat 4.

The main features of the 3.7 version are ;

1. It displays the list on Forum Home with the "Users online" display.
2. The list view is collapsable, so you see just the number.
3. Users who should display as coloured or bold etc are displayed correctly (based on the display usergroup)
4. If you 'hover' over a username it will show the room they are chatting in and their status (away etc).
5. If the chat is empty, a simple "no one is chatting" message is displayed.
6. The hack is phrased.
7. The ability to turn it on/off is in the ACP Options.
8. The ability to allow only certain usergroups to view the list is an ACP option (include or exclude groups).
9. The location of the Flashchat folder is an ACP option
10. The option to record and display the Most Ever chatters can be enabled.

(Options are located in vBulletin Options > Who Is Using Flashchat).

Unzip the XML and import into vB using the ACP Product Manager.


Note: This hack cannot display any bots in the chat, due to the strange way that Flashchat stores this information.

Please also note that I have no connection with the Flashchat product - if you have questions about Flashchat functionality then their forums are located here.


History:

v3.7.001 : First vb 3.7 release.
v3.7.002 : Updated to remove potential $group variable name clash. Not compatible with Flashchat 5.
v3.7.003 : First version for Flashchat 5.0.x. ATCS options removed. Not compatible with Flashchat 4.
v3.7.004 : Fix Most Ever Display Bug.

[SnapOff Racing]

Originally Posted by Paul M

This does not work with Flashchat 5.

when will it? that's the version I run and I need this to work with it asap. Thanks

[Paul M]

No idea atm.

[jlew24asu]

this is related but its not.

is there a way I can customize this app (flashchat)? I'd like to change its location (on my forum), size, and color.

I asked this on the flash chat forum but they told me to ask here.

[Neo_obs]

I have this working somewhat on my version of VB.

I just edited the Members in Flashchat (2) plugin

here is my Members in Flashchat (2) plugin

if ($show['wic'])
{
	unset ($chatters);
	$GLOBALS['fc_config_stop'] = true;
	$lang = $vbulletin->options['chatlang'];
	require_once(DIR . "/" . $vbulletin->options['chatfolder']. "/temp/config.srv.php"); 
	require_once(DIR . "/" . $vbulletin->options['chatfolder']. "/inc/langs/".$lang.".php"); 
	$fcprefix = $GLOBALS['fc_config']['db']['pref'];
	$chatlist = $vbulletin->db->query_read_slave("
		SELECT 	connections.*, rooms.*,	user.*
		FROM ".$fcprefix."connections as connections
		LEFT JOIN ".$fcprefix."rooms as rooms ON connections.roomid = rooms.id
		LEFT JOIN ".TABLE_PREFIX."user as user ON connections.userid = user.userid
		WHERE connections.userid > 0
		AND connections.updated > DATE_SUB(NOW(),INTERVAL 60 SECOND) 
		ORDER BY start
	");

	unset ($chatters);
	$show['loggedinusers'] = true;

	$i = 0;
	$totalchatters = 0;
	foreach ($GLOBALS['fc_config']['languages'][$lang]['status'] as $value) 
	{ 
		$i += 1; 
		$status[$i] = $value; 
	}

	$chattersdesc = $vbphrase['wic_using_flashchat'];
	while ($chat = $vbulletin->db->fetch_array($chatlist))
	{
		$totalchatters += 1;
		$chat['roomname'] = "In private room";
		if ($chat['ispublic']) $chat['roomname'] = "In ".$chat['name']; 
		if ($chat['state'] > 1) $chat['roomname'] .= " (".$status[$chat['state']].")"; 
		$ugroup = ($chat['displaygroupid'] > 0 ? $chat['displaygroupid'] : $chat['usergroupid']);
		$chat['opentag'] = $vbulletin->usergroupcache[$ugroup]['opentag'];
		$chat['closetag'] = $vbulletin->usergroupcache[$ugroup]['closetag'];
		eval('$chatters .= "' . fetch_template('Display_Chatters_User') . '" . ", ";');
	}

	if ($chatters)
	{
		$chatters = substr($chatters, 0, -2);
	}
	else
	{
		$chatters = $vbphrase['wic_no_chatters'];
	}

	if ($vbulletin->products['paulm_fci_37'])
	{
		$fcpath = 'misc.php?do=flashchat';
	}
	else
	{
		$fcpath = $vbulletin->options['chatfolder'].'/flashchat.php';
	}

	if ($vbulletin->options['wiccol'])
	{
		$vbcollapse['collapseimg_forumhome_chatusers'] = '_collapsed';
		$vbcollapse['collapseobj_forumhome_chatusers'] = 'display:none;';
	}

	$totalchatters = vb_number_format($totalchatters);
	$chattitle = construct_phrase($chattersdesc,$totalchatters);

	$pid = 'paulm_wic_37';
	if ($pemdata37['set'] == true)
	{
		$data_wic =& $pemdata37[$pid];
	}
	else
	{
		if ($pemdata = unserialize($vbulletin->options['pemdata']))
		{
			$pemdata['set'] = true;
			$data_wic =& $pemdata[$pid];
		}
		else
		{
			$data_wic = array('version' => 'N/A');
		}
 	}

	if ($vbulletin->options['enable_wic'])
	{
		$vbulletin->templatecache["{$vbulletin->options['template_wic']}"] = str_replace($vbulletin->options['text_wic'],
		$vbulletin->options['text_wic'].$vbulletin->templatecache['Display_Chatters'],$vbulletin->templatecache["{$vbulletin->options['template_wic']}"]);
	}

	if ($vbulletin->options['wicmost'])
	{ 
		if (empty($vbulletin->maxloggedin))
		{
			if (method_exists($vbulletin->datastore,'do_fetch'))
			{ // Datastore extension exists, use it
				$vbulletin->datastore->do_fetch('maxloggedin',$errors);
				if ($errors[0])
				{ // Fetch failed, use original datastore
					$vbulletin->datastore->do_db_fetch("'maxloggedin'");
				}
			}
			else
			{ // No extension, use original datastore
				$vbulletin->datastore->do_db_fetch("'maxloggedin'");
			}
		}

		if ($totalchatters > intval($vbulletin->maxloggedin['maxchatters']))
		{
			$vbulletin->maxloggedin['maxchattersdate'] = TIMENOW;
			$vbulletin->maxloggedin['maxchatters'] = $totalchatters;
			build_datastore('maxloggedin', serialize($vbulletin->maxloggedin),1);

		}

		if ($vbulletin->options['wicmost'])
		{
			if ($vbulletin->options['wic24'])
			{
				$description = $vbphrase['wic_members_24'];
			}
			else
			{
				$description = $vbphrase['wic_members_day'];
			}

			$chatmax = construct_phrase( 
					$description, vb_number_format($vbulletin->maxloggedin['maxchatters']),
					vbdate( $vbulletin->options['dateformat'], $vbulletin->maxloggedin['maxchattersdate'], true ),
					vbdate( $vbulletin->options['timeformat'], $vbulletin->maxloggedin['maxchattersdate'] ) 
			);

			$chatters = $chatmax . "<br />" . $chatters;
		}
	}
}

[SnapOff Racing]

Originally Posted by Neo_obs

I have this working somewhat on my version of VB.

I just edited the Members in Flashchat (2) plugin

here is my Members in Flashchat (2) plugin

if ($show['wic'])
{
	unset ($chatters);
	$GLOBALS['fc_config_stop'] = true;
	$lang = $vbulletin->options['chatlang'];
	require_once(DIR . "/" . $vbulletin->options['chatfolder']. "/temp/config.srv.php"); 
	require_once(DIR . "/" . $vbulletin->options['chatfolder']. "/inc/langs/".$lang.".php"); 
	$fcprefix = $GLOBALS['fc_config']['db']['pref'];
	$chatlist = $vbulletin->db->query_read_slave("
		SELECT 	connections.*, rooms.*,	user.*
		FROM ".$fcprefix."connections as connections
		LEFT JOIN ".$fcprefix."rooms as rooms ON connections.roomid = rooms.id
		LEFT JOIN ".TABLE_PREFIX."user as user ON connections.userid = user.userid
		WHERE connections.userid > 0
		AND connections.updated > DATE_SUB(NOW(),INTERVAL 60 SECOND) 
		ORDER BY start
	");

	unset ($chatters);
	$show['loggedinusers'] = true;

	$i = 0;
	$totalchatters = 0;
	foreach ($GLOBALS['fc_config']['languages'][$lang]['status'] as $value) 
	{ 
		$i += 1; 
		$status[$i] = $value; 
	}

	$chattersdesc = $vbphrase['wic_using_flashchat'];
	while ($chat = $vbulletin->db->fetch_array($chatlist))
	{
		$totalchatters += 1;
		$chat['roomname'] = "In private room";
		if ($chat['ispublic']) $chat['roomname'] = "In ".$chat['name']; 
		if ($chat['state'] > 1) $chat['roomname'] .= " (".$status[$chat['state']].")"; 
		$ugroup = ($chat['displaygroupid'] > 0 ? $chat['displaygroupid'] : $chat['usergroupid']);
		$chat['opentag'] = $vbulletin->usergroupcache[$ugroup]['opentag'];
		$chat['closetag'] = $vbulletin->usergroupcache[$ugroup]['closetag'];
		eval('$chatters .= "' . fetch_template('Display_Chatters_User') . '" . ", ";');
	}

	if ($chatters)
	{
		$chatters = substr($chatters, 0, -2);
	}
	else
	{
		$chatters = $vbphrase['wic_no_chatters'];
	}

	if ($vbulletin->products['paulm_fci_37'])
	{
		$fcpath = 'misc.php?do=flashchat';
	}
	else
	{
		$fcpath = $vbulletin->options['chatfolder'].'/flashchat.php';
	}

	if ($vbulletin->options['wiccol'])
	{
		$vbcollapse['collapseimg_forumhome_chatusers'] = '_collapsed';
		$vbcollapse['collapseobj_forumhome_chatusers'] = 'display:none;';
	}

	$totalchatters = vb_number_format($totalchatters);
	$chattitle = construct_phrase($chattersdesc,$totalchatters);

	$pid = 'paulm_wic_37';
	if ($pemdata37['set'] == true)
	{
		$data_wic =& $pemdata37[$pid];
	}
	else
	{
		if ($pemdata = unserialize($vbulletin->options['pemdata']))
		{
			$pemdata['set'] = true;
			$data_wic =& $pemdata[$pid];
		}
		else
		{
			$data_wic = array('version' => 'N/A');
		}
 	}

	if ($vbulletin->options['enable_wic'])
	{
		$vbulletin->templatecache["{$vbulletin->options['template_wic']}"] = str_replace($vbulletin->options['text_wic'],
		$vbulletin->options['text_wic'].$vbulletin->templatecache['Display_Chatters'],$vbulletin->templatecache["{$vbulletin->options['template_wic']}"]);
	}

	if ($vbulletin->options['wicmost'])
	{ 
		if (empty($vbulletin->maxloggedin))
		{
			if (method_exists($vbulletin->datastore,'do_fetch'))
			{ // Datastore extension exists, use it
				$vbulletin->datastore->do_fetch('maxloggedin',$errors);
				if ($errors[0])
				{ // Fetch failed, use original datastore
					$vbulletin->datastore->do_db_fetch("'maxloggedin'");
				}
			}
			else
			{ // No extension, use original datastore
				$vbulletin->datastore->do_db_fetch("'maxloggedin'");
			}
		}

		if ($totalchatters > intval($vbulletin->maxloggedin['maxchatters']))
		{
			$vbulletin->maxloggedin['maxchattersdate'] = TIMENOW;
			$vbulletin->maxloggedin['maxchatters'] = $totalchatters;
			build_datastore('maxloggedin', serialize($vbulletin->maxloggedin),1);

		}

		if ($vbulletin->options['wicmost'])
		{
			if ($vbulletin->options['wic24'])
			{
				$description = $vbphrase['wic_members_24'];
			}
			else
			{
				$description = $vbphrase['wic_members_day'];
			}

			$chatmax = construct_phrase( 
					$description, vb_number_format($vbulletin->maxloggedin['maxchatters']),
					vbdate( $vbulletin->options['dateformat'], $vbulletin->maxloggedin['maxchattersdate'], true ),
					vbdate( $vbulletin->options['timeformat'], $vbulletin->maxloggedin['maxchattersdate'] ) 
			);

			$chatters = $chatmax . "<br />" . $chatters;
		}
	}
}

YOU are the fkn man!!!! FYI everyone, this made it work with my version 5.02

[Neo_obs]

It's not the best method but it works for now. I still have a buggy install of 5.0.3 but at least its integrated and showing on the forums.

If you have VBA CMPS let me know and I can tell you what I did to make that work too.

[EvilJohn]

Thank you. Installed

[jlew24asu]

Originally Posted by jlew24asu

this is related but its not.

is there a way I can customize this app (flashchat)? I'd like to change its location (on my forum), size, and color.

I asked this on the flash chat forum but they told me to ask here.

not sure where to ask

[Paul M]

You have asked multiple questions. The colour of Flashchat is set in flashchat itself, so you need to ask on their forum. Its location is determined by your vb templates, you edit them to suit, same goes for the size.

[jlew24asu]

Originally Posted by Paul M

You have asked multiple questions. The colour of Flashchat is set in flashchat itself, so you need to ask on their forum. Its location is determined by your vb templates, you edit them to suit, same goes for the size.

ok thanks Paul. for example, how would I add this to my forum home and adjust the size?

(i'm asking for specific code changes. something I'm not familiar with. if thats not something you support, I understand. just looking for some help thats all.)