HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/UTIL/ポケベル暗号スタック1.3.sit/ポケベル暗号スタック1.3/ポケベル暗号スタック1.3F/ポケベルエディタF/card_2311.txt

Text File | 1995-08-04 | 5KB | 236 lines

-- card: 2311 from stack: in
-- bmap block id: 4586
-- flags: 0000
-- background id: 2765
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=118 right=140 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: あ
----- HyperTalk script -----
on mouseUp
  Play "ﾃ･ﾂｯﾃ｢ﾂ "
  put "1" after cd fld "ﾃ‡ﾃε…[ﾃ‡竏†"
  lock screen
end mouseUp



-- part 6 (field)
-- low flags: 05
-- high flags: 0002
-- rect: left=21 top=27 right=58 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: のーと


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=338 top=28 right=60 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 削除
----- HyperTalk script -----
on mouseUp
  answer "ﾃｱ{ﾃｬﾃｱﾃ‡窶ｦﾃｨﾂ｡ﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"
  if it is "ﾃ‡ﾃ陛‡ﾂ｢" then
    put empty into cd fld "ﾃ‡ﾃε…[ﾃ‡竏†"
  end if
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=141 right=163 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: い
----- HyperTalk script -----
on mouseUp
  Play "ﾃ･ﾂｯﾃ｢ﾂ "
  put "1" after cd fld "ﾃ‡ﾃε…[ﾃ‡竏†"
  lock screen
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=164 right=186 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: う
----- HyperTalk script -----
on mouseUp
  Play "ﾃ･ﾂｯﾃ｢ﾂ "
  put "U" after cd fld "ﾃ‡ﾃε…[ﾃ‡竏†"
  lock screen
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=187 right=209 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: え
----- HyperTalk script -----
on mouseUp
  Play "ﾃ･ﾂｯﾃ｢ﾂ "
  put "8" after cd fld "ﾃ‡ﾃε…[ﾃ‡竏†"
  lock screen
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=210 right=232 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: お
----- HyperTalk script -----
on mouseUp
  Play "ﾃ･ﾂｯﾃ｢ﾂ "
  put "0" after cd fld "ﾃ‡ﾃε…[ﾃ‡竏†"
  lock screen
end mouseUp



-- part 82 (field)
-- low flags: 05
-- high flags: 0002
-- rect: left=23 top=76 right=90 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 83 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=339 top=64 right=96 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 検索
----- HyperTalk script -----
on mouseUp
  visual effect checkerboard
  go to card id 2440 of stack "ﾃ榎ﾃ臼ﾃ悦ﾃ嘉｣ﾃ 竏堙ｧﾃ愿厩ﾃ運ﾃ叡ﾃ丑1.3F"
end mouseUp




-- part 85 (field)
-- low flags: 05
-- high flags: 0002
-- rect: left=38 top=134 right=217 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 86 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=302 top=28 right=60 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  Play "ﾃ･ﾂｯﾃ｢ﾂ "
  if cd fld "ﾃ‡ﾃε…[ﾃ‡竏†" is empty
  then
  beep
  answer "ﾃ映ﾃ…[ﾃ運ﾃ‡邃｢ﾃｧﾃ湘ｪﾂｨﾃ‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③ﾃ‡窶禿‡ﾃﾃ‡邃｢ﾃ‡ﾂｻﾃ閲ﾃ運ﾃ嘉ｬﾃ‡竕暗ｯ窶愿ｨWﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"
  exit mouseup
end if
ask file "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ‡ﾃ陛⑨" with "ﾃ榎ﾃ臼ﾃ‡ﾂｱﾃ‡竏†ﾃ‡ﾅ’"
if it is empty then exit mouseUp
put it into outfile
open file outfile
set the cursor to busy
write cd fld "ﾃ‡ﾃε…[ﾃ‡竏†" to file outfile
close file outfile
end mouseUp



-- part contents for card part 82
----- text -----
ﾃ榎ﾃ臼ﾃ悦ﾃ嘉｣ﾃ‡竕暗ｩgﾃ‡ﾃ古‡ﾃ催‡ﾃ暗ｯWﾃｨﾃ„ﾃ‡ﾃε鵜ﾃ…[ﾃ‡邃｢ﾃ､ﾃ妥‡ﾃ凝ｬﾃｱﾃ‡ﾆ津‡ﾃﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③

-- part contents for card part 85
----- text -----
ﾃｱ{ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ‡ﾂｩﾃ‡ﾃﾃｭﾂｫﾃ｢ﾂ｡ﾃ‡竕･ﾃ‡ﾃ催‡ﾎｩﾃｪVﾃ‡ﾂｵﾃ‡ﾂ｢ﾃ｣@ﾃｮ¥ﾃ‡竕暗‡竏妥③
ﾃ､eﾃ鵜ﾃ…[ﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②ﾃ‡ﾂｪﾃ‡ﾃ催‡ﾂｺﾃ‡ﾃ催‡ﾃε･ﾃｦﾃｳtﾃ‡窶ｦﾃｫﾅ津｢ﾃｻﾃ‡ﾂｵﾃ‡ﾎｩﾃ榎ﾃ臼ﾃ‡ﾂｱﾃ‡竏†ﾃ‡ﾅ津‡窶ｦﾃｯﾅ禿､竏妥‡竏妥‡ﾃ暗‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡竏妥③ﾃ｣@ﾃｮ¥ﾃ‡竏妥‡ﾃ暗‡ﾃε‡ﾃ陛②ﾃ‡窶 ﾃｧsﾃ‡ﾃε､eﾃｯ竏づｩﾃｶﾃ‡ﾃｦﾃ‡ﾃ佚‡竕暗‡竏妥③ﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津②ﾃ‡ﾂｫﾃ‡ﾃ津‡ﾂｻﾃ｣ﾃ氾ｧﾃ｡ﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾃ暗‡ﾃε‡ﾂｩﾃｩﾃｩﾃ‡ﾂｵﾃ‡ﾆ津‡窶ｺﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③