Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\tti\tti_1.te|\My Flash Disk\Navigation\tti\tti.te"
Run ("\Storage Card\Sokobana\Koord\koord465.exe", "window=0 copy=\My Flash Disk\Navigation\skin480x272\PPSkin\tmc_1.png|\My Flash Disk\Navigation\skin480x272\PPSkin\tmc_status.png")

# Löscht evtl. bestehende Einträge
If (RegValueExists ("HKCU", "Software\sokobana", "TMC_1"))
RegDelete ("HKCU", "Software\sokobana", "TMC_1")
EndIf

If (RegValueExists ("HKCU", "Software\sokobana", "TMC_2"))
RegDelete ("HKCU", "Software\sokobana", "TMC_2")
EndIf

If (RegValueExists ("HKCU", "Software\sokobana", "TMC_3"))
RegDelete ("HKCU", "Software\sokobana", "TMC_3")
EndIf

If (RegValueExists ("HKCU", "Software\sokobana", "TMC_0"))
RegDelete ("HKCU", "Software\sokobana", "TMC_0")
EndIf

# Legt Eintrag an
If not (RegValueExists ("HKCU", "Software\sokobana", "TMC_1"))
RegWriteString ("HKCU","Software\sokobana", "TMC_1", "\Storage Card\Sokobana\Koord\koord465.exe")
EndIf

# Softreset mit Neustart
If WndExists ("GoPal Navigator")
	Close ( ActiveWindow())
	WaitFor ( "GoPal Navigator", 4 )
	MouseClick ( 200, 230 )
	CallScript ("\Storage Card\Sokobana\MortScript\sokobana_auto_restart.mscr")
Else
	MouseClick ( 10, 230 )
	MouseClick( 100, 155 )
EndIf