.x(-DiEsEL P0wER-)x. — File Browser
x-DiEsELP0wER-x.v2.2 / x-DiEsELP0wER-x.v2.2 / remote.ini
remote.ini — 14.99 KB — Download this file
[Variables]
n0=%ver .x(DiEsEL)x. (_(-2.2 bEtA bY xCRyPTx.-)_). For mIRC 4.7 32 Bit Win95 ©1997-98 xCRyPTx
n1=%txtflood ON
n2=%color OFF
n3=%caps ON
n4=%memax 3
n5=%meflood ON
n6=%swear ON
n7=%nicks 2
n8=%msg 5
n9=%notemax 5
n10=%charmax 375
n11=%msgmax 5
n12=%txtmax 3
n13=%ctcpmax 2
n14=%clonemax 2
[Commands]
n0=#floodprot start
n1=1:* {
n2= if ($parm1 == DCC) { goto dcc | halt }
n3= else { goto ctcp | halt }
n4= :ctcp
n5= if (%ctcp == %ctcpmax) { .ignore -tu25 $nick 4 | echo 4 $active .x(-CTCP Protection-)x. | echo 4 $active .x(- $+ $parm1 $+ Flood from $nick ( $+ $address $+ )-)x. | wavplay $mircdir\wavs\alert.wav | halt }
n6= else {
n7= .inc %ctcp
n8= echo 4 $active .x(- $+ $parm1 $+ From $nick ( $+ $address $+ )-)x.
n9= .timer 1 5 /set %ctcp 0
n10= halt
n11= }
n12= :dcc
n13= if ($parm5 == 19) {
n14= close -c $nick
n15= ignore -u60 $nick 3
n16= echo 4 $active .x(-DCC Protection-)x.
n17= echo 4 $active .x(-Recieved A PORT 19 CHAT BOMB From $nick ( $+ $address $+ )-)x.
n18= wavplay $mircdir\wavs\alert.wav
n19= halt
n20= }
n21= if ($parm5 == 19) {
n22= close -g $nick
n23= ignore -u60 $nick 3
n24= echo 4 $active .x(-DCC Protection-)x.
n25= echo 4 $active .x(-Recieved A FAKE DCC SEND From $nick ( $+ $address $+ )-)x.
n26= echo 4 $active .x(-File $+ $parm3 $+ . Size $+ $parm6 $+ -)x.
n27= halt
n28= wavplay $mircdir\wavs\alert.wav
n29= }
n30=}
n31=#floodprot end
n32=;
n33=#pager start
n34=1:PAGE:inc %awaymsg 1 | .ignore -tu5 $nick 4 | notice $nick .x(-I Have Just Been Paged. Msg Me If I Dont Answer In 2 Minutes-)x. | echo 4 .x(- $+ $nick ( $+ $address $+ ) Has Just Paged You.-)x. | write $mmircdir\page.log .x(-Recieved A PAGE From $nick ( $+ $address $+ ) At $+ $atime $+ Of $+ $date $+ -)x. | wavplay $mircdir\wavs\page.wav | halt
n35=#pager end
[Events]
n0=#floodprot start
n1=1:ON TEXT:*:? {
n2= if (%txt == %msgmax) { .ignore -up10 $nick 4 | echo 4 $active .x(-TEXT Protection-)x. | echo 4 $active .x(-MSG Flood from $nick ( $+ $address $+ )-)x. | halt }
n3= else {
n4= .inc %txt
n5= .timer 1 5 /set %txt 0
n6= halt
n7= }
n8=}
n9=1:ON TEXT:?:if ($len($parms) >= %charmax) { ignore -up10 $nick 4 | echo 4 $active .x(-TEXT Protection-)x. | echo 4 $active .x(-MSG Flood from $nick ( $+ $address $+ )-)x. | echo 4 $active .x(-Exeeds $+ %charmax $+ Characters-)x. | halt }
n10=1:ON NOTICE:*:# {
n11= if (%not == %notemax) { .ignore -up10 $nick 4 | echo 4 $active .x(-TEXT Protection-)x. | echo 4 $active .x(-NOTICE Flood from $nick ( $+ $address $+ )-)x. | halt }
n12= else {
n13= .inc %not
n14= .timer 1 5 /set %not 0
n15= halt
n16= }
n17=}
n18=1:ON NOTICE:?:if ($len($parms) >= %charmax) { ignore -up10 $nick 4 | echo 4 $active .x(-TEXT Protection-)x. | echo 4 $active .x(-NOTICE Flood from $nick ( $+ $address $+ )-)x. | echo 4 $active .x(-Exeeds $+ %charmax $+ Characters-)x. | halt }
n19=#floodprot end
n20=;
n21=#awaymsg start
n22=1:ON TEXT:*:? {
n23= inc %awaymsg 1
n24= ignore -u5 $nick 3
n25= wavplay $mircdir\wavs\page.wav
n26= write $mircdir\page.log .x(-Recieved MSG From $nick ( $+ $address $+ ) At $+ $atime $+ Of $+ $date $+ -)x.
n27= write $mircdir\page.log .x(- $+ $nick Wrote: $parms $+ -)x.
n28= notice $nick .x(-I Am Away At The Moment. Your Msg Has Been Saved. Type /ctcp $me PAGE To Page Me. I Have Been Gone Since $+ %time $+ -)x.
n29=}
n30=#awaymsg end
n31=;
n32=1:ON TEXT:*ping me*:#:/ping $nick | notice $nick .x(-Auto Ping-)x. | guser 25 $nick 3
n33=25:ON CTCPREPLY:* {
n34= if ( PING isin $parms ) {
n35= %ping = $ctime - $parm2
n36= Notice $nick .x(-Your Ping Reply Was $+ %ping $+ Seconds-)x.
n37= echo 4 $active .x(-Ping Reply From $nick Was $+ %ping %+ Secnods-)x.
n38= ruser 25 $nick 3
n39= halt
n40= }
n41=}
n42=;
n43=@1:ON BAN:#: {
n44= if $banmask iswm $address($me,1) {
n45= mode $chan -ob+b $nick $banmask *!*@ $+ $site
n46= kick $chan $nick DiEsEL)-PeRSonaL ProTEctiON-(DiEsEL
n47= }
n48=}
n49=;
n50=@1:ON TEXT:*:#:{
n51= if ($nick isop $chan) { goto end }
n52= if (%txtflood == on) {
n53= inc % $+ $site $+ txtflood
n54= .timer 1 5 unset % $+ $site $+ txtflood
n55= if % [ $+ [ $site [ $+ [ txtflood ] ] ] ] == %txtmax {
n56= kick $chan $nick DiEsEL)-TEXT FLooD. PaSSeD A mAX oF $+ %txtmax $+ LiNEs-(DiEsEL
n57= unset % $+ $site $+ txtflood
n58= }
n59= }
n60= if (%color == ON) {
n61= if (*** isin $parms) { kick $chan $nick DiEsEL)--THa CoLOr iS BLiNdiNG ME!-(DiEsEL }
n62= }
n63= if (%swear == ON) && (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick DiEsEL)-DOnT FUckiN SWeaR!-(DiEsEL | halt }
n64= if (%repeat == ON) {
n65= if (%text. [ $+ [ $nick ] ] == $parms) { kick $chan $nick DiEsEL)-We HEarD YOu tHa FiRsT TiMe-(DiEsEL | unset unset %text. [ $+ [ $nick ] ] | halt }
n66= else {
n67= set %text. [ $+ [ $nick ] ] $parms auser 2 $nick
n68= .timer 1 5 /unset %text. [ $+ [ $nick ] ]
n69= }
n70= }
n71= if (%caps == ON) {
n72= if ($level($address($nick,0)) >= 10) { goto end }
n73= set %x 1
n74= set %text $len($parms)
n75= if %text < 6 { goto end }
n76= if ($nick == %cap) { goto first }
n77= else { goto start }
n78= :start
n79= if %x > %text { goto kick }
n80= if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto start }
n81= else { goto end }
n82= :kick
n83= set %cap $nick
n84= kick $chan $nick DiEsEL)-wE CAn HEaR YOu!-(DiEsEL
n85= halt
n86= :first
n87= if %x > %text { goto second }
n88= if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto first }
n89= else { goto end }
n90= halt
n91= :second
n92= kick $chan $nick DiEsEL)-I SAid wE CAn HEaR YOu! 60 SeCOnD BaN-(DiEsEL
n93= ban -u60 $chan $nick 3
n94= unset %cap
n95= halt
n96= :end
n97= }
n98=}
n99=;
n100=@1:ON ACTION:*:#:{
n101= if ($nick isop $chan) { goto end }
n102= if (%meflood == on) {
n103= inc % $+ $site $+ meflood
n104= .timer 1 5 unset % $+ $site $+ meflood
n105= if % [ $+ [ $site [ $+ [ meflood ] ] ] ] == %memax {
n106= kick $chan $nick DiEsEL)-ACTioN FLooD. PaSSeD A mAX oF $+ %memax $+ LiNEs-(DiEsEL
n107= unset % $+ $site $+ meflood
n108= }
n109= }
n110= if (%color == ON) {
n111= if (*** isin $parms) { kick $chan $nick DiEsEL)--THa CoLOr iS BLiNdiNG ME!-(DiEsEL }
n112= }
n113= if (%swear == ON) && (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick DiEsEL)-DOnT FUckiN SWeaR!-(DiEsEL | halt }
n114= if (%repeat == ON) {
n115= if (%text. [ $+ [ $nick ] ] == $parms) { kick $chan $nick DiEsEL)-We HEarD YOu tHa FiRsT TiMe-(DiEsEL | unset unset %text. [ $+ [ $nick ] ] | halt }
n116= else {
n117= set %text. [ $+ [ $nick ] ] $parms auser 2 $nick
n118= .timer 1 5 /unset %text. [ $+ [ $nick ] ]
n119= }
n120= }
n121= if (%caps == ON) {
n122= if ($level($address($nick,0)) >= 10) { goto end }
n123= set %x 1
n124= set %text $len($parms)
n125= if %text < 6 { goto end }
n126= if ($nick == %cap) { goto first }
n127= else { goto start }
n128= :start
n129= if %x > %text { goto kick }
n130= if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto start }
n131= else { goto end }
n132= :kick
n133= set %cap $nick
n134= kick $chan $nick DiEsEL)-wE CAn HEaR YOu!-(DiEsEL
n135= halt
n136= :first
n137= if %x > %text { goto second }
n138= if $asc($mid(%x,%text,$parms)) == $asc($upper($mid(%x,%text,$parms))) { inc %x | goto first }
n139= else { goto end }
n140= halt
n141= :second
n142= kick $chan $nick DiEsEL)-I SAid wE CAn HEaR YOu! 60 SeCOnD BaN-(DiEsEL
n143= ban -u60 $chan $nick 3
n144= unset %cap
n145= halt
n146= :end
n147= }
n148=}
n149=;
n150=#clone start
n151=1:ON JOIN:# {
n152= if (%lastjoin != $site) {
n153= %lastjoin = $site
n154= %joins = 1
n155= .timer 1 5 unset %lastjoin
n156= }
n157= else {
n158= inc %joins
n159= if (%joins >= %clonemax) {
n160= ban $chan $nick 4
n161= kick $chan $address($nick,3) DiEsEL)-CLoNE DeTEcteD At $+ $address($nick,4) $+ -(DiEsEL
n162= }
n163= }
n164=}
n165=#clone end
n166=;
n167=#takeover disabled
n168=1:ON OP:#:if ($opnick == $me) { F6 }
n169=#takeover end
n170=;
n171=#nethack disabled
n172=1:ON SERVEROP:#:/mode $chan -o $opnick
n173=1:ON SERVERMODE:/mode $chan:+nt-milkp
n174=#nethack end
n175=;
n176=@1:ON NICK:{
n177= if ($nick isop $chan) { goto end }
n178= if (%nickprot == ON) {
n179= if (fuck isin $parms) || (shit isin $parms) || (dick isin $parms) || (pussy isin $parms) || (bitch isin $parms) || (cunt isin $parms) { kick $chan $nick DiEsEL)-LOsE tHa NicK PErveRT!-(DiEsEL | halt }
n180= inc % $+ $site $+ nick
n181= .timer 1 5 unset % $+ $site $+ nick
n182= if % [ $+ [ $site [ $+ [ nick ] ] ] ] == %nickmax {
n183= kick $chan $nick DiEsEL)-NiCk PaSSeD A mAX oF $+ %nickmax $+ NiCkS-(DiEsEL
n184= unset % $+ $site $+ nick
n185= halt
n186= :end
n187= }
n188= }
n189=}
n190=;
n191=#ping start
n192=1:ON CTCPREPLY:* {
n193= if ( PING isin $parms ) {
n194= %ping = $ctime - $parm2
n195= echo 4 $active .x(-Ping Reply From $nick Was $+ %ping %+ Secnods-)x.
n196= halt
n197= }
n198=}
n199=#ping end
n200=;
n201=#linklooker start
n202=1:ON SNOTICE:*break*:/echo 4 $active .x(-NETSPLIT DeTEcteD At $+ $parm7 $+ -)x.
n203=1:ON SNOTICE:*Junction*:/echo 4 $active .x(-NETMERGE DeTEcteD At $+ $parm7 $+ -)x.
n204=1:ON SNOTICE:*split*:/echo 4 $active .x(-NETSPLIT DeTEcteD At $+ $parm7 $+ -)x.
n205=#linklooker end
n206=;
n207=#door disabled
n208=1:ON JOIN:#: {
n209= guser 10 $nick 3
n210= .timer 1 60 /ruser $nick 3
n211=}
n212=10:ON PART:#: {
n213= ban $chan $nick 3
n214= msg $chan .x(- $+ $nick is Banned For Revolving Door-)x.
n215= ruser $nick 3
n216=}
n217=10:ON TEXT:*:#:/ruser $nick 3
n218=#door end
n219=;
n220=1:ON TEXT:**:*:{
n221= %pos = $pos($parms,) + 2
n222= %pos = $len($parms) - %pos
n223= %dc = $replace($right(%pos,$parms), ,v)
n224= %dc = $replace(%dc, ,2)
n225= %dc = $replace(%dc,,u)
n226= %dc = $replace(%dc,,1)
n227= %dc = $replace(%dc, ,y)
n228= %dc = $replace(%dc, ,d)
n229= %dc = $replace(%dc, ,z)
n230= %dc = $replace(%dc, ,e)
n231= %dc = $replace(%dc, ,f)
n232= %dc = $replace(%dc, ,g)
n233= %dc = $replace(%dc, ,h)
n234= %dc = $replace(%dc, ,i)
n235= %dc = $replace(%dc, ,j)
n236= %dc = $replace(%dc, ,?)
n237= %dc = $replace(%dc, ,k)
n238= %dc = $replace(%dc, ,!)
n239= %dc = $replace(%dc, ,l)
n240= %dc = $replace(%dc,,9)
n241= %dc = $replace(%dc,,m)
n242= %dc = $replace(%dc, ,8)
n243= %dc = $replace(%dc,,n)
n244= %dc = $replace(%dc,,7)
n245= %dc = $replace(%dc, ,p)
n246= %dc = $replace(%dc, ,6)
n247= %dc = $replace(%dc, ,q)
n248= %dc = $replace(%dc, ,5)
n249= %dc = $replace(%dc,,r)
n250= %dc = $replace(%dc,,4)
n251= %dc = $replace(%dc, ,s)
n252= %dc = $replace(%dc,,3)
n253= %dc = $replace(%dc,,t)
n254= %dc = $replace(%dc, ,')
n255= %dc = $replace(%dc, ,$chr(44))
n256= %dc = $replace(%dc, ,-)
n257= %dc = $replace(%dc, ,$chr(32))
n258= %dc = $replace(%dc,,a)
n259= %dc = $replace(%dc,,w)
n260= %dc = $replace(%dc, ,b)
n261= %dc = $replace(%dc,,x)
n262= %dc = $replace(%dc,,c)
n263= %dc = $replace(%dc, ,0)
n264= %dc = $replace(%dc,,o)
n265= echo 4 $active Decoded to -> $timestamp < $+ $nick $+ > 1 $replace(%dc,,.)
n266=}
[Raw]
n0=#whois start
n1=311:*:echo 4 $active .x(-Whois For: $parm2 $+ -)x. | echo 4 $active .x(-Address: $parm3 $+ @ $+ $parm4 $+ -)x. | echo 4 $active .x(-Name: $parm6* $+ -)x. | halt
n2=312:*:echo 4 $active .x(-Server: $parm3* $+ -)x. | halt
n3=313:*:echo 4 $active .x(-$parm2 is An IRC Operator-)x. | halt
n4=317:*:{
n5= %temp1 = $parm3 / 3600
n6= %temp2 = $parm3 % 3600
n7= %temp3 = %temp2 / 60
n8= %temp4 = %temp2 % 60
n9= if (%temp1 > 0) { echo 4 .x(-Idle Time: $+ %temp1 Hour(s), %temp3 Minute(s) %temp4 Second(s)-)x. }
n10= elseif (%temp3 > 0) { echo 4 $active.x(-Idle Time: $+ %temp 3 Minute(s) %temp4 Second(s)-)x. }
n11= else { echo 4 $active .x(-Idle Time: $+ %temp4 Second(s)-)x. }
n12= halt
n13=}
n14=318:*:echo 4 $active .x(-End Of Whois-)x. | halt
n15=319:*:echo 4 $active .x(-Channels: $parm3* $+ -)x. | halt
n16=301:*:echo 4 $active .x(- $+ $parm2 is Away: $parm3* $+ -)x. | halt
n17=401:*:echo 4 $active .x(- $+ $parm2 $+ : No Such Nick-)x. | halt
n18=#whois end
n19=#chanstat disabled
n20=352:* {
n21= if ($parm4 isin %address) { inc %clone } | else { %address = %address $parm4 }
n22= if (* isin $parm7) { inc %ircop | set %pig $parm2 }
n23= if (@ isin $parm7) { inc %op } | else { inc %nonop }
n24= if (+ isin $parm7) { inc %voice } | else { inc %novoice }
n25= if (G isin $parm7) { inc %gone }
n26= if (H isin $parm7) { inc %here }
n27= inc %total
n28= halt
n29=}
n30=315:* {
n31= echo 4 $active .x(-Chanstats For $+ %chan $+
n32= echo 4 $active .x(-Ops »» $+ %op $+ «» Non-Ops »» $+ %nonop $+ -)x.
n33= echo 4 $active .x(-Voice »» $+ %voice $+ «» Non-Voice »» $+ %novoice $+ -)x.
n34= echo 4 $active .x(-Away »» $+ %gone $+ «» Here »» $+ %here $+ -)x.
n35= echo 4 $active .x(-Clones »» $+ %clone $+ «» IRCops »» $+ %ircop $+ -)x.
n36= echo 4 $active .x(-Grand Total »» $+ %total $+ -)x.
n37= echo 4 $active .x(-End Of List!-)x.
n38= unset %clone
n39= unset %ircop
n40= unset %op
n41= unset %nonop
n42= unset %voice
n43= unset %novoice
n44= unset %gone
n45= unset %option
n46= unset %here
n47= unset %address
n48= unset %total
n49= unset %chan
n50= disable #chanstat
n51= halt
n52=}
n53=#chanstat end
n54=;
n55=#ircop start
n56=352:* {
n57= echo 4 $active %window .x(- $+ $parm6 * $+ $parm5 $+ -)x.
n58= inc %total
n59= halt
n60=}
n61=315:* {
n62= echo 4 $active %window .x(-ENd oF LiST: %total $+ -)x.
n63= unset %total
n64= unset %option
n65= unset %window
n66= disable #ircop
n67= halt
n68=}
n69=#ircop end
n70=471:*:echo 4 $active .x(-CaNNoT JOin ChaNNeL(iT's FuLL))-)x.
n71=473:*:echo 4 $active .x(-CaNNoT JOin ChaNNeL (iNVitE OnLY)-)x.
n72=474:*:echo 4 $active .x(-CaNNoT JOin ChaNNeL (YOu'rE BaNNeD)-)x.
n73=475:*:echo 4 $active .x(-CaNNoT JOin ChaNNeL (ReQUirES tHa CoRReCt kEY)-)x.