on *:TEXT:*Sjefke`Anime*:#:{ 
  if ($me == Sjefke`Anime) {
    notice $nick Omg, I am watching Anime 
  } 
}

on *:TEXT:*Sjefke`Eten*:#:{ 
  if ($me == Sjefke`Eten) {
    notice $nick Omg, I told you i am eating at the moment
  } 
}

on *:TEXT:*Sjefke`Douchen*:#:{
  if (%shower == 1) { HALT }
  set -u15 %shower 1
  if ($me == Sjefke`Douchen) {
    msg # Eeks $nick, you little pervert, don't peek around the corner, while i take a shower.
  } 
}

on *:TEXT:*Sjefke`Sporten*:#:{ 
  if ($me == Sjefke`Sporten) {
    notice $nick Omg, I told you i am sporting at the moment
  } 
}

on *:TEXT:*Sjefke`Away*:#:{ 
  if ($me == Sjefke`Away) {
    notice $nick Omg, I am away
  } 
}

on *:TEXT:*jazeker*:#:{ 
  if ( # == #rsnl) { halt }
  /timer 1 3 msg # De hypotheker 
}


on *:TEXT:*Sjefke`Huiswerk*:#:{ 
  if ($me == Sjefke`Huiswerk) {
    notice $nick Omg, I am doing my homework
  } 
}

on *:TEXT:*Sjefke`Mijn_moeder_speelt*:#:{ 
  if ($me == Sjefke`Mijn_moeder_speelt) {
    notice $nick Omg, I told you my mother plays at the moment
  } 
}

on *:TEXT:*Sjefke`Renegade*:#:{ 
  if ($me == Sjefke`Renegade) {
    notice $nick Omg, I told you I am playing renegade
  } 
}

On *:INPUT:#: {
  if ($1 == +m) { mode $chan $2 +m }
  if ($1 == -m) { mode $chan $2 -m }
  if ($1 == +Q) { mode $chan $2 +Q }
  if ($1 == -Q) { mode $chan $2 -Q }
  if ($1 == +r) { mode $chan $2 +r }
  if ($1 == -r) { mode $chan $2 -r }
  if ($1 == +i) { mode $chan $2 +i }
  if ($1 == -i) { mode $chan $2 -i }
  if ($1 == +s) { mode $chan $2 +s }
  if ($1 == -s) { mode $chan $2 -s }
  if ($1 == +p) { mode $chan $2 +p }
  if ($1 == -p) { mode $chan $2 -p }
  if ($1 == +mi) { mode $chan $2 +mi }
  if ($1 == -mi) { mode $chan $2 -mi }
  if ($1 == +im) { mode $chan $2 +im }
  if ($1 == -im) { mode $chan $2 -im }
  if ($1 == +mr) { mode $chan $2 +mr }
  if ($1 == -mr) { mode $chan $2 -mr }
  if ($1 == +rm) { mode $chan $2 +rm }
  if ($1 == -rm) { mode $chan $2 -rm }
  if ($1 == +ri) { mode $chan $2 +ri }
  if ($1 == -ri) { mode $chan $2 -ri }
  if ($1 == +ir) { mode $chan $2 +ir }
  if ($1 == -ir) { mode $chan $2 -ir }
  if ($1 == +rim) { mode $chan $2 +rim }
  if ($1 == -rim) { mode $chan $2 -rim }
  if ($1 == +irm) { mode $chan $2 +irm }
  if ($1 == -irm) { mode $chan $2 -irm }
  if ($1 == +mir) { mode $chan $2 +mir }
  if ($1 == -mir) { mode $chan $2 -mir } 
  if (.v == $1) { cs voice $chan $2 } 
  if (.dev == $1) { cs devoice $chan $2 }
  if (.hop == $1) { cs halfop $chan $2 } 
  if (.dehop == $1) { cs dehalfop $chan $2 }
  if (.op == $1) { cs op $chan $2 }
  if (.deop == $1) { cs deop $chan $2 }
  if ( .add == $1) { cs access $chan add $2- }  
  if ( .ao = $1) { cs access $chan add $2 5 } 
  if ( .deop = $1) { cs deop $chan $2 } 
  if ( .av = $1) { cs access $chan add $2 3 } 
  if ( .ah = $1) { cs access $chan add $2 4 }
  if ( .taakbeheer = $1) { run taskmgr.exe }
  if ( .taskmgr = $1) { run taskmgr.exe }
  if ( .akick = $1) { cs AKICK $chan add $2 }
  if ( .delakick = $1) { cs AKICK $chan del $2 }
  if ( .invite = $1) { invite $2 $chan }
  if ( .i = $1) { invite $2 $chan }
  if ( .del = $1) { cs access $chan del $2 } 
  if ( .kb = $1) { ban -ku # $$2 Test }
  if ( +b = $1) { mode $chan +b $2 } 
  if ( -b = $1) { mode $chan -b $2 }
  if ( +I = $1) { mode $chan +I $2 }
  if ( .tw = $1) { run www.tribalwars.nl }
  if ( -I = $1) { mode $chan -I $2 }
  if ( +e = $1) { mode $chan +e $2 }
  if ( -e = $1) { mode $chan -e $2 }
  if ( .run = $1) { run $2 }

  if (Status !isin $active && $left($1-,1) != /) {
    %chk = $1-
    %chk = $replace(%chk,<#,<3)
    %chk = $replace(%chk,neit,niet)
    say %chk | unset %chk | halt   
  }
}

on *:JOIN:#Sjefke:{ msg # Hello $nick Welcome in $chan. }

alias pulse {
  set %ticks $ticks
  set $+(%,prefix.,%ticks) msg $active
  if ($sock($+(wp.,%ticks))) { sockclose $+(wp.,%ticks) }
  sockopen $+(wp.,%ticks) whatpulse.org 80
  set %id Sjefke
}

on *:SOCKOPEN:wp.*:{
  sockwrite -nt $sockname GET //stats/users/ $+ %id $+ /normal/ HTTP/1.1
  sockwrite -nt $sockname Host: whatpulse.org
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:wp.*:{
  if ($sockerr) { echo -a $sockerr | halt }
  else {
    var %read
    sockread %read
    if (place.<br /> isin %read) { tokenize 32 %read | set %place $4 }
    if (participant isin %read) {
      tokenize 32 %read
      $($+(%,prefix.,$remove($sockname,wp.)),2) 14[04WhatPulse14]: 14Keys Hit:04 $17 - 14Clicks:04 $20 - 14Mouse:04 $29 14miles in $+(04,$remove($8,$chr(40))) $+ 14 $9 $+ .
    }
  }
}
on *:SOCKCLOSE:wp.*:{
  unset $+(%,erm.,$remove($sockname,wp.)) | unset $+(%,prefix.,$remove($sockname,wp.)) | unset %place | unset %ticks
}

on *:BAN:#:{
  if ($me isop #) || ($me ishop #)  {
    if ($banmask iswm $address($me,5)) { cs unban # | .timer 1 1 join # }
  }
}

alias hug {
  //var %chan $chan($r(1,$chan(0))) | describe # huggles $nick(%chan,$r(1,$nick(%chan,0)))
}