+;;; executes body if not from the bot
+(define-syntax not-from-me
+ (syntax-rules ()
+ ((_ from (not-body1 ...)
+ (from-body1 ...))
+ (cond ((not (string=? from (bot:getnickname)))
+ not-body1 ...)
+ (else from-body1 ...)))
+ ((_ from (not-body1 ...))
+ (cond ((not (string=? from (bot:getnickname)))
+ not-body1 ...)))))
+
+