Author |
Topic |
Medic397
New Member
80 Posts |
Posted - 12 November 2003 : 23:20:08
|
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!< |
|
|
Medic397
New Member
80 Posts |
Posted - 13 November 2003 : 15:12:44
|
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!< |
|
|
Medic397
New Member
80 Posts |
Posted - 13 November 2003 : 15:33:21
|
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< |
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
Posted - 29 February 2004 : 07:31:28
|
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 |
|
|
Anacrusis
Junior Member
USA
219 Posts |
Posted - 02 March 2004 : 21:28:23
|
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
|
|
|
nyquist
Starting Member
Italy
6 Posts |
Posted - 21 March 2004 : 08:43:27
|
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< |
|
|
nyquist
Starting Member
Italy
6 Posts |
Posted - 17 April 2004 : 07:06:30
|
bump< |
|
|
fishsticks
New Member
USA
77 Posts |
Posted - 17 April 2004 : 20:15:36
|
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! |
|
|
Linare
Starting Member
32 Posts |
Posted - 18 April 2004 : 09:29:32
|
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 |
|
|
Linare
Starting Member
32 Posts |
Posted - 18 April 2004 : 09:34:11
|
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 & _ < |
|
|
Linare
Starting Member
32 Posts |
Posted - 18 April 2004 : 20:42:57
|
Aha, found it ... i think.< |
|
|
Linare
Starting Member
32 Posts |
Posted - 18 April 2004 : 20:44:20
|
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?< |
|
|
pknaz
Junior Member
USA
117 Posts |
Posted - 03 May 2004 : 15:34:44
|
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 < |
|
|
Anacrusis
Junior Member
USA
219 Posts |
|
twentythree
Starting Member
USA
22 Posts |
Posted - 30 June 2004 : 14:24:54
|
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 |
|
|
Topic |
|