home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SKILLS.dir / 00051_Script_51 < prev    next >
Text File  |  2001-09-05  |  1KB  |  41 lines
  1. on exitFrame
  2.   repeat with i = 3 to 11
  3.     puppetSprite i, true
  4.   end repeat
  5.   updateStage
  6.   concentration
  7. end
  8.  
  9. on concentration
  10.   global whichSkills,gGameType,NumPlayers,gDataSource,gUsePrevTest
  11.   global gSetUpListGame
  12.   
  13.   if not voidp(gSetUpListGame) then
  14.     if count(gSetUpListGame) > 0 then
  15.       repeat with i = 1 to count(gSetUpListGame)
  16.         set sp = getAt(gSetUpListGame,i)
  17.         set the castNum of sprite sp = (the castNum of sprite sp) + 2
  18.         mouseDown(script (the name of cast the castNum of sprite sp & " script"))
  19.       end repeat
  20.       updatestage
  21.     else   
  22.       set gSetUpListGame = []
  23.       
  24.       put "concentration" into whichSkills
  25.       
  26.       set gGameType = ""
  27.       set NumPlayers = 0
  28.       set gDataSource = ""
  29.       set gUsePrevTest = false
  30.     end if
  31.   else 
  32.     set gSetUpListGame = []
  33.     
  34.     put "concentration" into whichSkills
  35.     
  36.     set gGameType = ""
  37.     set NumPlayers = 0
  38.     set gDataSource = ""
  39.     set gUsePrevTest = false
  40.   end if
  41. end concentration