set possiblePictures to {"Tiger", "Leopard", "Snow Leopard", "Aqua Tiger", "Aqua Snow Leopard"}
set choices_ to {}
set invalidChoices to {"false"}
repeat with choosenPicture in possiblePictures
    copy (choosenPicture as string) to end of choices_
    copy return to end of choices_
end repeat
set chosenCode to (choose from list choices_ ¬
    with prompt ¬
    "Wähle ein Wallpaper" cancel button name "Ach, Nee" OK button name ¬
    "Wähle" with empty selection allowed without multiple selections allowed) as string

tell application "Finder"
    set theFiles to container of (path to me) as text
    set theFile to container of folder theFiles as text
    set {od, AppleScript's text item delimiters} to ¬
        {AppleScript's text item delimiters, ":"}
    set theFile to text items 1 thru -2 of theFile
    set theFile to alias (theFile as text)
    set AppleScript's text item delimiters to od
    --display dialog {(theFile as string) & chosenCode & ".jpg"}    
    set desktop picture to {(theFile as string) & "Content:" & chosenCode & ".jpg"}
end tell