Let's create Magic

(Someone should fix the output so it's squished better, but you get the idea :)

From my toolkit rewrite, these are a couple of my favorites for making pretty things... or... making things pretty. These two have been tested on Penn, MUX, and Rhost.

(Jav: because the PRE tag doesn't allow convenient wrapping, I've switched to the CODE tag. however, the CODE tag uses a smaller font and the FONT tag isn't supported to allow it to be increased... any chance you can tweak that for us on the back-end? If so, TIA.)

This code was donated to this project, as long as the original code (below) retains attribution credit (derivative works are not restricted). Since it is extremely Rhost-specific code and will definitely require a complete rewrite in order to be compatible with pretty much ANY of the other servers, I really am pleased that this donation arrived this way.

It's example code of a freely usable idea. We just have to adapt it to our needs. Thanks ever so much.

Now, we just need to rewrite it so it works on other servers... and give it a cool 'magic' name/syntax. Any volunteers?


DEBUG: $+debug */*:@pemit %#=[setq(8, u(DEBUG_SET[match(first(%0),#*)], %0, %#))][setq(0, [numpos(\),[setq(9, get(r(8)/%1))][r(9)])][numpos(\(,r(9))])][setq(1, [numpos(\],r(9))] [numpos(\[,r(9))])][setq(2, [numpos(\},r(9))][numpos(\{,r(9))])][u(DEBUG_M[eq(controls(%#,r(8)),1)], r(8), %1, r(0), r(1), r(2))]
DEBUG_SET0: [locate(%1,%0,*)]
DEBUG_SET1: [v(0)]
DEBUG_M0: DEBUG: Permission Denied.
DEBUG_M1: DEBUG: Object -> [name(%0)]\(%0[flags(%0)]\)%r[space(7)]Attribute: [ucstr(%1)]%r[space(7)][u(DEBUG_M1[eq(first(r(0)), rest(r(0)))][eq(first(r(1)), rest(r(1)))][eq(first(r(2)), rest(r(2)))], %0, %1, %2, %3, %4)]
DEBUG_M1111: Debug: Evaluation complete. Object passed eval check.
DEBUG_M1011: Debug: Error in \(\)'s \(Right: [first(%2)] / Left: [rest(%2)]\)
DEBUG_M1101: Debug: Error in \[\]'s \(Right: [first(%3)] / Left: [rest(%3)]\)
DEBUG_M1110: Debug: Error in \{\}'s \(Right: [first(%4)] / Left: [rest(%4)]\)
DEBUG_M1100: Debug: Error in \[\]'s \(Right: [first(%3)] / Left: [rest(%3)]\)%r[space(14)]Error in \{\}'s \(Right: [first(%4)] / Left: [rest(%4)]\)
DEBUG_M1010: Debug: Error in \(\)'s \(Right: [first(%2)] / Left: [rest(%2)]\)%r[space(14)]Error in \{\}'s \(Right: [first(%4)] / Left: [rest(%4)]\)
DEBUG_M1001: Debug: Error in \(\)'s \(Right: [first(%2)] / Left: [rest(%2)]\)%r[space(14)]Error in \[\]'s \(Right: [first(%3)] / Left: [rest(%3)]\)
DEBUG_M1000: Debug: Error in \(\)'s \(Right: [first(%2)] / Left: [rest(%2)]\)%r[space(14)]Error in \[\]'s \(Right: [first(%3)] / Left: [rest(%3)]\)%r[space(14)]Error in \{\}'s \(Right: [first(%4)] / Left: [rest(%4)]\)
@@
Credits: Thorin of RhostMUSH (on Rhostshyl), 1994


Although it has plenty of room for improvement, I'm sure, another donation from my toolkit. Basically a utility function for $commands which need to find/locate/figure out the object being referenced in user input.

Usage would be something like:

$command *:@pemit %#=[ifelse(isdbref(setr(0, u(INPUT_OBJECT,%0))), [do code here using %q0], %q0)]


Theoretically, it should be possible to make a book of wiki pages (i.e., all 'public domain and/or open source' community edit-able)... if Jav wrote the content for the book such that it linked directly to wiki page content.

Then, possibly as a supplimental option (if he should take an interest at all and want to pursue it further) custom scripts could be built for all sorts of features including, but not limited to, platform-specific choices for more efficient code.. ba-da-bing.

"Oh, Penn..." Says Me
"Chapter 'N'"