conn

on ^*:snotice:*: {
  if (*Client connecting* iswm $1-) {
    noop $regex($1-,: ([^ ]+) \x28([^@]+)@([^\x29]+)\x29)
    if (!$window(@Konekcije)) {
      window -mg[1]k[0]bxlkapoCzdk0tnbL @Konekcije 0 0 300 700
      titlebar @Konekcije - Konekcije!
    }
    iline @Konekcije 1 73[ $+ $time(HH:nn) $+ ] * $regml(1) ( $+ $regml(2) $+ @ $+ $regml(3) )
  }
  if (*Client exiting* iswm $1-) {
    aline @Konekcije 1 $sline(@Konekcije,%i)
    haltdef
    window -emg[1]k[0] @SNotices
    aline -p @SNotices 5 $1-
  }
}
menu @Konekcije {
  WHOIS:{
    var %i = $sline(@Konekcije,0)
    while (%i != 0) {
      if $regex(linija,$strip($sline(@Konekcije,%i)), ([^ ]+) \x28([^@]+)@([^\x29]+)\x29) {
        //whois $regml(linija,1) $regml(linija,1)
      }
      dec %i
    }
  }
  CLONES:{
    var %i = $sline(@Konekcije,0)
    while (%i != 0) {
      if $regex(linija,$strip($sline(@Konekcije,%i)), ([^ ]+) \x28([^@]+)@([^\x29]+)\x29) {
           //gline +*@ $+ $regml(linija,3) 5d :Clones - Nick: $regml(linija,1) // Host/IP: $regml(linija,3) :D
      }
      dec %i
    }
  }
  PRAVILNIK:{
    var %i = $sline(@Konekcije,0)
    while (%i != 0) {
      if $regex(linija,$strip($sline(@Konekcije,%i)), ([^ ]+) \x28([^@]+)@([^\x29]+)\x29) {
         //gline +*@ $+ $regml(linija,3) 5d :Siga las reglas de la red! Nick: $regml(linija,1) // Host/IP: $regml(linija,3) :D
      }
      dec %i
    }
  }
  SKINI kill SA NIKA:{
    var %i = $sline(@Konekcije,0)
    while (%i != 0) {
      if $regex(linija,$strip($sline(@Konekcije,%i)), ([^ ]+) \x28([^@]+)@([^\x29]+)\x29) {
          //gline -*@ $+ $regml(linija,3)
      }
      dec %i
    }
  }
  NACIONALIZAM:{
    var %i = $sline(@Konekcije,0)
    while (%i != 0) {
      if $regex(linija,$strip($sline(@Konekcije,%i)), ([^ ]+) \x28([^@]+)@([^\x29]+)\x29) {
     //gline +*@ $+ $regml(linija,3) 100d :¡La red no tolerará el nacionalismo, el racismo y cosas por el estilo! Nick: $regml(linija,1) // Host/IP: $regml(linija,3) :D
      }
      dec %i
    }
  }
}