You need to modify inc_iconfiles.asp and inc_messageicons.asp to add more icons.
In inc_iconfiles.asp, you must do that in two places (added code marked red). Im showing how it looks with three new icons here. If you want to add all 24 icons, continue after no. 17 in my example.
Const strMessageIcon1 = "icon_mi_1.gif|15|15"
Const strMessageIcon2 = "icon_mi_2.gif|15|15"
Const strMessageIcon3 = "icon_mi_3.gif|15|15"
Const strMessageIcon4 = "icon_mi_4.gif|15|15"
Const strMessageIcon5 = "icon_mi_5.gif|15|15"
Const strMessageIcon6 = "icon_mi_6.gif|15|15"
Const strMessageIcon7 = "icon_mi_7.gif|15|15"
Const strMessageIcon8 = "icon_mi_8.gif|15|15"
Const strMessageIcon9 = "icon_mi_9.gif|15|15"
Const strMessageIcon10 = "icon_mi_10.gif|15|15"
Const strMessageIcon11 = "icon_mi_11.gif|15|15"
Const strMessageIcon12 = "icon_mi_12.gif|15|15"
Const strMessageIcon13 = "icon_mi_13.gif|15|15"
Const strMessageIcon14 = "icon_mi_14.gif|15|15"
Const strMessageIcon15 = "icon_mi_15.gif|15|15"
Const strMessageIcon16 = "icon_mi_16.gif|15|15"
Const strMessageIcon17 = "icon_mi_17.gif|15|15"
function getCurrentMsgIcon(intMsgIcon)
select case intMsgIcon
case 1 : getCurrentMsgIcon = strMessageIcon1
case 2 : getCurrentMsgIcon = strMessageIcon2
case 3 : getCurrentMsgIcon = strMessageIcon3
case 4 : getCurrentMsgIcon = strMessageIcon4
case 5 : getCurrentMsgIcon = strMessageIcon5
case 6 : getCurrentMsgIcon = strMessageIcon6
case 7 : getCurrentMsgIcon = strMessageIcon7
case 8 : getCurrentMsgIcon = strMessageIcon8
case 9 : getCurrentMsgIcon = strMessageIcon9
case 10 : getCurrentMsgIcon = strMessageIcon10
case 11 : getCurrentMsgIcon = strMessageIcon11
case 12 : getCurrentMsgIcon = strMessageIcon12
case 13 : getCurrentMsgIcon = strMessageIcon13
case 14 : getCurrentMsgIcon = strMessageIcon14
case 15 : getCurrentMsgIcon = strMessageIcon15
case 16 : getCurrentMsgIcon = strMessageIcon16
case 17 : getCurrentMsgIcon = strMessageIcon17
end select
end function
Then you need change inc_messageicons.asp in four places.
First locate for intMI = 1 to 14 and change 14 to the total number of message icons that you are going to use (38 if you want to use all icons from the addon as well as the original ones). This change is to be made two times, on line 10 and 29 in an unmodified inc_messageicons.asp.
Then find the following block of code starting on line 12 and line 29:
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
If you add 24 new messageicons, it will look like the following (which will display the message icons on four rows with ten icons on each row but the last row (which will have eight icons).
select case intMI
case 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27,28,29,31,32,33,34,35,36,37
Response.Write "" & vbNewLine
case 10,20,30
Response.Write "<br>" & vbNewLine
case 38
Response.Write "</td>" & vbNewLine
end select
Furthermore, you need to rename the new icon images to follow the naming standard used in the mod, i.e. icon_mi_15.gif and so on.
Topic Locked
Posted - 03 June 2003 : 10:58:58
