;Direct Commands
;Status: Working (Thanks Vai)
on 30:text:001;*:#ShockServ-Staff:{ 
  if ($2 == join) { join $iif($3,$3,$chan) }
  if ($2 == part) { part $iif($3,$3,$chan) }
  if ($2 == die) { disconnect }
  if ($2 == restart) { disconnect | /server ShockStar.PA.US.XeonNET.net }
  if ($2 == nick) { /tnick $3 }
  if ($2 == adduser ) { /guser -a $4 $3 }
  if ($2 == say ) { /msg $3 $4- }
  if ($2 == spy ) && ($3 == on ) { /set %spy1 $4 | /notice #ShockServ-Staff 7,1S10,1pying initiated $+ ! | /halt }
  if ($2 == spy ) && ($3 == off ) { /notice #ShockServ-Staff 7,1S10,1pying Deactivated! | /unset %spy1 }
  if ($2 == dump) && ($3 != $null) && ( $nick == bfen ) || ( $nick == Vai ) { $eval($3-,2) }
}
on 30:text:*:#ShockServ-Staff:{ 
  if ( $1 == @TurnOff ) { /disconnect }
  if ( $1 == @accesscheck ) { /chanaccesscheck }
  if ( $1 == @Restart ) { /disconnect | /server ShockStar.PA.US.XeonNET.net }
  if ( $1 == @Gmsg ) && (*c* !iswmcs $chan($chan).mode) {
    gmsg 7,1G10,1lobal Message from $nick $+ : $2- 
  }
  elseif (*c* iswmcs $chan($chan).mode) && ($1 == @gmsg) {
    gmsg Global Message from $nick $+ : $remove($2-,)
  }
}
if ( $1 == @adduser ) { /guser -a $3 $2 }
if ( $1 == @accesscheck ) { /chanaccesscheck }
; Features
on *:text:*:#:{
  if ( $chan = #shockserv ) { halt }
  if ( $chan = #shockserv-staff ) { halt }
  if ( $1 == .voice ) && ( $2 != $null ) && ( $nick isop # ) { /mode # +v $2- } 
  if ( $1 == .devoice ) && ( $2 != $null ) && ( $nick isop # ) { /mode # -v $2- } 
  if ( $1 == .op ) && ( $2 != $null ) && ( $nick isop # ) { /mode # +o $2- }
  if ( $1 == .deop ) && ( $2 != $null ) && ( $nick isop # ) { /mode # -o $2- }
  if ( $1 == .kick ) && ( $2 != $null ) && ( $nick isop # ) { /kick $2- }
  if ( $1 == .mode ) && ( $2 != $null ) && ( $nick isop # ) { /mode # $2 }
  if ( $1 == .commands ) { /notice $nick 10,1«0,1«10,1Voice 6,1:: 10,1Devoice 6,1:: 10,1Kick 6,1:: 10,1Op 6,1:: 10,1Deop 6,1:: 10,1Mode 6,1:: 10,1Whois0,1»10,1» }
  if ( $1 == .shocktrivia ) { /ctcp ShockServ`Trivia comeinplease $chan }
  if ( $1 == .requesthelp ) { /msg #ShockServ-Staff 9,1(0,1HELP9,1)0,1 $nick needs help in $chan with:   $+ $2- $+  | /notice $nick 7,1A10,1 ShockServ Staff member will be with you as soon as possible. Please stand by... }
}
; Join announcements
; Status: Working

on 30:JOIN:#:{
  if ($chan != #ShockServ) && ($chan != #ShockServ-Staff) {
    msg $chan 7,1 $+  $nick  $+ 10,1 is 7,1S10,1upport Staff10,1 at 6,1#10,1ShockServ and will be auto voiced.
    mode $chan +v $nick
  }
}
on 50:JOIN:#:{
  if ($chan != #ShockServ) && ($chan != #ShockServ-Staff) {
    msg $chan 10,1 $+ $nick $+ 10,1 is a 7,1D10,1eveloper at 7,1#10,1ShockServ and will be auto-voiced!
    mode $chan +v $nick
  }
}
on 70:JOIN:#:{
  if ($chan != #ShockServ) && ($chan != #ShockServ-Staff) {
    msg $chan 10,1 $+ $nick $+ 10,1 is a 7,1D10,1eveloper and 7,1S10,1taff at 7,1#10,1ShockServ and will be auto-voiced!
    mode $chan +v $nick
  }
}
on 100:JOIN:#:{
  if ($chan != #ShockServ) && ($chan != #ShockServ-Staff) {
    msg $chan 10,1 $+ $nick $+ 10,1 is 7,1H10,1ead 7,1A10,1dmin and a 7,1D10,1eveloper 10,1at 7,1#10,1ShockServ and will be auto-voiced!
    mode $chan +v $nick
  }
}
on 10:JOIN:#:{
  if ($chan != #ShockServ) && ($chan != #ShockServ) {
    msg $chan 10,1 $+ $nick $+ 10,1 is 7,1T10,1rial 7,1S10,1taff at 7,1#10,1ShockServ and will be auto-voiced!
    mode $chan +v $nick
  }
}
; Staff Alerts
; Status: Working (Thanks Vai)
on *:KICK:#:{
  if ( $knick = $me ) { /notice #ShockServ-Staff 9,1(0,1KICKED9,1) 7,1B10,1ot: $me 6,1-//- 7,1C10,1hannel: $chan 6,1-//- 7,1O10,1ffender: $nick | /msg $chan 7,1K10,1icking $me is forbidden. }
}
on *:BAN:#:{ set %yesimwhoising $me | set %yesthisbanmask $banmask | set %yesthisbanchannel $chan | set %yesthisoffender $nick | /whois $me }
raw 311:*:{ if ($2 == %yesimwhoising) { set %mymask $4 | banmaskcheck | halt } }
raw *:*:{ if ($mid($numeric,1,1) == 3) && ($2 == %yesimwhoising) { halt } }
alias banmaskcheck { if (%mymask == %yesthisbanmask) || (%mymask isin %yesthisbanmask) || { notice #shockserv-staff 9,1(0,1BANNED9,1)0 7,1B10,1ot: $me 6,1-//- 7,1C10,1hannel: %yesthisbanchannel 6,1-//- 7,1O10,1ffender: %yesthisoffender | .timer 1 2 unset %yesimwhoising | .timer 1 2 unset %yesthisbanmask | .timer 1 2 unset %yesthisbanchannel | /.timer 1 2 unset %yesthisoffender } }

on *:TEXT:*:*:{
  if ( $1 == Register ) && ( $nick = ShockServ`Apps ) { /join $2 }
  if ( $1 == Delchan ) && ( $nick = ShockServ`Apps ) { /part $2 Channel unregistered: $3 }
  if ( $1 == unsuspend ) && ( $2 == remove ) { /join $3 }
}
alias chanaccesscheck { 
  var %cac 1 
  while (%cac <= $chan(0)) { 
    if ($chan(%cac) != #shockserv) { 
      cs $chan(%cac) a 
      inc %cac 
    }
    else inc %cac
  }
}
on ^*:NOTICE:*:?:{ 
  if ($nick == ChanServ) { 
    if ($1 == $me) {
      if ($4 == access) { 
        if ($3 == has) {
          if ($remove($5,$chr(2)) < 400) { 
            haltdef 
            .msg #shockserv-staff 9,1(0,1ACCESS PROBLEM9,1)0,1 $remove($7,.) ------> $5 
            .msg $remove($7,.) 7,1I 10,1do not have the appropriate channel access. My access is $remove($5,$chr(2)) and $me requires at least 400. Please raise my access to at least 400.
          }
        }
        elseif ($3 == lacks) {
          haltdef 
          .msg #shockserv-staff 9,1(0,1ACCESS PROBLEM9,1)0,1 $remove($6,.) ------> NONE 
          .msg #ShockServ-staff n113  1I 1do not have the appropriate channel access. My access is 0 and ShockServ`001 requires at least 400. Please raise my access to at least 400.
        }
      }
    }
  } 
} 

---- New script ----

on *:text:*:#:{
  if ( $1 == .whois ) && ( $2 != $null ) && (%whoisflood != off) { set %whoisperson $2 | set %whoisflood off | .timer 1 7 unset %whoisflood | set %whoischannel $chan | msg %whoischannel 7,1W10,1hois %whoisperson Start | /whois $2 } 
}

raw 311:*:{ if (%whoisperson == $2) { msg %whoischannel 10,1Hostmask: $3 $+ $chr(64) $+ $4 | msg %whoischannel 10,1Fullname: $remove($6,:) | halt } }
raw 319:*:{ 
  if (%whoisperson == $2) { 
    if ($3 == $null) { msg %whoischannel 10,1Channels: None | halt } 
    if ($4 == $null) { msg %whoischannel 10,1Channels: $remove($3,:) | halt }
    if ($4 != $null) { msg %whoischannel 10,1Channels: $remove($3,:) $4- | halt }
  }
}
raw 312:*:{ if (%whoisperson == $2) { msg %whoischannel 10,1Server: $3 | halt } }
raw 330:*:{ if (%whoisperson == $2) { msg %whoischannel 10,1Auth account: $3 | halt } }
raw 318:*:{ if (%whoisperson == $2) { msg %whoischannel 7,1W10,1hois %whoisperson End | unset %whoisperson | unset %whoischannel | halt } } 


--- New script ---

alias exemptchans {
  ;LIST ALL CHANNELS YOU DO NOT WANT TO AMSG TO ON
  ;THE LINE BELOW, SEPARATED BY SPACES.
  ;DO NOT DELETE 'return'.
  return #shockserv #shockserv-staff
  ;DO NOT EDIT ANYTHING BELOW THIS LINE
  ;UNLESS YOU KNOW WHAT YOU'RE DOING.
}
alias gmsg {
  var %channum = $chan(0)
  var %chanlist
  if ($chan(%channum) !isin $exemptchans) {
    %chanlist = %chanlist $+ $chan(%channum)
    echo $chan(%channum) < $+ $me $+ > $1-
  }
  %channum = %channum - 1
  while (%channum != 0) {
    if ($chan(%channum) !isin $exemptchans) {
      %chanlist = %chanlist $+ , $+ $chan(%channum)
      echo $chan(%channum) < $+ $me $+ > $1-
    }
    %channum = %channum - 1
  }
  .quote PRIVMSG %chanlist : $+ $1-