[Statist]

Das soll am ende sowas wie ein lanchat werden

Einstellungen.txt

#Hostcomputer[Eigenhost=1]
#Beispiel
#Nachrichtensound
#ja oder nein
#Nickname
#Mister Beispiel


Hostcomputer
1
Nachrichtensound
ja
Nickname
Statist

Chat.bat

@echo off
title Chat
goto anfang
:fehler
echo Ein Fehler in den Einstellungen wurde festgestelt
echo BITTE PRUEFEN SIE DIE EINSTELLUNGEN
pause
goto exit

:anfang
cls
For /F "skip=9" %%A in (Einstellungen.txt) do set hname=%%A& goto :hostjn
:hostjn
if not "%hname%"=="1" goto nhost

:host
cls
echo Setzt Arbeitspunkte!
set link=C:\Lanch\Chat.txt
set mlink=C:\Lanch\Meldung.txt
set slink=C:\Lanch\Sound.txt
echo wurde gesetzt
ping /n 2 localhost >nul
goto anmeldung
-------------------------------------------------


:nhost
echo Setzt Arbeitspunkte
if not exist "\\%hname%\Chat" goto fehler
set link=\\%hname%\Chat\Chat.txt
set mlink=\\%hname%\Chat\Meldung.txt
set slink=\\%hname%\Chat\Sound.txt
ping /n 2 localhost >nul
goto anmeldung
------------------------------------------------
:anmeldung
For /F "skip=11" %%A in (Einstellungen.txt) do set sound=%%A& goto :soundu
:soundu
if "%sound%"=="ja" goto soundj
if "%sound%"=="nein" goto nick
goto fehler


:soundj
cmd /c start /MIN /REALTIME /I Data\Melder.bat
goto nick
-----------------------------------------------

:nick
For /F "skip=13" %%A in (Einstellungen.txt) do set nick=%%A& goto :chfenster

:chfenster
cls
set eingabe=2
TYPE "%link%"
echo ------------------------------
echo Etwas schreiben ?
echo [1=Ja, Belibige Taste=Refresh]
set /P eingabe=""
if "%eingabe%"=="1" goto nachrichtv
goto chfenster
------------------------------
:nachrichtv
cls
set /P nachricht="Nachricht: "
echo %nick%: %nachricht% >> "%link%"
echo Meldung >> "%mlink%"

:soundjn
if "%sound%"=="nein" goto nachrichtz
if exist "%slink%" goto nachrichtz
goto soundjn

:nachrichtz
Erase "%mlink%"
goto chfenster
:exit

Data\Melder.bat

@echo off
For /F "skip=9" %%A in (Einstellungen.txt) do set hostc=%%A& goto :fix
:fix
if "%hostc%"=="1" goto linkh
set link1=\\%hostc%\Chat\Meldung.txt
set link2=\\%hostc%\Chat\Sound.txt
goto loop

:linkh
set link1=C:\Lanch\Meldung.txt
set link2=C:\Lanch\Sound.txt

:loop
echo Warte....
if exist "%link1%" goto aktiv
cls
goto loop

:aktiv
echo Nachricht >> "%link2%"
goto ausf
:ausf2

ping /n 1 localhost >nul
Erase "%link2%"
pause
goto loop

:ausf
"Sounds\Nachricht.exe"
goto ausf2
:ende