i made this in mpl and it's not doing
anything.uses cfg, user;Typ
eChatRec = Record// CHATx.DAT } Active : Boo
lean;// Is there a user on this node? Name: Strin
g[30];// User's name on this node Action : String[
40];// User's action on this node Location : String[
30];// User's City/State on this node Gender : Cha
r;// User's gender Age: Byte;// User's age
Baud: String[6];// User's baud rate Invisible : Boolea
n;// Is node invisible? Available : Boolean;// I
s node available? InChat : Boolean;// Is user in m
ulti-node chat? Room: Byte;// Chat room
End;var f : file;cr : chatrec;
a : string[1];begingetthisuser;b :=
mci2str('ND');fassign(f, cfgdatapath + 'chat'+a+'.da t',66);freset(f);freadrec(f,cr);if not cr.ac
tive thenwriteln('ACTIVE : NO'); else
writeln('ACTIVE : YES');writeln('NAME
: ' +cr.name);writeln('ACTION : ' +cr.
action);writeln('LOCATION : ' +cr.location);
writeln('GENDER : ' +cr.gender);writeln('AG
E: ' +int2str(cr.age));writeln('BAUD
: ' +cr.baud);if not cr.invisible thenwrite
ln('INVISIBLE: NO'); elsewriteln('INVI
SIBLE: YES');if not cr.available thenwritel
n('AVAILABLE: NO'); elsewriteln('AVAIL
ABLE: YES');writeln('|CR|PA');if cr.availab
le then cr.available := false elseif not cr.available then c
r.available := truefwriterec(f,cr);fclose(f);
end .úùDream Mast
erùú. øùúùøøù
úùø DoRE!ACiDiC!Demonic
[dreamland.darktech.org]
--- Mystic BBS v1.12 A38 2018/01/01 (Windows/64)
* Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (21:1/163)

i made this in mpl and it's not doing anything.
if cr.available then cr.available := false else
if not cr.available then cr.available := true
fwriterec(f,cr);
fclose(f);

While we can work to get your program working, it will not allow you to update the available flag as that is stored in memory. It is only on disk for read purposes for external programs.

You had it right the first time with GE 18

--- Mystic BBS v1.12 A39 2018/01/04 (Windows/32)
* Origin: Sector 7 [Mystic BBS WHQ] (21:1/108)

On 01/05/18, g00r00 said the following...

i made this in mpl and it's not doing anything.
if cr.available then cr.available := false else
if not cr.available then cr.available := true
fwriterec(f,cr);
fclose(f);

While we can work to get your program working, it will not allow you to update the available flag as that is stored in memory. It is only on
disk for read purposes for external programs.

but it will not work in mpl. i basically was gonna add this to turn availability off while in a mpl game so they don't get notifications. then turn it back on as they exit. it will only work if done in a menu in line with the gx command.

|08 .|05ú|13ù|15Dr|07e|08am Ma|07st|15er|13ù|05ú|08.
|08 øù|05ú|13ùø |13øù|05ú|08ùø
|11 DoRE|03!|11ACiDiC|03!|11Demonic |08[|15dreamland|09.|15darktech|09.|15org|08]

--- Mystic BBS v1.12 A38 2018/01/01 (Windows/64)
* Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (21:1/163)