Computer Science Canada

The turing heart moniter

Author:  PHP God [ Fri May 23, 2003 10:05 pm ]
Post subject:  The turing heart moniter

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]

Author:  Dan [ Fri May 23, 2003 10:42 pm ]
Post subject: 

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

Author:  PHP God [ Sat May 24, 2003 11:29 am ]
Post subject: 

I'll have to work on that Razz

Author:  Homer_simpson [ Sat May 24, 2003 1:51 pm ]
Post subject: 

i dont get it... =/

Author:  PaddyLong [ Sat May 31, 2003 12:38 pm ]
Post subject: 

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


: