-----------------------------------

PHP God

Fri May 23, 2003 10:05 pm


The turing heart moniter

-----------------------------------

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


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

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

Sat May 24, 2003 11:29 am



-----------------------------------

I'll have to work on that :P


-----------------------------------

Homer_simpson

Sat May 24, 2003 1:51 pm



-----------------------------------

i dont get it... =/


-----------------------------------

PaddyLong

Sat May 31, 2003 12:38 pm



-----------------------------------

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