/ScriptServ

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