I didnt know where to post this as ive never seen one of these games out yet, Soo, I made this source, its 2d, not 3d, a good langiage to mess around with, Language is Lingo, If a mod would nicely make a sub forum, Id willingly mod it, giving guides on how to use it, How to fix errors if there is errors, I'll provide screenshots at this time, as i still need to create a client, I'll provide little snickets of the codes, This game server ive created is for learning purposes, I do not expect people to like it, ive made it in my spare time, Taken a few months, i may not be a complete expert in C# But by god i sure am in Lingo,
Server Includes:
Quest System
You map you're own map's
NPC's
Pvp System
You can add your own items to source
You can add your own tiles to source
You can create / add your own scripts
Capture the Flag event
Lottery Event
Hack protection
Thats what's added so far, as i update i plan to upgrade the stuff inside of newer and fresher codes, the Source is FULLY working, no bugs.
Quote:
Originally Posted by HellCo
This is the Server showing 0 Errors
Shockwave Multiuser Server.
Reading the Multiuser.cfg file.
* RuntimeAttributes xtra has been loaded.
* DatabaseObjects xtra has been loaded.
* LingoVM xtra has been loaded.
-- "treasure loaded..."
FSO
WDM800-09169-37293-20442
# Allocating connections.
........................................
........................................
........................................
........................................
........................................
# Allocated 1000 connections.
# 2009/02/06 02:04:59 Waiting for incoming connections.
|
I'll now show a short snicket of the quest system
Code:
Global QuestList, NewQuest, FactionPowers
on GiveToPlayer(me, movie, group, user, fullmsg)
set FileDT = string(fullmsg.content)
set MyName = user.name
set the itemdelimiter = ":"
set WhichSlot = integer(item 2 of FileDT)
set ItemToAdd = item 3 of FileDT
set GiveToWho = item 1 of FileDT
set P2ItemFile = file("C:\FSOServer\DAT\CHAR\" & string(GiveToWho) & "-i.txt").read
set the itemdelimiter = "|"
set MyInv = item 2 of P2ItemFile
set the itemdelimiter = ":"
set SpotToAddTo = 0
if item 15 of MyInv = "" then set SpotToAddTo = 15
if item 14 of MyInv = "" then set SpotToAddTo = 14
if item 13 of MyInv = "" then set SpotToAddTo = 13
if item 12 of MyInv = "" then set SpotToAddTo = 12
if item 11 of MyInv = "" then set SpotToAddTo = 11
if item 10 of MyInv = "" then set SpotToAddTo = 10
if item 9 of MyInv = "" then set SpotToAddTo = 9
if item 8 of MyInv = "" then set SpotToAddTo = 8
if item 7 of MyInv = "" then set SpotToAddTo = 7
if item 6 of MyInv = "" then set SpotToAddTo = 6
if item 5 of MyInv = "" then set SpotToAddTo = 5
if item 4 of MyInv = "" then set SpotToAddTo = 4
if item 3 of MyInv = "" then set SpotToAddTo = 3
if item 2 of MyInv = "" then set SpotToAddTo = 2
if item 1 of MyInv = "" then set SpotToAddTo = 1
if item 15 of MyInv = "NOTHING" then set SpotToAddTo = 15
if item 14 of MyInv = "NOTHING" then set SpotToAddTo = 14
if item 13 of MyInv = "NOTHING" then set SpotToAddTo = 13
if item 12 of MyInv = "NOTHING" then set SpotToAddTo = 12
if item 11 of MyInv = "NOTHING" then set SpotToAddTo = 11
if item 10 of MyInv = "NOTHING" then set SpotToAddTo = 10
if item 9 of MyInv = "NOTHING" then set SpotToAddTo = 9
if item 8 of MyInv = "NOTHING" then set SpotToAddTo = 8
if item 7 of MyInv = "NOTHING" then set SpotToAddTo = 7
if item 6 of MyInv = "NOTHING" then set SpotToAddTo = 6
if item 5 of MyInv = "NOTHING" then set SpotToAddTo = 5
if item 4 of MyInv = "NOTHING" then set SpotToAddTo = 4
if item 3 of MyInv = "NOTHING" then set SpotToAddTo = 3
if item 2 of MyInv = "NOTHING" then set SpotToAddTo = 2
if item 1 of MyInv = "NOTHING" then set SpotToAddTo = 1
If you would like to take part in this production, id be more than happy for help, I've done EVERYTHING myself, Please don't flame my work, Thank you.