Someone

on *:SIGNAL:fb.text.*:{
  var %sn = $gettok($signal,3,46)
  %sock = fb. $+ %sn
  var %logline = $1-

  var %re = /^\(\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\>\: (.*?)$/
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  var %message = $regml(3)
  if (%t) {
    .signal -n fb.say. $+ %sn %shortname %name %message
    .signal -n fb.sayemote. $+ %sn %shortname %name %message
    var %logline = $+(<03,%name,>) %message
  }

  var %re = /^\(\<font color\=\'emote\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\>(.*?)\<\/font\>$/
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  var %message = $regml(3)
  if (%t) {
    .signal -n fb.emote. $+ %sn %shortname %name %message
    .signal -n fb.sayemote. $+ %sn %shortname %name %message
    var %logline = $+(,$color(action),*) %name %message
  }

  var %re = /^\(\<font color\=\'(.*?)\'\>\<img src\=\'fsh\:\/\/system\.fsh\:91\' alt\=\'\@emit\' \/\>\<channel name\=\'\@emit\' \/\> (.*?)\<\/font\>$/
  var %t = $regex($1-,%re)
  var %type = $regml(1)
  var %message = $regml(2)
  if (%t) .signal -n fb.emit. $+ %sn %type %message


  var %re = /^\(\<font color\=\'myspeech\'\>You say\, \"(.*?)\"\<\/font\>$/
  var %t = $regex($1-,%re)
  var %message = $regml(1)
  if (%t) {
    .signal -n fb.yousay. $+ %sn %message
    var %logline = $+(<03,%sn,>,$color(own)) %message
  }




  var %re = /^\(\<font color\=\'query\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> (requests permission to join your company|asks you to fly them up to Zefiroth)\./
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.join. $+ %sn %shortname %name
    ;var %logline = $+(,$color(join)) %message
  }


  var %re = /^\(\<font color\=\'query\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> asks you to join his or her company(| in \<b\>(.*?)\<\/b\>)\. To accept the request\, \<a href\=\'command\:\/\/join\'\>click here\<\/a\> or type \`join and press \&lt\;enter\&gt\;\.\<\/font\>$/
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.summon. $+ %sn %shortname %name
    ;var %logline = $+(,$color(join)) %message
  }




  var %re = ^\(\<font color\=\'query\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> requests permission to follow you\. To accept the request\, \<a href\=\'command\:\/\/lead\'\>click here\<\/a\> or type \`lead and press \&lt\;enter\&gt\;\.\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.follow. $+ %sn %shortname %name
  }

  var %re = ^\(\<font color\=\'query\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> requests permission to follow you\. To accept the request\, \<a href\=\'command\:\/\/lead\'\>click here\<\/a\> or type \`lead and press \&lt\;enter\&gt\;\. Please note that starting to lead this player will prevent \<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> from following you\.$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  var %shortname2 = $regml(3)
  var %name2 = $regml(4)
  if (%t) {
    .signal -n fb.follow. $+ %sn %shortname %name %shortname2 %name2
  }

  var %re = ^\(\<font color\=\'query\'\>\<name shortname\=\'xor\'\>XOR\<\/name\> requests permission to lead you\. To accept the request\, \<a href\=\'command\:\/\/follow\'\>click here\<\/a\> or type \`follow and press \&lt\;enter\&gt\;\.\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.lead. $+ %sn %shortname %name
  }

  var %re = ^\(\<font color\=\'query\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> requests permission to lead you\. To accept the request\, \<a href\=\'command\:\/\/follow\'\>click here\<\/a\> or type \`follow and press \&lt\;enter\&gt\;\. Please note that starting to follow this player will prevent \<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> from leading you\.\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  var %shortname2 = $regml(3)
  var %name2 = $regml(4)
  if (%t) {
    .signal -n fb.lead. $+ %sn %shortname %name %shortname2 %name2
  }


  var %re = ^\(\<font color\=\'whisper\'\>\[ \<name shortname\=\'(.*?)\' src\=\'whisper\-from\'\>(.*?)\<\/name\> whispers\, \"(.*?)\" to you\. \]\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  var %message = $regml(3)
  if (%t) {
    .signal -n fb.whisper. $+ %sn %shortname %name %message
    if (%sn == xPi) {
      fp.netin xPie $1-
    }
  }

  var %re = ^\(\<font color\=\'shout\'\>\{S\} \<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> shouts\: (.*?)\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  var %message = $regml(3)
  if (%t) {
    .signal -n fb.shout. $+ %sn %shortname %name %message
  }


  var %re = ^\(\<font color\=\'error\'\>Sorry\, there are no furres around right now with a name starting with (.*?)\!  \-\- Beekin the Help Dragon\<\/font\>$
  var %t = $regex($1-,%re)
  var %name = $regml(1)
  if (%t) {
    .signal -n fb.failedwhisper. $+ %sn %name
  }


  var %re = ^\(\<font color\=\'error\'\>Sorry\, but \<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> is not accepting whispers right now\.\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.blockedwhisper. $+ %sn %shortname %name
  }


  var %re = ^\(\<font color\=\'error\'\>You can only emit text in your own dreams\.\<\/font\>$
  var %t = $regex($1-,%re)
  if (%t) {
    .signal -n fb.failedemit. $+ %sn
  }



  var %re = ^\(. You are connected to Heimdall \[6500\:(.)\] \(QTEMP .+\)\.
  var %t = $regex($1-,%re)
  var %num = $regml(1)
  if (%t) {
    ;if (%sn == xPod) sockwrite fb.rbah " %num $+ $lf
  }

  var %re = ^\(\<font color\=\'success\'\>\<name shortname\=\'(.*?)\'\>(.*?)\<\/name\> is now sharing control of this dream with you\.\<\/font\>$
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.gotshare. $+ %sn %shortname %name
  }

  var %re = ^\(\<font color\=\'success\'\>Control of this dream is now being shared with you\.\<\/font\>$
  var %t = $regex($1-,%re)
  if (%t) {
    .signal -n fb.gotshare. $+ %sn ds DragonSpeak
  }

  var %re = ^\(\<font color\=\'success\'\><name shortname\=\'(.*?)\'\>(.*?)\<\/name\> has stopped sharing control of this dream with you\.\<\/font\>
  var %t = $regex($1-,%re)
  var %shortname = $regml(1)
  var %name = $regml(2)
  if (%t) {
    .signal -n fb.lostshare. $+ %sn %shortname %name
  }



  ; new logging...

  if ($window(@FB. $+ %sn)) echo $+(-,$iif($right($1,-1) != [#] && $right($1,-1) != *,m,n),t) @FB. $+ %sn %logline 
  if ((%sn isincs $2-) && ($window(@FB. $+ %sn))) window -g2 @FB. $+ %sn
  write " $+ $logdir $+ Furcadia\ $+ $replace(%sn,|,$chr(32)) $+ .log" $time([yyyy.mm.dd][hh:nn:sstt]) $strip(%logline)





  ; mostly old but probably needed stuff below

  .signal fb.text-all. $+ %sn $1-
  ;echo @FB. $+ %sn line size: $bvar(&temp,0)


  if ($window(@xServBots)) echo @xServBots 10bot %sn 10received: $1-

  .timer 1 0 hadd -m %sock msg 0
}