home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / rockbal.dxr / 00093_RockBal_Inactivities.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  1.5 KB  |  58 lines
  1. on RockBal_Inactivities
  2.   global gInactivities, gResponses, gGameSol, gPlayOnly, gJewelStatus
  3.   if voidp(gInactivities) then
  4.     gInactivities = 0
  5.   end if
  6.   gInactivities = gInactivities + 1
  7.   InactField = root(the movieName) & ".Inactivities"
  8.   if castExists(InactField) then
  9.     TrolleyEmpty = 1
  10.     repeat with i = 39 to 44
  11.       if sprite(i).member.name <> "empty" then
  12.         TrolleyEmpty = 0
  13.         exit repeat
  14.       end if
  15.     end repeat
  16.     case gInactivities of
  17.       1:
  18.         if (gJewelStatus = "111111111") and not gPlayOnly then
  19.           HostSound("6133")
  20.         else
  21.           if TrolleyEmpty then
  22.             HostSound("764113")
  23.           else
  24.             if gGameSol < 0 then
  25.               put "2" into item 5 of gResponses
  26.               HostSound("764212")
  27.             else
  28.               put "1" into item 5 of gResponses
  29.               HostSound("764115")
  30.             end if
  31.           end if
  32.         end if
  33.       2:
  34.         if TrolleyEmpty then
  35.           HostSound("764111")
  36.         else
  37.           if gGameSol > 0 then
  38.             HostSound("764222")
  39.           else
  40.             HostSound("764232")
  41.           end if
  42.         end if
  43.       otherwise:
  44.         whichPrompt = item gInactivities - 1 of field InactField
  45.         if whichPrompt = "7633" then
  46.           if char 2 of gJewelStatus = "0" then
  47.             HostSound(whichPrompt)
  48.           else
  49.             HostSound("7631")
  50.           end if
  51.         else
  52.           HostSound(whichPrompt)
  53.         end if
  54.     end case
  55.   end if
  56.   set the timeoutLength to 12 * 60
  57. end
  58.