Webster's Millennium Amer…Sign Language Dictionary/ASL.ISO/mac/FS.dir/00001_Script_1

Text File | 2001-09-04 | 5KB | 202 lines

-- 7/24 mdt

on startMovie
  global gBSpList,gSpList,count,oldi

  global gWhere,myLoadWindow
  set the visible of sprite 48 = false
  updateStage

  InitMouse  -- This handler will initiate a when mousedown then handler for processing the mouse event queue.  It is located in the shared cast and called in the start of each director movie.

  set gWhere = ""

  insMenu 26,27

  set the enabled of menuItem 3 of menu "FingerSpelling" to false
  set the enabled of menuItem 4 of menu "Go To" to false

  set oldi = 0
  set count = 1
  set gSpList = [a:87,b:88,c:89,d:90,e:91,"f":92,g:93,h:94,i:95,j:96,k:97,l:98,m:99,"n":100,o:101,p:102,q:103,r:104,s:105,t:106,u:107,v:108,w:109,x:110,y:111,z:112," ":1000]

  set gBSpList = [a:61,b:62,c:63,d:64,e:65,"f":66,g:67,h:68,i:69,j:70,k:71,l:72,m:73,"n":74,o:75,p:76,q:77,r:78,s:79,t:80,u:81,v:82,w:83,x:84,y:85,z:86]


  if objectp(myLoadWindow) then
    close myLoadWindow
    forget myLoadWindow
  end if

end

on Roller rolloverlist
  global oldi

  repeat with i in rolloverlist
    if rollover(i) then

      set oldi = the castNum of sprite i
      set the castNum of sprite i = (the castNum of sprite i) + 1
      updatestage

      repeat while rollover(i)
        --updateStage
        if the mouseDown then
          set the castNum of sprite i = (the castNum of sprite i) + 1
          puppetSound "ClickLo" --, true
          updatestage
          repeat while the mouseDown
            if not rollover(i) then
              set release = 1
              exit repeat
            end if
          end repeat
          if not release then
            set the castNum of sprite i = (the castNum of sprite i) - 1
            puppetSound "ClickHi" --, true
            updatestage
            exit repeat
            pass
          end if
        end if

        updateStage
      end repeat

      if release then

        puppetSound "ClickHi" --, true
        updatestage
      end if

      set the castNum of sprite i = oldi

    end if

  end repeat

end Roller

on rollCheck rolloverlist
  global prevRollerDone,prevRollerDown
  repeat with i in rolloverlist

    if rollover(i) then
      --
      puppetSprite i,true

      if i = prevRollerDown and rollover(i) then
        ------
        if the mouseDown then
          set the castNum of sprite i = (the castNum of sprite i)+1
          puppetSound "ClickLo" --, true
          updatestage
          repeat while the mouseDown

          end repeat
          if rollover(i) then
            set the castNum of sprite i = (the castNum of sprite i)-2
            puppetSound "ClickHi" --, true
            set prevRollerDown = 0
            puppetSprite i,false
            updatestage
            exit
          end if
        end if
        ------
      else
        set the castNum of sprite i = (the castNum of sprite i)+1
        set prevRollerDown = i
        updatestage
      end if

      --
    else
      --
      if i = prevRollerDown then set prevRollerDown = 0
      puppetSprite i,false
      updatestage
      --
    end if
  end repeat
end

on shiftKeyFilter key
  set filterList = ["A":"a","B":"b","C":"c","D":"d","E":"e","F":"f","G":"g","H":"h","I":"i","J":"j","K":"k","L":"l","M":"m","N":"n","O":"o","P":"p","Q":"q","R":"r","S":"s","T":"t","U":"u","V":"v","W":"w","X":"x","Y":"y","Z":"z"]

  return (getaProp(filterList,key))

end


--on makeList theList
--  set tempList = [:]
--  repeat with i = 1 to Count(theList)
--    addProp(tempList,i,the rect of sprite (getAt(theList,i)))
--  end repeat
--  put tempList
--end

--***************************************** PRINT FUNCTIONS **************************
global doc,gW,gH

on PrintBitmap theCast
  PrePrint 1
  --content to be printed
  drawPicture doc, member theCast, Rect(0,0,gW,gH) -- append doc, member theCast, TRUE
  PostPrint
end

on min a,b
  -- a little script that returns the lesser of two values
  if a<b then
    return a
  else
    return b
  end if
end

on PrintText textString
  PrePrint
  --content to be printed
  append doc, RETURN & "American Sign Language 3.0", TRUE
  append doc, RETURN & RETURN & textString
  PostPrint
end printText


on PrintStage theRect, landscape
  PrePrint 1
  drawStagePicture doc, Point(0,0), theRect, TRUE
  PostPrint
end

on printWhatever

  if the frame = 2 then
    PrintBitmap "small fingerspelling chart"
  end if

  if the frameLabel = "puppet" then
    PrintStage rect(235, 98, 402, 342),1
  end if

  if the frameLabel = "puppet letters" then
    repeat with i = 1 to 8
      set the visible of sprite i = 0
    end repeat
    set the stageColor = 0
    PrintStage rect(18,50,616,405),1  --PRINTSTAGE
    repeat with i = 1 to 8
      set the visible of sprite i = 1
    end repeat
    set the stageColor = 255
  end if

end

on idle
  exit
end