Boltek Lightning/2000 User Manual

Page 324

L I G H T N I N G / 2 0 0 0

324

; Check to see if lightning is being detected
; in Peoria, but only if it’s been at least 30
; minutes since the last email.

if

if ( @MinutesSinceEmailSent( '[email protected]' ) >= 30 ) and

and

@LightningDetectedIn( 'Peoria' ) then

then

; First, produce a small (320 by 200) image of the
; Real-time Lightning window, centered on Peoria with
; a radius of 50 miles.

#ProduceScreenCapture(
'Real-time Lightning',
@L2KFolder + 'Peoria.png',
320, 200,
'Peoria', 50 )

; Write out some text for the body of the email.

#WriteLine(
‘The lightning detector in Eureka is ‘ +
‘detecting lightning that may be in the ‘ +
‘Peoria area. There is a good chance that ‘ +
‘a storm is either in or is approaching ‘ +
‘your area. You will receive one of these ‘ +
‘emails every 30 minutes until lightning ‘ +
‘has moved out of the area. You can check ‘ +
‘the current National Weather Service ‘ +
‘radar image at http://radar.weather.gov’ )

#WriteLine( '' )

; Put a line in the file telling how many
; CG flashes have been detected in the past minute.

#WriteLine(
@CGFlashCount + ' cloud-to-ground ‘ +
‘lightning flashes have been detected ‘ +
‘in the past minute. This is from ‘ +
‘all storms, not just any storm that ‘ +
‘ may be approaching your area.' )

; Tell Lightning/2000 to send the email. Use
; ‘Lightning Detected in Peoria’ as the title of
; the email. Use the just-created text file
; as the body of the email, and attach the
; just-created small image of the Real-time
; Lightning window.

#SendEmail( '[email protected]',
'Lightning Detected in Peoria',
@L2KFolder + 'abb.txt',
@L2KFolder + 'Peoria.png' )
endif

endif