DARK THUNDER

on *:Join:#dkthunder:{ 
  inc %joins
  set %whois #dkthunder
  whois $nick
  if (%dtevent !== off) && (%dtwarzor !== off) {
  timer 1 3 notice $nick $s2(Welcome to) $s1($chan) $+ ! $s4(War alert is) $s2(ON) $s4(- Type) $s3(!war) $s4(for more info!) $s2(DarkThunder's event today is:) $s1(%dtevent) $+ !  }
  elseif (%dtevent !== off) && (%dtwarzor == off) {
  timer 1 3 notice $nick $s2(Welcome to) $s1($chan) $+ ! $s2(DarkThunder's event today is:) $s1(%dtevent) $+ ! $s2(Remember to stay active) $s3(I have seen) $s4(> %joins <) $s3(joins!) }
  elseif (%dtevent == off) && (%dtnews !== off) {
  timer 1 3 notice $nick $s2(Welcome to) $s1($chan) $+ ! $s2(DarkThunder's current news:) $s1(%dtnews) $+ !  $s1(Remember to stay active) $s3(I have seen) $s4(> %joins <) $s3(joins!) }
  elseif (%dtwarzor !== off) {
  timer 1 3 notice $nick $s2(Welcome to) $s1($chan) $+ ! $s4(War alert is) $s2(ON) $s4(- Type) $s3(!war) $s4(for more info!) $s3(I have seen) $s4(> %joins <) $s3(joins!) }
  elseif (%dtevent == off) {
  timer 1 3 notice $nick $s2(Welcome to) $s1($chan) $+ ! $s1(Remember to stay active) $s3(I have seen) $s4(> %joins <) $s3(joins!) }
}
raw 319:*:{
  if (%whois) {
    msg %whois $s2($2) $s1(is on:) $s2($3-)
    unset %whois
  }
}

on $*:TEXT:/^[!@]Warning/Si:#dtchat:{
  if ($nick !isvoice $chan) || ($nick !isreg $chan) {
  msg #dkthunder 8,1Warning: 1,8Remember ALL events are logged of who went to it - If you miss events frequently you will get kicked...  }
}


on $*:TEXT:/^[!@]check/Si:#dtchat:{
  if ($nick !isvoice $chan) || ($nick !isreg $chan) {
  msg #dkthunder $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 #dkthunder $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,#dkthunder:{ 
  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) {
      set %dtwarzor $2-
  msg #dtchat $s2(Set the war - To set the rules type !setwrules - Type !waron once you have done this) } }
  elseif (%dtwarzor !== off) {
    Notice $nick $s2(There is already a war set...) $s1(Type !delwar then try again)
  }
}


on $*:TEXT:/^[!@]setwrules/Si:#dtchat,#dkthunder:{ 
  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) {
      set %dtwarr $2-
  msg #dtchat $s2(Set the war rules - Type !waron) } }
  elseif (%dtwarr !== off) {
    Notice $nick $s2(There is already some war rules set...) $s1(Type !delwar then try again)
  }
}


on $*:TEXT:/^[!@]war/Si:#dkthunder,#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,#dkthunder:{ 
  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*:#dkthunder,#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 #dkthunder $s2(DarkThunder's war alert is ON) $s1(Please type !war and !wrules for more info) $+ !  
        timerwar 0 %eventtime msg #dkthunder $s2(DarkThunder's war alert is ON) $s1(Please type !war and !wrules for more info) $+ ! 
      set %dtwartime ON }
    }
  }
}



on *:TEXT:!stopwar*:#dkthunder,#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*:#dkthunder,#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 #dkthunder $s1(War alert is now off) }
  }
}


on $*:TEXT:/^[!@]strikes?/Si:#dkthunder,#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:#dkthunder,#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 #dkthunder 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 #dkthunder, 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:#dkthunder,#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 #dkthunder 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 #dkthunder, 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)) }
  elseif ($2 == $null) {
    notice $nick $s1(Please specify a rule to look up.)
  }
}



on $*:TEXT:/^[!@]req/Si:#dkthunder,#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:#dkthunder,#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([!@]TS) - $s2(Gives info for DT's TS Server)
  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:!setevent*:#dkthunder,#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) {
      inc %totalcuses
      set %dtevent $2- 
      unset %eventview  
      msg #dkthunder $s2(A new event has been set, Type) $s1(!event) $s2(to veiw it.) $s1(For more commands on DarkThunder type) $s4(!info)
    }
  }
  elseif {%dtevent !== off) {
    notice $nick $s2(There is already an event set.) $s1(Type !delevent then try again)
  }
}



on $*:TEXT:/^[!@]event/Si:#dkthunder,#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*:#dkthunder,#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 #dkthunder $s2(DarkThunder's Current Event is:) $s1(%dtevent) $+ !  
        timerauto 0 %eventtime msg #dkthunder $s2(DarkThunder's Current Event is:) $s1(%dtevent) $+ !
      set %dteventtime on }
    }
  }
}


on *:TEXT:!stopevent*:#dkthunder,#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*:#dkthunder,#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
      timerauto off
    msg #dkthunder $s1(The Event has been removed!) }
  }
}


on *:TEXT:!setnews*:#dkthunder,#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) {
      unset %dtnews OFF
      inc %totalcuses
      set %dtnews $2-  
      msg #dkthunder $s2(Some new "News" has been set, Type) $s1(!news) $s2(to veiw it.) $s1(For more commands on DarkThunder type) $s2(!info)
  } }
  elseif {%dtnews !== off) {
    notice $nick $s2(There is already some news set.) $s1(Type !delnews then try again)
  }
}


on $*:TEXT:/^[!@]news/Si:#dkthunder,#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*:#dkthunder,#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 #dkthunder $s1(%dtnews) $+ !  
        set %dtnewstime on
      timerautos 0 %newstime msg #dkthunder $s1(%dtnews) $+ ! }
    }
  }
}


on *:TEXT:!stopnews*:#dkthunder,#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*:#dkthunder,#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 #dkthunder $s1(The News has been removed!) }
  }
}


ON *:TEXT:*:#Jolly,#dkthunder:{
  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)?g(g)?(a|e)?(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
}