Source

ircfs / plugins / translate.brc

Full commit

+cmd Gtranslate

fn Gtranslate {
 switch ($text(1)) {
   case [Tt][Rr]*
	*=$text ; shift	; *=(/ $*)
   case 2?? ??2?? ??^'-'^??^2^* *^2^??^'-'^??
	*=(/ $text)
 }
 
 if ( ~ $1 / ) { shift
	* = `` () { gtranslate $* }
	~ $* /* && * = .^$*
	# if the message is long and needs to be broken up into pieces
	# and a piece happens to start with '/', shit will go down
	say $*
 }
}