Imagination Express: Destination Pyramids/PYRAMIDS.ISO/DEMO/EDMARKDB/MENU.DXR/00141.ls

Text File | 1995-10-20 | 1.3 KB | 55 lines

on enterFrame
  global gbeenThere, gVoiceFlag
  if gbeenThere = 0 then
    repeat with nn = 3 to 7
      puppetSprite(nn, 1)
    end repeat
    if gVoiceFlag = 0 then
      puppetSound("SubMain.aif")
      set gVoiceFlag to 1
    end if
    set gbeenThere to 1
  end if
end

on exitFrame
  global userTimer, gAutoMode
  if gAutoMode then
    goSubAuto()
  else
    go(the frame)
    SubmenuRoll()
  end if
end

on SubmenuRoll
  if the mouseCast > 1 then
    set tempName to the name of cast the mouseCast
    if tempName contains "_Roll" then
      nothing()
    else
      repeat with nn = 2 to 24
        if the castNum of sprite nn < 1 then
          next repeat
        end if
        if the name of cast the castNum of sprite nn contains "_Roll" then
          set tempOld to the name of cast the castNum of sprite nn
          set tempOld to chars(tempOld, 1, length(tempOld) - 5)
          set the castNum of sprite nn to the number of cast tempOld
          exit repeat
        end if
      end repeat
      repeat with nn = 2 to 24
        if the castNum of sprite nn < 1 then
          next repeat
        end if
        if the name of cast the castNum of sprite nn = tempName then
          set the castNum of sprite nn to the number of cast (tempName & "_Roll")
          exit repeat
        end if
      end repeat
    end if
  end if
  updateStage()
end