#!/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 "$@" ' tPalette on preOpenStack set the style of me to palette end preOpenStack on openStack open stack "myBook" end openStack on closeStack save this stack end closeStack on openMyBook put the num of this cd of stack "myBook" &" / "& \ the num of cds of stack "myBook" into fld "tPage" of stack "myBook" end openMyBook function jpAnswer pTag, pFldName, pCdNum, pWdName get ("get the text of fld "& pFldName &" of cd "& pCdNum & "of wd "& pWdName) do it get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \ of fld pFldName of cd pCdNum of wd pWdName return replaceText(IT, "

", " ") end jpAnswer function englishTag return "" end englishTag H~T My Palette ULucida Grande U ,japanese UOsaka,Japanese ULucida Grande UOsaka,Japanese UGeneva ULucida Grande UOsaka UOsaka Ugeneva,english U ,japanese cREVGeneralscriptChecksum2Z߶5N;> bookmarks handlerList@preOpenStack openStack closeStack openMyBook jpAnswer englishTag tempScript prevHandler closeStackscriptSelectionchar 149 to 148scriptZ

on preOpenStack

set the style of me to palette

end preOpenStack

on openStack

open stack "myBook"

end openStack

on closeStack

save this stack

end closeStack

on openMyBook

put the num of this cd of stack "myBook" &" / "& \

the num of cds of stack "myBook" into fld "tPage" of stack "myBook"

end openMyBook

function jpAnswer pTag, pFldName, pCdNum, pWdName

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

do it

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

of fld pFldName of cd pCdNum of wd pWdName

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

end jpAnswer

function englishTag

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

end englishTag

 P on winStandalone --if environment()&& platform() is "development MacOS" then if environment()&& platform() is "standalone application Win32" then answer information jpAnswer(winAppli, jpText, 2, tPalette) exit to top end if end winStandalone T cREVGeneralscriptChecksum] _/ fv bookmarks handlerList winStandalone tempScript prevHandler winStandalonescriptSelectionchar 216 to 215script

on winStandalone

--if environment()&& platform() is "development MacOS" then

if environment()&& platform() is "standalone application Win32" then

answer information jpAnswer(winAppli, jpText, 2, tPalette)

exit to top

end if

end winStandalone

"#%&' @ newCardeIon mouseUp set the defaultStack to "myBook" create card end mouseUp ~e0W0D0000O\0 cREVGeneralscriptChecksumYU![ CR'% bookmarks revUniqueID 1085250334325 handlerListmouseUpscriptSelection char 72 to 71 prevHandlermouseUp tempScriptscript

on mouseUp

set the defaultStack to "myBook"

create card

end mouseUp

 deleteCarde!on mouseUp if the num of cds of stack "myBook">1 then set the defaultStack to "myBook" put the num of this cd of stack "myBook" into tPageNum lock screen delete this card open cd tPageNum-1 of stack "myBook" openMyBook else beep end if end mouseUp K~0S0n0000RJd cREVGeneralscriptChecksumh-}kXK bookmarks revUniqueID 1085250987311 handlerListmouseUpscriptSelectionchar 194 to 193 prevHandlermouseUp tempScriptscript

on mouseUp

if the num of cds of stack "myBook">1 then

set the defaultStack to "myBook"

put the num of this cd of stack "myBook" into tPageNum

lock screen

delete this card

open cd tPageNum-1 of stack "myBook"

openMyBook

else

beep

end if

end mouseUp

 saveMyBookeon mouseUp ask file "" with "myStack.rev" if it is not "Cancel" then put it into tPath lock screen clone stack "myBook" set the name of stack "copy of myBook" to "myStack" save stack "myStack" as tPath delete stack "myStack" end if end mouseUp {~00000k0W0fO[X cREVGeneralscriptChecksumC` bookmarks revUniqueID 1085252740823 handlerListmouseUpscriptSelectionchar 275 to 274 prevHandlermouseUp tempScriptscript

on mouseUp

ask file "" with "myStack.rev"

if it is not "Cancel" then

put it into tPath

lock screen

clone stack "myBook"

set the name of stack "copy of myBook" to "myStack"

save stack "myStack" as tPath

delete stack "myStack"

end if

end mouseUp

jpText3 f cREVGeneral revUniqueID 1085252978101 0000 myBook"0     jpText2 6 cREVGeneral revUniqueID 1085252740822 0000 myBook"0n     jpText1  cREVGeneral revUniqueID 1085250954194 0000 myBook"0k    backToDefaulte on mouseUp repeat with i = the number of cards of stack "myBook" down to 2 delete card i of stack "myBook" end repeat get the num of images of stack "myBook" if it >0 then delete image 1 of stack "myBook" openMyBook save stack "myBook" end mouseUp ~000000n0000k cREVGeneralscriptChecksumKWfks0u bookmarks revUniqueID 1085255814266 handlerListmouseUpscriptSelectionchar 265 to 264 prevHandlermouseUp tempScriptscript

on mouseUp

repeat with i = the number of cards of stack "myBook" down to 2

delete card i of stack "myBook"

end repeat

get the num of images of stack "myBook"

if it >0 then delete image 1 of stack "myBook"

openMyBook

save stack "myBook"

end mouseUp

jpText4  cREVGeneral revUniqueID 1085255814267 0000 myBook"0     toolsion mouseUp set the borderWidth of the target to 2 put the short name of the target into tTool switch tTool case "browse" choose browse tool break case "Magnifier" winStandalone if the num of images of stack "myBook" is 0 then beep answer information jpAnswer(paintFirst, jpText, 2, tPalette) exit to top end if choose pencil tool set the magnify of image 1 of cd 1 of stack "myBook" to true set the penColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette" break case "pencil" choose pencil tool set the penColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette" break case "brush" winStandalone choose brush tool set the brushColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette" break case "bucket" choose bucket tool set the brushColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette" break case "eraser" winStandalone choose eraser tool break case "spray can" winStandalone choose spray can tool set the brushColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette" break end switch end mouseUp on mouseDown set the borderWidth of the target to 3 end mouseDown on mouseEnter set the showborder of the target to true end mouseEnter on mouseLeave set the showborder of the target to false end mouseLeave ! cREVGeneral scriptChecksumՇO"Pa handlerList'mouseUp mouseDown mouseEnter mouseLeave breakPointsscriptSelectionchar 841 to 840 bookmarks revUniqueID 1085256799663 prevHandler mouseDown tempScriptscript

on mouseUp

set the borderWidth of the target to 2

put the short name of the target into tTool

switch tTool

case "browse"

choose browse tool

break

case "Magnifier"

winStandalone

if the num of images of stack "myBook" is 0 then

beep

answer information jpAnswer(paintFirst, jpText, 2, tPalette)

exit to top

end if

choose pencil tool

set the magnify of image 1 of cd 1 of stack "myBook" to true

set the penColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette"

break

case "pencil"

choose pencil tool

set the penColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette"

break

case "brush"

winStandalone

choose brush tool

set the brushColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette"

break

case "bucket"

choose bucket tool

set the brushColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette"

break

case "eraser"

winStandalone

choose eraser tool

break

case "spray can"

winStandalone

choose spray can tool

set the brushColor to the backgroundColor of grc "tColor" of cd 1 of stack "tPalette"

break

end switch

end mouseUp

on mouseDown

set the borderWidth of the target to 3

end mouseDown

on mouseEnter

set the showborder of the target to true

end mouseEnter

on mouseLeave

set the showborder of the target to false

end mouseLeave

 browse @  Browse ToolGIF89aeee!,hܾ@8!0DĠѲJl)pv4΍nCpD r;TE:`7u *e {E/9mf{qFkumqg;#$9{fQ !qof:[zfeW$# ; cREVGeneral revUniqueID 1084397780322 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script bucket @V Bucket ToolGIF89aggg"""񳳳!,ܾ ASDyG$,kڲ,@8@aPzRSg6(y,7@nڰrP!sRc0$3?wK}^=z$W>J~i+wI~<\y gQ}~e//~+sw'Vͧ ; cREVGeneral revUniqueID 1084397792248 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script eraser @n Eraser ToolGIF89aVVVeee!,Xܾ@8D(Ǡjp-.6E:܂R2"[`hì8џJb7JЄt\VQDŽ҆^w<bv{xy|/zmhoEAYA< ; cREVGeneral bookmarks revUniqueID 1084397802330 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript spray can @Spray Can ToolGIF89aiii!,Hܾa(X;DPU&hy_M[jx~LKZ@%*< @H9S"v Brush ToolGIF89aZZZ !,HܾBX#@ d`Dl {lav/q2F$` i+:s%k26tcי~5?@OwZ0S!`n]${!c/#_R^>j#4j]$=S3z$MEX!v ; cREVGeneral revUniqueID 1084426350885 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0scripttColorKPon mouseUp answer color with backColor of me if the result is "Cancel" then put the backgroundColor of me into fld "tColor" else set the backgroundColor of me to it put it into fld "tColor" set the brushColor to it end if end mouseUp ffffff@@ fillColor51,51,51 cREVGeneralscriptChecksumYR!o@@Gp&) revUniqueID 1085256842286 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 237 to 236scripte

on mouseUp

answer color with backColor of me

if the result is "Cancel" then

put the backgroundColor of me into fld "tColor"

else

set the backgroundColor of me to it

put it into fld "tColor"

set the brushColor to it

end if

end mouseUp

tColor RT cREVGeneral revUniqueID 1085256842287 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script 0,64,128 jpText)h,j cREVGeneral revUniqueID 1085257391287 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script   (0000000gRRPlayer 0Ou(0W0_X4T0    00000K0x00`0000o  %00000h0000`0Q0LOu(0g0M0~0Y0 $ +N0ntX0g0o0Y0y0f0n0000LOu(0g0M0~0Y0 *    0~0ZY00kOU0Kc0D0f0O0`0U0D0  0]0n_0gbY'0g0M0~0Y0      `g-unicodeToHtmlE Ion mouseUp set the text of fld 1 to the htmlText of fld 1 end mouseUp $p cREVGeneralscriptChecksum #՛A bookmarks revUniqueID 1085257391288 handlerListmouseUpscriptSelection char 72 to 71 prevHandlermouseUp tempScriptscript\

on mouseUp

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

end mouseUp

htmlToUnicodeE 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 "

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

" return it end noWarranties $p cREVGeneralscriptChecksumA(Ҿj?l0 bookmarks revUniqueID 1085257391289 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

 setSizeNfontE 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 @p cREVGeneralscriptChecksumSjir< C revUniqueID 1085257391290 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 1085257391291 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 46 to 45scriptq

on mouseUp

ask ""

find it in fld "jpText"

end mouseUp

 Field 1 n& cREVGeneral revUniqueID 1085257391292 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0"nexteEon mouseUp set the defaultStack to "myBook" go next end mouseUp XNk!0k cREVGeneralscriptChecksum`׍n(% revUniqueID 1085258255703 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 51 to 50scripti

on mouseUp

set the defaultStack to "myBook"

go next

end mouseUp

#preveEon mouseUp set the defaultStack to "myBook" go prev end mouseUp NRM0k cREVGeneralscriptChecksumSd7F5xԾ revUniqueID 1085258255704 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 51 to 50scriptq

on mouseUp

set the defaultStack to "myBook"

go prev

end mouseUp

%jpText5  cREVGeneral revUniqueID 1085258341605 0000 myBook"0n0000     &quitexon mouseUp quit end mouseUp TR}BN cREVGeneralscriptChecksum"qA|C: revUniqueID 1085262585519 bookmarks handlerListmouseUp tempScript prevHandlerscriptSelection char 18 to 17script2

on mouseUp

quit

end mouseUp

'tScript }Uon menuPick switch (the menuHistory of me) case 1 get the script of btn "newCard" break case 2 get the script of btn "deleteCard" break case 3 get the script of btn "saveMyBook" break case 4 get the script of btn "backToDefault" end switch answer information "The Script:" &cr&cr& it end menuPick 4lable0000000 fontSize14backgrouncolor51,51,510000000Se0W0D0000O\0 0S0n0000RJd 00000k0W0fO[X 000000n0000k  cpMode1 tFolderPath2 tFileList3 openFolder cREVGeneral scriptChecksum@]BMCaԅ breakPoints handlerListmenuPickscriptSelectionchar 267 to 266 revUniqueID 1085325812989 bookmarks tempScript prevHandlermenuPickscript

on menuPick

switch (the menuHistory of me)

case 1

get the script of btn "newCard"

break

case 2

get the script of btn "deleteCard"

break

case 3

get the script of btn "saveMyBook"

break

case 4

get the script of btn "backToDefault"

end switch

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

end menuPick

}myBookion openCard put the num of this cd &" / "& the num of cds of this stack into fld "tPage" end openCard sfMy Book ULucida Grande U ,japanese ULucida Grande UOsaka,Japanese UGenevacREVGeometryCachestackID1148 cREVGeneralscriptChecksumo7lH,5" bookmarks handlerListopenCardscriptSelection char 75 to 90 prevHandleropenCard tempScriptscript

on openCard

put the num of this cd &" / "& the num of cds of this stack into fld "tPage"

end openCard

o @cREVGeometryCacheIDs1085259606883111010852595010291109cREVGeometrycacheorder total2VSidl cREVGeneral revUniqueID 1085259419578 QtPage hd cREVGeneral revUniqueID 1085259305209 1 / 2Vill cREVGeneral revUniqueID 1085259606883 UtPage pd cREVGeneral revUniqueID 1085259501029 1 / 1