Carousel/CAROUSEL.cdr/mactosh/hc/fingersp.sit/FingerSpell/stack.txt

Text File | 1988-11-14 | 4KB | 135 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2286
-- card count: 30
-- first card id: 18178
-- list block id: 10648
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 75296 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hide menuBar
  put "This stack is for demonstration purposes only and not for sale." into msg
  preswap "abcdefghijklmnopqrstuvwxyz"
  put empty
  go card start
end openStack

on signMessage options
  if message is empty then
    answer "Please type something into the message box."
  else
    put message into what
    signString what, options
  end if
end signMessage

on signString string,options
  put field "Speed" of card Start into delay
  put "" into repTest
  repeat with i = 1 to the length of string
    get char i of string
    if it is in " abcdefghijklmnopqrstuvwxyz" then
      if it is repTest then
        visual effect dissolve
        go to card "blank"
        wait 20 ticks
      end if
      if it is " " then
        visual effect dissolve
        go to card "blank"
        wait 20 ticks
      end if
      sign it
      put it into repTest
      if "prompt" is in options then hide button shade
      if "say" is in options then say it
      wait delay seconds
      show button shade
    end if
  end repeat
  go to card Start
  put "" into msg
end signString

on sign ch
  visual effect dissolve
  go to card ch
  show msg
end sign

on say ch
  if ch = " " then
    play "Silence" r
  else
    do "play " & ch
    play "silence" rs
  end if
end say

on preswap string
  repeat with i = 1 to the length of string
    do "play " & char i of string & " rx" -- 64th note rest
  end repeat
end preswap