IRC Tutorial Code!

Geplaatst door:MaDHouSe

Info:Whowas

on *:load: { write nicks.ini }
on !@*:join:#: {
  if (*.dial.hetnet.nl iswm $site) { return }
  if (*.dial.kabelfoon.nl iswm $site) { return }
  if (*.dial.wxs.nl iswm $site) { return }
  if (*.cable.wanadoo.nl iswm $site) { return }
  if (*.vwa.wanadoo.nl iswm $site) { return }
  if (*.cable.casema.nl iswm $site) { return }
  if (*.dyndsl.versatel.nl iswm $site) { return }
  if (*.dialup.versatel.nl iswm $site) { return }
  %nicks = $readini(nicks.ini, nicks, $site)
  if (!$istok(%nicks, $nick, 32)) { writeini -n nicks.ini nicks $site $nick $gettok(%nicks, 1-4, 32) }
  var %ww_change = $readini(nicks.ini, nicks, $site)
  var %i = $ialchan($wildsite,#,0)
  while (%i) {
    if ($ialchan($wildsite,#,%i).nick != $nick) { var %ww_clones = %ww_clones $ifmatch }
    var %ww_change = $remtok(%ww_change, $ialchan($wildsite,#,%i).nick, 1, 32)
    dec %i
  }
  if (%ww_change) { echo -t # 8,1 *** Nicknaam is veranderd: 1,8 $nick 8,1 was 1,8 %ww_change  }
  if (%ww_clones) { echo -t # 8,1 *** Clones gededecteerd van: 1,8 $nick 8,1 & 1,8 %ww_clones }
}

menu menubar {
  .Whowas
  ..Nicks.ini:/run nicks.ini
}