All pastes #814341 Raw Edit

Skybox Menu for Sauerbraten

public text v1 · immutable
·published 2007-12-13 05:32 UTC
rendered paste body
// --- skybox GUI menu ---

bind F7 [if (cleargui 1) [] [showgui skies]]

genskyitems = [
    loop i (listlen $arg1) [
        cursky = (at $arg1 $i)
        guibutton $cursky (concat loadsky $cursky)
    ]
]

showskyshot = [
    guibar
    guilist [
        guilist [
            guiimage (concatword "packages/" (at $guirollovername 0) "_bk.jpg") $guirolloveraction 4 1 
            guiimage (concatword "packages/" (at $guirollovername 0) "_ft.jpg") $guirolloveraction 4 1 
        ]
        guilist [
            guiimage (concatword "packages/" (at $guirollovername 0) "_up.jpg") $guirolloveraction 4 1 
            guiimage (concatword "packages/" (at $guirollovername 0) "_dn.jpg") $guirolloveraction 4 1 
        ]
        guilist [
            guiimage (concatword "packages/" (at $guirollovername 0) "_rt.jpg") $guirolloveraction 4 1 
            guiimage (concatword "packages/" (at $guirollovername 0) "_lf.jpg") $guirolloveraction 4 1 
        ]
    ]
]

skieslist = "aftas/sky/orbe dash/moon ik2k/env/iklake ratboy/skyboxes/coward skyboxes/evilsky skyboxes/morning socksky/desert socksky/emerald socksky/frozen socksky/frozendusk socksky/mars socksky/nightball socksky/valley staffy/staffy"
newgui skies [
    guilist [
        guilist [ genskyitems $skieslist ]
        showskyshot
    ]
]

// --------------------------------