on *:JOIN:#: {
  if ($me isop $chan) {
    if ($issupporter($nick))  {
      /msg $chan Bonjour meester!
    }
    elseif ($address($nick,2) == *!*@my.gf.makes.me.so-happy.org) {
      /msg $chan Hey $nick! :D
    }
    elseif ($address($nick,2) == *!*@Geheim49.users.quakenet.org) {
      /msg $chan Hey Geheim! :D
    }
  }
}
alias qauth {
  if (!$isid) || (*.??.quakenet.org !iswm $server) !return
  if ($ial($1).host) if ($regex($ial($1).host,(.+?)\.users\.quakenet\.org)) !return $regml(1)
  if ($ial($1).mark) !return $v1
  !set %getQauth [ $+ [ $1 ] ] -
  !.who $1 n%nat,101
  !var %i = 10
  while (%i) && (%getQauth [ $+ [ $1 ] ] == -) {
    !dec %i
  }
  !var %return = $iif(%getQauth [ $+ [ $1 ] ] == -,$null,$v1)
  !unset %getQauth [ $+ [ $1 ] ]
  if (%return) !.ialmark $1 $v1
  !return %return
}
alias issupporter {
  if ($qauth($1) == Vuurtjih) if ($qauth($1) == CrazyMonk) {
    return $true
  }
  else {
    return $false
  }
}
on *:JOIN:#: {
  if ($1 == $me) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@62.140.137.132) {
    /msg $chan Hey mensen Vuurtjih is net binnen gekomen!!
  }
}
on *:text:!op*:#:{
  if ($me isop #) && ($nick isop #) {
    if ($2- == $null) { HALT }
    else {
      /mode $chan +o $2-
    }
  }
}
on *:text:!deop*:#: {
  if ($me isop #) && ($nick isop #) {
    if ($2- == $null) { HALT }
    else {
      /mode $chan -o $2-
    }
  }
}
on *:TEXT:!voice *:#: {
  if ($nick isop $chan) {
    var %i = 2
    var %ii = 1
    while (%i <= $0) {
      set $+(%,setmode,%ii) $var(%setmode*,%ii).value $gettok($1-,%i,32)
      if ($numtok($var(%setmode*,%ii).value,32) >= $calc($modespl - 1)) inc %ii
      inc %i
    }
  }
  var %i = 1
  while (%i <= $var(%setmode*,0)) {
    mode $chan $+(+,$str(v,$numtok($var(%setmode*,%i).value,32))) $var(%setmode*,%i).value
    inc %i
  }
  unset $+(%setmode*)
}
on *:TEXT:!devoice *:#: {
  if ($nick isop $chan) {
    var %i = 2
    var %ii = 1
    while (%i <= $0) {
      set $+(%,setmode,%ii) $var(%setmode*,%ii).value $gettok($1-,%i,32)
      if ($numtok($var(%setmode*,%ii).value,32) >= $calc($modespl - 1)) inc %ii
      inc %i
    }
  }
  var %i = 1
  while (%i <= $var(%setmode*,0)) {
    mode $chan $+(-,$str(v,$numtok($var(%setmode*,%i).value,32))) $var(%setmode*,%i).value
    inc %i
  }
  unset $+(%setmode*)
}
on *:TEXT:Hey*:#: {
  if ($1 == $me) if ($2 == $nick)
/msg $nick Hey $nick wat is er? $+ ! }
on *:TEXT:hug vuurbot*:#: {
  /msg $chan ik hou ook van jou <3!
}
on *:TEXT:!join *:#: {
  if ($2 == $chan) if ($issupporter($nick)) {
    /join $2
  }
}
on *:TEXT:!leave *:#: {
  //msg #Vuurbot Supporter: $issupporter($nick)
  if ($issupporter($nick)) {
    /part $2 /echo -a #Vuurbot Leave Geladen
  }
}
on *:TEXT:!hop *:#: {
  if ($2 == $chan) if ($issupporter($nick)) {
    /hop $2
  }
}
on *:TEXT:!slap *:#:{
  if ($2 == Vuurbot) {
    /msg $chan Ik sla mezelf niet ben je gek ofzo!?!
    HALT
  }
  elsif ($2 == Vuurtjih) && ($2 == Mickel) || ($2 == Vuur) || ($2 == Gedooft) || ($2 == Vuurtjih|AoM) || ($2 == Vuurtjih|off) || ($2 == Vuurtjih^off) || ($2 == NED|Vuurtjih) || ($2 == NED|Vuur|afk) || ($2 == NED|Vuur|off) || ($2 == Vuurtje) {
    /msg $chan ik sla me baas niet!
  }
  else { /describe $chan  slaps $2 around a bit with a large trout
  }
}
on *:TEXT:!kickban*:#: {
  if ($1 == $me) if ($2 == $nick) if ($3 == $chan) && if ($issupporter($nick)) {
    /kick $3 $2 | /mode # +b $2
  }
}
on *:TEXT:!kick *:#: {
  if ($1 == $me) if ($2 == $nick) if ($3 == $chan) && if ($issupporter($nick)) {
    /kick $3 $2
  }
}
on *:TEXT:!unban *:#: {
  if ($1 == $me) || ($2 == $nick) || ($3 == $chan) && if ($issupporter($nick)) {
    /mode $chan -b $bnick
  }
}
on *:TEXT:!zeg *:#: {
  if ($1-3) && ($issupporter($nick)) {
    /msg $2 $3- $+
    else { /msg $chan $nick kan me niet laten praten.
    }
  }
}
on *:TEXT:!help:#: {
  if ($1 == $me) || ($2 == $nick) {
    /msg $chan Dit zijn mijn commands: !barhulp !eten !drinken !ijs !ijsklontjes
  }
}
on *:TEXT:!hulp:#: {
  if ($1 == $me) if ($2 == $nick) {
    /msg $chan Dit zijn mijn commands: !barhulp !eten !drinken !ijs !ijsklontjes
  }
}
on *:TEXT:!kick *:#: {
  if ($2 == $nick) if ($3 == $chan) && ($address($nick,2) == *!*@tribalwars.nl.is.so-cool.biz) || ($address($nick,2) == *!*@82-169-39-121.ip.telfort.nl) || ($address($nick,2) == *!*@Vuurtjih.users.quakenet.org) {
    /kick $3 $2
  }
}
on *:TEXT:!hug *:#: {
  if ($2 == $nick) && if ($issupporter($nick)) {
    /describe $chan hugs $2.
    /timer1 1 3 /msg $chan 4,2Stiekem hou ik van je!
  }
}
on *:TEXT:!schopt *:#: {
  if ($2 == $nick) && if ($issupporter($nick)) {
    /describe $chan schopt $2. Grrr, ik haat je!
  }
}
on *:TEXT:!kis *:#: {
  if ($2 == $nick) {
    /describe $chan kiss $2
    /timer1 1 3 /kick $chan $nick Daaaag n00b!
  }
}
on *:TEXT:!zega *:#: {
  if (($1-3) && if ($issupporter($nick)) {
    /amsg $2 $3- $+
  }
}
on *:TEXT:!nick *:#: {
  if ($1 == $me) || ($2 == $nick) && if ($issupporter($nick)) {
    /nick $2
  }
}
on *:TEXT:!quit *:#: {
  if ($1 == $me) || ($2 == $nick) && if ($issupporter($nick)) {
    /quit
  }
}
on *:TEXT:!zegq *:#: {
  if (($1-3) && if ($issupporter($nick)) {
    /query $2 $3- $+
  }
}
on *:TEXT:!Geheim:#: {
  if ($1 == $me) if ($2 == $nick) {
    /msg $chan Kijk, de uberzin:
    /msg $chan <reclamemakers> je bent heel geheim bezig geheim
  }
}
on *:TEXT:!zegn *:#: {
  if (($1-3) && if ($issupporter($nick)) {
    /msg $2 $3- $+
  }
}
on *:TEXT:!whois *:#: {
  if ($1 == $me) if ($2 == $nick) && if ($issupporter($nick)) {
    /whois $2
  }
}