Being a geek, and a fan of pen and paper rpg games like Dungeons and Dragons and the like, I’ve found it increasingly difficult to play with my friends, due to geographic difficulties, we all live far apart.

After some research I’ve found a number of online programs that help facilitate the kind of pen and paper role playing experience, but they all had their own short comings.

Probably the closest thing to something usable was this site called fantasygrounds. Yet not only being a pay product, but also somewhat difficult to use, as well as requiring java and installation on your system, but also everyone who also wishes to play, i found it to be lacking in what i wanted out of a pen and paper online experience.

So I started working on my own version of something similar to fantasy grounds, but completely web based.

At the moment my creation is about a year and half old and still in development. It runs off of active Server Page Technology, MS SQl 2005 Database and with various Javascript/XML Ajax portions for software application like functionality.

my vision was to have a system that could handle character sheets, online chat, dynamic dice rolling, monster creation, town creation, treasure generator, equipment log, combat calculator, campaign editor, world generator.

Well at the moment i woudl say the product is version 0.5 and still in alpha stage of development.

The Chat application works, and is able to handle rather complex dice rolling algorithms such as roll 1d20+2d6+3d4+5 and will randomly generate a value from a twenty sided die, added with the values of two six sided dice with three four sided dice adding five to the total. This is all don with graphical representations of the dice, what they rolled and the final sum of the roll. It also handles the legend of the five rings d10 system of roll x keep y style of dicing.

At the moment however my main issues are that i cannot currently post my site online for use as I donnot have a host that serves sql 2005. also I cannot host at home due to complications of my ISP and my lack of SQL 2005 license for a hosted website.

In retrospect I wish I designed this platform off of PHP, but my knowledge of PHP is somewhat lacking for the more complex portions of design so ASP is where I started and where i intend to end it.

While it would be nice to use the tool sets for some sort of monetary gain, since i am the only developer at the moment, and i use large quantities of images and materials i have collected from online I am unsure if I could ever get a license to make money off of this thing without wotc or other companies hunting me down for reusing their work.

anyway though I do plan to use this product with my friends eventually to facilitate online pen and paper play sometime within the next year or so, and if successful I may port the product to a public royalties free version devoid of any copyrighted material.

anyway i’ll keep posting information about my P&P toolset here in this blog so stay tuned for developments.

Quick function for assigning server variables to simpler variable names.

<%Dim svFullUrl
Dim svHost, svPAth, svAbsPath, svLocalIP, svRemoteIP, svQuery, svReferer, svCookie
Private Sub

‘asigning server variables‘example address: />svHost = ‘mysite.com
svPath = />svAbsPath = />svLocalIP = ‘192.168.0.1
svRemoteIP = ‘192.168.0.1
svQuery = ‘userid=1
svReferer = ‘previous url(back button)
svCookie = ‘cookie associated with page
svFullUrl = svPath
If svQuery=” then
svFullUrl = svFullUrl & “?” & svQuery
End If

End Sub %>

I use this routine all the time to make large queries for inserts and updates easier to read and also to create.

the first variable beign passed is whether or not to use the insert(”i”) or update(”u”) portion of the code.
second variable passed is the column name
The third is the value being set
the fourth is whether the variable is to be treated as an integer or a string(true/false) true will surround the var in quotes, false will not.

<%Dim InsertSQL1, InsertSQL2, UpdateSQL1
Private Sub SmartSQL(vAction, vcolumn, vValue, vUsequotes)

vAction = lcase(vAction)
Dim vRealValue
vRealValue = vValue
If vUseQuotes then
vRealValue = “‘” & vValue & “‘”
End IF
Select CASE vAction
CASE insert string

If InsertSQL1=”” then
InsertSQL1 = “[” & vColumn & “]”
InsertSQL2 = vRealValue
Else
InsertSQL1 = InsertSQL1 & “, [” & vColumn & “]”
InsertSQL2 = InsertSQL2 & “, ” & vRealValue
End If

CASE “u”‘build update string

If UpdateSQL1=”” then
UpdateSQL1 = “[” & vColumn & “]” &”=”& vRealValue
Else
UpdateSQL1 = UpdateSQL1 & “, [” & vColumn & “]=” & vRealValue
End If

End Select

End Sub%>

Usage:

for an insert query

<%InsertSQL1 = “”
InsertSQL2 = “”

Call “userid”, false)
Call “name”, true)
Call “desc”, true)
Call “date”, true)

SQLstring = “Insert into [USERS] (” & InsrtSQL1 & “) values(” & InsertSQL2 & “);”
for an update query

<%‘Call “userid”, false)
Call “name”, true)
Call “desc”, true)
Call “date”, true)

SQLstring = “update [USERS] set ” & UpdateSQL1 & ” Where userid=” & & “;”