;==== Popup Menus ====
menu status {
Connect
.MagicStar:/server atlantis.magicstar.net 7000
.StarChat:/server magic.starchat.net 7000
Join
.Join #Grendel's_Hideaway:/join #Grendel's_Hideaway
.Join #Magicstar:/join #Magicstar
.Join Crypt:/join #TheVampiresCrypt
.Join ?:/join #$$?="Enter a channel to join:"
}

menu nicklist {
Control
.Ops
..Op:/mode # +oooooooo $$1-
..Deop:/mode # -oooooooo $$1-
..-
..Voice:/mode # +vvvvvvvv $$1-
..Devoice:/mode # -vvvvvvvv $$1-
..-
..Deop/Voice:/mode # -oooooooo $$1- | /mode # +vvvvvvvv $$1-
..-
..$style(2) MSN Owner:/mode # +qqqqqqqq $$1-
..$style(2) MSN DeOwner:/mode # -qqqqqqqq $$1-
..-
..Chanserv Ops
...Op:{
  /msg chanserv op # $$1-
}
...Deop:{
  /msg chanserv deop # $$1-
}
...-
...Voice:{
  /msg chanserv voice # $$1-
}
...Devoice:{
  /msg chanserv devoice # $$1-
}
...-
...Deop/Voice:{
  /msg chanserv voice # $$1-
  /msg chanserv deop # $$1-
}
...-
...Deop/Devoice:{
  /msg chanserv deop # $$1-
  /msg chanserv devoice # $$1-
}
.-
.Kick/Ban
..Kick:/kick $$1- -§- G -§-
..Kick (why):/kick $$1- $$?="Reason for kick:"
..-
..Ban:/ban $$1- 2
..Ban, Kick:/ban $$1- 3 | /kick $$1- 
.-
.Ignore:/ignore $$1 1
.Unignore:/ignore -r $$1 1
-
Info
.Whois:/whois $$1
.UserHost:/userhost $$1-
.Query:/query $$1
.UCentral:/uwho $1
.-
.CTCP  
..Ping:/ctcp $$1 ping
..Finger:/ctcp $$1 finger
..Version:/ctcp $$1 version
..Time:/ctcp $$1 time
.DCC
..Send:/dcc send $$1
..Chat:/dcc chat $$1
}

;==== CTCPs ====
ctcp *:PING:*:{
  /echo 2 -at ***Ping Request From: 1 $+ $nick 2***
}

on *:CTCPREPLY:*ping*:{
  %pingtime = $ctime - $2
  if (%pingtime < 1) { /echo 2 -at *** PING Reply of 1 $+ <1 second 2from 1 $+ $nick | /halt }
  elseif (%pingtime == 1) { /echo 2 -at *** PING Reply of1 1 second 2from 1 $+ $nick | /halt }
  else { /echo 2 -at *** PING Reply of1 %pingtime seconds 2from 1 $+ $nick | /halt }
}

ctcp *:SOUND:*:{
  set %soundexist.w $wavedir $+ $2
  set %soundexist.m $mididir $+ $2
  if (($exists(%soundexist.w) == $false) && ($exists(%soundexist.m) == $false)) {
    if ($chan == $null) { /query $nick | /echo $nick $chr(91) $+ 2 $+ $nick plays 8,2 $nopath( $2- ) $+ $chr(32) $+ 2,0 $+ $chr(93) - Sound file doesn't exist! | /halt }
    else { /echo # $chr(91) $+ 2 $+ $nick plays 8,2 $nopath( $2- ) $+ $chr(32) $+ 2,0 $+ $chr(93) - Sound file doesn't exist! | /halt }
  }
  else {
    if ($chan == $null) { /query $nick | /echo $nick $chr(91) $+ 2 $+ $nick plays 8,2 $nopath( $2- ) $+ $chr(32) $+ 2,0 $+ $chr(93) }
    else { /echo # $chr(91) $+ 2 $+ $nick plays 8,2 $nopath( $2- ) $+ $chr(32) $+ 2,0 $+ $chr(93) }
    splay $2
  }
  halt
}

ctcp *:VERSION:*:{
  if ($chan == $null) { echo 2 -at *** CTCP of 1 $+ $1 2from 1 $+ $nick }
  else { echo # 2*** CTCP of 1 $+ $1 2from 1 $+ $nick }
  ctcpreply $nick VERSION Grendel's Abyss Script for mIRC 5.7 - Not available in stores..
  halt
}

ctcp *:SCRIPT:*:{
  if ($chan == $null) { echo 2 -at *** CTCP of 1 $+ $1 2from 1 $+ $nick }
  else { echo # 2*** CTCP of 1 $+ $1 2from 1 $+ $nick }
  ctcpreply $nick SCRIPT Grendel's Abyss Script for mIRC 5.7 - Not available in stores..
  halt
}

ctcp *:TIME:*:{
  if ($chan == $null) { echo 2 -at *** CTCP of 1 $+ $1 2from 1 $+ $nick }
  else { echo # 2*** CTCP of 1 $+ $1 2from 1 $+ $nick }
  ctcpreply $nick TIME $fulldate
  halt
}
ctcp *:AWAY:*:{
  if ($chan == $null) {
    if ($2 != $null) { echo 2 -at *** 1 $+ $nick 2has been marked as away. Reason: 1 $+ $2- }
    else { echo 2 -at *** 1 $+ $nick 2is no longer away. }
  }
  else { 
    if ($2 != $null) { echo 2 -t # *** 1 $+ $nick 2has been marked as away on channel 1 $+ $chan 2. Reason: 1 $+ $2- }
    else { echo 2 -t # *** 1 $+ $nick 2is no longer away on channel 1 $+ $chan 2. }
  }
  halt
}

ctcp *:DCC:*:{
  if ($2 == chat) { /echo 2 -at >>> DCC Chat Request from 1 $+ $nick 2<<< }
  else { /echo 2 -at >>> DCC $2 Request from 1 $+ $nick 2: $3 }
}

ctcp *:*:*:{ 
  if ($chan == $null) { /echo 2 -at *** CTCP of 1 $+ $1 2from 1 $+ $nick 2:1 $2- }
  else { /echo # 2*** CTCP of 1 $+ $1 2from 1 $+ $nick 2:1 $2- }
}
on *:CTCPREPLY:*:{ /echo 2 -at *** CTCP Reply of 1 $+ $1 2from 1 $+ $nick 2: 1 $+ $2- | /halt }

;==== Sound Aliases ====
alias mid {
  unset %midi.to.play
  if ($1 == $null) {
    set %midi.to.play $dir="Choose the MIDI to be played:" $mididir
    if (%midi.to.play == $null) goto end
    set %midi.size $calc($file(%midi.to.play).size / 1024)
    splay stop
    sound $active %midi.to.play
    if ($active != #Magicstar) {
      say 15[14mi5d14i15] 5! $+ $me 14 $+ $nopath(%midi.to.play) 15[14 $+ $round(%midi.size,1) $+ 5kb15]
    }
    else { 
      echo $active $chr(91) $+ 2 $+ Playing 8,2 $nopath(%midi.to.play) $+ $chr(32) $+ 2,0 $+ $chr(93)
    }
  }
  else {
    if (.mid isin $1) set %midi.to.play $mididir $+ $$1-
    else set %midi.to.play $mididir $+ $$1- $+ .mid
    set %midi.size $calc($file(%midi.to.play).size / 1024)
    splay stop    
    sound $active %midi.to.play
    if ($active != #Magicstar) {
      say 15[14mi5d14i15] 5! $+ $me 14 $+ $nopath(%midi.to.play) 15[14 $+ $round(%midi.size,1) $+ 5kb15]
    }
    else {    
      echo $active $chr(91) $+ 2 $+ Playing 8,2 $nopath(%midi.to.play) $+ $chr(32) $+ 2,0 $+ $chr(93)
    }
  }
  :end
  unset %midi.to.play
  unset %midi.size
}

alias wav {
  unset %wav.to.play
  if ($1 == $null) {
    set %wav.to.play $file="Choose the WAV to be played:" $wavedir
    if (%wav.to.play == $null) goto end
    set %wav.size $calc($file(%wav.to.play).size / 1024)
    splay stop
    sound $active %wav.to.play $2-
    if ($active != #Magicstar) { 
      say 15[14w5a14v15] 5! $+ $me 14 $+ $nopath(%wav.to.play) 15[14 $+ $round(%wav.size,1) $+ 5kb15]
    }
    else {
      echo $active $chr(91) $+ 2 $+ Playing 8,2 $nopath(%wav.to.play) $+ $chr(32) $+ 2,0 $+ $chr(93)
    }
  }
  else {
    if (.wav isin $1) set %wav.to.play $wavedir $+ $$1
    else set %wav.to.play $wavedir $+ $$1 $+ .wav
    set %wav.size $calc($file(%wav.to.play).size / 1024)
    splay stop   
    sound $active %wav.to.play $2-
    if ($active != #Magicstar) { 
      say 15[14w5a14v15] 5! $+ $me 14 $+ $nopath(%wav.to.play) 15[14 $+ $round(%wav.size,1) $+ 5kb15]
    }
    else {    
      echo $active $chr(91) $+ 2 $+ Playing 8,2 $nopath(%wav.to.play) $+ $chr(32) $+ 2,0 $+ $chr(93)
    }
  }
  :end
  unset %wav.to.play
  unset %wav.size
}

;==== RAWs ====
raw 353:*:{
  echo 2 $3 ==============================
  echo 2 $3 Users on 1 $+ $3 $+ 2:
  echo 1 $3 $4-
  halt
}
raw 366:*:{
  echo 2 $2 ==============================
  halt
}

;--- Whois Raws ---

raw 301:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 1 $+ $2 2is away: 1 $+ $3- | /halt
raw 307:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3- | /halt
raw 309:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3- | /halt
raw 310:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3- (HelpOp) | /halt
raw 311:*:{
  /window -ke @Whois- $+ $network
  /aline -hp @Whois- $+ $network ==============================
  /aline -hp @Whois- $+ $network 1 $+ $2 is 1 $+ $6-
  /aline -hp @Whois- $+ $network 0 $+ $2 2Host: 1 $+ $3 $+ @ $+ $4
  /halt
}
raw 312:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2Server: 1 $+ $3 2- $4- | /halt
raw 313:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3- | /halt
raw 614:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2Modes: 1 $+ $7- | /halt
raw 314:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network ============================== | /aline -hp @Whois- $+ $network 1 $+ $2 2was 1 $+ $3 $+ @ $+ $4 | /aline -hp @Whois- $+ $network 0 $+ $2 2was 1 $+ $6- | /halt
raw 317:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2Idle:1 $duration($3) 2Signed on: 1 $+ $asctime($4) | /halt
raw 318:*:/halt
raw 319:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2Channels: 1 $+ $3- | /halt
raw 320:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2is a bot. | /halt
raw 369:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network ============================== | /halt
raw 378:*:{
  /window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3-
  /set %userhost.mask $5
  /halt
}
raw 379:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3- | /halt
raw 380:*:/window -ke @Whois- $+ $network | /aline -hp @Whois- $+ $network 0 $+ $2 2 $+ $3- | /halt

raw 327:*:{ /echo 2 -at - 1 $+ $2 2is on channels: 1 $+ $7- | /halt }

;--- Numerically Ordered Raws ---

raw 1:*:{ /window -ke @SN- $+ $network | /aline -hp @SN- $+ $network <S> $timestamp 12 $2- | /halt }
raw 2:*:{ /window -ke @SN- $+ $network | /aline -hp @SN- $+ $network <S> $timestamp 12 $2- | /halt }
raw 3:*:{ /window -ke @SN- $+ $network | /aline -hp @SN- $+ $network <S> $timestamp 12 $2- | /halt }
raw 4:*:{ /window -ke @SN- $+ $network | /aline -hp @SN- $+ $network <S> $timestamp 12 $2- | /halt }
raw 5:*:{ /window -ke @SN- $+ $network | /aline -hp @SN- $+ $network <S> $timestamp 12 $2- | /halt }

raw 212:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2Server commands -1 $2- 2- | /halt }
raw 213:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2C-lines -1 $2- 2- | /halt }
raw 214:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2N-lines -1 $2- 2- | /halt }
raw 216:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2K-lines -1 $2- 2- | /halt }
raw 219:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2End of STATS Report: 1 $+ %stats.id 2- | /echo 2 -t - End of STATS Report: 1 $+ %stats.id 2- | /halt }
raw 221:*:/echo 2 -at - User Modes for 1 $+ $1 $+ : $2- 2- | /halt
raw 222:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2Q-lines -1 $2- 2- | /halt }
raw 242:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2Server Info -1 $2- 2- | /halt }
raw 243:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2O-lines -1 $2- 2- | /halt }
raw 244:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2H-lines -1 $2- 2- | /halt }
raw 249:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2Server Info - 1 $2- | /halt }
raw 250:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2Server Info -1 $2- 2- | /halt }
raw 251:*:{
  /window -ke @Stats- $+ $network 
  /linesep @Stats- $+ $network
  /aline -hp @Stats- $+ $network USER COUNTS 
  /aline -hp @Stats- $+ $network 2User Counts - Users: 1 $4 2- 
  /aline -hp @Stats- $+ $network 2User Counts - Invisible: 1 $7 2- 
  /aline -hp @Stats- $+ $network 2User Counts - Servers: 1 $10 2- 
  /halt
}
raw 252:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2User Counts - IRCops: 1 $2 2- | /halt }
raw 253:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2User Counts - Unknown: 1 $2 2- | /halt }
raw 254:*:{ /window -ke @Stats- $+ $network | /aline -hp @Stats- $+ $network 2User Counts - Channels: 1 $2 2- | /halt }
raw 255:*:{ 
  /window -ke @Stats- $+ $network
  /aline -hp @Stats- $+ $network 2User Counts - Clients: 1 $4 2- 
  /aline -hp @Stats- $+ $network 2User Counts - Linked Servers: 1 $7 2-
  /linesep @Stats- $+ $network
  /halt
}
raw 265:*:{
  /window -ke @Stats- $+ $network
  /aline -hp @Stats- $+ $network 2User Counts - Current Local Users: 1 $5 2-
  /aline -hp @Stats- $+ $network 2User Counts - Maximum Local Users: 1 $7 2-
  /halt 
}
raw 266:*:{
  /window -ke @Stats- $+ $network
  /aline -hp @Stats- $+ $network 2User Counts - Current Global Users: 1 $5 2-
  /aline -hp @Stats- $+ $network 2User Counts - Maximum Global Users: 1 $7 2-
  /linesep @Stats- $+ $network
  /linesep @Stats- $+ $network
  /halt
}

;raw 302:*:
raw 305:*:/echo 2 -at - You are no longer marked as away. - | /halt
raw 306:*:/echo 2 -at - You are now marked as away. - | /halt
raw 324:*:/echo 2 -t $2 - Channel modes for 1 $+ $2 $+ : $3- 2- | /halt
raw 329:*:/echo 2 -t $2 - Channel: 1 $+ $2 2created: 1 $+ $asctime($3-) 2- | /halt
raw 331:*:/echo 2 -t $2 - No topic is set on channel: 1 $+ $2 2- | /halt
raw 332:*:/echo 2 -t $2 - Topic for channel 1 $+ $2 $+ 2: 1 $+ $3- 2- | /halt
raw 333:*:/echo 2 -t $2 - Topic for channel 1 $+ $2 2 set by 1 $+ $3 2on: 1 $+ $asctime($4) 2- | /halt
raw 341:*:/echo 2 -t $3 - 1 $+ $1 2invited 1 $+ $2 2to channel: 1 $+ $3 2- | /halt
raw 349:*:/echo 2 -t $2 - End of Channel Exceptions List: 1 $+ $2 2- | /halt
raw 371:*:/echo 2 -at - $2- - | /halt
raw 372:*:/aline -hp @MOTD $2- | /halt
raw 374:*:/echo 2 -at - End of server info - | /halt
raw 375:*:/window -keh @MOTD | /aline -hp @MOTD -- $2- -- | /halt
raw 376:*:/aline -hp @MOTD -- End of Message of the Day -- | /halt

raw 401:*:/echo 2 -at - $3- 1- $2 2- | /halt
raw 402:*:/echo 2 -at - No such nick/server: 1 $+ $2 2- | /halt
raw 403:*:/echo 2 -at - No such channel: 1 $+ $2 2- | /halt
raw 421:*:/echo 2 -at - Unknown Command: 1 $+ $2 2- | /halt
raw 429:*:/echo 2 -at - $3- - | /halt
raw 432:*:/echo 2 -at - 1 $+ $1 2is an erroneous nickname. 2- | /halt
raw 433:*:/echo 2 -at - Nickname 1 $+ $2 2is already in use! 2- | /halt
raw 438:*:/echo 2 -at - Nick change to 1 $+ $2 2too fast. $7- 2- | /halt
raw 443:*:/echo 2 -at - 1 $+ $2 2is already on channel: 1 $+ $3 2- | /halt
raw 461:*:{
  if ($2 == mode) { halt }
  else { /echo 2 -at *** Insufficient Parameters for Command: 1 $+ $2
    halt
  }
}
raw 468:*:/echo 2 -t $2 - Only the server can change that mode. - | /halt
raw 472:*:/echo 2 -at - Unknown mode character: 1 $+ $2 2- | /halt
raw 481:*:/echo 2 -at - Permission Denied: Insufficient IRCop Privileges - | /halt
raw 482:*:/echo 2 -at - $3- on: 1 $+ $2 2- | /halt

raw 501:*:/echo 2 -at - $2- 2- | /halt
raw 502:*:/echo 2 -at - Cannot change modes for other users. - | /halt

raw 801:*:/echo 2 -t $2 - 1 $+ $4 2added to 1 $+ $2 2access list at 1 $+ $3 2level. | /halt
raw 802:*:/echo 2 -t $2 - 1 $+ $4 2deleted from 1 $+ $2 2access list at 1 $+ $3 2level. | /halt
raw 803:*:/echo 2 -t $2 - Access list for channel: 1 $+ $2 2- | /halt
raw 804:*:/echo 2 -t $2 - 1 $+ $4 2 $+ $3 | /halt
raw 805:*:/echo 2 -t $2 - End of access list. - | /halt
raw 818:*:/echo 2 -t $2 - $3 message for channel 1 $+ $2 2: 1 $+ $4- | /halt
raw 819:*:/echo 2 -t $2 - End of channel properties. | /halt
raw 820:*:{
  if ($3 == *) { /echo 2 -t $2 - Access list cleared on channel 1 $+ $2 2of all levels - | /halt }
  else { /echo 2 -t $2 - Access list cleared on channel 1 $+ $2 2of level: $3 - | /halt }
}

raw 900:*:/echo 2 -at - Bad command: 1 $+ $2 2- | /halt
raw 901:*:/echo 2 -at - Too many arguments for command: 1 $+ $2 2- | /halt
raw 903:*:/echo 2 -at - Bad level: 1 $+ $2 2- | /halt
raw 905:*:/echo 2 -at - Bad property specified. - | /halt
raw 908:*:/echo 2 -at - No permissions to perform command - | /halt
raw 913:*:/echo 2 -t $2 - You have no access to channel 1 $+ $2 2- | /halt
raw 914:*:/echo 2 -at - Duplicate Access Entry - | /halt
raw 915:*:/echo 2 -at - Unknown Access Entry - | /halt
raw 922:*:/echo 2 -at - Some access list entries not cleared due to security. - | /halt

raw 0:*:{
  if ($4 == Appears) { /echo 2 -t $1 - 1 $+ $nick 2 is using MSChat character: 1 $+ $6- 2- | /halt }
  elseif (($2 == CCUDI1) && ($4 != Appears)) { /halt }
  elseif (($2 == CCUDI1) && ($4 == $null)) { /halt }
  elseif ($2 == 474) { /echo 2 -t $1 - Knock from: 1 $+ $nick 2on channel: 1 $+ $1 2- Address is Banned - | /halt }
  else { /echo 2 -t $1 - PROP change by 1 $+ $nick 2on channel 1 $+ $1 2: 1 $+ $2- - | /halt }
}

;===================
;on ^*:SNOTICE:*chatops*:{
;/query ChatOps
;echo -lt  ChatOps 2 $+ $2 $3 $4 1 $+ $5 4 $6-
;/haltdef
;}
;on 1:INPUT:ChatOps:{
; if ( $chr(47) isin $1 ) {
;  if ( me isin $1 ) { /co < $+ $2- $+ > | haltdef }
; goto end
;}
;else { /co $1- | haltdef }
;:end
;}
;on ^*:SNOTICE:*chatadm*:{
;/query ChatAdm
;echo -lt  ChatAdm 2 $+ $2 $3 $4 1 $+ $5 12 $+ $6-
;/haltdef
;}
;on 1:INPUT:ChatAdm:{
; if ( $chr(47) isin $1 ) {
; if ( me isin $1 ) { /ca < $+ $2- $+ > | haltdef }
; goto end
;}
;else { /ca $1- | haltdef }
;:end
;}
;==================

;--- Server Notices ---

on ^*:SNOTICE:*chatops*:{
  /window -ke @COps- $+ $network
  /echo -lt @COps- $+ $network 2 $+ $2 $3 $4 1 $+ $5 4 $6-
  /halt
}
on 1:INPUT:@COps*:{
  if ( $chr(47) isin $1 ) {
    if ( me isin $1 ) { /co < $+ $2- $+ > | haltdef }
    goto end
  }
  else { /co $1- | haltdef }
  :end
}

on ^*:SNOTICE:*chatadm*:{
  /window -ke @CAdmin- $+ $network
  /echo -lt @CAdmin- $+ $network 2 $+ $2 $3 $4 1 $+ $5 4 $6-
  /halt
}
on 1:INPUT:@CAdmin*:{
  if ( $chr(47) isin $1 ) {
    if ( me isin $1 ) { /ca < $+ $2- $+ > | haltdef }
    goto end
  }
  else { /ca $1- | haltdef }
  :end
}

;-------

alias co {
  /chatops : $$1-
  ;echo 7 -aet <O> You sent chatops: $$1-
}

alias ca {
  /chatadm : $$1-
  ;echo 7 -aet <A> You sent chatadmins: $$1-
}

alias co.log {
  if ($1 == $null) log $$?="Loggin for @COps- $+ $network ON or OFF?" @COps- $+ $network -f @COps- $+ $network.log 
  else log $1 @COps- $+ $network -f @COps- $+ $network.log
}

alias ca.log {
  if ($1 == $null) log $$?="Loggin for @CAdmin- $+ $network ON or OFF?" @CAdmin- $+ $network -f @CAdmin- $+ $network.log 
  else log $1 @CAdmin- $+ $network -f @CAdmin- $+ $network.log
}

;-------

on ^*:SNOTICE:*userhost*:{
  /window -ke @SN- $+ $network
  aline -hp @SN- $+ $network <EYES> $timestamp 10 $+ $2-
  haltdef
}
on ^*:SNOTICE:*whois*:{
  /window -ke @SN- $+ $network
  aline -hp @SN- $+ $network <EYES> $timestamp 10 $+ $2-
  haltdef
}  
on ^*:SNOTICE:*received kill*:{
  /window -ke @SN- $+ $network
  aline -hp @SN- $+ $network <KILL> $timestamp 4 $+ $4- 
  haltdef
}
on ^*:SNOTICE:*client*:{
  /window -ke @SN- $+ $network
  aline -hp @SN- $+ $network <C> $timestamp 12 $+ $4-
  haltdef
}
on^*:SNOTICE:*remote*:{
  /window -ke @SN- $+ $network
  aline -hp @SN- $+ $network <LINK> $timestamp 3 $+ $8 linking to $5 on port $9 at the request of  $+ $11
  haltdef
} 
;on ^*:SNOTICE:*connecting to*:{
; /window -ke @SN- $+ $network
;aline -hp @SN- $+ $network <LINK> $timestamp 3 From $nick $+ : Connecting to $4
;haltdef
;}
on ^*:SNOTICE:*operator*:{ 
  /window -ke @SN- $+ $network
  if ($10 === (o)) { set %op.snotice local }
  else { set %op.snotice global }
  aline -hp @SN- $+ $network <O> $timestamp 4 $+ $4 $5 is now a %op.snotice operator
  haltdef
}
;========
;Server Login SNotices
;========
on ^*:SNOTICE:*Looking up*host*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

on ^*:SNOTICE:*Check*ident*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

on ^*:SNOTICE:*Received*ident*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

on ^*:SNOTICE:*Found*host*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

on ^*:SNOTICE:*If*problem*ping timeout*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

on ^*:SNOTICE:*If*assistance*connecting*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

on ^*:SNOTICE:*Checking*SOCKS*:{
  /echo -s <S> $timestamp 12 $+ $1-
  haltdef
}

;=======
;DEFAULT SNOTICE DIRECTIVE
;=======
on ^*:SNOTICE:*:{
  /window -ke @SN- $+ $network
  aline -hp @SN- $+ $network <S> $timestamp 12 $+ $1-
  haltdef
}
;=======

;==== Aliases ====
alias ping /ctcp $1- ping
alias chat /dcc chat $1-
alias send /dcc send $1-
alias version /ctcp $1- version
alias ctcp {
  /ctcp $$1-
  if ($2 == SOUND) { goto end }
  else { /echo 2 -at *** CTCP of 1 $+ $2- 2sent to 1 $+ $1 }
  :end
  /halt
}
alias mode {
  if ($1 == $null) { mode # }
  else { mode $1- }
}
alias topic {
  if ($1 == $null) { topic # }
  else { topic $1- }
}


alias away {
  if ( $1 == $null ) { set %away.reason None given }
  else { set %away.reason $1- }
  set %away.time $fulldate
  set %tbinfo.away Away: Since %away.time
  away %away.reason - Pager: /ctcp $me PAGE
  ame is away. Reason - $chr(91)  $+ %away.reason  $+ $chr(93) - Since:  $+ %away.time - Pager: /ctcp $me PAGE
  ;  enable #away.join.notice
  tbinfo
}
alias back {
  raw -q away
  ame is no longer away. Back from - $chr(91)  $+ %away.reason  $+ $chr(93) - Since:  $+ %away.time
  ;  disable #away.join.notice
  unset %tbinfo.away
  tbinfo
}
;-----------------------------------
;-- SERVICES SHORTCUTS --
;-----------------------------------
alias ns /.msg nickserv $$1-
alias cs /.msg chanserv $$1-
alias ms /.msg memoserv $$1-
;-----------------------------------
;-----------------------------------
;--POWER--
;-----------------------------------
alias op /mode $chan +oooooooo $$1-
alias voice /mode $chan +vvvvvvvv $$1-
alias deop /mode $chan -oooooooo $$1-
alias devoice  /mode $chan -vvvvvvvv $$1-
alias cs.id /chanserv identify $chan $$1-
alias addop {
  if ($1 == $null) /chanserv access $$?="Channel?" add $$?="Nickname?" $$?="Access level?" | else /chanserv access # add $$1 $$2
}
alias delop {
  if ($1 == $null) /chanserv access $$?="Channel?" del $$?="Nickname?"  | else /chanserv access # del $$1
}
alias akick.add {
  if ($1 == $null) /chanserv akick # add $$?="Who to add?" 4,1 $$?="Reason?" 9§6-15Grendel6-9§ | else /chanserv akick $1 add $2 4,1 $$3- 9§6-15Grendel6-9§
}
alias akick.list {
  if ($1 == $null) /chanserv akick # list | else /chanserv akick $$1 list
}
alias akick.del {
  if ($1 == $null) /chanserv akick # del $$?="Which entry to delete?" | else /chanserv akick $1 del $$2
}
;-----------------------------------