#!/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 "$@" theaterjfunction 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 LLLLLLr} Rev Theater ULucida Grande U ,japanese U ,japanese UOsaka UOsaka,Japanese UGeneva UOsaka Ugeneva,english UOsaka,Japanese cREVGeneralscriptChecksum2%?#BuܳJ bookmarks handlerListjpAnswer englishTag tempScript prevHandler englishTagscriptSelectionchar 362 to 361script

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

 P[on openCard get QTVersion() if it<6 then answer warning jpAnswer("qtDownload", jpText, 2) with \ "No" or "OK" as sheet if it is "OK" then revGoURL "http://www.apple.co.jp/quicktime/download/index.html" end if else answer information jpAnswer("qtCheck", jpText, 2) & QTVersion() as sheet end if end openCard  cREVGeneralscriptChecksum>]d!ܠk bookmarks handlerListopenCard tempScript prevHandleropenCardscriptSelectionchar 229 to 228script&

on openCard

get QTVersion()

if it<6 then

answer warning jpAnswer("qtDownload", jpText, 2) with \

"No" or "OK" as sheet

if it is "OK" then

revGoURL "http://www.apple.co.jp/quicktime/download/index.html"

end if

else

answer information jpAnswer("qtCheck", jpText, 2) & QTVersion() as sheet

end if

end openCard

 @ Player 1)`1  cREVGeneral revUniqueID 1082129855118 tOne)@; cREVGeneral revUniqueID 1082143983985  http://a772.g.akamai.net/5/772/51/013d9a534bc670/1a1a1aaa2198c627970773d80669d84574a8d80d3cb12453c02589f25382f668c9329e0375e81780ee52b7278cfa5ec331a5d43baa0e88f15dc92a/godzilla_ab480.mov movieStart }]on menuPick switch (the menuHistory of me) case 1 get fld "tOne" break case 2 get fld "tTwo" break case 3 get fld "tThree" break case 4 get the script of me answer information "The Stack Script:" &cr&cr& it exit menuPick end switch set the filename of player 1 to it start player 1 end menuPick 333333:lable0000000 fontSize14backgrouncolor51,51,5100000x0vD0000000 0000000 00000000 0000000 cpMode1 tFolderPath2 tFileList3 openFolder cREVGeneral scriptChecksumB~u@i؊^_ breakPoints handlerListmenuPickscriptSelectionchar 250 to 249 revUniqueID 1082145587317 bookmarks tempScript prevHandlermenuPickscript

on menuPick

switch (the menuHistory of me)

case 1

get fld "tOne"

break

case 2

get fld "tTwo"

break

case 3

get fld "tThree"

break

case 4

get the script of me

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

exit menuPick

end switch

set the filename of player 1 to it

start player 1

end menuPick

tTwo)@W cREVGeneral revUniqueID 1082145954722  @http://www.kenjikojima.com/ts/images/throwStonePrimeval3min.swf ? tThree)@s cREVGeneral revUniqueID 1082145972585  'http://www.locarecords.com/music/E.mp3 & jpText)h6f cREVGeneral bookmarks revUniqueID 1082168232395 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript   #0S0n00000k0000000W0f0B0 " 00000000n000000o0     +00000000n000000L 6NN 0g0j0D0h    !0S0n00000okc0W0OR0M0~0[00  )e0W0D0000000000000W0~0Y0K0 (   `e7unicodeToHtmlEIon mouseUp set the text of fld 1 to the htmlText of fld 1 end mouseUp (p cREVGeneralscriptChecksum #՛A revUniqueID 1082168232396 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 1082168232397 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 Dp cREVGeneralscriptChecksumSjir< C bookmarks revUniqueID 1082168232398 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 Dp cREVGeneralscriptChecksum:5p<$ bookmarks revUniqueID 1082168232399 handlerListmouseUpscriptSelection char 46 to 45 prevHandlermouseUp tempScriptscriptq

on mouseUp

ask ""

find it in fld "jpText"

end mouseUp

Field 1 @f& cREVGeneral revUniqueID 1082168232400 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0