Sorry your browser is not supported!

Begin_Time_Check# = 0
UpdTime# = 0
Blow_Enenmy_Up = 0

` start main loop
do
` Update timer value every loop
UpdTime# = Timer()

` if left mouse presses and enemy has not already been told to blow up
` then tell enemy to blow up and see what time it was told to do so
If mouseclick() = 1
	if Blow_Enenmy_Up = 0
		Blow_Enenmy_Up = 1
		Begin_Time_Check# = Timer()
	endif
endif

` if enemy is being told to blow up and the time delay has passed in 
` milliseconds go to sub to blow enemy up
if Blow_Enenmy_Up = 1
	If UpdTime# - Begin_Time_Check# >= 2000
		gosub Start_Blow_Enemy_Up
	endif
endif

`end of main loop don't forget to put an "end" after it
loop 
end

` sub to put stuff in to blow enemy up and reset the ability to blow up again
Start_Blow_Enemy_Up:
Blow_Enenmy_Up = 0
return

input "time in seconds ";counter
sync on:sync rate 40
make object sphere 1,1
counter=counter*1000
counter=counter+timer()
do
if timer()>counter 
delete object 1
sync
for i=1 to 10
for l=1 to 20
text i*60,l*20,"bang!"
next l
next i
sync
wait 1000
counter=timer()+100000000000000
endif
sync
loop