Aliases
F3 say $dde(mPlug,format,"[NowPlaying/%name/%min_Mins;%sec_Sec~/%br~Kbps/%sr~KHz]//")

Remotes
alias amsg { amsg 7,1· [7,1AM10,1SG7,1] · $1-
}

alias wi { /say 11,1 Wikipedia Result For $1: http://en.wikipedia.org/wiki/ $+ $1 
}

on *:TEXT:.wiki *:#:{  if ($nick isreg $chan) { halt }
  msg $chan 11,1 Wikipedia Result For  $2:  http://en.wikipedia.org/wiki/ $+ $2 
}

on *:TEXT:.gr *:#:{  if ($nick isreg $chan) { halt }
  msg $chan 10,7Congratulations 7,10 $2 10,7 $3- $+ ! 
}

alias cgr { /say 10,7Congratulations 7,10 $1 10,7 $2 $+ ! 
}

alias F3 { set %song.type $dde(mPlug,var_fn) 
  if (.wmv isin %song.type) || (.nsv isin %song.type) || (.avi isin %song.type) || (.mpg isin %song.type) { 
    say $dde(mPlug,format,"[NowWatching/%name/%min_Mins;%sec_Sec~/%br~Kbps/%sr~KHz]// ) 
  }    
  else { 
  say $dde(mPlug,format,"[NowPlaying/%name/%min_Mins;%sec_Sec~/%br~Kbps/%sr~KHz]//_)  } 
}

alias tb { ban -ku $+ $calc($$1 * 60) $active $$2 2 [Reason: $$2- ] $+ [ %kick.count Killed ]// }
on *:KICK:#: { if ($nick = $me) { inc %kick.count 1 } }

on *:text:!tb *:#:{  if (($nick isop $chan) || ($nick isop $chan)) ban -ku $+ $calc($2 * 60) $chan $3 3  [Reason: $4- ]  $+  [ %kick.count Killed ]//
}

on *:start: {
  if (!%away.ignorechans) afk.chignore #idle-rpg
  if (!%away.ignorenicks) afk.nkignore Idle-Bot
}
alias afk.chignore %away.ignorechans = %away.ignorechans $1-
alias afk.nkignore %away.ignorenicks = %away.ignorenicks $1-

alias /afk {
  if (!$0) { echo $color(info) -a * /away: Need more parameters | halt }
  set %away.time $ctime
  set %away.rsn $1-
  scon -atl awaymsg
}

alias awaymsg {
  var %x = 1
  while (%x <= $comchan($me,0)) {
    if (!$istok(%away.ignorechans,$comchan($me,%x),32)) msg $comchan($me,%x) [IAmNowAway] [Reason: %away.rsn $+ ] [ Pager: On ]//
    inc %x
  }
}

alias /back {
  scon -atl backmsg
  .timer 1 3 unset %away.time
  .timer 1 3 unset %away.rsn
  unset %away.hilight
}

alias backmsg {
  var %x = 1
  while (%x <= $comchan($me,0)) {
    if (!$istok(%away.ignorechans,$comchan($me,%x),32)) msg $comchan($me,%x) [IAmBackFromAway] [Reason: $- %away.rsn $+ ] [ Duration: $duration($calc($ctime - %away.time)) ]//
    inc %x
  }
}

on *:notice:*:?: {
  if (%away.time) {
    if ((!$istok(%away.ignorenicks,$nick,32)) && (!$istok(%away.hilight,$nick,32))) {
      %away.hilight = %away.hilight $nick
      .notice $nick I Am Away. [Reason: $- %away.rsn $+ ]  I Have Been Gone For $duration($calc($ctime - %away.time)) $+ . "/Ctcp $me PAGE Message" To Leave Me A Message [One Time Response To Highlight]
    }
  }
}

on *:notice:*:#: {
  if (($me isin $1-) && (%away.time)) {
    if ($window(@highlights) == $null) window @highlights
    echo -t @highlights $+([,$network,],$chr(32),[,$chan,],$chr(32),<,$nick,>) $1-
    echo @highlights -
    if (!$istok(%away.highlight $nick)) {
      %away.hilight = %away.hilight $nick
    .notice $nick I Am Away. [Reason: $- %away.rsn $+ ]  I Have Been Gone For $duration($calc($ctime - %away.time)) $+ . "/Ctcp $me PAGE Message" To Leave Me A Message [One Time Response To Highlight]    }     
  }
}

on *:text:*:#: {
  if ($me isin $1-) {
    if ($window(@highlights) == $null) window @highlights
    echo -t @highlights $+([,$network,],$chr(32),[,$chan,],$chr(32),<,$nick,>) $1-
    echo @highlights -
    if (!%away.time) beep 1
    elseif (!$istok(%away.ignorenicks,$nick,32)) {
      if (!$istok(%away.hilight,$nick,32)) {
        %away.hilight = %away.hilight $nick
        .notice $nick I Am Away. [Reason: $- %away.rsn $+ ]  I Have Been Gone For $duration($calc($ctime - %away.time)) $+ . "/Ctcp $me PAGE Message" To Leave Me A Message [One Time Response To Highlight]
      }
    }
  }
}

on *:text:*:?: {
  if ((%away.time) && (!$istok(%away.ignorenicks,$nick,32))) {
    if (!$istok(%away.hilight,$nick,32)) {
      %away.hilight = %away.hilight $nick
      .notice $nick I Am Away. [Reason: $- %away.rsn  $+] I Have Been Gone For $duration($calc($ctime - %away.time)) $+ . "/Ctcp $me PAGE Message" To Leave Me A Message [One Time Response To Highlight]
    }
  }
}

on *:action:*:#: {
  if ($me isin $1-) {
    if ($window(@highlights) == $null) window @highlights
    echo -t @highlights $+([,$network,],$chr(32),[,$chan,],$chr(32),<,$nick,>) $1-
    echo @highlights -
    if (!%away.time) beep 1
    elseif (!$istok(%away.ignorenicks,$nick,32)) {
      if (!$istok(%away.hilight,$nick,32)) {
        %away.hilight = %away.hilight $nick
        .notice $nick I Am Away. [Reason: $- %away.rsn $+ ] I Have Been Gone For $duration($calc($ctime - %away.time)) $+ . "/Ctcp $me PAGE Message" To Leave Me A Message [One Time Response To Highlight]

      }
    }
  }
}

on *:action:*:?: {
  if ((%away.time) && (!$istok(%away.ignorenicks,$nick,32))) {
    if (!$istok(%awawy.hilight,$nick,32)) {
      %away.hilight = %away.hilight $nick
    .notice $nick I Am Away. [Reason: $- %away.rsn $+ ]  I Have Been Gone For $duration($calc($ctime - %away.time)) $+ . "/Ctcp $me PAGE Message" To Leave Me A Message [One Time Response To Highlight]    }
  }
}

ctcp ^*:PAGE: {
  if (%!away.time) {
    notice $nick I'm Not Currently Away. | haltdef | halt
  }
  if (!$window(@page. $+ $network)) window -a @page. $+ $network
  echo -t @page. $+ $network $nick $+ : $lower($2-)
  echo @page. $+ $network -
  haltdef
}

on *:start: .set %kcount 1 

on *:kick:#: { 
  if ($nick == $me) { 
    inc %kcount 
  } 
} 
on *:load: { 
  %shitlist.scan 1 
  %shitlist.who 1 
  %shitlist.nowho 1 
  %shitlist.globan 1 
  .enable #shitlist 
} 
alias slist { 
  if ($dialog(shitlist) == $null) dialog -m shitlist shitlist 
  else echo $color(info) -a * /slist: Shitlist dialog already open 
} 
dialog shitlist { 
  title "HatShit v3.0 [/slist]" 
  size -1 -1 624 354 
  tab "Users", 1, 12 18 600 267 
  tab "Options", 2 
  list 3, 19 43 588 118, tab 1 
  text "Hostmask (*!*@*) :", 4, 19 157 99 17, tab 1 
  edit "", 5, 18 178 589 20, tab 1 
  text "Reason (Leave blank for default message) :", 6, 16 201 211 17, tab 1 
  edit "", 7, 16 227 590 20, tab 1 
  button "Add to Shitlist", 8, 82 248 150 25, tab 1 
  button "Remove from Shitlist", 9, 392 248 150 25, tab 1 
  check "Scan for shitlisted nicks on op/halfop", 10, 19 46 197 17, tab 2 
  check "When shitlisted, global ban user", 11, 19 66 175 17, tab 2 
  text "Default Shitlist Reason", 12, 18 86 114 17, tab 2 
  edit %shitlist.defmsg, 13, 18 107 274 20, tab 2 
  check "/who $chan on join", 14, 18 127 115 17, tab 2 
  check "Hide /who response", 15, 17 146 117 17, tab 2 
  check "Shitlist on", 16, 16 167 100 17, tab 2 
  button "Edit Entry", 17, 237 248 150 25, tab 1 
  text "HatShit v3.0 by Hatty", 99, 202 301 220 17, center 
  button "Save", 100, 202 324 220 25, ok 

} 
on *:dialog:shitlist:sclick:*: { 
  if ($did == 3) { 
    did -ra $dname 5 $did(3).seltext 
    did -ra $dname 7 $ulist($did(3).seltext).info 
  } 
  elseif ($did == 8) { 
    if ($level($did(5).text) != shit) { 
      .auser shit $did(5).text $iif($did(7).text != $null,$did(7).text,%shitlist.defmsg) 
      if (%shitlist.globan) global $did(5).text $iif($did(7).text != $null,$did(7).text,%shitlist.defmsg) 
      did -a $dname 3 $did(5).text 
      did -r $dname 5,7 
    } 
    else { 
      echo $color(info) -a * User Is Already On ShitList, Use The Edit Button.
    } 
  } 
  elseif ($did == 9) { 
    .ruser shit $did(3).seltext 
    did -d $dname 3 $did(3).sel 
    did -r $dname 5,7 
  } 
  elseif ($did == 10) %shitlist.scan   = $did($dname,10).state 
  elseif ($did == 11) %shitlist.globan = $did($dname,11).state 
  elseif ($did == 14) %shitlist.who    = $did($dname,14).state 
  elseif ($did == 15) %shitlist.nowho  = $did($dname,15).state 
  elseif ($did == 16) { 
    if (($did($dname,16).state) && ($group(#shitlist) == off)) .enable #shitlist 
    elseif (($did($dname,16).state == 0) && ($group(#shitlist) == on)) .disable #shitlist 
  } 
  elseif ($did == 17) { 
    .ruser shit $did(3).seltext 
    .auser shit $did(5).text $did(7).text 
    did -o $dname 3 $did(3).sel $did(5.text) 
    did -r $dname 5,7 
  } 
} 
on *:dialog:shitlist:edit:13: { 
  %shitlist.defmsg = $iif($did($dname,13).text != $null,$did($dname,13),Raging Idiot) 
} 
on *:dialog:shitlist:init:*: { 
  populateShitlist 
  if (%shitlist.scan == 1)   did -c $dname 10 
  if (%shitlist.globan == 1) did -c $dname 11 
  if (%shitlist.who == 1)    did -c $dname 14 
  if (%shitlist.nowho == 1)  did -c $dname 15 
  if ($group(#shitlist).status == on)     did -c $dname 16 
} 
alias populateShitlist { 
  var %x 1 
  while (%x <= $ulist(*,shit,0)) { 
    did -a shitlist 3 $ulist(*,shit,%x) 
    inc %x 
  } 
} 
alias echoShitlist { 
  var %x 1 
  echo 12 -a -------------------- 
  echo 12 -a |HatShit by Hatty $str( ,3) $+ \ 
  echo 12 -a |Shitlist: $str( ,11) $+ \ 
  echo 12 -a ------------------------------------------------------------ 
  while (%x <= $ulist(*,shit,0)) { 
    echo 3 -a $ulist(*,shit,%x) 
    echo 3 -a $ulist(*,shit,%x).info 
    if ($ulist(*,shit,$calc(%x +1)) != $null) echo 3 -a - 
    inc %x 
  } 
  echo 12 -a ------------------------------------------------------------ 

} 
on *:dialog:shitlist:close:*: { 
  %shitlist.scan = $did($dname,10).state 
  %shitlist.globan = $did($dname,11).state 

  %shitlist.who = $did($dname,14).state 
  %shitlist.nowho = $did($dname,15).state 
  if (($did($dname,16).state) && ($group(#shitlist) == off)) .enable #shitlist 
  elseif (($did($dname,16).state == 0) && ($group(#shitlist) == on)) .disable #shitlist 
} 
#shitlist on 
on shit:join:#: { 
  if (($me isop $chan) || ($me ishop $chan)) { 
    kb $nick Shitlisted Address [Reason: $+($ulist($fulladdress).info,]) 
  } 
} 
menu channel { 
  - 
  Shitlist: slist 
  Echo Shitlist to Main: echoshitlist 
} 
menu nicklist { 
  - 
  Shitlist 
  .$address($$1,0) : shit $$1 0 
  .$address($$1,1) : shit $$1 1 
  .$address($$1,2) : shit $$1 2 
  .$address($$1,3) : shit $$1 3 
  .$address($$1,4) : shit $$1 4 
  .$address($$1,5) : shit $$1 5 
  .$address($$1,6) : shit $$1 6 
  .$address($$1,7) : shit $$1 7 
  .$address($$1,8) : shit $$1 8 
  .$address($$1,9) : shit $$1 9 
  .- 
  .Shitlist Dialog: slist 
  .Echo Shitlist to Current Window: echoshitlist 
} 
on *:op:#: { 
  if (($opnick == $me) && (%shitlist.scan == 1)) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      if ($level($ulist($address($nick($chan,%x),5))) == shit) { 
        kb $nick($chan,%x) Shitlisted Address [Reason: $ulist($address($nick($chan,%x),5)).info $+ ]
      } 
      inc %x 
    } 
  } 
} 
on *:helpop:#: { 
  if (($helpnick == $me) && (%shitlist.scan == 1)) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      if ($level($ulist($address($nick($chan,%x),5))) == shit) { 
        kb $nick($chan,%x) Shitlisted Address 4[Reason: $ulist($address($nick($chan,%x),5)).info $+ ] 
      } 
      inc %x 
    } 
  } 
} 
#shitlist end 
on *:join:#: { 
  if (($nick == $me) && (%shitlist.who == 1)) who $chan 
} 
raw 315:*: { 
  if (%shitlist.nowho) haltdef 
} 
raw 352:*: { 
  if (%shitlist.nowho) haltdef 
} 
alias kb { 
  if ($1 isnum) { 
    ban -ku $+ $1 $chan $$2 2 $iif($3 != $null, $3-,ShitListed) [[ $+ $1 Second Ban] [Kickcount: $+(%kick.count,]) $+  
  } 
  else { 
    ban -k $chan $$1 2 $iif($2 != $null,$2-,ShitListed) [Kickcount: $+(%kick.count,]) $+  
  } 
} 
alias k { 
  kick $chan $1 $iif($2 != $null,$2-,ShitListed) [Kickcount: $+(%kick.count,]) $+  
} 
alias shit { 
  var %reason = $iif($3 != $null,$3-,$?="Reason: Blank = Default Message") 
  if (%reason == $null) %reason = %shitlist.defmsg 
  .auser shit $address($$1,$$2) %reason 
  kb $$1 ShitListed [Reason: %reason $+ ]
  var %x = 1 
  var %i = 1 
  if (%shitlist.globan == 1) { 
    while (%x <= $comchan($me,0)) { 
      if ($comchan($me,%x) != $chan) { 
        msg $comchan($me,%x) Globally Banning ' $+ $address($1,$2) $+ ' [[ $+ $1 $+ ]] For Reason:  $+ %reason $+  
        if ($1 ison $comchan($me,%x)) kick $comchan($me,%x) $1 Shitlisted. 5[Kickcount: $+(%kick.count,]) 
        mode $comchan($me,%x) +b $address($1,$2) 
      } 
      %i = 1 
      while (%i <= $nick($comchan($me,%x),0)) { 
        if ($address($1,$2) == $address($nick($comchan($me,%x),%i),$2)) { 
          if ($1 != $nick($comchan($me,%x),%i)) { 
            kick $comchan($me,%x) Clone Searcher [ $+ $1 $+ ] [Kickcount: $+(%kick.count,]) $+  
          } 
        } 
        inc %i 
      } 
      inc %x 
    } 
  } 
} 
alias global { 
  var %x = 1 
  if (%shitlist.globan == 1) { 
    while (%x <= $comchan($me,0)) { 
      if ($comchan($me,%x) != $chan) { 
        msg $comchan($me,%x) Globally Banning ' $+ $1 $+ '  For Reason:  $+ $2- $+  
        mode $comchan($me,%x) +b $1 
      } 
      inc %x 
    } 
  } 
}

alias timestamp { !timestamp $1- | saveini }
on ^*:TEXT:*:#:{
  var %i = 0
  var %line = $1-
  while (%i < $numtok($1-,32)) {
    inc %i 1
    if ($gettok($1-,%i,32) ison $chan) {
      if ($gettok($1-,%i,32) isop $chan) {
        var %line = $replace(%line,$gettok($1-,%i,32), 4 $+ $gettok($1-,%i,32) $+ )
      }
      elseif ($gettok($1-,%i,32) ishop $chan) {
        var %line = $replace(%line,$gettok($1-,%i,32), 7 $+ $gettok($1-,%i,32) $+ )
      }
      elseif ($gettok($1-,%i,32) isvoice $chan) {
        var %line = $replace(%line,$gettok($1-,%i,32), 10 $+ $gettok($1-,%i,32) $+ )
      }
    }
  }
  if ($nick isop $chan) {
    var %nick = (  4@ $+ $nick $+   )
  }
  elseif ($nick ishop $chan) {
    var %nick = (  7% $+ $nick $+   )
  }
  elseif ($nick isvoice $chan) {
    var %nick = (  10+ $+ $nick $+   )
  }
  else {
    var %nick = (   $+  $nick  $+   )
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    echo $chan %nick %line
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    echo $chan $timestamp %nick %line
  }
  haltdef
}
on *:INPUT:#:{
  if (/ == $left($1,1)) { return }
  if ($me isop $chan) {
    var %nick = 7(4  @7 $+ $me )
  }
  elseif ($me ishop $chan) {
    var %nick = 7(7  % $+ $me )
  }
  elseif ($me isvoice $chan) {
    var %nick = 7(10  +7 $+ $me )
  }
  else {
    var %nick = 7( $me )
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    echo $chan %nick $1-
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    echo $chan $timestamp %nick $1-
  }
  .msg $chan $1-
  halt
}