---

yes, free - and introducing the latest version, 1.5

I have decided to release EZ_Serv as a free application. All versions from here on out (1.5 and beyond) are completely free to use and distro as you please. I am hoping to gain feedback and further develop (revamp if necessary) this application to fit all of your multiplayer/multiuser needs.

If you have never heard of, or have never used EZ_Serv:
Please visit http://www.mod2software.com/dbp/dbp.htm where you can link to the EZ_Serv home page, but also, while you're there, take a look at the other free offerings for DBP which include plugins for Databasing and TCPIP communications, as well as links to other peoples works, such as Exeat's Winsock Plugin and Wendigo's EZS-VB6 class.

*Note: Wendigo's VB6 EZS package on my web page needs to be updated to reflect the changes to the ezs protocol. The current version was written around the ezs protocol stubs which contained "qs_" prefixes. These prefixes have been removed, thusly breaking any parser code that expects them - like in the VB6 code. If you decide to download the vb6 package before it has been updated, you will need to change the constants/code before use. Read the section below regarding protocol stubs for more detail.

Current EZ_Serv users, a few things have changed:
First let me say that the core inner workings of ezs have not changed between 1.5 and earlier versions like 1.4, but some naming conventions and the like have changed, including the EZS Protocol. All of the ezs protocol messages now do not include the "QS_" prefix. QS comes from the original app name "QuickServer" which I had to change just after 1.0 was released (my fault). Ever since then I have preserved this "qs_" naming convention throughout the protocol, as well as throughout my code - no more. Every reference to qs_ has been removed, including subdirectory names, file extensions, and protocol stubs. You can install version 1.5 and still maintain your older version's install and integrity by simply installing the newer version in a different directory when prompted. The installer will want to overwrite your "C:program filesez_serv" directory during the install, simply change the ez_serv bit to something else and you can run and examine the differences in both versions on the same pc. Below is a list of the noteable changes effecting end users

- Profile files .qsp files are now .ezsp files
- QSLogfiles subdir is now EZS_Logfiles
- QSProfiles subdir is now EZS_Profiles
- ALL protocol stubs have dropped the "QS_" prefix. Under 1.5 you will need to update your code to look for the same protocol stubs minus the QS_ prefix. Example "QS_PING" messages now arrive as "PING", "QS_CL_EXIT" now arrives as "CL_EXIT" etc etc. Luckily there are not too many protocol messages to change, and a simple FIND/Step replace should due nicely. Sorry to have done this but the QS bit was bugging me. Look on the bright side, we save 3 bytes per message in the bandwidth usage

Well, thats all at the moment. All feedback is welcome and appreciated.

Links
EZ_Serv Home: http://www.mod2software.com/ezs/ez_serv.htm
EZ_Serv Docs: http://www.mod2software.com/EZS/EZ_Serv_UG.htm
My DBP Page: http://www.mod2software.com/dbp/dbp.htm

---

Wicked

---

Thats very nice CR
Thanks.

---

yay......but noooo I mean yeah x_x;

---

Awesome I was going to buy it eventually. Can you put up a donations link in case I ever get the money?

---

looks great but can you use it in dbpro if you want to create net games? e.g something like the halo multiplayer?

---

Heh, Cattle, here's the idea you wanted me to post up:

Like giving the Server the feature to process stuff, like for some games, positions of items dropped by users, or NPCs. It'd be really easy to do, just allow the person to make his own protocol commands, so that when the client sends the command to the server, it executes the person's script [Lua maybe? There's a .NET Lua thing somewhere, LuaScript I think...] and allows the script to keep server/zone-wide variables or something... Not sure if I'm making sense, but it works in my head

---

Thanks Mikey.
LOL L.I.T.

EZ_Serv is an alternative to using dbp's built in multiplayer stuff. Moggie100 and I are throwing together a multiplayer game as an open source demo for EZS, and a couple of other things.

I will edit the DBP Tutorials and repost them today.

There are a few mplayer games in development using ezs, maybe those guys could post some screenies and some info to give people reading this thread an idea of what ezs is capable of.

---

The previous tutorials have been removed from my page. I have found a few problems in the cr_strings.dba, and the ezs.dba files. I have corrected them and made sure all the protocol constants have been updated to the new ezs protocol. If you have downloaded the older tutorials 1 & 2 i would delete them and download the newer single tutorial. The new tutorial starts from old tutorial 2. Old tutorial 1 was pointless anyway I will be posting the new tutorial shortly. Use my sig link to go there.

EDIT: New tutorial project posted

---

If I wasn't in Linux right now, and if I could get WINE to work, I'd make something with it

---

lol

---

Awesome. I'll have to give this a try then ^_^

---

Thats a very generous thing to do thank you very much.

---

Thank you CR, big contribution to the community.

---

thanks, i'd rather make a good proggie than make a buck form it. hopefully some of you can give it a go and post some suggestions.

---

so do i add this as a seperate exe on dbpro?

---

no. EZS doesnt run out of dbp. Its its own server application that you can run locally or on a dedicated machine. Ezs handles all of the server-based stuff for you, so you can concentrate on making a dbp game/client. DBP hogs the system as it is, why anyone would want it to be a server too is beyond me but thats only mho.

---

Nice, I looked at this not too long ago, thought it might be useful but I couldnt pay for it so Im donwloading just incase i ever need to use it Thank you very much CR

---

---

This is great news CR! Now I have no excuse not to use this for my multiplayer needs. Will download and give it a go first thing this weekend. This is definitly worth a mention in the newsletter, so talk to rich.

---

Thanks mike.

Upcoming additions(no particular order):
-configurable zone MOTD's
-CL_JOIN, CL_EXIT, CL_LIST per zone
-the server persisted lists like Mikey P mentioned above
-ability for server to not convert all mesages to string. this would allow the passing of any data thru the server including things like memblocks and files.

post suggestions here

---

This should be stickied i think.

---

thanks
I cant sticky my own thread, morally.

If some other mod sees fit, they will

---

Will this always be free now, 100%? Or should I grab it now and hope not to lose it?

---

always free - 100%

---

Woohoo, me loves this, had an eye out for it for a while ago but just didnt have money, but now its free, thanks, this will be quite usefull for my new project(Not mayor, as you rember it went bad and not another 1337 MMORPG). Thanks a bunch.

---

cool.

---

Nice work, CR

Shall be a great contribution to the community - Thanks.

---

I'm confused now
How if i wanted to use this in my own games like gtracer would i use this because it might go public one day or would i have to use dbpros built in stuff?

---

...What? Specify more clearly what the problem is or question is.

---

umm im totally confused on how this works or how to use this...even when i try to run the dbpro examples i get and error on ever one. For an example when i try to run ezs.dba i get an error at line 38 which is ws_connect Host, port.???? please help me understand this

---

some people have said the dbp example wont compile, etc. First make sure DBP is 5.8 and that you have ALSO downloaded Exeat's winsock plugin from my page. There are 2 there, the older is the one I used for this demo. People have reported bugs with the newer one, but both should work. Put the winsock plugin in your plugins-user directory under your DBP install folders.

Aside form that youll need EZS 1.5 (free download) and the .NET framework 1.1 on the machine that will run the EZS app.

Once all that is in place I can help you with dbp coding for ezs multiplayer.

---

I'm having some problems aswell actually..

I downloaded Exeats winsock plugin and it's in my plugin directory for darkbasic.. Just in case, i also tried it inside the same directory as the darkbasic project file..

The error i'm receiving is "Cannot perform 'string' cast on type 'FS@cr_Split@_' at line 205

---

post the code that causes the error.

there may be another bug in my split func, but I have tested with many conditions and its ok here. You dont need to use that splitter or any of the tutorial code really, you could write or use whatever to get the job done - my stuff is an example really but aside from that it should be working...

---

I dont suppose you could throw a small tutorial... or maybe just a project file together that explains how to connect and handle multiple connections to EZ_Serv and distribution of data to each client connected in a project as simple as possible...

Maybe just a simple chat client that can connect and talk to others connected to the EZ_Serv program.

---

he asked you to post the code what i meant is this copyright protected d do i install a seprate exe into my game?

---

I know what he asked me.

EZ_Serv is a standalone application.. You'll have to set a computer up as the server, and run EZ_Serv on that computer and get all of your clients(You'll have to make the clients) to connect to it.

---

Right but theres no problem running EZS on a pc and having a client running on that same pc. DBMad, theres no restriction on the EZS app so you can share it or whatever but remember, if youre coding a client you only need one server running somewhere, not a copy of ezs distributed with each copy of the client.

Merix I'll see what I can do - are you using the latest tut thats up there? That tutorial is not far from being a simple chat app as it is. Just needs to display user list and text messages, and provide a message entry routine.

---

thanks would it be okay then if i made a game and put ez serv on each disk so that the multiplayer will work all the time?

---

I was indeed using the latest tutorial..

EZS_Comms
+ Code Snippet

REM Project: EZS_Comms
REM Created: 2/17/2005 15:43:22
REM
REM ***** Code by CattleRustler *****
REM ***** The Definitive EZ_Serv Tutorial for DBP *****
REM ***** Requires Exeat's Winsock Plugin for DBP *****
REM ***** Visit http://www.mod2software.com/dbp/dbp.htm for ezs demo and winsock plugin *****

`Uses the included files ezs.dba & cr_strings.dba to demonstrate how to
`incorporate EZ_Serv into a DBP program
`http://www.mod2software.com/ezs/ez_serv.htm for more info


`set up our font
set text font "Arial"
set text size 14

`you need to dim this dynamic array in this program, or any program
`that uses cr_strings.dba
dim cr_SplitData() as string

`a temp string to retrieve each new server message
sTemp as string


`TUT 2: Set up a type array to hold info about all of the clients
`on the server, including the former ME session
Type AllClientsOnServer
    nick as string
    id as string
    password as string
    guid as string
EndType

`TUT 2: Define the array with 1 element - our client will always occupy this
`element at index 0
Dim Client(0) as AllClientsOnServer
Client(0).nick = "a"
Client(0).password = "a"


`connect to EZ_Serv
`Host can also be an IP address, a machine name, or a url
`in this case EZS is running locally so we use "localhost"
ezs_connect("localhost",9999)


DO
    sTemp=""

    `check message buffer for incoming messages
    sTemp=ezs_receive()

    `if we have a message from server send it to our parser
    if sTemp <> ""

        `echo the raw data to the screen
        print "RAW ECHO: " + sTemp :`+ "(" + str$(len(sTemp)) + ")"

        ezs_Parser(sTemp)
    endif

    `initiate a disconnect from the server when ctrl key is pressed
    if controlkey()=1
        `DebugLog() :`requires DBP_NETLIB 1.4.3
        `I used this for local debugging while writing this tutorial
        `it is not necessary for you to have dbp_netlib for this EZS tutorial

        ezs_Disconnect()
        end
    endif
LOOP
end

`Used for local debugging of this tutorial
remstart
function DebugLog
    iLoop as integer
    iUB as integer
    iUB=array count(client())

    for iloop=0 to iUB
        fil_appendfile "debuglog.txt", str$(iloop)
        fil_appendfile "debuglog.txt", client(iloop).nick
        fil_appendfile "debuglog.txt", client(iloop).id
        fil_appendfile "debuglog.txt", client(iloop).guid
        fil_appendfile "debuglog.txt", "---------------------------------"
    next iLoop

endfunction
remend

EZS
+ Code Snippet

REM *** Include File: EZS.dba ***
REM Created: 2/17/2005 15:45:17
REM Programmer: CattleRustler
REM Updated: 8/7/2005

`CONSTANTS **************************************************
`GENERAL
#Constant cTERM             = chr$(13)+chr$(10)
#Constant cFALSE            = 0
#Constant cTRUE             = 1
#Constant cC                = ","
#Constant cS                = " "

`PROTOCOL STUBS INBOUND FROM SERVER (client needs to handle these)
#Constant cEZS_CONNID        = "CONNID"
#Constant cEZS_REQLOGIN      = "REQLOGIN"
#Constant cEZS_DUPLOGIN      = "DUPLOGIN"
#Constant cEZS_LOGIN_OK      = "LOGIN_OK"
#Constant cEZS_LOGIN_FAIL    = "LOGIN_FAIL"
#Constant cEZS_LOGIN_PENDING = "LOGIN_PENDING"
#Constant cEZS_PING          = "PING"
#Constant cEZS_DISCONN       = "DISCONN"
#Constant cEZS_CL_LIST       = "CL_LIST"
#Constant cEZS_CL_JOIN       = "CL_JOIN"
#Constant cEZS_CL_EXIT       = "CL_EXIT"
#Constant cEZS_TIME          = "TIME"
#Constant cEZS_REQCLIVER     = "REQCLIVER"

`PROTOCOL STUBS OUTBOUND FROM CLIENT (expected by EZS)
#Constant cEZS_PONG          = "PONG"
#Constant cEZS_LOGIN         = "LOGIN"
#Constant cEZS_REQTIME       = "REQTIME"
#Constant cEZS_CLIVER        = "CLIVER"
`************************************************************

function ezs_Connect(Host as string, Port as Integer)
    `//attempts to connect to server
    ws_connect Host, port
    wait 100
endfunction

Function ezs_Send(Prot as string, Enum as string, ID as string, rID as string, sData as string)
    `concatenates and sends a valid message to the server
    `the server ALWAYS expects a 5-bucket comma delimited message
    `eg: prot,enum,ID,remoteID,any Data + sockets termination cTERM
    `below we concat a string to fit this format
    ws_send prot+cC+enum+cC+id+cC+rID+cC+sData+cTERM
endfunction

function ezs_Receive()
    `checks for server messages in the winsock receive buffer
    `if a messages is found it is returned
    sData as string
    if ws_messagecount() > 0
        sData=ws_receive()
    endif
endfunction sData

function ezs_Disconnect()
    `cleanly disconnects from server by issuing socket close
    ws_close
endfunction

function ezs_Parser(sData as string)
    `TUT 2:
    `incoming EZS messages are always comma delimited so we can use cr_Split
    `to populate a dynamic array. The array is made up of each comma-delimited
    `piece of the entire single message. Each time this function is called
    `the array is cleared and repopulated with the new message data. Using
    `this technique allows easy inspection of the message parts, and also allows
    `us to not care about how many comma-delimited parts are in the message

    `empty the array of old data from last message, if any
    empty array cr_SplitData()

    `ALWAYS trim off any unwanted chars from the end of the message
    `(eg: chr$(13)+chr$(10)) - Sockets uses chars like these as termination
    `characters. If we carry them over in the split, it will cause problems
    `for us later, so lets get rid of any that we find.
    `Calling the same code twice will account for possible inverted cr-lf
    `feel free to use a more elegant way but I would recommend NOT just
    `lopping off the last two characters of the message
    if right$(sData,1)=chr$(10) or right$(sData,1)=chr$(13)
        sData=cr_mid(sData,1,len(sData)-1)
    endif
    if right$(sData,1)=chr$(10) or right$(sData,1)=chr$(13)
        sData=cr_mid(sData,1,len(sData)-1)
    endif

    `populate array with constiuent parts of the new message
    `the message is sData, cC is our constant for comma ","
    cr_Split(sData,cC)

    `The Protocol stub is always in bucket Zero in the array - it doesnt
    `matter if it is an EZS Prot stub or your own prot stub via PPT.

    `CONDITIONS OF BUCKET ZERO (Protocol Stub)
    `EZS Constants


    `TUT 2: successful connection
    if cr_SplitData(0)=cEZS_CONNID
        `set our client(0) with the connection id's
        `store this data how you like but you must store it for later
        Client(0).guid=cr_SplitData(1)
        Client(0).id=cr_SplitData(2)
    endif

    `TUT 2: login request
    if cr_SplitData(0)=cEZS_REQLOGIN
        `when a login request is received our next data sent must be valid
        `login data, or we will get disconnected by the server
        ezs_Send(cEZS_LOGIN,"3",Client(0).id,"",Client(0).nick + "*" + Client(0).password)
    endif

    `TUT 2: ping received
    if cr_SplitData(0)=cEZS_PING
        `when a ping is received we must reply with a pong or be
        `disconnected from EZS - no time like the present...
        ezs_Send(cEZS_PONG,"3",Client(0).id,"","")
    endif

    `TUT 2: Client List Received
    `EZS provides us with a list of connected clients when we first join
    `the server. You can parse and store this list in an array. See
    `SetClientList() and ClearOtherClient() functions for more info
    if cr_splitdata(0)=cEZS_CL_LIST
        SetClientList()
        `debug print
        `print "Indexes: " + str$(array count(client()))
    endif

    `TUT 2: remote client JOIN
    `When another client Joins the server we are notified with a CL_JOIN
    `message. We can use this message to maintain our client array
    if cr_Splitdata(0)=cEZS_CL_JOIN
        `first check if client already exists. Since EZS maintains unique
        `nicks only, we can use the joining nick located in bucket 1
        iTemp as integer
        iTemp=FindClientByServerNick(cr_splitdata(1))

        `when not found (iTemp=-1) add the client to our client array
        if iTemp=-1
            array insert at bottom client()
            client(array count(client())).nick = cr_splitdata(1)
            client(array count(client())).id = cr_splitdata(2)
        endif

        `debug print
        `print "Client Joined - " + client(array count(client())).nick + cc + client(array count(client())).id
        `print "Indexes: " + str$(array count(client()))
    endif


    `TUT 2: remote client EXIT
    `When another client Exits the server we are notified with a CL_EXIT
    `message. We can use this message to maintain our client array
    if cr_Splitdata(0)=cEZS_CL_EXIT
        `find the index in our client array of the exiting client
        iIndex as integer
        iTemp=FindClientByServerNick(cr_splitdata(1))

        `only attempt to remove the client if it exists in our array
        `iTemp holds the index of the client in question
        if iTemp <> -1
            array delete element client(),iTemp
        endif
        `debug print
        `print "Client Exited: " + cr_splitdata(1) + cc + cr_splitdata(2)
        `print "Reason: " + cr_splitdata(3)
        `print "Indexes: " + str$(array count(client()))
    endif

    `TUT 2: Client Version Request
    `EZ_Serv can be set to request client version data from clients as they connect
    `This version data is set at the server and can be anything you like. When the
    `server requests this data, the client must send it back immediately or be
    `disconnected.
    if cr_splitdata(0)=cEZS_REQCLIVER
        `call send method with "TEST_CV" as the client version data
        ezs_Send(cEZS_CLIVER,"3",client(0).id,"","TEST_CV")
    endif

    `TUT 2:
    `The following events are fairly generic and can be dealt with as you like
    `from within your specific client code. Note: the main do loop in this
    `sample code will show some of these as you do your testing. They are not
    `being displayed from here but rather as a result of displaying all raw data
    `we are receiving from the server (see do-loop code)
    `See the EZS documentation for the format of these messages
    if cr_splitdata(0)=cEZS_DUPLOGIN
        `your client attemted to login with nick*pass that is already in use
    endif

    if cr_splitdata(0)=cEZS_LOGIN_OK
        `the login was successful
    endif

    if cr_splitdata(0)=cEZS_LOGIN_FAIL
        `the login attempt failed
    endif

    if cr_splitdata(0)=cEZS_LOGIN_PENDING
        `this client attempted to login with credentials that do not exist
        `on the server. The server has queued these credentials for the server
        `operator. If the server op approves the credentials, the login will
        `succeed on next attempt
    endif

    if cr_splitdata(0)=cEZS_DISCONN
        `the server has disconnected this client!
        `reason is provided in bucket 1 of the message array

        `debug print
        `print "You were disconnected!"
        `print "Reason: " + cr_splitdata(1)

        `there are currently some instances where no reason is given
        `this will be addressed in the next versions of ezs :)
    endif

    if cr_splitdata(0)=cEZS_TIME
        `this message contains the constituent parts of the server date
        `and time. This message can be requested from the server by your client
        `as well as being set on an interval in the SSE objects gui. Below is
        `one way of using the time data...
        `(arrives as time,day,month,year,hour,minute,second)

        `debug print
        print "Server Date: " + cr_splitdata(1) + "/" + cr_splitdata(2) + "/" + cr_splitdata(3)
        print "Server Time: " + cr_splitdata(4) + ":" + cr_splitdata(5) + ":" + cr_splitdata(6)
    endif

    `******************************************************************
    `your custom protocol and condition tests can go here...





endfunction




function FindClientByServerID(ID as string)
    `looks thru client array for server assigned shortID. If it exists
    `its array index position is returned, if not -1 is returned
    iRet as integer
    iRet = -1
    iLoop as integer

    For iLoop=0 to array count(client())
        if client(iLoop).id = ID
            iRet=iLoop
            exitfunction
        endif
    Next iLoop
endfunction iRet


function FindClientByServerNick(Nick as string)
    `looks thru client array for client nick. If it exists
    `its array index position is returned, if not -1 is returned
    iRet as integer
    iRet = -1
    iLoop as integer

    For iLoop=0 to array count(client())
        if client(iLoop).nick = nick
            iRet=iLoop
            exitfunction
        endif
    Next iLoop
endfunction iRet




function SetClientList()
        `insure no clients exist in the array except for our client at 0
        ClearOtherClients()

        iLoop as integer
        iUB as integer
        iUB=array count(cr_splitdata())
        iTemp as integer

        `the first nick in the message array is in index 1 after the split is done.
        `when we joined we received this message:
        `CL_LIST,nick1,id1,nick2,id2,nick3,id3.....
        `for all clients on server


        for iLoop=1 to iUB step 2
            `dont add our client again, it was added manually at app start
            if cr_splitdata(iloop) <> client(0).nick
                array insert at bottom Client()
                iTemp=array count(client())
                client(iTemp).nick = cr_splitdata(iloop)
                client(iTemp).id = cr_splitdata(iloop+1)
            endif

            `debug print
            `print Client(iTemp).nick + cC + Client(iTemp).id
        next iLoop
endfunction


function ClearOtherClients()
    `dumps all clients in our array EXCEPT for our client
    iLoop as integer
    iUB as integer

    `get the upperbound of the array so we know how many indexes to point at
    `for removal from the array. We remove them backwards in the loop

    iUB=array count(client())

    for iLoop=iUB to 1 step -1
        array delete element Client(),iLoop
    next iLoop
endfunction

cr_strings
+ Code Snippet

Rem *** Include File: cr_strings.dba ***
Rem Created: 9/25/2004 10:52:59
Rem Programmer: CattleRustler

`All functions here are meant to as closely resemble the VB functions of
`the same name as possible


`MID
`Returns a substring from a string. If the start value is less than
`1, then 1 is assumed. If the values for start and length cause the
`operation to exceed the length of the original string, the entire
`string is returned. If the length argument is <=0 the entire string
`is returned.
function cr_Mid(str as string, start as integer, length as integer)
    local sTemp as string
    local iLoop as integer
    length=length-1

    `check start
    if start < 1 then start=1

    `check len
    if (length > len(str)-start) or length < 0
        length=len(str)-start
    endif

    `extract substring
    for iLoop=start to start + length
        stemp=stemp + mid$(str,iloop)
    next iLoop
endfunction sTemp
`-----------------------------------------------------------------------


`INSTR
`Retruns an Integer representing the character position of the SearchFor
`string's first occurrence in the searchIn string
function cr_Instr(SearchIn as string, SearchFor as string)
    local iRet as integer = 0
    local iLoop as integer
    local iSILen as integer
    local iSFLen as integer
    local iUpper as integer

    iSILen=len(SearchIn)
    iSFLen=len(SearchFor)

    if iSILen=0 or iSFLen=0 then exitfunction iRet
    if iSFLen > iSILen then exitfunction iRet

    iUpper=(iSILen-iSFLen) + 1

    for iLoop=1 to iUpper
        if cr_mid(searchin,iLoop,iSFLen)=SearchFor
            iRet=iLoop
            exitfunction iRet
        endif
    next iLoop
endfunction iRet
`-----------------------------------------------------------------------


`SPLIT
`Populates an array with the contents of a string that is broken into
`constituent parts based on a delimiter string (arg: delim)
function cr_Split(str as string, delim as string)
    if len(delim) <> 1 then exitfunction

    `if the string is passed in has no delimiter char in it
    `return the entire string in array element 0 and exit
    if cr_instr(str,delim)=0
        array insert at bottom cr_splitdata()
        cr_SplitData(0)=str
        exitfunction
    endif

    `//WHEN DELIMITER EXISTS...
    dim StartPos(0) as integer
    dim DelimPos() as integer

    `static startpos at index 0
    StartPos(0)=1

    local iLoop as integer
    local iArrLoop as integer

    for iLoop=1 to len(str)
        if mid$(str,iLoop)=delim
            array insert at bottom DelimPos()
            DelimPos(array count(DelimPos()))=iLoop

            array insert at bottom StartPos()
            StartPos(array count(StartPos()))=DelimPos(array count(DelimPos()))+1
        endif
    next iLoop

    `add static endpoint delimiter at string end pos + 1
    array insert at bottom DelimPos()
    DelimPos(array count(DelimPos()))=len(str)+1

    `if there were any delimitations besides static at 0
    if array count(DelimPos()) > 0
        for iArrLoop=0 to array count(DelimPos())

            `debug print
            `print "START: " + str$(StartPos(iArrLoop))
            `print "DELIM: " + str$(DelimPos(iArrLoop))


            `add a splitdata holder
            array insert at bottom cr_SplitData()
            `push data into new holder
            cr_SplitData(array count(cr_SplitData())) = _
                         cr_Mid(str,StartPos(iArrLoop),_
                         DelimPos(iArrLoop)-StartPos(iArrLoop))


            `debug print
            `print ">" + cr_SplitData(iArrLoop) + "<INDEX:" + str$(iArrLoop)

        next iArrLoop
    endif

    `dump locally-used arrays
    empty array DelimPos()
    empty array StartPos()
endfunction