Boltek Lightning/2000 - Manual (Page 324)

L I G H T N I N G / 2 0 0 0
324 324 324 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 if if ( @MinutesSinceEmailSent( '[email protected]' ) >= 30 ) and and and and
@LightningDetectedIn( 'Peoria' ) then then 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 endif endif