#!/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 "$@" A SnapshotTfunction theFolderPath put the filename of this stack into tPath set the itemdel to "/" If (IsOSX()) then get offset(".app/Contents/MacOS/", tPath) if it > 0 then delete char it to len(tPath) of tPath end if end if delete last item of tPath return tPath end theFolderPath function IsOSX if the platform is not "MacOS" then return false get the systemversion set the itemdel to "." if item 1 of it >= 10 then return true return false end IsOSX function jpAnswer pTag, pFldName, pCdNum get ("get the text of fld "& pFldName &" of cd "& pCdNum ) do it get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \ of fld pFldName cd pCdNum return replaceText(IT, "

", " ") end jpAnswer function englishTag return "" end englishTag nsExport Snapshot ULucida Grande ULucida Grande ULucida Grande UOsaka UOsaka,Japanese UGeneva UOsaka Ugeneva,english UOsaka,Japanese U ,japanese U ,japanese U osaka,japanese U osaka,japanese UGeneva cREVGeneralscriptChecksumTlmW^>' bookmarks debugObjects handlerList'theFolderPath IsOSX jpAnswer englishTagscriptSelectionchar 288 to 287 prevHandlerIsOSX tempScriptscript

function theFolderPath

put the filename of this stack into tPath

set the itemdel to "/"

If (IsOSX()) then

get offset(".app/Contents/MacOS/", tPath)

if it > 0 then

delete char it to len(tPath) of tPath

end if

end if

delete last item of tPath

return tPath

end theFolderPath

function IsOSX

if the platform is not "MacOS" then return false

get the systemversion

set the itemdel to "."

if item 1 of it >= 10 then return true

return false

end IsOSX

function jpAnswer pTag, pFldName, pCdNum

get ("get the text of fld "& pFldName &" of cd "& pCdNum )

do it

get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \

of fld pFldName cd pCdNum

return replaceText(IT, "</p>", " ")

end jpAnswer

function englishTag

return "<font face=Geneva size=12>"

end englishTag

 Pion opencard get the filename of this stack if it is empty then answer information jpAnswer(saveThisStack, jpText, 3) ask file "Save this stack as 005.rev" with "005.rev" if the result is not "Cancel" then save this stack as it end if set the defaultfolder to theFolderPath() put theFolderPath() into fld "tDefaultfolderPath" end openCard  cREVGeneralscriptChecksume.x,߮qdmڿ bookmarks handlerListopencard tempScript prevHandleropencardscriptSelectionchar 177 to 176script

on opencard

get the filename of this stack

if it is empty then

answer information jpAnswer(saveThisStack, jpText, 3)

ask file "Save this stack as 005.rev" with "005.rev"

if the result is not "Cancel" then save this stack as it

end if

set the defaultfolder to theFolderPath()

put theFolderPath() into fld "tDefaultfolderPath"

end openCard

  Pon openCard setImageList end openCard global gFileList on setImageList put the files into gFileList filter gFileList without ".*" filter gFileList with "*.jpg" put gFileList into fld "tImageList" end setImageList  cREVGeneralscriptChecksummu[yF! bookmarks handlerListopenCard setImageListscriptSelectionchar 224 to 223 prevHandleropenCard tempScriptscript

on openCard

setImageList

end openCard

global gFileList

on setImageList

put the files into gFileList

filter gFileList without ".*"

filter gFileList with "*.jpg"

put gFileList into fld "tImageList"

end setImageList

 !" @ jpText)h,jp cREVGeneral bookmarks revUniqueID 1081473855079 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript    /0S0n00000o Save 0W0f0D0j0D0hj_0W0~0[00    'k!0kQ0000000000gT RM0N0Q0f & 0i0S0K0k Save 0W0f0O0`0U0D0       -O[X0U00f0D0j0D00000g0o0j_0W0~0[00 ,    +g,_S0k0]0n00000RJd0W0f0o0D0g0Y0m *    `g-nunicodeToHtmlEIon mouseUp set the text of fld 1 to the htmlText of fld 1 end mouseUp p cREVGeneralscriptChecksum #՛A revUniqueID 1081473855080 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 72 to 71script\

on mouseUp

set the text of fld 1 to the htmlText of fld 1

end mouseUp

htmlToUnicodeEon mouseUp set the htmlText of fld 1 to the text of fld 1 --set the htmlText of fld 1 to noWarranties() end mouseUp function noWarranties get "

カーソルをディスプレイの左上に移動させると、ムービーはストップします。

" return it end noWarranties p cREVGeneralscriptChecksumA(Ҿj?l0 revUniqueID 1081473855081 bookmarks handlerListmouseUp noWarranties tempScript prevHandlermouseUpscriptSelectionchar 502 to 501script

on mouseUp

set the htmlText of fld 1 to the text of fld 1

--set the htmlText of fld 1 to noWarranties()

end mouseUp

function noWarranties

get "<p><font face=Osaka lang=ja>&#12459;&#12540;&#12477;&#12523;&#12434;&#12487;&#12451;&#12473;&#12503;&#12524;&#12452;&#12398;&#24038;&#19978;&#12395;&#31227;&#21205;&#12373;&#12379;&#12427;&#12392;&#12289;&#12512;&#12540;&#12499;&#12540;&#12399;&#12473;&#12488;&#12483;&#12503;&#12375;&#12414;&#12377;&#12290;</font></p>"

return it

end noWarranties

 setSizeNfontEon mouseUp set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 12 set the textFont of fld 1 to "Osaka" end mouseUp p cREVGeneralscriptChecksumSjir< C bookmarks revUniqueID 1081473855082 handlerListmouseUpscriptSelection char 86 to 85 prevHandlermouseUp tempScriptscript

on mouseUp

set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 12

set the textFont of fld 1 to "Osaka"

end mouseUp

findTagE;on mouseUp ask "" find it in fld "jpText" end mouseUp p cREVGeneralscriptChecksum:5p<$ bookmarks revUniqueID 1081473855083 handlerListmouseUpscriptSelection char 46 to 45 prevHandlermouseUp tempScriptscriptq

on mouseUp

ask ""

find it in fld "jpText"

end mouseUp

Field 1 n& cREVGeneral revUniqueID 1081473855084 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0  tDefaultfolderPath JT( cREVGeneral revUniqueID 1081533291619 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script tTabi cREVGeneral bookmarks revUniqueID 1081534566423 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript tTab} on menuPick

open card the menuHistory of me

end menuPick

 openFoldere Won mouseUp set cursor to watch if platForm() is "MacOS" then OpenFolder quote& defaultFolder "e else OpenFolder defaultFolder end if end mouseUp on OpenFolder pPath switch (the platform) case "Win32" set the hideConsoleWindows to true if the shellCommand is "cmd.exe" then create alias "C:/Temp.lnk" to file pPath get shell("C:\Temp.lnk") delete file "C:/Temp.lnk" else get shell("start" && quote & pPath & quote) end if break case "MacOS" if the systemVersion >= 10 then get shell("open " & pPath) else put "tell application " & quote & "Finder" & \ quote & cr & "activate" & cr & \ "open folder " & quote & \ ConvertPath(pPath) & quote & cr & \ "end tell" into tScript do tScript as AppleScript end if break end switch end OpenFolder function ConvertPath pPath if char 1 to 9 of pPath = "/Volumes/" then delete char 1 to 9 of pPath else put line 1 of the drives before pPath end if replace "/" with ":" in pPath return pPath end ConvertPath XV fontSize14000000000000Q0 cREVGeneralscriptChecksumq$5 revUniqueID 1081540855670 bookmarks handlerListmouseUp OpenFolder ConvertPath tempScript prevHandler ConvertPathscriptSelectionchar 144 to 143script

on mouseUp

set cursor to watch

if platForm() is "MacOS" then

OpenFolder quote& defaultFolder &quote

else

OpenFolder defaultFolder

end if

end mouseUp

on OpenFolder pPath

switch (the platform)

case "Win32"

set the hideConsoleWindows to true

if the shellCommand is "cmd.exe" then

create alias "C:/Temp.lnk" to file pPath

get shell("C:\Temp.lnk")

delete file "C:/Temp.lnk"

else

get shell("start" && quote & pPath & quote)

end if

break

case "MacOS"

if the systemVersion >= 10 then

get shell("open " & pPath)

else

put "tell application " & quote & "Finder" & \

quote & cr & "activate" & cr & \

"open folder " & quote & \

ConvertPath(pPath) & quote & cr & \

"end tell" into tScript

do tScript as AppleScript

end if

break

end switch

end OpenFolder

function ConvertPath pPath

if char 1 to 9 of pPath = "/Volumes/" then

delete char 1 to 9 of pPath

else

put line 1 of the drives before pPath

end if

replace "/" with ":" in pPath

return pPath

end ConvertPath

 jTxt1 .2 cREVGeneral revUniqueID 1081537399479 00000000000n00   tImageList)pon mouseDoubleUp put clickText() into tFile answer warning jpAnswer(deleteImageFile, jpText, 3) with "Cancel" or "OK" as sheet if it is "OK" then delete file the defaultFolder &"/" & tFile; setImageList end mouseDoubleUp @ LNP cREVGeneralscriptChecksum7WAis revUniqueID 1081478739552 bookmarks handlerList mouseDoubleUp tempScript prevHandler mouseDoubleUpscriptSelectionchar 227 to 226scriptj

on mouseDoubleUp

put clickText() into tFile

answer warning jpAnswer(deleteImageFile, jpText, 3) with "Cancel" or "OK" as sheet

if it is "OK" then delete file the defaultFolder &"/" & tFile; setImageList

end mouseDoubleUp

 image01.JPG image02.JPG RevSnap_1.jpg RevSnap_2.jpg `]MNsnapex global gFileList local lSnapNum on mouseUp set the JPEGQuality to the thumbpos of sb 1 snapNum if the hilite of btn "wholeArea" is true then export snapshot from rect the screenRect to file "RevSnap_"&lSnapNum&".jpg" as JPEG else export snapshot to file "RevSnap_"&lSnapNum&".jpg" as JPEG end if set the cursor to hand if platForm() is "MacOS" then set the fileType to "prewJPEG" end if setImageList end mouseUp on snapNum put gFileList into myList filter myList with "RevSnap_*" replace "RevSnap_" with "" myList set the itemDel to "." repeat with i=1 to the num of lines of myList put i into lSnapNum if item 1 of line i of myList is not i then exit snapNum end if end repeat put lSnapNum +1 into lSnapNum end snapNum $(000000000d0 cREVGeneral scriptChecksumyҗv3' handlerListmouseUp snapNum breakPointsscriptSelectionchar 789 to 788 revUniqueID 1081472188414 bookmarks tempScript prevHandlermouseUpscript6

global gFileList

local lSnapNum

on mouseUp

set the JPEGQuality to the thumbpos of sb 1

snapNum

if the hilite of btn "wholeArea" is true then

export snapshot from rect the screenRect to file "RevSnap_"&lSnapNum&".jpg" as JPEG

else

export snapshot to file "RevSnap_"&lSnapNum&".jpg" as JPEG

end if

set the cursor to hand

if platForm() is "MacOS" then

set the fileType to "prewJPEG"

end if

setImageList

end mouseUp

on snapNum

put gFileList into myList

filter myList with "RevSnap_*"

replace "RevSnap_" with "" myList

set the itemDel to "."

repeat with i=1 to the num of lines of myList

put i into lSnapNum

if item 1 of line i of myList is not i then

exit snapNum

end if

end repeat

put lSnapNum +1 into lSnapNum

end snapNum

group id 1024 i6 cREVGeneral revUniqueID 1081476491793 wholeArea`d U--on mouseUp -- if hilite of me is true then hide grp "qualityScale" --end mouseUp f00000QhOS cREVGeneralscriptChecksumňIzfQ revUniqueID 1081473351374 bookmarks handlerList tempScript prevHandlermouseUpscriptSelection char 85 to 84scriptz

--on mouseUp

-- if hilite of me is true then hide grp "qualityScale"

--end mouseUp

  selctedArea`d U--on mouseUp -- if hilite of me is true then show grp "qualityScale" --end mouseUp :^ {V0-[ cREVGeneralscriptChecksum"T;z revUniqueID 1081473351375 bookmarks handlerList tempScript prevHandlermouseUpscriptSelection char 84 to 83scriptr

--on mouseUp

-- if hilite of me is true then show grp "qualityScale"

--end mouseUp

  Scrollbar 1a<$sUU10100 cREVGeneral revUniqueID 1081473402235 Field 1@"z@n cREVGeneral revUniqueID 1081538819429  N 0n 0 00000d0 / export snapshot0 000000Y00h000000L0000000kY 00c0f{V0-[0Y00h000000000000nN-0k00 RevSnap_1.jpg0 0h0D0F0000T 0n000000000O\00~0Y0     ' 7T    . snapx on mouseUp set the JPEGQuality to 50 export snapshot to file "RevSnap_1.jpg" as JPEG set the cursor to hand if platForm() is "MacOS" then set the fileType to "prewJPEG" end if end mouseUp (300000d0 / export snapshot400000d0 / export snapshot cREVGeneralscriptChecksumht9biX ": revUniqueID 1081472188414 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 203 to 202script

on mouseUp

set the JPEGQuality to 50

export snapshot to file "RevSnap_1.jpg" as JPEG

set the cursor to hand

if platForm() is "MacOS" then

set the fileType to "prewJPEG"

end if

end mouseUp

Field 1@&2* cREVGeneral bookmarks revUniqueID 1081539213453 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript  3^v0n00000K00o000000oN f0M0U00~0Y0 2  jTxt1 .2 cREVGeneral revUniqueID 1081541089049 30000000000Q0k0B0 JPEG 00000n000   " !jTxt2 2 cREVGeneral revUniqueID 1081541092595 !000000000n{V0-[0Y0  "jTxt3 Z cREVGeneral revUniqueID 1081541220382 ;0000000000-[ the thumbPosition of scrollbar 1  "