#include-once
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>

#Region Header
#cs
    Title:          Google Maps v2 UDF Library for AutoIt3
    Filename:       Google Maps v2.au3
    Description:    A collection of functions for creating and controlling a Google Maps control in AutoIT
    Author:         seangriffin/Igor Kerekeš <Kescho>
    Version:        V2.1
    Last Update:    2013-11-23
    Requirements:   AutoIt3 3.2 or higher
    Changelog:      N/A
#ce
#EndRegion Header

#Region Global Variables and Constants
Global $gmap, $geocode_line, $bounds
Global $country = False, $address_is_latlng = False
#EndRegion Global Variables and Constants

#Region Core functions

#region _GUICtrlGoogleMap_GetLatLng()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetLatLng()
; Description ...:  Converts an address into a latitude and longitude array.
; Syntax.........:  _GUICtrlGoogleMap_GetLatLng($address)
; Parameters ....:  $address        - the address (either a location or latitude and longitude) to convert
;                                     ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
; Return values .:  On Success      - Returns an array with the latitude and longitude of the address.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_GetLatLng($address)

    Local $latlng[2], $latlng_search = 0, $address_part, $oHTTP, $HTMLSource

    $address_part = StringSplit($address, ",")
    _ArrayDelete($address_part, 0)

    ; if the geocode is a lat long
    if UBound($address_part) = 2 and IsNumber($address_part[0]) = True and IsNumber($address_part[1]) = True Then
        $address_is_latlng = True
        $latlng[0] = StringStripWS($address_part[0], 3)
        $latlng[1] = StringStripWS($address_part[1], 3)
    Else
        ; convert the address to a lat long
        $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
        $oHTTP.Open("GET","http://maps.google.com/maps/api/geocode/json?address=" & $address & "&sensor=false&")
        $oHTTP.Send()
        $HTMLSource = $oHTTP.Responsetext

        $geocode_line = StringSplit($HTMLSource, @LF, 1)

;_ArrayDisplay($geocode_line)

        For $latlng_search = 1 To $geocode_line[0]
            If StringInStr($geocode_line[$latlng_search], """location"" : {") Then
                $latlng[0] = $geocode_line[$latlng_search + 1]
                $latlng[0] = StringStripWS(StringReplace(StringReplace($latlng[0], """lat"" :", ""), ",", ""), 3)
                $latlng[1] = $geocode_line[$latlng_search + 2]
                $latlng[1] = StringStripWS(StringReplace(StringReplace($latlng[1], """lng"" :", ""), ",", ""), 3)
            EndIf
            ;if location is country...
            If StringInStr($geocode_line[$geocode_line[0] - 5], "         ""types"" : [ ""country"", ""political"" ]") Then
                $country = True
;~              $bounds[0] = $geocode_line[$geocode_line[0] - 25]
;~              $bounds[0] = StringStripWS(StringReplace(StringReplace($bounds[0], """lat"" :", ""), ",", ""), 3); <== SW lat
;~              $bounds[1] = $geocode_line[$geocode_line[0] - 24]
;~              $bounds[1] = StringStripWS(StringReplace(StringReplace($bounds[1], """lng"" :", ""), ",", ""), 3); <== SW lng
;~              $bounds[2] = $geocode_line[$geocode_line[0] - 29]
;~              $bounds[2] = StringStripWS(StringReplace(StringReplace($bounds[2], """lat"" :", ""), ",", ""), 3); <== NE lat
;~              $bounds[3] = $geocode_line[$geocode_line[0] - 28]
;~              $bounds[3] = StringStripWS(StringReplace(StringReplace($bounds[3], """lng"" :", ""), ",", ""), 3); <== NE lng
            EndIf
        Next
    EndIf

    Return $latlng
EndFunc
#endregion

#region _GUICtrlGoogleMap_Create()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_Create()
; Description ...:  Creates a Google Map control.
; Syntax.........:  _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = 1, $streetview = True, $overview_map = false, _
;                                                  $map_type = 0, $navigation_style = 0, $zoom_style = 0, $map_type_style = 0, $scale = 0, $lang = "en", $weather_unit = "C")
; Parameters ....:  $gmap               - The embedded Google Map object, required by the _GUICtrlGoogleMap functions below.
;                   $left               - The left side of the control.
;                   $top                - The top of the control.
;                   $width              - The width of the control.
;                   $height             - The height of the control.
;                   $address            - An address (either a location or latitude and longitude) to center the map on
;                                         ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
;                   $zoom               - An initial map zoom level.
;                   $marker             - 0 = Disable the marker for the above address
;                                         1 = Enable the marker for the above address
;                   $streetview         - A boolean indicating whether a streetview control is Enabled or Disabled.
;                   $overview_map       - A boolean indicating whether a small overview map is Enabled or Disabled
;                   $map_type           - 0 = Sets the map type to standard
;                                         1 = Sets the map type to satellite
;                                         2 = Sets the map type to hybrid
;                                         3 = Sets the map type to terrain
;                   $navigation_style   - 0 = Disable the Navigation control
;                                         1 = Enable the Navigation control with a small style
;                                         2 = Enable the Navigation control with a zoom pan style
;                                         3 = Enable the Navigation control with a android style
;                                         4 = Enable the Navigation control with a default style
;                   $zoom_style         - 0 = Disable the Zoom control
;                                         1 = Enable the Zoom control with a small style
;                                         2 = Enable the Zoom control with a large style
;                                         3 = Enable the Zoom control with a default style
;                   $map_type_style     - 0 = Disable the MapType control
;                                         1 = Enable the MapType control with a horizontal bar style
;                                         2 = Enable the MapType control with a dropdown menu style
;                                         3 = Enable the MapType control with a default style
;                   $scale              - 0 = Disable the Scale control
;                                         1 = Enable the Scale control
;                   $lang               - (Optional)
;                                         Sets the language for Google Maps controls, directions and labels localization.
;                                         For available languages see: http://code.google.com/intl/sk/apis/maps/faq.html#languagesupport
;                                         Default language = en
;                   $weather_unit       - Unit for displaying weather conditions
;                                         Default = C (C=CELSIUS, F=FAHRENHEIT)
; Return values .:  On Success          - Returns the identifier (controlID) of the new control.
;                   On Failure          - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  This function must be used before any other function in the UDF is used.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = 1, $streetview = True, $overview_map = False, $map_type = 0, _
                                    $navigation_style = 0, $zoom_style = 0, $map_type_style = 0, $scale = 0, $lang = "en", $weather_unit = "C")
    Local $gmap_ctrl, $onload_marker_options, $weather_unit_options

    If $marker = 1 Then
        $onload_marker_options = _
        "        marker = new google.maps.Marker({" & @CRLF & _
        "            position: latlng, " & @CRLF & _
        "            map: map," & @CRLF & _
        "            clickable: false" & @CRLF & _
        "        });" & @CRLF & _
        "//        markersArray.push(marker);"
    Else
        $onload_marker_options = ""
    EndIf

    If $weather_unit = "C" Then
        $weather_unit_options = "CELSIUS"
    ElseIf $weather_unit = "F" Then
        $weather_unit_options = "FAHRENHEIT"
    EndIf

    If $address_is_latlng = True Then
        $bounds = ""
    Else
        $bounds = _
        "        var geocoder = new google.maps.Geocoder();" & @CRLF & _
        "            geocoder.geocode({""address"": """ & $address & """}, function (results, status) {" & @CRLF & _
        "                var ne = results[0].geometry.viewport.getNorthEast();" & @CRLF & _
        "                var sw = results[0].geometry.viewport.getSouthWest();" & @CRLF & _
        "                map.fitBounds(results[0].geometry.viewport);" & @CRLF & _
        "            });"
    EndIf

    Local Const $navigation_style_html[5] = [ _
        "navigationControl: false, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.SMALL}, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.ZOOM_PAN}, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.ANDROID}, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.DEFAULT}, "]
    Local Const $zoom_style_html[4] = [ _
        "zoomControl: false, ", _
        "zoomControl: true, zoomControlOptions: {style: google.maps.ZoomControlStyle.SMALL}, ", _
        "zoomControl: true, zoomControlOptions: {style: google.maps.ZoomControlStyle.LARGE}, ", _
        "zoomControl: true, zoomControlOptions: {style: google.maps.ZoomControlStyle.DEFAULT}, "]
    Local Const $map_type_style_html[4] = [ _
        "mapTypeControl: true, ", _
        "mapTypeControl: true, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.HORIZONTAL_BAR}, ", _
        "mapTypeControl: true, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.DROPDOWN_MENU}, ", _
        "mapTypeControl: true, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.DEFAULT}, "]
    Local Const $map_type_html[4] = [ _
        "mapTypeId: google.maps.MapTypeId.ROADMAP", _
        "mapTypeId: google.maps.MapTypeId.SATELLITE", _
        "mapTypeId: google.maps.MapTypeId.HYBRID", _
        "mapTypeId: google.maps.MapTypeId.TERRAIN"]
    Local Const $scale_html[2] = [ _
        "scaleControl: false, ", _
        "scaleControl: true, "]
    Local $latlng[2]

    $latlng = _GUICtrlGoogleMap_GetLatLng($address)

    Local $html1a = _
    "<!DOCTYPE html>" & @CRLF & _
    "<html>" & @CRLF & _
    "<head>" & @CRLF & _
    "    <title>Google Maps JavaScript API v3: Directions Draggable</title>" & @CRLF & _
    "    <meta name=""viewport"" content=""initial-scale=1.0, user-scalable=no"">" & @CRLF & _
    "    <meta http-equiv=""X-UA-Compatible"" content=""IE=8; charset=UTF-8"">" & @CRLF & _
    "    <link href=""http://code.google.com/apis/maps/documentation/javascript/examples/default.css"" rel=""stylesheet"" type=""text/css"" />" & @CRLF & _
    "    <style type=""text/css"">" & @CRLF & _
    "       #map_canvas { height: 100%; width: 100%; }" & @CRLF & _
    "    </style>" & @CRLF & _
    "    <script type=""text/javascript"" src=""http://maps.googleapis.com/maps/api/js?sensor=false&libraries=geometry,places,weather&language=" & StringLower($lang) & """></script>" & @CRLF & _
    "    <script type=""text/javascript"">" & @CRLF & _
    "        var rendererOptions = {draggable: true};" & @CRLF & _
    "        var directionsDisplay = new google.maps.DirectionsRenderer(rendererOptions);" & @CRLF & _
    "        var directionsService = new google.maps.DirectionsService();" & @CRLF & _
    "        var map;" & @CRLF & _
    "        var geocoder = new google.maps.Geocoder();" & @CRLF & _
    "        var latlng = new google.maps.LatLng(" & $latlng[0] & "," & $latlng[1] & ");" & @CRLF & _
    "        var latlng;" & @CRLF & _
    "        var markersArray = [];" & @CRLF & _
    "        var totalDistance = 0;" & @CRLF & _
    "        var totalDuration = 0;" & @CRLF & _
    "        var totalDetails;" & @CRLF & _
    "        var marker;" & @CRLF & _
    "        var markerPosition;" & @CRLF & _
    "        var markerAddress;" & @CRLF & _
    "        var updateLATLNG;" & @CRLF & _
    "        var updateLAT;" & @CRLF & _
    "        var updateLNG;" & @CRLF & _
    "        var updateADDRESS;" & @CRLF & _
    "        var weatherLayer;" & @CRLF & _
    "        var zoomLevel = 0;" & @CRLF & _
    "        function initialize() {" & @CRLF & _
    "            document.body.scroll = ""no"";" & @CRLF

    If $country = True Then
        Local $html1b = _
        "        var myOptions = {" & @CRLF & _
        "            disableDefaultUI: false, " & @CRLF & _
        "            " & $navigation_style_html[$navigation_style] & @CRLF & _
        "            streetViewControl: " & StringLower($streetview) & ", " & @CRLF & _
        "            overviewMapControl: " & StringLower($overview_map) & ", " & @CRLF & _
        "            " & $scale_html[$scale] & @CRLF & _
        "            " & $zoom_style_html[$zoom_style] & @CRLF & _
        "            " & $map_type_style_html[$map_type_style] & @CRLF & _
        "            " & $map_type_html[$map_type] & @CRLF & _
        "        };" & @CRLF & _
        "        weatherLayer = new google.maps.weather.WeatherLayer({" & @CRLF & _
        "            clickable: false," & @CRLF & _
        "            suppressInfoWindows: true," & @CRLF & _
        "            temperatureUnits: google.maps.weather.TemperatureUnit." & $weather_unit_options & @CRLF & _
        "        });" & @CRLF & _
        "        map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);" & @CRLF & _
        "        " & $onload_marker_options & @CRLF & _
        "        " & $bounds & @CRLF & _
        "        directionsDisplay.setMap(map);" & @CRLF & _
        "        google.maps.event.addListener(directionsDisplay, 'directions_changed', function() {" & @CRLF & _
        "            computeTotalDistance(directionsDisplay.directions);" & @CRLF & _
        "        });" & @CRLF & _
        "        var boundsChangedListener = google.maps.event.addListener(map, ""bounds_changed"", function(event){" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "            google.maps.event.removeListener(boundsChangedListener);" & @CRLF & _
        "        });" & @CRLF & _
        "        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "        });" & @CRLF & _
        "        updateMarkerPosition(latlng);" & @CRLF & _
        "        geocodePosition(latlng);" & @CRLF & _
        "        zoomLevel = setTimeout(function() {map.getZoom()}, 250);" & @CRLF & _
        "    }" & @CRLF
    Else
        Local $html1b = _
        "        var myOptions = {" & @CRLF & _
        "            disableDefaultUI: false," & @CRLF & _
        "            zoom: " & $zoom & ", " & @CRLF & _
        "            center: latlng, " & @CRLF & _
        "            " & $navigation_style_html[$navigation_style] & @CRLF & _
        "            streetViewControl: " & StringLower($streetview) & ", " & @CRLF & _
        "            overviewMapControl: " & StringLower($overview_map) & ", " & @CRLF & _
        "            " & $scale_html[$scale] & @CRLF & _
        "            " & $zoom_style_html[$zoom_style] & @CRLF & _
        "            " & $map_type_style_html[$map_type_style] & @CRLF & _
        "            " & $map_type_html[$map_type] & @CRLF & _
        "        };" & @CRLF & _
        "        weatherLayer = new google.maps.weather.WeatherLayer({" & @CRLF & _
        "            clickable: false," & @CRLF & _
        "            suppressInfoWindows: true," & @CRLF & _
        "            temperatureUnits: google.maps.weather.TemperatureUnit." & $weather_unit_options & @CRLF & _
        "        });" & @CRLF & _
        "        map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);" & @CRLF & _
        "        " & $onload_marker_options & @CRLF & _
        "        directionsDisplay.setMap(map);" & @CRLF & _
        "        google.maps.event.addListener(directionsDisplay, 'directions_changed', function() {" & @CRLF & _
        "            computeTotalDistance(directionsDisplay.directions);" & @CRLF & _
        "        });" & @CRLF & _
        "        var boundsChangedListener = google.maps.event.addListener(map, ""bounds_changed"", function(event){" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "            google.maps.event.removeListener(boundsChangedListener);" & @CRLF & _
        "        });" & @CRLF & _
        "        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "        });" & @CRLF & _
        "        updateMarkerPosition(latlng);" & @CRLF & _
        "        geocodePosition(latlng);" & @CRLF & _
        "        zoomLevel = setTimeout(function() {map.getZoom()}, 250);" & @CRLF & _
        "    }" & @CRLF
    EndIf

    Local $html1c = _
    "        function calcRoute(start, end, travel_mode_num, wp1, wp2, wp3, wp4) {" & @CRLF & _
    "            directionsDisplay.setMap(map);" & @CRLF & _
    "            var wpt = [wp1, wp2, wp3, wp4];" & @CRLF & _
    "            var waypts = [];" & @CRLF & _
    "            for (i = 0; i < 4; i++) {" & @CRLF & _
    "                if (wpt[i] != ' ') {" & @CRLF & _
    "                    waypts.push({location: wpt[i]});" & @CRLF & _
    "                };" & @CRLF & _
    "            }" & @CRLF & _
    "            var travel_mode = [google.maps.DirectionsTravelMode.DRIVING, google.maps.DirectionsTravelMode.WALKING, google.maps.DirectionsTravelMode.BICYCLING];" & @CRLF & _
    "            var request = {" & @CRLF & _
    "                origin: start," & @CRLF & _
    "                destination: end," & @CRLF & _
    "//                waypoints:[{location: ""Rudná, SK""}, {location: ""Jovice, SK""}, {location: ""Nadabula, SK""}, {location: ""Èuèma, SK""}]," & @CRLF & _
    "                waypoints: waypts," & @CRLF & _
    "                travelMode: travel_mode[travel_mode_num]" & @CRLF & _
    "            };" & @CRLF & _
    "            directionsService.route(request, function(response, status) {" & @CRLF & _
    "                if (status == google.maps.DirectionsStatus.OK) {" & @CRLF & _
    "                    directionsDisplay.setDirections(response);" & @CRLF & _
    "                }" & @CRLF & _
    "            });" & @CRLF & _
    "            zoomLevel = map.getZoom();" & @CRLF & _
    "        }" & @CRLF & _
    "        function computeTotalDistance(result) {" & @CRLF & _
    "            totalDistance = 0;" & @CRLF & _
    "            totalDuration = 0;" & @CRLF & _
    "            var myroute = result.routes[0];" & @CRLF & _
    "            for (i = 0; i < myroute.legs.length; i++) {" & @CRLF & _
    "                totalDistance += myroute.legs[i].distance.value;" & @CRLF & _
    "                totalDuration += myroute.legs[i].duration.value;" & @CRLF & _
    "            }" & @CRLF & _
    "            totalDetails = totalDistance + ""~"" + totalDuration + ""\n"";" & @CRLF & _
    "            for (i = 0; i < myroute.legs.length; i++) {" & @CRLF & _
    "                totalDetails = totalDetails + myroute.legs[i].start_address + ""\n"";" & @CRLF & _
    "                totalDetails = totalDetails + myroute.legs[i].distance.value + ""~"" + myroute.legs[i].duration.value + ""\n"";" & @CRLF & _
    "                for (x = 0; x < myroute.legs[i].steps.length; x++) {" & @CRLF & _
    "                    totalDetails = totalDetails + (x + 1) + "".~"" + myroute.legs[i].steps[x].instructions + ""~"" + myroute.legs[i].steps[x].distance.value + ""\n"";" & @CRLF & _
    "                }" & @CRLF & _
    "                totalDetails = totalDetails + myroute.legs[i].end_address + ""\n"";" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function move_map(address, zoom, loc_marker) {" & @CRLF & _
    "            if (loc_marker == 1) {" & @CRLF & _
    "                directionsDisplay.setMap(null);" & @CRLF & _
    "                geocoder.geocode( {""address"": address}, function(results, status) {" & @CRLF & _
    "                    if (status == google.maps.GeocoderStatus.OK) {" & @CRLF & _
    "                        map.setCenter(results[0].geometry.location);" & @CRLF & _
    "                        marker = new google.maps.Marker({" & @CRLF & _
    "                            map: map," & @CRLF & _
    "                            position: results[0].geometry.location," & @CRLF & _
    "                            draggable: true" & @CRLF & _
    "                        });" & @CRLF & _
    "                        markersArray.push(marker);" & @CRLF & _
    "                        updateMarkerPosition(results[0].geometry.location);" & @CRLF & _
    "                        geocodePosition(results[0].geometry.location);" & @CRLF & _
    "                        google.maps.event.addListener(marker, ""drag"", function() {" & @CRLF & _
    "                            updateMarkerPosition(marker.getPosition());" & @CRLF & _
    "                        });" & @CRLF & _
    "                        google.maps.event.addListener(marker, ""dragend"", function() {" & @CRLF & _
    "                            geocodePosition(marker.getPosition());" & @CRLF & _
    "                        });" & @CRLF & _
    "//                        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
    "//                            zoomLevel = map.getZoom();" & @CRLF & _
    "//                            map.setCenter(marker.getPosition());" & @CRLF & _
    "//                        });" & @CRLF & _
    "                    } else {" & @CRLF & _
    "                        alert(""Geocode was not successful for the following reason: "" + status);" & @CRLF & _
    "                    }" & @CRLF & _
    "                });" & @CRLF & _
    "            } else if (loc_marker == 0) {" & @CRLF & _
    "                directionsDisplay.setMap(null);" & @CRLF & _
    "                geocoder.geocode( {""address"": address}, function(results, status) {" & @CRLF & _
    "                    if (status == google.maps.GeocoderStatus.OK) {" & @CRLF & _
    "                        map.setCenter(results[0].geometry.location);" & @CRLF & _
    "                        updateMarkerPosition(results[0].geometry.location);" & @CRLF & _
    "                        geocodePosition(results[0].geometry.location);" & @CRLF & _
    "//                        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
    "//                            zoomLevel = map.getZoom();" & @CRLF & _
    "//                            map.setCenter(marker.getPosition());" & @CRLF & _
    "//                        });" & @CRLF & _
    "                    } else {" & @CRLF & _
    "                        alert(""Geocode was not successful for the following reason: "" + status);" & @CRLF & _
    "                    }" & @CRLF & _
    "                });" & @CRLF & _
    "            }" & @CRLF & _
    "            map.setZoom(zoom);" & @CRLF & _
    "            zoomLevel = map.getZoom();" & @CRLF & _
    "        }" & @CRLF & _
    "        function showCoordinates(lat, lng, zoom) {" & @CRLF & _
    "            var markerPosition;" & @CRLF & _
    "            var markerAddress;" & @CRLF & _
    "            var GPScoord = new google.maps.LatLng(lat, lng);" & @CRLF & _
    "            directionsDisplay.setMap(null);" & @CRLF & _
    "            map.setCenter(GPScoord);" & @CRLF & _
    "            marker = new google.maps.Marker({" & @CRLF & _
    "                map: map, " & @CRLF & _
    "                position: GPScoord, " & @CRLF & _
    "                draggable: true" & @CRLF & _
    "            });" & @CRLF & _
    "            markersArray.push(marker);" & @CRLF & _
    "            map.setZoom(zoom);" & @CRLF & _
    "            updateMarkerPosition(GPScoord);" & @CRLF & _
    "            geocodePosition(GPScoord);" & @CRLF & _
    "            google.maps.event.addListener(marker, ""drag"", function() {" & @CRLF & _
    "                updateMarkerPosition(marker.getPosition());" & @CRLF & _
    "            });" & @CRLF & _
    "            google.maps.event.addListener(marker, ""dragend"", function() {" & @CRLF & _
    "                geocodePosition(marker.getPosition());" & @CRLF & _
    "            });" & @CRLF & _
    "//            google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
    "//                zoomLevel = map.getZoom();" & @CRLF & _
    "//                map.setCenter(marker.getPosition());" & @CRLF & _
    "//            });" & @CRLF & _
    "            zoomLevel = map.getZoom();" & @CRLF & _
    "        }" & @CRLF

    Local $html1d = _
    "        function geocodePosition(pos) {" & @CRLF & _
    "            geocoder.geocode( {""location"": pos}, function(results, status) {" & @CRLF & _
    "            if (status == google.maps.GeocoderStatus.OK) {" & @CRLF & _
    "                updateMarkerAddress(results[0].formatted_address);" & @CRLF & _
    "            } else {" & @CRLF & _
    "                updateMarkerAddress(""Cannot determine address at this location. "" + status);" & @CRLF & _
    "            }" & @CRLF & _
    "            });" & @CRLF & _
    "        }" & @CRLF & _
    "        function updateMarkerPosition(latlng) {" & @CRLF & _
    "            updateLATLNG = latlng.lat() + "", "" + latlng.lng();" & @CRLF & _
    "            updateLAT = latlng.lat();" & @CRLF & _
    "            updateLNG = latlng.lng();" & @CRLF & _
    "        }" & @CRLF & _
    "        function updateMarkerAddress(str) {" & @CRLF & _
    "            updateADDRESS = str" & @CRLF & _
    "        }" & @CRLF & _
    "        function zoom_map(zoom) {" & @CRLF & _
    "            if(markersArray.length > 0) {" & @CRLF & _
    "                map.setCenter(marker.getPosition());" & @CRLF & _
    "            }" & @CRLF & _
    "            map.setZoom(zoom);" & @CRLF & _
    "        }" & @CRLF & _
    "        function routeDetails() {" & @CRLF & _
    "            var totalRouteDetails = totalDetails" & @CRLF & _
    "            return totalRouteDetails;" & @CRLF & _
    "        }" & @CRLF & _
    "        function updatePosition() {" & @CRLF & _
    "            updatePOS = updateLAT + ""~"" + updateLNG + ""~"" + updateADDRESS" & @CRLF & _
    "            return updatePOS;" & @CRLF & _
    "        }" & @CRLF & _
    "        function getMapZoomLevel() {" & @CRLF & _
    "            return zoomLevel;" & @CRLF & _
    "        }" & @CRLF & _
    "        function addMarker(lat, lng, icon_url) {" & @CRLF & _
    "            var location = new google.maps.LatLng(lat, lng);" & @CRLF & _
    "            marker = new google.maps.Marker({" & @CRLF & _
    "                position: location," & @CRLF & _
    "                map: map," & @CRLF & _
    "                icon: icon_url" & @CRLF & _
    "            });" & @CRLF & _
    "            markersArray.push(marker);" & @CRLF & _
    "        }" & @CRLF & _
    "        function clearMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    markersArray[i].setMap(null);" & @CRLF & _
    "                }" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function showMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    markersArray[i].setMap(map);" & @CRLF & _
    "                }" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function deleteMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    markersArray[i].setMap(null);" & @CRLF & _
    "                }" & @CRLF & _
    "                markersArray.length = 0;" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function viewMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                var latlngbounds = new google.maps.LatLngBounds();" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    latlngbounds.extend(markersArray[i].getPosition());" & @CRLF & _
    "                }" & @CRLF & _
    "                map.fitBounds(latlngbounds);" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function weather(status) {" & @CRLF & _
    "            switch (status) {" & @CRLF & _
    "                case 0:" & @CRLF & _
    "                    weatherLayer.setMap(null);" & @CRLF & _
    "                    break;" & @CRLF & _
    "                case 1:" & @CRLF & _
    "                    weatherLayer.setMap(map);" & @CRLF & _
    "                    break;" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "    </script>" & @CRLF & _
    "</head>" & @CRLF & _
    "<body>" & @CRLF & _
    "<body style=""margin:0px; padding:0px;"" onload=""initialize();"">" & @CRLF & _
    "    <div id=""map_canvas""></div>" & @CRLF & _
    "</body>" & @CRLF & _
    "</html>"

    Dim $html = $html1a & $html1b & $html1c & $html1d

    $gmap = _IECreateEmbedded()
    $gmap_ctrl = GUICtrlCreateObj($gmap, $left, $top, $width, $height)
    _IENavigate($gmap, "about:blank", 0)
    _IEDocWriteHTML($gmap, $html)
    _IEAction ($gmap, "refresh")

    Return $gmap_ctrl
EndFunc
#endregion

#region _GUICtrlGoogleMap_ViewLocation()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ViewLocation()
; Description ...:  Sets the center of a Google Map to a new address.
; Syntax.........:  _GUICtrlGoogleMap_ViewLocation($gmap, $address, $zoom)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $address        - An address (either a location or latitude and longitude) to center the map on
;                                     ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
;                   $zoom           - Map zoom level
;                                     (Optional) [Default = 12]
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  Not the exact location if GPS Coordinates are entered, location is binded to an existing address.
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_ViewLocation($gmap, $address, $zoom = 12, $location_marker = 1)

    $gmap.document.parentWindow.execScript("move_map(""" & $address & """, " & $zoom & ", " & $location_marker & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ViewCoordinates()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ViewCoordinates()
; Description ...:  Sets the center of a Google Map to coordinates.
; Syntax.........:  _GUICtrlGoogleMap_ViewCoordinates($gmap, $lat, $lng, $zoom)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $lat            - Latitude to center the map on
;                   $lat            - Longitude to center the map on
;                   $zoom           - Map zoom level
;                                     (Optional) [Default = 12]
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:  Shows the exact location from GPS coordinates.
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_ViewCoordinates($gmap, $lat, $lng, $zoom = 12)

    $gmap.document.parentWindow.execScript("showCoordinates(" & $lat & ", " & $lng & ", " & $zoom & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ZoomView()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ZoomView()
; Description ...:  Zooms the center of a Google Map to a new level.
; Syntax.........:  _GUICtrlGoogleMap_ZoomView($gmap, $scale)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $zoom           - The level to zoom the view to.
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_ZoomView($gmap, $zoom)

    $gmap.document.parentWindow.execScript("zoom_map(" & $zoom & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_GetMapZoom()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetMapZoom()
; Description ...:  Get the zoom level of the displayed map.
; Syntax.........:  _GUICtrlGoogleMap_GetMapZoom($gmap, $get_zoom_level)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $zoom_level     - The zoom level of the map.
; Return values .:  On Success      - Returns zoom level of the map.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetMapZoom($gmap)
    Local $actual_zoom_level

    $actual_zoom_level = $gmap.document.parentWindow.eval("getMapZoomLevel();")

    Return $actual_zoom_level
EndFunc
#endregion

#region _GUICtrlGoogleMap_AddMarker()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_AddMarker()
; Description ...:  Adds a marker to a Google Map.
; Syntax.........:  _GUICtrlGoogleMap_AddMarker($gmap, $address)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $address        - An address (either a location or latitude and longitude) to add the marker to
;                                     ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
;                   $icon_url       - (Optional) A URL to an image that will be used for the icon of the marker.
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:  This function must be used before any other function in the UDF is used.
;                   There is currently a clipping problem with the control, where the video
;                   is overdrawn by any other window that overlaps it.  There is no known
;                   solution at this time.
;
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_AddMarker($gmap, $address, $icon_url = "")
    Local $latlng[2]

    $latlng = _GUICtrlGoogleMap_GetLatLng($address)
    $gmap.document.parentWindow.execScript("addMarker(" & $latlng[0] & "," & $latlng[1] & ",'" & $icon_url & "');")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_HideAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_HideAllMarkers()
; Description ...:  Hides all the markers on a Google Map (previously created by the function "_GUICtrlGoogleMap_AddMarker").
; Syntax.........:  _GUICtrlGoogleMap_HideAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_HideAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("clearMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ShowAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ShowAllMarkers()
; Description ...:  Shows all the markers on a Google Map (previously hidden by the function "_GUICtrlGoogleMap_HideAllMarkers").
; Syntax.........:  _GUICtrlGoogleMap_ShowAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_ShowAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("showMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_DeleteAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_DeleteAllMarkers()
; Description ...:  Deletes all the markers on a Google Map (previously created by the function "_GUICtrlGoogleMap_AddMarker").
; Syntax.........:  _GUICtrlGoogleMap_DeleteAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_DeleteAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("deleteMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ViewAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ViewAllMarkers()
; Description ...:  Sets the view of a Google Map to fit all the markers (previously created by the function "_GUICtrlGoogleMap_AddMarker")..
; Syntax.........:  _GUICtrlGoogleMap_ViewAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_ViewAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("viewMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_SetMapType()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_SetMapType()
; Description ...:  Sets the type of map displayed.
; Syntax.........:  _GUICtrlGoogleMap_SetMapType($gmap, $map_type)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $map_type       - 0 = Sets the map type to standard
;                                     1 = Sets the map type to satellite
;                                     2 = Sets the map type to hybrid
;                                     3 = Sets the map type to terrain
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_SetMapType($gmap, $map_type)
    Local Const $map_type_html[4] = [ _
        "google.maps.MapTypeId.ROADMAP", _
        "google.maps.MapTypeId.SATELLITE", _
        "google.maps.MapTypeId.HYBRID", _
        "google.maps.MapTypeId.TERRAIN"]

    $gmap.document.parentWindow.execScript("map.setMapTypeId(" & $map_type_html[$map_type] & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_AddRoute()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_AddRoute()
; Description ...:  Adds a route (visually) to the map.
; Syntax.........:  _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0, $wp1 = " ", $wp2 = " ", $wp3 = " ", $wp4 = " ")
; Parameters ....:  $gmap               - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $start_location     - The starting location of the route.
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $end_location       - The ending location of the route.
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $travel_mode        - 0 = Uses a travel mode of DRIVING
;                                         1 = Uses a travel mode of WALKING
;                                         2 = Uses a travel mode of BICYCLING
;                   $wp1                - (Optional)
;                                         Sets first Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $wp2                - (Optional)
;                                         Sets second Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $wp3                - (Optional)
;                                         Sets third Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $wp4                - (Optional)
;                                         Sets fourth Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  Route is draggable.
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0, $wp1 = " ", $wp2 = " ", $wp3 = " ", $wp4 = " ")

    $gmap.document.parentWindow.eval("calcRoute(""" & $start_location & """, """ & $end_location & """, " & $travel_mode & ", """ & $wp1 & """, """ & $wp2 & """, """ & $wp3 & """, """ & $wp4 & """)")

    Return True
EndFunc
#endregion
;directionsDisplay.setMap(null);

#region _GUICtrlGoogleMap_DeleteRoute()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetRouteDetails()
; Description ...:  Gets the directions of a route.
; Syntax.........:  _GUICtrlGoogleMap_GetRouteDetails($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns route details (duration, distance, start, end and directions.
;                   On Failure      - Returns ???.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:  Contains directions steps and distance in meters.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_DeleteRoute($gmap)
    ;Local $routeDetails

    $gmap.document.parentWindow.eval("directionsDisplay.setMap(null);")

    ;Return $routeDetails
EndFunc
#endregion

#region _GUICtrlGoogleMap_GetRouteDetails()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetRouteDetails()
; Description ...:  Gets the directions of a route.
; Syntax.........:  _GUICtrlGoogleMap_GetRouteDetails($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns route details (duration, distance, start, end and directions.
;                   On Failure      - Returns ???.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:  Contains directions steps and distance in meters.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetRouteDetails($gmap)
    Local $routeDetails

    $routeDetails = $gmap.document.parentWindow.eval("routeDetails()")

    Return $routeDetails
EndFunc
#endregion

#region _GUICtrlGoogleMap_GetPosition()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetPosition()
; Description ...:  Gets the position of marker.
; Syntax.........:  _GUICtrlGoogleMap_GetPosition($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetPosition($gmap)
    Local $positionDetails[3], $position_details, $details, $posLAT, $posLNG, $posADR

    $posLAT = ""
    $posLNG = ""
    $posADR = ""

    $position_details = $gmap.document.parentWindow.eval("updatePosition()")
    $details = StringSplit($position_details, "~", 1)

    $posLAT = $details[1]
    $posLNG = $details[2]
    $posADR = $details[3]

    $positionDetails[0] = $posLAT
    $positionDetails[1] = $posLNG
    $positionDetails[2] = $posADR

    Return $positionDetails
EndFunc
#endregion

#region _GUICtrlGoogleMap_Weather()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_Weather()
; Description ...:  Enable or Disable the Weather Service
; Syntax.........:  _GUICtrlGoogleMap_Weather($gmap, $status, $unit)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $status         - Enable/Disable
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_Weather($gmap, $status = 0)

    $gmap.document.parentWindow.execScript("weather(" & $status & ");")

    Return True
EndFunc
#endregion

#cs
#region _GUICtrlGoogleMap_GetRouteDetails()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetRouteDetails()
; Description ...:  Gets the details of a route.
; Syntax.........:  _GUICtrlGoogleMap_GetRouteDetails($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns array of values.
;                   On Failure      - Returns ???.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  Distance in meters and duration in seconds.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetRouteDetails($gmap)
    Local $routeDetails[2], $route_details, $details, $distance, $duration

    $distance = ""
    $duration = ""

    $route_details = $gmap.document.parentWindow.eval("routeDetails()")
    $details = StringSplit($route_details, "~", 1)

    $distance = $details[1]
    $duration = $details[2]

    $routeDetails[0] = $distance
    $routeDetails[1] = $duration

    Return $routeDetails
EndFunc
#endregion
#ce