Jump to content

The Pennsylvania DeLorme Challenge

PAchallenges

By PAchallenges
in Northeast

Followers 7

Recommended Posts

The Leprechauns

+The Leprechauns

Posted
Posted

I'm getting some weird error messages with this macro doc, I'll have to pick your brain about it when i'm not in the process of falling asleep.

I also could not get this to work. In fairness, it's the first time I've ever tried a macro in GSAK. I have no idea how to debug error messages.

 

Is a particular version of GSAK needed in order for this macro to work correctly?

 

::: Kicking myself for not doing this work BEFORE my Memorial Day weekend roadtrip to pick up a bunch of DeLorme Grids :::

Link to comment
Guyute1210

Guyute1210

Posted
Posted

I'm getting some weird error messages with this macro doc, I'll have to pick your brain about it when i'm not in the process of falling asleep.

I also could not get this to work. In fairness, it's the first time I've ever tried a macro in GSAK. I have no idea how to debug error messages.

 

Is a particular version of GSAK needed in order for this macro to work correctly?

 

::: Kicking myself for not doing this work BEFORE my Memorial Day weekend roadtrip to pick up a bunch of DeLorme Grids :::

The script worked flawlessly for me, and I've used it on many occations. I have the most recient version of GSAK.

 

One thing you could try is copying the script out of wherever you got it initially from (probably this thread) and paste it into notepad then copy it out of there and into GSAK. Some of microsofts programs, most notably MSWord & outlook, if you copy something out of it, and paste it into another program, microsoft has control characters in there that you can't see. These control characters sometimes muck with parser programs, like the macro engine. If you used IE, this could be the issue.

Link to comment
The Leprechauns

+The Leprechauns

Posted
Posted

I copied the macro text from this thread (open in Firefox... never IE) and pasted the contents into the box in GSAK that popped up when I clicked on "Macro" on the GSAK menu and then selected "Edit/Create." I then saved the text file to the GSAK Macro directory as instructed.

 

If there is a different way I'm supposed to do this, please let me know. I am using GSAK v6.6.4 which is not the current version.

Link to comment
Guyute1210

Guyute1210

Posted
Posted

I don't believe you are doing anything wrong. I copied mine out of FF as well, but have had issues in the past at my job with IE. The issue may be that I'm running v7 and you are running v6. Hopefully others with issues (or not) will chime in with what version they are running. There may be a difference in the macro engine between those two versions.

Link to comment
DocDiTTo

+DocDiTTo

Posted
Posted (edited)

Sorry.. haven't been keeping a close eye on this thread. I use the latest version of GSAK, which is version 7. Older versions don't have all the commands that the new version has. I've modified the macro to run on the GSAK 6.6.5 -- it might work on other recent versions of GSAK 6 as well.

 

If you use GSAK verion 7, use the OTHER macro I posted earlier. This one is dumbed down a bit for GSAK version 6. You will need to manually filter out event caches, non-Pennsylvania caches, and any other caches that don't qualify for the Delorme Challenge before you run this.

 

# PA Delorme Challenge Grid Calculator
# For use with GSAK 
# Version 1.0 for GSAK Version 6 ONLY!
# Coded by DocDiTTo April 22, 2007 - Updated May 27, 2007
# Save to your C:\Program Files\GSAK\Macros folder
# Report any errors or problems to "docditto at comcast dot net"

# WARNING:  This macro will overwrite the USERDATA field in whatever GSAK 
# database it's run on.  Normally this won't be an issue, but if you have any 
# data in the USERDATA field you want to keep, make a copy of your database 
# before running this macro. If you want to change USERDATA to the USERDATA2 
# field change the line near the bottom of this file from 
# $d_UserData2 = $GridText + $CurrentCacheGrid  to 
# $d_User2 = $GridText + $CurrentCacheGrid

# Since only caches in PA count for the PA Delorme Challenge but the grids go 
# outside of PA, I've used a close approximation for the western and southern 
# border of the state in order to not flag caches outside PA for the challenge. 
# The official gridlines are noted below in comments.

$BOTTOM_OF_PA = 39.719917
# $BOTTOM_OF_PA = 39.5  (on the offical Mapsource grid)

$WEST_EDGE_OF_PA = 80.519317
# $WEST_EDGE_OF_PA = 	80.625000 (on the offical Mapsource grid)

# The text below is prepended to the grid number in GSAK.  You can change it 
# to $GridText = "" if you want to put only the number in the USERDATA column.
$GridText = "Grid "

# First filter out caches that aren't in Pennsylvania and events which
# don't count for the PA Delorme Challenge.
# Version 6 users will have to do this manually.

SORT By=natural

$Counter=0
TABLE Active=caches
GOTO Position=Top
 WHILE not($_eol)
  $CurrentCacheGrid = ""
  $counter = $counter +1
  SHOWSTATUS msg=Processing cache $Counter - $d_Name   

   # Set $LatVal as the decimal degrees of latitude
   $LatVal = Val($d_Latitude)
   # Set $LonVal as the absolute value of decimal degrees of longitude
   # That way we don't have to mess with negative numbers.
   $LonVal = Abs(Val($d_Longitude))

   # ROW 1 - Grids 26 & 27
 IF $LatVal > 42.0 AND $LatVal < 42.5
	 # Grid 26
	  IF $LonVal > 80.1875 AND $LonVal < $WEST_EDGE_OF_PA
 		  $CurrentCacheGrid = "26"
	  ENDIF
	#Grid 27
 		IF $LonVal > 79.750000 AND $LonVal  < 80.187500 
		  $CurrentCacheGrid = "27"
 		ENDIF
ENDIF

 #ROW 2 - Grids 28-40
 IF $LatVal > 41.5 and $LatVal < 42
 	  # Grid 28
 	  IF $LonVal > 80.1875 AND $LonVal  < $WEST_EDGE_OF_PA
 		  $CurrentCacheGrid = "28"
 	  ENDIF
 	  #Grid 29
 	  IF $LonVal > 79.75  AND $LonVal < 80.1875
 		  $CurrentCacheGrid = "29"
 	  ENDIF
 	  #Grid 30
 	  IF $LonVal > 79.3125  AND $LonVal <  79.75
 		  $CurrentCacheGrid = "30"
 	  ENDIF
 	  #Grid 31
 	  IF $LonVal > 78.8750  AND $LonVal <  79.3125
 		  $CurrentCacheGrid = "31"
 	  ENDIF
 	  #Grid 32
 	  IF $LonVal > 78.437500  AND $LonVal <  78.8750
 		  $CurrentCacheGrid = "32"
 	  ENDIF
 	  #Grid 33
 	  IF $LonVal > 78  AND $LonVal <  78.4375
 		  $CurrentCacheGrid = "33"
 	  ENDIF
 	  #Grid 34 
	IF $LonVal > 77.5625  AND $LonVal <  78
 		  $CurrentCacheGrid = "34"
 	  ENDIF
 	  # Grid 35
	IF $LonVal > 77.125  AND $LonVal < 77.5625 
 		  $CurrentCacheGrid = "35"
 	  ENDIF
 	  #Grid 36
 	  IF $LonVal > 76.6875  AND $LonVal < 77.125 
 		  $CurrentCacheGrid = "36"
 	  ENDIF
 	  #Grid 37
 	  IF $LonVal > 76.25  AND $LonVal < 76.6875 
 		  $CurrentCacheGrid = "37"
 	  ENDIF
 	  #Grid 38
 	  IF $LonVal > 75.8125 AND $LonVal < 76.25 
 		  $CurrentCacheGrid = "38"
 	  ENDIF	 	 
 	  #Grid 39
 	  IF $LonVal > 75.375 AND $LonVal < 75.8125
 		  $CurrentCacheGrid = "39"
 	  ENDIF 
 	  #Grid 40
 	  IF $LonVal > 74.9375 AND $LonVal < 75.375 
 		  $CurrentCacheGrid = "40"
 	  ENDIF				  
 ENDIF

 #ROW 3 - Grids 42-55 	
 IF $LatVal > 41 AND $LatVal < 41.5	 
	#Grid 42
 	  IF $LonVal > 80.1875 AND $LonVal < $WEST_EDGE_OF_PA
 		  $CurrentCacheGrid = "42"
 	  ENDIF
	#Grid 43
 	  IF $LonVal > 79.75 AND $LonVal < 80.1875
 		  $CurrentCacheGrid = "43"
 	  ENDIF
	#Grid 44
 	  IF $LonVal > 79.3125  AND $LonVal < 79.75
 		  $CurrentCacheGrid = "44"
 	  ENDIF
 	  #Grid 45
 	  IF $LonVal > 78.8750  AND $LonVal <  79.3125
 		  $CurrentCacheGrid = "45"
 	  ENDIF
	  #Grid 46
 	  IF $LonVal > 78.437500  AND $LonVal <  78.8750
 		  $CurrentCacheGrid = "46"
 	  ENDIF
 	  #Grid 47 
 	  IF $LonVal > 78  AND $LonVal <  78.4375
 		  $CurrentCacheGrid = "47"
 	  ENDIF
 	  #Grid 48 
	IF $LonVal > 77.5625  AND $LonVal <  78
 		  $CurrentCacheGrid = "48"
 	  ENDIF		  
 	  # Grid 49
	IF $LonVal > 77.125  AND $LonVal < 77.5625 
 		  $CurrentCacheGrid = "49"
 	  ENDIF	 	  
 	  #Grid 50
 	  IF $LonVal > 76.6875  AND $LonVal < 77.125 
 		  $CurrentCacheGrid = "50"
 	  ENDIF	 	  
 	  #Grid 51
 	  IF $LonVal > 76.25  AND $LonVal < 76.6875 
 		  $CurrentCacheGrid = "51"
 	  ENDIF
 	  #Grid 52 
 	  IF $LonVal > 75.8125 AND $LonVal < 76.25 
 		  $CurrentCacheGrid = "52"
 	  ENDIF	 	  
 	  #Grid 53
 	  IF $LonVal > 75.375 AND $LonVal < 75.8125
 		  $CurrentCacheGrid = "53"
 	  ENDIF			
 	  #Grid 54
 	  IF $LonVal > 74.9375 AND $LonVal < 75.375 
 		  $CurrentCacheGrid = "54"
 	  ENDIF 
 	  #Grid 55
 	  IF $LonVal > 74.5 AND $LonVal < 74.9375
 		  $CurrentCacheGrid = "55"
 	  ENDIF	
 ENDIF

 #ROW 4 - Grids 56-68 	
 IF $LatVal > 40.5 AND $LatVal < 41
				#Grid 56
 	  IF $LonVal > 80.1875 AND $LonVal < $WEST_EDGE_OF_PA
 		  $CurrentCacheGrid = "56"
 	  ENDIF	 	  
	#Grid 57
 	  IF $LonVal > 79.75 AND $LonVal < 80.1875
 		  $CurrentCacheGrid = "57"
 	  ENDIF
	#Grid 58	
 	  IF $LonVal > 79.3125  AND $LonVal < 79.75
 		  $CurrentCacheGrid = "58"
 	  ENDIF
 	  #Grid 59
 	  IF $LonVal > 78.8750  AND $LonVal <  79.3125
 		  $CurrentCacheGrid = "59"
 	  ENDIF

	  #Grid 60
 	  IF $LonVal > 78.437500  AND $LonVal <  78.8750
 		  $CurrentCacheGrid = "60"
 	  ENDIF	 	  
 	  #Grid 61 
 	  IF $LonVal > 78  AND $LonVal <  78.4375
 		  $CurrentCacheGrid = "61"
 	  ENDIF	 	  
 	  #Grid 62 
	IF $LonVal > 77.5625  AND $LonVal <  78
 		  $CurrentCacheGrid = "62"
 	  ENDIF	 	  
 	  # Grid 63
	IF $LonVal > 77.125  AND $LonVal < 77.5625 
 		  $CurrentCacheGrid = "63"
 	  ENDIF	 	  
 	  #Grid 64
 	  IF $LonVal > 76.6875  AND $LonVal < 77.125 
 		  $CurrentCacheGrid = "64"
 	  ENDIF	 	  
 	  #Grid 65
 	  IF $LonVal > 76.25  AND $LonVal < 76.6875 
 		  $CurrentCacheGrid = "65"
 	  ENDIF
 	  #Grid 66 
 	  IF $LonVal > 75.8125 AND $LonVal < 76.25 
 		  $CurrentCacheGrid = "66"
 	  ENDIF	 	  
 	  #Grid 67
 	  IF $LonVal > 75.375 AND $LonVal < 75.8125
 		  $CurrentCacheGrid = "67"
 	  ENDIF			
 	  #Grid 68
 	  IF $LonVal > 74.9375 AND $LonVal < 75.375 
 		  $CurrentCacheGrid = "68"
 	  ENDIF	 
 ENDIF

 #ROW 5 - Grids 70-83 	
 IF $LatVal > 40 AND $LatVal < 40.5
 		#Grid 70
 	  IF $LonVal > 80.1875 AND $LonVal < $WEST_EDGE_OF_PA
 		  $CurrentCacheGrid = "70"
 	  ENDIF	 	  
	#Grid 71
 	  IF $LonVal > 79.75 AND $LonVal < 80.1875
 		  $CurrentCacheGrid = "71"
 	  ENDIF
	#Grid 72	
 	  IF $LonVal > 79.3125  AND $LonVal < 79.75
 		  $CurrentCacheGrid = "72"
 	  ENDIF
 	  #Grid 73
 	  IF $LonVal > 78.8750  AND $LonVal <  79.3125
 		  $CurrentCacheGrid = "73"
 	  ENDIF
	  #Grid 74
 	  IF $LonVal > 78.437500  AND $LonVal <  78.8750
 		  $CurrentCacheGrid = "74"
 	  ENDIF		  
 	  #Grid 75 
 	  IF $LonVal > 78  AND $LonVal <  78.4375
 		  $CurrentCacheGrid = "75"
 	  ENDIF		  
 	  #Grid 76 
	IF $LonVal > 77.5625  AND $LonVal <  78
 		  $CurrentCacheGrid = "76"
 	  ENDIF		  
 	  # Grid 77
	IF $LonVal > 77.125  AND $LonVal < 77.5625 
 		  $CurrentCacheGrid = "77"
 	  ENDIF   	  
 	  #Grid 78
 	  IF $LonVal > 76.6875  AND $LonVal < 77.125 
 		  $CurrentCacheGrid = "78"
 	  ENDIF		  
 	  #Grid 79
 	  IF $LonVal > 76.25  AND $LonVal < 76.6875 
 		  $CurrentCacheGrid = "79"
 	  ENDIF
 	  #Grid 80 
 	  IF $LonVal > 75.8125 AND $LonVal < 76.25 
 		  $CurrentCacheGrid = "80"
 	  ENDIF	 	  
 	  #Grid 81
 	  IF $LonVal > 75.375 AND $LonVal < 75.8125
 		  $CurrentCacheGrid = "81"
 	  ENDIF 
 	  #Grid 82
 	  IF $LonVal > 74.9375 AND $LonVal < 75.375 
 		  $CurrentCacheGrid = "82"
 	  ENDIF
 	  #Grid 83
		IF $LonVal > 74.5 AND $LonVal < 74.9375
 		  $CurrentCacheGrid = "83"
 	  ENDIF
 ENDIF

#ROW 6 - Grids 84-96 and 96 is smaller 	
 IF $LatVal > $BOTTOM_OF_PA AND $LatVal < 40
 		#Grid 84
 	  IF $LonVal > 80.1875 AND $LonVal < $WEST_EDGE_OF_PA
 		  $CurrentCacheGrid = "84"
 	  ENDIF
	#Grid 85
 	  IF $LonVal > 79.75 AND $LonVal < 80.1875
 		  $CurrentCacheGrid = "85"
 	  ENDIF
	#Grid 86	
 	  IF $LonVal > 79.3125  AND $LonVal < 79.75
 		  $CurrentCacheGrid = "86"
 	  ENDIF
 	  #Grid 87
 	  IF $LonVal > 78.8750  AND $LonVal <  79.3125
 		  $CurrentCacheGrid = "87"
 	  ENDIF
	  #Grid 88
 	  IF $LonVal > 78.437500  AND $LonVal <  78.8750
 		  $CurrentCacheGrid = "88"
 	  ENDIF
 	  #Grid 89 
 	  IF $LonVal > 78  AND $LonVal <  78.4375
 		  $CurrentCacheGrid = "89"
 	  ENDIF
 	  #Grid 90 
	IF $LonVal > 77.5625  AND $LonVal <  78
 		  $CurrentCacheGrid = "90"
 	  ENDIF
 	  # Grid 91
	IF $LonVal > 77.125  AND $LonVal < 77.5625 
 		  $CurrentCacheGrid = "91"
 	  ENDIF 
 	  #Grid 92
 	  IF $LonVal > 76.6875  AND $LonVal < 77.125 
 		  $CurrentCacheGrid = "92"
 	  ENDIF
 	  #Grid 93
 	  IF $LonVal > 76.25  AND $LonVal < 76.6875 
 		  $CurrentCacheGrid = "93"
 	  ENDIF
 	  #Grid 94 
 	  IF $LonVal > 75.8125 AND $LonVal < 76.25 
 		  $CurrentCacheGrid = "94"
 	  ENDIF	 	  
 	  #Grid 95
 	  IF $LonVal > 75.375 AND $LonVal < 75.8125
 		  $CurrentCacheGrid = "95"
 	  ENDIF 
 	  #Grid 96  - the odd sized one
 	  IF $LonVal > 75 AND $LonVal < 75.375 
 		  $CurrentCacheGrid = "96"
 	  ENDIF	
 ENDIF
 # Set the grid as the Userdata field
 IF $CurrentCacheGrid <> ""
 	 $d_UserData = $GridText + $CurrentCacheGrid
 Else
   $d_UserData = ""
 ENDIF			
 GOTO position=next
ENDWHILE

Edited by DocDiTTo
Link to comment
The Peanuts

+The Peanuts

Posted
Posted

I am using v6.6.3 and I am getting an error on line 263; which is:

"if $LatVal> $BOTTOM_OF_PA AND $LatVal < 40"

I have virtually NO intelligence when it comes to computer programming, so if this is even remotely more technical than typing something in that line, I am doomed. Any help anyone??

Link to comment
DocDiTTo

+DocDiTTo

Posted
Posted

I am using v6.6.3 and I am getting an error on line 263; which is:

"if $LatVal> $BOTTOM_OF_PA AND $LatVal < 40"

I have virtually NO intelligence when it comes to computer programming, so if this is even remotely more technical than typing something in that line, I am doomed. Any help anyone??

 

Please update your GSAK to version 6.6.5 which is the version I tested with, then try again. (It's a free update with various bug fixes). Also try copying and pasting the text into notepad before you save it in your macro folder. If that still doesn't work, email me the error message you're getting from GSAK and I'll take a look.

Link to comment
sheudo

+sheudo

Posted
Posted

NO, you are reading my post completely WRONG DeskJocky. I am a premium member and have been for two years. What I was asking is this: I would like to send my PQ that I personally run of my finds to someone else who is a Premium Member to determine which grids I have fulfilled of the delmore map. However, I am being told that a premium member cannot share a pocket query with another premium member.

 

I have no idea how to run any type of mapping software so I will have to look at each grid on the map to determine if I found a cache in that area.

 

I upload my PQ on mygeocachingprofile.com and it shows you where you are for the PA Delorme and PA Counties and other challenges as well.

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
Followers 7
Go to topic listing
×
×
  • Create New...