rendered paste bodyAliases
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
}