[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: METAL is now FREE!!!!!!
Scott Sidley (beta@gnh-cathouse.cts.com) wrote:
: > You have to understand that FutureVision contains about 35 TIMES more code
: > than a standard GBBS. So naturally, it will execute slower. It's taking on a
: > HELL of a lot more responsibilities.
: I fail to see why more code has to run slower. More functions executed in
: order would of course mean that results take longer, but I still fail to see
: why the code would be slower just because its larger.
Hey, if it isn't Scott Sidley...
More code does run slower, think logically, duh... :) Tell me, which would
take longer...
; Post a message
PostMsg
copy #1,#2
return
! Post a message
PostMsg ! This is just a snip of code, and not all of the
! PostMsg Routine.
long if bit(62) and (not anon)
? #1,"-- "
fcopy "5/signatures/signature."+str$(user) to #1 mode(1)
end if
close #1
if not parm(4) wrl=2:wrn=0:goto ]finish ! not netted
if not (addr2(brdn-1) b.and 4) wrl=2:wrn=1:goto ]finish ! not moderated
if not brdh wrl=0:wrn=1:goto ]finish
if not priv(9) wrl=1:wrn=0:goto ]finish
? cr"Validate this post now";:gosub GetYesNo
if not yes wrl=1:wrn=0:else wrl=2:wrn=1
]finish
x=filesize(edd$):? cr;astr$"Saving message ("x" bytes)...";
f$=edd$:gosub CONF_BuildMsg:gosub CONF_PostMsg:if err goto ConfError
word(1)==+1:stat(10,0)==+1:stat(10,1)==+1
x=filesize(edd$):addr(1)==+x:stat(11,0)==+x:stat(11,1)==+x
long if bit(62) and (not anon)
addr(1)==-filesize("5/signatures/signature."+str$(user))
end if
i$=fileinfo$("1/") ! Prevent prodos error #70 below
gosub UpdateSystemStats:goto ProdosError
See that Scott? Now honestly, which would take longer?
: Scott Sidley -- root@gnh-tap, beta@gnh-starport, beta@gnh-cathouse
Roy Barrett -- root@outbound, dsdd@okcforum, royb@hastur