The turing heart moniter

PHP God · **Posted:** Fri May 23, 2003 10:05 pm

just slap this messy cose into OOT and you have your very own Turing heart moniter Very Happy

code:

var beats:int
var times:int
times:=0

var any:string (1)

var screen:int:=Window.Open ("fullscreen")

loop

setscreen ("cursor")

colorback (black)
color (brightgreen)
cls

put "How many times would you like to have the heart beat before it flatlines?"
get beats

setscreen ("nocursor")

loop
colorback (brightgreen)
cls
sound (440,100)
colorback (black)
cls
delay (1000)
times:=times+1
if times=beats then
exit
end if
end loop
colorback (red)
color (black)
cls
sound (350,1000)
put "You're dead"
put ""
put "Press any key to try again..."
getch (any)
cls
times:=0
end loop

[/list]

Dan · **Posted:** Fri May 23, 2003 10:42 pm

most hear meater things have a green grahp line not a fashing green back but it is still cool so +5 bits

PHP God · **Posted:** Sat May 24, 2003 11:29 am

I'll have to work on that Razz

Homer_simpson · **Posted:** Sat May 24, 2003 1:51 pm

i dont get it... =/

PaddyLong · **Posted:** Sat May 31, 2003 12:38 pm

I'm at a loss as to what the point of this was...

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members