the moviepath the moviename olddelim = the itemdelimiter the itemdelimiter = the last char of the moviepath mup = the moviepath delete the last item of mup put the last item of mup the itemdelimiter = olddelim close window "myMesswin" put RETURN & "sendSprite(call(#mGetKanal, [mGetXScript()], #kanalname), #befehl)" & RETURN global pfad fio = new(xtra "fileio") pfad = fio.displayOpen() fio = 0 Authoring_ExchangeScriptListColorsToRGBs up = the moviepath dl = the last char of up olddelim = the itemdelimiter the itemdelimiter = dl delete item 1 of up the itemdelimiter = olddelim offs = offset(dl, up) repeat while offs > 0 put "/" into char offs of up offs = offset(dl, up) end repeat put up rgb(255, 255, 255) rgb(0, 0, 0) rgb(0, 255, 0) rgb(0, 0, 255)