/ScriptServ

;/**********************************************************************
; *
; * aIRC
; * EOP.mrc 
; *
; **********************************************************************/
;
alias _numeric {
  if ($numeric) || (%::numeric) { return $ifmatch }
}
alias _ircnum {
  if (%::ircnum != $null) { return $ifmatch }
  if ($server) { return 0 }
}
alias _checkison {
  if (%::ircnum) { return $_irc.ison($ifmatch,$1,$2) }
  if ($server) && ($1 ison $2) { return 1 }
  return 0
}
ON *:START:{ ^playthemesound START }
ON *:CONNECT:{
  ^playthemesound CONNECT
  unset %c.quit.*
}
ON *:DISCONNECT:{
  if (%c.quit.i) {
    ^playthemesound MEQUIT
    info.s Your quit message: %c.quit.reason
  }
  else { ^playthemesound DISCONNECT }
  unset %c.quit.*
}
ON *:KICK:#:{
  if ($knick == $me) { ^playthemesound MEKICK }
  else { ^playthemesound KICK }
}
ON ME:*:NICK:{ ^playthemesound MENICK }
ON ME:*:JOIN:#:{ ^playthemesound MEJOIN }
ON *:JOIN:#:{ ^playthemesound JOIN }
ON ME:*:PART:#:{ ^playthemesound MEPART }
ON *:PART:#:{ ^playthemesound PART }
ON *:INVITE:#:{ ^playthemesound INVITE }
ON *:QUIT:{ ^playthemesound QUIT }
ON *:DEOP:#:{
  if ($opnick == $me) { ^playthemesound MEDEOP }
}
ON *:OP:#:{
  if ($opnick == $me) { ^playthemesound MEOP }
}
ON *:SERVEROP:#:{
  if ($opnick == $me) { ^playthemesound MEOP }
}
ON *:SENDFAIL:*:{ ^playthemesound SENDFAIL }
ON *:GETFAIL:*:{ ^playthemesound GETFAIL }
ON *:FILESENT:*:{ ^playthemesound FILESENT }
ON *:FILERCVD:*:{ ^playthemesound FILERCVD }

; If these 5 weren't halted, then play some music
CTCP &*:DCC CHAT:?:{ ^playthemesound CHATREQUEST }
CTCP &*:DCC SEND:?:{ ^playthemesound SENDREQUEST }
ON &*:DCCSERVER:CHAT:{ ^playthemesound CHATREQUEST }
ON &*:DCCSERVER:SEND:{ ^playthemesound SENDREQUEST }
ON &^*:OPEN:?:{ ^playthemesound QUERY }

alias ^*** { return ••• }
alias ^b { return  $+ $1- $+  }
alias ^sn* { return [S] }
alias ^hn { return $_color(highlight) $+ $1- $+  }
alias ^hb { return  $+ $colour(highlight) $+  $+ $1- $+  }
alias ^warncol { return $1- }
alias ^errcol { return $1- }
alias ^warncolor { return $colour(info) }
alias ^errcolor { return $colour(ctcp) }
alias ^u { return  $+ $1- $+  }
alias ^r { return  $+ $1- $+  }
alias ^c { return [ $+ $1- $+ ] }
alias ^p { return ( $+ $1- $+ ) }
alias ^' { return ' $+ $1- $+ ' }
alias ^" { return " $+ $1- $+ " }
alias ^bp { return [ $+ $1- $+ ] }
alias ^n { return $remove($replace($1-,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9),) }
alias ^popupon { return > }
alias ^popupoff { return - }
alias ^whois {
  if (%=whois.yataecho1 == $null) {
    ^whois.start
    if (%=whois.channels != $null) { ^whois.channels }
  }
  ^whois.end
}
alias ^chanickopvoice {
  if (. isin $2) { return . $+ $1 }
  if (@ isin $2) { return @ $+ $1 }
  if (+ isin $2) { return + $+ $1 }
  return $1
}

ON &*:INPUT:Status Window:{
  %+input.string = $1-
  _hook.call inputstatus
  unset %+input.string
  if ($result == $null) && (/* !iswm $1) {
    $1-
    halt
  }
}
ON &*:INPUT:?:{
  if (($ctrlenter) || (/* !iswm $1)) && ($inpaste == $false) && ($_connected) {
    %+input.string = $1-
    if ($inpaste == $false) { _hook.call inputquery }
    if (%+input.string != $null) { say $ifmatch }
    unset %+input.string
    if ($away) && ($_minio(0,9)) { back }
    halt
  }
}
ON &*:INPUT:#:{
  if (($ctrlenter) || (/* !iswm $1)) && ($_connected) && ($me ison $active) {
    %+input.string = $1-
    if ($inpaste == $false) { _hook.call inputchan }
    if (%+input.string != $null) { say $ifmatch }
    unset %+input.string
    if ($away) && ($_minio(0,9)) { back }
    halt
  }
}
ON *:BAN:#:{
  if (%+onban.nicks != $null) {
    %:echo = echo $colour(mode) -t $chan
    %::banmask = $banmask
    %::bannednicks = $replace(%+onban.nicks,$chr(32),$chr(44))
    ^ban
  }
}
ON *:UNBAN:#:{
  if (%+onunban.nicks != $null) {
    %:echo = echo $colour(mode) -t $chan
    %::banmask = $banmask
    %::bannednicks = $replace(%+onunban.nicks,$chr(32),$chr(44))
    ^unban
  }
}
ON *:CHAT:Closing Idle connection in 30 seconds...:{
  if (%~~fserveantiidle. [ $+ [ $nick ] ] == $null) {
    info.w = $+ $nick File Server Anti-Idle
    msg = $+ $nick $_randtok(cd help,32)
  }
  set -u15 %~~fserveantiidle. $+ $nick 1
}
alias f1 { _fkey 1 }
alias f2 { _fkey 2 }
alias f3 { _fkey 3 }
alias f4 { _fkey 4 }
alias f5 { _fkey 5 }
alias f6 { _fkey 6 }
alias f7 { _fkey 7 }
alias f8 { _fkey 8 }
alias f9 { _fkey 9 }
alias f10 { _fkey 10 }
alias f11 { _fkey 11 }
alias f12 { _fkey 12 }
alias sf1 { _fkey 1 s }
alias sf2 { _fkey 2 s }
alias sf3 { _fkey 3 s }
alias sf4 { _fkey 4 s }
alias sf5 { _fkey 5 s }
alias sf6 { _fkey 6 s }
alias sf7 { _fkey 7 s }
alias sf8 { _fkey 8 s }
alias sf9 { _fkey 9 s }
alias sf10 { _fkey 10 s }
alias sf11 { _fkey 11 s }
alias sf12 { _fkey 12 s }
alias cf1 { _fkey 1 c }
alias cf2 { _fkey 2 c }
alias cf3 { _fkey 3 c }
;;; alias cf4 { _fkey 4 c }
alias cf5 { _fkey 5 c }
alias cf6 { _fkey 6 c }
alias cf7 { _fkey 7 c }
alias cf8 { _fkey 8 c }
alias cf9 { _fkey 9 c }
alias cf10 { _fkey 10 c }
alias cf11 { _fkey 11 c }
alias cf12 { _fkey 12 c }

alias -l _fkey {
  var %n = 0,%var = % $+ ~fkey. $+ $1,%tvar = % $+ ~fkey.cs $+ $1,%cnt,%flags,%duration,%command,%seton,%alias = $1
  if (s isin $2) || ($mouse.key & 4) { var %n = %n + 1,%var = % $+ ~fkey.s $+ $1,%alias = s $+ $1 }
  if (c isin $2) || ($mouse.key & 2) { var %n = %n + 2,%var = % $+ ~fkey.c $+ $1,%alias = c $+ $1 }
  if (%n == 3) {
    %alias = cs $+ $1
    if ( [ [ %tvar ] ] != $null) { %cnt = $ifmatch }
  }
  elseif ( [ [ %var ] ] != $null) { %cnt = $ifmatch }
  if ($_getsetup(binds,%alias) != $null) { %command = $ifmatch }
  elseif (%cnt != $null) {
    var %seton = $gettok(%cnt,1,32),%flags = $gettok(%cnt,2,32),%duration = $gettok(%cnt,3,32),%command = $gettok(%cnt,4-,32)
    if (o isin %flags) && ($_not($_connected)) { return }
  }
  if (%command != $null) { $ifmatch }
}
; raw *:*:{ info.s > $numeric $1- }