ClipX — File Browser
ClipXv1.2 / ClipXv1.2 / clipx.ini
clipx.ini — 25.73 KB — Download this file
[clipx]
version=1.2
[script]
n0=; ClipX v1.2 by Nabiki^sKnight
n1=; Do not alter or include in other scripts without permission.
n2=on 1:load:if ((%clpxw != $null) && (%clpxbuf != $null) && (%clpxdclick != $null)) { clipxdef | unset %clpxint %clpxw %clpxbuf %clpxdclick %clpxtime }
n3=on 1:start:{
n4= %clpxpath = $scriptdir
n5= if ($gettok(%clpx,0,46) < 15) clipxdef 0
n6= if ($gettok(%clpx,4,46) == 1) {
n7= if ($gettok(%clpx,6,46) == 1) { clipx hn | window -a @ClipX } | else clipx n
n8= }
n9=}
n10=on 1:input:@ClipX: {
n11= clipboard $1-
n12= iline @ClipX 1 $1-
n13= dline @ClipX $gettok(%clpx,13,46)
n14= window -b @ClipX
n15= titlebar @ClipX « On » $clpxtime
n16= halt
n17=}
n18=on 1:close:@ClipX:{
n19= if ($gettok(%clpx,0,46) < 15) clipxdef 0
n20= %clpx = $window(@ClipX).x $window(@ClipX).y $window(@ClipX).w $window(@ClipX).h $+ . $+ $gettok(%clpx,2-,46)
n21= if ($gettok(%clpx,6,46) == 1) { window -h @ClipX-Temp2 | filter @ClipX @ClipX-Temp2 * | .timer 1 1 clipxrestore }
n22= else {
n23= if ($gettok(%clpx,12,46) == 1) {
n24= if ($chr(32) isin %clpxpath) %~clpxclose = $left(%clpxpath,3) $+ clipx.txt | else %~clpxclose = %clpxpath $+ clipx.txt
n25= savebuf @ClipX %~clpxclose
n26= if ($window(@ClipX-Info) != $null) aline -p @ClipX-Info $clipxcol(1) ClipX buffer autosaved to: $clipxcol(2) %clpxpath $+ clipx.txt | else echo $clipxcol(1,0) -s ClipX buffer autosaved to: $clipxcol(2) %~clpxclose | unset %~clpxclose
n27= }
n28= clipxupdate off
n29= }
n30=}
n31=on 1:close:@ClipX-Info:if ($gettok(%clpx,0,46) < 15) clipxdef 0 | %clpx = $gettok(%clpx,1,46) $+ . $+ $window(@ClipX-Info).x $window(@ClipX-Info).y $window(@ClipX-Info).w $window(@ClipX-Info).h $+ . $+ $gettok(%clpx,3-,46)
n32=on 1:text:*:*: {
n33= if ($gettok(%clpx,14,46) == 0) goto End
n34= %~clpxtrigtxt = 1
n35= :A | if ($gettok(%clpxtrig,%~clpxtrigtxt,46) == $null) goto End
n36= if ($gettok(%clpxtrig,%~clpxtrigtxt,46) !isin $1-) { inc %~clpxtrigtxt 1 | goto A }
n37= if ($window(@ClipX) == $null) clipx
n38= if ($line(@ClipX,1) == $null) iline @ClipX 1 < $+ $nick $+ > $1- | else iline @ClipX 2 < $+ $nick $+ > $1-
n39= dline @ClipX $gettok(%clpx,13,46)
n40= window -b @ClipX
n41= :End | unset %~clpxtrigtxt
n42=}
n43=on 1:action:*:*:{
n44= if ($gettok(%clpx,14,46) == 0) goto End
n45= %~clpxtrigtxt = 1
n46= :A | if ($gettok(%clpxtrig,%~clpxtrigtxt,46) == $null) goto End
n47= if ($gettok(%clpxtrig,%~clpxtrigtxt,46) !isin $1-) { inc %~clpxtrigtxt 1 | goto A }
n48= if ($window(@ClipX) == $null) clipx
n49= if ($line(@ClipX,1) == $null) iline @ClipX 1 * $nick $1- | else iline @ClipX 2 * $nick $1-
n50= dline @ClipX $gettok(%clpx,13,46)
n51= window -b @ClipX
n52= :End | unset %~clpxtrigtxt
n53=}
n54=ctcp 1:.ClipX:ctcpreply $nick .ClipX 1ClipX14 v $+ $readini $scriptdirclipx.ini clipx version 15by 14Nab1iki14^sKni1ght
n55=alias clipx {
n56= if ($gettok(%clpx,0,46) < 15) clipxdef 0
n57= if ($window(@ClipX) != $null) window -ar @ClipX
n58= if ($1 != 0) %~clpxw = $1
n59= if ($gettok(%clpx,5,46) == 1) {
n60= if ($gettok(%clpx,7,46) == 1) %~clpxw = %~clpxw $+ do | else %~clpxw = %~clpxw $+ d
n61= }
n62= window -el $+ %~clpxw @ClipX $gettok(%clpx,1,46) @ClipX Arial Bold 12
n63= unset %~clpxw
n64= if (($line(@ClipX,1) == $null) || ($clipxstuff != $line(@ClipX,1))) titlebar @ClipX « Off » $clpxtime | else titlebar @ClipX « On » $clpxtime
n65= if ($1 == $null) clipxchk
n66= clipxupdate on
n67=}
n68=alias clipxinfo {
n69= if ($gettok(%clpx,0,46) < 15) clipxdef 0
n70= if (%cxpopopt == $null) %cxpopopt = 0.0.0
n71= if ($window(@ClipX-Info) != $null) {
n72= if ((($gettok(%clpx,5,46) == 1) && ($window(@ClipX-Info).mdi == $true)) || (($gettok(%clpx,5,46) == 0) && ($window(@ClipX-Info).mdi != $true))) window -c @ClipX-Info
n73= else window -ar @ClipX-Info
n74= }
n75= if ($window(@ClipX-Info) == $null) {
n76= if ($gettok(%clpx,5,46) == 1) window -dl $+ $gettok(%clpx,3,46) @ClipX-Info $gettok(%clpx,2,46) @ClipX-Info Arial Bold 12
n77= else window -l $+ $gettok(%clpx,3,46) @ClipX-Info $gettok(%clpx,2,46) @ClipX-Info Arial Bold 12
n78= aline -p @ClipX-Info 10ClipX v $+ $readini $scriptdirclipx.ini clipx version by Nabiki^sKnight
n79= }
n80= clipxoptpop
n81= if ($1 == $null) aline @ClipX-Info 15 $+ $str(»«,2) 14 $adate $time $+ 15 $str(»«,10)
n82=}
n83=alias clipxchk {
n84= if (($window(@ClipX) != $null) && ($clipxstuff != $line(@ClipX,1))) {
n85= if ((%clpxlock == $null) && ($cb == $null)) { titlebar @ClipX « Off » $clpxtime | goto End }
n86= iline @ClipX 1 $cb | titlebar @ClipX « On » $clpxtime
n87= if (%clpxlock != $null) { iline @ClipX 1 %clpxlock | clipboard %clpxlock | if ($line(@ClipX,3) == %clpxlock) dline @ClipX 3 }
n88= dline @ClipX [ $gettok(%clpx,13,46) ] $+ -
n89= window -b @ClipX
n90= }
n91= :End | unset %~clpx
n92=}
n93=alias clipxtimechk {
n94= %~clpxtimechk = 1
n95= :A
n96= if ($timer(%~clpxtimechk) == $null) {
n97= unset %~clpxtimechk
n98= return $timer(%~clpxtimechk)
n99= }
n100= if ($timer(%~clpxtimechk).com != clipxchk) { inc %~clpxtimechk 1 | goto A }
n101= return $timer(%~clpxtimechk)
n102=}
n103=alias clipxdef {
n104= if ($1 == Program) {
n105= %clpx = $gettok(%clpx,1-10,46) $+ .2.0.101.0.clipxcopy
n106= if ($clipxtimechk == $null) clipxupdate on
n107= goto End
n108= }
n109= if ($1 == Window) { %clpx = $gettok(%clpx,1-2,46) $+ .10.1.0.1.1. $+ $gettok(%clpx,8-,46) | goto End }
n110= if ($1 == Other) {
n111= %clpx = $gettok(%clpx,1-7,46) $+ .14.10.0. $+ $gettok(%clpx,11-,46)
n112= if ($group(#clipx-menubar) != on) .enable #clipx-menubar
n113= if ($group(#clipx-nicklist) != on) .enable #clipx-nicklist
n114= if ($group(#clipx-channel) != on) .enable #clipx-channel
n115= if ($group(#clipx-query) != on) .enable #clipx-query
n116= goto End
n117= }
n118= if ($1 == Size/Pos) {
n119= %clpx = 30 30 300 200.330 30 300 200. $+ $gettok(%clpx,3-,46)
n120= if ($window(@ClipX) != $null) window @ClipX 30 30 300 200
n121= if ($window(@ClipX-Info) != $null) window @ClipX-Info 330 30 300 200
n122= halt
n123= }
n124= %clpx = 30 30 300 200.330 30 300 200.10.1.0.1.1.14.10.0.2.0.101.0.clipxcopy
n125= :End | if ($1 != 0) clipxfilter
n126=}
n127=alias clipxfilter {
n128= window -h @ClipX-Temp | clear @ClipX-Temp
n129= if (($window(@ClipX) != $null) && (($1 == $null) || ($1 == 1) || ($1 == 3))) {
n130= filter @ClipX @ClipX-Temp * | window -c @ClipX
n131= if ($gettok(%clpx,6,46) == 1) clipx h | else clipx 0
n132= clear @ClipX | filter @ClipX-Temp @ClipX *
n133= }
n134= clear @ClipX-Temp
n135= if (($window(@ClipX-Info) != $null) && (($1 == $null) || ($1 == 2) || ($1 == 3))) {
n136= filter @ClipX-Info @ClipX-Temp * | window -c @ClipX-Info
n137= clipxinfo 0
n138= clear @ClipX-Info | filter @ClipX-Temp @ClipX-Info *
n139= }
n140= window -c @ClipX-Temp
n141= unset %~clpxfilter
n142=}
n143=alias clipxupdate {
n144= %~clpxupdate = $clipxtimechk
n145= unset %~clpxtimechk
n146= if (%~clpxupdate == $null) {
n147= if ($1 == off) goto End
n148= if ($1 == on) clipxstart 1 | else clipxstart
n149= }
n150= else {
n151= if ($1 == on) goto End
n152= .timer [ $+ [ %~clpxupdate ] ] off
n153= if ($1 == $null) { clipxinfo | aline -p @ClipX-Info $clipxcol(1) Update halted (Timer %~clpxupdate $+ ) }
n154= }
n155= :End | unset %~clpxupdate
n156=}
n157=alias clipxstart {
n158= .timer 0 $gettok(%clpx,11,46) clipxchk
n159= if (($line(@ClipX,1) == $null) || ($clipxstuff != $line(@ClipX,1))) titlebar @ClipX « Off » $clpxtime | else titlebar @ClipX « On » $clpxtime
n160= if ($1 == $null) { clipxinfo | aline -p @ClipX-Info $clipxcol(1) Update started (Timer $ltimer $+ ) }
n161= clipxchk
n162=}
n163=alias clipxrestore {
n164= clipx h | clear @ClipX | filter @ClipX-Temp2 @ClipX * | window -c @ClipX-Temp2
n165= if (($line(@ClipX,1) == $null) || ($clipxstuff != $line(@ClipX,1))) titlebar @ClipX « Off » $clpxtime | else titlebar @ClipX « On » $clpxtime
n166=}
n167=alias clipxhide {
n168= if ($window(@ClipX) != $null) {
n169= if ($gettok(%clpx,6,46) == 1) window -h @ClipX | else clipxfilter 1
n170= }
n171=}
n172=alias clpxtime if ($clipxtimechk != $null) return Timer ( $+ $gettok(%clpx,11,46) secs)
n173=alias clipxcopy {
n174= if (($1 == $null) && ($sline(@ClipX,1) == $null)) halt
n175= if ($1 == $null) { %~clpxcopy = $sline(@ClipX,1) | dline @ClipX $sline(@ClipX,1).ln } | else %~clpxcopy = $1-
n176= clipboard %~clpxcopy
n177= iline @ClipX 1 %~clpxcopy
n178= dline @ClipX $gettok(%clpx,13,46)
n179= titlebar @ClipX « On » $clpxtime
n180= unset %~clpxcopy
n181= if ($1 == $null) window -n @ClipX
n182=}
n183=alias clipxcopynick {
n184= %~clpxcopynick = 1
n185= :A
n186= if ($snick(#,%~clpxcopynick) != $null) { clipxcopy $snick(#,%~clpxcopynick) | inc %~clpxcopynick 1 | goto A }
n187= unset %~clpxcopynick
n188=}
n189=alias clipxdel {
n190= if ($1 == a) { clear @ClipX | clipxchk | halt }
n191= if ($sline(@ClipX,1) == $null) halt
n192= %~clpxdel = $sline(@ClipX,0)
n193= :A
n194= if (%~clpxdel > 0) { dline @ClipX $sline(@ClipX,%~clpxdel).ln | dec %~clpxdel 1 | goto A }
n195= clipxchk
n196= unset %~clpxdel %~clpx
n197=}
n198=alias clipxedit if ($sline(@ClipX,1) != $null) editbox @ClipX $sline(@ClipX,1)
n199=alias clipxlock {
n200= if (($1- == %clpxlock) || ($1 == $null)) unset %clpxlock
n201= else {
n202= if ($1- == $sline(@ClipX,1)) dline @ClipX $sline(@ClipX,1).ln
n203= iline @ClipX 1 $1- | clipboard $1- | %clpxlock = $1- | dline @ClipX $gettok(%clpx,13,46)
n204= }
n205= if ($window(@ClipX-Info) != $null) clipxinfo 0
n206=}
n207=alias clipxnet {
n208= if ($sline(@ClipX,1) == $null) goto End
n209= %~clipxnet = $readini $mircini files browser
n210= if (%~clipxnet == $null) {
n211= %~clipxnet = $dir="Browser:" *.exe
n212= if (%~clipxnet == $null) goto End
n213= writeini $mircini files browser %~clipxnet
n214= }
n215= run %~clipxnet $sline(@ClipX,1)
n216= window -n @ClipX
n217= :End
n218= unset %~clipxnet
n219=}
n220=alias clipxint {
n221= :A | %~clpxint = $?="Enter interval in seconds:"
n222= if (%~clpxint == $null) goto End
n223= if ((1 \\ %~clpxint) || (%~clpxint < 1)) goto A
n224= %clpx = $puttok(%clpx,%~clpxint,11,46)
n225= %~clpxint = $clipxtimechk
n226= if (%~clpxint != $null) .timer [ $+ [ %~clpxint ] ] off
n227= unset %~clpxtimechk
n228= clipxstart
n229= :End
n230= unset %~clpxint
n231=}
n232=alias clipxload {
n233= if ($calc($gettok(%clpx,13,46) - $line(@ClipX,0) - 1) < 1) {
n234= clipxinfo
n235= aline -p @ClipX-Info $clipxcol(1) ClipX buffer has4 0 empty slots remaining.
n236= aline -p @ClipX-Info $clipxcol(1) Delete some lines or increase the buffer size first.
n237= goto End
n238= }
n239= %~clpxload = $dir="File to load:" *.txt
n240= if (%~clpxload == $null) goto End
n241= clipx 0
n242= %~clpxload1 = 1
n243= if ($lines(%~clpxload) > $calc($gettok(%clpx,13,46) - $line(@ClipX,0) - 1)) {
n244= clipxinfo
n245= aline -p @ClipX-Info $clipxcol(1) File has4 $lines(%~clpxload) lines.
n246= aline -p @ClipX-Info $clipxcol(1) ClipX buffer has only 4 $calc($gettok(%clpx,13,46) - $line(@ClipX,0) - 1) empty slots remaining.
n247= :B
n248= %~clpxload1 = $?="Starting line number: (1- [ $+ [ $lines(%~clpxload) ] $+ ] )"
n249= if (%~clpxload1 == $null) goto End
n250= if ((%~clpxload1 > $lines(%~clpxload)) || (%~clpxload1 < 1)) goto B
n251= }
n252= :A
n253= %~clpxload2 = $read -nl $+ %~clpxload1 %~clpxload
n254= if ((%~clpxload1 <= $lines(%~clpxload)) && ($line(@ClipX,0) < $calc($gettok(%clpx,13,46) - 1))) {
n255= if (%~clpxload2 != $null) aline @ClipX %~clpxload2
n256= inc %~clpxload1 1 | goto A
n257= }
n258= :End
n259= unset %~clpxload %~clpxload1 %~clpxload2
n260=}
n261=alias clipxsave {
n262= if (($sline(@ClipX,1) == $null) && ($1 == s)) halt
n263= clipxinfo
n264= :F | %~clpxsave = $dir="File to save to:" *.txt
n265= if (%~clpxsave != $null) { %~clpxsave1 = 1 | goto B }
n266= :A | %~clpxsave = $?="Filename (include path/ext):"
n267= if (%~clpxsave == $null) goto End
n268= if ($nopath(%~clpxsave) == %~clpxsave) goto A
n269= if ($exists($nofile(%~clpxsave)) != $true) { aline -p @ClipX-Info 4 Invalid path | goto A }
n270= :B | if ($nopath(%~clpxsave) == clipx.txt) { aline -p @ClipX-Info 4 Filename is reserved for AutoSave option | goto F }
n271= if ($exists(%~clpxsave) == $true) {
n272= %~clpxsave1 = $?="Append to existing file? (Y/N)"
n273= if (%~clpxsave1 == $null) goto B
n274= if (%~clpxsave1 == n) goto A
n275= }
n276= %~clpxsave1 = 1
n277= :C
n278= if ($1 == a) %~clpxsave2 = $line(@ClipX,%~clpxsave1) | else %~clpxsave2 = $sline(@ClipX,%~clpxsave1)
n279= if (%~clpxsave2 != $null) { write %~clpxsave %~clpxsave2 | inc %~clpxsave1 1 | goto C }
n280= aline -p @ClipX-Info $clipxcol(1) Saved to: $clipxcol(2) %~clpxsave
n281= :End
n282= unset %~clpxsave %~clpxsave1 %~clpxsave2
n283=}
n284=alias clipxtrigshow {
n285= clipxinfo | aline -p @ClipX-Info $clipxcol(1) Existing triggers:
n286= %~clpxtrig = 1
n287= :A
n288= if ($gettok(%clpxtrig,%~clpxtrig,46) != $null) {
n289= aline -p @ClipX-Info $clipxcol(1) %~clpxtrig $+ ) $gettok(%clpxtrig,%~clpxtrig,46)
n290= inc %~clpxtrig 1 | goto A
n291= }
n292= elseif (%~clpxtrig == 1) aline @ClipX-Info 4 None
n293= unset %~clpxtrig
n294=}
n295=alias clipxtrigadd {
n296= clipxtrigshow
n297= :B | %~clpxtrig = $?="Enter additional trigger:"
n298= if (%~clpxtrig == $null) goto End
n299= if ($findtok(%clpxtrig,%~clpxtrig,46) != $null) { aline -p @ClipX-Info 4 Already exists | goto B }
n300= if (. isin %~clpxtrig) { aline -p @ClipX-Info 4 No periods allowed | goto B }
n301= %clpxtrig = $addtok(%clpxtrig,%~clpxtrig,46)
n302= aline -p @ClipX-Info $clipxcol(1) Added: %~clpxtrig
n303= goto B
n304= :End
n305= unset %~clpxtrig
n306= flushini clipx.ini
n307=}
n308=alias clipxtrigdel {
n309= clipxtrigshow
n310= :B | if (%clpxtrig == $null) goto End
n311= %~clpxtrig = $?="Enter number to delete: (Enter . for all)"
n312= if (%~clpxtrig == $null) goto End
n313= if (%~clpxtrig == .) { unset %clpxtrig | aline -p @ClipX-Info $clipxcol(1) Removed all triggers | goto End }
n314= if ($gettok(%clpxtrig,%~clpxtrig,46) == $null) goto B
n315= aline -p @ClipX-Info $clipxcol(1) Removed: $gettok(%clpxtrig,%~clpxtrig,46)
n316= %clpxtrig = $remtok(%clpxtrig,$gettok(%clpxtrig,%~clpxtrig,46),46)
n317= clipxtrigshow
n318= goto B
n319= :End
n320= unset %~clpxtrig
n321= flushini clipx.ini
n322=}
n323=alias clipxdclick {
n324= clipxinfo | aline -p @ClipX-Info $clipxcol(1) Current DClick: $clipxcol(2) $gettok(%clpx,15-,46)
n325= %~clpxdclick = $?="New DClick:"
n326= if (%~clpxdclick != $null) { %clpx = $gettok(%clpx,1-14,46) $+ . $+ %~clpxdclick | aline -p @ClipX-Info $clipxcol(1) New DClick: $clipxcol(2) $gettok(%clpx,15-,46) }
n327= unset %~clpxdclick
n328=}
n329=alias clipxunload {
n330= %~clpxunload = $?="Unload ClipX? (Y/N)"
n331= if (%~clpxunload != y) { unset %~clpxunload | halt }
n332= %~clpxunload = $clipxtimechk | if (%~clpxunload != $null) .timer [ $+ [ %~clpxunload ] ] off
n333= if ($window(@ClipX) != $null) window -c @ClipX
n334= if ($window(@ClipX-Info) != $null) window -c @ClipX-Info
n335= if ($?="Keep ClipX settings? (Y/N)" != y) unset %clpxtrig %clpxlock %clpx
n336= unset %clpxpath %cxpopopt %~clpx* %~clpxtimechk %~clpxunload
n337= echo 10 $active $timestamp ClipX has been unloaded
n338= .timer 1 1 .unload -rs clipx.ini
n339=}
n340=alias clipxhlp {
n341= if (($1 == d) && ($gettok(%clpx,10,46) == 0)) { run %clpxpath $+ clipx.doc | halt }
n342= %~clipxhlp = $readini $mircini files browser
n343= if (%~clipxhlp == $null) {
n344= %~clipxhlp = $dir="Browser:" *.exe
n345= if (%~clipxhlp == $null) halt
n346= }
n347= if ($1 == d) run %~clipxhlp %clpxpath $+ cxdoc.htm | else run %~clipxhlp http://www.geocities.com/Tokyo/Flats/3498
n348= unset %~clipxhlp
n349=}
n350=alias clipxstuff {
n351= %~clpx = $cb
n352= :A | if ($left(%~clpx,1) == $chr(32)) { %~clpx = $right(%~clpx,$calc($len(%~clpx) - 1)) | goto A }
n353= return %~clpx
n354=}
n355=alias clipxsort {
n356= window -hls @ClipX-Temp
n357= filter @ClipX @ClipX-Temp *
n358= clear @ClipX
n359= filter @ClipX-Temp @ClipX *
n360= window -c @ClipX-Temp
n361=}
n362=alias clipxbuf {
n363= :A
n364= %~clpxbuf = $?="New max ClipX buffer: (Current: [ $calc($gettok(%clpx,13,46) - 1) $+ ] )"
n365= if (%~clpxbuf == $null) goto End
n366= if (%~clpxbuf < 1) goto A
n367= %clpx = $puttok(%clpx,$calc(%~clpxbuf + 1),13,46)
n368= dline @ClipX [ $gettok(%clpx,13,46) ] $+ -
n369= :End | unset %~clpxbuf
n370=}
n371=alias clipxlbxw {
n372= :A | %~clpxlbxw = $?="New @ClipX-Info Listbox Width:"
n373= if (%~clpxlbxw == $null) goto End
n374= if ((1 \\ %~clpxlbxw) || (%~clpxlbxw < 1)) goto A
n375= %clpx = $puttok(%clpx,%~clpxlbxw,3,46)
n376= :End
n377= unset %~clpxlbxw
n378=}
n379=alias clipxcol {
n380= if ($1 == 1) { if ($2 == 0) return $gettok(%clpx,8,46) | else return $+ $gettok(%clpx,8,46) }
n381= else { if ($2 == 0) return $gettok(%clpx,9,46) | else return $+ $gettok(%clpx,9,46) }
n382=}
n383=alias clipxcolor {
n384= :A | %~clpxcolor = $?="Enter color [ $1 $+ ] : (1-15)"
n385= if (%~clpxcolor == $null) goto End
n386= if ((1 \\ %~clpxcolor) || (%~clpxcolor < 1) || (%~clpxcolor > 15)) goto A
n387= %clpx = $puttok(%clpx,%~clpxcolor,$calc($1 + 7),46)
n388= clipxinfo
n389= :End
n390= unset %~clpxcolor
n391=}
n392=alias clipxopt {
n393= if (($1 == Menubar) || ($1 == NickList) || ($1 == Channel) || ($1 == Query)) {
n394= if ($group(#clipx- [ $+ [ $1 ] ] ) == on) .disable #clipx- [ $+ [ $1 ] ] | else .enable #clipx- [ $+ [ $1 ] ]
n395= goto End
n396= }
n397= if ($1 == pop) {
n398= if ($gettok(%cxpopopt,$2,46) == 0) %cxpopopt = $puttok(%cxpopopt,1,$2,46) | else %cxpopopt = $puttok(%cxpopopt,0,$2,46)
n399= goto End
n400= }
n401= if ($gettok(%clpx,$1,46) == 1) %clpx = $puttok(%clpx,0,$1,46) | else %clpx = $puttok(%clpx,1,$1,46)
n402= if (($1 != 5) && (($1 != 7) || ($gettok(%clpx,5,46) == 0))) goto End
n403= clipxfilter 1
n404= if ($window(@ClipX) != $null) {
n405= window -ar @ClipX
n406= if (($line(@ClipX,1) == $null) || ($clipxstuff != $line(@ClipX,1))) titlebar @ClipX « Off » $clpxtime | else titlebar @ClipX « On » $clpxtime
n407= }
n408= :End
n409=}
n410=alias clipxstate {
n411= if (($1 == Menubar) || ($1 == NickList) || ($1 == Channel) || ($1 == Query)) { if ($group(#clipx- [ $+ [ $1 ] ] ) == on) return on | else return off }
n412= if ($1 == u) {
n413= if ($window(@ClipX) != $null) { if ($clipxstuff != $line(@ClipX,1)) titlebar @ClipX « Off » $clpxtime | else titlebar @ClipX « On » $clpxtime }
n414= if (%~clpxtimechk == $null) return off
n415= unset %~clpxtimechk | return on
n416= }
n417= if ($1 == l) { if (%clpxlock == $null) return off | else return on }
n418= if ($gettok(%clpx,$1,46) == 0) {
n419= if ($1 != 10) return off | else return DOC
n420= }
n421= else {
n422= if ($1 != 10) return on | else return HTML
n423= }
n424=}
n425=alias clipxpop {
n426= if ($active == @ClipX-Info) {
n427= unset %~clpxtmp
n428= if ($1 == &Delete) { if (%clpxtrig != $null) return $1- | else return %~clpxtmp }
n429= if ($sline(@ClipX-Info,1) != $null) return $1- | else return %~clpxtmp
n430= }
n431= if ($1 == frx) {
n432= if (($exists($sline(@ClipX,1)) != $true) || (($alias(frunner.ini) != $null) && ($2 == r)) || (($alias(frunner.ini) == $null) && ($2 == $null))) { unset %~clpxfrx | return %~clpxfrx }
n433= if ($2 == r) return &Run | else return &FRX
n434= }
n435= if ($1 == 0) { if ($line(@ClipX,0) > 0) return $2- }
n436= if ($1 == 1) { if ($sline(@ClipX,1) != $null) return $2- }
n437= if ($1 == 2) { if ($line(@ClipX,0) > 1) return $2- }
n438=}
n439=alias clipxoptpop {
n440= clear -l @ClipX-Info
n441= aline -l @ClipX-Info 8,1|||-- Program --|||
n442= if ($gettok(%cxpopopt,1,46) == 0) goto A
n443= aline -l 21 @ClipX-Info Default Program
n444= aline -l 21 @ClipX-Info Clip Lock: $clipxcol(2) $clipxstate(l)
n445= aline -l 21 @ClipX-Info Update: $clipxcol(2) $clipxstate(u)
n446= aline -l 21 @ClipX-Info Interval: $clipxcol(2) $gettok(%clpx,11,46) secs
n447= aline -l 21 @ClipX-Info Buffer: $clipxcol(2) $calc($gettok(%clpx,13,46) - 1)
n448= aline -l 21 @ClipX-Info AutoCap: $clipxcol(2) $clipxstate(14)
n449= aline -l 21 @ClipX-Info AutoSave: $clipxcol(2) $clipxstate(12)
n450= aline -l 21 @ClipX-Info DClick: $clipxcol(2) $gettok(%clpx,15-,46)
n451= :A | aline -l @ClipX-Info 8,1|||-- Window --|||
n452= if ($gettok(%cxpopopt,2,46) == 0) goto B
n453= aline -l 21 @ClipX-Info Default Size/Pos
n454= aline -l 21 @ClipX-Info Default Window
n455= aline -l 21 @ClipX-Info Start-Up: $clipxcol(2) $clipxstate(4)
n456= aline -l 21 @ClipX-Info Desktop: $clipxcol(2) $clipxstate(5)
n457= aline -l 21 @ClipX-Info On Top: $clipxcol(2) $clipxstate(7)
n458= aline -l 21 @ClipX-Info Hide: $clipxcol(2) $clipxstate(6)
n459= aline -l 21 @ClipX-Info Listbox: $clipxcol(2) $gettok(%clpx,3,46)
n460= :B | aline -l @ClipX-Info 8,1|||-- Other --|||
n461= if ($gettok(%cxpopopt,3,46) == 0) goto C
n462= aline -l 21 @ClipX-Info Default Other
n463= aline -l 21 @ClipX-Info Doc Form: $clipxcol(2) $clipxstate(10)
n464= aline -l 21 @ClipX-Info Color 1: $clipxcol(1) $clipxcol(1,0)
n465= aline -l 21 @ClipX-Info Color 2: $clipxcol(2) $clipxcol(2,0)
n466= aline -l 21 @ClipX-Info Menubar: $clipxcol(2) $clipxstate(Menubar)
n467= aline -l 21 @ClipX-Info NickList: $clipxcol(2) $clipxstate(NickList)
n468= aline -l 21 @ClipX-Info Channel: $clipxcol(2) $clipxstate(Channel)
n469= aline -l 21 @ClipX-Info Query: $clipxcol(2) $clipxstate(Query)
n470= :C
n471=}
n472=alias clipxoptpop2 {
n473= if (($1 == $null) || ($left($1,3) == ···)) {
n474= if ($line(@ClipX-Info,0) > 1) { clear @ClipX-Info | aline -p @ClipX-Info 10ClipX v $+ $readini $scriptdirclipx.ini clipx version by Nabiki^sKnight } | else window -c @ClipX-Info
n475= }
n476= %~clipxoptpop = |||-- Program --||| | if ($strip($1-) == %~clipxoptpop) { clipxopt pop 1 | goto End }
n477= %~clipxoptpop = |||-- Window --||| | if ($strip($1-) == %~clipxoptpop) { clipxopt pop 2 | goto End }
n478= %~clipxoptpop = |||-- Other --||| | if ($strip($1-) == %~clipxoptpop) { clipxopt pop 3 | goto End }
n479= if ($left($1,7) == Default) { clipxdef $2 | goto End }
n480= if ($left($1,8) == AutoCap:) { clipxopt 14 | goto End }
n481= if ($left($1,9) == AutoSave:) { clipxopt 12 | goto End }
n482= if ($left($1,7) == Update:) { clipxupdate | goto End }
n483= if ($left($1,9) == Interval:) { clipxint | goto End }
n484= if ($left($1,7) == Buffer:) { clipxbuf | goto End }
n485= if ($left($1,5) == Hide:) { clipxopt 6 | clipxhide | goto End }
n486= if ($left($1,9) == Start-Up:) { clipxopt 4 | goto End }
n487= if ($left($1,8) == Desktop:) { clipxopt 5 | goto End }
n488= if ($left($1,8) == Listbox:) { clipxlbxw | goto End }
n489= if ($left($1,8) == Menubar:) { clipxopt Menubar | goto End }
n490= if ($left($1,9) == NickList:) { clipxopt NickList | goto End }
n491= if ($left($1,8) == Channel:) { clipxopt Channel | goto End }
n492= if ($left($1,6) == Query:) { clipxopt Query | goto End }
n493= if ($left($1,7) == DClick:) { clipxdclick | goto End }
n494= %~clipxoptpop = Clip Lock: | if ($left($1-,10) == %~clipxoptpop) { clipxlock $sline(@ClipX,1) | goto End }
n495= %~clipxoptpop = On Top: | if ($left($1-,7) == %~clipxoptpop) { clipxopt 7 | goto End }
n496= %~clipxoptpop = Doc Form: | if ($left($1-,9) == %~clipxoptpop) { clipxopt 10 | goto End }
n497= if ($left($1-,5) == Color) clipxcolor $remove($strip($2),:)
n498= :End
n499= unset %~clipxoptpop
n500= if ($window(@ClipX-Info) != $null) clipxoptpop
n501=}
n502=#clipx-nicklist on
n503=menu nicklist {
n504= To ClipX:clipxcopynick
n505=}
n506=#clipx-nicklist end
n507=#clipx-menubar on
n508=menu menubar {
n509= ClipX
n510= .ClipX:clipx
n511= .ClipX-Info:clipxinfo 0
n512=}
n513=#clipx-menubar end
n514=#clipx-query on
n515=menu query {
n516= ClipX
n517= .ClipX:clipx
n518= .ClipX-Info:clipxinfo 0
n519=}
n520=#clipx-query end
n521=#clipx-channel on
n522=menu channel {
n523= ClipX
n524= .ClipX:clipx
n525= .ClipX-Info:clipxinfo 0
n526=}
n527=#clipx-channel end
n528=menu @ClipX {
n529= dclick $gettok(%clpx,15-,46)
n530= $clipxpop(1,&Copy) :clipxcopy
n531= &Delete
n532= . $clipxpop(1,&Selected) :clipxdel s
n533= . $clipxpop(0,&All) :clipxdel a
n534= &Others
n535= . $clipxpop(1,&Edit) :clipxedit
n536= . $clipxpop(0,&Lock ( [ $+ [ $clipxstate(l) ] $+ ] ) ) :clipxlock $sline(@ClipX,1)
n537= .-
n538= .&Load:clipxload
n539= .&Save
n540= .. $clipxpop(1,&Selected) :clipxsave s
n541= .. $clipxpop(0,&All) :clipxsave a
n542= -
n543= $clipxpop(1,&Send To)
n544= . $clipxpop(frx)
n545= ..&CTCP/Desc:if ($exists($sline(@ClipX,1)) == $true) fr-run $sline(@ClipX,1)
n546= ..&Desc Only:if ($exists($sline(@ClipX,1)) == $true) fr-runnc $sline(@ClipX,1)
n547= ..&Silent:if ($exists($sline(@ClipX,1)) == $true) fr-runs $sline(@ClipX,1)
n548= . $clipxpop(frx,r) :if ($exists($sline(@ClipX,1)) == $true) { run $sline(@ClipX,1) | window -n @ClipX }
n549= .&Browser:clipxnet
n550= -
n551= &Refresh:clipxchk
n552= $clipxpop(2,Sor&t) :clipxsort
n553= -
n554= Clip&X-Info:clipxinfo 0
n555=}
n556=menu @ClipX-Info {
n557= dclick clipxoptpop2 $line(@ClipX-Info,$1,1)
n558= $clipxpop(&Show) :aline 21 @ClipX-Info $sline(@ClipX-Info,1)
n559= &AutoCap
n560= .&Show:clipxtrigshow
n561= .-
n562= .&Add Trigger:clipxtrigadd
n563= . $clipxpop(&Delete Trigger) :clipxtrigdel
n564= -
n565= U&nload:clipxunload
n566= -
n567= &Help
n568= .&Document:clipxhlp d
n569= .&Homepage:clipxhlp h
n570= -
n571= Clip&X:clipx
n572=}