<script>on mouseUpput empty into card field Lrepeat with i=1 to 41put b & i into nget loc of card btn nput it into line i of card field Lend repeatend mouseUp-- on mouseUp-- repeat with i=1 to 41-- put b & i into n-- set name of card btn i to n-- end repeat-- end mouseUp</script>
<script>on mouseWithinput theFields() into fieldListif the selectedField is not empty then exit mouseWithinget the scroll of last item of fieldListif it <> the scroll of first item of fieldList thenput the textHeight of last item of fieldList into baseLineSizelock screenrepeat with count = 1 to (number of items in fieldList - 1)set scroll of (item count of fieldList) to itend repeatunlock screenend ifend mouseWithinfunction theFieldsreturn "card field id 5,card field id 4"end theFields</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>183</left>
<top>291</top>
<right>200</right>
<bottom>307</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5656</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownput theFields() into fieldListput the textHeight of item 1 of fieldList into baseLineSizeput the number of items in fieldList into numItemsrepeat until the mouse is upget (scroll of last item of fieldList) + baseLineSizelock screenrepeat with count = 1 to numItemsset scroll of (item count of fieldList) to itend repeatunlock screenend repeatend mouseDownfunction theFieldsreturn "card field id 5,card field id 4"end theFields</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>183</left>
<top>109</top>
<right>200</right>
<bottom>125</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5655</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownput theFields() into fieldListput the textHeight of item 1 of fieldList into baseLineSizeput the number of items in fieldList into numItemsrepeat until the mouse is upget (scroll of last item of fieldList) - baseLineSizelock screenrepeat with count = 1 to numItemsset scroll of (item count of fieldList) to itend repeatunlock screenend repeatend mouseDownfunction theFieldsreturn "card field id 5,card field id 4"end theFields</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>7</left>
<top>109</top>
<right>124</right>
<bottom>307</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>399</left>
<top>49</top>
<right>504</right>
<bottom>68</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>f</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>405</left>
<top>232</top>
<right>466</right>
<bottom>273</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>テ瓜テ叡テ曳</name>
<script>on mouseUpput cd fld "f" into Fif F is empty then exit mouseupanswer "テェ窶コテュテ凝ï」ソテッナ禿ァXテツオテ窶ケテ竏" with "Yes" or "Cancel"if it is "Cancel" thenclearexit mouseupend ifput empty into bg fld "batuList" of cd Frepeat with i=1 to (the number of lines of cd fld "lineNo")put line i of cd fld "batuList" into batuListif (batuList<1) or (batuList>20) then put empty into line i of cd fld "batulist"put line i of cd fld "batuList" into line i of bg fld "batuList" of cd Fend repeatput empty into bg fld "ofset" of cd Frepeat with i=1 to 10put line i of cd fld "ofset" into line i of bg fld "ofset" of cd Fend repeatput cd fld "ookisa" into line 11 of bg fld "ofset" of cd Fif hilite of cd btn id 23 is true thenput "true" into line 12 of bg fld "ofset" of cd Felseput "false" into line 12 of bg fld "ofset" of cd Fend ifput cd fld "otoList" into otoListrepeat with i=1 to 6put line i of cd fld "oto" into nput line n of otoList into line i of bg fld "oto" of cd Fend repeatclearend mouseUpon clearput empty into cd fld "f"put empty into cd fld "batuList"put empty into cd fld "oto"put empty into cd fld "ookisa"put empty into cd fld "ofset"set hilite of cd btn id 23 to falseend clear</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>235</left>
<top>109</top>
<right>283</right>
<bottom>271</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ofset</name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>235</left>
<top>289</top>
<right>283</right>
<bottom>306</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ookisa</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>482</left>
<top>109</top>
<right>507</right>
<bottom>207</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>oto</name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>366</left>
<top>109</top>
<right>483</right>
<bottom>207</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>306</left>
<top>109</top>
<right>362</right>
<bottom>295</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>otoList</name>
<script>on mouseupget the rect of meput (item 2 of the clickloc - item 2 of it) div 12 into tateadd 1 to tateget line tate of meplay itend mouseup</script>
<script>on chengeListlock screenget short name of targetput it into cd fld "f"put empty into cd fld "batuList"put number of lines of bg fld "masu" of cd it into Lput empty into cd fld "lineNo"repeat with i=1 to Lput i into line i of cd fld "lineNo"end repeatput bg fld "batuList" of cd it into cd fld "batuList"put "ホゥツソ竏榿" into line 1 of cd fld "batuList"put "ツア竏ゑャテソ" into line L of cd fld "batuList"repeat with i=1 to 10put line i of bg fld "ofset" of cd it into line i of cd field "ofset"end repeatput line 11 of bg fld "ofset" of cd it into cd field "ookisa"if line 12 of bg fld "ofset" of cd it is true thenset hilite of cd btn id 23 to trueelseset hilite of cd btn id 23 to falseend ifput empty into cd fld "oto"put cd fld "otoList" into otoListrepeat with j=1 to 6put line j of bg fld "oto" of cd it into otorepeat with i=1 to 15if (line i of otoList) is oto thenput i into line j of cd fld "oto"exit repeatend ifend repeatend repeatset scroll of cd fld "batuList" to 0set scroll of cd fld "lineNo" to 0end chengeList</script>
</card>
card_4449.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closecardrepeat with i=1 to 5put "a" & i into nput cd fld n into line (11+i) of cd fld "aiueo" of cd "namae"end repeatend closecard</script>
</card>
card_5530.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput 1 into cd fld "aNo"set hilite of me to trueset hilite of cd btn "aa2" to falseset hilite of cd btn "aa3" to falseset hilite of cd btn "aa4" to falseset hilite of cd btn "aa5" to falseend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>142</left>
<top>161</top>
<right>162</right>
<bottom>182</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>aa2</name>
<script>on mouseUpput 2 into cd fld "aNo"set hilite of me to trueset hilite of cd btn "aa1" to falseset hilite of cd btn "aa3" to falseset hilite of cd btn "aa4" to falseset hilite of cd btn "aa5" to falseend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>142</left>
<top>196</top>
<right>162</right>
<bottom>217</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>aa3</name>
<script>on mouseUpput 3 into cd fld "aNo"set hilite of me to trueset hilite of cd btn "aa2" to falseset hilite of cd btn "aa1" to falseset hilite of cd btn "aa4" to falseset hilite of cd btn "aa5" to falseend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>142</left>
<top>231</top>
<right>162</right>
<bottom>252</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>aa4</name>
<script>on mouseUpput 4 into cd fld "aNo"set hilite of me to trueset hilite of cd btn "aa2" to falseset hilite of cd btn "aa3" to falseset hilite of cd btn "aa1" to falseset hilite of cd btn "aa5" to falseend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>143</left>
<top>267</top>
<right>163</right>
<bottom>288</bottom>
</rect>
<style>radiobutton</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>aa5</name>
<script>on mouseUpput 5 into cd fld "aNo"set hilite of me to trueset hilite of cd btn "aa2" to falseset hilite of cd btn "aa3" to falseset hilite of cd btn "aa4" to falseset hilite of cd btn "aa1" to falseend mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>197</left>
<top>305</top>
<right>290</right>
<bottom>327</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>テテ佚竏</name>
<script>on mouseUpget cd fld "aNo"put "a" & it into nput empty into cd fld nend mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>6</left>
<top>45</top>
<right>117</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Rkey</name>
<script>on mouseUpput "テ窶 テツ「テツァテツカテツョテツゥテツエテ竕 テテ佚ツアテ竕・テツオテ竏妥マ\テツェ"ツャ& "テホゥテテクテツャテニ津竏テツサテ窶ヲテツ テテ\テテεテ陛窶禿窶敕テキテナクテ窶ケテ窶コテïャテïャづ窶。"ツャ& "テ窶堙①テ窶ーテ①テテ甘テテテ凝テ暗テ催テ偲テ古テ" into D--get cd fld "aNo"put "a" & it into n--get the rect of targetput (item 2 of the clickloc - item 2 of it) div 18 into tateput (item 1 of the clickloc -item 1 of it) div 21 into yokoput tate *5+yoko+1 into xy--if tate > 9 thenput line (tate+1) of cd fld "aiueo" into cd fld nelse if xy is 48 thenget last char of cd fld nif it is "テツゥ" then put "テ邃「" into last char of cd fld nelse if it is "テツエ" then put "テツィ" into last char of cd fld nelse if it is "テ竕 " then put "テテ" into last char of cd fld nelse if it is "テテ" then put "テ竏" into last char of cd fld nelse if it is "テツア" then put "テ竕、" into last char of cd fld nelse if it is "テ竕・" then put "テツ・" into last char of cd fld nelse if it is "テツオ" then put "テ竏" into last char of cd fld nelse if it is "テ竏" then put "テ竏" into last char of cd fld nelse if it is "テマ\" then put "テ竏ォ" into last char of cd fld nelse if it is "テツェ" then put "テツコ" into last char of cd fld nelse if it is "テホゥ" then put "テテヲ" into last char of cd fld nelse if it is "テテク" then put "テツソ" into last char of cd fld nelse if it is "テツャ" then put "テ竏" into last char of cd fld nelse if it is "テニ" then put "テ竕" into last char of cd fld nelse if it is "テ竏" then put "テツォ" into last char of cd fld nelse if it is "テテ" then put "テナ" into last char of cd fld nelse if it is "テ窶" then put "テ窶" into last char of cd fld nelse if it is "テ窶" then put "テ窶" into last char of cd fld nelse if it is "テテキ" then put "テ笳" into last char of cd fld nelse if it is "テナク" thenput "テ竅" into last char of cd fld nend ifelse if xy is 49 thenget last char of cd fld nif it is "テテ" then put "テナ" into last char of cd fld nelse if it is "テ窶" then put "テ窶" into last char of cd fld nelse if it is "テ窶" then put "テ窶" into last char of cd fld nelse if it is "テテキ" then put "テテソ" into last char of cd fld nelse if it is "テナク" thenput "テ竄ャ" into last char of cd fld nend ifelse if char 1 of D is "テ窶 " thenput char xy of D after cd fld nelseput char (xy*2-1) to (xy*2) of D after cd fld nend ifend mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>161</top>
<right>485</right>
<bottom>192</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<name>テ竏妥竕、テテ偲竕 1</name>
<script>on mouseUpgoSugorokuend mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>195</top>
<right>485</right>
<bottom>226</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<name>テ竏妥竕、テテ偲竕 2</name>
<script>on mouseUpgoSugorokuend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>395</left>
<top>87</top>
<right>484</right>
<bottom>109</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>テ竏づツキテテ津テ佚テ</name>
<script>on mouseUpput cd fld "a1" into a1put cd fld "a2" into a2put cd fld "a3" into a3put cd fld "a4" into a4put cd fld "a5" into a5put the icon of cd btn "a1" into ia1put the icon of cd btn "a2" into ia2put the icon of cd btn "a3" into ia3put the icon of cd btn "a4" into ia4put the icon of cd btn "a5" into ia5repeat with i=1 to 5put "a" & i into nput empty into cd fld nend repeatput empty into Krepeat with i=1 to 5repeatput random of 5 into jif j is not in K thenput j after Kexit repeatend ifend repeatend repeatput "a" & char 1 of K into nput a1 into cd fld nset the icon of cd btn n to ia1put "a" & char 2 of K into nput a2 into cd fld nset the icon of cd btn n to ia2put "a" & char 3 of K into nput a3 into cd fld nset the icon of cd btn n to ia3put "a" & char 4 of K into nput a4 into cd fld nset the icon of cd btn n to ia4put "a" & char 5 of K into nput a5 into cd fld nset the icon of cd btn n to ia5-- repeat-- put random of 5 into j-- put "a" & j into n-- if cd fld n is empty then-- put a1 into cd fld n-- exit repeat-- end if-- end repeat-- repeat-- put random of 5 into j-- put "a" & j into n-- if cd fld n is empty then-- put a2 into cd fld n-- exit repeat-- end if-- end repeat-- repeat-- put random of 5 into j-- put "a" & j into n-- if cd fld n is empty then-- put a3 into cd fld n-- exit repeat-- end if-- end repeat-- repeat-- put random of 5 into j-- put "a" & j into n-- if cd fld n is empty then-- put a4 into cd fld n-- exit repeat-- end if-- end repeat-- repeat with j=1 to 5-- put "a" & j into n-- if cd fld n is empty then-- put a5 into cd fld n-- exit repeat-- end if-- end repeatend mouseUp</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>317</left>
<top>87</top>
<right>378</right>
<bottom>109</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>テツアテ窶ケテテε、G</name>
<script>on mouseUpget icon of cd btn "a1"put char 3 of it into Cadd 1 to Cif C > 4 then put 1 into Crepeat with i=1 to 5put "50" & C & i into iconNoput "a" & i into nset icon of cd btn n to iconNoend repeatend mouseUp</script>
<script>on mouseUppush this cardlock screengo cd "pump" of stack "テ竏妥竕、テテ偲竕 テナ津ツャ" in a new windowunlock screenwait 180pop cardend mouseUp</script>
<script>on closecardrepeat with i=1 to 5put "a" & i into nput cd fld n into line i of bg fld "m" of cd "テ竏妥竕、テテ偲竕 1"end repeatend closecardon getIconglobal ia1,ia2,ia3,ia4,ia5put the icon of cd btn "a1" into ia1put the icon of cd btn "a2" into ia2put the icon of cd btn "a3" into ia3put the icon of cd btn "a4" into ia4put the icon of cd btn "a5" into ia5end getIconon setIconglobal ia1,ia2,ia3,ia4,ia5set the icon of cd btn "a1" to ia1set the icon of cd btn "a2" to ia2set the icon of cd btn "a3" to ia3set the icon of cd btn "a4" to ia4set the icon of cd btn "a5" to ia5end setIconon goSugorokuglobal pitari,macKoeput hilite of cd btn "pitari" into pitariput hilite of cd btn "ON" of card "settei" into macKoeget short name of targetgetIconvis itsetIconsyokiend goSugoroku</script>
</card>
card_5361.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on opencardhide cd btn "maku"put 20 into rptrepeatput loc of cd btn "ball" into Bput (260-(random of 100)) into AHput (150-(random of 100)) into AVput trunc((AH-(item 1 of B))/rpt) into ofHput trunc((AV-(item 2 of B))/rpt) into ofVrepeat with i=1 to rptadd ofH to item 1 of Badd ofV to item 2 of Bset loc of cd btn "ball" to BcheckM --end repeatwait 30furuendfallend repeatend opencardon closecardshow cd btn "maku"end closecardon checkMif the mouseclick is true thenvis "namae"exit to hypercardend ifend checkMon endfallglobal kazuwait 30put cd fld "iti" into itirepeat with i=1 to kazuadd 1 to itiif iti > 10 then put 1 into itiput "50" & (random of 4) & (random of 5) into iconNoput iti into cd fld "iti"get line iti of cd fld "masu"hide cd btn "a"set icon of cd btn "a" to iconNoshow cd btn "a" at itplay "Harpsichord"wait until the sound is "done"checkMend repeatend endfallon furuglobal kazurepeat until the mouse is upshow cd btn "ball" at the mouseLocend repeatdieFallput last char of icon of cd btn "ball" into kazuend furuon dieFallput "テ竏テテ津窶愿テづ [テテ" into otoput bottom of this cd - 30 into floor -- doesn't changeput 1.2 into gravity -- doesn't changeput 2.0 into bounce -- doesn't changeput 4 into decay -- gets higherput right of this card into edgeput item 1 of loc of cd btn "ball" into horzif horz > edge then put edge + 16 into horzput item 2 of loc of cd btn "ball" into vertput 4 into increment-- die on his way downrepeatif decay > 4 thenrepeat with i = 1 to 4checkM --------set icon of cd btn "ball" to (2100 + random(6))add increment to horzif horz >= edge thenplay otoput edge into horzput -4 into incrementend ifsubtract (2 * i) from vertshow cd btn "ball" at horz,vertend repeatrepeat with i = 1 to 4checkM -----------set icon of cd btn "ball" to (2100 + random(6))add increment to horzif horz >= edge thenplay otoput edge into horzput -4 into incrementend ifadd (2 * (5 - i)) to vertshow cd btn "ball" at horz,vertend repeatelse add 2 to horzrepeatcheckM ------------show cd btn "ball" at horz,vertput decay^(gravity) into decayput round(vert + decay) into vertif vert > floor thenput floor into vertexit repeatend ifend repeat-- die at the bottomshow cd btn "ball" at horz,vertset icon of cd btn "ball" to (2100 + random(6))play otoput decay/bounce into decayrepeatcheckM ------------put vert into tempput decay^(1/gravity) into decayput round(vert - decay) into vertif horz > edge then put (edge -16) into horzshow cd btn "ball" at horz,vertif abs(vert - floor) < 10 thenset icon of cd btn "ball" to (2100 + random(6))put floor into vertshow cd btn "ball" at horz,vertexit dieFallend ifif temp - vert < 10 then exit repeatend repeatend repeatend dieFall</script>