attribute(selectCampLoc,disabled,true) value(D1,X) innerhtml(titleText,"Select activity to begin") value(activities,n) value(natParks,n) value(campSelect,n) value(fishSelect,n) value(huntSelect,n) value(selectCampLoc,n) value(selectCampBeh,n) value(selectCampType,n) value(fishLocation,n) value(selectFreshWater,n)
selectActivity(camp,"camping")
selectActivity(hunt,"hunting")
selectActivity(fish,"fishing")
selectText(camp,genCampRegs)
isText(freshFlyFishText)
isText(freshBaitFishingText)
isText(freshChumText)
isText(bridgeText)
isText(raftText)
isText(swimText)
isText(surfText)
isText(dockText)
isText(commercialFishingText)
isText(mustSelectPark)
specPark(yos,"Yosemite")
specPark(las,"Lassen Volcanic")
specPark(pin,"Pinnacles")
specPark(seqking,"Sequoia & King's Canyon")
specPark(dval,"Death Valley")
specPark(chan,"Channel Islands")
specPark(jos,"Joshua Tree")
specPark(red,"Redwoods")
specPark(crater,"Crater Lake")
specPark(rain,"Mount Rainier")
specPark(olympic,"Olympic")
specPark(north,"North Cascades")
select(M,X) & subMenu(M,Y,N) & value(N,V) & distinct(V,n) ==> ~value(N,V)
select(M,X) & subMenu(M,Y,N) & ~value(N,V) ==> value(N,n)
%select(M,X) & subMenu(M,Y,N) & value(N,V) & subMenu(N,V,NN) & value(NN,VV) & distinct(VV,n) ==> ~value(NN,VV)
%select(M,X) & subMenu(M,Y,N) & value(N,V) & subMenu(N,V,NN) & ~value(NN,VV) ==> ~value(NN,n)
%select(M,X) & subMenu(M,Y,N) & value(N,V) & subMenu(N,V,NN) & value(NN,VV) & subMenu(NN,VV,NNN) & value(NNN,VVV) & %distinct(VVV,n) ==> ~value(NNN,VVV)
%select(M,X) & subMenu(M,Y,N) & value(N,V) & subMenu(N,V,NN) & value(NN,VV) & subMenu(NN,VV,NNN) & ~value(NNN,VVV) %==> ~value(NNN,n)
selectQ(camp,cloc,selectCampLoc,"location")
selectQ(camp,beh,selectCampBeh,"behavior")
selectQ(fish,floc,fishLocation,"location")
selectQ(floc,fresh,selectFreshWater,"fresh water")
select(D1,X) & value(D1,Y) & distinct(X,Y) ==> ~value(D1,Y)
select(D1,X) ==> value(D1,X)
%subMenu(na,act,activities)
subMenu(activities,camp,campSelect)
subMenu(activities,fish,fishSelect)
subMenu(activities,hunt,huntSelect)
subMenu(campSelect,cloc,selectCampLoc)
%subMenu(campSelect,beh,SelectCampBeh)
%subMenu(fishSelect,type,)
subMenu(fishSelect,floc,fishLocation)
subMenu(fishSelect,com,commercialFishingText)
subMenu(fishSelect,lic,mustSelectPark)
subMenu(fishLocation,fresh,selectFreshWater)
subMenu(fishLocation,bridge,bridgeText)
subMenu(fishLocation,rf,raftText)
subMenu(fishLocation,swim,swimText)
subMenu(fishLocation,surf,surfText)
subMenu(fishLocation,dock,dockText)
subMenu(selectFreshWater,fly,freshFlyFishText)
subMenu(selectFreshWater,bait,freshBaitFishingText)
subMenu(selectFreshWater,chum,freshChumText)
%MONITOR DROPDOWN VISIBILITIES
select(activities,X) & subMenu(activities,X,M) ==> menu(M)
select(activities,X) & menu(M) ==> ~menu(M)
style(M,"visibility","visible") :- menu(M)
style(M,"visibility","hidden") :- subMenu(activities,X,M) & ~menu(M)
%select(fishLocation,bridge) & subMenu(fishSelect,floc,fishLocation) & %subMenu(fishLocation,bridge,bridgeText) ==> question(floc,bridgeText)
select(B,X) & subMenu(M,A,B) & subMenu(B,X,Q) ==> question(A,Q)
%select(B,X) & subMenu(M,A,B) & selectQ(A,X,Q,S) ==> question(A,Q)
select(B,X) & subMenu(M,A,B) & question(A,Q) ==> ~question(A,Q)
select(M,X) & subMenu(M,A,B) & question(A,Q) ==> ~question(A,Q)
select(M,X) & subMenu(M,C,N) & subMenu(N,A,B) & question(A,Q) ==> ~question(A,Q)
%select(activities,X) & subMenu(activities,C,N) & subMenu(N,C,T) & subMenu(T,A,B) & question(A,Q) ==> %~question(A,Q)
select(activities,X) & subMenu(activities,Y,S) & subMenu(S,Z,L) & subMenu(L,F,W) & subMenu(W,R,Q) & question(F,Q) ==> ~question(F,Q)
style(Q,"visibility","visible") :- question(A,Q)
style(Q,"visibility","hidden") :- selectQ(A,X,Q,S) & ~question(A,Q)
%RESET
click(reset) & innerhtml(titleText,Y) ==> ~innerhtml(titleText,Y)
click(reset) ==> innerhtml(titleText,"Select activity to begin")
click(reset) & value(X,Y) ==> ~value(X,Y)
click(reset) ==> value(activities,n) & value(natParks,n) & value(campSelect,n) & value(fishSelect,n) & value(huntSelect,n) & value(selectCampLoc,n) & value(selectCampBeh,n) & value(selectCampType,n) & value(fishLocation,n) & value(selectFreshWater,n)
click(reset) & park(X) ==> ~park(X)
click(reset) & menu(M) ==> ~menu(M)
click(reset) & text(T) ==> ~text(T)
click(reset) & question(X,Q) ==> ~question(X,Q)
select(activities,n) ==> innerhtml(titleText,"Select activity to begin")
select(campSelect,n) ==> innerhtml(titleText,"Select camp specification")
%UPDATE TEXT
select(activities,X) & innerhtml(titleText,S) ==> ~innerhtml(titleText,S)
select(activities,X) & selectActivity(X,S) & evaluate(stringappend("Select ",S," specifications"),Y) ==> innerhtml(titleText,Y)
select(campSelect,X) & innerhtml(titleText,S) ==> ~innerhtml(titleText,S)
select(campSelect,beh) ==> innerhtml(titleText,"Select behavioral question")
%MONITOR TEXT VISIBILITIES
select(activities,X) & selectText(X,T) ==> text(T)
select(activities,X) & text(T) ==> ~text(T)
style(T,"visibility","visible") :- text(T)
style(T,"visibility","hidden") :- selectText(X,T) & ~text(T)
style(subTitle,"visibility","hidden") :- ~question(fish,fishLocation)
style(subTitle,"visibility","visible") :- question(fish,fishLocation)
style(T,"visibility","hidden") :- isText(T) & ~question(M,T)
style(T,"visibility","visible") :- isText(T) & question(M,T)
%CAMP LOCATION
attribute(selectCampLoc,disabled,true) :- question(camp,selectCampLoc) & ~park(yos) & ~park(las) & ~park(pin) & ~park(seqking) & ~park(dval) & ~park(jos) & ~park(chan) & ~park(red) & ~park(crater) & ~park(rain) & ~park(olympic) & ~park(north)
attribute(selectCampLoc,disabled,false) :- question(camp,selectCampLoc) & park(X)
select(campSelect,cloc) & innerhtml(titleText,S) ==> ~innerhtml(titleText,S)
select(campSelect,cloc) & ~park(X) ==> innerhtml(titleText,"Must select National Park")
select(natParks,n) & question(camp,selectCampLoc) & innerhtml(titleText,S) ==> ~innerhtml(titleText,S)
select(natParks,n) & question(camp,selectCampLoc) ==> innerhtml(titleText,"Must select National Park") & attribute(selectCampLoc,disabled,true)
select(campSelect,loc) & park(X) & specPark(X,N) & evaluate(stringappend("Choose location in ",N," National Park"),S) ==> innerhtml(titleText,S)
select(natParks,X) & question(camp,selectCampLoc) & specPark(X,N) & evaluate(stringappend("Choose location in ",N," National Park"),S) ==> innerhtml(titleText,S)
%PICTURE UPDATE
npPic(yos, "url('https://npca.s3.amazonaws.com/images/8730/99686cb0-381a-4232-961a-75eeb04db657-banner.jpg?1445970462')")
npPic(las,"url('http://blog.hankchristensen.com/wp-content/uploads/2016/06/lassen-painted-dunes-099489-2000x1200.jpg')")
npPic(pin,"url('https://upload.wikimedia.org/wikipedia/commons/d/d5/Pinnacles_National_Park_view.jpeg')")
npPic(seqking,"url('http://www.travelaroundusa.com/uploads/2/4/0/0/24002860/490569804_orig.jpg')")
npPic(dval,"url('https://cdn.fstoppers.com/styles/full/s3/media/2018/05/17/death-valley-national-park-moving-rock.jpg')")
npPic(chan,"url('https://images.theoutbound.com/contents/118191/assets/1494016196819?&fit=crop&w=970&h=550&auto=format&dpr=2&q=60')")
npPic(jos,"url('https://npca.s3.amazonaws.com/images/8721/afe85727-64a1-4cf4-a593-1975020d2d94-banner.jpg?1445970416')")
npPic(red,"url('http://www.roadtripswithtom.com/wp-content/uploads/2017/09/redwood-national-forest-hero-REDWOOD12021.jpg')")
npPic(crater,"url('https://npca.s3.amazonaws.com/images/8903/f7642d8f-7efb-4b01-82c9-b2a0d6eb3ead-banner.jpg?1445971105')")
npPic(rain,"url('https://npca.s3.amazonaws.com/images/8693/33801b9e-6685-4851-93dd-e75d3a14c174-banner.jpg?1445970277')")
npPic(olympic,"url('https://npca.s3.amazonaws.com/images/8852/82c1fd5b-f341-4a9a-9887-7ba479740ecd-banner.jpg?1445970871')")
npPic(north,"url('https://crosscut.com/sites/default/files/images/articles/181003_maplepass_05.jpg')")
select(natParks,X) & distinct(X,n) ==> park(X)
select(natParks,X) & park(Y) ==> ~park(Y)
style(npWorksheet, "background-image", "url('https://www.worldmapstore.com/wp-content/uploads/2017/06/US-NAtional-park.jpg')") :- ~park(X)
style(npWorksheet, "background-image", Y) :- park(X) & npPic(X,Y)
General Camping Regulations
*Choose National Park to select park-specific regulations
Fly fishing and any other fishing with line or hook is permitted in all National Parks (subject to specific seasonal / park regulations).
Chumming or placing fish roe, eggs, food, or placing any other substance in fresh water to attract fish is prohibited.
Fishing from motor road bridges is prohibited.
Fishing within 200 feet of a public raft or float is prohibitted in all circumstances.
Fishing within limits of designated swimming areas is prohibited unless otherwise specified (look for prominent signs).
Fishing within limits of designated surfing areas is prohibited unless otherwise specified (look for prominent signs).
Fishing from or near public boat docks is prohibited unless otherwise specified (look for prominent signs).
Commercial fishing is not allowed except where specifically authorized by Federal Statutory Law.
*Select National Park for additional information
Must select National Park