| T O P I C R E V I E W |
| 505_medic |
Posted - 16 December 2005 : 17:07:21
As all know, I'm new here, but am hoping to run past some codes. Having thoroughly botched the install...I'm going through and being careful with things.
I did the search, and came up with a code that I adapted. Here are the intended goals:
1.) Replace all ranks so that each image has only one icon
2.) Each Icon has a different image (duh)
3.) Moderators only have one image
4.) Administrators only have one image (different from administrators)
I know that this is a work in progress...but I think I'm starting to pick things up a bit better now. There are other files that I need to edit I know, but the only one I have completed thus far is a section of the changes to inc_func_level.asp
quote:
function getStar_Level(fM_LEVEL, fM_POSTS)
dim Star_Level
select case fM_LEVEL
case "1"
if (fM_POSTS < cLng(intRankLevel1)) then Star_Level = getCurrentIcon(strRankImagePVT,"","")
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankImagePFC),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankImageCPL),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankImageSGT),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankImageSSGT),"","")
if (fM_POSTS >= cLng(intRankLevel5)) and (fM_POSTS < cLng(intRankLevel6)) then Star_Level = getCurrentIcon(getStarColor(strRankImageMSGT),"","")
case "2"
if (fM_POSTS >= 1) then Star_Level = getCurrentIcon(getStarColor(strRankImage2LT),"","")
case "3"
if (fM_POSTS >= 1) then Star_Level = getCurrentIcon(getStarColor(strRankImage1LT),"","")
case else
Star_Level = "Error"
end select
getStar_Level = Star_Level
end function
Rank Icon Images Needed:
strRankImagePVT
strRankImagePFC
strRankImageCPL
strRankImageSGT
strRankImageSSGT
strRankImageTSGT
strRankImageMSGT
strRankImage2LT
strRankImage1LT
Source: http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=47551
I also plan to add a 6th level with the ranks using the additional ranks mod. At any rate...does the progress thus far look acceptable?< |
| 4 L A T E S T R E P L I E S (Newest First) |
| rkp |
Posted - 06 June 2007 : 09:32:59
Any Rank Mod's out there besides this one? I'd like to assign different users in our forums ranks as well. I searched but this is the only rank structure message I found. Thanks< |
| et10yl |
Posted - 02 January 2007 : 15:23:52
Did this ever make it into a full mod?< |
| MarkJH |
Posted - 17 December 2005 : 15:17:26
Very cool idea. Nice work!  < |
| 505_medic |
Posted - 17 December 2005 : 00:50:52
OK...I finished the mod, but am having some difficulties. I was successful with the rank on the private, but was unsuccessful in any other rank images.
The following files were updated:
inc_iconfiles.asp
inc_func_member.asp
admin_config_ranks.asp
config.asp
The additional rank worked out excellent, but the conversion from the rank images did not work. My feeling is that it is potentially a problem with the above code, but I do not know for sure.
Star Levels (Inc_Func_Member)
quote:
function getStar_Level(fM_LEVEL, fM_POSTS)
dim Star_Level
select case fM_LEVEL
case "1"
if (fM_POSTS < cLng(intRankLevel1)) then Star_Level = getCurrentIcon(strRankImagePVT,"","")
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankImagePFC),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankImageCPL),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankImageSGT),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankImageSSGT),"","")
if (fM_POSTS >= cLng(intRankLevel5)) and (fM_POSTS < cLng(intRankLevel6)) then Star_Level = getCurrentIcon(getStarColor(strRankImageTSGT),"","")
if (fM_POSTS >= cLng(intRankLevel6)) then Star_Level = getCurrentIcon(getStarColor(strRankImageMSGT),"","")
case "2"
if (fM_POSTS >= 1) then Star_Level = getCurrentIcon(getStarColor(strRankImage2LT),"","")
case "3"
if (fM_POSTS >= 1) then Star_Level = getCurrentIcon(getStarColor(strRankImage1LT),"","")
case else
Star_Level = "Error"
end select
getStar_Level = Star_Level
end function
Rank Images (IconFiles)
quote:
Const strRankImagePVT = "icon_USPVT.gif|100|32"
Const strRankImagePFC = "icon_USPFC.gif|100|32"
Const strRankImageCPL = "icon_USCPL.gif|100|32"
Const strRankImageSGT = "icon_USSGT.gif|100|32"
Const strRankImageSSGT = "icon_USSSGT.gif|100|32"
Const strRankImageTSGT = "icon_USTSGT.gif|100|32"
Const strRankImageMSGT = "icon_USMSGT.gif|100|32"
Const strRankImage2LT = "icon_US2LT.gif|100|32"
Const strRankImage1LT = "icon_US1LT.gif|100|32"
Anyone see a problem with the code above?
-Edit: WHOOOOHOOO!!!! I fixed it on my own. By determining that the problem did not exist in the PVT code, but was in all other codes including mods and admins....I figured that the problem was the area in red had been left intact. I tried it and it worked successfully.
There is already data to support this, but if people wish, I could create a dedicated mod for this, since it can incorporate both the additional ranks *AND* the iconfile changes. I'll await someones responses.
"Flyin' in Farmtown" Jon
-Re-Edited: If you want to see the mod in use (sorta)...we really have no gotten any members, because I am announcing the forums release in January '06...however: http://www.silent-knights.com/forums/< |
|
|
