SpiralKinetics Flowers — File Browser
SpiralKineticsFlowersv1.0 / SpiralKineticsFlowersv1.0 / SKflowers / scripts / 00aliases.mrc
00aliases.mrc — 17.75 KB — Download this file
/op /mode # +ooo $$1 $2 $3
/deop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1 $2-
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
splaystartup { .splay $mircdirsounds\startup.wav }
splayhighlight { .splay $mircdirsounds\highlight.wav }
splayclick { .splay $mircdirsounds\click.wav }
splaynotice { .splay $mircdirsounds\notice.wav }
dir.dll { return $shortfn($mircdir) $+ dll\ }
dcx { if ($isid) returnex $dll($dir.dll $+ dcx.dll,$1,$2-) | else dll " $+ $dir.dll $+ dcx.dll" $1 $2- }
udcx { if ($dcx(IsUnloadSafe)) $iif($menu, .timer 1 0) dll -u dcx.dll | else echo 4 -qmlbfti2 [DCX] Unable to Unload Dll. }
xdid { if ( $isid ) returnex $dcx( _xdid, $1 $2 $prop $3- ) | dcx xdid $2 $3 $1 $4- }
xdialog { if ( $isid ) returnex $dcx( _xdialog, $1 $prop $2- ) | dcx xdialog $2 $1 $3- }
xdock { if ($isid) returnex $dcx( _xdock, $1 $prop $2- ) | dcx xdock $1- }
mdx { dll $+(",$mircdirdll\mdx.dll,") $1- }
mpop { dll $+(",$mircdirdll\MPopup.dll,") $1- }
BM_web.fav { return $shortfn($mircdir\favorites.txt) }
html { dll $shortfn($mircdirdll\nHTMLn_2.95.dll) $1- }
nhtml { return $shortfn($mircdirdll\nHTMLn_2.95.dll) }
band.dll return $+(",$mircdirdll\band.dll,")
bdll { var %d = $band.dll | if ($isid) return $dll(%d,$$1,$$2-) | dll %d $$1 $$2- }
wfx.dir { var %0 = $findfile($+(",$mircdir\dll,"),WindowFX.dll,0,var %wfx = $+(",$1-,")) | return %wfx }
wfx { dll $wfx.dir $1- }
titleicon { bdll icon $mircdiricons\00.ico }
tblag { if ($dialog(Down)) { did -a Down 3 $round($calc($$1 * 10),0) | did -ra $dname 4 $iif(($2), $1 $+ .000 , $$1) } }
Cpu { $dll($mircdirDll\Zmonitoring.dll,StartCpuMonitoring,1000) }
_band_up { return $gettok($bdll(band,_),5,32) }
_band_dn { return $gettok($bdll(band,_),4,32) }
bdll { var %d = $band.dll | if ($isid) return $dll(%d,$$1,$$2-) | dll %d $$1 $$2- }
band.dll return $+(",$mircdirDll\band.dll,")
S_OK { halt }
ERR_JUST_ONE_INSTANCE_AT_TIME { halt }
Bram {
if ($dialog(Down)) {
did -ra Down 7 $dll($shortfn($mircdirDll\ProcInfo.dll),GetRam,p100use) 0 100
did -ra Down 8 Free: $+($round($calc($dll($shortfn($mircdirDll\ProcInfo.dll),GetRam,memoryavail)/1024),0),MB) $+ \ $+ $+($round($calc($dll($shortfn($mircdirDll\ProcInfo.dll),GetRam,memory)/1024),0),MB)
did -ra Down 9 $dll($shortfn($mircdirDll\ProcInfo.dll),GetRam,p100use) $+ %
did -ra Down 10 $dll($shortfn($mircdirDll\ProcInfo.dll),GetRam,p100avail) $+ %
did -ra Down 15 $_band_dn 0 200
did -ra Down 16 $_band_up 0 60
did -ra Down 17 $_band_dn $+ Kbs
did -ra Down 18 $_band_up $+ Kbs
did -ra Down 28 $uptime(mirc,1)
did -ra Down 29 $uptime(system,1)
}
}
down { if ($dialog(down)) { dialog -x down down } | dialog -m down down }
readdvol { did -g mamp $1 $+(",$mircdirimage\,$1,.jpg,") }
sorta { sxsort mamp 1 1 }
sortd { sxsort mamp 1 2 | sxsort mamp 1 2 }
sortAlpha {
var %s sxsort,%a >,%b <,%h $hget(%s,n),%z $iif(%h = 1,6-,5-),%1 = $gettok($gettok($1,%h,9),%z,32),%2 = $gettok($gettok($2,%h,9),%z,32)
if ($hget(%s,r)) { %a = < | %b = > }
return $iif(%1 %a %2,1,$iif(%1 %b %2,-1,0))
}
sxsort {
var %v $1 $2,%s sxsort,%a hadd %s,%d hdel %s
if (!$hget(%s)) hmake %s 1
%d r
if ($hget(%s,d) = $1-) %a r 1
%a d $1-
%a n $3
filter -acior 2- $+ $did($1,$2).lines %v %v sortAlpha
if ($hget(%s,r)) %d d
}
popup1 {
var %m = $mpdll(MPCreateMenu,popup1)
var %h = $gettok(%m,2,32)
mpcolors popup1
var %m = $mpdll(MPAddItem, %h > 1 0 0 $chr(32) Dcc Send to .. > mampdcc )
var %m = $mpdll(MPAddItem, %h > 2 0 0 $chr(32) Clear Playlist > clearplaylist )
var %m = $mpdll(MPAddSubMenu, %h > 3 0 0 $chr(32) Sort )
var %h2 = $gettok(%m,2,32)
var %m = $mpdll(MPAddItem, %h2 > 4 0 0 $chr(32) Alphabeticly > sorta )
var %m = $mpdll(MPAddItem, %h2 > 5 0 0 $chr(32) Duration > sortd )
var %h2 = $gettok(%m,2,32)
var %m = $mpdll(MPopup, popup1 > $mouse.dx $mouse.dy left top right)
}
mampdcc { /dcc send $$input(To whom would you like to send this file ?,eok,Dcc send to..,Nickname here) $gettok($did(mamp,1,$did(mamp,1).sel),2,4) }
clearplaylist {
stopfile
.timervis off
unset %totaltime
did -r mamp 1
}
mampsearch { dialog -m mampsearch mampsearch }
mamp { /dialog -m mamp mamp }
mampticker {
set %m.len $width($gettok($gettok($did(mamp,1,$did(mamp,1).sel),1,9),6-,32),tahoma 12,0,1)
if (%m.len > 200) {
if (%mamp.x.pos == $+(-,$calc(%m.len - 200))) { set %mamp.direct inc }
if (%mamp.x.pos == 1 ) { set %mamp.direct dec }
%mamp.direct %mamp.x.pos
}
return %mamp.x.pos
}
writeplaylist {
if (!$1) {
set %playlistfile $+($sfile(%lastdir,Save as..),.mpd)
set %playlistfile $shortfn($+(",%playlistfile,"))
}
if ($1) { set %playlistfile $shortfn($+(",C:\,$1-,")) }
if (*.mpd iswm %playlistfile) {
var %wpl 2
write -c %playlistfile
while (%wpl <= $did(mamp,1).lines) {
write %playlistfile $did(mamp,1,%wpl)
inc %wpl
}
write %playlistfile %totaltime
}
}
vis {
clear -n @mamp
.drawtext -norc @mamp $rgb(0,0,0) tahoma 12 $mampticker 1 10000 20 $gettok($gettok($did(mamp,1,%mamp.fip.id),1,9),6-,32)
.drawline -nr @mamp $rgb(110,110,110) 1 203 53 93 53 76 70
.drawline -nr @mamp $rgb(110,110,110) 1 153 53 136 70
.drawline -nr @mamp $rgb(110,110,110) 1 197 53 197 70 75 70
.drawfill -nr @mamp $rgb(239,241,241) $rgb(110,110,110) 105 60
.drawfill -nr @mamp $rgb(149,151,151) $rgb(110,110,110) 193 60
.drawtext -nor @mamp $rgb(255,255,255) tahoma 9 149 57 $gettok($gettok($did(mamp,1,%mamp.fip.id),2,9),5,32)
.drawtext -nor @mamp $rgb(0,0,0) tahoma 9 91 57 $iif($duration(%timeS,3),$duration(%timeS,3),0)
.drawdot @mamp
}
fmod {
if ($isid) { return $dll($+(",$mircdirdll\fmod_mIRC.dll,"),$1,$2-) }
else { .echo -q fmod: $dll($+(",$mircdirdll\fmod_mIRC.dll,"),$1,$2-) }
}
timeMp3 {
set %tracker.length2 $round($calc(%tracker.length / 1000),0)
inc %timeS 1
did -i mamp 7 1 params %timeS * %tracker.length2 * * * * *
if (%timeS == %tracker.length2) {
.timerMP3 off
unset %timeS
.timernextfile 1 1 nextfile
}
}
nextfile2 { nextfile }
nextfile {
set %mamp.fip.id $iif($calc(%mamp.fip.id + 1) > $did(mamp,1).lines,2,$calc(%mamp.fip.id + 1))
did -c mamp 1 %mamp.fip.id
set %mamp.fip $gettok($did(mamp,1,$did(mamp,1).sel),2,4)
if ( 0* !iswm $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip).size 0)) {
.echo -q $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip)).size 0)
.echo -q $fmod(SOUND_Stream_Play,1 1)
set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
set %mamp.x.pos 1
}
else {
did -i mamp 1 %mamp.fip.id $replace($did(mamp,1,%mamp.fip.id),+,+c)
set %mamp.fip.id $calc(%mamp.fip.id + 1)
did -d mamp 1 %mamp.fip.id
did -c mamp 1 %mamp.fip.id
set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
set %mamp.x.pos 1
nextfile2
}
.timerMP3 0 1 timeMp3
.timervisdelay 1 1 .timervis -h 0 20 vis
}
stopfile {
.echo -q $fmod(SOUND_Stream_Stop,1)
.echo -q $fmod(SOUND_Stream_Close,1)
.timerMP3 off
unset %timeS
unset %tracker.length2
}
addtolist {
set %totaltime $calc(%totaltime + $sound($1-).length)
if (!$sound($1-).artist) && (!$sound($1-).title) { set %mamp.title $nopath($longfn($1-)) }
else { set %mamp.title $sound($1-).artist - $sound($1-).title }
did -a mamp 1 0 1 %mamp.title $chr(9) $+ $duration($calc($sound($1-).length / 1000),3) $chr(4) $+ $1-
did -o mamp 3 2 0 2 $+(Playlist:",$calc($did(mamp,1).lines - 1),") $chr(9) $+ $duration($calc(%totaltime / 1000),3)
}
mampboxes {
did -f mamp 6
did -f mamp 10
did -f mamp 4
did -f mamp 1
}
mpdll {
if ($isid) { return $dll($+(",$mircdirdll\MPopup.dll,"),$1,$2-) }
else { dll $+(",$mircdirdll\MPopup.dll,") $1 $2- }
}
mpcolors {
var %m = $mpdll(MPMenuColor, $1- > RGB_TEXT > $rgb(0,0,0)))
var %m = $mpdll(MPMenuColor, $1- > RGB_BACK > $rgb(249,248,247))
var %m = $mpdll(MPMenuColor, $1- > RGB_GRAY > $rgb(166,166,166))
var %m = $mpdll(MPMenuColor, $1- > RGB_HIGH > $rgb(182,189,210))
var %m = $mpdll(MPMenuColor, $1- > RGB_HBOX > $rgb(10,36,106))
var %m = $mpdll(MPMenuColor, $1- > RGB_BAND > $rgb(219,216,209))
var %m = $mpdll(MPMenuColor, $1- > RGB_CBOX > $rgb(10,36,106))
var %m = $mpdll(MPMenuColor, $1- > RGB_BBOX > $rgb(212,213,216))
var %m = $mpdll(MPMenuColor, $1- > RGB_CSEP > $rgb(166,166,166))
}
BM.web.fav {
var %i = 1
while (%i <= $lines($BM_web.fav)) {
did -a BM.fav 8 + 1 $read($BM_web.fav,%i)
inc %i
}
unset %i
}
progress.bar_web {
var %change = $1-
if ($dialog(browser)) {
did -i browser 2 0 $dll($nhtml,url,$1-)
if (progress_change isin %change) { did -a browser 4 0 0 $gettok(%change,4,32) | did -ra browser 4 $gettok(%change,3,32) }
}
S_OK
}
BM.fav { if (!$dialog(BM.fav)) dialog -mdo BM.fav BM.fav }
back { html back $window($1).hwnd }
fwd { html forward $window($1).hwnd }
rfsh { html refresh $window($1).hwnd }
stop { html stop $window($1).hwnd }
close.browser { if ($window(@SK.Browser)) { window -n @SK.Browser | .timer 1 1 window -c @SK.Browser } }
lagmeter { .ctcpreply $me meter $ticks }
diopen { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog -mod $1 $1 } }
sk.Browser {
if (!%links) { set %hmpg http://www.google.com }
else { .set %hmpg %links | unset %links }
window -Bk[0] @SK.Browser 0 0 800 600 $mircdiricons\sk.ico
wfx SetStyle @SK.Browser > staticedge
diopen browser
html attach $window(@SK.Browser).hwnd
html margins t=26,b=0,r=0,l=0
echo -a $timestamp SpiralKinetics Flowers Browser - $dll($nhtml,handler,nHTMLn.handler)
html navigate %hmpg
echo -a $dll($nhtml,handler,progress.bar_web)
}
nHTMLn.handler {
if ($2 = document_complete) { did -ci browser 2 1 $3 | titlebar @SK.Browser $+(-,$dll($nhtml,name,$window(@SK.Browser).hwnd),-) }
echo @SK.Browser $dll($nhtml,caption,$1) $2- | return S_OK
}
nscan {
if ($left($1,1) = $chr(37)) || ($left($1,1) = $chr(43)) || ($left($1,1) = $chr(64)) { var %n = $remove($1,$left($1,1),$chr(40),$chr(41)),%m = $nick($active,$nick($active,%n)) | return %m }
else { var %n = $remove($1,$chr(40),$chr(41)),%m = $nick($active,$nick($active,%n)) | return %m }
}
hlinks {
$iif($group(#hootlinks) != on,.en,.dis) $+ able #hootlinks
goto $iif($group(#hootlinks) = on,o,f)
:o
.enable #hootlinks | .halt
:f
.disable #hootlinks | .halt
}
prochan {
$iif($group(#protection) != on,.en,.dis) $+ able #protection
goto $iif($group(#protection) = on,o,f)
:o
.enable #protection | .halt
:f
.disable #protection | .halt
}
popups { dll $shortfn($mircdirDll\popups.dll) $$1- }
popws {
tokenize 32 $dll($shortfn($mircdirDll\popups.dll),Popup,$1-)
if ($isid) return $1-
$iif($4- != did not select a menu item,$4-)
}
icon.smile {
popups New icon.smile 16 16
popups SetStyle icon.smile office emboss bordericon
popups SetMetrics icon.smile iconpad 0 0 contentpad 0 0 spacing 0 0
var %aditrgb1 = AddItem icon.smile 40 +b 0 0 $rgb(255,255,255) $mircdir\image
var %aditrgbend = AddItem icon.smile end +b 0 0 $rgb(255,255,255) $mircdir\image
var %aditrgbend_cb = AddItem icon.smile end +cb 0 0 $rgb(255,255,255) $mircdir\image
popups %aditrgb1 $+ \s01.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4D8)
popups %aditrgbend $+ \s02.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4)8)
popups %aditrgbend $+ \s03.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8;4)8)
popups %aditrgbend $+ \s04.bmp $cr editbox -afp $editbox($active) $+ 12¶01,0884)8)
popups %aditrgbend $+ \s05.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4Þ8)
popups %aditrgbend_cb $+ \s06.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4(8)
popups %aditrgbend $+ \s07.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:11'4(8)11'''
popups %aditrgbend $+ \s08.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4s8)
popups %aditrgbend $+ \s09.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:-4$8)
popups %aditrgbend $+ \s10.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4x8)
popups %aditrgbend_cb $+ \s11.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8x4D8)
popups %aditrgbend $+ \s12.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4*8)
popups %aditrgbend $+ \s13.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4o8)
popups %aditrgbend $+ \s14.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:4|8)
popups %aditrgbend $+ \s15.bmp $cr editbox -afp $editbox($active) $+ 12¶1,8:-4"8)
popups %aditrgbend_cb $+ \s16.bmp $cr editbox -afp $editbox($active) $+ 8(12,8-4_12,8-8)11"
popups %aditrgbend $+ \s17.bmp $cr editbox -afp $editbox($active) $+ 8(12,8^4_12,8^8)
popups %aditrgbend $+ \s18.bmp $cr editbox -afp $editbox($active) $+ 8(12,8o4_12,8o8)
popups %aditrgbend $+ \s19.bmp $cr editbox -afp $editbox($active) $+ 8(12,8@4_12,8@8)
popups %aditrgbend $+ \s03.bmp $cr editbox -afp $editbox($active) $+ 8(12,8^4_12,8-8)
popws icon.smile $calc($dialog(down).x +10) $calc($dialog(down).y -1)
}
ewrap {
var %msg
var %tok = 1
var %word
while ($gettok($1-,%tok,32) != $null) {
%word = $gettok($1-,%tok,32)
%msg = %msg 4 $+ $upper($left(%word,1)) $+ 7 $+ $right(%word,-1)
inc %tok
}
return 4 ° 7 $+ %msg $+ 4 °
}
rshelp { .dialog -m rshelp rshelp }
rshelpsay {
var %ahc = 1, %bhc = $did(6).lines, %msghc
while %ahc <= %bhc {
%msghc = %msghc $did(6,%ahc)
inc %ahc
}
msg $active %msghc
}
awaydialog {
if ($dialog(away) == $null) { dialog -mo away away }
else { dialog -v away away }
}
UTF8 {
if ($1 < 255) { return $chr($1) }
if ($1 >= 256) && ($1 < 2048) { return $+($chr($calc(192 + $div($1,64))),$chr($calc(128 + $mod($1,64)))) }
if ($1 >= 2048) && ($1 < 65536) { return $+($chr($calc(224 + $div($1,4096))),$chr($calc(128 + $mod($div($1,64),64))),$chr($calc(128 + $mod($1,64)))) }
if ($1 >= 65536) && ($1 < 2097152) {
return $+($chr($calc(240 + $div($1,262144))),$chr($calc(128 + $mod($div($1,4096),64))),$chr($calc(128 + $mod($div($1,64),64))),$&
$chr($calc(128 + $mod($1,64))))
}
}
div { return $int($calc($1 / $2)) }
mod {
var %int $int($calc($1 / $2))
return $calc($1 - (%int * $2))
}
H2U { return $utf8($base($1,16,10)) }
prnUTF8 {
var %start $1, %finish $calc($1 + 1000)
while (%start <= %finish) {
echo -a %start = $utf8(%start)
inc %start
}
}
octatext {
var %octa $regsubex($1-,/([abcdefghijklmnopqrstuvwxyz])/g,$utf8($calc($asc($regml(\n)) + 9327)))
%octa = $regsubex(%octa,/([ABCDEFGHIJKLMNOPQRSTUVWXYZ])/g,$utf8($calc($asc($regml(\n)) + 9333)))
$iif($isid,return,$iif($active ischan,say,echo -a)) $regsubex(%octa,/([123456789])/g,$utf8($calc($asc($regml(\n)) + 10063)))
}
flip {
var %flip, %end $len($1-)
while (%end) {
%flip = $+(%flip,$replace($mid($1-,%end,1),$chr(32),$chr(7)))
dec %end
}
%flip = $replacex(%flip,a,$h2u(250),b,q,c,$h2u(254),d,p,e,$h2u(259),f,$h2u(25f),g,$h2u(253),h,$h2u(265),i,$h2u(26a),j,$h2u(27e),k,$h2u(29e),$&
l,$h2u(131),m,$h2u(26f),n,u,o,o,p,d,q,b,r,$h2u(279),s,s,t,$h2u(287),u,n,v,$h2u(28c),w,$h2u(28d),y,$h2u(28e),.,$h2u(2d9),?,$h2u(bf),z,z,$chr(7),$chr(32))
$iif($isid,return,$iif($active ischan,say,echo -a)) %flip
}
inputlistshow {
did -r inputlist 2
set %§in 0
:inp
inc %§in
if (%§in > 500) { goto end }
elseif (%input [ $+ [ %§in ] ] != $null) { did -a inputlist 2 %input [ $+ [ %§in ] ] }
goto inp
:end
.unset %§in
did -b $dname 9
did -r $dname 4
did -r $dname 5
}
inputon {
if (%input == ON) {
.set %input OFF
if ($dialog(inputlist) != $null) { did -u inputlist 3 }
}
else {
.set %input ON
if ($dialog(inputlist) != $null) { did -c inputlist 3 }
} }
inputcolouring {
if (%inputcolouring == ON) {
.set %inputcolouring OFF
if ($dialog(inputlist) != $null) { did -u inputlist 13 }
}
else {
.set %inputcolouring ON
if ($dialog(inputlist) != $null) { did -c inputlist 13 }
} }
text.octa {
if (%inputocta == ON) {
.set %inputocta OFF
if ($dialog(inputlist) != $null) { did -u inputlist 14 }
}
else {
.set %inputocta ON
if ($dialog(inputlist) != $null) { did -c inputlist 14 }
} }
text.flip {
if (%inputflip == ON) {
.set %inputflip OFF
if ($dialog(inputlist) != $null) { did -u inputlist 14 }
}
else {
.set %inputflip ON
if ($dialog(inputlist) != $null) { did -c inputlist 15 }
} }
inputadd {
set %§in 0
:inp
inc %§in
if (%§in > 500) { goto end }
elseif (%input [ $+ [ %§in ] ] == %inputadd) {
set %input [ $+ [ %§in ] ] %inputadd
set %input [ $+ [ %inputadd ] ] %input-add
goto end
}
elseif (%input [ $+ [ %§in ] ] == $null) {
set %input [ $+ [ %§in ] ] %inputadd
set %input [ $+ [ %inputadd ] ] %input-add
goto end
}
else { goto inp }
:end
.unset %§in %inputadd %input-add
inputlistshow
}
inputdel {
set %§in 0
:inp
inc %§in
if (%§in > 500) { goto end }
elseif (%input [ $+ [ %§in ] ] == %inputdel) {
.unset %input [ $+ [ %§in ] ] %input [ $+ [ %inputdel ] ]
goto end
}
else { goto inp }
:end
.unset %§in %inputdel
inputlistshow
}
inputlistshoww {
if ($active != @Input-List) { window -ak @Input-List }
clear @Input-List
set %§in 0
:inp
inc %§in
if (%§in > 500) { goto end }
elseif (%input [ $+ [ %§in ] ] != $null) {
set %DanSip %input [ $+ [ %§in ] ]
echo @Input-List 2 *** %DanSip 2=> %input [ $+ [ %DanSip ] ]
}
goto inp
:end
.unset %§in
}
inputlist {
if ($dialog(inputlist) == $null) { dialog -m inputlist inputlist }
else { dialog -v inputlist inputlist }
}