/ScriptServ

$soyop(#)
.$m(90): _ca massm + o $snicks
.$m(91): _ca massm - o $snicks
.$m(92): dopa # $$1
.$m(93): _ca Mdeop | .timer 1 5 nick $me | nick $me $+ $rand(1,99)
.-
.$m(94): dopa # $$1 | ban $$1 $kprot(#,1) | kick # $$1
.$m(95): var %a = $$?=" $mg(razonkik)  " | dopa # $$1 | ban $$1 $kprot(#,1) | kick # $$1 %a
.$m(96): dopa # $$1 | ban $$1 $kprot(#,1) | _ca ipkick $address($$1,$kprot(#,1)) # IP kick $address($$1,$kprot(#,1))
.$m(98)
..$m(99): dopa # $$1 | ban -u60 $$1 $kprot(#,1) | kick # $$1 $mg(tempban,1)
..$m(100): dopa # $$1 | ban -u300 $$1 $kprot(#,1) | kick # $$1 $mg(tempban,5)
..$m(101): dopa # $$1 | ban -u600 $$1 $kprot(#,1) | kick # $$1 $mg(tempban,10)
..$m(102): dopa # $$1 | ban -u1800 $$1 $kprot(#,1) | kick # $$1 $mg(tempban,30)
..-
..$m(103): dopa # $$1 | ban -u $+ $$?=" $mg(bantime) " $$1 $kprot(#,1) | kick # $$1 $mg(tempban,$$!)
.-
.$m(104): kick # $$1 | kick # $$2 | kick # $$3 | kick # $$4 | kick # $$5 | kick # $$6 | kick # $$7 | kick # $$8 | kick # $$9 | kick # $$10 | kick # $$11 | kick # $$12 
.$m(105): kick # $$1 $$?=" $mg(razonkik) "
.$m(106): dopa # $$1 |  _ca ipkick $address($$1,$kprot(#,1)) # $mg(clonban)
.-
.$m(107) $kprot(#,1) ): dopa # $$1 | ban $$1 $kprot(#,1)
.$m(108): {
  mode # -b $address( $$1,0 ) | mode # -b $address( $$1,1 ) | mode # -b $address( $$1,2 ) | mode # -b $address( $$1,3 )
  mode # -b $address( $$1,4 ) | mode # -b $address( $$1,5 ) | mode # -b $address( $$1,6 ) | mode # -b $address( $$1,7 )
  mode # -b $address( $$1,8 ) | mode # -b $address( $$1,9 )
}
.$m(109)
..$1 $+ !*@*: mode # +b $1 $+ !*@*
..(0) $address($snick(#,1),0): dopa # $$1 | ban $$1 0
..(1) $address($snick(#,1),1): dopa # $$1 | ban $$1 1
..(2) $address($snick(#,1),2): dopa # $$1 | ban $$1 2
..(3) $address($snick(#,1),3): dopa # $$1 | ban $$1 3
..(4) $address($snick(#,1),4): dopa # $$1 | ban $$1 4
..(5) $address($snick(#,1),5): dopa # $$1 | ban $$1 5
..(6) $address($snick(#,1),6): dopa # $$1 | ban $$1 6
..(7) $address($snick(#,1),7): dopa # $$1 | ban $$1 7
..(8) $address($snick(#,1),8): dopa # $$1 | ban $$1 8
..(9) $address($snick(#,1),9): dopa # $$1 | ban $$1 9
.$m(110): mode # +b $$?=" $mg(ipmask) ( nick!user@host.domain )"
.$m(111): ban $$?=" $mg(nick) " $kprot(#,1)
.$m(112): dopa # $$1 | mode # +b *!*@ $+ $left($gettok($address($1,1),2,64),14) $+ *
.-
.$m(113) (+v): _ca massm + v $snicks
.$m(114) (-v): _ca massm - v $snicks
.-
.$iif(% isin $prefix,$m(115) (+h)): _ca massm + h $snicks
.$iif(% isin $prefix,$m(116) (-h)): _ca massm - h $snicks
-
$iif($ialchan($address($snick(#,1),2),#,0) > 1,$m(117) $+ ( $+ [ $ialchan($address($snick(#,1),2),#,0) ] $+ ))
.$ialchan($address($snick(#,1),2),#,1).nick: w $ialchan($address($snick(#,1),2),#,1).nick
.$ialchan($address($snick(#,1),2),#,2).nick: w $ialchan($address($snick(#,1),2),#,2).nick
.$ialchan($address($snick(#,1),2),#,3).nick: w $ialchan($address($snick(#,1),2),#,3).nick
.-
.$iif($ialchan($address($snick(#,1),2),#,0) > 3,$m(118)): who $gettok($address($$1,2),2,64)
.-
.$m(119): dopa # $1 | _ca ipkick $address($1,$kprot(#,1)) # $mg(clonban)
.-
.$gettok($address($snick(#,1),2),2,64): lwho $gettok($address($1,2),2,64)
-
$m(40)
.$m(41): dcc send $1
.$m(42): ipa send $1
.$m(43): dccola $1 $dir=" $mg(dirf) " [ c:\*.* ]
.$m(263)
..$longfn($gettok(%ultsend,1,22)): dcc send $1 $longfn($gettok(%ultsend,1,22))
..$longfn($gettok(%ultsend,2,22)): dcc send $1 $longfn($gettok(%ultsend,2,22))
..$longfn($gettok(%ultsend,3,22)): dcc send $1 $longfn($gettok(%ultsend,3,22))
..$longfn($gettok(%ultsend,4,22)): dcc send $1 $longfn($gettok(%ultsend,4,22))
.-
.$m(44): if ($sdir(c:\," $mg(dirfser) ")) fserve $1 %fsn $shortfn($ifmatch)
$m(46)
.$m(47) (/query): query $1 | whois $1
.$m(48): dcc chat $1 | whois $1
.-
.$m(49): ipa chat $1
-
$iif( %nlaccion == on,whois) : whois $$1 $$1
$m(50)
.$m(51): whois $1
.$m(52): dns $1
.$m(53): loadu g-infodom $1
.-
.$m(55): set -u30 %tmp.nowhois on | set -u30 %tmp.veocanal on | whois $1
.$m(56): set -u30 %tmp.nowhois on | set -u30 %tmp.buscoclon on | whois $1
.-
.$m(57): ipa TCPING $1
.$m(58): ipa PING $1
.-
.$m(59): vlog $1
.$m(60): abook $1
.$m(61): uwho $1
$m(62)
.$m(63): notice $1 $$?=" $mg(texto) "
.$m(64): ctcp $1 ping
.$m(65): ctcp $1 time
.$m(66)
..finger: ctcp $1 finger
..version: ctcp $1 version
..userinfo: ctcp $1 userinfo
..clientInfo: ctcp $1 clientinfo
..-
..sms: ctcp $1 SMS $$?=" $mg(msgmov) "
..-
..ctcp ?: ctcp $1 $$?="CTCP ?"
.-
.$m(67): loadu g-siguenick $1
.$m(68)
..$chan(1): invite $1 $chan(1)
..$chan(2): invite $1 $chan(2)
..$chan(3): invite $1 $chan(3)
.-
.$m(69): set -u30 %tmp.nowhois on | set -u30 %tmp.entrocanal on | whois $1
$m(70)
.$m(71): ignore $1 2 | ignore $1 | close -mc $1
.$m(72): ignore $1 2 | ignore $1 | msg $1 $mg(ignomsg) | .timer 1 1 close -mc $1
.$m(73): ignore -r $1 2 | ignore -r $1
.-
.$m(74): notify $1
.$m(75): notify -r $1 | if $isalias(sba.notify) { clear @sba1.notify | notillena grupos todo | guilista @sba sba.ls1.notify | guidib @sba }
.-
.$m(76): _guser 10 $1 8 *
.$m(77): _guser 7 $1 8 *
.$m(78): _guser 5 $1 8 *
.$m(79): _guser 69 $1 5
.-
.$m(80): ruser $1 $+ !
.-
.$m(81): loadu g-ulista 3
.-
.$m(88): _ca ulist exe P #