@program fchat.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$def rpsys #4183
$def notify ansi_notify
lvar target
lvar faction
lvar max
lvar cur
lvar cur2
: main ( -- )
background
dup not if "Type +faction for a list of who's in your faction, type @ (message) to talk on the faction channel" .tell exit then
dup "who" smatch over "#who" smatch or if me @ "+faction" force exit then
target !
"^red^"
me @ "faction" getstatint faction !
rpsys "factions/" faction @ intostr strcat getpropstr strcat ": ^yellow^" strcat me @ name strcat 
target @ 1 strcut pop ":" smatch if target @ 1 strcut swap pop target ! " " else "^ ^=> " then
strcat target @ strcat target !
faction @ not if "You're not in a faction!" .tell exit then
concount max !
1 cur !
begin
cur @ condbref cur2 !
cur2 @ "faction" getstatint faction @ = if cur2 @ target @ notify then
cur @ 1 + cur !
cur @ max @ >
until
;
.
c
q