----------------------------------- 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...