[script]
n0=;¤¤ §k®ïÞ ßíá§à 2000 ¤¤ - Roní Tüà - http://www.skripbiasa2000.com/
n1=
n2=#sBiasa-Underlined-Text-Flood_Protection on
n3=on ^1:TEXT:*????*????*:#:{ Biasa-Underlined-Text-Flood_Protection.Channel $chan $nick $wildsite | halt }
n4=on ^1:ACTION:*????*????*:#:{ Biasa-Underlined-Text-Flood_Protection.Channel $chan $nick $wildsite | halt }
n5=on ^1:NOTICE:*????*????*:#:{ Biasa-Underlined-Text-Flood_Protection.Channel $chan $nick $wildsite | halt }
n6=CTCP ^1:*????*????*:#:{ Biasa-Underlined-Text-Flood_Protection.Channel $chan $nick $wildsite | halt }
n7=on ^1:TEXT:*????*????*:?:{ Biasa-Underlined-Text-Flood_Protection.Ignoring $wildsite $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,2,58) | halt }
n8=on ^1:ACTION:*????*????*:?:{ Biasa-Underlined-Text-Flood_Protection.Ignoring $wildsite $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,2,58) | halt }
n9=on ^1:NOTICE:*????*????*:?:{ Biasa-Underlined-Text-Flood_Protection.Ignoring $wildsite $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,2,58) | halt }
n10=CTCP ^1:*????*????*:?:{ Biasa-Underlined-Text-Flood_Protection.Ignoring $wildsite $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,2,58) | halt }
n11=alias Biasa-Underlined-Text-Flood_Protection.Channel {
n12=  if ($me ison $1) && ($3 != $null) { if ($me isop $1) {
n13=      inc -u45 %BUTFP [ $+ [ $1 ] ] 1
n14=      if (%BUTFP [ $+ [ $1 ] ] >= 5) { sBiasa.add.chan.modez $1 +bmi $3
n15=        unset %BUTFP [ $+ [ $1 ] ]
n16=        ckick $1 $$2 "Bíasa-Underline-Text-Flood" Protection!!
n17=        .timersBiasa.unlockmi [ $+ [ $$1 ] ] -o 1 60 { Biasa-Underlined-Text-Flood_Protection.unlockmi $$1 }
n18=        .timerntcmi [ $+ [ $$1 ] ] 1 5 { myspoken -nl $$1 Due flooder works in this channel, channel are being locked temporary. Stay cool.. }
n19=      }
n20=      else { ckick $1 $$2 "Bíasa-Underline-Text-Flood" Protection!! | sBiasa.add.chan.mode $1 +b $3 }
n21=      myspoken -el -s  $+ $colour(Info) $+ Try to kicking $2 and banning $3 $iif($gettok(%sBiasa-Underlined-Text-Flood_Protection_data,1,58) >= 0, about $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,1,58) seconds, permanently) in $1 for "Biasa-Underline-Text-Flood".
n22=      if ($gettok(%sBiasa-Underlined-Text-Flood_Protection_data,1,58) >= 0) { .timerUBMask [ $+ [ $3 ] $+ [ $1 ] ] -o 1 $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,1,58) { Biasa-Underlined-Text-Flood_Protection.UBMask $1 $3 } }
n23=    }
n24=    else { Biasa-Underlined-Text-Flood_Protection.Ignoring $3 $2 $gettok(%sBiasa-Underlined-Text-Flood_Protection_data,2,58) }
n25=} }
n26=alias Biasa-Underlined-Text-Flood_Protection.unlockmi { if ($server != $null) && ($me isop $1) { sBiasa.add.chan.modez $$1 -mi } }
n27=alias Biasa-Underlined-Text-Flood_Protection.UBMask {
n28=  if ($me isop $1) && ($2 != $null) && ($server != $null) {
n29=    if ($ial == $true) {
n30=      var %sBiasa-Underlined-Text-Flood_Protection.num = 1, %sBiasa-Underlined-Text-Flood_Protection.total = $banlist($1,0)
n31=      while (%sBiasa-Underlined-Text-Flood_Protection.num <= %sBiasa-Underlined-Text-Flood_Protection.total) {
n32=        if ($ibl($1,%sBiasa-Underlined-Text-Flood_Protection.num) = $2) { sBiasa.add.chan.mode $1 -b $2 | unset %sBiasa-Underlined-Text-Flood_Protection.total %sBiasa-Underlined-Text-Flood_Protection.num | break }
n33=        inc %sBiasa-Underlined-Text-Flood_Protection.num 1
n34=    } }
n35=    else { sBiasa.add.chan.modez $1 -b $2- }
n36=} }
n37=alias Biasa-Underlined-Text-Flood_Protection.Ignoring {
n38=  .ignore $$1 | myspoken -el -s  $+ $colour(Info) $+ Ignoring $$1 $+ , from nick $2 $iif($3 >= 0, about $3 seconds, permanently) for "Biasa-Underline-Text-Flood".
n39=  if ($3 >= 0) { .timeruiBUTFP [ $+ [ $$1 ] ] -o 1 $$3 { .ignore -r $1 } }
n40=}
n41=#sBiasa-Underlined-Text-Flood_Protection end
n42=
n43=on 1:LOAD:{ set %sBiasa-Underlined-Text-Flood_Protection_data 900:60 }
n44=
n45=alias sBiasa.Teks.Manis { if ($1 = on) { .enable #sBiasa-bonusinputtext }
n46=  elseif ($1 = off) || ($1 = stop) || ($1 = disable) { .disable #sBiasa-bonusinputtext }
n47=  linesep -a | myspoken -eld -a  $+ $colour(Info2) $+ *** Teks Manis is $upper($group(#sBiasa-bonusinputtext)) | linesep -a
n48=}
n49=#sBiasa-bonusinputtext off
n50=;---#sBiasa-bonusinputtext on <== enable sweet text---
n51=;---#sBiasa-bonusinputtext off <== disable sweet text---
n52=;---Or: sBiasa.Teks.Manis <on/off>---
n53=;on 1:INPUT:*:{ if ($left($1,1) == /) || ($left($1,1) == .) { return }
n54=;  ;  if ($server == $null) { myspoken -eld -a 13·· $+ $replacecs($$1-,$chr(32),13·) $+ 13·· }
n55=;  if ($server == $null) { myspoken -eld -a 13· $+ $$1- $+ 13· }
n56=;  else { /say 13· $+ $$1- $+ 13· }
n57=;  haltdef
n58=;}
n59=#sBiasa-bonusinputtext end
n60=
n61=;-----Picauly 21 Computer Presents-----
n62=;-----NickServ auto identifying for DALnet Networks-----
n63=;-----Undernet auto 'log-in' for Undernet Networks-----
n64=;-----/UndLogin help-----
n65=;-----Ex: /nsaip on lukisan ; /nsaip off-----
n66=;-----Ex: /UndLogin list ; /UndLogin add #Medan lukisan X ; /UndLogin on-----
n67=;-----Attention: Your password is not really safety from other-----
n68=;-----           person who knows your mirc/computer. Be careful!-----
n69=;-----Originaly by: s-Bíasa-----
n70=
n71=#sBiasa-Undernet.Org-Login off
n72=on 1:NOTIFY:{ if (*.Undernet.Org iswm $server) && (($nick == X) || ($nick == W)) {
n73=    unset %sBiasa-Undernet.Org-Login.*
n74=    var %sBiasa-Undernet.Org-Login.read = 0
n75=    :sBiasa.Undernet.Org.Login.read
n76=    set %sBiasa-Undernet.Org-Login.readtemp $readini $fileundernet Undernet.Org_Channels %sBiasa-Undernet.Org-Login.read
n77=    if (%sBiasa-Undernet.Org-Login.readtemp != $null) {
n78=      if ($gettok(%sBiasa-Undernet.Org-Login.readtemp,0,32) >= 3) {
n79=        if ($upper($left($gettok(%sBiasa-Undernet.Org-Login.readtemp,3,32),1)) == $nick) {
n80=          .msg $gettok(%sBiasa-Undernet.Org-Login.readtemp,3,32) Login $gettok(%sBiasa-Undernet.Org-Login.readtemp,1-2,32)
n81=      } }
n82=      inc %sBiasa-Undernet.Org-Login.read 1
n83=      goto sBiasa.Undernet.Org.Login.read
n84=    }
n85=    unset %sBiasa-Undernet.Org-Login.*
n86=  }
n87=  elseif ($group(#sBiasa-nsaip-v1) = on) && ($nick = NickServ) && (efnet !isin $server) {
n88=    if (%sBiasa-aipudatesonst != $null) { /nickserv identify %sBiasa-aipudatesonst }
n89=    else { myspoken -eld -a  $+ $colour(Info2) $+ *** You don't have password setting for auto identification yet. Usage: /NSAIP [on/off] [your passnick] }
n90=} }
n91=#sBiasa-Undernet.Org-Login end
n92=
n93=alias UndLogin { linesep -a | unset %sBiasa-Undernet.Org-Login.*
n94=  if ($4 = X) || ($4 = X@Channels.Undernet.Org) { set %sBiasa-Undernet.Org-Login.cservice X@Channels.Undernet.Org }
n95=  elseif ($4 = W) || ($4 = W@Channels.Undernet.Org) { set %sBiasa-Undernet.Org-Login.cservice W@Channels2.Undernet.Org }
n96=  if ($1 = list) {
n97=    if ($2 != $null) && ($chr(45) isin $2) && ($len($2) > 1) { set %sBiasa-Undernet.Org-Login.isnum $$2
n98=      if ($gettok($2,1,45) < $gettok($2,2,45)) { set %sBiasa-Undernet.Org-Login.isnum.add (Number $gettok(%sBiasa-Undernet.Org-Login.isnum,1,45) to $gettok(%sBiasa-Undernet.Org-Login.isnum,2,45) $+ ) }
n99=      elseif ($gettok($2,1,45) == $gettok($2,2,45)) { set %sBiasa-Undernet.Org-Login.isnum.add (Number $iif($gettok($2,1,45) != $null, $gettok($2,1,45), $gettok($2,2,45)) $+ ) }
n100=      elseif ($gettok($2,1,45) == $null) || ($gettok($2,2,45) == $null) {
n101=        if ($left($2,1) = $chr(45)) {
n102=          if ($2 = -1) { set %sBiasa-Undernet.Org-Login.isnum.add (Just the first) }
n103=          else { set %sBiasa-Undernet.Org-Login.isnum.add (From the first to $gettok(%sBiasa-Undernet.Org-Login.isnum,1,45) $+ ) }
n104=        }
n105=        else { set %sBiasa-Undernet.Org-Login.isnum.add (Number $gettok(%sBiasa-Undernet.Org-Login.isnum,1,45) to the end) }
n106=      }
n107=      else { myspoken -eld -a [UndLogin] Error! You were specifing an invalid List Number. | goto sBiasa.UndLogin.end }
n108=    }
n109=    elseif ($2 isnum 1-9999) { set %sBiasa-Undernet.Org-Login.isnum $$2 | set %sBiasa-Undernet.Org-Login.isnum.add (Number $$2 $+ ) }
n110=    elseif ($2 != $null) { myspoken -eld -a [UndLogin] Error! You were specifing an invalid List Number. | goto sBiasa.UndLogin.end }
n111=    myspoken -eld -a List of Undernet Auto Login Password: %sBiasa-Undernet.Org-Login.isnum.add
n112=  }
n113=  elseif ($1 = del) {
n114=    if ($4 != $null) {   }
n115=    elseif ($2 != $null) && ($3 == $null) {
n116=      if ($chr(45) isin $2) && ($len($2) > 1) { set %sBiasa-Undernet.Org-Login.isnum $$2
n117=        if ($gettok($2,1,45) < $gettok($2,2,45)) { set %sBiasa-Undernet.Org-Login.isnum.add (Number $gettok(%sBiasa-Undernet.Org-Login.isnum,1,45) to $gettok(%sBiasa-Undernet.Org-Login.isnum,2,45) $+ ) }
n118=        elseif ($gettok($2,1,45) == $gettok($2,2,45)) { set %sBiasa-Undernet.Org-Login.isnum.add (Number $iif($gettok($2,1,45) != $null, $gettok($2,1,45), $gettok($2,2,45)) $+ ) }
n119=        elseif ($gettok($2,1,45) == $null) || ($gettok($2,2,45) == $null) {
n120=          if ($left($2,1) = $chr(45)) {
n121=            if ($2 = -1) { set %sBiasa-Undernet.Org-Login.isnum.add (Just the first) }
n122=            else { set %sBiasa-Undernet.Org-Login.isnum.add (From the first to $gettok(%sBiasa-Undernet.Org-Login.isnum,1,45) $+ ) }
n123=          }
n124=          else { set %sBiasa-Undernet.Org-Login.isnum.add (Number $gettok(%sBiasa-Undernet.Org-Login.isnum,1,45) to the end) }
n125=        }
n126=        else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> or: /UndLogin del <number of the list> | goto sBiasa.UndLogin.last }
n127=      }
n128=      elseif ($2 isnum 1-9999) { set %sBiasa-Undernet.Org-Login.isnum $$2 | set %sBiasa-Undernet.Org-Login.isnum.add (Number $$2 $+ ) }
n129=      else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> or: /UndLogin del <number of the list> | goto sBiasa.UndLogin.last }
n130=      myspoken -eld -a Try to deleting: %sBiasa-Undernet.Org-Login.isnum.add
n131=    }
n132=    else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> or: /UndLogin del <number of the list> | goto sBiasa.UndLogin.last }
n133=    if ($exists($fileundernet) != $true) { myspoken -eld -a Error! There's no data file. }
n134=    elseif ($exists($fileundernetbak) == $true) { .remove $fileundernetbak }
n135=  }
n136=  elseif ($1 = help) { myspoken -eld -a Usage: /UndLogin <on/off/add/del/wipe/list> [channel] [password] [X/W] }
n137=  if ($1 = wipe) { set -u180 %sBiasa-Undernet.Org-Loginwipe ask
n138=    myspoken -eld -a *** Are you sure you want to deleting all of Undernet Auto Login password data? Please write: /UngLogin wipeall if you really sure that..! (max. 3 mins)
n139=  }
n140=  elseif ($1 = wipeall) && (%sBiasa-Undernet.Org-Loginwipe == ask) {
n141=    unset %sBiasa-Undernet.Org-Loginwipe
n142=    myspoken -eld -a *** Try to deleting all of Undernet Auto Login password data...
n143=    .remini $fileundernet Undernet.Org_Channels
n144=    myspoken -eld -a *** Your Undernet Auto Login password data has been deleted.
n145=  }
n146=  else { unset %sBiasa-Undernet.Org-Loginwipe }
n147=  var %sBiasa-Undernet.Org-Login.tempnum = 0
n148=  :sBiasa.Undernet.Org.Login.temp
n149=  set %sBiasa-Undernet.Org-Login.tempget $readini $fileundernet Undernet.Org_Channels %sBiasa-Undernet.Org-Login.tempnum
n150=  if (%sBiasa-Undernet.Org-Login.tempget != $null) {
n151=    inc %sBiasa-Undernet.Org-Login.tempnum 1
n152=    if ($1 = list) {
n153=      if (%sBiasa-Undernet.Org-Login.isnum != $null) {
n154=        if ($calc(%sBiasa-Undernet.Org-Login.tempnum $+ 1) isnum %sBiasa-Undernet.Org-Login.isnum) {
n155=          myspoken -eld -a  $+ $calc(%sBiasa-Undernet.Org-Login.tempnum $+ 1) $+ - Login: $gettok(%sBiasa-Undernet.Org-Login.tempget,3,32) Channel: $gettok(%sBiasa-Undernet.Org-Login.tempget,1,32) Password: $gettok(%sBiasa-Undernet.Org-Login.tempget,2,32)
n156=          inc %sBiasa-Undernet.Org-Login.temp.list 1
n157=      } }
n158=      else { myspoken -eld -a  $+ $calc(%sBiasa-Undernet.Org-Login.tempnum $+ 1) $+ - Login: $gettok(%sBiasa-Undernet.Org-Login.tempget,3,32) Channel: $gettok(%sBiasa-Undernet.Org-Login.tempget,1,32) Password: $gettok(%sBiasa-Undernet.Org-Login.tempget,2,32) }
n159=    }
n160=    elseif ($1 = add) {
n161=      if (%sBiasa-Undernet.Org-Login.tempget = $2 $3 %sBiasa-Undernet.Org-Login.cservice) {
n162=        myspoken -eld -a Already: %sBiasa-Undernet.Org-Login.cservice Channel: $2 Password: ' $+ $$3 $+ ' At number $calc(%sBiasa-Undernet.Org-Login.tempnum) password list.
n163=        set %sBiasa-Undernet.Org-Login.temp.add already
n164=    } }
n165=    elseif ($1 = del) {
n166=      if (%sBiasa-Undernet.Org-Login.isnum != $null) && ($calc(%sBiasa-Undernet.Org-Login.tempnum $+ 1) isnum %sBiasa-Undernet.Org-Login.isnum) {
n167=        myspoken -eld -a Deleting number $calc(%sBiasa-Undernet.Org-Login.tempnum $+ 1) $+ : $gettok(%sBiasa-Undernet.Org-Login.tempget,3,32) Channel: $gettok(%sBiasa-Undernet.Org-Login.tempget,1,32) Password: ' $+ $gettok(%sBiasa-Undernet.Org-Login.tempget,2,32) $+ ' From number $calc(%sBiasa-Undernet.Org-Login.tempnum) password list.
n168=        inc %sBiasa-Undernet.Org-Login.temp.del 1
n169=      }
n170=      elseif (%sBiasa-Undernet.Org-Login.tempget = $2 $3 %sBiasa-Undernet.Org-Login.cservice) {
n171=        myspoken -eld -a Deleted: %sBiasa-Undernet.Org-Login.cservice Channel: $2 Password: ' $+ $$3 $+ ' From number $calc(%sBiasa-Undernet.Org-Login.tempnum) password list.
n172=        inc %sBiasa-Undernet.Org-Login.temp.del 1
n173=      }
n174=      else { .write $fileundernetbak %sBiasa-Undernet.Org-Login.tempget }
n175=    }
n176=    goto sBiasa.Undernet.Org.Login.temp
n177=  }
n178=  if ($1 = add) && (%sBiasa-Undernet.Org-Login.temp.add == $null) {
n179=    if ($4 != $null) && (%sBiasa-Undernet.Org-Login.cservice != $null) {
n180=      .writeini $fileundernet Undernet.Org_Channels %sBiasa-Undernet.Org-Login.tempnum $2 $$3 %sBiasa-Undernet.Org-Login.cservice
n181=      myspoken -eld -a Added: %sBiasa-Undernet.Org-Login.cservice Channel: $2 Password: $$3 At number $calc(%sBiasa-Undernet.Org-Login.tempnum + 1) password list.
n182=      inc %sBiasa-Undernet.Org-Login.tempnum 1
n183=    }
n184=    else { myspoken -eld -a Usage: /UndLogin add <#channel> <password> <X/W> }
n185=  }
n186=  elseif ($1 = del) {
n187=    if (%sBiasa-Undernet.Org-Login.temp.del >= 1) {
n188=      set %sBiasa-Undernet.Org-Login.tempnum $calc(%sBiasa-Undernet.Org-Login.tempnum - %sBiasa-Undernet.Org-Login.temp.del)
n189=      if ($exists($fileundernet) == $true) && ($exists($fileundernetbak) == $true) {
n190=        .remini $fileundernet Undernet.Org_Channels
n191=        var %sBiasa-Undernet.Org-Login.rebuildnum = 0
n192=        :sBiasa.Undernet.Org.Login.rebuild
n193=        set %sBiasa-Undernet.Org-Login.rebuildnum2 -l $+ $calc(%sBiasa-Undernet.Org-Login.rebuildnum + 1)
n194=        set %sBiasa-Undernet.Org-Login.rebuildtemp $read %sBiasa-Undernet.Org-Login.rebuildnum2 $fileundernetbak
n195=        if (%sBiasa-Undernet.Org-Login.rebuildtemp != $null) {
n196=          .writeini $fileundernet Undernet.Org_Channels %sBiasa-Undernet.Org-Login.rebuildnum %sBiasa-Undernet.Org-Login.rebuildtemp
n197=          inc %sBiasa-Undernet.Org-Login.rebuildnum 1
n198=          goto sBiasa.Undernet.Org.Login.rebuild
n199=        }
n200=        unset %sBiasa-Undernet.Org-Login.rebuild*
n201=        .remove $fileundernetbak
n202=        myspoken -eld -a Success deleting: %sBiasa-Undernet.Org-Login.temp.del password $+ $iif(%sBiasa-Undernet.Org-Login.temp.del > 1, s) $+ .
n203=    } }
n204=    elseif (%sBiasa-Undernet.Org-Login.temp.del == $null) { if (%sBiasa-Undernet.Org-Login.isnum != $null) {
n205=        myspoken -eld -a Error deleting! Not found: $removecs(%sBiasa-Undernet.Org-Login.isnum.add,$chr(40),$chr(41)) $+ .
n206=      }
n207=      else { myspoken -eld -a Error deleting! Not found: %sBiasa-Undernet.Org-Login.cservice Channel: $2 Password: ' $+ $$3 $+ '. }
n208=    }
n209=    else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> }
n210=  }
n211=  if ($1 = on) { .enable #sBiasa-Undernet.Org-Login }
n212=  elseif ($1 = off) { .disable #sBiasa-Undernet.Org-Login }
n213=  elseif ($1 = list) {
n214=    if (%sBiasa-Undernet.Org-Login.temp.list >= 1) { set %sBiasa-Undernet.Org-Login.temp.list.tot ( $+ %sBiasa-Undernet.Org-Login.temp.list listed) }
n215=    elseif (%sBiasa-Undernet.Org-Login.isnum != $null) { myspoken -eld -a -Not found. }
n216=    myspoken -eld -a * End of Undernet Auto Login Password list. %sBiasa-Undernet.Org-Login.temp.list.tot
n217=  }
n218=  :sBiasa.UndLogin.last
n219=  myspoken -eld -a  $+ $colour(Info2) $+ *** UndLogin is $upper($group(#sBiasa-Undernet.Org-Login)) (you have %sBiasa-Undernet.Org-Login.tempnum password $+ $iif(%sBiasa-Undernet.Org-Login.tempnum > 1, s) now)
n220=  :sBiasa.UndLogin.end
n221=  linesep -a
n222=  unset %sBiasa-Undernet.Org-Login.*
n223=  if ($exists($fileundernetbak) == $true) { .remove $fileundernetbak }
n224=}
n225=
n226=alias nsaip { if ($1 = on) { .enable #sBiasa-nsaip-v1 | if ($2 != $null) { set %sBiasa-aipudatesonst $$2- } } | elseif ($1 = off) { .disable #sBiasa-nsaip-v1 | if ($2 != $null) { set %sBiasa-aipudatesonst $$2- } } | elseif ($1 != $null) { set %sBiasa-aipudatesonst $$1- } | linesep -a | myspoken -eld -a  $+ $colour(Info2) $+ *** NSAIP is $upper($group(#sBiasa-nsaip-v1)) ( $+ %sBiasa-aipudatesonst $+ ) | linesep -a }
n227=on 1:START:{ .notify NickServ DALnet Nick Registration Service | .notify ChanServ DALnet Channel Registration Service | .notify X Undernet Channel Registration Service | .notify W Undernet Channel Registration Service | unset %sBiasa-Undernet.Org-Loginwipe %sBiasa-Undernet.Org-Login.* | unset %sBiasa-csaop-v1 }
n228=
n229=#sBiasa-csaop-v1 on
n230=on 1:NOTIFY:{ if ($nick = ChanServ) && (efnet !isin $server) { sBiasa.csaop.v1 } }
n231=alias sBiasa-csaop-v1 { if (%sBiasa-aipudatesonst != $null) {
n232=    if ($group(#sBiasa-nsaip-v1) != on) { return }
n233=    var %sBiasa-csaop-v1 = $chan(0)
n234=    while (%sBiasa-csaop-v1 > 0) {
n235=      if ($me isop $chan(%sBiasa-csaop-v1)) {
n236=        .timersBiasa.csaop [ $+ [ $chan(%sBiasa-csaop-v1) ] ] 1 1 { /chanserv op $chan(%sBiasa-csaop-v1) $me }
n237=        dec %sBiasa-csaop-v1 1
n238=    } }
n239=    unset %sBiasa-csaop-v1
n240=} }
n241=#sBiasa-csaop-v1 end
n242=
n243=#sBiasa-nsaip-v1 on
n244=#sBiasa-nsaip-v1 end
n245=
n246=#sBiasa-services.aliases off
n247=alias ni { /nick $$1 | /nickserv identify $$2- }
n248=alias nsi { /nickserv identify $$1- }
n249=alias nsc { /nickserv set $$1- }
n250=alias nsin { /nickserv info $$1- }
n251=alias csi { /chanserv identify # $$1- }
n252=alias cri { /chanserv register # $1 $$2- }
n253=alias csc { /chanserv set # $$1- }
n254=alias csin { /chanserv info #$$1- }
n255=alias csop { /chanserv op $iif($left($1) == $chr(35), $1 $2-, # $$1-) }
n256=alias csdeop { /chanserv deop $iif($left($1) == $chr(35), $1 $2-, # $$1-) }
n257=alias login { if (*.Undernet.org iswm $server) { if ($1 = X) { .msg X@channels.undernet.org login $iif($left($2) == $chr(35), $2, #) $iif($left($2) == $chr(35), $3-, $$2-)  }
n258=    elseif ($1 = W) { .msg W@channels2.undernet.org login $iif($left($2) == $chr(35), $2, #) $iif($left($2) == $chr(35), $3-, $$2-)  }
n259=} }
n260=alias ns { /nickserv $$1- }
n261=alias cs { /nickserv $$1- }
n262=alias ms { /nickserv $$1- }
n263=alias msl { /memoserv list }
n264=#sBiasa-services.aliases end
n265=
n266=;-----Picauly 21 Computer Presents-----
n267=;-----NickServ auto identifying for DALnet Networks-----
n268=;-----Undernet auto 'log-in' for Undernet Networks-----
n269=;-----/UndLogin help-----
n270=;-----Ex: /nsaip on lukisan ; /nsaip off-----
n271=;-----Ex: /UndLogin list ; /UndLogin add #Medan lukisan X ; /UndLogin on-----
n272=;-----Attention: Your password is not really safety from other-----
n273=;-----           person who knows your mirc/computer. Be careful!-----
n274=;-----Originaly by: s-Bíasa-----