auto slap back

alias os.version { return 2.60 }

alias os.end { /echo -a OS end reached }
revenge slap remote :
alias to turn revenge slap on/off
alias slap.status {
set %slap.status $iif(%slap.status,0,1)
}
channel popup menu
menu channel,status,menubar {

$iif(%slap.status,$style(1)) &Revenge slap:slap.status
}
on a slap action event.
on *:action:$(* $+ $me $+ *):#:{
if (%slap.status) {
get string
var %action.me = $gettok($1-,1-100,32)
slap him back
describe $chan $replace(%action.me,$me,$nick)
}