Fun codes to use on your dragon. :)
First allows your dragon to bespeak you:
&CMD-PRODRAGON me=$proself ?*:@select [setq(0, [delete(escape(%1), 0, 1)])][setq(1, <you>)][setq(2, <your dragon>)]%0 = : , { @pemit %#=Dragon> %q1 senses that %q2 %q0 } , \; , { @pemit %#=Dragon> %q1 senses that %q2%q0 } , | , { @pemit %#=Dragon> %q0 \(To %q1 from %q2\) }, { @pemit %#=Dragon> %q2 bespoke %q1 with « %0%q0 » }
Second allows you to speak to your dragon:
&CMD-PROME me=$prodrag ?*:@select [setq(0, [delete(escape(%1), 0, 1)])][setq(1, <you>)][setq(2, <your dragon>)]%0 = : , { @pemit %#=Dragon> %q2 senses that %q1 %q0 } , \; , { @pemit %#=Dragon> %q2 senses that %q1%q0 } , | , { @pemit %#=Dragon> %q0 \(To %q2 from %q1\) }, { @pemit %#=Dragon> %q1 bespoke %q2 with "%0%q0" }
((I do not claim credit for making this code. :) This is used on HRW @ PernMush, personally, I find this code a bit fun. Everyone is welcome to pop code up that they use on their dragon for RP or anything fun is welcome to be placed upon this page.))