#!/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 "$@"
revArchive 3 " BBuu < , revstack false Archive Plugin
@U ms sans serif QDa8
cREVLoadInfo load startup cREVGeneral scriptChecksum ُ B~
bookmarks handlerList tempScript prevHandler openStackscriptSelection script cREVGeometryCache stackID 1018 @ < , cREVGeometryCacheIDs 1008310277515 10171007889452744 10121007889440829 10111007889434808 10101007877192594 10031007887317041 10091007885884941 1008 cREVGeometryCache order total 7 Archive TopStack "CP
Zon mouseUp
if exists(fld "test") then
put empty into it
end if
if the shiftKey is down then
if the backdrop is not gray then
set the backdrop to gray
else
set the backdrop to none
end if
exit mouseUp
end if
if the controlKey is down then
if the platform is "Win32" then
put the filename of the topstack into tfile
#replace quote with empty in tfile
replace "/" with "\" in tfile
put "attrib"&& quote & tfile & quote && "-R" into DosCommand
put DosCommand
set the hideConsoleWindows to true
put shell (DosCommand)
end if
exit mouseUp
end if
if the altKey is down then
if the style of this stack is palette then
set the style of this stack to topLevel
else
set the style of this stack to palette
end if
exit mouseUp
end if
put the short name of the topStack into StackName
put the mainStack of stack StackName into StackName
answer question "Archive Stack: " & StackName with "Cancel" and "Okay"
if it is "Okay" then
put empty into fld "test" of stack "revArchive"
revSave StackName
put the fileName of stack StackName into StackFileName
put the fileName of stack StackName into folderPath
--printmsg " "," "
set itemDel to "/"
put the last item of folderPath into fileName
delete last item of folderPath
put folderPath & "/" into folderPath
set itemDel to "."
delete the last item of fileName
set itemDel to ","
--printmsg "folderPath",folderPath
--printmsg "fileName",fileName
put the defaultFolder into savedDF
set the defaultFolder to folderPath
put the files into fileList
--CHECK TO SEE IF ARCHIVE FOLDER EXISTS
if there is not a folder "archive" then
printMsg "making folder Archive",""
create folder "archive"
end if
put folderpath & "archive/" into folderpath
set the defaultFolder to folderPath
repeat with count = 1 to 1000
if count < 10 then
put fileName & "0000" & count & ".rev" into file2save
else
put fileName & "000" & count & ".rev" into file2save
end if
if there is not a file file2save then
-- IF YOU UNCOMMENT THE BELOW YOU NEED TO COMMENT THESE THREE LINES
put "binfile:" & StackFileName into file2copy
printMsg "File to Copy", StackFileName
put "binfile:" & folderpath & file2save into archiveFile
printMsg "Archive File:" ,folderpath & file2save
put url file2copy into url archiveFile
-- BELOW WORKS ONLY FOR SINGLE STACKS BUT WILL SAVE, CLOSE AND OPEN STACKS WHICH IS USEFUL SOMETIMES
-- save stack StackName as file2save
-- if the result is not empty then
-- answer "Can't save stack" && l && "due to an error:" & cr & the result
-- else
-- delete stack StackName
-- open stack StackFileName
-- end if
exit repeat
end if
end repeat
set the defaultFolder to savedDF
end if
end mouseUp
on printMsg msg1 msg2
--NEED TO COMMENT OUT WHEN IT'S A PALETTE
put msg1 & ":" & msg2 into line (the number of lines of fld "test" of stack "revArchive" + 1) of fld "test" of stack "revArchive"
end printMsg
@ < , cREVGeneral scriptChecksum ,Fٞ7
6 revUniqueID
1007877192594
bookmarks handlerList mouseUp
printMsg tempScript prevHandler mouseUpscriptSelection char 362 to 361script on mouseUp
if exists(fld "test") then
put empty into it
end if
if the shiftKey is down then
if the backdrop is not gray then
set the backdrop to gray
else
set the backdrop to none
end if
exit mouseUp
end if
if the controlKey is down then
if the platform is "Win32" then
put the filename of the topstack into tfile
#replace quote with empty in tfile
replace "/" with "\" in tfile
put "attrib"&& quote & tfile & quote && "-R" into DosCommand
put DosCommand
set the hideConsoleWindows to true
put shell (DosCommand)
end if
exit mouseUp
end if
if the altKey is down then
if the style of this stack is palette then
set the style of this stack to topLevel
else
set the style of this stack to palette
end if
exit mouseUp
end if
put the short name of the topStack into StackName
put the mainStack of stack StackName into StackName
answer question "Archive Stack: " & StackName with "Cancel" and "Okay"
if it is "Okay" then
put empty into fld "test" of stack "revArchive"
revSave StackName
put the fileName of stack StackName into StackFileName
put the fileName of stack StackName into folderPath
--printmsg " "," "
set itemDel to "/"
put the last item of folderPath into fileName
delete last item of folderPath
put folderPath & "/" into folderPath
set itemDel to "."
delete the last item of fileName
set itemDel to ","
--printmsg "folderPath",folderPath
--printmsg "fileName",fileName
put the defaultFolder into savedDF
set the defaultFolder to folderPath
put the files into fileList
--CHECK TO SEE IF ARCHIVE FOLDER EXISTS
if there is not a folder "archive" then
printMsg "making folder Archive",""
create folder "archive"
end if
put folderpath & "archive/" into folderpath
set the defaultFolder to folderPath
repeat with count = 1 to 1000
if count < 10 then
put fileName & "0000" & count & ".rev" into file2save
else
put fileName & "000" & count & ".rev" into file2save
end if
if there is not a file file2save then
-- IF YOU UNCOMMENT THE BELOW YOU NEED TO COMMENT THESE THREE LINES
put "binfile:" & StackFileName into file2copy
printMsg "File to Copy", StackFileName
put "binfile:" & folderpath & file2save into archiveFile
printMsg "Archive File:" ,folderpath & file2save
put url file2copy into url archiveFile
-- BELOW WORKS ONLY FOR SINGLE STACKS BUT WILL SAVE, CLOSE AND OPEN STACKS WHICH IS USEFUL SOMETIMES
-- save stack StackName as file2save
-- if the result is not empty then
-- answer "Can't save stack" && l && "due to an error:" & cr & the result
-- else
-- delete stack StackName
-- open stack StackFileName
-- end if
exit repeat
end if
end repeat
set the defaultFolder to savedDF
end if
end mouseUp
on printMsg msg1 msg2
--NEED TO COMMENT OUT WHEN IT'S A PALETTE
put msg1 & ":" & msg2 into line (the number of lines of fld "test" of stack "revArchive" + 1) of fld "test" of stack "revArchive"
end printMsg
New Field 1 ) 7on linkClicked pLink
revGoURL pLink
end linkClicked
04 f cREVGeneral scriptChecksum %3zlo%4 revUniqueID
1007885884941
bookmarks handlerList linkClicked tempScript prevHandler linkClickedscriptSelection char 125 to 124script Jon linkClicked pLink
revGoURL pLink
end linkClicked
v1.8 This Plugin will automatically Save the TopStack, then save a copy with a 000X.rev extension with X incrementing by 1 each time. It has been tested on Windows platforms, but not Mac or Linux. For updates and comments: 8http://www.altuit.com/webs/altuit2/RunRev/Downloads.htm save.png @ 2 < , (PNG
IHDR < , HL gAMA |Q cHRM z% u. _ : oi+ IDATxb{O{}d#TB3" =?xc@1 b5 &{ 0Ed0 @ }s w+;Vzҭ 8Vr̭
X;L%'c`N^RX@@G_=^~̵( s)>Rzԥ#7i`cYs ";-=C:yGʁF q->RxȥsAB7KnD Y-z}E] =Sv̽8(zt7 < s):Zt9S>m\rϴ-ڻF7:^-rNgr=@+ FnG=ʉ
i!Ua` r*oGkev~*w낋m8``M!U!. jGo9?D_)B@C
1uEֹ d
s4@ 1 0>{'M?^ Do>| `Ro@F|矿 wz/Xh``+
@@GzzcnI-ѫo_~{Ӈ=}#dO ~zˣ_F=~@S]똻۹` (#W
@@G_\1gR)ǿsѧ>ڣg>}y/ g>Y
CO)̷?uoj+ j]qI ~:n\}jök[\߹zpă>xgv\ۺݰؚzƵW컿z߽^?rvQL95W'7 zw2k _5a7_vG?9iẩ;ZE/*[ްjŇ?aLլ]K ͷEstu!{~g娸7zvxʻJ9wK;w˹*yNPїKcJĞy7>IM\yiEi$hǜ1"k\L~3bA8bnRیۭR6R< [R6Xo0ߠ`
J B@VѾ!nG.^' Y{{~fV̡K'˸ES[lLIF TGgn$ 2,9\: [fakBߘ~||QC VqmRVۥo}&E t4Kv"Qѽ?V=^!ĭhCj: ;Z`e[T3ֵr<| 4
z' ?4um23+3hGblbo%*)Z CA:]~unZUzM& m@8on " fOkOAf3"gE0 G )NF]~ -&>]`G::: b }V$t_G+
Ar=,+&YxZO ;5
@ -늝Ay\Y3@͋O3mu٠2qm,p4@ <@>zc(^|U,A4^ T0 ~ -霋q]Z6hh @+v_s2M\9t1PD
B,
]Š 8UvK9z3 G vKBPH;Ua9ns(oZjgJtК#Nڥ GǭY wљ@o hM[:-+]/}qt)d!(]/4ΒYhe{mW:EuS@v::"Gӷ8em;I/<
7'Ɂ&_sڕ'ʑ3Xb.?Q -2e3}DOɠKG:m36l hԍ [}wۤmO[k9^X|A?YuIb
7$V`}\t>=w$=(}iEBĕ yvZ@pGS3q:@k|zU3% "XsM*0 0[lr&O 1hu
5)oKAw` L@:cnGPOq3I[c*yEJQ%fؑEs0&n2quJ 41gch2 8I >K rv^`n쐵.s9!361[ 69foub1{'Np*ZpЭh;h0r/?
ʅwk6_
jxο_)ړ5j >Ssj0X1#@}kN՝? t& h]˥ mGj ;垆j bY/XcR0ZD}b RXF1@6mR]T@"~e N臞% IENDB` cREVGeneral revUniqueID
1007889434808
saveDown.png @ 2 < , PNG
IHDR < , HL gAMA |Q cHRM z% u. _ : oi+ IDATxb{O{b/ 8@ ޕ'Cw#}pJE佤"'CFEîʎғ`2tM *;zIc@ A }hDȹ '\KPq0:cP%G 8v7 ʞB7 0 .1td&i2*e ${O^ѱ[n5a Ԯ '|
9>[Gor!u7r):ЩM~ RAE| y^+E:^ +VRf= }v2xR! KVه]JG
ߪ!ɫo=ׇ/>zEi|ڃOUڤ>gS~ Oh %A}@x͛?|_}.,d?~ۯ?@yV>hs^.GKzh VY\p1w~=@ϗo?ٛ/ q &S2۟/|kiUۀv)< ΔGJ!0G(#Ze e;dVl;&_|OxڃW UTz ]%Xg=vgoϷlnǼE\)d
s4@ A }ХS >yKw>\ ?}H"_xWOuKw?\˷?8עCdM! h9;n=G/u۽wYw}~n@۾
a/wÛ_4ҽ{N9|+X[;jS.%GHu4@ m Y[euȥW[O<^`k{UZ߳rϫeޮb͞k\{ \-or5[W'^οtnZ ΅0 TGgoW \:wǞ`O n?oM3!4śo-z{ݞrcGn9|{۫vݙnmhb!`")8x~/ﺳjϽC^l] |r
@(vު e{tewO|併}+&lh\㗻"|O^@c̨[j')i;+jo>xG7̹7sչol:ȣ`azǜ 9 !kzتyggѿZn-?ɆSLg`flo <]4N ` ;rR[
el9nV\^; P mM'rMԓ\k_tѯ=>@]#&>!d+8*0m6m]TIYc(b|
Pe\Sn)@vfcUԑǺ{6Ӥd; 269G:gla=4c JT+ ʮ>;lw*F 9S.";*'.sdYYrtk$Aeʦ,jB-MoI䐱,iY&~3 .dXw29C;xmf`^zʵ$ [%',Ks)F VƭN`.c َ tGۦoI`6c\bx""K%\F 6Mj}4i 2okF_d6 J@GKo.9'QzURupMdI36go*`L.)~fq To jTv۳:*gve Upe2u@VPh 茭0GG3niGI *9:h;
@D9:8KwTƔܬކ --);-Yrɼ\; sti<-)D3_`Pˠ>aP|Ġ|t< aѕ`GwS DѠ#,StApD v. j03 "fDv/
(莗wo-f4 ]#d$|ͺD-Neqti
ueTw4@ pHHn[(z (R?# 0kPA "2q*{h "Uyb[RVx*X +-e P5?w0#Eg]FIDEG6Ggn:>s#D ٤=[4r:u&)hZ :O9DrK
@蔹 -^{hov%au>g nJcYȥ=MqLG;GɸnJ' 혱XPh Bm tf̭Rg|W} }@t%lS\66+͓6kl8ZT#.I_LJ hnyl3[yk,wMY~= ڀr} rh\]b U E*&
XmL\f%gcf[
@;-S[^ w'Xx ,`q7LJ lXo>a
T @yeb\r Md; vt%Ml8p(ayJӘyT/ __ (ԑ=/GH!9z3 #ؤ,蔽*mc.; `.:X>{ye.5Yj>Kï[ޡKwNɜ:X4X:4XTZl}RXy g
5Ů7YΡYӧ,fAjS֩m2փ ] Glܣ h H`l~ڃl瘆th4;թ8T*U(;TU(ZHh ){KD8Vh5i{vx7YGJWu&zq*Nu4i#L 45J
&CKwi;t$~oruˢsFΏΚ='2{^̜ 1-,uRXް侰aӢ._S8`YB 9͇Z ;k첀 a"m, cy1o;0J]e$d{ZӑMvnIXX*tERR/^ _4謅 bO(X_4'I\^-qO|.۔&l9dou`/!y, Ň 9t*iQ"˄ŮfJ_3iG,`4 x$H8-a[, = 3i6Pk ) D5_l6mCv`ܺ h ;:[aNsv:uu*e&LbE3>]?tNDI(HN` W?t~t٦1 }x딵6#0 tB"'` `F9 *:L!{ rw m6mM*IYm&mujU)C@k&M_c r8r*LnGe 7G'ZA[ P{ M՟=[}ĻOA^+!Ulþ5Nןh< r10BcY
@ !\+{,SXD HE* ](Wr624 \+.Pr[lT<c(\o" Q~ IENDB` cREVGeneral revUniqueID
1007889440829
saveOver.png @ 2 < , 3PNG
IHDR < , HL gAMA |Q cHRM z% u. _ : oi+ IDATxb{O{}d#TB3" =?xc@1 b5 &{ 0Ed0 @ }s w+;Vzҭ 8Vr̭
X;L%'c`N^RX@@G_=^~̵( s)>Rzԥ#7i`cYs ";-=C:yGʁF q->RxȥsAB7KnD Y-z}E] =Sv̽8(zt7 < s):Zt9S>m\rϴ-ڻF7:^-rNgr=@+ FnG=ʉ
i!Ua` r*oGkev~*w낋m8``M!U!. jGo9?D_)B@C
1uEֹ d
s4@ 1 0>{'M?^7 ~DǫO$_>@0>6Ш_o?nQev
lPyEY@Owۭ>0W >zoo~@S]똻۹` (#W
@@G_\1gR)ǿsѧ>^棏 ]7|$\8ľF@7_nr럾]{>
4O2ǜ ]
M\s4@ !gBʒ'^v#? u/_&h+
0W Z0{ރ~^?~uʚ+ҾAJ!GJOh bH8zCǮ?xӍ rvwqn˱O?w {
H>O={ \⍇:YSw~zֻe;ls.R h ;:ss>j+ j vnc#ZA_MW>_}_x:"G1Ɏ $Gl _|p ߙ٪=Odne߳]v_ľY+n_jҒ#Swf._ Y,amm_s֣Q5%|ezcӑ3Nt& h5q
=y͍yo;ҵ{|S/\>B_.n%f5.^y^)nin9^%>u~5 w }!ꑰutL~4q+/-vh1U4@ ! 혳 f]d힙oZ5q\`bY˄abH+%!Ft'DͳH\n*iY&,3OXf8j x|d`heT)KǸ3}K,=7uΣ:Qk )p4@ 88~]XEڎ( tͮ:t^U5i5a@vbU"viw KI`cN ' Aue7Pk J댢l.A:{
@(*ukV眭z륽t \w@cSz} R":eS.`؎0*=^r!gD?}gb\"m7=q u#fl,n@(b:}}Vŀ#EPGsoKkrlw8i_p62/jqA2@G묔s un%S[lLIF TGgn$3) ] w(pH2 Q <}U7^2=KGɏTosXO&n%236 9&e]F`gRh BiLG? ! ! E5J`! " _A~9лO>TSe>AEwJ}.~!ӹ ih "TiyuLeY qA}7 AH w4mQq 0Ys2ђl;h " + u}:\'ZDtO2a98bq8E2i =Ayn@_tu@.Q D3k5 7K}6
A}K&y/
.$h "
XE Y l2<~#2;eNj^ÆYUbൺ!@/N]G>f2~a`a{ ";sZA ыس M] ]?|
TN DTHJ\eS;lPdav 3j&za:zFfC@5 v4ZLѶ@269 T
nb8l8vf^ȶ#F zKصLp(^Qs'qF 7;:-9 퐾!{+W :V
qr vl>b i5!=wJ5{`6;z9 P )k3vY[-7I8m_ {>] OX} 83L@vO10=b杸~a{=.e"~eJ~E;-SS )ڙz8yUZŚ>3TW/$X8Q^A5.784LvM nJ.2O!;u+UF3|Uyu55TUYD38Cl |bJٵt'IY7ZDLYv"e
"c 5rۥo2_ XtNɜI5{K6D, Z>30yZ`dISS&$MnhtlLJ1;,}^dⴚmYڏGT6_it6}.EHw4@ 1 {xY[S.
ؕ~2hV=iے'H(YX4hqRђ@`a|9sbsfΏ_X8xibr5)vd7 e:u}f<#L Đ{2K~][mRYpqba"vĔo*Y6"oyxβEa@8,B. ]Bs E@RKs,
[*p}VImRܝE\J V9)c` 4:yiF#F2 2I/_/ e4A?x~T9@ӬV + M㔷ϥ{Qײ#: 39r A=J&mu*I+-W'.LZb Y/1hIK-WXL@ s9&\i b;k!``F}VY[.90N |Vf 䘽1k}6:`kA#K#A- b\x\` ՟=[sܯO1>5i >4з_ ӁMgֵ\
lv~D˱Si .=){,%JK)/"%EJn#dӖ(/LXN,\Za@ PF IENDB` cREVGeneral revUniqueID
1007889452744 Mac Stack Height Flipper BLon mouseUp
if the hilite of me then set the rect of this stack to the topLeft of this stack, the left of this stack + 317, the top of this stack + 157
else set the rect of this stack to the topLeft of this stack, the left of this stack + 60, the top of this stack + 44
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
) cContractedStackHeight 400cExpandedStackHeight 500 cREVGeneral scriptChecksum mjFJf
qCJf" revUniqueID
1007887317041
bookmarks handlerList mouseUp
mouseDoubleUp tempScript prevHandler
mouseDoubleUpscriptSelection
char 1 to 284script on mouseUp
if the hilite of me then set the rect of this stack to the topLeft of this stack, the left of this stack + 317, the top of this stack + 157
else set the rect of this stack to the topLeft of this stack, the left of this stack + 60, the top of this stack + 44
end mouseUp
on mouseDoubleUp
mouseUp
end mouseDoubleUp
test )`
* r cREVGeneral revUniqueID
1008310277515 +File to Copy:C:/Presentor/demoplayer05.rev 9Archive File::C:/Presentor/archive/demoplayer0500002.rev ` @ # p