#!/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 "$@"  tFolderPathfunction 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 frThe Folder Path ULucida Grande UGeneva UOsaka,Japanese UOsaka UOsaka Ugeneva,english UOsaka,Japanese U osaka,japanese U ,japanese ULucida GrandeULucida GrandeUOsaka,JapaneseUGeneva Ums sans serif U osaka,japanese U ,japanese U osaka,japanese U ,japanese cREVGeneralscriptChecksum;TGy48} bookmarks debugObjects handlerListtheFolderPath IsOSX tempScript prevHandler openStackscriptSelection char 1 to 0script

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

 Pon opencard get the filename of this stack if it is empty then answer information jpAnswer(saveThisStack, jpText, 2) ask file "Save this stack as 004.rev" with "004.rev" if the result is not "Cancel" then save this stack as it end if repeat with i=1 to 4 if platform() is "Win32" then set the textSize of btn i to 12 else set the textSize of btn i to 11 end if end repeat if platform() is "Win32" then set the text of btn "tScript" to "00000~0g0n000" & CRLF &\ "00000Qn00000h000000" & CRLF & \ "000000ܥO0" & CRLF & "0000000n00000000" else set the text of btn "tScript" to "000000~0g0n00" & uniencode(LF) &\ "00000Q0n00000h000000n000" & uniencode(LF) & \ "0000000Q0" & uniencode(LF) & "00000000000000" end if end opencard on notSaved if the filename of this stack is empty then beep answer warning jpAnswer(NotSaved, jpText, 2) exit to top end if end notSaved 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  cREVGeneralscriptChecksumq!6[?5 bookmarks handlerList%opencard notSaved jpAnswer englishTagscriptSelectionchar 886 to 885 prevHandler englishTag tempScriptscript R

on opencard

get the filename of this stack

if it is empty then

answer information jpAnswer(saveThisStack, jpText, 2)

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

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

end if

repeat with i=1 to 4

if platform() is "Win32" then

set the textSize of btn i to 12

else

set the textSize of btn i to 11

end if

end repeat

if platform() is "Win32" then

set the text of btn "tScript" to "Õ0©0ë0À0ü0~0g0n0Ñ0¹0" & CRLF &\

"Õ0©0ë0À0ü0…Qn0Õ0¡0¤0ë0h0Õ0©0ë0À0ü0" & CRLF & \

"Õ0©0ë0À0ü0’0‹•O0" & CRLF & "Õ0©0ë0À0ü0Ñ0¹0n0Õ0¡0ó0¯0·0ç0ó0"

else

set the text of btn "tScript" to "フォルダーまでのパス" & uniencode(LF) &\

"フォルダー内のファイルとフォルダーのリスト" & uniencode(LF) & \

"フォルダーを開ける" & uniencode(LF) & "ファンクションフォルダーパス"

end if

end opencard

on notSaved

if the filename of this stack is empty then

beep

answer warning jpAnswer(NotSaved, jpText, 2)

exit to top

end if

end notSaved

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

 @ jpText)h,jp cREVGeneral revUniqueID 1081305031676 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script    /0S0n00000o Save 0W0f0D0j0D0hj_0W0~0[00    'k!0kQ0000000000gT RM0N0Q0f & 0i0S0K0k Save 0W0f0O0`0U0D0        -O[X0U00f0D0j0D00000g0o0j_0W0~0[00 ,   `g-nunicodeToHtmlEIon mouseUp set the text of fld 1 to the htmlText of fld 1 end mouseUp p cREVGeneralscriptChecksum #՛A bookmarks revUniqueID 1081305031677 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 1081305031678 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 p cREVGeneralscriptChecksumSjir< C revUniqueID 1081305031679 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 p cREVGeneralscriptChecksum:5p<$ revUniqueID 1081305031680 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 46 to 45scriptq

on mouseUp

ask ""

find it in fld "jpText"

end mouseUp

Field 1 n& cREVGeneral revUniqueID 1081305031681 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0 tPath)`&n cREVGeneral revUniqueID 1081306702384  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 3 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  `m' tTx   j cREVGeneral revUniqueID 1081359002999 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script &0000000 theFolderPath() 0O0F        openFoldereon mouseUp notSaved -- warningt not saved stack set cursor to watch if platForm() is "MacOS" then OpenFolder quote& theFolderPath() "e else OpenFolder theFolderPath() 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 Ej fontSize14-0S0n00000LO[X0W0f0B00000000Q0 cREVGeneralscriptChecksum[L 41_ّW revUniqueID 1081342216566 bookmarks handlerListmouseUp OpenFolder ConvertPath tempScript prevHandlerIsOSXscriptSelectionchar 188 to 187script

on mouseUp

notSaved -- warningt not saved stack

set cursor to watch

if platForm() is "MacOS" then

OpenFolder quote& theFolderPath() &quote

else

OpenFolder theFolderPath()

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

 tFileListeon mouseUp notSaved -- warningt not saved stack set the defaultFolder to theFolderPath() put "---// Files //---" &cr& the files into fld 1 put cr&cr& "---// Folders //---" &cr& the folders after fld 1 end mouseUp &j fontSize14C0S0n00000LO[X0W0f0B0000000n00000h000000n000 cREVGeneralscriptChecksumon mouseUp

notSaved -- warningt not saved stack

set the defaultFolder to theFolderPath()

put "---// Files //---" &cr& the files into fld 1

put cr&cr& "---// Folders //---" &cr& the folders after fld 1

end mouseUp

 tFolderPathegon mouseUp notSaved -- warningt not saved stack put theFolderPath() into fld "tPath" end mouseUp j fontSize14/0S0n00000LO[X0W0f0B0000000~0g0n00 cREVGeneralscriptChecksumw^Ri9 revUniqueID 1081306702385 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 103 to 102script

on mouseUp

notSaved -- warningt not saved stack

put theFolderPath() into fld "tPath"

end mouseUp

tScript }on menuPick if the menuHistory of me <4 then put the cpMode[the menuHistory of me] of me into tBtnName if the environment is "development" then edit script of btn tBtnName else get the script of btn tBtnName answer information "The Script is:" &cr&cr& it end if put the script of stack "tFolderPath" into fld 1 else put "" into fld 1 get the script of stack "tFolderPath" answer information "The Script is:" &cr&cr& it end if end menuPick 333333`flable0000000 fontSize14backgrouncolor51,51,510000000s000000~0g0n00 00000Q0n00000h000000n000 0000000Q0 00000000000000 cpMode1 tFolderPath2 tFileList3 openFolder cREVGeneral scriptChecksumM,~m%zO ' handlerListmenuPick breakPointsscriptSelectionchar 478 to 477 bookmarks revUniqueID 1081346825564 prevHandlermenuPick tempScriptscript

on menuPick

if the menuHistory of me <4 then

put the cpMode[the menuHistory of me] of me into tBtnName

if the environment is "development" then

edit script of btn tBtnName

else

get the script of btn tBtnName

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

end if

put the script of stack "tFolderPath" into fld 1

else

put "" into fld 1

get the script of stack "tFolderPath"

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

end if

end menuPick