x=-256 %начальная координата по горизонтали(у меня она равна ширине картинки в пикселах)
y=0 %начальная координата по вертикали
gr.open 255,0,0,0 %чёрный фон
!загружает картинку под именем picture
!!(хочу отметить, что пока не разбирался с файловыми командами и поэтому все звуки, музыку и картинки надо кидать в папку /rfo-basic/data!!
!!когда время дойдёт научить программу сохранять и грузить файлы из других мест, тогда уровню алгоритм.!!
gr.bitmap.load picture,"image.bmp"
gr.bitmap.draw pic,picture,x,y %поместить картинку picture по координатам, присвоив ей ярлык pic
gr.render %первое отображение картинки
gosub sound %я просто добавил звук при достижении края экрана
while 1=1 %беконечный цикл для нормальной работы алгоритма(является началом основного текста программы)
for w=x to x+(1024+abs(x)+1) step 8 %правый край w и скорость 8 пикселов(у меня разрешение на планшета 1024х552, поэтому такие сила и ставлю)
gosub repeint
next w
gosub sound
for w=x to x+(1024+abs(x)) to x step -8 %левый край экрана и скорость 8 пикселов пикселов
gosub repaint %перерисовать с изменениями
next w
gosub sound
repeat
!подпрограммы
sound:
audio.stop %необходимо сперва остановить звук, чтобы избежать ошибки повторного запуска музыки
audio.load snd,"bang.wav" %загрузить звук под именем snd
audio.play snd %воспроизвести звук
return
repaint:
gr.modify pic,"x",w %изменяет параметр объекта, т.е координату x картинки
gr.render %выводит изменения на экран
return