/ScriptServ

[Events]
n0=; (::iNFi::)
n1=;  [ $+ [ $chan ] ]
n2=1:ON QUIT: { 
n3=  if (*.*.* isin $parm1) && (*.*.* isin $parm2) && ($parm3* == $null) && (% [ $+ split [ $+ [ $parm2 ] ] ] == $null) {
n4=    echo -a (::iNFi::) $parm2 is split.  Type /WHOLEFT to see who split.
n5=    set %snicks $nick
n6=  }
n7=  if (*.*.* isin $parm1) && (*.*.* isin $parm2) && ($parm3* == $null) && (% [ $+ split [ $+ [ $parm2 ] ] ] == Active) {
n8=    if (%snicks == $null) set %snicks  $nick
n9=    if (%snicks != $null) set %snicks %snicks $+ , $nick
n10=  } 
n11=}
n12=@1:ON OP:#: {
n13=  if ($level($maddress($address($opnick,5))) == 40) { mode $chan -o $opnick | halt }
n14=}
n15=@1:ON SERVEROP:#: {
n16=  if ($level($maddress($address($opnick,5))) >= 50) { mode $chan +o $opnick | halt }
n17=  mode $chan -o $opnick 
n18=}
n19=@1:ON SERVERBAN:#: { mode $chan -b $banmask }
n20=@1:ON KICK:#: {
n21=  if ($level($maddress($address($knick,5))) == 100) && ($level($maddress($address($nick,5)))) >= 60) { notice $nick (::iNFi::) pls dont ban $knick }
n22=  if ($level($maddress($address($knick,5))) == 100) && ($nick != $me) { kick $chan $nick (::iNFi::) Don't Kick Muh Friends, FuckNut | invite $knick $chan }
n23=} 
n24=@1:ON DEOP:#: { 
n25=  if ($level($maddress($address($opnick,5))) == 100) && ($level($maddress($address($nick,5))) == 100) { mode $chan +o $opnick | halt } 
n26=  if ($level($maddress($address($opnick,5))) == 100) && ($nick != $me) { mode $chan -o+o $nick $opnick }
n27=}
n28=@1:ON BAN:#: {
n29=  %ban = $banmask
n30=  %q = $nick(0,$chan)
n31=  %w = 0
n32=  :next
n33=  inc %w 1
n34=  if ($nick(%w,$chan) != $null) {
n35=    if (%ban iswm $address($nick(%w,$chan),5)) && ($nick(%w,$chan) != $me) { kick $chan $nick(%w,$chan) banned: $banmask $+  ( $+ $nick $+ ) }
n36=    if (%ban iswm $address($me,5)) { mode $chan -b $banmask }
n37=    if (%w >= %q) { unset %ban | halt }
n38=    goto next
n39=  }
n40=}
n41=1:ON ERROR:*Closing*Link*: {
n42=  chans
n43=  if K-Lined == $parm5 { echo You are K-Lined! }
n44=  echo (::iNFi::) error closing link $parm6*
n45=}
n46=1:ON DNS: {
n47=  set %longip-result $longip($raddress) 
n48=  echo `-`-`-`-`-`-`-`-`-`-`NS Lookup Statistics`-`-`-`-`-`-`-`-`-`-` (::iNFi::)
n49=  echo `IP Address:  $+ $address $+  has been resolved to  $+ $raddress $+ 
n50=  echo `Long iP: %longip-result
n51=  echo `-`-`-`-`-`-`-`-`-`-`NS Lookup Statistics`-`-`-`-`-`-`-`-`-`-` (::iNFi::)
n52=  unset %longip-result
n53=  halt
n54=}
n55=+@30:ON JOIN:#: {
n56=  mode $chan -o+b $nick $maddress($address($nick,5))
n57=  kick $chan $nick (::iNFi::) Gone: $read -s $+ $maddress($address($nick,5)) $mircdirshitlist.ini
n58=}
n59=+@30:ON TEXT:*:#: {
n60=  mode $chan -o+b $nick $maddress($address($nick,5))
n61=  kick $chan $nick (::iNFi::) Gone: $read -s $+ $maddress($address($nick,5)) $mircdirshitlist.ini
n62=}
n63=+@30:ON ACTION:*:#: {
n64=  mode $chan -o+b $nick $maddress($address($nick,5))
n65=  kick $chan $nick (::iNFi::) Gone: $read -s $+ $maddress($address($nick,5)) $mircdirshitlist.ini
n66=}
n67=+@30:ON PART:#: { mode $chan +b $maddress($address($nick,5)) }
n68=+@60:ON JOIN:#: { mode $chan +o $nick | notice $nick (::iNFi::) You Are Currently on my Auto Op List. }
n69=100:ON JOIN:#: {
n70=  %test = $read -s $+ $maddress($address($nick,5)) $mircdirgreet.ini
n71=  if (%test != $null) msg $chan [ $+ $nick $+ ] $read -s $+ $maddress($address($nick,5)) $mircdirgreet.ini
n72=}
n73=100:ON TEXT:info*:?: {
n74=  %test = $read -s $+ $maddress($address($nick,5)) $mircdirgreet.ini
n75=  if (%test != $null) {
n76=    write -ds $+ $maddress($address($nick,5)) $mircdirgreet.ini
n77=    write $mircdirgreet.ini $maddress($address($nick,5)) $parm2*
n78=    .notice $nick (::iNFi::) info is now: $parm2*
n79=  }
n80=  if (%test == $null) { write $mircdirgreet.ini $maddress($address($nick,5)) $parm2* | .notice $nick (::iNFi::) info is now: $parm2* }
n81=}
n82=100:ON TEXT:pass*:?: {
n83=  %test = $read -s $+ $maddress($address($nick,5)) $mircdirpass.ini
n84=  if (%test == $null) { write $mircdirpass.ini $maddress($address($nick,0)) $parm2 | .notice $nick Pass Set To ' $+ $parm2 $+ ' }
n85=  unset %test
n86=}
n87=100:ON TEXT:ident*:?: {
n88=  %test = $lines($mircdirpass.ini)
n89=  %l.1 = 0
n90=  :begin
n91=  inc %l
n92=  set %h $read -l $+ %l.1 $mircdirpass.ini
n93=  if (%h == $parm2) {
n94=    write $mircdirpass.ini $address($nick,3) $parm2
n95=    .notice $nick Added Hostmask: $address($nick,3)
n96=    halt
n97=  }
n98=  if %l.1 >= %test { .notice $nick Failed. | halt }
n99=  goto begin
n100=}
n101=100:ON TEXT:op*:?: {
n102=  %passwd = $read -s $+ $maddress($address($nick,0)) $mircdirpass.ini
n103=  if ($parm2 != %passwd) {
n104=    echo -a Attempted OP (bad passwd) by $nick $+ ! $+ $address ( $+ $atime $+ )
n105=    .notice $nick Wrong Password (::iNFi::)
n106=  }
n107=  if ($parm2 == %passwd) {
n108=    echo 4 -a (::iNFi::) $nick $+ ! $+ $address !OP! 
n109=    set %l $chan(0)
n110=    set %h 0
n111=    :next
n112=    inc %h 
n113=    if ($nick ison $chan(%h)) && $me isop $chan(%h) { mode $chan(%h) +o $nick }
n114=    if (%h >= %l) { halt }
n115=    goto next
n116=  }
n117=}
n118=250:ON JOIN:#: { if $nick == $me who $chan }