on *:TEXT:!ping:#: {
msg $chan Hi I am the broadcaster.
}
on *:TEXT:!winner:#: {
set %nick1 $nick($chan,$r(1,$nick($chan,0,r)),r)
if (%nick1 == $me) { set %nick1 $nick($chan,$rand(1,$nick($chan,0))) }
msg $chan Randomly selecting a winner........
timerlawl 1 5 msg $chan The winner is %nick1 $+ ! Congratulations %nick1 :)
}
on *:text:!addcom *:#: {
if ($nick isop #) {
var %r = $read(# $+ commands.txt,ns,$2)
if (%r) { .msg $chan [ $+ $nick $+ ]: Error, This command $qt($2) is already exist into the database! | return }
write # $+ commands.txt $2-
msg $chan /me + Command $2 has been added to the database!
}
}
on *:text:!delcom *:#: {
if ($nick isop #) {
var %r = $read(# $+ commands.txt,ns,$2)
if (!%r) { .msg $chan [ $+ $nick $+ ]: Error, This command $qt($2) does NOT exist into the database! | return }
write -dl $+ $readn # $+ commands.txt
msg $chan /me - Command $2- has been deleted from the database!
}
}
on *:text:!editcom & *:#: {
if ($nick isop #) {
var %r = $read(# $+ commands.txt,ns,$2)
if (!%r) { .msg $chan [ $+ $nick $+ ]: Error, This command $qt($2) does NOT exist into the database! | return }
write -l $+ $readn # $+ commands.txt $2-
msg $chan /me -> Command $2 has been updated!
}
}
ON *:TEXT:*:#: {
var %owner $right(#,-1)
tokenize 32 $strip($1-,burci)
if ($read(# $+ commands.txt, nts, $1)) {
var %com = $v1
var %com = $replace(%com,@user@,$iif($2,$2,?),@nick@,$nick,@target@,$target)
if (-ul=mod == $gettok(%com,1,32)) && (!$mod($nick)) { msg $chan Sorry $nick $+ , you cannot use this command. | return }
if (-ul=reg == $gettok(%com,1,32)) && (!$mod($nick)) && (!$regular($nick)) { msg $chan Sorry $nick $+ , you cannot use this command. | return }
if (-ul=own == $gettok(%com,1,32)) && ($nick != %owner) { msg $chan Sorry $nick $+ , you cannot use this command. | return }
msg $chan $iif(-ul=mod == $gettok(%com,1,32) || -ul=reg == $gettok(%com,1,32) || -ul=own == $gettok(%com,1,32),$gettok(%com,2-,32),$gettok(%com,1-,32))
}
}
on $@*:text:*:#:{
if ($regex($1-,/.+\.(com|co|uk|net|org|gov|tv|edu|fm)/iS)) && ($nick !isop $chan) {
if (!$istok(%permit,$nick,32)) {
.timerban 1 1 /msg $chan /timeout $nick 1
msg $chan Please, $Nick Ask a mod for permission to post links!
}
}
noop $regex($1-,/^!(reg del|reg add|permit)\s(\S+)/iS) {
if ($regml(1) == reg add) && ($nick isop $chan) {
if ($istok(%permit,$regml(2),32)) {
msg $chan $regml(2) is already on the regular list
}
else {
set %permit $addtok(%permit,$regml(2),32)
msg $chan $regml(2) You are now always permitted to post links
}
}
if ($regml(1) == permit) && ($nick isop $chan) {
set %permit $addtok(%permit,$regml(2),32)
.timerunset 1 30 set %permit $remtok(%permit,$regml(2),1,32)
msg $chan $regml(2) You have 30 seconds to post a link in here
}
if ($regml(1) == reg del) && ($nick isop $chan) {
if ($istok(%permit,$regml(2),32)) {
set %permit $remtok(%permit,$regml(2),1,32)
msg $chan $regml(2) removed from regular list
}
else {
msg $chan $regml(2) is not on regular list
}
}
}
}