#!/bin/sh
# MetaCard 2.4 stack
# The following is not ASCII text,
# so now would be a good time to q out of more
exec mc $0 "$@"
T
revAltPlugin 1 on openStack
palette this stack
if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then
put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor
if tColor <> "" then
put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor
set the backgroundColor of this stack to tColor
end if
end if
lock screen
loadAltPlugs
unlock screen
send "answerVersion" to me in 20 milliseconds
end openStack
on answerVersion
if exists(stack "revMenuBar") then
put "RunRev version: " & revAppVersion() & return & "MetaCard engine version: " & the version & return & "Build Number: " & the buildNumber into theMsg
else
put "MetaCard engine version: " & the version & return & "Build Number: " & the buildNumber into theMsg
end if
put theMsg
end answerVersion
on killAllIcons
repeat with x = the number of imgs in this stack down to 1
if the short name of img x is "altPlug.png" then delete img x
end repeat
end killAllIcons
on loadAltPlugs
--lock screen
killAllIcons
--lock messages
put the short name of me into gMyName
put the defaultfolder into toldDF
put the fileName of me into tFile
set itemDel to "/"
delete last item of tFile
set itemDel to ","
set the defaultFolder to tFile & "/altPlugins"
-- set the defaultfolder to toldDF & "/plugins"
--put the files
put the files into tFiles
sort lines of tFiles
put the topLeft of img "square.png" of stack gMyName into tTL
--put gMyName & ".rev" into tMyStackName
repeat for each line l in tFiles
if "alt" is in l then
open inv stack l
--breakpoint
--check to see if there is a icon for this plugin
if exists(img "altPlug.png" of stack l) then
copy img "altPlug.png" of stack l to stack gMyName
set the topLeft of last img of stack gMyName to tTL
put 32 + item 2 of tTL into item 2 of tTL
delete stack l
else
delete stack l
end if
end if
end repeat
set the topLeft of img "bot.png" of stack gMyName to tTL
set the layer of btn "btnborder" of stack gMyName to top
set the defaultfolder to toldDF
set the height of stack gMyName to the bottom of img "bot.png" of stack gMyName
set the width of stack gMyName to 32
hide btn "btnborder" of stack gMyName
show me
--unlock messages
--unlock screen
end loadAltPlugs
on SnicktMe tDir
if tDir contains "L" then
set the left of this stack to 0
end if
if tDir contains "R" then
set the right of this stack to item 3 of the screenRect
end if
if tDir contains "T" then
set the top of this stack to 0
end if
end SnicktMe
on mouseMove
if the short name of the target is "altPlug.png" then
set the loc of btn "btnborder" to the loc of the target
show btn "btnborder"
else
hide btn "btnborder"
end if
end mouseMove
on mouseDown theButton
if the short name of the target is "altPlug.png" then
set the topColor of btn "btnborder" to 0,0,55
set the bottomColor of btn "btnborder" to 0,204,255
if theButton is 3 then
--set the altRightClick of me to true
set the altTargetID of me to the id of the target
set the text of btn "altPlugMenu" to the altMenu of the target
show btn "altPlugMenu"
popup btn "altPlugMenu"
end if
end if
end mouseDown
end mouseDown
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseUp
--if the altRightClick of me is not true then
if the short name of the target is "altPlug.png" then
set the topColor of btn "btnborder" to 0,204,255
set the bottomColor of btn "btnborder" to 0,0,55
put the altOnClickMe of the target into tToDoScript
put the altOpenVisible of the target into tShowStack
put the altPlugFileName of the target into tStackName
put the filename of me into tFile
set itemDel to "/"
delete last item of tFile
put "/altPlugins/"&tStackName after tFile
put "send " & tToDoScript & " to stack " & quote & tFile & quote into tDo
if tShowStack is true then
palette stack tFile
do tDo
else
hide stack tFile
do tDo
delete stack tFile
end if
end if
-- end if
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseLeave
if the short name of the target is "altPlug.png" then
set the topColor of btn "btnborder" to 0,204,255
set the bottomColor of btn "btnborder" to 0,0,55
end if
end mouseLeave
w revstack false altTargetID 1360altRightClick true
cREVLoadInfo load startup cREVGeneral scriptChecksum TM;ԈFtf
bookmarks handlerList openStack
answerVersion
killAllIcons
loadAltPlugs
SnicktMe
mouseMove
mouseDown
mouseDoubleDown
mouseUp
mouseDoubleUp
mouseLeave tempScript prevHandler
answerVersionscriptSelection char 420 to 419script 4on openStack
palette this stack
if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then
put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor
if tColor <> "" then
put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor
set the backgroundColor of this stack to tColor
end if
end if
lock screen
loadAltPlugs
unlock screen
send "answerVersion" to me in 20 milliseconds
end openStack
on answerVersion
if exists(stack "revMenuBar") then
put "RunRev version: " & revAppVersion() & return & "MetaCard engine version: " & the version & return & "Build Number: " & the buildNumber into theMsg
else
put "MetaCard engine version: " & the version & return & "Build Number: " & the buildNumber into theMsg
end if
put theMsg
end answerVersion
on killAllIcons
repeat with x = the number of imgs in this stack down to 1
if the short name of img x is "altPlug.png" then delete img x
end repeat
end killAllIcons
on loadAltPlugs
--lock screen
killAllIcons
--lock messages
put the short name of me into gMyName
put the defaultfolder into toldDF
put the fileName of me into tFile
set itemDel to "/"
delete last item of tFile
set itemDel to ","
set the defaultFolder to tFile & "/altPlugins"
-- set the defaultfolder to toldDF & "/plugins"
--put the files
put the files into tFiles
sort lines of tFiles
put the topLeft of img "square.png" of stack gMyName into tTL
--put gMyName & ".rev" into tMyStackName
repeat for each line l in tFiles
if "alt" is in l then
open inv stack l
--breakpoint
--check to see if there is a icon for this plugin
if exists(img "altPlug.png" of stack l) then
copy img "altPlug.png" of stack l to stack gMyName
set the topLeft of last img of stack gMyName to tTL
put 32 + item 2 of tTL into item 2 of tTL
delete stack l
else
delete stack l
end if
end if
end repeat
set the topLeft of img "bot.png" of stack gMyName to tTL
set the layer of btn "btnborder" of stack gMyName to top
set the defaultfolder to toldDF
set the height of stack gMyName to the bottom of img "bot.png" of stack gMyName
set the width of stack gMyName to 32
hide btn "btnborder" of stack gMyName
show me
--unlock messages
--unlock screen
end loadAltPlugs
on SnicktMe tDir
if tDir contains "L" then
set the left of this stack to 0
end if
if tDir contains "R" then
set the right of this stack to item 3 of the screenRect
end if
if tDir contains "T" then
set the top of this stack to 0
end if
end SnicktMe
on mouseMove
if the short name of the target is "altPlug.png" then
set the loc of btn "btnborder" to the loc of the target
show btn "btnborder"
else
hide btn "btnborder"
end if
end mouseMove
on mouseDown theButton
if the short name of the target is "altPlug.png" then
set the topColor of btn "btnborder" to 0,0,55
set the bottomColor of btn "btnborder" to 0,204,255
if theButton is 3 then
--set the altRightClick of me to true
set the altTargetID of me to the id of the target
set the text of btn "altPlugMenu" to the altMenu of the target
show btn "altPlugMenu"
popup btn "altPlugMenu"
end if
end if
end mouseDown
end mouseDown
on mouseDoubleDown
mouseDown
end mouseDoubleDown
on mouseUp
--if the altRightClick of me is not true then
if the short name of the target is "altPlug.png" then
set the topColor of btn "btnborder" to 0,204,255
set the bottomColor of btn "btnborder" to 0,0,55
put the altOnClickMe of the target into tToDoScript
put the altOpenVisible of the target into tShowStack
put the altPlugFileName of the target into tStackName
put the filename of me into tFile
set itemDel to "/"
delete last item of tFile
put "/altPlugins/"&tStackName after tFile
put "send " & tToDoScript & " to stack " & quote & tFile & quote into tDo
if tShowStack is true then
palette stack tFile
do tDo
else
hide stack tFile
do tDo
delete stack tFile
end if
end if
-- end if
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
on mouseLeave
if the short name of the target is "altPlug.png" then
set the topColor of btn "btnborder" to 0,204,255
set the bottomColor of btn "btnborder" to 0,0,55
end if
end mouseLeave
@ cREVGeneral
bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script j P Q R S T square.png @ # RPNG
IHDR gAMA 7 tEXtSoftware Adobe ImageReadyqe< IDATx$A 1> m{l0Ҿ +s"@'LҐ@CJ_F)ht
UșIW %@ Ƶ<1GKqJb0&Ѥ eԯ^ q/3[ޅ4+ c ]?V 0+]'jb.8#fXcO ,@ V?X8fb$Fed`al r i'8l
&HlAiFpfbB@ 1ahH(10 8 r g@7 o>8{Fe`_1!$ ߖ IENDB` cREVGeneral revUniqueID
1042844725319
altPlugProps on menuPick t
switch t
case "Set Location HERE"
save this stack
answer information "This control palette will open at this location" & cr & \
"the next time you launch."
break
case "Close"
close this stack
break
case "Version"
answer "Version Number: 0.9"
break
end switch
send "altresetBtn" to img "top.png" in 10 milliseconds
hide me
exit to top
end menuPick
@ # "Set Location HERE
Version
-
Close cREVGeneral scriptChecksum cۭ;_QE=)
bookmarks revUniqueID
1042860792529 handlerList menuPickscriptSelection char 186 to 185 prevHandler mouseDown tempScript script Gon menuPick t
switch t
case "Set Location HERE"
save this stack
answer information "This control palette will open at this location" & cr & \
"the next time you launch."
break
case "Close"
close this stack
break
case "Version"
answer "Version Number: 0.9"
break
end switch
send "altresetBtn" to img "top.png" in 10 milliseconds
hide me
exit to top
end menuPick
j altPlugMenu on menuPick t
--set the altRightClick of this stack to false
put the altMenuHandlers of img id (the altTargetID of this stack) into tToDoScript
put the menuHistory of me into t
--put t && tToDoScript
put line t of tToDoScript into tToDoScript
put the altOpenVisable of img id (the altTargetID of this stack) into tShowStack
put the altPlugFileName of img id (the altTargetID of this stack) into tStackName
put the filename of this stack into tFile
set itemDel to "/"
delete last item of tFile
put "/altPlugins/"&tStackName after tFile
if tShowStack is true then
open stack tFile
else
open inv stack tFile
end if
put "send " & tToDoScript & " to stack " & quote & tFile & quote into tDo
do tDo
hide me
end menuPick
@ 8 P # Info
-
Version cREVGeneral scriptChecksum kR쮠9b
bookmarks revUniqueID
1042860792529 handlerList menuPickscriptSelection prevHandler menuPick tempScript script on menuPick t
--set the altRightClick of this stack to false
put the altMenuHandlers of img id (the altTargetID of this stack) into tToDoScript
put the menuHistory of me into t
--put t && tToDoScript
put line t of tToDoScript into tToDoScript
put the altOpenVisable of img id (the altTargetID of this stack) into tShowStack
put the altPlugFileName of img id (the altTargetID of this stack) into tStackName
put the filename of this stack into tFile
set itemDel to "/"
delete last item of tFile
put "/altPlugins/"&tStackName after tFile
if tShowStack is true then
open stack tFile
else
open inv stack tFile
end if
put "send " & tToDoScript & " to stack " & quote & tFile & quote into tDo
do tDo
hide me
end menuPick
bot.png @ PNG
IHDR { gAMA 7 tEXtSoftware Adobe ImageReadyqe< IDATxbdcٕ 0J21HF7ï ߿2| }
&3|' ? K@ (`hAeAf~4M_s_U2 R%lPɆh F5)3=v_/ Ur L
P{K5 o8NBЦPGM j>ֆu~Z,ɹ(:o*i&Vtwm [ aӁp@h
@w+
1 H=w7Vq R a (I
6EE(V0= E˵rWkP6tN4a{>?@qcFbQJafLj}~X&c a҆ N ֽJX%dq#lRV_f 542ZwO$Q>Ѫ Q C, uQdeB+Lcq ""gP QPb UP (Vn2NR' tv @Ԉ__'
>n&H/kC*ʇI, (4&ЂN/ @P(?Q<-d hUx3bOA0JQ|KHB/N^s1vj}L+ E:D WQ7yp FsAYBjaDF"FcsZF $1
Atp v\zm\j .x٥5EP3$F!̂suL A 0pDG*1LLR[Ӡ&'D{o@aeǵzA M@sAs ,
CTtadsT kǜ6r>Y] Bߒux >OZkEBXU+ e@"!]bD)՛c)dW<ɽc3 ?H gɫU@S 0@(Eڤ.ޞ-?Ǧ@wi
-e-Tg\" V_Er[ a(lB`]G
7 8sjtE \`J ɫ?(!Za" l* @ Eس J\ņ
j [>aD݆>e?@؇?a&D@v*; '+Y`x. IENDB` cREVGeneral revUniqueID
1042884589608 Top.png Pon mouseDown theButton
if the shiftKey is down then
loadAltPlugs
set the uAllowDrag of me to false
exit to top
end if
if theButton is 3 then
show btn "altPlugProps"
popup btn "altPlugProps"
else
set the uAllowDrag of me to true
end if
end mouseDown
on mouseMove x,y
if the uAllowDrag of me then
put globalLoc(x & "," & y) into tLoc
set topLeft of this stack to item 1 of tLoc - item 1 of the clickLoc, item 2 of tLoc - item 2 of the clickLoc
end if
pass mouseMove
end mouseMove
on mouseUp
if the uAllowDrag of me then
set the uAllowDrag of me to empty
put empty into tSnickt
put 20 into altSnick
put item 3 of the screenrect into tRight
put item 4 of the screenrect into tBottom
if the left of this stack < altSnick then
put "L" after tSnickt
end if
if the right of this stack > tRight - altSnick then
put "R" after tSnickt
end if
if the top of this stack < altSnick then
put "T" after tSnickt
end if
SnicktMe tSnickt
end if
hide btn "altPlugProps"
end mouseUp
on mouseRelease
mouseUp
end mouseRelease
on altResetBtn
click at the loc of me
end altResetBtn
# uAllowDrag 1PNG
IHDR # z
gAMA 7 tEXtSoftware Adobe ImageReadyqe< IDATxb YXl| F&aJphs,{d babb7n
FtK? D11ir q!Wp&?2h[
$8,@6ac(ݤ:p=8S_̯ bffWUJPTy ̌\I
7oQD3)A *dP$9YABILd2+ ] bdctGoK001~W@u]YV6Vc>K 3 ?B u131=79J LG@ 1 U*AƀQ?|$]vѼ
T@L+V
/NHp-J6_WDq'0h Ar04 h?F1)AeAX 4r@悭a IHhIT5е@ g)
0%206 0+Y
ii2022 X, [ ki" s@ 1A_]^[J l0 ;3 8F^!VYqvVN`tɩp Pd8y@| @T mן32k[)s5{,̺N*@`{i2+({U7cef7_ ̤$tx. >ЁL| ,9qvFN%A%
1!)
R@b\"7< x )q6 lP0#,Fp 2?hZo> X@n
@A1P g p_׀Uσ߀ < ?hFFxE P\M *t6e f蟄0Ђ\ H ?!2oP$ D_X Æ D 0ԙ( .3ϟ? =L9 X9 \kQ>\ š_ ^&` E&y
] VpO n`HWrsH}S/#Θޕ $o<[Ɖ- , [ 2jsqU:_~SbÝ "cf*ӆ^8, bxތE /Nj7vPoriX0rcO h+)Eu}} J !^Z^ H@'amp$ X/d {H7%A,>g q AhSF(
ii"% C|,A: w#3-.Ԟ ,
c`'` %#I 8WU!H+گeb;ڟ O Z` Q6 < w?`$L E Hf[wA1L t)0LFS'&A!LR Y ` HIWl IENDB` cREVGeneral scriptChecksum EfOrT}@ revUniqueID
1042884596856
bookmarks handlerList 4mouseDown
mouseMove
mouseUp
mouseRelease
altResetBtn tempScript prevHandler scriptSelection char 1204 to 1203script con mouseDown theButton
if the shiftKey is down then
loadAltPlugs
set the uAllowDrag of me to false
exit to top
end if
if theButton is 3 then
show btn "altPlugProps"
popup btn "altPlugProps"
else
set the uAllowDrag of me to true
end if
end mouseDown
on mouseMove x,y
if the uAllowDrag of me then
put globalLoc(x & "," & y) into tLoc
set topLeft of this stack to item 1 of tLoc - item 1 of the clickLoc, item 2 of tLoc - item 2 of the clickLoc
end if
pass mouseMove
end mouseMove
on mouseUp
if the uAllowDrag of me then
set the uAllowDrag of me to empty
put empty into tSnickt
put 20 into altSnick
put item 3 of the screenrect into tRight
put item 4 of the screenrect into tBottom
if the left of this stack < altSnick then
put "L" after tSnickt
end if
if the right of this stack > tRight - altSnick then
put "R" after tSnickt
end if
if the top of this stack < altSnick then
put "T" after tSnickt
end if
SnicktMe tSnickt
end if
hide btn "altPlugProps"
end mouseUp
on mouseRelease
mouseUp
end mouseRelease
on altResetBtn
click at the loc of me
end altResetBtn
P altPlug.png @ # altOpenVisible falsealtPlugFileName revAltArchive.revaltMenu Info
-
Version
altOnClickMe altShowMealtMenuHandlers altGetInfo
altGetVersion saves and archives the topstack PNG
IHDR szz gAMA a IDATxM Eճ/ GLx#!ƃEvd[~-~%UD BQ hRp8B } > aeƻ
L@2 }%L k
+"elzTL̫/ӕ>}ImFGHS+j
? ~&9'ޖ\[9=E*Dfmb7j *lD sk=Y
d+/{jUYn;s5 Y ^zn 8w0Oe$sG
ʛO )ڐ8g/o߁} Nq8FG^pVXvenݕSxr;cz߂he.+'=w\{tc^sn/ Vk.Y+nf@lSDΣ| +x[s:}/@V1S1
h^;YsR9fTa*6MH)'+d%@
p [&bLaפ8ZRahR,i}me뉀,6`
! PxF!%'& Th*iq90 IENDB` cREVGeneral revUniqueID
1043833510886 R altPlug.png @ c altOpenVisible truealtPlugFileName revAltHtml.revaltMenu Info
altOnClickMe altShowMealtMenuHandlers
altGetInfo htmlText editor PNG
IHDR szz gAMA a 9IDATx_UE ?smu%5R[쏑a!i!/>?- %ʹ,rA15LXf93 fι瞽w̝33}͙#ږu$IPBK H u}bܳB\7`xJî,`xJ%(uB+(#
h PDLTP2J QFDՈRJDTS*@R$*H DX kB Y C lBzEN PfRp Gۯ;}\ob'TJ
II>ZgCew}2dkx$؉Jixi
G{ikE\iRY4۠} W!Zdx>>]3gnw}&a2gNv*+_7 ~| jDTryxZʦ~|z2p P֧֙ǰQ(&[k@su/ MwA}og͜"Oނ}|V 9 ["sOn\&N4:<8).ih[cREF`k
$_ =\5Ţ$&_6fTl-Z
E5H#K ;z2%\GVMZ
mQX
Ȑnbb|(,&6>5 ,5 ' ] Ke Kf Ke KeЂ Le Mc Mc Mb Ma Oa Pb Q_ Q] QZ NU HM ?F 9> 18 )0 #* $
] Ke Ke Le Le Mc Md Mb Nb Pb Qb R` Q^ R[ OV IN @G :? 29 *0 $+ " _ Ke Ke Le Lc Mc Mc Nb Nb Ob Pb Ra R_ S\ PW IO AH ;@ 3: *1 $+ " _ Ke Ke Le Lc Mc Mc Nb Oc Pb Qb Sb S_ T] QX IO BI 29 _ Ke Ke Le Lc Mc Mb Mb Nb Oa Pa R` R^ R[ OV GM @G 8> 29 *1 $+ " _ Ke= Ke Le Lc Mc Mb Mb Nb Oa Oa Q` Q] R[ NS GM @G 7> 28 )0 $* " _ Jc Ke Jc Ke Kd Lc Mc Mb Ma Nb N` Oa Q` Q] PY MR GL @F 7= /5 )0 !' ! ] Jc Kd Kd Lc Lb Mb M` Ma N` O` Q_ P\ PX MR FK >C 6= .5 )0 !' ! Z Jc Kd Kd La Lb Mb M` M_ N_ N_ O] P\ OX LQ EJ =B 6< .5 &, ' X Jb Jc Kb La K` K` L_ M^ M^ N] O] OZ NW KP BG =B 39 +1 %, $ X (5p )5r )5s )5t )4u )4w )3x *3z *3| +1~ *0 +/ (* $& " | y v r n k g d c S cREVGeneral
bookmarks revUniqueID
1043833511009 handlerList scriptSelection char 1 to 0 prevHandler tempScript script T altPlug.png @ altOpenVisible truealtPlugFileName revAltPropList.revaltMenu Info
altOnClickMe altShowPropListaltMenuHandlers
altGetInfo Property List Palette ߉PNG
IHDR szz gAMA a IDATxyU ?6f-Fʄ ",?*h#2hv"2[^de`;3㜙;wy˹ }ܑgn$k"?b@q64A@4jEw/T*Uap P͡EȀ BG@ 4
@1%!LW! qR&qB'TZD UԀ )8iAa'
"$@%@$De"EPD,Ʀ@5!.[P lFzEN Pwrp
=pXЬD0p
Hō"A#͜D.臀z *EE#9 q }A}QSВ&7uCL,i V)To.i{Yiu#DW˲&1gt Is;fxzx;hUx?Bj#i=<VfJ$]qM[ qO[.;ð
^4~cEv X+j ṡͦl
VsN4/ 9O`fgyuɛ䙥 y!\F?2C̞9`p-y]SP6ߛ;25?L3#=i2 . {c r;rϝ4!Ueer˸oR (ŧv¢)b ?a}A23wm{\>gGj _Dm+a
h;S`JNjF@X_-X4qw& 8f
i jllum
Info on mouseMove
end mouseMove
cREVGeneral scriptChecksum :}3c:j~
bookmarks handlerList mouseMovescriptSelection
char 16 to 15 prevHandler tempScript script Oon mouseMove
end mouseMove
@ reset defaultfolder Ep on mouseUp
set the defaultfolder to "C:/Program Files/Revolution 1.5A1"
end mouseUp
--if the backdrop is not gray then
-- set the backdrop to gray
-- else
-- set the backdrop to none
-- end if
> cREVGeneral scriptChecksum y\0,/&^ZG#
bookmarks revUniqueID
1042871291785 handlerList mouseUpscriptSelection
char 75 to 74 prevHandler mouseUp tempScript script yon mouseUp
set the defaultfolder to "C:/Program Files/Revolution 1.5A1"
end mouseUp
--if the backdrop is not gray then
-- set the backdrop to gray
-- else
-- set the backdrop to none
-- end if
load plugs Ep 'on mouseUp
loadAltPlugs
end mouseUp
~ t cREVGeneral scriptChecksum z[Ug
bookmarks revUniqueID
1042871269005 handlerList mouseUpscriptSelection
char 14 to 25 prevHandler mouseUp tempScript script Won mouseUp
loadAltPlugs
end mouseUp
edit stack script Ep ?on mouseUp
edit the script of stack "altPlugin"
end mouseUp
d cREVGeneral scriptChecksum ِ ^>]5T revUniqueID
1042871466924
bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection
char 50 to 49script on mouseUp
edit the script of stack "altPlugin"
end mouseUp