Const pr=25
For n=50 To 575 Step pr
Да ёмаё! Если ты пишешь код в помощь кому-то пиши его нормально..
Сперва определи количество ресурсов (файлов), предположим их 44, далее примерно такой код:
Const loadingBarHeight=20
Rect 0,graphicsHeight-loadingBarHeight,graphicsWidth,loadingBarHeight,0
resourceFiles=44
For n=0 to resourceFiles
Rect 2,graphicsHeight-(loadingBarHeight-2),((graphicsWidth-4)/Float(resourceFiles))*n,(loadingBarHeight-4),1
... Load[n] Whatever ...
Next
Раздели стадию загрузки на отдельные стадии, одна сбор списка ресурсов которые нужно загрузить (имена файлов), и запиши их в класс или массив. И только потом загружай.
И то это говнокодерство, никто не будет так грузить информацию, должны быть файлы форматов уровней или т.п. которые содержат списки и информацию о медии, где она и для чего должна быть..