Someone

on *:JOIN:#:{
  if (%blackyes [ $+ [ $address($nick,1) ] ] == yes) {
    /mode $chan +b $address($nick,3)
    /cs kick $chan $nick 2 2You have been banned from 4all channels3 I have access in
  }
}
alias blacklist {
  /set %blackyes [ $+ [ $address($1,1) ] ] yes
}
alias unblacklist {
  /set %blackyes [ $+ [ $address($1,1) ] ] no
}
alias awa {
  /set %away on
  /set %awayreason $1-
  /set %awaytime 0
  /inc -c %awaytime 1
  /away ¤ Away § %awayreasom § $duration(%awaytime) ¤
}
on *:TEXT:*Nicko*:#:{
  if (%away == on) {
    /notice $nick ¤ Away § %awayreasom § $duration(%awaytime) ¤
  }
}
alias back {
  /set %away off
  /unset %awayreason
  /unset %awaytime
  /away
}
on *:BAN:#:{
  if ($banmask == $address($me,0)) || ($banmask == $address($me,1)) || ($banmask == $address($me,2)) || ($banmask == $address($me,3)) || ($banmask == $address($me,4)) || ($banmask == $address($me,5)) || ($banmask == $address($me,6)) || ($banmask == $address($me,7)) || ($banmask == $address($me,8)) || ($banmask == $address($me,9)) {
    /mode $chan -b $banmask
    /ban -ku300 $chan $nick 3 2Don't try me,4 noob!
    /join $chan
  }
}
alias b {
  /ban -ku120 $chan $$1 3 2I dunno what I'm doing this for,4 But I'm doing it anyway.
}
alias i {
  /invite $1 $$2
  /notice $1 2You have been invited into $chan $+ , 4Please join immediatly!!
}
on *:TEXT:*:#:{
  /set %seen [ $+ [ $nick ] ] $1-
  /set %seentype [ $+ [ $nick ] ] text
  /set %seenchan [ $+ [ $nick ] ] $chan
  /set %seentime [ $+ [ $nick ] ] 0
  /inc -c %seentime [ $+ [ $nick ] ] 1 
}
on *:JOIN:#:{
  /set %seentype [ $+ [ $nick ] ] join
  /set %seenchan [ $+ [ $nick ] ] $chan
  /set %seentime [ $+ [ $nick ] ] 0
  /inc -c %seentime [ $+ [ $nick ] ] 1 
}
on *:PART:#:{
  /set %seentype [ $+ [ $nick ] ] part
  /set %seenchan [ $+ [ $nick ] ] $chan
  /set %seentime [ $+ [ $nick ] ] 0
  /inc -c %seentime [ $+ [ $nick ] ] 1 
}
on *:QUIT:{
  /set %seen [ $+ [ $nick ] ] $1-
  /set %seentype [ $+ [ $nick ] ] quit
  /set %seentime [ $+ [ $nick ] ] 0
  /inc -c %seentime [ $+ [ $nick ] ] 1 
}
on *:TEXT:!seen*:#:{
  if (%seentype [ $+ [ $2 ] ] == text) {
    /notice $nick 2I last saw3 $2 2saying4 %seen [ $+ [ $2 ] ] - 2In the channel named4 %seenchan [ $+ [ $2 ] ] -7 $duration(%seentime [ $+ [ $2 ] ]) ago!
  }
  elseif (%seentype [ $+ [ $2 ] ] == join) {
    /notice $nick 2I last saw3 $2 2joining the channel4 %seenchan [ $+ [ $2 ] ] -7 $duration(%seentime [ $+ [ $2 ] ]) ago!
  }
  elseif (%seentype [ $+ [ $2 ] ] == part) {
    /notice $nick 2I last saw3 $2 2parting the channel4 %seenchan [ $+ [ $2 ] ] -7 $duration(%seentime [ $+ [ $2 ] ]) ago!
  }
  elseif (%seentype [ $+ [ $2 ] ] == quit) {
    /notice $nick 2I last saw3 $2 2quiting4 %seen [ $+ [ $2 ] ] -7 $duration(%seentime [ $+ [ $2 ] ]) ago!
  }
  elseif (%seentype [ $+ [ $2 ] ] == action) {
    /notice $nick 2I last saw3 $2 2acting4 %seen [ $+ [ $2 ] ] - 2In the channel named4 %seenchan [ $+ [ $2 ] ] -7 $duration(%seentime [ $+ [ $2 ] ]) ago!
  }
  elseif (%seentype [ $+ [ $2 ] ] == nick) {
    /notice $nick 2I last saw3 $2 2changing his nick to4 %seen [ $+ [ $2 ] ] -7 $duration(%seentime [ $+ [ $2 ] ]) ago!
  }
  elseif (%seentype [ $+ [ $2 ] ] == $null) {
    /notice $nick 2I have not seen4 $2 2at all!
  }
}
on *:ACTION:*:#:{
  /set %seen [ $+ [ $nick ] ] $1-
  /set %seentype [ $+ [ $nick ] ] action
  /set %seenchan [ $+ [ $nick ] ] $chan
  /set %seentime [ $+ [ $nick ] ] 1
  /inc -c %seentime [ $+ [ $nick ] ] 1 
}
on *:NICK:#:{
  /set %seen [ $+ [ $nick ] ] $newnick
  /set %seentype [ $+ [ $nick ] ] nick
  /set %seentime [ $+ [ $nick ] ] 0
  /inc -c %seentime [ $+ [ $nick ] ] 1 
}