Server Notice Window (Ircop)

By elvara on Jul 28, 2021

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
}
}
}

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
    }
  }
}

Comments

Sign in to comment.
best3drenderingstudio   -  15 days ago

Good

 Respond  
linly   -  21 days ago

Great!

 Respond  
geotopvn   -  Aug 13, 2021

Nice

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.