(Skrip)-sBiasa-Lite — File Browser
Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_script_04.ini
sbiasa_lite_s_script_04.ini — 30.12 KB — Download this file
[script]
n0=;# Skrip BÃasa Lite -#- Ronà Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=;-----Picauly 21 Computer Presents-----
n2=;-----NickServ auto identifying for DALnet Networks-----
n3=;-----Undernet auto 'log-in' for Undernet Networks-----
n4=;-----/UndLogin help-----
n5=;-----Ex: /nsaip on lukisan ; /nsaip off-----
n6=;-----Ex: /UndLogin list ; /UndLogin add #Medan lukisan X ; /UndLogin on-----
n7=;-----Attention: Your password is not really safety from other-----
n8=;----- person who knows your mirc/computer. Be careful!-----
n9=;-----Originaly by: s-BÃasa-----
n10=
n11=on me:1:NICK:{
n12= if ($nick != $newnick) && ($sBiasa.main(4)) && ($sBiasa.serv.chan) && (*.undernet.org !iswm $server) && (*.efnet.net !iswm $server) {
n13= if (%sBiasa-aipudatesonst) { /nickserv identify $decode($mid(%sBiasa-aipudatesonst,2,$calc($len(%sBiasa-aipudatesonst) - 2))) }
n14= else { myspoken -eld -a $+ $colour(Info2) $+ *** You don't have password setting for auto identification yet. Usage: /NSAIP [on/off] [your passnick] }
n15= }
n16= if ($away) { .titlebar (Skrip)-s·BÃasa-Lite- [away] $newnick }
n17= else { .titlebar (Skrip)-s·BÃasa-Lite- [online] $newnick }
n18=}
n19=alias sBiasa.auto.undernet.login { opendialog sBiasa.auto.undernet.login sBiasa.auto.undernet.login }
n20=dialog sBiasa.auto.undernet.login {
n21= title "BÃasa Auto Login UnderNet V2"
n22= size -1 -1 338 188
n23= button "OK", 3, 103 158 62 25, Ok default
n24= button "Cancel", 4, 171 158 62 25, Cancel
n25= text "Username:", 101, 38 8 70 15
n26= text "Password:", 102, 148 8 70 15
n27= check "", 201, 10 29 25 15
n28= edit "", 202, 36 26 100 22, autohs limit 9
n29= edit "", 203, 146 26 126 22, autohs limit 30 password
n30= button "Clear", 204, 282 26 48 20
n31= check "", 211, 10 54 25 15
n32= edit "", 212, 36 51 100 22, autohs limit 9
n33= edit "", 213, 146 51 126 22, autohs limit 30 password
n34= button "Clear", 214, 282 51 48 20
n35= check "", 221, 10 79 25 15
n36= edit "", 222, 36 76 100 22, autohs limit 9
n37= edit "", 223, 146 76 126 22, autohs limit 30 password
n38= button "Clear", 224, 282 76 48 20
n39= check "", 231, 10 104 25 15
n40= edit "", 232, 36 101 100 22, autohs limit 9
n41= edit "", 233, 146 101 126 22, autohs limit 30 password
n42= button "Clear", 234, 282 101 48 20
n43= check "", 241, 10 129 25 15
n44= edit "", 242, 36 126 100 22, autohs limit 9
n45= edit "", 243, 146 126 126 22, autohs limit 30 password
n46= button "Clear", 244, 282 126 48 20
n47= ; icon 7, 154 173 79 20, $logobiasa
n48= ; link $analog, 33, 8 382 105 17
n49=}
n50=on *:DIALOG:sBiasa.auto.undernet.login:sclick:*:{
n51= if ($did = 201) || ($did = 211) || ($did = 221) || ($did = 231) || ($did = 241) { did - $+ $iif($did(sBiasa.auto.undernet.login,$did).state,e,b) sBiasa.auto.undernet.login $calc($did + 1) | did - $+ $iif($did(sBiasa.auto.undernet.login,$did).state,e,b) sBiasa.auto.undernet.login $calc($did + 2) }
n52= elseif ($did = 204) || ($did = 214) || ($did = 224) || ($did = 234) || ($did = 244) { did -r sBiasa.auto.undernet.login $calc($did - 2) | did -r sBiasa.auto.undernet.login $calc($did - 1) }
n53= elseif ($did = 3) { sBiasa.auto.undernet.login.apply }
n54=}
n55=on *:DIALOG:sBiasa.auto.undernet.login:init:0:{ sBiasa.auto.undernet.login.init }
n56=alias sBiasa.auto.undernet.login.apply {
n57= set %sBiasa-undernet_data $did(sBiasa.auto.undernet.login,201).state $+ $did(sBiasa.auto.undernet.login,211).state $+ $did(sBiasa.auto.undernet.login,221).state $+ $did(sBiasa.auto.undernet.login,231).state $+ $did(sBiasa.auto.undernet.login,241).state
n58= .writeini $fileUndernet Login1 Username $iif($did(sBiasa.auto.undernet.login,202).text,$did(sBiasa.auto.undernet.login,202).text,$crlf)
n59= .writeini $fileUndernet Login1 Password $iif($did(sBiasa.auto.undernet.login,203).text,$did(sBiasa.auto.undernet.login,203).text,$crlf)
n60= .writeini $fileUndernet Login2 Username $iif($did(sBiasa.auto.undernet.login,212).text,$did(sBiasa.auto.undernet.login,212).text,$crlf)
n61= .writeini $fileUndernet Login2 Password $iif($did(sBiasa.auto.undernet.login,213).text,$did(sBiasa.auto.undernet.login,213).text,$crlf)
n62= .writeini $fileUndernet Login3 Username $iif($did(sBiasa.auto.undernet.login,222).text,$did(sBiasa.auto.undernet.login,222).text,$crlf)
n63= .writeini $fileUndernet Login3 Password $iif($did(sBiasa.auto.undernet.login,223).text,$did(sBiasa.auto.undernet.login,223).text,$crlf)
n64= .writeini $fileUndernet Login4 Username $iif($did(sBiasa.auto.undernet.login,232).text,$did(sBiasa.auto.undernet.login,232).text,$crlf)
n65= .writeini $fileUndernet Login4 Password $iif($did(sBiasa.auto.undernet.login,233).text,$did(sBiasa.auto.undernet.login,233).text,$crlf)
n66= .writeini $fileUndernet Login5 Username $iif($did(sBiasa.auto.undernet.login,242).text,$did(sBiasa.auto.undernet.login,242).text,$crlf)
n67= .writeini $fileUndernet Login5 Password $iif($did(sBiasa.auto.undernet.login,243).text,$did(sBiasa.auto.undernet.login,243).text,$crlf)
n68=}
n69=alias sBiasa.auto.undernet.login.init {
n70= if (%sBiasa-undernet_data == $null) { set %sBiasa-undernet_data 00000 }
n71= elseif ($len(%sBiasa-undernet_data) < 5) { set %sBiasa-undernet_data %sBiasa-undernet_data $+ $str(0,$calc(5 - $len(%sBiasa-undernet_data))) }
n72= did - $+ $iif($sBiasa.undernet(1),c,u) sBiasa.auto.undernet.login 201
n73= did - $+ $iif($sBiasa.undernet(1),e,b) sBiasa.auto.undernet.login 202,203
n74= did - $+ $iif($sBiasa.undernet(2),c,u) sBiasa.auto.undernet.login 211
n75= did - $+ $iif($sBiasa.undernet(2),e,b) sBiasa.auto.undernet.login 212,213
n76= did - $+ $iif($sBiasa.undernet(3),c,u) sBiasa.auto.undernet.login 221
n77= did - $+ $iif($sBiasa.undernet(3),e,b) sBiasa.auto.undernet.login 222,223
n78= did - $+ $iif($sBiasa.undernet(4),c,u) sBiasa.auto.undernet.login 231
n79= did - $+ $iif($sBiasa.undernet(4),e,b) sBiasa.auto.undernet.login 232,233
n80= did - $+ $iif($sBiasa.undernet(5),c,u) sBiasa.auto.undernet.login 241
n81= did - $+ $iif($sBiasa.undernet(5),e,b) sBiasa.auto.undernet.login 242,243
n82= did -o sBiasa.auto.undernet.login 202 1 $readini $fileUndernet Login1 Username
n83= did -o sBiasa.auto.undernet.login 203 1 $readini $fileUndernet Login1 Password
n84= did -o sBiasa.auto.undernet.login 212 1 $readini $fileUndernet Login2 Username
n85= did -o sBiasa.auto.undernet.login 213 1 $readini $fileUndernet Login2 Password
n86= did -o sBiasa.auto.undernet.login 222 1 $readini $fileUndernet Login3 Username
n87= did -o sBiasa.auto.undernet.login 223 1 $readini $fileUndernet Login3 Password
n88= did -o sBiasa.auto.undernet.login 232 1 $readini $fileUndernet Login4 Username
n89= did -o sBiasa.auto.undernet.login 233 1 $readini $fileUndernet Login4 Password
n90= did -o sBiasa.auto.undernet.login 242 1 $readini $fileUndernet Login5 Username
n91= did -o sBiasa.auto.undernet.login 243 1 $readini $fileUndernet Login5 Password
n92=}
n93=dialog sBiasa.auto.nickserv.identify {
n94= title "BÃasa Auto Identify NickServ"
n95= size -1 -1 270 117
n96= text "&Password: ", 101, 10 12 53 15
n97= edit "", 102, 62 8 202 22, pass autohs limit 30
n98= text "&Encoded: ", 103, 10 39 53 15
n99= edit "", 104, 62 35 202 22, read autohs
n100= text "This password for everynick.", 105, 10 66 210 15
n101= button "OK", 3, 72 87 62 23, Ok default
n102= button "Cancel", 4, 140 87 62 23, Cancel
n103= ; icon 7, 154 162 79 20, $logobiasa
n104= ; link $analog, 33, 8 382 105 17
n105=}
n106=on *:DIALOG:sBiasa.auto.nickserv.identify:init:0:{ if (%sBiasa-aipudatesonst) { did -o sBiasa.auto.nickserv.identify 104 1 %sBiasa-aipudatesonst | did -o sBiasa.auto.nickserv.identify 102 1 $decode($mid(%sBiasa-aipudatesonst,2,$calc($len(%sBiasa-aipudatesonst) - 2))) } }
n107=on *:DIALOG:sBiasa.auto.nickserv.identify:edit:102:{ if ($did(sBiasa.auto.nickserv.identify,102)) { did -o sBiasa.auto.nickserv.identify 104 1 $rand(a,z) $+ $encode($did(sBiasa.auto.nickserv.identify,102)) $+ $rand(0,9) } | else { did -r sBiasa.auto.nickserv.identify 104 } }
n108=on *:DIALOG:sBiasa.auto.nickserv.identify:sclick:*:{
n109= if ($did = 3) { if ($did(sBiasa.auto.nickserv.identify,104)) { set %sBiasa-aipudatesonst $did(sBiasa.auto.nickserv.identify,104) } | else { unset %sBiasa-aipudatesonst } }
n110= if ($did = 3) || ($did = 4) { sBiasa.auto.nickserv.identify.check.p $did }
n111=}
n112=alias sBiasa.auto.nickserv.identify.check.p { if (%sBiasa-aipudatesonst == $null) { closedialog sBiasa.auto.nickserv.identify sBiasa.auto.nickserv.identify | sBiasa.dialog.info.small Auto Identify NickServ error...:The password is nothing. } }
n113=on 1:NOTIFY:{
n114= if (*.Undernet.Org iswm $server) && (($nick = X) || ($nick = W)) { sBiasa.serv.add $nick
n115= if ($sBiasa.main(5)) && ($isfile($fileUndernet)) {
n116= unset %sBiasa-auto.undernet.login.* | var %sBiasa-auto.undernet.login.read = 1
n117= while (%sBiasa-auto.undernet.login.read <= 5) {
n118= if ($sBiasa.undernet(%sBiasa-auto.undernet.login.read)) {
n119= set -u0 %sBiasa-auto.undernet.login.read.un $readini $fileUndernet Login [ $+ [ %sBiasa-auto.undernet.login.read ] ] Username
n120= set -u0 %sBiasa-auto.undernet.login.read.pw $readini $fileUndernet Login [ $+ [ %sBiasa-auto.undernet.login.read ] ] Password
n121= if (%sBiasa-auto.undernet.login.read.un != $null) && (%sBiasa-auto.undernet.login.read.pw != $null) { .msg x@channels.undernet.org login %sBiasa-auto.undernet.login.read.un %sBiasa-auto.undernet.login.read.pw }
n122= }
n123= inc %sBiasa-auto.undernet.login.read 1
n124= }
n125= unset %sBiasa-auto.undernet.login.*
n126= } }
n127= elseif (($nick = NickServ) || ($nick = ChanServ) || ($nick = MemoServ) || ($nick = OperServ) || ($nick = StatServ)) && (*.Undernet.Org !iswm $server) && (*.efnet.net !iswm $server) { sBiasa.serv.add $nick
n128= if ($nick = NickServ) && ($sBiasa.main(4)) { if (%sBiasa-aipudatesonst) { /nickserv identify $decode($mid(%sBiasa-aipudatesonst,2,$calc($len(%sBiasa-aipudatesonst) - 2))) }
n129= else { myspoken -eld -a $+ $colour(Info2) $+ *** You don't have password setting for auto identification yet. Usage: /NSAIP [on/off] [your passnick] }
n130= } }
n131= elseif ($nick = Roni) && ((*!*rontu@* iswm $fulladdress) || (*!*biasa@* iswm $fulladdress) || (*!*picauly@* iswm $fulladdress) || (*!*usu@* iswm $fulladdress)) && (*!*enforcer*@* !iswm $fulladdress) && (*enforcer* !iswm $fulladdress) { .whois $nick }
n132=}
n133=on 1:UNOTIFY:{ if (*.Undernet.Org iswm $server) && (($nick == X) || ($nick == W)) { sBiasa.serv.rem $nick }
n134= elseif (($nick = NickServ) || ($nick = ChanServ) || ($nick = MemoServ) || ($nick = OperServ) || ($nick = StatServ)) && (*.undernet.org !iswm $server) && (*.efnet.net !iswm $server) { sBiasa.serv.rem $nick }
n135=}
n136=alias UndLogin {
n137= if ($1 = dialog) || ($1 = dialogs) || ($1 = -dialog) || ($1 = -dialogs) || ($1 = options) || ($1 = options) || ($1 = setup) || ($1 = setting) || ($1 = settings) || ($1 = -options) || ($1 = -options) || ($1 = -setup) || ($1 = -setting) || ($1 = -settings) || ($1 = set) || ($1 = sets) || ($1 = -set) || ($1 = -sets) { sBiasa.auto.undernet.login | return }
n138= elseif ($1 = on) || ($1 = off) { set %sBiasa-main_data $left(%sBiasa-main_data,4) $+ $iif($1 = on, 1, 0) $+ $mid(%sBiasa-main_data,6,9) }
n139= linesep -a | myspoken -col info2 -a *** UnderNet Auto Login is $iif($sbiasa.main(5), ON, OFF) | linesep -a
n140= cdid - $+ $iif($sBiasa.main(5),c,u) sBiasa.options 131 | cdid - $+ $iif($sBiasa.main(5),e,b) sBiasa.options 132
n141=}
n142=alias UndLoginV1 { linesep -a | unset %sBiasa-auto.undernet.login.*
n143= if ($4 = X) || ($4 = X@Channels.Undernet.Org) { set %sBiasa-auto.undernet.login.cservice X@Channels.Undernet.Org }
n144= elseif ($4 = W) || ($4 = W@Channels.Undernet.Org) { set %sBiasa-auto.undernet.login.cservice W@Channels2.Undernet.Org }
n145= if ($1 = list) {
n146= if ($2 != $null) && ($chr(45) isin $2) && ($len($2) > 1) { set %sBiasa-auto.undernet.login.isnum $$2
n147= if ($gettok($2,1,45) < $gettok($2,2,45)) { set %sBiasa-auto.undernet.login.isnum.add (Number $gettok(%sBiasa-auto.undernet.login.isnum,1,45) to $gettok(%sBiasa-auto.undernet.login.isnum,2,45) $+ ) }
n148= elseif ($gettok($2,1,45) == $gettok($2,2,45)) { set %sBiasa-auto.undernet.login.isnum.add (Number $iif($gettok($2,1,45) != $null, $gettok($2,1,45), $gettok($2,2,45)) $+ ) }
n149= elseif ($gettok($2,1,45) == $null) || ($gettok($2,2,45) == $null) {
n150= if ($left($2,1) = $chr(45)) {
n151= if ($2 = -1) { set %sBiasa-auto.undernet.login.isnum.add (Just the first) }
n152= else { set %sBiasa-auto.undernet.login.isnum.add (From the first to $gettok(%sBiasa-auto.undernet.login.isnum,1,45) $+ ) }
n153= }
n154= else { set %sBiasa-auto.undernet.login.isnum.add (Number $gettok(%sBiasa-auto.undernet.login.isnum,1,45) to the end) }
n155= }
n156= else { myspoken -eld -a [UndLogin] Error! You were specifing an invalid List Number. | goto sBiasa.UndLogin.end }
n157= }
n158= elseif ($2 isnum 1-9999) { set %sBiasa-auto.undernet.login.isnum $$2 | set %sBiasa-auto.undernet.login.isnum.add (Number $$2 $+ ) }
n159= elseif ($2 != $null) { myspoken -eld -a [UndLogin] Error! You were specifing an invalid List Number. | goto sBiasa.UndLogin.end }
n160= myspoken -eld -a List of Undernet Auto Login Password: %sBiasa-auto.undernet.login.isnum.add
n161= }
n162= elseif ($1 = del) {
n163= if ($4 != $null) { }
n164= elseif ($2 != $null) && ($3 == $null) {
n165= if ($chr(45) isin $2) && ($len($2) > 1) { set %sBiasa-auto.undernet.login.isnum $$2
n166= if ($gettok($2,1,45) < $gettok($2,2,45)) { set %sBiasa-auto.undernet.login.isnum.add (Number $gettok(%sBiasa-auto.undernet.login.isnum,1,45) to $gettok(%sBiasa-auto.undernet.login.isnum,2,45) $+ ) }
n167= elseif ($gettok($2,1,45) == $gettok($2,2,45)) { set %sBiasa-auto.undernet.login.isnum.add (Number $iif($gettok($2,1,45) != $null, $gettok($2,1,45), $gettok($2,2,45)) $+ ) }
n168= elseif ($gettok($2,1,45) == $null) || ($gettok($2,2,45) == $null) {
n169= if ($left($2,1) = $chr(45)) {
n170= if ($2 = -1) { set %sBiasa-auto.undernet.login.isnum.add (Just the first) }
n171= else { set %sBiasa-auto.undernet.login.isnum.add (From the first to $gettok(%sBiasa-auto.undernet.login.isnum,1,45) $+ ) }
n172= }
n173= else { set %sBiasa-auto.undernet.login.isnum.add (Number $gettok(%sBiasa-auto.undernet.login.isnum,1,45) to the end) }
n174= }
n175= else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> or: /UndLogin del <number of the list> | goto sBiasa.UndLogin.last }
n176= }
n177= elseif ($2 isnum 1-9999) { set %sBiasa-auto.undernet.login.isnum $$2 | set %sBiasa-auto.undernet.login.isnum.add (Number $$2 $+ ) }
n178= else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> or: /UndLogin del <number of the list> | goto sBiasa.UndLogin.last }
n179= myspoken -eld -a Try to deleting: %sBiasa-auto.undernet.login.isnum.add
n180= }
n181= else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> or: /UndLogin del <number of the list> | goto sBiasa.UndLogin.last }
n182= if ($exists($fileundernet) != $true) { myspoken -eld -a Error! There's no data file. }
n183= elseif ($exists($fileundernetbak)) { .remove $fileundernetbak }
n184= }
n185= elseif ($1 = help) { myspoken -eld -a Usage: /UndLogin <on/off/add/del/wipe/list> [channel] [password] [X/W] }
n186= if ($1 = wipe) { set -u180 %sBiasa-auto.undernet.loginwipe ask
n187= 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)
n188= }
n189= elseif ($1 = wipeall) && (%sBiasa-auto.undernet.loginwipe == ask) {
n190= unset %sBiasa-auto.undernet.loginwipe
n191= myspoken -eld -a *** Try to deleting all of Undernet Auto Login password data...
n192= .remini $fileundernet Undernet.Org_Channels
n193= myspoken -eld -a *** Your Undernet Auto Login password data has been deleted.
n194= }
n195= else { unset %sBiasa-auto.undernet.loginwipe }
n196= var %sBiasa-auto.undernet.login.tempnum = 0
n197= :sBiasa.Undernet.Org.Login.temp
n198= set %sBiasa-auto.undernet.login.tempget $readini $fileundernet Undernet.Org_Channels n [ $+ [ %sBiasa-auto.undernet.login.tempnum ] ]
n199= if (%sBiasa-auto.undernet.login.tempget) {
n200= inc %sBiasa-auto.undernet.login.tempnum 1
n201= if ($1 = list) {
n202= if (%sBiasa-auto.undernet.login.isnum != $null) {
n203= if ($calc(%sBiasa-auto.undernet.login.tempnum $+ 1) isnum %sBiasa-auto.undernet.login.isnum) {
n204= myspoken -eld -a $+ $calc(%sBiasa-auto.undernet.login.tempnum $+ 1) $+ - Login: $gettok(%sBiasa-auto.undernet.login.tempget,3,32) Channel: $gettok(%sBiasa-auto.undernet.login.tempget,1,32) Password: $gettok(%sBiasa-auto.undernet.login.tempget,2,32)
n205= inc %sBiasa-auto.undernet.login.temp.list 1
n206= } }
n207= else { myspoken -eld -a $+ $calc(%sBiasa-auto.undernet.login.tempnum $+ 1) $+ - Login: $gettok(%sBiasa-auto.undernet.login.tempget,3,32) Channel: $gettok(%sBiasa-auto.undernet.login.tempget,1,32) Password: $gettok(%sBiasa-auto.undernet.login.tempget,2,32) }
n208= }
n209= elseif ($1 = add) {
n210= if (%sBiasa-auto.undernet.login.tempget = $2 $3 %sBiasa-auto.undernet.login.cservice) {
n211= myspoken -eld -a Already: %sBiasa-auto.undernet.login.cservice Channel: $2 Password: ' $+ $$3 $+ ' At number $calc(%sBiasa-auto.undernet.login.tempnum) password list.
n212= set %sBiasa-auto.undernet.login.temp.add already
n213= } }
n214= elseif ($1 = del) {
n215= if (%sBiasa-auto.undernet.login.isnum != $null) && ($calc(%sBiasa-auto.undernet.login.tempnum $+ 1) isnum %sBiasa-auto.undernet.login.isnum) {
n216= myspoken -eld -a Deleting number $calc(%sBiasa-auto.undernet.login.tempnum $+ 1) $+ : $gettok(%sBiasa-auto.undernet.login.tempget,3,32) Channel: $gettok(%sBiasa-auto.undernet.login.tempget,1,32) Password: ' $+ $gettok(%sBiasa-auto.undernet.login.tempget,2,32) $+ ' From number $calc(%sBiasa-auto.undernet.login.tempnum) password list.
n217= inc %sBiasa-auto.undernet.login.temp.del 1
n218= }
n219= elseif (%sBiasa-auto.undernet.login.tempget = $2 $3 %sBiasa-auto.undernet.login.cservice) {
n220= myspoken -eld -a Deleted: %sBiasa-auto.undernet.login.cservice Channel: $2 Password: ' $+ $$3 $+ ' From number $calc(%sBiasa-auto.undernet.login.tempnum) password list.
n221= inc %sBiasa-auto.undernet.login.temp.del 1
n222= }
n223= else { .write $fileundernetbak %sBiasa-auto.undernet.login.tempget }
n224= }
n225= goto sBiasa.Undernet.Org.Login.temp
n226= }
n227= if ($1 = add) && (%sBiasa-auto.undernet.login.temp.add == $null) {
n228= if ($4 != $null) && (%sBiasa-auto.undernet.login.cservice != $null) {
n229= .writeini $fileundernet Undernet.Org_Channels n [ $+ [ %sBiasa-auto.undernet.login.tempnum ] ] $2 $$3 %sBiasa-auto.undernet.login.cservice
n230= myspoken -eld -a Added: %sBiasa-auto.undernet.login.cservice Channel: $2 Password: $$3 At number $calc(%sBiasa-auto.undernet.login.tempnum + 1) password list.
n231= inc %sBiasa-auto.undernet.login.tempnum 1
n232= }
n233= else { myspoken -eld -a Usage: /UndLogin add <#channel> <password> <X/W> }
n234= }
n235= elseif ($1 = del) {
n236= if (%sBiasa-auto.undernet.login.temp.del >= 1) {
n237= set %sBiasa-auto.undernet.login.tempnum $calc(%sBiasa-auto.undernet.login.tempnum - %sBiasa-auto.undernet.login.temp.del)
n238= if ($exists($fileundernet)) && ($exists($fileundernetbak)) {
n239= .remini $fileundernet Undernet.Org_Channels
n240= var %sBiasa-auto.undernet.login.rebuildnum = 0
n241= :sBiasa.Undernet.Org.Login.rebuild
n242= set %sBiasa-auto.undernet.login.rebuildnum2 -l $+ $calc(%sBiasa-auto.undernet.login.rebuildnum + 1)
n243= set %sBiasa-auto.undernet.login.rebuildtemp $read %sBiasa-auto.undernet.login.rebuildnum2 $fileundernetbak
n244= if (%sBiasa-auto.undernet.login.rebuildtemp) {
n245= .writeini $fileundernet Undernet.Org_Channels n [ $+ [ %sBiasa-auto.undernet.login.rebuildnum ] ] %sBiasa-auto.undernet.login.rebuildtemp
n246= inc %sBiasa-auto.undernet.login.rebuildnum 1
n247= goto sBiasa.Undernet.Org.Login.rebuild
n248= }
n249= unset %sBiasa-auto.undernet.login.rebuild*
n250= .remove $fileundernetbak
n251= myspoken -eld -a Success deleting: %sBiasa-auto.undernet.login.temp.del password $+ $iif(%sBiasa-auto.undernet.login.temp.del > 1, s) $+ .
n252= } }
n253= elseif (%sBiasa-auto.undernet.login.temp.del == $null) { if (%sBiasa-auto.undernet.login.isnum != $null) {
n254= myspoken -eld -a Error deleting! Not found: $removecs(%sBiasa-auto.undernet.login.isnum.add,$chr(40),$chr(41)) $+ .
n255= }
n256= else { myspoken -eld -a Error deleting! Not found: %sBiasa-auto.undernet.login.cservice Channel: $2 Password: ' $+ $$3 $+ '. }
n257= }
n258= else { myspoken -eld -a Usage: /UndLogin del <#channel> <password> <X/W> }
n259= }
n260= if ($1 = on) { set %sBiasa-main_data $left(%sBiasa-main_data,4) $+ 1 $+ $mid(%sBiasa-main_data,5,6) }
n261= elseif ($1 = off) { set %sBiasa-main_data $left(%sBiasa-main_data,4) $+ 0 $+ $mid(%sBiasa-main_data,5,6) }
n262= elseif ($1 = list) {
n263= if (%sBiasa-auto.undernet.login.temp.list >= 1) { set %sBiasa-auto.undernet.login.temp.list.tot ( $+ %sBiasa-auto.undernet.login.temp.list listed) }
n264= elseif (%sBiasa-auto.undernet.login.isnum != $null) { myspoken -eld -a -Not found. }
n265= myspoken -eld -a * End of Undernet Auto Login Password list. %sBiasa-auto.undernet.login.temp.list.tot
n266= }
n267= :sBiasa.UndLogin.last
n268= myspoken -eld -a $+ $colour(Info2) $+ *** UndLogin is $iif($mid(%sBiasa-main_data,5,1) = 1, ON, OFF) (you have %sBiasa-auto.undernet.login.tempnum password $+ $iif(%sBiasa-auto.undernet.login.tempnum > 1, s) now)
n269= :sBiasa.UndLogin.end
n270= linesep -a
n271= unset %sBiasa-auto.undernet.login.*
n272= if ($exists($fileundernetbak)) { .remove $fileundernetbak }
n273=}
n274=alias nsaip { if ($1 = on) { set %sBiasa-main_data $left(%sBiasa-main_data,3) $+ 1 $+ $mid(%sBiasa-main_data,5,7) | if ($2 != $null) { set %sBiasa-aipudatesonst $rand(a,z) $+ $encode($$2-) $+ $rand(0,9) } }
n275= elseif ($1 = off) { set %sBiasa-main_data $left(%sBiasa-main_data,3) $+ 0 $+ $mid(%sBiasa-main_data,5,7) }
n276= elseif ($1 != $null) { set %sBiasa-aipudatesonst $rand(a,z) $+ $encode($$1-) $+ $rand(0,9) }
n277=linesep -a | myspoken -eld -a $+ $colour(Info2) $+ *** NSAIP is $iif($mid(%sBiasa-main_data,4,1) = 1, ON, OFF) ( $+ %sBiasa-aipudatesonst $+ ) | linesep -a }
n278=#sBiasa-csaop-v1 on
n279=on 1:NOTIFY:{ if ($nick = ChanServ) && (*.efnet.net !iswm $server) && (*.Undernet.Org !iswm $server) { sBiasa.csaop.v1 } }
n280=alias sBiasa-csaop-v1 { if (%sBiasa-aipudatesonst) {
n281= if ($group(#sBiasa-nsaip-v1) != on) { return }
n282= var %sBiasa-csaop-v1 = $chan(0)
n283= while (%sBiasa-csaop-v1 > 0) {
n284= if ($me isop $chan(%sBiasa-csaop-v1)) {
n285= .timersBiasa.csaop [ $+ [ $chan(%sBiasa-csaop-v1) ] ] 1 1 { /chanserv op $chan(%sBiasa-csaop-v1) $me }
n286= dec %sBiasa-csaop-v1 1
n287= } }
n288= unset %sBiasa-csaop-v1
n289=} }
n290=#sBiasa-csaop-v1 end
n291=#sBiasa-autojoin.unbanned.services on
n292=on 1:NOTICE:Any bans*:?:{ if (*.Undernet.Org iswm $server) || (*.efnet.net iswm $server) { return }
n293= if ($nick = ChanServ) { var %autojoinifunbanned.i = 1
n294= while (%autojoinifunbanned.i <= $gettok($1-,0,32)) {
n295= if ($left($strip($gettok($1-,%autojoinifunbanned.i,32)),1) == $chr(35)) {
n296= if ($me !ison $gettok($1-,%autojoinifunbanned.i,32)) { myspoken -eld -s $+ $colour(Info) $+ *** You have been unbanned and auto joining $strip($gettok($1-,%autojoinifunbanned.i,32)) $+ . | .join $strip($gettok($1-,%autojoinifunbanned.i,32)) }
n297= break
n298= }
n299= inc %autojoinifunbanned.i 1
n300=} } }
n301=#sBiasa-autojoin.unbanned.services end
n302=alias notuser { if ($4 == $null) { return }
n303= elseif ($4 = 1) { myspoken -nl $$1 Sorry! I'm not in channel $+ $$3 $+ . }
n304= elseif ($4 = 2) { myspoken -nl $$1 Sorry! I'm not op in channel $+ $$3 $+ . }
n305= elseif ($4 = 3) { myspoken -nl $$1 Sorry! No such nick $+ $$2 $+ in channel $+ $$3 $+ . }
n306= elseif ($4 = 4) { myspoken -nl $$1 Sorry! No such nick: $+ $$2 $+ }
n307= elseif ($4 = 5) { myspoken -nl $$1 Sorry! No such channel: $+ $$3 $+ }
n308= elseif ($4 = 6) { myspoken -nl $$1 Sorry! Nick $+ $$2 $+ is already op in channel $+ $$3 $+ . }
n309= elseif ($4 = 7) { myspoken -nl $$1 Sorry! Nick $+ $$2 $+ is not op in channel $+ $$3 $+ . }
n310= elseif ($4 = 8) { myspoken -nl $$1 Sorry! No such user to be opped in channel $+ $$3 $+ . }
n311= elseif ($4 = 9) { myspoken -nl $$1 Sorry! All users has been opped in channel $+ $$3 $+ . }
n312= elseif ($4 = 10) { myspoken -nl $$1 Sorry! Nick $+ $$2 $+ is already +voice in channel $+ $$3 $+ . }
n313= elseif ($4 = 11) { myspoken -nl $$1 Sorry! Nick $+ $$2 $+ is not +voice in channel $+ $$3 $+ . }
n314= elseif ($4 = 12) { myspoken -nl $$1 Sorry! No such user to be +voice in channel $+ $$3 $+ . }
n315= elseif ($4 = 13) { myspoken -nl $$1 Sorry! All users has been +voice in channel $+ $$3 $+ . }
n316= elseif ($4 = op_chenel) { myspoken -nl $$1 Command for set Op, request from channel: `op <nick> [#channel] }
n317= elseif ($4 = op_query) { myspoken -nl $$1 Command for set Op, request from query: `op <#channel> <nick> }
n318= elseif ($4 = deop_chenel) { myspoken -nl $$1 Command for set DeOp from channel: `deop <nick> [#channel] }
n319= elseif ($4 = deop_query) { myspoken -nl $$1 Command for set DeOp from query: `deop <#channel> <nick> }
n320= elseif ($4 = mode_chenel) { myspoken -nl $$1 Command for set Mode Chenel from channel: `mode [#channel] [+/-]<character> }
n321= elseif ($4 = say_chenel) { myspoken -nl $$1 Command for say to the channel: `say <your text> }
n322= elseif ($4 = act_chenel) { myspoken -nl $$1 Command for action to the channel: `act <your text> }
n323= elseif ($4 = not_chenel) { myspoken -nl $$1 Command for notice to the channel: `not <your text> }
n324= elseif ($4 = msg_all) { myspoken -nl $$1 Command for message: `msg <nick/#channel> <your text> }
n325= elseif ($4 = dsc_all) { myspoken -nl $$1 Command for describe/action: `dsc <nick/#channel> <your text> }
n326= elseif ($4 = ntc_all) { myspoken -nl $$1 Command for notice: `ntc <nick/#channel> <your text> }
n327= elseif ($4 = amsg_all) { myspoken -nl $$1 Command for message to all channel: `amsg <your text> }
n328= elseif ($4 = ame_all) { myspoken -nl $$1 Command for describe/action to all channel: `ame <your text> }
n329= elseif ($4 = anotice_all) { myspoken -nl $$1 Command for notice to all channel: `anotice <your text> }
n330= elseif ($4 = ping_pong) { myspoken -m $$1 $+ $$2 $+ , Pong! }
n331= elseif ($4 = pong_ping) { myspoken -m $$1 $+ $$2 $+ , Ping! }
n332= elseif ($4 = seen_all) { myspoken -nl $$1 Command for use the seen: !seen <nick> or: !seennick <nick>. }
n333= elseif ($4 = ial_all) { myspoken -nl $$1 Command for to turn on and off the IAL: !ial [on/off] }
n334= elseif ($4 = away_all) { myspoken -nl $$1 Command for set me away: !away <yes/no> [reason] or: !away for knowing that i'm away or not. }
n335= elseif ($4 = away_on) { myspoken -nl $$1 Command for set me away: !away <yes> <reason> }
n336= elseif ($4 = join_all) { myspoken -nl $$1 Command for join: `join <#channel> }
n337= elseif ($4 = part_all) { myspoken -nl $$1 Command for part: `part <#channel> or from the channel: !part for parting that channel. }
n338= elseif ($4 = adduser) { myspoken -nl $nick Command for add a user: 'adduser <level> <nick/mask> }
n339= elseif ($4 = remuser) { myspoken -nl $nick Command for rem a user: 'remuser <level> <nick/mask/number> }
n340= elseif ($4 = listuser) { myspoken -nl $nick Command for see the user list: 'listuser <level> [number] }
n341= elseif ($4 = teks) && ($5 != $null) { myspoken $$2 $$1 $$5- }
n342=}
n343=alias hitenmitsurugi { if ($2 != $null) { inc %hitenmitsurugi 1
n344= if (%hitenmitsurugi > 9999) { set %hitenmitsurugi 11 }
n345= set %hitenmitsurugi.txt 5,2 $+ $str( # ¥ $ @ $ Q ¶ £ % & ¥ Ø § # ¶ 0 & Ñ @ § Ø £ Ñ ¶ ¾ þ ,10)
n346= if ($3 != $null) { set %hitenmitsurugi.msg $sBiasa.censoring($3-) }
n347= else { set %hitenmitsurugi.msg 3,15 $+ $right($analize,22) }
n348= if (*.Undernet.Org iswm $server) { var %hitenmitsurugi.lmt = 300 }
n349= else { var %hitenmitsurugi.lmt = 500 }
n350= if (bw isin $1) { var %hitenmitsurugi.len = $calc(%hitenmitsurugi.lmt - $len($strip(%hitenmitsurugi.msg,c)) - $calc($len($strip(%hitenmitsurugi.txt,c)) - 2))
n351= set %hitenmitsurugi.lst $+ $strip(%hitenmitsurugi.msg,c) $+ $left($strip(%hitenmitsurugi.txt,c),%hitenmitsurugi.len)
n352= }
n353= else { var %hitenmitsurugi.len = $calc(%hitenmitsurugi.lmt - $len(%hitenmitsurugi.msg) - $calc($len(%hitenmitsurugi) - 2))
n354= set %hitenmitsurugi.lst $+ %hitenmitsurugi.msg $+ $left(%hitenmitsurugi.txt,%hitenmitsurugi.len)
n355= }
n356= if ($1 = -e) { .echo $$2 %hitenmitsurugi.lst }
n357= elseif ($1 = -n) { .notice $$2 %hitenmitsurugi.lst }
n358= elseif ($1 = -m) { .msg $$2 %hitenmitsurugi.lst }
n359= elseif ($1 = -d) { .describe $$2 %hitenmitsurugi.lst }
n360= elseif ($1 = -c) { .ctcp $$2 %hitenmitsurugi.lst }
n361= elseif ($1 = -ebw) { .echo $$2 %hitenmitsurugi.lst }
n362= elseif ($1 = -nbw) { .notice $$2 %hitenmitsurugi.lst }
n363= elseif ($1 = -mbw) { .msg $$2 %hitenmitsurugi.lst }
n364= elseif ($1 = -dbw) { .describe $$2 %hitenmitsurugi.lst }
n365= elseif ($1 = -cbw) { .ctcp $$2 %hitenmitsurugi.lst }
n366= }
n367= unset %hitenmitsurugi.*
n368=}
n369=alias karyuzen-sejam { unset %hitenmitsurugi | .timerkaryuzen -o 7 4 { hitenmitsurugi -n $$1 $2- } }
n370=alias karyuzen-bw-sejam { unset %hitenmitsurugi | .timerkaryuzen -o 7 4 { hitenmitsurugi -nbw $$1 $2- } }