| Author |
 Topic  |
|
Roland
Advanced Member
Netherlands
9335 Posts |
 Posted - 04 September 2002 : 15:46:15
|
The Message Icons MOD for 3.4.xx has been uploaded to SnitzBitz by me a minute or so ago (http://www.snitzbitz.com/mods/details.asp?Version=All&mid=50). The icons in the ZIP need some work, and I will do that this weekend if I have time to do so. Otherwise it will have to wait a few more days until things at work quiet down.
Note that I did not write that MOD but had the MOD sent to me by the author asking me to upload the MOD there and do something about the icons.
Support for this MOD might not be the best ever at first, but rest assured that everyone will do his/her best to help you where needed. Please post in the Help: MOD Implementation forum if you need help with this MOD. |
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 04 September 2002 : 16:51:43
|
I've installed this mod on my test forum (v3.4 and with active users mod), and it works like a charm. 
|
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
 |
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 04 September 2002 : 17:11:28
|
Hey good timing. I started working on the Content Disply MOD and was commenting out Message Icons but would far rather leave them in because the CDM is uch better with them.
@tomic |
SportsBettingAcumen.com |
|
|
|
Lydecker
Junior Member
United Kingdom
297 Posts |
Posted - 04 September 2002 : 17:53:52
|
| WHat does it do? |
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 04 September 2002 : 18:43:37
|
Message Icons are like smilies, but for a post instead. It allows you set the mood for a post. If you want to see an example, I have it on my forum (link in signature).
|
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
|
Roland
Advanced Member
Netherlands
9335 Posts |
Posted - 05 September 2002 : 02:57:28
|
I'm glad you like it.
I was planning on not uploading it until I had new icons for it, but seeing how that can take a while since I'm quite busy at work (I'm taking a "wake up break" now), I know it can take a week or two until I'm done with the icons.
note: the file that is current online is the same as the one from yesterday, but due to a small change on the SnitzBitz MOD upload, files now have a descriptive name and I had to re-upload the file. So don't worry about it if you should need to download the file again for some reason and noticed a different file name  |
|
|
|
mikeach
New Member
USA
58 Posts |
Posted - 06 September 2002 : 13:19:19
|
I just finished installing this mod, very nice!
Quick question. If I wanted to add more icons could I do so by just adding:
Const strMessageIcon15 = "icon_mi_15.gif|15|15"
Const strMessageIcon16 = "icon_mi_16.gif|15|15"
To the definitions and:
case 15 : getCurrentMsgIcon = strMessageIcon15
case 16 : getCurrentMsgIcon = strMessageIcon16
To the function? And of course making the file names match.
|
|
|
|
alex042
Average Member
USA
631 Posts |
Posted - 06 September 2002 : 14:38:59
|
quote:
files now have a descriptive name and I had to re-upload the file.
I was going to ask you about that. I noticed that the filename came up kinda strange last time I downloaded something.
|
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 06 September 2002 : 18:52:48
|
quote:
Originally posted by mikeach
I just finished installing this mod, very nice!
Quick question. If I wanted to add more icons could I do so by just adding <snip> To the function? And of course making the file names match.
You also need to make the following changes in inc_messageicons.asp. This block of code appears twice. Apply the changes to both places.
Find this:
for intMI = 1 to 14
Response.Write " <input type=""radio"" class=""radio"" name=""strMessageIcon"" value=""" & intMI & """" & chkRadio(intMI,1,true) & "> " & getCurrentIcon(getCurrentMsgIcon(intMI),"","")
select case intMI
case 1,2,3,4,5,6,8,9,10,11,12,13
Response.Write "" & vbNewLine
case 7
Response.Write "<br>" & vbNewLine
case 14
Response.Write "</td>" & vbNewLine
end select
Make the changes marked red, so that it looks like the following:
for intMI = 1 to 16
Response.Write " <input type=""radio"" class=""radio"" name=""strMessageIcon"" value=""" & intMI & """" & chkRadio(intMI,1,true) & "> " & getCurrentIcon(getCurrentMsgIcon(intMI),"","")
select case intMI
case 1,2,3,4,5,6,7,9,10,11,12,13,14,15
Response.Write "" & vbNewLine
case 8
Response.Write "<br>" & vbNewLine
case 16
Response.Write "</td>" & vbNewLine
end select
Then you should have two new message icons. If you add more icons, you must change the numbers to reflect the new total of icons.
|
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 07 September 2002 : 17:23:58
|
Thanks for hosting the file FrutZle and to the
anonymous author for updating it. Works like
a charm and it even picked up from my previous
version (with the 3.3.03 forums) so that those icons
already present now show in my 3.4.02 forums.  |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 08 September 2002 : 10:44:04
|
quote:
Originally posted by Lydecker
WHat does it do?
Message icons give users a chance to associate an icon with there post or reply. The post/reply screen has message icons included as below:
 |
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
|
|
|
James
Average Member
USA
539 Posts |
Posted - 08 September 2002 : 10:47:22
|
The forums display the icons with the post (second column):
And the icon is included in the post or reply too (see the smilely):
|
*Interested in Radio Control*
*The RC Web Board - http://www.rcwebboard.com/* |
Edited by - James on 15 September 2002 01:53:23 |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
|
|
runnerblade
Starting Member
35 Posts |
Posted - 21 September 2002 : 15:01:18
|
I have a problem whith active.asp for v3 4 03.
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'T.T_MSGICON F.F_PRIVATEFORUMS'.
/xxxxx/Forum v3 4 03/active.asp, line 310
308 Set rs = Server.CreateObject("ADODB.Recordset")
309 if strDBType <> "mysql" then rs.cachesize = 50
310 rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
here are modif for icon message in active.asp:
265 "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, " & _
366 "T.T_MSGICON " & _
367 "F.F_PRIVATEFORUMS, " & _
268 "F.F_PASSWORD_NEW " & _
269 "FROM " & strMemberTablePrefix & "MEMBERS M, " & _
---------
393 Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """> </font></b></td>" & vbNewLine & _
394 " <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Topic</font></b></td>" & vbNewline & _
-----
416 " <td colspan=""8"" bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>No Active Topics Found</b></font></td>" & vbNewline & _
--------
441 fT_LAST_POST_REPLY_ID = 18
442 fLAST_POST_AUTHOR_NAME = 19
443 fT_MSGICON = 20
-------
468 Topic_Last_Post_Reply_ID = allActiveTopics(fT_LAST_POST_REPLY_ID,RowCount)
469 Topic_Last_Post_Author_Name = chkString(allActiveTopics(fLAST_POST_AUTHOR_NAME,RowCount),"display")
470 Topic_MsgIcon = allActiveTopics(fT_MSGICON,RowCount)
---------
520 " <td height=""20"" colspan=""7"" bgcolor=""" & strCategoryCellColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><a href=""default.asp?CAT_ID=" & Cat_ID & """><font color=""" & strCategoryFontColor & """><b>" & ChkString(Cat_Name,"display") & "</b></font></a> / <a href=""forum.asp?FORUM_ID=" & Forum_ID & """><font color=""" & strCategoryFontColor & """><b>" & ChkString(Forum_Subject,"display") & "</b></font></a></font></td>" & vbNewline
------
574 Response.Write " </td>" & vbNewline
575 Response.Write " <td bgcolor=""" & strForumCellColor & """ valign=""middle"" align=""center"">" & getCurrentIcon(getCurrentMsgIcon(Topic_MsgIcon),"","hspace=""0""") & "</td>" & vbNewLine
576 Response.Write " <td bgcolor=""" & strForumCellColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
Thank you for u help
|
|
|
|
Hamlin
Advanced Member
United Kingdom
2386 Posts |
Posted - 21 September 2002 : 15:06:17
|
Try adding a ,
366 "T.T_MSGICON ," & _ |
|
|
|
runnerblade
Starting Member
35 Posts |
Posted - 21 September 2002 : 15:25:59
|
great
thanck u |
|
|
|
Topic |
|
Topic Locked
