#agebasic#examples

Change Movie Posters

This program changes the movie posters of the room by others in a path. The movie posters should be PNGs.

10 REM Program to replace posters in the room in random order
11 REM just change the path where you saved the poster pictures.
13 REM You will need to execute it again every time you enter a room, 
14 REM   because posters doesn't saves configuration.
 
20 LET path = CombinePath(ConfigPath(), "posters") 'new posters
30 LET roomPostersCount = PosterRoomCount()
40 LET files = getFiles(path, ":", 1)  ' Random order
50 LET posters = CountMembers(files, ":")
60 LET minPosters = MIN(roomPostersCount, posters)
 
70 CLS
80 FOR i = 0 TO minPosters - 1
90     LET imageName = GetMember(files, i, ":")
100    LET imagePath = CombinePath(path, imageName)
110    print 0, 2 + MOD(i, 10), "#" + str(i) + " by poster: " + imageName + "                 "
120    if  PosterRoomReplace(i, imagePath) = 0 then goto 150
130 NEXT i
 
140 END
 
150 cls
160 print 0,0, "error replacing poster", 1
170 print 0,1, "poster: " + imageName
180 print 0,2, "path: " + imagePath
190 show
 
200 END

you can change posters one by one.

you can change posters when you insert a coin in a cabinet (for example to set some game's related posters)