| Author |
 Topic Search  Topic Options
|
MadDog 
Mod Builder Group
Joined: 01 January 2002
Status: Offline
Points: 3008
|
 Post Options
 Thanks(0)
 Quote  Reply
 Topic: MOD: Web Wiz Forum v8 ChatRoom Add-on
Posted: 15 July 2006 at 10:59pm |
This is a modified version of ASP ChatNow v1 added to Web Wiz Forum v8 with a chat icon added to the header navigation buttons. This is a extremly basic chat. If you want something full of features, you wont find it here until v2 is finished. Screen Shots:  Download Here------------------------------------ Thanks to engla001 for the chatroom icon. Make sure to read the ReadMe.txt file for installing and setting up!!
Edited by MadDog - 11 November 2006 at 12:04am
|
|
|
 |
Demon
Mod Builder Group
Mod-n-Skin Moderator
Joined: 26 July 2003
Status: Offline
Points: 299
|
Post Options
Thanks(0)
Quote Reply
Posted: 15 July 2006 at 11:57pm |
|
Very nice, MadDog. Cant wait till version 2 of ASPChatNow comes out. If you want, I created a small active users mod that can be added to the default.asp and show the correct list of active users in the chatroom. I'd post it here, with your permission that is.
|
|
So Sayith the Demon.
|
|
MadDog
Mod Builder Group
Joined: 01 January 2002
Status: Offline
Points: 3008
|
Post Options
Thanks(0)
Quote Reply
Posted: 16 July 2006 at 12:00am |
|
Sure as long as it for v1 and not v1.1 (totally different code).
|
|
|
|
Demon
Mod Builder Group
Mod-n-Skin Moderator
Joined: 26 July 2003
Status: Offline
Points: 299
|
Post Options
Thanks(0)
Quote Reply
Posted: 16 July 2006 at 12:25am |
Yep, its for v1.
Setup Instructions
1. Find the following line in default.asp
If strMembersOnline <> "" Then Response.Write(vbCrLf & " <br />" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline) |
2. Below that insert the following code:
'List Chatroom ActiveUsers
Response.Write "<br /><a href=""http://www.iportalx.com/aspchatnow.asp"" title=""ASPChatNow is a freeware script released to the public by MadDog at iPortalX.com"">ChatNow™</a> Active User(s): "
Dim saryChatActiveUsers
Dim intArrayPassZ
Dim dtmLastActive
Dim strActiveUsername
saryChatActiveUsers = Application("ChatUsers")
If NOT IsArray(saryChatActiveUsers) Then
Response.Write "None"
Else
If UBound(saryChatActiveUsers, 2) <> 0 Then
For intArrayPassZ = 1 To UBound(saryChatActiveUsers, 2)
strActiveUsername = saryChatActiveUsers(1, intArrayPassZ)
dtmLastActive = CDate(saryChatActiveUsers(5, intArrayPassZ))
If UBound(saryChatActiveUsers, 2) = 1 Then
If Year(dtmLastActive) = Year(Now()) _
And Month(dtmLastActive) = Month(Now()) _
And ((Day(Now())-Day(dtmLastActive))*24*60) + ((Hour(Now())-Hour(dtmLastActive))*60) <= 1 Then
Response.Write(strActiveUsername)
Else
Response.Write "None"
End If
Else
Response.Write(strActiveUsername)
If intArrayPassZ < UBound(saryChatActiveUsers, 2) Then Response.Write(", ")
End If
Next
Else
Response.Write "None"
End If
End If |
Because of the way the chatscript adds and removes users from the active user list, this mod is accurate within 1 minute of the last person being online. So say there was 1 person left in the chatroom, when he/she leaves, the chatroom does not remove that last user, so I compensated in the above code.
Edited by Demon - 16 July 2006 at 2:21am
|
|
So Sayith the Demon.
|
|
jckruger
Groupie
Joined: 18 April 2006
Location: Australia
Status: Offline
Points: 135
|
Post Options
Thanks(0)
Quote Reply
Posted: 16 July 2006 at 2:13am |
You could also follow the steps I have here for v1.1 if you have it.
|
|
Demon
Mod Builder Group
Mod-n-Skin Moderator
Joined: 26 July 2003
Status: Offline
Points: 299
|
Post Options
Thanks(0)
Quote Reply
Posted: 16 July 2006 at 2:22am |
|
Well, seeing how this is a topic for v1.0, the best option, and easiest, would be the one I listed above. XD
|
|
So Sayith the Demon.
|
|
jckruger
Groupie
Joined: 18 April 2006
Location: Australia
Status: Offline
Points: 135
|
Post Options
Thanks(0)
Quote Reply
Posted: 16 July 2006 at 4:11am |
Comments and images removed
Edited by jckruger - 20 September 2006 at 3:33am
|
|
superlative
Groupie
Not Comparative, I m Superlative :)
Joined: 26 November 2004
Location: Turkey
Status: Offline
Points: 125
|
Post Options
Thanks(0)
Quote Reply
Posted: 19 September 2006 at 10:21pm |
|
Correct your images links !!
|
|
|
|
