const
  imgloc = 'http://geoget.ararat.cz/img/ge/';
  
var 
  gc_type_last : string;  

function ExportExtension: string;
begin
  result := 'KML';
end;

function ExportDescription: string;
begin
  result := 'Cache details (shorted) for iGO8 by Fractal&ATom';
end;

function ExportHeader: string;
begin
  Result :='<?xml version="1.0" encoding="UTF-8"?>' + CRLF
  + '<kml xmlns="http://earth.google.com/kml/2.2">' + CRLF
  + '<Document>' + CRLF
  
  + '  <Style id="mp_point">' + CRLF
  + '   <IconStyle>' +  CRLF
  + '    <scale>0.6</scale>' + CRLF  
  + '    <Icon><href>' + imgloc + 'mp_point.png</href></Icon>' + CRLF
  + '   </IconStyle>' +  CRLF
  + '   <LabelStyle><scale>0.7</scale></LabelStyle>' + CRLF
  + '  </Style>' + CRLF
  
  + '  <Style id="mp_found">' + CRLF
  + '   <IconStyle>' +  CRLF
  + '    <scale>0.6</scale>' + CRLF  
  + '    <Icon><href>' + imgloc + 'mp_found.png</href></Icon>' + CRLF
  + '   </IconStyle>' +  CRLF
  + '   <LabelStyle><scale>0.7</scale></LabelStyle>' + CRLF
  + '  </Style>' + CRLF

  + '  <Style id="mp_own">' + CRLF
  + '   <IconStyle>' +  CRLF
  + '    <scale>0.6</scale>' + CRLF  
  + '    <Icon><href>' + imgloc + 'mp_own.png</href></Icon>' + CRLF
  + '   </IconStyle>' +  CRLF
  + '   <LabelStyle><scale>0.7</scale></LabelStyle>' + CRLF
  + '  </Style>' + CRLF

  + '  <Style id="mp_disabled">' + CRLF
  + '   <IconStyle>' +  CRLF
  + '    <scale>0.6</scale>' + CRLF  
  + '    <Icon><href>' + imgloc + 'mp_disabled.png</href></Icon>' + CRLF
  + '   </IconStyle>' +  CRLF
  + '   <LabelStyle><scale>0.7</scale></LabelStyle>' + CRLF
  + '  </Style>' + CRLF;
end;


function ExportFooter: string;
begin
  result := '</Folder>' + CRLF + '</Document>' + CRLF + '</kml>' + CRLF;
end;

function ExportPoint: string;
var mapIconStyle, bubbleicon, foundstatus, shinfo, status : string;
begin

  bubbleicon:='blank.png';
  foundstatus:='gc_notfound.png';
  mapIconStyle:='mp_point';
  shinfo:=''; status:='';

  if gc_isfound then begin
    foundstatus:='gc_found.png';
    mapIconStyle:='mp_found';
    status:= status + 'F';
  end;
  if gc_isowner then begin 
    mapIconStyle:='mp_own';
    status:= status + 'O';
  end;
  if gc_isdisabled then begin
    mapIconStyle:='mp_disabled';
    status:= '!' + status;
  end;  
    
  if (gc_type = 'Multi Cache') then gc_type := 'Multi-cache';  
  
  if gc_type='Traditional Cache' then bubbleicon:=imgloc+'gc_traditional.gif';
  if gc_type='Multi-cache' then bubbleicon:=imgloc+'gc_multi.gif';
  if gc_type='Unknown Cache' then bubbleicon:=imgloc+'gc_unknown.gif';
  if gc_type='Webcam Cache' then bubbleicon:=imgloc+'gc_webcam.gif';
  if gc_type='Event Cache' then bubbleicon:=imgloc+'gc_event.gif';
  if gc_type='Letterbox Hybrid' then bubbleicon:=imgloc+'gc_letter.gif';
  if gc_type='Earthcache' then bubbleicon:=imgloc+'gc_earthcache.gif';
  if gc_type='Virtual Cache' then bubbleicon:=imgloc+'gc_virtual.gif';

  shinfo:= Uppercase(copy(gc_type,1,1)) + Uppercase(copy(GC_SIZE,1,1)) + GC_DIFFICULTY + '/' + GC_TERRAIN;
 
  if (gc_type_last <> gc_type) then begin
    if (gc_type_last<>'') then Result := Result  + '</Folder>' + CRLF;
    Result := Result + '<Folder>' + CRLF + ' <name>' + gc_type + '</name>' + CRLF
    gc_type_last := gc_type;
  end;
  
  GC_TYPE := Trim(ReplaceString(ReplaceString(ReplaceString(GC_TYPE,'Cache',''),'cache',''),'-',''));
 
  Result := Result + ' <Placemark>' + CRLF
  + '  <name>' + CDATA(status + ' ' + GC_FullName + ' [' + shinfo + ']') + '</name>' + CRLF
  + '  <description>' + CDATA('<IMG SRC="' + bubbleicon + '" width="32" height="32"><IMG SRC="' + imgloc + foundstatus + '" width="37" height="37"><BR><B>ID: <A HREF="' + GC_URL + '">' + GC_ID + '</A>' + '</B>, <BR>'
                      + '<B>H:</B> ' + Reverse(GC_HINT) + ', <BR>'
                      + '<B>A:</B> ' + GC_AUTHOR + ', <BR>'
                      + '<B>U:</B> ' + DateToStr(GC_Updated) + ', <BR>'
                      + '<B>T/S:</B> ' + GC_TYPE + '/' + GC_SIZE + ', <BR>' 
                      + '<B>D/T:</B> ' + GC_DIFFICULTY + '/' + GC_TERRAIN + '<BR>');
                      
   
  Result := Result + '</description>' + CRLF
  + '  <styleUrl>#' + mapIconStyle + '</styleUrl>' + CRLF
  + '  <Point>' + CRLF
  + '   <coordinates>' + GC_Lon + ',' + GC_Lat + ',0</coordinates>' + CRLF
  + '  </Point>' + CRLF
  + ' </Placemark>' + CRLF;
  
end;

function ExportAfter(value: string): string;
begin
  // RunShell(value);
end;