/ScriptServ

[aliases]
n0=/whois echo -a 1[10Whois  $1 $+ 1] | .quote whois $1
n1=/rose {
n2=  me gives 13 $+ $$1 $+  a dozen roses
n3=  me 0.... 4@.@.@
n4=  me 0...4@ @3\4@3/4@ @
n5=  me 0.... 3\4@3|4@3|4@3|4@3/
n6=  me 0......3\\\|///
n7=  me 0...... 3\\|//
n8=  me 0....... 3\|/
n9=  me 0..... 13=3&13=
n10=  me 0....... 3/|\
n11=}
n12=/ros me gives 7 $+ $$1  4@3}5-3`5-3,5--
n13=/smile say 1,8:~)
n14=/cry say 1,8:~(
n15=/ass say 1,7  (__|__) 11,4* KiSs * my aSS $$1
n16=/ghst {
n17=  if nspass = $null {
n18=    echo -a %drkecho You must setup your nickpass first
n19=    halt
n20=  }
n21=  services ghost $$1 %nspass
n22=}
n23=/iscan {
n24=  if ( $left($active,1) != $chr(35) ) {
n25=    echo -a 11,12 $active is not a #channel
n26=    halt
n27=  }
n28=  set %i 0 | who $chan | .enable #ircop_scan | echo -a 11,12IRCop Tarama 12,11 $active $+ 
n29=}
n30=/dcp {
n31=  if ( $left($active,1) != $chr(35) ) {
n32=    echo -a 11,12 $active is not a #channel
n33=    halt
n34=  }
n35=  unset %i %z %s %y | who $chan | .enable #clone | %prcl 11,12Clone Tarama 12,11 $active $+ 
n36=}
n37=/iscang set %i 0 | who *.* | .enable #ircop_scang | echo -a 11,12IRCop TaRaMa 12,11 $server $+ 
n38=/dcg unset %i %z %s %y | who *.* | .enable #cloneg | echo 4 -a 11,12Clone Tarama SoNu 12,11 $server $+ 
n39=
n40=/ctalk {
n41=  set %cum $replace($1-,þ,$)
n42=  set %cum $replace(%cum,ý,I)
n43=  set %cum $replace(%cum,ð,g)
n44=  set %cum $replace(%cum,ö,ò)
n45=  set %cum $replace(%cum,l,L)
n46=  set %cum $replace(%cum,ü,ù)
n47=  set %cum $replace(%cum,ç,c)
n48=  set %cum $replace(%cum,Þ,$)
n49=  set %cum $replace(%cum,Ð,G)
n50=  set %cum $replace(%cum,Ö,ò)
n51=  set %cum $replace(%cum,Ý,i)
n52=  set %cum $replace(%cum,Ü,ù)
n53=  set %cum $replace(%cum,Ç,CH)
n54=  if %ncomp = on ncomp %cum | halt
n55=  say %cum
n56=}
n57=/ctak {
n58=  set %cum $replace($1-,þ,$)
n59=  set %cum $replace(%cum,ý,I)
n60=  set %cum $replace(%cum,ð,g)
n61=  set %cum $replace(%cum,ö,ò)
n62=  set %cum $replace(%cum,l,L)
n63=  set %cum $replace(%cum,ü,ù)
n64=  set %cum $replace(%cum,ç,c)
n65=  set %cum $replace(%cum,Þ,$)
n66=  set %cum $replace(%cum,Ð,G)
n67=  set %cum $replace(%cum,Ö,ò)
n68=  set %cum $replace(%cum,Ý,i)
n69=  set %cum $replace(%cum,Ü,ù)
n70=  set %cum $replace(%cum,Ç,C)
n71=  say %cum
n72=}
n73=/ncomp {
n74=  if ($right($1,1) = :) {
n75=    set %unick $remove($1,:)
n76=    set %s 1
n77=    set %ul $len(%unick)
n78=    set %i 1
n79=    :next
n80=    set %nick $nick(%i,#)
n81=    if %nick == $null goto done
n82=    if $left(%nick,%ul) = %unick goto scheck
n83=    if (%unick isin %nick) goto scheck
n84=    inc %i
n85=    goto next
n86=    :scheck
n87=    set %cnick 2[4 $+ %nick $+ 2]:
n88=    set %cuml $replace($1,$1,%cnick)
n89=    say %cuml $2-
n90=    halt
n91=    :done
n92=    say $1-
n93=    halt
n94=  }
n95=  if $1 = $null halt
n96=  else say $1- |  halt
n97=}
n98=/checkusers {
n99=  echo -a 12,8Kullanýcý Tarama $chan
n100=  set %i 1
n101=  :next
n102=  set %nick $nick(%i,#) 
n103=  if %nick == $null goto done
n104=  if %nick == $me goto pass
n105=  if ($level(%nick) == shit) { echo -a 11,12ShitList : %nick  | /bk %nick %shit }
n106=  if ($level(%nick) == aops) { echo -a 11,12AutoOp : %nick  | /op %nick | /notice %nick %nick : (Auto Op) List %drkvers }
n107=  if ($level(%nick) == voiced) { echo -a 11,12AutoVoice : %nick  | /voice %nick | /notice %nick %nick : (Auto Voice) List %drkvers }
n108=  :pass
n109=  inc %i
n110=  goto next
n111=  :done
n112=  unset %i  
n113=  echo -a 12,11Kullanýcý Tarama SoNu
n114=}
n115=/entalk {
n116=  set %cum1 $1-
n117=  set %cum $lower($1-)
n118=  set %cum $replace(%cum,$,_)
n119=  set %cum $replace(%cum,a,&)
n120=  set %cum $replace(%cum,b,Ñ)
n121=  set %cum $replace(%cum,c,^)
n122=  set %cum $replace(%cum,ç,á)
n123=  set %cum $replace(%cum,d,%)
n124=  set %cum $replace(%cum,e,/)
n125=  set %cum $replace(%cum,f,4)
n126=  set %cum $replace(%cum,g,")
n127=  set %cum $replace(%cum,h,])
n128=  set %cum $replace(%cum,ý,!)
n129=  set %cum $replace(%cum,i,6)
n130=  set %cum $replace(%cum,j,~)
n131=  set %cum $replace(%cum,k,@)
n132=  set %cum $replace(%cum,l,`)
n133=  set %cum $replace(%cum,m,>)
n134=  set %cum $replace(%cum,n,.)
n135=  set %cum $replace(%cum,o,*)
n136=  set %cum $replace(%cum,ö,ø)
n137=  set %cum $replace(%cum,p,æ)
n138=  set %cum $replace(%cum,q,ê)
n139=  set %cum $replace(%cum,r,¿)
n140=  set %cum $replace(%cum,s,®)
n141=  set %cum $replace(%cum,þ,ñ)
n142=  set %cum $replace(%cum,t,ù)
n143=  set %cum $replace(%cum,u,ò)
n144=  set %cum $replace(%cum,ü,î)
n145=  set %cum $replace(%cum,v,É)
n146=  set %cum $replace(%cum,w,½)
n147=  set %cum $replace(%cum,x,¬)
n148=  set %cum $replace(%cum,y,ô)
n149=  set %cum $replace(%cum,z,û)
n150=  .msg $active 2[4ENCRYPT EMUP2] %cum | unset %cum
n151=  echo -a < $+ $me $+ > 2[4ENCRYPT EMUP2] %cum1
n152=}
n153=/enread {
n154=  set %cum $replace($3-,&,a)
n155=  set %cum $replace(%cum,_,$)
n156=  set %cum $replace(%cum,Ñ,b)
n157=  set %cum $replace(%cum,^,c)
n158=  set %cum $replace(%cum,á,ç)
n159=  set %cum $replace(%cum,%,d)
n160=  set %cum $replace(%cum,/,e)
n161=  set %cum $replace(%cum,4,f)
n162=  set %cum $replace(%cum,",g)
n163=  set %cum $replace(%cum,],h)
n164=  set %cum $replace(%cum,!,ý)
n165=  set %cum $replace(%cum,6,i)
n166=  set %cum $replace(%cum,~,j)
n167=  set %cum $replace(%cum,@,k)
n168=  set %cum $replace(%cum,`,l)
n169=  set %cum $replace(%cum,>,m)
n170=  set %cum $replace(%cum,.,n)
n171=  set %cum $replace(%cum,*,o)
n172=  set %cum $replace(%cum,ø,ö)
n173=  set %cum $replace(%cum,æ,p)
n174=  set %cum $replace(%cum,ê,q) 
n175=  set %cum $replace(%cum,¿,r)
n176=  set %cum $replace(%cum,®,s)
n177=  set %cum $replace(%cum,ñ,þ)
n178=  set %cum $replace(%cum,ù,t)
n179=  set %cum $replace(%cum,ò,u)
n180=  set %cum $replace(%cum,î,ü)
n181=  set %cum $replace(%cum,É,v)
n182=  set %cum $replace(%cum,½,w)
n183=  set %cum $replace(%cum,¬,x)
n184=  set %cum $replace(%cum,ô,y)
n185=  set %cum $replace(%cum,û,z)
n186=  if ($1 != prv) {
n187=    echo $chan 12< $+ $1 $+ 12> 2[4ENCRYPT EMUP2] %cum
n188=    halt
n189=  }
n190=  echo -a 12* $+ $2 $+ 12* 2[4ENCRYPT EMUP2] %cum
n191=  halt
n192=}
n193=
n194=/clonejoin {
n195=  set %i 1
n196=  set %s 1
n197=  :next
n198=  set %nick $nick(%i,#) 
n199=  if %nick == $null goto done
n200=  if %nick == %jnick goto pass
n201=  if %nick == $me goto pass
n202=  if ($address(%nick,2) == %jhost) { inc %s | %clnick = %clnick - %nick }
n203=  :pass
n204=  inc %i
n205=  goto next
n206=  :done
n207=  if %s > 1 { 
n208=    echo -a 4,15: CLONE JOINED 1(12 $+ $chan $+ 1) 
n209=    echo -a 4,15: Nick :12 %clnick 
n210=    echo -a 4,15: Host  : 12 %jhost 
n211=  }
n212=  unset %clnick
n213=  unset %nick
n214=  unset %jhost
n215=  unset %jnick
n216=  unset %s
n217=  unset %i
n218=}
n219=}