呵呵，求这样一段程序

sub wakeup （time,n，man）
每天早晨到time时运行，闹铃n次后，敲打man的屁股，并不断加大力度，判断man坐起后，自动点燃一根烟送到man的嘴边。
end sub