[neXus] — File Browser
neXusv1.3 / neXusv1.3 / [neXus] / System / a-main.txt
a-main.txt — 23.09 KB — Download this file
t return 14[3ne14 X3us314]
/h /join #dominicanos,#dashit
/o /who *codetel*
/1 /msg w@channels2.undernet.org login #dashit isabel
/2 /msg w op #dashit
/a /nick _KaiSeR_
ashadow if $1 == $null { echo -a $pa(ShadowTaker) Error - watcha gonna say? | halt } | set %shad *1 | %shad.lngth = $len(%shad) | if %shad.lngth > 52 { %shad.lngth = %shad.lngth - 52 | echo 4 You have used 2 $+ %shad.lngth $+ chars too many. | halt } | %shad.lngth = %shad.lngth + 2 | say 1,1 $+ $str(%shad.lngth, ) | say 1,1 $+ $+ %shad $+ $+ 15,15 | say 1,1 $+ $str(%shad.lngth, ) $+ 15,15 | say 15,15 $+ $str(%shad.lngth, )
listwav /run command.com /c dir /ON /B [ $wavedir $+ *.wav ] > [ $wavedir $+ wav.txt ]
wav listwav | inc %wavcount | set %wav $read $wavedirwav.txt | sound %wav | say $t Random Wave Jukebox player 2File: $pa2(%wav) | unset %wav
tip { echo -a $t Random Tip 10: 5 $+ $r.tip(0) }
f.tip set %r $r(1,5) | if %r == 1 { %s = Tip: Press ShiftF1 for Misc Commands } | elseif %r == 2 { %s = Tip: Press CtrlF1 for Status Help } | elseif %r == 3 { %s = Tip: Press F1 for Function Help } | elseif %r == 4 { %s = Tip: Press ShiftF12 for mIRC Help } | elseif %r == 5 { %s = Type /tip for a random tip } | return %s
r.tip if $1 == 0 { set %r.tip $r(1,45) | return $readini $mircdirzirc.ini Tips n [ $+ [ %r.tip ] ] } | else { set %r.tip $1 | return $readini $mircdirzirc.ini Tips n [ $+ [ %r.tip ] ] }
count { if ($active ischan) {
echo -a $t .--10[ Chan-Stats 10]--14-- --15- 14-15- - | echo -a $t / chan 10: $active | echo -a $t / users 10: $nick(0,$active)
echo -a $t / ops 10: $opnick(0,$active) | echo -a $t / non-ops 10: $nopnick(0,$active) | echo -a $t / voiced 10: $vnick(0,$active) | echo -a $t / non-voiced 10: $nvnick(0,$active) | echo -a $t `-----------------14-- --15- 14-15- - }
else { echo -a $t the active window 10[ $+ $lower($active) $+ 10] is not a channel. }
}
chstats { if ($active ischan) {
say .-10[ ChanStats 10]-14-- - 14-15- - | say / chan 10: $active | say / users 10: $nick(0,$active)
say / ops 10: $opnick(0,$active) | say / non-ops 10: $nopnick(0,$active) | say / voiced 10: $vnick(0,$active) | say / non-voiced 10: $nvnick(0,$active) | say `------------14-- --15- 14-15- - }
else { echo -a $t the active window10[ $+ $lower($active) $+ 10] is not a channel. }
}
status {
echo -a $t .--10[ Status 10]--14-- --15- 14-15- - | echo -a $t / nick 10: $me | echo -a $t / address 10: %my.addie
echo -a $t / local IP 10: $ip | echo -a $t / localhost 10: $host | echo -a $t / OS uptime 10: $utime | echo -a $t / server:port 3: $sport | echo -a $t `---------------14-- --15- 14-15- -
}
add { %tmp = $1 + $2 | return %tmp }
sub %tmp = $1 - $2 | if %tmp < 0 { return 0 } | else { return %tmp }
sub2 { %tmp = $1 - $2 | return %tmp }
div { %tmp = $1 / $2 | return %tmp }
mult { %tmp = $1 * $2 | return %tmp }
utime { return $duration($left($sub($len($ticks),3),$ticks)) }
sport if ($server != $null) { return $server $+ 3: $+ $port } | else { return not connected }
bigtalk {
set %bigtalk $$1
if ($chan == $null) || ($2 == -e) || ($2 == $null) { set %active echo 4 -a }
else if ($2 == -c) { set %active msg $active }
else if ($2 == -d) { set %active describe $active }
set %font $readini $mircdirbin\font.ini BigTalkFontSelector ChosenFont
set %colors $+ $readini $mircdirBin\font.ini BigTalkFontSelector ChosenFontColor $+ $+ , $+ $readini $mircdirBin\Insane.ini BigTalkFontSelector ChosenFontBColor
set %font.size $readini %font Parameters font.size
set %max.length $readini %font Parameters max.length
set %big.length $len(%bigtalk)
if (%big.length > %max.length) { unset %big* %colors %font* %max* | echo 4 $active <BigTalk ThÂnÂt0s v0.97 Elite> | halt }
%i = 1 | %ln = 1 | %ltn = 1 | %write1 = $chr(160) | %write2 = $chr(160) | %write3 = $chr(160) | %write4 = $chr(160) | %write5 = $chr(160) | %write6 = $chr(160)
:mw
if ($mid(%i,1,%bigtalk) = $null) { goto makebig }
if ($mid(%i,1,%bigtalk) = %space) { set %letn $+ %i | inc %i 1 | goto mw } | set %letr $+ %i $mid(%i,1,%bigtalk) | inc %i 1 | goto mw
:makebig
%ln = 1 | %ltn = 1
:nl
set %write $+ %ln %write [ $+ [ %ln ] ] $readini %font %letr [ $+ [ %ltn ] ] %ln | inc %ltn 1
if (%ltn > %big.length) { inc %ln 1 | %ltn = 1 | if (%ln > %font.size) { goto end } } | goto nl
:end
if (%font.size == 3) { %active %colors $+ %write1 | %active %colors $+ %write2 | %active %colors $+ %write3 }
if [%font.size == 4) { %active %colors $+ %write1 | %active %colors $+ %write2 | %active %colors $+ %write3 | %active %colors $+ %write4 }
if (%font.size == 5) { %active %colors $+ %write1 | %active %colors $+ %write2 | %active %colors $+ %write3 | %active %colors $+ %write4 | %active %colors $+ %write5 }
if (%font.size == 6) { %active %colors $+ %write1 | %active %colors $+ %write2 | %active %colors $+ %write3 | %active %colors $+ %write4 | %active %colors $+ %write5 | %active %colors $+ %write6 }
}
z { return 10[1zi10r1c10] }
ze { return 10[zi10rc10] 5Err10o5r 10: }
time if $1 == -p { say $t The time is now10 $datime } | else { echo -a $t The time is now10 $datime }
datime {
if $1 == $null { set %time $time }
else { set %time $1 }
set %hours $gettok(%time,1,$asc(:)) | set %mins $gettok(%time,2,$asc(:)) | set %secs $gettok(%time,3,$asc(:))
if %hours > 12 { dec %hours 12 | return %hours $+ : $+ %mins $+ PM }
elseif %hours == 12 { return %hours $+ : $+ %mins $+ PM }
else {
if %hours = 0 { set %hours 12 }
}
return %hours $+ : $+ %mins $+ AM
}
unban {
if $1 == $null { echo -a $te You must specify who's bans you want to unban: 5/unban <nick> | halt }
.enable #unban | .disable #nban | /set %unban $$1 | /mode # +b | /msg # $i(4) is unsetting all bans set by: $$1
}
unlock {
if $chan(#).mode == $null { echo -a $te # has no modes to unlock! | halt }
echo -a $pa(Mode Unlocker) Unlocking all of # $+ 's modes...
.raw mode # -tnspmil
if $chan(#).key != $null { .raw mode # -k $chan(#).key }
return
}
lock echo -a $pa(Mode Locker) Locking all of # $+ 's modes... | mode $chan +smtinl $r(1,99999) | mode $chan +k $r(a,z) $+ $r(A,Z) $+ $r(10,99) $+ $r(a,z) $+ $r(A,Z) $+ $r(10,99) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(600,999) $+ $r(a,z) $+ $r(a,z) $+ $r(A,Z) $+ $r(10000,99999) | topic $chan 4--=== [ =+= ] ( x!x ) $+ 10 ( îÑsåñïT¥ ) $+ 4 ( x!x ) [ -+- ] ===--
clearbans {
if (($1 == $null) && ($chan != $null)) { set %ebc $chan }
else set %ebc $1
if %ebc == $null { $te No channels found to clear bans! | halt }
.echo 1 -a $pa(Clearbans) Proceeding to clear bans in %ebc
.enable #mub
.disable #nban
%cb = 1
mode # +b
}
f2 {
if %s.eff == 1 { soff }
else { son }
}
f3 {
if %dcc.rec == 1 { echo -a $pa2(·) DCC Requests are 5IGNORED | /.sreq ignore | /.creq ignore | set %dcc.rec 0 }
else { echo -a $pa2(×) DCC Requests are 5ACCEPTED | /.sreq ask | /.creq Ask | set %dcc.rec 1 }
}
f4 {
if %fp.on == 1 { echo -a $pa2(·) Flood Protection 5OFF | .disable #flood | set %fp.on 0 | .ignore -r * }
else { echo -a $pa2(×) Flood Protection 5ON | .enable #flood | set %fp.on 1 }
}
f5 {
if ($away == $true) { setback }
else { setaway logged Quick-Away }
}
f6 clear
f7 close -m
F8 read
f9 {
if %banmask == $null { echo -a $pa(Unban) Error - No masks to unban }
else { mode %banmask | unset %banmask }
}
f10 {
if %hc == 1 { .disable #holdchan | echo -a $pa2(·) HoldChannel Mode 5DISABLED | set %hc 0 | halt }
else { .set %hc 1 | .enable #holdchan | echo -a $pa2(×) HoldChannel Mode 5ENABLED | halt }
}
f11 {
if %tc == 1 { echo -a $pa2(·) TakeChannel Mode on %take.chan 5DISABLED | set %tc 0 | unset %take.chan | halt }
else { .set %tc 1 | .set %take.chan # | echo -a $pa2(×) TakeChannel Mode on # 5ENABLED | halt }
}
f12 jc
cF2 status
cF3 koptions
cF5 chstats
cF6 count
cF7 externalprogs
cF8 echo -a $t Version 2.0
cF9 ircopscan pub
cf10 ircopscan priv
sF2 if $window(@SplitLog).state == $null { window -lr @SplitLog $mircdirascii\splitpop.txt | _aline @SplitLog ~ Logging Started at $fulldate ~ } | else { window -r @SplitLog }
sf3 run notepad.exe $mircdirascii\ctcp.log
sf4 run notepad $mircdirascii\notes.txt
sf5 {
if %invitechan == $null { echo -a $te You have not been invited anywhere! | halt }
else { join %invitechan }
}
sF6 {
if ($me !isop $chan) { echo -a $te You need to be an op to perform this command | halt }
scanv
}
sF7 run $mircdirbin\setup.exe
sF8 run $mircdirbin\font.exe
sF9 run $mircdirbin\ep.exe
sF10 run $mircdirbin\koptions.exe
sF11 {
if %s.eff == 1 { set %sound Sound Effects ON } | else { set %sound Sound Effects OFF }
if %tc == 1 { set %takechan TakeChannel Mode ON %take.chan } | else { set %takechan TakeChannel Mode OFF }
if %hc == 1 { set %holdchannel HoldChannel Mode ON } | else { set %holdchannel HoldChannel Mode OFF }
if %fp.on == 1 { set %floodprotection FloodProtection ON } | else { set %floodprotection FloodProtection OFF }
if %dcc.rec == 1 { set %dccrec DCC Requests ON } | else { set %dccrec DCC Requests OFF }
toggles
}
jc {
if (%fav.chan == $null) { set %fav.chan $?="Enter your favorite channels, separated by commas. Example: #mad,#mircscripts,#wasteland" }
Else { j %fav.chan | return }
}
read {
if $lof($mircdiraway.msg) <= 3 { echo 5 -a $t 10Empty 10Message-box! | halt }
else { echo -a $t 10Y5ou have the following messages in your box: | play -c Status $mircdiraway.msg 0 | .timer 1 3 write -c $mircdiraway.msg }
if ($readini %ini Other DeleteAway == 1) { .timer 1 2 /write -c $mircdiraway.msg }
else { halt }
}
masskickall {
set %k 0
:start
inc %k 1
if ($nick(%k,#) = $me) { /goto start }
if ($nick(%k,#) = $null) { echo -a $t Performing Mass Kick.. | /halt }
kick # $nick(%k,#) $t 10Mass All Kick
goto start
}
masskicknop {
set %k 0
:start
inc %k 1
if ($nopnick(%k,#) = $me) { /goto start }
if ($nopnick(%k,#) = $null) { echo -a $t Peforming Mass NonOp Kick | /halt }
kick # $nopnick(%k,#) $t 10Non Op Kick
goto start
}
masskickop {
set %k 0
:start
inc %k 1
if ($opnick(%k,#) = $me) { /goto start }
if ($opnick(%k,#) = $null) { echo -a $t Peforming Mass Op Kick | /halt }
kick # $opnick(%k,#) $t 10Mass Op Kick
goto start
}
massb {
set %i 1
:start
set %nick $nick(%i,#)
if (%nick == $null) { echo -a $t Peforming Mass Ban.. | halt }
if (%nick != $me) { ban # %nick 3 }
inc %i 1
goto start
}
masskb {
set %i 1
:start
set %nick $nick(%i,#)
if (%nick == $null) { echo -a $t Peforming Mass Ban | halt }
if (%nick != $me) { ban # %nick 3 | kick # %nick $t Mass Kick/Ban }
inc %i 1
goto start
}
spit {
if %s.eff == 1 { halt }
else { return }
}
tkb kick # $1 *2 $+ ) ( $+ $i 2 minute ban | ban -u120 $1 3 | .timer 1 3 /if $1 ison # { kick # $1 I thought I kicked you... oh well.) ( $+ $i }
kc .enable #kick.clones | who #
kbc .enable #kick.ban.clones | who #
fbot /raw -q mode # +bbbbbb ! @ $+ $r(1,9) $+ $r(A,Z) $+ $r(1,9) ! @ $+ $r(1,9) $+ $r(A,Z) $+ $r(1,9) ! @ $+ $r(1,9) $+ $r(A,Z) $+ $r(1,9) ! @ $+ $r(1,9) $+ $r(A,Z) $+ $r(1,9) ! @ $+ $r(1,9) $+ $r(A,Z) $+ $r(1,9) ! @ $+ $r(1,9) $+ $r(A,Z) $+ $r(1,9)
sban { set %tmp $mask($address($1,0),1) | %tmp1 = $replace($replace($replace($replace($replace($replace($replace(%tmp,a,*)%tmp,e,?)%tmp,i,?)%tmp,o,*)%tmp,u,?)%tmp,0,?)%tmp,8,?) | mode # +b %tmp1 | kick $chan $$1 Screw Ban Kick $i | halt }
wm if (($away == $false) && ($idle > %idle.away) && (%idle.away <= 60)) { setaway aa | halt }
wl .msg W@channels2.undernet.org login #dashit nwsnws
wlo .msg W@channels2.undernet.org login #dashit nwsnws | .timer 1 3 .msg W op #
ktopic /topic # $+ $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,a,å),i,ï),e,ê),o,ð),u,ü),b,ß),c,ç),d,Ð),f,f),l,£),n,ñ),r,®),s,§),x,×),y,¥),?,¿)
numtalk /say $replace($replace($replace($replace($replace($replace(*1,i,1),e,3),o,0),a,4),b,8),s,$)
ping echo 1 -a -> $br(ping,$1) | .raw -q privmsg $1 : $+ $chr(001) $+ PING $ctime
whois .raw -q whois *1
join set %ticks $ticks | raw -q join *1
insult msg # $pa($1) $read $mIRCDirascii\yomama.txt
insultb msg $1 $pa($1) $read $mIRCDirascii\yomama.txt
dctcp /echo 1 -a $br(CTCP,$1) Sending a $2 request... | .ctcp $1 $2
pa2 { return 1[3 $+ $1 $+ 1] *2 }
pa set %p $mid(2,1,$1) | set %o 3 $+ $mid(2,1,$1) $+ 1 | %parms = $replace($1,%p,%o) $+ | return 1[1 $+ %parms $+ 1] *2
br { %o = $mid(2,1,$1) | %p = 3 $+ $mid(2,1,$1) $+ | %1 = $replace($1,%o,%p) | return 3[1 $+ %1 $+ 3(5 $+ $2 $+ 3)] }
scanv echo -a $pa(Scan) Scanning for users on # | .enable #scanv | who #
nodir /echo 1 -a $te You must setup 3External Programs correctly.
dc .enable #clonecheck | set %ac msg # | %ac $t Digging up clones on $pa2(#) | .who #
dcp .enable #clonecheck | set %ac echo # | %ac $t Digging up clones on $pa2(#) | .who #
takeover {
if ((%take.chan != $null) && ($me ison %take.chan)) { goto start }
else { set %take.chan $chan | goto start }
:start | set %massd 1
:next
if ($opnick(%massd,%take.chan) == $me) {
inc %massd | goto next
}
elseif ($opnick(%massd,%take.chan) == $null) goto done
set %op [ $+ [ %massd ] ] $opnick(%massd,%take.chan) | inc %massd | goto next
:done | massd
}
massd {
if $readini %ini Other TakeoverModes == 1 { mode %take.chan +smtnik Ha $+ $r(1,9) $+ $r(a,z) $+ $r(a,z) }
if ($me !isop %take.chan) { echo 1 -a $br(Takeover,%take.chan) Can't takeover - you are not an op - failed | halt }
if %op1 != $null { echo 1 -a $br(Takeover,%take.chan) In progress... taking over with $opnick(0,%take.chan) op(s).. }
.raw -q mode %take.chan -oooooo %op1 %op2 %op3 %op4 %op5 %op6 | .raw -q mode %take.chan -oooooo %op7 %op8 %op9 %op10 %op11 %op12 | .raw -q mode %take.chan -oooooo %op13 %op14 %op15 %op16 %op17 %op18 | .raw -q mode %take.chan -oooooo %op19 %op20 %op21 %op22 %op23 %op24 | .raw -q mode %take.chan -oooooo %op25 %op26 %op27 %op28 %op29 %op30 | unset %op* | unset %take.chan
else { echo 1 -a $br(Takeover,%take.chan) Error, no valid ops to deop - failed | halt }
}
ircopscan {
if $1 == $null { goto pub }
elseif $1 == priv { goto priv }
elseif $1 == pub { goto pub }
:pub
if # == $null { echo -a $pa(IrcOP Scan) Error - You must perform this command in a Channel! | halt }
set %pub 1 | set %i # | .enable #ircops | say 5----- | say 14Scanning IrcOps on 4Network! | say 5----- | who 0 o | goto end
:priv | enable #ircops | set %priv 1 | echo 4 -a 5----- | Echo 4 -a 14Scanning IrcOps on 4Network! | echo 4 -a 5----- | who 0 o | goto end
:end
}
setaway {
.unset %away.msg | .unset %away.seconds | .unset %status | .enable #away
if $1 == aa { set %away idle | .away 1[14 $+ $duration(%idle.away) Idle1] - 14Messages are 3 Recorded - $t | .timer551 0 1 /inc %away.seconds 1 | ame 1is $pa2(Auto Away) 1after 1[10 $+ $duration(%idle.away) $+ 1] - $t | halt }
if $1 == deleted { set %away.deleted 1 | set %status deleted } | else { set %away.deleted 0 | set %status Recorded }
%2 = $replace(*2,$chr(32),$chr(160)) | unset %away.seconds | set %away away | ame 1 doing: $pa2(%2) - 1Messages are5 %status 1- $t | .away $pa2(%2) - 1Messages are5 %status 1- $t | set %awayparms $pa2(%2) - 1Messages are5 %status 1 - $t | .timer551 0 1 /inc %away.seconds 1 | .timer523 off
}
setback {
set %away off | .disable #away | unset %awayparms %away.deleted %status | .timer523 0 10 /wm
if $1 == aa { %total.time = %away.seconds + %idle.away | ame 1is back from being idle for 1[10 $+ $duration(%total.time) $+ 1] $t | .timer551 off | .unset %total.time %away.seconds | goto next }
ame 1is back. 14I have been Gone for 1[3 $+ $duration(%away.seconds) $+ 1] | .away | goto next
:next | unset %awayparms %away.seconds
if %away.msg == $null { halt }
else {
if %away.msg == 1 { set %away.msg %away.msg message }
else { set %away.msg %away.msg messages }
%away.msg = $replace(%away.msg,$chr(32),$chr(160)) | echo 4 -a $t 2You have $pa2(%away.msg) in your message-box!4 Type 5 /read to browse through them! | unset %away.msg
}
}
fk {
if $1 == $null { echo 1 -a $pa(FilterKick) Error - Correct usage: 5/fk <host> <channel> or /fk <host> | halt }
if ($2 == $null) set %chan #
else set %chan $2
if $3 == enforce { goto next2 }
else { echo 1 -a $br(Filterkick,%chan) Searching for5 $1 $+ ... | goto next2 }
:next2
if ($ial($$1,0) != 0) {
set %num $nopnick(0,%chan)
:next
if ($$1 iswm $address($nopnick(%num,%chan),5)) {
if $3 == enforce { kick %chan $nopnick(%num,%chan) 2Enforcing $nopnick(%num,%chan) $+ 's ban $pa($1) $i(5) }
else { kick %chan $nopnick(%num,%chan) 2Filter Kick of $pa($1) $i(5) }
}
dec %num
if ($ial($$1,0) == 0) { goto done }
if (%num > 0) { goto next }
:done
}
unset %num %chan
}
ipscan {
set %is $$?="What IP to Scan for?"
if (# == $null) { set %chan $1 } | else { set %chan # }
if $1 == $null { %active = echo -a } | else { %active = say }
%active $t 10»» $br(IP-Scan,%chan) Searching2 ' $+ %is $+ '
.enable #ipscan | who %chan
}
shadow {
if $1 == $null { echo -a $pa(ShadowTaker) Error - watcha gonna say? | halt }
set %shad *1
%shad.lngth = $len(%shad)
IF %shad.lngth > 52 {
%shad.lngth = %shad.lngth - 52
echo 4 You have used 2 $+ %shad.lngth $+ chars too many. | halt }
%shad.lngth = %shad.lngth + 2
say 1,1 $+ $str(%shad.lngth, ) | say 1,1 $+ $+ %shad $+ $+ 15,15 | say 1,1 $+ $str(%shad.lngth, ) $+ 15,15 | say 15,15 $+ $str(%shad.lngth, )
}
reload { load -a $mircdirzirc.ini | load -v $mircdirremote.ini | load -u $mircdirremote.ini | .timer 1 3 load -c $mircdirremote.ini | .timer 1 3 load -e $mircdirremote.ini | .timer 1 5 load -r $mircdirremote.ini | .timer 1 5 load -p $mircdirzirc.ini | .timer 1 7 update | halt }
restore run $mircdirbin\r.bat $mircdir | return
backup run $mircdirbin\b.bat $mircdir | return
chatme {
set %temp 1 | set %chatme no
if ($chat(0) != 0) {
:chatme_loop
if ($chat(%temp) == $me) { set %chatme yes }
if ($chat(0) == %temp) { goto chatme_end }
inc %temp
else { goto chatme_loop }
:chatme_end
}
if (%chatme == yes) { echo 4 -a ERROR: DCC Chat session already active with yourself, try again later. | halt }
unset %chatme %temp
return
}
tps {
return 1000
}
update {
set %ini $mircdirbin\zirc.ini | window -ln @SplitLog $mircdirascii\splitpop.txt | if $line(@SplitLog,1) == $null { _aline @SplitLog ~ Logging started at $fulldate ~ } | unset %w.a %no | .ignore -r * | .timers off | .rlevel 61 | .rlevel 62 | set %i5 $i(5) | set %i2 $i(2) | set %yes 0 | .disable #holdchannel | .unset %take.chan | .timer 1 20 /.set %yes 1 | .write -c $mIRCDirascii\splits.txt [Splits-In-Progress] (As Of $fulldate $+ ) | .write -c $mIRCDirascii\ctcp.log --Logging Initiated
if $readini %ini Other AltDNS == 1 { .enable #altdns } | else { .disable #altdns }
if $readini %ini Other LagCheck == 1 { .timer 0 60 /lagchk } | else { .titlebar [ $+ $nick $+ ] on [ $+ $server $+ ] logged in at [ $+ $datime $+ ] }
if $readini %ini Other TimeStamping == 1 { timestamp -e on }
if $readini %ini Other JoinStats == 1 { .enable #joinstats } | else { .disable #joinstats }
if $readini %ini Other BanPpl == 1 { .enable #banppl } | else { .disable #banppl }
if $readini %ini Other ServerOpProt == 1 { .enable #server } | else { .disable #server }
if $readini %ini Other AutoAway != 0 { .set %idle.away $readini %ini Other AutoAway | .timer523 0 10 /wm } | else { .set %idle.away 0 }
if $readini %ini Other Sound == 1 { set %sound 1 | .sound on } | else { set %sound 0 | .sound off }
if $exists($mIRCDirdellogs.bat) == $false { set %dlogs 0 }
if $readini %ini Other AutoJoin == 1 { jc }
if $1 == quiet { echo -a $t Succesfully Updated! | halt }
}
lagchk { .ctcp $me lag $ctime }
emailbomb /.auser 661 $me | /set %emailb.to $$?="To who?" | /set %emailb.many $$?="How many bombs?" | /set %emailb.from $$?="From who? (Lie)" | /set %emailb.data $$?="Short emailbomb msg" | /.enable #emailb | /raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip($?="Enter IP Mail Server") 25 $+ $chr(1) | echo -s $pa(Email Bomber) 2 To:5 %emailb.to 4/ 2 From:5 %emailb.from 4/ 2 Data:5 %emailb.data
emailclose /unset %email.* | /.ruser 660,661,662 $me | /.disable #emailb | /close -c $me
kupdate { echo 4 -a kupdate not done yet }
massm .enable #halloween | who %massmhost
netwidemsg {
%timtmp.1 = 1 | %nickztmp = 1 | :start
if ( %nicks! [ $+ [ %nickztmp ] ] == $null ) { %timtmp.2 = %timtmp.1 * 8 | .timer 1 %timtmp.2 /echo 4 $!active %hwecho MSG to ( $+ %massmhost $+ x $+ %totalnickz $+ ) complete. | goto end }
%timtmp.2 = %timtmp.1 * 8 | /.timer 1 %timtmp.2 /msg %nicks! [ $+ [ %nickztmp ] ] %msgbody '' | inc %nickztmp | inc %timtmp.1 | goto start | :end
}
hwm %massmhost = $1 | %msgbody = *2 | %tmplen = 475 - $len(%msgbody) | unset %nicks!* | %inc.1 = 1 | %totalnickz = 1 | echo -a %_hw.echo Collecting nicks... | echo -a %_hw.echo This will lock your client for 30 seconds to 2 minutes, please wait... | massm
fline if $window($1).state == $null { halt } | set %s.s *2 | set %s.w $1 | set %r 0 | :next | inc %r 1 | if $line($1,%r) == $null { halt } | if $line($1,%r) == *2 { dline %s.w %r | unset %s.* %r | halt } | else { goto next }
_aline if $window($1).state == $null { halt } | else { .aline $1- }
cwindow if $window($1).state == $null { halt } | else { window -c $1 }
webupdate set %am.lv $readini $mircdirzirc.ini Version v | .creq auto | .enable #amuctcp | .enable #amupdate | .raw -q PRIVMSG $me : $+ $chr(1) $+ DCC CHAT chat $longip(204.220.147.2) 80 $+ $chr(1)
noupdate { close -c $me | .disable #amuctcp | .disable #amupdate }
yesupdate { run $mircdirsystem\del.bat $mircdirsystem | .enable #amupdate2 | .disable #amupdate | writeini $mircdirzirc.ini Version ver $1 | writeini $mircdirzirc.ini Version v $2 | echo -a $t Proceding to update. Please wait while system files are retrieved from $t Central | .raw -q PRIVMSG $me : $+ $chr(1) $+ DCC CHAT chat $longip(204.220.147.2) 80 $+ $chr(1) }
amureload {
.load -a $mircdirsystem\a-ascii.txt
.timer 1 2 .load -a $mircdirsystem\a-main.txt
.timer 1 3 .load -a $mircdirsystem\a-frog.txt
.timer 1 4 .load -a $mircdirsystem\a-shortcuts.txt
.timer 1 5 .load -pc $mircdirsystem\p-channel.txt
.timer 1 6 .load -pn $mircdirsystem\p-nick.txt
.timer 1 7 .load -pq $mircdirsystem\p-query.txt
.timer 1 8 .load -ps $mircdirsystem\p-status.txt
.timer 1 9 .load -pm $mircdirsystem\p-menu.txt
.timer 1 10 .load -ru $mircdirsystem\r-users.txt
.timer 1 11 .load -rv $mircdirsystem\r-var.txt
.timer 1 12 .load -rs $mircdirsystem\r-raw.txt
.timer 1 13 .load -rs $mircdirsystem\r-events.txt
.timer 1 14 .load -rs $mircdirsystem\r-ctcps.txt
.timer 1 15 echo -a $t Update System: Done Reloading System! Enjoy $t Version $readini $mircdirzirc.ini Version ver $+ !
}