Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Additional Stars		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

revenger
Junior Member

United Kingdom
132 Posts
Posted - 19 November 2003 :  17:41:16  Show Profile  Visit revenger's Homepage  Send revenger an ICQ Message
Is there a way to add an extra star to the admin without editing the config.asp file??

All I want is an extra star for the forum admin - not any extra ranks.

Help will be apprieciated
Edited by - revenger on 20 November 2003 10:42:48

masterao
Senior Member

Sweden
1678 Posts
Posted - 20 November 2003 :  10:51:33  Show Profile  Visit masterao's Homepage
Look for function getStarLevel in inc_func_member.asp and there search for the following. Add the red lines and all admins will have an additional star.


        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),"","")
            'Extra star to admins
            Star_Level = Star_Level & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

revenger
Junior Member

United Kingdom
132 Posts
Posted - 20 November 2003 :  10:57:36  Show Profile  Visit revenger's Homepage  Send revenger an ICQ Message
Thanks ma8 you've been a real help.

Just one more thing - is there a way to do it for two extra ones??
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts
Posted - 20 November 2003 :  11:37:35  Show Profile  Visit masterao's Homepage
You are welcome .

Sure, change:
Star_Level = Star_Level & getCurrentIcon(getStarColor(strRankColorAdmin),"","")

to:
Star_Level = Star_Level & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")

...and admins will have two extra stars.
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

revenger
Junior Member

United Kingdom
132 Posts
Posted - 20 November 2003 :  12:58:12  Show Profile  Visit revenger's Homepage  Send revenger an ICQ Message
Thanks mate, You have been very helpful. I thank you deeply.
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts
Posted - 20 November 2003 :  15:18:59  Show Profile  Visit masterao's Homepage
You're welcome .
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.33 seconds. Powered By: Snitz Forums 2000 Version 3.4.07