#!/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 "$@" J setImagejfunction 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 `set the filename of image ULucida Grande U ,japanese UOsaka UOsaka,Japanese UGeneva UOsaka Ugeneva,english UOsaka,Japanese ULucida Grande U ,japanese U ,Japanese Ums sans serif @ULucida Grande UGeneva ULucida Sans Unicode cREVGeneralscriptChecksum2%?#BuܳJ bookmarks handlerListjpAnswer englishTagscriptSelectionchar 362 to 361 prevHandler englishTag tempScriptscript

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

 Pon openCard put the defaultFolder into fld "tDefaultFolder" 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  cREVGeneralscriptChecksumldDAG bookmarks handlerListopenCard setImageListscriptSelectionchar 275 to 274 prevHandleropenCard tempScriptscript

on openCard

put the defaultFolder into fld "tDefaultFolder"

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

.'=>? @ creatFolderexglobal gFileList on mouseUp create folder specialFolderPath("Desktop") &"/myFolder" set the defaultFolder to specialFolderPath("Desktop") &"/myFolder" put the defaultFolder into fld "tDefaultFolder" disable me put "" into gFileList put "" into fld "tImageList" end mouseUp L)00000T 0 myFolder0 0O\0c0f cREVGeneralscriptChecksumڎXֆv revUniqueID 1081801177677 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 243 to 242script

global gFileList

on mouseUp

create folder specialFolderPath("Desktop") &"/myFolder"

set the defaultFolder to specialFolderPath("Desktop") &"/myFolder"

put the defaultFolder into fld "tDefaultFolder"

disable me

put "" into gFileList

put "" into fld "tImageList"

end mouseUp

snapexglobal gFileList local lSnapNum on mouseUp set the JPEGQuality to 50 snapNum export snapshot to file "RevSnap_"&lSnapNum&".jpg" \ as JPEG put 0 into lSnapNum 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 scriptChecksumO7-{Qא breakPoints handlerListmouseUp snapNumscriptSelectionchar 646 to 645 bookmarks revUniqueID 1081820513934 prevHandlermouseUp tempScriptscripts

global gFileList

local lSnapNum

on mouseUp

set the JPEGQuality to 50

snapNum

export snapshot to file "RevSnap_"&lSnapNum&".jpg" \

as JPEG

put 0 into lSnapNum

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

jpText)h*f cREVGeneral revUniqueID 1081820694001 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script    000000O\0c0f0O0`0U0D0      -O[X0U00f0D0j0D00000g0o0j_0W0~0[00 ,     +g,_S0k0]0n00000RJd0W0f0o0D0g0Y0m *      ;00000000000o0 myFolder0 0g0o0B00~0[00 : RJd0g0M0~0[00      00000LOu(N-0g0Y0  RJd0g0M0~0[00  can't delete that file      000000RJd0W0~0Y0     `@e+unicodeToHtmlEIon mouseUp set the text of fld 1 to the htmlText of fld 1 end mouseUp (p cREVGeneralscriptChecksum #՛A bookmarks revUniqueID 1081820694002 handlerListmouseUpscriptSelection char 72 to 71 prevHandlermouseUp tempScriptscript\

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 bookmarks revUniqueID 1081820694003 handlerListmouseUp noWarrantiesscriptSelectionchar 502 to 501 prevHandlermouseUp tempScriptscript

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 Dp cREVGeneralscriptChecksumSjir< C revUniqueID 1081820694004 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 86 to 85script

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 Dp cREVGeneralscriptChecksum:5p<$ revUniqueID 1081820694005 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 46 to 45scriptq

on mouseUp

ask ""

find it in fld "jpText"

end mouseUp

Field 1 n& cREVGeneral revUniqueID 1081820694006 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0  tImageList)plocal lFile on mouseUp put clickText() into lFile if lFile is empty then exit to top set the filename of image 1 of cd 1 of stack "imageWd" \ to the defaultFolder &"/"& lFile put the formattedWidth of image 1 of cd 1 of stack "imageWd" into tWidth put the formattedHeight of image 1 of cd 1 of stack "imageWd" into tHeight put the rect of stack "imageWd" into tWdRect set the rect of stack "imageWd" to item 1 of tWdRect, item 2 of tWdRect, \ item 1 of tWdRect + tWidth, item 2 of tWdRect + tHeight set the rect of image 1 of cd 1 of stack "imageWd" to (0,0,tWidth,tHeight) open stack "imageWd" end mouseUp on mouseDoubleUp if lFile is empty then exit to top if the controlKey is down then answer warning jpAnswer(deleteImageFile, jpText, 2) with "Cancel" or "OK" as sheet if it is "OK" then delete file the defaultFolder &"/" & lFile close stack "imageWd" setImageList end if end mouseDoubleUp @\R cREVGeneralscriptChecksum64m:Q] bookmarks revUniqueID 1081820982093 handlerListmouseUp mouseDoubleUpscriptSelectionchar 188 to 187 prevHandler mouseDoubleUp tempScriptscript3

local lFile

on mouseUp

put clickText() into lFile

if lFile is empty then exit to top

set the filename of image 1 of cd 1 of stack "imageWd" \

to the defaultFolder &"/"& lFile

put the formattedWidth of image 1 of cd 1 of stack "imageWd" into tWidth

put the formattedHeight of image 1 of cd 1 of stack "imageWd" into tHeight

put the rect of stack "imageWd" into tWdRect

set the rect of stack "imageWd" to item 1 of tWdRect, item 2 of tWdRect, \

item 1 of tWdRect + tWidth, item 2 of tWdRect + tHeight

set the rect of image 1 of cd 1 of stack "imageWd" to (0,0,tWidth,tHeight)

open stack "imageWd"

end mouseUp

on mouseDoubleUp

if lFile is empty then exit to top

if the controlKey is down then

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

if it is "OK" then delete file the defaultFolder &"/" & lFile

close stack "imageWd"

setImageList

end if

end mouseDoubleUp

 `gP jText5 H cREVGeneral revUniqueID 1081820982094 3x00`00000n00000LR%000000gs00~0Y0 2 tDefaultFolder ~ cREVGeneral revUniqueID 1081964090050 $/Users/kenjikoj/Desktop/RevHandbook jText1  H cREVGeneral bookmarks revUniqueID 1081964728094 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript %sW(0n00000000000n000o $ jText2  1Z cREVGeneral revUniqueID 1081978541308 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script  0000000N 0k  jText2 f2 cREVGeneral revUniqueID 1081978696383 %0]0000000000000k0W0~0Y0  $ jText4  |r* cREVGeneral revUniqueID 1081979128326 92) 000000000g myFolder 0nN-0kJPEG 0LO\000~0Y0     % * -00000_ʼn0k_0X0fOUg0Kd0c0f0O0`0U0D0 , jText6 0H0 cREVGeneral revUniqueID 1081981900848 )0000T 0000000000b0W0j0L0 ( #00000000Y00hRJd0U00~0Y0 " .jText7 RedZ|  cREVGeneral revUniqueID 1082001151969 SqzS0bq0Dla 'tDeleteFolderexon mouseUp set the itemDel to "/" if (the last item of the defaultFolder) is not "myFolder" then beep answer warning jpAnswer(notMyFolder, jpText, 2) as sheet exit to top else answer warning jpAnswer(areYouSure, jpText, 2) with "Cancel" or "OK" as sheet if it is "OK" then set the defaultFolder to specialFolderPath("Desktop") delete folder specialFolderPath("Desktop")&"/"&"myFolder" if the result is empty then put specialFolderPath("Desktop") into fld "tDefaultFolder" enable btn "creatFolder" else beep answer warning jpAnswer(cantDelete, jpText, 2) as sheet set the defaultFolder to specialFolderPath("Desktop")&"/"&"myFolder" end if end if end if end mouseUp Red^0 myFolder0 0RJd0Y0 cREVGeneral scriptChecksumo>dSXT breakPoints handlerListmouseUpscriptSelectionchar 359 to 358 bookmarks revUniqueID 1081999214219 prevHandlermouseUp tempScriptscript

on mouseUp

set the itemDel to "/"

if (the last item of the defaultFolder) is not "myFolder" then

beep

answer warning jpAnswer(notMyFolder, jpText, 2) as sheet

exit to top

else

answer warning jpAnswer(areYouSure, jpText, 2) with "Cancel" or "OK" as sheet

if it is "OK" then

set the defaultFolder to specialFolderPath("Desktop")

delete folder specialFolderPath("Desktop")&"/"&"myFolder"

if the result is empty then

put specialFolderPath("Desktop") into fld "tDefaultFolder"

enable btn "creatFolder"

else

beep

answer warning jpAnswer(cantDelete, jpText, 2) as sheet

set the defaultFolder to specialFolderPath("Desktop")&"/"&"myFolder"

end if

end if

end if

end mouseUp

=tScripthe_ton mouseUp get the script of btn "creatFolder" answer information "The Button Script:" &cr&cr& it end mouseUp LLLLLL@ Mn0000000 cREVGeneralscriptChecksumFgö%x؜ bookmarks revUniqueID 1082087154502 handlerListmouseUpscriptSelectionchar 116 to 115 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "creatFolder"

answer information "The Button Script:" &cr&cr& it

end mouseUp

> tScript2he_mon mouseUp get the script of btn "snap" answer information "The Button Script:" &cr&cr& it end mouseUp LLLLLL n0000000 cREVGeneralscriptChecksum⬌{.k,H bookmarks revUniqueID 1082087298306 handlerListmouseUpscriptSelection char 75 to 74 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "snap"

answer information "The Button Script:" &cr&cr& it

end mouseUp

? tScript2he_von mouseUp get the script of btn "tDeleteFolder" answer information "The Button Script:" &cr&cr& it end mouseUp LLLLLL0^N 00000 cREVGeneralscriptChecksum+%Yp7r bookmarks revUniqueID 1082087812110 handlerListmouseUpscriptSelection char 84 to 83 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "tDeleteFolder"

answer information "The Button Script:" &cr&cr& it

end mouseUp

imageWd  Image Window @Image 1 @2/Users/kenjikoj/Desktop/RevHandbook/RevSnap_2.jpg cREVGeneral revUniqueID 1081979936140