home *** CD-ROM | disk | FTP | other *** search
/ Headbone Interactive / Headbone_Interactive_CD-ROM_Sampler_1995.iso / pc / demos / abf / mainxyz.dxr / 00162.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  2.2 KB  |  68 lines
  1. on getOverlayRhymeSprite
  2.   global gvCurLetter, gvActivity1ButtonSprite, gvActivity2ButtonSprite
  3.   set vPokeLetters to "XZ"
  4.   if vPokeLetters contains gvCurLetter then
  5.     set vRhymeSprite to gvActivity1ButtonSprite
  6.   else
  7.     set vRhymeSprite to gvActivity2ButtonSprite
  8.   end if
  9.   return vRhymeSprite
  10. end
  11.  
  12. on getPhotoActivityButton
  13.   global gvCurLetter, gvaPhoto
  14.   set vLetterNum to charToNum(gvCurLetter) - charToNum("A") + 1
  15.   set vWhichPhoto to gvaPhoto(mget, vLetterNum)
  16.   set vFFFPhoto1 to "Z"
  17.   set vFFFPhoto2 to "Y"
  18.   set vFFFPhoto3 to "XYZ"
  19.   if ((vWhichPhoto = 1) and (vFFFPhoto1 contains gvCurLetter)) or ((vWhichPhoto = 2) and (vFFFPhoto2 contains gvCurLetter)) or ((vWhichPhoto = 3) and (vFFFPhoto3 contains gvCurLetter)) then
  20.     set vButtonCast to the number of cast "FFFButt1.pic"
  21.   else
  22.     set vButtonCast to the number of cast "ANEButt1.pic"
  23.   end if
  24.   return vButtonCast
  25. end
  26.  
  27. on doWhoDoesWhat
  28.   global gvCurLetter, gvPokeProdLetters, gvSeekFindLetters, gvfRhymeTrack, DIR_SYM, SFX_EXT, gvActivity1ButtonSprite, gvActivity2ButtonSprite
  29.   set vfMouseDown to 0
  30.   if gvfRhymeTrack then
  31.     if gvPokeProdLetters contains gvCurLetter then
  32.       set vFileName to "RTrans7" & SFX_EXT
  33.       puppetSound(vFileName)
  34.       updateStage()
  35.       set vfMouseDown to animateChar(gvActivity2ButtonSprite, 12, 4, 0, 1)
  36.       if vfMouseDown then
  37.         sound stop 1
  38.       else
  39.         set vFileName to "RTrans8" & SFX_EXT
  40.         puppetSound(vFileName)
  41.         updateStage()
  42.         set vfMouseDown to animateChar(gvActivity1ButtonSprite, 10, 3, 0, 1)
  43.         if vfMouseDown then
  44.           sound stop 1
  45.         end if
  46.       end if
  47.     else
  48.       if gvSeekFindLetters contains gvCurLetter then
  49.         set vFileName to "RTrans5" & SFX_EXT
  50.         puppetSound(vFileName)
  51.         updateStage()
  52.         set vfMouseDown to animateChar(gvActivity2ButtonSprite, 12, 4, 0, 1)
  53.         if vfMouseDown then
  54.           sound stop 1
  55.         else
  56.           set vFileName to "RTrans6" & SFX_EXT
  57.           puppetSound(vFileName)
  58.           updateStage()
  59.           set vfMouseDown to animateChar(gvActivity1ButtonSprite, 10, 3, 0, 1)
  60.           if vfMouseDown then
  61.             sound stop 1
  62.           end if
  63.         end if
  64.       end if
  65.     end if
  66.   end if
  67. end
  68.