Hollywood forums

do you know the programming language Hollywood?

ChatGPT
Yes, Hollywood is a programming language designed for multimedia applications. It was originally created for the Amiga computer platform but has since been made available for other systems, including Windows, macOS, Linux, and Android. Hollywood is known for its simplicity and ease of use, making it accessible for creating multimedia-rich applications, games, and presentations.

Key features of Hollywood include:

1. Cross-Platform Development: Write once, run anywhere approach. The same code can run on multiple operating systems without modification.
2. Integrated Development Environment (IDE): Provides a user-friendly environment for writing and testing code.
3. Support for Multiple Media Types: Handles images, audio, video, and text seamlessly.
4. Extensive Libraries: Includes a wide range of built-in functions and libraries for graphics, sound, networking, and more.
5. Scripting Language: Designed to be easy to learn and use, with a syntax similar to BASIC.

If you have any specific questions about Hollywood or need help with something related to it, feel free to ask!

Please write an application in Hollywood that shows all photos from a folder as a slideshow.

Certainly! Here’s a simple example of a Hollywood script that shows all photos from a folder as a slideshow. This script assumes you have Hollywood installed and set up correctly.

Code: Select all

@REQUIRE "hollywood.hwp"

Function p_Main()
    Local photos = {}
    Local folder = "path/to/your/folder"
    Local files = FileRequest("Select a folder", folder, #FILEREQF_MULTISELECT)

    If files
        For Local i = 0 To ListItems(files) - 1
            Local file = GetFileEntry(files, i)
            If file And IsFile(file) And (GetFileType(file) = #FILETYPE_IMAGE)
                InsertItem(photos, file)
            EndIf
        Next
    EndIf

    If ListItems(photos) > 0
        Local screen = OpenDisplay(800, 600, 32, #DISPLAY_WINDOW, "Slideshow")
        Local currentIndex = 0

        Repeat
            Local photo = LoadBrush(Nil, photos[currentIndex])
            DisplayBrush(photo, 0, 0)
            FreeBrush(photo)

            currentIndex = (currentIndex + 1) % ListItems(photos)
            Wait(120)  ; wait for 2 seconds
        Until QuitRequest()
        CloseDisplay(screen)
    Else
        MessageBox("No images found in the selected folder.", "Error")
    EndIf
EndFunction

InstallEventHandler({OnStart = p_Main})

nexus wrote: ↑Tue May 28, 2024 1:32 pm So, I thought, it's worth sharing