/ScriptServ

[mpopup]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=Basic &Commands
n2=.Server
n3=..Lusers:/lusers
n4=..Motd:/motd
n5=..Time:/time
n6=.Names
n7=..#mIRC:/names #mirc
n8=..#irchelp: /names #irchelp
n9=..names ?:/names #$$?="Enter a channel name:"
n10=.Join
n11=..#mIRC:/join #mirc
n12=..#irchelp:/join #irchelp
n13=..join ?:/join #$$?="Enter a channel to join:"
n14=.Channel
n15=..Try double-clicking in a channel window!:/
n16=.Other
n17=..Whois ?:/whois $$?="Enter a nickname:"
n18=..Query:/query $$?="Enter a nickname:"
n19=..Nickname:/nick $$?="Enter your new nickname:"
n20=..List Channels:/list
n21=-
n22=&Dalnet
n23=.&nickserv
n24=..&Identify this nick:{ /cNickServ identify $$?*="Enter this nickname ( $+ $me $+ ) password?" }
n25=..&Register this nick:{ set %sBiasa-tmp.psnc $$?*="Please enter this password nickname ( $+ $me $+ )! If this nick is available (not registered)."
n26=  if ($?*="Please re-enter this password nickname ( $+ $me $+ )! If this nick is available (not registered)." == %sBiasa-tmp.psnc) { /cNickServ register  $?="Enter your e-mail address?" }
n27=  else { myspoken -eli -a The password you typed is incorrect. }
n28=  unset %sBiasa-tmp.psnc
n29=}
n30=..-
n31=..Change password:{ set %sBiasa-tmp.cgps $$?*="Enter the password of this nickname ( $+ $me $+ )? The password must be correct."
n32=  :sBiasa.P.Status.change.passnick
n33=  set %sBiasa-tmp.cgps2 $?*="Enter the new password of this nickname?"
n34=  if (%sBiasa-tmp.cgps2 == $null) { goto sBiasa.P.Status.change.passnick.end }
n35=  if ($?*="Re-enter the new password of this nickname? In case-sensitive." == %sBiasa-tmp.cgps2) { /cNickServ set passwd %sBiasa-tmp.cgps %sBiasa-tmp.cgps2 }
n36=  else { myspoken -eli -a The password you typed is incorrect. }
n37=  :sBiasa.P.Status.change.passnick.end
n38=  unset %sBiasa-tmp.cgps %sBiasa-tmp.cgps2
n39=}
n40=..&Drop this nick:{ if ($?!="Are you sure you want to drop this nick?" == $true) { /cNickServ drop $me $$?*="Enter the password of this nick! The password must be correct, and you should be follow the instruction from NickServ." } }
n41=..-
n42=..&Set this nick
n43=...&URL:/cNickServ SET URL $$?="Enter you URL address:? For example 'http://www.picauly.f2s.com' or 'mailto:lukisan@gurlmail.com'."
n44=...E-mail address:/cNickServ SET EMAIL $$?="Enter you e-mail address! For example 'lukisan@gurlmail.com'."
n45=...-
n46=...Kill (enforcer nick)
n47=....On (use this nickname must identify):{ /cNickServ set kill on }
n48=....Off (def):{ /cNickServ set kill off }
n49=...-
n50=...Show e-mail
n51=....On (show e-mail address of this nick):/cNickServ set showemail on
n52=....Off (def):/cNickServ set showemail off
n53=...-
n54=...No memo
n55=....On (you're not wish to use the memo in this nick):/cNickServ set nomemo on
n56=....Off (def):/cNickServ set nomemo off
n57=...No op
n58=....On (you're not wish to be added an Sop, Aop access):/cNickServ set noop on
n59=....Off (def):/cNickServ set noop on
n60=...-
n61=...Access
n62=....Add (mask):/cNickServ ACCESS ADD $$?="Enter the mask (address) to be added! For example 'rontu@picauly.st'."
n63=....Del (mask):/cNickServ ACCESS DEL $$?="Enter the mask (address) to be removed! For example 'rontu@picauly.st'."
n64=....-
n65=....Show list:/cNickServ ACCESS LIST
n66=...-
n67=..-
n68=..Other nick
n69=...Kill a &ghost nick:/cNickServ GHOST $$?="Enter the ghost nickname to be killed?" $$?="Enter the password of that nick? The password must be correct."
n70=...-
n71=...Release nick:/cNickServ RELEASE $$?="Enter the nickname to be released!" $$?="Enter the password of that nick? The password must be correct."
n72=...Recover nick:/cNickServ RECOVER $$?="Enter the nickname to be recovered!" $$?="Enter the password of that nick? The password must be correct."
n73=...-
n74=...Info nick:/cNickServ INFO $$?="Enter the nickname!"
n75=...Show the access nick:/cNickServ ACC $$?="Enter the nickname!"
n76=...-
n77=...Find nick list:/cNickServ LIST $$?="Enter the word! For example '*Roni*' or '*@*.picauly.st'.)
n78=..-
n79=..&Auto identifying
n80=...&On (identify if find nickserv):/nsaip on
n81=...O&ff:/nsaip off
n82=...-
n83=...Set &password:/nsaip on $$?="Enter the auto identify password! Skrip Bíasa bears absolutely no liability for this password nick from other person."
n84=.&chanserv
n85=..Register a channel:{
n86=  if ($server == $null) { myspoken -eli -a Cannot registering a channel, not connected to server. | return }
n87=  set %sBiasa-tmp.ch $$?="Enter the channel name to be registered! The channel must be available (not registered) and you must opped in."
n88=  if ($left(%sBiasa-tmp.ch,1) != $chr(35)) { set %sBiasa-tmp.ch $chr(35) $+ %sBiasa-tmp.ch }
n89=  set %sBiasa-tmp.ch $gettok($gettok(%sBiasa-tmp.ch,1,44),1,32)
n90=  if ($me !ison %sBiasa-tmp.ch) { .join %sBiasa-tmp.ch }
n91=  if ($me !isop %sBiasa-tmp.ch) { myspoken -eli -a Cannot registering %sBiasa-tmp.ch $+ . You are not op in %sBiasa-tmp.ch $+ . | goto sBiasa.P.cs.reg.end }
n92=  set %sBiasa-tmp.ps $?*="Enter the password for registering %sBiasa-tmp.ch $+ !" 
n93=  :sBiasa.P.cs.reg.pass
n94=  if ($?*="Please re-enter the password for registering %sBiasa-tmp.ch $+ !" == %sBiasa-tmp.ps) {
n95=    set %sBiasa-tmp.ds $?*="Enter the description for registering %sBiasa-tmp.ch $+ !"
n96=    if (%sBiasa-tmp.ds == $null) { set %sBiasa-tmp.ds $analizing }
n97=    /cChanServ register %sBiasa-tmp.ch %sBiasa-tmp.ps %sBiasa-tmp.ds
n98=  }
n99=  else { myspoken -eli -a The password you typed is incorrect. | goto sBiasa.P.cs.reg.pass }
n100=  :sBiasa.P.cs.reg.end
n101=  unset %sBiasa-tmp.ch %sBiasa-tmp.ps %sBiasa-tmp.ds
n102=}
n103=..&Identifying a channel:/cChanServ identify #$$?="Enter the channel name!" $$?*="Enter the password of that channel! The password must be correct."
n104=..-
n105=..&Op user:/cChanServ op #$$?="Enter the channel name!" $$?="Enter the nickname!"
n106=..&Deop user:/cChanServ deop #$$?="Enter the channel name!" $$?="Enter the nickname!"
n107=..&Unban me:/cChanServ unban #$$?="Enter the channel name!"
n108=..Unban all:/cChanServ unban #$$?="Enter the channel name!" *
n109=..&Invite user:/cChanServ invite #$$?="Enter the channel name!" $$?="Enter the nickname!"
n110=..-
n111=..Mass kick:/cChanServ mkick #$$?="Enter the channel name!"
n112=..Mass deop:/cChanServ mdeop #$$?="Enter the channel name!"
n113=..-
n114=..&Super op (sop)
n115=...Add:/cChanServ sop #$$?="Enter the channel name!" add $$?="Enter the nickname!"
n116=...Del:/cChanServ sop #$$?="Enter the channel name!" del $$?="Enter the nickname or number in the list!"
n117=...Show list:/cChanServ sop #$$?="Enter the channel name!" list
n118=..&Automatic op (aop)
n119=...Add:/cChanServ aop #$$?="Enter the channel name!" add $$?="Enter the nickname or mask!"
n120=...Del:/cChanServ aop #$$?="Enter the channel name!" del $$?="Enter the nickname or mask or number in the list!"
n121=...Show list:/cChanServ aop #$$?="Enter the channel name!" list
n122=..Auto &kick (akick)
n123=...Add:/cChanServ akick #$$?="Enter the channel name!" add $$?="Enter the nickname or mask!"
n124=...Del:/cChanServ akick #$$?="Enter the channel name!" del $$?="Enter the nickname or mask or number in the list!"
n125=...Show list:/cChanServ akick #$$?="Enter the channel name!" list
n126=..-
n127=..Data &count cenel:/cChanServ count #$$?="Enter the channel name!"
n128=.&memoserv
n129=..Show list:/cMemoServ list
n130=..-
n131=..Read a memo:/cMemoServ read $$?="Enter the number of memo list!"
n132=..&Send a memo:/cMemoServ send $$?="Enter the nickname or registered channel to be sended!" $$?="Enter the message!"
n133=..&Send sops a memo:/cMemoServ sendsops $$?="Enter the registered channel to be sended the sops!" $$?="Enter the message!"
n134=..-
n135=..&Forward memo:/cMemoServ forward $$?="Enter the forward nick! The memo from current nick will forward the memo to that nick automaticaly." $$?="Enter the password of that nick! The password must be correct."
n136=..-
n137=..&Del a memo:/cMemoServ del $$?="Enter the number of memo list to be deleted (see the list)! To completely deleting it, choose purge deleted memos."
n138=..&Undel a memo:/cMemoServ del $$?="Enter the deleted number of memo list to be undeleted (see the list)!"
n139=..&Purge deleted memos:{ if ($?!="Are you sure you want to purge all of deleted memos?" == $true) { /cMemoServ purge } }
n140=&Undernet
n141=.User Login:/cXLog $$?="Enter the username:" $$?="Enter the password:"
n142=.User Newpass:/cXUnd newpass $$?="Enter the new password (you must be authenticated with your old password first):"
n143=.User Info:/cXServ userinfo $$?="Enter the username (registered):"
n144=.Set Invisible:/cXServ x set invisible $iif($$?!="Do you want to set this username to invisible or not? (you must be authenticated with your password first):", ON, OFF)
n145=.-
n146=.Channel Info:/cXServ chaninfo $$?="Enter the channel name:"
n147=.Show Access:/cXServ access $$?="Enter the channel name:" $$?="Enter the username (* for all):"
n148=.Show Commands:/cXServ showcommands $$?="Enter the channel name:"
n149=.Show Banlist:/cXServ banlist $$?="Enter the channel name:"
n150=.Show Status:/cXServ status $$?="Enter the channel name:"
n151=.-
n152=.Voice:/cXServ voice $$?="Enter the channel name:" $$?="Enter the nickname(s):"
n153=.Devoice:/cXServ devoice $$?="Enter the channel name:" $$?="Enter the nickname(s):"
n154=.Set Topic:/cXServ topic $$?="Enter the channel name:" $$?="Enter the topic:"
n155=.Kick Someone:/cXServ kick $$?="Enter the channel name:" $?="Enter the reason:"
n156=.Ban:/cXServ ban $$?="Enter the channel name:" $$?="Enter the nickname or *!*user@*.host:"
n157=.Unban:/cXServ unban $$?="Enter the channel name:" $$?="Enter the nickname or *!*user@*.host:"
n158=.Suspend:/cXServ suspend $$?="Enter the channel name:" $$?="Enter the username" $?="Enter duration (D=days,H=hours,M=minuters,ex:5 d=5 days,def:1 min):"
n159=.Unsuspend:/cXServ unsuspend $$?="Enter the channel name:" $$?="Enter the username"
n160=.Invite Me:/cXServ invite $$?="Enter the channel name:"
n161=.Op:/cXServ op $$?="Enter the channel name:" $$?="Enter the nickname(s):"
n162=.Deop:/cXServ deop $$?="Enter the channel name:" $$?="Enter the nickname(s):"
n163=.-
n164=.Adduser:/cXServ adduser $$?="Enter the channel name:" $$?="Enter the username:" $$?="Enter the access level (0-499):"
n165=.Modify Access:/cXServ modinfo $$?="Enter the channel name:" access $$?="Enter the username:" $$?="Enter the access level (0-499) for new access:"
n166=.Modify Automode
n167=..None:/cXServ modinfo $$?="Enter the channel name:" automode $$?="Enter the username:" none
n168=..Op:/cXServ modinfo $$?="Enter the channel name:" automode $$?="Enter the username:" op
n169=..Voice:/cXServ modinfo $$?="Enter the channel name:" automode $$?="Enter the username:" voice
n170=.Remuser:/cXServ remuser $$?="Enter the channel name:" $$?="Enter the username:"
n171=.-
n172=.Joining X:/cXServ join $$?="Enter the channel name (registered):"
n173=.Parting X:/cXServ part $$?="Enter the channel name (registered):"
n174=.-
n175=.Trusted Admin
n176=..Autotopic
n177=...On (makes X reset the topic to the channel URL and DESCRIPTION every 30 mins, not if idle):/cXServ set $$?="Enter the channel name (registered):" autotopic on
n178=...Off:/cXServ set $$?="Enter the channel name (registered):" autotopic off
n179=..Set Description:/cXServ set $$?="Enter the channel name (registered):" description $$?="Enter the text for description:"
n180=..Set Keywords:/cXServ set $$?="Enter the channel name (registered):" keywords $$?="Enter the text for keywords:"
n181=..Set Default Mode:{ set -u0 %sBiasa-popups.undernet.chan $?="Enter the channel name (registered):"
n182=  if (%sBiasa-popups.undernet.chan) && ($$?!="Are you sure you want to save the current channel modes as default (registered channel)? Whenever X joins the channel, it will reset those modes if any are not set at the time.") { /cXServ set %sBiasa-popups.undernet.chan mode }
n183=  unset %sBiasa-popups.undernet.chan
n184=}
n185=..Set URL:/cXServ set $$?="Enter the channel name (registered):" url $$?="Enter homepage address(es) (URL) (max 75 chars):"
n186=..UserFlags
n187=...No AutoMode set for all new users added:/cXServ set $$?="Enter the channel name (registered):" userflags 0
n188=...Op AutoMode set for all new users added:/cXServ set $$?="Enter the channel name (registered):" userflags 1
n189=...Voice AutoMode set for all new users added:/cXServ set $$?="Enter the channel name (registered):" userflags 2
n190=.-
n191=.Channel Manager
n192=..Autojoin
n193=...On (makes X always join your channel):/cXServ set $$?="Enter the channel name (registered):" autojoin on
n194=...Off (X will not re-join after a netsplit):/cXServ set $$?="Enter the channel name (registered):" autojoin off
n195=..Set Floodpro:/cXServ set $$?="Enter the channel name (registered):" floodpro $$?="Enter the maximum number of KICKs, TOPIC and MODE CHANGES that can be sent to the channel in a 15 second period (0-7):"
n196=..Set Massdeop:/cXServ set $$?="Enter the channel name (registered):" massdeoppro $$?="The maximum number of deops X will allow in a 15 sec period (0-7):"
n197=..NoOp
n198=...On (This means that nobody may be a channel operator except X):/cXServ set $$?="Enter the channel name (registered):" noop on
n199=...Off:/cXServ set $$?="Enter the channel name (registered):" noop off
n200=..ScrictOp
n201=...On (This allows only Level 100+ users who are authenticated to be opped):/cXServ set $$?="Enter the channel name (registered):" scrictop on
n202=...Off:/cXServ set $$?="Enter the channel name (registered):" scrictop off
n203=.-
n204=.&Auto Login
n205=..&On:/UndLogin on
n206=..O&ff:/UndLogin off
n207=..-
n208=..Settings...:{ /undlogin dialog }
n209=-
n210=A&ccess
n211=.Automatic &voice
n212=..Show &list:{ listuser Avoice }
n213=..-
n214=..&Add a nickname/hostmask:{ adduser Avoice $$?="Enter the nickname/hostmask to be added for automatic voice access list!" }
n215=..&Del a nickname/hostmask/listnumber:{ remuser Avoice $$?="Enter the nickname/hostmask/listnumber to be removed from automatic voice access list!" }
n216=..-
n217=..&Wipe:{ if ($$?!="Are you sure you want to remove all the automatic voice access list?" == $true) { remuser Avoice 1- } }
n218=.-
n219=.Auto &op (100)
n220=..Show &list:{ listuser 100 }
n221=..-
n222=..&Add a nickname/hosmask:{ adduser 100 $$?="Enter the nickname/hostmask to be added for auto op (100) access list!" }
n223=..&Del a nickname/hostmask/listnumber:{ remuser 100 $$?="Enter the nickname/hostmask/listnumber to be removed from auto op (100) access list!" }
n224=..-
n225=..&Wipe:{ if ($$?!="Are you sure you want to remove all the auto op (100) access list?" == $true) { remuser 200 1- } }
n226=.&Super op (200)
n227=..Show &list:{ listuser 200 }
n228=..-
n229=..&Add a nickname/hosmask:{ adduser 200 $$?="Enter the nickname/hostmask to be added for super op (200) access list?" }
n230=..&Del a nickname/hostmask/listnumber:{ remuser 200 $$?="Enter the nickname/hostmask/listnumber to be removed from super op (200) access list!" }
n231=..-
n232=..&Wipe:{ if ($$?!="Are you sure you want to remove all the super op (200) access list?" == $true) { remuser 200 1- } }
n233=.&Master (300)
n234=..Show &list:{ listuser 300 }
n235=..-
n236=..&Add a nickname/hosmask:{ adduser 300 $$?="Enter the nickname/hostmask to be added for master (300) access list?" }
n237=..&Del a nickname/hostmask/listnumber:{ remuser 300 $$?="Enter the nickname/hostmask/listnumber to be removed from master (300) access list!" }
n238=..-
n239=..&Wipe:{ if ($$?!="Are you sure you want to remove all the master (300) access list?" == $true) { remuser 300 1- } }
n240=.-
n241=.Auto &kick (banned)
n242=..Show &list:{ listuser Akick }
n243=..-
n244=..&Add a nickname/hosmask:{ adduser Akick $$?="Enter the nickname/hostmask to be added for auto kick (banned) access list?" }
n245=..&Del a nickname/hostmask/listnumber:{ remuser Akick $$?="Enter the nickname/hostmask/listnumber to be removed from auto kick (banned) access list!" }
n246=..-
n247=..&Wipe:{ if ($$?!="Are you sure you want to remove all the auto kick (banned) access list?" == $true) { remuser Akick 1- } }
n248=.-
n249=.Auto &ignore
n250=..Show &list:{ listuser Aignore }
n251=..-
n252=..&Add a nickname/hosmask:{ adduser Aignore $$?="Enter the nickname/hostmask to be added for auto ignore access list!" }
n253=..&Del a nickname/hostmask/listnumber:{ remuser Aignore $$?="Enter the nickname/hostmask/listnumber to be removed from auto ignore access list!" }
n254=..-
n255=..&Wipe:{ if ($$?!="Are you sure you want to remove all the ignore access list?" == $true) { remuser Aignore 1- } }
n256=.-
n257=.&Check a mask...:{ sBiasa.access.v2.check $$?="Enter a mask or an address (fulladdress or wildsite):" }
n258=-
n259=&Away
n260=.Set &Away...:{ sBiasa.away.dialogs.setaway }
n261=.Set &Back...:{ sBiasa.away.dialogs.setback }
n262=.-
n263=.Open &Dialog... $str($chr(160),2) F5:{ opendialog sBiasa.away.dialogs sBiasa.away.dialogs }
n264=-
n265=&Tools
n266=.&Send e-Mail... $str($chr(160),15) F7:{ sBiasa.email -md }
n267=.&Lag Monitor... $str($chr(160),15) F8:{ sBiasa.Lag.Monitor }
n268=.-
n269=.&Information Window... $str($chr(160),2) Shift+F2:{ sBiasa.Win.Information }
n270=-
n271=&Entertainment
n272=.&Mp3 Playlist Player... $str($chr(160),2) F9:{ opendialog sBiasa.Player.playlist sBiasa.Player.playlist -md }
n273=-
n274=&Options
n275=.Main &options... $str($chr(160),27) F2:{ opendialog sBiasa.options sBiasa.options }
n276=.-
n277=.&Private Protection options... $str($chr(160),6) F3:{ opendialog sBiasa.prot.pv.options sBiasa.prot.pv.options }
n278=.&Channel Protection options... $str($chr(160),4) F4:{ opendialog sBiasa.prot.ch.options sBiasa.prot.ch.options }
n279=.&Background Colours options... $str($chr(160),2) Shift+F6:{ sBiasa.bgcolours.options }
n280=.&Text Converter options... $str($chr(160),11) Shift+F7:{ sBiasa.rtext.options }
n281=.&Lag Monitor options... $str($chr(160),15) Shift+F8:{ opendialog sBiasa.lag.monitor.options sBiasa.lag.monitor.options }
n282=.&Mp3 Player options... $str($chr(160),16) Shift+F9:{ opendialog sBiasa.Player.playlist.option sBiasa.Player.playlist.option }
n283=.&Scramble Editor... $str($chr(160),21) Shift+F12:{ sBiasa.scramble.quest }
n284=.-
n285=.Center &window position
n286=..&Lag Monitor options dialog:{
n287=  if ($dialog(sBiasa.lag.monitor)) { cdialog -r sBiasa.lag.monitor }
n288=  else { opendialog sBiasa.lag.monitor sBiasa.lag.monitor | cdialog -r sBiasa.lag.monitor | cdialog -k sBiasa.lag.monitor }
n289=}
n290=..Play &Scramble dialog:{
n291=  if ($dialog(sBiasa.scramble)) { cdialog -r sBiasa.scramble }
n292=  else { opendialog sBiasa.scramble sBiasa.scramble | cdialog -r sBiasa.scramble | cdialog -k sBiasa.scramble }
n293=}
n294=..
n295=-
n296=Edit &Notes:.run notepad.exe notes.txt
n297=&Quit IRC
n298=.&Quit:{ .quit }
n299=.Quit (&why)...:{ .quit $$?="Enter your quit reason:" }
n300=}
n301=-
n302=&About...:{ about }