home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / volcano.dxr / 00016_VolcanoInactivity.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  1.0 KB  |  35 lines
  1. on VolcanoInactivity
  2.   global gInactivities, gCurrentScreen, gDifficultyLevel, gFloatSprite, gJewelStatus, gGameSol
  3.   if gFloatSprite = 0 then
  4.     if value(gInactivities) = VOID then
  5.       gInactivities = "0"
  6.     end if
  7.     nosound = 1
  8.     repeat with i = 1 to 4
  9.       if soundBusy(i) and (i <> 3) then
  10.         nosound = 0
  11.         exit repeat
  12.       end if
  13.     end repeat
  14.     if nosound then
  15.       gInactivities = string(value(gInactivities) + 1)
  16.       whichInactivity = value(gInactivities)
  17.       PromptCount = the number of items in field "744.inactivities"
  18.       if whichInactivity > PromptCount then
  19.         whichInactivity = PromptCount - ((whichInactivity - PromptCount) mod 2)
  20.       end if
  21.       whichResponse = item whichInactivity of field "744.inactivities"
  22.       if whichResponse = "7433" then
  23.         if char 8 of gJewelStatus = "0" then
  24.           HostSound(whichResponse)
  25.         end if
  26.       else
  27.         HostSound(whichResponse)
  28.       end if
  29.       go("flash5")
  30.       QueueHostSound("744128")
  31.       sayTool(gGameSol)
  32.     end if
  33.   end if
  34. end
  35.