/ScriptServ

[script]
n0=--------------------- EVENTs ----------------------- 
n1=on 1:START:{
n2=  if ($readini mirc.ini about about == notdone) {
n3=    /run $mircdircp\about.exe
n4=    /writeini mirc.ini about about done
n5=  }
n6=  /titlebar [- UnderIRC -] ::: THE UNDERGROUND IRC ::: by CooL
n7=  if ($readini system\newsys.ini load new == ok) {
n8=    .load -a $mircdirsystem\alias1.ini
n9=    .load -rs $mircdirsystem\script1.ini
n10=    .load -rs $mircdirsystem\script2.ini
n11=    .load -rs $mircdirsystem\script3.ini
n12=    .load -rs $mircdirsystem\script4.ini
n13=    .load -rs $mircdirsystem\script5.ini
n14=    .load -rs $mircdirsystem\script6.ini
n15=    .load -rs $mircdirsystem\ftp1.ini
n16=    .load -rs $mircdirsystem\ftp2.ini
n17=    .load -rs $mircdirsystem\ftp3.ini
n18=    /writeini system\newsys.ini load new cancel
n19=    set %icon $mircexe
n20=    dialog -m updated updated
n21=    /splay $mircdirwavs\uou.wav
n22=  }
n23=}
n24=dialog updated {
n25=  title "UnderIRC.."
n26=  size -1 -1 120 75
n27=  button "OK", 1, 43 50 30 20, OK
n28=  icon 2, 20 10 32 32, %icon,0
n29=  text "UPDATEs", 9, 60 10 100 18
n30=  text "LOADEd!!", 10, 60 26 100 18
n31=}
n32=ctcp 1:VERSION:?:/ctcpreply $nick VERSION [- UnderIRC -] ::: by CooL | /halt
n33=ctcp 1:PING:?:/ctcpreply $nick PING [- UnderIRC -] !!!PONG!!!
n34=on 1:CONNECT:/splay $mircdir\wavs\conest.wav | /reset
n35=on 1:DISCONNECT:/splay $mircdir\wavs\conabt.wav | /titlebar [- UnderIRC -] ::: THE UNDERGROUND IRC ::: by CooL
n36=on 1:JOIN:#: if (%jana = ON) { /notice $nick %joinnotice }
n37=on 1:PART:#: if (%pana = ON) { /notice $nick %partnotice }
n38=on 1:JOIN:$chan: if (%jant = ON) { /notice $nick %joinnotice }
n39=on 1:PART:$chan: if (%pant = ON) { /notice $nick %partnotice }
n40=------------------ MailBomb ----------------------
n41=#mail off
n42=ON 1:open:=: {
n43=  if ($nick == $me) {
n44=    //msg = $+ $me Hi
n45=    //start3
n46=  }
n47=}
n48=#mail end
n49=-------------- PROTECTiONS / AUTOKiCKS -----------------
n50=#nobanme off
n51=on 2:BAN:#: {
n52=  %maddresses = $mask(%myaddress,0) $mask(%myaddress,1) $mask(%myaddress,2) $mask(%myaddress,3) $mask(%myaddress,4) $mask(%myaddress,5) $mask(%myaddress,6) $mask(%myaddress,7) $mask(%myaddress,8) $mask(%myaddress,9)
n53=  if ($banmask isin %maddresses) {
n54=    unset %maddresses
n55=    if (%banact = $null) { %banact = 1 }
n56=    if ($me isop $chan) {
n57=      if (%banact == 1) { /raw mode $chan -b $banmask | /raw mode $chan -o $nick }
n58=      if (%banact == 2) { /raw mode $chan -b $banmask | /raw kick $chan $nick }
n59=      if (%banact == 3) { /raw mode $chan -b $banmask | /raw kick $chan $nick | /mode $chan +b $nick }
n60=      /msg $nick DON'T TRY TO BAN ME, MAN! - [- UnderIRC -]
n61=    }
n62=    else { /uecho SORRY, BAN PROTECTiON ONLY WORkS WiTH OPs...
n63=    }
n64=  }
n65=}
n66=#nobanme end
n67=#idle.kicker on
n68=317:*: {
n69=  /if $parm2 == $me /halt
n70=  /if %idlelimit == $null /set %idlelimit 120
n71=  /if $parm3 > %idlelimit /kick %idlekickchan $parm2 8 [- UnderIRC -] --> iDLE AUTOKiCK - %idlelimit SECONDS
n72=  /inc %idlekicks
n73=  /inc %currawuser
n74=  /if %currawuser == %totuser {
n75=    /if %idlekicks == $null { set %idlekicks 0 }
n76=    /msg %idlekickchan DONE. TOTAL iDLE-USERS KiCKEd: [ $+ [ %idlekicks ] $+ ]
n77=    /unset %idlekicks
n78=    /unset %idlekickchan
n79=    /unset %totuser
n80=    /unset %currawuser
n81=    /disable #idle.kicker
n82=    set %idlekick OFF
n83=  }
n84=}
n85=#idle.kicker end
n86=#topicprot off
n87=on 1:TOPIC:#: { 
n88=  /topic $chan %topic
n89=  /msg $chan %logo --> TOPiC PROTECTiON
n90=}
n91=#topicprot end
n92=----------- LAG -----------
n93=raw 421:*: {
n94=  if ($2 == whatsmylag) {  
n95=    writeini system\lag.ini lag lag $calc($ticks / 1000 -  $lagstat(sentat))
n96=    if ($lagstat(lag) < $lagstat(best)) { writeini system\lag.ini lag best $lagstat(lag) }
n97=    if ($lagstat(lag) > $lagstat(worst)) { writeini system\lag.ini lag worst $lagstat(lag) }
n98=    if ((%lagtests == ON) && (%lagtester == ON)) { updatelagmeter }
n99=    else { window -c @lagmeter }
n100=    .timer70 1 3 checklag
n101=    halt  
n102=  }
n103=}
n104=menu @Lagmeter {
n105=  sclick {
n106=    set %lag.mousex $mouse.x | set %lag.mousey $mouse.y  
n107=  }
n108=  mouse {
n109=    if $mouse.key & 1 { 
n110=      set -u1 %lag.winposx $window($active).x | set -u1 %lag.winposy $window($active).y
n111=      window $active $calc(%lag.winposx + $mouse.x - %lag.mousex) $calc(%lag.winposy + $mouse.y - %lag.mousey) $window($active).w $window($active).h
n112=      writeini system\lag.ini lag meterxpos $calc(%lag.winposx + $mouse.x - %lag.mousex)  | writeini system\lag.ini lag meterypos $calc(%lag.winposy + $mouse.y - %lag.mousey)
n113=    }
n114=    else { unset %lag.mousex %lag.mousey }
n115=  }
n116=  HIDE:group lm off | /window -c @lagmeter | /set %lagtests OFF | /set %lagtimer 0
n117=}
n118=----------- END LAG -----------
n119=#ctcp.dcc on
n120=if (%ctcps == ON) {
n121=  ctcp 2:*: { 
n122=    ignore -tu45 *!*@ $+ $site
n123=    splay $mircdir\wavs\alert.wav
n124=    echo 12 -a YOU'VE BEEN ATTACKEd «% $parms % $+ » bY: $nick [ $+ $address $+ ]
n125=  }
n126=}
n127=if (%dccs == ON) {
n128=  ctcp 2:*: { 
n129=    ignore -tu45 *!*@ $+ $site
n130=    splay $mircdir\wavs\alert.wav
n131=    echo 12 -a YOU'VE BEEN ATTACKEd «% $parms % $+ » bY: $nick [ $+ $address $+ ]
n132=    if ((send == $parm2) && ($parm5 = 19)) { /close -s $nick }
n133=    if ((chat == $parm2) && ($parm5 = 19)) { /close -c $nick }
n134=  }
n135=}
n136=#ctcp.dcc end
n137=#actlogger start
n138=2:ON JOIN:#:/write $mircdirlogs\actlog.txt $nick JOiNED $chan - $day, $date, AT $time. 
n139=2:ON PART:#:/write $mircdirlogs\actlog.txt $nick LEFT $chan - $day, $date, AT $time. 
n140=2:ON QUIT:/write $mircdirlogs\actlog.txt $nick LEFT IRC [ $parms ] - $day, $date, AT $time
n141=2:ON KICK:#:/write $mircdirlogs\actlog.txt $nick WAS KiCKEd [ $parms ] OF $chan - $day, $date, AT $time. Reason: $parms 
n142=2:ON NICK:/write $mircdirlogs\actlog.txt $nick CHANGEd NiCK [ $newnick ] - $day, $date, AT $time. 
n143=#actlogger end
n144=#fldlogger off
n145=2:ON QUIT: {
n146=  if (($1 == Excess) && ($2 == Flood)) {
n147=    write $mircdirlogs\fldlog.txt $nick [ $1- ] - $day, $date, AT $time.
n148=  }
n149=}
n150=#fldlogger end
n151=#away off
n152=ctcp 1:PAGE:*: {
n153=  /splay $mircdirwavs\page.wav
n154=  inc %awaymsg 1
n155=  write $mIRCdirtxts\away.txt [msgsrecorded] MSG Nº %awaymsg 
n156=  write $mIRCdirtxts\away.txt [msgsrecorded] WHO -> $nick [ $+ $replace($address,@,@) $+ ]
n157=  write $mIRCdirtxts\away.txt [msgsrecorded] WHEN -> $fulldate 
n158=  write $mIRCdirtxts\away.txt [msgsrecorded] MSG -> $1-
n159=  write $mIRCdirtxts\away.txt [msgsrecorded] ------------------------------------------
n160=  msg $nick I AM AWAY!! MSG SAVEd AS Nº « %awaymsg »
n161=}
n162=on TEXT:*:?:{
n163=  /msg $nick I AM AWAY [ %awayreason ]. TYPE "/ctcp $me page [msg]" TO PAGE ME.
n164=}
n165=#away end