//dir, file exts, body
recursefiles = [
	looplist ext $arg2 [
		loopfiles file $arg1 $ext [
			file = (concatword $arg1 "/" $file)
			arg3
		]
	]
	loopdir d $arg1 [
		recursefiles (concatword $arg1 "/" $d) $arg2 $arg3
	]
]


			recursefiles "packages/clouds" "png tga jpg" [
				if (= (indexof "_dn _up _lf _ft _rt _bk" (substr $file (- (strlen $file) 3))) -1) [
					name = (substr $file 9 (- (strlen $file) 9))
					UIBasicButton [
						uiimage (concatword "packages/" $skybox "_up") .135 .135
						if $cloudbox [
							uiimage (concatword "packages/" $cloudbox "_up") .135 .135
						]
						uiimage (concatword "<thumbnail>" $file) .135 .135
					] [
						cloudlayer [@@name]
					]
				]
			]