Real time LAN file swapping buffer between JB apps

You probably need to look at what Ntech achieved.

jbfilesarchive.com/phpBB3/viewtopic.php?f=15&t=2149

For sake of simplicity I'd like to make the first MUD a remote login to my 'server' for my friends, i'll be able to update debug and release current verisons including mutiple session login debug, rather then needing a new computer.

I believe I tested this method a long time ago,

If even then could get at least 2 people logged into the same server, that gives a read write cycle of about 50ms with many over writes (reinput to client without an update from another user), lag was from emote login but tolerable back in nearly 2010.

[looppid] is used for looping in client aswell, other then timing say down to a even number machine ms wise and buffering loads within set time frames of every second and que-ing up post process to start on que I don't see a friendlier way of LAN support in real time, but am open to suggestions.

global command, clientcount, pid
global file$, Default$, pid$, closed$, looping, footer$, header$, closed$, space$, upload$, closefile$, filen$, fileaname$
link$ = "temp"


[MAINserver]
Default$ = DefaultDir$
dim arrayinfo$(10) 'max clients
'setup constants
loopfilename$ = link$
files$ = link$ +".txt"
footer$ = "AB"
header$ = ".txt"
closed$ = "closed"
space$ = " "

[l]
timer 20, [w]
wait
[w]
timer 0
null = null
[uploadforclientdownload]
for pid = 1 to clientcount 'now loop all pid
pid$ = str$(pid)
if fileExists(Default$, pid$+header$) then 'if fileclientcount > 0 (exists) then  /  else reloop if files are being read
command$= renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$) 'rename to not allow anyone else to open
open str$(pid)+footer$+header$ for output as #2pid
for pid2 = 1 to clientcount
 upload$ =arrayinfo$(pid)
 print #2pid, str$(pid)+space$+upload$
 next pid2
close #2pid
command$ = renamefileopen$(Default$, pid$, closed$, header$, file$, closefile$) 'once file is closed rename back to allow to be opened
else
goto [uploadforclientdownload] 'reloop if file is being read to not skip protocol
end if
next pid
goto [l]
function fileExists(path$, filename$)
 dim info$(0, 0)
 files path$, filename$, info$()
 fileExists = val(info$(0, 0)) 'non zero is true
end function

function renamefileclosed$(Default$, files$, closed$, header$, file$, closefile$, link$)
file$ = files$
closefile$ = link$ + closed$ + header$

if fileExists(Default$, file$+header$) then
null=null
reloop = 1
else
name file$ as closefile$
end if
end function

function renamefileopen$(pathrename$, renamefilename$, closed$, header$,file$,closefile$)
file$ = renamefilename$ + header$
closefile$ = renamefilename$ + header$

name file$ as closefile$
end function


I am able to get 6 clients running on one server run, per session, have not benchmarked yet and did not want to error out no "on err goto" yet, looking to produce the error if there will be one. Have not seen data transfer as of yet.

No, Not slow at all, actaully using 17ms timer loop, on all clients and server app, the config ran around 1000ms/17ms FPS ; I imagine there is overlapping with the else nulls which I was going to start counting to see if a metered system is possible by slowing clients down to a single cycle per server loop.

Once how long it will take all clients to download their respectful file and set server timed loop as such anyone could arrange a pid type spot for retiveing data rather then it be on a looping free-for-all, I was considering keeping it at the free for all config for the MUD and track the amount of first updates to see if there is a unfair repeating pattern, in actuallity rather then a predicted model on a linear scale graphing calculator, as to actual game data parsing client-end

Making timers longer isn't a negative here, it will allow, as long as clients can load the graphics and machine can also handle the amount of display sessions, for more read and write cycles to happen while maintaining at least a 12-16 FPS, for any application should be good enough, 84ms is almost 40 clients accessing per one data server, at an average of 4ms write/read speed, which JB can produce faster on better machines, I've seen less then a total of 0 ms for read and write of simple files, primarly on 7200rpm HDD, but to handle over 40 sessions of remote login... I would be using a SSD with 550MB/sec read/write techincally 35 sessions per 2ms, as 1000ms / 550MB = 2ms / 1MB, average file size about 1/40 a MB or 25kb

I should also say I could of ran more then 6 sessions but chose not too, computer did not power up it's fan so im sure I could of gotten 2 times the amount of sessions easy.

global command, clientcount, pid
global file$, Default$, pid$, closed$, looping, footer$, header$, closed$, space$, upload$, closefile$, filen$, fileaname$, path$ 'open$ would be null / i.e. reset
set = 3
link$ = "fffatest"
fileextension$ = "txt"
est$ ="."+fileextension$
filen$ = link$
clientsamount$ = str$(set)
clientcount = set
footer$ = "AB"
dataloading = time$("ms")
print "loading test null pagefile list"
for looping = 1 to set
string$=str$(pid)
open Default$+string$+footer$+est$ for output as #handle
print #handle, "data"
close #handle
string$=str$(pid)
open Default$ + string$+est$ for output as #handle
print #handle, "data"
close #handle
next looping
print "done."
print "prefetch"

[reset]
if fileExists(Default$, link$+est$) then
print "Server file found,"
print ""
print "..."
print "test start server clients"
else
open link$+est$ for output as #main
print #main, clientsamount$
close #main
end if

[MAINserver]
Default$ = DefaultDir$ + "\"
dim arrayinfo$(10) 'max clients
'setup constants

header$ = est$
closed$ = "closed"
space$ = " "

print "done."
print "startingservernow"
print "."
print ".."
print "done,"
dataload = time$("ms")
print "started in;";dataload-dataloading
print "-------------------"
timer 1000, [serverloop]
wait
[serverloop] 'get current player count
timer 0
startloop = time$("ms")
if fileExists(Default$, link$+header$) then 'if fileclientcount > 0 (exists) then
command$ = renamefileclosed$(Default$, pid$, closed$, header$, filen$, closefile$, link$, filename$) 'rename to not allow anyone else to open
if reloop = 1 then
reloop = 0
goto [serverloop]
end if
rename = time$("ms")
clientcount$=openfileclient$(Default$,pid$, header$, filen$)  'open and read client count for current loop

command$ = renamefileopen$(Default$, pid$,closed$, header$, filen$, closefile$, filename$) 'once file is closed rename back to allow to be opened
print time$("ms") -rename;"rename file loop in ms"
else
goto [serverloop]
end if

[looppid] 'download clients upload
startpid = time$("ms")

for pid = 1 to clientcount 'loop all saved pid files
startpid2 = time$("ms")
pid$ = str$(pid)
if fileExists(Default$, pid$+header$) then 'if fileclientcount > 0 (exists) then   / else reloop if file is being edited
command$ = renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$, filename$) 'rename to not allow anyone else to open
if reloop = 1 then
reloop = 0
start = pid
goto [loopid]
end if
  array = openfile(pid,header$) 'open each pid load into array
arrayinfo$(pid) = str$(array)
command$ = renamefileopen$(Default$, pid$,closed$, header$, file$, closefile$, filename$) 'once file is closed rename back to allow to be opened
'if reloop = 2 then
'null=null
'notice "err2"
'reloop = 0
'end if
else
goto [looppid] 'reloop if file is being edited
end if
if pid = set then
print "LOOP"
END IF
next pid
[uploadforclientdownload]
startpid2 = time$("ms")
for pid = 1 to clientcount 'now loop all pid
pid$ = str$(pid)
print time$("ms")-startpid2
if fileExists(Default$, pid$+header$) then 'if fileclientcount > 0 (exists) then  /  else reloop if files are being read
command$= renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$,link$, filename$) 'rename to not allow anyone else to open
open str$(pid)+footer$+header$ for output as #2pid
for pid2 = 1 to clientcount
 upload$ =arrayinfo$(pid)
 print #2pid, str$(pid)+space$+upload$
next pid2
close #2pid
command$ = renamefileopen$(Default$, pid$, closed$, header$, file$, closefile$, filename$) 'once file is closed rename back to allow to be opened
else
goto [uploadforclientdownload] 'reloop if file is being read to not skip protocol
end if
print time$("ms")-startpid2;" file loaded"
if pid = set then
print "LOOOP"
END IF
next pid

print time$("ms") - startpid; " looped all files in total of in ms"
print time$("ms")-startloop;" server loop entirely of 17 ms pause and latter d/u w/r status in ms"; startloop- startpid ;" / ";startpid2-time$("ms")
startpid= 0
startpid= 0
startpid= 0
startloop= 0


timer 20, [serverloop]


print "LOOP"
wait

'/------------Functions
'-----------------------------------------------------------------------------------------

function openfile(pid, header$)
   open str$(pid)+header$ for input as #pid
   input #pid, info$
   close #pid
   openfile = val(info$)
   info$ = ""
end function

function openfileclient$(Default$, pid$, header$, filen$)
filen$=Default$+pid$
  'pen filen$ for input as #clientcount
'   input #clientcount, count$
  ' close #clientcount
   openfile = val(count$)
  openfile =3
end function

function renamefileclosed$(Default$, pid$, closed$, header$, file$, closefile$, link$, filename$)
file$ = Default$ + pid$ + filen$ + header$
closefile$ = pid$ + closed$ + header$
name file$ as closefile$
closefile$ =""
files$=""
file$=""
fileb$=""
end function

function renamefileopen$(Default$, pid$, closed$, header$,file$,closefile$, filename$)
'Default$  pid$ .txt
file$ = Default$ + pid$+ filen$+closed$+ header$
closefile$ = pid$ + header$
name file$ as closefile$
closefile$ =""
files$=""
file$=""
fileb$=""
end function

function fileExists(Default$, filename$)
 dim info$(0, 0)
 files Default$, filename$, info$()
 fileExists = val(info$(0, 0)) 'non zero is true
end function



Having trouble

I thought name command renamed file, is there a way to rename file other then opening a new file inputting data and deleting old, nonetheless kill file will work and hold information in the random access memory.