(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_prot_undtxt.ini
sbiasa_lite_s_prot_undtxt.ini — 20.03 KB — Download this file
[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-----