難しくないです
5秒という時間があまり正確で無くてよいのならこれでどうでしょうか
#include "winmm.as"
captureTime = 5000 //秒数*1000のms(ミリセカンド)単位
//↓「///*」の「/」を2つ消すと11行目の「//*/」までコメントアウトされます
///*
//枚数を指定する場合
captureNum = 5 //撮影枚数
waitTime = captureTime / (captureNum-1)
//*/
//↓「/*」の前に「/」を足すと18行目の「//*/」までのコメントアウトが解除されます
/*
//撮影間隔を指定する場合
waitTime = 1000 //ms単位
captureNum = captureTime / waitTime + 1
//*/
mes strf("撮影開始 撮影時間: %dms 撮影枚数: %d枚 撮影間隔: %dms", captureTime, captureNum, waitTime)
st = timeGetTime()
repeat captureNum
saveName = strf("%04d.bmp", cnt+1)
mes saveName + strf("%6dms", (timeGetTime()-st))
//bmpsave saveName //など保存処理
if (captureNum-1 == cnt): break
await waitTime
loop
mes "撮影終了"
stop