symbol ShutterPin=0 symbol CameraPowerPin=1 symbol TrailFeederSwitchPin=pin4 symbol MotionSensorInputPin=pin3 symbol LEDpin=2 'symbol PAXE=5 symbol ActivityMode=bit0 '0=off and 1 = on symbol StartWithWalkTestONorOff=bit1 symbol CameraIsONorOFF=bit2 'keep track of camera being on or off for activity mode symbol TimeToTurnCamOnToRefreshFlash=w3 symbol TmeWaitAfterCamOnToPresShuter=w4 symbol DelayBetweenPictures=w5 symbol TimeForWalkTestToEnd=w6 'delay for walktest symbol i=b1 disablebod Low ShutterPin Low CameraPowerPin Low LEDpin input 4 CameraIsONorOFF = 0 Pause 5000 '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ TimeToTurnCamOnToRefreshFlash=12500 '25,000 = 1 hour, 50,000 = 2 hours with NAP3 (.144) TmeWaitAfterCamOnToPresShuter=2000'"2 S" StartWithWalkTestONorOff = 1 'on = 1 off = 0 DelayBetweenPictures=26 '26 = 60 seconds between pics in feeder mode TimeForWalkTestToEnd = 208 'Time for walktest 0.144 secondss for nap3(208x0.144 = 30 seconds) '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Walktst: IF StartWithWalkTestONorOff = 1 Then w1=w1+1 NAP 3 IF MotionSensorInputPin = 1 Then High LEDpin Pause 1000 Low LEDpin Pause 3000 'for sensor to settle w1=0 EndIF IF w1 >=TimeForWalkTestToEnd Then StartWithWalkTestONorOff = 0 For i = 1 to 10 High LEDpin Pause 200 Low LEDpin Pause 100 next i Pause 1000 GoTo lowpower EndIF EndIF GoTo Walktst lowpower: IF MotionSensorInputPin=1 Then IF CameraIsONorOFF=0 Then Pause 10 IF TrailFeederSwitchPin = 1 Then ActivityMode=0 Else ActivityMode=1 EndIF EndIF IF ActivityMode = 0 Then If CameraIsONorOFF=0 Then Pause 10 High CameraPowerPin ' Turn Camera ON ' Pause 300 ' Low CameraPowerPin CameraIsONorOFF=1 Pause TmeWaitAfterCamOnToPresShuter endif High ShutterPin ' Take a Picture Pause 3000 Low ShutterPin Sleep 5 ' High CameraPowerPin ' Turn Camera OFF ' Pause 300 Low CameraPowerPin CameraIsONorOFF=0 w1=0 Sleep DelayBetweenPictures EndIF IF ActivityMode = 1 Then IF CameraIsONorOFF=0 Then Pause 10 High CameraPowerPin ' Turn Camera ON ' Pause 300 ' Low CameraPowerPin CameraIsONorOFF=1 Pause TmeWaitAfterCamOnToPresShuter EndIF High ShutterPin ' Take a Picture Pause 3000 Low ShutterPin Pause 1000 w1=0 EndIF w2=0 EndIF IF CameraIsONorOFF=1 Then w1=w1+1 IF w1>=300 Then 'Keep Camera on for 30 seconds for Activity Mode ' High CameraPowerPin ' Turn Camera ON ' Pause 1000 Low CameraPowerPin CameraIsONorOFF=0 w1=0 Sleep 2 EndIF EndIF w2=w2+1 IF w2 >= TimeToTurnCamOnToRefreshFlash Then High CameraPowerPin ' Turn Camera ON ' Sleep 1 ' Low CameraPowerPin Sleep 7 ' High CameraPowerPin ' Turn Camera ON ' Sleep 1 Low CameraPowerPin w2=0 Pause 1000 EndIF NAP 3 GoTo lowpower ' Do it forever End