---Page One---

alias s1 { return $+($chr(3),10,$1-) }
alias s2 { return $+($chr(3),04,$1-) }
alias s3 { return $+($chr(3),7,$1-) }
alias s4 { return $+($chr(3),14,$1-) } 
alias s5 { return $+($chr(3),09,$1-) } 


on *:CONNECT:{ join #dtchat | timer 1 1 join #darkthunder | /ns id darkthunderbot | /mode $me +B }


on *:KICK:#: {
  if ($knick == $me) inc %kinvite [ $+ [ $chan ] ]
}
on *:INVITE:#: {
  set $+(%,nick.,$chan)
  if (%kinvite [ $+ [ $chan] ] == 5) notice $nick $s1(Sorry, your channel is blacklisted! Join #Jolly to ask this to be removed!)
  else {
    join $chan 
    inc %invcount 
    { timer 1 4 msg $chan $s1(Thanks for the invite!) :: $s2(Ive been invited to) $s3(> %invcount <) $s2(Channels!) :: $s1(Make me part by typing) $s2(!Part $me)      
      if ($chan(0) < 30) { join $chan }  
      else { notice $chan Sorry, i'm already in to many channels. Try again later.! }
    }
  }
}


on *:TEXT:!part*:#: {
  if ($2 == $me) {
    inc %totalcuses
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) { 
    msg $chan $s1(Thanks for using !Part) - $s2(Parting $chan - Part Command used by $nick ) - $s3(Reinvite me soon!)  }  { | /part $chan  }
  }
}

on $*:TEXT:/^[@!]tip/si:#: {
  if ($2 !== $null) {
    Set %msgstyle.tip notice $2 
  }
  Elseif ($2 == $Null) {
  Set %msgstyle.tip $iif($left($1,1) = @,msg #,notice $nick) }
  {
    %msgstyle.tip $s2(Tip.It's Site:) $s1(http://www.tip.it)
  }
}


on $*:TEXT:/^[@!]site/si:#darkthunder,#dtchat: {
  inc %totalcuses
  if ($2 !== $null) {
    Set %msgstyle.site notice $2 
  }
  Elseif ($2 == $Null) {
  Set %msgstyle.site $iif($left($1,1) = @,msg #,notice $nick) }
  {
  %msgstyle.site $s1(Link to DarkThunder's clan forum:) $s2(http://darkthunder.net) }
}


on $*:TEXT:/^[@!]ml/si:#darkthunder,#dtchat: {
  inc %totalcuses
  if ($2 !== $null) {
    Set %msgstyle.ml notice $2 
  }
  Elseif ($2 == $Null) {
  Set %msgstyle.ml $iif($left($1,1) = @,msg #,notice $nick) }
  %msgstyle.ml $s1(Link to DarkThunder's MemberList:) $s2(www.Runehead.com/clans/ml.php?clan=dark_thunder) 
}


on $*:TEXT:/^[@!]W1/si:#: {
  inc %totalcuses
  if ($2 !== $null) {
    Set %msgstyle.w1 notice $2 
  }
  Elseif ($2 == $Null) {
  Set %msgstyle.w1 $iif($left($1,1) = @,msg #,notice $nick) }
  %msgstyle.w1 $s1(http://darkthunder.net/World1.html) $s2(~ World 1 Link ~) $s3(F2P) 
}

on $*:TEXT:/^[@!]W2/si:#: {
  inc %totalcuses
  if ($2 !== $null) {
    Set %msgstyle.w2 notice $2 
  }
  Elseif ($2 == $Null) {
  Set %msgstyle.w2 $iif($left($1,1) = @,msg #,notice $nick) }
  %msgstyle.w2 $s1(http://darkthunder.net/World2.html) $s2(~ World 2 Link ~) $s3(P2P) 
}

on $*:TEXT:/^[@!]W6/si:#: {
  inc %totalcuses
  if ($2 !== $null) {
    Set %msgstyle.w6 notice $2 
  }
  Elseif ($2 == $Null) {
  Set %msgstyle.w6 $iif($left($1,1) = @,msg #,notice $nick) }
  %msgstyle.w6 $s1(http://darkthunder.net/World6.html) $s2(~ World 6 Link ~) $s3(P2P) 
}

on $*:TEXT:/^[@!]totcuse/si:#: {
  Set %msgstyle.total $iif($left($1,1) = @,msg #,notice $nick)
%msgstyle.total $s1(In total my commands have been used) $s2(> %totalcuses <) $s1(times!) }

on $*:text:/^[!@](clock|time)/Si:#: $iif(@* iswm $strip($1),msg #,notice $nick) $s1(GMT ~~~) $s2(Its Now) $s3 $+ " $+ $time $+ " $s1(~~~ GMT) 
on $*:text:/^[!@](date|data)/Si:#: $iif(@* iswm $strip($1),msg #,notice $nick) $s1(~~~) $s2(The Date Is) $s3 $+ " $+ $date $+ "  $S1(~~~)