| zip loveFile gameFolder |
gameFolder := (FileLocator documents / 'Mutabit' / 'Proyectos' / 'Cajicraft' / 'GamesInLove' / 'Pong' ) asFileReference.
zip := ZipArchive new.
(gameFolder childrenMatching: '*.lua') 
	do: [:luaFile | zip addMember: (ZipNewFileMember new from:  luaFile)]. 
zip.
loveFile := (gameFolder / 'pong.love') ensureCreateFile.
zip writeToFileNamed: loveFile