That script is most likely "out there" somewhere. I'll post what I used for Mach3. It was a modified version of CNCRP's script I believe. I changed it such that it paused until the plate was touched to the tool to verify a good connection. You can modify it to fit your needs or just use it for reference or think 'thanks for nothing' and keep looking.
Dim Zprobe, Zretract, ZfeedRate
'Note: TouchPlateHeight represents the actual height of the
' Auto Z Touch Plate from the work surface.
' Minor adjustments can be made for calibration purposes (use caution)
TouchPlateHeight = 0.063 '1 inch for CNC Router Parts Touch Plate
Message( "Auto Tool Zeroing..." )
'26MR17 - adding wait until we sense a test connection to make sure
'everything is working...
'This waits until the digitize led (825) is on to continue
'So, once the plate is in place and wire is clipped to tool, a quick touch of the plate
'to the tool will allow program to continue
While (GetOEMLed(825) = 0 )
Wend
Message ("Contact Sensed")
If IsSuchSignal (22) Then
isMetric = GetOEMLED(801)
Zprobe = -3
Zretract = 1.5
ZfeedRate = 1
If isMetric = 0 Then
Zprobe = Zprobe * 25.4
Zretract = Zretract * 25.4
ZfeedRate = ZfeedRate *25.4
TouchPlateHeight = TouchPlateHeight * 25.4
End If
Call SetDRO( 2, 0.00 )
code "G31 Z" & Zprobe & " F" & ZfeedRate
While IsMoving()
Wend
Call SetDRO( 2, TouchPlateHeight )
code "G1 Z" & Zretract & "F40"
End If