This was as much as I could simplify and correct for efficiency.
on *:LOAD:{
install
echo -a Script installed enjoy.
}
on $*:TEXT:/ $+ %regex $+ %swear $+ ) $+ /S:#:{
if ($ulevel == add) {
if (!$1) {
msg # Type: !commands for correct syntax.
}
elseif (!$2) {
msg # Type: !commands for correct syntax.
}
elseif ($regml(2) == add) {
.auser -a add $2
msg # Added User: $2 $+ .
}
elseif ($regml(2) == commands) {
msg $nick The Command Syntax list:
msg $nick !add <nick>
msg $nick !addword <word>
msg $nick !del <nick>
msg $nick !delword <word>
msg $nick End of Syntax list.
}
elseif ($regml(2) == del) {
.ruser $2
msg # Deleted User: $2 $+ .
}
}
elseif ($regml(2) == addword) {
set %regex %regex $+ | $+ $2
msg # Added $2 $+ .
}
elseif ($regml(2) == delword) {
set %regex $remove(%regex,| $+ $2)
msg # Deleted $2 $+ .
}
elseif ($regex($1-,%swear) {
inc %kickcount. [ $+ [ $nick ] ]
ban -ku $+ %ban $nick 2 (%ban Seconds Ban) (Badword: $regml(3)) Kickcount: %kickcount. [ $+ [ $nick ] ]
}
}
alias -l install {
set %regex (!)(|add|del|delword|addword|commands)
set %swear (fuck|shit|cunt|nigg(0|3|e|a)r?|hurensohn|bitch|wh(0|o)r(3|e
auser -a add $input(Enter the Admin Username,e,admin)
var %ban $input(Enter desired ban time,e,ban)
}
Sorry about the filtered words i'm sure you can figure out what they were.
DAMN YOU HAWKEE FILTERS!!!
ctcp 1:PING:{ var %i == 0
if (!%anti [ $+ [ $nick ] ]) {
set -u20 %anti [ $+ [ $nick ] ] 1
.ctcpreply $nick Grr OMG, Did you just CTCP ping me?
.ctcpreply $nick Grr Why did you do it?
.ctcpreply $nick Grr Why?!?
.ctcpreply $nick Grr Now I will have to torture you
.ctcpreply $nick Grr by counting to 100
.ctcpreply $nick Grr by using ctcp ping reply
.timer 100 2 .ctcpreply $nick Grr $calc(%i + 1)
.timer 1 113 ctcpreply $nick Grr Had enough yet or want some more?
.timer 1 114 ctcpreply $nick Grr I hope you learnt your lesson
.timer 1 115 ctcpreply $nick Grr Now go play
.timer 1 116 ctcpreply $nick Grr And don't CTCP Ping me ever again
.timer 1 118 ctcpreply $nick Grr or else, you'll get another torture, I'm not joking.
.halt
}
}
alias -l firetimer {
if (%up > %down) {
msg %kickchan Vote passed! Yes: %up - No: %down
kick %kickchan %nick
}
else {
msg %kickchan Vote Failed! Yes: %up - No: %down
}
}
on *:text:!votekick *:#: {
set %kickchan #CHANNEL
set %kicktime 15
set %exceptions
if (%voteon == on) {
notice $nick A votekick is already taking place.
}
else {
if ($nick isop %kickchan) {
set %nick $$2
set %voteon on
if (%voteon == on) {
.timer 1 %kicktime firetimer
.timer 1 %kicktime set %voteon off
.timer 1 %kicktime unset %voted
.timer 1 %kicktime set %up 0
.timer 1 %kicktime set %down 0
set %voteon on
msg %kickchan Voting to kick %nick has started. Type !yes or !no to vote.
}
}
else {
notice $nick You need to be a channel operator to call a votekick.
halt
}
}
}
on *:text:!yes:#: {
if ($istok(%voted,$address,32)) {
notice $nick You have already voted.
halt
}
if (%voteon == off) {
notice $nick Voting is currently off.
halt
}
else {
%voted = $addtok(%voted,$address,32)
inc %up 1
msg %kickchan Yes: %up - No: %down
}
}
on *:text:!no:#: {
if ($istok(%voted,$address,32)) {
notice $nick You have already voted.
halt
}
if (%voteon == off) {
notice $nick Voting is currently off.
halt
}
if (%voteon == on) {
%voted = $addtok(%voted,$address,32)
inc %down 1
msg %kickchan Yes: %up - No: %down
}
}
Revised to be a game for channels.
why make it so lengthy? this is simpler:
on $@*:TEXT:((!)(join|part|(un)?ban|(de)?admin|\S+)):#:{
if ($regml(3) == (join|part)) {
$regml(3) $2
}
elseif ($regml(3) == ban) {
.raw -q mode # +b $address($2,2)
}
elseif ($regml(3) == unban) {
.raw -q mode # -b $address($2,2)
}
elseif ($regml(3) == deadmin) {
.cs deprotect # $2
}
elseif ($regml(3) == admin) {
.cs protect # $2
}
else {
.cs $regml(3) # $2
}