home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 21 / cdromtoday-21.iso / pc / multbird / birddemo.dir / 00157_Script_157 < prev    next >
Text File  |  1995-06-27  |  557b  |  26 lines
  1. on mouseDown
  2.   global birdFind,currBird,birdsAvailible,birdFindInfo,localDir,maxMonth,homeDir
  3.   
  4.   
  5.   
  6.   if (getAt(birdsAvailible,birdFind))=currBird then
  7.     sound stop 1
  8.     sound stop 2
  9.     
  10.     playPuppet("correct")
  11.     updateUserInfo( (getAt(birdFindInfo,1)) , (getAt(birdFindInfo,2)) )
  12.     saveUserInfo(userInfo)
  13.     cursor 4
  14.     set currMonth = getAt(birdFindInfo,1)
  15.     set currItem = getAt(birdFindInfo,2)
  16.     
  17.     
  18.     go "start" of movie localDir&"profile.dir"
  19.     
  20.     
  21.   else
  22.     playPuppet("incorrect")
  23.   end if 
  24. end
  25.  
  26.