Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!
Werbeanzeige
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 |
Public Shared Sub Speichervorgang() Dim SR As String = "\S&R SaveGame\" Dim bassi As String = (Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & SR) If IO.Directory.Exists(bassi) Then For Each foundFile As String In My.Computer.FileSystem.GetFiles(bassi) My.Computer.FileSystem.DeleteFile(foundFile) Next Else IO.Directory.CreateDirectory(bassi) End If ' generell für die ganze Partie IO.Directory.CreateDirectory(bassi) IO.File.WriteAllText(bassi & "QUANTITATE" & ".ini", Spielernamen.Count & vbCrLf) ' wieviel Spieler im Spiel IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", Zentrum.turnPlayer & vbCrLf) ' wer ist am zug IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", Zustand.Schwierigkeit & vbCrLf) ' Schwierigkeitsgrad IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", Zustand.Kirmes & vbCrLf) 'was ist Trumpf IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", Zustand.Weihe & vbCrLf) ' was ist Comitatstrumpf IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", meineKarten.RANZ.Text & vbCrLf) ' aktuelle Runde IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", maxrunden & vbCrLf) ' maximale Rundenanzahl IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", meineKarten.MINUTEN.Text & vbCrLf) ' MINUTEN IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", meineKarten.SEKUNDEN.Text & vbCrLf) ' SEKUNDEN IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", Papstkonto & vbCrLf) ' Wieviel wurde an den Papst gespendet IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", meineKarten.teiler & vbCrLf) ' teiler IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", meineKarten.SUMMA & vbCrLf) ' Summa If Zentrum.hlp = True Then IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", 1 & vbCrLf) ' Helfer an oder aus Else IO.File.AppendAllText(bassi & "QUANTITATE" & ".ini", 0 & vbCrLf) ' Helfer an oder aus End If ' ########### Zustände abfragen und speichern! '### visitor abfragen und speichern! 'If pot = "f11" Then ' Zustand.skiffbau = True 'ElseIf pot = "x450" Then ' Zustand.warzpulver = True 'ElseIf pot = "h2" Then ' Zustand.dampfmaschin = True 'ElseIf pot = "n7" Then ' Zustand.diesel = True 'ElseIf pot = "z20" Then ' Zustand.wandewahn = True 'End If ' ################ For Each Item As String In Zustand.Pool IO.File.AppendAllText(bassi & "pool.ini", Item & vbCrLf) Next For Each Item As String In Zentrum.Schiffsliste IO.File.AppendAllText(bassi & "Schiffsliste.ini", Item & vbCrLf) Next For Each Item As String In Zentrum.Flugliste IO.File.AppendAllText(bassi & "Flugliste.ini", Item & vbCrLf) Next For Each Item As String In Zentrum.Waffenliste IO.File.AppendAllText(bassi & "Waffenliste.ini", Item & vbCrLf) Next For Each Item As String In Zentrum.Personenliste IO.File.AppendAllText(bassi & "Personenliste.ini", Item & vbCrLf) Next For Each Item As String In Zentrum.Zonderliste IO.File.AppendAllText(bassi & "Zonderliste.ini", Item & vbCrLf) Next ' für den individuellen Spieler For g = 1 To Spielernamen.Count IO.File.WriteAllText(bassi & g & ".ini", g & vbCrLf) ' Spieler ID IO.File.AppendAllText(bassi & g & ".ini", Spielernamen(g - 1) & vbCrLf) ' Spielernamen IO.File.AppendAllText(bassi & g & ".ini", Zentrum.Label3.Text & vbCrLf) ' aktuelle Runde IO.File.AppendAllText(bassi & g & ".ini", maxrunden & vbCrLf) ' maximale Rundenzahl IO.File.AppendAllText(bassi & g & ".ini", (Val(Konto(g)) & vbCrLf)) ' Kontostand IO.File.AppendAllText(bassi & g & ".ini", (Val(Spendenkonto(g)) & vbCrLf)) 'Spendenkontostand IO.File.AppendAllText(bassi & g & ".ini", (Val(Ablasskonto(g)) & vbCrLf)) ' Ablasskontostand '### Anzahl der Trumpferfolge und der gewonnenen Schlachten If Data("success_S" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("success_S" & g).Count) & vbCrLf)) End If If Data("success_R" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("success_R" & g).Count) & vbCrLf)) End If If Data("success_T" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("success_T" & g).Count) & vbCrLf)) End If If Data("BATTLES" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("BATTLES" & g).Count) & vbCrLf)) End If ' Anuahl der Sporterfolge If SPORTS("Radrennen" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("Radrennen" & g).Count) & vbCrLf)) End If If SPORTS("Snooker" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("Snooker" & g).Count) & vbCrLf)) End If If SPORTS("Fußball" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("Fußball" & g).Count) & vbCrLf)) End If If SPORTS("Boxen" & g).Count = 0 Then IO.File.AppendAllText(bassi & g & ".ini", 0 & vbCrLf) Else IO.File.AppendAllText(bassi & g & ".ini", (Val(Data("Boxen" & g).Count) & vbCrLf)) End If ' ### Ende der spieler ini '### Karten in den vier Hauptlisten - pro liste eine .ini For Each Item As String In Data("mima" + g.ToString) IO.File.AppendAllText(bassi & "mima" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In Data("migra" + g.ToString) IO.File.AppendAllText(bassi & "migra" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In Data("minom" + g.ToString) IO.File.AppendAllText(bassi & "minom" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In Data("minog" + g.ToString) IO.File.AppendAllText(bassi & "minog" & (g) & ".ini", Item & vbCrLf) Next '### Karten in den vier Nebenlisten For Each Item As String In Data("Ausmuster" + g.ToString) IO.File.AppendAllText(bassi & "Ausmuster" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In Data("Sonderliste" + g.ToString) IO.File.AppendAllText(bassi & "Sonderliste" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In Data("Sonderliste2" + g.ToString) IO.File.AppendAllText(bassi & "Sonderliste2" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In Data("wuppliste" + g.ToString) IO.File.AppendAllText(bassi & "wuppliste" & (g) & ".ini", Item & vbCrLf) Next ' ### Abspeicherungen der Armeen For Each Item As String In FORCES("A" + g.ToString) IO.File.AppendAllText(bassi & "A" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In FORCES("B" + g.ToString) IO.File.AppendAllText(bassi & "B" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In FORCES("C" + g.ToString) IO.File.AppendAllText(bassi & "C" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In FORCES("D" + g.ToString) IO.File.AppendAllText(bassi & "D" & (g) & ".ini", Item & vbCrLf) Next For Each Item As String In FORCES("D" + g.ToString) IO.File.AppendAllText(bassi & "D" & (g) & ".ini", Item & vbCrLf) Next Next maestrohilfe.hinweis(48, bassi, Nothing) End Sub |
(nochmal zur Erinnerung, damit ihr nicht alle den ganzen Thread nochmal lesen müßt - es geht im Prinzip um Spielkarten, die miteinander verglichen werden, und in verschiedenen Stapeln abgelegt werden.Wenn man das grafisch/spieletechnisch besser umsetzen kann als mit hahnebüchenen Windows-Forms - ich bin um jeden Rat dankbar)
Werbeanzeige