---Page 3---
on *:Join:#darkthunder:{
inc %joins
set %whois #darkthunder
whois $nick
if (%av [ $+ [ $chan ] ] == on) {
timer 1 2 checkvoice $nick $chan }
if (%dtevent !== Off) {
set %dtemsg $s2(Dark Thunder's current event is) $s3(%dtevent) }
elseif (%dtevent == off) {
set %dtemsg $s2(Dark Thunder currently has no event set) $s3(- Most likely a freeday) }
if (%dtnews !== off) {
set %dtnmsg $s5(%dtnews) }
elseif (%dtnews == off) {
set %dtnmsg $s2("Non Set") }
timer 1 1 notice $nick $s2(Welcome to) $s1(#darkthunder) $s2(- Home of clan) $s1(Dark Thunder)
timer 1 1 notice $nick %dtemsg
timer 1 1 notice $nick $s1(Dark Thunder's new is - %dtnmsg)
timer 1 2 notice $nick $s1(Group events currently look like this -) $s2(Barrows: %bargmsg $+ ) $s2(KBD: %kbdgmsg $+ ) $s2(GWD: %gwdgmsg $+ ) :: $s4(->!group KBD/GWD/Barrows event<-) }
if (%dtwar !== off) {
timer 1 3 notice $nick $s1(Dark Thunder currently has a war set!) $s2(Please type !war for more details) }
raw 319:*:{
if (%whois) {
msg %whois $s2($2) $s1(is on:) $s2($3-)
unset %whois
}
}
on $*:TEXT:/^[!@]strikes?/Si:#darkthunder,#dtchat,#jolly:{
inc %totalcuses
Set %msgstyle.strikes $iif($left($1,1) = @,msg #,notice $nick)
if (%dtban [ $+ [ $nick ] ] == $Null) {
%msgstyle.strikes $s1(Congratultions) $s2($nick $+ , ) $s1(you currently have no strikes.) }
elseif (%dtban [ $+ [ $nick ] ] == 1) {
%msgstyle.strikes $s1(Sorry) $s2($nick $+ , ) $s1(you currently have 1 strike.) $s3(-2- More offensive words and your banned.) }
elseif (%dtban [ $+ [ $nick ] ] == 2) {
%msgstyle.strikes $s1(Sorry) $s2($nick $+ , ) $s1(you currently have 2 strikes.) $s3(-1- More offensive word and your banned.) }
}
on $*:TEXT:/^[!@]rules/Si:#darkthunder,#dtchat,#Jolly:{
inc %totalcuses
if ($2 !== $null) {
Set %msgstyle.rules notice $2-
}
Elseif ($2 == $Null) {
Set %msgstyle.rules $iif($left($1,1) = @,msg #,notice $nick) }
%msgstyle.rules $s1(DarkThunder's Chat Rules:)
Timer 1 1 %msgstyle.rules $s2(1.) $s1(When in main Chat #darkthunder Ops and H-ops are there to keep the peace and should be taken seriously.)
Timer 1 1 %msgstyle.rules $s2(2.) $s1(When new comers come in acquiring about our clan, there will be no disrespect towards them and only Ops or H-ops will direct them where to go and what to do next.)
Timer 1 1 %msgstyle.rules $s2(3.) $s1(There will be no name calling in a negitive manner. (Joking is one thing only if they other person knows you are joking.))
Timer 1 1 %msgstyle.rules $s2(4.) $s1(No Racial terms or bad language should be used in #darkthunder, including terms such as Jew etc.)
Timer 1 1 %msgstyle.rules $s2(5.) $s1(No putting other players down (even if you do think you are better))
}
on $*:TEXT:/^[!@]rule/Si:#darkthunder,#dtchat,#jolly:{
inc %totalcuses
Set %msgstyle.rule $iif($left($1,1) = @,msg #,notice $nick)
If ($2 == 1) {
%msgstyle.rule $s2(Rule 1.) $s1(When in main Chat #darkthunder Ops and H-ops are there to keep the peace and should be taken seriously.) }
elseif ($2 == 2) {
%msgstyle.rule $s2(Rule 2.) $s1(When new comers come in acquiring about our clan, there will be no disrespect towards them and only Ops or H-ops will direct them where to go and what to do next.) }
elseif ($2 == 3) {
%msgstyle.rule $s2(Rule 3.) $s1(There will be no name calling in a negitive manner. (Joking is one thing only if they other person knows you are joking.)) }
elseif ($2 == 4) {
%msgstyle.rule $s2(Rule 4.) $s1(No Racial terms or bad language should be used in #darkthunder, including terms such as Jew etc.) }
elseif ($2 == 5) {
%msgstyle.rule $s2(Rule 5.) $s1(No putting other players down (even if you do think you are better)) }
}
on $*:TEXT:/^[!@]req/Si:#darkthunder,#dtchat:{
inc %totalcuses
if ($2 !== $null) {
Set %msgstyle.req notice $2
}
Elseif ($2 == $Null) {
Set %msgstyle.req $iif($left($1,1) = @,msg #,notice $nick)
%msgstyle.req $s1(DarkThunder's Requirements:) $s2(95+ Combat & Must Stay Active) }
}
on $*:TEXT:/^[!@]info/Si:#darkthunder,#dtchat:{
inc %totalcuses
notice $nick $s1(The commands for info about) $s2(DarkThunder) $s1(are:)
timer 1 1 notice $nick $s1([!@]Site) - $s2(Gives the link for DT's site)
timer 1 1 notice $nick $s1([!@]Ml) - $s2(Gives the link for DT's Memberlist)
timer 1 1 notice $nick $s1([!@]News) - $s2(Gives DT's current set news)
timer 1 1 notice $nick $s1([!@]Event) - $s2(Gives DT's current set event)
timer 1 1 notice $nick $s1([!@]War) - $s2(Gives DT's current war)
timer 1 1 notice $nick $s1([!@]WRules) - $s2(Gives DT's war rules)
timer 1 1 notice $nick $s1([!@]Req) - $s2(Gives DT's clan Requirements)
timer 1 1 notice $nick $s1([!@]Rules) - $s2(List DT's clan chat rules)
timer 1 1 notice $nick $s1([!@]Rule [1/2/3/4/5]) - $s2(Shows the specified rule)
timer 1 1 notice $nick $s1([!@]Strikes) - $s2(Shows how many strikes you have)
}
on $*:TEXT:/^[!@]Ann/Si:#dtchat:{
if ($nick !isvoice $chan) || ($nick !isreg $chan) {
if ($2 !== $null) {
msg #darkthunder $s1(Announcment from officials -) $s2($2-) $+ ! }
}
}
on $*:TEXT:/^[!@]check/Si:#dtchat:{
if ($nick !isvoice $chan) || ($nick !isreg $chan) {
msg #darkthunder $s2(All members please remember to check and turnup to events.) $s1(Please type !event to look at the current event.) $s4(If you forget any commands for DarkThunder please type) $s3(!info) - $s2(Thanks) $+ ! }
}
on $*:TEXT:/^[!@]waron/Si:#dtchat:{
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
msg #darkthunder $s2(DarkThunder's War alert has been turned on!) $s4(Please type !war to veiw the details and !wrules for the rules) $+ ! }
}
on $*:TEXT:/^[!@]setwar/Si:#dtchat,#darkthunder:{
if (%dtwarzor == off) {
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
If ($2 !== $Null) {
set %dtwarzor $2-
msg #dtchat $s2(Set the war - To set the rules type !setwrules - Type !waron once you have done this) }
elseif ($2 == $Null) {
notice $Nick $s1(Please enter the war details..) } } }
elseif (%dtwarzor !== off) {
Notice $nick $s2(There is already a war set...) $s1(Type !delwar then try again)
}
}
on $*:TEXT:/^[!@]setwrules/Si:#dtchat,#darkthunder:{
if (%dtwarr == off) {
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if ($2 !== $Null) {
set %dtwarr $2-
msg #dtchat $s2(Set the war rules - Type !waron) }
elseif ($2 == $Null) {
notice $nick $s1(Please enter some war rules..) } } }
elseif (%dtwarr !== off) {
Notice $nick $s2(There is already some war rules set...) $s1(Type !delwar then try again)
}
}
on $*:TEXT:/^[!@]war/Si:#darkthunder,#dtchat:{
inc %totalcuses
if ($2 !== $null) && ($nick isop $chan) {
Set %msgstyle.war notice $2
}
Elseif ($2 == $Null) {
Set %msgstyle.war $iif($left($1,1) = @,msg #,notice $nick) }
if (%dtwarzor == OFF) {
notice $nick $s2(War alert is currently off) $s1(- This will change if we find a war.) }
else {
%msgstyle.war $s2(DarkThunder's current war details:) $s1(%dtwarzor) $s3(To veiw the rules type !wrules)
}
}
on $*:TEXT:/^[!@]wrules/Si:#dtchat,#darkthunder:{
inc %totalcuses
if ($2 !== $null) && ($nick isop $chan) {
Set %msgstyle.warer notice $2
}
Elseif ($2 == $Null) {
Set %msgstyle.warer $iif($left($1,1) = @,msg #,notice $nick)
if (%dtwarr == OFF) {
notice $nick $s2(War alert is currently off) $s1(- This will change if we find a war.) }
else {
%msgstyle.warer $s2(DarkThunder's wars rules:) $s1(%dtwarr) $s3(To veiw the details type !War) }
}
}
on *:TEXT:!startwar*:#darkthunder,#dtchat:{
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if ($2 < 119) {
notice $nick $s1(You must choose a time over every 120 seconds,) $s1(Please try again with a greater time limit) }
Elseif ($2 > 119) {
inc %totalcuses
set %wartime $2
if (%dtwartime == ON) {
Notice $nick $s2(Auto Messaging is already activated - Please type !stopwar - then restart it.)
}
if (%dtwarzor == OFF) {
notice $nick $s2(War alert is off...) }
if (%dtwartime !== ON) {
notice $nick $s2(Auto Msging Activated ~) $s1(I will speak about the war) $s3(> $calc(%wartime /60) <) $s1(Mins)
msg #darkthunder $s2(DarkThunder's war alert is ON ) $s1(Please type !war and !wrules for more info) $+ !
timerwar 0 %eventtime msg #darkthunder $s2(DarkThunder's war alert is ON ) $s1(Please type !war and !wrules for more info) $+ !
set %dtwartime ON }
}
}
}
on *:TEXT:!stopwar*:#darkthunder,#dtchat:{
if (%dtwartime == off) {
notice $nick $s2(Auto Messaging is currently not activated. - Please type !startwar <TIME> to activate.) }
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
inc %totalcuses
if (%dtwarzor == off) {
notice $nick $s2(War alert if off...) }
if (%dtwartime !==off) {
notice $nick $s2(Auto msg has been halted)
set %dtwartime off
timerwar off
}
}
}
on *:TEXT:!delwar*:#darkthunder,#dtchat:{
if ($nick isreg $chan) || ($nick isvoice $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
elseif ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
if (%dtwarzor == OFF) && (%dtwarr == OFF) {
notice $nick $s2(Sorry this action could not be carried out, as there is no war set for DarkThunder $+ ....) }
elseif (%dtwarzor !== OFF) && (%dtwarr !== off) {
set %dtwarzor OFF
set %dtwarr OFF
inc %totalcuses
set %dtwartime off
timerwar off
msg #darkthunder $s1(War alert is now off) }
}
}
on *:TEXT:!setevent*:#darkthunder,#dtchat:{
if (%dtevent == off) {
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if ($2 !== $Null) {
inc %totalcuses
set %dtevent $2-
unset %eventview
msg #darkthunder $s2(A new event has been set, Type) $s1(!event) $s2(to veiw it.) $s1(For more commands on DarkThunder type) $s4(!info)
timer 1 15 topic #darkthunder 4,1Welcome to #darkthunder! 10,1Please visit our forums at www.Darkthunder.net to apply. 8,1Darkthunder's event today is " $+ %dtevent $+ " 7,1 We have moved from #dkthunder }
if ($2 == $Null) {
notice $Nick $s1(Please write an event to be set....)
}
}
}
elseif {%dtevent !== off) {
notice $nick $s2(There is already an event set.) $s1(Type !delevent then try again)
}
}
on $*:TEXT:/^[!@]event/Si:#darkthunder,#dtchat:{
inc %totalcuses
if ($2 !== $null) && ($nick isop $chan) {
Set %msgstyle.event notice $2
}
Elseif ($2 == $Null) {
Set %msgstyle.event $iif($left($1,1) = @,msg #,notice $nick) }
{
if (%dtevent == OFF) {
notice $nick $s2(There is no event set at the moment.) $s1(Wait for a new 1 to be set) }
else {
%msgstyle.event $s2(DarkThunder's Current Event is:) $s1(%dtevent) $+ ! }
}
}
on *:TEXT:!startevent*:#darkthunder,#dtchat:{
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if ($2 < 119) {
notice $nick $s1(You must choose a time over every 120 seconds,) $s1(Please try again with a greater time limit) }
Elseif ($2 > 119) {
inc %totalcuses
set %eventtime $2
if (%dteventtime == ON) {
Notice $nick $s2(Auto Messaging is already activated - Please type !stopevent - then restart it.)
}
if (%dtevent == OFF) {
notice $nick $s2(No event is set...) }
if (%dteventtime !== ON) && (%dtevent !== off) {
notice $nick $s2(Auto Msging Activated ~) $s1(I will speak the event every) $s3(> $calc(%eventtime /60) <) $s1(Mins)
msg #darkthunder $s2(DarkThunder's Current Event is:) $s1(%dtevent) $+ !
timerauto 0 %eventtime msg #darkthunder $s2(DarkThunder's Current Event is:) $s1(%dtevent) $+ !
set %dteventtime on }
}
}
}
on *:TEXT:!stopevent*:#darkthunder,#dtchat:{
if (%dteventtime == off) {
notice $nick $s2(Auto Messaging is currently not activated. - Please type !startwar <TIME> to activate.)
}
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
inc %totalcuses
if (%dtevent == off) {
notice $nick $s2(No event is set!) }
elseif (%dteventtime !== off) {
notice $nick $s2(Auto Msg has been halted)
set %dteventtime off
timerauto off
}
}
}
on *:TEXT:!delevent*:#darkthunder,#dtchat:{
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if (%dtevent == OFF) {
notice $nick $s2(Sorry this action could not be carried out, as there is no Event for DarkThunder $+ ....) }
elseif (%dtevent !== OFF) {
set %dtevent OFF
inc %totalcuses
set %dteventtime off
timer 1 15 topic #darkthunder 4,1Welcome to #darkthunder! 10,1Please visit our forums at www.Darkthunder.net to apply. 8,1Today is a Freeday! 7,1 We have moved from #dkthunder
timerauto off
msg #darkthunder $s1(The Event has been removed!) }
}
}
on *:TEXT:!setnews*:#darkthunder,#dtchat:{
if (%dtnews == off) {
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if ($2 !== $Null) {
unset %dtnews OFF
inc %totalcuses
set %dtnews $2-
msg #darkthunder $s2(Some new "News" has been set, Type) $s1(!news) $s2(to veiw it.) $s1(For more commands on DarkThunder type) $s2(!info) }
elseif ($2 == $Null) {
notice $nick $s1(Please write some news to be set...) } } }
elseif {%dtnews !== off) {
notice $nick $s2(There is already some news set.) $s1(Type !delnews then try again)
}
}
on $*:TEXT:/^[!@]news/Si:#darkthunder,#dtchat:{
inc %totalcuses
if ($2 !== $null) {
Set %msgstyle.news notice $2
}
Elseif ($2 == $Null) {
Set %msgstyle.news $iif($left($1,1) = @,msg #,notice $nick) }
{
if (%dtnews == OFF) {
notice $nick $s2(No news is set at the moment.) }
else {
%msgstyle.news $s2(DarkThunder's current news is:) $s1(%dtnews) $+ ! }
}
}
on *:TEXT:!startnews*:#darkthunder,#dtchat:{
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if ($2 < 119) {
notice $nick $s1(You must choose a time over every 120 seconds,) $s2(Please try again with a greater time limit) }
Elseif ($2 > 119) {
inc %totalcuses
set %newstime $2
if (%dtnewstime == ON) {
Notice $nick $s2(Auto Messaging is already activated - Please type !stopnews - then restart it.)
}
if (%dtnews == OFF) {
notice $nick $s2(No news is set at the moment.) }
if (%dtnewstime == Off) && (%dtnews !== off) {
notice $nick $s2(Auto Msging Activated ~) $s1(I will speak the news every) $s3(> $+ $calc(%newstime /60) $+ <) $s1(Mins)
msg #darkthunder $s1(%dtnews) $+ !
set %dtnewstime on
timerautos 0 %newstime msg #darkthunder $s1(%dtnews) $+ ! }
}
}
}
on *:TEXT:!stopnews*:#darkthunder,#dtchat:{
if (%dtnewstime == off) {
notice $nick $s2(Auto Messaging is currently not activated. - Please type !startnews <TIME> to activate.)
}
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
inc %totalcuses
if (%dtnews == OFF) {
notice $nick $s2(No News is currently set) }
elseif (%dtnewstime == on) && (%dtnews !== off) {
notice $nick $s2(Auto Msg has been halted)
set %dtnewstime off
timerautos off
}
}
}
on *:TEXT:!delnews*:#darkthunder,#dtchat:{
if ($nick isvoice $chan) || ($nick isreg $chan) {
Notice $nick $s2(Sorry you don't have the power to do that) }
Elseif ($nick isop $chan) || $nick ishop $chan) || ($nick == %owner) {
if (%dtnews == OFF) {
notice $nick $s2(Sorry this action could not be carried out, as there is no News for DarkThunder $+ ....) }
elseif (%dtnews !== OFF) {
set %dtnews OFF
set %dtnewstime off
timerautos off
inc %totalcuses
msg #darkthunder $s1(The News has been removed!) }
}
}
ON *:TEXT:*:#Jolly,#darkthunder:{
if ($badwords($1)) || ($badwords($2)) || ($badwords($3)) || ($badwords($4)) || ($badwords($5)) || ($badwords($6)) || ($badwords($7)) {
inc %totalcuses
if (%dtban [ $+ [ $nick ] ] == $Null) {
Set %dtban [ $+ [ $nick ] ] 1
notice $nick $s1(You have just been warned for using bad language.) $s2(Please refer to) $s3(!rule 4) $s2(for more info.) $s1( 2 warnings left)
}
elseif (%dtban [ $+ [ $nick ] ] == 1) {
Set %dtban [ $+ [ $nick ] ] 2
notice $nick $s1(You have just been warned for using bad language.) $s2(Please refer to) $s3(!rule 4) $s2(for more info.) $s1( 1 warning left) }
elseif (%dtban [ $+ [ $nick ] ] == 2) {
unset %dtban [ $+ [ $nick ] ]
ban -ku $+ $calc( 3 * 60 ) $chan $nick 2 $s2(After 3 warnings you still break rule4. !rule 4) $s3(You will be unbanned in 3 mins)
}
}
}
alias badwords {
if ($regex($1,/^N(i|1)g(g)?(a|e|3)?(r)?(s|z)?(.|!|-)?$/Si)) return N
elseif ($regex($1,/^J(e|3)w(ish|s)?(.|!|-)?$/Si)) return J
elseif ($regex($1,/^cunt(s|z)?(.|!|-)?$$/Si)) return C
}