home *** CD-ROM | disk | FTP | other *** search
/ Quick Study Spanish / DISK_1_QSSP.iso / tlc.z / KARAOKE.MPS < prev    next >
Text File  |  1997-07-03  |  2KB  |  99 lines
  1. ;Warning!  Do not modify this file.
  2.  
  3. yield on
  4. SceneBlack 4500
  5. bids=HGButtonID
  6.  
  7. textOn=1
  8. tranOn=0
  9. voiceOn=1
  10.  
  11. ;#define    JUKE_BOX_TEXT_BUTTON    10030
  12. set bids ButtonID 10030
  13. get bids X1Pos X
  14. get bids Y1Pos Y
  15. get bids ResID RESID
  16. pbText=RVButton X Y RESID
  17. set pbText hit goText
  18. set pbText "State" textOn
  19.  
  20. ;#define    JUKE_BOX_TRAN_BUTTON    10031
  21. set bids ButtonID 10031
  22. get bids X1Pos X
  23. get bids Y1Pos Y
  24. get bids ResID RESID
  25. pbTran=RVButton X Y RESID
  26. set pbTran hit goTran
  27. set pbTran "State" tranOn
  28.  
  29. ;#define    JUKE_BOX_VOIC_BUTTON    10032
  30. set bids ButtonID 10032
  31. get bids X1Pos X
  32. get bids Y1Pos Y
  33. get bids ResID RESID
  34. pbVoice=RVButton X Y RESID
  35. set pbVoice hit goVoice
  36. set pbVoice "State" voiceOn
  37.  
  38. ;#define    JUKE_BOX_EXIT_SPOT    10034
  39. set bids ButtonID 10034
  40. get bids X1Pos X1
  41. get bids Y1Pos Y1
  42. get bids X2Pos X2
  43. get bids Y2Pos Y2
  44. pbExit=RHotSpot X1 Y1 X2 Y2
  45. set pbExit hit goExit
  46.  
  47. ;#define    JUKE_BOX_HELP_BUTTON    10033
  48. pbHelp=RPButton 284 428 4513
  49. set pbHelp hit goHelp
  50.  
  51. ka=karaoke
  52.  
  53. wait
  54.  
  55. procedure goText
  56. [
  57.   get pbText "State" textOn
  58.   if textOn=1
  59.   [
  60.     tranOn=0
  61.     set pbTran "State" tranOn
  62.   ]
  63.   play ka regim (textOn*4+tranOn*2+voiceOn)
  64. ]
  65.  
  66. procedure goTran
  67. [
  68.   get pbTran "State" tranOn
  69.   if tranOn=1
  70.   [
  71.     textOn=0
  72.     set pbText "State" textOn
  73.   ]
  74.   play ka regim (textOn*4+tranOn*2+voiceOn)
  75. ]
  76.  
  77. procedure goVoice
  78. [
  79.   get pbVoice "State" voiceOn
  80.   play ka regim (textOn*4+tranOn*2+voiceOn)
  81. ]
  82.  
  83. procedure goExit
  84. [
  85.   exit
  86. ]
  87.  
  88. procedure goHelp
  89. [
  90.   play ka stopSong
  91. ;#define    HELP_JUKE_BOX            911
  92.   set bids StringID    911
  93.   get bids String hs
  94.   Help hs
  95. ;  Help "Music International"
  96. ]
  97.  
  98.  
  99.