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