Server Notice Window (Ircop) by elvara

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 5[ $+ $time(HH:nn) $+ ] * $regml(1) ( $+ $regml(2) $+ @ $+ $regml(3) ) 
  }
  if (*Client exiting* iswm $1-) {
    dline @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 su zabranjeni na bolchat mrezi! Nick: $regml(linija,1) // Host/IP: $regml(linija,3) http://your.web.com
      }
      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 :Molimo vas da se drzite pravila Bolchat mreze! Nick: $regml(linija,1) // Host/IP: $regml(linija,3) http://your.web.com
      }
      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 :Bolchat mreza nece tolerisati nacionalizam,rasizam i slicno! Nick: $regml(linija,1) // Host/IP: $regml(linija,3) http://your.web.com
      }
      dec %i
    }
  }
}