| Author |
 Topic  |
|
Roland
Advanced Member
Netherlands
9335 Posts |
 Posted - 17 September 2003 : 12:06:08
|
quote:
Originally posted by Bodacious
have found the mentioned file, what chagnes will I have to make to the code????
inc_func_member.asp, the function is called function getStar_Level(fM_LEVEL, fM_POSTS)
Each level you set in the Ranking Configuration page is set there for the three member levels (normal member, moderator, administrator).
If you remove the repeating codes for the images, you can make it so only one image is used when a certain amount of posts has been made.
quote:
Originally posted by Bodacious
what I want to do is like on this site, if you look at t eh posts, under their name is a differnt image.
http://www.hitched.co.uk/tforum/topic.asp?TOPIC_ID=155458
What I think they've done is leave the stars in place until a certain amount of posts has been made. Then single images are used for each next "rank". |
 |
|
|
Bodacious
Starting Member
United Kingdom
30 Posts |
Posted - 18 September 2003 : 07:08:38
|
as far as I remember the stars are there up to 1000 postes, then they change to an image, then it goes to 5000, then 10000 and then 25000
I have located this code, which of it should I change/delete please.
Terrifeid as this is my first real attempt at changing code so dont want to muck it up
function getMember_Level(fM_TITLE, fM_LEVEL, fM_POSTS)
dim Member_Level
Member_Level = ""
if Trim(fM_TITLE) <> "" then
Member_Level = fM_TITLE
else
select case fM_LEVEL
case "1"
if (fM_POSTS < cLng(intRankLevel1)) then Member_Level = Member_Level & strRankLevel0
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Member_Level = Member_Level & strRankLevel1
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Member_Level = Member_Level & strRankLevel2
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Member_Level = Member_Level & strRankLevel3
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Member_Level = Member_Level & strRankLevel4
if (fM_POSTS >= cLng(intRankLevel5)) then Member_Level = Member_Level & strRankLevel5
case "2"
Member_Level = Member_Level & strRankMod
case "3"
Member_Level = Member_Level & strRankAdmin
case else
Member_Level = Member_Level & "Error"
end select
end if
getMember_Level = Member_Level
end function
function getStar_Level(fM_LEVEL, fM_POSTS)
dim Star_Level
select case fM_LEVEL
case "1"
if (fM_POSTS < cLng(intRankLevel1)) then Star_Level = ""
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankColor1),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankColor2),"","") & getCurrentIcon(getStarColor(strRankColor2),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankColor3),"","") & getCurrentIcon(getStarColor(strRankColor3),"","") & getCurrentIcon(getStarColor(strRankColor3),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","")
if (fM_POSTS >= cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","")
case "2"
if fM_POSTS < cLng(intRankLevel1) then Star_Level = ""
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
case "3"
if (fM_POSTS < cLng(intRankLevel1)) then Star_Level = ""
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 18 September 2003 : 07:36:45
|
OK, here goes ...
You need to edit your getStar_Level function so it looks like the one below (i.e., add the green code)function getStar_Level(fM_LEVEL, fM_POSTS)
dim Star_Level
select case fM_LEVEL
case "1"
if (fM_POSTS < cLng(intRankLevel1)) then Star_Level = ""
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankColor1),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankColor2),"","") & getCurrentIcon(getStarColor(strRankColor2),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankColor3),"","") & getCurrentIcon(getStarColor(strRankColor3),"","") & getCurrentIcon(getStarColor(strRankColor3),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","")
if (fM_POSTS >= cLng(intRankLevel5)) and (fM_POSTS < 1000) then Star_Level = getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","")
if (fM_POSTS >= 1000) and (fM_POSTS < 5000) then Star_Level = getCurrentIcon(strRankImage1000,"","")
if (fM_POSTS >= 5000) and (fM_POSTS < 10000) then Star_Level = getCurrentIcon(strRankImage5000,"","")
if (fM_POSTS >= 10000) and (fM_POSTS < 250000) then Star_Level = getCurrentIcon(strRankImage10000,"","")
if (fM_POSTS >= 25000) then Star_Level = getCurrentIcon(strRankImage25000,"","")
case "2"
if fM_POSTS < cLng(intRankLevel1) then Star_Level = ""
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= cLng(intRankLevel5)) and (fM_POSTS < 1000) then Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
if (fM_POSTS >= 1000) and (fM_POSTS < 5000) then Star_Level = getCurrentIcon(strRankImageMod1000,"","")
if (fM_POSTS >= 5000) and (fM_POSTS < 10000) then Star_Level = getCurrentIcon(strRankImageMod5000,"","")
if (fM_POSTS >= 10000) and (fM_POSTS < 250000) then Star_Level = getCurrentIcon(strRankImageMod10000,"","")
if (fM_POSTS >= 25000) then Star_Level = getCurrentIcon(strRankImageMod25000,"","")
case "3"
if (fM_POSTS < cLng(intRankLevel1)) then Star_Level = ""
if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= cLng(intRankLevel5)) and (fM_POSTS < 1000) then Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
if (fM_POSTS >= 1000) and (fM_POSTS < 5000) then Star_Level = getCurrentIcon(strRankImageAdmin1000,"","")
if (fM_POSTS >= 5000) and (fM_POSTS < 10000) then Star_Level = getCurrentIcon(strRankImageAdmin5000,"","")
if (fM_POSTS >= 10000) and (fM_POSTS < 250000) then Star_Level = getCurrentIcon(strRankImageAdmin10000,"","")
if (fM_POSTS >= 25000) then Star_Level = getCurrentIcon(strRankImageAdmin25000,"","")
case else
Star_Level = "Error"
end select
getStar_Level = Star_Level
end function These changes will give all members the default stars up to 1000 posts and then a different image for 1000, 5000, 10000 and 25000 posts.
You will also need to edit inc_iconfiles.asp to create constants for the new images which are:
strRankImage1000
strRankImage5000
strRankImage10000
strRankImage25000
strRankImageMod1000
strRankImageMod5000
strRankImageMod10000
strRankImageMod25000
strRankImageAdmin1000
strRankImageAdmin5000
strRankImageAdmin10000
strRankImageAdmin25000
Respectivley the above are the image for a normal member at 1000, 5000, 10000 & 25000 posts, the image for a moderator at 1000, 5000, 10000 & 25000 posts and the image for an admin at 1000, 5000, 10000 & 25000 posts.
|
 Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
Bodacious
Starting Member
United Kingdom
30 Posts |
Posted - 18 September 2003 : 08:08:41
|
I just checked out the modifications thingy and I did it Iam well chuffed with myself. Also the Mod was great thanks
So now all I have to do is get the one gif instead of all the stars |
|
|
|
Bodacious
Starting Member
United Kingdom
30 Posts |
Posted - 18 September 2003 : 08:40:49
|
| OMG right I will try those....eek! |
|
|
|
Bodacious
Starting Member
United Kingdom
30 Posts |
Posted - 18 September 2003 : 08:48:55
|
| nope have totally confused myself now! |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 18 September 2003 : 09:23:56
|
In what way? Using the code I posted or using the mod?
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
Bodacious
Starting Member
United Kingdom
30 Posts |
Posted - 18 September 2003 : 11:13:49
|
I keep gettinga n error message which must be to do with the mod, it says that Rank Level 5 can not be higher than 6 whe I try to submit new config, however rank 5 is 2000 and rank 6 is 5000.
|
|
|
|
Bodacious
Starting Member
United Kingdom
30 Posts |
Posted - 18 September 2003 : 11:26:18
|
| See I dont know how to do the editing that you mention about the icon files either |
|
|
|
Topic |
|
|
|
Topic Locked
