ChoiceDefault "SegelOzi", "Funktionen für den Wassersport", 1, 0, " 1. Mann über Bord", " 2. Ankeralarm", " 3. Route erstellen", " 4. Routen - Navigation", " 5. Track laden/Entfernung messen",  " 6. Gefahrenstellen - laden/erstellen", " 7. Wendewinkel, Peillinien erstellen", " 7.1  NavBoatWinkel kopieren", " 7.2  NavBoatWinkel löschen"," 7.3  NavBoat - Pointer laden", " 7.4  Arrow - Pointer laden",  " 8.  Bildschirmbeleuchtung - max", "9. Bildschirmbeleuchtung - mittel", "10. Bildschirmbeleuchtung - min", 


Case 1
# Falls OziExplorer läuft muß dieser erst beendet werden weil sonst keine eindeutigen Befehle möglich sind 
If wndExists "OziExplorer"
Kill "OziExplorerCE.exe"
Sleep 1000
Endif

# Falls Kompass läuft, wegen doppelter Portbelegung schließen
If wndExists "Kompass"
Kill "Kompass.exe"
Sleep 1000
Endif

# OziExplorer laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Sleep 500
Endif

#GPS an
MouseClick 110,303
Sleep 25000
#Waypoint an Position erzeugen
#Klick File
MouseClick 9,306
Sleep 500
#Klick Waypoints
MouseClick 4,150
Sleep 500
#Klick Create Wp at Position
MouseClick 100,140
Sleep 1500
SendKeys "MOB"
Sleep 1500
#OK
MouseClick 197,63
Sleep 1500
#GPS aus
MouseClick 110,303
Sleep 1000
#Klick Waypoint
MouseDown 120,174
Sleep 1500
MouseUp 120,174
Sleep 1000
#Klick GoTo Wp
MouseDblClick 163,265
Sleep 1000
#GPS an
MouseClick 110,303
Exit


Case 2
# Kompass starten und Ankeralarm aktivieren
# Falls OziExplorer läuft, wegen doppelter Portbelegung schließen
If wndExists "OziExplorer"
Kill "OziExplorerCE.exe"
Sleep 1000
Endif

# Falls Kompass nicht läuft, laden
If Not wndExists "Kompass"
run "\Programme\Kompass\Kompass.exe"
Sleep 2000
Endif
 
# Kompass in den Vordergrund
If wndExists "Kompass"
Show "Kompass"
WaitFor "Kompass", 2000
Endif

Sleep 1000
MouseClick 120,170
Sleep 500
MouseClick 12,308
Sleep 10000
MouseClick 48,308
SetVolume 200
Exit

Case 3
#Route erstellen
# Falls Kompass läuft, wegen doppelter Portbelegung schließen
If wndExists "Kompass"
Kill "Kompass.exe"
Sleep 1000
Endif
# OziExplorer in den Vordergrund
# Falls OziExplorer nicht läuft, laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Endif
 
# OziExplorer in den Vordergrund
If wndExists "OziExplorer"
Show "OziExplorer"
WaitFor  "OziExplorer", 500
Endif

Sleep 1000
MouseClick 30,310
Sleep 500
MouseClick 50,285
Sleep 500
MouseClick 166,247
Exit


Case 4
#Route laden
# Falls Kompass läuft, wegen doppelter Portbelegung schließen
If wndExists "Kompass"
Kill "Kompass.exe"
Sleep 1000
Endif
# OziExplorer in den Vordergrund
# Falls OziExplorer nicht läuft, laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Endif
 
# OziExplorer in den Vordergrund
If wndExists "OziExplorer"
Show "OziExplorer"
WaitFor  "OziExplorer", 500
Endif

Sleep 1000
MouseClick 30,310
Sleep 600
MouseClick 50,285
Sleep 600
MouseClick 157,264
Exit

Case 5
# Track laden
# Falls Kompass läuft, wegen doppelter Portbelegung schließen
If wndExists "Kompass"
Kill "Kompass.exe"
Sleep 1000
Endif
# Falls OziExplorer nicht läuft, laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Endif
 
# OziExplorer in den Vordergrund
If wndExists "OziExplorer"
Show "OziExplorer"
WaitFor  "OziExplorer", 500
Endif

Sleep 500
MouseClick 30,310
Sleep 500
MouseClick 50,285
Sleep 500
MouseClick 157,284
Exit

Case 6
#Gefahrenstellen/Untiefen - Alarm
# Falls Kompass läuft, wegen doppelter Portbelegung schließen
If wndExists "Kompass"
Kill "Kompass.exe"
Sleep 1000
Endif 
# Falls OziExplorer nicht läuft, laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Endif
 
# OziExplorer in den Vordergrund
If wndExists "OziExplorer"
Show "OziExplorer"
WaitFor  "OziExplorer", 500
Endif

Sleep 600
MouseClick 30,310
Sleep 600
MouseClick 50,285
Sleep 600
MouseClick 147,230
Exit

Case 7


Case 8
# Wendewinkel, Peillinien erstellen
#  1. NavBoatWinkel kopieren
run "\OziExplorer\NavBoatWinkel.txt"
#Wartezeit um die gewünschten Winkelkoordinaten blau zu unterlegen
Sleep 20000
#Kopieren
SendCtrlKey c
Sleep 500
#Falls erforderlich,"NavBoat.mmp" umbennen
If not fileExists "\OziExplorer\NavBoat.mmp"
Rename "\OziExplorer\NavBoat.txt","\OziExplorer\NavBoat.mmp"
Endif
Sleep 1000
Rename "\OziExplorer\NavBoat.mmp","\OziExplorer\NavBoat.txt"
Sleep 2000
run "\OziExplorer\NavBoat.txt"
Sleep 500
SendKeys "0,0"
Sleep 500
SendCR
#Einfügen
SendCtrlKey v
Sleep 500
SendCR
Sleep 500
#Pocket Word beenden 
#Wer das selber machen möchte, kann den Rest bis auf Exit löschen
#Wichtig!!! Als "TXT" abspeichern!!!!!! 
MouseClick 226,11
Sleep 500
MouseClick 130,149
Sleep 500
MouseClick 226,11
Sleep 3000
Rename "\OziExplorer\NavBoat.txt","\OziExplorer\NavBoat.mmp"
Sleep 1000
Exit

Case 9
#  1. NavBoatWinkel löschen - die zwei obersten Zeilen werden automatisch gelöscht
#Falls erforderlich,"NavBoat.mmp" umbennen
If not fileExists "\OziExplorer\NavBoat.mmp"
Rename "\OziExplorer\NavBoat.txt","\OziExplorer\NavBoat.mmp"
Endif
Sleep 500
Rename "\OziExplorer\NavBoat.mmp","\OziExplorer\NavBoat.txt"
Sleep 1000
run "\OziExplorer\NavBoat.txt"
#Löschen der zwei oberen Zeilen
Sleep 500
SendDown ,0,1
SendDown ,0,1
SendCtrlKey x
Sleep 500
#Pocket Word beenden
#Wer das selber machen möchte, kann den Rest bis auf Exit löschen
#Wichtig dann als "TXT" abspeichern!!!!!!
MouseClick 226,11
Sleep 500
MouseClick 130,149
Sleep 500
MouseClick 226,11
Sleep 3000
Rename "\OziExplorer\NavBoat.txt","\OziExplorer\NavBoat.mmp"
Sleep 1000
Exit


Case 10
#NavBoat - Pointer laden
#Falls erforderlich,"NavBoat.mmp" umbennen
If not fileExists "\OziExplorer\NavBoat.mmp"
Rename "\OziExplorer\NavBoat.txt","\OziExplorer\NavBoat.mmp"
Endif

# Falls OziExplorer nicht läuft, laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Endif
 
# OziExplorer in den Vordergrund
If wndExists "OziExplorer"
Show "OziExplorer"
WaitFor  "OziExplorer", 500
Endif

Sleep 1500
MouseClick 12,307
Sleep 500
MouseClick 41,250
Sleep 500
MouseClick 138,187
Sleep 500
MouseClick 95,78
Sleep 500
MouseClick 190,102
Sleep 500
MouseClick 118,147
Sleep 500
MouseClick 192,54
Exit


Case 11
#Arrow - Pointer laden
# Falls OziExplorer nicht läuft, laden
If not wndExists "OziExplorer"
run "\OziExplorer\OziExplorerCE.exe"
Endif
 
# OziExplorer in den Vordergrund
If wndExists "OziExplorer"
Show "OziExplorer"
WaitFor  "OziExplorer", 500
Endif

Sleep 1500
MouseClick 12,307
Sleep 500
MouseClick 41,250
Sleep 500
MouseClick 138,187
Sleep 500
MouseClick 95,78
Sleep 500
MouseClick 190,102
Sleep 500
MouseClick 118,133
Sleep 500
MouseClick 192,54
Exit

# Bildschirmhelligkeit verändern 
# Möglichkeiten:
# a) SetBacklight Wert
# b) Variante mit Klicks
#MouseClick 14,15
#Sleep 300
#MouseClick 54,227
#Sleep 300
#MouseClick 60,283
#Sleep 300
#MouseClick 35,47
#Exit
# c) Veränderung in Registry = Case 12 - 14
# Mögliche Werte: 0 (hell) - 10 (dunkel)

Case 12
# Bildschirmhelligkeit - max.  
RegWriteDWord HKCU,Software\Microsoft\Shell,STD_Slide,0
Exit

Case 13
# Bildschirmhelligkeit - mittel 
# Mögliche Werte: 0 (hell) - 10 (dunkel)
RegWriteDWord HKCU,Software\Microsoft\Shell,STD_Slide,5
Exit

Case 14
# Bildschirmhelligkeit - min. 
# Mögliche Werte: 0 (hell) - 10 (dunkel)
RegWriteDWord HKCU,Software\Microsoft\Shell,STD_Slide,10
Exit



Case 0  
Exit 

EndChoice