source: trunk/script/video.bas @ 985

@title Èíòåðâàëüíîå âèäåî
rem Gans gansek.narod.ru
@param a Êîëè÷åñòâî êàäðîâ 
@default a 5
@param b Âðåìÿ ñúåìêè (ìèí) 
@default b 0
@param c Âðåìÿ ñúåìêè (ñåê) 
@default c 10
@param d Èíòåðâàë ìåæäó ñúåìêîé (ìèí) 
@default d 0
@param e Èíòåðâàë ìåæäó ñúåìêîé (ñåê) 
@default e 10

sleep 1000
t=60000*b+1000*c+1000
i=60000*d+1000*e+1000

for s=1 to a
    click "shoot_full"
    print "Ñíèìàþ",s,"-é èç",c" ôèëüìîâ"
    sleep t
    click "shoot_full"
    print "Æäó",d,"ìèíóò",e,"ñåêóíä"
    sleep i
next s

print "Ïðèÿòíîãî ïðîñìîòðà!"
sleep 2000

end