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/Code)
 Points MOD Beta
 New Topic  Reply to Topic
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 8

Medic397
New Member

80 Posts

Posted - 12 November 2003 :  23:20:08  Show Profile  Visit Medic397's Homepage  Send Medic397 an AOL message  Send Medic397 a Yahoo! Message  Reply with Quote
Another Idea anacrusis when you get around to it is a way to add things to the store not relating to the forum such as things like cups/mugs and so forth and a way to track who purchased it so that it can be mailed to them!<
Go to Top of Page

Medic397
New Member

80 Posts

Posted - 13 November 2003 :  15:12:44  Show Profile  Visit Medic397's Homepage  Send Medic397 an AOL message  Send Medic397 a Yahoo! Message  Reply with Quote
For those of you that are interested I did some tinkering to get the points total to show up in topic.asp right under the posts count: Here is where you need to insert the code and what needs to be inserted.

At both Instances that this occurs:

strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE" & _
", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_GLOW_TEXT, M.M_AVATAR_URL" & _

Add this:

M.M_POINTS

So it will look like this:

strSql = "SELECT M.M_NAME, M.M_RECEIVE_EMAIL, M.M_AIM, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_PMRECEIVE" & _
", M.M_TITLE, M.M_HOMEPAGE, M.MEMBER_ID, M.M_LEVEL, M.M_POSTS, M.M_COUNTRY, M.M_POINTS, M.M_GLOW_TEXT, M.M_AVATAR_URL" & _

Next find this code:

Member_Country = rsTopic("M_COUNTRY")
Member_GlowText = rsTopic("M_GLOW_TEXT")

In between that post:

Member_Points = rsTopic("M_Points")

So it will look like this:

Member_Country = rsTopic("M_COUNTRY")
Member_Points = rsTopic("M_Points")
Member_GlowText = rsTopic("M_GLOW_TEXT")

Next find this code:

rM_COUNTRY = 12
rM_GLOW_TEXT = 13

In between those two lines insert this:

rM_POINTS = 13 and add 1 to everything below it.

Example:

rM_GLOW_TEXT = 14

So that is will look like this:

rM_COUNTRY = 12
rM_POINTS = 13
rM_GLOW_TEXT = 14

Next find this code:

Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
Reply_MemberGlowText = arrReplyData(rM_GLOW_TEXT, iForum)

Add this between those two:

Reply_MemberPoints = arrReplyData(rM_Points, iForum)

So it will look like this:

Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
Reply_MemberPoints = arrReplyData(rM_Points, iForum)
Reply_MemberGlowText = arrReplyData(rM_GLOW_TEXT, iForum)

Last but not least so that all this work that you have done so far doesn't go unseen!

Find this code:

Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine & _

Add this right below it:

" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Points: " & Reply_MemberPoints & "</small></font><br />" & vbNewLine & _

So that it looks like this:

Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberPosts & " Posts</small></font><br />" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Points: " & Reply_MemberPoints & "</small></font><br />" & vbNewLine & _

That should be it. Hope you find a good use for this!<
Go to Top of Page

Medic397
New Member

80 Posts

Posted - 13 November 2003 :  15:33:21  Show Profile  Visit Medic397's Homepage  Send Medic397 an AOL message  Send Medic397 a Yahoo! Message  Reply with Quote
Also have a question for you anacrusis? I have just installed the Links Manager 3.0 and was looking a spot to add the GetPoints function to allow users to get points for putting in a link. If you could help out with this it would be greatly appreciated. Here is a link to my links.txt file

http://www.coruscantonline.net/forum/links.txt<
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 29 February 2004 :  07:31:28  Show Profile  Visit MarcelG's Homepage  Reply with Quote
Anacrusis, just question ; is development of this mod still going on ? Or has it been cancelled ?
I am looking for some way of encouraging my members to post _contributing_ posts, instead of spam, and I thought that this mod might help.<

portfolio - linkshrinker - oxle - twitter
Go to Top of Page

Anacrusis
Junior Member

USA
219 Posts

Posted - 02 March 2004 :  21:28:23  Show Profile  Visit Anacrusis's Homepage  Send Anacrusis an AOL message  Reply with Quote
I've completly rewritten the points system for my site. But sadly I will not release it as a mod just because of the work that would be involved for the conversion. Please don't ask me for my code either, I am not willing to give it out. Sorry.<

The Internet ClubHouse
www.internet-clubhouse.com
Go to Top of Page

nyquist
Starting Member

Italy
6 Posts

Posted - 21 March 2004 :  08:43:27  Show Profile  Reply with Quote
Anacrusis, i've installed your MOD and it works fine. I've found that there are some features coded but not enabled. In PurchaseItem.asp there are the 'case' statements needed to change other users title, create own forum, buy lottery ticket and Change shout box text, but they're not in the STORE_ITEMS table. Now i'm wondering if adding them to the table is enough to enable them. If so i can just use a dbs file to achieve the result.
Thanks in advance

nyquist<
Go to Top of Page

nyquist
Starting Member

Italy
6 Posts

Posted - 17 April 2004 :  07:06:30  Show Profile  Reply with Quote
bump<
Go to Top of Page

fishsticks
New Member

USA
77 Posts

Posted - 17 April 2004 :  20:15:36  Show Profile  Visit fishsticks's Homepage  Send fishsticks an AOL message  Reply with Quote
Anacrusis...

Thank you for the mod. I installed it, but it doesn't work. When I try to enter admin_point.asp I get "Syntax Error" at line 3098.

Does Avatar Mod necissarily have to be installed for this to work?<

http://www.sharredprism.com

My website!
Go to Top of Page

Linare
Starting Member

32 Posts

Posted - 18 April 2004 :  09:29:32  Show Profile  Send Linare an AOL message  Send Linare a Yahoo! Message  Reply with Quote
it says the following lines are in POP_profile.asp ... am I blind, or are they not in there?


line 499 find this:
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_NAME"),"display") & " </font></td>" & VbNewLine & _
<

Edited by - Linare on 18 April 2004 09:31:43
Go to Top of Page

Linare
Starting Member

32 Posts

Posted - 18 April 2004 :  09:34:11  Show Profile  Send Linare an AOL message  Send Linare a Yahoo! Message  Reply with Quote
I found this code on line 506 ... is this what he was talking about?


" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_NAME"),"display") & " </font></td>" & vbNewLine & _
<
Go to Top of Page

Linare
Starting Member

32 Posts

Posted - 18 April 2004 :  20:42:57  Show Profile  Send Linare an AOL message  Send Linare a Yahoo! Message  Reply with Quote
Aha, found it ... i think.<
Go to Top of Page

Linare
Starting Member

32 Posts

Posted - 18 April 2004 :  20:44:20  Show Profile  Send Linare an AOL message  Send Linare a Yahoo! Message  Reply with Quote
Anacrusis, if you still read this, I'd like to ask you a question.
I'm learning ASP, and should know enough to begin devloping mods for the Snitz Forums. Since this is such a great mod and you decided to quit it, would you be fine with me taking up what you have here, and further developing it?<
Go to Top of Page

pknaz
Junior Member

USA
117 Posts

Posted - 03 May 2004 :  15:34:44  Show Profile  Visit pknaz's Homepage  Send pknaz an AOL message  Send pknaz an ICQ Message  Send pknaz a Yahoo! Message  Reply with Quote
Linare,

If anacrusis gives you permission to further his code, I may be willing to help you with this. I would really like to implement some form of this MOD into our intranet, but sadly it will need a lot of work in order to benifit me.

Let me know
<
Go to Top of Page

Anacrusis
Junior Member

USA
219 Posts

Posted - 04 May 2004 :  14:56:04  Show Profile  Visit Anacrusis's Homepage  Send Anacrusis an AOL message  Reply with Quote
Your more then welcome to do anything you'd like with the code.<

The Internet ClubHouse
www.internet-clubhouse.com
Go to Top of Page

twentythree
Starting Member

USA
22 Posts

Posted - 30 June 2004 :  14:24:54  Show Profile  Visit twentythree's Homepage  Reply with Quote
I'm not the greatest programmer but I know a little about ASP so I'm starting to modify this code a bit. I also wanted a feature that would allow them to turn off the glow for free. So I added that. Here's the code in case anyone is interested:

You have to add this into the PurchaseItem.asp page:

	'=========
      Case 1510 'Remove glow from name
      '=========
         CreateTable(ItemTitle)
         If DoIt <> True Then
            Call ShowStats()
            Response.Write "Click the submit button below to remove 
the glow feature<br>from your username on the topic & profile 
page.<br><font size=""" & strFooterFontSize & """>Remember, this can 
not be undone and it will cost you more points if you want to re-add the glow feature again!</font>"
            CloseTable(1)
         Else
            strRemoveGlow = ""
            strSql = "update " & strTablePrefix & "MEMBERS set M_GLOW_TEXT = '" & strRemoveGlow & "', " &_
                     "M_POINTS = M_POINTS -" & ItemCost &_
                     " where MEMBER_ID=" & MemberID
            my_Conn.Execute (strsql)
            UpdateItemCount
            Response.Write "<br>Congratulations, you've removed the glow effect from your name."
            Call BackToStore
            CloseTable(0)
         End If


Also you have to manually add the store item to the database. So if your Autonumber on that item in not 1510 just be sure to change it in the Case # in this code so that it knows what store item to reference from the database.

I'm going to be *trying* to build a page that lets you add store items w/out having to manually do it in the database. BUT, you still have to write the code into that purchaseitem.asp page... (no biggie). I want to add simple things like buy a font for your username for like 25 points, change the style for 50 and buy bigger avatar usage. But it's pretty hard, I will try my best and I will post my code as I go here.<

Amanda
Bodyartforms.com

Edited by - twentythree on 30 June 2004 14:25:45
Go to Top of Page
Page: of 8 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.12 seconds. Powered By: Snitz Forums 2000 Version 3.4.07