#!/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 "$@" 1 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 KT My Palette ULucida Grande U ,japanese UOsaka,Japanese ULucida Grande UOsaka,Japanese UGeneva ULucida Grande UOsaka UOsaka Ugeneva,english U ,japanese cREVGeneralscriptChecksumn\poly]Ⱥ debugObjects bookmarks handlerList@preOpenStack openStack closeStack openMyBook jpAnswer englishTagscriptSelection char 21 to 20 prevHandler closeStack tempScriptscript\

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 winStandalonescriptSelectionchar 216 to 215 prevHandler winStandalone tempScriptscript

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'% revUniqueID 1085250334325 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 72 to 71script

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 revUniqueID 1085250987311 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 194 to 193script

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` revUniqueID 1085252740823 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 275 to 274script

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 bookmarks revUniqueID 1085250954194 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript 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 revUniqueID 1085255814266 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 265 to 264script

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     toolsi~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 if tTool is "Magnifier" then set the loc of grc "selected" to the loc of image "pencil" else set the loc of grc "selected" to the loc of the target end if end mouseUp % cREVGeneral scriptChecksum;QzB5q-X breakPoints handlerListmouseUpscriptSelectionchar 1288 to 1287 revUniqueID 1085256799663 bookmarks tempScript prevHandler mouseDownscript

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

if tTool is "Magnifier" then

set the loc of grc "selected" to the loc of image "pencil"

else

set the loc of grc "selected" to the loc of the target

end if

end mouseUp

 browse @  Browse ToolGIF89aeee!,hܾ@8!0DĠѲJl)pv4΍nCpD r;TE:`7u *e {E/9mf{qFkumqg;#$9{fQ !qof:[zfeW$# ; cREVGeneral bookmarks revUniqueID 1084397780322 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript bucket @T Bucket ToolGIF89aggg"""񳳳!,ܾ ASDyG$,kڲ,@8@aPzRSg6(y,7@nڰrP!sRc0$3?wK}^=z$W>J~i+wI~<\y gQ}~e//~+sw'Vͧ ; cREVGeneral bookmarks revUniqueID 1084397792248 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript eraser @l Eraser ToolGIF89aVVVeee!,Xܾ@8D(Ǡjp-.6E:܂R2"[`hì8џJb7JЄt\VQDŽ҆^w<bv{xy|/zmhoEAYA< ; cREVGeneral revUniqueID 1084397802330 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script spray can @Spray Can ToolGIF89aiii!,Hܾa(X;DPU&hy_M[jx~LKZ@%*< @H9S"von 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 bookmarks revUniqueID 1085256842287 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript 255,128,0 jpText)h,j cREVGeneral bookmarks revUniqueID 1085257391287 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript   (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 revUniqueID 1085257391288 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 72 to 71script\

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 revUniqueID 1085257391289 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

 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 bookmarks revUniqueID 1085257391290 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 1085257391291 handlerListmouseUpscriptSelection char 46 to 45 prevHandlermouseUp tempScriptscriptq

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(% bookmarks revUniqueID 1085258255703 handlerListmouseUpscriptSelection char 51 to 50 prevHandlermouseUp tempScriptscripti

on mouseUp

set the defaultStack to "myBook"

go next

end mouseUp

#preveEon mouseUp set the defaultStack to "myBook" go prev end mouseUp NRM0k cREVGeneralscriptChecksumSd7F5xԾ bookmarks revUniqueID 1085258255704 handlerListmouseUpscriptSelection char 51 to 50 prevHandlermouseUp tempScriptscriptq

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: bookmarks revUniqueID 1085262585519 handlerListmouseUpscriptSelection char 18 to 17 prevHandler tempScriptscript2

on mouseUp

quit

end mouseUp

'tScript }Aon menuPick switch (the menuHistory of me) case 1 get the script of grp "tools" break case 2 get the script of btn 1 of cd 1 of stack "brushPattern" break case 3 get the script of cd 1 of stack "brushPattern" break end switch answer information "The Script:" &cr&cr& it end menuPick 6lable0000000 fontSize14backgrouncolor51,51,51000000F0000n0000 0000000N 0n000 00000000n000  cpMode1 tFolderPath2 tFileList3 openFolder cREVGeneral scriptChecksumNy; ~O handlerListmenuPick breakPointsscriptSelectionchar 247 to 246 bookmarks revUniqueID 1085325812989 prevHandlermenuPick tempScriptscript

on menuPick

switch (the menuHistory of me)

case 1

get the script of grp "tools"

break

case 2

get the script of btn 1 of cd 1 of stack "brushPattern"

break

case 3

get the script of cd 1 of stack "brushPattern"

break

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 _My Book ULucida Grande U ,japanese ULucida Grande UOsaka,Japanese UGenevacREVGeometryCachestackID1160 cREVGeneralscriptChecksumo7lH,5" bookmarks handlerListopenCard tempScript prevHandleropenCardscriptSelection char 75 to 90script

on openCard

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

end openCard

o @cREVGeometryCacheIDs1085259606883111010852595010291109cREVGeometrycachetotal2orderVSidl cREVGeneral revUniqueID 1085259419578 QtPage hd cREVGeneral revUniqueID 1085259305209 1 / 2Vill cREVGeneral revUniqueID 1085259606883 UtPage pd cREVGeneral revUniqueID 1085259501029 1 / 1 brushPatternx ULucida Grande PYon openCard set the loc of image "locator" to the loc of grc "selected" end openCard x cREVGeneralscriptChecksum}\d"@_v:2 bookmarks handlerListopenCard tempScript prevHandler mouseMovescriptSelection char 89 to 88script

on openCard

set the loc of image "locator" to the loc of grc "selected"

end openCard

 baseImage  @xGIF89axBBBCCC!,xڋq #6ܚdw n+FS&J;0=h20 ;udn}l"F. #M%Gb58""xs3wg6iv0XQ%70jg1 '9XK'Au(K|Pקi}K܊sH$9M.7n}n:ɸo./ -؃_&;TzKJqlW43aO3PKha/ :A?nBe3b%סFĬg!PJfDyNQPRaiױ 22քڛDݛv-#}>7޽|!WSCơ\IEc(Ks$Gh_6_FO8h0쨺lYjbE\|bJI\`-tg3. 7̗vܶ} ^*?BJ"g,i@k նpOPi$5U!%\n~ r$&LQ IgLکxrٞ>Iʧ,@H2P':@CAOFDQ s=Ԁ ʦB~G)^9V맯bXk +Z%RŪ+:mNŽg+ujl^pɦ7~VujG+7ppL& S=*9g;:|/m& pK^majЇEȫ-6{kSK1+9A } ;IE޺Uz5*/a@ݰȼKZM}![nh,3žT`ӄw`xL8ҋ;waOtifY)+f{jrDmua9ĉ,o_S:ӳwݻ6{;z;;O|S͇:.._+`8,Ecu5GIrڣ/X/<џ% O4;˩dJp/ jpSa/ea0Fn+XXp#2s@pw%#GGѣs% $8Os~E(JqT,jq\X߁qHFqk$+8! OqG\1Tcm@,hD*\#EGFI!1KB

 Button 1(@constant numCol=4,numRow=8 local lColNum,lRowNum,lWLocator,lHLocator on mouseMove put the width of image "locator" into lWLocator put the height of image "locator" into lHLocator if item 1 of mouseLoc() >=0 and item 1 of mouseLoc()=0 and item 2 of mouseLoc()constant numCol=4,numRow=8

local lColNum,lRowNum,lWLocator,lHLocator

on mouseMove

put the width of image "locator" into lWLocator

put the height of image "locator" into lHLocator

if item 1 of mouseLoc() >=0 and item 1 of mouseLoc()<the width of image "baseImage" and \

item 2 of mouseLoc() >=0 and item 2 of mouseLoc()<the height of image "baseImage" then

put numCol-1 - (the width of image "baseImage" - item 1 of mouseLoc()) \

div the width of image "locator" into lColNum

put numRow-1 - (the height of image "baseImage" - item 2 of mouseLoc()) \

div the height of image "locator" into lRowNum

set the loc of image "locator" to lWLocator/2 + lColNum*lWLocator, \

lHLocator/2 + lRowNum*lHLocator

end if

end mouseMove

on mouseUp

set the brush to (lColNum + lRowNum*numCol +1)

set the loc of grc "selected" to lWLocator/2 + lColNum*lWLocator, \

lHLocator/2 + lRowNum*lHLocator

end mouseUp

 selectedKZ cREVGeneral revUniqueID 1085409585096