Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Batch 4 Gewinnt.

Frage Entwicklung Batch & Shell

Mitglied: Budders

Budders (Level 1) - Jetzt verbinden

05.05.2014 um 11:12 Uhr, 1577 Aufrufe, 1 Kommentar

Hallo liebes Administrator-Forum.

Ich bin gerade dabei das Spiel "4 Gewinnt" in Batch zu programmieren.

Soweit so gut, bin auch schon recht weit, nur beisse ich mir die Zähne an den Diagonalen aus, der Rest steht.

Sprich ich möchte mein Feld auswerten, ob 4 gleiche Steine in einer Diagonale liegen.

Das Feld sieht so aus:
01.
   A B C D E F G  
02.
 1 %a1% %b1% %c1% %d1% %e1% %f1% %g1% 
03.
 2 %a2% %b2% %c2% %d2% %e2% %f2% %g2% 
04.
 3 %a3% %b3% %c3% %d3% %e3% %f3% %g3% 
05.
 4 %a4% %b4% %c4% %d4% %e4% %f4% %g4% 
06.
 5 %a5% %b5% %c5% %d5% %e5% %f5% %g5% 
07.
 6 %a6% %b6% %c6% %d6% %e6% %f6% %g6%
Und die "Funktionen" zum auswerten der Horizontalen und Vertikalen sehen so aus:
01.
::Horizontal 
02.
for /l %%e in (1,1,6) do ( 
03.
	for %%d in (A,B,C,D,E,F,G) do ( 
04.
		if !%%d%%e!==X set /a X%%e+=1 && set /a O%%e=0 
05.
		if !%%d%%e!==O set /a O%%e+=1 && set /a X%%e=0 
06.
		if "!%%d%%e!"==" " set /a O%%e=0 && set /a X%%e=0 
07.
		if !X%%e!==4 ( 
08.
			cls 
09.
			call :board 
10.
			echo Spieler 2 hat GEWONNEN!  
11.
			pause>nul 
12.
			exit 
13.
14.
		if !O%%e!==4 ( 
15.
			cls 
16.
			call :board 
17.
			echo Spieler 1 hat GEWONNEN!  
18.
			pause>nul 
19.
			exit 
20.
21.
22.
23.
::Vertikal 
24.
for %%f in (A,B,C,D,E,F,G) do ( 
25.
	for /l %%g in (1,1,6) do ( 
26.
		if !%%f%%g!==X set /a X%%f+=1 && set /a O%%f=0 
27.
		if !%%f%%g!==O set /a O%%f+=1 && set /a X%%g=0 
28.
		if "!%%f%%g!"==" " set /a O%%f=0 && set /a X%%g=0 
29.
		if !X%%g!==4 ( 
30.
			cls 
31.
			call :board 
32.
			echo Spieler 2 hat GEWONNEN!  
33.
			pause>nul 
34.
			exit 
35.
36.
		if !O%%f!==4 ( 
37.
			cls 
38.
			call :board 
39.
			echo Spieler 1 hat GEWONNEN!  
40.
			pause>nul 
41.
			exit 
42.
43.
44.
45.
exit/b
Habt ihr spontan eine Idee, wie ich das am besten realisieren kann?
Würde mich über jeden Gedankenanstoß freuen.

Hier ist der komplette Code, wollte nicht alles in den Thread posten.
http://pastebin.com/Lx7Hr38m

Mit freundlichsten Grüßen,
Budders/Gerrit
Mitglied: Budders
05.05.2014 um 13:23 Uhr
Sollten Fragen zum Code bestehen könnt ihr natürlich gerne fragen
Ich tu mein bestes sie zu beantworten
Bitte warten ..
Neuester Wissensbeitrag
Exchange Server

WSUS bietet CU22 für Exchange 2007 SP3 nicht an. EOL Exchange 2007

Tipp von DerWoWusste zum Thema Exchange Server ...

Ähnliche Inhalte
Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Batch & Shell
Herunterfahren erkennen (Batch) (2)

Frage von clragon zum Thema Batch & Shell ...

Batch & Shell
gelöst Ordner und Datei Name gleich (BATCH) (12)

Frage von clragon zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Windows Server
SBS 2011 Standard virtualisieren (13)

Frage von HeinrichM zum Thema Windows Server ...

Backup
Datensicherung ARCHIV (12)

Frage von fautec56 zum Thema Backup ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...