0mega v2.0 — File Browser
0megav2.0 / 0megav2.0 / popups.ini
popups.ini — 17.56 KB — Download this file
[qpopup]
n0=0mega:me is up wit %ver 14;9ver192.0 10/155.7 14; 14;3(15author:9p1mpb0y3) 14;
[bpopup]
n0=0mega v2.0-(²ººº)/by p1mpb0y-[CUZ WE BE PIMP-N-]
n1=chr find
n2=.find number:fchr
n3=.find letter:fchr2
n4=one user
n5=.on:{ .enable #hop | echo -a %ver 9t3h10i14s 9w14i15l10l h9o3p 3w15h14e10n t14h9e3r14e15s o9n3l14y 1 u9s10e14r in9 th15e c14h09a14n15n3e10l , i14t 14w9o14n3t h9o10p i14f y10o14u15r o9w3n10e14r15e3d3. }
n6=.off:{ .disable #hop | echo -a %ver 9h3o14p o10f3f10. }
n7=-
n8=(reform):{ %setstatus.1 = $?!="This clears your screen and reformats the status, you sure?(possible flood)" | if (%setstatus.1 == $true) status1 | else halt
[lpopup]
n0=(whois):whois $1
n1=-
n2=[kicks]
n3=.Random Kick:{ kick # $1 $read $mircdirkicks.txt }
n4=.Random Kick Ban://ban # $1 4 | /.raw kick # $1 : $+ $read $mircdirkicks.txt
n5=.Fucker:ban # $1 4 | /kick # $$1 14ß15ú14h15-0ß14ý15é 0Þ14h15ù0ç14k15å
n6=.Kick Why?:kick # $1 $$?="Why?"
n7=.Ban Kick:ban # $1 4 | /kick # $1 $$?="Why?"
n8=[mass's]
n9=.Mass Kick: { .raw kick # $snicks : $+ $$?="enter a reason" }
n10=.Mass Ban: { .mode # +b $$* }
n11=.Mass Deop:{ .raw mode # - $+ $str(o,$snick(#,0)) $replace($snicks,$chr(44),$chr(32)) }
n12=.Mass Op: { .raw mode # + $+ $str(o,$snick(#,0)) $replace($snicks,$chr(44),$chr(32)) }
n13=.Mass Owner: { .raw mode # + $+ $str(q,$snick(#,0)) $replace($snicks,$chr(44),$chr(32)) }
n14=.Mass Deowner: { . raw mode # - $+ $str(q,$snick(#,0)) $replace($snicks,$chr(44),$chr(32)) }
n15=.Mass Voice:{ .raw mode # + $+ $str(v,$snick(#,0)) $replace($snicks,$chr(44),$chr(32)) }
n16=.Mass Devoice:{ .raw mode # - $+ $str(v,$snick(#,0)) $replace($snicks,$chr(44),$chr(32)) }
n17=.Mass Invite:{ invite $* $$?="channel name" }
n18=.Mass Message:{ msg $* $$?="enter a message" }
n19=.Mass Notice:{ raw -q notice $* $$?="enter notice to person" }
n20=(controls)
n21=.(owner)
n22=..(owner user):mode # +q $1 | msg $1 $jw 15Ownered you in:20 # 15 $+ $time(h:nnt)
n23=..(ial owner):mode # +q+q+q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n24=..(mass +q):.raw mode # + $+ $str(q,$snick(#,0)) $replace($snicks,$chr(44),$chr(32))
n25=.(host)
n26=..(host user):mode # +o $1 | msg $1 $jw 15Hosted you in:20 # 15 $+ $time(h:nnt)
n27=..(ial owner):mode # +o+o+o $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n28=..(mass +o):.raw mode # + $+ $str(o,$snick(#,0)) $replace($snicks,$chr(44),$chr(32))
n29=.(Voice)
n30=..(voice user):mode # +v $1 | msg $1 $jw 15Voiced you in:20 # 15 $+ $time(h:nnt)
n31=..(ial owner):mode # +v+v+v $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n32=..(mass +v):.raw mode # + $+ $str(v,$snick(#,0)) $replace($snicks,$chr(44),$chr(32))
n33=.-
n34=.(deowner)
n35=..(deowner user):mode # -q $1 | msg $1 $jw 15Deownered you in:20 # 15 $+ $time(h:nnt) 14oOo you've been nauty...
n36=..(ial owner):mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n37=..(mass -q):.raw mode # - $+ $str(q,$snick(#,0)) $replace($snicks,$chr(44),$chr(32))
n38=.(deop)
n39=..(host user):mode # -o $1 | msg $1 $jw 15Deoped you in:20 # 15 $+ $time(h:nnt) 14oOo you've been nauty...
n40=..(ial owner):mode # -o-o-o $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n41=..(mass -o):.raw mode # - $+ $str(o,$snick(#,0)) $replace($snicks,$chr(44),$chr(32))
n42=.(devoice)
n43=..(devoice user):mode # -v $1 | msg $1 $jw 15Devoiced you in:20 # 15 $+ $time(h:nnt) 14oOo you've been nauty...
n44=..(ial owner):mode # -v-v-v $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n45=..(mass -v):.raw mode # - $+ $str(v,$snick(#,0)) $replace($snicks,$chr(44),$chr(32))
n46=[cLone]
n47=.(Deowner)
n48=..(regular -q clones):mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n49=..(-q rprop):mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | rprop
n50=..(-q rprop clear access):access # CLEAR | mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | rprop
n51=..(-q clear access):access # CLEAR | mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | access # CLEAR
n52=.(Deop)
n53=..(regular -o clones):mode # -o-o-o $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n54=..(-o rprop):mode # -o-o-o $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | rprop
n55=..(-o rprop clear access):access # CLEAR | mode # -o-o-o $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | rprop
n56=..(-o clear access):access # CLEAR | mode # -o-o-o $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | access # CLEAR
n57=.(DeVoice)
n58=..(regular -v clones):mode # -v-v-v $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n59=..(-v rprop):mode # -v-v-v $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | rprop
n60=..(-v rprop clear access):access # CLEAR | mode # -v-v-v $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | rprop
n61=..(-v clear access):access # CLEAR | mode # -v-v-v $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick | access # CLEAR
n62=(dcc in)
n63=.power
n64=..dcc:dcc packetsize 9999
n65=..pdcc:pdcc 99999999999
n66=..fsend:fsend on
n67=..-
n68=..all ab:dcc packetsize 9999 | pdcc 99999999999999 | fsend on
n69=.-
n70=.send:dcc send $1
n71=.chat:dcc chat $1
n72=(ctcping)
n73=.user
n74=..reply:/ctcpreply $$1 $$?="enter ctcp reply msg"
n75=..-
n76=..sound:/ctcp $$1 sound $dir="enter sound" $wavedir\*.wav
n77=..ping:ctcp $$?="enter nick" ping
n78=..page:ctcp $$?="enter nick" page
n79=..time:ctcp $$?="enter nick" time
n80=..finger:ctcp $$?="enter nick" finger
n81=..version:ctcp $$?="enter nick" version
n82=..userinfo:ctcp $$?="enter nick" userinfo
n83=..clientInfo:ctcp $$?="enter nick" clientinfo
n84=.channel
n85=..ping:ctcp # Ping
n86=..page:ctcp # Page
n87=..time:ctcp # time
n88=..finger:ctcp # finger
n89=..version:ctcp # Version
n90=..userinfo:ctcp # userinfo
n91=..clientinfo:ctcp # clientinfo
n92=.xdcc
n93=..list:/ctcp $$1 xdcc list
n94=..send:/ctcp $$1 xdcc send #$$?="enter number"
n95=..queue:/ctcp $$1 xdcc queue
n96=.-
n97=.other:/ctcp $$1 $$?="enter ctcp command"
n98=.ping:ctcp $$1 ping
n99=.version:ctcp $$1 version
n100=.finger:ctcp $$1 finger
n101=.time:ctcp $$1 time
n102=.userinfo:ctcp $$1 userinfo
n103=.clientInfo:ctcp $$1 clientinfo
n104=.xdcc list:ctcp $$1 Xdcc List
n105=.xdcc get:ctcp $$1 GET $$?="enter gets"
n106=.-
n107=.other:ctcp $$1 $$?="enter ctcp"
n108=[Ignore]
n109=.add query:/ignore -p $$* 3
n110=.add channel:/ignore -c $$* 3
n111=.add notice:/ignore -n $$* 3
n112=.add ctcp:/ignore -t $$* 3
n113=.add invite:/ignore -i $$* 3
n114=.-
n115=.remove query:/ignore -rp $$* 3
n116=.remove channel:/ignore -rc $$* 3
n117=.remove notice:/ignore -rn $$* 3
n118=.remove ctcp:/ignore -rt $$* 3
n119=.remove invite:/ignore -ri $$* 3
n120=.-
n121=.remove all:/ignore -r $$* 3
n122=-
n123=[ctalk]:{
n124= if ($len($1) == 1) msg # 4[15 $+ $1 $+ 4]: $?="What yo wanna say?"
n125= else {
n126= set %sctalk.fl $left($1,1)
n127= set %sctalk.fl2 $len($1)
n128= set %sctalk.fl3 $calc(%sctalk.fl2 -1)
n129= set %sctalk.fl4 $right($1-,%sctalk.fl3)
n130= set %sctalk.fl5 $calc(%sctalk.fl3 - 1)
n131= set %sctalk.fl6 $left(%sctalk.fl4,%sctalk.fl5)
n132= set %sctalk.fl7 $right($1,1)
n133= msg # 14( 15 $+ %sctalk.fl $+ 15 $+ %sctalk.fl6 $+ 15 $+ %sctalk.fl7 $+ 14): $?="What yo wanna say?"
n134= unset %sctalk.*
n135= }
n136=}
n137=(unmask):dialog -m unmask unmask | set %unmask.nickname $$1
n138=[hex user]:set %hex.nick1 $1 | hex $1
n139=-
n140=clonez
n141=.do who/turn ial on:{ .ial on | who # }
n142=.-
n143=.regular clone deop:{
n144= mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n145=}
n146=.cd/clear access/rprop:{
n147= access # CLEAR
n148= mode # -q-q-q $ial($address($1,4),1).nick $ial($address($1,4),2).nick $ial($address($1,4),3).nick
n149= rprop
n150= access # CLEAR
n151=}
n152=.-
n153=.scan users on this ip:{
n154= set %userial1 $ial($address($1,4),1).nick
n155= set %userial2 $ial($address($1,4),2).nick
n156= set %userial3 $ial($address($1,4),3).nick
n157= if (%userial2 == $null) set %userial2 %ver end of scan.
n158= if (%userial3 == $null) set %userial3 %ver end of scan.
n159= echo -a %ver ial scan on. | echo -a %ver user1:20 %userial1
n160= echo -a %ver user2:20 %userial2
n161= echo -a %ver user3:20 %userial3
n162= unset %userial*
n163=}
n164=control
n165=.bankick:ban # $1 4 | kick # $1 4[15removed: $address($1,4) $+ 4]
n166=.kick:ban # $1 4 | kick # $1 4[15removed: $address($1,4) $+ 4]
n167=.-
n168=.owner:mode # +q $1
n169=.op:mode # +o $1
n170=.voice:mode # +v $1
n171=.deop:mode # -o $1
n172=.devoice:mode # -v $1
n173=.deowner:mode # -q $1
n174=ctcp's
n175=.ping:/ctcp $$1 ping
n176=.time:/ctcp $$1 time
n177=.version:/ctcp $$1 version
n178=.clientinfo:/ctcp $$1 clientinfo
n179=.userinfo:/ctcp $$1 Userinfo
n180=.finger:/ctcp $$1 finger
n181=.script:/ctcp $$1 script
n182=.-
n183=.send:/dcc send $$1
n184=.chat:/dcc chat $$1
n185=.fast send: pdcc 99999999 | /fsend on
n186=access
n187=.owner
n188=..add- this dewd:access # ADD OWNER $address($1,4) 0 : $+ %ver
n189=..add- $me $+ :access # ADD OWNER $address($1,4) 0 : $+ %ver
n190=..-
n191=..clear:access # CLEAR OWNER
n192=.host
n193=..add- this dewd:access # ADD HOST $address($1,4) 0 : $+ %ver
n194=..add- $me $+ :access # ADD HOST $address($1,4) 0 : $+ %ver
n195=..-
n196=..clear:access # CLEAR HOST
n197=.clear
n198=..owner:access # CLEAR OWNER
n199=..host:access # CLEAR HOST
n200=..-
n201=..clear:access # CLEAR
n202=socks
n203=.kick them rprop clear access:{
n204= access # CLEAR
n205= sockwrite -n * access # CLEAR
n206= kick # $snicks get 0wned?
n207= rprop
n208= sockwrite -n * prop # OWNERKEY $r(1,99) $+ $rand(a,z) $+ $rand(0,99)
n209=}
n210=.kick ial nick rprop access clear:{
n211= access # CLEAR
n212= sockwrite -n * access # CLEAR
n213= set %misty.1 $ial($address($1,4),1).nick
n214= set %misty.2 $ial($address($1,4),2).nick
n215= set %misty.3 $ial($address($1,4),3).nick
n216= rprop
n217= sockwrite -n * prop # OWNERKEY $r(1,99) $+ $rand(a,z) $+ $rand(0,99)
n218= .timer 1 5 unset %misty.*
n219=}
n220=-
n221=0wned:{ access # CLEAR | mode # -q-q-q-q-q-q-q-q-q-q $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 | kick # $1 *sAy oW* | rprop }
n222=Gaylist:{ .guser 300 $1 4 | kick # $1 Forever GAYLIST. }
[mpopup]
n0=(unmask) :dialog -m unmask unmask | set %unmask.nickname $$1
n1=-
n2=[sockets]
n3=..protect
n4=..-
n5=.socks protect
n6=..sock1:dialog -m sockset1 sockset1
n7=..sock2:dialog -m sockset2 sockset2
n8=.0wning sockys
n9=..load:{ dialog -m s0cky2 s0cky2 | dialog -m s0cky1 s0cky1 }
n10=..-
n11=..close:{ unset %s0cky1* | unset %s0cky2* | .timers0cky1.* off | .timers0cky2.* off | sockclose * | window -c @s0cky1 | window -c @s0cky2 }
n12=..join:{ sockwrite -n * join # }
n13=..part:{ .timers0cky1. [ $+ [ # ] ] off | .timers0cky2. [ $+ [ # ] ] off | sockwrite -n * part # | dline -l @s0cky1 $fline(@s0cky1, [ # ] ,1,1) | dline -l @s0cky2 $fline(@s0cky2, [ # ] ,1,1) }
n14=..get q:sockwrite -n * mode # +q $me
n15=..take:ktake | access # CLEAR | mode # +q+q %s0cky1.nickn %s0cky2.nickn
n16=[mp3 sys]
n17=.regular:dialog -md mp3.play mp3.play | .timer 1 0 did -o mp3.play 200 1 play | did -o mp3.play 999 1 active: (open)
n18=.abc mp3:if (%mp3.dir == $null) { echo -a %ver Set a mp3 dir wit "cool.mp3" | halt } | else { dialog -md mp3.list mp3.list }
n19=.cool mp3:dialog -md mp3.tune mp3.tune
n20=[autojoin]
n21=.[dialog auto join]: dialog -m channel channel
n22=.[quick join room]: join #$?="enter channel to join"
n23=.-
n24=.[add a channel]: {
n25= if ( %chan1 == $null ) { set %chan1 [1.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n26= if ( %chan2 == $null ) { set %chan2 [2.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n27= if ( %chan3 == $null ) { set %chan3 [3.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n28= if ( %chan4 == $null ) { set %chan4 [4.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n29= if ( %chan5 == $null ) { set %chan5 [5.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n30= if ( %chan6 == $null ) { set %chan6 [6.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n31= if ( %chan7 == $null ) { set %chan7 [7.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n32= if ( %chan8 == $null ) { set %chan8 [8.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n33= if ( %chan9 == $null ) { set %chan9 [9.][ $+ #$$?="Enter A Channel" $+ ] | goto end }
n34= else { echo $stime You have too many channels in your channel list | halt }
n35= :end
n36= echo $stime $! has been added to your channel list
n37=}
n38=.[join a channel]
n39=..%chan1:/join $remove(%chan1,1. )
n40=..%chan2:/join $remove(%chan2,2. )
n41=..%chan3:/join $remove(%chan3,3. )
n42=..%chan4:/join $remove(%chan4,4. )
n43=..%chan5:/join $remove(%chan5,5. )
n44=..%chan6:/join $remove(%chan6,6. )
n45=..%chan7:/join $remove(%chan7,7. )
n46=..%chan8:/join $remove(%chan8,8. )
n47=..%chan9:/join $remove(%chan9,9. )
n48=.[unset a channel]
n49=..%chan1:/unset %chan1
n50=..%chan2:/unset %chan2
n51=..%chan3:/unset %chan3
n52=..%chan4:/unset %chan4
n53=..%chan5:/unset %chan5
n54=..%chan6:/unset %chan6
n55=..%chan7:/unset %chan7
n56=..%chan8:/unset %chan8
n57=..%chan9:/unset %chan9
n58=(leftover)
n59=.(0mega):pimp1
n60=.[splitbots]:dialog -md sbi sbi
n61=.-
n62=.(reform):{ %setstatus.1 = $?!="This clears your screen and reformats the status, you sure?(possible flood)" | if (%setstatus.1 == $true) status1 | else halt }
n63=.[matrix]:matrix
[cpopup]
n0=0mega:me is up wit %ver 14;9ver192.0 10/155.7 14; 14;3(15author:9p1mpb0y3) 14;
n1=-
n2=(socks)
n3=.sorry none
n4=..protect
n5=..-
n6=..join # $+ :sockwrite -n * join #
n7=..part # $+ :sockwrite -n * part # | .timersock1. [ $+ [ $chan ] ] off | .timersock2. [ $+ [ $chan ] ] off | unset %sock2.nick.join | unset %sock1.nick.join
n8=..-
n9=..close sockys:sockclose * | unset %sock* | .timersock* off
n10=..-
n11=..cycle # $+ :sockwrite -n * part # $+ $crlf $+ join #
n12=..+q me bish:sockwrite -n * mode # +q p1mpb0y
n13=.-
n14=.socks protect bots
n15=..sock1:dialog -m sockset1 sockset1
n16=..sock2:dialog -m sockset2 sockset2
n17=.0wning sockys bots
n18=..load:{ dialog -m s0cky2 s0cky2 | dialog -m s0cky1 s0cky1 }
n19=..-
n20=..close:{ unset %s0cky1* | unset %s0cky2* | .timers0cky1.* off | .timers0cky2.* off | sockclose * | window -c @s0cky1 | window -c @s0cky2 }
n21=..join:{ sockwrite -n * join # }
n22=..part:{ .timers0cky1. [ $+ [ # ] ] off | .timers0cky2. [ $+ [ # ] ] off | sockwrite -n * part # | dline -l @s0cky1 $fline(@s0cky1, [ # ] ,1,1) | dline -l @s0cky2 $fline(@s0cky2, [ # ] ,1,1) }
n23=..get q:sockwrite -n * mode # +q $me
n24=..take:ktake | access # CLEAR | mode # +q+q %s0cky1.nickn %s0cky2.nickn
n25=(others)
n26=.(port&s):{ dialog -m ports ports }
n27=.(tak&e): take1
n28=.(&telnet):{
n29= telnet
n30= did -o telnet 3 1 %telnet.server
n31= did -o telnet 4 1 %telnet.port
n32= did -o telnet 2 1 -[0mega TeLnEt v2.0 by p1mpb0y]-
n33=}
n34=.(dance):hehe
n35=(mp3s)
n36=.mad mp3:dialog -md mp3.play mp3.play | .timer 1 0 did -o mp3.play 200 1 play | did -o mp3.play 999 1 active: (open)
n37=.abc mp3:if (%mp3.dir == $null) { echo -a %ver Set a mp3 dir wit "cool.mp3" | halt } | else { dialog -md mp3.list mp3.list }
n38=.cool mp3:dialog -md mp3.tune mp3.tune
n39=(proset)
n40=.dialog:dialog -m protect protect
n41=.-
n42=.de-q
n43=..on:.enable #deowner | echo -a %ver deowner protection is now enabled.
n44=..off:.disable #deowner | echo -a %ver deowner protection is now disabled.
n45=.kick
n46=..on:.enable #kickpro | echo -a %ver kick protection is now enabled.
n47=..off:.disable #kickpro | echo -a %ver kick protection is now disabled.
n48=-
n49=[away]:dialog -m away away
n50=-
n54=[&cycles]
n55=.hop/reguar:raw -q part # $+ $crlf $+ join #
n56=.hop/c.key:set %key.. $?="Name of key?" | raw -q part # $+ $crlf $+ join # %key.. | .timer 1 5 unset %key..
n57=.-
n58=.hop/last.key:raw -q part # $+ $crlf $+ join # %okey. [ $+ [ $chan ] ]
n59=(status)
n60=.(chan):{ msg # %ver 9t14i10m15e:20 $+ $time(h:nntt) - 9d14a3t15e:20 $+ $date - 9o3n10?:10w $+ $os - 9w3i14n.15u10p:20 $duration($calc($ticks / 1000)) - 9r14o15o3m10s i3n?:20 $chan(0).chan }
n61=.(quiet):{ echo -a %ver 9t14i10m15e:20 $+ $time(h:nntt) - 9d14a3t15e:20 $+ $date - 9o3n10?:10w $+ $os - 9w3i14n.15u10p:20 $duration($calc($ticks / 1000)) - 9r14o15o3m10s i3n?:20 $chan(0).chan }
n62=(ma&ss)
n63=.[mass+q]:massq
n64=.[mass-q]:massdq
n65=.[mass+v]:massv
n66=.[mass-v]:massdv
n67=.[mass+o]:massop
n68=.[mass-o]:massdop
n69=.[masskick]:{ mka }
n70=-
n71=[take]:{
n72= .raw access # CLEAR OWNER
n73= dqot
n74= .raw prop # OWNERKEY :
n75= mka
n76= access # CLEAR
n77=}
n78=[stake]:{
n79= sockwrite -n * access # CLEAR
n80= .raw access # CLEAR OWNER
n81= dqot
n82= .raw prop # OWNERKEY :
n83= mka
n84= sockwrite -n * access # CLEAR
n85= dqot
n86= mka
n87= .raw prop # OWNERKEY :
n88= sockwrite -n * access # CLEAR
n89= access # CLEAR
n90=}