TGC Codebase Backup



Timer by Alex Libby

20th Dec 2009 13:21
Summary

A second's timer, this does include a wav file.



Description

run in Windowed (215x50)



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem setup.
load sound "time.wav",1
set text font "Ariel"
set text size 50

rem geting input.
do
   input "Sec: ",Time
   cls
   text 0,0,str$(Time)

rem counting down.
   if Time>0
      while 0<Time
         sleep 1000
         cls
         Time=Time-1
         text 0,0,str$(Time)
      endwhile
   endif

rem ending app.
   if Time=0
      cls
      text 0,0,"Times Up!"
      play sound 1
      wait key
   endif
   cls
loop