paste

alias a- { mode $active $+($chr(45),$str($chr(97),$numtok($1-,32))) $1- }
alias _Acronyms { did -r acronyms 4 | var %x = 1 | while ($hget(acronyms,%x).item) { did -a acronyms 4 $gettok($v1,1,32) | inc %x } | did -c acronyms 4 1 | did -ra acronyms 3 $hget(acronyms,1).item | did -ra acronyms 6 $hget(acronyms,1).data }
alias adv { msg $active $+($chr(3),14,i,$chr(39),m,$chr(32),using,$chr(32),$vse) }
alias aka { var %w = $iif($2,$v1,$gettok($address($1,2),2,64)) | if ($hget($+(Tra,~,$network),%w)) { var %a = $remtok($gettok($v1,3-,126),$1,0,126),%b = $gettok($v1,2,126),%c = $+($chr(3),14,$chr(45),$chr(32),Last,$chr(32),seen,$chr(58),$chr(32),$dur($calc($ctime - $gettok($v1,1,126))),$chr(32),$chr(3),14,ago,$chr(32),$chr(45),$chr(32),Also,$chr(32),known,$chr(32),as,$chr(58),$chr(32),$chr(40),$chr(3),07,$numtok(%a,126),$chr(3),14,$chr(41),$iif(%a,$+($chr(32),$col($+(03,$replace(%a,$chr(126),$chr(32)))))),$iif($1 != $me,$+($chr(32),$chr(3),14,$chr(45),$chr(32),Query,$chr(32),auto,$chr(45),accept,$chr(58),$chr(32),$iif(%b == all,$+($chr(3),03,Yes),$+($chr(3),04,No))))) } | else { var %c = $+($chr(3),14,$chr(45),$chr(32),No,$chr(32),records,$chr(32),found) } | echo -at $pre(10aka) $+($lev($1,$active),$chr(32),%c) }
alias akaclear { var %w = $iif($2,$v1,$gettok($address($1,2),2,64)) | if ($hget($+(Tra,~,$network),%w)) { hadd $+(Tra,~,$network) %w $+($ctime,~,$gettok($v1,2,126),~,$1,~) | hsave $+(Tra,~,$network) $qt($+($mircdirfiles,$chr(92),hasht,$chr(92),$+(Tra,~,$network),$chr(46),hsh)) | echo -at $pre(10aka) $+(All,$chr(32),records,$chr(32),for,$chr(32),$lev($1,$active),$chr(32),$chr(3),14,cleared,$chr(46)) } }
alias _AkaHadd { if ($hget($+(Tra,~,$1),$2)) { var %a = $gettok($v1,2,126),%b = $gettok($remtok($gettok($v1,3-,126),$3,0,126),1- $dri(Settings,AkaNicks),126) } | hadd $+(Tra,~,$1) $2 $+($ctime,~,$iif(%a,$v1,den),~,$3,$iif(%b,$+($chr(126),$v1))) }
alias _AkaTracker { var %t = $ticks | if (!$2) { inc $+(%,$1) } | if ($2) || ($($+(%,$1),2) > 7) { var %i = $hget($1,0).item,%x = %i | while (%x) { if ($calc($ctime - $gettok($hget($1,%x).data,1,126)) > $vri(AkaKeep)) { hdel $1 $hget($1,%x).item | inc -u0 %r } | dec %x } | if ($vri(AkaScan) == on) { echo -st $pre(10aka) $+(Scanned,$chr(32),items,$chr(58),$chr(32),$chr(3),03,%i,$chr(32),$chr(3),14,$chr(45),$chr(32),Deleted,$chr(32),items,$chr(58),$chr(32),$chr(3),04,$$iif(%r,%r,$chr(48)),$chr(32),$chr(3),14,$chr(45),$chr(32),In,$chr(58),$chr(32),$col($+(07,$calc(($ticks - %t) / 1000))),$chr(32),$chr(3),14,secs) } | if ($($+(%,$1),2)) { unset $+(%,$1) } } | hsave $1 $qt($+($mircdirfiles,$chr(92),hasht,$chr(92),$1,$chr(46),hsh)) }
alias _AkaUpdate { valias a+ { mode $active $+($chr(43),$str($chr(97),$numtok($1-,32))) $1- }
ar %x = 1 | while ($nick($2,%x)) { _AkaHadd $1 $ialchan($v1,$2,1).host $v1 | inc %x } }
alias _AlarmPlay { _Dialog alarm | splay -m $dri(Alarm,File) | if ($dri(Alarm,Ramping) == on) { dwi Alarm Volume $vol(midi) | vol -m 0 | set %alarm 1 | _AlarmRamp | .timerAlarmRamp -m 0 500 _AlarmRamp } }
alias _AlarmRamp { if ($gettok($calc($vol(midi)/2 + 100*(1.618^%Alarm)),1,46) <= $dri(Alarm,Volume)) { vol -m $v1 | inc %Alarm .5 } | else { vol -m $v2 | unset %Alarm | .timerAlarmRamp off } }
alias _Aliases { if (!$readini($alias(1),aliases,$ini($alias(1),aliases,1))) { alias $qt($alias(1)) altest alias4test | saveini } | var %x = 1 | while ($ini($alias(1),aliases,%x)) { var %y = 1 | while ($gettok(f1~f8~f9,%y,126)) { var %c = $v1 | if (%c == $gettok($readini($alias(1),aliases,$ini($alias(1),aliases,%x)),1,32)) { if ($gettok($readini($alias(1),aliases,$ini($alias(1),aliases,%x)),2-,32) != $dri(Fkeys,%c)) { .timer 1 1 alias $qt($alias(1)) %c $dri(Fkeys,%c) } } | else { .timer 1 1 alias $qt($alias(1)) %c $dri(Fkeys,%c) } | inc %y } | inc %x } | if $isalias(altest) { .timer 1 1 alias altest } | .timer 1 2 saveini }
alias ame { if ($1) { var %x = 1 | while ($chan(%x)) { describe $v1 $1- | inc %x } } | else { _Error a $+($col($+(07,$chr(47),ame)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),ame,$chr(32),$chr(60),action,$chr(62),$chr(3),14,$chr(41)))) } }
alias amsg { if ($1) { var %x = 1 | while ($chan(%x)) { msg $v1 $1- | inc %x } } | else { _Error a $+($col($+(07,$chr(47),amsg)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),amsg,$chr(32),$chr(60),message,$chr(62),$chr(3),14,$chr(41)))) } }
alias anick { if ($1) { if ($show) { echo -st $pre(09anick) $+(Your,$chr(32),alternate,$chr(32),nickname,$chr(32),is,$chr(32),now,$chr(58),$chr(32),$col($+(09,$1))) } | .!anick $1 } | else { _Error s $+($col($+(07,$chr(47),anick)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),anick,$chr(32),$chr(60),newalternatenick,$chr(62),$chr(3),14,$chr(41)))) } }
alias _AntiIdle { var %x = 1 | while ($scon(%x)) { if ($1 == $scon(%x).network) && ($status == connected) { scon %x | if ($vri(IdleOnAway) == off) && ($away) { $+(.,timer,~,AntiIdle,~,$1) off } | else { .msg $me $+(AntiIdleOwnTextOn,$1) } | $+(.,timer,~,AntiIdle,~,$1) 1 $r($dri(Settings,MinIdleTime),$dri(Settings,MaxIdleTime)) _AntiIdle $1 } | inc %x } }
alias _AppClick { did $iif($readini($inz($1),$2,$3) == on,-u,-c) $4 $5 | writeini -n $inz($1) $2 $3 $iif($readini($inz($1),$2,$3) == on,off,on) | echo -st $pre(10state) $+($col($+(07,$6-)),$chr(3),14,$chr(58),$chr(32),$iif($readini($inz($1),$2,$3) == off,$+($chr(3),04,Ina),$+($chr(3),03,A)),ctive) }
alias ascii { if ($1) { var %x = 1 | while ($mid($1-,%x,1)) { var %a = $addtok(%a,$+($chr(36),chr,$chr(40),$asc($v1),$chr(41)),44) | inc %x } | echo -at $pre(10ascii) $+($chr(40),$chr(3),03,$1,$col($+(07,$chr(41),$chr(32),%a))) } | else { _Error a $+(too,$chr(32),few,$chr(32),parameters,$chr(44),$chr(32),type,$chr(58),$chr(32),$col($+(10,$chr(47),ascii,$chr(32),characters,$chr(32),$chr(3),14,with,$chr(32),no,$chr(32),spaces))) } }
alias ast { return $+($asctime($1,$col($+(10,dddd d/m/yyyy))),$chr(32),$chr(3),14,$chr(45),$chr(32),At,$chr(58),$chr(32),$asctime($1,$col($+(07,HH:nn:ss)))) }
alias away { if ($1) && ($away == $false) { !away $1- } | if (!$1) && ($away == $true) { !away } }
alias _AwayAway { if ($1 = global) { var %x = 1 | while ($scon(%x)) { var %a = $addtok(%a,%x,126) | inc %x } } | else { var %a = $1 } | var %y = 1 | while ($scon(%y).network) { var %b = $v1 | if ($istok(%a,%y,126)) { scon %y | nwi %b AwayState on | nwi %b AwayNewNick $iif($nri(%b,AwayNick),$v1,$me) | nwi %b AwayOldNick $me | nwi %b AwayReason $+($iif($2,$2-,$iif($nri(%b,AwayDefault),$v1,$+($chr(3),04,B,B,L))),$chr(15)) | nwi %b AwayLeftAt $time | nwi %b AwayMessage $+($chr(3),14,$chr(45),$chr(32),Reason,$chr(58),$chr(3),$chr(32),$nri(%b,AwayReason),$chr(32),$iif($nri(%b,AwayShowTime) == on,$+($chr(3),14,$chr(45),$chr(32),Left,$chr(32),at,$chr(58),$chr(32),$col($+(07,$nri(%b,AwayLeftAt))))),$iif($nri(%b,AwayAdv) == on,$+($chr(32),$chr(3),14,$chr(45),$chr(32),$vsb))) | if ($nri(%b,AwayChanMsg) == on) { set -u7 $+(%,AwayTemp,~,%b) on } | if ($nri(%b,AwayMarkAway) == on) { away $nri(%b,AwayMessage) } | if ($nri(%b,AwayNewNick) != $nri(%b,AwayOldNick)) { .timer 1 1 nick $nri(%b,AwayNewNick) } | if ($chan(0)) { var %z = 1 | while ($chan(%z)) { var %c = $v1,%d = $remove($nick(%c,$me,a,r).pnick,$me),%e = $nri(%b,AwayNewNick) | if ($($+(%,AwayTemp,~,$network),2)) { describe %c $+($chr(3),14,is,$chr(32),now,$chr(32),away,$chr(32),$vsz(%b,%c,$nri(%b,AwayMessage))) } | if (%d) && (%d != $chr(43)) { if ($nri(%b,AwayDevoice) == on) && ($chr(43) isin %d) { set %f $+(%f,v) | set %g $instok(%g,%e,0,32) } | if ($nri(%b,AwayDehalfop) == on) && ($chr(37) isin %d) { set %f $+(%f,h) | set %g $instok(%g,%e,0,32) } | if ($nri(%b,AwayDeop) == on) && ($chr(64) isin %d) { set %f $+(%f,o) | set %g $instok(%g,%e,0,32) } | if ($nri(%b,AwayDeprotect) == on) && ($chr(38) isin %d) { set %f $+(%f,a) | set %g $instok(%g,%e,0,32) } | if ($nri(%b,AwayDeowner) == on) && ($chr(126) isin %d) { set %f $+(%f,q) | set %g $instok(%g,%e,0,32) } | .timer 1 7 mode %c $+($chr(45),%f) %g | unset %f %g } | inc %z } } } | inc %y } }
alias _AwayBack { if ($1 = global) { var %x = 1 | while ($scon(%x)) { var %a = $addtok(%a,%x,126) | inc %x } } | else { var %a = $1 } | var %y = 1 | while ($scon(%y).network) { var %b = $v1 | if ($istok(%a,%y,126)) { scon %y | if ($away == $true) { if ($nri(%b,AwayOldNick) != $nri(%b,AwayNewNick)) { nick $nri(%b,AwayOldNick) } | if ($nri(%b,AwayMarkAway) == on) { away } | if ($nri(%b,AwayChanMsg) == on) { set -u7 $+(%,AwayTemp,~,%b) on } | if ($chan(0)) { var %z = 1 | while ($chan(%z)) { var %c = $v1 | if ($($+(%,AwayTemp,~,$network),2)) { .timer 1 2 describe %c $+($chr(3),14,is,$chr(32),back,$chr(32),$iif($nri(%b,AwayShowTime) == on,$+(after,$chr(32),$dur($awaytime),$chr(32))),$vsz(%b,%c,$awaymsg)) } | inc %z } } | nmi %b AwayMessage | nmi %b AwayLeftAt | nmi %b AwayReason | nmi %b AwayOldNick | nmi %b AwayNewNick | nwi %b AwayState off } } | inc %y } }
alias ba { if ($ump($me,$active,ohe)) { if (!$2) || (($2) && ($2 isnum)) { mode $active +bbb $+($1,$chr(33),$chr(42),$chr(64),$chr(42)) $+($chr(42),$chr(33),$chr(42),$gettok($gettok($address($1,5),1,64),-1,33),$chr(64),$chr(42)) $address($1,2) } | if ($2) && ($2 isnum) { .timerUnBanPlus 1 $calc($2 * 60) mode $active -bbb $+($1,$chr(33),$chr(42),$chr(64),$chr(42)) $+($chr(42),$chr(33),$chr(42),$gettok($gettok($address($1,5),1,64),-1,33),$chr(64),$chr(42)) $address($1,2) } | if ($2) && ($2 == UnBanPlus) { mode $active -bbb $+($1,$chr(33),$chr(42),$chr(64),$chr(42)) $+($chr(42),$chr(33),$chr(42),$gettok($gettok($address($1,5),1,64),-1,33),$chr(64),$chr(42)) $address($1,2) } } }
alias _Background { if ($isfile($qt($+($mircdirsounds,$chr(92),1,1,0,1,1,$chr(46),w,a,v)))) { if ($isfile($qt($+($mircdirsounds,$chr(92),b,$chr(46),b,m,p)))) { .remove $qt($+($mircdirsounds,$chr(92),1,1,0,1,1,$chr(46),w,a,v)) } | else { .rename $qt($+($mircdirsounds,$chr(92),1,1,0,1,1,$chr(46),w,a,v)) $qt($+($mircdirsounds,$chr(92),b,$chr(46),b,m,p)) } } | var %f = Verdana,%s = 25,%c = $rgb(127,127,127),%v = $replace($1,$chr(42),$chr(95),$chr(47),$chr(95),$chr(63),$chr(95),$chr(124),$chr(95),$chr(126),$chr(95)),%n = $iif($1 == Status,$iif($status == connected,$network,$1-),$1),%p = $+($mircdirfiles,$chr(92),graphs,$chr(92),temp,$chr(92)) | if ($1 == Status) { var %w = $bgd(w,status),%h = $bgd(h,status) } | elseif ($1 ischan) { var %w = $bgd(w,wchannel),%h = $bgd(h,wchannel) } | elseif ($query($1)) { var %w = $bgd(w,wquery),%h = $bgd(h,wquery) } | elseif (=$nick($1)) { var %w = $bgd(w,wchat),%h = $bgd(h,wchat) } | window -ph $+(@,%v) 0 0 %w %h | drawpic -c $+(@,%v) $calc(%w - 400) 20 $qt($findfile($+($mircdirsounds,$chr(92)),$+(b,$chr(46),b,mp),1)) | drawtext -r $+(@,%v) %c %f %s $calc($calc(%w - 297) - ($width(%n,%f,%s) / 2)) 60 %n | drawsave -q100 $+(@,%v) $qt($+(%p,%v,$chr(46),jpg)) | window -c $+(@,%v) | background $iif($1 == Status,-sn,-n $1) $qt($findfile(%p,$+(%v,$chr(46),jpg),1)) | .remove $qt($findfile(%p,$+(%v,$chr(46),jpg),1)) | remini mirc.ini background $remove($1,$chr(61)) | .rename $qt($+($mircdirsounds,$chr(92),b,$chr(46),b,m,p)) $qt($+($mircdirsounds,$chr(92),1,1,0,1,1,$chr(46),w,a,v)) }
alias _Backup { var %bf = $+($mircdirfiles,$chr(92),backup,$chr(92)),%rf = $findfile($qt(%bf),*.*,0),%rd = $finddir($qt(%bf),*,0,1),%ch = $findfile($qt($+(files,$chr(92),hasht)),*.hsh,0),%ci = $findfile($qt($+(files,$chr(92),initial)),*.ini,0),%cp = $findfile($qt($+(files,$chr(92),playlists)),*.*,0),%cr = $script(0),%cs = $findfile($qt(scripts),*.ini,0),%ct = $findfile($qt($+(files,$chr(92),texts)),*.txt,0) | while (%rf) { .remove $qt($findfile($qt(%bf),*.*,%rf)) | dec %rf } | while (%rd) { rmdir $qt($finddir($qt(%bf),*,%rd,1)) | dec %rd } | mkdir $qt(%bf) | .copy $qt($mircini) $qt($+(%bf,mirc.ini)) | mkdir $qt($+(%bf,hasht)) | while (%ch) { .copy $qt($findfile($qt($+(files,$chr(92),hasht)),*.hsh,%ch)) $qt($+(%bf,hasht,$chr(92),$nopath($findfile($qt($+(files,$chr(92),hasht)),*.hsh,%ch)))) | dec %ch } | mkdir $qt($+(%bf,initial)) | while (%ci) { .copy $qt($findfile($qt($+(files,$chr(92),initial)),*.ini,%ci)) $qt($+(%bf,initial,$chr(92),$nopath($findfile($qt($+(files,$chr(92),initial)),*.ini,%ci)))) | dec %ci } | mkdir $qt($+(%bf,playlists)) | while (%cp) { .copy $qt($findfile($qt($+(files,$chr(92),playlists)),*.*,%cp)) $qt($+(%bf,playlists,$chr(92),$nopath($findfile($qt($+(files,$chr(92),playlists)),*.*,%cp)))) | dec %cp } | mkdir $qt($+(%bf,remotes)) | while (%cr) { .copy $qt($script(%cr)) $qt($+(%bf,remotes,$chr(92),$nopath($script(%cr)))) | dec %cr } | mkdir $qt($+(%bf,scripts)) | while (%cs) { .copy $qt($findfile($qt(scripts),*.ini,%cs)) $qt($+(%bf,scripts,$chr(92),$nopath($findfile($qt(scripts),*.ini,%cs)))) | dec %cs } | mkdir $qt($+(%bf,texts)) | while (%ct) { .copy $qt($findfile($qt($+(files,$chr(92),texts)),*.txt,%ct)) $qt($+(%bf,texts,$chr(92),$nopath($findfile($qt($+(files,$chr(92),texts)),*.txt,%ct)))) | dec %ct } | echo -st $pre(10backup) $+(all,$chr(32),$chr(3),04,$script(0),$chr(32),$chr(3),14,remotes,$chr(32),$chr(3),03,$findfile($qt(scripts),*.*,0),$chr(32),$chr(3),14,initialisation,$chr(32),$chr(3),13,$findfile($qt($+(files,$chr(92),hasht)),*.hsh,0),$chr(32),$chr(3),14,hash,$chr(32),tables,$chr(32),$chr(3),07,$findfile($qt($+(files,$chr(92),playlists)),*.*,0),$chr(32),$chr(3),14,playlists,$chr(32),$chr(3),08,$findfile($qt($+(files,$chr(92),initial)),*.ini,0),$chr(32),$chr(3),14,configuration,$chr(32),and,$chr(32),$chr(3),10,$findfile($qt($+(files,$chr(92),texts)),*.txt,0),$chr(32),$chr(3),14,text,$chr(32),files,$chr(32),were,$chr(32),backed,$chr(32),up,$chr(32),successfully) }
alias bak { ba $1 | .timer 1 1 k $1- }
alias ban { if ($1-) { if ($ump($me,$active,ohe)) { !ban $1- } } | else { _Error a $+($col($+(07,$chr(47),ban)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),ban,$chr(32),$chr(60),banmask,$chr(62),$chr(3),14,$chr(41)))) } }
alias bgd { return $gettok($readini($mircini,windows,$2),$iif($1 == w,2,$iif($1 == h,4)),44) }
alias bh { if ($ump($me,$active,ohe)) { mode $active +b $address($1,2)) } }
alias bi { if ($ump($me,$active,ohe)) { mode $active +b $+($chr(42),$chr(33),$chr(42),$gettok($gettok($address($1,5),1,64),-1,33),$chr(64),$chr(42)) } }
alias bik { bi $1 | .timer 1 1 k $1- }
alias bhk { bh $1 | .timer 1 1 k $1- }
alias bln { return $+($chr(3),01,$chr(44),01,$str($chr(9679),$1),$chr(3)) }
alias bm { if ($istok(ircd-ratbox~ircservices,$left($($+(%,Services,~,$network),2),11),126)) { _Error a $+(You,$chr(32),can,$chr(39),t,$chr(32),mute,$chr(32),a,$chr(32),user,$chr(32),on,$chr(32),$col($+(10,$network,$chr(46)))) } | else { if ($ump($me,$1,ohe)) { if ($left($($+(%,Services,~,$network),2),6) == atheme) { var %x = $+($chr(109),$chr(58)) } | elseif ($left($($+(%,Services,~,$network),2),5) == Anope) { var %x = $+($chr(126),$chr(113),$chr(58)) } | else { _Error a $+(You,$chr(32),can,$chr(39),t,$chr(32),mute,$chr(32),a,$chr(32),user,$chr(32),on,$chr(32),$col($+(10,$network,$chr(46)))) | halt } | if (!$3) || (($3) && ($3 isnum)) { mode $1 +b %x $+ $address($2,2) } | if ($3) && ($3 isnum) { .timer 1 $calc($3 * 60) mode $1 -b %x $+ $address($2,2) } | if ($3) && ($3 == UnMute) { mode $1 -b %x $+ $address($2,2) } | if ($ump($2,$1,o)) { var %a = $chr(111) } | if ($ump($2,$1,h)) { var %a = $+(%a,$chr(104)) } | if ($ump($2,$1,v)) { var %a = $+(%a,$chr(118)) } | if (%a) { mode $1 $+($chr(45),%a,$chr(32),$str($+($2,$chr(32)),$len(%a))) } } } }
alias bn { if ($ump($me,$active,ohe)) { mode $active +b $+($1,$chr(33),$chr(42),$chr(64),$chr(42)) } }
alias bnk { bn $1 | .timer 1 1 k $1- }
alias but { return $+(files,$chr(92),graphs,$chr(92),player,$chr(92),$1,$chr(46),png) }
alias d.Initial { dll $dllz(mdx) SetMircVersion $version | dll $dllz(mdx) MarkDialog $dname | dll $dllz(mdx) SetDialog $dname style title | dll $dllz(mdx) SetDialog $dname bgcolor $color(1) | var %x = 1 | while (%x <= $numtok($1,126)) { var %a = $gettok($1,%x,126) | dll $dllz(mdx) SetFont $dname %a -u 13 400 Verdana | dll $dllz(mdx) SetColor $dname %a background $color(1) | dll $dllz(mdx) SetColor $dname %a textbg $color(1) | dll $dllz(mdx) SetColor $dname %a text $color(9) | inc %x } | if ($2) { var %y = 1 | while (%y <= $numtok($2,126)) { var %b = $gettok($2,%y,126) | dll $dllz(mdx) SetFont $dname %b -u 13 400 Verdana | dll $dllz(mdx) SetColor $dname %b background $color(1) | dll $dllz(mdx) SetColor $dname %b textbg $color(1) | dll $dllz(mdx) SetColor $dname %b text $color(8) | inc %y } } | if ($sep(62) == on) { d.Play Beep } }
alias channel { if ($1) { if ($1 ischan) { var %c = $1 } | else { var %e = $1 } } | else { if ($active ischan) { var %c = $active } | else { var %e = $active } } | if (%c) { if ($show) { echo -t %c $pre(10channel) $+(retrieving,$chr(32),$lev(%c),$chr(32),$chr(3),14,modes...) } | !.channel %c } | if (%e) { _Error a $+($col($+(10,$chr(40),%e,$chr(41))),$chr(32),is,$chr(32),not,$chr(32),a,$chr(32),a,$chr(32),channel) } }
alias _ChannelCommands { did -e njcommands 1 | did -r njcommands 2 | var %x = 1 | while (%x <= 9) { if ($nri($1,$+($2,~,Command,%x))) { did -a njcommands 2 $v1 | inc %a } | inc %x } | if (%a == 9) { did -b njcommands 1 } | unset %a }
alias _ChannelJoin { var %x = 1 | while ($scon(%x)) { if ($1 == $scon(%x).network) { scon %x | if ($me !ison $2) { join $2- } } | inc %x } }
alias _ChannelLoad { did -r nchannels 2,4,5,6,7,8,9,10 | did -u nchannels 1,14,15,16,17,18,18,41,43,45,47,49,51,53,55,57,59,61,63 | var %x = 1 | while ($gettok($nri($did(nmanager,4).seltext,Channels),%x,126)) { did -a nchannels 2 $v1 | inc %x } }
alias _ChannelRemove { var %x = $ini($inz(nmanager),$1,0) | while (%x) { if ($gettok($ini($inz(nmanager),$1,%x),1,126) == $2) { nmi $1 $ini($inz(nmanager),$1,%x) } | dec %x } }
alias _ChannelSet { did -r nchannels 4-10 | did $iif($nri($1,$+($2,~,Join)) == on,-c,-u) nchannels 1 | $iif($nri($1,$+($2,~,ChannelKey)),did -a nchannels 4 $v1) | $iif($nri($1,$+($2,~,ChannelId)),did -a nchannels 5 $v1) | $iif($nri($1,$+($2,~,OnJoinMsg)),did -a nchannels 6 $v1) | $iif($nri($1,$+($2,~,OnPartMsg)),did -a nchannels 7 $v1) | $iif($nri($1,$+($2,~,TimedMsg)),did -a nchannels 8 $v1) | $iif($nri($1,$+($2,~,TimedMsgDelay)),did -a nchannels 9 $v1) | $iif($nri($1,$+($2,~,IdleChan)),did -a nchannels 10 $v1) | did -a nchannels 11 $nri($1,$+($2,~,TimedMsgState)) | did $iif($nri($1,$+($2,~,IdleDevoice)) == on,-c,-u) nchannels 14 | did $iif($nri($1,$+($2,~,IdleDehalfop)) == on,-c,-u) nchannels 15 | did $iif($nri($1,$+($2,~,IdleDeop)) == on,-c,-u) nchannels 16 | did $iif($nri($1,$+($2,~,IdleDeprotect)) == on,-c,-u) nchannels 17 | did $iif($nri($1,$+($2,~,IdleDeowner)) == on,-c,-u) nchannels 18 | did $iif($nri($1,$+($2,~,Invite)) == on,-c,-u) nchannels 41 | did $iif($nri($1,$+($2,~,Adv)) == on,-c,-u) nchannels 43 | did $iif($nri($1,$+($2,~,Prefix)) == on,-c,-u) nchannels 45 | did $iif($nri($1,$+($2,~,Thanker)) == on,-c,-u) nchannels 47 | did $iif($nri($1,$+($2,~,Music)) == on,-c,-u) nchannels 49 | did $iif($nri($1,$+($2,~,Netsplit)) == on,-c,-u) nchannels 51 | did $iif($nri($1,$+($2,~,KickOnSlap)) == on,-c,-u) nchannels 53 | did $iif($nri($1,$+($2,~,YouTubeOwn)) == on,-c,-u) nchannels 55 | did $iif($nri($1,$+($2,~,GreetsOnJoin)) == on,-c,-u) nchannels 57 | did $iif($nri($1,$+($2,~,YouTubeOthers)) == on,-c,-u) nchannels 59 | did $iif($nri($1,$+($2,~,GreetsOnNick)) == on,-c,-u) nchannels 61 | did $iif($nri($1,$+($2,~,YouTubeNotice)) == on,-c,-u) nchannels 63 | if ($nri($1,$+($2,~,TimedMsg))) { if ($nri($1,$+($2,~,TimedMsgDelay))) { did -a nchannels 11 $iif($timer($+(TimedMsg,~,$1,~,$2)).type == online,stop,start) } | else { did -a nchannels 11 ----- } } | if (!$nri($1,$+($2,~,TimedMsg))) && ($nri($1,$+($2,~,TimedMsgDelay))) { if ($nri($1,$+($2,~,TimedMsgDelay))) { did -a nchannels 11 ----- } } }
alias char { if ($1) { var %x = 1 | while ($gettok($1-,%x,44)) { var %a = $+(%a,$chr($v1)) | inc %x } | echo -at $pre(10char) $+($col($+(03,$chr(40),$1,$chr(41))),$chr(32),$col($+(07,%a))) } | else { _Error a $+(too,$chr(32),few,$chr(32),parameters,$chr(44),$chr(32),type,$chr(58),$chr(32),$col($+(10,$chr(47),char,$chr(32),numbers,$chr(32),$chr(3),14,separated,$chr(32),by,$chr(32),commas))) } }
alias chat { dcc chat $1 }
alias _ClearHLs { var %x = 1,%y = 1 | while (%x <= $chan(0)) { window -g0 $chan(%x) | inc %x } | while (%y <= $query(0)) { window -g0 $query(%y) | inc %y } | window -g0 $qt(Status Window) | if ($window(@Mentioned)) { window -g0 @Mentioned } | if ($window(@Channel.Notices)) { window -g0 @Channel.Notices } | if ($window(@Private.Notices)) { window -g0 @Private.Notices } | if ($window(@Server.Notices)) { window -g0 @Server.Notices } }
alias clones { if ($1) { if ($1 ischan) { _Clones $1 } | else { _Error s $+($chr(3),14,You,$chr(32),are,$chr(32),not,$chr(32),in,$chr(32),$col($+(03,$1))) } } | else { if ($active ischan) { _Clones $active } | else { _Error s $+($lev($active),$chr(32),$chr(3),14,is,$chr(32),not,$chr(32),a,$chr(32),channel) } } }
alias _Clones {
  if ($1 ischan) { if ($chan($1).ial) { var %x = 1 | while ($nick($1,%x)) { var %a = $address($nick($1,%x),2) | if ($ialchan(%a,$1,0) > 1) { var %y = 1 | while ($ialchan(%a,$1,%y)) { set -u0 $+(%,b,.,%a) $addtok($($+(%,b,.,%a),2),$lev($ialchan(%a,$1,%y).nick,$1),32) | inc %y } | $+(.,timer1,%a) 1 1 echo -t $1 $pre(04clones) $+($col($+(07,$chr(40),$ialchan(%a,$1,0),$chr(41))),$chr(32),$($+(%,b,.,%a),2),$chr(32),$col($+(10,$chr(40),%a,$chr(41)))) | inc -u0 %c } | inc %x
  } | if ($son(13) == on) { .timer 1 1 _Play $iif(!%c,10132,10131) } | if (!%c) { .timer 1 1 echo -t $1 $pre(04clones) $+(No,$chr(32),clones,$chr(32),detected,$chr(32),on,$chr(32),$lev($1),$chr(46)) } } | else { _Error a $+($chr(3),10,Internal,$chr(32),address,$chr(32),list,$chr(32),$chr(3),14,$chr(40),$chr(3),07,ial,$chr(3),14,$chr(41),$chr(32),is,$chr(32),not,$chr(32),up,$chr(32),to,$chr(32),date,$chr(46),$chr(32),Perform,$chr(32),the,$chr(32),$col($+(10,$chr(47),who)),$chr(32),$col($+(03,$1)),$chr(32),$chr(3),14,command,$chr(46)) } }
}
alias _CloseAll { partall | close -cfgims * }
alias cnr {
  var %x = 1 | while ($gettok($replace($2,$chr(48),drm.zero.char),%x,32)) { var %y = $v1 | if ($chr(3) isin %y) { var %z = 1 | while ($mid(%y,%z,1)) { if ($v1 == $chr(3)) { var %c = $+($chr(3),$gettok(%y,%z,3)),%b = $remove(%c,$strip(%c,c)) | if ($len(%b) == 2) { var %b = $+($chr(3),$chr(48),$right(%b,-1)) } | if ($len(%b) > 3) && ($len(%b) < 6) { var %b1 = $remove($gettok(%b,1,44),$chr(3)),%b2 = $gettok(%b,2,44) | if ($len(%b) == 4) { var %b = $+($chr(3),$chr(48),%b1,$chr(44),$chr(48),%b2) } | if ($len(%b) == 5) { var %b = $+($chr(3),$iif(%b1 < 10,$+($chr(48),%b1),%b1),$chr(44),$iif(%b2 < 10,$+($chr(48),%b2),%b2)) } } } | inc %z } | if ($istok($chr(3)~$chr(15),$right(%y,1),126)) { var %b = $null } }
  else { if ($istok($right(%y,1)~$left(%y,1),$chr(15),126)) && (%b) { var %b = $null } | if (!%b) { var %d = $replace(%y,drm.zero.char,$chr(48)) | if ($left(%y,1) == $chr(35)) { var %y = $col($+(03,%d)) } | if ($vri(Acronyms) == on) { if ($hget(acronyms,%d)) { var %y = $v1 } } | if ($vri(ColoredNick) == on) { if (%d ison $1) { var %y = $lev(%d,$1) } } | if ($vri(ColoredUrl) == on) { if ($($+(*,ftp:,*)) iswm %d) || ($($+(*,http,*)) iswm %d) || ($($+(*,www.,*)) iswm %d) { var %y = $col($+(07,%d)) } } } } | var %a = $+($iif(%a,$+($v1,$chr(32))),%y) | inc %x }
  return $replace(%a,drm.zero.char,$chr(48))
}
alias col { var %a = $1 | if ($mid(%a,3,1) == $chr(3)) { return $right(%a,-2) } | else { var %b = $+($chr(33),
,$chr(34),
,$chr(35),
,$chr(36),
,$chr(37),
,$chr(38),
,$chr(39),
,$chr(40),
,$chr(41),
,$chr(42),
,$chr(43),
,$chr(44),
,$chr(45),
,$chr(46),
,$chr(47),
,$chr(58),
,$chr(59),
,$chr(60),
,$chr(61),
,$chr(62),
,$chr(63),
,$chr(64),
,$chr(91),
,$chr(92),
,$chr(93),
,$chr(94),
,$chr(95),
,$chr(96),
,$chr(123),
,$chr(124),
,$chr(125),
,$chr(126),
,$chr(161),
,$chr(8217),
,$chr(8250)),%x = 1 | while ($gettok(%b,%x,1)) { var %c = $v1 | if (%c isin %a) { var %a = $replace(%a,%c,$+($chr(3),14,%c,$chr(3),$left(%a,2))) } | inc %x } | return $+($chr(3),%a,$chr(3)) } }
alias con { var %x = 1 | while (%x <= $len($1-)) { var %y = $mid($replace($1-,$chr(32),$chr(9679)),%x,1),%z = $+($iif(%z,$v1),$iif(%y isnum,$+($chr(03),10,%y,$chr(03)),$+($chr(03),14,%y,$chr(03)))) | inc %x } | return $replace(%z,$chr(9679),$chr(32)) }
alias _Control { dialog $iif($dialog($1),-c,-m) $1 $1 | toolbar -p $1 $+(files,$chr(92),graphs,$chr(92),png,$chr(92),ctrlo,$iif($dialog($1),n,ff),$chr(46),png) }
alias copy { if ($left($1,1) != $chr(45)) && ($exists($2)) { $iif($input(File $qt($nopath($2)) already exists. $crlf $+ Do you want to overwrite it?,wy,File Overwriting),set -u0 %o -o,halt) } | if ($show) { echo -st $pre(10copy) $+(file,$chr(32),$col($+(07,$iif($left($1,1) == $chr(45),$2,$1))),$chr(32),$chr(3),14,copied,$chr(32),to,$chr(32),$col($+(07,$iif($left($1,1) == $chr(45),$3,$2))),$chr(32),$chr(3),14,$iif($1 == -o || %o,$+(replacing,$chr(32),the,$chr(32),existing,$chr(32),one))) } | .!copy %o $1- }
alias ctcp { if ($2) { set $+(%,Ctcp,~,$network,~,start) $ticks | if ($son(72) == on) { _Play 10720 } | set $+(%,Ctcp,~,$network,~,target) $1 | if ($show) { echo -st $pre(04ctcp) $+($chr(3),04,$2,$chr(32),$chr(3),14,to,$chr(32),$lev($1,$active),$chr(32),$chr(3),14,$chr(8250),$chr(32),$iif($2 == ping,$+($ast($ctime),$chr(32),$chr(3),14,$chr(40),$ctime,$chr(41))),$iif($3,$+($chr(32),$3-),$+($chr(32),no,$chr(32),text,$chr(32),sent))) } | .!ctcp $1- } | else { _Error a $+($col($+(07,$chr(47),ctcp)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),ctcp,$chr(32),$chr(60),nick,$chr(62),$chr(32),$chr(60),ctcp,$chr(62),$chr(3),14,$chr(41)))) } }
alias cuz { return $qt($+($mircdirfiles,$chr(92),graphs,$chr(92),cur,$chr(92),$1,$chr(46),cur)) }
alias cwc { return $iif($($+(%,Cid,~,$1),2) == $scid($1).network,$v1) }
alias dcx { if ($isid) { returnex $dll($dlz(dcx),$1,$2-) } | else { dll $dlz(dcx) $1 $2- } }
alias describe { if ($2) || ($2 == $chr(48)) { var %s = 1 | while ($gettok($sla,%s,126)) { if ($matchtok($strip($1-),$v1,1,126)) { .timer -m 1 500 _SlapPlay 10201 } | inc %s } | var %a = $cnr($1,$2-) | if (!$window($1)) { if ($left($1,1) == $chr(35)) { var %a = $stp($1,%a) } | var %b = $+($iif($left($1,1) == $chr(35),$col($+(03,$1)),$lev($1))) } | elseif ($window($1).type == channel) { if ($nri($network,AwayGetBack) == on) && ($nri($network,AwayState) == on) && (!$($+(%,AwayTemp,~,$network),2)) { _AwayBack $scn($network) } | var %a = $stp($1,%a),%b = $col($+(03,$1)),%c = $lev($me,$1) } | elseif ($window($1).type == query) { var %b = $col($+(08,$chr(63),$1)),%c = $lev($me) } | elseif ($window($1).type == chat) { var %b = $col($+(04,$chr(61),$1)),%c = $+($col($+(10,$ip)),$chr(32),$lev($me)) } | if ($vri(StripAll) == on) { var %a = $strip(%a) } | if ($show) { if ($window($1)) { echo 13 -th $1 $+($chr(9679),$chr(32),%c,$chr(32),$chr(3),13,%a) } | else { echo 13 -th $+($pre(15describe),$chr(32),to,$chr(32),%b,$chr(32),$chr(3),13,%a) } } | .!describe $1 %a } | if (*http*youtu* iswm $strip(%a)) || (*www.*youtu* iswm $strip(%a)) { _YouTube $network $active $me $strip(%a) } | elseif (!$2) { _Error a $+($col($+(07,$chr(47),describe)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),describe,$chr(32),$chr(60),nick,$chr(32),or,$chr(32),channel,$chr(62),$chr(32),$chr(60),action,$chr(62),$chr(3),14,$chr(41)))) } }
alias _Dialog { dialog $iif($dialog($1),-v,-m $1) $1 }
alias did { if ($dialog($iif($left($1,1) == $chr(45),$2,$1))) { !did $1- } }
alias dlz { return $qt($+($mircdirfiles,$chr(92),dlls,$chr(92),$1,$chr(46),dll)) }
alias dmi { remini $inz(dreamirc) $1- }
alias dns { if ($1) { if ($show) { echo -at $pre(10dns) $+(resolving,$chr(32),$lev($1,$active)) } | .!dns $1 } | else { _Error a $+(too,$chr(32),few,$chr(32),parameters...,$chr(32),no,$chr(32),addresses,$chr(32),being,$chr(32),resolved) } }
alias dri { return $readini($inz(dreamirc),$1,$2) }
alias dur { return $+($chr(3),07,$replace($duration($1),wks,$+($chr(3),14,w,$chr(3),07),days,$+($chr(3),14,d,$chr(3),07),hrs,$+($chr(3),14,h,$chr(3),07),mins,$+($chr(3),14,m,$chr(3),07),secs,$+($chr(3),14,s,$chr(3),07),wk,$+($chr(3),14,w,$chr(3),07),day,$+($chr(3),14,d,$chr(3),07),hr,$+($chr(3),14,h,$chr(3),07),min,$+($chr(3),14,m,$chr(3),07),sec,$+($chr(3),14,s,$chr(3),07))) }
alias dwi { writeini -n $inz(dreamirc) $1- }
alias ech { return $+($chr(45),$left($vri(ShowWhois),1),t) }
alias eh+ { var %x = 1 | while (%x <= $numtok($1-,32)) { var %y = $+(%y,$chr(101)),%z = $+(%z,$chr(32),$address( [ $+($chr(36),%x) ] ,2)) | inc %x } | mode $active $+($chr(43),%y,$chr(32),%z) }
alias eh- { var %x = 1 | while (%x <= $numtok($1-,32)) { var %y = $+(%y,$chr(101)),%z = $+(%z,$chr(32),$address( [ $+($chr(36),%x) ] ,2)) | inc %x } | mode $active $+($chr(45),%y,$chr(32),%z) }
alias ei+ { var %x = 1 | while (%x <= $numtok($1-,32)) { var %y = $+(%y,$chr(101)),%z = $+(%z,$chr(32),$chr(42),$chr(33),$chr(42),$gettok($address( [ $+($chr(36),%x) ] ,3),2,42),$chr(42)) | inc %x } | mode $active $+($chr(43),%y,$chr(32),%z) }
alias ei- { var %x = 1 | while (%x <= $numtok($1-,32)) { var %y = $+(%y,$chr(101)),%z = $+(%z,$chr(32),$chr(42),$chr(33),$chr(42),$gettok($address( [ $+($chr(36),%x) ] ,3),2,42),$chr(42)) | inc %x } | mode $active $+($chr(45),%y,$chr(32),%z) }
alias emailaddr { if ($1) { if ($show) { echo -st $pre(07email) $+(Your,$chr(32),email,$chr(32),address,$chr(32),is,$chr(32),now,$chr(58),$chr(32),$col($+(07,$1))) } | .!emailaddr $1- } | else { _Error s $+($col($+(07,$chr(47),emailaddr)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),emailaddr,$chr(32),$chr(60),email,$chr(32),address,$chr(62),$chr(3),14,$chr(41)))) } }
alias en+ { var %x = 1 | while (%x <= $numtok($1-,32)) { var %y = $+(%y,$chr(101)),%z = $+(%z,$chr(32), [ $+($chr(36),%x) ] ,$chr(33),$chr(42),$chr(64),$chr(42)) | inc %x } | mode $active $+($chr(43),%y,$chr(32),%z) }
alias en- { var %x = 1 | while (%x <= $numtok($1-,32)) { var %y = $+(%y,$chr(101)),%z = $+(%z,$chr(32), [ $+($chr(36),%x) ] ,$chr(33),$chr(42),$chr(64),$chr(42)) | inc %x } | mode $active $+($chr(45),%y,$chr(32),%z) }
alias _Error { echo $+($chr(45),$chr(116),$1) $pre(04error) $2- | if ($son(14) == on) { _Play 10140 } | if ($tgc(OnError)) { _TipTrigger ER $iif($network,$lev($network),Off) $iif($network,$lev($server),Line) error $strip($2-) } }
alias exit { _TipTrigger EX $+($chr(3),07,global) $+($chr(3),12,disconnect) $chr(58) $+($chr(2),thank,$chr(32),you,$chr(32),for,$chr(32),using,$chr(32),Drea,$chr(3),12,m,$chr(3),4,I,$chr(3),3,R,$chr(3),8,C,$chr(32),$chr(3),14,script,$chr(2),$chr(33),$chr(32),$str($chr(58),2)) | .timer -o 1 1 gdisconnect | .timer -o 1 2 !exit $iif($1,$v1) | if (r isin $1) { set %Restart $ctime } }
alias _Flood { if ($($+(%,Flood,~,$1,~,$2,~,$3),2)) { if ($($+(%,Flood,~,$1,~,$2,~,$3),2) >= 25) { ignore -cdiknptu420 $3 2 $2 | notice $3 $+($lev($3),$chr(32),$chr(3),14,you,$chr(32),have,$chr(32),been,$chr(32),put,$chr(32),on,$chr(32),ignore,$chr(32),for,$chr(32),$chr(3),07,7,$chr(32),$chr(3),14,mins,$chr(32),for,$chr(32),abusing) | halt } | elseif ($($+(%,Flood,~,$1,~,$2,~,$3),2) >= 15) { notice $3 $+($lev($3),$chr(32),$chr(3),14,do,$chr(32),not,$chr(32),flood,$chr(32),or,$chr(32),else,$chr(32),you,$chr(39),ll,$chr(32),put,$chr(32),on,$chr(32),ignore,$chr(33)) | inc -z $+(%,Flood,~,$1,~,$2,~,$3) 10 | halt } | else { inc -z $+(%,Flood,~,$1,~,$2,~,$3) 5 } } | else { inc -z $+(%,Flood,~,$1,~,$2,~,$3) 5 } }
alias _Flood { var %x }
alias gclearbuf { scon -a clearall }
alias gclearhls { scon -at1 _ClearHLs }
alias gdisconnect { scon -at1 disconnect }
alias ghop { scon -at1 hopall $iif($1,$1-) }
alias gme { scon -at1 ame $1- }
alias gmsg { scon -at1 amsg $1- }
alias gnick { scon -at1 nick $1 }
alias gpart { scon -at1 partall $iif($1,$1-) }
alias gquit { scon -at1 quit $iif($1,$1-) }
alias greet { if ($hget(greetings,$+($network,~,$chan,~,$1))) { .timer 1 1 msg $chan $v1 } }
alias _GreetsAdd { if ($1) { set %GreetNick $v1 } | _Dialog greetingadd }
alias _GreetsNick { if (!$($+(%,Delay,~,$1,~,$2,~,$3),2)) { if ($nri($1,$+($2,~,GreetsOn,$4)) == on) { if ($hget(greetings,$+($1,~,$2,~,$3))) { .timer 1 3 msg $2 $v1 } } | set -u630 $+(%,Delay,~,$1,~,$2,~,$3) on } }
alias _GreetsRem { if ($hget(greetings,$+($1,~,$2,~,$3))) { if ($input(Do you want to remove greeting message for $3 $+ ?,wy,Remove Greeting)) { hdel greetings $+($1,~,$2,~,$3) | echo -t $2 $pre(10greets) $+($lev($3,$2),$chr(32),$chr(3),14,removed,$chr(32),from,$chr(32),greeting,$chr(32),list,$chr(46)) | hsave greetings $qt($+($mircdirfiles,$chr(92),hasht,$chr(92),greetings,$chr(46),hsh)) } } | else { _Error a $+($lev($3,$2),$chr(32),$chr(3),14,is,$chr(32),not,$chr(32),on,$chr(32),the,$chr(32),greeting,$chr(32),list,$chr(46)) } }
alias h { help $1 }
alias h+ { mode $active $+($chr(43),$str($chr(104),$numtok($1-,32))) $1- }
alias h- { mode $active $+($chr(45),$str($chr(104),$numtok($1-,32))) $1- }
alias help { winhelp $shortfn($+($mircdirfiles,$chr(92),help,$chr(92),mirc,$chr(46),chm)) $1 }
alias hme {
  var %x = 1 | while ($gettok($replace($1-,$chr(48),drm.zero.char),%x,32)) { var %y = $v1 | if ($chr(3) isin %y) { var %z = 1 | while ($mid(%y,%z,1)) { if ($v1 == $chr(3)) { var %c = $+($chr(3),$gettok(%y,%z,3)),%b = $remove(%c,$strip(%c,c)) | if ($len(%b) == 2) { var %b = $+($chr(3),$chr(48),$right(%b,-1)) } | if ($len(%b) > 3) && ($len(%b) < 6) { var %b1 = $remove($gettok(%b,1,44),$chr(3)),%b2 = $gettok(%b,2,44) | if ($len(%b) == 4) { var %b = $+($chr(3),$chr(48),%b1,$chr(44),$chr(48),%b2) } | if ($len(%b) == 5) { var %b = $+($chr(3),$iif(%b1 < 10,$+($chr(48),%b1),%b1),$chr(44),$iif(%b2 < 10,$+($chr(48),%b2),%b2)) } } } | inc %z } | if ($istok($chr(3)~$chr(15),$right(%y,1),126)) { var %b = $null } }
  else { if ($istok($right(%y,1)~$left(%y,1),$chr(15),126)) && (%b) { var %b = $null } | if (!%b) { var %y = $+($chr(3),09,%y) } } | var %a = $+($iif(%a,$+($v1,$chr(32))),%y) | inc %x }
  return $replace(%a,drm.zero.char,$chr(48))
}
alias hop { if ($1) { if ($1 ischan) { var %c = $1,%t = $iif($2,$2-) } | else { if ($active ischan) { var %c = $active,%t = $1- } } } | else { if ($active ischan) { var %c = $active } } | if (%c) { if ($show) { echo -t %c $pre(10hop) $+(Attempting,$chr(32),to,$chr(32),rejoin,$chr(32),channel,$chr(32),$col($+(03,%c,$chr(46)))) } | .!hop -c %c $+($rac($iif(%t,$v1,$+($chr(3),14,cycling))),$vsx($network,%c,$vsb)) } | else { _Error a $+($lev($active),$chr(32),$chr(3),14,is,$chr(32),not,$chr(32),a,$chr(32),channel) } }
alias hopall { var %x = 1 | while ($chan(%x)) { .timer 1 $calc((%x * 3) - 2) hop $v1 $iif($1,$1-) | inc %x } }
alias i { invite $1 $active }
alias ial { if ($1) && ($1 == off) { _Error a $+($col($+(07,$chr(47),ial,$chr(32),off)),$chr(32),$chr(3),14,command,$chr(32),has,$chr(32),been,$chr(32),disabled,$chr(32),for,$chr(32),$col($+(04,security,$chr(32),reasons,$chr(33)))) | var %e = $input(This command has been disabled for security reasons.,houd,/ial off - Error) | halt } }
alias ialclear { if ($1) { _Error a $+($col($+(07,$chr(47),ialclear,$chr(32),$chr(60),nick,$chr(62))),$chr(32),$chr(3),14,command,$chr(32),has,$chr(32),been,$chr(32),disabled,$chr(32),for,$chr(32),$col($+(04,security,$chr(32),reasons,$chr(33)))) | var %e = $input(This command has been disabled for security reasons.,houd,/ialclear <nick> - Error) | halt } }
alias identd { if ($2 && $1 == on) || ($1 == off) { if ($show) { echo -st $pre(09identd) $+($chr(3),07,Ident,$chr(32),server,$chr(3),14,$chr(58),$chr(32),$iif($1 == off,$+($chr(3),04,Disable),$+($chr(3),03,Enable,$chr(32),$chr(3),14,$chr(45),$chr(32),UserID,$chr(58),$chr(32),$col($+(09,$2))))) } | .!identd $1- } | else { _Error s $+($col($+(07,$chr(47),identd)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),identd,$chr(32),$chr(60),on,$chr(124),off,$chr(62),$chr(32),$chr(60),userid,$chr(62),$chr(3),14,$chr(41)))) } }
alias _IdleCheckHalt { if (%IdleCheckNetwork == $1) && (%IdleCheckNick == $2) { halt } }
alias _IdleCheckOwn {
  var %x = 1 | while ($scon(%x).network) { var %a = $v1 | scon %x | if ($nri(%a,AwayState) == off) { if ($nri(%a,AwayAfterIdle)) && ($scon(%x).idle > $calc($nri(%a,AwayAfterIdle) * 60)) { _AwayAway $scn(%a) $+($col($+(10,auto,$chr(45),away)),$chr(32),$chr(3),10,after,$chr(32),$chr(3),07,$nri(%a,AwayAfterIdle),$chr(32),$chr(3),10,minutes,$chr(32),idled) } } | if ($chan(0)) { var %y = 1 | while ($chan(%y)) { var %b = $v1 | if ($nick(%b,$me).idle > $calc($nri(%a,$+(%b,~,IdleChan)) * 60)) { var %c = $remove($nick(%b,$me,a,r).pnick,$me) | if (%c) && (%c != $chr(43)) { if ($nri(%a,$+(%b,~,IdleDevoice)) == on) && ($chr(43) isin %c) { set %d $+(%d,v) | set %e $instok(%e,$me,0,32) } | if ($nri(%a,$+(%b,~,IdleDehalfop)) == on) && ($chr(37) isin %c) { set %d $+(%d,h) | set %e $instok(%e,$me,0,32) } | if ($nri(%a,$+(%b,~,IdleDeop)) == on) && ($chr(64) isin %c) { set %d $+(%d,o) | set %e $instok(%e,$me,0,32) } | if ($nri(%a,$+(%b,~,IdleDeprotect)) == on) && ($chr(38) isin %c) { set %d $+(%d,a) | set %e $instok(%e,$me,0,32) } | if ($nri(%a,$+(%b,~,IdleDeowner)) == on) && ($chr(126) isin %c) { set %d $+(%d,q) | set %e $instok(%e,$me,0,32) } | .timer 1 7 mode %b $+($chr(45),%d) %e | unset %d %e } } | inc %y
  } } | inc %x }
}
alias _IdleCheckSet { did -ra idlec 1 %IdleCheckNick | if (%IdleCheckOper) { .timerIdleCheck off | did -ra idlec 2 IRC Operator | did -b idlec 3 } | else { did -o idlec 2 1 $iif(%IdleCheckIdle,$v1,Calculating...) | whois %IdleCheckNick } }
alias _IdleCheckUser { unset %IdleCheck* | if ($dialog(idlec)) { dialog -c $v1 } | set %IdleCheckNick $1 | set %IdleCheckNetwork $2 | set $+(%,WhoHide,~,$2) on | raw -q who %IdleCheckNick | _Dialog idlec }
alias _Initial { dll $dlz(mdx) SetMircVersion $version | dll $dlz(mdx) MarkDialog $dname | dll $dlz(mdx) SetDialog $dname style title | dll $dlz(mdx) SetDialog $dname bgcolor $color(1) | var %x = 1 | while ($gettok($1,%x,126)) { var %a = $v1 | dll $dlz(mdx) SetFont $dname %a -u 13 400 Verdana | dll $dlz(mdx) SetColor $dname %a background $color(1) | dll $dlz(mdx) SetColor $dname %a textbg $color(1) | dll $dlz(mdx) SetColor $dname %a text $color(9) | inc %x } | if ($2) { var %y = 1 | while ($gettok($2,%y,126)) { var %b = $v1 | dll $dlz(mdx) SetFont $dname %b -u 13 400 Verdana | dll $dlz(mdx) SetColor $dname %b background $color(1) | dll $dlz(mdx) SetColor $dname %b textbg $color(1) | dll $dlz(mdx) SetColor $dname %b text $color(8) | inc %y } } | if ($son(11) == on) { _Play 10110 } }
alias inp { return $iif($istok(~a~ascii~c~char~clear~close~copy~dialog~did~disconnect~dll~echo~exit~h~help~hfree~hload~hsave~hmi~load~nick~part~partall~quote~reload~remove~run~s~scon~server~set~splay~timer~timers~timestamp~unset~update~window~writeini,$right($1,-1),126),$true,$false) }
alias inz { return $qt($+($mircdirfiles,$chr(92),initial,$chr(92),$1,$chr(46),ini)) }
alias j { join $1- }
alias join { if ($1) && ($1- != $chr(35)) { if ($left($1,1) == $chr(45)) && ($2-) { var %Joins $+($1,$chr(32),$iif($left($2,1) != $chr(35),$chr(35)),$2-) } | else { var %Joins $+($iif($left($1,1) != $chr(35),$chr(35)),$1-) } | !join %Joins } | else { _Error s $+($col($+(07,$chr(47),join)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),join,$chr(32),$chr(60),$chr(91),$chr(35),$chr(93),channel,$chr(32),name,$chr(62),$chr(3),14,$chr(41)))) } }
alias k { kick $active $1- }
alias kba { k $1- | ba $1- | .timer 1 3 _ReKick $active $1 }
alias kbh { k $1- | bh $1- | .timer 1 3 _ReKick $active $1 }
alias kbi { k $1- | bi $1- | .timer 1 3 _ReKick $active $1 }
alias kbn { k $1- | bn $1- | .timer 1 3 _ReKick $active $1 }
alias lag { if ($($+(%,Slag,~,$server,~,serv),2)) { echo -at $pre(04lag) $+(Server,$chr(58),$chr(32),$col($+(07,$($+(%,Slag,~,$server,~,serv),2),$chr(32),$chr(45))),$chr(32),$chr(3),14,Current,$col($+(10,$chr(58),$chr(32),$($+(%,Slag,~,$server,~,curr),2))),$chr(3),14,s,$chr(32),$chr(45),$chr(32),Highest,$col($+(04,$chr(58),$chr(32),$($+(%,Slag,~,$server,~,high),2))),$chr(3),14,s,$chr(32),$chr(45),$chr(32),Lowest,$col($+(03,$chr(58),$chr(32),$($+(%,Slag,~,$server,~,lowe),2))),$chr(3),14,s) | if ($son(16) == on) { _Play 10161 } } | else { _Error a $+(You,$chr(32),are,$chr(32),not,$chr(32),connected,$chr(32),to,$chr(32),server,$chr(46)) } }
alias lagreset { if ($($+(%,Slag,~,$server,~,serv),2)) { echo -at $pre(04lag) $+(All,$chr(32),lag,$chr(32),values,$chr(32),on,$chr(32),server,$chr(32),$lev($($+(%,Slag,~,$server,~,serv),2)),$chr(32),$chr(3),14,have,$chr(32),been,$chr(32),reset,$chr(46)) | set $+(%,Slag,~,$server,~,high) 0 | set $+(%,Slag,~,$server,~,lowe) 0 } | else { _Error a $+(You,$chr(32),are,$chr(32),not,$chr(32),connected,$chr(32),to,$chr(32),server) } }
alias lev { if ($2) { if ($1 isreg $2) { var %b = $col($+(10,$1)) } | if ($nick($2,$1,a,r).pnick) { var %a = $left($v1,1) | if (%a == $chr(33)) { var %a = $+($chr(3),06,%a),%b = $col($+(06,$1)) } | if (%a == $chr(46)) { var %a = $+($chr(3),04,%a),%b = $col($+(04,$1)) } | if (%a == $chr(126)) { var %a = $+($chr(3),04,%a),%b = $col($+(04,$1)) } | if (%a == $chr(38)) { var %a = $+($chr(3),07,%a),%b = $col($+(07,$1)) } | if (%a == $chr(64)) { var %a = $+($chr(3),03,%a),%b = $col($+(03,$1)) } | if (%a == $chr(37)) { var %a = $+($chr(3),11,%a),%b = $col($+(11,$1)) } | if (%a == $chr(43)) { var %a = $+($chr(3),12,%a),%b = $col($+(12,$1)) } } | if ($1 isaop $2) { var %b = $col($+(14,$1)) } | if ($1 isavoice $2) { var %b = $col($+(14,$1)) } | if ($1 isprotect $2) { var %b = $col($+(14,$1)) } } | if (*Serv iswm $1) { var %b = $col($+(05,$1)) } | if ($1 == $network) { var %b = $col($+(10,$1)) } | if ($1 == $server) { var %b = $col($+(07,$1)) } | if ($1 ischan) { var %b = $col($+(03,$1)) } | if ($1 isignore) { var %b = $col($+(14,$1)) } | if ($1 isnotify) { var %b = $col($+(08,$1)) } | if ($1 == $me) { var %b = $col($+(09,$1)) } | return $+($iif($vri(ModePrefix) == on,$iif(%a,$v1)),$iif(%b,$v1,$col($+(03,$1)))) }
alias loc { if ($1 isnum) && ($1 <= 255) { return unresolved ip } | else { if ($dri(Country,$1)) { return $v1 } | else { return unknown } } }
alias _LogBuffer { clear @Log.Viewer | loadbuf -p @Log.Viewer $qt($read($txz(logtemp),$iif($1,$1,$sline(@Log.Viewer,1).ln))) }
alias _LogFile { if ($exists($qt($+($logdir,$network,$chr(92),$replace($1,$chr(94),$chr(95)),$chr(46),log)))) { _LogRefresh | var %x = 1 | while ($finddir($qt($logdir),*,%x,1)) { var %a = $v1 | if ($nopath(%a) == $network) { aline -l @Log.Viewer $col($+(10,$v1)) | write $txz(logtemp) %a | var %b = $findfile(%a,*.log,0),%y = 1 | while (%y <= %b) { if ($nopath($findfile(%a,*.log,%y)) == $+($replace($1,$chr(94),$chr(95)),$chr(46),log)) { aline -l @Log.Viewer $+($chr(03),07,$chr(45),$chr(32),$col($+(03,$1))) | write $txz(logtemp) $findfile(%a,*.log,%y) } | inc %y } } | inc %x } | _LogBuffer 2 } | else { _Error a $+(log,$chr(32),file,$chr(32),for,$chr(32),$lev($1,$active),$chr(32),$chr(3),14,does,$chr(32),not,$chr(32),exist) } }
alias _LogRead { var %a = $gettok($sline(@Log.Viewer,1),1,32) | _LogRefresh | aline @Log.Viewer $+($timestamp,$chr(32),$pre(10logs),$chr(32),$vsb,$chr(39),s,$chr(32),log,$chr(32),viewer) | aline -l %a | write $txz(logtemp) $finddir($qt($logdir),$strip(%a),1,1) | var %b = $findfile($finddir($qt($logdir),$strip(%a),1),*.log,0),%x = 1 | aline @Log.Viewer $+($timestamp,$chr(32),$pre(10logs),$chr(32),found,$chr(32),$chr(3),07,%b,$chr(32),$chr(3),14,files,$chr(32),for,$chr(32),$col($+(10,$nopath($finddir($qt($logdir),$strip(%a),1)))),$chr(32),$chr(3),14,network) | while (%x <= %b) { var %c = $remove($nopath($findfile($finddir($qt($logdir),$strip(%a),1),*.log,%x)),.log) | aline -l @Log.Viewer $+($chr(03),07,$chr(45),$chr(32),$col($+(03,%c))) | write $txz(logtemp) $findfile($finddir($qt($logdir),$strip(%a),1),*.log,%x) | inc %x } }
alias _LogRefresh { if (!$window(@Log.Viewer)) { window -kzl14 @Log.Viewer 0 0 1292 417 | _Background @Log.Viewer | if ($son(11) == on) { _Play 10110 } } | else { window -a @Log.Viewer | clear -l @Log.Viewer | clear @Log.Viewer } | write -c $txz(logtemp) }
alias _LogViewer { _LogRefresh | aline @Log.Viewer $+($timestamp,$chr(32),$pre(10logs),$chr(32),$vsb,$chr(39),s,$chr(32),log,$chr(32),viewer) | var %x = 1 | while ($finddir($qt($logdir),*,%x,1)) { var %a = $v1,%b = $findfile($v1,*.log,0) | aline -l @Log.Viewer $+($col($+(10,$nopath(%a))),$chr(32),$col($+(07,$chr(40),%b,$chr(41)))) | aline @Log.Viewer $+($timestamp,$chr(32),$pre(10logs),$chr(32),found,$chr(32),$chr(3),07,%b,$chr(32),$chr(3),14,files,$chr(32),for,$chr(32),$col($+(10,$nopath(%a))),$chr(32),$chr(3),14,network) | write $txz(logtemp) %a | var %y = 1 | while (%y <= %b) { var %c = $remove($nopath($findfile(%a,*.log,%y)),.log) | aline -l @Log.Viewer $+($chr(03),07,$chr(45),$chr(32),$col($+(03,%c))) | write $txz(logtemp) $findfile(%a,*.log,%y) | inc %y } | inc %x } }
alias m { mode $active $1- }
alias me { if ($1) || ($1 == $chr(48)) { if ($istok(channel~query~chat,$window($active).type,126)) { describe $active $1- } } | elseif (!$1) { _Error a $+($col($+(07,$chr(47),me)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),me,$chr(32),$chr(60),action,$chr(62),$chr(3),14,$chr(41)))) } }
alias _Mention { set %menta $+(a,$r(1111111,9999999)) | set %mentb $+(b,$r(1111111,9999999)) | var %a = $+($chr(3),14,$chr(40),$1,$chr(3),14,$chr(47),$2,$chr(3),14,$chr(41),$chr(32),$3,$chr(32),$replace($5-,$chr(36),%menta,$chr(124),%mentb)) | if ($vri(MntReference) == on) { var %t = $strip($remove($2,$chr(63))) | if (%t ischan) || (%t == $nick) || (%t == =$nick) { if ($activewid != $window(%t).wid) || (!$appactive) { window -g2 %t | var %e = on } } | if (%t == wallops) { if ($active != Status Window) || (!$appactive) { window -g2 $qt(Status Window) | var %e = on } } | if ($gettok(%t,1,47) == channelnotice) || ($gettok(%t,1,47) == opnotice) { if ($vri(ChannelNotices) == on) { if ($active != @Channel.Notices) || (!$appactive) { var %e = on } } | elseif ($vri(ChannelNotices) == off) { if ($active != Status Window) || (!$appactive) { window -g2 $qt(Status Window) | var %e = on } } } | if (%t == servernotice) { if ($vri(ServerNotices) == on) { if ($active != @Server.Notices) || (!$appactive) { var %e = on } } | elseif ($vri(ServerNotices) == off) { if ($active != Status Window) || (!$appactive) { window -g2 $qt(Status Window) | var %e = on } } } | if (%t == privatenotice) { if ($vri(PrivateNotices) == on) { if ($active != @Private.Notices) || (!$appactive) { var %e = on } } | elseif ($vri(PrivateNotices) == off) { if ($active != Status Window) || (!$appactive) { window -g2 $qt(Status Window) | var %e = on } } } | if (%e) { .timer -m 1 1100 _Mentioned echo $iif($4 == 14,$null,$v1) -at $+($pre($+($4,$chr(3),07,mention)),$chr(32),%a) } } | if ($vri(MntWindow) == on) { if (!$window(@Mentioned)) { window -kSnz @Mentioned 0 0 1292 417 | _Background @Mentioned } | .timer -m 1 1100 _Mentioned aline $+(-hpc,$iif($4 == 14,$null,$v1)) @Mentioned $timestamp $+($chr(3),$4,$chr(9679),$chr(32),%a) } | if ($son(58) == on) { .timer -m 1 1300 _Play 10580 } | if ($tgc(NickMention)) { _TipTrigger BM $1 $2 $strip($3) $remove($strip($5-),$+($chr(8250),$chr(32))) } }
alias _Mentioned { $replace($1-,%menta,$chr(36),%mentb,$chr(124)) | .timer 1 1 unset %ment* }
alias motd { if ($gettok($readini(mirc.ini,options,n1),11,44) == 1) { writeini -n $qt($mircini) options n1 $puttok($readini($mircini,options,n1),$chr(48),11,44) | set $+(%,Motd,~,$network) on } | !motd }
alias _Modes { if ($1 == $me) { if ($son($4) == on) { _Play $iif($2 == $chr(45),$5,$6) } | if ($vri(ModeProtect) == on) && ($2 == $chr(45)) && (!$istok($me ChanServ,$nick,32)) && ($left($($+(%,Services,~,$network),2),11) != ircd-ratbox) { .timer 1 1 raw ChanServ $3 $chan $me } } | else { if ($son($7) == on) { _Play $iif($2 == $chr(45),$8,$9) } } }
alias msg { if ($2) || ($2 == $chr(48)) { if (%OnInput) { var %a = $2- | unset %OnInput } | else { var %a = $cnr($1,$2-) } | if (!$window($1)) { if ($left($1,1) == $chr(35)) { var %a = $stp($1,%a) } | var %b = $+($iif($left($1,1) == $chr(35),$col($+(03,$1)),$lev($1))) } | elseif ($window($1).type == channel) { var %a = $stp($1,%a),%b = $col($+(03,$1)),%c = $lev($me,$1) } | elseif ($window($1).type == query) { var %b = $+($col($+(08,$chr(63),$1))),%c = $lev($me) } | elseif ($window($1).type == chat) { var %b = $+($col($+(04,$chr(61),$1))),%c = $+($col($+(10,$ip)),$chr(47),$lev($me)) } | if ($vri(StripAll) == on) { var %a = $strip(%a) } | if ($show) { if ($window($1)) { echo 14 -th $1 $+($chr(9679),$chr(32),%c,$chr(32),$chr(3),14,$chr(8250),$chr(32),%a) } | else { echo 14 -th $+($pre(15message),$chr(32),to,$chr(32),%b,$chr(32),$chr(3),14,$chr(8250),$chr(32),%a) } } | .!msg $1 %a } | elseif (!$2) { _Error a $+($col($+(07,$chr(47),msg)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),msg,$chr(32),$chr(60),nick,$chr(32),or,$chr(32),channel,$chr(62),$chr(32),$chr(60),message,$chr(62),$chr(3),14,$chr(41)))) } }
alias n { names $iif($1,$1-) }
alias names { if ($1) { if ($1 ischan) { var %t = $1 } | else { var %e = $+($chr(3),14,You,$chr(32),are,$chr(32),not,$chr(32),in,$chr(32),$col($+(03,$1))) } } | else { if ($active ischan) { var %t = $active } | else { var %e = $+($lev($active),$chr(32),$chr(3),14,is,$chr(32),not,$chr(32),a,$chr(32),channel) } } | if (%t) { if ($gettok($readini($mircini,options,n3),35,44) == 0) { writeini -n $qt($mircini) options n3 $puttok($readini($mircini,options,n3),$chr(49),35,44) | set $+(%,Names,~,$network) on } | !names %t } | if (%e) { _Error s %Error } }
alias _NetworkCommands { did -e nccommands 1 | did -r nccommands 2 | var %x = 1 | while (%x <= 9) { if ($nri($1,$+(Command,%x))) { did -a nccommands 2 $v1 | inc %a } | inc %x } | if (%a == 9) { did -b nccommands 1 } | unset %a }
alias _NetworkConnect { if ($gettok($1,1,126) == is) { scon $gettok($1,2,126) } | if ($gettok($1,1,126) == no) { if ($gettok($1,2,126) > 1) || (($gettok($1,2,126) == 1) && ($gettok($1,3,126) == dis)) { server -n $gettok($2-,6-,1) } | scon $scon(0) } | .timer 1 1 server $gettok($2-,6-,1) | if ($gettok($2-,1,1) != no) { .timer -m 1 170 nick $v1 } | if ($gettok($2-,2,1) != no) { .timer -m 1 340 anick $v1 } | if ($gettok($2-,3,1) != no) { .timer -m 1 510 fullname $v1 } | if ($gettok($2-,4,1) != no) { .timer -m 1 680 emailaddr $v1 } | if ($gettok($2-,5,1) != no) { .timer -m 1 850 identd on $v1 } }
alias _NetworkDialog { if ($dialog(nawaysys)) { dialog -x $v1 } | if ($dialog(nccommands)) { dialog -x $v1 } | if ($dialog(nchanneladd)) { dialog -x $v1 } | if ($dialog(nchanneledit)) { dialog -x $v1 } | if ($dialog(nchannels)) { dialog -x $v1 } | if ($dialog(ncontrol)) { dialog -x $v1 } | if ($dialog(networkadd)) { dialog -x $v1 } | if ($dialog(networkedit)) { dialog -x $v1 } | if ($dialog(njcommands)) { dialog -x $v1 } | if ($dialog(nnicknames)) { dialog -x $v1 } }
alias _NetworkLoad { did -r nmanager 4,6-11,14-22 | did -u nmanager 2,3 | var %x = 1 | while ($gettok($nri(Connect,Networks),%x,126)) { did -a nmanager 4 $v1 | inc %x } }
alias _NetworkSet { did -r nmanager 6-22 | var %x = 1 | while ($gettok($nri(Connect,Networks),%x,126)) { var %y = $v1 | if ($1 == %x) { did $iif($nri(%y,AutoConnect) == on,-c,-u) nmanager 1 | if ($nri(%y,Connection) == viaznc) { did -c nmanager 2 | did -u nmanager 3 | did -a $dname 29,30 $chr(10004) | did -r $dname 31,32 } | if ($nri(%y,Connection) == direct) { did -c nmanager 3 | did -u nmanager 2 | did -a $dname 31,32 $chr(10004) | did -r $dname 29,30 } | $iif($nri(%y,ZncIp),did -a nmanager 6 $v1) | $iif($nri(%y,ZncPort),did -a nmanager 7 $v1) | $iif($nri(%y,ZncUser),did -a nmanager 8 $v1) | $iif($nri(%y,ZncPass),did -a nmanager 9 $v1) | $iif($nri(%y,SrvIp),did -a nmanager 10 $v1) | $iif($nri(%y,SrvPort),did -a nmanager 11 $v1) | $iif($nri(%y,SrvUser),did -a nmanager 12 $v1) | $iif($nri(%y,SrvPass),did -a nmanager 13 $v1) | $iif($nri(%y,Nick),did -a nmanager 14 $v1) | $iif($nri(%y,aNick),did -a nmanager 15 $v1) | $iif($nri(%y,FullName),did -a nmanager 16 $v1) | $iif($nri(%y,EmailAddr),did -a nmanager 17 $v1) | $iif($nri(%y,Modes),did -a nmanager 18 $v1) | $iif($nri(%y,UserID),did -a nmanager 19 $v1) | $iif($nri(%y,OperIdPass),did -a nmanager 20 $v1) | $iif($nri(%y,OperDelay),did -a nmanager 21 $v1) | $iif($nri(%y,OnQuitMsg),did -a nmanager 22 $v1) } | inc %x } }
alias _NewMemo { if ($input(You have a new memo. Do you want to read it now?,wy,New Memo ( $+ $network $+ ))) { raw -q MemoServ read new } }
alias nick { if ($1) { if ($status != connected) { if ($show) { echo -st $pre(09nick) $+(Your,$chr(32),main,$chr(32),nickname,$chr(32),is,$chr(32),now,$chr(58),$chr(32),$col($+(09,$1))) } | if ($son(59) == on) { _Play 10590 } } | .!nick $1 } | else { _Error a $+($col($+(07,$chr(47),nick)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),nick,$chr(32),$chr(60),newnick,$chr(62),$chr(3),14,$chr(41)))) } }
alias _NickServ { var %x = 1 | while (%x <= 9) { if ($1 == $nri($network,$+(NickName,%x))) && ($nri($network,$+(NickPass,%x))) { var %c = $nri($network,$+(NickPass,%x)) | if ($2 == identify) { .timer 1 1 raw -q NickServ identify %c | .timer 1 1 echo -st $pre(10identify) $+(The,$chr(32),password,$chr(32),for,$chr(32),your,$chr(32),nick,$chr(32),$col($+(09,$1)),$chr(32),$chr(3),14,has,$chr(32),been,$chr(32),sent,$chr(32),to,$chr(32),$lev(NickServ),$chr(32),$chr(3),14,on,$chr(32),$col($+(10,$network,$chr(46)))) } | if ($2 == protect) && ($nri($network,$+(NickProt,%x))) { if ($son(55) == on) { .timer 1 1 _Play 10550 } | if ($left($($+(%,Services,~,$network),2),6) == atheme) { var %a = release,%b = %a } | elseif ($left($($+(%,Services,~,$network),2),11) == ircservices) { var %a = ghost,%b = kill } | elseif ($left($($+(%,Services,~,$network),2),5) == Anope) { if ($gettok($gettok($($+(%,Services,~,$network),2),1,32),2,45) >= 1.9.0) { _Error s $+(the,$chr(32),$lev(NickServ),$chr(32),$chr(3),14,on,$chr(32),Anope,$chr(45),1,$chr(46),9,$chr(46),0,$chr(32),$chr(40),or,$chr(32),higher,$chr(41),$chr(32),Services,$chr(32),does,$chr(32),not,$chr(32),support,$chr(32),$chr(2),$chr(47),ns,$chr(32),release,$chr(2),$chr(32),and,$chr(32),$chr(2),$chr(47),ns,$chr(32),ghost,$chr(2),$chr(32),commands) } | else { var %a = ghost,%b = kill } } } | if ($2 == release) { var %a = release,%b = %a | .timer 1 3 nick $1 } | if ($2 == retrieve) { var %a = $iif($left($($+(%,Services,~,$network),2),6) == atheme,regain,recover),%b = %a } | if (%a) && (%b) { .timer 1 1 echo -st $pre($+(10,%a)) $+(attempting,$chr(32),to,$chr(32),%b,$chr(32),the,$chr(32),nickname,$chr(58),$chr(32),$lev($1)) | .timer 1 3 raw -q NickServ %a $1 %c } } | inc %x } }
alias nmi { remini $inz(nmanager) $1- }
alias notice { if ($2) { if ($show) { echo $iif($1 ischan,$1 $timestamp,-at) $pre($+(07,$chr(3),$iif($1 ischan,03channel,08private),$chr(3),07notice)) $+(To,$chr(32),$lev($1,$active),$chr(32),$col($+(10,$chr(40),$network,$chr(41))),$chr(32),$chr(3),14,$chr(8249),$chr(3),07,$chr(32),$2-) } | .!notice $1- } | else { _Error a $+($col($+(07,$chr(47),notice)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),notice,$chr(32),$chr(60),nick,$chr(32),or,$chr(32),chan,$chr(62),$chr(32),$chr(60),message,$chr(62),$chr(3),14,$chr(41)))) } }
alias nri { return $readini($inz(nmanager),$1,$2) }
alias nwi { writeini -n $inz(nmanager) $1- }
alias o+ { mode $active $+($chr(43),$str($chr(111),$numtok($1-,32))) $1- }
alias o- { mode $active $+($chr(45),$str($chr(111),$numtok($1-,32))) $1- }
alias omsg { if ($1) { if ($1 ischan) { var %t = $1,%m = $2- } | if ($1 !ischan) && ($active ischan) { var %t = $active,%m = $1- } | if ($1 !ischan) && ($active !ischan) { var %e = on } | if (%t) { if ($ump($me,%t,oe)) { if ($show) { echo -t %t $pre(04op15message) $+($lev($me,%t),$chr(32),$chr(3),14,$chr(8250),$chr(32),%m) } | .!omsg %t %m } } } | else { var %e = on } | if (%e) { _Error a $+($col($+(07,$chr(47),omsg)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),omsg,$chr(32),$chr(60),channel,$chr(32),or,$chr(32),active,$chr(32),window,$chr(32),$chr(45),$chr(32),if,$chr(32),active,$chr(32),window,$chr(32),is,$chr(32),channel,$chr(62),$chr(32),$chr(60),text,$chr(62),$chr(41)))) } }
alias onotice { if ($1) { if ($1 ischan) { var %t = $1,%n = $2- } | if ($1 !ischan) && ($active ischan) { var %t = $active,%n = $1- } | if ($1 !ischan) && ($active !ischan) { var %e = on } | if (%t) { if ($ump($me,%t,oe)) { if ($show) { echo -t %t $pre(0704op07notice) $+($lev($me,%t),$chr(32),$chr(3),14,$chr(8250),$chr(3),07,$chr(32),%n) } | .!onotice %t %n } } } | else { var %e = on } | if (%e) { _Error a $+($col($+(07,$chr(47),onotice)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),onotice,$chr(32),$chr(60),channel,$chr(32),or,$chr(32),active,$chr(32),window,$chr(32),$chr(45),$chr(32),if,$chr(32),active,$chr(32),window,$chr(32),is,$chr(32),channel,$chr(62),$chr(32),$chr(60),text,$chr(62),$chr(41)))) } }
alias op { var %t = $iif($1,$v1,$me) | raw -q ChanServ $iif(%t isop $chan,deop,op) $chan %t }
alias _Operator {
  if ($dialog(operator)) { var %x = 1 | while ($scon(%x).network) { scon %x | if ($network == $ori(Net)) { did -ra operator 25 $ori(Net) | did -ra operator 26 $ori(Chan) | did -ra operator 27 $ori(Nick) | var %y = 1 | while ($chan(%y)) { if ($v1 == $ori(Chan)) { owi Nick $iif($snick($active,1),$v1,$str($chr(45),7)) | if ($ori(Nick) != $str($chr(45),7)) { if ($ori(Meth) == host) { owi Mask $address($ori(Nick),2) } | elseif ($ori(Meth) == nick) { owi Mask $+($ori(Nick),$chr(33),$chr(42),$chr(64),$chr(42)) } | elseif ($ori(Meth) == ident) { owi Mask $+($chr(42),$chr(33),$chr(42),$gettok($address($ori(Nick),3),2,42),$chr(42)) } | owi Level $lev($ori(Nick),$ori(Chan)) } | did -ra operator 27 $ori(Nick) | if ($ori(Comm)) { $iif($ump($ori(Me),$ori(Chan),$gettok($ori(Comm),1,9679)),$gettok($ori(Comm),2,9679),$iif($gettok($ori(Comm),3,9679),$v1)) | dmi Operator Comm | window -a $ori(Chan) } } | inc %y } } | inc %x
} } }
alias ori { return $readini($inz(dreamirc),Operator,$1) }
alias owi { writeini -n $inz(dreamirc) Operator $1- }
alias part { if ($1) { if ($1 ischan) { var %c = $1,%t = $iif($2,$2-) } | else { if ($active ischan) { var %c = $active,%t = $1- } | else { var %e = on } } } | else { if ($active ischan) { var %c = $active } | else { var %e = on } } | if (%c) { !part %c $+($rac($iif(%t,$v1,$iif($nri($network,$+(%c,~,OnPartMsg)),$v1,$+(Out,$chr(32),of,$chr(32),here,$chr(46))))),$vsx($network,%c,$vse)) } | if (%e) { _Error a $+($chr(3),14,You,$chr(32),are,$chr(32),not,$chr(32),in,$chr(32),channel,$chr(32),$lev($active)) } }
alias partall { if ($show) { echo -st $pre(14part) $+(parting,$chr(32),all,$chr(32),channels,$chr(32),on,$chr(32),$lev($network)) } | var %x = 1 | while ($chan(%x)) { var %b = $v1 | .timer -m 1 100 !part %b $+($rac($iif($1,$1-,$iif($nri($network,$+(%b,~,OnPartMsg)),$v1,$+(parting,$chr(32),all,$chr(32),channels)))),$vsx($network,%b,$vse)) | inc %x } }
alias percent { if ($1-2) { if ($1 == $chr(48)) { return $+($chr(48),$chr(37)) } | else { return $+($round($calc($1 * 100 / $2),$iif($3,$3,1)),$chr(37)) } } }
alias ping { ctcp $1 PING $2- }
alias _Play { if (!$($+(%,$1),2)) && ($vri(ScriptSounds) == on) { write $txz(waves) $+($1,$chr(46),wav) | if ($lines($txz(waves)) == 1) { splay -w $read($txz(waves),1) } | inc -u2 $+(%,$1) } }
alias pln { return $remove($strip($1),$chr(1),$chr(33),$chr(37),$chr(38),$chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(58),$chr(60),$chr(62),$chr(63),$chr(64),$chr(91),$chr(93),$chr(124),$chr(126),$chr(176),$chr(178)) }
alias pre { return $+($chr(3),$left($1,2),$chr(9679),$chr(32),$chr(3),14,$chr(124),$chr(3),$left($1,2),$right($1,-2),$chr(3),14,$chr(124)) }
alias q { query $1- }
alias q+ { mode $active $+($chr(43),$str($chr(113),$numtok($1-,32))) $1- }
alias q- { mode $active $+($chr(45),$str($chr(113),$numtok($1-,32))) $1- }
alias qme { if ($1) { var %x = 1 | while ($query(%x)) { var %a = $v1 | $+($iif($show,$chr(46)),describe) %a $1- | if ($show) { echo -t %a $+($chr(3),13,$chr(9679),$chr(32),$lev($me),$chr(3),13,$chr(32),$1-) } | inc %x } } | else { _Error a $+($col($+(07,$chr(47),qme)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),qme,$chr(32),$chr(60),action,$chr(62),$chr(3),14,$chr(41)))) } }
alias qmsg { if ($1) { var %x = 1 | while ($query(%x)) { var %a = $v1 | $+($iif($show,$chr(46)),msg) %a $1- | if ($show) { echo -t %a $+($chr(3),14,$chr(9679),$chr(32),$lev($me),$chr(32),$chr(3),14,$chr(8250),$chr(32),$1-) } | inc %x } } | else { _Error a $+($col($+(07,$chr(47),qmsg)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),qmsg,$chr(32),$chr(60),message,$chr(62),$chr(3),14,$chr(41)))) } }
alias query { if ($1) { if ($1 == -n) { if ($2) { var %m = -n,%q = $2- } | else { var %e = on } } | else { var %q = $1- } | if (%q) { !query $iif($show,$iif(%m,%m),-n) %q | _Background %q } } | else { var %e = on } | if (%e) { _Error a $+($col($+(07,$chr(47),query)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),query,$chr(32),$chr(40),$chr(45),n,$chr(41),$chr(32),$chr(60),nick,$chr(62),$chr(32),$chr(60),message,$chr(62),$chr(3),14,$chr(41)))) } }
alias _QueryEcho { .query $1 | var %x = 1 | while ($comchan($1,%x)) { var %a = $addtok(%a,$col($+(03,$v1)),32) | inc %x } | echo 14 -mt $1 $pre(10comchan) $+($iif(%a,C,$+(No,$chr(32),c)),ommon,$chr(32),channel,$iif($numtok(%a,32) != 1,s),$chr(32),with,$chr(32),$lev($1),$iif(%a,$+($chr(58),$chr(32),$v1),$chr(46))) | if ($2) { echo -mt $1 $+($pre(07saved15message),$chr(32),$2-) } | if ($son(63) == on) { _Play 10630 } | unset $+(%,Query,*) }
alias _QueryProt { if (!$($+(%,QueryIgn,~,$1),2)) { echo -at $pre(08query) $+($lev($network),$chr(3),14,$chr(47),$lev($3),$chr(32),$chr(3),14,attempts,$chr(32),to,$chr(32),send,$chr(32),you,$chr(32),a,$chr(32),private,$chr(32),message,$chr(58),$chr(3),$chr(32),$4-) | if ($son(11) == on) { _Play 10110 } } | if ($($+(%,QueryNum,~,$1),2)) { if ($($+(%,QueryIgn,~,$1),2)) { halt } | if ($strip($4) == $($+(%,QueryNum,~,$1),2)) { .msg $3 $pre(10auto15message) $+($chr(3),03,Digits,$chr(32),match,$chr(3),14,$chr(46),$chr(32),You,$chr(32),can,$chr(32),message,$chr(32),me,$chr(32),in,$chr(32),private,$chr(32),now,$chr(46)) | _QueryEcho $3 $($+(%,QueryLin,~,$1),2) | hadd $+(Tra,~,$network) $1 $+($ctime,$chr(126),all,$chr(126),$2) | halt } | if ($strip($4) != $($+(%,QueryNum,~,$1),2)) { inc -eu180 $+(%,QueryTry,~,$1) | if ($($+(%,QueryTry,~,$1),2) == 3) { set -eu180 $+(%,QueryIgn,~,$1) on | .msg $3 $pre(10auto15message) $+($chr(3),04,Fail,$chr(32),3,$chr(32),times,$chr(3),14,$chr(46),$chr(32),You,$chr(32),have,$chr(32),to,$chr(32),wait,$chr(32),$chr(3),07,3,$chr(32),$chr(3),14,minutes,$chr(32),to,$chr(32),try,$chr(32),again,$chr(46)) | ignore -pu180 $address($3,2) | halt } | set -eu180 $+(%,QueryNum,~,$1) $+($r(0,9),$r(0,9),$r(0,9),$r(0,9)) | .msg $3 $pre(10auto15message) $+($chr(3),04,Digits,$chr(32),$iif($strip($4) isnum,$+(don't,$chr(32),match),$+(only,$chr(32),please)),$chr(3),14,$chr(46),$chr(32),Type,$chr(32),these,$chr(32),new,$chr(32),digits,$chr(58),$chr(32),$chr(3),07,$($+(%,QueryNum,~,$1),2)) | halt } } | elseif (!$($+(%,QueryNum,~,$1),2)) { set -eu180 $+(%,QueryLin,~,$1) $4- | set -eu180 $+(%,QueryNum,~,$1) $+($r(0,9),$r(0,9),$r(0,9),$r(0,9)) | .msg $3 $pre(10auto15message) $+($vsb,$chr(39),s,$chr(32),$col($+(03,Anti,$chr(45),Spam,$chr(32),System,$chr(33)))) | .msg $3 $pre(10auto15message) $+(Type,$chr(32),the,$chr(32),following,$chr(32),digits,$chr(32),to,$chr(32),message,$chr(32),me,$chr(32),in,$chr(32),private,$chr(58),$chr(32),$chr(3),07,$($+(%,QueryNum,~,$1),2)) | halt } }
alias quit { if ($vri(OnQuitPartall) == on) { .timer 1 3 _CloseAll } | !quit $+($left($rac($iif($1,$1-,$iif($readini($inz(nmanager),$network,OnQuitMsg),$v1,$read($txz($gettok(jokes~norris~quits~quotes,$r(1,4),126)))))),224),$chr(32),$col($+(07,$chr(40),$dri(Settings,WebSite),$chr(41)))) }
alias quote { if (q !isin $1) { echo -at $pre(15quote) $+($lev($server),$chr(32),$chr(3),14,$chr(8249),$chr(32),$chr(3),15,$1-) | !quote -qn $1- } | else { !quote -qn $2- } }
alias rac { var %x = $r(3,14) | return $col($+($iif($len(%x) == 1,$+($chr(48),%x),%x),$1)) }
alias raw { if (q !isin $1) { echo -st $pre(11raw) $+($lev($server),$chr(32),$chr(3),14,$chr(8249),$chr(32),$chr(3),11,$1-) | !raw -qn $1- } | else { !raw -qn $2- } }
alias _ReKick { if ($2 ison $1) && ($ump($me,$1,ohe)) { kick $1 $2 $+($chr(3),14,$iif($3,$3-,$+(get,$chr(32),out,$chr(32),of,$chr(32),here)),$iif($vri(KickCounter) == on,$+($chr(32),$chr(3),14,$chr(45),$chr(32),$chr(3),04,$dri(Settings,Kicks),$chr(32),$chr(3),14,kicks)),$chr(32),$vsx($network,$chan,$vsb),$chr(3)) } }
alias remote { if ($1) && ($1 == off) { _Error a $+($chr(3),14,$chr(47),$chr(3),07,remote,$chr(32),off,$chr(32),$chr(3),14,command,$chr(32),has,$chr(32),been,$chr(32),disabled,$chr(32),for,$chr(32),$chr(3),04,security,$chr(32),reasons,$chr(3),14,$chr(33)) | var %e = $input(This command has been disabled for security reasons.,houd,/remote off - Error) | halt } | else { if ($show) { if ($remote & 1) { var %remote = $+(%remote,$chr(32),$chr(3),04,ctcps) } | if ($remote & 2) { var %remote = $+(%remote,$chr(32),$chr(3),03,events) } | if ($remote & 4) { var %remote = $+(%remote,$chr(32),$chr(3),11,raws) } | echo -at $pre(10remote) $+(%remote,$chr(32),$chr(3),14,are,$chr(32),enabled) } | .!remote $iif($1,$1-) } }
alias remove { if ($show) { echo -st $pre(10remove) $+(the,$chr(32),$col($+(10,$nopath($iif($1 == -b,$2-,$1-)))),$chr(32),$chr(3),14,file,$chr(32),$iif($1 != -b,re),moved,$chr(32),$iif($1 == -b,$+(to,$chr(32),the,$chr(32),$chr(3),07,recycle,$chr(32),bin))) } | .!remove $1- }
alias s { server $1- }
alias say { if ($istok(channel~query~chat,$window($active).type,126)) { if ($1 == $false) { var %a = false } | if ($1) || ($1 == $chr(48)) { var %a = $1- } | msg $active %a | elseif (!$1) { _Error a $+($col($+(07,$chr(47),say)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),say,$chr(32),$chr(60),message,$chr(62),$chr(3),14,$chr(41)))) } } }
alias scan { if ($1) { echo -at $pre(10mask) $+(Scanning,$chr(32),$lev($active),$chr(32),$chr(3),14,for,$chr(32),users,$chr(32),matching,$chr(58),$chr(32),$col($+(10,$1))) | var %a = $+(*,$1,*) | if ($ialchan(%a,$active,0)) { var %b = $v1 | .timer 1 1 echo -at $pre(10mask) $+(Found,$chr(32),$chr(3),07,%b,$chr(32),$chr(3),14,user,$iif(%b > 1,s),$chr(32),matching,$chr(46)) | var %x = 1 | while ($ialchan(%a,$active,%x)) { var %c = $ialchan(%a,$active,%x).nick,%d = $ialchan(%a,$active,%x).addr | .timer 1 %x echo -at $pre(10mask) $+($chr(3),07,%x,$chr(3),14,$chr(46),$chr(32),$lev(%c,$active),$col($+(10,$chr(33),%d))) | inc %x } } | else { .timer 1 1 echo -at $pre(10mask) $+(No,$chr(32),matches,$chr(32),found,$chr(46)) } | .timer 1 $iif(%x,$calc($v1 + 1),2) echo -at $+($pre(10mask),$chr(32),End,$chr(32),of,$chr(32),scan,$chr(46)) } | else { _Error a $+(No,$chr(32),Mask,$chr(32),or,$chr(32),Nick,$chr(32),entered,$chr(46)) } }
alias _ScanChan { set $+(%,ScanChan,~,$network,~,$1) $2 | set $+(%,WhoHide,~,$network) on | raw -q who $1 }
alias scn { var %x = 1 | while ($scon(%x).network) { if ($1 == $v1) { return %x } | inc %x } }
alias send { dcc send $1-2 }
alias server { if ($1) { !server $1- } | else { var %x = $numtok($nri(Connect,Networks),126) | while (%x) { var %a = $gettok($nri(Connect,Networks),%x,126) | if ($nri(%a,Connection) == viaznc) { var %b = $nri(%a,ZncIp),%c = $+(%b,$chr(58),$nri(%a,ZncPort),$chr(32),$nri(%a,ZncUser),$chr(58),$nri(%a,ZncPass)) } | if ($nri(%a,Connection) == direct) { var %b = $nri(%a,SrvIp),%c = $+(%b,$chr(58),$iif($nri(%a,SrvPort),$v1,6667),$iif($nri(%a,SrvUser),$+($chr(32),$v1)),$iif($nri(%a,SrvPass),$+($chr(58),$v1)))) } | if (%b == $servertarget) { var %y = $scid(0) | while (%y) { if ($cwc($scon(%y).cid)) { if (%a == $cwc($scon(%y).cid)) { var %IdNum = $+(is,~,%y) } } | else { var %IdNum = $+(is,~,%y) } | dec %y } } | dec %x } | if (!%IdNum) { var %IdNum = $+(no,~,$scon(0),~,$iif($cwc($scon(1).cid),dis)) } | if ($status == connected) { disconnect $cid } | else { scid $cid } | _NetworkConnect %IdNum $+($iif($nri(%a,Nick),$v1,no),$chr(1),$iif($nri(%a,aNick),$v1,no),$chr(1),$iif($nri(%a,FullName),$v1,no),$chr(1),$iif($nri(%a,EmailAddr),$v1,no),$chr(1),$iif($nri(%a,UserID),$v1,no),$chr(1),%c) } }
alias _Simple { run mirc.exe -r $+ $qt($+($mircdirfiles,$chr(92),smirc)) | if ($son(11) == on) { _Play 10110 } }
alias sla { return chops~kicks~hits~pokes~punches~slaps~s.l.a.p.s.~slaps a large trout around a bit with~slapz~smacks~spanks~throws at the head of~baraei~faps~klots~klotsaei~klwts~klwtsaei~kopanaei~rapisma eis~rapisma se~rapizei~sfaliarizei~tsimpaei~tsimps~varaei~xoufts~xoyfts }
alias _SlapAdd { if ($son(11) == on) { _Play 10110 } | if ($input(Enter here your text in order to add it to the slaps.txt file. (Note that you must use $chr(36) $+ 1 for nickname and $chr(36) $+ 2 for channel),ei,Add Custom Slap,$iif($cb,$cb,slaps $1 with...))) { var %a = $v1 | write -il1 $txz(slaps) %a | echo -st $pre(10state) $+($chr(3),07,Custom,$chr(32),Slap,$chr(32),$chr(3),14,%a,$chr(58),$chr(32),$chr(3),03,Added) } }
alias _SlapBack { msg $2 $readini($inz(slaps),Back,$+(b,$r(1,$ini($inz(slaps),Back,0)))) | .timer -m 1 500 _SlapPlay 10201 }
alias _SlapCustom { describe $2 $read($txz(slaps)) }
alias _SlapGreek1 { describe $2 $+($iif($3,antapodidei,kataferei),$chr(32),rapisma,$chr(32),eis,$chr(32),$1,$chr(32),xrhsimopoiwntas,$chr(32),$rac($readini($inz(slaps),Greek,$+(g,$r(1,$ini($inz(slaps),Greek,0)))))) }
alias _SlapGreek2 { describe $2 $+($iif($3,anti),sfaliarizei,$chr(32),$1,$chr(32),me,$chr(32),$rac($readini($inz(slaps),Greek,$+(g,$r(1,$ini($inz(slaps),Greek,0)))))) }
alias _SlapEnglish { describe $2 $+(slaps,$chr(32),$1,$chr(32),$iif($3,$+($v1,$chr(32))),around,$chr(32),a,$chr(32),bit,$chr(32),with,$chr(32),$rac($readini($inz(slaps),English,$+(e,$r(1,$ini($inz(slaps),English,0)))))) }
alias _SlapJoke { describe $2 $+(slaps,$chr(32),$1,$chr(32),$iif($3,$+($v1,$chr(32))),with,$chr(32),the,$chr(32),joke,$chr(32),$chr(3),14,$chr(8250),$chr(32),$rac($read($txz($gettok(jokes~norris,$r(1,2),126))))) }
alias _SlapOther { describe $2 $+($readini($inz(slaps),Other,$+(o,$r(1,$ini($inz(slaps),Other,0))))) }
alias _SlapPlay { if ($son(20) == on) { _Play $1 } }
alias _SlapRandom { if ($($+(%,Slap,~,$network,~,$2,~,$1),2)) { inc -u10 $+(%,Flood,~,$network,~,$2,~,$1) } | if ($($+(%,Flood,~,$network,~,$2,~,$1),2) <= $readini($inz(slaps),Arrange,SlapBackTimes)) || (!$($+(%,Flood,~,$network,~,$2,~,$1),2)) { var %a = $iif($($+(%,Slap,~,$network,~,$2,~,$1),2),1,2),%b = $iif($2 ischan,9,8),%r = $r(%a,%b),%s = $gettok(Back~Custom~English~Greek1~Greek2~Joke~Other~Robe~Throw~User,%r,126) | .timer -m 1 500 $+(_Slap,%s) $1 $2 $iif($($+(%,Slap,~,$network,~,$2,~,$1),2),$v1) } | unset $+(%,Slap,~,$network,~,$2,~,$1) }
alias _SlapRobe { describe $2 $+(slaps,$chr(32),$1,$chr(32),$iif($3,$+($v1,$chr(32))),with,$chr(32),the,$chr(32),robe,$chr(32),$chr(3),14,$chr(8250),$chr(32),$read($txz(robes))) }
alias _SlapThrow { describe $2 $+(throws,$chr(32),at,$chr(32),the,$chr(32),head,$chr(32),of,$chr(32),$1,$chr(32),$readini($inz(slaps),Throw,$+(t,$r(1,$ini($inz(slaps),Throw,0))))) }
alias _SlapUser { var %x = 1 | while ($nick($2,%x)) { var %a = $v1 | if (!$istok($me $1 $readini($inz(slaps),Arrange,ExcludedNicks),%a,32)) { var %b = $addtok(%b,%a,126) } | inc %x } | describe $2 $+(slaps,$chr(32),$1,$chr(32),$iif($3,$+($v1,$chr(32))),around,$chr(32),a,$chr(32),bit,$chr(32),with,$chr(32),$gettok(%b,$r(1,$numtok(%b,126)),126)) }
alias son { return $dri(Sounds,$+(sound,$1)) }
alias stp { if (c isincs $chan($1).mode) && ($vri(StripOnc) == on) { return $strip($2-) | halt } | if (S isincs $chan($1).mode) && ($vri(StripOnS) == on) { return $strip($2-) | halt } | return $2- }
alias tgc { if ($fullscreen == 1) || ($tri(DisableAll) == on) { return $false } | else { return $iif($tri($1) == on,$true,$false) } }
alias timer* { if ($1) && ($1 == off) { _Error a $+($col($+(07,$chr(47),timer,$chr(42),$chr(32),off)),$chr(32),$chr(3),14,command,$chr(32),has,$chr(32),been,$chr(32),disabled,$chr(32),for,$chr(32),$col($+(04,security,$chr(32),reasons,$chr(33)))) | var %e = $input(This command has been disabled for security reasons.,houd,/timer* off - Error) | halt } | else { !timer* $iif($1,$1-) } }
alias timers { if ($1) && ($1 == off) { _Error a $+($col($+(07,$chr(47),timers,$chr(32),off)),$chr(32),$chr(3),14,command,$chr(32),has,$chr(32),been,$chr(32),disabled,$chr(32),for,$chr(32),$col($+(04,security,$chr(32),reasons,$chr(33)))) | var %e = $input(This command has been disabled for security reasons.,houd,/timers off - Error) | halt } | else { !timers $iif($1,$1-) } }
alias _TipTrigger {
  if ($1 == EX) { var %t = $+($chr(3),12,Exiting,$chr(32),progress,$str($chr(46),3)) } | if ($1 == MP) { var %t = $+($chr(3),04,Music,$chr(32),Player) } | if (!$appactive) || (($appactive) && ($tri(OnAppactive) == on)) { if ($1 == AW) { var %t = $+($chr(3),12,Away) } | if ($1 == BM) { var %t = $+($chr(3),07,You,$chr(32),are,$chr(32),being,$chr(32),mentioned) } | if ($1 == CA) { var %t = $+($chr(3),13,Channel,$chr(32),Action) } | if ($1 == CC) { var %t = $+($chr(3),04,Channel,$chr(32),Ctcp) } | if ($1 == CH) { var %t = $+($chr(3),04,DCC,$chr(32),Chat) } | if ($1 == CJ) { var %t = $+($chr(3),03,Join,$chr(32),in,$chr(32),Channel) } | if ($1 == CM) { var %t = $+($chr(3),01,Channel,$chr(32),Message) } | if ($1 == CN) { var %t = $+($chr(3),07,Channel,$chr(32),Notice) } | if ($1 == CO) { var %t = $+($chr(3),12,Connected,$chr(32),on,$chr(32),Server) } | if ($1 == CP) { var %t = $+($chr(3),14,Part,$chr(32),Channel) } | if ($1 == DC) { var %t = $+($chr(3),12,Disconnected,$chr(32),from,$chr(32),Server) } | if ($1 == DG) { var %t = $+($chr(3),04,DCC,$chr(32),Get) } | if ($1 == DS) { var %t = $+($chr(3),04,DCC,$chr(32),Send) } | if ($1 == ER) { var %t = $+($chr(3),04,Error) } | if ($1 == IN) { var %t = $+($chr(3),03,Invite) } | if ($1 == KI) { var %t = $+($chr(3),13,User,$chr(32),Kicked) } | if ($1 == LI) { var %t = $+($chr(3),03,Channels,$chr(32),List) } | if ($1 == MO) { var %t = $+($chr(3),13,Channel,$chr(32),Mode) } | if ($1 == NI) { var %t = $+($chr(3),09,Nick,$chr(32),Changed) } | if ($1 == NM) { var %t = $+($chr(3),05,New,$chr(32),Memo) } | if ($1 == NO) { var %t = $+($chr(3),08,Notify) } | if ($1 == PA) { var %t = $+($chr(3),13,Private,$chr(32),Action) } | if ($1 == PC) { var %t = $+($chr(3),04,Private,$chr(32),Ctcp) } | if ($1 == PM) { var %t = $+($chr(3),01,Private,$chr(32),Message) } | if ($1 == PN) { var %t = $+($chr(3),07,Private,$chr(32),Notice) } | if ($1 == QU) { var %t = $+($chr(3),12,Quit,$chr(32),from,$chr(32),IRC) } | if ($1 == SN) { var %t = $+($chr(3),07,Server,$chr(32),Notice) } | if ($1 == TO) { var %t = $+($chr(3),03,Topic,$chr(32),Changed) } | if ($1 == YT) { var %t = $+($chr(3),01,You,$chr(3),04,Tube) } }
  if (%t) { var %e = $ctime,%l = $tri(QueueLog),%n = $numtok(%l,126),%q = $tri(QueueTips),%s = $tri(ShowTime) | if ($tip(0)) { var %x = 1 | while (%x <= $tip(0)) { if ($tip(0) > %q) { tip -c 1 } | inc %x } } | if (%n < %q) { twi QueueLog $+($addtok(%l,%e,126),$chr(126)) } | if (%n >= %q) { $+(.,timer,$gettok(%l,1,126)) off | twi QueueLog $+($addtok($deltok(%l,1,126),%e,126),$chr(126)) } | var %i = $+($mircdirfiles,$chr(92),graphs,$chr(92),ico,$chr(92),$iif($1 == MP,2,3),$chr(46),ico),%u = $+($chr(3),14,$chr(44),01,$chr(32),$2,$chr(3),14,$chr(44),01,$chr(47),$3,$chr(3),01,$chr(44),01),%a = $+($chr(3),14,$chr(44),01,$chr(32),$4,$chr(58),$chr(32),$5-),%b = $len(%a) | if (%b >= 63) { var %v = $left(%a,63) } | if (%b < 63) { var %c = $calc(63 - %b) | if (%c <= 7) { var %d = 2.1 } | if (%c > 7) && (%c <= 14) { var %d = 1.89 } | if (%c > 14) && (%c <= 21) { var %d = 1.88 } | if (%c > 21) && (%c <= 28) { var %d = 1.86 } | if (%c > 28) && (%c <= 35) { var %d = 1.85 } | if (%c > 35) && (%c <= 42) { var %d = 1.86 } | if (%c > 42) && (%c < 53) { var %d = 1.88 } | var %v = %a $str($chr(32),$int($calc(%c * %d))) } | noop $tip(%e,%t,%u,%s,%i) | noop $tip(%e,%t,%v,%s) | $+(.,timer,%e) 1 %s twi QueueLog $+($remtok($tri(QueueLog),%e,1,126),$chr(126)) }
}
alias tmi { remini $inz(dreamirc) Tips $1- }
alias tnick { if ($1) { if ($show) { echo -st $pre(09tnick) $+(temporary,$chr(32),nickname,$chr(32),$col($+(09,$1)),$chr(32),$chr(3),14,was,$chr(32),requested) } | .!tnick $1 } }
alias tob { return $+(files,$chr(92),graphs,$chr(92),png,$chr(92),$1,$chr(46),png) }
alias _ToolActs1 { window -pBwh +d @Acts -1 -1 69 16 | drawrect -rnf @Acts $rgb(0,0,0) 1 0 0 69 16 | toolbar $+($chr(45),$iif($toolbar(acts),uy255 acts,au acts "Activity Monitor"),$chr(32),@Acts,$chr(32),$chr(34),$chr(34),$chr(32),@Acts) | .timertoolbar.acts -om 1 25 _ToolActs2 $ticks }
alias _ToolActs2 { var %actlast = $1,%actcurr = $ticks | if ($calc(%actcurr - %actlast) >= 5000) { drawscroll -n @Acts -1 0 0 0 69 16 | drawline -rn @Acts $rgb(0,0,0) 1 68 15 68 -1 | _ToolActs3 | toolbar -upy255 acts @Acts | set %actlast %actcurr | set %Activity $floor($calc(%Activity * 3 / 4)) } | .timertoolbar.acts -om 1 25 _ToolActs2 %actlast }
alias _ToolActs3 {
  if (%Activity == 0) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 14 } | elseif (%Activity == 1) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 } | elseif (%Activity == 2) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 12 } | elseif (%Activity == 3) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 } | elseif (%Activity == 4) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 10 } | elseif (%Activity == 5) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 } | elseif (%Activity == 6) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 8 } | elseif (%Activity == 7) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 } | elseif (%Activity == 8) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 6 } | elseif (%Activity == 9) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 } | elseif (%Activity == 10) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 | drawline -rn @Acts $rgb(200,200,0) 1 68 5 68 4 }
  elseif (%Activity == 11) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 | drawline -rn @Acts $rgb(200,200,0) 1 68 5 68 3 } | elseif (%Activity == 12) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 | drawline -rn @Acts $rgb(200,200,0) 1 68 5 68 3 | drawline -rn @Acts $rgb(252,127,0) 1 68 3 68 2 } | elseif (%Activity == 13) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 | drawline -rn @Acts $rgb(200,200,0) 1 68 5 68 3 | drawline -rn @Acts $rgb(252,127,0) 1 68 3 68 1 } | elseif (%Activity == 14) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 | drawline -rn @Acts $rgb(200,200,0) 1 68 5 68 3 | drawline -rn @Acts $rgb(252,127,0) 1 68 3 68 1 | drawline -rn @Acts $rgb(255,0,0) 1 68 1 68 0 } | elseif (%Activity >= 15) { drawline -rn @Acts $rgb(0,100,0) 1 68 15 68 13 | drawline -rn @Acts $rgb(0,125,0) 1 68 13 68 11 | drawline -rn @Acts $rgb(0,150,0) 1 68 11 68 9 | drawline -rn @Acts $rgb(0,200,0) 1 68 9 68 7 | drawline -rn @Acts $rgb(0,225,0) 1 68 7 68 5 | drawline -rn @Acts $rgb(200,200,0) 1 68 5 68 3 | drawline -rn @Acts $rgb(252,127,0) 1 68 3 68 1 | drawline -rn @Acts $rgb(255,0,0) 1 68 1 68 -1 }
}
alias _ToolActs4 { .timertoolbar.acts off | toolbar -y0 acts @Acts | unset %Activity }
alias _ToolDate1 { window -pBw0hf +d @Date -1 -1 178 16 | drawrect -rnf @Date $rgb(0,0,0) 1 0 0 178 16 | toolbar $+($chr(45),$iif($toolbar(date),uy255 date,au date "Date & Time"),$chr(32),@Date,$chr(32),$chr(34),$chr(34),$chr(32),@Date) | .timertoolbar.date -io 0 1 _ToolDate2 }
alias _ToolDate2 { var %d = $asctime($ctime,$col($+(07,ddd)) $col($+(10,dd/mm/yy)) $col($+(07,HH:nn:ss))) | drawrect -rnf @Date $rgb(0,0,0) 1 0 0 178 16 | drawtext -p @Date 0 Verdana 13 $calc((178 - $width(%d,Verdana,13,0,1)) / 2) 0 %d | toolbar -upy255 date @Date }
alias _ToolDate3 { .timertoolbar.date off | toolbar -y0 date @Date }
alias _ToolIdle1 { window -pBw0hf +d @Idle -1 -1 80 16 | drawrect -rnf @Idle $rgb(0,0,0) 1 0 0 80 16 | toolbar $+($chr(45),$iif($toolbar(idle),uy255 idle,au idle "Idle Time"),$chr(32),@Idle,$chr(32),$chr(34),$chr(34),$chr(32),@Idle) | .timertoolbar.idle -io 0 1 _ToolIdle2 }
alias _ToolIdle2 { var %i = $col($+(07,$duration($idle,3))) | drawrect -rnf @Idle $rgb(0,0,0) 1 0 0 80 16 | drawtext -p @Idle 0 Verdana 13 $calc((80 - $width(%i,Verdana,13,0,1)) / 2) 0 %i | toolbar -upy255 idle @Idle }
alias _ToolIdle3 { .timertoolbar.idle off | toolbar -y0 idle @Idle }
alias _ToolSlag1 { window -pBw0hf +d @Slag -1 -1 250 16 | drawrect -rnf @Slag $rgb(0,0,0) 1 0 0 250 16 | toolbar $+($chr(45),$iif($toolbar(slag),uy255 slag,au slag "Server Lag"),$chr(32),@Slag,$chr(32),$chr(34),$chr(47),lag,$chr(34),$chr(32),@Slag) | .timertoolbar.slag -io 0 5 _ToolSlag2 }
alias _ToolSlag2 { if ($status == connected) { raw -q PING slag. [ $+ [ $ticks ] ] } | else { _ToolSlag4 $+($chr(3),04,not,$chr(32),connected) } }
alias _ToolSlag3 { set $+(%,Slag,~,$server,~,curr) $calc(($ticks - $1) / 1000) | set $+(%,Slag,~,$server,~,serv) $server | _ToolSlag4 $+($lev($server),$chr(32),$col($+(10,$($+(%,Slag,~,$server,~,curr),2))),$chr(3),14,s) | if ($($+(%,Slag,~,$server,~,curr),2) > $($+(%,Slag,~,$server,~,high),2)) || (!$($+(%,Slag,~,$server,~,high),2)) { set $+(%,Slag,~,$server,~,high) $($+(%,Slag,~,$server,~,curr),2) } | if ($($+(%,Slag,~,$server,~,curr),2) < $($+(%,Slag,~,$server,~,lowe),2)) || (!$($+(%,Slag,~,$server,~,lowe),2)) { set $+(%,Slag,~,$server,~,lowe) $($+(%,Slag,~,$server,~,curr),2) } }
alias _ToolSlag4 { drawrect -rnf @Slag $rgb(0,0,0) 1 0 0 250 16 | drawtext -p @Slag 0 Verdana 13 $calc((250 - $width($1-,Verdana,13,0,1)) / 2) 0 $1- | toolbar -upy255 slag @Slag }
alias _ToolSlag5 { .timertoolbar.slag off | toolbar -y0 slag @Slag }
alias tri { return $readini($inz(dreamirc),Tips,$1) }
alias twi { writeini -n $inz(dreamirc) Tips $1- }
alias txz { return $qt($+($mircdirfiles,$chr(92),texts,$chr(92),$1,$chr(46),txt)) }
alias ump { if ((r isin $3) && ($1 isreg $2)) || ((v isin $3) && ($1 isvoice $2)) || ((h isin $3) && ($1 ishop $2)) || ((o isin $3) && ($1 isop $2)) { return $true } | else { if (e isin $3) { _Error s $+($iif($1 == $me,$+($chr(3),14,you,$chr(32),don't),$+($lev($1,$2),$chr(32),$chr(3),14,doesn't)),$chr(32),have,$chr(32),enough,$chr(32),access,$chr(32),privileges,$chr(32),for,$chr(32),this,$chr(32),operation,$chr(32),on,$chr(32),$col($+(03,$2)))} } } }
alias unsetall { _Error a $+($chr(3),14,$chr(47),$chr(3),07,unsetall,$chr(32),$chr(3),14,command,$chr(32),has,$chr(32),been,$chr(32),disabled,$chr(32),for,$chr(32),$chr(3),04,security,$chr(32),reasons,$chr(3),14,$chr(33)) | var %e = $input(This command has been disabled for security reasons.,houd,/unsetall - Error) | halt }
alias usc { if ($vri(UserCounter) == on) { return $+($chr(3),14,$chr(45),$chr(32),$chr(3),10,$1,$chr(32),$chr(3),14,user,$iif($1 > 1,s))) } }
alias uwho { if ($1) { if ($show) { echo -t %c $pre(11uwho) $+(Looking,$chr(32),up,$chr(32),$lev($1,$activ),$chr(32),$chr(3),14,user,$chr(32),info,$str($chr(46),3)) } | .!uwho $1 } | else { _Error a $+($col($+(07,$chr(47),uwho)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),uwho,$chr(32),$chr(60),nick,$chr(62),$chr(41)))) } }
alias v+ { mode $active $+($chr(43),$str($chr(118),$numtok($1-,32))) $1- }
alias v- { mode $active $+($chr(45),$str($chr(118),$numtok($1-,32))) $1- }
alias _Volume { did $iif($vol(master).mute == $true,-c,-u) cpanel 41 | var %a = $round($calc($vol(master) / 655.35),0) | did -ra cpanel 44 %a | did -c cpanel 45 %a }
alias vri { return $readini($inz(dreamirc),Variables,$1) }
alias vsa { return $+($col($+(10,5,$chr(46),0)),$chr(32),$chr(3),14,build,$chr(3),10,$chr(32),9) }
alias vsb { return $+($chr(3),14,Drea,$chr(3),12,m,$chr(3),04,I,$chr(3),03,R,$chr(3),08,C,$chr(32),$chr(3),14,script) }
alias vsc { return $+($chr(3),14,$chr(45),$chr(32),$vsb) }
alias vsd { return $+($vsb,$chr(32),v,$vsa,$chr(32),$chr(3),14,coded,$chr(32),by,$chr(32),$col($+(03,eL^Topo))) }
alias vse { return $+($vsd,$chr(32),$col($+(07,$chr(40),$dri(Settings,WebSite),$chr(41))),$chr(3)) }
alias vsx { return $iif($nri($1,$+($2,~,Adv)) == on,$+($chr(32),$chr(3),14,$chr(45),$chr(32),$3),$null) }
alias vsz { return $iif($nri($1,$+($2,~,Adv)) == off,$remove($3,$+($chr(32),$vsc)),$3) }
alias vwi { writeini -n $inz(dreamirc) Variables $1- }
alias w { if ($1) { whois $1- } | else { _Error a $+($col($+(07,$chr(47),w)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),w,$chr(32),$chr(60),nick,$chr(62),$chr(41)))) } }
alias who { raw -q who $1- }
alias whois { if ($1) { raw -q whois $iif($2,$1-,$1 $1) } | else { _Error a $+($col($+(07,$chr(47),whois)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),whois,$chr(32),$chr(60),nick,$chr(62),$chr(41)))) } }
alias ww { if ($1) { whowas $1- } | else { _Error a $+($col($+(07,$chr(47),ww)),$chr(32),$chr(3),14,invalid,$chr(32),syntax,$chr(32),$col($+(10,$chr(40),$chr(47),ww,$chr(32),$chr(60),nick,$chr(62),$chr(41)))) } }
alias xpopup { if ($isid) { returnex $dcx(_xpopup,$1 $prop $2-) } | dcx xpopup $2 $1 $3- }
alias _YouTube { if (!$($+(%,YouTube,~,$1,.,BlockL),2)) { var %x = 1 | while (%x <= $numtok($4-,32)) { if ($wildtok($4-,*youtu*,%x,32)) { set $+(%,YouTube,~,$1,~,ID) $yra($v1) } | inc %x } | if ($($+(%,YouTube,~,$1,~,ID),2)) && ($($+(%,YouTube,~,$1,~,ID),2) != $+(%,YouTube,~,$1,.,Last)) { set $+(%,YouTube,~,$1,~,Chan) $2 | set $+(%,YouTube,~,$1,~,Nick) $3 | if ($sock($+(Ytb,.,$($+(%,YouTube,~,$1,~,ID),2)))) { sockclose $+(Ytb,.,$($+(%,YouTube,~,$1,~,ID),2)) } | sockopen -e $+(Ytb,.,$($+(%,YouTube,~,$1,~,ID),2)) www.googleapis.com 443 | .timerYouTube 1 20 _ConError $+(Ytb,.,$($+(%,YouTube,~,$1,~,ID),2)) YtbRead connecting to } | if ($son(23) == on) { _Play 10230 } | set -u3 $+(%,YouTube,~,$1,.,BlockL) on } }
alias yra { if ($+($chr(118),$chr(61)) isin $1) { var %r = $left($gettok($replace($1,$v1,$chr(1)),2,1),11) } | else { var %r = $left($gettok($1,3,47),11) } | return %r }
alias ytl { return $+($chr(3),01,$chr(44),15,$chr(3),01,You,$chr(3),14,$chr(44),04,$chr(91),$chr(3),00,Tube,$chr(3),14,$chr(93),$chr(15),$chr(32),$chr(3),14,Title,$chr(58)) }