08/02/13 21:21:18 rfOqMDfs0
function chibakiller ()
dim kenkei as integer
dim child as integer
dim hannin as integer
on error goto endtag
do until hannin is hold
if time is 12:15 then
hannin kill child
else kenkei hold hannin
end if
if hannin kill child then
exit do
end if
day=1+day
loop
endtag:
msgbox("２ちゃんねるは永遠です！")
end function