on :connect:{ set %a $me }
on :nick:{
if ($nick == $me) set %a $me
}

on :Action:slaps $me::{
if ($chan == $null) set %n $nick
else set %n $chan
msg %n $nick has just attempted to slap me!
describe %n dodges $nick\'s slap and counter-attacks $nick
}

I just revised it a little bit.