fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Schachturnierorganisationsprogramm 3.8x

Uploader:	ALWIM
Datum/Zeit:	19.07.2026 19:24:36

Hinweis: Dieser Quelltext ist Bestandteil des Projekts Schachturnierorganisationsprogramm, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

[code]' Schachturnierorganisationsprogramm Version 3.89 with Comments and Testcomments in German CONST local_version AS STRING = "3.88" CONST version_url AS STRING = "https://www.freebasic-portal.de/downloads/anwendungssoftware/schachturnierorganisationsprogramm-233.html" ' URL anpassen CONST searchStr AS STRING = "Schachturnierorganisationsprogramm " ' Text vor Versionsnummer anpassen /' Wertungszahl(0) = Standard Wertungszahl(1) = DWZ Wertungszahl(2) = (Wertungszahl, 1 = Standard, 2 = DWZ, 3 = Rapid, 4 = Blitz) Wertungszahl(3) = Rapid Wertungszahl(4) = Blitz Einleseart (0) = Standard Einleseart (1) = Rapid Einleseart (2) = Blitz Einleseart (3) = DWZ '/ ' #DEFINE WIN_INCLUDEALL #INCLUDE ONCE "WINDOWS.BI" #Include Once "win/ole2.bi" #INCLUDE ONCE "win/tlhelp32.bi" #INCLUDE ONCE "win\COMMDLG.BI" #INCLUDE ONCE "win\commctrl.bi" #INCLUDE ONCE "win\wininet.bi" #INCLUDE ONCE "file.bi" #INCLUDE ONCE "vbcompat.bi" ' #INCLUDE ONCE "TSNE_V3.bi" #IFDEF __FB_64BIT__ #DEFINE CURL_STATICLIB #INCLIB "CURL" #INCLIB "WS2_32" ' WICHTIG: WINDOWS SOCKETS (NETZWERK) #INCLIB "WLDAP32" ' WINDOWS LDAP (OFT VON CURL BENÖTIGT) #INCLIB "CRYPT32" ' WINDOWS CRYPTOGRAPHY (FÜR SSL/TLS) #INCLIB "advapi32" ' Sicherheits-API #INCLUDE ONCE "CURL.BI" DECLARE SUB EMAILSENDEN DECLARE SUB FENSTERSERVER DECLARE SUB FENSTEREMAILADRESSE DECLARE SUB FENSTERPORT DECLARE FUNCTION READ_CALLBACK(BUFFER AS ANY PTR, SIZE AS UINTEGER, NITEMS AS UINTEGER, USERP AS ANY PTR) AS UINTEGER DECLARE FUNCTION ToUTF8(s AS STRING) AS STRING #ENDIF #INCLUDE ONCE "utf_conv.bi" ' #INCLUDE ONCE "sGUI\sGUI.bas" #INCLUDE ONCE "sGUI\ComboBox.bas" #INCLUDE ONCE "sGUI\SimpleGadget.bas" #INCLUDE once "sGUI\StringGadget.bas" USING sGUI /' #Include Once "utf_conv.bi" Function UTF(s As String) As String Dim As String sUTF Dim As Integer numberOfBytes sUTF = String(Len(s) * 2, " ") CharToUTF(UTF_ENCOD_UTF8, StrPtr(s), Len(s), StrPtr(sUTF), @numberOfBytes) Return Left(sUTF, numberOfBytes) End Function Function Char(s As String) As String Dim As String sChar Dim As Integer numberOfBytes numberOfBytes = Len(s) sChar = String(numberOfBytes, " ") UTFToChar(UTF_ENCOD_UTF8, StrPtr(s), StrPtr(sChar), @numberOfBytes) Return Left(sChar, numberOfBytes) End FUNCTION '/ /' #include "sGUI\sGUI.bas" #include once "sGUI\SimpleGadget.bas" #include once "sGUI\StringGadget.bas" ' #include once "sGUI\ScrollBar.bas" ' #include once "sGUI\MultiLineEditBox.bas" ' #include once "sGUI\MessageBox.bas" #include once "sGUI\ComboBox.bas" ' #include once "sGUI\ClickMapGadget.bas" ' #include once "sGUI\Label.bas" '/ DECLARE SUB FELD (X AS INTEGER, Y AS INTEGER, XX AS INTEGER, YY AS INTEGER, FARBEN AS INTEGER) DECLARE SUB FONT (WORT AS STRING, HOEHE AS INTEGER, BREITE AS INTEGER, FARBE1 AS INTEGER, FARBE2 AS INTEGER, FARBE3 AS INTEGER, ATTRIBUT AS INTEGER, STELLE AS INTEGER) DECLARE SUB INGET (ANZAHLE AS INTEGER, STELLEN AS INTEGER, ZEILEN AS INTEGER, N AS STRING) DECLARE SUB BUTTON (X AS INTEGER, Y AS INTEGER, XX AS INTEGER, YY AS INTEGER) ' DECLARE SUB WENDEFIXEBRETTERAN(paarungen() AS STRING, FixeSpieler() AS String, FixeBretter() AS INTEGER, runde AS INTEGER) DECLARE SUB WENDEFIXEBRETTERAN(paarungen() AS INTEGER, FixeSpieler() AS INTEGER, FixeBretter() AS INTEGER, runde AS INTEGER) DECLARE SUB ANZEIGE (i AS INTEGER) DECLARE SUB LAENDERKUERZEL(j AS INTEGER) DECLARE SUB MENU DECLARE SUB LADEN(Combobox AS Gadget PTR) DECLARE SUB ANLEGEN DECLARE SUB SPEICHERN DECLARE SUB LOESCHEN DECLARE SUB SORTIEREN DECLARE SUB AUSLOSUNG DECLARE SUB ERGEBNISANZEIGE DECLARE SUB TABELLE(l AS INTEGER) DECLARE SUB HILFE DECLARE SUB RUECKSETZEN DECLARE SUB INI DECLARE SUB MENUFARBE DECLARE SUB INSTALL DECLARE SUB SPRACHELADEN DECLARE SUB FEINWERTUNG ' DECLARE SUB FENSTERDATUM DECLARE SUB FENSTERSUCHEN DECLARE SUB FENSTERSORTIEREN DECLARE SUB FENSTERAKTUALISIEREN DECLARE SUB FENSTERSTARTGEBUEHR DECLARE SUB FENSTERRATINGLIST DECLARE SUB FENSTERKNOCKOUT #IFDEF __FB_64BIT__ DECLARE SUB FENSTERPASSWORT #ENDIF DECLARE SUB FENSTERFARBE DECLARE SUB HTML(l AS INTEGER) DECLARE SUB TRF(j AS INTEGER) DECLARE SUB DEWIS DECLARE SUB FLRESU DECLARE SUB SCROLLBALKEN DECLARE SUB ELOEINLESEN DECLARE SUB AKTUALISIEREN DECLARE SUB SGUIFARBE DECLARE SUB MANNSCHAFTSRATING DECLARE SUB SERVERVESUS DECLARE SUB TPRTABELLE DECLARE SUB AWK DECLARE SUB GACRUX DECLARE SUB TRFFOREBUCHHOLZCUT ' DECLARE SUB ZEITZONE DECLARE SUB DWZ_AUSWERTUNG /' DIM SHARED AS INTEGER partnerID DIM SHARED access_VData as any ptr 'Mutex Handle für Zugriff auf eingegangene Daten DIM SHARED access_Paarungen as any ptr 'Mutex Handle für Senden der Paarungen TYPE connectionType AS UINTEGER G_Server, G_Client ' , offline AS INTEGER isServer AS STRING IP DECLARE CONSTRUCTOR(Typ AS STRING) DECLARE DESTRUCTOR DECLARE SUB hosten DECLARE SUB connecten DECLARE SUB beenden DECLARE SUB senden(Message AS STRING) END TYPE '/ /'Subs für TSNE-Kommunikation DECLARE SUB TSNE_Disconnected(BYVAL V_TSNEID AS UINTEGER) DECLARE SUB TSNE_Connected(BYVAL V_TSNEID AS UINTEGER) DECLARE SUB TSNE_NewData(BYVAL V_TSNEID AS UINTEGER, BYREF V_Data AS STRING) DECLARE SUB TSNE_NewConnection(BYVAL V_TSNEID AS UINTEGER, BYVAL V_RequestID AS Socket, BYVAL V_IPA AS STRING) DECLARE SUB TSNE_NewConnectionCanceled(BYVAL V_TSNEID AS UINTEGER, BYVAL V_IPA AS STRING) '/ ' Funktionen DECLARE FUNCTION CHAR(s As String) As STRING DECLARE FUNCTION runden(wert As SINGLE) As SINGLE DECLARE FUNCTION GETPRINTERFROMUSER(hWnd AS HWND) AS PRINTDLG DECLARE FUNCTION DRUCKEN() AS BOOL DECLARE FUNCTION ERZEUGEWINDOWSUUID() As STRING DECLARE FUNCTION AUFSCROLLBALKEN(BYVAL x AS INTEGER,BYVAL y AS INTEGER,BYVAL xx AS INTEGER,BYVAL yy AS INTEGER)AS INTEGER DECLARE FUNCTION PICKDATE() AS STRING DECLARE FUNCTION ISLEAPYEAR(y AS INTEGER) AS INTEGER DECLARE FUNCTION DAYOFWEEK(d AS INTEGER, m AS INTEGER, y AS INTEGER) AS INTEGER DECLARE SUB GETSYSTEMDATE(BYREF y AS INTEGER, BYREF m AS INTEGER, BYREF d AS INTEGER) DECLARE FUNCTION DOWNLOADURL(url AS ZSTRING PTR) AS STRING DECLARE FUNCTION EXTRACTVERSION(HTML AS STRING) AS STRING DECLARE FUNCTION WNDPROC(BYVAL hWnd AS HWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCZWEI(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCDREI(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCVIER(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCFUENF(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCSECHS(BYVAL hWnd AS HWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCSIEBEN(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCNEUN(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCZEHN(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCELF(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT DECLARE FUNCTION WNDPROCZWOELF(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' DECLARE FUNCTION WndProcAcht(BYVAL hWnd As HWND, BYVAL msg As UINT, BYVAL wParam As WPARAM, BYVAL lParam As LPARAM) As LRESULT DECLARE FUNCTION LISTBOXSTARTGEBUEHR(BYVAL hDlg As HWND, BYVAL message As UINTEGER,_ BYVAL wParam As WPARAM, BYVAL lParam As LPARAM) As INTEGER DECLARE FUNCTION LISTBOXRATINGLIST(BYVAL hDlg As HWND, BYVAL message As UINTEGER,_ BYVAL wParam As WPARAM, BYVAL lParam As LPARAM) As INTEGER DECLARE FUNCTION LOADSAVEDIALOG (_ savedlog AS INTEGER = 0,_ filter AS STRING = "",_ fltrindex AS INTEGER = 1,_ initdir AS STRING = "",_ strDefExt AS STRING = "stop") AS STRING 'Voreinstellungen: 'savedlog = 0 "Datei Öffnen", 1(<>0) "Datei Speichern" 'filter = "" "Alle Dateien", sonst siehe fil 'fltrindex = 1, sonst welcher Eintrag, der bei filter angegebenen Auswahl, aktiv ist 'initdir = "" = "." aktueller Pfad, sonst angegebener Pfad 'strDefExt = "" keine Vorgabe, sonst z.B. "bak" als Vorgabe der Endung zum Speichern DIM SHARED AS STRING DateiName, IconDatei, fil REDIM SHARED AS INTEGER paarungen(0 TO 1, 0 TO 2, 0 TO 1) ' Brett, Farbe, Runde REDIM SHARED AS INTEGER Teamspieler(0 TO 1, 0 TO 1, 0 TO 1) ' Verein, Brett, Runde REDIM SHARED AS STRING EinzelErgebnisse(0 TO 1, 0 TO 1, 0 TO 1) ' Brett, Einzelbrett, Runde REDIM SHARED AS DOUBLE DirekterVergleich(0 TO 1, 0 TO 1) REDIM SHARED AS STRING Temp(0 TO 25002, -5 TO 53) REDIM SHARED AS STRING Daten(0 TO 1, 0 TO 1), Datum(0 TO 1), Uhrzeit(0 TO 1) REDIM SHARED AS INTEGER Gewinn(0 TO 1), Verlust(0 TO 1), Remis(0 TO 1) DIM SHARED AS INTEGER i = 25002 ' als Laufvariable DIM SHARED AS INTEGER j = 2002 ' als Laufvariable DIM SHARED AS INTEGER ELO(0 TO i), DWZ(0 TO i), Startgebuehr(0 TO i), Koordinaten(0 TO 217, 0 TO 2, 0 TO 5) DIM SHARED AS INTEGER BB, A, E, K, L, T, V, w, XXX, yyy, zzz, Seite, Brett, Spielernummer, whandle, Sortierung, Eingabeseite, br, ho, Modus, z, laenge, s, c(0 TO 5) DIM SHARED AS INTEGER Tastensperre(0 TO 28), TAZ, laufvariable, AnzahlErgebnisse, eingeleseneDaten DIM SHARED AS INTEGER Eintrag(i), Attribut, STELLE, MaxAnzahl, Sprache, fehlendeSpieler(-1 TO 25002, 0 TO 37), HalbBye, dp DIM SHARED AS INTEGER Paarungssystem, Feinwertungssystem(0 TO 2), r, RAZ, Runde, ppr(0 TO 5100), pprAlt(0 TO 5100), kampflose(0 TO 25002, 0 TO 2002), ausgelosteRunde(0 TO 160), Wertungszahl(0 TO 4) DIM SHARED AS INTEGER FarbeSpieler(0 TO 3), Farbe(0 TO 3), Hintergrundfarbe, FarbePaarung(0 TO 3), AnzahlFarben(0 TO 2002, -1 TO 14) DIM SHARED AS INTEGER genommen(2002, 80), Version, Dateiversion, Buttonsperre, Einleseart, sortstartrank, Seriennummer, Bretter, Brettfarbe, FixeBretter(0 TO 2002), FixeSpieler(0 TO 2002) DIM SHARED AS INTEGER Tiebreakmode, TRFMODE, extended, KoyaLimit(0 TO 2), Zaehler(0 TO 25000, 0 TO 7), TempBrettnummer(0 TO 2002, 0 TO 2), TmpBrett(0 TO 2002) DIM SHARED AS DOUBLE Punkte(0 TO 2002, 0 TO 161), Gesamtpunkte(0 TO 2002), GesamtpunkteForebuchholz(0 TO 2002), Platz, TempPunkte(0 TO 25002, -2 TO 8), Rang(0 TO 25002), Baku(0 TO 3) DIM SHARED AS DOUBLE PunkteKorrektur(0 TO 2002), Mannschaftspunkte(0 TO 500, 0 TO 160) ' DIM SHARED AS DOUBLE SonnebornBerger(0 TO 2002), Buchholz(0 TO 2002), Buchholzsumme(0 TO 2002), Schmuljan(0 TO 2002), Koya( 0 TO 2002), Olympiade(0 TO 2002) ' DIM SHARED AS DOUBLE Feinwertungen(0 TO 2002, -1 TO 18), Koya(-1 TO 2002), Cut(0 TO 2002, -2 TO 2) DIM SHARED AS SINGLE Feinwertungen(0 TO 2002, -2 TO 58), Koya(-1 TO 2002), Cut(0 TO 2002, -2 TO 2), TempFeinwertung(0 TO 25002, 4), p DIM SHARED AS DOUBLE Korrektur(0 TO 2002, 0 TO 160), KorrekturFore(0 TO 2002, 0 TO 160), Scrollbalkenposition(0 TO 12), Y, YY DIM SHARED AS INTEGER mausx, mausy, wheel, mausk, wheelAlt, mausyalt COMMON SHARED AS INTEGER SetupFarbe ' Anzahl der Mannschaften = 502 DIM SHARED AS STRING AA, taste, Tmp(i), N, AAA, NetzwerkString DIM SHARED AS STRING FIDEID(i), Eingabe(0 TO 40), Spieler(0 TO 25002), Team(0 TO 502), Titel(i), Verein(i), Geburt(i), Geschlecht(i), Nation(i), PKZ(i), Vnummer(i), Mnummer(i) DIM SHARED AS STRING kFaktor(i), FesteBrettnummer(i), SpielerAttribut(0 TO 25002), EMPFAENGER(0 TO 25002), Telefonnummer(0 TO 25002) DIM SHARED AS STRING Sprachausgaben(0 TO 268), PfadElo, PfadNwz, NUTZER, SERVER, PASS, PORT, UUID(0 TO 1) DIM SHARED hWnd AS HWND DIM SHARED ps AS PAINTSTRUCT DIM SHARED hDC AS HDC DIM SHARED hInstance AS HINSTANCE Const IDC_LISTBOX = 2000 Const IDC_LISTBOX_EXAMPLE = 2001 Const IDC_DATEPICKER = 2002 ' Feinwertungen: ' 1 = keine Feinwertung ' 2 = SonnebornBerger ' 3 = Anzahl der Siege ' 4 = Buchholz ' 5 = Buchholzsumme ' 6 = Schmuljan ' 7 = Koya ' 8 = Brettpunkte ' 9 = 3-Punkte-Wertung ' 10 = Direkter Vergleich ' 11 = Direkter Vergleich ' 12 = Durchnittliche Elowertung der Gegner ' 13 = Leistungsbewertung im Turnier ' 14 = Durchschnttliche [Turnier] Elozahl Performance der Gegner ' ?? = Durchschnttliche perfekte [Turnier] Performance der Gegner ' 17 = Games one elected to play ' 18 = Durchschnittliche Buchholzwertung der Gegner ' 19 = Forebuchholz ' 23 = Anzahl der Spiele mit Schwarz ' 26 = Anzahl der gewonnenen Spiele mit Schwarz ' 27 = Summenwertung / Progressive Score ' 28 = Rating Differenz ' 29 = Perfekte Trn.-Leist.-Gegner ' 30 = Rating ' 31 = WON ' -1 = KO-Punkte ' -2 = Buchholz Cut 1 (17) ' -3 = Buchholz Cut 2 (18) ' -4 = Buchholz Median 1 (19) ' -5 = Buchholz Median 2 (20) ' -6 = Sonneborn-Berger Cut 1 (21) ' -7 = Sonneborn-Berger Cut 2 (22) ' -8 = Forebuchholz Cut 1 (29) ' -9 = Forebuchholz Cut 2 (30) ' -10 = Forebuchholz Medium 1 (31) ' -11 = Forebuchholz Medium 2 (32) ' -12 = Durchschnittliche Elowertung der Gegner ARO Cut 1 ' -13 = Durchschnittliche Elowertung der Gegner ARO Cut 2 ' -14 = Durchschnittliche Elowertung der Gegner ARO Medium 1 ' -15 = Durchschnittliche Elowertung der Gegner ARO Medium 2 ' -16 = Summenwertung / Progressive Score Cut 1 ' -17 = Summenwertung / Progressive Score Cut 2 ' -18 = BH/P ' -19 = BH/C1/P ' -20 = BH/C2/P ' -21 = BH/M1/P ' -22 = BH/M2/P ' -23 = SB/P ' -24 = SB/C1/P ' -25 = SB/C2/P ' -26 = FB/P ' -27 = FB/C1/P ' -28 = FB/C2/P ' -29 = FB/M1/P ' -30 = FB/M2/P ' -31 = DE/P ' -32 = AOB/F 'Paarungssysteme: ' 0 = Rundensystem mit 2 Durchgängen ' 1 = Rundensystem ' 2 = Rutschsystem ' 3 = Schweizer System ' 4 = Beschleunigtes Schweizer SYSTEM (Baku Modus) ' 5 = Team Schweizer System ' 6 = Ligaverwaltung ' 9 = KO-System ' 8 = Swiss Burstein BBP ' 11 = Swiss Dutch BBP RANDOMIZE TIMER s = 1 Bretter = 4 ' Anzahl der Bretter bei Mannschaftsturnieren Tiebreakmode = 1 ' Feinwertungsregel | 0 = Kalithea 2009; 1 = Baku 2023 TRFMODE = 0 ' TRF-MODUS | 0 = TRF16; 1 = TRF26 extended = 2 ' Sonneborn-Berger extended Modus | 1 = MP Opponent x MP; 2 = GP Opponent x MP; 3 = MP Opponent x GP; 4 = GP Opponent x GP KoyaLimit(1) = 50 ' Feinwertung 1; Standardlimit für Koya in Prozent - Standard = 50 KoyaLimit(2) = 50 ' Feinwertung 2; Standardlimit für Koya in Prozent - Standard = 50 SetupFarbe = 6 Hintergrundfarbe = &h000000 FarbeSpieler(1) = &hFFFFFF FarbeSpieler(2) = &h55FF55 FarbeSpieler(3) = &h00AA00 Farbe(1) = &hFFFFFF Farbe(2) = &hFF55FF Farbe(3) = &hAA00AA Einleseart = 50 PfadElo = "standard_rating_list.txt" PfadNwz = "DWZ.LISTE" Dateiversion = 6 Wertungszahl(0) = TRUE ' ELO_STANDARD-Zahl Wertungszahl(3) = TRUE ' ELO_RAPID-Zahl Wertungszahl(4) = TRUE ' ELO_BLITZ-Zahl Wertungszahl(1) = TRUE ' NWZ-Zahl Wertungszahl(2) = 0 ' aufgerufene Wertungszahl (1 = ELO STANDARD, 2 = NWZ, 3 = ELO RAPID, 4 = ELO BLITZ) Runde = 1 c(1) = 1 c(2) = 1 c(3) = 1 c(4) = 1 c(5) = 1 ' Abfrage der Versionsnummer DIM AS STRING htmlPage = DOWNLOADURL(version_url) IF htmlPage = "" THEN ' MessageBox(0, "Website could not load.", "Schachturnierorganisationsprogramm", MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE DIM AS STRING online_version = EXTRACTVERSION(htmlPage) IF online_version = "" THEN MessageBox(0, "Versionsnumber not found.", "Schachturnierorganisationsprogramm", MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Local Version: " & local_version ' PRINT "Online Version: " & online_version IF online_version = local_version THEN ' MessageBox(0, "Program is up to date.", "Schachturnierorganisationsprogramm", MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE MessageBox(0, "New Version available!" & CHR(13,10) & CHR(13,10) & "Current: " & local_version & CHR(13,10) & "Online: " & online_version, "Schachturnierorganisationsprogramm", MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF END IF '/ ' Sprache-Auswahlmenu laden INI ' Sprache aus Datei einlesen SPRACHELADEN DIM f AS INTEGER = FREEFILE ' ********************************************************************************************************************************************************************* /' UDP Socket DIM BV AS INTEGER 'Variable für Statusrückgabe erstellen BV = TSNE_Create_UDP_TX(G_ClientTX) 'UDP-Socket zum senden erstellen ' Statusrückgabe auswerten IF BV <> TSNE_Const_NoError THEN PRINT "[FEHLER] " & TSNE_GetGURUCode(BV) 'Fehler ausgeben END -1 'Programmbeenden END IF BV = TSNE_Create_UDP_RX(G_ClientRX, 15730, @TSNE_NEWDATAUDP) 'UDP-Socket für den Empfang erstellen ' Statusrückgabe auswerten IF BV <> TSNE_Const_NoError THEN PRINT "[FEHLER] " & TSNE_GetGURUCode(BV) 'Fehler ausgeben END -1 'Programmbeenden END IF '/ ' ********************************************************************************************************************************************************************* ' Offline-/Server-/Clientauswahl /' FELD 8, 81, 77, 101, Hintergrundfarbe ' Offline FELD 8, 113, 77, 133, Hintergrundfarbe ' FELD 8, 145, 77, 165, Hintergrundfarbe ' FONT "Offline", 12, 3, &h555555, &h666666, &h777777,0 , 0 ' Offline FONT "Server", 16, 3, &h555555, &h666666, &h777777,0 , 0 ' Server FONT "Client", 20, 3, &h555555, &h666666, &h777777,0 , 0 ' Client '/ ' SLEEP SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe '------ Icon in der Titelleiste ------ SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) WINDOWTITLE Sprachausgaben(1) ' Farben sGUI definieren DIM AS UINTEGER messageTextColor DIM AS UINTEGER messageColor customColors = TRUE backgroundColor = Hintergrundfarbe ComboBackgroundColor = Hintergrundfarbe textColor = FarbePaarung(3) gadgetColor = Hintergrundfarbe menuColor = textColor gadgetGlowColor = Hintergrundfarbe gadgetTextColor = textColor cursorColor = textColor menuTextColor = Hintergrundfarbe menuHiliteColor = Hintergrundfarbe menuGhostedColor = ShiftRGB(MenuColor, -contrast / 2) messageTextColor = textColor messageColor = gadgetColor InitGFX ' DIM AS EventHandle PTR event=NEW EventHandle /' ' Buttons erzeugen (offline, Server, Client) DIM AS Gadget PTR offline,server,client DIM AS INTEGER posx, posy posx = 300 posy = 80 DIM AS INTEGER bw,bh bw=400 bh=150 '/ /' DIM AS INTEGER PTR gfxbackup gfxbackup=IMAGECREATE(bw,bh) GET (posx,posy)-(posx+bw-1,posy+bh-1),gfxbackup '/ /' FillA(posx,posy,bw,bh,GadgetColor,0) FrameB(posx+2,posy+21,bw-4,bh-23,1) DRAW STRING (posx+5, posy+3),"Welcher Modus?" offline=AddSimpleGadget(event,posx+10,posy+30,380,25,"Offline") server=AddSimpleGadget(event,posx+10,posy+70,380,25,"Server") client=AddSimpleGadget(event,posx+10,posy+110,380,25,"Client") GadgetOn(offline) GadgetOn(server) GadgetOn(client) '/ ' DIM AS connectionType myServer = "offline" /' do event->xSleep(1,0) if event->GADGETMESSAGE then select case event->GADGETMESSAGE case offline event->EXITEVENT=1 ' ohne Aufruf der TSNE j = 0 ' DIM AS connectionType myServer = "offline" case server event->EXITEVENT=1 j = 1 ' DIM AS connectionType myServer = "G_Server" case client event->EXITEVENT=1 j = 2 ' DIM AS connectionType myServer = "G_Client" end select end if loop until event->EXITEVENT delete event ' PUT(posx,posy),gfxbackup,pset ' IMAGEDESTROY gfxbackup '/ /' GadgetOff(offline) GadgetOff(server) GadgetOff(client) '/ /' DIM AS connectionType myServer = "offline" IF j = 0 THEN DIM AS connectionType myServer = "offline" IF j = 1 THEN DIM AS connectionType myServer = "G_Server" IF j = 2 THEN DIM AS connectionType myServer = "G_Client" '/ /' DIM AS connectionType myServer = "offline" FELD 50, 50, 350, 80, Hintergrundfarbe ' offline FELD 50, 100, 350, 130, Hintergrundfarbe ' Server FELD 50, 150, 350, 180, Hintergrundfarbe ' Client FONT "OFFLINE", 9, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "SERVER", 15, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "CLIENT",21, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 '/ /' DO taste = INKEY GETMOUSE mausx, mausy, wheel, mausk SELECT CASE mausk CASE 1 ' Schaltfläche - offline SELECT CASE mausx CASE 50 TO 350 SELECT CASE mausy CASE 50 TO 80 BUTTON 50, 50, 350, 80 DIM AS connectionType myServer = "offline" EXIT DO END SELECT END SELECT ' Schaltfläche - Server SELECT CASE mausx CASE 50 TO 350 SELECT CASE mausy CASE 100 TO 130 BUTTON 50, 100, 350, 130 DIM AS connectionType myServer = "G_Server" EXIT DO END SELECT END SELECT ' Schaltfläche - Client SELECT CASE mausx CASE 50 TO 350 SELECT CASE mausy CASE 150 TO 180 BUTTON 50, 150, 350, 180 DIM AS connectionType myServer = "G_Client" EXIT DO END SELECT END SELECT END SELECT IF taste = CHR(27) OR taste = CHR(255, 107) THEN EXIT DO SLEEP 1 LOOP '/ ' ComboBox aktivieren/definieren ComboOpenVal = 0 DIM AS Gadget PTR Combobox=AddComboBox (event,110,156,42,40) ' DIM AS Gadget PTR Combobox1=AddComboBox (event,500,380,20,29) ' DIM AS Gadget PTR Combobox2=AddComboBox (event,695,380,20,29) ' Koordinaten für Spielerauswahl und Brettauswahl laden OPEN "Koordinaten.ST0P" FOR INPUT AS #f j = 1 k = 1 DO UNTIL EOF(f) INPUT #f, Koordinaten(j, 1, k), Koordinaten(j, 2, k) j += 1 IF j > 24 AND k = 1 THEN j = 1: k = 2 IF j > 59 AND k = 2 THEN j = 1: k = 3 IF j > 59 AND k = 3 THEN j = 1: k = 4 IF j > 24 AND k = 4 THEN j = 1: k = 5 ' j > 151 LOOP CLOSE #f ' 5-256, 232 - 630 (232-238) (240-246) ' Länder der Erde laden DIM AS STRING Staaten(0 TO 202) IF Sprache = 1 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Deutsch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Deutsch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 2 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Englisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Englisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 3 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Französisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Französisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 4 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Spanisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Spanisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 5 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Bayrisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Bayrisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 6 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Italienisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Italienisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 7 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Portugiesisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Portugiesisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 8 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Finnisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Finnisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 9 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Dänisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Dänisch.txt" FOR INPUT ENCODING "ASCII" AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 10 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Schwedisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Schwedisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF '/ ' Sonderzeichen umwandeln FOR j = 1 TO 202 CharToOem Staaten(j), Staaten(j) NEXT ' ComboBox befüllen FOR j = 1 TO 202 TO_AppendLine(Combobox,STR(Staaten(j))) NEXT /' TO_AppendLine(Combobox1,STR("keine zweite Wertung")) TO_AppendLine(Combobox1,STR("Sonneborn-Berger")) TO_AppendLine(Combobox1,STR("Anzahl der Siege")) TO_AppendLine(Combobox1,STR("Buchholz")) TO_AppendLine(Combobox1,STR("Buchholzsumme")) TO_AppendLine(Combobox1,STR("Schmuljan")) TO_AppendLine(Combobox1,STR("Koya")) TO_AppendLine(Combobox1,STR("Brettpunkte")) TO_AppendLine(Combobox1,STR("3-Punkte-Wertung")) TO_AppendLine(Combobox1,STR("Direkter Vergleich")) TO_AppendLine(Combobox1,STR("ARO")) '/ UpdateGadget(Combobox) ' UpdateGadget(Combobox1) SetComboBoxVal(Combobox,1)'Eintrag 1 auswählen ' SetComboBoxVal(Combobox1,1)'Eintrag 1 auswählen GadgetOff(Combobox) ' GadgetOff(Combobox1) ' TO_ClearText (Combobox1) ' UpdateGadget(Combobox1) ' ******************** Variablen definieren *************************** Tastensperre(1) = TRUE Tastensperre(2) = FALSE Tastensperre(3) = FALSE Tastensperre(4) = FALSE Tastensperre(5) = FALSE Tastensperre(6) = FALSE Tastensperre(7) = FALSE Tastensperre(8) = FALSE Tastensperre(9) = FALSE Tastensperre(10) = FALSE ' Tastensperre(11) = FALSE ' Tastensperre(12) = FALSE Tastensperre(17) = FALSE Tastensperre(18) = FALSE Tastensperre(19) = FALSE Tastensperre(20) = FALSE Tastensperre(21) = FALSE Tastensperre(22) = FALSE ' Tastensperre(23) = FALSE ' Tastensperre(24) = FALSE Tastensperre(25) = FALSE Tastensperre(26) = FALSE Tastensperre(27) = FALSE Tastensperre(28) = FALSE Seite = 1 ' Aktuelle aufgerufene Seite Eingabeseite = 1 ' Seite 1 für Eingaben RUECKSETZEN ' Initialisieren MENU ' Menu laden Scrollbalkenposition(1) = 153 Scrollbalkenposition(2) = 112 Scrollbalkenposition(3) = 112 Scrollbalkenposition(4) = 153 YY = Scrollbalkenposition(1) SCROLLBALKEN c(1) = 1 ' c(5) = 1 DO taste = INKEY GETMOUSE mausx, mausy, wheel, mausk ' COLOR &hFFFFFF ' LOCATE 7,5: PRINT "mausx: "; mausx; " mausy: "; mausy; " " IF mausk = 0 THEN Tastensperre(11) = 1 ' Tastensperre zurücksetzen - Spielerauswahl Tastensperre(12) = 1 ' Tastensperre zurücksetzen - Brettauswahl Tastensperre(13) = 1 ' Tastensperre zurücksetzen - Spielereingabemaske Tastensperre(14) = 1 ' Tastensperre zurücksetzen - Brettzuordnung Tastensperre(19) = 0 ' Tastensperre zurücksetzen - Spieler aussetzen/ausschließen Buttonsperre = 0 ' Buttonsperre aufheben wenn Scrollbalken nicht mehr benötigt wird END IF IF mausk <> 1 AND Eingabeseite = 1 THEN Tastensperre(17) = 1 ' Tastenzähler rücksetzen IF mausk <> 1 AND Eingabeseite = 2 THEN Tastensperre(18) = 1 ' Tastenzähler rücksetzen SELECT CASE mausk CASE 1 c(1) += 1 c(2) += 1 c(3) += 1 c(4) += 1 c(5) += 1 IF c(1) > 24 THEN c(1) = 1 IF c(2) > 59 THEN c(2) = 1 IF c(3) > 59 THEN c(3) = 1 IF c(4) > 24 THEN c(4) = 1 IF c(5) > 50 THEN c(5) = 1 ' Schaltfläche - Teilnehmer SELECT CASE mausx CASE 2 TO 93 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 1 AND Seite <> 5 AND Seite <> 7 AND Seite <> 10 THEN BUTTON 2, 2, 93, 28 IF Seite <> 8 AND Seite <> 9 AND Seite <> 11 THEN SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 1 MENU ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) SCROLLBALKEN END IF END SELECT END SELECT ' Schaltfläche - Paarungen SELECT CASE mausx CASE 97 TO 182 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 2 AND Seite <> 5 AND Seite <> 7 AND Seite <> 10 THEN BUTTON 97, 2, 182, 28 IF Seite <> 3 AND Seite <> 4 AND Seite <> 6 AND Seite <> 10 AND Seite <> 12 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 2 MENU ANZEIGE(i) ERGEBNISANZEIGE SCROLLBALKEN END IF END SELECT END SELECT ' Schaltfläche - Tabelle SELECT CASE mausx CASE 186 TO 268 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 3 AND Seite <> 5 AND Seite <> 7 AND Seite <> 10 THEN BUTTON 186, 2, 268, 28 IF Seite <> 2 AND Seite <> 4 AND Seite <> 6 AND Seite <> 10 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 3 MENU TABELLE(1) END IF END SELECT END SELECT ' Schaltfläche - Hilfe SELECT CASE mausx CASE 272 TO 327 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 4 AND Seite <> 5 AND Seite <> 7 AND Seite <> 10 THEN BUTTON 272, 2, 327, 28 IF Seite <> 2 AND Seite <> 3 AND Seite <> 6 AND Seite <> 10 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 4 MENU HILFE END IF ' IF Sprache = 1 OR Sprache = 5 THEN SHELL "START STOP_DE.chm" ELSE SHELL "START STOP_EN.chm" END SELECT END SELECT ' Schaltfläche - HTML Ausgabe SELECT CASE mausx CASE 331 TO 446 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 5 AND Seite <> 7 AND Seite <> 10 THEN BUTTON 331, 2, 446, 28 SCREENRES 500, 500, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 5 Tmp(1) = "1" Tmp(2) = STR(TAZ) Tmp(3) = "1" Tmp(4) = STR(RAZ) Tmp(5) = "1" Tmp(6) = STR(TAZ) ' z = Runde ' Runde = RAZ MENU ' HTML END IF END SELECT END SELECT ' Schaltfläche - Turnierinfo SELECT CASE mausx CASE 579 TO 705 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 5 AND Seite <> 6 AND Seite <> 7 AND Seite <> 10 THEN BUTTON 579, 2, 705, 28 IF Seite <> 2 AND Seite <> 3 AND Seite <> 4 AND Seite <> 10 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 6 SGUIFARBE MENU GadgetOn(Combobox) ' GadgetOn(Combobox1) UpdateGadget(Combobox) END IF END SELECT END SELECT ' Schaltfläche - Credit SELECT CASE mausx CASE 483 TO 547 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 7 THEN BUTTON 483, 2, 547, 28 MessageBox(0, Sprachausgaben(4), Sprachausgaben(1) + " " + local_Version, MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Schaltfläche - Datum/Uhrzeit SELECT CASE mausx CASE 944 TO 1021 SELECT CASE mausy CASE 2 TO 28 IF Seite <> 9 THEN BUTTON 944, 2, 1021, 28 IF Seite <> 1 AND Seite <> 5 AND Seite <> 7 AND Seite <> 9 AND Seite <> 10 AND Seite <> 11 THEN SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 9 MENU ANZEIGE(v) SCROLLBALKEN END IF END SELECT END SELECT IF Seite = 1 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Eingabe - Mannschaftsname SELECT CASE mausx CASE 48 TO 350 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 35, 9, 8, Eingabe(1) Team(i) = Eingabe(1) k = 1 TAZ = 0 DO IF Team(k) = "" THEN EXIT DO TAZ += 1 k += 1 ' i = TAZ LOOP ANZEIGE(i) END IF END SELECT END SELECT ' Mannschaftsspielerseite aufrufen SELECT CASE mausx CASE 355 TO 370 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF Team(i) <> "" AND mausk = 1 THEN BUTTON 355, 57, 370, 77 Seite = 11 MENU ANZEIGE(i) END IF END SELECT END SELECT END IF IF Eingabeseite = 1 AND Paarungssystem < 12 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND Paarungssystem <> 5 THEN ' Eingabe - Spielername SELECT CASE mausx CASE 48 TO 350 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 ' i = TAZ LOOP ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - ELO SELECT CASE mausx CASE 355 TO 406 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 4, 9, 46, Eingabe(2) ELO(i) = VAL(Eingabe(2)) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - DWZ SELECT CASE mausx CASE 411 TO 462 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 4, 9, 53, Eingabe(3) DWZ(i) = VAL(Eingabe(3)) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Titel SELECT CASE mausx CASE 467 TO 510 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 3, 9, 60, Eingabe(4) Titel(i) = Eingabe(4) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Verein SELECT CASE mausx CASE 515 TO 790 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 32, 9, 66, Eingabe(5) Verein(i) = Eingabe(5) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Geburtsdatum SELECT CASE mausx CASE 795 TO 895 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 10, 9, 101, Eingabe(6) Geburt(i) = Eingabe(6) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - FIDEID SELECT CASE mausx CASE 900 TO 1000 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 10, 9, 114, Eingabe(7) FIDEID(i) = Eingabe(7) ANZEIGE(i) END IF END SELECT END SELECT END IF IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' Eingabemaske 1 SELECT CASE mausx CASE 1003 TO 1018 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF Tastensperre(17) <> 0 AND Eingabeseite = 1 AND Paarungssystem < 12 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND mausk = 1 THEN Tastensperre(17) = 0 Eingabeseite = 2 MENU ANZEIGE(i) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153 IF TAZ < 2 THEN zzz = 325: yyy = 153: Scrollbalkenposition(1) = 325 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 IF TAZ > 1 THEN Scrollbalkenposition(1) = yyy + laenge ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF END SELECT END SELECT IF mausk <> 1 THEN Tastensperre(17) = 1 ' Eingabemaske 2 SELECT CASE mausx CASE 1003 TO 1018 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF Tastensperre(18) <> 0 AND Eingabeseite = 2 AND Paarungssystem < 12 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND mausk = 1 THEN Tastensperre(18) = 0 Eingabeseite = 1 MENU ANZEIGE(i) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153 IF TAZ < 2 THEN zzz = 325: yyy = 153: Scrollbalkenposition(1) = 325 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 IF TAZ > 1 THEN Scrollbalkenposition(1) = yyy + laenge ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF END SELECT END SELECT IF mausk <> 1 THEN Tastensperre(18) = 1 END IF IF Eingabeseite = 2 THEN ' Eingabe - Geschlecht SELECT CASE mausx CASE 355 TO 386 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 1, 9, 46, Eingabe(24) Geschlecht(i) = Eingabe(24) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Nation SELECT CASE mausx CASE 391 TO 437 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 3, 9, 51, Eingabe(25) Nation(i) = Eingabe(25) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - PKZ SELECT CASE mausx CASE 442 TO 530 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 9, 9, 57, Eingabe(26) PKZ(i) = Eingabe(26) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Vereinsnummer SELECT CASE mausx CASE 535 TO 655 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 9, 9, 69, Eingabe(27) Vnummer(i) = Eingabe(27) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Mitgliedsnummer SELECT CASE mausx CASE 660 TO 795 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 9, 9, 85, Eingabe(28) Mnummer(i) = Eingabe(28) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Feste Brettnummer SELECT CASE mausx CASE 800 TO 850 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF paarungssystem = 3 OR paarungssystem = 4 OR paarungssystem = 5 OR paarungssystem = 8 OR paarungssystem = 11 THEN IF mausk = 1 THEN DO INGET 4, 9, 102, Eingabe(37) j = 0 FOR k = 1 TO TAZ IF Eingabe(37) = FesteBrettnummer(k) AND Eingabe(37) <> "" THEN j = 1 NEXT IF j = 0 THEN EXIT DO LOOP FesteBrettnummer(i) = Eingabe(37) IF Eingabe(37) = "0" THEN FesteBrettnummer(i) = "" ANZEIGE(i) END IF END IF END SELECT END SELECT ' Eingabe - Attribut SELECT CASE mausx CASE 900 TO 1000 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 1, 9, 114, Eingabe(38) SpielerAttribut(i) = Eingabe(38) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - E-Mail SELECT CASE mausx CASE 355 TO 657 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 35, 14, 46, Eingabe(39) EMPFAENGER(i) = Eingabe(39) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Telefonnummer SELECT CASE mausx CASE 662 TO 862 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 23, 14, 84, Eingabe(40) Telefonnummer(i) = Eingabe(40) ANZEIGE(i) END IF END SELECT END SELECT END IF ' Datei anlegen SELECT CASE mausx CASE 8 TO 77 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 8, 386, 77, 406 ANLEGEN END IF END SELECT END SELECT ' Datei laden SELECT CASE mausx CASE 87 TO 142 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 87, 386, 142, 406 LADEN(Combobox) END IF END SELECT END SELECT ' Datei speichern SELECT CASE mausx CASE 152 TO 238 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 152, 386, 238, 406 SPEICHERN END IF END SELECT END SELECT ' neuer Spieler SELECT CASE mausx CASE 248 TO 380 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF Paarungssystem > 2 AND Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN IF TAZ < maxAnzahl THEN IF Paarungssystem = 9 AND ausgelosteRunde(1) = 1 THEN EXIT SELECT, SELECT BUTTON 248, 386, 380, 406 i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: yyy = 153: Scrollbalkenposition(1) = 325 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 ' IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) ' IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF END IF IF Paarungssystem > 4 AND Paarungssystem < 8 THEN IF TAZ < 500 THEN BUTTON 248, 386, 380, 406 i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Team(i) = Eingabe(1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Team(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: YYY = 153: Scrollbalkenposition(1) = 325 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 ' IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) ' IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF END IF IF Paarungssystem < 3 AND ausgelosteRunde(1) = 0 THEN IF TAZ < maxAnzahl THEN BUTTON 248, 386, 380, 406 i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 ' muss 0 sein!!! DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP IF TAZ > 0 THEN ANZEIGE(TAZ) ' IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) ' IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: YYY = 153: Scrollbalkenposition(1) = 325 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 ' Scrollbalken anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK '/ ' **************************************************************** ' IF laenge > 4 THEN y = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) ' IF laenge <= 4 THEN y = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) ' **************************************************************** ' SCROLLBALKEN END IF END IF IF Paarungssystem = 9 THEN IF TAZ < 2000 THEN IF Paarungssystem = 9 AND ausgelosteRunde(1) = 1 THEN EXIT SELECT, SELECT BUTTON 248, 386, 380, 406 i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: yyy = 153: Scrollbalkenposition(1) = 325 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 ' IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) ' IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF END IF END IF END SELECT END SELECT ' Spieler löschen SELECT CASE mausx CASE 390 TO 509 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 0 AND mausk = 1 THEN BUTTON 390, 386, 509, 406 IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN IF ausgelosteRunde(1) = 0 THEN LOESCHEN ANZEIGE(1) scrollbalkenposition(1) = 153 yyy = scrollbalkenposition(1) SCROLLBALKEN END IF IF ausgelosteRunde(1) = 1 THEN MessageBox(0, Sprachausgaben(144), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF END SELECT END SELECT ' Scrollbalken - Teilnehmer IF AUFSCROLLBALKEN(994,152,1014,326)=1 THEN IF mausy < mausyalt THEN IF Scrollbalkenposition(1) > 152 AND yyy > 152 AND mausy + laenge > 152 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 THEN i = ((TAZ+24)-(((TAZ+24)/(325-153))*(325-mausy)))+1 IF laenge <= 4 THEN i = ((TAZ)-(((TAZ+24)/(321-153))*(321-mausy))) ' TAZ+46 IF i < 1 THEN i = 1 SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF Scrollbalkenposition(1) = mausy yyy = Scrollbalkenposition(1) + laenge FELD 995, mausy, 1013, (mausy+laenge), Hintergrundfarbe SCREENUNLOCK mausyalt = mausy ANZEIGE(i) END IF END IF IF mausy > mausyalt THEN IF Scrollbalkenposition(1) < 326 AND yyy < 326 AND (mausy + laenge) < 326 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 AND i < TAZ THEN i = ((TAZ+24)-(((TAZ+24)/(325-153))*(325-mausy)))+1 IF laenge <= 4 AND i < TAZ THEN i = ((TAZ)-(((TAZ+24)/(321-153))*(321-mausy))) ' TAZ + 46 IF i < 1 THEN i = 1 IF i > 0 AND i >= TAZ THEN i = TAZ SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF Scrollbalkenposition(1) = mausy yyy = Scrollbalkenposition(1) + laenge mausyalt = mausy FELD 995, Scrollbalkenposition(1), 1013, yyy, Hintergrundfarbe SCREENUNLOCK ANZEIGE(i) ELSE IF mausy + laenge > 325 THEN mausy = 325-laenge IF laenge > 4 AND i < TAZ THEN i = ((TAZ+24)-(((TAZ+24)/(325-153))*(325-mausy)))+1 IF laenge <= 4 AND i < TAZ THEN i = ((TAZ)-(((TAZ+24)/(321-153))*(321-mausy))) ' TAZ+46 IF i < 1 THEN i = 1 SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF Scrollbalkenposition(1) = 325 - laenge yyy = 325 FELD 995, Scrollbalkenposition(1), 1013, yyy, Hintergrundfarbe SCREENUNLOCK mausyalt = 325 - laenge ANZEIGE(i) END IF END IF END IF END IF ' Spieler sortieren SELECT CASE mausx CASE 519 TO 629 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 2 AND ausgelosteRunde(1) = 0 AND mausk = 1 THEN BUTTON 519, 386, 629, 406 FENSTERSORTIEREN IF Sortierung > 0 THEN SORTIEREN ANZEIGE(1) MessageBox(0, Sprachausgaben(6), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF Sortierung = 0 END IF END SELECT END SELECT ' Spieler aussetzen/ausschließen SELECT CASE mausx CASE 639 TO 789 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 639, 386, 789, 406 Seite = 8 MENU END IF END SELECT END SELECT ' Teilnehmerliste drucken SELECT CASE mausx CASE 797 TO 828 SELECT CASE mausy CASE 386 TO 406 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 2 AND mausk = 1 THEN BUTTON 797, 386, 828, 406 l = 4 ' Paarungen drucken IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END SELECT END SELECT ' Eintrag nach oben -1 ' IF mausk = 0 THEN SELECT CASE mausx CASE 994 TO 1014 SELECT CASE mausy CASE 130 TO 150 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 0 AND Buttonsperre = 0 AND mausk = 1 THEN BUTTON 994, 130, 1014, 150 IF i > 1 THEN i -= 1 ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN END IF END SELECT END SELECT ' END IF ' Eintrag nach oben +1 ' IF mausk = 0 THEN SELECT CASE mausx CASE 994 TO 1014 SELECT CASE mausy CASE 328 TO 348 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 0 AND Buttonsperre = 0 AND mausk = 1 THEN BUTTON 994, 328, 1014, 348 IF i < TAZ THEN i += 1 ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN END IF END SELECT END SELECT ' END IF ' Spieler via Maske einlesen SELECT CASE mausx CASE 920 TO 952 SELECT CASE mausy CASE 350 TO 382 ' BUTTON 920, 350, 952, 382 FENSTERSUCHEN IF Einleseart = 0 THEN IF FILEEXISTS(EXEPATH + "\standard_rating_list.txt") THEN ' hier nichts tun ' ELO_STANDARD.liste ' PfadElo = "standard_rating_list.txt" Spielernummer = 1 YYY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "standard_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart = 1 THEN IF FILEEXISTS(EXEPATH + "\rapid_rating_list.txt") THEN ' hier nichts tun Spielernummer = 1 YYY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "rapid_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart = 2 THEN IF FILEEXISTS(EXEPATH + "\blitz_rating_list.txt") THEN ' hier nichts tun Spielernummer = 1 YYY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "blitz_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart = 3 THEN IF FILEEXISTS(EXEPATH + "\DWZ.liste") THEN ' hier nichts tun Spielernummer = 1 YYY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "DWZ.liste???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart < 3 THEN IF Seite <> 7 AND Seite <> 10 THEN DIM f AS INTEGER = FREEFILE ' SCREENRES 840, 680, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 7 ' Standard IF Einleseart = 0 THEN IF Wertungszahl(2) <> 1 OR Wertungszahl(0) <> 0 THEN ELOEINLESEN Wertungszahl(0) = FALSE Wertungszahl(1) = TRUE Wertungszahl(3) = TRUE Wertungszahl(4) = TRUE END IF Wertungszahl(2) = 0 ' ELO-Zahl aktivieren END IF ' Rapid IF Einleseart = 1 THEN IF Wertungszahl(2) <> 3 OR Wertungszahl(3) <> 0 THEN ELOEINLESEN Wertungszahl(3) = FALSE Wertungszahl(0) = TRUE Wertungszahl(1) = TRUE Wertungszahl(4) = TRUE END IF Wertungszahl(2) = 3 ' ELO-Zahl aktivieren END IF ' Blitz IF Einleseart = 2 THEN IF Wertungszahl(2) <> 4 OR Wertungszahl(4) <> 0 THEN ELOEINLESEN Wertungszahl(4) = FALSE Wertungszahl(0) = TRUE Wertungszahl(1) = TRUE Wertungszahl(3) = TRUE END IF Wertungszahl(2) = 4 ' ELO-Zahl aktivieren END IF MENU ANZEIGE(i) SCROLLBALKEN ' FENSTERRATINGLIST END IF END IF ' DWZ IF Einleseart = 3 THEN DIM f AS INTEGER = FREEFILE ' SCREENRES 840, 680, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 7 '/ IF Wertungszahl(2) <> 2 OR Wertungszahl(1) <> 0 THEN CHDIR EXEPATH ' Pfad setzen ' Daten einlesen und Anzahl der Daten ermitteln! OPEN PfadNwz FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N IF MULTIKEY(&h01) THEN EXIT DO j += 1 LOOP CLOSE #f eingeleseneDaten = j REDIM Daten(0 TO j, 0 TO 16) j = 1 OPEN PfadNwz FOR INPUT AS #f DO UNTIL EOF(f) ' Altes Format INPUT #f, Daten(j, 6), Daten(j, 7), Daten(j, 8), Daten(j, 2), Daten(j, 10), Daten(j, 4), Daten(j, 11), Daten(j, 12), Daten(j, 13), Daten(j, 14), Daten(j, 15), Daten(j, 9), Daten(j, 5), Daten(j, 1), Daten(j, 3), Daten(j, 16) Daten(j, 10) = LCASE(Daten(j, 10)) ' Neues Format ' INPUT #f, Daten(j, 10), Daten(j, 6), Daten(j, 7), Daten(j, 8), Daten(j, 2), Daten(j, 4), Daten(j, 11), Daten(j, 12), Daten(j, 13), Daten(j, 14), Daten(j, 15), Daten(j, 9), Daten(j, 5), Daten(j, 1), Daten(j, 3), Daten(j, 16) j += 1 IF j > eingeleseneDaten THEN EXIT DO IF MULTIKEY(&h01) THEN EXIT DO LOOP CLOSE #f Wertungszahl(1) = FALSE Wertungszahl(0) = TRUE Wertungszahl(3) = TRUE Wertungszahl(4) = TRUE eingeleseneDaten -= 1 END IF Wertungszahl(2) = 2 ' DWZ aktivieren MENU ANZEIGE(i) SCROLLBALKEN ' FENSTERRATINGLIST END IF Einleseart = 50 END SELECT END SELECT ' Wertungszahlen aktualisieren SELECT CASE mausx CASE 878 TO 910 SELECT CASE mausy CASE 350 TO 382 FENSTERAKTUALISIEREN k = Einleseart IF Einleseart < 4 THEN AKTUALISIEREN Einleseart = 50 END SELECT END SELECT ' Spieler aus externen Datei einlesen SELECT CASE mausx CASE 960 TO 992 SELECT CASE mausy CASE 96 TO 128 IF ausgelosteRunde(1) = 0 AND Modus = 0 THEN SELECT CASE MessageBox(0, Sprachausgaben(228) + "?", Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNOCANCEL OR MB_SYSTEMMODAL) CASE IDYES ' Spielerdatei laden (Vesus) DIM f AS INTEGER = FREEFILE fil = Sprachausgaben(227) + " Vesus (*.csv)" + CHR(0) + "*.CSV" + CHR(0) DateiName = LOADSAVEDIALOG (,fil,1,,"csv") ' Spieler laden IF DateiName <> "" THEN ' alle Einträge sind freigegeben FOR laufvariable = 1 TO MaxAnzahl Eintrag(laufvariable) = 0 NEXT ' Daten auf 0 setzen IF Paarungssystem < 5 OR Paarungssystem = 8 THEN FOR j = 1 TO MaxAnzahl IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" Startgebuehr(j) = 0 NEXT END IF ' Datei im UTF-8 Format OPEN DateiName FOR INPUT ENCODING "ANSI" AS #f TAZ = 0 DO UNTIL EOF(f) TAZ += 1 INPUT #f, ELO(TAZ), DWZ(TAZ), Titel(TAZ), Spieler(TAZ), Verein(TAZ), Geburt(TAZ), FIDEID(TAZ), Geschlecht(TAZ), Nation(TAZ), PKZ(TAZ), Vnummer(TAZ), Mnummer(TAZ), _ kFaktor(TAZ) , Startgebuehr(TAZ) IF LEN(Spieler(TAZ)) > 36 THEN Spieler(TAZ) = LEFT(Spieler(TAZ), 36) IF LEN(Verein(TAZ)) > 32 THEN Verein(TAZ) = LEFT(Verein(TAZ), 32) IF TAZ >= MaxAnzahl THEN EXIT DO LOOP IF Spieler(1) = "" THEN TAZ -= 1 IF TAZ < 0 THEN TAZ = 0 CLOSE #f ' Sonderzeichen konvertieren FOR k = 1 TO TAZ Spieler(k) = CHAR(Spieler(k)) CharToOem Spieler(k), Spieler(k) ' Verein(k) = CHAR(Verein(k)) ' CharToOem Verein(k), Verein(k) NEXT ANZEIGE(1) SCROLLBALKEN END IF CASE IDNO ' Spielerdatei laden (Vesus) DIM f AS INTEGER = FREEFILE fil = Sprachausgaben(227) + " Vesus (*.csv)" + CHR(0) + "*.CSV" + CHR(0) DateiName = LOADSAVEDIALOG (,fil,1,,"csv") ' Spieler laden IF DateiName <> "" THEN ' alle Einträge sind freigegeben FOR laufvariable = 1 TO MaxAnzahl Eintrag(laufvariable) = 0 NEXT ' Datei im UTF-8 Format OPEN DateiName FOR INPUT ENCODING "ANSI" AS #f k = 0 r = 0 br = TAZ DO UNTIL EOF(f) r += 1 INPUT #f, Temp(r,2), Temp(r,3), Temp(r,4), Temp(r,1), Temp(r,5), Temp(r,6), Temp(r,7), Temp(r,24), Temp(r,25), Temp(r,26), _ Temp(r,27), Temp(r,28), Temp(r,30), Temp(r,29) FOR j = 1 TO TAZ IF Temp(r,1) = Spieler(j) AND Temp(r,7) = FIDEID(j) THEN k = 1 END IF NEXT ' Spieler einlesen IF k = 0 AND TAZ < MaxAnzahl THEN Spieler(TAZ+1) = Temp(r,1) ELO(TAZ+1) = VAL(Temp(r,2)) DWZ(TAZ+1) = VAL(Temp(r,3)) Titel(TAZ+1) = Temp(r,4) Verein(TAZ+1) = Temp(r,5) Geburt(TAZ+1) = Temp(r,6) FIDEID(TAZ+1) = Temp(r,7) Geschlecht(TAZ+1) = Temp(r,24) Nation(TAZ+1) = Temp(r,25) PKZ(TAZ+1) = Temp(r,26) Vnummer(TAZ+1) = Temp(r,27) Mnummer(TAZ+1) = Temp(r,28) kFaktor(TAZ+1) = Temp(r,30) Startgebuehr(TAZ+1) = VAL(Temp(r,29)) IF LEN(Spieler(TAZ+1)) > 36 THEN Spieler(TAZ+1) = LEFT(Spieler(TAZ+1), 36) IF LEN(Verein(TAZ+1)) > 32 THEN Verein(TAZ+4) = LEFT(Verein(TAZ+1), 32) Spieler(TAZ+1) = CHAR(Spieler(TAZ+1)) ' Sonderzeichen umwandeln CharToOem Spieler(TAZ+1), Spieler(TAZ+1) ' Sonderzeichen umwandeln TAZ += 1 END IF k = 0 IF TAZ >= MaxAnzahl OR r >= MaxAnzahl THEN EXIT DO LOOP IF Spieler(1) = "" THEN TAZ -= 1 IF TAZ < 0 THEN TAZ = 0 CLOSE #f ANZEIGE(1) SCROLLBALKEN END IF CASE IDCANCEL ' hier nichts machen! END SELECT END IF END SELECT END SELECT ' Schaltfläche - Sprache SELECT CASE mausx CASE 961 TO 1019 SELECT CASE mausy CASE 374 TO 416 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN SCREENRES 512, 580, 32,, &h04 '------ Icon in der Titelleiste ------ SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) INSTALL SPRACHELADEN ' Länder der Erde laden DIM f AS INTEGER = FREEFILE DIM AS STRING Staaten(0 TO 203) IF Sprache = 1 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Deutsch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Deutsch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 2 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Englisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Englisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 3 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Französisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Französisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 4 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Spanisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Spanisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 5 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Bayrisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Bayrisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 6 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Italienisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Italienisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 7 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Portugiesisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Portugiesisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 8 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Finnisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Finnisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 9 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Dänisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Dänisch.txt" FOR INPUT ENCODING "ASCII" AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 10 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Schwedisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Schwedisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF ' Sonderzeichen umwandeln FOR j = 1 TO 201 CharToOem Staaten(j), Staaten(j) NEXT ' Staaten hinzufügen in ComboBox TO_ClearText(Combobox) FOR j = 1 TO 201 TO_AppendLine(Combobox,STR(Staaten(j))) NEXT WINDOWTITLE Sprachausgaben(1) SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe '------ Icon in der Titelleiste ------ SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) MENU i = 1 Seite = 1 ' Aktuelle aufgerufene Seite Runde = 1 ' Aktuelle Runde Brett = 1 ' aufgerufenes Brett Platz = 1 ' aufgerufener Platz Scrollbalkenposition(1) = 153 ' Position des Scrollbalkens; in der Regel ganz oben! ANZEIGE(i) SCROLLBALKEN END IF END SELECT END SELECT ' Teilnehmerauswahl per Maus SELECT CASE mausx CASE 28 TO 992 SELECT CASE mausy CASE Koordinaten(c(1), 1, 1) TO Koordinaten(c(1), 2, 1) IF Tastensperre(11) <> 0 AND mausk = 1 THEN Tastensperre(11) = 0 IF (i+c(1)-1) <= TAZ AND Spieler(i+c(1)-1) <> "" THEN i = (c(1) + i - 1) ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) SCROLLBALKEN END IF END SELECT END SELECT IF mausk <> 1 THEN Tastensperre(11) = 1 ' Listbox mit Spielern anzeigen, die ihre Startgebühr noch nicht bezahlt haben SELECT CASE mausx CASE 4 TO 25 SELECT CASE mausy CASE 130 TO 348 BUTTON 4, 130, 25, 348 FENSTERSTARTGEBUEHR END SELECT END SELECT '/ /' Listbox mit Spielern aus der ELO-Liste anzeigen SELECT CASE mausx CASE 4 TO 25 SELECT CASE mausy CASE 130 TO 348 BUTTON 4, 130, 25, 348 ELOEINLESEN FENSTERRATINGLIST END SELECT END SELECT '/ ELSEIF Seite = 2 THEN /' Paarungen senden SELECT CASE mausx CASE 8 TO 77 SELECT CASE mausy CASE 540 TO 560 BUTTON 8, 540, 77, 560 ' MUTEXLOCK access_Paarungen myServer.senden("062 " + STR(TAZ)) ' FOR j = 1 TO TAZ myServer.senden("001 " + Spieler(j)) NEXT myServer.senden("000 " + STR(ppr(Runde))) FOR j = 1 TO ppr(Runde) myServer.senden("002 " + STR(paarungen(j,1,Runde))) NEXT ' ' MUTEXUNLOCK access_Paarungen END SELECT END SELECT '/ ' Datei anlegen SELECT CASE mausx CASE 8 TO 77 SELECT CASE mausy CASE 563 TO 583 BUTTON 8, 563, 77, 583 ANLEGEN END SELECT END SELECT ' Datei laden SELECT CASE mausx CASE 87 TO 142 SELECT CASE mausy CASE 563 TO 583 BUTTON 87, 563, 142, 583 LADEN(Combobox) ERGEBNISANZEIGE FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END SELECT END SELECT ' Datei speichern SELECT CASE mausx CASE 152 TO 238 SELECT CASE mausy CASE 563 TO 583 BUTTON 152, 563, 238, 583 SPEICHERN END SELECT END SELECT ' letzte Runde löschen SELECT CASE mausx CASE 8 TO 238 SELECT CASE mausy CASE 586 TO 606 GETMOUSE mausx, mausy, wheel, mausk IF ausgelosteRunde(Runde+1) = 0 AND ausgelosteRunde(Runde) = 1 AND Paarungssystem > 2 AND mausk = 1 THEN BUTTON 8, 586, 238, 606 OemToChar Sprachausgaben(143), Sprachausgaben(143) IF MessageBox(0, Sprachausgaben(143) + "?", Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = 1 TO ppr(Runde) FOR k = Runde TO RAZ fehlendeSpieler(paarungen(j,1,Runde), k) = 0 fehlendeSpieler(paarungen(j,2,Runde), k) = 0 NEXT NEXT END IF Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 FOR laufvariable = 1 TO ppr(Runde) ' genommen(laufvariable, Runde) = 0 Punkte(laufvariable, Runde) = 2000 paarungen(laufvariable, 1, Runde) = 0 paarungen(laufvariable, 2, Runde) = 0 NEXT ppr(Runde) = 0 Brett = 1 IF Runde > 1 THEN Runde -= 1 CharToOem Sprachausgaben(143), Sprachausgaben(143) MENU ANZEIGE(1) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN EXIT SELECT END IF CharToOem Sprachausgaben(143), Sprachausgaben(143) END IF END SELECT END SELECT ' manuelle Paarungen SELECT CASE mausx CASE 8 TO 238 SELECT CASE mausy CASE 611 TO 631 IF TAZ > 2 AND RAZ > 0 THEN IF Paarungssystem > 2 AND ausgelosteRunde(Runde+1) = 0 THEN BUTTON 8, 611, 238, 631 IF MessageBox(0, Sprachausgaben(146), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN Seite = 10 ' Seite manuelle Paarungen IF ppr(runde) = 0 THEN AUSLOSUNG Eingabe(32) = STR(Brett) Eingabe(33) = STR(paarungen(Brett,1,Runde)) Eingabe(34) = STR(paarungen(Brett,2,Runde)) MENU ANZEIGE(1) ERGEBNISANZEIGE FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 LOCATE 11,5: PRINT "Paarungen: "; ppr(runde) END IF END IF END IF END SELECT END SELECT ' Schaltfläche - Auslosung SELECT CASE mausx CASE 332 TO 425 SELECT CASE mausy CASE 563 TO 596 IF RAZ > 0 OR Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN BUTTON 332, 563, 425, 596 ' Auswahlfeld für Punkte für Spielfrei deaktivieren bzw. auf Standard (1 Punkt bei Freilos) setzen IF Paarungssystem < 3 AND ausgelosteRunde(Runde) = 0 THEN Halbbye = 0 IF Paarungssystem = 9 AND ausgelosteRunde(Runde) = 0 THEN Halbbye = 0 ' Auslosen im KO-System IF ausgelosteRunde(Runde) = 1 THEN IF Paarungssystem = 9 THEN IF MessageBox(0, Sprachausgaben(106), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE END IF END IF ELSE IF Paarungssystem = 9 THEN ' ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE END IF END IF ' Auslosen wenn javafo.jar vorhanden ist IF Paarungssystem <> 8 AND Paarungssystem <> 9 AND Paarungssystem <> 11 THEN IF FILEEXISTS(EXEPATH + "\javafo.jar") THEN ' TABELLE(0) IF ausgelosteRunde(Runde) = 1 THEN IF Paarungssystem > 2 THEN IF MessageBox(0, Sprachausgaben(106), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' Daten auf 0 setzen ' IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ' ERGEBNISANZEIGE - Ergebnisse hier anzeigen??? ' ausgelosteRunde(Runde) = 1 END IF END IF ELSE IF TAZ < 81 THEN ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE ELSE IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MessageBox(0, Sprachausgaben(8) + " > 80; max = 80", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) ELSE ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE END IF END IF END IF ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Auslosen bei Burstein, wenn bbpPairings.exe vorhanden ist IF Paarungssystem = 8 OR Paarungssystem = 11 THEN IF Paarungssystem <> 9 THEN IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN ' TABELLE(0) IF ausgelosteRunde(Runde) = 1 THEN IF Paarungssystem > 2 THEN IF MessageBox(0, Sprachausgaben(106), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' Daten auf 0 setzen ' IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ' ERGEBNISANZEIGE - Ergebnisse hier anzeigen??? ' ausgelosteRunde(Runde) = 1 END IF END IF ELSE IF TAZ < 81 THEN ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE ELSE IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MessageBox(0, Sprachausgaben(8) + " > 80; max = 80", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) ELSE ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE END IF END IF END IF ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF END IF ELSE MessageBox(0, Sprachausgaben(82) + " = 0!!!", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Brettauswahl per Maus - Paarungsliste SELECT CASE mausx CASE 332 TO 1021 SELECT CASE mausy CASE Koordinaten(c(2), 1, 2) TO Koordinaten(c(2), 2, 2) IF Tastensperre(12) <> 0 AND mausk = 1 THEN Tastensperre(12) = 0 IF (Brett+c(2)-1) <= ppr(runde) AND Spieler(Brett+c(2)-1) <> "" THEN Brett = (c(2) + Brett - 1) ANZEIGE(Brett) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END SELECT END SELECT ' Brettauswahl per Maus - Ergebnisfelder SELECT CASE mausx CASE 262 TO 322 SELECT CASE mausy CASE Koordinaten(c(2), 1, 2) TO Koordinaten(c(2), 2, 2) IF Tastensperre(12) <> 0 AND mausk = 1 THEN Tastensperre(12) = 0 IF (Brett+c(2)-1) <= ppr(runde) AND Spieler(Brett+c(2)-1) <> "" THEN Brett = (c(2) + Brett - 1) ANZEIGE(Brett) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END SELECT END SELECT IF mausk <> 1 THEN Tastensperre(12) = 1 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN /' FONT "0 0", 7, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 0-0 FONT "0 2", 7, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 2-2 FONT "2 2", 7, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 4-0 FONT "2 1", 7, 49, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 3-1 FONT "1 1", 7, 54, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 2-2 FONT "2 0", 7, 59, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 2-2 FONT "1 2", 7, 65, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 1-3 FONT "0 4", 7, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 0-4 '/ /' Schaltfläche - 0-0 SELECT CASE mausx CASE 332 TO 369 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 332, 43, 369, 61 ' Button Anzeigen ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 2 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT '/ ' Schaltfläche - 4-0 **************************************** SELECT CASE mausx CASE 332 TO 369 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 332, 43, 369, 61 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 0 Punkte(paarungen(Brett,2,r),r) = 1 ' 2. Durchgang END IF ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 0 Punkte(paarungen(Brett,2,r),r) = 2 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 3-1 SELECT CASE mausx CASE 374 TO 411 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 374, 43, 411, 61 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 0.5 Punkte(paarungen(Brett,2,r),r) = 0.5 ' 2. Durchgang END IF ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 1 Punkte(paarungen(Brett,2,r),r) = 1 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 2-2 (1-1/1-1) SELECT CASE mausx CASE 416 TO 453 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 416, 43, 453, 61 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 0.5 Punkte(paarungen(Brett,2,Runde),Runde) = 0.5 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 0.5 Punkte(paarungen(Brett,2,r),r) = 0.5 ' 2. Durchgang END IF ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 1 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 1 Punkte(paarungen(Brett,2,r),r) = 1 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 2-2 (2-0/0-2) SELECT CASE mausx CASE 458 TO 495 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 458, 43, 495, 61 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 1 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 2 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 1-3 SELECT CASE mausx CASE 500 TO 537 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 500, 43, 537, 61 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 0.5 Punkte(paarungen(Brett,2,Runde),Runde) = 0.5 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 1 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 1 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 2 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 0-4 SELECT CASE mausx CASE 542 TO 579 SELECT CASE mausy CASE 43 TO 61 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND paarungssystem = 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 542, 43, 579, 61 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 1 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF ' Mühlemodus IF modus = 1 THEN IF Runde <= (RAZ/2) AND Runde > 0 THEN r = (RAZ/2) + Runde IF Runde > (RAZ/2) AND Runde <= RAZ THEN r = Runde - (RAZ/2) Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 ' 1. Durchgang Punkte(paarungen(Brett,1,r),r) = 2 Punkte(paarungen(Brett,2,r),r) = 0 ' 2. Durchgang END IF kampflose(Brett, Runde) = 0 kampflose(Brett, r) = 0 IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 1-0 SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 66 TO 84 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 6, 66, 67, 84 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 1 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 1/2-1/2 SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 66 TO 84 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 76, 66, 137, 84 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0.5 Punkte(paarungen(Brett,2,Runde),Runde) = 0.5 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND runde < RAZ THEN FENSTERKNOCKOUT IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 0-1 SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 66 TO 84 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 146, 66, 207, 84 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 1 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 1/2-0 SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 6, 89, 67, 109 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0.5 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 1 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 0-1/2 SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 76, 89, 137, 109 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 0.5 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 1 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - 0-0 SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 146, 89, 207, 109 Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 0 kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND runde < RAZ THEN FENSTERKNOCKOUT IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - +-- SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 114 TO 134 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 6, 114, 67, 134 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF kampflose(Brett, Runde) = 1 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 1 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - --- SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 114 TO 134 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 76, 114, 137, 134 Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 0 kampflose(Brett, Runde) = 1 IF Paarungssystem = 9 AND runde < RAZ THEN FENSTERKNOCKOUT IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - --+ SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 114 TO 134 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 146, 114, 207, 134 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 END IF kampflose(Brett, Runde) = 1 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 1 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - W-L SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 139 TO 159 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 6, 139, 67, 159 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF kampflose(Brett, Runde) = 2 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 1 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - D-D SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 139 TO 159 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 76, 139, 137, 159 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0.5 Punkte(paarungen(Brett,2,Runde),Runde) = 0.5 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF kampflose(Brett, Runde) = 2 IF Paarungssystem = 9 AND runde < RAZ THEN FENSTERKNOCKOUT IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Schaltfläche - L-W SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 139 TO 159 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN BUTTON 146, 139, 207, 159 ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 END IF kampflose(Brett, Runde) = 2 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 1 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF IF Brett < ppr(runde) THEN ANZEIGE(i) END IF ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Ergebnis löschen SELECT CASE mausx CASE 6 TO 207 SELECT CASE mausy CASE 164 TO 184 GETMOUSE mausx, mausy, wheel, mausk IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND mausk = 1 THEN BUTTON 6, 164, 207, 184 Punkte(paarungen(Brett,1,Runde),Runde) = 2000 Punkte(paarungen(Brett,2,Runde),Runde) = 2000 kampflose(Brett, Runde) = 1 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF ANZEIGE(i) ERGEBNISANZEIGE END IF END SELECT END SELECT END IF ' Ergebnisse/Spieler der jeweiligen Mannschaften eingeben bzw. definieren IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN SELECT CASE mausx CASE 6 TO 207 SELECT CASE mausy CASE 164 TO 184 GETMOUSE mausx, mausy, wheel, mausk IF Team(paarungen(Brett,1,Runde)) <> "" AND Team(paarungen(Brett,2,Runde)) <> "" THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND mausk = 1 THEN BUTTON 6, 164, 207, 184 Seite = 12 s = 1 MENU ANZEIGE(Brettfarbe+1) ' ANZEIGE(1) ERGEBNISANZEIGE END IF END IF END SELECT END SELECT END IF ' Brett suchen bzw. Brettnummer eingeben SELECT CASE mausx CASE 865 TO 1021 SELECT CASE mausy CASE 551 TO 571 ' BUTTON 960, 551, 1021, 571 GETMOUSE mausx, mausy, wheel, mausk IF ppr(Runde) > 0 AND mausk = 1 THEN DO j = LEN(Sprachausgaben(137)) INGET 3, 71, 112+j, Eingabe(0) IF VAL(Eingabe(0)) > 0 AND VAL(Eingabe(0)) <= ppr(runde) THEN Brett = VAL(Eingabe(0)) IF Brett <= ppr(Runde) AND Brett > 0 AND VAL(Eingabe(0)) > 0 AND VAL(Eingabe(0)) <= ppr(runde) THEN EXIT DO IF MULTIKEY(&h01) AND ppr(runde) > 0 THEN EXIT DO FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + Eingabe(0), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 LOOP IF Brett < 1 OR Brett > ppr(runde) THEN Brett = 1 IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(Brett) ERGEBNISANZEIGE END IF END SELECT END SELECT ' Brett nach unten -1 SELECT CASE mausx CASE 233 TO 253 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF ppr(runde) > 0 AND Buttonsperre = 0 AND mausk = 1 THEN BUTTON 233, 89, 253, 109 IF Brett > 1 THEN Brett -= 1 IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(Brett) ERGEBNISANZEIGE END IF END SELECT END SELECT ' Brett nach oben +1 SELECT CASE mausx CASE 233 TO 253 SELECT CASE mausy CASE 505 TO 525 GETMOUSE mausx, mausy, wheel, mausk IF ppr(runde) > 0 AND Buttonsperre = 0 AND mausk = 1 THEN BUTTON 233, 505, 253, 525 IF Brett < ppr(Runde) THEN Brett += 1 IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(Brett) ERGEBNISANZEIGE END IF END SELECT END SELECT ' Runde + SELECT CASE mausx CASE 668 TO 680 SELECT CASE mausy CASE 37 TO 49 BUTTON 668, 37, 680, 49 ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 OR Paarungssystem = 6 THEN AnzahlErgebnisse = ppr(runde) IF Runde < RAZ AND ausgelosteRunde(Runde) = 1 AND AnzahlErgebnisse >= ppr(runde) THEN Brett = 1 Runde += 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(1) ERGEBNISANZEIGE ELSE IF Runde < RAZ AND ausgelosteRunde(Runde) THEN MessageBox(0, Sprachausgaben(148), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Runde - SELECT CASE mausx CASE 668 TO 680 SELECT CASE mausy CASE 53 TO 65 BUTTON 668, 53, 680, 65 IF Runde > 1 THEN Brett = 1 Runde -= 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(1) ERGEBNISANZEIGE END IF END SELECT END SELECT IF Paarungssystem = 0 THEN ' 1. Durchgang SELECT CASE mausx CASE 621 TO 633 SELECT CASE mausy CASE 45 TO 57 BUTTON 621, 45, 633, 57 IF Runde > (RAZ/2) AND Runde <= RAZ THEN Runde = Runde - (RAZ/2) FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem = 0 THEN AUSLOSUNG IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(i) ERGEBNISANZEIGE END SELECT END SELECT ' 2. Durchgang SELECT CASE mausx CASE 637 TO 649 SELECT CASE mausy CASE 45 TO 57 BUTTON 637, 45, 649, 57 IF Runde <= (RAZ/2) AND Runde > 0 THEN Runde = (RAZ/2) + Runde FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem = 0 THEN AUSLOSUNG IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ANZEIGE(i) ERGEBNISANZEIGE END SELECT END SELECT END IF ' Passworteingabe #IFDEF __FB_64BIT__ SELECT CASE mausx CASE 792 TO 826 SELECT CASE mausy CASE 551 TO 569 BUTTON 792, 551, 826, 569 IF Server = "" THEN FENSTERSERVER' Servername eingeben IF Nutzer = "" THEN FENSTEREMAILADRESSE' E-Mailadresse eingeben IF Port = "" THEN FENSTERPORT' Port eingeben FENSTERPASSWORT IF pass <> "" THEN EMAILSENDEN END SELECT END SELECT #ENDIF ' Paarungsliste drucken SELECT CASE mausx CASE 829 TO 860 SELECT CASE mausy CASE 551 TO 571 GETMOUSE mausx, mausy, wheel, mausk IF ppr(runde) > 0 AND mausk = 1 THEN BUTTON 829, 551, 860, 571 l = 5 ' Paarungen drucken TABELLE(0) ' Tabelle für Paarungen aufrufen zum berechnen der Gesamtpunkte der jeweiligen Spieler IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END SELECT END SELECT ' Scrollbalken - Paarungen (59) IF AUFSCROLLBALKEN(233,111,253,503)=1 THEN IF mausy < mausyalt THEN IF Scrollbalkenposition(2) > 111 AND yy > 111 AND mausy + laenge > 111 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 THEN Brett = ((ppr(runde)+59)-(((ppr(runde)+59)/(502-112))*(502-mausy)))+1 IF laenge <= 4 THEN Brett = ((ppr(runde))-(((ppr(runde)+59)/(498-112))*(498-mausy))) ' TAZ+46 IF Brett < 1 THEN Brett = 1 SCREENLOCK LINE (234, 112)-(252, 502), Hintergrundfarbe, BF Scrollbalkenposition(2) = mausy yy = Scrollbalkenposition(2) + laenge FELD 234, mausy, 252, (mausy+laenge), Hintergrundfarbe SCREENUNLOCK mausyalt = mausy ANZEIGE(Brett) ERGEBNISANZEIGE SCREENLOCK FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF END IF IF mausy > mausyalt THEN IF y < 503 AND yy < 503 AND (mausy + laenge) < 503 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 THEN Brett = ((ppr(runde)+59)-(((ppr(runde)+59)/(502-112))*(502-mausy)))+1 IF laenge <= 4 THEN Brett = ((ppr(runde))-(((ppr(runde)+59)/(498-112))*(498-mausy))) ' TAZ+46 IF Brett < 1 THEN Brett = 1 IF Brett > 0 AND Brett >= ppr(runde) THEN Brett = ppr(runde) SCREENLOCK LINE (234, 112)-(252, 502), Hintergrundfarbe, BF Scrollbalkenposition(2) = mausy yy = Scrollbalkenposition(2) + laenge mausyalt = mausy FELD 234, Scrollbalkenposition(2), 252, yy, Hintergrundfarbe SCREENUNLOCK ANZEIGE(Brett) ERGEBNISANZEIGE SCREENLOCK FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK ELSE IF mausy + laenge > 502 THEN mausy = 502-laenge IF laenge > 4 THEN Brett = ((ppr(runde)+59)-(((ppr(runde)+59)/(502-112))*(502-mausy)))+1 IF laenge <= 4 THEN Brett = ((ppr(runde))-(((ppr(runde)+59)/(498-112))*(498-mausy))) ' TAZ+46 IF Brett < 1 THEN Brett = 1 LINE (234, 112)-(252, 502), Hintergrundfarbe, BF Scrollbalkenposition(2) = 502 - laenge yy = 502 FELD 234, Scrollbalkenposition(2), 252, yy, Hintergrundfarbe mausyalt = 502 - laenge ANZEIGE(Brett) ERGEBNISANZEIGE SCREENLOCK FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF END IF END IF END IF ' END IF ELSEIF Seite = 3 THEN ' Runde + SELECT CASE mausx CASE 268 TO 280 SELECT CASE mausy CASE 37 TO 49 ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 OR Paarungssystem = 6 THEN AnzahlErgebnisse = ppr(runde) BUTTON 268, 37, 280, 49 IF Runde < RAZ AND ausgelosteRunde(Runde) = 1 AND AnzahlErgebnisse >= ppr(runde) THEN Runde += 1 SCREENLOCK FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)) + " ", 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK TABELLE(1) END SELECT END SELECT ' Runde - SELECT CASE mausx CASE 252 TO 264 SELECT CASE mausy CASE 37 TO 49 BUTTON 252, 37, 264, 49 IF Runde > 1 THEN Runde -= 1 SCREENLOCK FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)) + " ", 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK TABELLE(1) END SELECT END SELECT ' END IF ELSEIF Seite = 5 THEN ' HTML - Teilnehmer SELECT CASE mausx CASE 6 TO 137 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 2 AND mausk = 1 THEN BUTTON 6, 89, 137, 109 HTML(1) END IF END SELECT END SELECT ' HTML - Paarungen SELECT CASE mausx CASE 6 TO 137 SELECT CASE mausy CASE 113 TO 133 GETMOUSE mausx, mausy, wheel, mausk IF ausgelosteRunde(1) = 1 AND mausk = 1 THEN BUTTON 6, 113, 137, 133 HTML(2) END IF END SELECT END SELECT ' HTML - Rangliste SELECT CASE mausx CASE 6 TO 137 SELECT CASE mausy CASE 137 TO 157 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 2 AND mausk = 1 THEN BUTTON 6, 137, 137, 157 HTML(3) END IF END SELECT END SELECT ' HTML - Kreuztabelle SELECT CASE mausx CASE 320 TO 481 SELECT CASE mausy CASE 113 TO 133 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem = 1 OR Paarungssystem = 2 THEN IF TAZ > 2 AND mausk = 1 THEN BUTTON 320, 113, 481, 133 HTML(4) END IF END IF END SELECT END SELECT ' HTML - Fortschrittstabelle SELECT CASE mausx CASE 320 TO 481 SELECT CASE mausy CASE 137 TO 157 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem = 1 OR Paarungssystem = 2 OR Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN IF TAZ > 2 AND mausk = 1 THEN BUTTON 320, 137, 481, 157 HTML(5) END IF END IF END SELECT END SELECT ' HTML - Kreuztabelle im Rundensystem mit 2 Durchgängen SELECT CASE mausx CASE 320 TO 481 SELECT CASE mausy CASE 113 TO 133 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem = 0 AND Modus = 1 THEN IF TAZ > 2 AND mausk = 1 THEN BUTTON 320, 113, 481, 133 HTML(4) END IF END IF END SELECT END SELECT ' HTML - Eingabefeld - Teilnehmer von ... SELECT CASE mausx CASE 145 TO 195 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Tmp(7) = "1" INGET 4, 13, 20, Tmp(7) Tmp(1) = Tmp(7) MENU END IF END SELECT END SELECT ' HTML - Eingabefeld - Teilnehmer ... bis SELECT CASE mausx CASE 210 TO 260 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Tmp(8) = STR(TAZ) INGET 4, 13, 28, Tmp(8) Tmp(2) = Tmp(8) MENU END IF END SELECT END SELECT ' HTML - Eingabefeld - Paarung von ... SELECT CASE mausx CASE 145 TO 195 SELECT CASE mausy CASE 113 TO 133 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Tmp(9) = "1" INGET 4, 16, 20, Tmp(9) Tmp(3) = Tmp(9) MENU END IF END SELECT END SELECT ' HTML - Eingabefeld - Paarung ... bis SELECT CASE mausx CASE 210 TO 260 SELECT CASE mausy CASE 113 TO 133 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Tmp(10) = STR(RAZ) INGET 4, 16, 28, Tmp(10) Tmp(4) = Tmp(10) MENU END IF END SELECT END SELECT ' HTML - Eingabefeld - Rangliste von ... SELECT CASE mausx CASE 145 TO 195 SELECT CASE mausy CASE 137 TO 157 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Tmp(11) = "1" INGET 4, 19, 20, Tmp(11) Tmp(5) = Tmp(11) MENU END IF END SELECT END SELECT ' HTML - Eingabefeld - Rangliste ... bis SELECT CASE mausx CASE 210 TO 260 SELECT CASE mausy CASE 137 TO 157 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Tmp(12) = STR(TAZ) INGET 4, 19, 28, Tmp(12) Tmp(6) = Tmp(12) MENU END IF END SELECT END SELECT ' Teilnehmerliste drucken SELECT CASE mausx CASE 270 TO 301 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 2 AND mausk = 1 THEN BUTTON 270, 89, 301, 109 l = 1 ' Teilnehmerliste drucken IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END SELECT END SELECT ' Paarungsliste drucken SELECT CASE mausx CASE 270 TO 301 SELECT CASE mausy CASE 113 TO 133 GETMOUSE mausx, mausy, wheel, mausk IF ppr(runde) > 0 AND mausk = 1 THEN BUTTON 270, 113, 301, 133 l = 2 ' Paarungen drucken TABELLE(0) ' Tabelle für Paarungen aufrufen zum berechnen der Gesamtpunkte der jeweiligen Spieler IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END SELECT END SELECT ' Rangliste drucken SELECT CASE mausx CASE 270 TO 301 SELECT CASE mausy CASE 137 TO 157 GETMOUSE mausx, mausy, wheel, mausk IF TAZ > 2 AND mausk = 1 THEN BUTTON 270, 137, 301, 157 l = 3 ' Rangliste drucken TABELLE(0) ' Tabelle zur Berechnung der Rangliste aufrufen IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END SELECT END SELECT ' IA1-Formular drucken SELECT CASE mausx CASE 6 TO 56 SELECT CASE mausy CASE 329 TO 349 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF mausk = 1 THEN BUTTON 6, 329, 56, 349 l = 7 ' IA1-Formular drucken IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END IF END SELECT END SELECT ' FA1-Formular drucken SELECT CASE mausx CASE 6 TO 56 SELECT CASE mausy CASE 353 TO 373 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF mausk = 1 THEN BUTTON 6, 353, 56, 373 l = 8 ' FA1-Formular drucken IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END IF END SELECT END SELECT ' IT3-Formular drucken SELECT CASE mausx CASE 6 TO 306 SELECT CASE mausy CASE 305 TO 325 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF mausk = 1 THEN BUTTON 6, 305, 306, 325 l = 9 ' IT3-Formular drucken IF DRUCKEN() = FALSE THEN MessageBox(0, Sprachausgaben(155), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' PRINT "Daten an Drucker geschickt." END IF END IF END IF END SELECT END SELECT ' TRF-File erstellen (TRF16 + TRF 2026) SELECT CASE mausx CASE 6 TO 137 SELECT CASE mausy CASE 185 TO 205 GETMOUSE mausx, mausy, wheel, mausk ' AND Paarungssystem < 5 IF Dateiname <> "" AND mausk = 1 AND Paarungssystem < 12 THEN BUTTON 6, 185, 137, 205 AA = RTRIM(Dateiname, ".STOP") IF TRFMODE = 0 THEN TRF(4) IF FILEEXISTS(AA + "_TRF16.TRF") THEN MessageBox(0, AA + "_TRF16.TRF", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) MessageBox(0, Sprachausgaben(32), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE MessageBox(0, Sprachausgaben(105)+ "???", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) END IF END IF IF TRFMODE = 1 THEN TRF(6) IF FILEEXISTS(AA + "_TRF 2026.TRF") THEN MessageBox(0, AA + "_TRF 2026.TRF", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) MessageBox(0, Sprachausgaben(32), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE MessageBox(0, Sprachausgaben(105)+ "???", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) END IF END IF END IF END SELECT END SELECT ' TRF-Modus auswählen - TRF16 SELECT CASE mausx CASE 282 TO 293 SELECT CASE mausy CASE 190 TO 201 GETMOUSE mausx, mausy, wheel, mausk TRFMODE = 0 IF TRFMODE = 0 THEN CIRCLE (287, 195), 3, &h00FF00,,,, F CIRCLE (351, 195), 3, Hintergrundfarbe,,,, F ELSE CIRCLE (351, 195), 3, &h00FF00,,,, F CIRCLE (287, 195), 3, Hintergrundfarbe,,,, F END IF END SELECT END SELECT ' TRF-Modus auswählen - TRF26 SELECT CASE mausx CASE 346 TO 357 SELECT CASE mausy CASE 190 TO 201 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 THEN TRFMODE = 1 IF TRFMODE = 0 THEN CIRCLE (287, 195), 3, &h00FF00,,,, F CIRCLE (351, 195), 3, Hintergrundfarbe,,,, F ELSE CIRCLE (351, 195), 3, &h00FF00,,,, F CIRCLE (287, 195), 3, Hintergrundfarbe,,,, F END IF END IF END SELECT END SELECT ' Datei für Dewis erstellen SELECT CASE mausx CASE 6 TO 137 SELECT CASE mausy CASE 209 TO 229 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Dateiname <> "" AND mausk = 1 THEN BUTTON 6, 209, 137, 229 AA = RTRIM(Dateiname, ".STOP") TABELLE(0) ' DEWIS DWZ_AUSWERTUNG /' IF FILEEXISTS(AA + ".swi") AND t <> 0 THEN MessageBox(0, AA + ".swi", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) MessageBox(0, Sprachausgaben(32), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE MessageBox(0, Sprachausgaben(151)+ "???", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) END IF '/ END IF END IF END SELECT END SELECT ' Datei für die Schweizer Führungsliste erstellen SELECT CASE mausx CASE 6 TO 137 SELECT CASE mausy CASE 233 TO 253 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Dateiname <> "" AND mausk = 0 THEN BUTTON 6, 233, 137, 253 AA = RTRIM(Dateiname, ".STOP") FLRESU IF FILEEXISTS(AA + ".csv") THEN MessageBox(0, AA + ".csv", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) MessageBox(0, Sprachausgaben(32), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE MessageBox(0, Sprachausgaben(152)+ "???", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) END IF END IF END IF END SELECT END SELECT ' Datei für Vesus-Ergebnisserver erstellen SELECT CASE mausx CASE 390 TO 490 SELECT CASE mausy CASE 409 TO 429 IF Modus = 0 OR Modus = 1 THEN IF Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 THEN BUTTON 390, 409, 490, 429 SERVERVESUS ' Datei für Server erstellen END IF END IF END SELECT END SELECT ' Zurück zu den Teilnehmern!!! SELECT CASE mausx CASE 187 TO 318 SELECT CASE mausy CASE 473 TO 493 BUTTON 187, 473, 318, 493 IF Seite <> 1 THEN SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) Seite = 1 ' Runde = 1 MENU ANZEIGE(i) SCROLLBALKEN END IF END SELECT END SELECT ' END IF ELSEIF Seite = 6 THEN ' Eingabe - Turniername, Turnierort, Bedenkzeit, Turnierorganisator, Hauptschiedsrichter, Schiedsrichter, Bemerkung k = 9 l = 9 FOR j = 57 TO 585 STEP 48 SELECT CASE mausx CASE 48 TO 470 SELECT CASE mausy CASE j TO j+20 GETMOUSE mausx, mausy, wheel, mausk IF k <> 11 AND ComboOpenVal = 0 AND mausk = 1 THEN INGET 50, l, 8, Eingabe(k) EXIT FOR END SELECT END SELECT k += 1 l += 6 NEXT ' Eingabe - Nation SELECT CASE mausx CASE 48 TO 100 SELECT CASE mausy CASE 153 TO 173 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 3, 21, 8, Eingabe(11): LAENDERKUERZEL(1): SetComboBoxVal(Combobox, k): UpdateGadget(Combobox) END SELECT END SELECT ' Eingabe - Datum Start SELECT CASE mausx CASE 497 TO 597 SELECT CASE mausy CASE 57 TO 77 IF MULTIKEY(&h1D) = 0 THEN k = 1 Eingabe(21) = PickDate() Seite = 6 MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe MENU GadgetOn(Combobox) UpdateGadget(Combobox) ELSE GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 10, 9, 64, Eingabe(21) END IF END SELECT END SELECT ' Eingabe - Datum Ende SELECT CASE mausx CASE 497 TO 597 SELECT CASE mausy CASE 105 TO 125 IF MULTIKEY(&h1D) = 0 THEN k = 2 Eingabe(22) = PickDate() Seite = 6 MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe MENU GadgetOn(Combobox) UpdateGadget(Combobox) ELSE GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 10, 15, 64, Eingabe(22) END IF END SELECT END SELECT ' Eingabe - Koya Limit | Feinwertung 1 SELECT CASE mausx CASE 546 TO 640 SELECT CASE mausy CASE 428 TO 443 GETMOUSE mausx, mausy, wheel, mausk IF Feinwertungssystem(1) = 7 THEN DO Eingabe(35) = STR(KoyaLimit(1)) INGET 2, 55, 77, Eingabe(35) KoyaLimit(1) = VAL(Eingabe(35)) IF KoyaLimit(1) < 100 AND KoyaLimit(1) > 0 THEN EXIT DO LOOP FONT "Limit: " + STR(KoyaLimit(1)) + "%", 55, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits END IF END SELECT END SELECT ' Eingabe - Koya Limit | Feinwertung 2 SELECT CASE mausx CASE 738 TO 832 SELECT CASE mausy CASE 428 TO 443 GETMOUSE mausx, mausy, wheel, mausk IF Feinwertungssystem(2) = 7 THEN DO Eingabe(36) = STR(KoyaLimit(2)) INGET 2, 55, 101, Eingabe(36) KoyaLimit(2) = VAL(Eingabe(36)) IF KoyaLimit(2) < 100 AND KoyaLimit(2) > 0 THEN EXIT DO LOOP FONT "Limit: " + STR(KoyaLimit(2)) + "%", 55, 94, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits END IF END SELECT END SELECT ' Eingabe - Bretteranzahl SELECT CASE mausx CASE 817 TO 847 SELECT CASE mausy CASE 178 TO 198 GETMOUSE mausx, mausy, wheel, mausk IF Paarungssystem > 4 AND Paarungssystem < 8 THEN IF ausgelosteRunde(1) = 0 AND mausk = 1 THEN DO Eingabe(31) = STR(Bretter) INGET 1, 24, 104, Eingabe(31) Bretter = VAL(Eingabe(31)) IF Bretter < 10 AND Bretter > 3 THEN EXIT DO LOOP FONT " ", 24, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen FONT STR(Bretter), 24, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen END IF END IF END SELECT END SELECT ' Eingabe - Rundenanzahl SELECT CASE mausx CASE 817 TO 867 SELECT CASE mausy CASE 226 TO 246 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 AND Paarungssystem <> 0 AND Paarungssystem <> 1 AND Paarungssystem <> 2 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND Paarungssystem <> 9 THEN INGET 3, 30, 104, Eingabe(23) IF Paarungssystem > 2 AND VAL(Eingabe(23)) > 29 THEN FONT " ", 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen IF RAZ > 0 THEN FONT STR(RAZ), 27, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen Eingabe(23) = STR(RAZ) EXIT SELECT, SELECT END IF IF Paarungssystem = 4 AND VAL(Eingabe(23)) < 1 THEN FONT " ", 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen FONT STR(RAZ), 27, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen Eingabe(23) = STR(RAZ) EXIT SELECT, SELECT END IF IF ausgelosteRunde(VAL(Eingabe(23))) = 0 THEN IF Eingabe(23) <> "" THEN RAZ = VAL(Eingabe(23)) REDIM AS STRING Datum(0 TO RAZ+39), Uhrzeit(0 TO RAZ+39) ELSE IF ausgelosteRunde(1) = 1 THEN Eingabe(23) = STR(RAZ) FONT STR(RAZ), 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen END IF END IF ELSE FONT STR(RAZ), 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen Eingabe(23) = STR(RAZ) END IF END IF END SELECT END SELECT ' Auswahl - Rundenanzahl - 1 SELECT CASE mausx CASE 876 TO 888 SELECT CASE mausy CASE 230 TO 242 BUTTON 876, 230, 888, 242 IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN IF RAZ > 1 AND ausgelosteRunde(RAZ) = 0 THEN RAZ -= 1 Eingabe(23) = STR(RAZ) REDIM AS STRING Datum(0 TO RAZ+39), Uhrzeit(0 TO RAZ+39) SCREENLOCK FONT " ", 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF END IF END SELECT END SELECT ' Auswahl - Rundenanzahl + 1 SELECT CASE mausx CASE 892 TO 904 SELECT CASE mausy CASE 230 TO 242 BUTTON 892, 230, 904, 242 ' IF RAZ < 29 AND Paarungssystem > 2 AND Paarungssystem < 6 THEN IF RAZ < 29 AND Paarungssystem <> 0 AND Paarungssystem <> 1 AND Paarungssystem <> 2 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND Paarungssystem <> 9 THEN RAZ += 1 Eingabe(23) = STR(RAZ) REDIM AS STRING Datum(0 TO RAZ+39), Uhrzeit(0 TO RAZ+39) SCREENLOCK FONT " ", 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF END SELECT END SELECT ' ComboBox Rückmeldung event->xSleep(0) IF event->GADGETMESSAGE THEN SELECT CASE event->GADGETMESSAGE CASE Combobox k = SGUI.GETCOMBOBOXVAL(Combobox) LAENDERKUERZEL(2) FONT Eingabe(11), 21, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END SELECT END IF ' Auswahl - Halb-Punkt-Bye SELECT CASE mausx CASE 497 TO 517 SELECT CASE mausy CASE 137 TO 157 IF modus = 0 THEN IF Tastensperre(19) = 0 AND ausgelosteRunde(1) = 0 AND Paarungssystem > 2 AND Paarungssystem < 12 AND Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND Paarungssystem <> 9 THEN HalbBye += 1 IF HalbBye > 1 THEN HalbBye = 0 ' Halb-Punkt Button anzeigen FELD 497, 137, 517, 157, Hintergrundfarbe ' Halb-Bye IF HalbBye = 1 THEN FONT "X", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 Tastensperre(19) = 1 END IF END IF END SELECT END SELECT ' Auswahl - Rundensystem mit 2 Durchgängen SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 198 TO 208 IF ausgelosteRunde(Runde) = 0 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 0 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, &h00FF00,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F k = 339 FOR j = 1 TO 8 IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8) AND j = 1 THEN CIRCLE (494, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8) AND j <> 1 THEN CIRCLE (494, k), 3, Hintergrundfarbe,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8) AND j = 1 THEN CIRCLE (684, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8) AND j <> 1 THEN CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(2) = 1 HalbBye = 0 FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END SELECT END SELECT ' Auswahl - Rundensystem SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 214 TO 224 IF ausgelosteRunde(Runde) = 0 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 1 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, &h00FF00,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F k = 339 FOR j = 1 TO 8 IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8) AND j = 1 THEN CIRCLE (494, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8) AND j <> 1 THEN CIRCLE (494, k), 3, Hintergrundfarbe,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8) AND j = 1 THEN CIRCLE (684, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8) AND j <> 1 THEN CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(2) = 1 HalbBye = 0 FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END SELECT END SELECT ' Auswahl - Rutschsystem SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 230 TO 240 IF ausgelosteRunde(Runde) = 0 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 2 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, &h00FF00,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F k = 339 FOR j = 1 TO 8 IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8) AND j = 1 THEN CIRCLE (494, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8) AND j <> 1 THEN CIRCLE (494, k), 3, Hintergrundfarbe,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8) AND j = 1 THEN CIRCLE (684, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8) AND j <> 1 THEN CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(2) = 1 HalbBye = 0 FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END SELECT END SELECT ' Auswahl - Schweizer - System SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 246 TO 256 IF FILEEXISTS(EXEPATH + "\javafo.jar") THEN IF ausgelosteRunde(Runde) = 0 THEN IF RAZ > 29 THEN RAZ = 7 SCREENLOCK FONT " ", 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 3 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, &h00FF00,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 7 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 8 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 8 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 10 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 10 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 10 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 7 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(2) = 10 THEN Feinwertungssystem(2) = 1 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Auswahl - Schweizer System - Baku Beschleunigung SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 262 TO 272 IF ausgelosteRunde(Runde) = 0 THEN IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN IF RAZ > 29 THEN RAZ = 9 SCREENLOCK FONT " ", 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 4 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, &h00FF00,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 7 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 8 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 8 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 10 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 10 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 10 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 7 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(2) = 10 THEN Feinwertungssystem(2) = 1 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF END SELECT END SELECT ' Auswahl - Team Schweizer - System SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 278 TO 288 SCREENLOCK IF ausgelosteRunde(1) = 0 THEN FELD 817, 178, 847, 198, Hintergrundfarbe ' Anzahl der Bretter bei einem Mannschaftsturnier FONT Sprachausgaben(171), 22, 104, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzahl der Bretter bei einem Mannschaftsturnier FONT STR(Bretter), 24, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Anzahl der Bretter anzeigen END IF SCREENUNLOCK IF FILEEXISTS(EXEPATH + "\javafo.jar") THEN IF ausgelosteRunde(Runde) = 0 THEN IF RAZ > 29 THEN RAZ = 7 SCREENLOCK FONT " ", 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF Paarungssystem = 5 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, &h00FF00,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 7 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 9 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 9 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 10 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 10 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 OR Feinwertungssystem(1) = 9 OR Feinwertungssystem(1) = 10 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 7 OR Feinwertungssystem(2) = 9 OR Feinwertungssystem(2) = 10 THEN Feinwertungssystem(2) = 1 HalbBye = 0 TRFMODE = 0 FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT "Ext. " + Sprachausgaben(89), 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "Ext. " + Sprachausgaben(89), 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Auswahl - Team Rundensystem (Ligaverwaltung) SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 182 TO 192 SCREENLOCK IF ausgelosteRunde(1) = 0 THEN FELD 817, 178, 847, 198, Hintergrundfarbe ' Anzahl der Bretter bei einem Mannschaftsturnier FONT Sprachausgaben(171), 22, 104, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzahl der Bretter bei einem Mannschaftsturnier FONT STR(Bretter), 24, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Anzahl der Bretter anzeigen END IF SCREENUNLOCK IF FILEEXISTS(EXEPATH + "\javafo.jar") THEN IF ausgelosteRunde(Runde) = 0 THEN /' IF RAZ > 29 THEN RAZ = 7 SCREENLOCK FONT " ", 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF '/ Paarungssystem = 6 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, &h00FF00,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F k = 339 FOR j = 1 TO 11 IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 9) AND j = 1 THEN CIRCLE (494, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 9) AND j <> 1 THEN CIRCLE (494, k), 3, Hintergrundfarbe,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 9) AND j = 1 THEN CIRCLE (684, k), 3, &h00FF00,,,, F IF (Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 9) AND j <> 1 THEN CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 4 OR Feinwertungssystem(1) = 5 OR Feinwertungssystem(1) = 9 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 4 OR Feinwertungssystem(2) = 5 OR Feinwertungssystem(2) = 9 OR Feinwertungssystem(1) = 19 THEN Feinwertungssystem(2) = 1 HalbBye = 0 TRFMODE = 0 FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT "Ext. " + Sprachausgaben(89), 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "Ext. " + Sprachausgaben(89), 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Auswahl - Schweizer - System - Burstein BBP SELECT CASE mausx CASE 761 TO 771 SELECT CASE mausy CASE 246 TO 256 IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN IF ausgelosteRunde(Runde) = 0 THEN IF RAZ > 29 THEN RAZ = 7 SCREENLOCK FONT " ", 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 8 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, &h00FF00,,,, F IF Feinwertungssystem(1) = 7 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 7 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 8 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 8 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 10 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 10 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 10 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 7 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(2) = 10 THEN Feinwertungssystem(2) = 1 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ELSE MessageBox(0, Sprachausgaben(177), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Auswahl - Schweizer - System - Dutch BBP SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 166 TO 176 IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN IF ausgelosteRunde(Runde) = 0 THEN IF RAZ > 29 THEN RAZ = 7 SCREENLOCK FONT " ", 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 FONT STR(RAZ), 30, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF IF Spieler(1) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j = 1 TO 2000 IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT TAZ = 0 END IF END IF END IF Paarungssystem = 11 CIRCLE (494, 171), 3, &h00FF00,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 7 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 435), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 8 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 8 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 451), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 10 THEN CIRCLE (494, 339), 3, &h00FF00,,,, F: CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 10 THEN CIRCLE (684, 339), 3, &h00FF00,,,, F: CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = 7 OR Feinwertungssystem(1) = 8 OR Feinwertungssystem(1) = 10 THEN Feinwertungssystem(1) = 1 IF Feinwertungssystem(2) = 7 OR Feinwertungssystem(2) = 8 OR Feinwertungssystem(2) = 10 THEN Feinwertungssystem(2) = 1 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ELSE MessageBox(0, Sprachausgaben(177), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SELECT END SELECT ' Auswahl - KO-SYSTEM SELECT CASE mausx CASE 761 TO 771 SELECT CASE mausy CASE 230 TO 240 IF ausgelosteRunde(Runde) = 0 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN LINE (817,168)-(1023,198), Hintergrundfarbe, BF END IF Paarungssystem = 9 CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F CIRCLE (766, 235), 3, &h00FF00,,,, F CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F HalbBye = 0 FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(89) + " ", 45, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END SELECT END SELECT ' Auswahl - Streichwertung Nr. 1 - 1 SELECT CASE mausx CASE 548 TO 560 SELECT CASE mausy CASE 309 TO 321 BUTTON 548, 309, 560, 321 ' Streichwertungen von -2 bis -11 IF Feinwertungssystem(1) > -2 THEN Feinwertungssystem(1) = -1 IF Feinwertungssystem(1) < -2 THEN Feinwertungssystem(1) += 1 END IF k = 339 FOR j = 1 TO 19 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Streichwertung Nr. 1 + 1 SELECT CASE mausx CASE 565 TO 577 SELECT CASE mausy CASE 309 TO 321 BUTTON 565, 309, 577, 321 IF Feinwertungssystem(1) > -2 THEN Feinwertungssystem(1) = -1 IF Feinwertungssystem(1) > -32 THEN Feinwertungssystem(1) -= 1 END IF k = 339 FOR j = 1 TO 19 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Streichwertung Nr. 2 - 1 SELECT CASE mausx CASE 740 TO 752 SELECT CASE mausy CASE 309 TO 321 BUTTON 740, 309, 752, 321 IF Feinwertungssystem(2) > -2 THEN Feinwertungssystem(2) = -1 IF Feinwertungssystem(2) < -2 THEN Feinwertungssystem(2) += 1 END IF k = 339 FOR j = 1 TO 19 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Streichwertung Nr. 2 + 1 SELECT CASE mausx CASE 757 TO 769 SELECT CASE mausy CASE 309 TO 321 BUTTON 757, 309, 769, 321 IF Feinwertungssystem(2) > -2 THEN Feinwertungssystem(2) = -1 IF Feinwertungssystem(2) > -32 THEN Feinwertungssystem(2) -= 1 END IF k = 339 FOR j = 1 TO 19 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Feinwertungsregel - Kalithea 2009 SELECT CASE mausx CASE 879 TO 891 SELECT CASE mausy CASE 382 TO 392 Tiebreakmode = 0 CIRCLE (884, 387), 3, &h00FF00,,,, F CIRCLE (884, 411), 3, Hintergrundfarbe,,,, F END SELECT END SELECT ' Auswahl - Feinwertungsregel - Baku 2023 SELECT CASE mausx CASE 879 TO 891 SELECT CASE mausy CASE 406 TO 416 Tiebreakmode = 1 CIRCLE (884, 387), 3, Hintergrundfarbe,,,, F CIRCLE (884, 411), 3, &h00FF00,,,, F END SELECT END SELECT ' Auswahl - keine Zweitwertung SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 334 TO 344 Feinwertungssystem(1) = 1 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - SonnebornBerger SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 350 TO 360 Feinwertungssystem(1) = 2 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Anzahl der Siege SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 366 TO 376 Feinwertungssystem(1) = 3 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Buchholz SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 382 TO 392 IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN Feinwertungssystem(1) = 4 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Auswahl - Buchholzsumme SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 398 TO 408 IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN Feinwertungssystem(1) = 5 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Auswahl - Schmuljan SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 414 TO 424 Feinwertungssystem(1) = 6 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Koya SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 430 TO 440 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Feinwertungssystem(1) = 7 /' Auswahlfelder für Koya Limit IF Feinwertungssystem(1) = 7 THEN FELD 546, 428, 640, 443, Hintergrundfarbe ' Feinwertung 1 IF Feinwertungssystem(2) = 7 THEN FELD 738, 428, 832, 443, Hintergrundfarbe ' Feinwertung 2 IF Feinwertungssystem(1) = 7 THEN FONT "Limit: " + STR(KoyaLimit(1)) + "%", 55, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits IF Feinwertungssystem(2) = 7 THEN FONT "Limit: " + STR(KoyaLimit(2)) + "%", 55, 94, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits '/ k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Auswahl - Brettpunkte SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 446 TO 456 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Feinwertungssystem(1) = 8 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' 3-Punkte-Wertung SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 462 TO 472 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN Feinwertungssystem(1) = 9 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Direkter Vergleich SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 478 TO 488 IF Paarungssystem < 5 OR Paarungssystem = 11 THEN Feinwertungssystem(1) = 10 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Durchschnttliche Elowertung der Gegner SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 494 TO 504 Feinwertungssystem(1) = 11 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Leistungsbewertung im Turnier SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 510 TO 520 Feinwertungssystem(1) = 12 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Durchschnttliche perfekte [Turnier] Performance der Gegner SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 526 TO 536 Feinwertungssystem(1) = 13 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Rounds elected to play SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 542 TO 552 Feinwertungssystem(1) = 14 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Durchschnittliche Buchholzwertung der Gegner SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 558 TO 568 Feinwertungssystem(1) = 15 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Anzahl der Schwarzpartien SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 574 TO 584 Feinwertungssystem(1) = 23 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j AND Feinwertungssystem(1) <> 23 THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 23 THEN CIRCLE (494, 579), 3, &h00FF00,,,, F ELSE CIRCLE (494, 579), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Anzahl der gewonnenen Schwarzpartien SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 590 TO 600 Feinwertungssystem(1) = 17 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Summenwertung / Progressive Score SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 606 TO 616 Feinwertungssystem(1) = 18 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Forebuchholz SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 622 TO 632 Feinwertungssystem(1) = 19 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Rating Differenz SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 638 TO 648 Feinwertungssystem(1) = 28 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 28 THEN CIRCLE (494, 643), 3, &h00FF00,,,, F ELSE CIRCLE (494, 643), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Perfekte Trn.-Leist.-Gegner SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 654 TO 664 Feinwertungssystem(1) = 29 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 29 THEN CIRCLE (494, 659), 3, &h00FF00,,,, F ELSE CIRCLE (494, 659), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Rating SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 670 TO 680 Feinwertungssystem(1) = 30 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 30 THEN CIRCLE (494, 675), 3, &h00FF00,,,, F ELSE CIRCLE (494, 675), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' WON SELECT CASE mausx CASE 489 TO 499 SELECT CASE mausy CASE 686 TO 696 Feinwertungssystem(1) = 31 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 31 THEN CIRCLE (494, 691), 3, &h00FF00,,,, F ELSE CIRCLE (494, 691), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Auswahl - keine Drittwertung SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 334 TO 344 Feinwertungssystem(2) = 1 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - SonnebornBerger SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 350 TO 360 Feinwertungssystem(2) = 2 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Anzahl der Siege SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 366 TO 376 Feinwertungssystem(2) = 3 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Buchholz SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 382 TO 392 IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN Feinwertungssystem(2) = 4 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Auswahl - Buchholzsumme SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 398 TO 408 IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN Feinwertungssystem(2) = 5 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Auswahl - Schmuljan SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 414 TO 424 Feinwertungssystem(2) = 6 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Auswahl - Koya SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 430 TO 440 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Feinwertungssystem(2) = 7 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Auswahl - Brettpunkte SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 446 TO 456 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Feinwertungssystem(2) = 8 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' 3-Punkte-Wertung SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 462 TO 472 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN Feinwertungssystem(2) = 9 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Direkter Vergleich SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 478 TO 488 IF Paarungssystem < 5 OR Paarungssystem = 11 THEN Feinwertungssystem(2) = 10 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END IF END SELECT END SELECT ' Durchschnttliche Elowertung der Gegner SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 494 TO 504 Feinwertungssystem(2) = 11 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Leistungsbewertung im Turnier SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 510 TO 520 Feinwertungssystem(2) = 12 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Durchschnttliche perfekte [Turnier] Performance der Gegner SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 526 TO 536 Feinwertungssystem(2) = 13 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Games one elected play SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 542 TO 552 Feinwertungssystem(2) = 14 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Durchschnittliche Buchholzwertung der Gegner SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 558 TO 568 Feinwertungssystem(2) = 15 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Anzahl der Schwarzpartien SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 574 TO 584 Feinwertungssystem(2) = 23 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j AND Feinwertungssystem(2) <> 23 THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(2) = 23 THEN CIRCLE (684, 579), 3, &h00FF00,,,, F ELSE CIRCLE (684, 579), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Anzahl der gewonnenen Schwarzpartien SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 590 TO 600 Feinwertungssystem(2) = 17 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Summenwertung / Progressive Score SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 606 TO 616 Feinwertungssystem(2) = 18 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Forebuchholz SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 622 TO 632 Feinwertungssystem(2) = 19 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) END SELECT END SELECT ' Rating Differenz SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 638 TO 648 Feinwertungssystem(2) = 28 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(2) = 28 THEN CIRCLE (684, 643), 3, &h00FF00,,,, F ELSE CIRCLE (684, 643), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Perfekte Trn.-Leist.-Gegner SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 654 TO 664 Feinwertungssystem(2) = 29 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(2) = 29 THEN CIRCLE (684, 659), 3, &h00FF00,,,, F ELSE CIRCLE (684, 659), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Rating SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 670 TO 680 Feinwertungssystem(2) = 30 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(2) = 30 THEN CIRCLE (684, 675), 3, &h00FF00,,,, F ELSE CIRCLE (684, 675), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' WON SELECT CASE mausx CASE 679 TO 689 SELECT CASE mausy CASE 686 TO 696 Feinwertungssystem(2) = 31 k = 339 FOR j = 1 TO 23 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(2) = 31 THEN CIRCLE (684, 691), 3, &h00FF00,,,, F ELSE CIRCLE (684, 691), 3, Hintergrundfarbe,,,, F ANZEIGE(1) END SELECT END SELECT ' Auswahl - Farbdesign 1 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 454 TO 464 SetupFarbe = 0 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 2 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 470 TO 480 SetupFarbe = 1 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 3 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 486 TO 512 SetupFarbe = 2 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 4 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 502 TO 512 SetupFarbe = 3 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 5 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 518 TO 528 SetupFarbe = 4 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 6 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 534 TO 544 SetupFarbe = 5 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 7 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 550 TO 560 SetupFarbe = 6 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 24 NEXT END SELECT END SELECT ' Auswahl - Farbdesign 8 SELECT CASE mausx CASE 870 TO 879 SELECT CASE mausy CASE 566 TO 576 SetupFarbe = 7 k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe SGUIFARBE SCREENLOCK MENU FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen GadgetOn(Combobox) UpdateGadGet(Combobox) SCREENUNLOCK ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F END IF k += 16 NEXT END SELECT END SELECT ' Button - Turnier in Grundzustand setzen SELECT CASE mausx CASE 85 TO 470 SELECT CASE mausy CASE 616 TO 636 IF ausgelosteRunde(1) = 1 THEN IF MessageBox(0, Sprachausgaben(127), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' Partien pro Runde FOR j = 1 TO RAZ ppr(j) = 0 ' Partien pro Runde NEXT Runde = 1 ' aktuelle Runde Brett = 1 ' aufgerufenes Brett Platz = 1 ' aufgerufener Platz ' ausgeloste Runden freigeben FOR j = 0 TO 29 ausgelosteRunde(j) = 0 NEXT ' deaktivierte Spieler aktivieren im KO-System IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = 1 TO RAZ FOR k = 1 TO TAZ fehlendeSpieler(k, j) = 0 fehlendeSpieler(k, j) = 0 NEXT NEXT END IF ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO 160 FOR laufvariable = 0 TO MaxAnzahl Punkte(laufvariable, j) = 2000 NEXT NEXT ' Paarungen löschen/initialisieren REDIM AS INTEGER paarungen(0 TO 1, 0 TO 2, 0 TO 1) ' Zuweisung der Mannschaftsspieler für jede Runde löschen/initialisieren IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN REDIM AS INTEGER Teamspieler(0 TO 1, 0 TO 1, 0 TO 1) REDIM AS STRING EinzelErgebnisse(0 TO 310, 0 TO 50, 0 TO 29) ' löschen/initialisieren der Einzelergebnisse END IF MENU GadgetOn(Combobox) UpdateGadget(Combobox) MessageBox(0, "OK", "STOP", MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF END SELECT END SELECT ' END IF ELSEIF Seite = 7 THEN ' Seite Teilnehmer aufrufen SELECT CASE mausx CASE 400 TO 491 SELECT CASE mausy CASE 2 TO 22 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 400, 2, 491, 22 SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 1 MENU ANZEIGE(i) IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153 IF TAZ < 2 THEN zzz = 325: Scrollbalkenposition(1) = 153 ' ((326-153) / (1 / 24)) + 153 laenge = (zzz - 153)' laenge = (z - 153) IF laenge < 4 THEN laenge = 4 IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) SCROLLBALKEN END IF END SELECT END SELECT ' Seite Paarungen aufrufen SELECT CASE mausx CASE 496 TO 581 SELECT CASE mausy CASE 2 TO 22 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 496, 2, 581, 22 SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 2 MENU ANZEIGE(i) SCROLLBALKEN END IF END SELECT END SELECT ' Seite Rangliste aufrufen SELECT CASE mausx CASE 586 TO 668 SELECT CASE mausy CASE 2 TO 22 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 586, 2, 668, 22 SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 3 MENU ANZEIGE(i) END IF END SELECT END SELECT ' Spielerauswahl per Maus - Spielereingabemaske SELECT CASE mausx CASE 32 TO 839 SELECT CASE mausy CASE Koordinaten(c(3), 1, 3) TO Koordinaten(c(3), 2, 3) IF Tastensperre(13) <> 0 AND mausk = 1 THEN Tastensperre(13) = 0 IF (Spielernummer+c(3)-1) <= eingeleseneDaten THEN Spielernummer = (c(3) + Spielernummer - 1) ANZEIGE(Spielernummer) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN END IF END SELECT END SELECT IF mausk <> 1 THEN Tastensperre(13) = 1 ' Weiter suchen SELECT CASE mausx CASE 35 TO 219 SELECT CASE mausy CASE 650 TO 670 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 35, 650, 219, 670 DIM AS INTEGER x = 1 x = Spielernummer + 1 IF x >= eingeleseneDaten THEN x = 1 FOR j = x TO eingeleseneDaten IF INSTR(Daten(j, 2), aaa) > 0 THEN EXIT FOR NEXT Spielernummer = j ANZEIGE(j) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN Tastensperre(5) = FALSE END IF END SELECT END SELECT ' Spieler in Teilnehmerliste eintragen/übernehmen SELECT CASE mausx CASE 224 TO 388 SELECT CASE mausy CASE 650 TO 670 GETMOUSE mausx, mausy, wheel, mausk ' Einzelmodus IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF TAZ < maxAnzahl AND mausk = 1 THEN IF Paarungssystem = 9 AND ausgelosteRunde(1) = 1 THEN EXIT SELECT, SELECT BUTTON 224, 650, 388, 670 Sortierung = i i = TAZ+1 ' Spieler für vorhergehende Runden als nicht anwesend kennzeichnen! IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF ' ELO-Zahl IF Wertungszahl(2) <> 2 THEN FIDEID(i) = Daten(Spielernummer, 1) ' FIDE-ID Spieler(i) = Daten(Spielernummer, 2) ' NAME Nation(i) = Daten(Spielernummer, 3) ' Nation Geschlecht(i) = Daten(Spielernummer, 4) ' Geschlecht Titel(i) = Daten(Spielernummer, 5) ' Titel ' Spieler(i) = Daten(Spielernummer, 6) ' ' Spieler(i) = Daten(Spielernummer, 7) ' ' Spieler(i) = Daten(Spielernummer, 8) ' ELO(i) = VAL(Daten(Spielernummer, 9)) ' ELO ' Spieler(i) = Daten(Spielernummer, 10) ' kFaktor(i) = Daten(Spielernummer, 11) ' kFaktor Geburt(i) = Daten(Spielernummer, 12) ' Geburt ' Spieler(i) = Daten(Spielernummer, 13) ' ' Spieler(i) = Daten(Spielernummer, 14) ' ' Spieler(i) = Daten(Spielernummer, 15) ' END IF ' DWZ-Zahl IF Wertungszahl(2) = 2 THEN FIDEID(i) = Daten(Spielernummer, 1) ' FIDE-ID Spieler(i) = Daten(Spielernummer, 2) ' NAME Nation(i) = Daten(Spielernummer, 3) ' Nation Geschlecht(i) = Daten(Spielernummer, 4) ' Geschlecht Titel(i) = Daten(Spielernummer, 5) ' Titel Vnummer(i) = Daten(Spielernummer, 6) ' ZPS-Nummer des Vereins Mnummer(i) = Daten(Spielernummer, 7) ' Mitgliedsnummer im Verein ' Spieler(i) = Daten(Spielernummer, 8) ' Status der Mitgliedschaft ELO(i) = VAL(Daten(Spielernummer, 9)) ' ELO (International) ' Spieler(i) = Daten(Spielernummer, 10) ' Name,Vorname in Großbuchstaben ' Spieler(i) = Daten(Spielernummer, 11) ' Spielberechtigung Geburt(i) = Daten(Spielernummer, 12) ' Geburt ' Spieler(i) = Daten(Spielernummer, 13) ' Woche der letzten Turnierauswertung (JJJJWW) DWZ(i) = VAL(Daten(Spielernummer, 14)) ' DWZ ' Spieler(i) = Daten(Spielernummer, 15) ' DWZ-Index Verein(i) = Daten(Spielernummer, 16) ' Vereinsname END IF Eingabe(0) = "" ' Eingabe löschen ANZEIGE(i) FONT " ", 4, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO löschen FONT " ", 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' NWZ löschen FONT " ", 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein löschen FONT " ", 9, 95, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Nationalität löschen FONT " ", 9, 101, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geschlecht löschen FONT " ", 14, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Fide ID löschen FONT " ", 14, 21, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' PKZ löschen FONT " ", 14, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Vereinszahl löschen FONT " ", 14, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburt löschen FONT " ", 14, 61, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Titel löschen TAZ = i ' Spieleranzahl definieren ' Teilnehmeranzahl anzeigen IF TAZ >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 i = Sortierung END IF END IF ' Mannschaftsmodus IF mausk = 1 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN BUTTON 224, 650, 388, 670 k = 0 FOR j = 1 TO 50 IF Spieler((i*50-50)+j) <> "" THEN k+= 1 NEXT IF k < 50 THEN Sortierung = s k += 1 s = k ' ELO-Zahl IF Wertungszahl(2) <> 2 THEN FIDEID((i*50-50)+s) = Daten(Spielernummer, 1) ' FIDE-ID Spieler((i*50-50)+s) = Daten(Spielernummer, 2) ' NAME Nation((i*50-50)+s) = Daten(Spielernummer, 3) ' Nation Geschlecht((i*50-50)+s) = Daten(Spielernummer, 4) ' Geschlecht Titel((i*50-50)+s) = Daten(Spielernummer, 5) ' Titel ' Spieler((i*50-50)+s) = Daten(Spielernummer, 6) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 7) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 8) ' ELO((i*50-50)+s) = VAL(Daten(Spielernummer, 9)) ' ELO ' Spieler((i*50-50)+s) = Daten(Spielernummer, 10) ' kFaktor((i*50-50)+s) = Daten(Spielernummer, 11) ' kFaktor Geburt((i*50-50)+s) = Daten(Spielernummer, 12) ' Geburt ' Spieler((i*50-50)+s) = Daten(Spielernummer, 13) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 14) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 15) ' END IF ' DWZ-Zahl IF Wertungszahl(2) = 2 THEN FIDEID((i*50-50)+s) = Daten(Spielernummer, 1) ' FIDE-ID Spieler((i*50-50)+s) = Daten(Spielernummer, 2) ' NAME Nation((i*50-50)+s) = Daten(Spielernummer, 3) ' Nation Geschlecht((i*50-50)+s) = Daten(Spielernummer, 4) ' Geschlecht Titel((i*50-50)+s) = Daten(Spielernummer, 5) ' Titel Vnummer((i*50-50)+s) = Daten(Spielernummer, 6) ' ZPS-Nummer des Vereins Mnummer((i*50-50)+s) = Daten(Spielernummer, 7) ' Mitgliedsnummer im Verein ' Spieler((i*50-50)+s) = Daten(Spielernummer, 8) ' Status der Mitgliedschaft ELO((i*50-50)+s) = VAL(Daten(Spielernummer, 9)) ' ELO (International) ' Spieler((i*50-50)+s) = Daten(Spielernummer, 10) ' Name,Vorname in Großbuchstaben ' Spieler((i*50-50)+s) = Daten(Spielernummer, 11) ' Spielberechtigung Geburt((i*50-50)+s) = Daten(Spielernummer, 12) ' Geburt ' Spieler((i*50-50)+s) = Daten(Spielernummer, 13) ' Woche der letzten Turnierauswertung (JJJJWW) DWZ((i*50-50)+s) = VAL(Daten(Spielernummer, 14)) ' DWZ ' Spieler((i*50-50)+s) = Daten(Spielernummer, 15) ' DWZ-Index Verein((i*50-50)+s) = Daten(Spielernummer, 16) ' Vereinsname END IF Eingabe(0) = "" ' Eingabe löschen ANZEIGE(i) FONT " ", 4, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO löschen FONT " ", 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' NWZ löschen FONT " ", 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein löschen FONT " ", 9, 95, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Nationalität löschen FONT " ", 9, 101, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geschlecht löschen FONT " ", 14, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Fide ID löschen FONT " ", 14, 21, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' PKZ löschen FONT " ", 14, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Vereinszahl löschen FONT " ", 14, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburt löschen FONT " ", 14, 61, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Titel löschen ' Teilnehmeranzahl anzeigen IF k >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(s)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(k)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF k < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(s-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(k)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF s = Sortierung END IF END IF END SELECT END SELECT ' Teilnehmer suchen SELECT CASE mausx CASE 48 TO 350 SELECT CASE mausy CASE 17 TO 37 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 35, 4, 8, Eingabe(0) ANZEIGE(i) END IF END SELECT END SELECT ' Scrollbalken - Spieler einlesen 152 - 623 IF AUFSCROLLBALKEN(6,152,24,623)=1 THEN IF mausy < mausyalt THEN IF Scrollbalkenposition(4) > 152 AND yy > 152 AND mausy + laenge > 152 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 THEN Spielernummer = ((eingeleseneDaten+59)-(((eingeleseneDaten+59)/(622-153))*(622-mausy)))+1 IF laenge <= 4 THEN Spielernummer = ((eingeleseneDaten)-(((eingeleseneDaten+59)/(618-153))*(618-mausy))) IF Spielernummer < 1 THEN Spielernummer = 1 LINE (6, 153)-(24, 622), Hintergrundfarbe, BF Scrollbalkenposition(4) = mausy yy = Scrollbalkenposition(4) + laenge FELD 6, mausy, 24, (mausy+laenge), Hintergrundfarbe mausyalt = mausy ANZEIGE(Spielernummer) Eingabe(0) = "1" END IF END IF IF mausy > mausyalt THEN IF Scrollbalkenposition(4) < 623 AND yy < 623 AND (mausy + laenge) < 623 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 AND Spielernummer < eingeleseneDaten THEN Spielernummer = ((eingeleseneDaten+59)-(((eingeleseneDaten+59)/(622-153))*(622-mausy)))+1 IF laenge <= 4 AND Spielernummer < eingeleseneDaten THEN Spielernummer = ((eingeleseneDaten)-(((eingeleseneDaten+59)/(618-153))*(618-mausy))) IF Spielernummer < 1 THEN Spielernummer = 1 IF Spielernummer > 0 AND Spielernummer >= eingeleseneDaten THEN Spielernummer = eingeleseneDaten LINE (6, 153)-(24, 622), Hintergrundfarbe, BF Scrollbalkenposition(4) = mausy yy = Scrollbalkenposition(4) + laenge mausyalt = mausy FELD 6, Scrollbalkenposition(4), 24, yy, Hintergrundfarbe ANZEIGE(Spielernummer) Eingabe(0) = "1" ELSE IF mausy + laenge > 622 THEN mausy = 622-laenge IF laenge > 4 AND Spielernummer < eingeleseneDaten THEN Spielernummer = ((eingeleseneDaten+59)-(((eingeleseneDaten+59)/(622-153))*(622-mausy)))+1 IF laenge <= 4 AND Spielernummer < eingeleseneDaten THEN Spielernummer = ((eingeleseneDaten)-(((eingeleseneDaten+59)/(618-153))*(618-mausy))) IF Spielernummer < 1 THEN Spielernummer = 1 LINE (6, 153)-(24, 622), Hintergrundfarbe, BF Scrollbalkenposition(4) = 622 - laenge yy = 622 FELD 6, Scrollbalkenposition(4), 24, yy, Hintergrundfarbe mausyalt = 622 - laenge ANZEIGE(Spielernummer) Eingabe(0) = "1" END IF END IF END IF END IF ELSEIF Seite = 8 THEN ' Auswahl anwesend/abwesend FOR j = 42 TO 362 STEP 40 SELECT CASE mausx CASE 58 TO 91 SELECT CASE mausy CASE j TO j+32 IF Tastensperre(19) = 0 AND Paarungssystem <> 9 THEN k = 10-(((362 - j)/40)+1) IF ausgelosteRunde(k) = 0 THEN fehlendeSpieler(i, k) += 1 IF fehlendeSpieler(i, k) > 2 AND Modus = 0 THEN fehlendeSpieler(i, k) = 0 IF fehlendeSpieler(i, k) > 1 AND Modus = 1 THEN fehlendeSpieler(i, k) = 0 MENU Tastensperre(19) = TRUE END IF EXIT FOR END IF END SELECT END SELECT NEXT FOR j = 42 TO 362 STEP 40 SELECT CASE mausx CASE 160 TO 192 SELECT CASE mausy CASE j TO j+32 IF Tastensperre(19) = 0 AND Paarungssystem <> 9 THEN k = 19-(((362 - j)/40)+1) IF ausgelosteRunde(k) = 0 THEN fehlendeSpieler(i, k) += 1 IF fehlendeSpieler(i, k) > 2 AND Modus = 0 THEN fehlendeSpieler(i, k) = 0 IF fehlendeSpieler(i, k) > 1 AND Modus = 1 THEN fehlendeSpieler(i, k) = 0 MENU Tastensperre(19) = TRUE END IF EXIT FOR END IF END SELECT END SELECT NEXT FOR j = 42 TO 362 STEP 40 SELECT CASE mausx CASE 260 TO 292 SELECT CASE mausy CASE j TO j+32 IF Tastensperre(19) = 0 AND Paarungssystem <> 9 THEN k = 28-(((362 - j)/40)+1) IF ausgelosteRunde(k) = 0 THEN fehlendeSpieler(i, k) += 1 IF fehlendeSpieler(i, k) > 2 AND Modus = 0 THEN fehlendeSpieler(i, k) = 0 IF fehlendeSpieler(i, k) > 1 AND Modus = 1 THEN fehlendeSpieler(i, k) = 0 MENU Tastensperre(19) = TRUE END IF EXIT FOR END IF END SELECT END SELECT NEXT FOR j = 42 TO 362 STEP 40 SELECT CASE mausx CASE 360 TO 392 SELECT CASE mausy CASE j TO j+32 IF Tastensperre(19) = 0 AND Paarungssystem <> 9 THEN k = 37-(((362 - j)/40)+1) IF ausgelosteRunde(k) = 0 THEN fehlendeSpieler(i, k) += 1 IF fehlendeSpieler(i, k) > 2 AND Modus = 0 THEN fehlendeSpieler(i, k) = 0 IF fehlendeSpieler(i, k) > 1 AND Modus = 1 THEN fehlendeSpieler(i, k) = 0 MENU Tastensperre(19) = TRUE END IF EXIT FOR END IF END SELECT END SELECT NEXT ELSEIF Seite = 9 AND RAZ > 2 THEN ' Eingabe - Datum SELECT CASE mausx CASE 98 TO 200 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF MULTIKEY(&h1D) = 0 AND mausk = 1 THEN k = 1 Datum(v) = PickDate() Seite = 9 MENUFARBE COLOR Hintergrundfarbe, Hintergrundfarbe MENU ANZEIGE(v) SCREENLOCK LINE (291, 112)-(309, 389), Hintergrundfarbe, BF yy = Scrollbalkenposition(3) + laenge mausyalt = mausy FELD 291, Scrollbalkenposition(3), 309, yy, Hintergrundfarbe SCREENUNLOCK ELSE IF mausk = 1 THEN INGET 10, 9, 14, Datum(v) ANZEIGE(v) END IF END IF END SELECT END SELECT ' Eingabe - Uhrzeit SELECT CASE mausx CASE 210 TO 270 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 5, 9, 28, Uhrzeit(v) ANZEIGE(v) END IF END SELECT END SELECT ' Eintrag nach oben SELECT CASE mausx CASE 290 TO 310 SELECT CASE mausy CASE 89 TO 109 IF v > 1 AND Buttonsperre = 0 THEN BUTTON 290, 89, 310, 109 v -= 1 ANZEIGE(v) IF laenge > 4 THEN Scrollbalkenposition(3) = ((RAZ+39)*112+389*(v-1)-112*(v-1))/(RAZ+39) IF laenge <= 4 THEN Scrollbalkenposition(3) = ((RAZ*112+385*v-112*v)/RAZ) SCROLLBALKEN END IF END SELECT END SELECT ' Eintrag nach unten SELECT CASE mausx CASE 290 TO 310 SELECT CASE mausy CASE 392 TO 412 IF v < RAZ AND Buttonsperre = 0 THEN BUTTON 290, 392, 310, 412 v += 1 ANZEIGE(v) IF laenge > 4 THEN Scrollbalkenposition(3) = ((RAZ+39)*112+389*(v-1)-112*(v-1))/(RAZ+39) IF laenge <= 4 THEN Scrollbalkenposition(3) = ((RAZ*112+385*v-112*v)/RAZ) SCROLLBALKEN END IF END SELECT END SELECT ' Scrollbalken - Datum + Uhrzeit IF AUFSCROLLBALKEN(291,111,309,389)=1 THEN IF mausy < mausyalt THEN IF Scrollbalkenposition(3) > 111 AND yy > 111 AND mausy + laenge > 111 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 THEN v = ((RAZ+39)-(((RAZ+39)/(389-112))*(389-mausy)))+1 IF laenge <= 4 THEN v = ((RAZ)-(((RAZ+39)/(385-112))*(385-mausy))) IF v < 1 THEN v = 1 SCREENLOCK LINE (291, 112)-(309, 389), Hintergrundfarbe, BF Scrollbalkenposition(3) = mausy yy = Scrollbalkenposition(3) + laenge FELD 291, mausy, 309, (mausy+laenge), Hintergrundfarbe SCREENUNLOCK mausyalt = mausy ANZEIGE(v) END IF END IF IF mausy > mausyalt THEN IF Scrollbalkenposition(3) < 390 AND yy < 390 AND (mausy + laenge) < 390 THEN IF mausyalt = 0 THEN mausyalt = mausy IF laenge > 4 AND v < RAZ THEN v = ((RAZ+39)-(((RAZ+39)/(389-112))*(389-mausy)))+1 IF laenge <= 4 AND v < RAZ THEN v = ((RAZ)-(((RAZ+39)/(385-112))*(385-mausy))) IF v < 1 THEN v = 1 IF v > 0 AND v >= RAZ THEN v = RAZ SCREENLOCK LINE (291, 112)-(309, 389), Hintergrundfarbe, BF Scrollbalkenposition(3) = mausy yy = Scrollbalkenposition(3) + laenge mausyalt = mausy FELD 291, Scrollbalkenposition(3), 309, yy, Hintergrundfarbe SCREENUNLOCK ANZEIGE(v) ELSE IF mausy + laenge > 389 THEN mausy = 389-laenge IF laenge > 4 AND v < RAZ THEN v = ((RAZ+39)-(((RAZ+39)/(389-112))*(389-mausy)))+1 IF laenge <= 4 AND v < RAZ THEN v = ((RAZ)-(((RAZ+39)/(385-112))*(385-mausy))) IF v < 1 THEN v = 1 SCREENLOCK LINE (291, 112)-(309, 389), Hintergrundfarbe, BF Scrollbalkenposition(3) = 389 - laenge yy = 389 FELD 291, Scrollbalkenposition(3), 309, yy, Hintergrundfarbe SCREENUNLOCK mausyalt = 389 - laenge ANZEIGE(v) END IF END IF END IF ' SCREENUNLOCK END IF ELSEIF Seite = 10 THEN ' Eingabe - Brett SELECT CASE mausx CASE 184 TO 247 SELECT CASE mausy CASE 577 TO 597 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN INGET 3, 74, 25, Eingabe(32) IF Eingabe(32) <> "" AND Eingabe(32) <> "0" THEN Brett = VAL(Eingabe(32)) Eingabe(33) = STR(paarungen(VAL(Eingabe(32)), 1, Runde)) Eingabe(34) = STR(paarungen(VAL(Eingabe(32)), 2, Runde)) ANZEIGE(1) ERGEBNISANZEIGE END IF END IF END SELECT END SELECT ' Eingabe - Spielernummer Weiß SELECT CASE mausx CASE 252 TO 322 SELECT CASE mausy CASE 577 TO 597 GETMOUSE mausx, mausy, wheel, mausk IF Eingabe(32) <> "" AND Eingabe(33) <> "" AND paarungen(Brett,2,runde) <> 0 AND mausk = 1 THEN DO INGET 4, 74, 34, Eingabe(33) LOOP WHILE VAL(Eingabe(33)) > TAZ OR VAL(Eingabe(33)) = 0 FONT " ", 74, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' IF paarungen(Brett,1,Runde) <> 0 AND Paarungssystem < 5 THEN FONT Spieler(VAL(Eingabe(33))), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Paarungssystem < 5 THEN FONT Spieler(VAL(Eingabe(33))), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' IF paarungen(Brett,1,Runde) <> 0 THEN FONT Team(VAL(Eingabe(33))), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Team(VAL(Eingabe(33))), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END SELECT END SELECT ' Eingabe - Spielernummer Schwarz SELECT CASE mausx CASE 644 TO 714 SELECT CASE mausy CASE 577 TO 597 GETMOUSE mausx, mausy, wheel, mausk IF Eingabe(32) <> "" AND Eingabe(34) <> "" AND paarungen(Brett,2,runde) <> 0 AND mausk = 1 THEN DO INGET 4, 74, 83, Eingabe(34) LOOP WHILE VAL(Eingabe(34)) > TAZ OR VAL(Eingabe(34)) = 0 FONT " ", 74, 92, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' IF paarungen(Brett,2,Runde) <> 0 AND Paarungssystem < 5 THEN FONT Spieler(VAL(Eingabe(34))), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Paarungssystem < 5 THEN FONT Spieler(VAL(Eingabe(34))), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' IF paarungen(Brett,2,Runde) <> 0 THEN FONT Team(VAL(Eingabe(34))), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Team(VAL(Eingabe(34))), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END SELECT END SELECT ' Übernahmebutton SELECT CASE mausx CASE 322 TO 617 SELECT CASE mausy CASE 617 TO 637 ' ' AND Eingabe(33) <> "0" AND Eingabe(34) <> "0" IF Eingabe(33) <> "" AND Eingabe(34) <> "" THEN ' Paarungen übernehmen paarungen(VAL(Eingabe(32)), 1, Runde) = VAL(Eingabe(33)) paarungen(VAL(Eingabe(32)), 2, Runde) = VAL(Eingabe(34)) ' kampfloses Ergebnis bei Spieler mit spielfrei eintragen IF paarungen(Brett,1,runde) <> 0 AND paarungen(Brett,2,runde) = 0 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF kampflose(Brett, Runde) = 1 END IF IF paarungen(Brett,1,runde) = 0 AND paarungen(Brett,2,runde) <> 0 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 END IF kampflose(Brett, Runde) = 1 END IF ' Spieler anzeigen ANZEIGE(1) ' Ergebnis anzeigen ERGEBNISANZEIGE ' Eingaben löschen Eingabe(32) = "" Eingabe(33) = "" Eingabe(34) = "" ' Anzeige löschen FONT " ", 74, 25, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 42, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 82, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' kampflose(Brett, Runde) = -1 IF ausgelosteRunde(Runde) = 0 THEN ausgelosteRunde(Runde) = 1 END IF END SELECT END SELECT ' Menü manuelle Paarungen beenden SELECT CASE mausx CASE 97 TO 182 SELECT CASE mausy CASE 40 TO 60 BUTTON 97, 40, 182, 60 Seite = 2 MENU ANZEIGE(i) ERGEBNISANZEIGE SCROLLBALKEN END SELECT END SELECT ELSEIF Seite = 11 THEN ' Spieler per Maus sortieren SELECT CASE mausx CASE 5 TO 256 SELECT CASE mausy CASE Koordinaten(c(4), 1, 4) TO Koordinaten(c(4), 2, 4) IF Tastensperre(14) <> 0 AND mausk = 1 THEN Tastensperre(14) = 0 IF Spieler(((i*50-50)+C(4)+s-1)) <> "" THEN IF r <> -1 THEN a = ((i*50-50)+C(4)+s-1) r = -1 FONT(c(4)+s-1) & ": " & Spieler(a), (c(4)+ 19), 5, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF ELO(a) <> 0 THEN FONT LTRIM(STR(ELO(a))), (c(4)+ 19), 48, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF DWZ(a) <> 0 THEN FONT LTRIM(STR(DWZ(a))), (c(4)+ 19), 60, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 FONT LTRIM(STR(Titel(a))), (c(4)+ 19), 72, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 FONT Nation(a), (c(4)+ 19), 83, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 FONT Verein(a), (c(4)+ 19), 92, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 EXIT SELECT, SELECT END IF END IF IF Spieler(((i*50-50)+C(4)+s-1)) <> "" THEN IF r = -1 THEN r = 0 SWAP ELO(a), ELO(((i*50-50)+C(4)+s-1)) SWAP DWZ(a), DWZ(((i*50-50)+C(4)+s-1)) SWAP Titel(a), Titel(((i*50-50)+C(4)+s-1)) SWAP Spieler(a), Spieler(((i*50-50)+C(4)+s-1)) SWAP Verein(a), Verein(((i*50-50)+C(4)+s-1)) SWAP Geburt(a), Geburt(((i*50-50)+C(4)+s-1)) SWAP FIDEID(a), FIDEID(((i*50-50)+C(4)+s-1)) SWAP Geschlecht(a), Geschlecht(((i*50-50)+C(4)+s-1)) SWAP Nation(a), Nation(((i*50-50)+C(4)+s-1)) SWAP PKZ(a), PKZ(((i*50-50)+C(4)+s-1)) SWAP Vnummer(a), Vnummer(((i*50-50)+C(4)+s-1)) SWAP Mnummer(a), Mnummer(((i*50-50)+C(4)+s-1)) SWAP kFaktor(a), kFaktor(((i*50-50)+C(4)+s-1)) SWAP Startgebuehr(a), Startgebuehr(((i*50-50)+C(4)+s-1)) FOR k = 1 TO 36 SWAP fehlendeSpieler(a, k), fehlendeSpieler(((i*50-50)+C(4)+s-1), k) NEXT END IF a = 0 END IF ANZEIGE(i) END IF END SELECT END SELECT IF mausk <> 1 THEN Tastensperre(14) = 1 ' Eingabe - Spielername SELECT CASE mausx CASE 48 TO 350 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN k = ((i*50-50)+s) IF Spieler(k-1) <> "" OR s = 1 THEN Eingabe(29) = Spieler(k) INGET 35, 9, 8, Eingabe(29) k = ((i*50-50)+s) Spieler(k) = Eingabe(29) ANZEIGE(i) END IF END IF END SELECT END SELECT ' Eingabe - ELO SELECT CASE mausx CASE 355 TO 406 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk IF Spieler(((i*50-50)+s)) <> "" AND mausk = 1 THEN IF ELO(((i*50-50)+s)) <> 0 THEN Eingabe(2) = STR(ELO(((i*50-50)+s))) ELSE Eingabe(2) = "" INGET 4, 9, 46, Eingabe(2) ELO(((i*50-50)+s)) = VAL(Eingabe(2)) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - DWZ SELECT CASE mausx CASE 411 TO 462 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF DWZ((i*50-50)+s) <> 0 THEN Eingabe(3) = STR(DWZ((i*50-50)+s)) ELSE Eingabe(3) = "" INGET 4, 9, 53, Eingabe(3) DWZ((i*50-50)+s) = VAL(Eingabe(3)) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Titel SELECT CASE mausx CASE 467 TO 510 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Titel((i*50-50)+s) <> "" THEN Eingabe(4) = Titel((i*50-50)+s) ELSE Eingabe(4) = "" INGET 3, 9, 60, Eingabe(4) Titel((i*50-50)+s) = Eingabe(4) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Verein SELECT CASE mausx CASE 515 TO 790 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Verein((i*50-50)+s) <> "" THEN Eingabe(5) = Verein((i*50-50)+s) ELSE Eingabe(5) = "" INGET 32, 9, 66, Eingabe(5) Verein((i*50-50)+s) = Eingabe(5) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Geburtsdatum SELECT CASE mausx CASE 795 TO 895 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Geburt((i*50-50)+s) <> "" THEN Eingabe(6) = Geburt((i*50-50)+s) ELSE Eingabe(6) = "" INGET 10, 9, 101, Eingabe(6) Geburt((i*50-50)+s) = Eingabe(6) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - FIDEID SELECT CASE mausx CASE 900 TO 1000 SELECT CASE mausy CASE 57 TO 77 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF FIDEID((i*50-50)+s) <> "" THEN Eingabe(7) = FIDEID((i*50-50)+s) ELSE Eingabe(7) = "" INGET 10, 9, 114, Eingabe(7) FIDEID((i*50-50)+s) = Eingabe(7) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Geschlecht SELECT CASE mausx CASE 48 TO 79 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Geschlecht((i*50-50)+s) <> "" THEN Eingabe(24) = Geschlecht((i*50-50)+s) ELSE Eingabe(24) = "" INGET 1, 14, 8, Eingabe(24) Geschlecht((i*50-50)+s) = Eingabe(24) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Nation SELECT CASE mausx CASE 84 TO 130 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Nation((i*50-50)+s) <> "" THEN Eingabe(25) = Nation((i*50-50)+s) ELSE Eingabe(25) = "" INGET 3, 14, 12, Eingabe(25) Nation((i*50-50)+s) = Eingabe(25) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - PKZ SELECT CASE mausx CASE 135 TO 223 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF PKZ((i*50-50)+s) <> "" THEN Eingabe(26) = PKZ((i*50-50)+s) ELSE Eingabe(26) = "" INGET 9, 14, 18, Eingabe(26) PKZ((i*50-50)+s) = Eingabe(26) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Vereinsnummer SELECT CASE mausx CASE 228 TO 348 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Vnummer((i*50-50)+s) <> "" THEN Eingabe(27) = Vnummer((i*50-50)+s) ELSE Eingabe(27) = "" INGET 9, 14, 30, Eingabe(27) Vnummer((i*50-50)+s) = Eingabe(27) ANZEIGE(i) END IF END SELECT END SELECT ' Eingabe - Mitgliedsnummer SELECT CASE mausx CASE 353 TO 488 SELECT CASE mausy CASE 97 TO 117 GETMOUSE mausx, mausy, wheel, mausk k = ((i*50-50)+s) IF Spieler(k) <> "" AND mausk = 1 THEN IF Mnummer((i*50-50)+s) <> "" THEN Eingabe(28) = Mnummer((i*50-50)+s) ELSE Eingabe(28) = "" INGET 9, 14, 46, Eingabe(28) Mnummer((i*50-50)+s) = Eingabe(28) ANZEIGE(i) END IF END SELECT END SELECT ' Spieler via Maske einlesen SELECT CASE mausx CASE 920 TO 952 SELECT CASE mausy CASE 350 TO 382 ' BUTTON 920, 350, 952, 382 FENSTERSUCHEN IF Einleseart = 0 THEN IF FILEEXISTS(EXEPATH + "\standard_rating_list.txt") THEN ' hier nichts tun Spielernummer = 1 YY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "standard_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart = 1 THEN IF FILEEXISTS(EXEPATH + "\rapid_rating_list.txt") THEN ' hier nichts tun Spielernummer = 1 YY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "rapid_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart = 2 THEN IF FILEEXISTS(EXEPATH + "\blitz_rating_list.txt") THEN ' hier nichts tun Spielernummer = 1 YY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "blitz_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart = 3 THEN IF FILEEXISTS(EXEPATH + "\DWZ.liste") THEN ' hier nichts tun Spielernummer = 1 YY = 153 Scrollbalkenposition(4) = 153 ELSE MessageBox(0, "DWZ.liste???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SELECT, SELECT END IF END IF IF Einleseart < 3 THEN IF Seite <> 7 AND Seite <> 10 THEN DIM f AS INTEGER = FREEFILE SCREENRES 840, 680, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 7 ' Standard IF Einleseart = 0 THEN IF Wertungszahl(2) <> 1 OR Wertungszahl(0) <> 0 THEN ELOEINLESEN Wertungszahl(0) = FALSE Wertungszahl(1) = TRUE Wertungszahl(3) = TRUE Wertungszahl(4) = TRUE END IF Wertungszahl(2) = 0 ' ELO-Zahl aktivieren END IF ' Rapid IF Einleseart = 1 THEN IF Wertungszahl(2) <> 3 OR Wertungszahl(3) <> 0 THEN ELOEINLESEN Wertungszahl(3) = FALSE Wertungszahl(0) = TRUE Wertungszahl(1) = TRUE Wertungszahl(4) = TRUE END IF Wertungszahl(2) = 3 ' ELO-Zahl aktivieren END IF ' Blitz IF Einleseart = 2 THEN IF Wertungszahl(2) <> 4 OR Wertungszahl(4) <> 0 THEN ELOEINLESEN Wertungszahl(4) = FALSE Wertungszahl(0) = TRUE Wertungszahl(1) = TRUE Wertungszahl(3) = TRUE END IF Wertungszahl(2) = 4 ' ELO-Zahl aktivieren END IF MENU ANZEIGE(i) SCROLLBALKEN END IF END IF ' DWZ IF Einleseart = 3 THEN DIM f AS INTEGER = FREEFILE SCREENRES 840, 680, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 7 IF Wertungszahl(2) <> 2 OR Wertungszahl(1) <> 0 THEN CHDIR EXEPATH ' Pfad setzen ' Daten einlesen und Anzahl der Daten ermitteln! OPEN PfadNwz FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N IF MULTIKEY(&h01) THEN EXIT DO j += 1 LOOP CLOSE #f eingeleseneDaten = j REDIM Daten(0 TO j, 0 TO 16) j = 1 OPEN PfadNwz FOR INPUT AS #f DO UNTIL EOF(f) ' INPUT #f, Daten(j, 1), Daten(j, 2), Daten(j, 3), Daten(j, 4), Daten(j, 5), Daten(j, 6), Daten(j, 7), Daten(j, 8), Daten(j, 9), Daten(j, 10), Daten(j, 11), Daten(j, 12), Daten(j, 13), Daten(j, 14), Daten(j, 15), Daten(j, 16) INPUT #f, Daten(j, 6), Daten(j, 7), Daten(j, 8), Daten(j, 2), Daten(j, 10), Daten(j, 4), Daten(j, 11), Daten(j, 12), Daten(j, 13), Daten(j, 14), Daten(j, 15), Daten(j, 9), Daten(j, 5), Daten(j, 1), Daten(j, 3), Daten(j, 16) Daten(j, 10) = LCASE(Daten(j, 10)) j += 1 IF j > eingeleseneDaten THEN EXIT DO IF MULTIKEY(&h01) THEN EXIT DO LOOP CLOSE #f Wertungszahl(1) = FALSE Wertungszahl(0) = TRUE Wertungszahl(3) = TRUE Wertungszahl(4) = TRUE eingeleseneDaten -= 1 END IF Wertungszahl(2) = 2 ' DWZ aktivieren MENU ANZEIGE(i) SCROLLBALKEN END IF Einleseart = 50 END SELECT END SELECT ELSEIF Seite = 12 THEN /' Eingabe - Brett SELECT CASE mausx CASE 184 TO 247 SELECT CASE mausy CASE 577 TO 597 INGET 3, 74, 25, Eingabe(32) IF Eingabe(32) <> "" AND Eingabe(32) <> "0" THEN Brett = VAL(Eingabe(32)) Eingabe(33) = STR(paarungen(VAL(Eingabe(32)), 1, Runde)) Eingabe(34) = STR(paarungen(VAL(Eingabe(32)), 2, Runde)) ANZEIGE(1) ERGEBNISANZEIGE END IF END SELECT END SELECT '/ /' ComboBox Rückmeldung event->xSleep(1) IF event->GADGETMESSAGE THEN SELECT CASE event->GADGETMESSAGE CASE Combo(1) Teamspieler(paarungen(Brett,1,Runde), s, Runde) = SGUI.GETCOMBOBOXVAL(Combo(1)) ANZEIGE(1) END SELECT END IF '/ ' Eingabe - Spielernnummer Weiß SELECT CASE mausx CASE 252 TO 322 SELECT CASE mausy CASE 577 TO 597 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Eingabe(33) = "" IF Teamspieler(paarungen(Brett,1,Runde), s, Runde) > 0 THEN Eingabe(33) = STR(Teamspieler(paarungen(Brett,1,Runde), s, Runde)) DO INGET 4, 74, 34, Eingabe(33) FOR j = 1 TO 50 IF Eingabe(33) <> "" AND Eingabe(33) = STR(Teamspieler(paarungen(Brett,1,Runde), j, Runde)) THEN Eingabe(33) = "" IF Eingabe(33) <> "" AND VAL(Eingabe(33)) < Teamspieler(paarungen(Brett,1,Runde), s-1, Runde) THEN Eingabe(33) = "" NEXT IF Eingabe(33) = "" THEN EXIT DO IF VAL(Eingabe(33)) < 51 AND VAL(Eingabe(33)) > 0 THEN EXIT DO LOOP IF Eingabe(33) <> "" THEN Teamspieler(paarungen(Brett,1,Runde), s, Runde) = VAL(Eingabe(33)) z = 99 ANZEIGE(1) z = 0 END IF END SELECT END SELECT ' Eingabe - Spielernnummer Schwarz SELECT CASE mausx CASE 644 TO 714 SELECT CASE mausy CASE 577 TO 597 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN Eingabe(34) = "" IF Teamspieler(paarungen(Brett,2,Runde), s, Runde) > 0 THEN Eingabe(34) = STR(Teamspieler(paarungen(Brett,2,Runde), s, Runde)) DO INGET 4, 74, 83, Eingabe(34) FOR j = 1 TO 50 IF Eingabe(34) <> "" AND Eingabe(34) = STR(Teamspieler(paarungen(Brett,2,Runde), j, Runde)) THEN Eingabe(34) = "" IF Eingabe(34) <> "" AND VAL(Eingabe(34)) < Teamspieler(paarungen(Brett,2,Runde), s-1, Runde) THEN Eingabe(34) = "" NEXT IF Eingabe(34) = "" THEN EXIT DO IF VAL(Eingabe(34)) < 51 AND VAL(Eingabe(34)) > 0 THEN EXIT DO LOOP IF Eingabe(34) <> "" THEN Teamspieler(paarungen(Brett,2,Runde), s, Runde) = VAL(Eingabe(34)) z = 99 ANZEIGE(1) z = 0 END IF END SELECT END SELECT ' Teilnehmerauswahl per Maus für das jeweilige Brett IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN SELECT CASE mausx CASE 5 TO 256 SELECT CASE mausy CASE Koordinaten(c(5), 1, 5) TO Koordinaten(c(5), 2, 5) Teamspieler(paarungen(Brett,Brettfarbe+1,Runde), s, Runde) = c(5) z = 99 ANZEIGE(1) z = 0 END SELECT END SELECT END IF ' - Auswahlfeld für die Anzeige der Mannschaftsspieler der Heimmannschaft SELECT CASE mausx CASE 109 TO 121 SELECT CASE mausy CASE 197 TO 209 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 109, 197, 121, 209 ' Button Anzeigen Brettfarbe = 0 ANZEIGE(1) END IF END SELECT END SELECT ' + Auswahlfeld für die Anzeige der Mannschaftsspieler der Gastmannschaft SELECT CASE mausx CASE 124 TO 136 SELECT CASE mausy CASE 197 TO 209 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 124, 197, 136, 209 ' Button Anzeigen Brettfarbe = 1 ANZEIGE(2) END IF END SELECT END SELECT ' Schaltfläche - 1-0 SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 66 TO 84 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 6, 66, 67, 84 ' Button Anzeigen ' Schachmodus IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "1-0" END IF ' Mühlemodus IF modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "2-0" END IF z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - ½-½ SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 66 TO 84 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 76, 66, 137, 84 ' Schachmodus IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "R-R" END IF ' Mühlemodus IF modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "1-1" END IF z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - 0-1 SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 66 TO 84 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 146, 66, 207, 84 ' Schachmodus IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "0-1" END IF ' Mühlemodus IF modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "0-2" END IF z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - ½-0 SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 6, 89, 67, 109 ' Schachmodus IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "R-0" END IF ' Mühlemodus IF modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "1-0" END IF z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - 0-½ SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 76, 89, 137, 109 ' Schachmodus IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "0-R" END IF ' Mühlemodus IF modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "0-1" END IF z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - 0-0 SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 89 TO 109 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 146, 89, 207, 109 ' Schachmodus IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "0-0" END IF ' Mühlemodus IF modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "1-1" END IF z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - +-- SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 114 TO 134 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 6, 114, 67, 134 EinzelErgebnisse(Brett, s, Runde) = "+--" z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - --- SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 114 TO 134 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 76, 114, 137, 134 EinzelErgebnisse(Brett, s, Runde) = "---" z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - --+ SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 114 TO 134 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 146, 114, 207, 134 EinzelErgebnisse(Brett, s, Runde) = "--+" z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - W-L SELECT CASE mausx CASE 6 TO 67 SELECT CASE mausy CASE 139 TO 159 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 6, 139, 67, 159 EinzelErgebnisse(Brett, s, Runde) = "W-L" z = 0 ANZEIGE(1) z = 99 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - D-D SELECT CASE mausx CASE 76 TO 137 SELECT CASE mausy CASE 139 TO 159 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 76, 139, 137, 159 EinzelErgebnisse(Brett, s, Runde) = "D-D" z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Schaltfläche - L-W SELECT CASE mausx CASE 146 TO 207 SELECT CASE mausy CASE 139 TO 159 GETMOUSE mausx, mausy, wheel, mausk IF mausk = 1 THEN BUTTON 146, 139, 207, 159 EinzelErgebnisse(Brett, s, Runde) = "L-W" z = 99 ANZEIGE(1) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT ' Ergebnis löschen SELECT CASE mausx CASE 6 TO 207 SELECT CASE mausy CASE 164 TO 184 GETMOUSE mausx, mausy, wheel, mausk IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND mausk = 1 THEN GETMOUSE mausx, mausy,, mausk BUTTON 6, 164, 207, 184 EinzelErgebnisse(Brett, s, Runde) = " " z = 99 ANZEIGE(i) z = 0 ERGEBNISANZEIGE END IF END SELECT END SELECT END IF CASE 2 IF Seite = 6 THEN ' Schaltfläche - Datum eintragen (Start) SELECT CASE mausx CASE 497 TO 597 SELECT CASE mausy CASE 57 TO 77 ' Datum eintragen BUTTON 497, 57, 597, 77 Eingabe(21) = MID(DATE,4,2) + "." + LEFT(DATE, 2) + "." + RIGHT(DATE,4) FONT Eingabe(21), 9, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum Start END SELECT END SELECT ' Schaltfläche - Datum eintragen (Ende) SELECT CASE mausx CASE 497 TO 597 SELECT CASE mausy CASE 105 TO 125 ' Datum eintragen BUTTON 497, 105, 597, 125 Eingabe(22) = MID(DATE,4,2) + "." + LEFT(DATE, 2) + "." + RIGHT(DATE,4) FONT Eingabe(22), 15, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum ENDE END SELECT END SELECT ' Schaltfläche - Bedenkzeit eintragen SELECT CASE mausx CASE 48 TO 470 SELECT CASE mausy CASE 201 TO 221 ' Bedenkzeit eintragen BUTTON 48, 201, 470, 221 Eingabe(12) = "40/6000+30:900+30" FONT Eingabe(12), 27, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Bedenkzeit END SELECT END SELECT '/ END IF END SELECT IF Seite = 1 THEN ' sortieren - Taste F7 IF MULTIKEY(&h41) AND TAZ > 2 THEN IF ausgelosteRunde(1) = 0 THEN FENSTERSORTIEREN IF Sortierung > 0 THEN SORTIEREN ANZEIGE(1) MessageBox(0, Sprachausgaben(6), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF Sortierung = 0 END IF END IF ' Startgebühr bezahlt eintragen - Taste F IF MULTIKEY(&h21) AND Tastensperre(5) THEN IF Spieler(i) <> "" THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Startgebuehr(i) += 1 ANZEIGE(i) IF Startgebuehr(i) > 1 THEN Startgebuehr(i) = 0 END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Team(i) <> "" THEN Startgebuehr(i) += 1 ANZEIGE(i) IF Startgebuehr(i) > 1 THEN Startgebuehr(i) = 0 END IF END IF END IF IF MULTIKEY(&h21) THEN Tastensperre(5) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(5) = TRUE ' DWZ-Zahl aktualisieren - Taste F9 IF MULTIKEY(&h43) AND TAZ > 0 THEN k = 3 Wertungszahl(2) = 0 Wertungszahl(0) = FALSE Wertungszahl(3) = FALSE Wertungszahl(4) = FALSE Wertungszahl(1) = TRUE AKTUALISIEREN END IF ' Standard ELO-Zahl aktualisieren - Taste F10 IF MULTIKEY(&h44) AND TAZ > 0 THEN k = 0 Wertungszahl(2) = 0 Wertungszahl(0) = TRUE Wertungszahl(3) = FALSE Wertungszahl(4) = FALSE Wertungszahl(1) = FALSE AKTUALISIEREN END IF ' Rapid ELO-Zahl aktualisieren - Taste F11 IF MULTIKEY(&h57) AND TAZ > 0 THEN k = 1 Wertungszahl(2) = 0 Wertungszahl(0) = FALSE Wertungszahl(3) = TRUE Wertungszahl(4) = FALSE Wertungszahl(1) = FALSE AKTUALISIEREN END IF ' Blitz ELO-Zahl aktualisieren - Taste F12 IF MULTIKEY(&h58) AND TAZ > 0 THEN k = 2 Wertungszahl(2) = 0 Wertungszahl(0) = FALSE Wertungszahl(3) = FALSE Wertungszahl(4) = TRUE Wertungszahl(1) = FALSE AKTUALISIEREN END IF ' Fenster Aussetzen öffnen (einen Spieler aussetzen lassen) - Taste A IF MULTIKEY(&h1E) AND MULTIKEY(&h1D) = 0 THEN Seite = 8 MENU END IF ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) AND Tastensperre(27) THEN SPEICHERN IF MULTIKEY(&h1F) THEN Tastensperre(27) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(27) = TRUE ' einen neuen Teilnehmer eingeben - Taste N (New/Neu) IF MULTIKEY(&h31) AND MULTIKEY(&h1D) = 0 AND MULTIKEY(&h38) = 0 THEN IF Paarungssystem <> 0 AND Paarungssystem <> 1 AND Paarungssystem <> 2 AND Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 AND Paarungssystem <> 9 AND TAZ < maxAnzahl THEN ' IF Paarungssystem > 2 AND Paarungssystem < 5 AND TAZ < maxAnzahl THEN i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: Y = 153: Scrollbalkenposition(1) = 325 j = 153 laenge = (zzz - j) IF laenge < 4 THEN laenge = 4 ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF IF Paarungssystem > 4 AND Paarungssystem < 8 AND TAZ < 500 THEN i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Team(i) = Eingabe(1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Team(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: Y = 153: Scrollbalkenposition(1) = 325 j = 153 laenge = (zzz - j) IF laenge < 4 THEN laenge = 4 ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF ' neuer Spieler im Rundensystem nur, wenn noch nicht ausgelost wurde! IF Paarungssystem < 3 AND ausgelosteRunde(1) = 0 AND TAZ < maxAnzahl THEN i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(i) ' Berechnung der Länge vom Scrollbalken, Anzeige des Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: Y = 153: Scrollbalkenposition(1) = 325 j = 153 laenge = (zzz - j) IF laenge < 4 THEN laenge = 4 ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF ' neuer Spieler im KO-System IF Paarungssystem = 9 AND TAZ < 2000 THEN ' IF Paarungssystem > 2 AND Paarungssystem < 5 AND TAZ < maxAnzahl THEN IF Paarungssystem = 9 AND ausgelosteRunde(1) = 1 THEN j = 1 IF j <> 1 THEN i = TAZ+1 ANZEIGE(TAZ+1) INGET 35, 9, 8, Eingabe(1) Spieler(i) = Eingabe(1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: Y = 153: Scrollbalkenposition(1) = 325 j = 153 laenge = (zzz - j) IF laenge < 4 THEN laenge = 4 ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK END IF END IF END IF ' alles auf 0 setzen - Taste N + Alt + Strg IF MULTIKEY(&h31) AND MULTIKEY(&h38) AND MULTIKEY(&h1D) THEN IF ausgelosteRunde(1) = 1 THEN IF MessageBox(0, Sprachausgaben(127), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' deaktivierte Spieler aktivieren im KO-System IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = 1 TO RAZ FOR k = 1 TO TAZ fehlendeSpieler(k, j) = 0 fehlendeSpieler(k, j) = 0 NEXT NEXT END IF ' Partien pro Runde FOR j = 1 TO RAZ ppr(j) = 0 ' Partien pro Runde NEXT Runde = 1 ' aktuelle Runde Brett = 1 ' aufgerufenes Brett Platz = 1 ' aufgerufener Platz ' ausgeloste Runden freigeben IF Paarungssystem < 3 THEN FOR j = 0 TO 80 ausgelosteRunde(j) = 0 NEXT ELSE FOR j = 0 TO 29 ausgelosteRunde(j) = 0 NEXT END IF ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO 160 FOR laufvariable = 0 TO MaxAnzahl Punkte(laufvariable, j) = 2000 NEXT NEXT ' Paarungen löschen/initialisieren REDIM AS INTEGER paarungen(0 TO 1, 0 TO 2, 0 TO 1) ' Zuweisung der Mannschaftsspieler für jede Runde löschen/initialisieren IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN REDIM AS INTEGER Teamspieler(0 TO 1, 0 TO 1, 0 TO 1) REDIM AS STRING EinzelErgebnisse(0 TO 310, 0 TO 50, 0 TO 29) ' löschen/initialisieren der Einzelergebnisse END IF ' ANZEIGE(1) MessageBox(0, "OK", "STOP", MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF END IF 'letzten Eintrag aufrufen mit Bild-Ab-Taste IF MULTIKEY(&h51) THEN i = TAZ ANZEIGE(TAZ) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) SCROLLBALKEN END IF ' Spieler 1 aufrufen mit Bild-Auf-Taste IF MULTIKEY(&h49) THEN i = 1 ANZEIGE(1) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+325*i-153*i)/TAZ) SCROLLBALKEN END IF ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(1) AND TAZ > 0 THEN Tastensperre(1) = FALSE i -= 1 IF i < 1 THEN i = 1 ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(2) AND TAZ > 0 THEN Tastensperre(2) = FALSE i += 1 IF i >= TAZ THEN i = TAZ ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' nach unten - Pfeiltaste nach links -24 IF MULTIKEY(&h4B) AND Tastensperre(3) AND TAZ > 0 THEN Tastensperre(3) = FALSE IF i > 1 THEN i -= 24 IF i <= 0 THEN i = 1 ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +24 IF MULTIKEY(&h4D) AND Tastensperre(4) AND TAZ > 0 THEN Tastensperre(4) = FALSE IF i < TAZ THEN i += 24 IF i >= TAZ THEN i = TAZ ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE ' Datei anlegen - Taste STRG + A IF MULTIKEY(&h1E) AND MULTIKEY(&h1D) THEN ANLEGEN ' Eintrag aus Datei löschen - STRG + Taste E (Löschen / Entfernen) IF MULTIKEY(&h1D) AND MULTIKEY(&h12) THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN IF ausgelosteRunde(1) = 0 THEN LOESCHEN END IF IF ausgelosteRunde(1) = 1 THEN MessageBox(0, Sprachausgaben(144), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Kontaktdaten löschen (und Turnierdatei abspeichern) IF MULTIKEY(&h1D) AND MULTIKEY(&h20) THEN FOR j = 1 TO TAZ EMPFAENGER(j) = "" Telefonnummer(j) = "" NEXT ANZEIGE(1) MessageBox(0, "OK", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF ' Datei laden - Taste L (Load/Laden) IF MULTIKEY(&h26) AND MULTIKEY(&h1D) = 0 THEN LADEN(ComboBox) ' Mannschaftsspielerseite aufrufen - Taste M - Seite 11 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF MULTIKEY(&h32) AND Team(i) <> "" THEN Seite = 11 MENU ANZEIGE(i) END IF END IF END IF IF Seite = 2 THEN ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) THEN SPEICHERN ' Datei laden - Taste L (Load/Laden) IF MULTIKEY(&h26) THEN LADEN(Combobox) ERGEBNISANZEIGE FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Datei anlegen - Taste STRG + A IF MULTIKEY(&h1E) AND MULTIKEY(&h1D) THEN ANLEGEN ' manuelle Paarungen - Taste STRG + M IF MULTIKEY(&h32) AND MULTIKEY(&h1D) THEN IF ausgelosteRunde(Runde+1) = 0 THEN IF MessageBox(0, Sprachausgaben(146), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN Seite = 10 ' Seite manuelle Paarungen IF ppr(runde) = 0 THEN AUSLOSUNG Eingabe(32) = STR(Brett) Eingabe(33) = STR(paarungen(Brett,1,Runde)) Eingabe(34) = STR(paarungen(Brett,2,Runde)) MENU ANZEIGE(1) ERGEBNISANZEIGE FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 LOCATE 11,5: PRINT "Paarungen: "; ppr(runde) END IF END IF END IF ' letzte Runde löschen - Taste STRG + D IF MULTIKEY(&h20) AND MULTIKEY(&h1D) AND Seite = 2 AND Tastensperre(20) AND Runde > 0 THEN IF ausgelosteRunde(Runde+1) = 0 AND ausgelosteRunde(Runde) = 1 THEN Tastensperre(20) = FALSE OemToChar Sprachausgaben(143), Sprachausgaben(143) IF MessageBox(0, Sprachausgaben(143) + "?", Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = 1 TO ppr(Runde) FOR k = Runde TO RAZ fehlendeSpieler(paarungen(j,1,Runde), k) = 0 fehlendeSpieler(paarungen(j,2,Runde), k) = 0 NEXT NEXT END IF Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 FOR laufvariable = 1 TO ppr(Runde) ' genommen(laufvariable, Runde) = 0 Punkte(laufvariable, Runde) = 2000 paarungen(laufvariable, 1, Runde) = 0 paarungen(laufvariable, 2, Runde) = 0 NEXT ppr(Runde) = 0 Brett = 1 IF Runde > 1 THEN Runde -= 1 CharToOem Sprachausgaben(143), Sprachausgaben(143) MENU ANZEIGE(1) ERGEBNISANZEIGE OemToChar Sprachausgaben(143), Sprachausgaben(143) IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF CharToOem Sprachausgaben(143), Sprachausgaben(143) END IF END IF IF MULTIKEY(&h20) THEN Tastensperre(20) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(20) = TRUE ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(1) THEN ' IF ppr(runde) < 60 THEN Tastensperre(1) = FALSE ' LOCATE 3,5: PRINT "Brett: "; Brett; " " IF Brett > 1 THEN Brett -= 1 ' LOCATE 5,5: PRINT "Brett: "; Brett; " " ' k = Brett /' ******************************************************************************************************************************************************************* ' Nur ein Test!!! FOR j = k TO 1 STEP -1 IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN Brett -= 1 IF Punkte(paarungen(j,1,Runde),Runde) = 2000 THEN EXIT FOR NEXT ' ******************************************************************************************************************************************************************* '/ IF Brett < 1 THEN Brett = 1 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ELSE ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ERGEBNISANZEIGE END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' IF MULTIKEY(&h48) AND ppr(runde) < 60 THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(2) THEN ' IF ppr(runde) < 60 THEN Tastensperre(2) = FALSE ' LOCATE 3,5: PRINT "Brett: "; Brett; " " IF Brett < ppr(runde) THEN Brett += 1 ' LOCATE 5,5: PRINT "Brett: "; Brett; " " ' k = Brett /' ******************************************************************************************************************************************************************* ' Nur ein Test!!! DO IF Punkte(paarungen(k,1,Runde),Runde) <> 2000 THEN Brett += 1 IF Punkte(paarungen(k,1,Runde),Runde) = 2000 THEN EXIT DO IF k >= ppr(runde) THEN EXIT DO k += 1 LOOP ' ******************************************************************************************************************************************************************* '/ IF Brett >= ppr(runde) THEN Brett = ppr(runde) IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ELSE ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ERGEBNISANZEIGE END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' nach unten - Pfeiltaste nach links -59 ---- AND ppr(runde) > 59 IF MULTIKEY(&h4B) AND Tastensperre(3) THEN Tastensperre(3) = FALSE IF Brett > 1 THEN Brett -= 59 IF Brett < 1 THEN Brett = 1 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ELSE ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ERGEBNISANZEIGE END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +59 ---- AND ppr(runde) > 59 IF MULTIKEY(&h4D) AND Tastensperre(4) THEN Tastensperre(4) = FALSE IF Brett < ppr(runde) THEN Brett += 59 IF Brett >= ppr(runde) THEN Brett = ppr(runde) IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ELSE ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ERGEBNISANZEIGE END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE ' Runde vor - (Plus-Taste) IF MULTIKEY(&h4E) AND Tastensperre(5) AND Runde < RAZ AND ausgelosteRunde(Runde) = 1 THEN ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 THEN AnzahlErgebnisse = ppr(runde) IF Runde < RAZ AND ausgelosteRunde(Runde) = 1 AND AnzahlErgebnisse >= ppr(runde) THEN Tastensperre(5) = FALSE Brett = 1 Runde += 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ANZEIGE(i) END IF ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF IF MULTIKEY(&h4E) THEN Tastensperre(5) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(5) = TRUE ' Runde zurück - (Minus-Taste) IF MULTIKEY(&h4A) AND Tastensperre(6) AND Runde > 1 THEN Tastensperre(6) = FALSE Brett = 1 Runde -= 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF IF MULTIKEY(&h4A) THEN Tastensperre(6) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(6) = TRUE ' Runde vor - (Taste V) IF MULTIKEY(&h2F) AND Tastensperre(23) AND Runde < RAZ AND ausgelosteRunde(Runde) = 1 THEN ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AnzahlErgebnisse = ppr(runde) IF Runde < RAZ AND ausgelosteRunde(Runde) = 1 AND AnzahlErgebnisse >= ppr(runde) THEN Tastensperre(23) = FALSE Brett = 1 Runde += 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ANZEIGE(i) END IF ERGEBNISANZEIGE ' IF Paarungssystem > 2 THEN IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ' END IF END IF IF MULTIKEY(&h2F) THEN Tastensperre(23) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(23) = TRUE ' Runde zurück - (Taste Z) IF MULTIKEY(&h2C) AND Tastensperre(24) AND Runde > 1 THEN Tastensperre(24) = FALSE Brett = 1 Runde -= 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF IF MULTIKEY(&h2C) THEN Tastensperre(24) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(24) = TRUE ' **************************************************************************************************************************************************************** /' Runde vor - (Rechte Shift + STRG + V) IF MULTIKEY(&h36) AND MULTIKEY(&h1D) AND MULTIKEY(&h2F) AND Tastensperre(25) AND Runde < RAZ AND ausgelosteRunde(Runde) = 1 THEN ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 THEN AnzahlErgebnisse = ppr(runde) IF Runde < RAZ AND ausgelosteRunde(Runde) = 1 AND AnzahlErgebnisse >= ppr(runde) THEN Tastensperre(25) = FALSE Brett = 1 Runde += 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) END IF ERGEBNISANZEIGE ' IF Paarungssystem > 2 THEN IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN ' END IF END IF IF MULTIKEY(&h36) AND MULTIKEY(&h1D) AND MULTIKEY(&h2F) THEN Tastensperre(25) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(25) = TRUE ' Runde zurück - (Rechte Shift + STRG + Z) IF MULTIKEY(&h36) AND MULTIKEY(&h1D) AND MULTIKEY(&h2C) AND Tastensperre(26) AND Runde > 1 THEN Tastensperre(26) = FALSE Brett = 1 Runde -= 1 FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF IF MULTIKEY(&h36) AND MULTIKEY(&h1D) AND MULTIKEY(&h2C) THEN Tastensperre(26) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(26) = TRUE '/ ' Auslosen - Taste A IF MULTIKEY(&h1E) AND Tastensperre(28) THEN IF RAZ > 0 OR Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' Auswahlfeld für Punkte für Spielfrei deaktivieren bzw. auf Standard (1 Punkt bei Freilos) setzen IF Paarungssystem = 9 AND ausgelosteRunde(Runde) = 0 THEN Halbbye = 0 ' Auslosen wenn javafo.jar vorhanden ist IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 THEN IF FILEEXISTS(EXEPATH + "\javafo.jar") THEN ' TABELLE(0) ' Auswahlfeld für Punkte für Spielfrei deaktivieren bzw. auf Standard (1 Punkt bei Freilos) setzen IF Paarungssystem < 3 AND ausgelosteRunde(Runde) = 0 THEN Halbbye = 0 IF Paarungssystem = 6 OR Paarungssystem = 7 THEN IF ausgelosteRunde(Runde) = 0 THEN Halbbye = 0 END IF IF ausgelosteRunde(Runde) = 1 THEN IF Paarungssystem > 2 THEN IF MessageBox(0, Sprachausgaben(106), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END IF ELSE IF TAZ < 81 THEN ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ' wirklich auf 0 setzen??? ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 ELSE IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MessageBox(0, Sprachausgaben(8) + " > 80; max = 80", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) ELSE ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END IF END IF ELSE MessageBox(0, Sprachausgaben(107), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Auslosen bei Dutch/Burstein, wenn bbpPairings.exe vorhanden ist IF Paarungssystem = 8 OR Paarungssystem = 11 THEN IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN ' TABELLE(0) IF ausgelosteRunde(Runde) = 1 THEN IF Paarungssystem > 2 THEN IF MessageBox(0, Sprachausgaben(106), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' Daten auf 0 setzen ' IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ' ERGEBNISANZEIGE - Ergebnisse hier anzeigen??? ' ausgelosteRunde(Runde) = 1 END IF END IF ELSE IF TAZ < 81 THEN ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE ELSE IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MessageBox(0, Sprachausgaben(8) + " > 80; max = 80", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) ELSE ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE END IF END IF END IF ELSE MessageBox(0, Sprachausgaben(177), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Auslosen im KO-System IF Paarungssystem = 9 THEN IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN ' TABELLE(0) IF ausgelosteRunde(Runde) = 1 THEN IF Paarungssystem > 2 THEN IF MessageBox(0, Sprachausgaben(106), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN ' Daten auf 0 setzen ' IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ' ERGEBNISANZEIGE - Ergebnisse hier anzeigen??? ' ausgelosteRunde(Runde) = 1 END IF END IF ELSE IF TAZ < 81 THEN ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE ELSE IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MessageBox(0, Sprachausgaben(8) + " > 80; max = 80", Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) ELSE ' Daten auf 0 setzen IF j > 0 THEN Eingabe(Runde) = "" ausgelosteRunde(Runde) = 0 ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO MaxAnzahl Punkte(j, Runde) = 2000 NEXT ' Paarungen löschen aktuelle Runde FOR j = 1 TO ppr(runde) Paarungen(j,1,Runde) = 0 Paarungen(j,2,Runde) = 0 NEXT AUSLOSUNG ANZEIGE(1) ERGEBNISANZEIGE END IF END IF END IF ELSE MessageBox(0, Sprachausgaben(177), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ELSE MessageBox(0, Sprachausgaben(82) + " = 0!!!", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF IF MULTIKEY(&h1E) THEN Tastensperre(28) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(28) = TRUE ' Punkte eingeben - Taste 1 - Gewinn Weiß (1-0) IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF MULTIKEY(&h02) AND Tastensperre(7) AND TAZ > 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN Tastensperre(7) = FALSE IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF IF Modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 2 Punkte(paarungen(Brett,2,Runde),Runde) = 0 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 1 NEXT END IF ERGEBNISANZEIGE SLEEP 2000/TAZ, 1 IF Brett < ppr(runde) THEN Brett +=1 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END IF END IF IF MULTIKEY(&h02) THEN Tastensperre(7) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(7) = TRUE ' Punkte eingeben - Taste 0 - Gewinn Schwarz (0-1) IF MULTIKEY(&h0B) AND Tastensperre(8) AND TAZ > 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN Tastensperre(8) = FALSE IF Modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF IF Modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0 Punkte(paarungen(Brett,2,Runde),Runde) = 2 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 1 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF ERGEBNISANZEIGE SLEEP 2000/TAZ, 1 IF Brett < ppr(runde) THEN Brett +=1 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END IF END IF IF MULTIKEY(&h0B) THEN Tastensperre(8) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(8) = TRUE ' Punkte eingeben - Taste 2 - Remis (1/2:1/2) IF MULTIKEY(&h03) AND Tastensperre(9) AND TAZ > 0 THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 AND Spieler(paarungen(Brett,1,Runde)) <> "" AND Spieler(paarungen(Brett,2,Runde)) <> "" THEN Tastensperre(9) = FALSE IF modus = 0 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 0.5 Punkte(paarungen(Brett,2,Runde),Runde) = 0.5 END IF IF Modus = 1 THEN Punkte(paarungen(Brett,1,Runde),Runde) = 1 Punkte(paarungen(Brett,2,Runde),Runde) = 1 END IF kampflose(Brett, Runde) = 0 IF Paarungssystem = 9 AND runde < RAZ THEN FENSTERKNOCKOUT ERGEBNISANZEIGE SLEEP 2000/TAZ, 1 IF Brett < ppr(runde) THEN Brett +=1 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END IF END IF IF MULTIKEY(&h03) THEN Tastensperre(9) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(9) = TRUE ' Kampflose Ergebnisse eintragen - Taste K IF MULTIKEY(&h25) AND Tastensperre(10) AND TAZ > 0 THEN IF modus = 0 AND Punkte(paarungen(Brett,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett,2,Runde),Runde) <> 0.5 THEN Tastensperre(10) = FALSE kampflose(Brett, Runde) = 1 ERGEBNISANZEIGE END IF IF modus = 1 AND Punkte(paarungen(Brett,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett,2,Runde),Runde) <> 1 THEN Tastensperre(10) = FALSE kampflose(Brett, Runde) = 1 ERGEBNISANZEIGE END IF END IF IF MULTIKEY(&h25) THEN Tastensperre(10) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(10) = TRUE ' Ergebnisse von Partien mit nur einem Zug eintragen - Taste U IF MULTIKEY(&h16) AND Tastensperre(22) AND TAZ > 0 THEN Tastensperre(22) = FALSE kampflose(Brett, Runde) = 2 ERGEBNISANZEIGE END IF IF MULTIKEY(&h25) THEN Tastensperre(22) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(22) = TRUE /' Punkte eingeben - Taste ??? = Kampflos beide Spieler (---) IF MULTIKEY(&h1D) AND MULTIKEY(&h0C) AND Tastensperre(12) THEN Tastensperre(11) = FALSE Punkte((paarungen(Brett,1,Runde)),Runde) = 0 ' "-" Punkte((paarungen(Brett,2,Runde)),Runde) = 0 ' "-" kampflose(Brett, Runde) = 1 ERGEBNISANZEIGE END IF ' IF MULTIKEY(&h0C) THEN Tastensperre(11) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(11) = TRUE '/ /' Punkte eingeben - Taste ??? = Verloren beide Spieler (0-0) IF MULTIKEY(&h1D) AND MULTIKEY(&h0C) AND Tastensperre(13) THEN Tastensperre(13) = FALSE Punkte((paarungen(Brett,1,Runde)),Runde) = 0 ' "0" Punkte((paarungen(Brett,2,Runde)),Runde) = 0 ' "0" kampflose(Brett, Runde) = 0 ERGEBNISANZEIGE END IF ' IF MULTIKEY(&h0C) THEN Tastensperre(11) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(12) = TRUE '/ /' Punkte eingeben - Taste ??? = Verloren/Remis (0-0,5) IF MULTIKEY(&h1D) AND MULTIKEY(&h0C) AND Tastensperre(14) THEN Tastensperre(14) = FALSE Punkte((paarungen(Brett,1,Runde)),Runde) = 0 ' "0" Punkte((paarungen(Brett,2,Runde)),Runde) = 0 ' "0.5" kampflose(Brett, Runde) = 0 ERGEBNISANZEIGE END IF ' IF MULTIKEY(&h0C) THEN Tastensperre(14) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(14) = TRUE '/ /' Punkte eingeben - Taste ??? = Remis/Verloren (0,5-0) IF MULTIKEY(&h1D) AND MULTIKEY(&h0C) AND Tastensperre(15) THEN Tastensperre(15) = FALSE Punkte((paarungen(Brett,1,Runde)),Runde) = 0 ' "0.5" Punkte((paarungen(Brett,2,Runde)),Runde) = 0 ' "0" kampflose(Brett, Runde) = 0 ERGEBNISANZEIGE END IF ' IF MULTIKEY(&h0C) THEN Tastensperre(15) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(15) = TRUE '/ ' Punkte löschen - Taste Entf IF MULTIKEY(&h53) AND Tastensperre(16) THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 THEN Tastensperre(16) = FALSE Punkte(paarungen(Brett,1,Runde),Runde) = 2000 Punkte(paarungen(Brett,2,Runde),Runde) = 2000 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF kampflose(Brett, Runde) = 0 IF Brett < ppr(runde) THEN Brett += 1 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END IF IF MULTIKEY(&h53) THEN Tastensperre(16) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(16) = TRUE END IF ' *********************************************************************************************************************************************************** ' Ergebnisse/Spieler der jeweiligen Mannschaften eingeben bzw. definieren - Taste E IF MULTIKEY(&h12) AND Seite <> 12 AND paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 THEN IF Seite <> 3 AND Seite <> 4 AND Seite <> 6 AND Seite <> 2 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 12 s = 1 MENU ANZEIGE(1) ERGEBNISANZEIGE END IF ' *********************************************************************************************************************************************************** END IF IF Seite = 3 THEN ' *********************************************************************************************************************************************************************** /' ' Extended Sonneborn-Berger IF MULTIKEY(&h02) THEN Extended = 1 TABELLE(1) END IF IF MULTIKEY(&h03) THEN Extended = 2 TABELLE(1) END IF IF MULTIKEY(&h04) THEN Extended = 3 TABELLE(1) END IF IF MULTIKEY(&h05) THEN Extended = 4 TABELLE(1) END IF '/ ' *********************************************************************************************************************************************************************** ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) THEN SPEICHERN ' Datei laden - Taste L (Load/Laden) IF MULTIKEY(&h26) THEN LADEN(Combobox) MENU TABELLE(1) END IF ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(1) THEN IF TAZ < 70 THEN Tastensperre(1) = FALSE Platz -= 1 IF Platz < 1 THEN Platz = 1 TABELLE(1) END IF IF MULTIKEY(&h48) AND ppr(runde) < 60 THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(2) THEN IF TAZ < 70 THEN Tastensperre(2) = FALSE Platz += 1 IF Platz >= TAZ THEN Platz = TAZ TABELLE(1) END IF IF MULTIKEY(&h50) AND ppr(runde) < 60 THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' nach unten - Pfeiltaste nach links -70 IF MULTIKEY(&h4B) AND Tastensperre(3) AND TAZ > 70 THEN Tastensperre(3) = FALSE IF Platz > 1 THEN Platz -= 70 IF Platz <= 0 THEN Platz = 1 TABELLE(1) END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +70 IF MULTIKEY(&h4D) AND Tastensperre(4) AND TAZ > 70 THEN Tastensperre(4) = FALSE IF Platz < TAZ THEN Platz += 70 IF Platz >= TAZ THEN Platz = TAZ TABELLE(1) END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE ' Runde vor - (Plus-Taste) IF MULTIKEY(&h4E) AND Tastensperre(5) AND Runde < RAZ AND ausgelosteRunde(Runde) = 1 THEN AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 THEN AnzahlErgebnisse = ppr(runde) IF AnzahlErgebnisse >= ppr(runde) THEN ' Tastensperre(5) = FALSE Runde += 1 TABELLE(1) SCREENLOCK FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)) + " ", 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF END IF IF MULTIKEY(&h4E) THEN Tastensperre(5) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(5) = TRUE ' Runde zurück - (Minus-Taste) IF MULTIKEY(&h4A) AND Tastensperre(6) AND Runde > 1 THEN ' Tastensperre(6) = FALSE Runde -= 1 TABELLE(1) SCREENLOCK FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)) + " ", 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF IF MULTIKEY(&h4A) THEN Tastensperre(6) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(6) = TRUE ' Runde vor - (Taste V) IF MULTIKEY(&h2F) AND Tastensperre(23) AND Runde < RAZ AND ausgelosteRunde(Runde) = 1 THEN ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT ' Bei Rundensystem und Rutschsystem ist eine neue Runde erlaubt! IF Paarungssystem < 3 THEN AnzahlErgebnisse = ppr(runde) IF Runde < RAZ AND ausgelosteRunde(Runde) = 1 AND AnzahlErgebnisse >= ppr(runde) THEN Tastensperre(23) = FALSE Brett = 1 Runde += 1 SCREENLOCK FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)) + " ", 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK TABELLE(1) END IF END IF IF MULTIKEY(&h2F) THEN Tastensperre(23) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(23) = TRUE ' Runde zurück - (Taste Z) IF MULTIKEY(&h2C) AND Tastensperre(24) AND Runde > 1 THEN Tastensperre(24) = FALSE Brett = 1 Runde -= 1 SCREENLOCK FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)) + " ", 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK TABELLE(1) END IF IF MULTIKEY(&h2C) THEN Tastensperre(24) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(24) = TRUE END IF ' Turnierinformationen IF Seite = 6 THEN ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) THEN SPEICHERN ' Datei laden - Taste L (Load/Laden) IF MULTIKEY(&h26) THEN GadgetOn(Combobox) LADEN(Combobox) MENU UpdateGadget(Combobox) END IF ' Buchholz Cut 1 - Taste F3 IF MULTIKEY(&h3D) THEN Feinwertungssystem(1) = -2 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Cut 2 - Taste F4 IF MULTIKEY(&h3E) THEN Feinwertungssystem(1) = -3 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Median 1 - Taste F5 IF MULTIKEY(&h3f) THEN Feinwertungssystem(1) = -4 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Median 2 - Taste F6 IF MULTIKEY(&h40) THEN Feinwertungssystem(1) = -5 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Sonneborn-Berger Cut 1 - Taste F7 IF MULTIKEY(&h41) THEN Feinwertungssystem(1) = -6 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Sonneborn-Berger Cut 2 - Taste F8 IF MULTIKEY(&h42) THEN Feinwertungssystem(1) = -7 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Cut 1 - Taste 1 IF MULTIKEY(&h02) THEN Feinwertungssystem(2) = -2 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Cut 2 - Taste 2 IF MULTIKEY(&h03) THEN Feinwertungssystem(2) = -3 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Median 1 - Taste 3 IF MULTIKEY(&h04) THEN Feinwertungssystem(2) = -4 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Buchholz Median 2 - Taste 4 IF MULTIKEY(&h05) THEN Feinwertungssystem(2) = -5 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Sonneborn-Berger Cut 1 - Taste 5 IF MULTIKEY(&h06) THEN Feinwertungssystem(2) = -6 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF ' Sonneborn-Berger Cut 2 - Taste 6 IF MULTIKEY(&h07) THEN Feinwertungssystem(2) = -7 k = 339 SCREENLOCK FOR j = 1 TO 17 IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ANZEIGE(1) SCREENUNLOCK END IF END IF ' Spielereingabemaske IF Seite = 7 THEN ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(1) THEN Tastensperre(1) = FALSE Eingabe(0) = "" Spielernummer -= 1 IF Spielernummer < 1 THEN Spielernummer = 1 ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN Eingabe(0) = "1" END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(2) THEN ' IF ppr(runde) < 60 THEN Tastensperre(2) = FALSE Eingabe(0) = "" Spielernummer += 1 IF Spielernummer > eingeleseneDaten THEN Spielernummer -= 1 ' eingeleseneDaten ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN Eingabe(0) = "1" END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' nach unten - Pfeiltaste nach links -59 ' AND Tastensperre(3) IF MULTIKEY(&h4B) THEN ' Tastensperre(3) = FALSE Eingabe(0) = "" IF Spielernummer > 1 THEN Spielernummer -= 59 IF Spielernummer < 1 THEN Spielernummer = 1 ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN Eingabe(0) = "1" END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +59 ' AND Tastensperre(4) IF MULTIKEY(&h4D) THEN ' Tastensperre(4) = FALSE Eingabe(0) = "" IF Spielernummer < eingeleseneDaten THEN Spielernummer += 59 IF Spielernummer > eingeleseneDaten THEN Spielernummer = eingeleseneDaten ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN Eingabe(0) = "1" END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE ' Spielerdaten übernehmen (Einzelturnier) - Entertaste IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF MULTIKEY(&h1C) AND Tastensperre(5) AND Eingabe(0) <> "" AND TAZ < 2000 THEN Tastensperre(5) = FALSE Sortierung = i i = TAZ+1 ' Spieler für vorhergehende Runden als nicht anwesend kennzeichnen! IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF ' ELO-Zahl IF Wertungszahl(2) <> 2 THEN FIDEID(i) = Daten(Spielernummer, 1) ' FIDE-ID Spieler(i) = Daten(Spielernummer, 2) ' NAME Nation(i) = Daten(Spielernummer, 3) ' Nation Geschlecht(i) = Daten(Spielernummer, 4) ' Geschlecht Titel(i) = Daten(Spielernummer, 5) ' Titel ' Spieler(i) = Daten(Spielernummer, 6) ' ' Spieler(i) = Daten(Spielernummer, 7) ' ' Spieler(i) = Daten(Spielernummer, 8) ' ELO(i) = VAL(Daten(Spielernummer, 9)) ' ELO ' Spieler(i) = Daten(Spielernummer, 10) ' kFaktor(i) = Daten(Spielernummer, 11) ' kFaktor Geburt(i) = Daten(Spielernummer, 12) ' Geburt ' Spieler(i) = Daten(Spielernummer, 13) ' ' Spieler(i) = Daten(Spielernummer, 14) ' ' Spieler(i) = Daten(Spielernummer, 15) ' END IF ' DWZ-Zahl IF Wertungszahl(2) = 2 THEN FIDEID(i) = Daten(Spielernummer, 1) ' FIDE-ID Spieler(i) = Daten(Spielernummer, 2) ' NAME Nation(i) = Daten(Spielernummer, 3) ' Nation Geschlecht(i) = Daten(Spielernummer, 4) ' Geschlecht Titel(i) = Daten(Spielernummer, 5) ' Titel Vnummer(i) = Daten(Spielernummer, 6) ' ZPS-Nummer des Vereins Mnummer(i) = Daten(Spielernummer, 7) ' Mitgliedsnummer im Verein ' Spieler(i) = Daten(Spielernummer, 8) ' Status der Mitgliedschaft ELO(i) = VAL(Daten(Spielernummer, 9)) ' ELO (International) ' Spieler(i) = Daten(Spielernummer, 10) ' Name,Vorname in Großbuchstaben ' Spieler(i) = Daten(Spielernummer, 11) ' Spielberechtigung Geburt(i) = Daten(Spielernummer, 12) ' Geburt ' Spieler(i) = Daten(Spielernummer, 13) ' Woche der letzten Turnierauswertung (JJJJWW) DWZ(i) = VAL(Daten(Spielernummer, 14)) ' DWZ ' Spieler(i) = Daten(Spielernummer, 15) ' DWZ-Index Verein(i) = Daten(Spielernummer, 16) ' Vereinsname /' Vnummer(i) = Daten(Spielernummer, 1) ' Vereinsnummer Mnummer(i) = Daten(Spielernummer, 2) ' Mitgliedsnummer ' Spieler(i) = Daten(Spielernummer, 3) ' Status Spieler(i) = Daten(Spielernummer, 4) ' Spielername ' Spieler(i) = Daten(Spielernummer, 5) ' Spielername großgeschrieben Geschlecht(i) = Daten(Spielernummer, 6) ' Geschlecht ' Spieler(i) = Daten(Spielernummer, 7) ' Spielberechtigung Geburt(i) = Daten(Spielernummer, 8) ' Geburtsjahr ' Spieler(i) = Daten(Spielernummer, 9) ' letzte Auswertung DWZ(i) = VAL(Daten(Spielernummer, 10)) ' DWZ ' Spieler(i) = Daten(Spielernummer, 11) ' DWZ Index ELO(i) = VAL(Daten(Spielernummer, 12)) ' FIDE ELO Titel(i) = Daten(Spielernummer, 13) ' FIDE TITEL FIDEID(i) = Daten(Spielernummer, 14) ' FIDE ID Nation(i) = Daten(Spielernummer, 15) ' FIDE Land Verein(i) = Daten(Spielernummer, 16) ' Vereinsname '/ END IF Eingabe(0) = "" ' Eingabe löschen ANZEIGE(i) FONT " ", 4, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO löschen FONT " ", 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' NWZ löschen FONT " ", 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein löschen FONT " ", 9, 95, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Nationalität löschen FONT " ", 9, 101, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geschlecht löschen FONT " ", 14, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Fide ID löschen FONT " ", 14, 21, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' PKZ löschen FONT " ", 14, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Vereinszahl löschen FONT " ", 14, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburt löschen FONT " ", 14, 61, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Titel löschen TAZ = i ' Spieleranzahl definieren ' Teilnehmeranzahl anzeigen IF TAZ >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 i = Sortierung ' MessageBox(0, "OK", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' prüfen wie viele Spieler in der Mannschaft vorhanden sind! IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN k = 0 FOR j = 1 TO 50 IF Spieler((i*50-50)+j) <> "" THEN k+= 1 NEXT END IF ' Spielerdaten übernehmen (Mannschaftsurnier) - Entertaste IF MULTIKEY(&h1C) AND Tastensperre(5) AND Eingabe(0) <> "" AND k < 50 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Tastensperre(5) = FALSE Sortierung = s k += 1 s = k ' ELO-Zahl IF Wertungszahl(2) <> 2 THEN FIDEID((i*50-50)+s) = Daten(Spielernummer, 1) ' FIDE-ID Spieler((i*50-50)+s) = Daten(Spielernummer, 2) ' NAME Nation((i*50-50)+s) = Daten(Spielernummer, 3) ' Nation Geschlecht((i*50-50)+s) = Daten(Spielernummer, 4) ' Geschlecht Titel((i*50-50)+s) = Daten(Spielernummer, 5) ' Titel ' Spieler((i*50-50)+s) = Daten(Spielernummer, 6) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 7) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 8) ' ELO((i*50-50)+s) = VAL(Daten(Spielernummer, 9)) ' ELO ' Spieler((i*50-50)+s) = Daten(Spielernummer, 10) ' kFaktor((i*50-50)+s) = Daten(Spielernummer, 11) ' kFaktor Geburt((i*50-50)+s) = Daten(Spielernummer, 12) ' Geburt ' Spieler((i*50-50)+s) = Daten(Spielernummer, 13) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 14) ' ' Spieler((i*50-50)+s) = Daten(Spielernummer, 15) ' END IF ' DWZ-Zahl IF Wertungszahl(2) = 2 THEN FIDEID((i*50-50)+s) = Daten(Spielernummer, 1) ' FIDE-ID Spieler((i*50-50)+s) = Daten(Spielernummer, 2) ' NAME Nation((i*50-50)+s) = Daten(Spielernummer, 3) ' Nation Geschlecht((i*50-50)+s) = Daten(Spielernummer, 4) ' Geschlecht Titel((i*50-50)+s) = Daten(Spielernummer, 5) ' Titel Vnummer((i*50-50)+s) = Daten(Spielernummer, 6) ' ZPS-Nummer des Vereins Mnummer((i*50-50)+s) = Daten(Spielernummer, 7) ' Mitgliedsnummer im Verein ' Spieler((i*50-50)+s) = Daten(Spielernummer, 8) ' Status der Mitgliedschaft ELO((i*50-50)+s) = VAL(Daten(Spielernummer, 9)) ' ELO (International) ' Spieler((i*50-50)+s) = Daten(Spielernummer, 10) ' Name,Vorname in Großbuchstaben ' Spieler((i*50-50)+s) = Daten(Spielernummer, 11) ' Spielberechtigung Geburt((i*50-50)+s) = Daten(Spielernummer, 12) ' Geburt ' Spieler((i*50-50)+s) = Daten(Spielernummer, 13) ' Woche der letzten Turnierauswertung (JJJJWW) DWZ((i*50-50)+s) = VAL(Daten(Spielernummer, 14)) ' DWZ ' Spieler((i*50-50)+s) = Daten(Spielernummer, 15) ' DWZ-Index Verein((i*50-50)+s) = Daten(Spielernummer, 16) ' Vereinsname END IF Eingabe(0) = "" ' Eingabe löschen ANZEIGE(i) FONT " ", 4, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname löschen FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO löschen FONT " ", 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' NWZ löschen FONT " ", 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein löschen FONT " ", 9, 95, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Nationalität löschen FONT " ", 9, 101, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geschlecht löschen FONT " ", 14, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Fide ID löschen FONT " ", 14, 21, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' PKZ löschen FONT " ", 14, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Vereinszahl löschen FONT " ", 14, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburt löschen FONT " ", 14, 61, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Titel löschen ' Teilnehmeranzahl anzeigen IF k >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(s)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(k)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF k < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(s-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(k)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 s = Sortierung ' MessageBox(0, "OK", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF IF MULTIKEY(&h1C) THEN Tastensperre(5) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(5) = TRUE END IF IF Seite = 8 THEN 'letzten Eintrag aufrufen mit Bild-Ab-Taste IF MULTIKEY(&h51) THEN i = TAZ MENU IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) END IF ' Spieler 1 aufrufen mit Bild-Auf-Taste IF MULTIKEY(&h49) THEN i = 1 MENU IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) END IF ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(1) AND TAZ > 0 THEN Tastensperre(1) = FALSE i -= 1 IF i < 1 THEN i = 1 MENU IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(2) AND TAZ > 0 THEN Tastensperre(2) = FALSE i += 1 IF i >= TAZ THEN i = TAZ MENU IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' nach unten - Pfeiltaste nach links -24 IF MULTIKEY(&h4B) AND Tastensperre(3) AND TAZ > 0 THEN Tastensperre(3) = FALSE IF i > 1 THEN i -= 24 IF i <= 0 THEN i = 1 MENU IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +24 IF MULTIKEY(&h4D) AND Tastensperre(4) AND TAZ > 0 THEN Tastensperre(4) = FALSE IF i < TAZ THEN i += 24 IF i >= TAZ THEN i = TAZ MENU IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ+46)*153+325*(i-1)-153*(i-1))/(TAZ+46) END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE END IF ' Seite Datum und Uhrzeit IF Seite = 9 THEN ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) THEN SPEICHERN ' Datei laden - Taste L (Load/Laden) IF MULTIKEY(&h26) THEN LADEN(Combobox) MENU SCROLLBALKEN ANZEIGE(v) END IF ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(20) AND RAZ > 0 THEN Tastensperre(20) = FALSE v -= 1 IF v < 1 THEN v = 1 MENU ANZEIGE(v) IF laenge > 4 THEN Scrollbalkenposition(3) = ((RAZ+39)*112+389*(v-1)-112*(v-1))/(RAZ+39) IF laenge <= 4 THEN Scrollbalkenposition(3) = ((RAZ*112+385*v-112*v)/RAZ) SCROLLBALKEN END IF IF MULTIKEY(&h48) THEN Tastensperre(20) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(20) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(21) AND RAZ > 0 THEN Tastensperre(21) = FALSE v += 1 IF v >= RAZ THEN v = RAZ MENU ANZEIGE(v) IF laenge > 4 THEN Scrollbalkenposition(3) = ((RAZ+39)*112+389*(v-1)-112*(v-1))/(RAZ+39) IF laenge <= 4 THEN Scrollbalkenposition(3) = ((RAZ*112+385*v-112*v)/RAZ) SCROLLBALKEN END IF IF MULTIKEY(&h50) THEN Tastensperre(21) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(21) = TRUE ' nach unten - Pfeiltaste nach links -39 IF MULTIKEY(&h4B) AND Tastensperre(3) AND RAZ > 0 THEN Tastensperre(3) = FALSE IF v > 1 THEN v -= 39 IF v <= 0 THEN v = 1 ANZEIGE(v) IF laenge > 4 THEN Scrollbalkenposition(3) = ((RAZ+39)*112+389*(v-1)-112*(v-1))/(RAZ+39) IF laenge <= 4 THEN Scrollbalkenposition(3) = ((RAZ*112+385*v-112*v)/RAZ) SCROLLBALKEN END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +39 IF MULTIKEY(&h4D) AND Tastensperre(4) AND RAZ > 0 THEN Tastensperre(4) = FALSE IF v < RAZ THEN v += 39 IF v >= RAZ THEN v = RAZ ANZEIGE(v) IF laenge > 4 THEN Scrollbalkenposition(3) = ((RAZ+39)*112+389*(v-1)-112*(v-1))/(RAZ+39) IF laenge <= 4 THEN Scrollbalkenposition(3) = ((RAZ*112+385*v-112*v)/RAZ) SCROLLBALKEN END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE END IF IF Seite = 10 THEN ' nach oben - Pfeiltaste nach unten -1 IF MULTIKEY(&h48) AND Tastensperre(1) THEN Tastensperre(1) = FALSE Brett -= 1 IF Brett < 1 THEN Brett = 1 Eingabe(32) = STR(Brett) Eingabe(33) = STR(paarungen(Brett,1,Runde)) Eingabe(34) = STR(paarungen(Brett,2,Runde)) IF Paarungssystem < 3 THEN AUSLOSUNG ELSE ANZEIGE(i) ERGEBNISANZEIGE END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach oben +1 IF MULTIKEY(&h50) AND Tastensperre(2) THEN Tastensperre(2) = FALSE Brett += 1 IF Brett >= ppr(runde) THEN Brett = ppr(runde) Eingabe(32) = STR(Brett) Eingabe(33) = STR(paarungen(Brett,1,Runde)) Eingabe(34) = STR(paarungen(Brett,2,Runde)) IF Paarungssystem < 3 THEN AUSLOSUNG ELSE ANZEIGE(i) ERGEBNISANZEIGE END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE END IF IF Seite = 11 THEN ' Mannschaftsspieler löschen IF MULTIKEY(&h1D) AND MULTIKEY(&h12) AND Spieler(((i*50-50)+s)) <> "" THEN IF MessageBox(0, Sprachausgaben(136), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN IF ausgelosteRunde(1) = 0 THEN z = 0 FOR k = 1 TO 50 IF Spieler((((i)*50-50)+k)) <> "" THEN z+= 1 NEXT ' Einträge FOR k = s TO z ELO(((i*50-50)+k)) = ELO((((i)*50-50)+k)) DWZ(((i*50-50)+k)) = DWZ((((i)*50-50)+k+1)) Titel(((i*50-50)+k)) = Titel((((i)*50-50)+k+1)) Spieler(((i*50-50)+k)) = Spieler((((i)*50-50)+k+1)) Verein(((i*50-50)+k)) = Verein((((i)*50-50)+k+1)) Geburt(((i*50-50)+k)) = Geburt((((i)*50-50)+k+1)) FIDEID(((i*50-50)+k)) = FIDEID((((i)*50-50)+k+1)) Geschlecht(((i*50-50)+k)) = Geschlecht((((i)*50-50)+k+1)) Nation(((i*50-50)+k)) = Nation((((i)*50-50)+k+1)) PKZ(((i*50-50)+k)) = PKZ((((i)*50-50)+k+1)) Vnummer(((i*50-50)+k)) = Vnummer((((i)*50-50)+k+1)) Mnummer(((i*50-50)+k)) = Mnummer((((i)*50-50)+k+1)) kFaktor(((i*50-50)+k)) = kFaktor((((i)*50-50)+k+1)) NEXT ' letzten Eintrag löschen ELO(z) = 0 DWZ(z) = 0 Titel(z) = "" Spieler(z) = "" Verein(z) = "" Geburt(z) = "" FIDEID(z) = "" Geschlecht(z) = "" Nation(z) = "" PKZ(z) = "" Vnummer(z) = "" Mnummer(z) = "" kFaktor(z) = "" ANZEIGE(i) END IF IF ausgelosteRunde(1) = 1 THEN MessageBox(0, Sprachausgaben(144), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) THEN SPEICHERN ' nach oben - Pfeiltaste nach oben -1 IF MULTIKEY(&h48) AND Tastensperre(1) THEN Tastensperre(1) = FALSE s -= 1 IF s < 1 THEN s = 1 k = ((i*50-50)+s) Eingabe(29) = Spieler(k) ANZEIGE(i) END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach unten +1 IF MULTIKEY(&h50) AND Tastensperre(2) THEN Tastensperre(2) = FALSE s += 1 IF s >= 50 THEN s = 50 k = ((i*50-50)+s) Eingabe(29) = Spieler(k) ANZEIGE(i) END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' nach unten - Pfeiltaste nach links -24 IF MULTIKEY(&h4B) AND Tastensperre(3) THEN Tastensperre(3) = FALSE IF s > 1 THEN s -= 24 IF s <= 0 THEN s = 1 k = ((i*50-50)+s) Eingabe(29) = Spieler(k) ANZEIGE(i) END IF IF MULTIKEY(&h4B) THEN Tastensperre(3) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(3) = TRUE ' nach oben - Pfeiltaste nach rechts +24 IF MULTIKEY(&h4D) AND Tastensperre(4) THEN Tastensperre(4) = FALSE IF s < 50 THEN s += 24 IF s >= 50 THEN s = 50 k = ((i*50-50)+s) Eingabe(29) = Spieler(k) ANZEIGE(i) END IF IF MULTIKEY(&h4D) THEN Tastensperre(4) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(4) = TRUE END IF IF Seite = 12 THEN ' speichern - Taste S (save/speichern) IF MULTIKEY(&h1F) THEN SPEICHERN ' nach oben - Pfeiltaste nach unten -1 IF MULTIKEY(&h48) AND Tastensperre(1) THEN Tastensperre(1) = FALSE s -= 1 IF s < 1 THEN s = 1 Eingabe(32) = STR(s) Eingabe(33) = STR(Teamspieler(paarungen(Brett,1,Runde), s, Runde)) Eingabe(34) = STR(Teamspieler(paarungen(Brett,2,Runde), s, Runde)) z = 99 ANZEIGE(i) z = 0 ERGEBNISANZEIGE END IF IF MULTIKEY(&h48) THEN Tastensperre(1) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(1) = TRUE ' nach unten - Pfeiltaste nach oben +1 IF MULTIKEY(&h50) AND Tastensperre(2) THEN Tastensperre(2) = FALSE s += 1 IF s >= Bretter THEN s = Bretter Eingabe(32) = STR(s) Eingabe(33) = STR(Teamspieler(paarungen(Brett,1,Runde), s, Runde)) Eingabe(34) = STR(Teamspieler(paarungen(Brett,2,Runde), s, Runde)) z = 99 ANZEIGE(i) z = 0 ERGEBNISANZEIGE END IF IF MULTIKEY(&h50) THEN Tastensperre(2) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(2) = TRUE ' Punkte eingeben - Taste 1 - Gewinn Weiß (1-0) IF MULTIKEY(&h02) AND Tastensperre(7) THEN IF Spieler(paarungen(s,1,Runde)) <> "" AND Spieler(paarungen(s,2,Runde)) <> "" THEN Tastensperre(7) = FALSE IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "1-0" END IF IF Modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "2-0" END IF kampflose(s, Runde) = 0 ERGEBNISANZEIGE SLEEP 2000/TAZ, 1 IF s < Bretter THEN s +=1 IF Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG z = 99 ANZEIGE(i) z = 0 ERGEBNISANZEIGE END IF END IF END IF IF MULTIKEY(&h02) THEN Tastensperre(7) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(7) = TRUE ' Punkte eingeben - Taste 0 - Gewinn Schwarz (0-1) IF MULTIKEY(&h0B) AND Tastensperre(8) THEN IF Spieler(paarungen(s,1,Runde)) <> "" AND Spieler(paarungen(s,2,Runde)) <> "" THEN Tastensperre(8) = FALSE IF Modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "0-1" END IF IF Modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "0-2" END IF kampflose(s, Runde) = 0 ERGEBNISANZEIGE SLEEP 2000/TAZ, 1 IF s < Bretter THEN s +=1 IF Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG z = 99 ANZEIGE(i) z = 0 ERGEBNISANZEIGE END IF END IF END IF IF MULTIKEY(&h0B) THEN Tastensperre(8) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(8) = TRUE ' Punkte eingeben - Taste 2 - Remis (1/2:1/2) IF MULTIKEY(&h03) AND Tastensperre(9) THEN IF Spieler(paarungen(s,1,Runde)) <> "" AND Spieler(paarungen(s,2,Runde)) <> "" THEN Tastensperre(9) = FALSE IF modus = 0 THEN EinzelErgebnisse(Brett, s, Runde) = "R-R" END IF IF Modus = 1 THEN EinzelErgebnisse(Brett, s, Runde) = "1-1" END IF kampflose(s, Runde) = 0 ERGEBNISANZEIGE SLEEP 2000/TAZ, 1 IF s < Bretter THEN s +=1 IF Paarungssystem = 6 OR Paarungssystem = 7 THEN AUSLOSUNG z = 99 ANZEIGE(i) z = 0 ERGEBNISANZEIGE END IF END IF END IF IF MULTIKEY(&h03) THEN Tastensperre(9) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(9) = TRUE ' Kampflose Ergebnisse eintragen - Taste K IF MULTIKEY(&h25) AND Tastensperre(10) AND TAZ > 0 THEN IF modus = 0 AND Punkte(paarungen(s,1,Runde),Runde) <> 1 AND Punkte(paarungen(s,2,Runde),Runde) <> 1 THEN Tastensperre(10) = FALSE IF EinzelErgebnisse(Brett, s, Runde) = "1-0" THEN EinzelErgebnisse(Brett, s, Runde) = "+--" IF EinzelErgebnisse(Brett, s, Runde) = "0-1" THEN EinzelErgebnisse(Brett, s, Runde) = "--+" IF EinzelErgebnisse(Brett, s, Runde) = "0-0" THEN EinzelErgebnisse(Brett, s, Runde) = "---" IF EinzelErgebnisse(Brett, s, Runde) = "W-L" THEN EinzelErgebnisse(Brett, s, Runde) = "+--" IF EinzelErgebnisse(Brett, s, Runde) = "L-W" THEN EinzelErgebnisse(Brett, s, Runde) = "--+" ERGEBNISANZEIGE END IF IF modus = 1 AND Punkte(paarungen(s,1,Runde),Runde) <> 1 AND Punkte(paarungen(s,2,Runde),Runde) <> 1 THEN Tastensperre(10) = FALSE IF EinzelErgebnisse(Brett, s, Runde) = "2-0" THEN EinzelErgebnisse(Brett, s, Runde) = "+--" IF EinzelErgebnisse(Brett, s, Runde) = "0-2" THEN EinzelErgebnisse(Brett, s, Runde) = "--+" IF EinzelErgebnisse(Brett, s, Runde) = "1-1" THEN EinzelErgebnisse(Brett, s, Runde) = "---" IF EinzelErgebnisse(Brett, s, Runde) = "W-L" THEN EinzelErgebnisse(Brett, s, Runde) = "+--" IF EinzelErgebnisse(Brett, s, Runde) = "L-W" THEN EinzelErgebnisse(Brett, s, Runde) = "--+" ERGEBNISANZEIGE END IF END IF IF MULTIKEY(&h25) THEN Tastensperre(10) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(10) = TRUE ' Ergebnisse von Partien mit nur einem Zug eintragen - Taste U IF MULTIKEY(&h16) AND Tastensperre(22) AND TAZ > 0 THEN Tastensperre(22) = FALSE IF EinzelErgebnisse(Brett, s, Runde) = "1-0" THEN EinzelErgebnisse(Brett, s, Runde) = "W-L" IF EinzelErgebnisse(Brett, s, Runde) = "0-1" THEN EinzelErgebnisse(Brett, s, Runde) = "L-W" IF EinzelErgebnisse(Brett, s, Runde) = "R-R" THEN EinzelErgebnisse(Brett, s, Runde) = "D-D" IF EinzelErgebnisse(Brett, s, Runde) = "+--" THEN EinzelErgebnisse(Brett, s, Runde) = "W-L" IF EinzelErgebnisse(Brett, s, Runde) = "--+" THEN EinzelErgebnisse(Brett, s, Runde) = "L-W" ERGEBNISANZEIGE END IF IF MULTIKEY(&h25) THEN Tastensperre(22) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(22) = TRUE /' Punkte löschen - Taste Entf IF MULTIKEY(&h53) AND Tastensperre(16) THEN IF paarungen(Brett,1,Runde) <> 0 AND paarungen(Brett,2,Runde) <> 0 THEN Tastensperre(16) = FALSE Punkte(paarungen(Brett,1,Runde),Runde) = 2000 Punkte(paarungen(Brett,2,Runde),Runde) = 2000 IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF kampflose(Brett, Runde) = 0 IF Brett < ppr(runde) THEN Brett += 1 IF Paarungssystem < 3 THEN AUSLOSUNG ANZEIGE(i) ERGEBNISANZEIGE IF laenge > 4 THEN Scrollbalkenposition(2) = ((ppr(runde)+59)*112+502*(Brett-1)-112*(Brett-1))/(ppr(runde)+59) IF laenge <= 4 THEN Scrollbalkenposition(2) = ((ppr(runde)*112+498*Brett-112*Brett)/ppr(runde)) SCROLLBALKEN END IF END IF IF MULTIKEY(&h53) THEN Tastensperre(16) = FALSE ELSE IF mausk <> 1 THEN Tastensperre(16) = TRUE '/ END IF ' Teilnehmer aufrufen - Taste T IF MULTIKEY(&h14) THEN IF Seite <> 1 AND Seite <> 10 THEN IF Seite <> 8 AND Seite <> 9 AND Seite <> 11 THEN SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 1 MENU ANZEIGE(i) IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153 IF TAZ < 2 THEN zzz = 325: Scrollbalkenposition(1) = 153 ' ((326-153) / (1 / 24)) + 153 laenge = (zzz - 153) ' laenge = (z - 153) IF laenge < 4 THEN laenge = 4 IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) SCROLLBALKEN END IF END IF ' Paarungen aufrufen - Taste P IF MULTIKEY(&h19) THEN IF Seite <> 2 AND Seite <> 10 THEN IF Seite <> 3 AND Seite <> 4 AND Seite <> 6 AND Seite <> 12 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 2 MENU ANZEIGE(i) ERGEBNISANZEIGE SCROLLBALKEN END IF END IF ' Rangliste aufrufen - Taste R IF MULTIKEY(&h13) THEN IF Seite <> 3 AND Seite <> 10 THEN IF Seite <> 2 AND Seite <> 4 AND Seite <> 6 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 3 MENU TABELLE(1) END IF END IF ' Hilfe aufrufen - Taste H IF MULTIKEY(&h23) OR MULTIKEY(&h3B) THEN IF Seite <> 4 AND Seite <> 10 THEN IF Seite <> 2 AND Seite <> 3 AND Seite <> 6 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 4 MENU HILFE END IF ' IF Sprache = 1 OR Sprache = 5 THEN SHELL "START STOP_DE.chm" ELSE SHELL "START STOP_EN.chm" END IF ' Webseite aufrufen - Taste W IF MULTIKEY(&h11) THEN IF Seite <> 5 AND Seite <> 10 THEN SCREENRES 500, 500, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 5 Tmp(1) = "1" Tmp(2) = STR(TAZ) Tmp(3) = "1" Tmp(4) = STR(RAZ) Tmp(5) = "1" Tmp(6) = STR(TAZ) MENU END IF END IF ' Turnierinformationen aufrufen - Taste I IF MULTIKEY(&h17) THEN IF Seite <> 6 AND Seite <> 10 THEN IF Seite <> 2 AND Seite <> 3 AND Seite <> 4 THEN SCREENRES 1024, 705, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 6 SGUIFARBE MENU GadgetOn(Combobox) UpdateGadget(Combobox) END IF END IF ' Spielereingabemaske aufrufen - Taste Strg + 1 (ELO-Zahl) IF MULTIKEY(&h02) AND MULTIKEY(&h1D) THEN IF Seite <> 7 AND Seite <> 10 THEN DIM f AS INTEGER = FREEFILE SCREENRES 840, 680, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 7 Spielernummer = 1 Einleseart = 0 ' ELO Zahl Standard aktivieren PfadElo = "standard_rating_list.txt" IF Wertungszahl(2) <> 1 OR Wertungszahl(0) <> 0 THEN CHDIR EXEPATH ' Pfad setzen ' Daten einlesen und Anzahl der Daten ermitteln! OPEN PfadElo FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N IF MULTIKEY(&h01) THEN EXIT DO j += 1 LOOP CLOSE #f eingeleseneDaten = j j += 1 REDIM Daten(0 TO j, 0 TO 16) j = 0 OPEN PfadElo FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, Daten(j, 0) IF TRIM(LEFT(Daten(j, 0), 9)) <> "ID Number" THEN Daten(j, 1) = TRIM(LEFT(Daten(j, 0), 15)) ' FideID Daten(j, 2) = TRIM(MID(Daten(j, 0), 16, 60)) ' Name Daten(j, 3) = MID(Daten(j, 0), 77, 3) ' Nation Daten(j, 4) = TRIM(MID(Daten(j, 0), 81, 3)) ' Geschlecht Daten(j, 5) = TRIM(MID(Daten(j, 0), 90, 3)) ' Titel ' Daten(j, 6) = TRIM(Mid(Daten(j, 0), 95, 14)) ' weiblicher Titel ' Daten(j, 7) = TRIM(Mid(Daten(j, 0), 95, 15)) ' Organisator Titel ' Daten(j, 8) = TRIM(Mid(Daten(j, 0), 110, 3)) ' FOA Daten(j, 9) = TRIM(MID(Daten(j, 0), 114, 5)) ' ELO-Zahl ' Daten(j, 10) = TRIM(Mid(Daten(j, 0), 120, 3))' Anzahl Spiele Daten(j, 11) = TRIM(Mid(Daten(j, 0), 124, 2))' kFaktor Daten(j, 12) = TRIM(MID(Daten(j, 0), 127, 5))' Geburtsdatum ' Daten(j, 13) = TRIM(Mid(Daten(j, 0), 133, 3))' Flag END IF j += 1 LOOP CLOSE #f Wertungszahl(0) = FALSE eingeleseneDaten -= 1 END IF Wertungszahl(2) = 1 ' ELO-Zahl aktivieren MENU ANZEIGE(i) SCROLLBALKEN END IF END IF ' Spielereingabemaske aufrufen - Taste Strg + 2 (DWZ-Zahl) IF MULTIKEY(&h03) AND MULTIKEY(&h1D) THEN IF Seite <> 7 AND Seite <> 10 THEN DIM f AS INTEGER = FREEFILE SCREENRES 840, 680, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) Seite = 7 Spielernummer = 1 IF Wertungszahl(2) <> 2 OR Wertungszahl(0) <> 0 THEN CHDIR EXEPATH ' Pfad setzen ' Daten einlesen und Anzahl der Daten ermitteln! OPEN PfadNwz FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N IF MULTIKEY(&h01) THEN EXIT DO j += 1 LOOP CLOSE #f eingeleseneDaten = j REDIM Daten(0 TO j, 0 TO 16) j = 1 OPEN PfadNwz FOR INPUT AS #f DO UNTIL EOF(f) ' INPUT #f, Daten(j, 1), Daten(j, 2), Daten(j, 3), Daten(j, 4), Daten(j, 5), Daten(j, 6), Daten(j, 7), Daten(j, 8), Daten(j, 9), Daten(j, 10), Daten(j, 11), Daten(j, 12), Daten(j, 13), Daten(j, 14), Daten(j, 15), Daten(j, 16) INPUT #f, Daten(j, 6), Daten(j, 7), Daten(j, 8), Daten(j, 2), Daten(j, 10), Daten(j, 4), Daten(j, 11), Daten(j, 12), Daten(j, 13), Daten(j, 14), Daten(j, 15), Daten(j, 9), Daten(j, 5), Daten(j, 1), Daten(j, 3), Daten(j, 16) Daten(j, 10) = LCASE(Daten(j, 10)) j += 1 IF j > eingeleseneDaten THEN EXIT DO IF MULTIKEY(&h01) THEN EXIT DO LOOP CLOSE #f Wertungszahl(0) = FALSE eingeleseneDaten -= 1 END IF Wertungszahl(2) = 2 ' DWZ aktivieren MENU ANZEIGE(i) SCROLLBALKEN END IF END IF ' Datumseingabeseite aufrufen - Taste Strg + D IF MULTIKEY(&h20) AND MULTIKEY(&h1D) AND Seite <> 2 THEN IF Seite <> 9 THEN IF Seite <> 1 AND Seite <> 7 AND Seite <> 9 AND Seite <> 10 AND Seite <> 11 THEN SCREENRES 1024, 420, 32,, &h04 COLOR Hintergrundfarbe, Hintergrundfarbe SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) END IF Seite = 9 MENU ANZEIGE(v) END IF END IF ' Programmende mit ESC-Taste IF MULTIKEY(&h01) THEN DIM AS INTEGER Abfrage Abfrage = MessageBox(0, Sprachausgaben(119), Sprachausgaben(1), MB_ICONQUESTION OR MB_SYSTEMMODAL OR MB_YESNOCANCEL) IF Abfrage = 6 THEN SPEICHERN END IF ' Programmende bei Mausklick auf Ja oder Nein IF Abfrage <> 2 THEN DELETE event ' Speicher freigeben DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff END END IF CONTINUE DO END IF IF mausk < 1 THEN SLEEP 10 ' Prozessorzeit senken IF taste = CHR(27) OR taste = CHR(255, 107) THEN DIM AS INTEGER Abfrage Abfrage = MessageBox(0, Sprachausgaben(119), Sprachausgaben(1), MB_ICONQUESTION OR MB_SYSTEMMODAL OR MB_YESNOCANCEL) ' Speichern falls auf Ja geklickt wurde IF Abfrage = 6 THEN SPEICHERN END IF IF Abfrage = 6 OR Abfrage = 7 THEN EXIT DO ' Programmende bei Mausklick auf Ja oder Nein END IF IF Seite <> 5 AND Seite <> 7 THEN SCREENLOCK FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen ' FONT MID(DATE, 4, 2) + "." + LEFT(DATE, 2) + "." + RIGHT(DATE, 2), 3, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum anzeigen SCREENUNLOCK END IF ' Eingabefeld unter der ComboBox sperren IF mausX > 109 AND mausx < 459 AND mausy > 155 AND mausy < 497 THEN IF mausk = 0 THEN IF POINT(458, 176) = ComboBackgroundColor THEN ComboOpenVal = 0 END IF END IF ' Anzahl der Spieler errechnen, die ihre Startgebühr gezahlt haben k = 0 FOR j = 1 TO TAZ IF Startgebuehr(j) = 1 THEN k += 1 NEXT ' Anzahl der Spieler anzeigen, die ihre Startgebühr gezahlt haben oder nicht IF Seite = 1 THEN SCREENLOCK FONT Sprachausgaben(170) + " " + STR(TAZ-k) + " " + Sprachausgaben(8) + " ", 16, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF /' IF Seite = 1 THEN SCREENLOCK ' FONT "Offline", 5, 35, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT "Server", 5, 35, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT "Client", 5, 35, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF '/ ' LOCATE 5,5: PRINT NetzwerkString LOOP ' Speicher der ComboBox wieder freigeben DELETE event ' Server/Client beenden ' myServer.beenden ' Einstellungen speichern + Programmende DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff END SUB LAENDERKUERZEL(j AS INTEGER) DIM f AS INTEGER = FREEFILE DIM AS STRING Staaten(0 TO 203) IF j = 1 THEN IF Sprache = 1 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Deutsch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Deutsch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 2 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Englisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Englisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 3 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Französisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Französisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 4 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Spanisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Spanisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 5 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Bayrisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Bayrisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 6 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Italienisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Italienisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 7 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Portugiesisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Portugiesisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 8 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Finnisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Finnisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 9 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Dänisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Dänisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF IF Sprache = 10 THEN IF FILEEXISTS(EXEPATH + "\Länder der Erde_Schwedisch.txt") THEN OPEN EXEPATH + "\Länder der Erde_Schwedisch.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, Staaten(j) j += 1 LOOP CLOSE #f END IF END IF ' Sonderzeichen umwandeln FOR j = 1 TO 202 CharToOem Staaten(j), Staaten(j) ' OemToChar Staaten(j), Staaten(j) NEXT ' FONT " ", 21, 16, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Eingabe(11) = "---" OR Eingabe(11) = "" THEN k = 1 ' Für ComboBox IF Eingabe(11) = "AFG" THEN k = 2 IF Eingabe(11) = "AHO" THEN k = 3 IF Eingabe(11) = "ALB" THEN k = 4 IF Eingabe(11) = "ALG" THEN k = 5 IF Eingabe(11) = "AND" THEN k = 6 IF Eingabe(11) = "ANG" THEN k = 7 IF Eingabe(11) = "ANT" THEN k = 8 IF Eingabe(11) = "GEQ" THEN k = 9 IF Eingabe(11) = "ARG" THEN k = 10 IF Eingabe(11) = "ARM" THEN k = 11 IF Eingabe(11) = "ARU" THEN k = 12 IF Eingabe(11) = "AUS" THEN k = 13 IF Eingabe(11) = "AUT" THEN k = 14 IF Eingabe(11) = "AZE" THEN k = 15 IF Eingabe(11) = "BAH" THEN k = 16 IF Eingabe(11) = "BAN" THEN k = 17 IF Eingabe(11) = "BAR" THEN k = 18 IF Eingabe(11) = "BDI" THEN k = 19 IF Eingabe(11) = "BEL" THEN k = 20 IF Eingabe(11) = "BEN" THEN k = 21 IF Eingabe(11) = "BER" THEN k = 22 IF Eingabe(11) = "BHU" THEN k = 23 IF Eingabe(11) = "BIH" THEN k = 24 IF Eingabe(11) = "BIZ" THEN k = 25 IF Eingabe(11) = "BLR" THEN k = 26 IF Eingabe(11) = "BOL" THEN k = 27 IF Eingabe(11) = "BOT" THEN k = 28 IF Eingabe(11) = "BRA" THEN k = 29 IF Eingabe(11) = "BRN" THEN k = 30 IF Eingabe(11) = "BRU" THEN k = 31 IF Eingabe(11) = "BUL" THEN k = 32 IF Eingabe(11) = "BUR" THEN k = 33 IF Eingabe(11) = "CAR" THEN k = 34 IF Eingabe(11) = "CAM" THEN k = 35 IF Eingabe(11) = "CAN" THEN k = 36 IF Eingabe(11) = "CAT" THEN k = 37 IF Eingabe(11) = "CGO" THEN k = 38 IF Eingabe(11) = "CHA" THEN k = 39 IF Eingabe(11) = "CHI" THEN k = 40 IF Eingabe(11) = "CIV" THEN k = 41 IF Eingabe(11) = "CHN" THEN k = 42 IF Eingabe(11) = "CMR" THEN k = 43 IF Eingabe(11) = "COL" THEN k = 44 IF Eingabe(11) = "COM" THEN k = 45 IF Eingabe(11) = "CRC" THEN k = 46 IF Eingabe(11) = "CRO" THEN k = 47 IF Eingabe(11) = "CUB" THEN k = 48 IF Eingabe(11) = "CYP" THEN k = 49 IF Eingabe(11) = "CZE" THEN k = 50 IF Eingabe(11) = "DEN" THEN k = 51 IF Eingabe(11) = "DJI" THEN k = 52 IF Eingabe(11) = "DMA" THEN k = 53 IF Eingabe(11) = "DOM" THEN k = 54 IF Eingabe(11) = "ECU" THEN k = 55 IF Eingabe(11) = "EGY" THEN k = 56 IF Eingabe(11) = "ENG" THEN k = 57 IF Eingabe(11) = "ERI" THEN k = 58 IF Eingabe(11) = "ESA" THEN k = 59 IF Eingabe(11) = "ESP" THEN k = 60 IF Eingabe(11) = "EST" THEN k = 61 IF Eingabe(11) = "ETH" THEN k = 62 IF Eingabe(11) = "FAI" THEN k = 63 IF Eingabe(11) = "FID" THEN k = 64 IF Eingabe(11) = "FIJ" THEN k = 65 IF Eingabe(11) = "FIN" THEN k = 66 IF Eingabe(11) = "FRA" THEN k = 67 IF Eingabe(11) = "GAB" THEN k = 68 IF Eingabe(11) = "GAM" THEN k = 69 IF Eingabe(11) = "GCI" THEN k = 70 IF Eingabe(11) = "GEO" THEN k = 71 IF Eingabe(11) = "GER" THEN k = 72 IF Eingabe(11) = "GHA" THEN k = 73 IF Eingabe(11) = "GIB" THEN k = 74 IF Eingabe(11) = "GIN" THEN k = 75 IF Eingabe(11) = "GRE" THEN k = 76 IF Eingabe(11) = "GRN" THEN k = 77 IF Eingabe(11) = "GUA" THEN k = 78 IF Eingabe(11) = "GUM" THEN k = 79 IF Eingabe(11) = "GUY" THEN k = 80 IF Eingabe(11) = "HAI" THEN k = 81 IF Eingabe(11) = "HKG" THEN k = 82 IF Eingabe(11) = "HON" THEN k = 83 IF Eingabe(11) = "HUN" THEN k = 84 IF Eingabe(11) = "INA" THEN k = 85 IF Eingabe(11) = "IND" THEN k = 86 IF Eingabe(11) = "IRI" THEN k = 87 IF Eingabe(11) = "IRL" THEN k = 88 IF Eingabe(11) = "IRQ" THEN k = 89 IF Eingabe(11) = "ISL" THEN k = 90 IF Eingabe(11) = "ISR" THEN k = 91 IF Eingabe(11) = "ISV" THEN k = 92 IF Eingabe(11) = "ITA" THEN k = 93 IF Eingabe(11) = "IVB" THEN k = 94 IF Eingabe(11) = "JAM" THEN k = 95 IF Eingabe(11) = "JCI" THEN k = 96 IF Eingabe(11) = "JOR" THEN k = 97 IF Eingabe(11) = "JPN" THEN k = 98 IF Eingabe(11) = "KAZ" THEN k = 99 IF Eingabe(11) = "KEN" THEN k = 100 IF Eingabe(11) = "KGZ" THEN k = 101 IF Eingabe(11) = "KOR" THEN k = 102 IF Eingabe(11) = "KOS" THEN k = 103 IF Eingabe(11) = "KSA" THEN k = 104 IF Eingabe(11) = "KUW" THEN k = 105 IF Eingabe(11) = "LAO" THEN k = 106 IF Eingabe(11) = "LAT" THEN k = 107 IF Eingabe(11) = "LBA" THEN k = 108 IF Eingabe(11) = "LCA" THEN k = 109 IF Eingabe(11) = "LES" THEN k = 110 IF Eingabe(11) = "LBN" THEN k = 111 IF Eingabe(11) = "LIE" THEN k = 112 IF Eingabe(11) = "LTU" THEN k = 113 IF Eingabe(11) = "LUX" THEN k = 114 IF Eingabe(11) = "MAC" THEN k = 115 IF Eingabe(11) = "MAD" THEN k = 116 IF Eingabe(11) = "MAR" THEN k = 117 IF Eingabe(11) = "MAS" THEN k = 118 IF Eingabe(11) = "MAW" THEN k = 119 IF Eingabe(11) = "MDA" THEN k = 120 IF Eingabe(11) = "MDV" THEN k = 121 IF Eingabe(11) = "MEX" THEN k = 122 IF Eingabe(11) = "MGL" THEN k = 123 IF Eingabe(11) = "MKD" THEN k = 124 IF Eingabe(11) = "MLI" THEN k = 125 IF Eingabe(11) = "MLT" THEN k = 126 IF Eingabe(11) = "MNC" THEN k = 127 IF Eingabe(11) = "MNE" THEN k = 128 IF Eingabe(11) = "MOZ" THEN k = 129 IF Eingabe(11) = "MRI" THEN k = 130 IF Eingabe(11) = "MTN" THEN k = 131 IF Eingabe(11) = "MYA" THEN k = 132 IF Eingabe(11) = "NAM" THEN k = 133 IF Eingabe(11) = "NCA" THEN k = 134 IF Eingabe(11) = "NCL" THEN k = 135 IF Eingabe(11) = "NED" THEN k = 136 IF Eingabe(11) = "NEP" THEN k = 137 IF Eingabe(11) = "NGR" THEN k = 138 IF Eingabe(11) = "NOR" THEN k = 139 IF Eingabe(11) = "NZL" THEN k = 140 IF Eingabe(11) = "OMA" THEN k = 141 IF Eingabe(11) = "PAK" THEN k = 142 IF Eingabe(11) = "PAN" THEN k = 143 IF Eingabe(11) = "PAR" THEN k = 144 IF Eingabe(11) = "PER" THEN k = 145 IF Eingabe(11) = "PHI" THEN k = 146 IF Eingabe(11) = "PLE" THEN k = 147 IF Eingabe(11) = "PLW" THEN k = 148 IF Eingabe(11) = "PNG" THEN k = 149 IF Eingabe(11) = "POL" THEN k = 150 IF Eingabe(11) = "POR" THEN k = 151 IF Eingabe(11) = "PUR" THEN k = 152 IF Eingabe(11) = "QAR" THEN k = 153 IF Eingabe(11) = "ROU" THEN k = 154 IF Eingabe(11) = "RSA" THEN k = 155 IF Eingabe(11) = "RUS" THEN k = 156 IF Eingabe(11) = "RWA" THEN k = 157 IF Eingabe(11) = "SCO" THEN k = 158 IF Eingabe(11) = "SEN" THEN k = 159 IF Eingabe(11) = "SEY" THEN k = 160 IF Eingabe(11) = "SIN" THEN k = 161 IF Eingabe(11) = "SKN" THEN k = 162 IF Eingabe(11) = "SLE" THEN k = 163 IF Eingabe(11) = "SLO" THEN k = 164 IF Eingabe(11) = "SMR" THEN k = 165 IF Eingabe(11) = "SOL" THEN k = 166 IF Eingabe(11) = "SOM" THEN k = 167 IF Eingabe(11) = "SRB" THEN k = 168 IF Eingabe(11) = "SRI" THEN k = 169 IF Eingabe(11) = "SSD" THEN k = 170 IF Eingabe(11) = "STP" THEN k = 171 IF Eingabe(11) = "SUD" THEN k = 172 IF Eingabe(11) = "SUI" THEN k = 173 IF Eingabe(11) = "SUR" THEN k = 174 IF Eingabe(11) = "SVK" THEN k = 175 IF Eingabe(11) = "SWE" THEN k = 176 IF Eingabe(11) = "SWZ" THEN k = 177 IF Eingabe(11) = "SYR" THEN k = 178 IF Eingabe(11) = "TAN" THEN k = 179 IF Eingabe(11) = "THA" THEN k = 180 IF Eingabe(11) = "TkK" THEN k = 181 IF Eingabe(11) = "TKM" THEN k = 182 IF Eingabe(11) = "TLS" THEN k = 183 IF Eingabe(11) = "TOG" THEN k = 184 IF Eingabe(11) = "TPE" THEN k = 185 IF Eingabe(11) = "TTO" THEN k = 186 IF Eingabe(11) = "TUN" THEN k = 187 IF Eingabe(11) = "TUR" THEN k = 188 IF Eingabe(11) = "UAE" THEN k = 189 IF Eingabe(11) = "UGA" THEN k = 190 IF Eingabe(11) = "UKR" THEN k = 191 IF Eingabe(11) = "URU" THEN k = 192 IF Eingabe(11) = "USA" THEN k = 193 IF Eingabe(11) = "UZB" THEN k = 194 IF Eingabe(11) = "VAT" THEN k = 195 IF Eingabe(11) = "VEN" THEN k = 196 IF Eingabe(11) = "VIE" THEN k = 197 IF Eingabe(11) = "VIN" THEN k = 198 IF Eingabe(11) = "WLS" THEN k = 199 IF Eingabe(11) = "YEM" THEN k = 200 IF Eingabe(11) = "ZAM" THEN k = 201 IF Eingabe(11) = "ZIM" THEN k = 202 Tmp(13) = Staaten(k) END IF IF j = 2 THEN ' Länderkürzel definieren IF k = 1 THEN Eingabe(11) = "---" IF k = 2 THEN Eingabe(11) = "AFG" IF k = 3 THEN Eingabe(11) = "AHO" IF k = 4 THEN Eingabe(11) = "ALB" IF k = 5 THEN Eingabe(11) = "ALG" IF k = 6 THEN Eingabe(11) = "AND" IF k = 7 THEN Eingabe(11) = "ANG" IF k = 8 THEN Eingabe(11) = "ANT" IF k = 9 THEN Eingabe(11) = "GEQ" IF k = 10 THEN Eingabe(11) = "ARG" IF k = 11 THEN Eingabe(11) = "ARM" IF k = 12 THEN Eingabe(11) = "ARU" IF k = 13 THEN Eingabe(11) = "AUS" IF k = 14 THEN Eingabe(11) = "AUT" IF k = 15 THEN Eingabe(11) = "AZE" IF k = 16 THEN Eingabe(11) = "BAH" IF k = 17 THEN Eingabe(11) = "BAN" IF k = 18 THEN Eingabe(11) = "BAR" IF k = 19 THEN Eingabe(11) = "BDI" IF k = 20 THEN Eingabe(11) = "BEL" IF k = 21 THEN Eingabe(11) = "BEN" IF k = 22 THEN Eingabe(11) = "BER" IF k = 23 THEN Eingabe(11) = "BHU" IF k = 24 THEN Eingabe(11) = "BIH" IF k = 25 THEN Eingabe(11) = "BIZ" IF k = 26 THEN Eingabe(11) = "BLR" IF k = 27 THEN Eingabe(11) = "BOL" IF k = 28 THEN Eingabe(11) = "BOT" IF k = 29 THEN Eingabe(11) = "BRA" IF k = 30 THEN Eingabe(11) = "BRN" IF k = 31 THEN Eingabe(11) = "BRU" IF k = 32 THEN Eingabe(11) = "BUL" IF k = 33 THEN Eingabe(11) = "BUR" IF k = 34 THEN Eingabe(11) = "CAR" IF k = 35 THEN Eingabe(11) = "CAM" IF k = 36 THEN Eingabe(11) = "CAN" IF k = 37 THEN Eingabe(11) = "CAT" IF k = 38 THEN Eingabe(11) = "CGO" IF k = 39 THEN Eingabe(11) = "CHA" IF k = 40 THEN Eingabe(11) = "CHI" IF k = 41 THEN Eingabe(11) = "CIV" IF k = 42 THEN Eingabe(11) = "CHN" IF k = 43 THEN Eingabe(11) = "CMR" IF k = 44 THEN Eingabe(11) = "COL" IF k = 45 THEN Eingabe(11) = "COM" IF k = 46 THEN Eingabe(11) = "CRC" IF k = 47 THEN Eingabe(11) = "CRO" IF k = 48 THEN Eingabe(11) = "CUB" IF k = 49 THEN Eingabe(11) = "CYP" IF k = 50 THEN Eingabe(11) = "CZE" IF k = 51 THEN Eingabe(11) = "DEN" IF k = 52 THEN Eingabe(11) = "DJI" IF k = 53 THEN Eingabe(11) = "DMA" IF k = 54 THEN Eingabe(11) = "DOM" IF k = 55 THEN Eingabe(11) = "ECU" IF k = 56 THEN Eingabe(11) = "EGY" IF k = 57 THEN Eingabe(11) = "ENG" IF k = 58 THEN Eingabe(11) = "ERI" IF k = 59 THEN Eingabe(11) = "ESA" IF k = 60 THEN Eingabe(11) = "ESP" IF k = 61 THEN Eingabe(11) = "EST" IF k = 62 THEN Eingabe(11) = "ETH" IF k = 63 THEN Eingabe(11) = "FAI" IF k = 64 THEN Eingabe(11) = "FID" IF k = 65 THEN Eingabe(11) = "FIJ" IF k = 66 THEN Eingabe(11) = "FIN" IF k = 67 THEN Eingabe(11) = "FRA" IF k = 68 THEN Eingabe(11) = "GAB" IF k = 69 THEN Eingabe(11) = "GAM" IF k = 70 THEN Eingabe(11) = "GCI" IF k = 71 THEN Eingabe(11) = "GEO" IF k = 72 THEN Eingabe(11) = "GER" IF k = 73 THEN Eingabe(11) = "GHA" IF k = 74 THEN Eingabe(11) = "GIB" IF k = 75 THEN Eingabe(11) = "GIN" IF k = 76 THEN Eingabe(11) = "GRE" IF k = 77 THEN Eingabe(11) = "GRN" IF k = 78 THEN Eingabe(11) = "GUA" IF k = 79 THEN Eingabe(11) = "GUM" IF k = 80 THEN Eingabe(11) = "GUY" IF k = 81 THEN Eingabe(11) = "HAI" IF k = 82 THEN Eingabe(11) = "HKG" IF k = 83 THEN Eingabe(11) = "HON" IF k = 84 THEN Eingabe(11) = "HUN" IF k = 85 THEN Eingabe(11) = "INA" IF k = 86 THEN Eingabe(11) = "IND" IF k = 87 THEN Eingabe(11) = "IRI" IF k = 88 THEN Eingabe(11) = "IRL" IF k = 89 THEN Eingabe(11) = "IRQ" IF k = 90 THEN Eingabe(11) = "ISL" IF k = 91 THEN Eingabe(11) = "ISR" IF k = 92 THEN Eingabe(11) = "ISV" IF k = 93 THEN Eingabe(11) = "ITA" IF k = 94 THEN Eingabe(11) = "IVB" IF k = 95 THEN Eingabe(11) = "JAM" IF k = 96 THEN Eingabe(11) = "JCI" IF k = 97 THEN Eingabe(11) = "JOR" IF k = 98 THEN Eingabe(11) = "JPN" IF k = 99 THEN Eingabe(11) = "KAZ" IF k = 100 THEN Eingabe(11) = "KEN" IF k = 101 THEN Eingabe(11) = "KGZ" IF k = 102 THEN Eingabe(11) = "KOR" IF k = 103 THEN Eingabe(11) = "KOS" IF k = 104 THEN Eingabe(11) = "KSA" IF k = 105 THEN Eingabe(11) = "KUW" IF k = 106 THEN Eingabe(11) = "LAO" IF k = 107 THEN Eingabe(11) = "LAT" IF k = 108 THEN Eingabe(11) = "LBA" IF k = 109 THEN Eingabe(11) = "LCA" IF k = 110 THEN Eingabe(11) = "LES" IF k = 111 THEN Eingabe(11) = "LBN" IF k = 112 THEN Eingabe(11) = "LIE" IF k = 113 THEN Eingabe(11) = "LTU" IF k = 114 THEN Eingabe(11) = "LUX" IF k = 115 THEN Eingabe(11) = "MAC" IF k = 116 THEN Eingabe(11) = "MAD" IF k = 117 THEN Eingabe(11) = "MAR" IF k = 118 THEN Eingabe(11) = "MAS" IF k = 119 THEN Eingabe(11) = "MAW" IF k = 120 THEN Eingabe(11) = "MDA" IF k = 121 THEN Eingabe(11) = "MDV" IF k = 122 THEN Eingabe(11) = "MEX" IF k = 123 THEN Eingabe(11) = "MGL" IF k = 124 THEN Eingabe(11) = "MKD" IF k = 125 THEN Eingabe(11) = "MLI" IF k = 126 THEN Eingabe(11) = "MLT" IF k = 127 THEN Eingabe(11) = "MNC" IF k = 128 THEN Eingabe(11) = "MNE" IF k = 129 THEN Eingabe(11) = "MOZ" IF k = 130 THEN Eingabe(11) = "MRI" IF k = 131 THEN Eingabe(11) = "MTN" IF k = 132 THEN Eingabe(11) = "MYA" IF k = 133 THEN Eingabe(11) = "NAM" IF k = 134 THEN Eingabe(11) = "NCA" IF k = 135 THEN Eingabe(11) = "NCL" IF k = 136 THEN Eingabe(11) = "NED" IF k = 137 THEN Eingabe(11) = "NEP" IF k = 138 THEN Eingabe(11) = "NGR" IF k = 139 THEN Eingabe(11) = "NOR" IF k = 140 THEN Eingabe(11) = "NZL" IF k = 141 THEN Eingabe(11) = "OMA" IF k = 142 THEN Eingabe(11) = "PAK" IF k = 143 THEN Eingabe(11) = "PAN" IF k = 144 THEN Eingabe(11) = "PAR" IF k = 145 THEN Eingabe(11) = "PER" IF k = 146 THEN Eingabe(11) = "PHI" IF k = 147 THEN Eingabe(11) = "PLE" IF k = 148 THEN Eingabe(11) = "PLW" IF k = 149 THEN Eingabe(11) = "PNG" IF k = 150 THEN Eingabe(11) = "POL" IF k = 151 THEN Eingabe(11) = "POR" IF k = 152 THEN Eingabe(11) = "PUR" IF k = 153 THEN Eingabe(11) = "QAR" IF k = 154 THEN Eingabe(11) = "ROU" IF k = 155 THEN Eingabe(11) = "RSA" IF k = 156 THEN Eingabe(11) = "RUS" IF k = 157 THEN Eingabe(11) = "RWA" IF k = 158 THEN Eingabe(11) = "SCO" IF k = 159 THEN Eingabe(11) = "SEN" IF k = 160 THEN Eingabe(11) = "SEY" IF k = 161 THEN Eingabe(11) = "SIN" IF k = 162 THEN Eingabe(11) = "SKN" IF k = 163 THEN Eingabe(11) = "SLE" IF k = 164 THEN Eingabe(11) = "SLO" IF k = 165 THEN Eingabe(11) = "SMR" IF k = 166 THEN Eingabe(11) = "SOL" IF k = 167 THEN Eingabe(11) = "SOM" IF k = 168 THEN Eingabe(11) = "SRB" IF k = 169 THEN Eingabe(11) = "SRI" IF k = 170 THEN Eingabe(11) = "SSD" IF k = 171 THEN Eingabe(11) = "STP" IF k = 172 THEN Eingabe(11) = "SUD" IF k = 173 THEN Eingabe(11) = "SUI" IF k = 174 THEN Eingabe(11) = "SUR" IF k = 175 THEN Eingabe(11) = "SVK" IF k = 176 THEN Eingabe(11) = "SWE" IF k = 177 THEN Eingabe(11) = "SWZ" IF k = 178 THEN Eingabe(11) = "SYR" IF k = 179 THEN Eingabe(11) = "TAN" IF k = 180 THEN Eingabe(11) = "THA" IF k = 181 THEN Eingabe(11) = "TJK" IF k = 182 THEN Eingabe(11) = "TKM" IF k = 183 THEN Eingabe(11) = "TLS" IF k = 184 THEN Eingabe(11) = "TOG" IF k = 185 THEN Eingabe(11) = "TPE" IF k = 186 THEN Eingabe(11) = "TTO" IF k = 187 THEN Eingabe(11) = "TUN" IF k = 188 THEN Eingabe(11) = "TUR" IF k = 189 THEN Eingabe(11) = "UAE" IF k = 190 THEN Eingabe(11) = "UGA" IF k = 191 THEN Eingabe(11) = "UKR" IF k = 192 THEN Eingabe(11) = "URU" IF k = 193 THEN Eingabe(11) = "USA" IF k = 194 THEN Eingabe(11) = "UZB" IF k = 195 THEN Eingabe(11) = "VAT" IF k = 196 THEN Eingabe(11) = "VEN" IF k = 197 THEN Eingabe(11) = "VIE" IF k = 198 THEN Eingabe(11) = "VIN" IF k = 199 THEN Eingabe(11) = "WLS" IF k = 200 THEN Eingabe(11) = "YEM" IF k = 201 THEN Eingabe(11) = "ZAM" IF k = 202 THEN Eingabe(11) = "ZIM" END IF IF j = 3 THEN IF AAA = "---" OR AAA = "" THEN k = 1 ' Für ComboBox IF AAA = "AFG" THEN k = 2 IF AAA = "AHO" THEN k = 3 IF AAA = "ALB" THEN k = 4 IF AAA = "ALG" THEN k = 5 IF AAA = "AND" THEN k = 6 IF AAA = "ANG" THEN k = 7 IF AAA = "ANT" THEN k = 8 IF AAA = "GEQ" THEN k = 9 IF AAA = "ARG" THEN k = 10 IF AAA = "ARM" THEN k = 11 IF AAA = "ARU" THEN k = 12 IF AAA = "AUS" THEN k = 13 IF AAA = "AUT" THEN k = 14 IF AAA = "AZE" THEN k = 15 IF AAA = "BAH" THEN k = 16 IF AAA = "BAN" THEN k = 17 IF AAA = "BAR" THEN k = 18 IF AAA = "BDI" THEN k = 19 IF AAA = "BEL" THEN k = 20 IF AAA = "BEN" THEN k = 21 IF AAA = "BER" THEN k = 22 IF AAA = "BHU" THEN k = 23 IF AAA = "BIH" THEN k = 24 IF AAA = "BIZ" THEN k = 25 IF AAA = "BLR" THEN k = 26 IF AAA = "BOL" THEN k = 27 IF AAA = "BOT" THEN k = 28 IF AAA = "BRA" THEN k = 29 IF AAA = "BRN" THEN k = 30 IF AAA = "BRU" THEN k = 31 IF AAA = "BUL" THEN k = 32 IF AAA = "BUR" THEN k = 33 IF AAA = "CAR" THEN k = 34 IF AAA = "CAM" THEN k = 35 IF AAA = "CAN" THEN k = 36 IF AAA = "CAT" THEN k = 37 IF AAA = "CGO" THEN k = 38 IF AAA = "CHA" THEN k = 39 IF AAA = "CHI" THEN k = 40 IF AAA = "CIV" THEN k = 41 IF AAA = "CHN" THEN k = 42 IF AAA = "CMR" THEN k = 43 IF AAA = "COL" THEN k = 44 IF AAA = "COM" THEN k = 45 IF AAA = "CRC" THEN k = 46 IF AAA = "CRO" THEN k = 47 IF AAA = "CUB" THEN k = 48 IF AAA = "CYP" THEN k = 49 IF AAA = "CZE" THEN k = 50 IF AAA = "DEN" THEN k = 51 IF AAA = "DJI" THEN k = 52 IF AAA = "DMA" THEN k = 53 IF AAA = "DOM" THEN k = 54 IF AAA = "ECU" THEN k = 55 IF AAA = "EGY" THEN k = 56 IF AAA = "ENG" THEN k = 57 IF AAA = "ERI" THEN k = 58 IF AAA = "ESA" THEN k = 59 IF AAA = "ESP" THEN k = 60 IF AAA = "EST" THEN k = 61 IF AAA = "ETH" THEN k = 62 IF AAA = "FAI" THEN k = 63 IF AAA = "FID" THEN k = 64 IF AAA = "FIJ" THEN k = 65 IF AAA = "FIN" THEN k = 66 IF AAA = "FRA" THEN k = 67 IF AAA = "GAB" THEN k = 68 IF AAA = "GAM" THEN k = 69 IF AAA = "GCI" THEN k = 70 IF AAA = "GEO" THEN k = 71 IF AAA = "GER" THEN k = 72 IF AAA = "GHA" THEN k = 73 IF AAA = "GIB" THEN k = 74 IF AAA = "GIN" THEN k = 75 IF AAA = "GRE" THEN k = 76 IF AAA = "GRN" THEN k = 77 IF AAA = "GUA" THEN k = 78 IF AAA = "GUM" THEN k = 79 IF AAA = "GUY" THEN k = 80 IF AAA = "HAI" THEN k = 81 IF AAA = "HKG" THEN k = 82 IF AAA = "HON" THEN k = 83 IF AAA = "HUN" THEN k = 84 IF AAA = "INA" THEN k = 85 IF AAA = "IND" THEN k = 86 IF AAA = "IRI" THEN k = 87 IF AAA = "IRL" THEN k = 88 IF AAA = "IRQ" THEN k = 89 IF AAA = "ISL" THEN k = 90 IF AAA = "ISR" THEN k = 91 IF AAA = "ISV" THEN k = 92 IF AAA = "ITA" THEN k = 93 IF AAA = "IVB" THEN k = 94 IF AAA = "JAM" THEN k = 95 IF AAA = "JCI" THEN k = 96 IF AAA = "JOR" THEN k = 97 IF AAA = "JPN" THEN k = 98 IF AAA = "KAZ" THEN k = 99 IF AAA = "KEN" THEN k = 100 IF AAA = "KGZ" THEN k = 101 IF AAA = "KOR" THEN k = 102 IF AAA = "KOS" THEN k = 103 IF AAA = "KSA" THEN k = 104 IF AAA = "KUW" THEN k = 105 IF AAA = "LAO" THEN k = 106 IF AAA = "LAT" THEN k = 107 IF AAA = "LBA" THEN k = 108 IF AAA = "LCA" THEN k = 109 IF AAA = "LES" THEN k = 110 IF AAA = "LBN" THEN k = 111 IF AAA = "LIE" THEN k = 112 IF AAA = "LTU" THEN k = 113 IF AAA = "LUX" THEN k = 114 IF AAA = "MAC" THEN k = 115 IF AAA = "MAD" THEN k = 116 IF AAA = "MAR" THEN k = 117 IF AAA = "MAS" THEN k = 118 IF AAA = "MAW" THEN k = 119 IF AAA = "MDA" THEN k = 120 IF AAA = "MDV" THEN k = 121 IF AAA = "MEX" THEN k = 122 IF AAA = "MGL" THEN k = 123 IF AAA = "MKD" THEN k = 124 IF AAA = "MLI" THEN k = 125 IF AAA = "MLT" THEN k = 126 IF AAA = "MNC" THEN k = 127 IF AAA = "MNE" THEN k = 128 IF AAA = "MOZ" THEN k = 129 IF AAA = "MRI" THEN k = 130 IF AAA = "MTN" THEN k = 131 IF AAA = "MYA" THEN k = 132 IF AAA = "NAM" THEN k = 133 IF AAA = "NCA" THEN k = 134 IF AAA = "NCL" THEN k = 135 IF AAA = "NED" THEN k = 136 IF AAA = "NEP" THEN k = 137 IF AAA = "NGR" THEN k = 138 IF AAA = "NOR" THEN k = 139 IF AAA = "NZL" THEN k = 140 IF AAA = "OMA" THEN k = 141 IF AAA = "PAK" THEN k = 142 IF AAA = "PAN" THEN k = 143 IF AAA = "PAR" THEN k = 144 IF AAA = "PER" THEN k = 145 IF AAA = "PHI" THEN k = 146 IF AAA = "PLE" THEN k = 147 IF AAA = "PLW" THEN k = 148 IF AAA = "PNG" THEN k = 149 IF AAA = "POL" THEN k = 150 IF AAA = "POR" THEN k = 151 IF AAA = "PUR" THEN k = 152 IF AAA = "QAR" THEN k = 153 IF AAA = "ROU" THEN k = 154 IF AAA = "RSA" THEN k = 155 IF AAA = "RUS" THEN k = 156 IF AAA = "RWA" THEN k = 157 IF AAA = "SCO" THEN k = 158 IF AAA = "SEN" THEN k = 159 IF AAA = "SEY" THEN k = 160 IF AAA = "SIN" THEN k = 161 IF AAA = "SKN" THEN k = 162 IF AAA = "SLE" THEN k = 163 IF AAA = "SLO" THEN k = 164 IF AAA = "SMR" THEN k = 165 IF AAA = "SOL" THEN k = 166 IF AAA = "SOM" THEN k = 167 IF AAA = "SRB" THEN k = 168 IF AAA = "SRI" THEN k = 169 IF AAA = "SSD" THEN k = 170 IF AAA = "STP" THEN k = 171 IF AAA = "SUD" THEN k = 172 IF AAA = "SUI" THEN k = 173 IF AAA = "SUR" THEN k = 174 IF AAA = "SVK" THEN k = 175 IF AAA = "SWE" THEN k = 176 IF AAA = "SWZ" THEN k = 177 IF AAA = "SYR" THEN k = 178 IF AAA = "TAN" THEN k = 179 IF AAA = "THA" THEN k = 180 IF AAA = "TkK" THEN k = 181 IF AAA = "TKM" THEN k = 182 IF AAA = "TLS" THEN k = 183 IF AAA = "TOG" THEN k = 184 IF AAA = "TPE" THEN k = 185 IF AAA = "TTO" THEN k = 186 IF AAA = "TUN" THEN k = 187 IF AAA = "TUR" THEN k = 188 IF AAA = "UAE" THEN k = 189 IF AAA = "UGA" THEN k = 190 IF AAA = "UKR" THEN k = 191 IF AAA = "URU" THEN k = 192 IF AAA = "USA" THEN k = 193 IF AAA = "UZB" THEN k = 194 IF AAA = "VAT" THEN k = 195 IF AAA = "VEN" THEN k = 196 IF AAA = "VIE" THEN k = 197 IF AAA = "VIN" THEN k = 198 IF AAA = "WLS" THEN k = 199 IF AAA = "YEM" THEN k = 200 IF AAA = "ZAM" THEN k = 201 IF AAA = "ZIM" THEN k = 202 IF AAA = " -" THEN k = 203 END IF END SUB SUB ANZEIGE (i AS INTEGER) IF Seite = 1 THEN IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MANNSCHAFTSRATING ' Wertungszahl der Mannschaften errechnen SCREENLOCK IF TAZ >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ = 0 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Startgebühr bezahlt/unbezahlt anzeigen k = 0 FOR j = 152 TO 336 STEP 8 DIM AS ANY PTR Startgebuehrpuffer Startgebuehrpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\Startgebühr.ST0P", Startgebuehrpuffer) IF Startgebuehr(k+i) = 1 THEN PUT (6,j), Startgebuehrpuffer, PSET ELSE LINE (6, j)-(24, j+8), Hintergrundfarbe, BF IMAGEDESTROY(Startgebuehrpuffer) k += 1 NEXT ' Eingabeseite = 1 IF Eingabeseite = 1 THEN FONT " ", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO FONT " ", 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' DWZ FONT " ", 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' TITEL FONT " ", 9, 66, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein FONT " ", 9, 101, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburtsdatum FONT " ", 9, 114, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FIDEID END IF /' LOCATE 9, 8: PRINT " " ' Name LOCATE 9, 46: PRINT " " ' ELO LOCATE 9, 96: PRINT " " ' Nation LOCATE 9, 102: PRINT " " ' Geschlecht LOCATE 14, 8: PRINT " " ' FIDE-ID LOCATE 14, 48: PRINT " " ' Geburt LOCATE 14, 62: PRINT " " ' TITEL '/ ' ausgewählten Spieler anzeigen FONT i & ".", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FONT Spieler(i), 9, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF ELO(i) <> 0 THEN FONT LTRIM(STR(ELO(i))), 9, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF DWZ(i) <> 0 THEN FONT LTRIM(STR(DWZ(i))), 9, 53, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Titel(i) <> "" THEN FONT LTRIM(STR(Titel(i))), 9, 60, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Verein(i) <> "" THEN FONT Verein(i), 9, 66, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Geburt(i) <> "" THEN FONT Geburt(i), 9, 101, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF FIDEID(i) <> "" THEN FONT FIDEID(i), 9, 114, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Team(i), 9, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' IF TeamNation(i) <> "" THEN FONT Nation(i), 9, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF END IF ' Eingabeseite = 2 IF Eingabeseite = 2 THEN FONT " ", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 9, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Name, Vorname FONT " ", 9, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Geschlecht x FONT " ", 9, 51, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Nation x FONT " ", 9, 57, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' PKZ x FONT " ", 9, 69, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Vereinsnummer FONT " ", 9, 84, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Mitgliedsnummer FONT " ", 9, 102, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' FesteBrettnummer FONT " ", 9, 114, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Attribut FONT " ", 14, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Emailadresse FONT " ", 14, 84, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Telefonnummer ' ausgewählten Spieler anzeigen FONT i & ".", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Spieler(i), 9, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Geschlecht(i) <> "" THEN FONT Geschlecht(i), 9, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Nation(i) <> "" THEN FONT Nation(i), 9, 51, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF PKZ(i) <> "" THEN FONT PKZ(i), 9, 57, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Vnummer(i) <> "" THEN FONT Vnummer(i), 9, 69, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Mnummer(i) <> "" THEN FONT Mnummer(i), 9, 85, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF FesteBrettnummer(i) <> "" THEN FONT FesteBrettnummer(i), 9, 102, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF SpielerAttribut(i) <> "" THEN FONT SpielerAttribut(i), 9, 114, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF EMPFAENGER(i) <> "" THEN FONT EMPFAENGER(i), 14, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Telefonnummer(i) <> "" THEN FONT Telefonnummer(i), 14, 84, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF FOR k = 0 TO 23 FONT " ", k+20, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 NEXT ' 24 Teilnehmer/Spieler anzeigen IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FOR j = 0 TO 23 IF Spieler(i+j) = "" THEN EXIT FOR ' Schleife verlassen, wenn letzter Spieler aufgerufen wurde! FONT i+j & ": " & Spieler(i+j), j+ 20, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF ELO(i+j) > 0 THEN FONT LTRIM(STR(ELO(i+j))), j+20, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF DWZ(i+j) > 0 THEN FONT LTRIM(STR(DWZ(i+j))), j+20, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Titel(i+j) <> "" THEN FONT LTRIM(STR(Titel(i+j))), j+20, 72, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Nation(i+j) <> "" THEN FONT Nation(i+j), j+20, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Verein(i+j) <> "" THEN FONT Verein(i+j), j+20, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FOR j = 0 TO 23 IF Team(i+j) = "" THEN EXIT FOR ' Schleife verlassen, wenn letzter Spieler aufgerufen wurde! FONT i+j & ": " & Team(i+j), j+20, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Korrektur(i+j, 1) <> 0 THEN FONT STR(Korrektur(i+j, 1)), j+20, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Korrektur(i+j, 2) <> 0 THEN FONT STR(Korrektur(i+j, 2)), j+20, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 z = 0 FOR k = 1 TO 50 IF Spieler((((j+i)*50-50)+k)) <> "" THEN z+= 1 NEXT FONT z & "/50", j+20, 70, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' IF TeamNation(i+j) <> "" THEN FONT TeamNation(i+j), j+20, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT END IF /' Trennstriche - Teilnehmer IF TAZ < 25 THEN FOR j = 151 TO (151+(8*(TAZ-i))) STEP 8 IF SetupFarbe < 1 OR Setupfarbe > 6 THEN LINE (30, j)-(991, j), &h1A1A1A ' , ,&hFF00 IF SetupFarbe = 1 THEN LINE (30, j)-(991, j), &h0E0E87 ' , ,&hFF00 IF SetupFarbe = 2 OR SetupFarbe = 3 OR SetupFarbe = 7 THEN LINE (30, j)-(991, j), &h416953 ' , ,&hFF00 IF SetupFarbe = 4 OR SetupFarbe = 5 THEN LINE (30, j)-(991, j), &h3D6383 ' , ,&hFF00 IF SetupFarbe = 6 THEN LINE (30, j)-(991, j), &hB4B4B4 ' , ,&hFF00 NEXT ELSE FOR j = 151 TO (151+(8*(TAZ-i))) STEP 8 IF j > 343 THEN EXIT FOR IF SetupFarbe < 1 OR Setupfarbe > 6 THEN LINE (30, j)-(991, j), &h1A1A1A ' , ,&hFF00 IF SetupFarbe = 1 THEN LINE (30, j)-(991, j), &h0E0E87 ' , ,&hFF00 IF SetupFarbe = 2 OR SetupFarbe = 3 OR SetupFarbe = 7 THEN LINE (30, j)-(991, j), &h416953 ' , ,&hFF00 IF SetupFarbe = 4 OR SetupFarbe = 5 THEN LINE (30, j)-(991, j), &h3D6383 ' , ,&hFF00 IF SetupFarbe = 6 THEN LINE (30, j)-(991, j), &hB4B4B4 ' , ,&hFF00 NEXT END IF '/ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Eingabe(1) = Spieler(i) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Eingabe(1) = Team(i) ' : Eingabe(29) = Spieler(((i-1)*50)+s) IF ELO(i) <> 0 THEN Eingabe(2) = STR(ELO(i)) ELSE Eingabe(2) = "" IF DWZ(i) <> 0 THEN Eingabe(3) = STR(DWZ(i)) ELSE Eingabe(3) = "" Eingabe(4) = STR(Titel(i)) Eingabe(5) = Verein(i) Eingabe(6) = Geburt(i) Eingabe(7) = FIDEID(i) Eingabe(24) = Geschlecht(i) Eingabe(25) = Nation(i) Eingabe(26) = PKZ(i) Eingabe(27) = Vnummer(i) Eingabe(28) = Mnummer(i) Eingabe(37) = FesteBrettnummer(i) Eingabe(38) = SpielerAttribut(i) Eingabe(39) = EMPFAENGER(i) Eingabe(40) = Telefonnummer(i) SCREENUNLOCK END IF IF Seite = 2 OR Seite = 10 THEN /' DIM AS ANY PTR Abwesendpuffer Abwesendpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\X.ST0P", Abwesendpuffer) DIM AS ANY PTR HalbPunktpuffer HalbPunktpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\=.ST0P", HalbPunktpuffer) PUT (360,605), Abwesendpuffer, TRANS PUT (460,605), HalbPunktpuffer, TRANS IMAGEDESTROY(Abwesendpuffer) IMAGEDESTROY(HalbPunktpuffer) '/ /' k = 0 z = 0 FOR j = 1 TO TAZ FOR r = 1 TO RAZ IF fehlendeSpieler(j, r) = 1 THEN k += 1 IF fehlendeSpieler(j, r) = 2 THEN z += 1 NEXT NEXT '/ SCREENLOCK FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel TABELLE(4) ' wegen Anzeige der Punkte bei den Paarungen!!! ' IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF ppr(runde) < 59 THEN FOR k = 0 TO ppr(runde) ' max 59 Paarungen! j = k IF paarungen(Brett+k,1,Runde) <> 0 OR paarungen(Brett+k,2,Runde) <> 0 THEN IF Spieler(paarungen(k+Brett,1,Runde)) <> "" THEN FONT LTRIM(STR(Brett+k)) + "| " + LTRIM(STR(paarungen(k+Brett,1,Runde))) + " " + Spieler(paarungen(k+Brett,1,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,1,Runde)))) + ")", 10+k, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Spieler(paarungen(k+Brett,1,Runde)) <> "" THEN FONT " - " , 10+k, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Spieler(paarungen(k+Brett,2,Runde)) <> "" THEN FONT LTRIM(STR(paarungen(k+Brett,2,Runde))) + " " + Spieler(paarungen(k+Brett,2,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,2,Runde)))) + ")", 10+k, 86, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT ELSE FOR k = 0 TO 58 ' max 59 Paarungen! j = k ' IF Punkte(paarungen(Brett,1,Runde),Runde) <> 2000 THEN j -= 1 IF paarungen(Brett+k,1,Runde) <> 0 OR paarungen(Brett+k,2,Runde) <> 0 THEN IF Spieler(paarungen(k+Brett,1,Runde)) <> "" THEN FONT LTRIM(STR(Brett+k)) + "| " + LTRIM(STR(paarungen(k+Brett,1,Runde))) + " " + Spieler(paarungen(k+Brett,1,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,1,Runde)))) + ")", 10+j, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Spieler(paarungen(k+Brett,1,Runde)) <> "" THEN FONT " - " , 10+j, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Spieler(paarungen(k+Brett,2,Runde)) <> "" THEN FONT LTRIM(STR(paarungen(k+Brett,2,Runde))) + " " + Spieler(paarungen(k+Brett,2,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,2,Runde)))) + ")", 10+j, 86, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF ppr(runde) < 59 THEN FOR k = 0 TO ppr(runde) ' max 59 Paarungen! IF paarungen(Brett+k,1,Runde) <> 0 OR paarungen(Brett+k,2,Runde) <> 0 THEN IF Team(paarungen(k+Brett,1,Runde)) <> "" THEN FONT LTRIM(STR(Brett+k)) + "| " + LTRIM(STR(paarungen(k+Brett,1,Runde))) + " " + Team(paarungen(k+Brett,1,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,1,Runde)))) + ")", 10+k, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Team(paarungen(k+Brett,1,Runde)) <> "" THEN FONT " - " , 10+k, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Team(paarungen(k+Brett,2,Runde)) <> "" THEN FONT LTRIM(STR(paarungen(k+Brett,2,Runde))) + " " + Team(paarungen(k+Brett,2,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,2,Runde)))) + ")", 10+k, 86, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT ELSE FOR k = 0 TO 58 ' max 59 Paarungen! IF paarungen(Brett+k,1,Runde) <> 0 OR paarungen(Brett+k,2,Runde) <> 0 THEN IF Team(paarungen(k+Brett,1,Runde)) <> "" THEN FONT LTRIM(STR(Brett+k)) + "| " + LTRIM(STR(paarungen(k+Brett,1,Runde))) + " " + Team(paarungen(k+Brett,1,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,1,Runde)))) + ")", 10+k, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Team(paarungen(k+Brett,1,Runde)) <> "" THEN FONT " - " , 10+k, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Team(paarungen(k+Brett,2,Runde)) <> "" THEN FONT LTRIM(STR(paarungen(k+Brett,2,Runde))) + " " + Team(paarungen(k+Brett,2,Runde)) + " " + "(" + LTRIM(STR(Gesamtpunkte(paarungen(k+Brett,2,Runde)))) + ")", 10+k, 86, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT END IF END IF ' Trennstriche - Paarungen IF ppr(Runde) < 60 THEN FOR k = 79 TO (79+(8*(ppr(Runde)-Brett))) STEP 8 IF SetupFarbe < 1 OR Setupfarbe > 6 THEN LINE (333, k)-(1020, k), &h1A1A1A ' , ,&hFF00 IF SetupFarbe = 1 THEN LINE (333, k)-(1020, k), &h0E0E87 ' , ,&hFF00 IF SetupFarbe = 2 OR SetupFarbe = 3 OR SetupFarbe = 7 THEN LINE (333, k)-(1020, k), &h416953 ' , ,&hFF00 IF SetupFarbe = 4 OR SetupFarbe = 5 THEN LINE (333, k)-(1020, k), &h3D6383 ' , ,&hFF00 IF SetupFarbe = 6 THEN LINE (333, k)-(1020, k), &hB4B4B4 ' , ,&hFF00 NEXT ELSE FOR k = 79 TO (79+(8*(ppr(Runde)-Brett))) STEP 8 IF k > 543 THEN EXIT FOR IF SetupFarbe < 1 OR Setupfarbe > 6 THEN LINE (333, k)-(1020, k), &h1A1A1A ' , ,&hFF00 IF SetupFarbe = 1 THEN LINE (333, k)-(1020, k), &h0E0E87 ' , ,&hFF00 IF SetupFarbe = 2 OR SetupFarbe = 3 OR SetupFarbe = 7 THEN LINE (333, k)-(1020, k), &h416953 ' , ,&hFF00 IF SetupFarbe = 4 OR SetupFarbe = 5 THEN LINE (333, k)-(1020, k), &h3D6383 ' , ,&hFF00 IF SetupFarbe = 6 THEN LINE (333, k)-(1020, k), &hB4B4B4 ' , ,&hFF00 NEXT END IF '/ /' Trennstriche - Ergebnisse FOR k = 79 TO (79+(8*(ppr(Runde)-Brett))) STEP 8 IF SetupFarbe < 1 OR Setupfarbe > 6 THEN LINE (264, k)-(320, k), &h1A1A1A ' , ,&hFF00 IF SetupFarbe = 1 THEN LINE (264, k)-(320, k), &h0E0E87 ' , ,&hFF00 IF SetupFarbe = 2 OR SetupFarbe = 3 OR SetupFarbe = 7 THEN LINE (264, k)-(320, k), &h416953 ' , ,&hFF00 IF SetupFarbe = 4 OR SetupFarbe = 5 THEN LINE (264, k)-(320, k), &h3D6383 ' , ,&hFF00 IF SetupFarbe = 6 THEN LINE (264, k)-(320, k), &hB4B4B4 ' , ,&hFF00 NEXT '/ SCREENUNLOCK END IF IF Seite = 6 THEN ' Feinwertung - Buttons anzeigen (Buchholz/Forebuchholz/Sonneborn-Berger) IF Feinwertungssystem(1) = -2 OR Feinwertungssystem(1) = -3 OR Feinwertungssystem(1) = -4 OR Feinwertungssystem(1) = -5 THEN CIRCLE (494, 387), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 387), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -6 OR Feinwertungssystem(1) = -7 OR Feinwertungssystem(1) = -23 OR Feinwertungssystem(1) = -24 OR Feinwertungssystem(1) = -25 THEN CIRCLE (494, 355), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 355), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -2 OR Feinwertungssystem(2) = -3 OR Feinwertungssystem(2) = -4 OR Feinwertungssystem(2) = -5 THEN CIRCLE (684, 387), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 387), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -6 OR Feinwertungssystem(2) = -7 OR Feinwertungssystem(2) = -23 OR Feinwertungssystem(2) = -24 OR Feinwertungssystem(2) = -25 THEN CIRCLE (684, 355), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 355), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -8 OR Feinwertungssystem(1) = -9 OR Feinwertungssystem(1) = -10 OR Feinwertungssystem(1) = -11 THEN CIRCLE (494, 627), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 627), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -8 OR Feinwertungssystem(2) = -9 OR Feinwertungssystem(2) = -10 OR Feinwertungssystem(2) = -11 THEN CIRCLE (684, 627), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 627), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -12 OR Feinwertungssystem(1) = -13 OR Feinwertungssystem(1) = -14 OR Feinwertungssystem(1) = -15 THEN CIRCLE (494, 531), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 531), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -12 OR Feinwertungssystem(2) = -13 OR Feinwertungssystem(2) = -14 OR Feinwertungssystem(2) = -15 THEN CIRCLE (684, 531), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 531), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -16 OR Feinwertungssystem(1) = -17 THEN CIRCLE (494, 611), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 611), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -16 OR Feinwertungssystem(2) = -17 THEN CIRCLE (684, 611), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 611), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -18 OR Feinwertungssystem(1) = -19 OR Feinwertungssystem(1) = -20 OR Feinwertungssystem(1) = -21 OR Feinwertungssystem(1) = -22 THEN CIRCLE (494, 387), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 387), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -18 OR Feinwertungssystem(2) = -19 OR Feinwertungssystem(2) = -20 OR Feinwertungssystem(2) = -21 OR Feinwertungssystem(2) = -22 THEN CIRCLE (684, 387), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 387), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -26 OR Feinwertungssystem(1) = -27 OR Feinwertungssystem(1) = -28 OR Feinwertungssystem(1) = -29 OR Feinwertungssystem(1) = -30 THEN CIRCLE (494, 387), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 531), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -26 OR Feinwertungssystem(2) = -27 OR Feinwertungssystem(2) = -28 OR Feinwertungssystem(2) = -29 OR Feinwertungssystem(2) = -30 THEN CIRCLE (684, 387), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 531), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -31 THEN CIRCLE (494, 483), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -31 THEN CIRCLE (684, 483), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -32 THEN CIRCLE (494, 563), 3, &h00FF00,,,, F ' ELSE CIRCLE (494, 563), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -32 THEN CIRCLE (684, 563), 3, &h00FF00,,,, F ' ELSE CIRCLE (684, 563), 3, Hintergrundfarbe,,,, F ' Streichwertung anzeigen (2. Feinwertung) IF Feinwertungssystem(1) > -2 THEN FONT "--- ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) > -2 THEN FONT "--- ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -2 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -3 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -4 THEN FONT "M1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -5 THEN FONT "M2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -6 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -7 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -8 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -9 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -10 THEN FONT "M1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -11 THEN FONT "M2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -12 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -13 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -14 THEN FONT "M1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -15 THEN FONT "M2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -16 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -17 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -18 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -19 THEN FONT "C1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -20 THEN FONT "C2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -21 THEN FONT "M1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -22 THEN FONT "M2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -23 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -24 THEN FONT "C1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -25 THEN FONT "C2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -26 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -27 THEN FONT "C1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -28 THEN FONT "C2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -29 THEN FONT "M1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -30 THEN FONT "M2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -31 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -32 THEN FONT "F ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Streichwertung anzeigen (3. Feinwertung) IF Feinwertungssystem(2) = -2 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -3 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -4 THEN FONT "M1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -5 THEN FONT "M2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -6 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -7 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -8 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -9 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -10 THEN FONT "M1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -11 THEN FONT "M2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -12 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -13 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -14 THEN FONT "M1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -15 THEN FONT "M2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -16 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -17 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -18 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -19 THEN FONT "C1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -20 THEN FONT "C2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -21 THEN FONT "M1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -22 THEN FONT "M2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -23 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -24 THEN FONT "C1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -25 THEN FONT "C2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -26 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -27 THEN FONT "C1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -28 THEN FONT "C2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -29 THEN FONT "M1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -30 THEN FONT "M2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -31 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -32 THEN FONT "F ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Seite = 7 THEN SCREENLOCK ' Bildschirm löschen FOR j = 0 TO 59 FONT " ", 20+j, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT ' Daten auf dem Bildschirm anzeigen FOR j = 0 TO 58 IF (j + Spielernummer) > eingeleseneDaten THEN EXIT FOR ' FONT " ", 20+j, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' NAME ' LOCATE 20+j, 5: PRINT " " FONT Daten(j + Spielernummer, 2), 20+j, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' NAME FONT Daten(j + Spielernummer, 9), 20+j, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO ' DWZ Zahlen IF Wertungszahl(2) = 2 THEN FONT Daten(j + Spielernummer, 14), 20+j, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' DWZ FONT Daten(j + Spielernummer, 16), 20+j, 68, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein END IF ' FONT Daten(j, 9), 20+j, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' DWZ/NWZ ' FONT Daten(j, 2), 20+j, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein NEXT /' FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO FONT " ", 9, 96, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Nation FONT " ", 9, 102, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geschlecht FONT " ", 14, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FIDE-ID FONT " ", 14, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburt FONT " ", 14, 62, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' TITEL '/ LOCATE 9, 8: PRINT " " ' Name LOCATE 9, 46: PRINT " " ' ELO LOCATE 9, 53: PRINT " " ' DWZ LOCATE 9, 60: PRINT " " ' Verein LOCATE 9, 96: PRINT " " ' Nation LOCATE 9, 102: PRINT " " ' Geschlecht LOCATE 14, 8: PRINT " " ' FIDE-ID LOCATE 14, 48: PRINT " " ' Geburt LOCATE 14, 62: PRINT " " ' TITEL LOCATE 14, 33: PRINT " " ' Vereinsnummer FONT Daten(Spielernummer, 2), 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name FONT Daten(Spielernummer, 9), 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO FONT Daten(Spielernummer, 14), 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' DWZ FONT Daten(Spielernummer, 16), 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein FONT Daten(Spielernummer, 3), 9, 96, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Nation FONT Daten(Spielernummer, 4), 9, 102, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geschlecht FONT Daten(Spielernummer, 1), 14, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FIDE-ID FONT Daten(Spielernummer, 12), 14, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburt FONT Daten(Spielernummer, 5), 14, 62, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' TITEL FONT Daten(Spielernummer, 6), 14, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Vereinsnummer SCREENUNLOCK END IF IF Seite = 9 THEN SCREENLOCK ' Bildschirm löschen FONT " ", 9, 7, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 9, 14, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 9, 28, Farbe(1), Farbe(2), Farbe(3), 0, 0 FOR k = 1 TO 39 FONT " ", k+12, 7, Farbe(1), Farbe(2), Farbe(3), 0, 0 NEXT ' eingegebene Daten anzeigen IF RAZ > 0 THEN IF RAZ < 40 THEN FOR j = 0 TO RAZ-1 IF j+v > RAZ THEN EXIT FOR FONT STR(j+v), j+13, 7, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Runde FONT Datum(j+v), j+13, 14, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum FONT Uhrzeit(j+v), j+13, 28, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Uhrzeit NEXT ELSE FOR j = 0 TO 38 IF j+v > RAZ THEN EXIT FOR FONT STR(j+v), j+13, 7, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Runde FONT Datum(j+v), j+13, 14, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum FONT Uhrzeit(j+v), j+13, 28, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Uhrzeit NEXT END IF FONT STR(v), 9, 7, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Runde FONT Datum(v), 9, 14, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum FONT Uhrzeit(v), 9, 28, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Uhrzeit END IF IF RAZ < 1 THEN FONT Sprachausgaben(82) + " = 0 !!!", 6, 7, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Hinweiß SCREENUNLOCK END IF ' Eingegebene Spieler anzeigen IF Seite = 10 THEN SCREENLOCK FONT " ", 74, 34, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 83, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 92, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT STR(Brett), 74, 25, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN IF paarungen(Brett,1,Runde) <> 0 THEN FONT Spieler(paarungen(Brett,1,Runde)), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) <> 0 THEN FONT Spieler(paarungen(Brett,2,Runde)), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,1,Runde) = 0 THEN FONT Spieler(VAL(Eingabe(33))), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) = 0 THEN FONT Spieler(VAL(Eingabe(34))), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF paarungen(Brett,1,Runde) <> 0 THEN FONT Team(paarungen(Brett,1,Runde)), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) <> 0 THEN FONT Team(paarungen(Brett,2,Runde)), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,1,Runde) = 0 THEN FONT Team(VAL(Eingabe(33))), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) = 0 THEN FONT Team(VAL(Eingabe(34))), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF paarungen(Brett,1,Runde) <> 0 THEN FONT STR(paarungen(Brett,1,Runde)), 74, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) <> 0 THEN FONT STR(paarungen(Brett,2,Runde)), 74, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,1,Runde) = 0 THEN FONT Eingabe(33), 74, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) = 0 THEN FONT Eingabe(34), 74, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 SCREENUNLOCK END IF IF Seite = 11 THEN SCREENLOCK ' FONT " ", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Name, Vorname FONT " ", 9, 46, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' ELO FONT " ", 9, 53, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' DWZ FONT " ", 9, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' TITEL FONT " ", 9, 66, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Verein FONT " ", 9, 101, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Geburtsdatum FONT " ", 9, 114, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FIDEID FONT " ", 14, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Geschlecht FONT " ", 14, 12, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Nation FONT " ", 14, 18, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' PKZ FONT " ", 14, 30, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Vereinsnummer FONT " ", 14, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Mitgliedsnummer ' ausgewählten Spieler anzeigen FONT s & ".", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' j = ((i*50-50)+s) FONT Spieler(j), 9, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF ELO(j) <> 0 THEN FONT LTRIM(STR(ELO(j))), 9, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF DWZ(j) <> 0 THEN FONT LTRIM(STR(DWZ(j))), 9, 53, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Titel(j) <> "" THEN FONT LTRIM(STR(Titel(j))), 9, 60, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Verein(j) <> "" THEN FONT Verein(j), 9, 66, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Geburt(j) <> "" THEN FONT Geburt(j), 9, 101, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF FIDEID(j) <> "" THEN FONT FIDEID(j), 9, 114, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Geschlecht(j) <> "" THEN FONT Geschlecht(j), 14, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Nation(j) <> "" THEN FONT Nation(j), 14, 12, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF PKZ(j) <> "" THEN FONT PKZ(j), 14, 18, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Vnummer(j) <> "" THEN FONT Vnummer(j), 14, 30, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 IF Mnummer(j) <> "" THEN FONT Mnummer(j), 14, 46, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' FOR k = 0 TO 23 FONT " ", k+20, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF k+s <= 50 THEN FONT(k+s) & ":", k+ 20, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT ' 24 Teilnehmer/Spieler anzeigen FOR j = 0 TO 23 k = ((i*50-50)+j+s) IF a <> k THEN FONT(j+s) & ": " & Spieler(k), j+ 20, 5, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT(j+s) & ": " & Spieler(k), j+ 20, 5, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF a <> k THEN IF ELO(k) > 0 THEN FONT LTRIM(STR(ELO(k))), j+20, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF ELO(k) > 0 THEN FONT LTRIM(STR(ELO(k))), j+20, 48, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF a <> k THEN IF DWZ(k) > 0 THEN FONT LTRIM(STR(DWZ(k))), j+20, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF DWZ(k) > 0 THEN FONT LTRIM(STR(DWZ(k))), j+20, 60, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF a <> k THEN IF Titel(k) <> "" THEN FONT LTRIM(STR(Titel(k))), j+20, 72, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF Titel(k) <> "" THEN FONT LTRIM(STR(Titel(k))), j+20, 72, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF a <> k THEN IF Nation(k) <> "" THEN FONT Nation(k), j+20, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF Nation(k) <> "" THEN FONT Nation(k), j+20, 83, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF a <> k THEN IF Verein(k) <> "" THEN FONT Verein(k), j+20, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF Verein(k) <> "" THEN FONT Verein(k), j+20, 92, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 END IF IF j+s > 49 THEN EXIT FOR ' Schleife verlassen, wenn letzter Spieler aufgerufen wurde! NEXT SCREENUNLOCK END IF ' IF Seite = 12 THEN SCREENLOCK ' Spieler anzeigen FOR j = 1 TO Bretter FONT " ", j+9, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Teamspieler(paarungen(Brett,1,Runde), (j+s-1), Runde) <> 0 THEN FONT(j+s-1) & ": " & Spieler((paarungen(Brett,1,Runde)*50-50) + Teamspieler(paarungen(Brett,1,Runde),(j+s-1),Runde)), j+9, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF j+s-1 <= Bretter THEN FONT " - " , (j+9), 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Teamspieler(paarungen(Brett,2,Runde), (j+s-1), Runde) <> 0 THEN FONT Spieler((paarungen(Brett,2,Runde)*50-50) + Teamspieler(paarungen(Brett,2,Runde),(j+s-1),Runde)), j+9, 86, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Teamspieler(paarungen(Brett,1,Runde), (j+s-1), Runde) = 0 AND Teamspieler(paarungen(Brett,1,Runde), (j+s-1), Runde) = 0 AND j+s-1 <= Bretter THEN FONT(j+s-1) & ":", j+9, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT ' Spieler einer Mannschaft anzeigen IF z <> 99 THEN FOR j = 1 TO 52 IF j <> 2 THEN FONT " ", j+27, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT IF LEN(Team(paarungen(Brett,i,Runde))) < 29 THEN FONT Team(paarungen(Brett,i,Runde)), 28, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LEFT(Team(paarungen(Brett,i,Runde)),28), 28, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF FOR j = 1 TO 50 IF Spieler((paarungen(Brett,i,Runde)*50-50)+j) = "" THEN EXIT FOR IF LEN(Spieler((paarungen(Brett,i,Runde)*50-50)+j)) < 29 THEN FONT (j) & ": " & Spieler((paarungen(Brett,i,Runde)*50-50)+j), j+29, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF j < 10 THEN FONT (j) & ": " & LEFT(Spieler((paarungen(Brett,i,Runde)*50-50)+j), 28), j+29, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF j > 9 THEN FONT (j) & ": " & LEFT(Spieler((paarungen(Brett,i,Runde)*50-50)+j), 27), j+29, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT END IF ' FONT " ", 74, 34, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 83, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT " ", 74, 92, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereine anzeigen FONT paarungen(Brett,1,Runde) & ": " & Team(paarungen(Brett,1,Runde)), 63, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " - " , 63, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT paarungen(Brett,2,Runde) & ": " & Team(paarungen(Brett,2,Runde)), 63, 86, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Spielernummer anzeigen IF paarungen(Brett,1,Runde) <> 0 AND Teamspieler(paarungen(Brett,1,Runde), s, runde) <> 0 THEN FONT STR(Teamspieler(paarungen(Brett,1,Runde),s,Runde)), 74, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) <> 0 AND Teamspieler(paarungen(Brett,2,Runde), s, runde) <> 0 THEN FONT STR(Teamspieler(paarungen(Brett,2,Runde),s,Runde)), 74, 83, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Spieler anzeigen IF paarungen(Brett,1,Runde) <> 0 AND Teamspieler(paarungen(Brett,1,Runde), s, runde) <> 0 THEN FONT Spieler((paarungen(Brett,1,Runde)*50-50) + Teamspieler(paarungen(Brett,1,Runde),s,Runde)), 74, 43, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF paarungen(Brett,2,Runde) <> 0 AND Teamspieler(paarungen(Brett,2,Runde), s, runde) <> 0 THEN FONT Spieler((paarungen(Brett,2,Runde)*50-50) + Teamspieler(paarungen(Brett,2,Runde),s,Runde)), 74, 92, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 SCREENUNLOCK END IF END SUB SUB MENU CLS ' Bildschirm löschen ' DIM AS INTEGER Z SCREENLOCK ' IF Seite <> 5 AND Seite <> 7 THEN ' Schaltflächen anzeigen FELD 0, 0, 1023, 30, Hintergrundfarbe FELD 2, 2, 93, 28, Hintergrundfarbe ' Teilnehmer FELD 97, 2, 182, 28, Hintergrundfarbe ' Paarungen FELD 186, 2, 268, 28, Hintergrundfarbe ' Tabelle FELD 272, 2, 327, 28, Hintergrundfarbe ' Hilfe FELD 331, 2, 446, 28, Hintergrundfarbe ' HTML FELD 579, 2, 705, 28, Hintergrundfarbe ' Informationen FELD 483, 2, 547, 28, Hintergrundfarbe ' STOP FELD 944, 2, 1021, 28, Hintergrundfarbe ' Feld für die Uhranzeige FONT Sprachausgaben(8), 2, 2, Farbe(1), Farbe(2), Farbe(3), 1, 1 FONT Sprachausgaben(9), 2, 14, Farbe(1), Farbe(2), Farbe(3), 1, 1 FONT Sprachausgaben(10), 2, 25, Farbe(1), Farbe(2), Farbe(3), 1, 1 FONT Sprachausgaben(11), 2, 36, Farbe(1), Farbe(2), Farbe(3), 1, 1 FONT Sprachausgaben(69), 2, 43, Farbe(1), Farbe(2), Farbe(3), 1, 1 FONT Sprachausgaben(86), 2, 74, Farbe(1), Farbe(2), Farbe(3), 1, 1 IF SPRACHE = 1 THEN FONT "S T O P", 2, 62, &h555555, &hAA0000, &hFFFF55, 0, 0 IF SPRACHE = 2 THEN FONT "S T O P", 2, 62, &hFFFFFF, &hFF5555, &hFFFFFF, 0, 0 IF SPRACHE = 3 THEN FONT "S", 2, 62, &h5555FF, &h5555FF, &h0000AA, 0, 0 IF SPRACHE = 3 THEN FONT "T", 2, 64, &hFFFFFF, &hFFFFFF, &hAAAAAA, 0, 0 IF SPRACHE = 3 THEN FONT "O", 2, 66, &hFFFFFF, &hFFFFFF, &hAAAAAA, 0, 0 IF SPRACHE = 3 THEN FONT "P", 2, 68, &hFF5555, &hFF5555, &hAA0000, 0, 0 IF SPRACHE = 4 THEN FONT "S T O P", 2, 62, &hAA0000, &hFFFF55, &hAA0000, 0, 0 IF SPRACHE = 5 THEN FONT "S", 2, 62, &hFFFFFF, &h5555FF, &hFFFFFF, 0, 0 IF SPRACHE = 5 THEN FONT "T", 2, 64, &h5555FF, &hFFFFFF, &h5555FF, 0, 0 IF SPRACHE = 5 THEN FONT "O", 2, 66, &hFFFFFF, &h5555FF, &hFFFFFF, 0, 0 IF SPRACHE = 5 THEN FONT "P", 2, 68, &h5555FF, &hFFFFFF, &h5555FF, 0, 0 IF SPRACHE = 6 THEN FONT "S", 2, 62, &h00FF00, &h00FF00, &h008000, 0, 0 IF SPRACHE = 6 THEN FONT "T", 2, 64, &hFFFFFF, &hFFFFFF, &hAAAAAA, 0, 0 IF SPRACHE = 6 THEN FONT "O", 2, 66, &hFFFFFF, &hFFFFFF, &hAAAAAA, 0, 0 IF SPRACHE = 6 THEN FONT "P", 2, 68, &hFF0000, &hFF0000, &h800000, 0, 0 IF SPRACHE = 7 THEN FONT "S", 2, 62, &h00FF00, &h00FF00, &h008000, 0, 0 IF SPRACHE = 7 THEN FONT "T", 2, 64, &hFF0000, &hFF0000, &h800000, 0, 0 IF SPRACHE = 7 THEN FONT "O", 2, 66, &hFF0000, &hFF0000, &h800000, 0, 0 IF SPRACHE = 7 THEN FONT "P", 2, 68, &hFF0000, &hFF0000, &h800000, 0, 0 IF SPRACHE = 8 THEN FONT "S", 2, 62, &hFFFFFF, &h0000FF, &hFFFFFF, 0, 0 IF SPRACHE = 8 THEN FONT "T", 2, 64, &h0000FF, &h0000FF, &h000080, 0, 0 IF SPRACHE = 8 THEN FONT "O", 2, 66, &hFFFFFF, &h0000FF, &hFFFFFF, 0, 0 IF SPRACHE = 8 THEN FONT "P", 2, 68, &hFFFFFF, &h0000FF, &hFFFFFF, 0, 0 IF SPRACHE = 9 THEN FONT "S", 2, 62, &hFF0000, &hFFFFFF, &h800000, 0, 0 IF SPRACHE = 9 THEN FONT "T", 2, 64, &hFFFFFF, &hFFFFFF, &hFFFFFF, 0, 0 IF SPRACHE = 9 THEN FONT "O", 2, 66, &hFF0000, &hFFFFFF, &h800000, 0, 0 IF SPRACHE = 9 THEN FONT "P", 2, 68, &hFF0000, &hFFFFFF, &h800000, 0, 0 IF SPRACHE = 10 THEN FONT "S", 2, 62, &h0000FF, &hFFFF00, &h000080, 0, 0 IF SPRACHE = 10 THEN FONT "T", 2, 64, &hFFFF00, &hFFFF00, &hFFFF00, 0, 0 IF SPRACHE = 10 THEN FONT "O", 2, 66, &h0000FF, &hFFFF00, &h000080, 0, 0 IF SPRACHE = 10 THEN FONT "P", 2, 68, &h0000FF, &hFFFF00, &h000080, 0, 0 IF Sprache > 10 OR Sprache < 1 THEN FONT "S T O P", 2, 62, &hFFFFFF, &hFF5555, &hFFFFFF, 0, 0 END IF ' Seite Teilnehmer IF Seite = 1 THEN FELD 797, 386, 828, 406, Hintergrundfarbe ' Button Paarungen drucken ' Lupe anzeigen IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN DIM AS ANY PTR Lupepuffer Lupepuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\Lupe.ST0P", Lupepuffer) PUT (920,350), Lupepuffer, TRANS IMAGEDESTROY(Lupepuffer) DIM AS ANY PTR htmlpuffer htmlpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\Update.ST0P", htmlpuffer) PUT (878,350), htmlpuffer, TRANS IMAGEDESTROY(htmlpuffer) END IF ' Druckersymbol DIM AS ANY PTR Druckerpuffer Druckerpuffer = IMAGECREATE(29,18) BLOAD (EXEPATH & "\Drucker.ST0P", Druckerpuffer) PUT (798,388), Druckerpuffer, TRANS IMAGEDESTROY(Druckerpuffer) ' Ladensymbol ' IF FILEEXISTS(STR(Lizenz(1)) & ".lizenz") THEN DIM AS ANY PTR Ladenpuffer Ladenpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\Laden.ST0P", Ladenpuffer) PUT (960,96), Ladenpuffer, TRANS IMAGEDESTROY(Ladenpuffer) ' END IF ' Eingabefelder anzeigen IF Eingabeseite = 1 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FELD 48, 57, 350, 77, Hintergrundfarbe ' Name, Vorname FELD 355, 57, 406, 77, Hintergrundfarbe ' ELO FELD 411, 57, 462, 77, Hintergrundfarbe ' DWZ FELD 467, 57, 510, 77, Hintergrundfarbe ' Titel FELD 515, 57, 790, 77, Hintergrundfarbe ' Verein FELD 795, 57, 895, 77, Hintergrundfarbe ' Geburtsdatum FELD 900, 57, 1000, 77, Hintergrundfarbe ' FIDE-ID FELD 1003, 57, 1018, 77, Hintergrundfarbe ' erweiterte Einstellungen END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FELD 48, 57, 350, 77, Hintergrundfarbe ' Name, Vorname FELD 355, 57, 370, 77, Hintergrundfarbe ' Mannschaftsspieler ' FELD 355, 57, 406, 77, Hintergrundfarbe ' Nation ' FELD 411, 57, 462, 77, Hintergrundfarbe ' DWZ ' FELD 467, 57, 510, 77, Hintergrundfarbe ' Titel ' FELD 515, 57, 790, 77, Hintergrundfarbe ' Verein ' FELD 795, 57, 895, 77, Hintergrundfarbe ' Geburtsdatum ' FELD 900, 57, 1000, 77, Hintergrundfarbe ' FIDE-ID ' FELD 1003, 57, 1018, 77, Hintergrundfarbe ' erweiterte Einstellungen END IF END IF IF Eingabeseite = 2 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FELD 48, 57, 350, 77, Hintergrundfarbe ' Name, Vorname FELD 355, 57, 386, 77, Hintergrundfarbe ' Geschlecht FELD 391, 57, 437, 77, Hintergrundfarbe ' Nation FELD 442, 57, 530, 77, Hintergrundfarbe ' PKZ FELD 535, 57, 655, 77, Hintergrundfarbe ' Vereinsnummer FELD 660, 57, 795, 77, Hintergrundfarbe ' Mitgliedsnummer FELD 800, 57, 850, 77, Hintergrundfarbe ' feste Brettnummer FELD 355, 97, 657, 117, Hintergrundfarbe ' E-Mailadresse FELD 662, 97, 862, 117, Hintergrundfarbe ' Telefonnummer ' FELD 835, 57, 865, 77, Hintergrundfarbe ' kFaktor FELD 900, 57, 1000, 77, Hintergrundfarbe ' Attribut FELD 1003, 57, 1018, 77, Hintergrundfarbe ' erweiterte Einstellungen END IF END IF ' Buttons FELD 8, 386, 77, 406, Hintergrundfarbe ' Datei anlegen FELD 87, 386, 142, 406, Hintergrundfarbe ' Datei laden FELD 152, 386, 238, 406, Hintergrundfarbe ' Datei speichern FELD 248, 386, 380, 406, Hintergrundfarbe ' neuer Spieler FELD 390, 386, 509, 406, Hintergrundfarbe ' Spieler löschen FELD 519, 386, 629, 406, Hintergrundfarbe ' Spieler sortieren FELD 639, 386, 789, 406, Hintergrundfarbe ' Spieler aussetzen FELD 994, 130, 1014, 150, Hintergrundfarbe ' Eintrag nach oben FELD 994, 328, 1014, 348, Hintergrundfarbe ' Eintrag nach unten FELD 4, 130, 25, 348, Hintergrundfarbe ' Infobutton, wer seine Startgebühr noch nicht bezahlt hat ' Feld für Scrollbalken LINE (994,152)-(1014,152), &h555555 LINE (994,326)-(1014,326), &hFFFFFF LINE (994,152)-(994,326), &h555555 LINE (1014,152)-(1014,326), &hFFFFFF ' FELD 28, 130, 992, 348, Hintergrundfarbe ' Anzeige Teilnehmer ' Schachmodus IF Modus = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' FONT "Teilnehmer ELO DWZ Titel Verein", 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(8), 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name FONT Sprachausgaben(12), 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO FONT Sprachausgaben(13), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ FONT Sprachausgaben(14), 18, 72, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Titel FONT Sprachausgaben(132), 18, 83, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation FONT Sprachausgaben(15), 18, 92, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Sprachausgaben(8), 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereinsname FONT Sprachausgaben(12), 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO FONT Sprachausgaben(13), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ ' FONT Sprachausgaben(), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzahl der Mannschaftsspieler FONT ">", 9, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Mannschaftsspieler END IF END IF ' Mühlemodus IF Modus = 1 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' FONT "Teilnehmer ELO DWZ Titel Verein", 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(8), 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name FONT "MELO", 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' MELO FONT Sprachausgaben(13), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ FONT Sprachausgaben(14), 18, 72, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Titel FONT Sprachausgaben(132), 18, 83, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation FONT Sprachausgaben(15), 18, 92, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Sprachausgaben(8), 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereinsname FONT "MELO", 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' MELO FONT Sprachausgaben(13), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ ' FONT Sprachausgaben(), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzahl der Mannschaftsspieler FONT ">", 9, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Mannschaftsspieler END IF END IF FONT i & ".", 9, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige ausgewählter Spieler ' Einstellungen 1 IF Eingabeseite < 2 THEN ' Schachmodus IF Modus = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FONT Sprachausgaben(16), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name FONT Sprachausgaben(12), 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO FONT Sprachausgaben(13), 7, 53, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ IF Sprache <> 6 THEN FONT Sprachausgaben(14), 7, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ELSE FONT Sprachausgaben(14), 7, 59, Farbe(1), Farbe(2), Farbe(3), 0, 0' Titel FONT Sprachausgaben(15), 7, 66, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein FONT Sprachausgaben(71), 7, 101, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geburtsdatum FONT Sprachausgaben(70), 7, 114, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FIDE-ID FONT ">", 9, 127, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' erweiterte Einstellungen END IF END IF ' Mühlemodus IF Modus = 1 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FONT Sprachausgaben(16), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name FONT "MELO", 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' MELO FONT Sprachausgaben(13), 7, 53, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ IF Sprache <> 6 THEN FONT Sprachausgaben(14), 7, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ELSE FONT Sprachausgaben(14), 7, 59, Farbe(1), Farbe(2), Farbe(3), 0, 0' Titel FONT Sprachausgaben(15), 7, 66, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein FONT Sprachausgaben(71), 7, 101, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geburtsdatum FONT "WMD-ID", 7, 114, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' WMD-ID FONT ">", 9, 127, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' erweiterte Einstellungen END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Sprachausgaben(162), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereinsname ' FONT Sprachausgaben(100), 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation END IF END IF ' Einstellungen 2 IF Eingabeseite = 2 THEN FONT Sprachausgaben(16), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name FONT Sprachausgaben(99), 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geschlecht FONT Sprachausgaben(100), 7, 50, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation FONT Sprachausgaben(101), 7, 57, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' PKZ FONT Sprachausgaben(102), 7, 69, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereinsnummer FONT Sprachausgaben(103), 7, 84, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Mitgliedsnummer FONT Sprachausgaben(137), 7, 101, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' feste Brettnummer FONT Sprachausgaben(104), 7, 114, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Attribut FONT "E-Mail", 12, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' E-Mail FONT "Tel.:", 12, 84, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Telefonnummer FONT "<", 9, 127, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' erweiterte Einstellungen END IF IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FONT Sprachausgaben(17), 50, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' anlegen FONT Sprachausgaben(18), 50, 13, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' laden FONT Sprachausgaben(19), 50, 21, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' speichen FONT Sprachausgaben(20), 50, 33, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' neuer Spieler FONT Sprachausgaben(21), 50, 51, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' entfernen FONT Sprachausgaben(67), 50, 67, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' sortieren FONT Sprachausgaben(131), 50, 82, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Spieler deaktivieren END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Sprachausgaben(17), 50, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' anlegen FONT Sprachausgaben(18), 50, 13, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' laden FONT Sprachausgaben(19), 50, 21, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' speichen FONT Sprachausgaben(164), 50, 33, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' neue Mannschaft FONT Sprachausgaben(165), 50, 51, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' entfernen FONT Sprachausgaben(67), 50, 67, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' sortieren FONT Sprachausgaben(166), 50, 82, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Mannschaft deaktivieren END IF FONT CHR(30), 18, 126, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfeil nach oben FONT CHR(31), 43, 126, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfeil nach unten IF TAZ > 0 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Button für Sprachauswahl anzeigen DIM AS ANY PTR Unpuffer Unpuffer = IMAGECREATE(58,42) BLOAD (EXEPATH & "\United Nations.ST0P", Unpuffer) PUT (961,374), Unpuffer, PSET IMAGEDESTROY(Unpuffer) END IF ' Seite Paarungen IF Seite = 2 THEN IF RAZ > 0 THEN FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF RAZ < 1 THEN FONT Sprachausgaben(22) + ": " + LTRIM(STR(RAZ)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Auswahlfelder FELD 8, 563, 77, 583, Hintergrundfarbe ' Datei anlegen FELD 87, 563, 142, 583, Hintergrundfarbe ' Datei laden FELD 152, 563, 238, 583, Hintergrundfarbe ' Datei speichern FELD 8, 586, 238, 606, Hintergrundfarbe ' letzte Runde löschen FELD 8, 611, 238, 631, Hintergrundfarbe ' manuelle Paarungen FELD 829, 551, 860, 571, Hintergrundfarbe ' Paarungen drucken #IFDEF __FB_64BIT__ FELD 792, 551, 826, 569, Hintergrundfarbe ' Paarungen per E-Mail senden #ENDIF ' FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel FELD 262, 67, 322, 548, Hintergrundfarbe ' Anzeige Punktetafel FELD 332, 563, 425, 596, Hintergrundfarbe ' Auslosung /' Ergebnisauswahlfelder IF paarungssystem = 0 THEN FELD 262, 43, 323, 61, Hintergrundfarbe ' Feld 4-0 FELD 328, 43, 389, 61, Hintergrundfarbe ' Feld 3-1 FELD 394, 43, 455, 61, Hintergrundfarbe ' Feld 2-2 FELD 460, 43, 521, 61, Hintergrundfarbe ' Feld 1-3 FELD 526, 43, 587, 61, Hintergrundfarbe ' Feld 0-4 END IF '/ IF paarungssystem = 0 THEN FELD 332, 43, 369, 61, Hintergrundfarbe ' Feld 4-0 FELD 374, 43, 411, 61, Hintergrundfarbe ' Feld 3-1 FELD 416, 43, 453, 61, Hintergrundfarbe ' Feld 2-2 FELD 458, 43, 495, 61, Hintergrundfarbe ' Feld 2-2 FELD 500, 43, 537, 61, Hintergrundfarbe ' Feld 1-3 FELD 542, 43, 579, 61, Hintergrundfarbe ' Feld 0-4 ' FELD 248, 43, 285, 61, Hintergrundfarbe ' Feld ' FELD 290, 43, 327, 61, Hintergrundfarbe ' Feld 0-0 END IF FELD 6, 66, 67, 84, Hintergrundfarbe ' Feld 1-0 FELD 76, 66, 137, 84, Hintergrundfarbe ' Feld 1/2-1/2 FELD 146, 66, 207, 84, Hintergrundfarbe ' Feld 0-1 FELD 6, 89, 67, 109, Hintergrundfarbe ' Feld 1/2-0 FELD 76, 89, 137, 109, Hintergrundfarbe ' Feld 0-1/2 FELD 146, 89, 207, 109, Hintergrundfarbe ' Feld 0-0 FELD 6, 114, 67, 134, Hintergrundfarbe ' Feld +-- FELD 76, 114, 137, 134, Hintergrundfarbe ' Feld --- FELD 146, 114, 207, 134, Hintergrundfarbe ' Feld --+ FELD 6, 139, 67, 159, Hintergrundfarbe ' Feld W-L FELD 76, 139, 137, 159, Hintergrundfarbe ' Feld D-D FELD 146, 139, 207, 159, Hintergrundfarbe ' Feld L-W FELD 6, 164, 207, 184, Hintergrundfarbe ' Feld Ergebnis löschen ' Buttons zum Aufruf der Paarungen FELD 233, 89, 253, 109, Hintergrundfarbe ' Eintrag/Paarung nach oben = -1 FELD 233, 505, 253, 525, Hintergrundfarbe ' Eintrag/Paarung nach unten = +1 ' Feld für Scrollbalken LINE (233,111)-(253,111), &h555555 LINE (233,503)-(253,503), &hFFFFFF LINE (233,111)-(233,503), &h555555 LINE (253,111)-(253,503), &hFFFFFF ' Auswahlfelder für Runden FELD 668, 37, 680, 49, Hintergrundfarbe ' Feld Runde + FELD 668, 53, 680, 65, Hintergrundfarbe ' Feld Runde - ' Auswahlfeld 1. Durchgang bzw. 2. Durchgang IF Paarungssystem = 0 THEN FELD 621, 45, 633, 57, Hintergrundfarbe ' Feld 1. Durchgang FELD 637, 45, 649, 57, Hintergrundfarbe ' Feld 2. Durchgang END IF ' Brettsuche FELD 865, 551, 1021, 571, Hintergrundfarbe ' Druckersymbol DIM AS ANY PTR Druckerpuffer Druckerpuffer = IMAGECREATE(29,18) BLOAD (EXEPATH & "\Drucker.ST0P", Druckerpuffer) PUT (830,553), Druckerpuffer, TRANS IMAGEDESTROY(Druckerpuffer) #IFDEF __FB_64BIT__ ' E-Mailsymbol DIM AS ANY PTR Emailpuffer Emailpuffer = IMAGECREATE(32,15) BLOAD (EXEPATH & "\E-Mail.ST0P", Emailpuffer) PUT (793,553), Emailpuffer, TRANS IMAGEDESTROY(Emailpuffer) #ENDIF ' Makierungspfeil FONT "--->", 10, 29, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfeile für Buttons FONT CHR(30), 13, 31, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT CHR(31), 65, 31, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' mögliche Ergebnisse - Schachmodus IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Modus = 0 THEN IF paarungssystem = 0 THEN ' FONT "0 0", 7, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT "0 1", 7, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "2-0", 7, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 2-0 FONT "1½-½", 7, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 1½-½ FONT "½", 7, 55, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 1-1 (½/½) FONT "1-1", 7, 59, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 1-1 (1/0) FONT "½-1½", 7, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ½-1½ FONT "0-2", 7, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 0-2 END IF FONT "1-0", 10, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "½-½", 10, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-1", 10, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "½-0", 13, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-½", 13, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-0", 13, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+--", 16, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "---", 16, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "--+", 16, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1U-0U", 19, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "½U-½U", 19, 12, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0U-1U", 19, 21, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' mögliche Ergebnisse - Mühlemodus IF Modus = 1 THEN IF paarungssystem = 0 THEN ' FONT "0 0", 7, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT "0 2", 7, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "4-0", 7, 43, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 4-0 FONT "3-1", 7, 49, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 3-1 FONT "2-2", 7, 54, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 2-2 FONT "2-2", 7, 59, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 2-2 FONT "1-3", 7, 65, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 1-3 FONT "0-4", 7, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 0-4 LINE(464,56)-(469,56), Farbe(1) ' Unterstrich für 2-2 LINE(480,56)-(485,56), Farbe(1) ' Unterstrich für 2-2 END IF FONT "2-0", 10, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1-1", 10, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-2", 10, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1-0", 13, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-1", 13, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-0", 13, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+--", 16, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "---", 16, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "--+", 16, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "2U-0U", 19, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1U-1U", 19, 12, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0U-2U", 19, 21, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF FONT Sprachausgaben(23), 22, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Sprachausgaben(167), 22, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Runden auswählen FONT "+", 6, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "-", 8, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Durchgänge auswählen IF Paarungssystem = 0 THEN FONT "1", 7, 79, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "2", 7, 81, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Brettnummer FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Auslosung FONT Sprachausgaben(24), 72, 43, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' letzte Runde löschen FONT Sprachausgaben(143), 75, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' manuelle Paarungen FONT Sprachausgaben(142), 78, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Buttons FONT Sprachausgaben(17), 72, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' anlegen FONT Sprachausgaben(18), 72, 13, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' laden FONT Sprachausgaben(19), 72, 21, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' speichern END IF ' Seite Rangliste IF Seite = 3 THEN ' Eingabefelder anzeigen FELD 3, 57, 43, 635, Hintergrundfarbe ' Platz FELD 48, 57, 340, 635, Hintergrundfarbe ' Name, Vorname FELD 345, 57, 390, 635, Hintergrundfarbe ' ELO FELD 395, 57, 440, 635, Hintergrundfarbe ' DWZ FELD 445, 57, 490, 635, Hintergrundfarbe ' Titel FELD 495, 57, 600, 635, Hintergrundfarbe ' Punkte IF Feinwertungssystem(1) <> 1 THEN FELD 605, 57, 710, 635, Hintergrundfarbe ' Feinwertung 1 IF Feinwertungssystem(2) <> 1 THEN FELD 715, 57, 820, 635, Hintergrundfarbe ' Feinwertung 2 ' Auswahlfelder für Runden FELD 268, 37, 280, 49, Hintergrundfarbe ' Feld Runde + FELD 252, 37, 264, 49, Hintergrundfarbe ' Feld Runde - FONT Sprachausgaben(25), 7, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(8), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Modus = 0 THEN FONT Sprachausgaben(12), 7, 45, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Modus = 1 THEN FONT "MELO", 7, 45, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(13), 7, 51, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(14), 7, 57, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem <> 9 THEN FONT Sprachausgaben(26), 7, 63, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Paarungssystem = 9 THEN FONT "KO", 7, 63, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' zweite Feinwertung IF Feinwertungssystem(1) = 2 THEN FONT Sprachausgaben(94), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 3 THEN FONT Sprachausgaben(95), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 4 THEN FONT Sprachausgaben(96), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 5 THEN FONT Sprachausgaben(97), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 6 THEN FONT Sprachausgaben(160), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 7 THEN FONT Sprachausgaben(161), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 8 THEN FONT Sprachausgaben(169), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 9 THEN FONT Sprachausgaben(173), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 10 THEN FONT Sprachausgaben(225), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 11 THEN FONT Sprachausgaben(231), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 12 THEN FONT Sprachausgaben(233), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 13 THEN FONT Sprachausgaben(235), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 14 THEN FONT Sprachausgaben(237), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 15 THEN FONT Sprachausgaben(239), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 17 THEN FONT Sprachausgaben(243), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 18 THEN FONT Sprachausgaben(245), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 19 THEN FONT "Forebuchh", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 28 THEN FONT Sprachausgaben(264), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 29 THEN FONT Sprachausgaben(265), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 30 THEN FONT Sprachausgaben(266), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = 31 THEN FONT Sprachausgaben(267), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -2 THEN FONT Sprachausgaben(96)+"-C1", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -3 THEN FONT Sprachausgaben(96)+"-C2", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -4 THEN FONT Sprachausgaben(96)+"-M1", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -5 THEN FONT Sprachausgaben(96)+"-M2", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -6 THEN FONT Sprachausgaben(94)+"-C1", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -7 THEN FONT Sprachausgaben(94)+"-C2", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -8 THEN FONT "FB-C1", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -9 THEN FONT "FB-C2", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -10 THEN FONT "FB-M1", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -11 THEN FONT "FB-M2", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -12 THEN FONT Sprachausgaben(235)+"-C1 ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -13 THEN FONT Sprachausgaben(235)+"-C2 ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -14 THEN FONT Sprachausgaben(235)+"-M1 ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -15 THEN FONT Sprachausgaben(235)+"-M2 ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -16 THEN FONT Sprachausgaben(245)+"-C1 ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -17 THEN FONT Sprachausgaben(245)+"-C2 ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(1) = -18 THEN FONT Sprachausgaben(96)+"/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz/P IF Feinwertungssystem(1) = -19 THEN FONT Sprachausgaben(96)+"-C1/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Cut 1/P IF Feinwertungssystem(1) = -20 THEN FONT Sprachausgaben(96)+"-C2/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Cut 2/P IF Feinwertungssystem(1) = -21 THEN FONT Sprachausgaben(96)+"-M1/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Medium 1/P IF Feinwertungssystem(1) = -22 THEN FONT Sprachausgaben(96)+"-M2/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Medium 2/P IF Feinwertungssystem(1) = -23 THEN FONT Sprachausgaben(94)+"/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Sonneborn-Berger/P IF Feinwertungssystem(1) = -24 THEN FONT Sprachausgaben(94)+"-C1/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Sonneborn-Berger Cut 1/P IF Feinwertungssystem(1) = -25 THEN FONT Sprachausgaben(94)+"-C2/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Sonneborn-Berger Cut 2/P IF Feinwertungssystem(1) = -26 THEN FONT "FB/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz/P IF Feinwertungssystem(1) = -27 THEN FONT "FB-C1/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Cut 1/P IF Feinwertungssystem(1) = -28 THEN FONT "FB-C2/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Cut 2/P IF Feinwertungssystem(1) = -29 THEN FONT "FB-M1/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Medium 1/P IF Feinwertungssystem(1) = -30 THEN FONT "FB-M2/P", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Medium 2/P IF Feinwertungssystem(1) = -31 THEN FONT Sprachausgaben(225)+"/P ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Direkter Vergleich/P IF Feinwertungssystem(1) = -32 THEN FONT Sprachausgaben(239)+"/F ", 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' AOB/F IF Feinwertungssystem(1) = 23 THEN FONT Sprachausgaben(241), 7, 77, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' dritte Feinwertung IF Feinwertungssystem(2) = 2 THEN FONT Sprachausgaben(94), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 3 THEN FONT Sprachausgaben(95), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 4 THEN FONT Sprachausgaben(96), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 5 THEN FONT Sprachausgaben(97), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 6 THEN FONT Sprachausgaben(160), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 7 THEN FONT Sprachausgaben(161), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 8 THEN FONT Sprachausgaben(169), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 9 THEN FONT Sprachausgaben(173), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 10 THEN FONT Sprachausgaben(225), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 11 THEN FONT Sprachausgaben(231), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 12 THEN FONT Sprachausgaben(233), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 13 THEN FONT Sprachausgaben(235), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 14 THEN FONT Sprachausgaben(237), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 15 THEN FONT Sprachausgaben(239), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 17 THEN FONT Sprachausgaben(243), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 18 THEN FONT Sprachausgaben(245), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 19 THEN FONT "Forebuchh", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 28 THEN FONT Sprachausgaben(264), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 29 THEN FONT Sprachausgaben(265), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 30 THEN FONT Sprachausgaben(266), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = 31 THEN FONT Sprachausgaben(267), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -2 THEN FONT Sprachausgaben(96)+"-C1", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -3 THEN FONT Sprachausgaben(96)+"-C2", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -4 THEN FONT Sprachausgaben(96)+"-M1", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -5 THEN FONT Sprachausgaben(96)+"-M2", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -6 THEN FONT Sprachausgaben(94)+"-C1", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -7 THEN FONT Sprachausgaben(94)+"-C2", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -8 THEN FONT "FB-C1", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -9 THEN FONT "FB-C2", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -10 THEN FONT "FB-M1", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -11 THEN FONT "FB-M2", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -12 THEN FONT Sprachausgaben(235)+"-C1 ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -13 THEN FONT Sprachausgaben(235)+"-C2 ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -14 THEN FONT Sprachausgaben(235)+"-M1 ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -15 THEN FONT Sprachausgaben(235)+"-M2 ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -16 THEN FONT Sprachausgaben(245)+"-C1 ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -17 THEN FONT Sprachausgaben(245)+"-C2 ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Feinwertungssystem(2) = -18 THEN FONT Sprachausgaben(96)+"/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz/P IF Feinwertungssystem(2) = -19 THEN FONT Sprachausgaben(96)+"-C1/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Cut 1/P IF Feinwertungssystem(2) = -20 THEN FONT Sprachausgaben(96)+"-C2/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Cut 2/P IF Feinwertungssystem(2) = -21 THEN FONT Sprachausgaben(96)+"-M1/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Medium 1/P IF Feinwertungssystem(2) = -22 THEN FONT Sprachausgaben(96)+"-M2/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Buchholz Medium 2/P IF Feinwertungssystem(2) = -23 THEN FONT Sprachausgaben(94)+"/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Sonneborn-Berger/P IF Feinwertungssystem(2) = -24 THEN FONT Sprachausgaben(94)+"-C1/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Sonneborn-Berger Cut 1/P IF Feinwertungssystem(2) = -25 THEN FONT Sprachausgaben(94)+"-C2/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Sonneborn-Berger Cut 2/P IF Feinwertungssystem(2) = -26 THEN FONT "FB/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz/P IF Feinwertungssystem(2) = -27 THEN FONT "FB-C1/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Cut 1/P IF Feinwertungssystem(2) = -28 THEN FONT "FB-C2/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Cut 2/P IF Feinwertungssystem(2) = -29 THEN FONT "FB-M1/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Medium 1/P IF Feinwertungssystem(2) = -30 THEN FONT "FB-M2/P", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Forebuchholz Medium 2/P IF Feinwertungssystem(2) = -31 THEN FONT Sprachausgaben(225)+"/P ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Direkter Vergleich/P IF Feinwertungssystem(2) = -32 THEN FONT Sprachausgaben(239)+"/F ", 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' AOB/F IF Feinwertungssystem(2) = 23 THEN FONT Sprachausgaben(241), 7, 91, Farbe(1), Farbe(2), Farbe(3), 0, 0 '/ ' Runden auswählen FONT "+", 6, 35, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "-", 6, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(64) + ": " + LTRIM(STR(Runde)), 5, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Seite HTML/TRF-Datei IF Seite = 5 THEN ' Runde = RAZ ' Grafik anzeigen DIM AS ANY PTR htmlpuffer htmlpuffer = IMAGECREATE(123,58) BLOAD (EXEPATH & "\html.bmp", htmlpuffer) PUT (188.5,4), htmlpuffer, PSET IMAGEDESTROY(htmlpuffer) CHDIR EXEPATH ' Pfad setzen ' FELD 6, 89, 137, 109, Hintergrundfarbe ' html Teilnehmer FELD 6, 113, 137, 133, Hintergrundfarbe ' html Paarungsliste FELD 6, 137, 137, 157, Hintergrundfarbe ' html Rangliste FELD 320, 113, 481, 133, Hintergrundfarbe ' html Kreuztabelle FELD 320, 137, 481, 157, Hintergrundfarbe ' html Fortschrittstabelle FELD 187, 473, 318, 493, Hintergrundfarbe ' zurück-Button FELD 145, 89, 195, 109, Hintergrundfarbe ' Eingabefeld "html Teilnehmer" von FELD 210, 89, 260, 109, Hintergrundfarbe ' Eingabefeld "html Teilnehmer" bis FELD 145, 113, 195, 133, Hintergrundfarbe ' Eingabefeld "html Paarungsliste" von FELD 210, 113, 260, 133, Hintergrundfarbe ' Eingabefeld "html Paarungsliste" bis FELD 145, 137, 195, 157, Hintergrundfarbe ' Eingabefeld "html Rangliste" von FELD 210, 137, 260, 157, Hintergrundfarbe ' Eingabefeld "html Rangliste" bis FELD 145, 185, 230, 205, Hintergrundfarbe ' Feld "TRF" von bis FELD 145, 209, 230, 229, Hintergrundfarbe ' Feld "DWZ" von bis FELD 145, 233, 230, 253, Hintergrundfarbe ' Feld "FLRESU" von bis FELD 270, 89, 301, 109, Hintergrundfarbe ' Feld Drucker (Teilnehmer) FELD 270, 113, 301, 133, Hintergrundfarbe ' Feld Drucker (Paarungsliste) FELD 270, 137, 301, 157, Hintergrundfarbe ' Feld Drucker (Rangliste) FELD 6, 281, 306, 301, Hintergrundfarbe ' IT1-Formular FELD 6, 305, 306, 325, Hintergrundfarbe ' IT3-Formular FELD 6, 329, 56, 349, Hintergrundfarbe ' IA1-Formular FELD 6, 353, 56, 373, Hintergrundfarbe ' FA1-Formular FELD 6, 185, 137, 205, Hintergrundfarbe ' TRF-Datei FELD 6, 209, 137, 229, Hintergrundfarbe ' DWZ-Datei FELD 6, 233, 137, 253, Hintergrundfarbe ' Datei zur Auswertung der Führungsliste (Schweiz) FELD 390, 409, 490, 429, Hintergrundfarbe ' Button zum erstellen der Datei für Vesus - Ergebnisserver FONT "Vesus.org", 53, 51, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vesus FONT Sprachausgaben(178), 16, 42, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Kreuztabelle FONT Sprachausgaben(179), 19, 42, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Fortschrittstabelle ' FONT "Fortschrittstabelle", 19, 42, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Fortschrittstabelle FONT STR(Tmp(1)), 13, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT STR(Tmp(2)), 13, 28, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT STR(Tmp(3)), 16, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT STR(Tmp(4)), 16, 28, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT STR(Tmp(5)), 19, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT STR(Tmp(6)), 19, 28, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1 - " + STR(Runde), 25, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der aktuellen Runde von 1 - xx (TRF-Datei) FONT "1 - " + STR(Runde), 28, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der aktuellen Runde von 1 - xx (DWZ-Datei) FONT "1 - " + STR(Runde), 31, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der aktuellen Runde von 1 - xx (FLRESU-Datei) FOR j = 13 TO 19 STEP 3 FONT "-", j, 26, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Trennstrich NEXT FONT Sprachausgaben(22) + ": " + STR(Runde), 10, 2, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Wortes: Runde mit der aktuellen Rundenzahl FONT Sprachausgaben(5), 11, 20, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' von FONT Sprachausgaben(158), 11, 28, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' bis FONT Sprachausgaben(8), 13, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(9), 16, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(10), 19, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(105), 25, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "Certificate of Title Result (IT1)", 37, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "Tournament Report Form (IT3)", 40, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "IA1", 43, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "FA1", 46, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "DeWIS (GER)", 28, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "FLRESU (SUI)", 31, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "OK", 61, 32, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "TRF16", 25, 31, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' TRF16 FONT "TRF26", 25, 39, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' TRF 2026 ' Auswahl von TRF16 oder TRF 2026 CIRCLE (287, 195), 5, &hFFFFFF ' TRF16 CIRCLE (351, 195), 5, &hFFFFFF ' TRF 2026 IF TRFMODE = 0 THEN CIRCLE (287, 195), 3, &h00FF00,,,, F ELSE CIRCLE (351, 195), 3, &h00FF00,,,, F ' IT1-Button durchstreichen - inaktiv machen LINE(9, 291)-(303, 291), Farbe(1) LINE(9, 292)-(303, 292), Farbe(1) LINE(9, 293)-(303, 293), Farbe(1) ' DIM AS ANY PTR Druckerpuffer Druckerpuffer = IMAGECREATE(29,18) BLOAD (EXEPATH & "\Drucker.ST0P", Druckerpuffer) PUT (271,91), Druckerpuffer, TRANS PUT (271,115), Druckerpuffer, TRANS PUT (271,139), Druckerpuffer, TRANS IMAGEDESTROY(Druckerpuffer) END IF ' Seite Info Turnier IF Seite = 6 THEN ' Eingabefelder anzeigen FELD 48, 153, 100, 173, Hintergrundfarbe ' FIDE-Länder-Code FELD 497, 57, 597, 77, Hintergrundfarbe ' Datum Start FELD 497, 105, 597, 125, Hintergrundfarbe ' Datum Ende FELD 497, 137, 517, 157, Hintergrundfarbe ' Halb-Bye FELD 622, 57, 1007, 77, Hintergrundfarbe ' PFAD ELO FELD 622, 105, 1007, 125, Hintergrundfarbe ' PFAD NWZ FELD 817, 226, 867, 246, Hintergrundfarbe ' Rundenanzahl FELD 872, 375, 1005, 423, Hintergrundfarbe ' Rahmen Feinwertungsregel FELD 497, 305, 537, 325, Hintergrundfarbe ' Rahmen Streichwertungen 1 FELD 689, 305, 729, 325, Hintergrundfarbe ' Rahmen Streichwertungen 2 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FELD 817, 178, 847, 198, Hintergrundfarbe ' Anzahl der Bretter bei einem Mannschaftsturnier ' Auswahlfelder für Runden FELD 876, 230, 888, 242, Hintergrundfarbe ' Feld Runde + FELD 892, 230, 904, 242, Hintergrundfarbe ' Feld Runde - ' Auswahlfelder für Streichwertungen FELD 548, 309, 560, 321, Hintergrundfarbe ' Feld Streichwertung 1 - FELD 565, 309, 577, 321, Hintergrundfarbe ' Feld Streichwertung 1 + FELD 740, 309, 752, 321, Hintergrundfarbe ' Feld Streichwertung 2 - FELD 757, 309, 769, 321, Hintergrundfarbe ' Feld Streichwertung 2 + ' Auswahlfelder für Koya Limit FELD 546, 428, 640, 443, Hintergrundfarbe ' Feinwertung 1 FELD 738, 428, 832, 443, Hintergrundfarbe ' Feinwertung 2 ' Feld Grundzustand (Runde 0) IF ausgelosteRunde(1) = 1 THEN FELD 85, 616, 470, 636, Hintergrundfarbe ' Grundzustand (Runde 0) ' Eingabefelder anzeigen FOR j = 57 TO 585 STEP 48 IF j < 153 OR j > 173 THEN FELD 48, j, 470, j+20, Hintergrundfarbe NEXT k = 7 FOR j = 72 TO 78 FONT Sprachausgaben(j), k, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' restliche Eingabefelder k += 6 NEXT FOR j = 49 TO 67 STEP 6 FONT Sprachausgaben(78), j, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schiedsrichterfeld NEXT IF ausgelosteRunde(1) = 1 THEN FONT Sprachausgaben(126), 79, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Grundzustand (Runde 0) FONT Sprachausgaben(79), 73, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Bemerkungsfeld FONT Sprachausgaben(80), 7, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum Start FONT Sprachausgaben(81), 13, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum ENDE FONT Sprachausgaben(116), 7, 80, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfad ELO FONT Sprachausgaben(117), 13, 80, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfad NWZ FONT Sprachausgaben(130), 19, 67, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Halb-Punkt Regel IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT Sprachausgaben(171), 22, 104, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzahl der Bretter bei einem Mannschaftsturnier ' FONT Sprachausgaben(116), 19, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfad ELO ' FONT Sprachausgaben(117), 25, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfad NWZ ' FONT "dd.mm.jjjj", 9, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum Start ' FONT "dd.mm.jjjj", 15, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum ENDE ' Runden auswählen FONT "-", 30, 111, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+", 30, 113, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Feinwertungen auswählen FONT "-", 40, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+", 40, 72, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "-", 40, 94, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+", 40, 96, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(82), 28, 104, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Rundenanzahl ' FONT Sprachausgaben(145), 26, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Rundensystem mit 2 Durchgängen ---------------------- 3 FONT Sprachausgaben(83), 28, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Rundensystem ---------------------- 4 FONT Sprachausgaben(84), 30, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Rutschsystem ---------------------- 5 FONT Sprachausgaben(85) + " (DUTCH JAVAFO)", 32, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schweizer-System ---------------------- 6 FONT Sprachausgaben(129) + " (DUTCH 2025 BBP)", 34, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schweizer-System ---------------------- 7 FONT Sprachausgaben(163) + " (DUTCH 2017 JAVAFO)", 36, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Team Schweizer-System ---------------------- 8 FONT Sprachausgaben(174), 24, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Team Rundensystem ---------------------- 2 ' FONT "4 Cup", 31, 98, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 4er-Pokal FONT "KO", 30, 98, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' KO-System FONT Sprachausgaben(85) + " (BURSTEIN BBP)", 32, 98, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schweizer-System FONT Sprachausgaben(85) + " (DUTCH 2025 BBP)", 22, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schweizer-System ---------------------- 1 '/ FONT Sprachausgaben(226), 46, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT Sprachausgaben(87), 43, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' keine Zweitwertung FONT Sprachausgaben(88), 43, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' keine Drittwertung ' k = 45 ' 51 FOR j = 89 TO 92 IF Paarungssystem = 5 OR Paarungssystem = 6 THEN IF j = 89 THEN FONT "Ext. " + Sprachausgaben(j), k, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertungen FONT "Ext. " + Sprachausgaben(j), k, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ELSE FONT Sprachausgaben(j), k, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertungen FONT Sprachausgaben(j), k, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ELSE FONT Sprachausgaben(j), k, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertungen FONT Sprachausgaben(j), k, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF IF j < 92 THEN k += 2 NEXT '/ ' FONT Sprachausgaben(159), 53, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Schmuljan FONT Sprachausgaben(159), 53, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Schmuljan FONT Sprachausgaben(161), 55, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Koya FONT Sprachausgaben(161), 55, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Koya FONT Sprachausgaben(168), 57, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Brettpunkte FONT Sprachausgaben(168), 57, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Brettpunkte FONT Sprachausgaben(172), 59, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung 3-Punkte-Wertung FONT Sprachausgaben(172), 59, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung 3-Punkte-Wertung FONT Sprachausgaben(224), 61, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Direkter Vergleich FONT Sprachausgaben(224), 61, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Direkter Vergleich FONT Sprachausgaben(230), 63, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Average Rating of opponents FONT Sprachausgaben(230), 63, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Average Rating of opponents FONT Sprachausgaben(232), 65, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Performance rating in the tournament FONT Sprachausgaben(232), 65, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Performance rating in the tournament FONT Sprachausgaben(234), 67, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Average performance rating of the opponents FONT Sprachausgaben(234), 67, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Average performance rating of the opponents FONT Sprachausgaben(236), 69, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Rounds elected play FONT Sprachausgaben(236), 69, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Rounds elected play FONT Sprachausgaben(238), 71, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Average Buchholz of opponents FONT Sprachausgaben(238), 71, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Average Buchholz of opponents FONT Sprachausgaben(240), 73, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Anzahl der Schwarzpartien FONT Sprachausgaben(240), 73, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Anzahl der Schwarzpartien FONT Sprachausgaben(242), 75, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Anzahl der gewonnenen Schwarzpartien FONT Sprachausgaben(242), 75, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Anzahl der gewonnenen Schwarzpartien FONT Sprachausgaben(244), 77, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Anzahl der gewonnenen Schwarzpartien FONT Sprachausgaben(244), 77, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Anzahl der gewonnenen Schwarzpartien FONT "Forebuchholz", 79, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Forebuchholz FONT "Forebuchholz", 79, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Forebuchholz FONT Sprachausgaben(260), 81, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung PTP FONT Sprachausgaben(261), 83, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung APPO FONT Sprachausgaben(262), 85, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Rating FONT Sprachausgaben(263), 87, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung WON FONT Sprachausgaben(260), 81, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung PTP FONT Sprachausgaben(261), 83, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung APPO FONT Sprachausgaben(262), 85, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Rating FONT Sprachausgaben(263), 87, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung WON ' Gennemsnit perfekt praestation af modstandere - APPO ' Gennemsnit Turnerings praestation af modstandere - APRO ' Average Perfect [Tournament] Performance of Opponents - APPO ' FONT Sprachausgaben(180), 76, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Olympiade-Sonneborn-Berger ' FONT Sprachausgaben(180), 76, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Feinwertung Olympiade-Sonneborn-Berger ' FONT "Koya Limit: " + STR(KoyaLimit(1)) + "%", 43, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits FONT "Limit: " + STR(KoyaLimit(1)) + "%", 55, 70, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits FONT "Limit: " + STR(KoyaLimit(2)) + "%", 55, 94, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige des Koya Limits k = 58 FOR j = 108 TO 115 FONT Sprachausgaben(j), k, 112, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige der Namen der auswählbaren Designs k += 2 NEXT ' FOR j = 171 TO 339 STEP 24 FOR j = 171 TO 283 STEP 16 ' 24 CIRCLE (494, j), 5, &hFFFFFF ' Paarungssysteme NEXT ' CIRCLE (766, 243), 5, &hFFFFFF ' 4er-Pokal CIRCLE (766, 235), 5, &hFFFFFF ' KO-System CIRCLE (766, 251), 5, &hFFFFFF ' Paarungssystem Burstein BBP ' FOR j = 339 TO 691 STEP 16 ' 547 = Feinwertungen von 1-10 | 627 = Feinwertungen von 1-15 | 579 = Feinwertungen von 1-??' ' 595 CIRCLE (494, j), 5, &hFFFFFF ' Feinwertungen CIRCLE (684, j), 5, &hFFFFFF ' NEXT '/ ' Feinwertungsregeln CIRCLE (884, 387), 5, &hFFFFFF ' Feinwertungsregel - Kalithea 2009 CIRCLE (884, 411), 5, &hFFFFFF ' Feinwertungsregel - Baku 2023 IF Tiebreakmode = 0 THEN CIRCLE (884, 387), 3, &h00FF00,,,, F ELSE CIRCLE (884, 411), 3, &h00FF00,,,, F FONT "Kalithea 2009", 49, 113, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "Baku 2023", 52, 113, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Designs FOR j = 459 TO 571 STEP 16 ' 24 - 627 CIRCLE (874, j), 5, &hFFFFFF ' Designauswahl NEXT ' Designs - Buttons k = 459 FOR j = 0 TO 7 IF SetupFarbe = j THEN CIRCLE (874, k), 3, &h00FF00,,,, F ELSE CIRCLE (874, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ' Paarungssysteme - Buttons IF Paarungssystem = 0 THEN CIRCLE (494, 203), 3, &h00FF00,,,, F ELSE CIRCLE (494, 203), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 1 THEN CIRCLE (494, 219), 3, &h00FF00,,,, F ELSE CIRCLE (494, 219), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 2 THEN CIRCLE (494, 235), 3, &h00FF00,,,, F ELSE CIRCLE (494, 235), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 3 THEN CIRCLE (494, 251), 3, &h00FF00,,,, F ELSE CIRCLE (494, 251), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 4 THEN CIRCLE (494, 267), 3, &h00FF00,,,, F ELSE CIRCLE (494, 267), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 5 THEN CIRCLE (494, 283), 3, &h00FF00,,,, F ELSE CIRCLE (494, 283), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 6 THEN CIRCLE (494, 187), 3, &h00FF00,,,, F ELSE CIRCLE (494, 187), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 8 THEN CIRCLE (766, 251), 3, &h00FF00,,,, F ELSE CIRCLE (766, 251), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 9 THEN CIRCLE (766, 235), 3, &h00FF00,,,, F ELSE CIRCLE (766, 235), 3, Hintergrundfarbe,,,, F IF Paarungssystem = 11 THEN CIRCLE (494, 171), 3, &h00FF00,,,, F ELSE CIRCLE (494, 171), 3, Hintergrundfarbe,,,, F ' Feinwertungen - Buttons k = 339 FOR j = 1 TO 20 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT IF Feinwertungssystem(1) = 23 THEN CIRCLE (494, 579), 3, &h00FF00,,,, F ELSE CIRCLE (494, 579), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = 23 THEN CIRCLE (684, 579), 3, &h00FF00,,,, F ELSE CIRCLE (684, 579), 3, Hintergrundfarbe,,,, F k = 643 FOR j = 28 TO 31 IF Feinwertungssystem(1) = j THEN CIRCLE (494, k), 3, &h00FF00,,,, F ELSE CIRCLE (494, k), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = j THEN CIRCLE (684, k), 3, &h00FF00,,,, F ELSE CIRCLE (684, k), 3, Hintergrundfarbe,,,, F k += 16 NEXT ' IF Feinwertungssystem(1) < -1 THEN IF Feinwertungssystem(1) = -2 OR Feinwertungssystem(1) = -3 OR Feinwertungssystem(1) = -4 OR Feinwertungssystem(1) = -5 OR Feinwertungssystem(1) = -18 OR Feinwertungssystem(1) = -19 OR Feinwertungssystem(1) = -20 OR Feinwertungssystem(1) = -21 OR Feinwertungssystem(1) = -22 THEN CIRCLE (494, 387), 3, &h00FF00,,,, F ELSE CIRCLE (494, 387), 3, Hintergrundfarbe,,,, F ' Buchholz IF Feinwertungssystem(1) = -6 OR Feinwertungssystem(1) = -7 OR Feinwertungssystem(1) = -23 OR Feinwertungssystem(1) = -24 OR Feinwertungssystem(1) = -25 OR Feinwertungssystem(1) = -26 OR Feinwertungssystem(1) = -27 OR Feinwertungssystem(1) = -28 OR Feinwertungssystem(1) = -29 OR Feinwertungssystem(1) = -30 THEN CIRCLE (494, 355), 3, &h00FF00,,,, F ELSE CIRCLE (494, 355), 3, Hintergrundfarbe,,,, F ' Sonneborn-Berger IF Feinwertungssystem(1) = -8 OR Feinwertungssystem(1) = -9 OR Feinwertungssystem(1) = -10 OR Feinwertungssystem(1) = -11 THEN CIRCLE (494, 627), 3, &h00FF00,,,, F ELSE CIRCLE (494, 627), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -12 OR Feinwertungssystem(1) = -13 OR Feinwertungssystem(1) = -14 OR Feinwertungssystem(1) = -15 THEN CIRCLE (494, 531), 3, &h00FF00,,,, F ELSE CIRCLE (494, 531), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -16 OR Feinwertungssystem(1) = -17 THEN CIRCLE (494, 611), 3, &h00FF00,,,, F ELSE CIRCLE (494, 611), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -31 THEN CIRCLE (494, 483), 3, &h00FF00,,,, F ELSE CIRCLE (494, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(1) = -32 THEN CIRCLE (494, 563), 3, &h00FF00,,,, F ELSE CIRCLE (494, 563), 3, Hintergrundfarbe,,,, F END IF IF Feinwertungssystem(2) < -1 THEN IF Feinwertungssystem(2) = -2 OR Feinwertungssystem(2) = -3 OR Feinwertungssystem(2) = -4 OR Feinwertungssystem(2) = -5 OR Feinwertungssystem(2) = -18 OR Feinwertungssystem(2) = -19 OR Feinwertungssystem(2) = -20 OR Feinwertungssystem(2) = -21 OR Feinwertungssystem(2) = -22 OR Feinwertungssystem(2) = -26 OR Feinwertungssystem(2) = -27 OR Feinwertungssystem(2) = -28 OR Feinwertungssystem(2) = -29 OR Feinwertungssystem(2) = -30 THEN CIRCLE (684, 387), 3, &h00FF00,,,, F ELSE CIRCLE (684, 387), 3, Hintergrundfarbe,,,, F ' Buchholz IF Feinwertungssystem(2) = -6 OR Feinwertungssystem(2) = -7 OR Feinwertungssystem(2) = -23 OR Feinwertungssystem(2) = -24 OR Feinwertungssystem(2) = -25 THEN CIRCLE (684, 355), 3, &h00FF00,,,, F ELSE CIRCLE (684, 355), 3, Hintergrundfarbe,,,, F ' Sonneborn-Berger IF Feinwertungssystem(2) = -8 OR Feinwertungssystem(2) = -9 OR Feinwertungssystem(2) = -10 OR Feinwertungssystem(2) = -11 THEN CIRCLE (684, 627), 3, &h00FF00,,,, F ELSE CIRCLE (684, 627), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -12 OR Feinwertungssystem(2) = -13 OR Feinwertungssystem(2) = -14 OR Feinwertungssystem(2) = -15 THEN CIRCLE (684, 531), 3, &h00FF00,,,, F ELSE CIRCLE (684, 531), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -16 OR Feinwertungssystem(2) = -17 THEN CIRCLE (684, 611), 3, &h00FF00,,,, F ELSE CIRCLE (684, 611), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -31 THEN CIRCLE (684, 483), 3, &h00FF00,,,, F ELSE CIRCLE (684, 483), 3, Hintergrundfarbe,,,, F IF Feinwertungssystem(2) = -32 THEN CIRCLE (684, 563), 3, &h00FF00,,,, F ELSE CIRCLE (684, 563), 3, Hintergrundfarbe,,,, F END IF ' Streichwertung anzeigen IF Feinwertungssystem(1) > -2 THEN FONT "---", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) > -2 THEN FONT "---", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' IF Feinwertungssystem(1) < 17 OR Feinwertungssystem(1) > 22 THEN FONT "---", 46, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' IF Feinwertungssystem(2) < 17 OR Feinwertungssystem(2) > 22 THEN FONT "---", 46, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -2 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -3 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -4 THEN FONT "M1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -5 THEN FONT "M2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -6 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -7 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -8 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -9 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -10 THEN FONT "M1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -11 THEN FONT "M2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -12 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -13 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -14 THEN FONT "M1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -15 THEN FONT "M2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -16 THEN FONT "C1 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -17 THEN FONT "C2 ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -18 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -19 THEN FONT "C1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -20 THEN FONT "C2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -21 THEN FONT "M1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -22 THEN FONT "M2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -23 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -24 THEN FONT "C1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -25 THEN FONT "C2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -26 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -27 THEN FONT "C1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -28 THEN FONT "C2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -29 THEN FONT "M1/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -30 THEN FONT "M2/P", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -31 THEN FONT "P ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = -32 THEN FONT "F ", 40, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -2 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -3 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -4 THEN FONT "M1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -5 THEN FONT "M2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -6 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -7 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -8 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -9 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -10 THEN FONT "M1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -11 THEN FONT "M2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -12 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -13 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -14 THEN FONT "M1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -15 THEN FONT "M2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -16 THEN FONT "C1 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -17 THEN FONT "C2 ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -18 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -19 THEN FONT "C1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -20 THEN FONT "C2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -21 THEN FONT "M1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -22 THEN FONT "M2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -23 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -24 THEN FONT "C1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -25 THEN FONT "C2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -26 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -27 THEN FONT "C1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -28 THEN FONT "C2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -29 THEN FONT "M1/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -30 THEN FONT "M2/P", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -31 THEN FONT "P ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) = -32 THEN FONT "F ", 40, 88, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Halb-Punkt Button anzeigen IF HalbBye = 1 THEN FONT "X", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT " ", 19, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Eingegebenes anzeigen k = 9 FOR j = 9 TO 20 FONT Eingabe(j), k, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Eingaben anzeigen k += 6 NEXT FONT PfadElo, 9, 80, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Pfad - ELO anzeigen FONT PfadNwz, 15, 80, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Pfad - NWZ anzeigen FONT Eingabe(21), 9, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum Start anzeigen FONT Eingabe(22), 15, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Datum Ende anzeigen IF RAZ > 0 THEN FONT STR(RAZ), 30, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Rundenanzahl anzeigen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT STR(Bretter), 24, 104, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Anzahl der Bretter anzeigen ' CIRCLE (494, 579), 5, &h808080,,,, F ' CIRCLE (494, 603), 5, &h808080,,,, F ' LINE (490,579)-(650,581), &hFFFFFF,BF ' Deaktivierung Buchholzsumme/mittlere Buchholz ' LINE (680,579)-(840,581), &hFFFFFF,BF ' Deaktivierung Buchholzsumme/mittlere Buchholz ' LINE (490,580)-(650,580), &hFFFFFF ' Deaktivierung Buchholzsumme/mittlere Buchholz LAENDERKUERZEL(1) ' hier wird das ausgewälte Land gelanden END IF ' Seite Spieler einlesen IF Seite = 7 THEN ' Buttons FELD 400, 2, 491, 22, Hintergrundfarbe ' Button - Teilnehmer FELD 496, 2, 581, 22, Hintergrundfarbe ' Button - Paarungen FELD 586, 2, 668, 22, Hintergrundfarbe ' Button - Rangliste FELD 35, 650, 219, 670, Hintergrundfarbe ' Button - weiter suchen FELD 224, 650, 388, 670, Hintergrundfarbe ' Button - übernehmen ' Suchfeld Spieler FELD 48, 17, 350, 37, Hintergrundfarbe ' Spieler suchen ' Eingabefelder anzeigen FELD 48, 57, 350, 77, Hintergrundfarbe ' Name, Vorname FELD 355, 57, 406, 77, Hintergrundfarbe ' ELO FELD 411, 57, 462, 77, Hintergrundfarbe ' DWZ FELD 467, 57, 742, 77, Hintergrundfarbe ' Verein FELD 747, 57, 793, 77, Hintergrundfarbe ' Nation FELD 798, 57, 829, 77, Hintergrundfarbe ' Geschlecht FELD 48, 97, 148, 117, Hintergrundfarbe ' FIDE-ID FELD 153, 97, 241, 117, Hintergrundfarbe ' PKZ FELD 246, 97, 366, 117, Hintergrundfarbe ' Vereinsnummer FELD 371, 97, 471, 117, Hintergrundfarbe ' Geburtsdatum FELD 476, 97, 519, 117, Hintergrundfarbe ' Titel ' Feld für Scrollbalken LINE (5,152)-(25,152), &h555555 LINE (5,623)-(25,623), &hFFFFFF LINE (5,152)-(5,623), &h555555 LINE (25,152)-(25,623), &hFFFFFF ' FONT Sprachausgaben(153), 83, 6, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Button weitersuchen FONT Sprachausgaben(154), 83, 30, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Button übernehmen ' Daten des ausgewählten Spielers FONT Sprachausgaben(16), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name IF Modus = 0 THEN FONT Sprachausgaben(12), 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO IF Modus = 1 THEN FONT "MELO", 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' MELO FONT Sprachausgaben(13), 7, 53, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ FONT Sprachausgaben(15), 7, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein FONT Sprachausgaben(100), 7, 95, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation FONT Sprachausgaben(99), 7, 101, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geschlecht IF Modus = 0 THEN FONT Sprachausgaben(70), 12, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FIDE-ID IF Modus = 1 THEN FONT "WMD-ID", 12, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' WMD-ID FONT Sprachausgaben(101), 12, 21, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' PKZ FONT Sprachausgaben(102), 12, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereinsnummer FONT Sprachausgaben(71), 12, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geburt FONT Sprachausgaben(14), 12, 61, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Titel ' Anzeige der auswählbaren Spieler in der Liste FONT Sprachausgaben(8), 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name FONT Sprachausgaben(12), 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO FONT Sprachausgaben(13), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ FONT Sprachausgaben(15), 18, 74, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein FONT Sprachausgaben(118), 2, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name, Vorname ' Buttons FONT Sprachausgaben(8), 2, 52, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Button - Teilnehmer FONT Sprachausgaben(9), 2, 64, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Button - Paarungen FONT Sprachausgaben(10), 2, 75, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Button - Rangliste ' Anzahl der Teilnehmer im Einzelmodus anzeigen IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF TAZ >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Anzahl der Mannschaftsspieler im Mannschaftsmodus anzeigen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN k = 0 FOR j = 1 TO 50 IF Spieler((i*50-50)+j) <> "" THEN k+= 1 NEXT IF k >= 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(s)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(k)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF k < 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(s-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(k)) + " ", 80, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF END IF ' Seite Spieler aussetzen lassen IF Seite = 8 THEN ' Eingabefeld anzeigen FELD 480, 74, 525, 94, Hintergrundfarbe ' Teilnehmernummer FELD 530, 74, 832, 94, Hintergrundfarbe ' Name, Vorname FELD 465, 200, 1004, 270, Hintergrundfarbe ' Infofeld DIM AS ANY PTR Anwesendpuffer Anwesendpuffer = IMAGECREATE(500,105) BLOAD (EXEPATH & "\O.ST0P", Anwesendpuffer) DIM AS ANY PTR Abwesendpuffer Abwesendpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\X.ST0P", Abwesendpuffer) DIM AS ANY PTR HalbPunktpuffer HalbPunktpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\=.ST0P", HalbPunktpuffer) DIM AS ANY PTR VollPunktpuffer VollPunktpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\+.ST0P", VollPunktpuffer) j = 43 k = 1 DO IF fehlendeSpieler(i, k) = 0 OR fehlendeSpieler(i, k) = -1 THEN PUT (60,j), Anwesendpuffer, TRANS IF fehlendeSpieler(i, k+9) = 0 OR fehlendeSpieler(i, k+9) = -1 THEN PUT (160,j), Anwesendpuffer, TRANS IF fehlendeSpieler(i, k+18) = 0 OR fehlendeSpieler(i, k+18) = -1 THEN PUT (260,j), Anwesendpuffer, TRANS IF fehlendeSpieler(i, k+27) = 0 OR fehlendeSpieler(i, k+27) = -1 THEN PUT (360,j), Anwesendpuffer, TRANS IF fehlendeSpieler(i, k) = 1 THEN PUT (60,j), Abwesendpuffer, TRANS IF fehlendeSpieler(i, k+9) = 1 THEN PUT (160,j), Abwesendpuffer, TRANS IF fehlendeSpieler(i, k+18) = 1 THEN PUT (260,j), Abwesendpuffer, TRANS IF fehlendeSpieler(i, k+27) = 1 THEN PUT (360,j), Abwesendpuffer, TRANS IF fehlendeSpieler(i, k) = 2 THEN PUT (60,j), HalbPunktpuffer, TRANS IF fehlendeSpieler(i, k+9) = 2 THEN PUT (160,j), HalbPunktpuffer, TRANS IF fehlendeSpieler(i, k+18) = 2 THEN PUT (260,j), HalbPunktpuffer, TRANS IF fehlendeSpieler(i, k+27) = 2 THEN PUT (360,j), HalbPunktpuffer, TRANS IF fehlendeSpieler(i, k) = 3 THEN PUT (60,j), VollPunktpuffer, TRANS IF fehlendeSpieler(i, k+9) = 3 THEN PUT (160,j), VollPunktpuffer, TRANS IF fehlendeSpieler(i, k+18) = 3 THEN PUT (260,j), VollPunktpuffer, TRANS IF fehlendeSpieler(i, k+27) = 3 THEN PUT (360,j), VollPunktpuffer, TRANS j += 40 k += 1 LOOP WHILE j < 403 IMAGEDESTROY(Abwesendpuffer) IMAGEDESTROY(Anwesendpuffer) IMAGEDESTROY(HalbPunktpuffer) IMAGEDESTROY(VollPunktpuffer) ' Runde j = 1 FOR k = 1 TO 41 STEP 5 FONT STR(j), k+7, 6, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 1-9 FONT STR(j+9), k+7, 18, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 10-18 FONT STR(j+18), k+7, 30, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 19-27 FONT STR(j+27), k+7, 42, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' 28-36 j += 1 NEXT ' Infos anzeigen FONT Sprachausgaben(121), 7, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext 1 FONT Sprachausgaben(122), 27, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext 2 FONT Sprachausgaben(123), 29, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext 3 FONT Sprachausgaben(124), 31, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext 4 FONT Sprachausgaben(125), 33, 60, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext 5 ' Anzeige des Namen des ausgewählten Spielers FONT STR(i), 11, 62, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Spielernummer IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FONT STR(Spieler(i)), 11, 68, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Spielername IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FONT STR(Team(i)), 11, 68, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Spielername END IF ' Seite Datum IF Seite = 9 THEN ' Eingabefelder anzeigen FELD 40, 89, 288, 412, Hintergrundfarbe ' Anzeigefeld FELD 40, 57, 88, 77, Hintergrundfarbe ' Runde FELD 98, 57, 200, 77, Hintergrundfarbe ' Datum FELD 210, 57, 270, 77, Hintergrundfarbe ' Uhrzeit FELD 290, 89, 310, 109, Hintergrundfarbe ' Eintrag nach oben FELD 290, 392, 310, 412, Hintergrundfarbe ' Eintrag nach unten FELD 368, 85, 542, 146, Hintergrundfarbe ' Anzeigefeld Information ' Feld für Scrollbalken LINE (290,111)-(310,111), &h555555 LINE (290,390)-(310,390), &hFFFFFF LINE (290,111)-(290,390), &h555555 LINE (310,111)-(310,390), &hFFFFFF ' Infos anzeigen IF RAZ > 0 THEN FONT Sprachausgaben(133), 6, 6, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Infotext 1 FONT Sprachausgaben(134), 6, 14, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Infotext 2 FONT Sprachausgaben(135), 6, 28, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Infotext 3 END IF FONT CHR(30), 13, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfeil nach oben FONT CHR(31), 51, 38, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Pfeil nach unten FONT LEFT(Sprachausgaben(86),4) + ":", 12, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Infotext FONT Sprachausgaben(134) + " = dd.mm.jjjj", 16, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext Datum FONT Sprachausgaben(135) + " = hh:mm", 18, 48, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' Infotext Uhrzeit END IF ' Seite manuelle Paarungen IF Seite = 10 THEN FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel FELD 262, 67, 322, 548, Hintergrundfarbe ' Anzeige Punktetafel ' Eingabefelder anzeigen FELD 184, 577, 247, 597, Hintergrundfarbe ' Brett FELD 327, 577, 639, 597, Hintergrundfarbe ' Spielereingabe/auswahl Weiß FELD 252, 577, 322, 597, Hintergrundfarbe ' Spielernummer Weiß FELD 719, 577, 1021, 597, Hintergrundfarbe ' Spielereingabe/auswahl Schwarz FELD 644, 577, 714, 597, Hintergrundfarbe ' Spielernummer Schwarz ' Button FELD 322, 617, 482, 637, Hintergrundfarbe ' Übernahmebutton FELD 97, 40, 182, 60, Hintergrundfarbe ' Menu verlassen ' FONT Sprachausgaben(142), 6, 64, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Info FONT Sprachausgaben(137), 72, 24, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Brett FONT Sprachausgaben(138), 72, 33, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Weiß FONT Sprachausgaben(139), 72, 82, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schwarz FONT Sprachausgaben(141), 79, 42, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Anzeige "Übernahme" für Button FONT "OK", 7, 17, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' OK-Button END IF ' Mannschaftsspielereingabe IF Seite = 11 THEN ' IF Seite <> 1 THEN SCREENRES 1024, 420, 32 ' Lupe anzeigen DIM AS ANY PTR htmlpuffer htmlpuffer = IMAGECREATE(32,32) BLOAD (EXEPATH & "\Lupe.ST0P", htmlpuffer) PUT (920,350), htmlpuffer, TRANS IMAGEDESTROY(htmlpuffer) FELD 28, 130, 992, 348, Hintergrundfarbe ' Anzeige Teilnehmer FELD 48, 57, 350, 77, Hintergrundfarbe ' Name, Vorname FELD 355, 57, 406, 77, Hintergrundfarbe ' ELO FELD 411, 57, 462, 77, Hintergrundfarbe ' DWZ FELD 467, 57, 510, 77, Hintergrundfarbe ' Titel FELD 515, 57, 790, 77, Hintergrundfarbe ' Verein FELD 795, 57, 895, 77, Hintergrundfarbe ' Geburtsdatum FELD 900, 57, 1000, 77, Hintergrundfarbe ' FIDE-ID FELD 48, 97, 79, 117, Hintergrundfarbe ' Geschlecht FELD 84, 97, 130, 117, Hintergrundfarbe ' Nation FELD 135, 97, 223, 117, Hintergrundfarbe ' PKZ FELD 228, 97, 348, 117, Hintergrundfarbe ' Vereinsnummer FELD 353, 97, 488, 117, Hintergrundfarbe ' Mitgliedsnummer FELD 48, 384, 350, 404, Hintergrundfarbe ' Vereinsanzeige FONT Sprachausgaben(16), 7, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name IF Modus = 0 THEN FONT Sprachausgaben(12), 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO IF Modus = 1 THEN FONT "MELO", 7, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' MELO FONT Sprachausgaben(13), 7, 53, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ IF Sprache <> 6 THEN FONT Sprachausgaben(14), 7, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ELSE FONT Sprachausgaben(14), 7, 59, Farbe(1), Farbe(2), Farbe(3), 0, 0' Titel FONT Sprachausgaben(15), 7, 66, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein FONT Sprachausgaben(71), 7, 101, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geburtsdatum IF Modus = 0 THEN FONT Sprachausgaben(70), 7, 114, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FIDE-ID IF Modus = 1 THEN FONT "WMD-ID", 7, 114, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' WMD-ID FONT Sprachausgaben(99), 12, 8, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Geschlecht FONT Sprachausgaben(100), 12, 12, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation FONT Sprachausgaben(101), 12, 18, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' PKZ FONT Sprachausgaben(102), 12, 30, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Vereinsnummer FONT Sprachausgaben(103), 12, 46, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Mitgliedsnummer FONT Sprachausgaben(8), 18, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Name IF Modus = 0 THEN FONT Sprachausgaben(12), 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' ELO IF Modus = 1 THEN FONT "MELO", 18, 48, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' MELO FONT Sprachausgaben(13), 18, 60, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' DWZ FONT Sprachausgaben(14), 18, 72, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Titel FONT Sprachausgaben(132), 18, 83, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Nation FONT Sprachausgaben(15), 18, 92, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Verein FONT Team(i), 50, 8, FarbeSpieler(1), FarbeSpieler(2), FarbeSpieler(3), 0, 0 ' Verein END IF '/ ' Seite Einzelspielereingabe und Ergebnisse für Mannschaften IF Seite = 12 THEN IF RAZ > 0 THEN FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF RAZ < 1 THEN FONT Sprachausgaben(22) + ": " + LTRIM(STR(RAZ)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Auswahlfelder ' FELD 8, 563, 77, 583, Hintergrundfarbe ' Datei anlegen ' FELD 87, 563, 142, 583, Hintergrundfarbe ' Datei laden ' FELD 152, 563, 238, 583, Hintergrundfarbe ' Datei speichern ' FELD 8, 586, 238, 606, Hintergrundfarbe ' letzte Runde löschen ' FELD 8, 611, 238, 631, Hintergrundfarbe ' Einzelspielereingabe ' FELD 829, 551, 860, 571, Hintergrundfarbe ' Paarungen drucken ' FELD 332, 67, 1021, 475, Hintergrundfarbe ' Anzeige Paarungstafel FELD 262, 67, 322, 475, Hintergrundfarbe ' Anzeige Punktetafel ' Eingabefelder anzeigen ' FELD 184, 577, 247, 597, Hintergrundfarbe ' Brett FELD 327, 577, 639, 597, Hintergrundfarbe ' Spielereingabe/auswahl Weiß FELD 259, 577, 322, 597, Hintergrundfarbe ' Spielernummer Weiß FELD 719, 577, 1021, 597, Hintergrundfarbe ' Spielereingabe/auswahl Schwarz FELD 644, 577, 714, 597, Hintergrundfarbe ' Spielernummer Schwarz ' Anzeige Mannschaften FELD 332, 490, 1021, 508, Hintergrundfarbe ' Anzeige Mannschaften FELD 262, 490, 322, 508, Hintergrundfarbe ' Anzeige Gesamtpunkte Mannschaft FELD 5, 212, 256, 634, Hintergrundfarbe ' Feld Mannschaftsspieler ' Auswahlfelder für die Anzeige der Mannschaftsspieler der jeweiligen Mannschaften FELD 124, 197, 136, 209, Hintergrundfarbe ' Feld Mannschaftspieler - FELD 109, 197, 121, 209, Hintergrundfarbe ' Feld Mannschaftspieler + ' Ergebnisauswahlfelder FELD 6, 66, 67, 84, Hintergrundfarbe ' Feld 1-0 FELD 76, 66, 137, 84, Hintergrundfarbe ' Feld 1/2-1/2 FELD 146, 66, 207, 84, Hintergrundfarbe ' Feld 0-1 FELD 6, 89, 67, 109, Hintergrundfarbe ' Feld 1/2-0 FELD 76, 89, 137, 109, Hintergrundfarbe ' Feld 0-1/2 FELD 146, 89, 207, 109, Hintergrundfarbe ' Feld 0-0 FELD 6, 114, 67, 134, Hintergrundfarbe ' Feld +-- FELD 76, 114, 137, 134, Hintergrundfarbe ' Feld --- FELD 146, 114, 207, 134, Hintergrundfarbe ' Feld --+ FELD 6, 139, 67, 159, Hintergrundfarbe ' Feld W-L FELD 76, 139, 137, 159, Hintergrundfarbe ' Feld D-D FELD 146, 139, 207, 159, Hintergrundfarbe ' Feld L-W FELD 6, 164, 207, 184, Hintergrundfarbe ' Feld Ergebnis löschen ' Buttons zum Aufruf der Paarungen ' FELD 233, 89, 253, 109, Hintergrundfarbe ' Eintrag/Paarung nach oben = -1 ' FELD 233, 505, 253, 525, Hintergrundfarbe ' Eintrag/Paarung nach unten = +1 /' Druckersymbol DIM AS ANY PTR Druckerpuffer Druckerpuffer = IMAGECREATE(29,18) BLOAD (EXEPATH & "\Drucker.ST0P", Druckerpuffer) PUT (830,553), Druckerpuffer, TRANS IMAGEDESTROY(Druckerpuffer)# '/ ' FONT Sprachausgaben(137), 72, 24, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Brett FONT Sprachausgaben(138), 72, 34, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Weiß FONT Sprachausgaben(139), 72, 82, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Schwarz ' Makierungspfeil FONT "--->", 10, 29, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' mögliche Ergebnisse - Schachmodus IF Modus = 0 THEN FONT "1-0", 10, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "½-½", 10, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-1", 10, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "½-0", 13, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-½", 13, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-0", 13, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+--", 16, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "---", 16, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "--+", 16, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1U-0U", 19, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "½U-½U", 19, 12, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0U-1U", 19, 21, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' mögliche Ergebnisse - Mühlemodus IF Modus = 1 THEN FONT "2-0", 10, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1-1", 10, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-2", 10, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1-0", 13, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-1", 13, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0-0", 13, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "+--", 16, 4, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "---", 16, 13, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "--+", 16, 22, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "2U-0U", 19, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "1U-1U", 19, 12, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT "0U-2U", 19, 21, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Für die Anzeige der Mannschaftsspieler der jeweiligen Mannschaften FONT "<", 26, 15, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT ">", 26, 17, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(23), 22, 5, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Runden auswählen ' FONT "+", 6, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT "-", 8, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Brettnummer ' FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Auslosung ' FONT Sprachausgaben(24), 72, 43, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' letzte Runde löschen ' FONT Sprachausgaben(143), 75, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' manuelle Paarungen ' FONT Sprachausgaben(142), 78, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' Buttons ' FONT Sprachausgaben(17), 72, 3, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' anlegen ' FONT Sprachausgaben(18), 72, 13, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' laden ' FONT Sprachausgaben(19), 72, 21, Farbe(1), Farbe(2), Farbe(3), 1, 1 ' speichern END IF ' IF Seite <> 5 AND Seite <> 7 THEN FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen SCREENUNLOCK END SUB SUB BUTTON (X AS INTEGER, Y AS INTEGER, XX AS INTEGER, YY AS INTEGER) LINE (X, Y)-(X, YY), &h555555 LINE (X, Y)-(XX, Y), &h555555 LINE (X, YY)-(XX, YY), &hFFFFFF LINE (XX, Y)-(XX, YY), &hFFFFFF GETMOUSE mausx, mausy,, mausk IF mausk = 1 OR mausk = 2 THEN DO IF Seite <> 5 AND Seite <> 7 THEN SCREENLOCK FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Zeit anzeigen ' FONT MID(DATE, 4, 2) + "." + LEFT(DATE, 2) + "." + RIGHT(DATE, 2), 3, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum anzeigen SCREENUNLOCK END IF GETMOUSE mausx, mausy,, mausk IF mausk = 0 THEN EXIT DO SLEEP 1 LOOP END IF LINE (X, Y)-(X, YY), &hFFFFFF LINE (X, Y)-(XX, Y), &hFFFFFF LINE (X, YY)-(XX, YY), &h555555 LINE (XX, Y)-(XX, YY), &h555555 END SUB SUB FELD (X AS INTEGER, Y AS INTEGER, XX AS INTEGER, YY AS INTEGER, FARBEN AS INTEGER) LINE (X, Y)-(X, YY), &hFFFFFF LINE (X, Y)-(XX, Y), &hFFFFFF LINE (X, YY)-(XX, YY), &h555555 LINE (XX, Y)-(XX, YY), &h555555 VIEW (X + 2, Y + 2)-(XX - 2, YY - 2), FARBEN, FARBEN VIEW (0, 0)-(1024, 745) END SUB SUB FONT (WORT AS STRING, HOEHE AS INTEGER, BREITE AS INTEGER, FARBE1 AS INTEGER, FARBE2 AS INTEGER, FARBE3 AS INTEGER, ATTRIBUT AS INTEGER, STELLE AS INTEGER) REM PALETTE 7, 7 COLOR 7 IF Wort = "½U-½U" OR Wort = "½-½" OR Wort = "½-0" OR Wort = "0-½" OR Wort = "1½-½" OR Wort = "½-1½" OR Wort = "½" OR Wort = "½-1" OR Wort = "1-½" THEN CharToOem Wort, Wort IF Wort = "Bitte wählen sie eine Sprache!" THEN CharToOem Wort, Wort IF Wort = "Vælg et sprog!" THEN CharToOem Wort, Wort IF Wort = "Välj ett språk!" THEN CharToOem Wort, Wort IF Wort = "Ole hyvä ja valitse kieli!" THEN CharToOem Wort, Wort L = LEN(WORT) IF k = 11 THEN Eingabe(11) = UCASE(Eingabe(11)) ' Wort = UCASE(Wort): LOCATE HOEHE, BREITE: PRINT WORT; T = HOEHE * 8 - 8 FOR E = BREITE * 8 - 8 TO BREITE * 8 + L * 8 - 8 IF E >= ((Breite*8+(8*STELLE))-16) AND E < ((Breite*8+(8*STELLE))-8) AND ATTRIBUT = 1 THEN IF Setupfarbe <> 6 AND Setupfarbe <> 2 THEN FOR XXX = 0 TO 7 IF XXX < 2 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hAAFFFF IF XXX > 1 AND XXX < 5 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &h55FFFF IF XXX > 4 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &h00EEFF NEXT ELSE IF Setupfarbe = 6 THEN FOR XXX = 0 TO 7 IF XXX < 2 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hAA00AA IF XXX > 1 AND XXX < 5 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hAA22AA IF XXX > 4 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hAA44AA NEXT END IF IF Setupfarbe = 2 THEN FOR XXX = 0 TO 7 IF XXX < 2 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hFAEE14 IF XXX > 1 AND XXX < 5 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hFADD14 IF XXX > 4 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), &hFACC14 NEXT END IF END IF ELSE FOR XXX = 0 TO 7 IF XXX < 2 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), FARBE1 IF XXX > 1 AND XXX < 5 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), FARBE2 IF XXX > 4 AND POINT(E, T + XXX) = 7 THEN LINE (E, T + XXX)-(E, T + XXX), FARBE3 NEXT END IF NEXT PALETTE COLOR 15 END SUB SUB INGET (ANZAHLE AS INTEGER, STELLEN AS INTEGER, ZEILEN AS INTEGER, N AS STRING) N = RTRIM(N) BB = LEN(N) DIM AS INTEGER CC DIM AS STRING NN CC = BB NN = N SCREENLOCK FONT N + "_", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK DO AA = "" WHILE AA = "" GETMOUSE mausx, mausy, wheel, mausk IF mausk = 2 THEN SCREENLOCK FONT N + " ", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 SCREENUNLOCK k = 0 EXIT DO END IF COLOR &hFFFFFF AA = INKEY SCREENLOCK IF Seite <> 5 AND Seite <> 7 THEN FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' FONT MID(DATE, 4, 2) + "." + LEFT(DATE, 2) + "." + RIGHT(DATE, 2), 3, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Datum anzeigen ' (IF Seite = 7 THEN) FONT N + "_", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' &hFFFFFF, &hAAAAAA, &h555555 SCREENUNLOCK SLEEP 1 ' U = N WEND ' Escape-Taste ' IF MULTIKEY(&h01) THEN EXIT DO ' nach-links-Taste IF MULTIKEY(&h4B) AND AA <> "4" THEN IF BB > 0 THEN BB -= 1 IF BB > 0 THEN NN = LEFT(N, BB) + "_" + MID(N, BB+1, CC-BB) ELSE NN = "_" + N ' Testzeile funktioniert nicht richtig - Fehler behoben??? FONT NN, STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF ' nach-rechts-Taste IF MULTIKEY(&h4D) AND AA <> "6" THEN IF BB < LEN(N) THEN BB += 1 NN = LEFT(N, BB) + "_" + MID(N, BB+1, CC-BB) FONT NN, STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF ' Entf-Taste IF MULTIKEY(&h53) AND AA <> "," THEN IF CC > 0 THEN NN = LEFT(N, BB) + "" + MID(N, BB+2, CC-BB) N = NN CC -= 1 FONT LEFT(N, BB) + "_" + MID(N, BB+1, CC-BB) + " ", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF ' Ende-Taste IF MULTIKEY(&h4F) AND AA <> "1" THEN BB = LEN(N) NN = LEFT(N, BB) + "_" + MID(N, BB+1, CC-BB) FONT NN, STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ' Pos 1-Taste IF MULTIKEY(&h47) AND AA <> "7" THEN BB = 0 NN = "_" + N FONT NN, STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF '/ IF ASC(AA) < 32 AND ASC(AA) <> 27 AND ASC(AA) <> 13 AND ASC(AA) <> 8 THEN CONTINUE DO IF ASC(AA) > 126 AND ASC(AA) <> 129 AND ASC(AA) <> 132 AND ASC(AA) <> 142 AND ASC(AA) <> 148 AND ASC(AA) <> 153 AND ASC(AA) <> 154 AND ASC(AA) <> 225 THEN CONTINUE DO IF LEFT(AA, 1) = CHR(0) THEN CONTINUE DO SELECT CASE AA CASE CHR(13), CHR(27) SCREENLOCK FONT N + " ", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 SCREENUNLOCK k = 0 EXIT DO CASE CHR(8) SCREENLOCK ' CC = BB BB -= 1 IF BB < 0 THEN BB = 0 ELSE NN = LEFT(N, BB) + MID(N, BB+2, CC-BB) N = NN ' FONT " ", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT (LEFT(N, BB) + "_" + MID(N, BB+1, CC-BB) + " "), STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FONT N + "_", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' BB -= 1 ' SLEEP 3000 END IF SCREENUNLOCK CASE IS <> "" IF LEN(N) < Anzahle THEN SCREENLOCK BB += 1 IF BB > ANZAHLE THEN BB -= 1 ELSE IF BB-1 < LEN(N) THEN CC += 1 NN = LEFT(N, BB-1) + AA + MID(N, BB, CC-BB) N = NN FONT (LEFT(N, BB) + "_" + MID(N, BB+1, CC-BB)), STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE N += AA FONT N + "_", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 CC = BB END IF END IF SCREENUNLOCK END IF ' CASE CHR(255) & CHR(115): BB -= 1: N = LEFT(N, BB): FONT N + "_ ", STELLEN, ZEILEN, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END SELECT ' Spieler suchen IF Seite = 7 THEN DIM AS INTEGER x = 1 IF k = 1 THEN x = Spielernummer FOR j = x TO eingeleseneDaten AAA = LCASE(N) IF INSTR(LCASE(Daten(j, 2)), AAA) > 0 THEN aaa = N: EXIT FOR ' IF INSTR(Daten(j, 2), N) > 0 THEN aaa = N: EXIT FOR ' OR INSTR(LCASE(Daten(j, 2)), N) > 0 OR INSTR(UCASE(Daten(j, 2)), N) > 0 NEXT IF N = "" THEN j = 1 Spielernummer = j ANZEIGE(i) IF laenge > 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten+59)*153+622*(Spielernummer-1)-153*(Spielernummer-1))/(eingeleseneDaten+59) IF laenge <= 4 THEN Scrollbalkenposition(4) = ((eingeleseneDaten*153+618*Spielernummer-153*Spielernummer)/eingeleseneDaten) SCROLLBALKEN Tastensperre(5) = FALSE END IF LOOP END SUB SUB SORTIEREN DIM AS INTEGER zahl(2002), tmp ' z IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' nach ELO sortieren IF Sortierung = 1 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF ELO(k) < ELO(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT ' Sortierung nach Alphabet, wenn ELO, DWZ und Titel gleich sind! FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Spieler(k) > Spieler(k+1) AND ELO(k) = ELO(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT '/ ' 3. DWZ sortieren FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF ELO(k) = ELO(k+1) AND DWZ(k) < DWZ(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF IF ELO(k) < 1 THEN tmp = j: EXIT FOR, FOR NEXT NEXT ' IF tmp <> 0 THEN FOR j = tmp TO TAZ FOR k = tmp TO TAZ-1 IF DWZ(k) < DWZ(k+1) AND ELO(k) < 1 AND Titel(k) = Titel(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT END IF '/ ' 4. Titel sortieren wenn ELO gleich ist FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF ELO(k) = ELO(k+1) THEN IF Titel(k) = "GM" THEN r = 9 IF Titel(k) = "IM" THEN r = 8 IF Titel(k) = "WGM" THEN r = 7 IF Titel(k) = "FM" THEN r = 6 IF Titel(k) = "WIM" THEN r = 5 IF Titel(k) = "CM" THEN r = 4 IF Titel(k) = "WFM" THEN r = 3 IF Titel(k) = "WCM" THEN r = 2 IF Titel(k) = "" THEN r = 1 IF Titel(k+1) = "GM" THEN e = 9 IF Titel(k+1) = "IM" THEN e = 8 IF Titel(k+1) = "WGM" THEN e = 7 IF Titel(k+1) = "FM" THEN e = 6 IF Titel(k+1) = "WIM" THEN e = 5 IF Titel(k+1) = "CM" THEN e = 4 IF Titel(k+1) = "WFM" THEN e = 3 IF Titel(k+1) = "WCM" THEN e = 2 IF Titel(k+1) = "" THEN e = 1 IF r < e THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF END IF NEXT NEXT '/ END IF ' nach DWZ sortieren IF Sortierung = 2 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF DWZ(k) < DWZ(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT ' Sortierung nach Alphabet, wenn DWZ gleich ist! FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Spieler(k) > Spieler(k+1) AND DWZ(k) = DWZ(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT ' Sortierung nach Titel FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF DWZ(k) = DWZ(k+1) THEN IF Titel(k) = "GM" THEN r = 9 IF Titel(k) = "IM" THEN r = 8 IF Titel(k) = "WGM" THEN r = 7 IF Titel(k) = "FM" THEN r = 6 IF Titel(k) = "WIM" THEN r = 5 IF Titel(k) = "CM" THEN r = 4 IF Titel(k) = "WFM" THEN r = 3 IF Titel(k) = "WCM" THEN r = 2 IF Titel(k) = "" THEN r = 1 IF Titel(k+1) = "GM" THEN e = 9 IF Titel(k+1) = "IM" THEN e = 8 IF Titel(k+1) = "WGM" THEN e = 7 IF Titel(k+1) = "FM" THEN e = 6 IF Titel(k+1) = "WIM" THEN e = 5 IF Titel(k+1) = "CM" THEN e = 4 IF Titel(k+1) = "WFM" THEN e = 3 IF Titel(k+1) = "WCM" THEN e = 2 IF Titel(k+1) = "" THEN e = 1 IF r < e THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF END IF NEXT NEXT END IF ' per Zufall sortieren IF Sortierung = 3 THEN ' COLOR &hFFFFFF FOR j = 1 TO TAZ Temp(j, 1) = Spieler(j) ' Spielernamen zwischenspeichern Temp(j, 2) = LTRIM(STR(ELO(j))) ' ELO zwischenspeichern Temp(j, 3) = LTRIM(STR(DWZ(j))) ' DWZ zwischenspeichern Temp(j, 4) = Titel(j) ' Titel zwischenspeichern Temp(j, 5) = Verein(j) ' SonnebornBerger zwischenspeichern Temp(j, 6) = Geburt(j) Temp(j, 7) = FIDEID(j) Temp(j, 8) = Geschlecht(j) Temp(j, 9) = Nation(j) Temp(j, 14) = PKZ(j) Temp(j, 15) = Vnummer(j) Temp(j, 16) = Mnummer(j) Temp(j, 0) = kFaktor(j) Temp(j, -2) = FesteBrettnummer(j) Temp(j, -3) = SpielerAttribut(j) Temp(j, -4) = EMPFAENGER(j) Temp(j, -5) = Telefonnummer(j) Temp(j, -1) = LTRIM(STR(Startgebuehr(j))) FOR k = 18 TO 53 Temp(j, k) = LTRIM(STR(fehlendeSpieler(j, k-17))) NEXT zahl(j) = 0 NEXT FOR j = 1 TO TAZ DO z = INT(RND * TAZ) + 1 IF Zahl(z) = 0 THEN Zahl(z) = 1 EXIT DO IF MULTIKEY(&h01) THEN END END IF LOOP Spieler(j) = Temp(z, 1) ELO(j) = VAL(Temp(z, 2)) DWZ(j) = VAL(Temp(z, 3)) Titel(j) = Temp(z, 4) Verein(j) = Temp(z, 5) Geburt(j) = Temp(z, 6) FIDEID(j) = Temp(z, 7) Geschlecht(j) = Temp(z, 8) Nation(j) = Temp(z, 9) PKZ(j) = Temp(z, 14) Vnummer(j) = Temp(z, 15) Mnummer(j) = Temp(z, 16) kFaktor(j) = Temp(z, 0) SWAP FesteBrettnummer(j), Temp(z, -2) SWAP SpielerAttribut(j), Temp(z, -3) EMPFAENGER(j) = Temp(z, -4) Telefonnummer(j) = Temp(z, -5) Startgebuehr(j) = VAL(Temp(z, -1)) FOR k = 18 TO 53 fehlendeSpieler(j, k-17) = VAL(Temp(z, k)) NEXT IF MULTIKEY(&h01) THEN END NEXT END IF ' nach dem Alphabet sortieren IF Sortierung = 4 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Spieler(k) > Spieler(k+1) THEN SWAP ELO(k), ELO(k+1) SWAP DWZ(k), DWZ(k+1) SWAP Titel(k), Titel(k+1) SWAP Spieler(k), Spieler(k+1) SWAP Verein(k), Verein(k+1) SWAP Geburt(k), Geburt(k+1) SWAP FIDEID(k), FIDEID(k+1) SWAP Geschlecht(k), Geschlecht(k+1) SWAP Nation(k), Nation(k+1) SWAP PKZ(k), PKZ(k+1) SWAP Vnummer(k), Vnummer(k+1) SWAP Mnummer(k), Mnummer(k+1) SWAP kFaktor(k), kFaktor(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) SWAP FesteBrettnummer(k), FesteBrettnummer(k+1) SWAP EMPFAENGER(k), EMPFAENGER(k+1) SWAP Telefonnummer(k), Telefonnummer(k+1) SWAP SpielerAttribut(k), SpielerAttribut(k+1) FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MANNSCHAFTSRATING ' Wertungszahl der Mannschaften errechnen ' nach ELO sortieren IF Sortierung = 1 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Korrektur(k, 1) < Korrektur(k+1, 1) THEN SWAP Team(k), Team(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) SWAP Korrektur(k, 1), Korrektur(k+1, 1) SWAP Korrektur(k, 2), Korrektur(k+1, 2) FOR e = 1 TO 50 SWAP Spieler((k*50-50)+e), Spieler(((k+1)*50-50)+e) SWAP ELO((k*50-50)+e), ELO(((k+1)*50-50)+e) SWAP DWZ((k*50-50)+e), DWZ(((k+1)*50-50)+e) SWAP Titel((k*50-50)+e), Titel(((k+1)*50-50)+e) SWAP Verein((k*50-50)+e), Verein(((k+1)*50-50)+e) SWAP Geburt((k*50-50)+e), Geburt(((k+1)*50-50)+e) SWAP FIDEID((k*50-50)+e), FIDEID(((k+1)*50-50)+e) SWAP Geschlecht((k*50-50)+e), Geschlecht(((k+1)*50-50)+e) SWAP Nation((k*50-50)+e), Nation(((k+1)*50-50)+e) SWAP PKZ((k*50-50)+e), PKZ(((k+1)*50-50)+e) SWAP Vnummer((k*50-50)+e), Vnummer(((k+1)*50-50)+e) SWAP Mnummer((k*50-50)+e), Mnummer(((k+1)*50-50)+e) SWAP kFaktor((k*50-50)+e), kFaktor(((k+1)*50-50)+e) SWAP FesteBrettnummer((k*50-50)+e), FesteBrettnummer(((k+1)*50-50)+e) SWAP SpielerAttribut((k*50-50)+e), SpielerAttribut(((k+1)*50-50)+e) NEXT FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT ' Sortierung nach Alphabet, wenn ELO, DWZ und Titel gleich sind! FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Team(k) > Team(k+1) AND Korrektur(k, 1) = Korrektur(k+1, 1) THEN SWAP Team(k), Team(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) SWAP Korrektur(k, 1), Korrektur(k+1, 1) SWAP Korrektur(k, 2), Korrektur(k+1, 2) FOR e = 1 TO 50 SWAP Spieler((k*50-50)+e), Spieler(((k+1)*50-50)+e) SWAP ELO((k*50-50)+e), ELO(((k+1)*50-50)+e) SWAP DWZ((k*50-50)+e), DWZ(((k+1)*50-50)+e) SWAP Titel((k*50-50)+e), Titel(((k+1)*50-50)+e) SWAP Verein((k*50-50)+e), Verein(((k+1)*50-50)+e) SWAP Geburt((k*50-50)+e), Geburt(((k+1)*50-50)+e) SWAP FIDEID((k*50-50)+e), FIDEID(((k+1)*50-50)+e) SWAP Geschlecht((k*50-50)+e), Geschlecht(((k+1)*50-50)+e) SWAP Nation((k*50-50)+e), Nation(((k+1)*50-50)+e) SWAP PKZ((k*50-50)+e), PKZ(((k+1)*50-50)+e) SWAP Vnummer((k*50-50)+e), Vnummer(((k+1)*50-50)+e) SWAP Mnummer((k*50-50)+e), Mnummer(((k+1)*50-50)+e) SWAP kFaktor((k*50-50)+e), kFaktor(((k+1)*50-50)+e) SWAP FesteBrettnummer((k*50-50)+e), FesteBrettnummer(((k+1)*50-50)+e) SWAP SpielerAttribut((k*50-50)+e), SpielerAttribut(((k+1)*50-50)+e) NEXT FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT ' 3. DWZ sortieren FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Korrektur(k, 1) = Korrektur(k+1, 1) AND Korrektur(k, 2) < Korrektur(k+1, 2) THEN SWAP Team(k), Team(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) SWAP Korrektur(k, 1), Korrektur(k+1, 1) SWAP Korrektur(k, 2), Korrektur(k+1, 2) FOR e = 1 TO 50 SWAP Spieler((k*50-50)+e), Spieler(((k+1)*50-50)+e) SWAP ELO((k*50-50)+e), ELO(((k+1)*50-50)+e) SWAP DWZ((k*50-50)+e), DWZ(((k+1)*50-50)+e) SWAP Titel((k*50-50)+e), Titel(((k+1)*50-50)+e) SWAP Verein((k*50-50)+e), Verein(((k+1)*50-50)+e) SWAP Geburt((k*50-50)+e), Geburt(((k+1)*50-50)+e) SWAP FIDEID((k*50-50)+e), FIDEID(((k+1)*50-50)+e) SWAP Geschlecht((k*50-50)+e), Geschlecht(((k+1)*50-50)+e) SWAP Nation((k*50-50)+e), Nation(((k+1)*50-50)+e) SWAP PKZ((k*50-50)+e), PKZ(((k+1)*50-50)+e) SWAP Vnummer((k*50-50)+e), Vnummer(((k+1)*50-50)+e) SWAP Mnummer((k*50-50)+e), Mnummer(((k+1)*50-50)+e) SWAP kFaktor((k*50-50)+e), kFaktor(((k+1)*50-50)+e) SWAP FesteBrettnummer((k*50-50)+e), FesteBrettnummer(((k+1)*50-50)+e) SWAP SpielerAttribut((k*50-50)+e), SpielerAttribut(((k+1)*50-50)+e) NEXT FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF IF ELO((k*50-50)+e) < 1 THEN tmp = j: EXIT FOR, FOR NEXT NEXT END IF ' nach DWZ sortieren IF Sortierung = 2 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Korrektur(k, 2) < Korrektur(k+1, 2) THEN SWAP Team(k), Team(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) SWAP Korrektur(k, 1), Korrektur(k+1, 1) SWAP Korrektur(k, 2), Korrektur(k+1, 2) FOR e = 1 TO 50 SWAP Spieler((k*50-50)+e), Spieler(((k+1)*50-50)+e) SWAP ELO((k*50-50)+e), ELO(((k+1)*50-50)+e) SWAP DWZ((k*50-50)+e), DWZ(((k+1)*50-50)+e) SWAP Titel((k*50-50)+e), Titel(((k+1)*50-50)+e) SWAP Verein((k*50-50)+e), Verein(((k+1)*50-50)+e) SWAP Geburt((k*50-50)+e), Geburt(((k+1)*50-50)+e) SWAP FIDEID((k*50-50)+e), FIDEID(((k+1)*50-50)+e) SWAP Geschlecht((k*50-50)+e), Geschlecht(((k+1)*50-50)+e) SWAP Nation((k*50-50)+e), Nation(((k+1)*50-50)+e) SWAP PKZ((k*50-50)+e), PKZ(((k+1)*50-50)+e) SWAP Vnummer((k*50-50)+e), Vnummer(((k+1)*50-50)+e) SWAP Mnummer((k*50-50)+e), Mnummer(((k+1)*50-50)+e) SWAP kFaktor((k*50-50)+e), kFaktor(((k+1)*50-50)+e) SWAP FesteBrettnummer((k*50-50)+e), FesteBrettnummer(((k+1)*50-50)+e) SWAP SpielerAttribut((k*50-50)+e), SpielerAttribut(((k+1)*50-50)+e) NEXT FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT ' Sortierung nach Alphabet, wenn DWZ gleich ist! FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Team(k) > Team(k+1) AND Korrektur(k, 2) = Korrektur(k+1, 2) THEN SWAP Team(k), Team(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) SWAP Korrektur(k, 1), Korrektur(k+1, 1) SWAP Korrektur(k, 2), Korrektur(k+1, 2) FOR e = 1 TO 50 SWAP Spieler((k*50-50)+e), Spieler(((k+1)*50-50)+e) SWAP ELO((k*50-50)+e), ELO(((k+1)*50-50)+e) SWAP DWZ((k*50-50)+e), DWZ(((k+1)*50-50)+e) SWAP Titel((k*50-50)+e), Titel(((k+1)*50-50)+e) SWAP Verein((k*50-50)+e), Verein(((k+1)*50-50)+e) SWAP Geburt((k*50-50)+e), Geburt(((k+1)*50-50)+e) SWAP FIDEID((k*50-50)+e), FIDEID(((k+1)*50-50)+e) SWAP Geschlecht((k*50-50)+e), Geschlecht(((k+1)*50-50)+e) SWAP Nation((k*50-50)+e), Nation(((k+1)*50-50)+e) SWAP PKZ((k*50-50)+e), PKZ(((k+1)*50-50)+e) SWAP Vnummer((k*50-50)+e), Vnummer(((k+1)*50-50)+e) SWAP Mnummer((k*50-50)+e), Mnummer(((k+1)*50-50)+e) SWAP kFaktor((k*50-50)+e), kFaktor(((k+1)*50-50)+e) SWAP FesteBrettnummer((k*50-50)+e), FesteBrettnummer(((k+1)*50-50)+e) SWAP SpielerAttribut((k*50-50)+e), SpielerAttribut(((k+1)*50-50)+e) NEXT FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT END IF ' per Zufall sortieren IF Sortierung = 3 THEN ' COLOR &hFFFFFF FOR j = 1 TO TAZ zahl(j) = 0 NEXT FOR j = 1 TO TAZ DO z = INT(RND * TAZ) + 1 IF Zahl(z) = 0 THEN Zahl(z) = 1 EXIT DO IF MULTIKEY(&h01) THEN END END IF LOOP SWAP Team(j), Team(z) SWAP Startgebuehr(j), Startgebuehr(z) FOR e = 1 TO 50 SWAP Spieler((z*50-50)+e), Spieler((j*50-50)+e) SWAP ELO((z*50-50)+e), ELO((j*50-50)+e) SWAP DWZ((z*50-50)+e), DWZ((j*50-50)+e) SWAP Titel((z*50-50)+e), Titel((j*50-50)+e) SWAP Verein((z*50-50)+e), Verein((j*50-50)+e) SWAP Geburt((z*50-50)+e), Geburt((j*50-50)+e) SWAP FIDEID((z*50-50)+e), FIDEID((j*50-50)+e) SWAP Geschlecht((z*50-50)+e), Geschlecht((j*50-50)+e) SWAP Nation((z*50-50)+e), Nation((j*50-50)+e) SWAP PKZ((z*50-50)+e), PKZ((j*50-50)+e) SWAP Vnummer((z*50-50)+e), Vnummer((j*50-50)+e) SWAP Mnummer((z*50-50)+e), Mnummer((j*50-50)+e) SWAP kFaktor((z*50-50)+e), kFaktor((j*50-50)+e) SWAP FesteBrettnummer((z*50-50)+e), FesteBrettnummer(((j+1)*50-50)+e) SWAP SpielerAttribut((z*50-50)+e), SpielerAttribut(((j+1)*50-50)+e) NEXT FOR k = 18 TO 53 SWAP fehlendeSpieler(j, k-17), fehlendeSpieler(z, k-17) NEXT ' IF MULTIKEY(&h01) THEN END NEXT END IF ' nach dem Alphabet sortieren IF Sortierung = 4 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ-1 IF Team(k) > Team(k+1) THEN SWAP Team(k), Team(k+1) SWAP Startgebuehr(k), Startgebuehr(k+1) FOR e = 1 TO 50 SWAP Spieler((k*50-50)+e), Spieler(((k+1)*50-50)+e) SWAP ELO((k*50-50)+e), ELO(((k+1)*50-50)+e) SWAP DWZ((k*50-50)+e), DWZ(((k+1)*50-50)+e) SWAP Titel((k*50-50)+e), Titel(((k+1)*50-50)+e) SWAP Verein((k*50-50)+e), Verein(((k+1)*50-50)+e) SWAP Geburt((k*50-50)+e), Geburt(((k+1)*50-50)+e) SWAP FIDEID((k*50-50)+e), FIDEID(((k+1)*50-50)+e) SWAP Geschlecht((k*50-50)+e), Geschlecht(((k+1)*50-50)+e) SWAP Nation((k*50-50)+e), Nation(((k+1)*50-50)+e) SWAP PKZ((k*50-50)+e), PKZ(((k+1)*50-50)+e) SWAP Vnummer((k*50-50)+e), Vnummer(((k+1)*50-50)+e) SWAP Mnummer((k*50-50)+e), Mnummer(((k+1)*50-50)+e) SWAP kFaktor((k*50-50)+e), kFaktor(((k+1)*50-50)+e) SWAP FesteBrettnummer((k*50-50)+e), FesteBrettnummer(((k+1)*50-50)+e) SWAP SpielerAttribut((k*50-50)+e), SpielerAttribut(((k+1)*50-50)+e) NEXT FOR z = 1 TO 36 SWAP fehlendeSpieler(k, z), fehlendeSpieler(k+1, z) NEXT END IF NEXT NEXT END IF END IF END SUB SUB LOESCHEN ' Dateiendung definieren ' fil = "Turnierdateien (*.stop)" + CHR(0) + "*.STOP" + CHR(0) ' Eintrag aus Datei löschen ' Datei anschließend neu laden IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Eintrag(i) = 1 ' Eintrag zum löschen auswählen! ' gelöschte Einträge zählen z = 0 FOR j = 1 TO TAZ IF Eintrag(j) = 1 THEN z = j NEXT ' Anzahl der Einträge ermitteln FOR j = 1 TO TAZ IF j >= z THEN ELO(j) = ELO(j+1) DWZ(j) = DWZ(j+1) Titel(j) = Titel(j+1) Spieler(j) = Spieler(j+1) Verein(j) = Verein(j+1) Geburt(j) = Geburt(j+1) FIDEID(j) = FIDEID(j+1) Geschlecht(j) = Geschlecht(j+1) Nation(j) = Nation(j+1) PKZ(j) = PKZ(j+1) Vnummer(j) = Vnummer(j+1) Mnummer(j) = Mnummer(j+1) kFaktor(j) = kFaktor(j+1) FesteBrettnummer(j) = FesteBrettnummer(j+1) SpielerAttribut(j) = SpielerAttribut(j+1) Startgebuehr(j) = Startgebuehr(j+1) FOR k = 1 TO 36 fehlendeSpieler(j, k) = fehlendeSpieler(j+1, k) NEXT END IF NEXT ELO(TAZ) = 0 DWZ(TAZ) = 0 Titel(TAZ) = "" Spieler(TAZ) = "" Verein(TAZ) = "" Geburt(TAZ) = "" FIDEID(TAZ) = "" Geschlecht(TAZ) = "" Nation(TAZ) = "" PKZ(TAZ) = "" Vnummer(TAZ) = "" Mnummer(TAZ) = "" kFaktor(TAZ) = "" Startgebuehr(TAZ) = 0 FesteBrettnummer(TAZ) = "" SpielerAttribut(TAZ) = "" ' Teilnehmeranzahl definieren TAZ -= 1 ' DIM f AS INTEGER = FREEFILE /' Datei nach löschen eines Elementes speichern IF DateiName <> "" THEN OPEN DateiName FOR OUTPUT AS #f FOR j = 1 TO TAZ OemToChar Spieler(j), Spieler(j) OemToChar Verein(j), Verein(j) IF Eintrag(j) <> 1 THEN WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), _ fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), _ fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), _ fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), _ fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), _ fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) NEXT CLOSE #f MessageBox(0, Sprachausgaben(27), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF ' IF DateiName = "" AND ELO(1) <> 0 THEN DateiName = LOADSAVEDIALOG (1,fil,1,,"stop") OPEN DateiName FOR OUTPUT AS #f FOR j = 1 TO TAZ OemToChar Spieler(j), Spieler(j) OemToChar Verein(j), Verein(j) IF Eintrag(j) <> 1 THEN WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), _ fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), _ fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), _ fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), _ fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), _ fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) NEXT CLOSE #f IF DateiName <> "" THEN MessageBox(0, Sprachausgaben(27), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF '/ ' Eintrag(i) = 0 ' Eintrag wurde gelöscht und wird wieder freigeben für den nächsten Löschvorgang IF Paarungssystem < 5 OR Paarungssystem = 8 THEN Eingabe(1) = Spieler(1) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Eingabe(1) = Team(1) IF ELO(1) <> 0 THEN Eingabe(2) = STR(ELO(1)) IF DWZ(1) <> 0 THEN Eingabe(3) = STR(DWZ(1)) Eingabe(4) = STR(Titel(1)) Eingabe(5) = Verein(1) Eingabe(6) = Geburt(1) Eingabe(7) = FIDEID(1) Eingabe(24) = Geschlecht(1) Eingabe(25) = Nation(1) Eingabe(26) = PKZ(1) Eingabe(27) = Vnummer(1) Eingabe(28) = Mnummer(1) Eingabe(30) = kFaktor(1) Eingabe(37) = FesteBrettnummer(1) Eingabe(38) = SpielerAttribut(1) i = 1 ANZEIGE(i) /' Werte aus Datei einlesen IF DateiName <> "" THEN FOR j = 1 TO maxAnzahl Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" fehlendeSpieler(j, k) = 0 NEXT '/ /' Daten einlesen OPEN DateiName FOR INPUT AS #f TAZ = 1 DO UNTIL EOF(f) INPUT #f, ELO(TAZ), DWZ(TAZ), Titel(TAZ), Spieler(TAZ), Verein(TAZ), Geburt(TAZ), FIDEID(TAZ), Geschlecht(TAZ), Nation(TAZ), PKZ(TAZ), Vnummer(TAZ), Mnummer(TAZ), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), _ fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), _ fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), _ fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), _ fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), _ fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) CharToOem Spieler(TAZ), Spieler(TAZ) CharToOem Verein(TAZ), Verein(TAZ) IF TAZ > 2000 THEN EXIT DO TAZ += 1 LOOP IF TAZ > 0 THEN TAZ -= 1 CLOSE #f Eingabe(1) = Spieler(1) IF ELO(1) <> 0 THEN Eingabe(2) = STR(ELO(1)) IF DWZ(1) <> 0 THEN Eingabe(3) = STR(DWZ(1)) Eingabe(4) = STR(Titel(1)) Eingabe(5) = Verein(1) Eingabe(6) = Geburt(1) Eingabe(7) = FIDEID(1) Eingabe(24) = Geschlecht(1) Eingabe(25) = Nation(1) Eingabe(26) = PKZ(1) Eingabe(27) = Vnummer(1) Eingabe(28) = Mnummer(1) i = 1 ANZEIGE(i) END IF '/ END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Eintrag(i) = 1 ' Eintrag zum löschen auswählen! ' gelöschte Einträge zählen z = 0 FOR j = 1 TO TAZ IF Eintrag(j) = 1 THEN z = j NEXT FOR j = 1 TO TAZ IF j >= z THEN Team(j) = Team(j+1) FOR k = 1 TO 36 fehlendeSpieler(j, k) = fehlendeSpieler(j+1, k) NEXT FOR k = 1 TO 50 ELO(((j*50-50)+k)) = ELO((((j+1)*50-50)+k)) DWZ(((j*50-50)+k)) = DWZ((((j+1)*50-50)+k)) Titel(((j*50-50)+k)) = Titel((((j+1)*50-50)+k)) Spieler(((j*50-50)+k)) = Spieler((((j+1)*50-50)+k)) Verein(((j*50-50)+k)) = Verein((((j+1)*50-50)+k)) Geburt(((j*50-50)+k)) = Geburt((((j+1)*50-50)+k)) FIDEID(((j*50-50)+k)) = FIDEID((((j+1)*50-50)+k)) Geschlecht(((j*50-50)+k)) = Geschlecht((((j+1)*50-50)+k)) Nation(((j*50-50)+k)) = Nation((((j+1)*50-50)+k)) PKZ(((j*50-50)+k)) = PKZ((((j+1)*50-50)+k)) Vnummer(((j*50-50)+k)) = Vnummer((((j+1)*50-50)+k)) Mnummer(((j*50-50)+k)) = Mnummer((((j+1)*50-50)+k)) kFaktor(((j*50-50)+k)) = kFaktor((((j+1)*50-50)+k)) FesteBrettnummer(((j*50-50)+k)) = FesteBrettnummer((((j+1)*50-50)+k)) SpielerAttribut(((j*50-50)+k)) = SpielerAttribut((((j+1)*50-50)+k)) NEXT END IF NEXT ' letzten Eintrag löschen Team(TAZ) = "" FOR j = 1 TO 50 k = ((TAZ*50-50)+j) ELO(k) = 0 DWZ(k) = 0 Titel(k) = "" Spieler(k) = "" Verein(k) = "" Geburt(k) = "" FIDEID(k) = "" Geschlecht(k) = "" Nation(k) = "" PKZ(k) = "" Vnummer(k) = "" Mnummer(k) = "" kFaktor(k) = "" FesteBrettnummer(k) = "" SpielerAttribut(k) = "" NEXT ' Teilnehmeranzahl definieren TAZ -= 1 ' Eintrag(i) = 0 ' Eintrag wurde gelöscht und wird wieder freigeben für den nächsten Löschvorgang ' Mannschaft 1 aufrufen Eingabe(1) = Team(1) i = 1 ANZEIGE(i) ' k = ((i*50-50)+s) /' ELO(j) = ELO(j+1) DWZ(j) = DWZ(j+1) Titel(j) = Titel(j+1) Spieler(j) = Spieler(j+1) Verein(j) = Verein(j+1) Geburt(j) = Geburt(j+1) FIDEID(j) = FIDEID(j+1) Geschlecht(j) = Geschlecht(j+1) Nation(j) = Nation(j+1) PKZ(j) = PKZ(j+1) Vnummer(j) = Vnummer(j+1) Mnummer(j) = Mnummer(j+1) '/ END IF END SUB SUB LADEN(Combobox AS Gadget PTR) ' IF Paarungssystem < 5 THEN MENU: ANZEIGE(1) ' IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MENU: ANZEIGE(1) DIM f AS INTEGER = FREEFILE ' fil = "Turnierdateien (*.stop)" + CHR(0) + "*.STOP" fil = "Turnierdateien (*.stop)" + CHR(0) + "*.STOP" + CHR(0) + "Fide Data Import (*.trf)" + CHR(0) + "*.TRF" + CHR(0) + "Fide Data Import (*.fid)" + CHR(0) + "*.FID" + CHR(0) DateiName = LOADSAVEDIALOG (,fil,1,,"stop") ' Tunier Report Datei laden .trf / .fid IF RIGHT(Dateiname, 1) = "f" OR RIGHT(Dateiname, 1) = "F" THEN TRF(2): EXIT SUB IF RIGHT(Dateiname, 1) = "d" OR RIGHT(Dateiname, 1) = "D" THEN TRF(3): EXIT SUB 'Voreinstellungen: 'savedlog = 0 "Datei Öffnen", 1(<>0) "Datei Speichern" 'filter = "" "Alle Dateien", sonst siehe fil 'fltrindex = 1, sonst welcher Eintrag, der bei filter angegebenen Auswahl, aktiv ist 'initdir = "" = "." aktueller Pfad, sonst angegebener Pfad 'strDefExt = "" keine Vorgabe, sonst z.B. "bak" als Vorgabe der Endung zum Speichern IF DateiName <> "" THEN RUECKSETZEN ' eingegebene Daten löschen ' ******************************************************************************************************************************************************************* /' Dim As String zeile, ersterWert Line Input #f, zeile ersterWert = Left(zeile, InStr(zeile, ",") - 1) ' jetzt kannst du ersterWert in Version oder eine andere Variable übernehmen: Version = Val(ersterWert) '/ ' ******************************************************************************************************************************************************************* ' Versionsnummer laden bzw. definieren IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Info_stop") THEN Version = 3 ELSE ' Dateiversion einlesen OPEN DateiName FOR INPUT AS #f DO UNTIL EOF(f) INPUT #f, Version, j, j, j, j, AA, AA, AA, AA, AA, AA, j, j, j, j, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, AA, j, j, j, j ' , Version EXIT DO LOOP CLOSE #f IF Version = 3 THEN Version = 4 END IF IF Version = 3 THEN OPEN DateiName FOR INPUT AS #f TAZ = 0 DO UNTIL EOF(f) TAZ += 1 INPUT #f, ELO(TAZ), DWZ(TAZ), Titel(TAZ), Spieler(TAZ), Verein(TAZ), Geburt(TAZ), FIDEID(TAZ), Geschlecht(TAZ), Nation(TAZ), PKZ(TAZ), Vnummer(TAZ), Mnummer(TAZ), _ fehlendeSpieler(TAZ, 1), fehlendeSpieler(TAZ, 2), fehlendeSpieler(TAZ, 3), fehlendeSpieler(TAZ, 4), fehlendeSpieler(TAZ, 5), fehlendeSpieler(TAZ, 6), _ fehlendeSpieler(TAZ, 7), fehlendeSpieler(TAZ, 8), fehlendeSpieler(TAZ, 9), fehlendeSpieler(TAZ, 10), fehlendeSpieler(TAZ, 11), fehlendeSpieler(TAZ, 12), _ fehlendeSpieler(TAZ, 13), fehlendeSpieler(TAZ, 14), fehlendeSpieler(TAZ, 15), fehlendeSpieler(TAZ, 16), fehlendeSpieler(TAZ, 17), fehlendeSpieler(TAZ, 18), _ fehlendeSpieler(TAZ, 19), fehlendeSpieler(TAZ, 20), fehlendeSpieler(TAZ, 21), fehlendeSpieler(TAZ, 22), fehlendeSpieler(TAZ, 23), fehlendeSpieler(TAZ, 24), _ fehlendeSpieler(TAZ, 25), fehlendeSpieler(TAZ, 26), fehlendeSpieler(TAZ, 27), fehlendeSpieler(TAZ, 28), fehlendeSpieler(TAZ, 29), fehlendeSpieler(TAZ, 30), _ fehlendeSpieler(TAZ, 31), fehlendeSpieler(TAZ, 32), fehlendeSpieler(TAZ, 33), fehlendeSpieler(TAZ, 34), fehlendeSpieler(TAZ, 35), fehlendeSpieler(TAZ, 36) ' CharToOem Spieler(TAZ), Spieler(TAZ) ' CharToOem Verein(TAZ), Verein(TAZ) IF TAZ >= MaxAnzahl THEN EXIT DO LOOP IF Spieler(1) = "" THEN TAZ -= 1 IF TAZ < 0 THEN TAZ = 0 CLOSE #f IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Info_stop") THEN j = 0 OPEN TRIM(DateiName, ".STOP") + ".Info_stop" FOR INPUT AS #f ' laden DO UNTIL EOF(f) IF j < 1 THEN INPUT #f, Version, RAZ, Eingabe(9), Eingabe(10), Eingabe(11), Eingabe(12), Eingabe(13), Eingabe(14), Eingabe(15), Eingabe(16), Eingabe(17), Eingabe(18), Eingabe(19), Eingabe(20), Eingabe(21), Eingabe(22), Eingabe(24), Eingabe(25), Eingabe(26), Eingabe(27), Eingabe(28), Paarungssystem, Feinwertungssystem(1), Feinwertungssystem(2), HalbBye ' , Version REDIM AS STRING Datum(0 TO (RAZ+39)), Uhrzeit(0 TO (RAZ+39))' Datum und Uhrzeit initialisieren END IF IF j > 0 THEN INPUT #f, ausgelosteRunde(j), ppr(j), Datum(j), Uhrzeit(j) j += 1 LOOP CLOSE #f IF RAZ = 0 THEN RAZ = 1 ' wegen Fehlermeldung "out of bounds" vorhanden!!! ' höchste Bretteranzahl ermitteln FOR j = 1 TO RAZ IF ppr(j) > ppr(j-1) THEN k = j NEXT IF Paarungssystem >= 3 AND Paarungssystem <= 5 THEN k = MaxAnzahl / 2 ' REDIM paarungen(0 TO (k+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren ' REDIM paarungen(0 TO (ppr(k)+59), 0 TO 3, 0 TO RAZ+1) ' Paarungen neu initialisieren IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Paarungen_stop") THEN OPEN TRIM(DateiName, ".STOP") + ".Paarungen_stop" FOR INPUT AS #f FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) ' IF r MOD 2 = 0 THEN SWAP paarungen(1,1,r),paarungen(1,2,r) ' bei jeder geraden Runde erstes Paar tauschen INPUT #f, paarungen(j,1,r), paarungen(j,2,r), Punkte(paarungen(j,1,r),r), Punkte(paarungen(j,2,r),r), kampflose(j, r) NEXT NEXT CLOSE #f END IF END IF END IF IF Version = 4 THEN OPEN DateiName FOR INPUT AS #f j = 0 ' Turnierinformationen einlesen DO UNTIL EOF(f) IF j < 1 THEN INPUT #f, Version, Seriennummer, Tiebreakmode, KoyaLimit(1), KoyaLimit(2), AA, AA, AA, AA, AA, AA, Bretter, sortstartrank, TAZ, RAZ, Eingabe(9), Eingabe(10), Eingabe(11), Eingabe(12), Eingabe(13), Eingabe(14), Eingabe(15), Eingabe(16), Eingabe(17), Eingabe(18), Eingabe(19), Eingabe(20), Eingabe(21), Eingabe(22), Eingabe(24), Eingabe(25), Eingabe(26), Eingabe(27), Eingabe(28), Paarungssystem, Feinwertungssystem(1), Feinwertungssystem(2), HalbBye ' , Version REDIM AS STRING Datum(0 TO (RAZ+39)), Uhrzeit(0 TO (RAZ+39))' Datum und Uhrzeit initialisieren END IF IF j > 0 THEN INPUT #f, ausgelosteRunde(j), ppr(j), Datum(j), Uhrzeit(j) j += 1 IF j > RAZ THEN EXIT DO LOOP IF KoyaLimit(1) < 1 OR KoyaLimit(1) > 99 THEN KoyaLimit(1) = 50 IF KoyaLimit(2) < 1 OR KoyaLimit(2) > 99 THEN KoyaLimit(2) = 50 ' Spieler einlesen j = 0 DO UNTIL EOF(f) j += 1 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN INPUT #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j), _ Startgebuehr(j), fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), _ fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), _ fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), _ fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), _ fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), _ fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN INPUT #f, Team(j), Startgebuehr(j), fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), _ fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), _ fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), _ fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), _ fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), _ fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), _ fehlendeSpieler(j, 36) END IF IF j >= TAZ THEN EXIT DO LOOP IF RAZ = 0 THEN RAZ = 1 ' wegen Fehlermeldung "out of bounds" vorhanden!!! ' höchste Bretteranzahl ermitteln FOR j = 1 TO RAZ IF ppr(j) > ppr(j-1) THEN k = j NEXT ' Paarungen neu initialisieren - Rundensystem IF Paarungssystem < 3 AND Paarungssystem >= 0 THEN REDIM paarungen(0 TO (ppr(k)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren - Ligaverwaltung IF Paarungssystem = 6 OR Paarungssystem = 7 THEN REDIM paarungen(0 TO (ppr(k)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren - Schweizer System - Dutch IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 11 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen neu initialisieren - Schweizer System - Burstein IF Paarungssystem = 8 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen neu initialisieren - KO-System IF Paarungssystem = 9 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen einlesen im Einzelmodus FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) IF ausgelosteRunde(r) = 1 AND ppr(r) <> 0 THEN INPUT #f, paarungen(j,1,r), paarungen(j,2,r), Punkte(paarungen(j,1,r),r), Punkte(paarungen(j,2,r),r), kampflose(j, r) NEXT NEXT ' Paarungen im Mannschaftsmodus einlesen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Aufstellungen der Mannschaftsspieler einlesen FOR j = 1 TO TAZ FOR r = 1 TO RAZ FOR k = 1 TO Bretter INPUT #f, Teamspieler(j, k, r) NEXT NEXT NEXT ' Einzelergebnisse der jeweiligen Mannschaften einlesen FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) IF ppr(r) <> 0 THEN FOR k = 1 TO Bretter INPUT #f, Einzelergebnisse(j, k, r) NEXT END IF NEXT NEXT ' Mannschaftsergebnisse jeder Runde einlesen FOR r = 1 TO RAZ FOR j = 1 TO TAZ INPUT #f, Mannschaftspunkte(j,r) NEXT NEXT '/ ' Mannschaftsspieler einlesen FOR r = 1 TO TAZ FOR k = 1 TO 50 j = ((r*50-50)+k) INPUT #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j) NEXT NEXT END IF CLOSE #f END IF ' Dateiversion 5 einlesen IF Version = 5 THEN OPEN DateiName FOR INPUT AS #f j = 0 ' Turnierinformationen einlesen DO UNTIL EOF(f) IF j < 1 THEN INPUT #f, Version, Seriennummer, Tiebreakmode, KoyaLimit(1), KoyaLimit(2), AA, AA, AA, AA, AA, AA, Bretter, sortstartrank, TAZ, RAZ, Eingabe(9), Eingabe(10), Eingabe(11), Eingabe(12), Eingabe(13), Eingabe(14), Eingabe(15), Eingabe(16), Eingabe(17), Eingabe(18), Eingabe(19), Eingabe(20), Eingabe(21), Eingabe(22), Eingabe(24), Eingabe(25), Eingabe(26), Eingabe(27), Eingabe(28), Paarungssystem, Feinwertungssystem(1), Feinwertungssystem(2), HalbBye ' , Version REDIM AS STRING Datum(0 TO (RAZ+39)), Uhrzeit(0 TO (RAZ+39))' Datum und Uhrzeit initialisieren END IF IF j > 0 THEN INPUT #f, ausgelosteRunde(j), ppr(j), Datum(j), Uhrzeit(j) j += 1 IF j > RAZ THEN EXIT DO LOOP IF KoyaLimit(1) < 1 OR KoyaLimit(1) > 99 THEN KoyaLimit(1) = 50 IF KoyaLimit(2) < 1 OR KoyaLimit(2) > 99 THEN KoyaLimit(2) = 50 ' Spieler einlesen j = 0 DO UNTIL EOF(f) j += 1 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' SpielerAttribut ' (Höhe der Startgebühr) ' Feste Brettnummer INPUT #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j), _ Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), _ fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), _ fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), _ fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), _ fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), _ fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN INPUT #f, Team(j), Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), _ fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), _ fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), _ fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), _ fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), _ fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), _ fehlendeSpieler(j, 36) END IF IF j >= TAZ THEN EXIT DO LOOP IF RAZ = 0 THEN RAZ = 1 ' wegen Fehlermeldung "out of bounds" vorhanden!!! ' höchste Bretteranzahl ermitteln FOR j = 1 TO RAZ IF ppr(j) > ppr(j-1) THEN k = j NEXT ' Paarungen neu initialisieren - Rundensystem IF Paarungssystem < 3 AND Paarungssystem >= 0 THEN REDIM paarungen(0 TO (ppr(k)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren - Ligaverwaltung IF Paarungssystem = 6 OR Paarungssystem = 7 THEN REDIM paarungen(0 TO (ppr(k)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren - Schweizer System - Dutch IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 11 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen neu initialisieren - Schweizer System - Burstein IF Paarungssystem = 8 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen neu initialisieren - KO-System IF Paarungssystem = 9 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen einlesen im Einzelmodus FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) IF ausgelosteRunde(r) = 1 AND ppr(r) <> 0 THEN INPUT #f, paarungen(j,1,r), paarungen(j,2,r), Punkte(paarungen(j,1,r),r), Punkte(paarungen(j,2,r),r), kampflose(j, r) NEXT NEXT ' Paarungen im Mannschaftsmodus einlesen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Aufstellungen der Mannschaftsspieler einlesen FOR j = 1 TO TAZ FOR r = 1 TO RAZ FOR k = 1 TO Bretter INPUT #f, Teamspieler(j, k, r) NEXT NEXT NEXT ' Einzelergebnisse der jeweiligen Mannschaften einlesen FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) IF ppr(r) <> 0 THEN FOR k = 1 TO Bretter INPUT #f, Einzelergebnisse(j, k, r) NEXT END IF NEXT NEXT ' Mannschaftsergebnisse jeder Runde einlesen FOR r = 1 TO RAZ FOR j = 1 TO TAZ INPUT #f, Mannschaftspunkte(j,r) NEXT NEXT '/ ' Mannschaftsspieler einlesen FOR r = 1 TO TAZ FOR k = 1 TO 50 j = ((r*50-50)+k) INPUT #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j) NEXT NEXT END IF CLOSE #f END IF ' Dateiversion 6 einlesen IF Version = 6 THEN OPEN DateiName FOR INPUT AS #f j = 0 ' Turnierinformationen einlesen DO UNTIL EOF(f) IF j < 1 THEN INPUT #f, Version, Seriennummer, Tiebreakmode, KoyaLimit(1), KoyaLimit(2), UUID(1), AA, AA, AA, AA, AA, Bretter, sortstartrank, TAZ, RAZ, Eingabe(9), Eingabe(10), Eingabe(11), Eingabe(12), Eingabe(13), Eingabe(14), Eingabe(15), Eingabe(16), Eingabe(17), Eingabe(18), Eingabe(19), Eingabe(20), Eingabe(21), Eingabe(22), Eingabe(24), Eingabe(25), Eingabe(26), Eingabe(27), Eingabe(28), Paarungssystem, Feinwertungssystem(1), Feinwertungssystem(2), HalbBye ' , Version REDIM AS STRING Datum(0 TO (RAZ+39)), Uhrzeit(0 TO (RAZ+39))' Datum und Uhrzeit initialisieren END IF IF j > 0 THEN INPUT #f, ausgelosteRunde(j), ppr(j), Datum(j), Uhrzeit(j) j += 1 IF j > RAZ THEN EXIT DO LOOP IF KoyaLimit(1) < 1 OR KoyaLimit(1) > 99 THEN KoyaLimit(1) = 50 IF KoyaLimit(2) < 1 OR KoyaLimit(2) > 99 THEN KoyaLimit(2) = 50 ' Spieler einlesen j = 0 DO UNTIL EOF(f) j += 1 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' SpielerAttribut ' (Höhe der Startgebühr) ' Feste Brettnummer INPUT #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j), _ Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), EMPFAENGER(j), Telefonnummer(j), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), _ fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), _ fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), _ fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), _ fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), _ fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN INPUT #f, Team(j), Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), EMPFAENGER(j), Telefonnummer(j), _ fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), _ fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), _ fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), _ fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), _ fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), _ fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), _ fehlendeSpieler(j, 36) END IF IF j >= TAZ THEN EXIT DO LOOP IF RAZ = 0 THEN RAZ = 1 ' wegen Fehlermeldung "out of bounds" vorhanden!!! ' höchste Bretteranzahl ermitteln FOR j = 1 TO RAZ IF ppr(j) > ppr(j-1) THEN k = j NEXT ' Paarungen neu initialisieren - Rundensystem IF Paarungssystem < 3 AND Paarungssystem >= 0 THEN REDIM paarungen(0 TO (ppr(k)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren - Ligaverwaltung IF Paarungssystem = 6 OR Paarungssystem = 7 THEN REDIM paarungen(0 TO (ppr(k)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren - Schweizer System - Dutch IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 11 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen neu initialisieren - Schweizer System - Burstein IF Paarungssystem = 8 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen neu initialisieren - KO-System IF Paarungssystem = 9 THEN k = MaxAnzahl / 2 + 59 REDIM paarungen(0 TO k, 0 TO 2, 0 TO RAZ+1) END IF ' Paarungen einlesen im Einzelmodus FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) IF ausgelosteRunde(r) = 1 AND ppr(r) <> 0 THEN INPUT #f, paarungen(j,1,r), paarungen(j,2,r), Punkte(paarungen(j,1,r),r), Punkte(paarungen(j,2,r),r), kampflose(j, r) NEXT NEXT ' Paarungen im Mannschaftsmodus einlesen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Aufstellungen der Mannschaftsspieler einlesen FOR j = 1 TO TAZ FOR r = 1 TO RAZ FOR k = 1 TO Bretter INPUT #f, Teamspieler(j, k, r) NEXT NEXT NEXT ' Einzelergebnisse der jeweiligen Mannschaften einlesen FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) IF ppr(r) <> 0 THEN FOR k = 1 TO Bretter INPUT #f, Einzelergebnisse(j, k, r) NEXT END IF NEXT NEXT ' Mannschaftsergebnisse jeder Runde einlesen FOR r = 1 TO RAZ FOR j = 1 TO TAZ INPUT #f, Mannschaftspunkte(j,r) NEXT NEXT '/ ' Mannschaftsspieler einlesen FOR r = 1 TO TAZ FOR k = 1 TO 50 j = ((r*50-50)+k) INPUT #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j) NEXT NEXT END IF CLOSE #f END IF /' HalbBye aktivieren IF paarungen(ppr(runde),1,runde) <> 0 AND paarungen(ppr(runde),2,runde) = 0 THEN HalbBye = TRUE END IF IF paarungen(ppr(runde),1,runde) = 0 AND paarungen(ppr(runde),2,runde) <> 0 THEN HalbBye = TRUE END IF '/ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Eingabe(1) = Spieler(1) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Eingabe(1) = Team(1) IF ELO(1) <> 0 THEN Eingabe(2) = STR(ELO(1)) IF DWZ(1) <> 0 THEN Eingabe(3) = STR(DWZ(1)) Eingabe(4) = STR(Titel(1)) Eingabe(5) = Verein(1) Eingabe(6) = Geburt(1) Eingabe(7) = FIDEID(1) Eingabe(23) = STR(RAZ) Eingabe(24) = Geschlecht(1) Eingabe(25) = Nation(1) Eingabe(26) = PKZ(1) Eingabe(27) = Vnummer(1) Eingabe(28) = Mnummer(1) Eingabe(30) = kFaktor(1) i = 1 ' aktuelle Runde definieren FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 1 THEN Runde = j IF ausgelosteRunde(j) = 0 THEN EXIT FOR NEXT ' ComboBox auswahl definieren LAENDERKUERZEL(1) SetComboBoxVal(Combobox, k) IF Seite = 6 THEN UpdateGadget(Combobox) ELSE GadGetOff(Combobox) MENU ANZEIGE(i) WINDOWTITLE Sprachausgaben(1) + " (" + DateiName + ")" Scrollbalkenposition(1) = 153 YY = Scrollbalkenposition(1) SCROLLBALKEN END IF END SUB FUNCTION LOADSAVEDIALOG (savedlog AS INTEGER, filter AS STRING, fltrindex AS INTEGER,_ initdir AS STRING, strDefExt AS STRING) AS STRING DIM FB_OFN AS OPENFILENAME FB_OFN.lStructSize = LEN(FB_OFN) FB_OFN.hwndOwner = 0 ' nur Console FB_OFN.hInstance = 0 DIM strFilter AS STRING IF filter = "" THEN strFilter = "Alle Dateien (*.*)" + CHR(0) +"*.*" + CHR(0, 0) 'Vorgabe ELSE strFilter = filter + CHR(0, 0) END IF FB_OFN.lpstrFilter = STRPTR(strFilter) FB_OFN.nFilterIndex = fltrindex DIM strFile AS STRING *2048 strFile = SPACE(2047) + CHR(0) FB_OFN.lpstrFile = STRPTR(strFile) FB_OFN.nMaxFile = LEN(strFile) DIM strFileTitle AS STRING *2048 strFileTitle = STRING(2048, 0) FB_OFN.lpstrFileTitle = STRPTR(strFileTitle) FB_OFN.nMaxFileTitle = LEN(strFileTitle) DIM strdrstr AS STRING IF initdir = "" THEN strdrstr = "." ' Vorgabe aktueller Pfad ELSE strdrstr = initdir END IF FB_OFN.lpstrInitialDir = STRPTR(strdrstr) DIM strcapt AS STRING ' speichern IF savedlog = 1 THEN strcapt = Sprachausgaben(28) FB_OFN.lpstrTitle = STRPTR(strcapt) IF strDefExt > "" THEN DIM strdext AS STRING strdext = strDefExt FB_OFN.lpstrDefExt = STRPTR(strdext) END IF FB_OFN.flags = OFN_EXPLORER OR OFN_LONGNAMES OR OFN_OVERWRITEPROMPT OR OFN_HIDEREADONLY IF GetSaveFileName(@FB_OFN) THEN LOADSAVEDIALOG = TRIM(strFile) ELSE ' öffnen IF savedlog = 0 THEN strcapt = Sprachausgaben(29) FB_OFN.lpstrTitle = STRPTR(strcapt) FB_OFN.flags = OFN_EXPLORER OR OFN_LONGNAMES OR OFN_CREATEPROMPT OR _ OFN_NODEREFERENCELINKS OR OFN_HIDEREADONLY IF GetOpenFileName(@FB_OFN) THEN LOADSAVEDIALOG = TRIM(strFile) END IF END IF ' anlegen IF savedlog = 2 THEN strcapt = Sprachausgaben(30) FB_OFN.lpstrTitle = STRPTR(strcapt) IF strDefExt > "" THEN DIM strdext AS STRING strdext = strDefExt FB_OFN.lpstrDefExt = STRPTR(strdext) END IF FB_OFN.flags = OFN_EXPLORER OR OFN_LONGNAMES OR OFN_OVERWRITEPROMPT OR OFN_HIDEREADONLY IF GetSaveFileName(@FB_OFN) THEN LOADSAVEDIALOG = TRIM(strFile) END IF END FUNCTION SUB ANLEGEN fil = "Schachturnierorganisationsprogramm (*.stop)" + CHR(0) + "*.STOP" + CHR(0) MessageBox(0, Sprachausgaben(31), Sprachausgaben(1), MB_ICONWARNING OR MB_SYSTEMMODAL) DateiName = LOADSAVEDIALOG (2,fil,1,,"stop") IF DateiName = "" THEN EXIT SUB DIM f AS INTEGER = FREEFILE j = 1 OPEN DateiName FOR OUTPUT AS #F /' DO OemToChar Spieler(j), Spieler(j) OemToChar Verein(j), Verein(j) WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j) CharToOem Spieler(j), Spieler(j) CharToOem Verein(j), Verein(j) j += 1 LOOP WHILE j <= TAZ+1 TAZ += 1 '/ CLOSE #f IF DateiName <> "" THEN WINDOWTITLE Sprachausgaben(1) + " (" + DateiName + ")": MessageBox(0, Sprachausgaben(32), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END SUB SUB SPEICHERN DIM f AS INTEGER = FREEFILE ' UUID generieren, falls nicht vorhanden! IF UUID(1) <> "" THEN UUID(1) = ErzeugeWindowsUUID() ' sortstartrank definieren, falls sortstartrank 0 ist IF sortstartrank < 1 THEN sortstartrank = 1 ' Rundenzahl definieren, falls Rundenzahl 0 ist IF RAZ < 1 THEN RAZ = 1 IF DateiName <> "" THEN ' Teilnehmer oder Mannschaften speichern OPEN DateiName FOR OUTPUT AS #f ' Turnierinformationen speichern WRITE #f, Dateiversion, Seriennummer, Tiebreakmode, KoyaLimit(1), KoyaLimit(2), UUID(1), "", "", "", "", "", Bretter, sortstartrank, TAZ, RAZ, Eingabe(9), Eingabe(10), Eingabe(11), Eingabe(12), Eingabe(13), Eingabe(14), Eingabe(15), Eingabe(16), Eingabe(17), Eingabe(18), Eingabe(19), Eingabe(20), Eingabe(21), Eingabe(22), Eingabe(24), Eingabe(25), Eingabe(26), Eingabe(27), Eingabe(28), Paarungssystem, Feinwertungssystem(1), Feinwertungssystem(2), HalbBye ' ,Version FOR j = 1 TO RAZ WRITE #f, ausgelosteRunde(j), ppr(j), Datum(j), Uhrzeit(j) NEXT ' Teilnehmer oder Mannschaften speichern j = 1 FOR r = 1 TO TAZ ' DO IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j), _ Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), EMPFAENGER(j), Telefonnummer(j), fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), _ fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), _ fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), _ fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), _ fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), _ fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), _ fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN WRITE #f, Team(j), Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), EMPFAENGER(j), Telefonnummer(j), fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), _ fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), _ fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), _ fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), _ fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), _ fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), _ fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF j += 1 NEXT ' LOOP WHILE j <= TAZ ' TAZ += 1 ' Paarungen speichern FOR r = 1 TO RAZ IF ppr(r) <> 0 THEN FOR j = 1 TO ppr(r) ' IF r MOD 2 = 0 AND Paarungssystem < 3 THEN SWAP paarungen(1,1,r),paarungen(1,2,r) ' bei jeder geraden Runde erstes Paar tauschen??? WRITE #f, paarungen(j,1,r), paarungen(j,2,r), Punkte(paarungen(j,1,r),r), Punkte(paarungen(j,2,r),r), kampflose(j, r) NEXT END IF NEXT ' Anzahl der Bretter beim Mannschaftskampf = 4, falls Anzahl der Bretter kleiner 1 ist! IF Bretter < 1 THEN Bretter = 4 ' Aufstellungen der Mannschaftsspieler speichern IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Aufstellungen der Mannschaftsspieler speichern FOR j = 1 TO TAZ FOR r = 1 TO RAZ FOR k = 1 TO Bretter IF Teamspieler(j, k, r) > 0 AND Teamspieler(j, k, r) < 51 AND ausgelosteRunde(1) <> 0 THEN WRITE #f, Teamspieler(j, k, r) ELSE WRITE #f, 0 NEXT NEXT NEXT ' Einzelergebnisse der jeweiligen Mannschaften speichern FOR r = 1 TO RAZ IF ppr(r) <> 0 THEN FOR j = 1 TO ppr(r) FOR k = 1 TO Bretter IF Einzelergebnisse(j, k, r) <> "" THEN WRITE #f, Einzelergebnisse(j, k, r) ELSE WRITE #f, " " NEXT NEXT END IF NEXT ' Mannschaftsergebnisse jeder Runde speichern FOR r = 1 TO RAZ FOR j = 1 TO TAZ IF Mannschaftspunkte(j,r) <> 0 THEN WRITE #f, Mannschaftspunkte(j,r) ELSE WRITE #f, 0 NEXT NEXT ' Mannschaftsspieler speichern FOR r = 1 TO TAZ FOR k = 1 TO 50 j = ((r*50-50)+k) WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j) NEXT NEXT END IF CLOSE #f IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Info_stop") THEN KILL(TRIM(DateiName, ".STOP") + ".Info_stop") IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Paarungen_stop") THEN KILL(TRIM(DateiName, ".STOP") + ".Paarungen_stop") MessageBox(0, Sprachausgaben(33), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) IF Seite = 1 THEN SCREENLOCK IF TAZ > 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ = 0 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF END IF ' IF DateiName = "" THEN 'Voreinstellungen: 'savedlog = 0 "Datei Öffnen", 1(<>0) "Datei Speichern" 'filter = "" "Alle Dateien", sonst siehe fil 'fltrindex = 1, sonst welcher Eintrag, der bei filter angegebenen Auswahl, aktiv ist 'initdir = "" = "." aktueller Pfad, sonst angegebener Pfad 'strDefExt = "" keine Vorgabe, sonst z.B. "bak" als Vorgabe der Endung zum Speichern fil = "Turnierdateien (*.stop)" + CHR(0) + "*.STOP" + CHR(0) DateiName = LOADSAVEDIALOG (1,fil,1,,"stop") ' IF DateiName = "" THEN DateiName = "Unamed.STOP" IF DateiName <> "" THEN ' Teilnehmer oder Mannschaften speichern OPEN DateiName FOR OUTPUT AS #f ' Turnierinformationen speichern WRITE #f, Dateiversion, Seriennummer, Tiebreakmode, KoyaLimit(1), KoyaLimit(2), UUID(1), "", "", "", "", "", Bretter, sortstartrank, TAZ, RAZ, Eingabe(9), Eingabe(10), Eingabe(11), Eingabe(12), Eingabe(13), Eingabe(14), Eingabe(15), Eingabe(16), Eingabe(17), Eingabe(18), Eingabe(19), Eingabe(20), Eingabe(21), Eingabe(22), Eingabe(24), Eingabe(25), Eingabe(26), Eingabe(27), Eingabe(28), Paarungssystem, Feinwertungssystem(1), Feinwertungssystem(2), HalbBye ' ,Version FOR j = 1 TO RAZ WRITE #f, ausgelosteRunde(j), ppr(j), Datum(j), Uhrzeit(j) NEXT ' Teilnehmer oder Mannschaften speichern j = 1 FOR r = 1 TO TAZ ' DO IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j), _ Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), EMPFAENGER(j), Telefonnummer(j), fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), fehlendeSpieler(j, 3), _ fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), fehlendeSpieler(j, 10), _ fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), fehlendeSpieler(j, 16), _ fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), fehlendeSpieler(j, 22), _ fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), fehlendeSpieler(j, 28), _ fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), fehlendeSpieler(j, 34), _ fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN WRITE #f, Team(j), Startgebuehr(j), SpielerAttribut(j), FesteBrettnummer(j), EMPFAENGER(j), Telefonnummer(j), fehlendeSpieler(j, 1), fehlendeSpieler(j, 2), _ fehlendeSpieler(j, 3), fehlendeSpieler(j, 4), fehlendeSpieler(j, 5), fehlendeSpieler(j, 6), fehlendeSpieler(j, 7), fehlendeSpieler(j, 8), fehlendeSpieler(j, 9), _ fehlendeSpieler(j, 10), fehlendeSpieler(j, 11), fehlendeSpieler(j, 12), fehlendeSpieler(j, 13), fehlendeSpieler(j, 14), fehlendeSpieler(j, 15), _ fehlendeSpieler(j, 16), fehlendeSpieler(j, 17), fehlendeSpieler(j, 18), fehlendeSpieler(j, 19), fehlendeSpieler(j, 20), fehlendeSpieler(j, 21), _ fehlendeSpieler(j, 22), fehlendeSpieler(j, 23), fehlendeSpieler(j, 24), fehlendeSpieler(j, 25), fehlendeSpieler(j, 26), fehlendeSpieler(j, 27), _ fehlendeSpieler(j, 28), fehlendeSpieler(j, 29), fehlendeSpieler(j, 30), fehlendeSpieler(j, 31), fehlendeSpieler(j, 32), fehlendeSpieler(j, 33), _ fehlendeSpieler(j, 34), fehlendeSpieler(j, 35), fehlendeSpieler(j, 36) END IF j += 1 NEXT ' LOOP WHILE j <= TAZ+1 ' TAZ += 1 ' Paarungen + Ergebnisse speichern FOR r = 1 TO RAZ IF ppr(r) <> 0 THEN FOR j = 1 TO ppr(r) ' IF r MOD 2 = 0 AND Paarungssystem < 3 THEN SWAP paarungen(1,1,r),paarungen(1,2,r) ' bei jeder geraden Runde erstes Paar tauschen??? WRITE #f, paarungen(j,1,r), paarungen(j,2,r), Punkte(paarungen(j,1,r),r), Punkte(paarungen(j,2,r),r), kampflose(j, r) NEXT END IF NEXT ' Anzahl der Bretter beim Mannschaftskampf = 4, falls Anzahl der Bretter kleiner 1 ist! IF Bretter < 1 THEN Bretter = 4 IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Aufstellungen der Mannschaftsspieler speichern FOR j = 1 TO TAZ FOR r = 1 TO RAZ IF ppr(r) <> 0 THEN FOR k = 1 TO Bretter IF Teamspieler(j, k, r) <> 0 THEN WRITE #f, Teamspieler(j, k, r) ELSE WRITE #f, 0 NEXT END IF NEXT NEXT ' Einzelergebnisse der jeweiligen Mannschaften speichern FOR r = 1 TO RAZ IF ppr(r) <> 0 THEN FOR j = 1 TO ppr(r) FOR k = 1 TO Bretter IF Einzelergebnisse(j, k, r) <> "" THEN WRITE #f, Einzelergebnisse(j, k, r) ELSE WRITE #f, " " NEXT NEXT END IF NEXT ' Mannschaftsergebnisse jeder Runde speichern FOR r = 1 TO RAZ FOR j = 1 TO TAZ IF Mannschaftspunkte(j,r) <> 0 THEN WRITE #f, Mannschaftspunkte(j,r) ELSE WRITE #f, 0 NEXT NEXT ' Mannschaftsspieler speichern FOR r = 1 TO TAZ FOR k = 1 TO 50 j = ((r*50-50)+k) WRITE #f, ELO(j), DWZ(j), Titel(j), Spieler(j), Verein(j), Geburt(j), FIDEID(j), Geschlecht(j), Nation(j), PKZ(j), Vnummer(j), Mnummer(j), kFaktor(j) NEXT NEXT END IF CLOSE #f WINDOWTITLE Sprachausgaben(1) + " (" + DateiName + ")" IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Info_stop") THEN KILL(TRIM(DateiName, ".STOP") + ".Info_stop") IF FILEEXISTS(TRIM(DateiName, ".STOP") + ".Paarungen_stop") THEN KILL(TRIM(DateiName, ".STOP") + ".Paarungen_stop") MessageBox(0, Sprachausgaben(33), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF IF Seite = 1 THEN SCREENLOCK IF TAZ > 1 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF TAZ = 0 THEN FONT Sprachausgaben(7) + ": " + LTRIM(STR(i-1)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(TAZ)) + " ", 45, 3, Farbe(1), Farbe(2), Farbe(3), 0, 0 SCREENUNLOCK END IF END IF END SUB SUB AUSLOSUNG ' DIM AS INTEGER startwert, Paarungssystem, sx, r, RAZ, ppr, rotation DIM AS HANDLE snapshothandle DIM AS PROCESSENTRY32 prozessantwort DIM AS INTEGER ende DIM AS INTEGER startwert, sx, rotation IF TAZ < 3 THEN EXIT SUB IF ausgelosteRunde(runde) = 1 THEN ANZEIGE(i) ERGEBNISANZEIGE EXIT SUB END IF ' Rundensystem mit 2 Durchgängen IF Paarungssystem = 0 AND ausgelosteRunde(1) = 0 AND TAZ < 81 THEN ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 RAZ = TAZ * 2 ELSE ppr(runde) = TAZ / 2 RAZ = (TAZ - 1) * 2 END IF ' Partien pro Runde definieren FOR j = 2 TO RAZ ppr(j) = ppr(1) ausgelosteRunde(j) = 1 NEXT ausgelosteRunde(1) = 1 REDIM AS STRING Datum(0 TO RAZ), Uhrzeit(0 TO RAZ) ' Datum/Uhrzeit Initialisieren REDIM paarungen(0 TO (ppr(runde)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel ' Rundenanzahl anzeigen FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Brett < 1 THEN Brett = 1 startwert=1 sx = 1 FOR r = 1 TO RAZ rotation=startwert FOR j AS INTEGER=1 TO ppr(runde) paarungen(j,1,r)=rotation rotation +=1 IF rotation>(RAZ/2) THEN rotation=1 NEXT j FOR j AS INTEGER=ppr(runde) TO 2 STEP -1 paarungen(j,2,r)=rotation rotation +=1 IF rotation>(RAZ/2) THEN rotation=1 NEXT j IF TAZ MOD 2 <> 0 THEN paarungen(1,2,r)=TAZ + 1 ELSE paarungen(1,2,r)=TAZ END IF IF r MOD 2 = 0 THEN SWAP paarungen(1,1,r),paarungen(1,2,r) ' bei jeder geraden Runde erstes Paar tauschen IF r > (RAZ/2) THEN FOR j AS INTEGER=2 TO ppr(runde) SWAP paarungen(j,1,r),paarungen(j,2,r) NEXT END IF IF r <= (RAZ/2) THEN startwert=paarungen(ppr(runde),2,r) IF r > (RAZ/2) THEN startwert=paarungen(ppr(runde),1,r) NEXT r END IF ' Rundensystem IF Paarungssystem < 2 AND Paarungssystem > -1 AND ausgelosteRunde(1) = 0 AND TAZ < 81 THEN ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 RAZ = TAZ ELSE ppr(runde) = TAZ / 2 RAZ = TAZ - 1 END IF ' Partien pro Runde definieren FOR j = 2 TO RAZ ppr(j) = ppr(1) ausgelosteRunde(j) = 1 NEXT ausgelosteRunde(1) = 1 REDIM AS STRING Datum(0 TO RAZ), Uhrzeit(0 TO RAZ) ' Datum/Uhrzeit Initialisieren REDIM paarungen(0 TO (ppr(runde)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel ' Rundenanzahl anzeigen FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Brett < 1 THEN Brett = 1 startwert=1 sx = 1 FOR r = 1 TO RAZ rotation=startwert FOR j AS INTEGER=1 TO ppr(runde) paarungen(j,1,r)=rotation rotation +=1 IF rotation>RAZ THEN rotation=1 NEXT j FOR j AS INTEGER=ppr(runde) TO 2 STEP -1 paarungen(j,2,r)=rotation rotation +=1 IF rotation>RAZ THEN rotation=1 NEXT j IF TAZ MOD 2 <> 0 THEN paarungen(1,2,r)=TAZ + 1 ELSE paarungen(1,2,r)=TAZ END IF IF r MOD 2 = 0 THEN SWAP paarungen(1,1,r),paarungen(1,2,r) ' bei jeder geraden Runde erstes Paar tauschen startwert=paarungen(ppr(runde),2,r) NEXT r END IF ' Rutschsystem IF Paarungssystem = 2 AND ausgelosteRunde(1) = 0 AND TAZ < 81 THEN ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ' ungerade Teilnehmeranzahl RAZ = TAZ ELSE ppr(runde) = TAZ / 2 ' gerade Teilnehmeranzahl RAZ = TAZ - 1 END IF ' Partien pro Runde definieren FOR j = 2 TO RAZ ppr(j) = ppr(1) NEXT REDIM AS STRING Datum(0 TO RAZ), Uhrzeit(0 TO RAZ) ' Datum/Uhrzeit Initialisieren REDIM paarungen(0 TO (ppr(runde)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel ' Rundenanzahl anzeigen FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Brett < 1 THEN Brett = 1 sx = 1 rotation=1 'Startspieler für Rotation festlegen ' IF (TAZ mod 2) = 0 then rotation=2 else rotation=1 'Startspieler für Rotation festlegen FOR r AS INTEGER=1 TO RAZ IF (TAZ MOD 2) = 0 THEN 'gerade Spielerzahl 'Spieler mit höchster Nummer an Brett 1 "unten" paarungen(1,2,r)=TAZ '"obere" Spieler setzen FOR j=1 TO ppr(runde) paarungen(j,1,r)=rotation rotation +=1 IF rotation>(TAZ-1) THEN rotation=1 NEXT j 'restliche "untere" Spieler setzen FOR j=ppr(runde) TO 2 STEP -1 paarungen(j,2,r)=rotation rotation +=1 IF rotation>(TAZ-1) THEN rotation=1 NEXT j rotation=paarungen(2,1,r)'rotation auf Brett 2 "oben" setzen ELSE 'ungerade Spielerzahl '"obere" Spieler setzen FOR j=1 TO ppr(runde) paarungen(j,1,r)=rotation rotation +=1 IF rotation>TAZ THEN rotation=1 NEXT j '"untere" Spieler setzen FOR j=ppr(runde) TO 1 STEP -1 paarungen(j,2,r)=rotation rotation +=1 IF rotation>TAZ THEN rotation=1 NEXT j IF TAZ > 3 THEN rotation=paarungen(2,1,r)'rotation auf Brett 2 "oben" setzen IF TAZ < 4 THEN rotation=paarungen(1,2,r)'rotation auf Brett 1 "oben" setzen END IF 'spezielle Brett-Dreh-Regel bei gerader Spielerzahl: IF ((TAZ MOD 2) = 0) AND ((r MOD 2) = 0) THEN SWAP paarungen(1,1,r),paarungen(1,2,r) 'generelle Brett-Dreh-Regel: IF ppr(runde) > 1 THEN FOR j=2 TO ppr(runde) STEP 2 SWAP paarungen(j,1,r),paarungen(j,2,r) NEXT j END IF startwert=paarungen(ppr(runde),2,r) NEXT r '/ END IF ' Rundensystem für Mannschaften IF Paarungssystem = 6 AND ausgelosteRunde(1) = 0 THEN ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 RAZ = TAZ ELSE ppr(runde) = TAZ / 2 RAZ = TAZ - 1 END IF ' Partien pro Runde definieren FOR j = 2 TO RAZ ppr(j) = ppr(1) ausgelosteRunde(j) = 1 NEXT ausgelosteRunde(1) = 1 REDIM AS STRING Datum(0 TO RAZ), Uhrzeit(0 TO RAZ) ' Datum/Uhrzeit Initialisieren REDIM paarungen(0 TO (ppr(runde)+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren FELD 332, 67, 1021, 548, Hintergrundfarbe ' Anzeige Paarungstafel ' Rundenanzahl anzeigen FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 IF Brett < 1 THEN Brett = 1 startwert=1 sx = 1 FOR r = 1 TO RAZ rotation=startwert FOR j AS INTEGER=1 TO ppr(runde) paarungen(j,1,r)=rotation rotation +=1 IF rotation>RAZ THEN rotation=1 NEXT j FOR j AS INTEGER=ppr(runde) TO 2 STEP -1 paarungen(j,2,r)=rotation rotation +=1 IF rotation>RAZ THEN rotation=1 NEXT j IF TAZ MOD 2 <> 0 THEN paarungen(1,2,r)=TAZ + 1 ELSE paarungen(1,2,r)=TAZ END IF IF r MOD 2 = 0 THEN SWAP paarungen(1,1,r),paarungen(1,2,r) ' bei jeder geraden Runde erstes Paar tauschen startwert=paarungen(ppr(runde),2,r) NEXT r END IF ' Beschleunigtes Schweizer System - bbpPairungs IF Paarungssystem = 4 THEN ' IF ausgelosteRunde(1) = 0 THEN REDIM AS INTEGER paarungen(0 TO MaxAnzahl, 0 TO 2, 0 TO 29) ' Turnier Report File erstellen TRF(1) CHDIR EXEPATH ' Pfad setzen j = -1 DIM f AS INTEGER = FREEFILE IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN OPEN PIPE EXEPATH + "\bbpPairings.exe -r --dutch Turniere.trfx -p" FOR INPUT AS #f ' Turniere.trfx DO UNTIL EOF(f) INPUT #f, aa e = INSTR(aa, " ") k = LEN(aa) IF j = 0 THEN ppr(runde) = VAL(aa) END IF IF j > 0 THEN paarungen(j,1,runde) = VAL(LEFT(aa, (e-1))) paarungen(j,2,runde) = VAL(RIGHT(aa, (k-e))) END IF j += 1 LOOP CLOSE #f ELSE ppr(runde) = 0 END IF ' Nachricht ausgeben, falls keine neue Paarung gefunden werden konnte IF ppr(runde) = 0 THEN MessageBox(0, Sprachausgaben(120), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL): EXIT SUB IF ppr(runde) <> 0 THEN pprAlt(1) = ppr(runde) ELSE ppr(runde) = pprAlt(1) END IF ANZEIGE(i) END IF ' Schweizer System - Dutch JaVaFo IF Paarungssystem = 3 OR Paarungssystem = 5 THEN DIM AS STARTUPINFO si DIM AS PROCESS_INFORMATION pi DIM AS SECURITY_ATTRIBUTES sa DIM AS HANDLE hOutFile DIM AS STRING PrgName ' TABELLE(0) ' Platzierung errechnen ' IF ausgelosteRunde(1) = 0 THEN REDIM AS INTEGER paarungen(0 TO MaxAnzahl, 0 TO 2, 0 TO 29) IF Paarungssystem = 5 THEN REDIM AS INTEGER Teamspieler(0 TO 500, 0 TO 110, 0 TO 29) ' Anzahl der Spieler aller gesamten Mannschaften ' REDIM AS STRING EinzelErgebnisse(0 TO 2001, 0 TO Bretter, 0 TO RAZ) ' Einzelergebnisse END IF END IF ' Turnier Report File erstellen TRF(1) CHDIR EXEPATH ' Pfad setzen ' set security attributes sa.nLength = SIZEOF(SECURITY_ATTRIBUTES) sa.lpSecurityDescriptor = NULL 'use default descriptor sa.bInheritHandle = TRUE PrgName = "javaw.exe -ea -jar " + EXEPATH + "\javafo.jar " + EXEPATH + "\javafo_in.txt -p" ' PrgName = "javaw.exe -ea -jar " & CHR(33) & EXEPATH & "\javafo.jar" & CHR(33) & " " & CHR(33) & EXEPATH & "\javafo_in.txt" & CHR(33) & " -p" ' PrgName = "C:\Programme\Java\jre7\bin\javaw.exe -ea -jar G:\JaVaFo\javafo.jar G:\JaVaFo\javafo_in.txt -p" hOutFile = CreateFile(EXEPATH + "\javafo_out.txt", _ GENERIC_WRITE, _ NULL, _ @sa, _ CREATE_ALWAYS, _ FILE_ATTRIBUTE_NORMAL, _ NULL) GetStartupInfo(@si) si.dwFlags = STARTF_USESTDHANDLES si.hStdOutput = hOutFile CreateProcess(0,PrgName,0,0,TRUE,CREATE_NEW_CONSOLE,0,0,@si,@pi) WaitForSingleObject(pi.hProcess, INFINITE) CloseHandle(pi.hProcess) CloseHandle(pi.hThread) CloseHandle(hOutFile) ' Datei mit Paarungen laden DIM f AS INTEGER = FREEFILE IF FILEEXISTS(EXEPATH + "\javafo_out.txt") THEN OPEN EXEPATH + "\javafo_out.txt" FOR INPUT AS #f j = 0 DO UNTIL EOF(f) ' IF paarungen(j,1,runde) = 0 AND paarungen(j,2,runde) = 0 THEN IF j = 0 THEN INPUT #f, ppr(runde) IF ppr(runde) = 0 THEN EXIT DO IF j > 0 THEN INPUT #f, paarungen(j,1,runde), paarungen(j,2,runde) kampflose(j, Runde) = 1 TempPunkte(j+1, 1) = 0 TempPunkte(j+1, 2) = 0 TempPunkte(j+1, 3) = 0 TempPunkte(j+1, 4) = 0 j += 1 LOOP CLOSE #f END IF ' Nachricht ausgeben, falls keine neue Paarung gefunden werden konnte IF ppr(runde) = 0 THEN MessageBox(0, Sprachausgaben(120), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL): EXIT SUB IF ppr(runde) <> 0 THEN pprAlt(1) = ppr(runde) ELSE ppr(runde) = pprAlt(1) END IF END IF ' Schweizer System - Burstein bbpPairings IF Paarungssystem = 8 THEN ' IF ausgelosteRunde(1) = 0 THEN REDIM AS INTEGER paarungen(0 TO MaxAnzahl, 0 TO 2, 0 TO 29) ' Turnier Report File erstellen TRF(1) CHDIR EXEPATH ' Pfad setzen j = -1 DIM f AS INTEGER = FREEFILE IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN OPEN PIPE EXEPATH + "\bbpPairings.exe -r --burstein Turniere.trfx -p" FOR INPUT AS #f DO UNTIL EOF(f) INPUT #f, aa e = INSTR(aa, " ") k = LEN(aa) IF j = 0 THEN ppr(runde) = VAL(aa) END IF IF j > 0 THEN paarungen(j,1,runde) = VAL(LEFT(aa, (e-1))) paarungen(j,2,runde) = VAL(RIGHT(aa, (k-e))) END IF j += 1 LOOP CLOSE #f ELSE ppr(runde) = 0 END IF ' Nachricht ausgeben, falls keine neue Paarung gefunden werden konnte IF ppr(runde) = 0 THEN MessageBox(0, Sprachausgaben(120), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL): EXIT SUB IF ppr(runde) <> 0 THEN pprAlt(1) = ppr(runde) ELSE ppr(runde) = pprAlt(1) END IF ANZEIGE(i) END IF ' KO-System IF Paarungssystem = 9 THEN ' Rundenanzahl ermitteln IF runde < 2 THEN j = 1 DO IF j >= TAZ THEN n = STR((LOG(j)/LOG(2))) k = INSTR(n, ".") IF k = 0 THEN RAZ = (LOG(j)/LOG(2)) EXIT DO END IF END IF j += 1 LOOP REDIM AS STRING Datum(0 TO RAZ), Uhrzeit(0 TO RAZ) ' Datum/Uhrzeit Initialisieren REDIM paarungen(0 TO (TAZ+59), 0 TO 2, 0 TO RAZ+1) ' Paarungen neu initialisieren END IF IF runde < 2 THEN FOR j = 1 TO RAZ fehlendeSpieler(0, j) = 1 NEXT END IF ' Rundenanzahl anzeigen FONT Sprachausgaben(22) + ": " + LTRIM(STR(Runde)) + " " + Sprachausgaben(5) + " " + LTRIM(STR(RAZ)) + " ", 7, 88, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' k = 0 FOR j = 1 TO TAZ IF fehlendeSpieler(j, runde) = 0 THEN k += 1 koya(j) = 0 AnzahlFarben(j, -1) = 0 AnzahlFarben(j, 0) = 0 FOR r = 1 TO Runde AnzahlFarben(j, r) = 0 NEXT NEXT ' Anzahl der Partien für Runde 1 ermitteln! IF runde < 2 THEN FOR j = TAZ TO 1 STEP -1 n = STR((LOG(j)/LOG(2))) k = INSTR(n, ".") IF k = 0 THEN ppr(runde) = TAZ - j EXIT FOR END IF NEXT IF ppr(runde) = 0 THEN ppr(runde) = TAZ/2 k = ((ppr(runde)*2)+1) FOR j = k TO TAZ fehlendeSpieler(j, runde) = 1 NEXT END IF ' Anzahl der Partien ab Runde 2 ermitteln! IF runde > 1 THEN IF k MOD 2 <> 0 THEN ppr(runde) = (k - 1) / 2 ELSE ppr(runde) = k / 2 END IF END IF ' Paarungen der 1. Runde IF runde < 2 THEN r = 1 FOR j = 1 TO ppr(runde) IF j > ppr(runde) THEN EXIT FOR paarungen(j,1,runde) = r r += 1 paarungen(j,2,runde) = r r += 1 NEXT END IF ' Paarungen ab Runde 2 IF runde > 1 THEN k = 1 j = 1 r = 1 DO IF fehlendeSpieler(j, runde) = 0 THEN paarungen(r,k,runde) = j k +=1 IF k > 2 THEN k = 1 r += 1 IF k = 2 AND r > 3 THEN EXIT DO END IF END IF j += 1 LOOP WHILE j <= TAZ ' Errechnen wer welche Farbe hatte FOR r = 1 TO runde FOR bb = 1 TO ppr(r) j = 1 DO ' Spieler 1 hatte Runde zuvor Weiß IF paarungen(bb,1,r) = paarungen(j,1,r-1) THEN koya(paarungen(bb,1,r)) = 1 ' 1 = Weiß; 2 = schwarz AnzahlFarben(paarungen(bb,1,r), r) = 1 EXIT DO END IF j += 1 IF j > ppr(r-1) THEN EXIT DO LOOP j = 1 DO ' Spieler 1 hatte Runde zuvor Schwarz IF paarungen(bb,1,r) = paarungen(j,2,r-1) THEN koya(paarungen(bb,1,r)) = 2 ' 1 = Weiß; 2 = schwarz AnzahlFarben(paarungen(bb,1,r), r) = 2 EXIT DO END IF j += 1 IF j > ppr(r-1) THEN EXIT DO LOOP j = 1 DO ' Spieler 2 hatte Runde zuvor Schwarz IF paarungen(bb,2,r) = paarungen(j,2,r-1) THEN koya(paarungen(bb,2,r)) = 2 ' 1 = Weiß; 2 = schwarz AnzahlFarben(paarungen(bb,2,r), r) = 2 EXIT DO END IF j += 1 IF j > ppr(r-1) THEN EXIT DO LOOP j = 1 DO ' Spieler 2 hatte Runde zuvor Weiß IF paarungen(bb,2,r) = paarungen(j,1,r-1) THEN koya(paarungen(bb,2,r)) = 1 ' 1 = Weiß; 2 = schwarz AnzahlFarben(paarungen(bb,2,r), r) = 1 EXIT DO END IF j += 1 IF j > ppr(r-1) THEN EXIT DO LOOP NEXT NEXT ' Farben definieren FOR j = 1 TO ppr(runde) e = 0 ' Zähler auf 0 setzen ' Beide Spieler hatten Weiß IF koya(paarungen(j,1,runde)) = 1 AND koya(paarungen(j,2,runde)) = 1 AND e <> -1 THEN ' Anzahl der Farben für den weißen Spieler errechnen bb = 0 FOR k = runde TO 1 STEP -1 IF AnzahlFarben(paarungen(j,1,runde), k) = 1 THEN bb += 1 ' Weiß IF AnzahlFarben(paarungen(j,1,runde), k) = 2 THEN EXIT FOR NEXT ' Anzahl der Farben für den schwarzen Spieler errechnen r = 0 FOR k = runde TO 1 STEP -1 IF AnzahlFarben(paarungen(j,2,runde), k) = 1 THEN r += 1 ' Schwarz IF AnzahlFarben(paarungen(j,2,runde), k) = 2 THEN EXIT FOR NEXT ' IF paarungen(j,1,runde) < paarungen(j,2,runde) THEN IF bb > r THEN r = paarungen(j,1,runde) ' r = Weiß; k = Schwarz k = paarungen(j,2,runde) paarungen(j,1,runde) = k paarungen(j,2,runde) = r e = -1 END IF IF bb <= r THEN e = -1 ' Farben der Paarungen stimmen, keine Änderung erforderlich ELSE IF bb < r THEN r = paarungen(j,1,runde) ' r = Weiß; k = Schwarz k = paarungen(j,2,runde) paarungen(j,1,runde) = k paarungen(j,2,runde) = r e = -1 END IF IF bb >= r THEN e = -1 ' Farben der Paarungen stimmen, keine Änderung erforderlich END IF END IF ' Beide Spieler hatten Schwarz IF koya(paarungen(j,1,runde)) = 2 AND koya(paarungen(j,2,runde)) = 2 AND e <> -1 THEN ' Anzahl der Farben für den weißen Spieler errechnen bb = 0 FOR k = runde TO 1 STEP -1 IF AnzahlFarben(paarungen(j,1,runde), k) = 2 THEN bb += 1 ' Weiß IF AnzahlFarben(paarungen(j,1,runde), k) = 1 THEN EXIT FOR NEXT ' Anzahl der Farben für den schwarzen Spieler errechnen r = 0 FOR k = runde TO 1 STEP -1 IF AnzahlFarben(paarungen(j,2,runde), k) = 2 THEN r += 1 ' Schwarz IF AnzahlFarben(paarungen(j,2,runde), k) = 1 THEN EXIT FOR NEXT ' IF paarungen(j,1,runde) < paarungen(j,2,runde) THEN IF bb <= r THEN r = paarungen(j,1,runde) ' r = Weiß; k = Schwarz k = paarungen(j,2,runde) paarungen(j,1,runde) = k paarungen(j,2,runde) = r e = -1 END IF IF bb > r THEN k = -1 ' Farben der Paarungen stimmen, keine Änderung erforderlich ELSE IF bb <= r THEN r = paarungen(j,1,runde) ' r = Weiß; k = Schwarz k = paarungen(j,2,runde) paarungen(j,1,runde) = k paarungen(j,2,runde) = r e = -1 END IF IF bb > r THEN e = -1 ' Farben der Paarungen stimmen, keine Änderung erforderlich END IF END IF ' Erstgenannte hatte Weiß und der Zweitgenannte hatte Schwarz IF koya(paarungen(j,1,runde)) = 1 AND koya(paarungen(j,2,runde)) = 2 AND e <> -1 THEN ' Niedrigerer Spieler hatte weiß IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,1,runde)) = 1 THEN r = paarungen(j,1,runde) k = paarungen(j,2,runde) IF koya(paarungen(j,1,runde)) = 1 THEN paarungen(j,1,runde) = k ' r = Weiß; bb = Schwarz IF koya(paarungen(j,2,runde)) = 2 THEN paarungen(j,2,runde) = r e = -1 END IF ' Niedrigerer Spieler hatte schwarz IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,1,runde)) = 2 THEN ' Nichts machen, Paarungen stimmen!!! e = -1 END IF END IF ' Erstgenannte hatte Schwarz und der Zweitgenannte hatte Weiß IF koya(paarungen(j,1,runde)) = 2 AND koya(paarungen(j,2,runde)) = 1 AND e <> -1 THEN ' Niedrigerer Spieler hatte weiß IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,1,runde)) = 1 THEN ' Nichts machen, Paarungen stimmen!!! e = -1 END IF ' Niedrigerer Spieler hatte schwarz IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,1,runde)) = 2 THEN r = paarungen(j,1,runde) k = paarungen(j,2,runde) IF koya(paarungen(j,1,runde)) = 1 THEN paarungen(j,1,runde) = k ' r = Weiß; bb = Schwarz IF koya(paarungen(j,2,runde)) = 2 THEN paarungen(j,2,runde) = r e = -1 END IF END IF ' Erstgenannte hatte Weiß und der Zweitgenannte hatte nix IF koya(paarungen(j,1,runde)) = 1 AND koya(paarungen(j,2,runde)) <> 1 AND koya(paarungen(j,2,runde)) <> 2 AND e <> -1 THEN ' Niedrigerer Spieler hatte weiß IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,1,runde)) = 1 THEN bb = paarungen(j,2,runde) paarungen(j,2,runde) = paarungen(j,1,runde) paarungen(j,1,runde) = bb e = -1 END IF ' Niedrigerer Spieler hatte schwarz IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,1,runde)) = 2 THEN ' Nichts machen, Paarungen stimmen!!! e = -1 END IF END IF ' Erstgenannte hatte nix und der Zweitgenannte hatte Weiß IF koya(paarungen(j,1,runde)) <> 1 AND koya(paarungen(j,1,runde)) <> 2 AND koya(paarungen(j,2,runde)) = 1 AND e <> -1 THEN ' Niedrigerer Spieler hatte weiß IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,2,runde)) = 1 THEN bb = paarungen(j,2,runde) paarungen(j,2,runde) = paarungen(j,1,runde) paarungen(j,1,runde) = bb e = -1 END IF ' Niedrigerer Spieler hatte schwarz IF paarungen(j,1,runde) < paarungen(j,2,runde) AND koya(paarungen(j,2,runde)) = 2 THEN ' Nichts machen, Paarungen stimmen!!! e = -1 END IF END IF NEXT END IF END IF ' Schweizer System - Dutch bbpPairings IF Paarungssystem = 11 THEN ' IF ausgelosteRunde(1) = 0 THEN REDIM AS INTEGER paarungen(0 TO MaxAnzahl, 0 TO 2, 0 TO 29) ' Turnier Report File erstellen TRF(1) CHDIR EXEPATH ' Pfad setzen j = -1 DIM f AS INTEGER = FREEFILE IF FILEEXISTS(EXEPATH + "\bbpPairings.exe") THEN OPEN PIPE EXEPATH + "\bbpPairings.exe -r --dutch Turniere.trfx -p" FOR INPUT AS #f DO UNTIL EOF(f) INPUT #f, aa e = INSTR(aa, " ") k = LEN(aa) IF j = 0 THEN ppr(runde) = VAL(aa) END IF IF j > 0 THEN paarungen(j,1,runde) = VAL(LEFT(aa, (e-1))) paarungen(j,2,runde) = VAL(RIGHT(aa, (k-e))) END IF j += 1 LOOP CLOSE #f ELSE ppr(runde) = 0 END IF ' Nachricht ausgeben, falls keine neue Paarung gefunden werden konnte IF ppr(runde) = 0 THEN MessageBox(0, Sprachausgaben(120), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL): EXIT SUB IF ppr(runde) <> 0 THEN pprAlt(1) = ppr(runde) ELSE ppr(runde) = pprAlt(1) END IF ANZEIGE(i) END IF ' kampfloses Ergebnis bei Spieler mit spielfrei eintragen - ganze Punkte IF HalbBye = 0 THEN IF paarungen(ppr(runde),1,runde) <> 0 AND paarungen(ppr(runde),2,runde) = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 1 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 0 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 2 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 0 END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 2 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 0 END IF kampflose(ppr(runde), Runde) = 1 END IF IF paarungen(ppr(runde),1,runde) = 0 AND paarungen(ppr(runde),2,runde) <> 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 0 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 1 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 0 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 2 END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 0 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 2 END IF kampflose(ppr(runde), Runde) = 1 END IF END IF ' kampfloses Ergebnis bei Spieler mit spielfrei eintragen - halbe Punkte IF HalbBye THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN IF modus = 0 THEN IF paarungen(ppr(runde),1,runde) <> 0 AND paarungen(ppr(runde),2,runde) = 0 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 0.5 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 0 END IF IF paarungen(ppr(runde),1,runde) = 0 AND paarungen(ppr(runde),2,runde) <> 0 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 0 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 0.5 END IF END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF paarungen(ppr(runde),1,runde) <> 0 AND paarungen(ppr(runde),2,runde) = 0 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 1 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 0 END IF IF paarungen(ppr(runde),1,runde) = 0 AND paarungen(ppr(runde),2,runde) <> 0 THEN Punkte(paarungen(ppr(runde),1,Runde),Runde) = 0 Punkte(paarungen(ppr(runde),2,Runde),Runde) = 1 END IF END IF kampflose(ppr(runde), Runde) = 1 END IF ' ausgeloste Runde definieren IF paarungssystem < 3 THEN IF ausgelosteRunde(1) = 0 THEN FOR j = 1 TO RAZ ausgelosteRunde(j) = 1 NEXT END IF ELSE ausgelosteRunde(runde) = 1 END IF ' Zähler löschen FOR j = 1 TO ppr(runde) TmpBrett(j) = 0 TempBrettnummer(j, 1) = 0 TempBrettnummer(j, 2) = 0 NEXT ' Feste Bretter definieren FOR j = 1 TO ppr(runde) IF paarungen(j,2,runde) <> 0 THEN IF VAL(Festebrettnummer(paarungen(j,1,runde))) < ppr(runde) AND VAL(Festebrettnummer(paarungen(j,2,runde))) < ppr(runde) THEN IF Festebrettnummer(paarungen(j,1,runde)) <> "" OR Festebrettnummer(paarungen(j,2,runde)) <> "" THEN IF Festebrettnummer(paarungen(j,1,runde)) = "" AND Festebrettnummer(paarungen(j,2,runde)) <> "" THEN k = VAL(Festebrettnummer(paarungen(j,2,runde))) IF Festebrettnummer(paarungen(j,1,runde)) <> "" AND Festebrettnummer(paarungen(j,2,runde)) = "" THEN k = VAL(Festebrettnummer(paarungen(j,1,runde))) IF Festebrettnummer(paarungen(j,1,runde)) <> "" AND Festebrettnummer(paarungen(j,2,runde)) <> "" THEN k = VAL(Festebrettnummer(paarungen(j,1,runde))) IF Festebrettnummer(paarungen(j,1,runde)) = "" AND Festebrettnummer(paarungen(j,2,runde)) <> "" THEN TmpBrett(k) = VAL(Festebrettnummer(paarungen(j,2,runde))) IF Festebrettnummer(paarungen(j,1,runde)) <> "" AND Festebrettnummer(paarungen(j,2,runde)) = "" THEN TmpBrett(k) = VAL(Festebrettnummer(paarungen(j,1,runde))) IF Festebrettnummer(paarungen(j,1,runde)) <> "" AND Festebrettnummer(paarungen(j,2,runde)) <> "" THEN TmpBrett(k) = VAL(Festebrettnummer(paarungen(j,1,runde))) TempBrettnummer(k, 1) = paarungen(j,1,Runde) TempBrettnummer(k, 2) = paarungen(j,2,Runde) END IF END IF END IF NEXT ' Paarungen temporär definieren k = 1 j = 1 DO WHILE TmpBrett(k) <> 0 k += 1 WEND IF Festebrettnummer(paarungen(j,1,runde)) = "" AND Festebrettnummer(paarungen(j,2,runde)) = "" THEN TempBrettnummer(k, 1) = paarungen(j,1,Runde) TempBrettnummer(k, 2) = paarungen(j,2,Runde) TmpBrett(k) = -1 k += 1 j += 1 END IF IF VAL(Festebrettnummer(paarungen(j,1,runde))) >= ppr(runde) AND VAL(Festebrettnummer(paarungen(j,2,runde))) < ppr(runde) THEN TempBrettnummer(k, 1) = paarungen(j,1,Runde) TempBrettnummer(k, 2) = paarungen(j,2,Runde) TmpBrett(k) = -1 k += 1 j += 1 END IF IF VAL(Festebrettnummer(paarungen(j,1,runde))) < ppr(runde) AND VAL(Festebrettnummer(paarungen(j,2,runde))) >= ppr(runde) THEN TempBrettnummer(k, 1) = paarungen(j,1,Runde) TempBrettnummer(k, 2) = paarungen(j,2,Runde) TmpBrett(k) = -1 k += 1 j += 1 END IF IF VAL(Festebrettnummer(paarungen(j,1,runde))) < ppr(runde) AND VAL(Festebrettnummer(paarungen(j,2,runde))) < ppr(runde) THEN IF Festebrettnummer(paarungen(j,1,runde)) <> "" OR Festebrettnummer(paarungen(j,2,runde)) <> "" THEN IF paarungen(j,2,Runde) <> 0 THEN j += 1 ELSE TempBrettnummer(k, 1) = paarungen(j,1,Runde) TempBrettnummer(k, 2) = paarungen(j,2,Runde) TmpBrett(k) = -1 k += 1 j += 1 END IF END IF END IF IF j > ppr(Runde) THEN EXIT DO LOOP ' Paarungen endgültig definieren FOR j = 1 TO ppr(runde) paarungen(j,1,Runde) = TempBrettnummer(j, 1) paarungen(j,2,Runde) = TempBrettnummer(j, 2) NEXT ' Datum + Uhrzeit automatisch eintragen! IF Datum(Runde) = "" THEN Datum(Runde) = MID(DATE, 4,2) + "." + LEFT(DATE, 2) + "." + MID(DATE, 7, 4) IF Uhrzeit(Runde) = "" THEN Uhrzeit(Runde) = LEFT(TIME, 5) ' Scrollbalken initialisieren und anzeigen Scrollbalkenposition(2) = 112 YY = Scrollbalkenposition(2) SCROLLBALKEN END SUB SUB ERGEBNISANZEIGE IF Seite = 2 OR Seite = 10 THEN ' alte Ergebnisse auf Bildschirm löschen!!! SCREENLOCK FOR j = 0 TO 58 FONT " ", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 LINE(324,72+8*j)-(330,78+8*j), Hintergrundfarbe, BF NEXT SCREENUNLOCK ' Unterprogramm verlassen, wenn für aktuelle Runde keine Paarungen vorhanden sind IF ausgelosteRunde(runde) = 0 THEN EXIT SUB ' Ergebnisse anzeigen - maximal 59 Stück!!! IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF ppr(runde) < 60 THEN SCREENLOCK FOR j = 0 TO ppr(runde)-1 ' FONT " ", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 LOCATE j+10, 34: PRINT " " IF Paarungssystem = 9 AND runde < RAZ THEN ' Schwarz IF fehlendeSpieler(paarungen(Brett+j,1,Runde), runde+1) = 1 AND fehlendeSpieler(paarungen(Brett+j,2,Runde), runde+1) = 0 THEN IF SetupFarbe = 0 OR SetupFarbe = 1 THEN LINE(324,72+8*j)-(330,78+8*j), Farbe(1), BF ELSE LINE(324,72+8*j)-(330,78+8*j), &h000000, BF END IF END IF ' Weiß IF fehlendeSpieler(paarungen(Brett+j,2,Runde), runde+1) = 1 AND fehlendeSpieler(paarungen(Brett+j,1,Runde), runde+1) = 0 THEN LINE(324,72+8*j)-(330,78+8*j), &hFFFFFF, BF END IF END IF IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 THEN IF kampflose(Brett+j, Runde) = 0 THEN IF modus <> -1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Punkte((paarungen(Brett+j,2,Runde)),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF modus = -1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Punkte((paarungen(Brett+j,2,Runde)),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ELSE ' ************************************************************************************************************************************************* IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Brett+j <= ppr(runde) THEN IF kampflose(Brett+j, Runde) = 1 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND modus = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF IF kampflose(Brett+j, Runde) = 1 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ' ************************************************************************************************************************************************* IF kampflose(Brett+j, Runde) = 1 THEN IF modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF IF kampflose(Brett+j, Runde) = 2 THEN IF Modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF END IF END IF NEXT SCREENUNLOCK EXIT SUB END IF ' bei mehr als 59 Paarungen, nur 59 anzeigen! IF ppr(runde) > 59 THEN SCREENLOCK FOR j = 0 TO 58 ' FONT " ", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 LOCATE j+10, 34: PRINT " " IF kampflose(Brett+j, Runde) = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) < 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) < 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Punkte((paarungen(Brett+j,2,Runde)),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Brett+j <= ppr(runde) THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF kampflose(Brett+j, Runde) = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF kampflose(Brett+j, Runde) = 2 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0.5 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF NEXT SCREENUNLOCK END IF END IF ' Mannschaftsergebnisse anzeigen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF ppr(runde) < 60 THEN SCREENLOCK FOR j = 0 TO ppr(runde)-1 ' FONT " ", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 LOCATE j+10, 34: PRINT " " IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 THEN IF kampflose(Brett+j, Runde) = 0 THEN IF modus <> -1 THEN IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde)), ".") = 0 AND INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde)), ".") = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde)), ".") <> 0 AND INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde)), ".") <> 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF IF modus = -1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Punkte((paarungen(Brett+j,2,Runde)),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ELSE ' ************************************************************************************************************************************************* IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Brett+j <= ppr(runde) THEN IF kampflose(Brett+j, Runde) = 1 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF kampflose(Brett+j, Runde) = 1 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ' ************************************************************************************************************************************************* IF kampflose(Brett+j, Runde) = 1 THEN IF modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF IF kampflose(Brett+j, Runde) = 2 THEN IF Modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF END IF END IF NEXT SCREENUNLOCK EXIT SUB END IF ' bei mehr als 59 Paarungen, nur 59 anzeigen! IF ppr(runde) > 59 THEN SCREENLOCK FOR j = 0 TO 58 ' FONT " ", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 LOCATE j+10, 34: PRINT " " IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 THEN IF kampflose(Brett+j, Runde) = 0 THEN IF modus <> -1 THEN IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde)), ".") = 0 AND INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde)), ".") = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde)), ".") <> 0 AND INSTR(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde)), ".") <> 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 33, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Mannschaftspunkte(Paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF IF modus = -1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + " - " + LTRIM(STR(Punkte((paarungen(Brett+j,2,Runde)),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 AND Brett+j <= ppr(runde) THEN FONT LTRIM(STR(Punkte(paarungen(Brett+j,1,Runde),Runde))) + "-" + LTRIM(STR(Punkte(paarungen(Brett+j,2,Runde),Runde))), j+10, 35, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ELSE ' ************************************************************************************************************************************************* IF Punkte(paarungen(Brett+j,1,Runde),Runde) <> 2000 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 2000 AND Brett+j <= ppr(runde) THEN IF kampflose(Brett+j, Runde) = 1 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 0.5 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 0.5 AND modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF kampflose(Brett+j, Runde) = 1 AND Punkte(paarungen(Brett+j,1,Runde),Runde) <> 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) <> 1 AND modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "+", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " +" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " -" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ' ************************************************************************************************************************************************* IF kampflose(Brett+j, Runde) = 1 THEN IF modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " =" + " - " + "-", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " -" + " - " + "=", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF IF kampflose(Brett+j, Runde) = 2 THEN IF Modus = 0 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Modus = 1 THEN IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 0 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 2 THEN FONT " L" + " - " + "W", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 2 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 0 THEN FONT " W" + " - " + "L", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Punkte(paarungen(Brett+j,1,Runde),Runde) = 1 AND Punkte(paarungen(Brett+j,2,Runde),Runde) = 1 THEN FONT " D" + " - " + "D", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF END IF END IF NEXT SCREENUNLOCK END IF END IF END IF '/ IF Seite = 12 THEN FOR j = 0 TO 49 FONT " ", j+10, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT FOR j = s TO Bretter ' Schachergebnisse IF Modus = 0 THEN IF EinzelErgebnisse(Brett, j, Runde) = "1-0" THEN FONT " 1" + " - " + "0", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "0-1" THEN FONT " 0" + " - " + "1", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "R-R" THEN FONT "0.5" + "-" + "0.5", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "R-0" THEN FONT " 0.5" + "-" + "0 ", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "0-R" THEN FONT " 0" + "-" + "0.5 ", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "0-0" THEN FONT " 0" + " - " + "0", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "+--" THEN FONT " +" + " - " + "-", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "---" THEN FONT " -" + " - " + "-", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "--+" THEN FONT " -" + " - " + "+", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "W-L" THEN FONT " W" + " - " + "L", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "D-D" THEN FONT " D" + " - " + "D", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "L-W" THEN FONT " L" + " - " + "W", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = " " THEN FONT " " + " " + " ", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF ' Mühleergebnisse IF Modus = 1 THEN IF EinzelErgebnisse(Brett, j, Runde) = "2-0" THEN FONT " 2" + " - " + "0", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "0-2" THEN FONT " 0" + " - " + "2", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "1-1" THEN FONT " 1" + " - " + "1", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "1-0" THEN FONT " 1" + " - " + "0", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "0-1" THEN FONT " 0" + " - " + "1", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "0-0" THEN FONT " 0" + " - " + "0", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "+--" THEN FONT " +" + " - " + "-", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "---" THEN FONT " -" + " - " + "-", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "--+" THEN FONT " -" + " - " + "+", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "W-L" THEN FONT " W" + " - " + "L", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "D-D" THEN FONT " D" + " - " + "D", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = "L-W" THEN FONT " L" + " - " + "W", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF EinzelErgebnisse(Brett, j, Runde) = " " THEN FONT " " + " " + " ", j+10-s, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT ' Punkte zusammenzählen FOR r = 1 TO Runde FOR k = 1 to ppr(r) Gesamtpunkte(1) = 0: Gesamtpunkte(2) = 0 Gesamtpunkte(3) = 0: Gesamtpunkte(4) = 0 Gesamtpunkte(5) = 0: Gesamtpunkte(6) = 0 Gesamtpunkte(7) = 0: Gesamtpunkte(8) = 0 Gesamtpunkte(9) = 0: Gesamtpunkte(10) = 0 Gesamtpunkte(11) = 0: Gesamtpunkte(12) = 0 Gesamtpunkte(13) = 0: Gesamtpunkte(14) = 0 Gesamtpunkte(15) = 0: Gesamtpunkte(16) = 0 Gesamtpunkte(17) = 0: Gesamtpunkte(18) = 0 Gesamtpunkte(19) = 0: Gesamtpunkte(20) = 0 Gesamtpunkte(21) = 0: Gesamtpunkte(22) = 0 Gesamtpunkte(23) = 0: Gesamtpunkte(24) = 0 Gesamtpunkte(25) = 0: Gesamtpunkte(26) = 0 Gesamtpunkte(27) = 0 FOR j = 1 TO Bretter IF Paarungen(k,2,r) <> 0 THEN IF EinzelErgebnisse(k,j,r) = "1-0" AND j <= Bretter THEN Gesamtpunkte(14) += 1: Gesamtpunkte(1) += 1 IF EinzelErgebnisse(k,j,r) = "0-1" AND j <= Bretter THEN Gesamtpunkte(15) += 1: Gesamtpunkte(2) += 1 IF EinzelErgebnisse(k,j,r) = "R-R" AND j <= Bretter THEN Gesamtpunkte(16) += 0.5: Gesamtpunkte(17) += 0.5: Gesamtpunkte(3) += 1 IF EinzelErgebnisse(k,j,r) = "R-0" AND j <= Bretter THEN Gesamtpunkte(18) += 0.5: Gesamtpunkte(4) += 1 IF EinzelErgebnisse(k,j,r) = "0-R" AND j <= Bretter THEN Gesamtpunkte(19) += 0.5: Gesamtpunkte(5) += 1 IF EinzelErgebnisse(k,j,r) = "0-0" AND j <= Bretter THEN Gesamtpunkte(6) += 1 IF EinzelErgebnisse(k,j,r) = "+--" AND j <= Bretter THEN Gesamtpunkte(20) += 1: Gesamtpunkte(7) += 1 IF EinzelErgebnisse(k,j,r) = "---" AND j <= Bretter THEN Gesamtpunkte(8) += 1 IF EinzelErgebnisse(k,j,r) = "--+" AND j <= Bretter THEN Gesamtpunkte(21) += 1: Gesamtpunkte(9) += 1 IF EinzelErgebnisse(k,j,r) = "W-L" AND j <= Bretter THEN Gesamtpunkte(22) += 1: Gesamtpunkte(10) += 1 IF EinzelErgebnisse(k,j,r) = "D-D" AND j <= Bretter THEN Gesamtpunkte(24) += 0.5: Gesamtpunkte(25) += 0.5: Gesamtpunkte(11) += 1 IF EinzelErgebnisse(k,j,r) = "L-W" AND j <= Bretter THEN Gesamtpunkte(23) += 1: Gesamtpunkte(12) += 1 IF EinzelErgebnisse(k,j,r) = " " OR EinzelErgebnisse(k,j,r) = "" THEN IF j <= Bretter THEN Gesamtpunkte(13) += 1 END IF IF Paarungen(k,2,r) = 0 THEN Gesamtpunkte(14) += 1: Gesamtpunkte(1) += 1 NEXT Gesamtpunkte(26) = Gesamtpunkte(14) + Gesamtpunkte(16) + Gesamtpunkte(18) + Gesamtpunkte(20) + Gesamtpunkte(22) + Gesamtpunkte(24) Gesamtpunkte(27) = Gesamtpunkte(15) + Gesamtpunkte(17) + Gesamtpunkte(19) + Gesamtpunkte(21) + Gesamtpunkte(23) + Gesamtpunkte(25) Mannschaftspunkte(Paarungen(k,1,r),r) = Gesamtpunkte(26) Mannschaftspunkte(Paarungen(k,2,r),r) = Gesamtpunkte(27) ' gespielte Partien (1-0, 0-1, ½-½) IF Gesamtpunkte(6) <> Bretter AND Gesamtpunkte(7) <> Bretter AND Gesamtpunkte(8) <> Bretter AND Gesamtpunkte(9) <> Bretter AND Gesamtpunkte(10) <> Bretter AND Gesamtpunkte(11) <> Bretter AND Gesamtpunkte(12) <> Bretter AND Gesamtpunkte(13) <> Bretter THEN IF Gesamtpunkte(26) > Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 2: punkte(paarungen(k,2,r),r) = 0: kampflose(k,r) = 0 ' 1-0 IF Gesamtpunkte(26) < Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 0: punkte(paarungen(k,2,r),r) = 2: kampflose(k,r) = 0 ' 0-1 IF Gesamtpunkte(26) = Gesamtpunkte(27) AND Gesamtpunkte(13) = 0 AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 1: punkte(paarungen(k,2,r),r) = 1: kampflose(k,r) = 0 ' Remis END IF ' Partien die 0-0 sind IF Gesamtpunkte(1) <> Bretter AND Gesamtpunkte(2) <> Bretter AND Gesamtpunkte(3) <> Bretter AND Gesamtpunkte(4) <> Bretter AND Gesamtpunkte(5) <> Bretter AND Gesamtpunkte(7) <> Bretter AND Gesamtpunkte(8) <> Bretter AND Gesamtpunkte(9) <> Bretter AND Gesamtpunkte(10) <> Bretter AND Gesamtpunkte(11) <> Bretter AND Gesamtpunkte(12) <> Bretter AND Gesamtpunkte(13) <> Bretter THEN IF Gesamtpunkte(6) = Bretter AND Gesamtpunkte(26) = Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 AND Gesamtpunkte(13) = 0 THEN punkte(paarungen(k,1,r),r) = 0: punkte(paarungen(k,2,r),r) = 0: kampflose(k,r) = 0 ' 0-0 END IF ' kampflose Partie (---) IF Gesamtpunkte(8) = Bretter AND Gesamtpunkte(26) = Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 0: punkte(paarungen(k,2,r),r) = 0: kampflose(k,r) = 1 ' --- ' kampflose Partien (+--, --+) IF Gesamtpunkte(1) = 0 AND Gesamtpunkte(2) = 0 AND Gesamtpunkte(3) = 0 AND Gesamtpunkte(4) = 0 AND Gesamtpunkte(5) = 0 AND Gesamtpunkte(6) = 0 AND Gesamtpunkte(10) = 0 AND Gesamtpunkte(11) = 0 AND Gesamtpunkte(12) = 0 AND Gesamtpunkte(13) = 0 THEN IF Gesamtpunkte(7) > 0 OR Gesamtpunkte(8) > 0 OR Gesamtpunkte(9) > 0 THEN IF Gesamtpunkte(26) > Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 2: punkte(paarungen(k,2,r),r) = 0: kampflose(k,r) = 1 ' +-- IF Gesamtpunkte(26) < Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 0: punkte(paarungen(k,2,r),r) = 2: kampflose(k,r) = 1 ' --+ END IF END IF ' ungewertete Partie (D-D) IF Gesamtpunkte(11) = Bretter AND Gesamtpunkte(26) = Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 1: punkte(paarungen(k,2,r),r) = 1: kampflose(k,r) = 2 ' D-D ' ungewertete Partie (W-L, L-W) IF Gesamtpunkte(1) = 0 AND Gesamtpunkte(2) = 0 AND Gesamtpunkte(3) = 0 AND Gesamtpunkte(4) = 0 AND Gesamtpunkte(5) = 0 AND Gesamtpunkte(6) = 0 AND Gesamtpunkte(7) = 0 AND Gesamtpunkte(8) = 0 AND Gesamtpunkte(9) = 0 AND Gesamtpunkte(13) = 0 THEN IF Gesamtpunkte(10) > 0 OR Gesamtpunkte(11) > 0 OR Gesamtpunkte(12) > 0 THEN IF Gesamtpunkte(26) > Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 2: punkte(paarungen(k,2,r),r) = 0: kampflose(k,r) = 2 ' W-L IF Gesamtpunkte(26) < Gesamtpunkte(27) AND paarungen(k,2,r) <> 0 THEN punkte(paarungen(k,1,r),r) = 0: punkte(paarungen(k,2,r),r) = 2: kampflose(k,r) = 2 ' L-W END IF END IF ' Spielfreie Paarung IF punkte(paarungen(k,1,r),r) = 2000 AND paarungen(k,2,r) = 0 THEN punkte(paarungen(k,1,r),r) = 2: kampflose(k,r) = 1 ' Spielfrei definieren ' kein Ergebnis eingetragen IF Gesamtpunkte(13) = Bretter THEN punkte(paarungen(k,1,r),r) = 2000: punkte(paarungen(k,2,r),r) = 2000: kampflose(k,r) = 1 NEXT NEXT ' Mannschaftspunkte anzeigen Taste = "½" CharToOem Taste, Taste FONT " ", 63, 34, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT ":", 63, 37, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), ".") = 0 THEN FONT STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), 63, 36, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), ".") = 0 THEN FONT STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), 63, 38, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), ".") <> 0 AND LEFT(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), 1) <> "0" THEN FONT LEFT(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)),(INSTR(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), ".")-1)) + Taste, 63, 34, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), ".") <> 0 AND LEFT(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), 1) <> "0" THEN FONT LEFT(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)),(INSTR(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), ".")-1)) + Taste, 63, 38, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), ".") <> 0 AND LEFT(STR(Mannschaftspunkte(Paarungen(Brett,1,Runde),Runde)), 1) = "0" THEN FONT Taste, 63, 36, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF INSTR(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), ".") <> 0 AND LEFT(STR(Mannschaftspunkte(Paarungen(Brett,2,Runde),Runde)), 1) = "0" THEN FONT Taste, 63, 38, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END SUB SUB TABELLE(l AS INTEGER) REDIM AS INTEGER Gewinn(TAZ+1), Verlust(TAZ+1), Remis(TAZ+1) /' Punktezähler auf 0 setzen FOR j = 1 TO TAZ Gewinn(j) = 0 Remis(j) = 0 Verlust(j) = 0 TempPunkte(j, 4) = 0 NEXT '/ ' Temp(0, 1) = "spielfrei" ' ******************************************************************************************************************************************************************** ' Ergebnisse der letzten Runde zwischenspeichern, für die Berechnung der Feinwertung "Forebuchholz"! /' FOR j = 1 TO ppr(RAZ) NEXT '/ ' ******************************************************************************************************************************************************************** ' Feinwertung berechnen FEINWERTUNG IF Seite = 3 AND l <> 0 THEN IF l = 1 THEN IF ausgelosteRunde(1) <> 0 THEN ' TRF(5) ' Feinwertungen durch Feinwertungsengine berechnen IF Feinwertungssystem(1) < -1 OR Feinwertungssystem(2) < -1 THEN GACRUX ' Direkter Vergleich im Schweizer System berechnen IF Feinwertungssystem(1) = 10 OR Feinwertungssystem(2) = 10 THEN IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 11 THEN GACRUX END IF IF Feinwertungssystem(1) = 28 OR Feinwertungssystem(2) = 28 THEN GACRUX ' Rating Differenz IF Feinwertungssystem(1) = 29 OR Feinwertungssystem(2) = 29 THEN GACRUX ' Perfekte Trn.-Leist.-Gegner IF Feinwertungssystem(1) = 31 OR Feinwertungssystem(2) = 31 THEN GACRUX ' WON END IF END IF END IF /' ' CLS FOR j = 1 TO TAZ LOCATE j+10,5: PRINT Spieler(j); " - "; GesamtpunkteForeBuchholz(j); " " NEXT SLEEP '/ /' AWK-Datei aufrufen! IF Seite = 3 AND l <> 0 THEN IF l = 1 THEN IF Feinwertungssystem(1) < -1 OR Feinwertungssystem(2) < -1 THEN ' Buchholz und Sonneborn-Berger IF Feinwertungssystem(1) > -8 OR Feinwertungssystem(2) > -8 THEN TRF(5) ' Forebuchholz Cut IF Feinwertungssystem(1) < -7 OR Feinwertungssystem(2) < -7 THEN TRFFOREBUCHHOLZCUT /' ******************************************************************************************************************************************************** ' DIM AS INTEGER Zaehler(0 TO 25000, 0 TO 7) ' alte Ergebnisse zwischenspeichern und zu Remis ändern IF runde = RAZ THEN FOR j = 1 TO ppr(RAZ) KorrekturFore(paarungen(j,1,RAZ), 1) = Punkte(paarungen(j,1,RAZ),RAZ) KorrekturFore(paarungen(j,2,RAZ), 1) = Punkte(paarungen(j,2,RAZ),RAZ) KorrekturFore(j, 2) = kampflose(j, RAZ) IF paarungen(j,2,RAZ) <> 0 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(j,1,RAZ),RAZ) = 0.5 Punkte(paarungen(j,2,RAZ),RAZ) = 0.5 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(j,1,RAZ),RAZ) = 1 Punkte(paarungen(j,2,RAZ),RAZ) = 1 END IF kampflose(j, RAZ) = 0 END IF NEXT END IF ' Feinwertungen auf 0 setzen FOR k = 1 TO TAZ ' GesamtpunkteForebuchholz(k) = 0 ' Gesamtpunkte ForeBuchholz GesamtpunkteForebuchholz(k) = Gesamtpunkte(k) Gesamtpunkte(k) = 0 Feinwertungen(k, 28) = 0 ' Forebuchholz PunkteKorrektur(k) = 0 Zaehler(k, 5) = 0 ' Zähler wie oft ein Spieler spielt Zaehler(k, 7) = 0 ' Zähler wie oft ein Spieler spielt TempPunkte(k, 7) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) TempPunkte(k, 8) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) FOR j = 1 TO Runde IF Punkte(k,j) <> 2000 AND Punkte(k,j) <> 0 THEN Gesamtpunkte(k) += Punkte(k,j) IF fehlendeSpieler(k,j) = 0 THEN Feinwertungen(k, -1) = j Korrektur(k, j) = Gesamtpunkte(k) ' Anzahl der Runden zählen, die ein Spieler aussetzt IF fehlendeSpieler(k,j) = 1 THEN Zaehler(k, 0) += 1 IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 0) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 3) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 4) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 4) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 2) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 2) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) > 0 THEN Zaehler(k, 1) += 1 ' Zählen wie oft ein Spieler aussetzt NEXT NEXT ' TRF-Datei erstellen!!! TRF(5) ' original Ergebnisse wiederherstellen IF runde = RAZ THEN FOR j = 1 TO ppr(RAZ) Punkte(paarungen(j,1,Runde),Runde) = KorrekturFore(paarungen(j,1,RAZ), 1) Punkte(paarungen(j,2,Runde),Runde) = KorrekturFore(paarungen(j,2,RAZ), 1) kampflose(j, RAZ) = KorrekturFore(j, 2) NEXT END IF ' Gesamtpunkte wiederherstellen FOR j = 1 TO TAZ Gesamtpunkte(j) = GesamtpunkteForebuchholz(j) NEXT ' ******************************************************************************************************************************************************** '/ END IF IF Feinwertungssystem(1) < -1 OR Feinwertungssystem(2) < -1 THEN AWK END IF END IF END IF '/ IF l = 4 THEN EXIT SUB ' Unterprogramm verlassen, wenn l = 4 ist! ' Mannschaftswertungszahl bei Mannschaftsturnieren berechnen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MANNSCHAFTSRATING ' Feinwertung SonnebornBerger vor Anzahl der Siege FOR j = 1 TO TAZ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Temp(j, 1) = Spieler(j) ' Spielernamen zwischenspeichern Temp(j, 2) = LTRIM(STR(ELO(j))) ' ELO zwischenspeichern Temp(j, 3) = LTRIM(STR(DWZ(j))) ' DWZ zwischenspeichern Temp(j, 4) = Titel(j) ' Titel zwischenspeichern Temp(j, 5) = Verein(j) ' Verein Temp(j, 9) = Nation(j) ' Nation Temp(j, -3) = SpielerAttribut(j) ' Attribut END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Temp(j, 1) = Spieler(j) ' Spielernamen zwischenspeichern Temp(j, 2) = LTRIM(STR(Korrektur(j, 1))) ' ELO zwischenspeichern Temp(j, 3) = LTRIM(STR(Korrektur(j, 2))) ' DWZ zwischenspeichern Temp(j, 4) = Titel(j) ' Titel zwischenspeichern Temp(j, 5) = Verein(j) ' Verein Temp(j, 9) = Nation(j) ' Nation Temp(j, -3) = SpielerAttribut(j) ' Attribut END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Temp(j, 1) = Team(j) ' Mannschaften zwischenspeichern FOR k = 1 TO 2 IF Feinwertungssystem(k) = 1 THEN TempFeinwertung(j, k) = 0 ' keine Feinwertung IF Feinwertungssystem(k) = 2 THEN TempFeinwertung(j, k) = Feinwertungen(j, 1) ' SonnebornBerger(j) ' Feinwertung 1 zwischenspeichern IF Feinwertungssystem(k) = 3 THEN TempFeinwertung(j, k) = Gewinn(j) ' Anzahl der Gewinne ' Feinwertung 2 zwischenspeichern IF Feinwertungssystem(k) = 4 THEN TempFeinwertung(j, k) = Feinwertungen(j, 2) ' Buchholz(j) ' Feinwertung 3 zwischenspeichern IF Feinwertungssystem(k) = 5 THEN TempFeinwertung(j, k) = Feinwertungen(j, 3) ' Buchholzsumme(j) ' Feinwertung 4 zwischenspeichern IF Feinwertungssystem(k) = 6 THEN TempFeinwertung(j, k) = Feinwertungen(j, 4) ' Schmuljan(j) ' Feinwertung 5 zwischenspeichern IF Feinwertungssystem(k) = 7 THEN TempFeinwertung(j, k) = Koya(j) ' Feinwertungen(j, 5) ' Feinwertung 6 zwischenspeichern IF Feinwertungssystem(k) = 8 THEN TempFeinwertung(j, k) = Feinwertungen(j, 8) ' Brettpunkte(j) ' Feinwertung 7 zwischenspeichern IF Feinwertungssystem(k) = 9 THEN TempFeinwertung(j, k) = Feinwertungen(j, 9) ' 3-Punkte-Regel ' Feinwertung 8 zwischenspeichern IF k = 1 THEN IF Feinwertungssystem(1) = 10 THEN TempFeinwertung(j, 1) = Feinwertungen(j, 10) ' Direkter Vergleich' Feinwertung 10 zwischenspeichern IF k = 2 THEN IF Feinwertungssystem(2) = 10 THEN TempFeinwertung(j, 2) = Feinwertungen(j, 11) ' Direkter Vergleich' Feinwertung 11 zwischenspeichern IF Feinwertungssystem(k) = 11 THEN TempFeinwertung(j, k) = Feinwertungen(j, 12) ' Durchnittliche Elowertung der Gegner ' Feinwertung 12 zwischenspeichern IF Feinwertungssystem(k) = 12 THEN TempFeinwertung(j, k) = Feinwertungen(j, 13) ' Leistungsbewertung im Turnier ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(k) = 13 THEN TempFeinwertung(j, k) = Feinwertungen(j, 14) ' Durchschnttliche perfekte [Turnier] Performance der Gegner ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(k) = 14 THEN TempFeinwertung(j, k) = Feinwertungen(j, 17) ' Games one elected play ' Feinwertung 14 zwischenspeichern IF Feinwertungssystem(k) = 15 THEN TempFeinwertung(j, k) = Feinwertungen(j, 18) ' Durchschnittliche Buchholzwertung der Gegner IF Feinwertungssystem(k) = 17 THEN TempFeinwertung(j, k) = Feinwertungen(j, 26) ' Anzahl der gewonnenen Schwarzpartien IF Feinwertungssystem(k) = 18 THEN TempFeinwertung(j, k) = Feinwertungen(j, 27) ' Summenwertung / Progressive Score IF Feinwertungssystem(k) = 19 THEN TempFeinwertung(j, k) = Feinwertungen(j, 28) ' Forebuchholz IF Feinwertungssystem(k) = 23 THEN TempFeinwertung(j, k) = Feinwertungen(j, 6) ' Anzahl der Schwarzpartien IF Feinwertungssystem(k) = 28 THEN TempFeinwertung(j, k) = Feinwertungen(j, 52) ' Rating Differenz IF Feinwertungssystem(k) = 29 THEN TempFeinwertung(j, k) = Feinwertungen(j, 53) ' Perfekte Trn.-Leist.-Gegner IF Feinwertungssystem(k) = 30 THEN TempFeinwertung(j, k) = Feinwertungen(j, 54) ' Rating IF Feinwertungssystem(k) = 31 THEN TempFeinwertung(j, k) = Feinwertungen(j, 55) ' WON IF Feinwertungssystem(k) = -2 THEN TempFeinwertung(j, k) = Feinwertungen(j, 19) ' Buchholz Cut 1 IF Feinwertungssystem(k) = -3 THEN TempFeinwertung(j, k) = Feinwertungen(j, 20) ' Buchholz Cut 2 IF Feinwertungssystem(k) = -4 THEN TempFeinwertung(j, k) = Feinwertungen(j, 21) ' Buchholz Median 1 IF Feinwertungssystem(k) = -5 THEN TempFeinwertung(j, k) = Feinwertungen(j, 22) ' Buchholz Median 2 IF Feinwertungssystem(k) = -6 THEN TempFeinwertung(j, k) = Feinwertungen(j, 23) ' Sonneborn-Berger Cut 1 IF Feinwertungssystem(k) = -7 THEN TempFeinwertung(j, k) = Feinwertungen(j, 24) ' Sonneborn-Berger Cut 2 IF Feinwertungssystem(k) = -8 THEN TempFeinwertung(j, k) = Feinwertungen(j, 29) ' Forebuchholz Cut 1 IF Feinwertungssystem(k) = -9 THEN TempFeinwertung(j, k) = Feinwertungen(j, 30) ' Forebuchholz Cut 2 IF Feinwertungssystem(k) = -10 THEN TempFeinwertung(j, k) = Feinwertungen(j, 31) ' Forebuchholz Medium 1 IF Feinwertungssystem(k) = -11 THEN TempFeinwertung(j, k) = Feinwertungen(j, 32) ' Forebuchholz Medium 2 IF Feinwertungssystem(k) = -12 THEN TempFeinwertung(j, k) = Feinwertungen(j, 33) ' ARO Cut 1 IF Feinwertungssystem(k) = -13 THEN TempFeinwertung(j, k) = Feinwertungen(j, 34) ' ARO Cut 2 IF Feinwertungssystem(k) = -14 THEN TempFeinwertung(j, k) = Feinwertungen(j, 35) ' ARO Medium 1 IF Feinwertungssystem(k) = -15 THEN TempFeinwertung(j, k) = Feinwertungen(j, 36) ' ARO Medium 2 IF Feinwertungssystem(k) = -16 THEN TempFeinwertung(j, k) = Feinwertungen(j, 37) ' Progressive Score Cut 1 IF Feinwertungssystem(k) = -17 THEN TempFeinwertung(j, k) = Feinwertungen(j, 38) ' Progressive Score Cut 2 IF Feinwertungssystem(k) = -18 THEN TempFeinwertung(j, k) = Feinwertungen(j, 39) ' Buchholz/P IF Feinwertungssystem(k) = -19 THEN TempFeinwertung(j, k) = Feinwertungen(j, 40) ' Buchholz Cut 1/P IF Feinwertungssystem(k) = -20 THEN TempFeinwertung(j, k) = Feinwertungen(j, 41) ' Buchholz Cut 2/P IF Feinwertungssystem(k) = -21 THEN TempFeinwertung(j, k) = Feinwertungen(j, 42) ' Buchholz Medium 1/P IF Feinwertungssystem(k) = -22 THEN TempFeinwertung(j, k) = Feinwertungen(j, 43) ' Buchholz Medium 2/P IF Feinwertungssystem(k) = -23 THEN TempFeinwertung(j, k) = Feinwertungen(j, 44) ' Sonneborn-Berger/P IF Feinwertungssystem(k) = -24 THEN TempFeinwertung(j, k) = Feinwertungen(j, 45) ' Sonneborn-Berger Cut 1/P IF Feinwertungssystem(k) = -25 THEN TempFeinwertung(j, k) = Feinwertungen(j, 46) ' Sonneborn-Berger Cut 2/P IF Feinwertungssystem(k) = -26 THEN TempFeinwertung(j, k) = Feinwertungen(j, 47) ' Forebuchholz/P IF Feinwertungssystem(k) = -27 THEN TempFeinwertung(j, k) = Feinwertungen(j, 48) ' Forebuchholz Cut 1/P IF Feinwertungssystem(k) = -28 THEN TempFeinwertung(j, k) = Feinwertungen(j, 49) ' Forebuchholz Cut 2/P IF Feinwertungssystem(k) = -29 THEN TempFeinwertung(j, k) = Feinwertungen(j, 50) ' Forebuchholz Medium 1/P IF Feinwertungssystem(k) = -30 THEN TempFeinwertung(j, k) = Feinwertungen(j, 51) ' Forebuchholz Medium 2/P IF Feinwertungssystem(k) = -31 THEN TempFeinwertung(j, k) = Feinwertungen(j, 56) ' Direkter Vergleich/P IF Feinwertungssystem(k) = -32 THEN TempFeinwertung(j, k) = Feinwertungen(j, 57) ' AOB/F NEXT ' Für Vesus IF Feinwertungssystem(1) = 1 THEN TempFeinwertung(j, 3) = 0 ' keine Feinwertung IF Feinwertungssystem(1) = 2 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 1) ' SonnebornBerger(j) ' Feinwertung 1 zwischenspeichern IF Feinwertungssystem(1) = 3 THEN TempFeinwertung(j, 3) = Gewinn(j) ' Anzahl der Gewinne ' Feinwertung 2 zwischenspeichern IF Feinwertungssystem(1) = 4 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 2) ' Buchholz(j) ' Feinwertung 3 zwischenspeichern IF Feinwertungssystem(1) = 5 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 3) ' Buchholzsumme(j) ' Feinwertung 4 zwischenspeichern IF Feinwertungssystem(1) = 6 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 4) ' Schmuljan(j) ' Feinwertung 5 zwischenspeichern IF Feinwertungssystem(1) = 7 THEN TempFeinwertung(j, 3) = Koya(j) ' Feinwertungen(j, 5) ' Feinwertung 6 zwischenspeichern IF Feinwertungssystem(1) = 8 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 8) ' Brettpunkte(j) ' Feinwertung 7 zwischenspeichern IF Feinwertungssystem(1) = 9 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 9) ' 3-Punkte-Regel ' Feinwertung 8 zwischenspeichern IF Feinwertungssystem(1) = 10 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 10) ' Direkter Vergleich' Feinwertung 10 zwischenspeichern IF Feinwertungssystem(1) = 11 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 12) ' Durchnittliche Elowertung der Gegner ' Feinwertung 12 zwischenspeichern IF Feinwertungssystem(1) = 12 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 13) ' Leistungsbewertung im Turnier ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(1) = 13 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 14) ' Durchschnttliche perfekte [Turnier] Performance der Gegner ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(1) = 14 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 17) ' Games one elected play ' Feinwertung 14 zwischenspeichern IF Feinwertungssystem(1) = 15 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 18) ' Durchschnittliche Buchholzwertung der Gegner ' Feinwertung 15 zwischenspeichern IF Feinwertungssystem(1) = -2 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 19) ' Buchholz Cut 1 ' Feinwertung 17 zwischenspeichern IF Feinwertungssystem(1) = -3 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 20) ' Buchholz Cut 2 ' Feinwertung 18 zwischenspeichern IF Feinwertungssystem(1) = -4 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 21) ' Buchholz Medium 1 ' Feinwertung 19 zwischenspeichern IF Feinwertungssystem(1) = -5 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 22) ' Buchholz Medium 2 ' Feinwertung 20 zwischenspeichern IF Feinwertungssystem(1) = -6 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 23) ' Sonneborn-Berger Cut 1 ' Feinwertung 21 zwischenspeichern IF Feinwertungssystem(1) = -7 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 24) ' Sonneborn-Berger Cut 2 ' Feinwertung 22 zwischenspeichern IF Feinwertungssystem(1) = 23 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 6) ' Anzahl der Schwarzpartien IF Feinwertungssystem(1) = 17 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 26) ' Anzahl der gewonnenen Schwarzpartien IF Feinwertungssystem(1) = 18 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 27) ' Summenwertung / Progressive Score IF Feinwertungssystem(1) = 19 THEN TempFeinwertung(j, 3) = Feinwertungen(j, 28) ' Forebuchholz IF Feinwertungssystem(2) = 1 THEN TempFeinwertung(j, 4) = 0 ' keine Feinwertung IF Feinwertungssystem(2) = 2 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 1) ' SonnebornBerger(j) ' Feinwertung 1 zwischenspeichern IF Feinwertungssystem(2) = 3 THEN TempFeinwertung(j, 4) = Gewinn(j) ' Anzahl der Gewinne ' Feinwertung 2 zwischenspeichern IF Feinwertungssystem(2) = 4 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 2) ' Buchholz(j) ' Feinwertung 3 zwischenspeichern IF Feinwertungssystem(2) = 5 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 3) ' Buchholzsumme(j) ' Feinwertung 4 zwischenspeichern IF Feinwertungssystem(2) = 6 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 4) ' Schmuljan(j) ' Feinwertung 5 zwischenspeichern IF Feinwertungssystem(2) = 7 THEN TempFeinwertung(j, 4) = Koya(j) ' Feinwertungen(j, 5) ' Feinwertung 6 zwischenspeichern IF Feinwertungssystem(2) = 8 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 8) ' Brettpunkte(j) ' Feinwertung 7 zwischenspeichern IF Feinwertungssystem(2) = 9 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 9) ' 3-Punkte-Regel ' Feinwertung 8 zwischenspeichern IF Feinwertungssystem(2) = 10 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 11) ' Direkter Vergleich' Feinwertung 11 zwischenspeichern IF Feinwertungssystem(2) = 11 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 12) ' Durchnittliche Elowertung der Gegner ' Feinwertung 12 zwischenspeichern IF Feinwertungssystem(2) = 12 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 13) ' Leistungsbewertung im Turnier ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(2) = 13 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 14) ' Durchschnttliche perfekte [Turnier] Performance der Gegner ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(2) = 14 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 17) ' Games one elected play ' Feinwertung 14 zwischenspeichern IF Feinwertungssystem(2) = 15 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 18) ' Durchschnittliche Buchholzwertung der Gegner ' Feinwertung 15 zwischenspeichern IF Feinwertungssystem(2) = -2 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 19) ' Buchholz Cut 1 ' Feinwertung 17 zwischenspeichern IF Feinwertungssystem(2) = -3 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 20) ' Buchholz Cut 2 ' Feinwertung 18 zwischenspeichern IF Feinwertungssystem(2) = -4 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 21) ' Buchholz Medium 1 ' Feinwertung 19 zwischenspeichern IF Feinwertungssystem(2) = -5 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 22) ' Buchholz Medium 2 ' Feinwertung 20 zwischenspeichern IF Feinwertungssystem(2) = -6 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 23) ' Sonneborn-Berger Cut 1 ' Feinwertung 21 zwischenspeichern IF Feinwertungssystem(2) = -7 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 24) ' Sonneborn-Berger Cut 2 ' Feinwertung 22 zwischenspeichern IF Feinwertungssystem(2) = 23 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 6) ' Anzahl der Schwarzpartien IF Feinwertungssystem(2) = 17 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 26) ' Anzahl der gewonnenen Schwarzpartien IF Feinwertungssystem(2) = 18 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 27) ' Summenwertung / Progressive Score IF Feinwertungssystem(2) = 19 THEN TempFeinwertung(j, 4) = Feinwertungen(j, 28) ' Forebuchholz IF Paarungssystem = 9 THEN TempPunkte(j, 0) = Feinwertungen(j, -1) ' KO-Punkte zwischenspeichern Temp(j, 10) = LTRIM(STR(j)) ' Startnummer zwischenspeichern (8) ' Temp(j, 11) = LTRIM(STR(Gesamtpunkte(j))) ' Punkte zwischenspeichern ' Temp(j, 12) = LTRIM(STR(Gewinn(j))) ' Siegeanzahl zwischenspeichern ' Temp(j, 13) = LTRIM(STR(Remis(j))) ' Remisanzahl zwischenspeichern TempPunkte(j, 1) = Gesamtpunkte(j) ' Punkte zwischenspeichern TempPunkte(j, 2) = Gewinn(j) ' Siegeanzahl zwischenspeichern TempPunkte(j, 3) = Remis(j) ' Remisanzahl zwischenspeichern ' TempPunkte(j, 4) = Verlust(j) ' Verlustanzahl zwischenspeichern NEXT IF l = 2 THEN EXIT SUB IF Paarungssystem <> 9 THEN ' Spieler nach Punkte sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF (TempPunkte(k, 1) < TempPunkte(k+1, 1)) THEN SWAP TempPunkte(k, 1), TempPunkte(k+1, 1) SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) ' SWAP Gesamtpunkte(k), Gesamtpunkte(k+1) END IF NEXT NEXT ' Spieler nach Feinwertung 1 sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF TempPunkte(k, 1) = TempPunkte(k+1, 1) THEN IF TempFeinwertung(k, 1) < TempFeinwertung(k+1, 1) THEN SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) ' SWAP Gesamtpunkte(k), Gesamtpunkte(k+1) END IF END IF NEXT NEXT ' Spieler nach Feinwertung 2 sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF TempFeinwertung(k, 1) = TempFeinwertung(k+1, 1) AND TempPunkte(k, 1) = TempPunkte(k+1, 1) THEN IF TempFeinwertung(k, 2) < TempFeinwertung(k+1, 2) THEN SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) ' SWAP Gesamtpunkte(k), Gesamtpunkte(k+1) END IF END IF NEXT NEXT END IF IF Paarungssystem = 9 THEN ' Spieler nach KO-Punkte sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF (TempPunkte(k, 0) < TempPunkte(k+1, 0)) THEN SWAP TempPunkte(k, 0), TempPunkte(k+1, 0) SWAP TempPunkte(k, 1), TempPunkte(k+1, 1) SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) END IF NEXT NEXT ' Spieler nach Punkte sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF TempPunkte(k, 0) = TempPunkte(k+1, 0) THEN IF TempPunkte(k, 1) < TempPunkte(k+1, 1) THEN SWAP TempPunkte(k, 1), TempPunkte(k+1, 1) SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) END IF END IF NEXT NEXT ' Spieler nach Feinwertung 1 sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF TempPunkte(k, 0) = TempPunkte(k+1, 0) AND TempPunkte(k, 1) = TempPunkte(k+1, 1) THEN IF TempFeinwertung(k, 1) < TempFeinwertung(k+1, 1) THEN SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) END IF END IF NEXT NEXT ' Spieler nach Feinwertung 2 sortieren FOR j = TAZ TO 1 STEP -1 FOR k = 1 TO j-1 IF TempFeinwertung(k, 1) = TempFeinwertung(k+1, 1) AND TempPunkte(k, 0) = TempPunkte(k+1, 0) AND TempPunkte(k, 1) = TempPunkte(k+1, 1) THEN IF TempFeinwertung(k, 2) < TempFeinwertung(k+1, 2) THEN SWAP TempFeinwertung(k, 2), TempFeinwertung(k+1, 2) SWAP TempFeinwertung(k, 1), TempFeinwertung(k+1, 1) SWAP TempPunkte(k, 2), TempPunkte(k+1, 2) SWAP TempPunkte(k, 3), TempPunkte(k+1, 3) SWAP TempPunkte(k, 4), TempPunkte(k+1, 4) SWAP Temp(k, 1), Temp(k+1, 1) SWAP Temp(k, 2), Temp(k+1, 2) SWAP Temp(k, 3), Temp(k+1, 3) SWAP Temp(k, 4), Temp(k+1, 4) SWAP Temp(k, 5), Temp(k+1, 5) SWAP Temp(k, 9), Temp(k+1, 9) SWAP Temp(k, 10), Temp(k+1, 10) SWAP Temp(k, 11), Temp(k+1, 11) SWAP Temp(k, 13), Temp(k+1, 13) SWAP Temp(k, 14), Temp(k+1, 14) END IF END IF NEXT NEXT END IF IF Seite > 1 THEN ' Platzierung errechnen FOR j = 1 TO TAZ Rang(VAL(Temp(j, 10))) = j NEXT END IF IF l = 0 OR l = -1 THEN EXIT SUB ' Bildschirm löschen SCREENLOCK FOR j = 0 TO 70 FONT " ", j+9, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT " ", j+9, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT /' Tabelle Anzeigen IF TAZ > 70 THEN FOR j = 0 TO 70 IF Platz+j > TAZ THEN EXIT FOR FONT LTRIM(STR(Platz+j)), 9+j, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(Platz+j, 1), 9+j, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(Platz+j, 2) <> "0" THEN FONT Temp(Platz+j, 2), 9+j, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(Platz+j, 3) <> "0" THEN FONT Temp(Platz+j, 3), 9+j, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(Platz+j, 4), 9+j, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF InStr(STR(TempPunkte(Platz+j, 1)), ".") THEN FONT LTRIM(STR(TempPunkte(Platz+j, 1))), 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempPunkte(Platz+j, 1))) & ".0", 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Feinwertungssystem(1) = 2 THEN IF Feinwertungssystem(1) > 1 THEN IF InStr(STR(TempFeinwertung(j, 1)), ".") THEN IF LEN(STR(TempFeinwertung(j, 1))) - InStr(STR(TempFeinwertung(j, 1)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))) + "0", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF LEN(STR(TempFeinwertung(j, 1))) - InStr(STR(TempFeinwertung(j, 1)), ".") = 2 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 1))) & ".00", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF IF Feinwertungssystem(2) = 2 THEN IF Feinwertungssystem(2) > 1 THEN IF InStr(STR(TempFeinwertung(j, 2)), ".") THEN IF LEN(STR(TempFeinwertung(j, 2))) - InStr(STR(TempFeinwertung(j, 2)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))) + "0", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF LEN(STR(TempFeinwertung(j, 2))) - InStr(STR(TempFeinwertung(j, 2)), ".") = 2 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 2))) & ".00", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF IF Feinwertungssystem(1) <> 2 THEN IF Feinwertungssystem(1) > 1 THEN IF InStr(STR(TempFeinwertung(j, 1)), ".") THEN IF LEN(STR(TempFeinwertung(j, 1))) - InStr(STR(TempFeinwertung(j, 1)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 1))) & ".0", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF IF Feinwertungssystem(2) <> 2 THEN IF Feinwertungssystem(2) > 1 THEN IF InStr(STR(TempFeinwertung(j, 2)), ".") THEN IF LEN(STR(TempFeinwertung(j, 2))) - InStr(STR(TempFeinwertung(j, 2)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 2))) & ".0", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF NEXT ELSE FOR j = 1 TO TAZ FONT LTRIM(STR(j)), 9+j, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(j, 1), 9+j, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(j, 2) <> "0" THEN FONT Temp(j, 2), 9+j, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(j, 3) <> "0" THEN FONT Temp(j, 3), 9+j, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(j, 4), 9+j, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF InStr(STR(TempPunkte(Platz+j, 1)), ".") THEN FONT LTRIM(STR(TempPunkte(Platz+j, 1))), 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempPunkte(Platz+j, 1))) & ".0", 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Feinwertungssystem(1) = 2 THEN IF Feinwertungssystem(1) > 1 THEN IF InStr(STR(TempFeinwertung(j, 1)), ".") THEN IF LEN(STR(TempFeinwertung(j, 1))) - InStr(STR(TempFeinwertung(j, 1)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))) + "0", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF LEN(STR(TempFeinwertung(j, 1))) - InStr(STR(TempFeinwertung(j, 1)), ".") = 2 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 1))) & ".00", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF IF Feinwertungssystem(2) = 2 THEN IF Feinwertungssystem(2) > 1 THEN IF InStr(STR(TempFeinwertung(j, 2)), ".") THEN IF LEN(STR(TempFeinwertung(j, 2))) - InStr(STR(TempFeinwertung(j, 2)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))) + "0", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF LEN(STR(TempFeinwertung(j, 2))) - InStr(STR(TempFeinwertung(j, 2)), ".") = 2 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 2))) & ".00", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF IF Feinwertungssystem(1) <> 2 THEN IF Feinwertungssystem(1) > 1 THEN IF InStr(STR(TempFeinwertung(j, 1)), ".") THEN IF LEN(STR(TempFeinwertung(j, 1))) - InStr(STR(TempFeinwertung(j, 1)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 1))) & ".0", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF IF Feinwertungssystem(2) <> 2 THEN IF Feinwertungssystem(2) > 1 THEN IF InStr(STR(TempFeinwertung(j, 2)), ".") THEN IF LEN(STR(TempFeinwertung(j, 2))) - InStr(STR(TempFeinwertung(j, 2)), ".") = 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ELSE FONT LTRIM(STR(TempFeinwertung(j, 2))) & ".0", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF END IF END IF NEXT END IF '/ ' Tabelle Anzeigen IF Paarungssystem <> 9 THEN IF TAZ > 70 THEN FOR j = 0 TO 70 IF Platz+j > TAZ THEN EXIT FOR FONT LTRIM(STR(Platz+j)), 9+j, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(Platz+j, 1), 9+j, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(Platz+j, 2) <> "0" THEN FONT Temp(Platz+j, 2), 9+j, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(Platz+j, 3) <> "0" THEN FONT Temp(Platz+j, 3), 9+j, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(Platz+j, 4), 9+j, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FONT Temp(Platz+j, 14), 9+j, 15, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT LTRIM(STR(TempPunkte(Platz+j, 1))), 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) <> -1 AND Feinwertungssystem(1) <> 10 AND Feinwertungssystem(1) <> 1 THEN FONT LTRIM(STR(TempFeinwertung(Platz+j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) <> -1 AND Feinwertungssystem(2) <> 10 AND Feinwertungssystem(2) <> 1 THEN FONT LTRIM(STR(TempFeinwertung(Platz+j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = 10 THEN IF TempFeinwertung(Platz+j, 1) <> 0 THEN FONT LTRIM(STR(TempFeinwertung(Platz+j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF TempFeinwertung(Platz+j, 1) = 0 AND DirekterVergleich(Platz+j, Platz+j) = 2000 THEN FONT "---", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Feinwertungssystem(2) = 10 THEN IF TempFeinwertung(Platz+j, 2) <> 0 THEN FONT LTRIM(STR(TempFeinwertung(Platz+j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF TempFeinwertung(Platz+j, 2) = 0 AND Temp(Platz+j, 13) = "2000" THEN FONT "---", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT ELSE FOR j = 1 TO TAZ FONT LTRIM(STR(j)), 9+j, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(j, 1), 9+j, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(j, 2) <> "0" THEN FONT Temp(j, 2), 9+j, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(j, 3) <> "0" THEN FONT Temp(j, 3), 9+j, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FONT Temp(j, 14), 9+j, 15, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(j, 4), 9+j, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT LTRIM(STR(TempPunkte(j, 1))), 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) <> -1 AND Feinwertungssystem(1) <> 10 AND Feinwertungssystem(1) <> 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) <> -1 AND Feinwertungssystem(2) <> 10 AND Feinwertungssystem(2) <> 1 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) = 10 THEN IF TempFeinwertung(j, 1) <> 0 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF TempFeinwertung(j, 1) = 0 AND Temp(j,11) = "2000" THEN FONT "---", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF TempFeinwertung(j, 1) = 0 AND Temp(j,11) = "0" THEN FONT "0", 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF IF Feinwertungssystem(2) = 10 THEN IF TempFeinwertung(j, 2) <> 0 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF TempFeinwertung(j, 2) = 0 AND Temp(j,13) = "2000" THEN FONT "---", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF TempFeinwertung(j, 2) = 0 AND Temp(j,13) = "0" THEN FONT "0", 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END IF NEXT END IF END IF ' Tabelle im KO-System anzeigen IF Paarungssystem = 9 THEN IF TAZ > 70 THEN FOR j = 0 TO 70 IF Platz+j > TAZ THEN EXIT FOR FONT LTRIM(STR(Platz+j)), 9+j, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(Platz+j, 1), 9+j, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(Platz+j, 2) <> "0" THEN FONT Temp(Platz+j, 2), 9+j, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(Platz+j, 3) <> "0" THEN FONT Temp(Platz+j, 3), 9+j, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FONT Temp(Platz+j, 14), 9+j, 15, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(Platz+j, 4), 9+j, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT LTRIM(STR(TempPunkte(Platz+j, 0))), 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) <> -1 THEN FONT LTRIM(STR(TempFeinwertung(Platz+j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) <> -1 THEN FONT LTRIM(STR(TempFeinwertung(Platz+j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT ELSE FOR j = 1 TO TAZ FONT LTRIM(STR(j)), 9+j, 2, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(j, 1), 9+j, 8, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 ' FONT Temp(j, 14), 9+j, 15, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(j, 2) <> "0" THEN FONT Temp(j, 2), 9+j, 45, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Temp(j, 3) <> "0" THEN FONT Temp(j, 3), 9+j, 51, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT Temp(j, 4), 9+j, 57, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 FONT LTRIM(STR(TempPunkte(j, 0))), 9+j, 64, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(1) <> -1 THEN FONT LTRIM(STR(TempFeinwertung(j, 1))), 9+j, 77, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF Feinwertungssystem(2) <> -1 THEN FONT LTRIM(STR(TempFeinwertung(j, 2))), 9+j, 91, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 NEXT END IF END IF SCREENUNLOCK END SUB SUB HILFE DIM AS INTEGER X = 27 FELD 202, 67, 888, 627, Hintergrundfarbe ' Paarungen FONT Sprachausgaben(2) + " " + local_version, 10, X+18, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(34) + " " + local_version + ": " + Sprachausgaben(35), 14, X, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 k = 36 FOR j = 18 TO 38 STEP 2 IF k <> 36 THEN FONT Sprachausgaben(k), j, X, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF k = 36 THEN FONT Sprachausgaben(k), j, X, Farbe(1), Farbe(2), Farbe(3), 0, 0 k += 1 NEXT k = 47 FOR j = 42 TO 68 STEP 2 IF k <> 47 THEN FONT Sprachausgaben(k), j, X, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF k = 47 THEN FONT Sprachausgaben(k), j, X, Farbe(1), Farbe(2), Farbe(3), 0, 0 k += 1 NEXT k = 61 FOR j = 72 TO 74 STEP 2 IF k <> 46 THEN FONT Sprachausgaben(k), j, X, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 IF k = 46 THEN FONT Sprachausgaben(k), j, X, Farbe(1), Farbe(2), Farbe(3), 0, 0 k += 1 NEXT FONT Sprachausgaben(63), 78, X, FarbePaarung(1), FarbePaarung(2), FarbePaarung(3), 0, 0 END SUB SUB RUECKSETZEN ' i = 1 v = 1 TAZ = 0 ' Teilnehmeranzahl ' Seite = 1 ' Aktuelle aufgerufene Seite ' Bretter = 8 ' Anzahl der Bretter bei Mannschaftsturnieren Runde = 1 ' Aktuelle Runde Brett = 1 ' aufgerufenes Brett Platz = 1 ' aufgerufener Platz MaxAnzahl = 2000 ' maximale Anzahl der Teilnehmer Paarungssystem = 11 ' Schweizersystem aktiv = 11 Feinwertungssystem(1) = 1 ' keine Zweitwertung Feinwertungssystem(2) = 1 ' keine Drittwertung '/ /' ' ********************************************************************************************************************************************************* ' Paarungen löschen FOR j = 1 TO RAZ FOR k = 1 TO v paarungen(k, 1, j) = 0 paarungen(k, 2, j) = 0 NEXT NEXT ' ********************************************************************************************************************************************************* '/ ' Punkte initialisieren - auf -0 setzen FOR j = 1 TO 80 FOR laufvariable = 0 TO MaxAnzahl Punkte(laufvariable, j) = 2000 genommen(laufvariable, j) = 0 ' IF j < 30 THEN genommen(laufvariable, j) = 0 NEXT NEXT ' kampflose Partien in gespielte Partien umwandeln FOR j = 0 TO 29 FOR k = 1 TO ppr(j) kampflose(k, j) = 0 NEXT NEXT ' alle Einträge sind freigegeben FOR laufvariable = 1 TO MaxAnzahl Eintrag(laufvariable) = 0 NEXT ' Daten auf 0 setzen IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN FOR j = 1 TO MaxAnzahl IF j < 501 THEN Team(j) = "" Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" Startgebuehr(j) = 0 NEXT END IF ' Daten auf 0 setzen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FOR j = 1 TO 25000 IF j < 501 THEN Team(j) = "" Startgebuehr(j) = 0 Spieler(j) = "" ELO(j) = 0 DWZ(j) = 0 Titel(j) = "" Verein(j) = "" Geburt(j) = "" FIDEID(j) = "" Geschlecht(j) = "" Nation(j) = "" PKZ(j) = "" Vnummer(j) = "" Mnummer(j) = "" kFaktor(j) = "" NEXT END IF ' Daten auf 0 setzen FOR j = 0 TO 36 IF j > 0 THEN Eingabe(j) = "" ausgelosteRunde(j) = 0 ppr(j) = 0 ' Partien pro Runde NEXT ' Paarungen löschen/initialisieren REDIM AS INTEGER paarungen(0 TO 1, 0 TO 2, 0 TO 1) ' ' IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN REDIM AS INTEGER Teamspieler(0 TO 500, 0 TO 110, 0 TO 29) ' Zuweisung der Mannschaftsspieler für jede Runde löschen/initialisieren REDIM AS STRING EinzelErgebnisse(0 TO 310, 0 TO 50, 0 TO 29) ' löschen/initialisieren der Einzelergebnisse ' ENDIF '/ Spieler(0) = "spielfrei" Team(0) = "spielfrei" ' Datum und Uhrzeit löschen/initialisieren ' REDIM AS STRING Datum(0 TO 1), Uhrzeit(0 TO 1) END SUB SUB INI ' filename = "Stop.ini" DIM AS INTEGER Setup ' , SetupFarbe IF FILEEXISTS(EXEPATH + "\Stop.ini") THEN DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR INPUT AS #ff INPUT #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port ' , Modus ' INPUT #ff, PfadELO, PFADNWZ CLOSE #ff MENUFARBE '/ ' 0 = &h000000 - Schwarz ' 1 = &h000080 - Dunkelblau ' 2 = &h008000 - Dunkelgrün ' 3 = &h008080 - Dunkelzyan ' 4 = &h800000 - Dunkelrot ' 5 = &h800080 - Dunkelviolett ' 6 = &h808000 - Dunkelbraun - Oliv ' 7 = &hb3b3b3 - Hellgrau ' 8 = &h808080 - Grau ' 9 = &h0000FF - Hellblau ' 10 = &h00FF00 - Hellgrün ' 11 = &h00FFFF - Hellzyan ' 12 = &hFF0000 - Hellrot ' 13 = &hFF00FF - Hellviolett ' 14 = &hFFFF00 - Gelb ' 15 = &hFFFFFF - Weiß /' ' 49775e ' 49779c ' &h1111AA Hintergrundfarbe = &h000000 FarbeSpieler(1) = &hFFFFFF FarbeSpieler(2) = &h55FF55 FarbeSpieler(3) = &h00AA00 ' , &hFFFFFF, &hFF55FF, &hAA00AA, Farbe(1) = &hFFFFFF Farbe(2) = &hFF55FF Farbe(3) = &hAA00AA '/ IF Setup = 1 THEN Sprache = 1 IF Setup = 2 THEN Sprache = 2 IF Setup = 3 THEN Sprache = 3 IF Setup = 4 THEN Sprache = 4 IF Setup = 5 THEN Sprache = 5 IF Setup = 6 THEN Sprache = 6 IF Setup = 7 THEN Sprache = 7 IF Setup = 8 THEN Sprache = 8 IF Setup = 9 THEN Sprache = 9 IF Setup = 10 THEN Sprache = 10 IF Sprache < 1 OR Sprache > 10 THEN Sprache = 2 IF modus = 1 THEN MessageBox(0, "Program runs in WMD-Mode!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) ELSE ' Info!!! MessageBox(0, "Program runs in FIDE-Mode!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) SCREENRES 512, 580, 32,, &h04 COLOR &hFFFFFF, &h000000 '------ Icon in der Titelleiste ------ SCREENCONTROL 2, whandle '2 = fb.GET_WINDOW_HANDLE SendMessage (CAST (HWND, whandle), WM_SETICON, ICON_SMALL, _ CAST( INTEGER, LoadImage ( GetModuleHandle (NULL), _ "MY_ICON", IMAGE_ICON, 0, 0, LR_COPYFROMRESOURCE ) ) ) WINDOWTITLE "Schachturnierorganisationsprogramm" ' WINDOWTITLE Sprachausgaben(1) SLEEP 1 INSTALL END IF END SUB SUB MENUFARBE IF SetupFarbe < 1 OR SetupFarbe > 7 THEN Hintergrundfarbe = &h000000 FarbeSpieler(1) = &h55FF55 FarbeSpieler(2) = &h55EE55 FarbeSpieler(3) = &h55DD55 Farbe(1) = &hFF99FF Farbe(2) = &hFF77FF Farbe(3) = &hFF55FF FarbePaarung(1) = &hFFFFFF FarbePaarung(2) = &hE1E1E1 FarbePaarung(3) = &hC8C8C8 END IF IF SetupFarbe = 1 THEN Hintergrundfarbe = &h1111AA FarbeSpieler(1) = &hFFFFFF FarbeSpieler(2) = &h55FF55 FarbeSpieler(3) = &h00AA00 Farbe(1) = &hFF99FF Farbe(2) = &hFF77FF Farbe(3) = &hFF55FF FarbePaarung(1) = &h888888 FarbePaarung(2) = &h777777 FarbePaarung(3) = &h666666 END IF IF SetupFarbe = 2 THEN Hintergrundfarbe = &h49775E FarbeSpieler(1) = &h55FF55 FarbeSpieler(2) = &h55EE55 FarbeSpieler(3) = &h55DD55 Farbe(1) = &h77FFFF Farbe(2) = &h77EEFF Farbe(3) = &h77DDFF FarbePaarung(1) = &hFFFFFF FarbePaarung(2) = &hE1E1E1 FarbePaarung(3) = &hC8C8C8 END IF IF SetupFarbe = 3 THEN Hintergrundfarbe = &h49775e FarbeSpieler(1) = &h55FF55 FarbeSpieler(2) = &h55EE55 FarbeSpieler(3) = &h55DD55 Farbe(1) = &hFF99FF Farbe(2) = &hFF77FF Farbe(3) = &hFF55FF FarbePaarung(1) = &h00FF00 FarbePaarung(2) = &h00EE00 FarbePaarung(3) = &h00DD00 END IF IF SetupFarbe = 4 THEN Hintergrundfarbe = &h49779c FarbeSpieler(1) = &h55FF55 FarbeSpieler(2) = &h55EE55 FarbeSpieler(3) = &h55DD55 Farbe(1) = &hFF99FF Farbe(2) = &hFF77FF Farbe(3) = &hFF55FF FarbePaarung(1) = &hFFFFFF FarbePaarung(2) = &hFFFFAA FarbePaarung(3) = &hFFDDAA END IF IF SetupFarbe = 5 THEN Hintergrundfarbe = &h49779c FarbeSpieler(1) = &h55FF55 FarbeSpieler(2) = &h55EE55 FarbeSpieler(3) = &h55DD55 Farbe(1) = &hFF99FF Farbe(2) = &hFF77FF Farbe(3) = &hFF55FF FarbePaarung(1) = &hb3b4b3 FarbePaarung(2) = &hb3b6b3 FarbePaarung(3) = &hb3b8b3 END IF IF SetupFarbe = 6 THEN Hintergrundfarbe = &hC8C8C8 FarbeSpieler(1) = &h0033FF FarbeSpieler(2) = &h0000FF FarbeSpieler(3) = &h000080 Farbe(1) = &h555555 Farbe(2) = &h666666 Farbe(3) = &h777777 FarbePaarung(1) = &h666666 FarbePaarung(2) = &h333333 FarbePaarung(3) = &h000000 END IF IF SetupFarbe = 7 THEN Hintergrundfarbe = &h49775e FarbeSpieler(1) = &h55FF55 FarbeSpieler(2) = &h55EE55 FarbeSpieler(3) = &h55DD55 Farbe(1) = &hFF99FF Farbe(2) = &hFF77FF Farbe(3) = &hFF55FF FarbePaarung(1) = &hFFFFFF FarbePaarung(2) = &hFFFFAA FarbePaarung(3) = &hFFDDAA END IF /' sGui Farben definieren DIM AS uinteger messageTextColor DIM AS uinteger messageColor customColors = true backgroundColor = Hintergrundfarbe textColor = Farbe(1) gadgetColor = backgroundColor menuColor = textColor gadgetGlowColor = backgroundColor gadgetTextColor = textColor cursorColor = textColor menuTextColor = backgroundColor menuHiliteColor = backgroundColor menuGhostedColor = ShiftRGB(MenuColor, -contrast / 2) messageTextColor = textColor messageColor = gadgetColor InitGFX '/ END SUB SUB INSTALL DIM AS INTEGER BDRAUF, Setup DIM AS ANY PTR Deutschpuffer Deutschpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Deutsch.ST0P", Deutschpuffer) DIM AS ANY PTR Englischpuffer Englischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Englisch.ST0P", Englischpuffer) DIM AS ANY PTR Franzoesischpuffer Franzoesischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Franzoesisch.ST0P", Franzoesischpuffer) DIM AS ANY PTR Spanischpuffer Spanischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Spanisch.ST0P", Spanischpuffer) DIM AS ANY PTR Bayrischpuffer Bayrischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Bayrisch.ST0P", Bayrischpuffer) DIM AS ANY PTR Italienischpuffer Italienischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Italienisch.ST0P", Italienischpuffer) DIM AS ANY PTR Portugiesischpuffer Portugiesischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Portugiesisch.ST0P", Portugiesischpuffer) DIM AS ANY PTR Finnischpuffer Finnischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Finnisch.ST0P", Finnischpuffer) DIM AS ANY PTR Daenischpuffer Daenischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Daenisch.ST0P", Daenischpuffer) DIM AS ANY PTR Schwedischpuffer Schwedischpuffer = IMAGECREATE(48,48) BLOAD (EXEPATH & "\Schwedisch.ST0P", Schwedischpuffer) DIM AS ANY PTR RechtsPfeilpuffer RechtsPfeilpuffer = IMAGECREATE(42,34) BLOAD (EXEPATH & "\Pfeil_rechts.ST0P", RechtsPfeilpuffer) DIM AS ANY PTR LinksPfeilpuffer LinksPfeilpuffer = IMAGECREATE(42,34) BLOAD (EXEPATH & "\Pfeil_links.ST0P", LinksPfeilpuffer) DIM AS ANY PTR Logopuffer Logopuffer = IMAGECREATE(500,105) BLOAD (EXEPATH & "\Menu.ST0P", Logopuffer) PUT (100,100), Deutschpuffer, PSET PUT (100,200), Englischpuffer, PSET PUT (100,300), Franzoesischpuffer, PSET PUT (100,400), Spanischpuffer, PSET PUT (100,500), Bayrischpuffer, PSET PUT (5,540), LinksPfeilpuffer, TRANS PUT (465,540), RechtsPfeilpuffer, TRANS PUT (6,3), Logopuffer, PSET IMAGEDESTROY(LinksPfeilpuffer) IMAGEDESTROY(RechtsPfeilpuffer) IMAGEDESTROY(Logopuffer) j = 1 DO SCREENLOCK FONT STR(j) + "/2", 72, 30, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 IF j = 1 THEN FONT "Bitte wählen sie eine Sprache!", 16, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' &hAAFFFF, &h55FFFF, &h00EEFF,0 , 0 ' (Deutsch) FONT "Please select the language!", 29, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Englisch) FONT "Choisissez une langue!", 41, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Französisch) ' FONT "S'il vous plaît, ils choisissent une langue", 41, 20, &hAAFFFF, &h55FFFF, &h00EEFF '(Französisch) FONT "Por favor, ellos eligen una lengua!", 53, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Spanisch) FONT "Suach da biddsche an Dialekt as!", 66, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Bayrisch) END IF IF j = 2 THEN FONT "Per favore scegli una lingua!", 16, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Italienisch) FONT "Escolha um idioma!", 29, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Portugiesisch) FONT "Ole hyvä ja valitse kieli!", 41, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Finnisch) FONT "Vælg et sprog!", 53, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Dänisch) FONT "Välj ett språk!", 66, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Schwedisch) END IF SCREENUNLOCK GETMOUSE mausx, mausy,, mausk SELECT CASE mausk CASE 0 SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 104 TO 142 BDRAUF = FALSE ' Deutsch/Italienisch LINE (98, 104)-(149, 142), &hFFFFFF, B LINE (98, 204)-(149, 242), &h000000, B LINE (98, 304)-(149, 342), &h000000, B LINE (98, 404)-(149, 442), &h000000, B LINE (98, 504)-(149, 543), &h000000, B END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 204 TO 242 BDRAUF = FALSE ' Englisch/Portugiesisch LINE (98, 104)-(149, 142), &h000000, B LINE (98, 204)-(149, 242), &hFFFFFF, B LINE (98, 304)-(149, 342), &h000000, B LINE (98, 404)-(149, 442), &h000000, B LINE (98, 504)-(149, 543), &h000000, B END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 304 TO 342 BDRAUF = FALSE ' Französisch/Finnisch LINE (98, 104)-(149, 142), &h000000, B LINE (98, 204)-(149, 242), &h000000, B LINE (98, 304)-(149, 342), &hFFFFFF, B LINE (98, 404)-(149, 442), &h000000, B LINE (98, 504)-(149, 543), &h000000, B END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 404 TO 442 BDRAUF = FALSE ' Spanisch/Dänisch LINE (98, 104)-(149, 142), &h000000, B LINE (98, 204)-(149, 242), &h000000, B LINE (98, 304)-(149, 342), &h000000, B LINE (98, 404)-(149, 442), &hFFFFFF, B LINE (98, 504)-(149, 543), &h000000, B END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 504 TO 542 BDRAUF = FALSE ' Bayrisch/Schwedisch LINE (98, 104)-(149, 142), &h000000, B LINE (98, 204)-(149, 242), &h000000, B LINE (98, 304)-(149, 342), &h000000, B LINE (98, 404)-(149, 442), &h000000, B LINE (98, 504)-(149, 543), &hFFFFFF, B END SELECT END SELECT SELECT CASE mausx CASE ELSE SELECT CASE mausy CASE ELSE IF BDRAUF THEN LINE (98, 104)-(149, 142), &h000000, B LINE (98, 204)-(149, 242), &h000000, B LINE (98, 304)-(149, 342), &h000000, B LINE (98, 404)-(149, 442), &h000000, B LINE (98, 504)-(149, 543), &h000000, B END IF BDRAUF = TRUE END SELECT END SELECT CASE 1 ' Pfeil nach links SELECT CASE mausx CASE 5 TO 47 SELECT CASE mausy CASE 540 TO 574 IF j > 1 THEN j-= 1 FONT " ", 16, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Deutsch) FONT " ", 29, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Englisch) FONT " ", 41, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Französisch) FONT " ", 53, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Spanisch) FONT " ", 66, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Bayrisch) PUT (100,100), Deutschpuffer, PSET PUT (100,200), Englischpuffer, PSET PUT (100,300), Franzoesischpuffer, PSET PUT (100,400), Spanischpuffer, PSET PUT (100,500), Bayrischpuffer, PSET END IF END SELECT END SELECT ' Pfeil nach rechts SELECT CASE mausx CASE 465 TO 507 SELECT CASE mausy CASE 540 TO 574 IF j < 2 THEN j+= 1 FONT " ", 16, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Deutsch) FONT " ", 29, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Englisch) FONT " ", 41, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Französisch) FONT " ", 53, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Spanisch) FONT " ", 66, 25, &h77FFFF, &h55FFFF, &h33FFFF, 0, 0 ' (Bayrisch) PUT (100,100), Italienischpuffer, TRANS PUT (100,200), Portugiesischpuffer, TRANS PUT (100,300), Finnischpuffer, TRANS PUT (100,400), Daenischpuffer, TRANS PUT (100,500), Schwedischpuffer, TRANS END IF END SELECT END SELECT IF j = 1 THEN SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 100 TO 148 ' Deutsch Setup = 1 Sprache = 1 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 200 TO 248 ' Englisch Setup = 2 Sprache = 2 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 300 TO 348 ' Französisch Setup = 3 Sprache = 3 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff MessageBox(0, "Please translate the language file (englisch.txt), send it to the author and save it under französisch.txt!!! Some words are translatet!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 400 TO 448 ' Spanisch Setup = 4 Sprache = 4 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff MessageBox(0, "Please translate the language file (englisch.txt), send it to the author and save it under spanisch.txt!!! Some words are translatet!", "Programme d'organisation de tournoi d'échecs", MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 500 TO 548 ' Bayrisch Setup = 5 Sprache = 5 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff EXIT DO END SELECT END SELECT END IF IF j = 2 THEN SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 100 TO 148 ' Italienisch Setup = 6 Sprache = 6 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff MessageBox(0, "Please translate the language file (englisch.txt), send it to the author and save it under italienisch.txt!!! Some words are translatet!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 200 TO 248 ' Portugiesisch Setup = 7 Sprache = 7 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff MessageBox(0, "Please translate the language file (englisch.txt), send it to the author and save it under portugiesisch.txt!!! Some words are translatet!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 300 TO 348 ' Finnisch Setup = 8 Sprache = 8 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff MessageBox(0, "Please translate the language file (englisch.txt), send it to the author and save it under finnisch.txt!!! Some words are translatet!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 400 TO 448 ' Dänisch Setup = 9 Sprache = 9 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff EXIT DO END SELECT END SELECT SELECT CASE mausx CASE 100 TO 148 SELECT CASE mausy CASE 500 TO 548 ' Schwedisch Setup = 10 Sprache = 10 DIM ff AS INTEGER = FREEFILE OPEN EXEPATH + "\Stop.ini" FOR OUTPUT AS #ff WRITE #ff, Sprache, SetupFarbe, Modus, PfadElo, PfadNwz, NUTZER, SERVER, Port CLOSE #ff MessageBox(0, "Please translate the language file (englisch.txt), send it to the author and save it under schwedisch.txt!!! Some words are translatet!", "Chesstournamentorganizationsprogram", MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT DO END SELECT END SELECT END IF END SELECT SLEEP 10 LOOP UNTIL INKEY <> "" IMAGEDESTROY(Deutschpuffer) IMAGEDESTROY(Englischpuffer) IMAGEDESTROY(Franzoesischpuffer) IMAGEDESTROY(Spanischpuffer) IMAGEDESTROY(Bayrischpuffer) IMAGEDESTROY(Italienischpuffer) IMAGEDESTROY(Portugiesischpuffer) IMAGEDESTROY(Finnischpuffer) IMAGEDESTROY(Daenischpuffer) IMAGEDESTROY(Schwedischpuffer) IF MULTIKEY(&h01) THEN END IF Setup = 0 THEN END INI END SUB SUB SPRACHELADEN DIM f AS INTEGER = FREEFILE IF Sprache = 1 THEN IF FILEEXISTS(EXEPATH + "\Deutsch.txt") THEN OPEN EXEPATH + "\Deutsch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 2 THEN IF FILEEXISTS(EXEPATH + "\Englisch.txt") THEN OPEN EXEPATH + "\Englisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 3 THEN IF FILEEXISTS(EXEPATH + "\Französisch.txt") THEN OPEN EXEPATH + "\Französisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 4 THEN IF FILEEXISTS(EXEPATH + "\Spanisch.txt") THEN OPEN EXEPATH + "\Spanisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 5 THEN IF FILEEXISTS(EXEPATH + "\Bayrisch.txt") THEN OPEN EXEPATH + "\Bayrisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 6 THEN IF FILEEXISTS(EXEPATH + "\Italienisch.txt") THEN OPEN EXEPATH + "\Italienisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 7 THEN IF FILEEXISTS(EXEPATH + "\Portugiesisch.txt") THEN OPEN EXEPATH + "\Portugiesisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 8 THEN IF FILEEXISTS(EXEPATH + "\Finnisch.txt") THEN OPEN EXEPATH + "\Finnisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 9 THEN IF FILEEXISTS(EXEPATH + "\Dänisch.txt") THEN OPEN EXEPATH + "\Dänisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF IF Sprache = 10 THEN IF FILEEXISTS(EXEPATH + "\Schwedisch.txt") THEN OPEN EXEPATH + "\Schwedisch.txt" FOR INPUT AS #f i = 1 DO UNTIL EOF(f) LINE INPUT #f, Sprachausgaben(i) i += 1 LOOP CLOSE #f END IF END IF ' Sonderzeichen umwandeln FOR i = 1 TO 267 IF i <> 1 AND i <> 3 AND i <> 4 AND i <> 6 AND i <> 27 AND i <> 29 AND i <> 31 AND i <> 32 AND i <> 33 AND i <> 65 AND i <> 68 AND i <> 106 AND i <> 107 AND i <> 116 AND i <> 119 _ AND i <> 120 AND i <> 127 AND i <> 128 AND i <> 136 AND i <> 144 AND i <> 148 AND i <> 146 AND i <> 155 AND i <> 175 AND i <> 176 AND i <> 177 AND i <> 181 AND i <> 182 _ AND i <> 183 AND i <> 184 AND i <> 185 AND i <> 186 AND i <> 187 AND i <> 188 AND i <> 189 AND i <> 190 AND i <> 191 AND i <> 192 AND i <> 193 AND i <> 194 AND i <> 195 _ AND i <> 196 AND i <> 197 AND i <> 198 AND i <> 199 AND i <> 200 AND i <> 201 AND i <> 202 AND i <> 203 AND i <> 204 AND i <> 205 AND i <> 206 AND i <> 207 AND i <> 208 _ AND i <> 209 AND i <> 210 AND i <> 211 AND i <> 212 AND i <> 213 AND i <> 214 AND i <> 215 AND i <> 216 AND i <> 217 AND i <> 218 AND i <> 219 AND i <> 220 AND i <> 221 _ AND i <> 222 AND i <> 223 AND i <> 228 AND i <> 229 AND i <> 256 AND i <> 257 AND i <> 258 AND i <> 259 THEN CharToOem Sprachausgaben(i), Sprachausgaben(i) NEXT '/ END SUB SUB FEINWERTUNG REDIM AS DOUBLE DirekterVergleich(0 TO ((2*TAZ)+2), 0 TO ((2*TAZ)+2)) ' DIM AS INTEGER Zaehler(0 TO 25000, 0 TO 7) ' Gesamtpunkte errechnen + Punktezähler auf 0 setzen FOR k = 0 TO TAZ FOR j = 1 TO RAZ IF k > 0 THEN Korrektur(k, j) = 0: KorrekturFore(k, j) = 0 IF j = 1 THEN Korrektur(k, 0) = 0: KorrekturFore(k, 0) = 0 IF k < TAZ THEN TempPunkte(k+1, 4) = 0 ' Halb-Punkt-Bye errechnen/definieren IF Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 THEN IF fehlendeSpieler(k,j) = 1 AND k > 0 THEN Punkte(k,j) = 0 IF fehlendeSpieler(k,j) = 2 AND k > 0 THEN Punkte(k,j) = 0.5 IF fehlendeSpieler(k,j) = 3 AND k > 0 THEN Punkte(k,j) = 1 IF fehlendeSpieler(k,j) = 0 AND j <= Runde AND k > 0 THEN TempPunkte(k, 4) += 1 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF fehlendeSpieler(k,j) = 1 AND k > 0 THEN Punkte(k,j) = 0 IF fehlendeSpieler(k,j) = 2 AND k > 0 THEN Punkte(k,j) = 1 IF fehlendeSpieler(k,j) = 3 AND k > 0 THEN Punkte(k,j) = 2 IF fehlendeSpieler(k,j) = 0 AND j <= Runde AND k > 0 THEN TempPunkte(k, 4) += 1 END IF NEXT Zaehler(k, 0) = 0 ' Zähler zur Korrektur der Feinwertung auf 0 setzen Zaehler(k, 1) = 0 Zaehler(k, 2) = 0 Zaehler(k, 3) = 0 Zaehler(k, 4) = 0 Zaehler(k, 6) = 0 ' Zaehler kampflose Partien auf 0 setzen NEXT ' Zähler für Direkten Vergleich auf 0 setzen IF Feinwertungssystem(1) = 10 OR Feinwertungssystem(2) = 10 THEN FOR j = 1 TO TAZ Temp(j, 11) = "2000" Temp(j, 13) = "2000" FOR k = 1 TO TAZ DirekterVergleich(j,k) = 2000 NEXT NEXT END IF ' Zähler der Spieler für Mannschaftsturniere auf 0 setzen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FOR r = 1 TO 25000 TempPunkte(r, 5) = 0 NEXT END IF ' kampflose(Brett, Runde) = 0 PunkteKorrektur(0) = 0 ' Feinwertungen auf 0 setzen FOR k = 1 TO TAZ Gesamtpunkte(k) = 0 Feinwertungen(k, -1) = 0 ' KO-Punkte Feinwertungen(k, 1) = 0 ' Sonnebornberger Feinwertungen(k, 7) = 0 ' Olympiade Feinwertungen(k, 2) = 0 ' Buchholz Feinwertungen(k, 3) = 0 ' Buchholzsumme Feinwertungen(k, 4) = 0 ' Schmuljan Koya(k) = 0 ' Feinwertungen(k, 5) = 0 ' Koya Feinwertungen(k, 6) = 0 ' Anzahl der Schwarzpartien Feinwertungen(k, 8) = 0 ' Brettpunkte Feinwertungen(k, 9) = 0 ' 3-Punkte-Wertung Feinwertungen(k, 10) = 0 ' Direkter Vergleich - Feinwertung 1 Feinwertungen(k, 11) = 0 ' Direkter Vergleich - Feinwertung 2 Feinwertungen(k, 12) = 0 ' Durchnittliche Elowertung der Gegner Feinwertungen(k, 13) = 0 ' Leistungsbewertung im Turnier Feinwertungen(k, 14) = 0 ' Durchschnttliche perfekte [Turnier] Performance der Gegner Feinwertungen(k, 17) = 0 ' Games one elected play Feinwertungen(k, 18) = 0 ' Durchschnittliche Buchholzwertung der Gegner Feinwertungen(k, 26) = 0 ' Anzahl der gewonnenen Schwarzpartien Feinwertungen(k, 27) = 0 ' Summenwertung / Progressive Score Feinwertungen(k, 28) = 0 ' Forebuchholz Feinwertungen(k, 54) = 0 ' Rating Feinwertungen(0, 3) = 0 ' Buchholzsumme für spielfrei löschen Rang(k) = 0 PunkteKorrektur(k) = 0 Gewinn(k) = 0 Remis(k) = 0 Verlust(k) = 0 Cut(k, 0) = 0 Cut(k, 1) = 2000 Cut(k, 2) = 2000 Zaehler(k, 5) = 0 ' Zähler wie oft ein Spieler spielt Zaehler(k, 7) = 0 ' Zähler wie oft ein Spieler spielt TempPunkte(k, 7) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) TempPunkte(k, 8) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) FOR j = 1 TO Runde IF Punkte(k,j) <> 2000 AND Punkte(k,j) <> 0 THEN Gesamtpunkte(k) += Punkte(k,j) IF fehlendeSpieler(k,j) = 0 THEN Feinwertungen(k, -1) = j Korrektur(k, j) = Gesamtpunkte(k) ' Anzahl der Runden zählen, die ein Spieler aussetzt IF fehlendeSpieler(k,j) = 1 THEN Zaehler(k, 0) += 1 IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 0) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 3) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 4) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 4) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 2) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 2) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) > 0 THEN Zaehler(k, 1) += 1 ' Zählen wie oft ein Spieler aussetzt NEXT NEXT ' Baku 2023 - Feinwertungen für Buchholz, Buchholzsumme und Sonneborn-Berger IF Tiebreakmode = 1 THEN ' Anzahl der regulär gespielten Partien errechnen FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN Korrektur(paarungen(j,1,k), 0) += 1 Korrektur(paarungen(j,2,k), 0) += 1 END IF IF kampflose(j, k) = 1 AND paarungen(j,2,k) <> 0 THEN ' IF Punkte(paarungen(j,1,k),k) = 1 AND Cut(paarungen(j,1,k),0) < 11 THEN Cut(paarungen(j,1,k),0) +=1 ' IF Punkte(paarungen(j,2,k),k) = 1 AND Cut(paarungen(j,2,k),0) < 11 THEN Cut(paarungen(j,2,k),0) +=1 IF Punkte(paarungen(j,1,k),k) = 0 THEN Zaehler(paarungen(j,1,k),6) +=1 ' Zaehler wie oft eine Partie kampflos war IF Punkte(paarungen(j,2,k),k) = 0 THEN Zaehler(paarungen(j,2,k),6) +=1 END IF ' Gesamtpunkte für Mannschaften errechnen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF kampflose(j, k) = 1 AND paarungen(j,2,k) = 0 THEN IF Gesamtpunkte(paarungen(j,1,k)) > 0 THEN Gesamtpunkte(paarungen(j,1,k)) -= 1 IF Gesamtpunkte(paarungen(j,2,k)) > 0 THEN Gesamtpunkte(paarungen(j,2,k)) -= 1 END IF END IF NEXT NEXT ' Buchholz + Sonneborn-Berger FOR k = 1 TO Runde FOR j = 1 TO ppr(k) ' Buchholz IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN Feinwertungen(paarungen(j,1,k),2) += Gesamtpunkte(paarungen(j,2,k)) Feinwertungen(paarungen(j,2,k),2) += Gesamtpunkte(paarungen(j,1,k)) IF Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 THEN IF Zaehler(paarungen(j,1,k),0) <> 0 AND fehlendeSpieler(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),2) += (Zaehler(paarungen(j,1,k),0) * 0.5) IF Zaehler(paarungen(j,2,k),0) <> 0 AND fehlendeSpieler(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),2) += (Zaehler(paarungen(j,2,k),0) * 0.5) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Zaehler(paarungen(j,1,k),0) <> 0 AND fehlendeSpieler(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),2) += (Zaehler(paarungen(j,1,k),0) * 1) IF Zaehler(paarungen(j,2,k),0) <> 0 AND fehlendeSpieler(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),2) += (Zaehler(paarungen(j,2,k),0) * 1) END IF END IF ' Sonneborn-Berger IF Modus = 0 THEN IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) + (Zaehler(paarungen(j,2,k),0) * 0.5)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) + (Zaehler(paarungen(j,1,k),0) * 0.5)) IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),1) += ((Gesamtpunkte(paarungen(j,2,k)) + (Zaehler(paarungen(j,2,k),0) * 0.5))/2) IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Feinwertungen(paarungen(j,2,k),1) += ((Gesamtpunkte(paarungen(j,1,k)) + (Zaehler(paarungen(j,1,k),0) * 0.5))/2) END IF IF kampflose(j, k) = 1 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += Gesamtpunkte(paarungen(j,1,k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += Gesamtpunkte(paarungen(j,2,k)) IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,1,k))/2) END IF END IF IF Paarungssystem < 3 THEN IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) + (Zaehler(paarungen(j,2,k),0) * 0.5)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) + (Zaehler(paarungen(j,1,k),0) * 0.5)) IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),1) += ((Gesamtpunkte(paarungen(j,2,k)) + (Zaehler(paarungen(j,2,k),0) * 0.5))/2) IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Feinwertungen(paarungen(j,2,k),1) += ((Gesamtpunkte(paarungen(j,1,k)) + (Zaehler(paarungen(j,1,k),0) * 0.5))/2) END IF IF kampflose(j, k) = 1 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += Gesamtpunkte(paarungen(j,1,k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += Gesamtpunkte(paarungen(j,2,k)) IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,1,k))/2) END IF END IF /' Testzeilen wegen Sonneborn-Berger Extended LOCATE 1,5: PRINT (Punkte(paarungen(7,1,1),1) * Punkte(paarungen(7,2,1),1)) LOCATE 3,5: PRINT (Punkte(paarungen(7,2,1),1) * Punkte(paarungen(7,1,1),1)) LOCATE 5,5: PRINT (Gesamtpunkte(paarungen(7,2,1)) * Punkte(paarungen(7,1,1),1)) LOCATE 7,5: PRINT (Gesamtpunkte(paarungen(7,1,1)) * Punkte(paarungen(7,2,1),1)) LOCATE 9,5: PRINT Punkte(paarungen(7,1,1),1) LOCATE 11,5: PRINT Punkte(paarungen(7,2,1),1) LOCATE 30,5: PRINT Mannschaftspunkte(Paarungen(1,1,7),7); " - "; Mannschaftspunkte(Paarungen(1,2,7),7); " - "; Punkte(paarungen(1,1,7),7) LOCATE 32,5: PRINT Mannschaftspunkte(Paarungen(2,1,7),7); " - "; Mannschaftspunkte(Paarungen(2,2,7),7); " - "; Punkte(paarungen(2,1,7),7) LOCATE 34,5: PRINT Mannschaftspunkte(Paarungen(3,1,7),7); " - "; Mannschaftspunkte(Paarungen(3,2,7),7); " - "; Punkte(paarungen(3,1,7),7) LOCATE 36,5: PRINT Mannschaftspunkte(Paarungen(4,1,7),7); " - "; Mannschaftspunkte(Paarungen(4,2,7),7); " - "; Punkte(paarungen(4,1,7),7) LOCATE 38,5: PRINT Mannschaftspunkte(Paarungen(5,1,7),7); " - "; Mannschaftspunkte(Paarungen(5,2,7),7); " - "; Punkte(paarungen(5,1,7),7) LOCATE 40,5: PRINT Mannschaftspunkte(Paarungen(6,1,7),7); " - "; Mannschaftspunkte(Paarungen(6,2,7),7); " - "; Punkte(paarungen(6,1,7),7) LOCATE 42,5: PRINT Mannschaftspunkte(Paarungen(7,1,7),7); " - "; Mannschaftspunkte(Paarungen(7,2,7),7); " - "; Punkte(paarungen(7,1,7),7) LOCATE 1,30: PRINT (Gesamtpunkte(paarungen(7,1,1)) * Mannschaftspunkte(Paarungen(7,2,1),1)) LOCATE 3,30: PRINT (Gesamtpunkte(paarungen(7,2,1)) * Mannschaftspunkte(Paarungen(7,1,1),1)) '/ '/ ' EMMSB : Summe der Mannschaftspunkte der Gegner * Mannschaftspunkte erreicht. ' EMGSB : Summe der Mannschaftspunkte der Gegner * Spielepunkte erreicht. ' EGMSB : Summe der Spielpunkte der Gegner * Mannschaftspunkte erreicht. ' EGGSB : Summe der Spielpunkte der Gegner * Spielepunkte erreicht. ' Sonneborn-Berger für Mannschaften IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF paarungen(j,2,k) <> 0 THEN IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN IF fehlendeSpieler(paarungen(j,2,k),runde) = 0 THEN /' ESB - Matchpoint vs Matchpoint IF extended = 1 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),1) * Punkte(paarungen(j,1,k),1)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),1) * Punkte(paarungen(j,1,k),1)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),1) * Punkte(paarungen(j,1,k),1)) END IF '/ ' EinzelErgebnisse(j, s, k) ' EinzelErgebnisse(Brett, s, Runde) /' ESB - Matchpoint vs Matchpoint (MM) IF extended = 1 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),1)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),1)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),1)) END IF '/ /' ESB - Matchpoint vs Matchpoint (MM) IF extended = 1 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),k)) END IF '/ ' ESB - Matchpoint vs Gamepoint (MG) IF extended = 2 OR extended = 0 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) END IF /' ESB - Gamepoint vs Matchpoint (GM) IF extended = 3 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),k) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),k) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),k) * Mannschaftspunkte(Paarungen(j,1,k),k)) END IF '/ /' ESB - Gamepoint vs Gamepoint (GG) IF extended = 4 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) END IF '/ ELSE ' IF extended = 1 AND THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),1)) ' ESB - Matchpoint vs Matchpoint (MM) ' IF extended = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) ' IF extended = 1 THEN Feinwertungen(paarungen(j,1,k),1) += ((Gesamtpunkte(paarungen(j,2,k)) + 1) * Punkte(paarungen(j,1,k),k)) IF extended = 2 OR extended = 0 THEN Feinwertungen(paarungen(j,1,k),1) += ((Gesamtpunkte(paarungen(j,2,k)) + 1) * Mannschaftspunkte(Paarungen(j,1,k),k)) ' IF extended = 3 THEN Feinwertungen(paarungen(j,1,k),1) += (Punkte(paarungen(j,2,k),k) * Mannschaftspunkte(Paarungen(j,1,k),k)) END IF IF fehlendeSpieler(paarungen(j,1,k),runde) = 0 THEN /' ESB - Matchpoint vs Matchpoint IF extended = 1 THEN IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Mannschaftspunkte(Paarungen(j,1,k),k) * Punkte(paarungen(j,2,k),1)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Mannschaftspunkte(Paarungen(j,1,k),k) * Punkte(paarungen(j,2,k),1)) IF Punkte(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),1) += (Mannschaftspunkte(Paarungen(j,1,k),k) * Punkte(paarungen(j,2,k),1)) END IF '/ /' ESB - Matchpoint vs Matchpoint (MM) IF extended = 1 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),k)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),k)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),k)) END IF '/ ' ESB - Matchpoint vs Gamepoint IF extended = 2 OR extended = 0 THEN IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) END IF /' ESB - Gamepoint vs Matchpoint IF extended = 3 THEN IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Punkte(paarungen(j,1,k),k) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Punkte(paarungen(j,1,k),k) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),1) += (Punkte(paarungen(j,1,k),k) * Mannschaftspunkte(Paarungen(j,2,k),k)) END IF '/ /' ESB - Gamepoint vs Gamepoint IF extended = 4 THEN IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) END IF '/ ELSE ' IF extended = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),1)) ' IF extended = 1 THEN Feinwertungen(paarungen(j,2,k),1) += ((Gesamtpunkte(paarungen(j,1,k)) + 1) * Mannschaftspunkte(Paarungen(j,2,k),k)) ' IF extended = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),k)) IF extended = 2 OR extended = 0 THEN Feinwertungen(paarungen(j,2,k),1) += ((Gesamtpunkte(paarungen(j,1,k)) + 1) * Mannschaftspunkte(Paarungen(j,2,k),k)) ' ESB - Matchpoint vs Gamepoint ' IF extended = 3 THEN Feinwertungen(paarungen(j,2,k),1) += (Mannschaftspunkte(Paarungen(j,1,k),k) * Punkte(paarungen(j,2,k),k)) END IF END IF END IF ' IF kampflose(j, k) = 1 AND paarungen(j,2,k) <> 0 THEN IF extended = 2 OR extended = 0 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Bretter) IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Bretter) END IF END IF IF kampflose(j, k) = 1 AND paarungen(j,2,k) = 0 THEN ' IF extended = 1 AND Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += Gesamtpunkte(paarungen(j,1,k)) ' kampflose Partie ESB - MM IF extended = 1 THEN ' IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (2 * Gesamtpunkte(paarungen(j,1,k))) ' kampflose Partie ESB - MM END IF IF extended = 2 OR extended = 0 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (2 * Gesamtpunkte(paarungen(j,1,k))) ' kampflose Partie ESB - MG END IF ' IF extended = 3 AND Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (2 * Gesamtpunkte(paarungen(j,1,k))) ' kampflose Partie ESB - GM END IF END IF END IF NEXT NEXT ' Buchholz und Sonneborn-Berger mit Korrektur - Einzelturnier IF paarungssystem = 3 OR paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FOR j = 1 TO TAZ IF Zaehler(j, 3) <> Zaehler(j, 4) THEN Feinwertungen(j,1) += (Zaehler(j, 3) * (Gesamtpunkte(j)/2)) ' Sonneborn-Berger IF Zaehler(j, 3) = Zaehler(j, 4) THEN Feinwertungen(j,1) += (Zaehler(j, 2) * (Gesamtpunkte(j)/2)) ' Sonneborn-Berger Feinwertungen(j,2) += ((Runde - Korrektur(j, 0)) * Gesamtpunkte(j)) ' Buchholz ' Cut(j, 1) = 2000 ' Cut(j, 2) = 2000 NEXT END IF IF paarungssystem < 3 THEN FOR j = 1 TO TAZ IF Zaehler(j, 3) <> Zaehler(j, 4) THEN Feinwertungen(j,1) += (Zaehler(j, 3) * (Gesamtpunkte(j)/2)) ' Sonneborn-Berger IF Zaehler(j, 3) = Zaehler(j, 4) THEN Feinwertungen(j,1) += (Zaehler(j, 2) * (Gesamtpunkte(j)/2)) ' Sonneborn-Berger ' Cut(j, 1) = 2000 ' Cut(j, 2) = 2000 NEXT END IF ' Buchholz und Sonneborn-Berger mit Korrektur - Mannschaftsturnier IF paarungssystem = 5 OR paarungssystem = 6 OR Paarungssystem = 7 THEN FOR j = 1 TO TAZ ' IF Zaehler(j, 3) <> Zaehler(j, 4) THEN Feinwertungen(j,1) += (Zaehler(j, 3) * (Gesamtpunkte(j)/2)) ' Sonneborn-Berger ' IF Zaehler(j, 3) = Zaehler(j, 4) THEN Feinwertungen(j,1) += (Zaehler(j, 2) * (Gesamtpunkte(j)/2)) ' Sonneborn-Berger FOR k = 1 TO (RAZ-1) ' Berechnung der Sonneborn-Berger Wertung, wenn Spieler eine Runde aussetzt ' IF extended = 1 AND fehlendeSpieler(j,k) <> 0 THEN Feinwertungen(j,1) += Gesamtpunkte(j) IF extended = 2 OR extended = 0 THEN IF fehlendeSpieler(j,k) <> 0 THEN Feinwertungen(j,1) += (2 * Gesamtpunkte(j)) END IF NEXT Feinwertungen(j,2) += ((Runde - Korrektur(j, 0)) * Gesamtpunkte(j)) ' Buchholz ' Cut(j, 1) = 2000 ' Cut(j, 2) = 2000 NEXT END IF '/ ' Buchholzsumme errechnen FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF paarungen(j,2,k) > 0 THEN Feinwertungen(paarungen(j,1,k),3) += Feinwertungen(paarungen(j,2,k),2) Feinwertungen(paarungen(j,2,k),3) += Feinwertungen(paarungen(j,1,k),2) END IF IF paarungen(j,2,k) = 0 THEN Feinwertungen(paarungen(j,1,k),3) += 1 Feinwertungen(0, 3) += Gesamtpunkte(paarungen(j,1,k)) END IF NEXT NEXT ' Buchholzsumme bei spielfeien Paarungen errechnen FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF paarungen(j,2,k) = 0 THEN Feinwertungen(paarungen(j,1,k),3) += Feinwertungen(0, 3) END IF NEXT NEXT END IF ' Korrektur der Punkte ausrechnen für Ranglistenkorrektur ' IF Tiebreakmode = 0 THEN FOR k = 1 TO Runde FOR j = 1 TO ppr(k) ' Punkte der Spieler bei Mannschaftsturnieren speichern???? IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN FOR r = 1 TO Bretter IF EinzelErgebnisse(j,r,k) = "1-0" AND r <= Bretter THEN TempPunkte(((paarungen(j,1,k)*50-50) + (Teamspieler(paarungen(j,1,k), r, k))), 5) += 1 IF EinzelErgebnisse(j,r,k) = "0-1" AND r <= Bretter THEN TempPunkte(((paarungen(j,2,k)*50-50) + (Teamspieler(paarungen(j,2,k), r, k))), 5) += 1 IF EinzelErgebnisse(j,r,k) = "R-R" AND r <= Bretter THEN TempPunkte(((paarungen(j,1,k)*50-50) + (Teamspieler(paarungen(j,1,k), r, k))), 5) += 0.5: TempPunkte(((paarungen(j,2,k)*50-50) + (Teamspieler(paarungen(j,2,k), r, k))), 5) += 0.5 IF EinzelErgebnisse(j,r,k) = "R-0" AND r <= Bretter THEN TempPunkte(((paarungen(j,1,k)*50-50) + (Teamspieler(paarungen(j,1,k), r, k))), 5) += 0.5 IF EinzelErgebnisse(j,r,k) = "0-R" AND r <= Bretter THEN TempPunkte(((paarungen(j,2,k)*50-50) + (Teamspieler(paarungen(j,2,k), r, k))), 5) += 0.5 ' IF EinzelErgebnisse(j,r,k) = "0-0" AND r <= Bretter THEN IF EinzelErgebnisse(j,r,k) = "+--" AND r <= Bretter THEN TempPunkte(((paarungen(j,1,k)*50-50) + (Teamspieler(paarungen(j,1,k), r, k))), 5) += 1 ' IF EinzelErgebnisse(j,r,k) = "---" AND r <= Bretter THEN IF EinzelErgebnisse(j,r,k) = "--+" AND r <= Bretter THEN TempPunkte(((paarungen(j,2,k)*50-50) + (Teamspieler(paarungen(j,2,k), r, k))), 5) += 1 IF EinzelErgebnisse(j,r,k) = "W-L" AND r <= Bretter THEN TempPunkte(((paarungen(j,1,k)*50-50) + (Teamspieler(paarungen(j,1,k), r, k))), 5) += 1 IF EinzelErgebnisse(j,r,k) = "D-D" AND r <= Bretter THEN TempPunkte(((paarungen(j,1,k)*50-50) + (Teamspieler(paarungen(j,1,k), r, k))), 5) += 0.5: TempPunkte(((paarungen(j,2,k)*50-50) + (Teamspieler(paarungen(j,2,k), r, k))), 5) += 0.5 IF EinzelErgebnisse(j,r,k) = "L-W" AND r <= Bretter THEN TempPunkte(((paarungen(j,2,k)*50-50) + (Teamspieler(paarungen(j,2,k), r, k))), 5) += 1 NEXT END IF ' Brettpunkte berechnen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Feinwertungen(Paarungen(j,1,k), 8) += Mannschaftspunkte(Paarungen(j,1,k),k) Feinwertungen(Paarungen(j,2,k), 8) += Mannschaftspunkte(Paarungen(j,2,k),k) END IF ' Punktekorrektur zählen für Ranglistenkorrektur aus vorhergehenden Runde IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF kampflose(j, k) = 1 AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PunkteKorrektur(paarungen(j,1,k)) += 0.5 IF kampflose(j, k) = 1 AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PunkteKorrektur(paarungen(j,2,k)) += 0.5 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF kampflose(j, k) = 1 AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PunkteKorrektur(paarungen(j,1,k)) += 0.5 IF kampflose(j, k) = 1 AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PunkteKorrektur(paarungen(j,2,k)) += 0.5 END IF /' IF kampflose(j, k) = 0 AND PunkteKorrektur(paarungen(j,1,k)) = 2000 THEN IF Punkte(paarungen(j,1,k),k) <> 0.5 AND Punkte(paarungen(j,1,k),k) = 2000 THEN PunkteKorrektur(paarungen(j,1,k)) += 0.5 END IF IF kampflose(j, k) = 0 AND PunkteKorrektur(paarungen(j,2,k)) = 2000 THEN IF Punkte(paarungen(j,2,k),k) <> 0.5 AND Punkte(paarungen(j,2,k),k) = 2000 THEN PunkteKorrektur(paarungen(j,2,k)) += 0.5 END IF '/ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND kampflose(j,k) <> 1 THEN PunkteKorrektur(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 1 AND kampflose(j,k) <> 1 THEN PunkteKorrektur(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 0.5 THEN PunkteKorrektur(paarungen(j,1,k)) += 0.5 IF Punkte(paarungen(j,2,k),k) = 0.5 THEN PunkteKorrektur(paarungen(j,2,k)) += 0.5 IF k = RAZ THEN PunkteKorrektur(paarungen(j,1,k)) += 0.5 ' Forebuchholz IF k = RAZ THEN PunkteKorrektur(paarungen(j,2,k)) += 0.5 ' Forebuchholz END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND kampflose(j,k) <> 1 THEN PunkteKorrektur(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 1 AND kampflose(j,k) <> 1 THEN PunkteKorrektur(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 0.5 THEN PunkteKorrektur(paarungen(j,1,k)) += 0.5 IF Punkte(paarungen(j,2,k),k) = 0.5 THEN PunkteKorrektur(paarungen(j,2,k)) += 0.5 END IF ' Punkte abziehen, damit der Wert Korrektur stimmt (wir brauchen eine Runde vorher) IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Korrektur(paarungen(j,1,k), k) -= 1 IF Punkte(paarungen(j,2,k),k) = 1 THEN Korrektur(paarungen(j,2,k), k) -= 1 IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Korrektur(paarungen(j,1,k), k) -= 0.5 IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Korrektur(paarungen(j,2,k), k) -= 0.5 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Korrektur(paarungen(j,1,k), k) -= 1 IF Punkte(paarungen(j,2,k),k) = 1 THEN Korrektur(paarungen(j,2,k), k) -= 1 IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Korrektur(paarungen(j,1,k), k) -= 0.5 IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Korrektur(paarungen(j,2,k), k) -= 0.5 END IF ' Wert auf 0 setzen, wenn falls der Wert kleiner 0 ist IF Korrektur(paarungen(j,1,k), k) < 0 THEN Korrektur(paarungen(j,1,k), k) = 0 IF Korrektur(paarungen(j,2,k), k) < 0 THEN Korrektur(paarungen(j,2,k), k) = 0 ' Punkte zählen - Schachmodus IF Modus = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Gewinn(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 1 THEN Gewinn(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Remis(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Remis(paarungen(j,2,k)) += 1 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Gewinn(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 2 THEN Gewinn(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 1 THEN Remis(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 1 THEN Remis(paarungen(j,2,k)) += 1 END IF END IF ' Punkte zählen - Mühlemodus IF Modus = 1 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Gewinn(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 2 THEN Gewinn(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 1 THEN Remis(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 1 THEN Remis(paarungen(j,2,k)) += 1 END IF ' Gesamtpunkte für Koya-System berechnen IF j = 1 AND Paarungssystem < 5 THEN IF Paarungssystem <> 3 AND Paarungssystem <> 4 THEN IF TAZ MOD 2 <> 0 AND k MOD 2 <> 0 THEN TempPunkte(paarungen(1,1,k), 4) -= 1 IF TAZ MOD 2 <> 0 AND k MOD 2 = 0 THEN TempPunkte(paarungen(1,2,k), 4) -= 1 END IF END IF NEXT NEXT ' END IF ' Rounds elected to play + Rating FOR j = 1 TO TAZ Feinwertungen(j, 17) = Runde - (Zaehler(j,1) + Zaehler(j,6)) ' Rounds elected to play Feinwertungen(j, 54) = ELO(j) ' Rating NEXT ' Summenwertung FOR j = 1 TO TAZ FOR r = 1 TO runde y = 0 FOR k = 1 TO r y += Punkte(j,k) NEXT Feinwertungen(j, 27) += y NEXT NEXT ' Anzahl der Schwarzpartien und der gewonnenen Schwarzpartien errechnen FOR r = 1 TO TAZ FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF paarungen(j,2,k) = r THEN ' Anzahl der Schwarzpartien Feinwertungen(r, 6) += 1 ' Anzahl der gewonnenen Schwarzpartien IF Punkte(paarungen(j,2,k),k) = 1 AND modus = 0 THEN Feinwertungen(r, 26) += 1 ' Schachmodus IF Punkte(paarungen(j,2,k),k) = 2 AND modus = 1 THEN Feinwertungen(r, 26) += 1 ' Mühlemodus END IF NEXT NEXT NEXT ' Kalithea - Feinwertungen für Buchholz, Buchholzsumme und Sonneborn-Berger IF Tiebreakmode = 0 THEN ' FOR j = 1 TO TAZ FOR k = 1 TO Runde IF fehlendeSpieler(j, k) > 0 THEN PunkteKorrektur(j) += 0.5 ' Punkte für Ranglistenkorrektur zählen END IF NEXT NEXT END IF ' Durchnittliche Buchholzwertung der Gegner bei Einzelturnieren (Schweizer System, KO-System) IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FOR k = 1 TO TAZ z = 0 FOR r = 1 TO runde FOR j = 1 TO ppr(r) IF k = paarungen(j,1,r) AND kampflose(j, r) <> 1 AND paarungen(j,2,r) > 0 THEN Feinwertungen(paarungen(j,1,r), 18) += Feinwertungen(paarungen(j,2,r), 2) Zaehler(paarungen(j,1,r),7) += 1 TempPunkte(paarungen(j,1,r),8) += Punkte(paarungen(j,1,r),r) END IF IF k = paarungen(j,2,r) AND kampflose(j, r) <> 1 AND paarungen(j,1,r) > 0 THEN Feinwertungen(paarungen(j,2,r), 18) += Feinwertungen(paarungen(j,1,r), 2) Zaehler(paarungen(j,2,r),7) += 1 TempPunkte(paarungen(j,2,r),8) += Punkte(paarungen(j,2,r),r) END IF NEXT NEXT Feinwertungen(k, 18) /= Zaehler(k, 7) p = RUNDEN(Feinwertungen(k, 18)) Feinwertungen(k, 18) = p IF Feinwertungen(k, 18) < 0 THEN Feinwertungen(k, 18) = 0 NEXT END IF ' Durchnittliche Elowertung der Gegner bei Einzelturnieren (Schweizer System, KO-System) IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FOR k = 1 TO TAZ z = 0 FOR r = 1 TO runde FOR j = 1 TO ppr(r) IF k = paarungen(j,1,r) AND kampflose(j, r) <> 1 THEN Feinwertungen(paarungen(j,1,r), 12) += ELO(paarungen(j,2,r)) Zaehler(paarungen(j,1,r),5) += 1 TempPunkte(paarungen(j,1,r),7) += Punkte(paarungen(j,1,r),r) END IF IF k = paarungen(j,2,r) AND kampflose(j, r) <> 1 THEN Feinwertungen(paarungen(j,2,r), 12) += ELO(paarungen(j,1,r)) Zaehler(paarungen(j,2,r),5) += 1 TempPunkte(paarungen(j,2,r),7) += Punkte(paarungen(j,2,r),r) END IF NEXT NEXT IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) <> 0.5 THEN Feinwertungen(k, 12) = (CINT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Z = 1 END IF IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) = 0.5 AND z = 0 THEN Feinwertungen(k, 12) = (INT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Feinwertungen(k, 12) += 1 END IF IF Feinwertungen(k, 12) < 0 THEN Feinwertungen(k, 12) = 0 NEXT END IF '/ ' Durchnittliche Elowertung der Gegner bei Einzelturnieren (Rundensystem, Rutschsystem) IF Paarungssystem = 1 OR Paarungssystem = 2 THEN FOR k = 1 TO TAZ z = 0 FOR j = 1 TO TAZ IF j <> k THEN Feinwertungen(k, 12) += ELO(j) Zaehler(k,5) += 1 END IF NEXT IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) <> 0.5 THEN Feinwertungen(k, 12) = (CINT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Z = 1 END IF IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) = 0.5 AND z = 0 THEN Feinwertungen(k, 12) = (INT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Feinwertungen(k, 12) += 1 END IF IF Feinwertungen(k, 12) < 0 THEN Feinwertungen(k, 12) = 0 NEXT END IF ' Durchnittliche Elowertung der Gegner bei Einzelturnieren (Rundensystem mit 2 Durchgängen) IF Paarungssystem = 0 THEN FOR k = 1 TO TAZ z = 0 FOR j = 1 TO TAZ IF k <> j THEN Feinwertungen(k, 12) += ELO(j) Feinwertungen(k, 12) += ELO(j) Zaehler(k,5) += 2 END IF NEXT IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) <> 0.5 THEN Feinwertungen(k, 12) = (CINT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Z = 1 END IF IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) = 0.5 AND z = 0 THEN Feinwertungen(k, 12) = (INT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Feinwertungen(k, 12) += 1 END IF IF Feinwertungen(k, 12) < 0 THEN Feinwertungen(k, 12) = 0 NEXT END IF ' Durchnittliche Elowertung der Gegner bei Mannschaftsturnieren IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MANNSCHAFTSRATING FOR k = 1 TO TAZ z = 0 FOR r = 1 TO runde FOR j = 1 TO ppr(r) IF k = paarungen(j,1,r) AND kampflose(j, r) <> 1 THEN Feinwertungen(paarungen(j,1,r), 12) += Korrektur(paarungen(j,2,r), 1) Zaehler(paarungen(j,1,r),5) += 1 END IF IF k = paarungen(j,2,r) AND kampflose(j, r) <> 1 THEN Feinwertungen(paarungen(j,2,r), 12) += Korrektur(paarungen(j,1,r), 1) Zaehler(paarungen(j,2,r),5) += 1 END IF NEXT NEXT IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) <> 0.5 THEN Feinwertungen(k, 12) = (CINT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Z = 1 END IF IF FRAC((Feinwertungen(k, 12) / Zaehler(k, 5))) = 0.5 AND z = 0 THEN Feinwertungen(k, 12) = (INT((Feinwertungen(k, 12) / Zaehler(k, 5)))) Feinwertungen(k, 12) += 1 END IF IF Feinwertungen(k, 12) < 0 THEN Feinwertungen(k, 12) = 0 NEXT END IF '/ ' Leistungsbewertung im Turnier FOR j = 1 TO TAZ p = RUNDEN((TempPunkte(j, 7) / Zaehler(j, 5))) TPRTABELLE Feinwertungen(j, 13) = Feinwertungen(j, 12) + dp NEXT ' Durchschnttliche [Turnier] Elozahl Performance der Gegner bei Einzelturnieren (Schweizer System, KO-System) IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FOR k = 1 TO TAZ z = 0 FOR r = 1 TO runde FOR j = 1 TO ppr(r) IF k = paarungen(j,1,r) AND kampflose(j, r) <> 1 THEN Feinwertungen(paarungen(j,1,r), 14) += Feinwertungen(paarungen(j,2,r), 13) END IF IF k = paarungen(j,2,r) AND kampflose(j, r) <> 1 THEN Feinwertungen(paarungen(j,2,r), 14) += Feinwertungen(paarungen(j,1,r), 13) END IF NEXT NEXT IF FRAC((Feinwertungen(k, 14) / Zaehler(k, 5))) <> 0.5 THEN Feinwertungen(k, 14) = (CINT((Feinwertungen(k, 14) / Zaehler(k, 5)))) Z = 1 END IF IF FRAC((Feinwertungen(k, 14) / Zaehler(k, 5))) = 0.5 AND z = 0 THEN Feinwertungen(k, 14) = (INT((Feinwertungen(k, 14) / Zaehler(k, 5)))) Feinwertungen(k, 14) += 1 END IF IF Feinwertungen(k, 14) < 0 THEN Feinwertungen(k, 14) = 0 NEXT END IF ' My python code starts with the rating performance, and step 16, and then do a binary search where PTP(low) < score and PTP(high) >= score, and high-low == 1. /' Durchschnttliche perfekte [Turnier] Performance der Gegner bei Einzelturnieren (Schweizer System, KO-System) def ComputePerfectTournamentPerformance(score, ratingsopp): # exception for score == 0 if len(ratingsopp) == 0: return 0 if score < 0.01: return min(ratingsopp) - 800 # avoid infinite loop on illegal input if score > len(ratingsopp): return max(ratingsopp) + 800 # invariant: low < ptp, high >= ptp # when high-low == 1 then ptp = high num = len(ratingsopp) if num == 0: return 0 score100 = int(round(score*100)) start = ComputeTournamentPerformanceRating(score, ratingsopp) initstep = step = 16 # Seems to be a good start value expscore100 = ComputeSumExpectedScore100(start, ratingsopp) if expscore100 >= score100: high = start while ComputeSumExpectedScore100(start-step, ratingsopp) >= score100: high = start -step step *= 2 low = start- step else: low = start while ComputeSumExpectedScore100(start+step, ratingsopp) < score100: low = start +step step *= 2 high = start + step step = high - low while high-low > 1: step = step//2 if ComputeSumExpectedScore100(low+step, ratingsopp) >= score100: high = high - step else: low = low + step return high '/ ' Sonneborn-Berger Wertungszahl / Buchholz errechnen FOR k = 1 TO Runde FOR j = 1 TO ppr(k) ' ppr(Runde) IF Tiebreakmode = 0 THEN ' Olympiade Sonneborn-Berger - Mühlemodus IF Modus = 1 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),k) IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),k) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += Gesamtpunkte(paarungen(j,2,k)) * Punkte(paarungen(j,1,k),k) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += Gesamtpunkte(paarungen(j,1,k)) * Punkte(paarungen(j,2,k),k) END IF END IF ' Sonneborn-Berger!!!! IF Modus = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += Gesamtpunkte(paarungen(j,2,k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += Gesamtpunkte(paarungen(j,1,k)) IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k))/2) IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k))/2) END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),1) += (Gesamtpunkte(paarungen(j,2,k)) * Mannschaftspunkte(Paarungen(j,1,k),k)) IF Punkte(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),1) += (Gesamtpunkte(paarungen(j,1,k)) * Mannschaftspunkte(Paarungen(j,2,k),k)) END IF /' Ranglistenkorrektur bei Sonneborn-Berger IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),1) += PunkteKorrektur(paarungen(j,2,k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),1) += PunkteKorrektur(paarungen(j,1,k)) IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,2,k))/2) IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,1,k))/2) '/ ' Buchholz ohne Korrektur! IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 OR kampflose(j, k) = 1 THEN Feinwertungen(paarungen(j,1,k),2) += Gesamtpunkte(paarungen(j,2,k)) IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 OR kampflose(j, k) = 1 THEN Feinwertungen(paarungen(j,2,k),2) += Gesamtpunkte(paarungen(j,1,k)) END IF END IF ' Schmuljanwertung errechnen!!! IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(j,1,k),k) = 2 THEN Feinwertungen(paarungen(j,1,k),4) += Gesamtpunkte(paarungen(j,2,k)) IF Punkte(paarungen(j,2,k),k) = 2 THEN Feinwertungen(paarungen(j,2,k),4) += Gesamtpunkte(paarungen(j,1,k)) END IF IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),4) += Gesamtpunkte(paarungen(j,2,k)) IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),4) += Gesamtpunkte(paarungen(j,1,k)) END IF IF Punkte(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),4) -= Gesamtpunkte(paarungen(j,2,k)) IF Punkte(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),4) -= Gesamtpunkte(paarungen(j,1,k)) ' Koya-System errechnen IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND TempPunkte(paarungen(j,2,k),4) > 0 AND Gesamtpunkte(paarungen(j,2,k)) > 0 AND ((Gesamtpunkte(paarungen(j,2,k))/TempPunkte(paarungen(j,2,k),4))*100) >= KoyaLimit(1) THEN Koya(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 1 AND TempPunkte(paarungen(j,1,k),4) > 0 AND Gesamtpunkte(paarungen(j,1,k)) > 0 AND ((Gesamtpunkte(paarungen(j,1,k))/TempPunkte(paarungen(j,1,k),4))*100) >= KoyaLimit(2) THEN Koya(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 0.5 AND TempPunkte(paarungen(j,2,k),4) > 0 AND Gesamtpunkte(paarungen(j,2,k)) > 0 AND ((Gesamtpunkte(paarungen(j,2,k))/TempPunkte(paarungen(j,2,k),4))*100) >= KoyaLimit(1) THEN Koya(paarungen(j,1,k)) += 0.5 IF Punkte(paarungen(j,2,k),k) = 0.5 AND TempPunkte(paarungen(j,1,k),4) > 0 AND Gesamtpunkte(paarungen(j,1,k)) > 0 AND ((Gesamtpunkte(paarungen(j,1,k))/TempPunkte(paarungen(j,1,k),4))*100) >= KoyaLimit(2) THEN Koya(paarungen(j,2,k)) += 0.5 END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Punkte(paarungen(j,1,k),k) = 2 AND TempPunkte(paarungen(j,2,k),4) > 0 AND Gesamtpunkte(paarungen(j,2,k)) > 0 AND ((Gesamtpunkte(paarungen(j,2,k))/TempPunkte(paarungen(j,2,k),4))*100) >= KoyaLimit(1) THEN Koya(paarungen(j,1,k)) += 1 IF Punkte(paarungen(j,2,k),k) = 2 AND TempPunkte(paarungen(j,1,k),4) > 0 AND Gesamtpunkte(paarungen(j,1,k)) > 0 AND ((Gesamtpunkte(paarungen(j,1,k))/TempPunkte(paarungen(j,1,k),4))*100) >= KoyaLimit(2) THEN Koya(paarungen(j,2,k)) += 1 IF Punkte(paarungen(j,1,k),k) = 1 AND TempPunkte(paarungen(j,2,k),4) > 0 AND Gesamtpunkte(paarungen(j,2,k)) > 0 AND ((Gesamtpunkte(paarungen(j,2,k))/TempPunkte(paarungen(j,2,k),4))*100) >= KoyaLimit(1) THEN Koya(paarungen(j,1,k)) += 0.5 IF Punkte(paarungen(j,2,k),k) = 1 AND TempPunkte(paarungen(j,1,k),4) > 0 AND Gesamtpunkte(paarungen(j,1,k)) > 0 AND ((Gesamtpunkte(paarungen(j,1,k))/TempPunkte(paarungen(j,1,k),4))*100) >= KoyaLimit(2) THEN Koya(paarungen(j,2,k)) += 0.5 END IF ' 3-Punkte-Wertung IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Punkte(paarungen(j,1,k),k) = 1 THEN Feinwertungen(paarungen(j,1,k),9) += 3 IF Punkte(paarungen(j,2,k),k) = 1 THEN Feinwertungen(paarungen(j,2,k),9) += 3 IF Punkte(paarungen(j,1,k),k) = 0.5 THEN Feinwertungen(paarungen(j,1,k),9) += 1 IF Punkte(paarungen(j,2,k),k) = 0.5 THEN Feinwertungen(paarungen(j,2,k),9) += 1 END IF IF Tiebreakmode = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' Ranglistenkorrektur bei gespielten Partien errechnen!!! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 THEN IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 AND Punkte(paarungen(j,1,k),k) <> 2000 AND Punkte(paarungen(j,2,k),k) <> 2000 THEN Feinwertungen(paarungen(j,1,k),2) += PunkteKorrektur(paarungen(j,2,k)) Feinwertungen(paarungen(j,2,k),2) += PunkteKorrektur(paarungen(j,1,k)) END IF END IF ' kein Ergebnis vorhanden! IF Punkte(paarungen(j,1,k),k) = 2000 AND paarungen(j,1,k) > 0 AND Runde > 1 THEN IF k < Runde THEN ' Feinwertungen(paarungen(j,1,k),2) += (((Korrektur(paarungen(j,1,k), k)) + ((Runde - k) * 0.5)) + 1) ' Feinwertungen(paarungen(j,1,k),2) += ((Korrektur(paarungen(j,1,k), k)) + ((Runde - k) * 0.5)) END IF IF k = Runde THEN Feinwertungen(paarungen(j,1,k),2) += (Korrektur(paarungen(j,1,k), k) + 1) END IF END IF IF Punkte(paarungen(j,2,k),k) = 2000 AND paarungen(j,2,k) > 0 AND Runde > 1 THEN IF k < Runde THEN ' Feinwertungen(paarungen(j,2,k),2) += (((Korrektur(paarungen(j,2,k), k)) + ((Runde - k) * 0.5)) + 1) ' Feinwertungen(paarungen(j,2,k),2) += ((Korrektur(paarungen(j,2,k), k)) + ((Runde - k) * 0.5)) END IF IF k = Runde THEN Feinwertungen(paarungen(j,2,k),2) += (Korrektur(paarungen(j,2,k), k) + 1) END IF END IF ' Kampflose Partien IF kampflose(j, k) = 1 AND paarungen(j,2,k) > 0 AND Runde > 1 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN ' Spieler 1 gewinnt kampflos! IF Punkte(paarungen(j,1,k),k) = 1 THEN IF k < Runde THEN Feinwertungen(paarungen(j,1,k),2) += ((Korrektur(paarungen(j,1,k), k)) + ((Runde - k) * 0.5)) ' Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,1,k)) + ((Runde - k) * 0.5)) END IF IF k = Runde THEN Feinwertungen(paarungen(j,1,k),2) += (Korrektur(paarungen(j,1,k), k)) ' Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,1,k))) END IF END IF ' Spieler 2 gewinnt kampflos! IF Punkte(paarungen(j,2,k),k) = 1 THEN IF k < Runde THEN Feinwertungen(paarungen(j,2,k),2) += ((Korrektur(paarungen(j,2,k), k)) + ((Runde - k) * 0.5)) ' Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,2,k)) + ((Runde - k) * 0.5)) END IF IF k = Runde THEN Feinwertungen(paarungen(j,2,k),2) += (Korrektur(paarungen(j,2,k), k)) ' Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,2,k))) END IF END IF END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Spieler 1 gewinnt kampflos! IF Punkte(paarungen(j,1,k),k) = 2 THEN IF k < Runde THEN Feinwertungen(paarungen(j,1,k),2) += ((Korrektur(paarungen(j,1,k), k)) + ((Runde - k) * 0.5)) ' Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,1,k)) + ((Runde - k) * 0.5)) END IF IF k = Runde THEN Feinwertungen(paarungen(j,1,k),2) += (Korrektur(paarungen(j,1,k), k)) ' Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,1,k))) END IF END IF ' Spieler 2 gewinnt kampflos! IF Punkte(paarungen(j,2,k),k) = 2 THEN IF k < Runde THEN Feinwertungen(paarungen(j,2,k),2) += ((Korrektur(paarungen(j,2,k), k)) + ((Runde - k) * 0.5)) ' Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,2,k)) + ((Runde - k) * 0.5)) END IF IF k = Runde THEN Feinwertungen(paarungen(j,2,k),2) += (Korrektur(paarungen(j,2,k), k)) ' Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,2,k))) END IF END IF END IF ' Spieler 1 verliert kampflos! IF Punkte(paarungen(j,1,k),k) = 0 THEN IF k < Runde THEN Feinwertungen(paarungen(j,1,k),2) += (((Korrektur(paarungen(j,1,k), k)) + ((Runde - k) * 0.5)) + 1) ' Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,1,k)) + ((Runde - k) * 0.5) + 1) END IF IF k = Runde THEN Feinwertungen(paarungen(j,1,k),2) += (Korrektur(paarungen(j,1,k), k) + 1) ' Feinwertungen(paarungen(j,1,k),1) += (PunkteKorrektur(paarungen(j,1,k)) + 1) END IF END IF ' Spieler 2 verliert kampflos! IF Punkte(paarungen(j,2,k),k) = 0 THEN IF k < Runde THEN Feinwertungen(paarungen(j,2,k),2) += (((Korrektur(paarungen(j,2,k), k)) + ((Runde - k) * 0.5)) + 1) ' Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,2,k)) + ((Runde - k) * 0.5) + 1) END IF IF k = Runde THEN Feinwertungen(paarungen(j,2,k),2) += (Korrektur(paarungen(j,2,k), k) + 1) ' Feinwertungen(paarungen(j,2,k),1) += (PunkteKorrektur(paarungen(j,2,k)) + 1) END IF END IF END IF END IF END IF NEXT NEXT IF Tiebreakmode = 0 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN ' Ranglistenkorrektur bei spielfreien Paarungen (Buchholz) FOR k = 1 TO Runde FOR j = 1 TO ppr(j) IF kampflose(j, k) = 1 AND paarungen(j,2,k) = 0 THEN IF HalbBye = 0 THEN Feinwertungen(paarungen(j,1,k),2) += (Korrektur(paarungen(j,1,k), k) + ((Runde - k) * 0.5)) ' Buchholz IF HalbBye = 1 THEN Feinwertungen(paarungen(j,1,k),2) += (Korrektur(paarungen(j,1,k), k) + ((Runde - k) * 0.5)) + 0.5 ' Buchholz END IF NEXT NEXT ' Ranglistenkorrektur errechnen, wenn Spieler Runde aussetzt (Buchholz)! FOR k = 1 TO TAZ FOR j = 1 TO Runde IF fehlendeSpieler(k, j) = 1 THEN Feinwertungen(k, 2) += (Korrektur(k, j) + 1 + ((Runde - j) * 0.5)) ' Buchholz errechnen, wenn Spieler eine Runde aussetzt IF fehlendeSpieler(k, j) = 2 THEN Feinwertungen(k, 2) += (Korrektur(k, j) + 0 + ((Runde - j) * 0.5)) ' Buchholz errechnen, wenn Spieler eine Runde aussetzt NEXT NEXT END IF ' Buchholzsumme errechnen FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF paarungen(j,2,k) > 0 THEN Feinwertungen(paarungen(j,1,k),3) += Feinwertungen(paarungen(j,2,k),2) Feinwertungen(paarungen(j,2,k),3) += Feinwertungen(paarungen(j,1,k),2) END IF IF paarungen(j,2,k) = 0 THEN Feinwertungen(paarungen(j,1,k),3) += 1 Feinwertungen(0, 3) += Gesamtpunkte(paarungen(j,1,k)) END IF NEXT NEXT ' Buchholzsumme bei spielfeien Paarungen errechnen FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF paarungen(j,2,k) = 0 THEN Feinwertungen(paarungen(j,1,k),3) += Feinwertungen(0, 3) END IF NEXT NEXT END IF ' Direkter Vergleich - Rundensystem mit 2 Durchgängen IF Paarungssystem = 0 THEN FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF TAZ MOD 2 <> 0 THEN ' IF j = 1 THEN IF k MOD 2 <> 0 THEN IF Modus = 0 THEN DirekterVergleich(paarungen(j,1,k), 0) = 0.5 ' Zähler für Direkten Vergleich definieren IF Modus = 1 THEN DirekterVergleich(paarungen(j,1,k), 0) = 1 ' Zähler für Direkten Vergleich definieren END IF IF k MOD 2 = 0 THEN IF Modus = 0 THEN DirekterVergleich(paarungen(j,2,k), 0) = 0.5 ' Zähler für Direkten Vergleich definieren IF Modus = 1 THEN DirekterVergleich(paarungen(j,2,k), 0) = 1 ' Zähler für Direkten Vergleich definieren END IF END IF IF j > 1 THEN ' Rundensystem mit 2 Durchgängen IF k <= (RAZ/2) THEN DirekterVergleich(paarungen(j,1,k), paarungen(j,2,k)) = Punkte(paarungen(j,1,k),k) ' Zähler für Direkten Vergleich definieren DirekterVergleich(paarungen(j,2,k), paarungen(j,1,k)) = Punkte(paarungen(j,2,k),k) ' Zähler für Direkten Vergleich definieren END IF ' IF k > (RAZ/2) THEN DirekterVergleich(paarungen(j,1,k), (paarungen(j,2,k)+(RAZ/2))) = Punkte(paarungen(j,1,k),k) ' Zähler für Direkten Vergleich definieren DirekterVergleich(paarungen(j,2,k), (paarungen(j,1,k)+(RAZ/2))) = Punkte(paarungen(j,2,k),k) ' Zähler für Direkten Vergleich definieren END IF END IF END IF IF TAZ MOD 2 = 0 THEN ' Rundensystem mit 2 Durchgängen IF k <= (RAZ/2) THEN DirekterVergleich(paarungen(j,1,k), paarungen(j,2,k)) = Punkte(paarungen(j,1,k),k) ' Zähler für Direkten Vergleich definieren DirekterVergleich(paarungen(j,2,k), paarungen(j,1,k)) = Punkte(paarungen(j,2,k),k) ' Zähler für Direkten Vergleich definieren END IF IF k > (RAZ/2) THEN DirekterVergleich(paarungen(j,1,k), (paarungen(j,2,k)+(RAZ/2))) = Punkte(paarungen(j,1,k),k) ' Zähler für Direkten Vergleich definieren DirekterVergleich(paarungen(j,2,k), (paarungen(j,1,k)+(RAZ/2))) = Punkte(paarungen(j,2,k),k) ' Zähler für Direkten Vergleich definieren END IF END IF NEXT NEXT END IF ' Direkter Vergleich - Rundensystem/Rutschsystem IF Paarungssystem > 0 AND Paarungssystem < 3 THEN FOR k = 1 TO Runde FOR j = 1 TO ppr(k) IF TAZ MOD 2 <> 0 THEN IF j = 1 THEN IF k MOD 2 <> 0 THEN IF Modus = 0 THEN DirekterVergleich(paarungen(j,1,k), 0) = 0.5 ' Zähler für Direkten Vergleich definieren IF Modus = 1 THEN DirekterVergleich(paarungen(j,1,k), 0) = 1 ' Zähler für Direkten Vergleich definieren END IF IF k MOD 2 = 0 THEN IF Modus = 0 THEN DirekterVergleich(paarungen(j,2,k), 0) = 0.5 ' Zähler für Direkten Vergleich definieren IF Modus = 1 THEN DirekterVergleich(paarungen(j,2,k), 0) = 1 ' Zähler für Direkten Vergleich definieren END IF END IF IF j > 1 THEN DirekterVergleich(paarungen(j,1,k), paarungen(j,2,k)) = Punkte(paarungen(j,1,k),k) ' Zähler für Direkten Vergleich definieren DirekterVergleich(paarungen(j,2,k), paarungen(j,1,k)) = Punkte(paarungen(j,2,k),k) ' Zähler für Direkten Vergleich definieren END IF END IF IF TAZ MOD 2 = 0 THEN DirekterVergleich(paarungen(j,1,k), paarungen(j,2,k)) = Punkte(paarungen(j,1,k),k) ' Zähler für Direkten Vergleich definieren DirekterVergleich(paarungen(j,2,k), paarungen(j,1,k)) = Punkte(paarungen(j,2,k),k) ' Zähler für Direkten Vergleich definieren END IF NEXT NEXT END IF ' Direkter Vergleich berechnen - Rundensystem/Rutschsystem IF Feinwertungssystem(1) = 10 AND Paarungssystem <> 0 THEN FOR j = 1 TO TAZ FOR k = 1 TO TAZ ' Direkter Vergleich IF Modus = 0 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,10) += 2 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,10) += 1 ELSE IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,10) += 1 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,10) += 0.5 END IF IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 11) = "0" END IF END IF END IF IF Modus = 1 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,10) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,10) += 2 ELSE IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,10) += 2 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,10) += 1 END IF IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 11) = "0" END IF END IF END IF NEXT NEXT END IF ' Direkter Vergleich berechnen - Rundensystem mit 2 Durchgängen IF Feinwertungssystem(1) = 10 AND Paarungssystem = 0 THEN k = 1 FOR j = 1 TO TAZ FOR r = 1 TO RAZ ' Direkter Vergleich IF Modus = 0 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,10) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,10) += 1 ELSE IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,10) += 1 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,10) += 0.5 END IF IF DirekterVergleich(j,r) = 0 AND k > 0 THEN Temp(j, 11) = "0" END IF END IF END IF IF Modus = 1 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,10) += 2 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,10) += 1 ELSE IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,10) += 1 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,10) += 0.5 END IF IF DirekterVergleich(j,r) = 0 AND k > 0 THEN Temp(j, 11) = "0" END IF END IF END IF k += 1 IF Paarungssystem = 0 AND k > (RAZ/2) THEN k = 1 NEXT NEXT END IF ' Direkter Vergleich berechnen - 2. Feinwertung - Rundensystem/Rutschsystem IF Feinwertungssystem(2) = 10 AND Paarungssystem <> 0 THEN FOR j = 1 TO TAZ FOR k = 0 TO TAZ IF Modus = 0 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Sonneborn-Berger IF Feinwertungssystem(1) = 2 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,1) = Feinwertungen(k,1) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 ELSE IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 0.5 END IF IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Anzahl der Siege IF Feinwertungssystem(1) = 3 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Gewinn(j) = Gewinn(k) AND k <> j THEN IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Schmuljan IF Feinwertungssystem(1) = 6 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,4) = Feinwertungen(k,4) AND k <> j THEN IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Koya IF Feinwertungssystem(1) = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Koya(j) = Koya(k) AND k <> j THEN IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' 3-Punkte-Wertung IF Feinwertungssystem(1) = 9 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,9) = Feinwertungen(k,9) AND k <> j THEN IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Direkter Vergleich IF Feinwertungssystem(1) = 10 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,10) = Feinwertungen(k,10) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,11) += 1 ELSE IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,k) = 0.5 THEN Feinwertungen(j,11) += 0.5 END IF IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF END IF END IF IF Modus = 1 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Sonneborn-Berger IF Feinwertungssystem(1) = 2 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,1) = Feinwertungen(k,1) AND k <> j THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Anzahl der Siege IF Feinwertungssystem(1) = 3 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Gewinn(j) = Gewinn(k) AND k <> j THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Schmuljan IF Feinwertungssystem(1) = 6 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,4) = Feinwertungen(k,4) AND k <> j THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Koya IF Feinwertungssystem(1) = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Koya(j) = Koya(k) AND k <> j THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' 3-Punkte-Wertung IF Feinwertungssystem(1) = 9 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,9) = Feinwertungen(k,9) AND k <> j THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF ' Direkter Vergleich IF Feinwertungssystem(1) = 10 THEN IF Gesamtpunkte(j) = Gesamtpunkte(k) AND Feinwertungen(j,10) = Feinwertungen(k,10) AND k <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 2 ELSE IF DirekterVergleich(j,k) = 2 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,k) = 1 THEN Feinwertungen(j,11) += 1 END IF IF DirekterVergleich(j,k) = 0 AND k > 0 THEN Temp(j, 13) = "0" END IF END IF END IF END IF NEXT NEXT END IF ' Direkter Vergleich berechnen - 2. Feinwertung - Rundensystem mit 2 Durchgängen IF Feinwertungssystem(2) = 10 AND Paarungssystem = 0 THEN r = 1 FOR j = 1 TO TAZ FOR k = 0 TO RAZ IF Modus = 0 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Sonneborn-Berger IF Feinwertungssystem(1) = 2 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,1) = Feinwertungen(r,1) AND r <> j THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Anzahl der Siege IF Feinwertungssystem(1) = 3 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Gewinn(j) = Gewinn(r) AND r <> j THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Schmuljan IF Feinwertungssystem(1) = 6 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,4) = Feinwertungen(r,4) AND r <> j THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Koya IF Feinwertungssystem(1) = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Koya(j) = Koya(r) AND r <> j THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' 3-Punkte-Wertung IF Feinwertungssystem(1) = 9 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,9) = Feinwertungen(r,9) AND r <> j THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Direkter Vergleich IF Feinwertungssystem(1) = 10 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,10) = Feinwertungen(r,10) AND r <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 1 ELSE IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 1 IF DirekterVergleich(j,r) = 0.5 THEN Feinwertungen(j,11) += 0.5 END IF IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF END IF END IF IF Modus = 1 THEN IF Paarungssystem < 3 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' Sonneborn-Berger IF Feinwertungssystem(1) = 2 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,1) = Feinwertungen(r,1) AND r <> j THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Anzahl der Siege IF Feinwertungssystem(1) = 3 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Gewinn(j) = Gewinn(r) AND r <> j THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Schmuljan IF Feinwertungssystem(1) = 6 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,4) = Feinwertungen(r,4) AND r <> j THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Koya IF Feinwertungssystem(1) = 7 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Koya(j) = Koya(r) AND r <> j THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' 3-Punkte-Wertung IF Feinwertungssystem(1) = 9 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,9) = Feinwertungen(r,9) AND r <> j THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF ' Direkter Vergleich IF Feinwertungssystem(1) = 10 THEN IF Gesamtpunkte(j) = Gesamtpunkte(r) AND Feinwertungen(j,10) = Feinwertungen(r,10) AND r <> j THEN IF Tiebreakmode = 0 THEN IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 4 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 2 ELSE IF DirekterVergleich(j,r) = 2 THEN Feinwertungen(j,11) += 2 IF DirekterVergleich(j,r) = 1 THEN Feinwertungen(j,11) += 1 END IF IF DirekterVergleich(j,r) = 0 AND r > 0 THEN Temp(j, 13) = "0" END IF END IF END IF END IF r += 1 IF r > (RAZ/2) THEN r = 1 NEXT NEXT END IF ' Forebuchholz berechnen IF Tiebreakmode = 1 THEN IF Feinwertungssystem(1) = 19 OR Feinwertungssystem(2) = 19 THEN ' alte Ergebnisse zwischenspeichern und zu Remis ändern IF runde = RAZ THEN FOR j = 1 TO ppr(RAZ) KorrekturFore(paarungen(j,1,RAZ), 1) = Punkte(paarungen(j,1,RAZ),RAZ) KorrekturFore(paarungen(j,2,RAZ), 1) = Punkte(paarungen(j,2,RAZ),RAZ) KorrekturFore(j, 2) = kampflose(j, RAZ) IF paarungen(j,2,RAZ) <> 0 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(j,1,RAZ),RAZ) = 0.5 Punkte(paarungen(j,2,RAZ),RAZ) = 0.5 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(j,1,RAZ),RAZ) = 1 Punkte(paarungen(j,2,RAZ),RAZ) = 1 END IF kampflose(j, RAZ) = 0 END IF NEXT END IF ' Feinwertungen auf 0 setzen FOR k = 1 TO TAZ ' GesamtpunkteForebuchholz(k) = 0 ' Gesamtpunkte ForeBuchholz GesamtpunkteForebuchholz(k) = Gesamtpunkte(k) Gesamtpunkte(k) = 0 Feinwertungen(k, 28) = 0 ' Forebuchholz PunkteKorrektur(k) = 0 Zaehler(k, 5) = 0 ' Zähler wie oft ein Spieler spielt Zaehler(k, 7) = 0 ' Zähler wie oft ein Spieler spielt TempPunkte(k, 7) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) TempPunkte(k, 8) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) FOR j = 1 TO Runde IF Punkte(k,j) <> 2000 AND Punkte(k,j) <> 0 THEN Gesamtpunkte(k) += Punkte(k,j) IF fehlendeSpieler(k,j) = 0 THEN Feinwertungen(k, -1) = j Korrektur(k, j) = Gesamtpunkte(k) ' Anzahl der Runden zählen, die ein Spieler aussetzt IF fehlendeSpieler(k,j) = 1 THEN Zaehler(k, 0) += 1 IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 0) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 3) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 4) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 4) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 2) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 2) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) > 0 THEN Zaehler(k, 1) += 1 ' Zählen wie oft ein Spieler aussetzt NEXT NEXT ' Forebuchholz FOR k = 1 TO Runde FOR j = 1 TO ppr(k) ' Forebuchholz IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN Feinwertungen(paarungen(j,1,k),28) += Gesamtpunkte(paarungen(j,2,k)) Feinwertungen(paarungen(j,2,k),28) += Gesamtpunkte(paarungen(j,1,k)) IF Paarungssystem <> 5 AND Paarungssystem <> 6 AND Paarungssystem <> 7 THEN IF Zaehler(paarungen(j,1,k),0) <> 0 AND fehlendeSpieler(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),28) += (Zaehler(paarungen(j,1,k),0) * 0.5) IF Zaehler(paarungen(j,2,k),0) <> 0 AND fehlendeSpieler(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),28) += (Zaehler(paarungen(j,2,k),0) * 0.5) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Zaehler(paarungen(j,1,k),0) <> 0 AND fehlendeSpieler(paarungen(j,2,k),k) = 0 THEN Feinwertungen(paarungen(j,2,k),28) += (Zaehler(paarungen(j,1,k),0) * 1) IF Zaehler(paarungen(j,2,k),0) <> 0 AND fehlendeSpieler(paarungen(j,1,k),k) = 0 THEN Feinwertungen(paarungen(j,1,k),28) += (Zaehler(paarungen(j,2,k),0) * 1) END IF END IF NEXT NEXT ' Forebuchholz mit Korrektur - Einzelturnier IF paarungssystem = 3 OR paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN FOR j = 1 TO TAZ Feinwertungen(j,28) += ((Runde - Korrektur(j, 0)) * Gesamtpunkte(j)) ' ForeBuchholz NEXT END IF ' original Ergebnisse wiederherstellen IF runde = RAZ THEN FOR j = 1 TO ppr(RAZ) Punkte(paarungen(j,1,Runde),Runde) = KorrekturFore(paarungen(j,1,RAZ), 1) Punkte(paarungen(j,2,Runde),Runde) = KorrekturFore(paarungen(j,2,RAZ), 1) kampflose(j, RAZ) = KorrekturFore(j, 2) NEXT END IF ' Gesamtpunkte wiederherstellen FOR j = 1 TO TAZ Gesamtpunkte(j) = GesamtpunkteForebuchholz(j) NEXT END IF END IF END SUB SUB FENSTERSUCHEN DIM AS INTEGER w, h ' CONST ProgrammName = "Suchen/Searching" ' Sprachausgaben(66) DIM AS Wndclass wndclszwei WITH wndclszwei .style = WS_OVERLAPPED OR MB_SYSTEMMODAL ' WS_EX_TOPMOST .lpfnWndProc = CAST(WNDPROC, @WNDPROCZWEI) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(65)) .lpszMenuName = NULL END WITH Registerclass @wndclszwei DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(65), Sprachausgaben(65), WS_SYSMENU,_ cW_USEDEFAULT, cW_USEDEFAULT, 282, 90,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 282, 90, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP END SUB SUB FENSTERSORTIEREN ' DIM AS INTEGER w, h ' CONST ProgrammName = "Sortierung/Sorting" ' Sprachausgaben(66) DIM AS Wndclass wndcls WITH wndcls .style = WS_OVERLAPPED OR MB_SYSTEMMODAL .lpfnWndProc = CAST(WNDPROC, @WNDPROC) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(66)) .lpszMenuName = NULL END WITH Registerclass @wndcls DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(66), Sprachausgaben(66), WS_SYSMENU,_ cW_USEDEFAULT, cW_USEDEFAULT, 282, 90,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 282, 90, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP ' END msg.wParam '/ END SUB SUB FENSTERAKTUALISIEREN DIM AS INTEGER w, h ' CONST ProgrammName = "Suchen/Searching" ' Sprachausgaben(66) DIM AS Wndclass wndclsvier WITH wndclsvier .style = WS_OVERLAPPED OR MB_SYSTEMMODAL ' WS_EX_TOPMOST .lpfnWndProc = CAST(WNDPROC, @WNDPROCZWEI) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(176)) .lpszMenuName = NULL END WITH Registerclass @wndclsvier DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(176), Sprachausgaben(176), WS_SYSMENU,_ cW_USEDEFAULT, cW_USEDEFAULT, 282, 90,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 282, 90, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP END SUB SUB FENSTERSTARTGEBUEHR DIM AS INTEGER w, h DIM AS Wndclass wndclsdrei WITH wndclsdrei .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCDREI) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(175)) .lpszMenuName = NULL END WITH Registerclass @wndclsdrei ' WS_SYSMENU DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(175), Sprachausgaben(175), WS_SYSMENU,_ cW_USEDEFAULT, cW_USEDEFAULT, 382, 290,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 382, 290, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP END SUB SUB FENSTERRATINGLIST DIM AS INTEGER w, h DIM AS Wndclass wndclsfuenf WITH wndclsfuenf .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCFUENF) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(175)) .lpszMenuName = NULL END WITH Registerclass @wndclsfuenf DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(175), Sprachausgaben(175), WS_SYSMENU,_ cW_USEDEFAULT, cW_USEDEFAULT, 382, 290,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 382, 290, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP END SUB SUB FENSTERKNOCKOUT DIM AS INTEGER w, h DIM AS Wndclass wndclssechs WITH wndclssechs .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCSECHS) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(181)) .lpszMenuName = NULL END WITH Registerclass @wndclssechs ' WS_SYSMENU ' 580, 510 ' cW_USEDEFAULT, cW_USEDEFAULT, 382, 490,_ ' DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(181), Sprachausgaben(181), WS_CAPTION,_ cW_USEDEFAULT, cW_USEDEFAULT, 222, 90,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , ' SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 182, 90, NULL SetWindowPos hWnd, hWNd_TOP, (w/2)+352, (h/2)+180, 222, 90, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP END SUB #IFDEF __FB_64BIT__ SUB FENSTERPASSWORT DIM AS INTEGER w, h DIM AS Wndclass wndclsneun WITH wndclsneun .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCNEUN) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR("Passwort") .lpszMenuName = NULL END WITH Registerclass @wndclsneun ' WS_SYSMENU ' 580, 510 ' cW_USEDEFAULT, cW_USEDEFAULT, 382, 490,_ /' DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(229), Sprachausgaben(229), WS_CAPTION,_ cW_USEDEFAULT, cW_USEDEFAULT, 260, 150,_ NULL, NULL, getModulehandle(NULL), NULL) '/ /' DIM AS hWNd hWnd = CreateWindowEx(0, "#32770", "Login", _ WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE, _ 300, 300, 260, 150, NULL, NULL, NULL, NULL) '/ ' Fenster erstellen - WS_VISIBLE direkt mitgeben! hWnd = CreateWindowEx(0, "Passwort", "Password", _ WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE, _ CW_USEDEFAULT, CW_USEDEFAULT, 260, 150, _ NULL, NULL, GetModuleHandle(NULL), NULL) SCREENINFO w, h, , , , , ' SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 182, 90, NULL SetWindowPos hWnd, hWNd_TOP, (w/2)+352, (h/2)+180, 260, 150, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 TranslateMessage @msg dispatchMessage @msg LOOP END SUB SUB FENSTERSERVER DIM AS INTEGER w, h DIM AS Wndclass wndclszehn WITH wndclszehn .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCZEHN) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR("Server") .lpszMenuName = NULL END WITH Registerclass @wndclszehn ' Fenster erstellen - WS_VISIBLE direkt mitgeben! hWnd = CreateWindowEx(0, "Server", "Server", _ WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE, _ CW_USEDEFAULT, CW_USEDEFAULT, 260, 150, _ NULL, NULL, GetModuleHandle(NULL), NULL) SCREENINFO w, h, , , , , ' SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 182, 90, NULL SetWindowPos hWnd, hWNd_TOP, (w/2)+352, (h/2)+180, 260, 150, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 TranslateMessage @msg dispatchMessage @msg LOOP END SUB SUB FENSTEREMAILADRESSE DIM AS INTEGER w, h DIM AS Wndclass wndclself WITH wndclself .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCELF) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR("E-MAIL") .lpszMenuName = NULL END WITH Registerclass @wndclself ' Fenster erstellen - WS_VISIBLE direkt mitgeben! hWnd = CreateWindowEx(0, "E-MAIL", "E-MAIL", _ WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE, _ CW_USEDEFAULT, CW_USEDEFAULT, 260, 150, _ NULL, NULL, GetModuleHandle(NULL), NULL) SCREENINFO w, h, , , , , ' SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 182, 90, NULL SetWindowPos hWnd, hWNd_TOP, (w/2)+352, (h/2)+180, 260, 150, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 TranslateMessage @msg dispatchMessage @msg LOOP END SUB SUB FENSTERPORT DIM AS INTEGER w, h DIM AS Wndclass wndclszwoelf WITH wndclszwoelf .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCZWOELF) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR("Port") .lpszMenuName = NULL END WITH Registerclass @wndclszwoelf ' Fenster erstellen - WS_VISIBLE direkt mitgeben! hWnd = CreateWindowEx(0, "Port", "Port", _ WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE, _ CW_USEDEFAULT, CW_USEDEFAULT, 260, 150, _ NULL, NULL, GetModuleHandle(NULL), NULL) SCREENINFO w, h, , , , , ' SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+340, 182, 90, NULL SetWindowPos hWnd, hWNd_TOP, (w/2)+352, (h/2)+180, 260, 150, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 TranslateMessage @msg dispatchMessage @msg LOOP END SUB #ENDIF /' SUB FENSTERHTML DIM AS INTEGER w, h CONST ProgrammName = "HTML" ' "Sprachausgaben(65)" DIM AS WNdcLaSS nebenwndcls WITH nebenwndcls .style = CS_HREDRAW OR CS_VREDRAW OR MB_SYSTEMMODAL ' WS_EX_TOPMOST .lpfnWndProc = PROCPTR(WNDPROC) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, Idc_aRROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(ProgrammName) .lpszMenuName = NULL END WITH Registerclass @nebenwndcls DIM AS hWNd hWnd = createWindow(_ ProgrammName, ProgrammName, WS_OVERLAPPEDWINDOW,_ cW_USedefaULT, cW_USedefaULT, 300, 300,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+212, (h/2)+40, 212, 90, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMaL UpdateWindow hWnd DIM AS MSg msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP ' END msg.wParam END SUB '/ /' SUB FENSTERDATUM ' hInstance = GetModuleHandle(NULL) ' Common Controls initialisieren (für DateTimePicker) Dim iccex As INITCOMMONCONTROLSEX iccex.dwSize = SizeOf(INITCOMMONCONTROLSEX) iccex.dwICC = ICC_DATE_CLASSES InitCommonControlsEx(@iccex) ' Fensterklasse registrieren Dim AS WNDCLASSEX wndclsacht With wndclsacht .cbSize = SizeOf(WNDCLASSEX) .style = CS_HREDRAW Or CS_VREDRAW .lpfnWndProc = CAST(WNDPROC, @WNDPROCACHT) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hCursor = LoadCursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrBackground = CAST(HBRUSH, COLOR_WINDOW + 1) .lpszClassName = STRPTR(Sprachausgaben(229)) .lpszMenuName = NULL End With RegisterClassEx(@wndclsacht) ' ' Fenster erstellen DIM hWnd As HWND hWnd = CreateWindow("DatePickerDemo", "Datumsauswahl mit FreeBASIC", WS_OVERLAPPEDWINDOW, _ CW_USEDEFAULT, CW_USEDEFAULT, 300, 200, NULL, NULL, hInstance, NULL) ' IF hDatePicker = NULL Then MessageBox(hWnd, "DatePicker konnte nicht erstellt werden!", "Fehler", MB_ICONERROR) ELSE MessageBox(hWnd, "DatePicker erstellt!", "OK", MB_OK) END IF ' ShowWindow(hWnd,nCmdShow) SetforegroundWindow hWnd ShowWindow hWnd, SW_SHOWNORMAL UpdateWindow(hWnd) /' DIM AS MSG message While GetMessage(@message, NULL, 0, 0) ' TranslateMessage(@msg) DispatchMessage(@message) WEND '/ /' DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 ' TranslateMessage(@msg) dispatchMessage @msg LOOP '/ END SUB '/ SUB FENSTERFARBE DIM AS INTEGER w, h DIM AS Wndclass wndclssieben WITH wndclssieben .style = WS_OVERLAPPED .lpfnWndProc = CAST(WNDPROC, @WNDPROCSIEBEN) .cbclsextra = 0 .cbWndextra = 0 .hInstance = getModulehandle(NULL) .hcursor = Loadcursor(NULL, IDC_ARROW) .hIcon = LoadIcon(NULL, IDI_APPLICATION) .hbrbackground = getSyscolorbrush(COLOR_WINDOW) .lpszclassName = STRPTR(Sprachausgaben(229)) .lpszMenuName = NULL END WITH Registerclass @wndclssieben DIM AS hWNd hWnd = createWindow(_ Sprachausgaben(229), Sprachausgaben(229), WS_CAPTION,_ cW_USEDEFAULT, cW_USEDEFAULT, 222, 90,_ NULL, NULL, getModulehandle(NULL), NULL) SCREENINFO w, h, , , , , SetWindowPos hWnd, hWNd_TOP, (w/2)+352, (h/2)+180, 222, 90, NULL SetforegroundWindow hWnd ShowWindow hWnd, SW_NORMAL UpdateWindow hWnd DIM AS MSG msg DO WHILE getmessage(@msg, NULL, 0, 0) <> 0 dispatchMessage @msg LOOP END SUB FUNCTION WNDPROC(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT STATIC AS HWND hFide, hNwz, hZufall, hAbc STATIC AS HWND hbitmap1, hbitmap2, hbitmap3, hbitmap4 ' STATIC AS HWND hfoo, hbar, hfrage SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE hbitmap1 = LoadImage (getModulehandle (NULL), "FIDE.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap2 = LoadImage (getModulehandle (NULL), "NWZ.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap3 = LoadImage (getModulehandle (NULL), "Zufall.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap4 = LoadImage (getModulehandle (NULL), "ABC.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hFide = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 35, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hFide, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap1) hNwz = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 87, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hNwz, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap2) hZufall = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 139, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hZufall, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap3) hAbc = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 187, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hAbc, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap4) RETURN 0 CASE WM_COMMAND IF HIWORD(wParam) <> BN_CLICKED THEN RETURN 0 SELECT CASE lParam CASE hFide sortierung = 1 sortstartrank = 1 SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hNwz sortierung = 2 sortstartrank = 2 SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hZufall sortierung = 3 sortstartrank = 3 SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hAbc sortierung = 4 sortstartrank = 4 SendMessage(hWnd, WM_CLOSE, 0, 0) END SELECT END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCZWEI(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT STATIC AS HWND hStandard, hRapid, hBlitz, hNwz STATIC AS HWND hbitmap5, hbitmap6, hbitmap7, hbitmap8 ' STATIC AS HWND hfoo, hbar, hfrage SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE hbitmap5 = LoadImage (getModulehandle (NULL), "Standard.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap6 = LoadImage (getModulehandle (NULL), "Rapid.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap7 = LoadImage (getModulehandle (NULL), "Blitz.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap8 = LoadImage (getModulehandle (NULL), "NWZ.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hStandard = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 35, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hStandard, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap5) hRapid = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 87, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hRapid, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap6) hBlitz = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 139, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hBlitz, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap7) hNwz = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 187, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hNwz, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap8) RETURN 0 CASE WM_COMMAND IF HIWORD(wParam) <> BN_CLICKED THEN RETURN 0 SELECT CASE lParam CASE hStandard PfadElo = "standard_rating_list.txt" Einleseart = 0 Wertungszahl(2) = 1 ' Wertungszahl(0) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hRapid PfadElo = "rapid_rating_list.txt" Einleseart = 1 Wertungszahl(2) = 3 ' Wertungszahl(3) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hBlitz PfadElo = "blitz_rating_list.txt" Einleseart = 2 Wertungszahl(2) = 4 ' Wertungszahl(4) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hNWZ PfadNwz = "DWZ.LISTE" Einleseart = 3 Wertungszahl(2) = 2 ' Wertungszahl(1) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) '/ END SELECT END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCDREI(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' DIM AS HWND hWnd = GetParent(hWnd) ' GetParent(hWnd) STATIC AS HWND Listbox DIM AS INTEGER Position SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE Listbox = CreateWindow("listbox", "",_ WS_BORDER Or WS_CHILD Or WS_VISIBLE Or LBS_NOTIFY Or _ WS_VSCROLL Or LBS_SORT,_ 15, 30, 300, 222, hWnd, Cast(HMENU, IDC_LISTBOX),_ NULL,NULL) LISTBOXSTARTGEBUEHR(Listbox, message, (LBN_SELCHANGE Shl 16) + IDC_LISTBOX, lParam) RETURN 0 CASE WM_COMMAND LISTBOXSTARTGEBUEHR(Listbox, message, wParam, lParam) RETURN 0 END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCVIER(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT STATIC AS HWND hStandard, hRapid, hBlitz, hNwz STATIC AS HWND hbitmap5, hbitmap6, hbitmap7, hbitmap8 ' STATIC AS HWND hfoo, hbar, hfrage SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE hbitmap5 = LoadImage (getModulehandle (NULL), "Standard.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap6 = LoadImage (getModulehandle (NULL), "Rapid.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap7 = LoadImage (getModulehandle (NULL), "Blitz.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap8 = LoadImage (getModulehandle (NULL), "NWZ.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hStandard = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 35, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hStandard, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap5) hRapid = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 87, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hRapid, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap6) hBlitz = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 139, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hBlitz, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap7) hNwz = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 187, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hNwz, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap8) RETURN 0 CASE WM_COMMAND IF HIWORD(wParam) <> BN_CLICKED THEN RETURN 0 SELECT CASE lParam CASE hStandard Einleseart = 0 Wertungszahl(2) = 0 Wertungszahl(0) = TRUE Wertungszahl(3) = FALSE Wertungszahl(4) = FALSE Wertungszahl(1) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hRapid Einleseart = 1 Wertungszahl(2) = 0 Wertungszahl(0) = FALSE Wertungszahl(3) = TRUE Wertungszahl(4) = FALSE Wertungszahl(1) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hBlitz Einleseart = 2 Wertungszahl(2) = 0 Wertungszahl(0) = FALSE Wertungszahl(3) = FALSE Wertungszahl(4) = TRUE Wertungszahl(1) = FALSE SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hNWZ Einleseart = 3 Wertungszahl(2) = 0 Wertungszahl(0) = FALSE Wertungszahl(3) = FALSE Wertungszahl(4) = FALSE Wertungszahl(1) = TRUE SendMessage(hWnd, WM_CLOSE, 0, 0) END SELECT END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCSECHS(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT STATIC AS HWND hWhite, hBlack STATIC AS HWND hbitmap1, hbitmap2 ' STATIC AS HWND hfoo, hbar, hfrage SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE hbitmap1 = LoadImage (getModulehandle (NULL), "wSpringer.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap2 = LoadImage (getModulehandle (NULL), "sSpringer.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hWhite = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 55, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hWhite, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap1) hBlack = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 107, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hBlack, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap2) RETURN 0 CASE WM_COMMAND IF HIWORD(wParam) <> BN_CLICKED THEN RETURN 0 SELECT CASE lParam CASE hWhite IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 0 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 1 NEXT END IF SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hBlack IF Paarungssystem = 9 AND Runde < RAZ THEN FOR j = Runde+1 TO RAZ fehlendeSpieler(paarungen(Brett,1,Runde), j) = 1 fehlendeSpieler(paarungen(Brett,2,Runde), j) = 0 NEXT END IF SendMessage(hWnd, WM_CLOSE, 0, 0) END SELECT END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCSIEBEN(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT STATIC AS HWND hWhite, hBlack, hZufall STATIC AS HWND hbitmap1, hbitmap2, hbitmap3 ' STATIC AS HWND hfoo, hbar, hfrage SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE hbitmap1 = LoadImage (getModulehandle (NULL), "wSpringer.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap2 = LoadImage (getModulehandle (NULL), "sSpringer.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hbitmap3 = LoadImage (getModulehandle (NULL), "Zufall.bmp",_ IMAGE_BITMAP,0, 0,LR_DEFAULTCOLOR OR LR_LOADFROMFILE) hWhite = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 35, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hWhite, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap1) hBlack = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 87, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hBlack, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap2) hZufall = createWindow("button", NULL,_ WS_CHILD OR WS_VISIBLE OR bS_PUSHBUTTON OR bS_BITMAP,_ 139, 5, 42, 42, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) SendMessage hZufall, BM_SETIMAGE, IMAGE_BITMAP, CAST(lParam,hbitmap3) RETURN 0 CASE WM_COMMAND IF HIWORD(wParam) <> BN_CLICKED THEN RETURN 0 SELECT CASE lParam CASE hWhite z = 1 SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hBlack z = 2 SendMessage(hWnd, WM_CLOSE, 0, 0) CASE hZufall z = INT(RND * 2) + 1 SendMessage(hWnd, WM_CLOSE, 0, 0) END SELECT END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCFUENF(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' GetParent(hWnd) STATIC AS HWND Listbox DIM AS INTEGER Position Dim As HDC hdc Dim As PAINTSTRUCT ps SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE ' Original = 15, 30, 300, 222 /' Listbox = CreateWindow("listbox", "",_ WS_BORDER Or WS_CHILD Or WS_VISIBLE Or LBS_NOTIFY Or _ WS_VSCROLL Or LBS_SORT,_ 235, 30, 150, 122, hWnd, NULL,_ CAST(LPCREATESTRUCT,lParam)->hInstance,NULL) '/ Listbox = CreateWindow("listbox", "",_ WS_BORDER Or WS_CHILD Or WS_VISIBLE Or LBS_NOTIFY Or _ WS_VSCROLL Or LBS_SORT,_ 15, 30, 300, 222, hWnd, Cast(HMENU, IDC_LISTBOX_EXAMPLE),_ NULL,NULL) LISTBOXRATINGLIST(Listbox, message, (LBN_SELCHANGE Shl 16) + IDC_LISTBOX_EXAMPLE, lParam) RETURN 0 CASE WM_COMMAND LISTBOXRATINGLIST(Listbox, message, wParam, lParam) Return 0 END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCNEUN(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' GetParent(hWnd) ' STATIC AS HWND Listbox ' DIM AS INTEGER Position ' Dim As HDC hdc ' Dim As PAINTSTRUCT ps STATIC As HWND hDialog, hEditPass, hBtnPass ' Dim As MSG msg ' Dim As String result = "" ' Dim As Integer finished = 0 SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE ' 2. Das Passwort-Eingabefeld (ID: 101) hEditPass = CreateWindowEx(WS_EX_CLIENTEDGE, "EDIT", "", _ WS_CHILD Or WS_VISIBLE Or ES_PASSWORD Or ES_AUTOHSCROLL, _ 20, 20, 200, 25, hWnd, Cast(HMENU, 101), NULL, NULL) ' 3. Der OK-Button (ID: 102) hBtnPass = CreateWindowEx(0, "BUTTON", "OK", _ WS_CHILD Or WS_VISIBLE Or BS_DEFPUSHBUTTON, _ 80, 65, 80, 30, hWnd, Cast(HMENU, 102), NULL, NULL) ' Fokus direkt auf das Eingabefeld setzen SetFocus(hEditPass) RETURN 0 CASE WM_COMMAND SELECT CASE LOWORD(wParam) CASE 102 ' Die ID des OK-Buttons DIM AS INTEGER Lenge = GetWindowTextLength(hEditPass) DIM AS ZSTRING * 255 passwort IF Lenge > 0 THEN GetWindowText(hEditPass, @passwort, 255) pass = passwort ' Print "Eingegebenes Passwort: "; passwort ' Testweise Konsole ' Hier dein Passwort-Check: ' IF passwort = "MeinGeheimnis" THEN ... END IF ' Fenster schließen nach Klick PostMessage(hWnd, WM_CLOSE, 0, 0) END SELECT Return 0 END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCZEHN(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' GetParent(hWnd) ' STATIC AS HWND Listbox ' DIM AS INTEGER Position ' Dim As HDC hdc ' Dim As PAINTSTRUCT ps STATIC As HWND hDialog, hEditServer, hBtnServer ' Dim As MSG msg ' Dim As String result = "" ' Dim As Integer finished = 0 SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE ' 2. Das Server-Eingabefeld hEditServer = CreateWindowEx(WS_EX_CLIENTEDGE, "EDIT", "", _ WS_CHILD Or WS_VISIBLE Or ES_AUTOHSCROLL, _ 20, 20, 200, 25, hWnd, Cast(HMENU, 201), NULL, NULL) ' 3. Der OK-Button hBtnServer = CreateWindowEx(0, "BUTTON", "OK", _ WS_CHILD Or WS_VISIBLE Or BS_DEFPUSHBUTTON, _ 80, 65, 80, 30, hWnd, Cast(HMENU, 202), NULL, NULL) ' Fokus direkt auf das Eingabefeld setzen SetFocus(hEditServer) RETURN 0 CASE WM_COMMAND SELECT CASE LOWORD(wParam) CASE 202 ' Die ID des OK-Buttons DIM AS INTEGER Lenge = GetWindowTextLength(hEditServer) DIM AS ZSTRING * 255 servername IF Lenge > 0 THEN GetWindowText(hEditServer, @servername, 255) server = servername ' Print "Eingegebenes Passwort: "; passwort ' Testweise Konsole ' Hier dein Passwort-Check: ' IF passwort = "MeinGeheimnis" THEN ... END IF ' Fenster schließen nach Klick PostMessage(hWnd, WM_CLOSE, 0, 0) END SELECT Return 0 END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCELF(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' GetParent(hWnd) ' STATIC AS HWND Listbox ' DIM AS INTEGER Position ' Dim As HDC hdc ' Dim As PAINTSTRUCT ps STATIC As HWND hDialog, hEditAdresse, hBtnAdresse ' Dim As MSG msg ' Dim As String result = "" ' Dim As Integer finished = 0 SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE ' 2. Das Server-Eingabefeld hEditAdresse = CreateWindowEx(WS_EX_CLIENTEDGE, "EDIT", "", _ WS_CHILD Or WS_VISIBLE Or ES_AUTOHSCROLL, _ 20, 20, 200, 25, hWnd, Cast(HMENU, 301), NULL, NULL) ' 3. Der OK-Button hBtnAdresse = CreateWindowEx(0, "BUTTON", "OK", _ WS_CHILD Or WS_VISIBLE Or BS_DEFPUSHBUTTON, _ 80, 65, 80, 30, hWnd, Cast(HMENU, 302), NULL, NULL) ' Fokus direkt auf das Eingabefeld setzen SetFocus(hEditAdresse) RETURN 0 CASE WM_COMMAND SELECT CASE LOWORD(wParam) CASE 302 ' Die ID des OK-Buttons DIM AS INTEGER Lenge = GetWindowTextLength(hEditAdresse) DIM AS ZSTRING * 255 adresse IF Lenge > 0 THEN GetWindowText(hEditAdresse, @adresse, 255) nutzer = adresse ' Print "Eingegebenes Passwort: "; passwort ' Testweise Konsole ' Hier dein Passwort-Check: ' IF passwort = "MeinGeheimnis" THEN ... END IF ' Fenster schließen nach Klick PostMessage(hWnd, WM_CLOSE, 0, 0) END SELECT Return 0 END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION FUNCTION WNDPROCZWOELF(BYVAL hWnd AS hWND, BYVAL message AS UINTEGER,_ BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT ' GetParent(hWnd) ' STATIC AS HWND Listbox ' DIM AS INTEGER Position ' Dim As HDC hdc ' Dim As PAINTSTRUCT ps STATIC As HWND hDialog, hEditPort, hBtnPort ' Dim As MSG msg ' Dim As String result = "" ' Dim As Integer finished = 0 SELECT CASE message CASE WM_DESTROY PostQuitMessage 0 RETURN 0 CASE WM_CREATE ' 2. Das Server-Eingabefeld hEditPort = CreateWindowEx(WS_EX_CLIENTEDGE, "EDIT", "", _ WS_CHILD Or WS_VISIBLE Or ES_AUTOHSCROLL, _ 20, 20, 200, 25, hWnd, Cast(HMENU, 401), NULL, NULL) ' 3. Der OK-Button hBtnPort = CreateWindowEx(0, "BUTTON", "OK", _ WS_CHILD Or WS_VISIBLE Or BS_DEFPUSHBUTTON, _ 80, 65, 80, 30, hWnd, Cast(HMENU, 402), NULL, NULL) ' Fokus direkt auf das Eingabefeld setzen SetFocus(hEditPort) RETURN 0 CASE WM_COMMAND SELECT CASE LOWORD(wParam) CASE 402 ' Die ID des OK-Buttons DIM AS INTEGER Lenge = GetWindowTextLength(hEditPort) DIM AS ZSTRING * 255 portadresse IF Lenge > 0 THEN GetWindowText(hEditPort, @portadresse, 255) port = portadresse ' Print "Eingegebenes Passwort: "; passwort ' Testweise Konsole ' Hier dein Passwort-Check: ' IF passwort = "MeinGeheimnis" THEN ... END IF ' Fenster schließen nach Klick PostMessage(hWnd, WM_CLOSE, 0, 0) END SELECT Return 0 END SELECT RETURN defWindowProc( hWnd, message, wParam, lParam ) END FUNCTION /' Function WNDPROCACHT(hWnd As HWND, message As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULT Static hDatePicker As HWND Select Case message Case WM_CREATE Case WM_CREATE FENSTERDATUM ' DateTimePicker-Control erstellen ' hDatePicker = CreateWindow(DATETIMEPICK_CLASS, "", WS_CHILD Or WS_VISIBLE Or DTS_SHORTDATEFORMAT, _ 50, 50, 180, 25, hWnd, Cast(HMENU, IDC_DATEPICKER), hInstance, NULL) ' Case WM_COMMAND ' Wenn du auf Datumsauswahl reagieren möchtest, hier abfragen Case WM_DESTROY PostQuitMessage(0) Return 0 End Select Return DefWindowProc(hWnd, message, wParam, lParam) End FUNCTION '/ ' FUNCTION LISTBOXRATINGLIST(hDlg AS HWND, message AS UINTEGER, wParam As WPARAM, lParam As LPARAM) AS INTEGER DIM AS HWND hWnd = GetParent(hDlg) DIM AS Integer Position, lbItem Dim As ZString*MAX_PATH buff Dim As HDC hdc Dim As PAINTSTRUCT ps ' LOCATE 5,5: PRINT "eingeleseneDaten: "; eingeleseneDaten ' Dim As RECT tr1 = Type<RECT>(100,200,200,500) ' Dim As RECT tr2 = Type<RECT>(205,430,400,450) Dim As RECT tr1 = Type<RECT>(100,200,200,500), _ tr2 = Type<RECT>(205,10,400,30) SELECT CASE message CASE WM_INITDIALOG, WM_CREATE /' FOR j = 1 To TAZ ' Spieler IF Paarungssystem < 5 OR Paarungssystem = 8 THEN OemToChar Spieler(j), Spieler(j) IF Startgebuehr(j) = 0 THEN Position = SendMessage(hDlg, LB_ADDSTRING, 0, Cast(lParam, STRPTR(Spieler(j)))) SendMessage(hDlg, LB_SETITEMDATA, position, Cast(lParam,j)) END IF CharToOem Spieler(j), Spieler(j) END IF ' Mannschaften IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN OemToChar Team(j), Team(j) IF Startgebuehr(j) = 0 THEN Position = SendMessage(hDlg, LB_ADDSTRING, 0, Cast(lParam, STRPTR(Team(j)))) SendMessage(hDlg, LB_SETITEMDATA, position, Cast(lParam,j)) END IF CharToOem Team(j), Team(j) END IF NEXT '/ ' ' IF i < 2 THEN FOR j = 1 TO (eingeleseneDaten-1) Position = SendMessage(hDlg, LB_ADDSTRING, 0, Cast(lParam, STRPTR(Daten(j, 2)))) SendMessage(hDlg, LB_SETITEMDATA, position, Cast(lParam,j)) NEXT ' END IF '/ SetFocus(hDlg) RETURN TRUE ' CASE WM_COMMAND Select Case LoWord(wParam) Case IDOK Case IDCANCEL EndDialog(hDlg, LoWord(wParam)) Return TRUE Case IDC_LISTBOX_EXAMPLE Select Case HiWord(wParam) /' Case LBN_SELCHANGE 'Get selected index lbItem = SendMessage(hDlg, LB_GETCURSEL, 0, 0) j = SendMessage(hDlg, LB_GETITEMDATA, lbItem, 0) 'Do something With the Data from Roster(i) InvalidateRect(hWnd, @tr1, TRUE) InvalidateRect(hWnd, @tr2, TRUE) hdc = BeginPaint(hWnd, @ps) buff = Spieler(j) DrawText(hdc, @buff,Len(buff),@tr2, DT_LEFT) EndPaint(hWnd, @ps) Return TRUE '/ CASE LBN_DBLCLK i = TAZ+1 ANZEIGE(TAZ+1) ' Get selected index lbItem = SendMessage(hDlg, LB_GETCURSEL, 0, 0) j = SendMessage(hDlg, LB_GETITEMDATA, lbItem, 0) Spieler(i) = Daten(j, 2) ELO(i) = VAL(Daten(j, 9)) Nation(i) = Daten(j, 3) Geschlecht(i) = Daten(j, 4) Titel(i) = Daten(j, 5) Geburt(i) = Daten(j, 12) FIDEID(i) = Daten(j, 1) k = 1 TAZ = 0 IF ausgelosteRunde(1) = 1 THEN FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR fehlendeSpieler(i, j) = 1 NEXT END IF DO IF Spieler(k) = "" THEN EXIT DO TAZ += 1 k += 1 LOOP ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(TAZ) ' Berechnung der Länge vom Scrollbalken, Anzeige des Scrollbalken IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153: Scrollbalkenposition(1) = 325 IF TAZ < 2 THEN zzz = 325: Y = 153: Scrollbalkenposition(1) = 325 j = 153 laenge = (z - j) IF laenge < 4 THEN laenge = 4 ' Scrollbar anzeigen SCREENLOCK LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1)-laenge, 1013, Scrollbalkenposition(1), Hintergrundfarbe ' Feld für Scrollbar SCREENUNLOCK RETURN TRUE End Select End Select Return TRUE END SELECT RETURN FALSE END FUNCTION '/ FUNCTION LISTBOXSTARTGEBUEHR(hDlg AS HWND, message AS UINTEGER, wParam As WPARAM, lParam As LPARAM) AS INTEGER DIM AS HWND hWnd = GetParent(hDlg) DIM AS Integer Position, lbItem SELECT CASE message CASE WM_INITDIALOG, WM_CREATE FOR j = 1 To TAZ ' Spieler IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN OemToChar Spieler(j), Spieler(j) IF Startgebuehr(j) = 0 THEN Position = SendMessage(hDlg, LB_ADDSTRING, 0, Cast(lParam, STRPTR(Spieler(j)))) SendMessage(hDlg, LB_SETITEMDATA, position, Cast(lParam,j)) END IF CharToOem Spieler(j), Spieler(j) END IF ' Mannschaften IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN OemToChar Team(j), Team(j) IF Startgebuehr(j) = 0 THEN Position = SendMessage(hDlg, LB_ADDSTRING, 0, Cast(lParam, STRPTR(Team(j)))) SendMessage(hDlg, LB_SETITEMDATA, position, Cast(lParam,j)) END IF CharToOem Team(j), Team(j) END IF NEXT SetFocus(hDlg) RETURN TRUE CASE WM_COMMAND Select Case LoWord(wParam) Case IDOK Case IDCANCEL EndDialog(hDlg, LoWord(wParam)) Return TRUE Case IDC_LISTBOX Select Case HiWord(wParam) CASE LBN_DBLCLK ' Get selected index lbItem = SendMessage(hDlg, LB_GETCURSEL, 0, 0) i = SendMessage(hDlg, LB_GETITEMDATA, lbItem, 0) ' Teilnehmer anzeigen IF TAZ > 0 THEN ANZEIGE(i) ' Scrollbalken anzeigen IF laenge > 4 THEN Scrollbalkenposition(1) = ((TAZ+24)*153+325*(i-1)-153*(i-1))/(TAZ+24) IF laenge <= 4 THEN Scrollbalkenposition(1) = ((TAZ*153+321*i-153*i)/TAZ) IF TAZ > 1 THEN SCROLLBALKEN RETURN TRUE END SELECT END SELECT END SELECT RETURN FALSE END FUNCTION SUB HTML(l AS INTEGER) DIM AS INTEGER TempErgebnisse(0 TO 81, -161 TO 161) DIM AS INTEGER f = FREEFILE ' Tabelle für HTML-Datei aufrufen IF l = 3 OR l = 5 THEN TABELLE(0) END IF IF l = 4 THEN TABELLE(0) ' 2 ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ Temp(j, 20) = "" ' Teams!!! Temp(j, 14) = "" Temp(j, 15) = "" IF l = 1 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Temp(j, 14) = Spieler(j) IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Temp(j, 15) = Verein(j) IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN OemToChar Spieler(j), Temp(j, 14) IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN OemToChar Verein(j), Temp(j, 15) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Temp(j, 20) = Team(j): OemToChar Team(j), Temp(j, 20) END IF IF l = 3 OR l = 4 OR l = 5 THEN Temp(j, 14) = Temp(j, 1) Temp(j, 15) = Temp(j, 5) OemToChar Temp(j, 1), Temp(j, 14) OemToChar Temp(j, 5), Temp(j, 15) END IF NEXT IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF l = 1 THEN FOR j = 1 TO TAZ*50 Temp(j, 14) = "" Temp(j, 14) = Spieler(j) OemToChar Spieler(j), Temp(j, 14) NEXT END IF END IF /' Teilnehmer IF l = 1 THEN OPEN TRIM(DateiName, ".STOP") + "-Teilnehmer.html" FOR OUTPUT AS #f PRINT #f, "<html>" PRINT #f, "<head>" PRINT #f, "<title>Teilnehmer</title>" PRINT #f, "</head>" PRINT #f, "<body>" PRINT #f, "<h1>Paarungstafel Rundenturnier</h1>" PRINT #f, "<p>Teilnehmer: " & TAZ & "; Runden: " & RAZ & "</p>" PRINT #f, "<table>" FOR k = 1 TO RAZ PRINT #f, "<td>Runde " & k & ":</td>" FOR j = 1 TO ppr(runde) PRINT #f, "<tr>" PRINT #f, "<td> " & Spieler(paarungen(j,1,k)) & "-" & Spieler(paarungen(j,2,k)) & " "& Punkte(paarungen(j,1,k),k) & "-" & Punkte(paarungen(j,2,k),k) PRINT #f, "</tr>" NEXT PRINT #f, "<tr>" PRINT #f, "<td>__________________________________________________________________________________</td>" PRINT #f, "</tr>" NEXT PRINT #f, "</table>" PRINT #f, "</body>" PRINT #f, "</html>" CLOSE #f END IF '/ ' Teilnehmer IF l = 1 THEN ' Einzelturniere IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN OPEN TRIM(DateiName, ".STOP") + "-Teilnehmer.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<HTML>" PRINT #f, "<HEAD>" PRINT #f, "<TITLE>" & Sprachausgaben(182) & "</TITLE>" PRINT #f, "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" PRINT #f, "" PRINT #f, "" PRINT #f, "</HEAD>" PRINT #f, "" PRINT #f, "<BODY>" PRINT #f, "" PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"" >" PRINT #f, "" PRINT #f, "<COLGROUP>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=186>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=33>" PRINT #f, "<COL WIDTH=13>" PRINT #f, "<COL WIDTH=166>" PRINT #f, "<COL WIDTH=46>" PRINT #f, "</COLGROUP>" PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""8"">" & Sprachausgaben(183) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(184) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(200) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(12) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(185) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(186) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(187) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(71) & "</TH>" PRINT #f, "</TR>" PRINT #f, "" FOR j = VAL(Tmp(1)) TO VAL(Tmp(2)) PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD ALIGN=""RIGHT"">" & j & "." & "</TD>" PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(j, 14) & "</TD>" ' SPIELER PRINT #f, "<TD ALIGN=""RIGHT"">" & Titel(j) & "</TD>" ' TITEL IF ELO(j) <> 0 THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & ELO(j) & "</TD>" ' ELO IF ELO(j) = 0 THEN PRINT #f, "<TD ALIGN=""RIGHT""> </TD>" ' ELO PRINT #f, "<TD ALIGN=""RIGHT"">" & DWZ(j) & "</TD>" ' DWZ PRINT #f, "<TD ALIGN=""RIGHT""> </TD>" PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(j, 15) & "</TD>" ' Verein PRINT #f, "<TD ALIGN=""RIGHT"">" & Geburt(j) & "</TD>" ' Geburt PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" PRINT #f, "" PRINT #f, "</BODY>" PRINT #f, "</HTML>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF ' Mannschaften IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN OemToChar Sprachausgaben(8), Sprachausgaben(8) OemToChar Sprachausgaben(14), Sprachausgaben(14) OemToChar Sprachausgaben(71), Sprachausgaben(71) OemToChar Sprachausgaben(100), Sprachausgaben(100) OemToChar Sprachausgaben(137), Sprachausgaben(137) OPEN TRIM(DateiName, ".STOP") + "-Teilnehmer.html" FOR OUTPUT ENCODING "UTF-8" AS #f ' PRINT #f, "<H2>" & Sprachausgaben(188) & "</H2>" ' IF Sprache <> 5 THEN PRINT #f, "<H3> " & RAZ & " " & Sprachausgaben(82) & " </H3>" ' IF Sprache = 5 THEN PRINT #f, "<H3> " & Sprachausgaben(82) & " = " & RAZ & " </H3>" PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"">" PRINT #f, "<TR >" PRINT #f, "<TD COLSPAN=""11"">" & Sprachausgaben(189) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(190) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(191) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(192) & "</TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(137) & "</TH>" ' Brett PRINT #f, "<TH>" & Sprachausgaben(193) & "</TH>" ' TlnKen PRINT #f, "<TH>" & Sprachausgaben(199) & "</TH>" ' Teilnehmer PRINT #f, "<TH>" & Sprachausgaben(200) & "</TH>" ' Titel PRINT #f, "<TH>" & Sprachausgaben(12) & "</TH>" ' ELO PRINT #f, "<TH>" & Sprachausgaben(13) & "</TH>" ' NWZ PRINT #f, "<TH>" & Sprachausgaben(194) & "</TH>" ' Attr PRINT #f, "<TH>" & Sprachausgaben(100) & "</TH>" ' Land PRINT #f, "<TH>" & Sprachausgaben(71) & "</TH>" ' Geburtsdatum PRINT #f, "<TH>" & Sprachausgaben(70) & "</TH>" ' FIDE-ID PRINT #f, "<TH>" & Sprachausgaben(101) & "</TH>" ' PKZ (Personal ID) PRINT #f, "</TR>" PRINT #f, "" FOR j = VAL(Tmp(1)) TO VAL(Tmp(2)) PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TH>" & j & "</TH>" PRINT #f, "<TH>" & j & "." & "</TH>" PRINT #f, "<TH>" & Temp(j, 20) & "</TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "<TH> </TH>" PRINT #f, "</TR>" PRINT #f, "" FOR k = 1 TO 50 IF Spieler((j-1)*50+k) = "" THEN EXIT FOR PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD>" & k & "</TD>" PRINT #f, "<TD>" & ((j-1)*50+k) & "</TD>" PRINT #f, "<TD>" & Temp(((j-1)*50+k),14) & "</TD>" PRINT #f, "<TD>" & Titel((j-1)*50+k) & "</TD>" IF ELO((j-1)*50+k) <> 0 THEN PRINT #f, "<TD>" & ELO((j-1)*50+k) & "</TD>" IF ELO((j-1)*50+k) = 0 THEN PRINT #f, "<TD> </TD>" IF DWZ((j-1)*50+k) <> 0 THEN PRINT #f, "<TD>" & DWZ((j-1)*50+k) & "</TD>" IF DWZ((j-1)*50+k) = 0 THEN PRINT #f, "<TD> </TD>" PRINT #f, "<TD> </TD>" PRINT #f, "<TD>" & Nation((j-1)*50+k) & "</TD>" PRINT #f, "<TD>" & Geburt((j-1)*50+k) & "</TD>" PRINT #f, "<TD>" & FIDEID((j-1)*50+k) & "</TD>" PRINT #f, "<TD>" & PKZ((j-1)*50+k) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" NEXT IF j > TAZ-1 THEN EXIT FOR PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""11""> </TD>" PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) CharToOem Sprachausgaben(8), Sprachausgaben(8) CharToOem Sprachausgaben(14), Sprachausgaben(14) CharToOem Sprachausgaben(71), Sprachausgaben(71) CharToOem Sprachausgaben(100), Sprachausgaben(100) CharToOem Sprachausgaben(137), Sprachausgaben(137) END IF END IF ' Ergebnisse IF l = 2 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN OPEN TRIM(DateiName, ".STOP") + "-Ergebnisse.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<HTML>" PRINT #f, "<HEAD>" PRINT #f, "<TITLE>" & Sprachausgaben(182) & "</TITLE>" PRINT #f, "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" PRINT #f, "" PRINT #f, "" PRINT #f, "</HEAD>" PRINT #f, "" PRINT #f, "<BODY>" PRINT #f, "" PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"" >" PRINT #f, "" PRINT #f, "<COLGROUP>" PRINT #f, "<COL WIDTH=33>" PRINT #f, "<COL WIDTH=23>" PRINT #f, "<COL WIDTH=136>" ' 106 PRINT #f, "<COL WIDTH=30>" PRINT #f, "<COL WIDTH=43>" PRINT #f, "<COL WIDTH=10>" PRINT #f, "<COL WIDTH=23>" PRINT #f, "<COL WIDTH=136>" ' 106 PRINT #f, "<COL WIDTH=30>" PRINT #f, "<COL WIDTH=43>" PRINT #f, "<COL WIDTH=53>" PRINT #f, "<COL WIDTH=16>" PRINT #f, "</COLGROUP>" PRINT #f, "" FOR k = VAL(Tmp(3)) TO VAL(Tmp(4)) PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">" & Sprachausgaben(195) & " " & k & " " & Sprachausgaben(196) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH ALIGN=""CENTER"">" & Sprachausgaben(197) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(198) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(200) & "</TH>" PRINT #f, "<TH ALIGN=""CENTER"">" & Sprachausgaben(157) & "</TH>" PRINT #f, "<TH ALIGN=""CENTER"">-</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(198) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(200) & "</TH>" PRINT #f, "<TH ALIGN=""CENTER"">" & Sprachausgaben(157) & "</TH>" PRINT #f, "<TH ALIGN=""CENTER"">" & Sprachausgaben(223) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(186) & "</TH>" PRINT #f, "</TR>" FOR j = 1 TO ppr(k) ' Punkte errechnen FOR e = 1 TO TAZ Gesamtpunkte(e) = 0 FOR t = 1 TO k IF Punkte(e,t-1) <> 2000 AND Punkte(e,t-1) <> 0 THEN Gesamtpunkte(e) += Punkte(e,t-1) NEXT NEXT Temp(paarungen(j,1,k), 14) = Spieler(paarungen(j,1,k)) Temp(paarungen(j,2,k), 15) = Spieler(paarungen(j,2,k)) OemToChar Spieler(paarungen(j,1,k)), Temp(paarungen(j,1,k), 14) OemToChar Spieler(paarungen(j,2,k)), Temp(paarungen(j,2,k), 15) PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD ALIGN=""CENTER"">" & j & "</TD>" PRINT #f, "<TD ALIGN=""RIGHT"">" & paarungen(j,1,k) & "." & "</TD>" PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(paarungen(j,1,k), 14) & "</TD>" PRINT #f, "<TD ALIGN=""RIGHT"">" & Titel((paarungen(j,1,k))) & "</TD>" PRINT #f, "<TD ALIGN=""CENTER"">(" & Gesamtpunkte(paarungen(j,1,k)) &")</TD>" PRINT #f, "<TD ALIGN=""CENTER"">-</TD>" PRINT #f, "<TD ALIGN=""RIGHT"">" & paarungen(j,2,k) & "." & "</TD>" PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(paarungen(j,2,k), 15) & "</TD>" PRINT #f, "<TD ALIGN=""RIGHT"">" & Titel((paarungen(j,2,k))) & "</TD>" PRINT #f, "<TD ALIGN=""CENTER"">(" & Gesamtpunkte(paarungen(j,2,k)) &")</TD>" ' Schachmodus IF modus = 0 THEN IF kampflose(j, k) = 0 THEN IF Punkte(paarungen(j,1,k),k) < 2 AND Punkte(paarungen(j,2,k),k) < 2 THEN IF Punkte(paarungen(j,1,k),k) = 0.5 AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "½" & " - " & "½" & "</TD>" IF Punkte(paarungen(j,1,k),k) <> 0.5 AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & Punkte(paarungen(j,1,k),k) & " - " & Punkte(paarungen(j,2,k),k) & "</TD>" ELSE PRINT #f, "<TD ALIGN=""CENTER"">" & " - " & "</TD>" END IF END IF IF kampflose(j, k) = 1 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "+ - -" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0.5 AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "= - =" & Punkte(paarungen(j,2,k),k) & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "- - +" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "- - -" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0.5 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "= - -" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "- - =" & "</TD>" END IF END IF IF kampflose(j, k) = 2 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "W - L" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0.5 AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "D - D" & Punkte(paarungen(j,2,k),k) & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "L - W" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "L - L" & "</TD>" END IF END IF END IF ' Mühlemodus IF modus = 1 THEN IF kampflose(j, k) = 0 THEN IF Punkte(paarungen(j,1,k),k) < 3 AND Punkte(paarungen(j,2,k),k) < 3 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "1" & " - " & "1" & "</TD>" IF Punkte(paarungen(j,1,k),k) <> 1 AND Punkte(paarungen(j,2,k),k) <> 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & Punkte(paarungen(j,1,k),k) & " - " & Punkte(paarungen(j,2,k),k) & "</TD>" /' IF Punkte(paarungen(j,1,k),k) = 2 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "2" & " - " & "0" & "</TD>" IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "0" & " - " & "2" & "</TD>" IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "1" & " - " & "0" & "</TD>" IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "0" & " - " & "1" & "</TD>" IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "0" & " - " & "0" & "</TD>" '/ ELSE PRINT #f, "<TD ALIGN=""CENTER"">" & " - " & "</TD>" END IF END IF IF kampflose(j, k) = 1 THEN IF Punkte(paarungen(j,1,k),k) = 2 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "+ - -" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "= - =" & Punkte(paarungen(j,2,k),k) & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "- - +" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "- - -" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 2 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "= - -" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "- - =" & "</TD>" END IF END IF IF kampflose(j, k) = 2 THEN IF Punkte(paarungen(j,1,k),k) = 2 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "W - L" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "D - D" & Punkte(paarungen(j,2,k),k) & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "L - W" & "</TD>" END IF IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">" & "L - L" & "</TD>" END IF END IF END IF IF Punkte(paarungen(j,1,k),k) = 2000 AND Punkte(paarungen(j,2,k),k) = 2000 THEN PRINT #f, "<TD ALIGN=""CENTER""> </TD>" IF Punkte(paarungen(j,1,k),k) <> 2000 AND Punkte(paarungen(j,2,k),k) <> 2000 THEN PRINT #f, "<TD ALIGN=""RIGHT""> </TD>" PRINT #f, "</TR>" NEXT IF k >= RAZ THEN EXIT FOR PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">  </TD>" PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "" PRINT #f, "</TABLE>" PRINT #f, "" PRINT #f, "</BODY>" PRINT #f, "</HTML>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF ' Mannschaftspaarungen anzeigen IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN OPEN TRIM(DateiName, ".STOP") + "-Ergebnisse.html" FOR OUTPUT ENCODING "UTF-8" AS #f ' PRINT #f, "<H2>" & Sprachausgaben(188) & "</H2>" ' IF Sprache <> 5 THEN PRINT #f, "<H3> " & Sprachausgaben(82) & " = " & RAZ & " </H3>" ' IF Sprache = 5 THEN PRINT #f, "<H3> " & Sprachausgaben(82) & " = " & RAZ & " </H3>" PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"">" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">" & Sprachausgaben(195) & " " & VAL(Tmp(3)) & " " & Sprachausgaben(196) & "</TD" PRINT #f, "</TR>" PRINT #f, "" ' FOR r = VAL(Tmp(3)) TO VAL(Tmp(4)) PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(201) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(191) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(192) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(157) & "</TH>" PRINT #f, "<TH>-</TH>" PRINT #f, "<TH>" & Sprachausgaben(191) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(192) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(157) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(223) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(186) & "</TH>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(156) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(198) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH> </TH>" ' PRINT #f, "<TH>Punkte</TH>" PRINT #f, "<TH>-</TH>" PRINT #f, "<TH>" & Sprachausgaben(198) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH> </TH>" ' PRINT #f, "<TH>Punkte</TH>" PRINT #f, "<TH>" & Sprachausgaben(223) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(186) & "</TH>" PRINT #f, "</TR>" PRINT #f, "" FOR j = 1 TO ppr(r) ' Punkte errechnen FOR e = 1 TO TAZ Gesamtpunkte(e) = 0 FOR t = 1 TO r IF Punkte(e,t) <> 2000 AND Punkte(e,t) <> 0 AND Punkte(e,t) = 2 THEN Gesamtpunkte(e) += 2 ' (Punkte(e,t-1) + 1) IF Punkte(e,t) <> 2000 AND Punkte(e,t) <> 0 AND Punkte(e,t) = 1 THEN Gesamtpunkte(e) += 1 ' (Punkte(e,t-1) + 0.5) NEXT NEXT '/ PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TH>" & j & "</TH>" ' Brett PRINT #f, "<TH>" & paarungen(j,1,r) & ".</TH>" ' Spielernummer weiß OemToChar Team(paarungen(j,1,r)), Team(paarungen(j,1,r)) PRINT #f, "<TH>" & Team(paarungen(j,1,r)) & "</TH>" ' Verein weiß CharToOem Team(paarungen(j,1,r)), Team(paarungen(j,1,r)) IF r = 1 THEN PRINT #f, "<TH>()</TH>" ' Gesamtpunkte in Runde 1 = 0 IF r > 1 THEN PRINT #f, "<TD>" & "(" & Gesamtpunkte(paarungen(j,1,r)) & ")" & "</TD>" ' Gesamtpunkte ab Runde 2 PRINT #f, "<TH>-</TH>" PRINT #f, "<TH>" & paarungen(j,2,r) & ".</TH>" ' Spielernummer schwarz OemToChar Team(paarungen(j,2,r)), Team(paarungen(j,2,r)) PRINT #f, "<TH>" & Team(paarungen(j,2,r)) & "</TH>" ' Verein schwarz CharToOem Team(paarungen(j,2,r)), Team(paarungen(j,2,r)) IF r = 1 THEN PRINT #f, "<TH>()</TH>" ' Gesamtpunkte in Runde 1 = 0 IF r > 1 THEN PRINT #f, "<TD>" & "(" & Gesamtpunkte(paarungen(j,2,r)) & ")" & "</TD>" ' Gesamtpunkte ab Runde 2 IF Paarungen(j,2,r) <> 0 THEN PRINT #f, "<TH>" & Mannschaftspunkte(Paarungen(j,1,r), r) & " - " & Mannschaftspunkte(Paarungen(j,2,r), r) & "</TH>" IF Paarungen(j,2,r) = 0 THEN PRINT #f, "<TH>" & Bretter & " - 0" & "</TH>" IF Paarungen(j,2,r) <> 0 THEN PRINT #f, "<TH> </TH>" ' Attribut IF Paarungen(j,2,r) = 0 THEN PRINT #f, "<TH>k</TH>" PRINT #f, "</TR>" PRINT #f, "" ' IF Paarungen(j,2,r) <> 0 THEN FOR k = 1 TO Bretter ' Spieler((paarungen(j,1,Runde)*50-50) + Teamspieler(paarungen(j,1,r),k,r)) ' Spieler((paarungen(j,2,Runde)*50-50) + Teamspieler(paarungen(j,2,r),k,r)) IF Teamspieler(paarungen(j,1,r),k,r) AND Teamspieler(paarungen(j,2,r),k,r) <> 0 THEN PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD>" & k & "</TD>" PRINT #f, "<TD>" & Teamspieler(paarungen(j,1,r),k,r) & ".</TD>" OemToChar Spieler((paarungen(j,1,r)*50-50) + Teamspieler(paarungen(j,1,r),k,r)), Spieler((paarungen(j,1,r)*50-50) + Teamspieler(paarungen(j,1,r),k,r)) PRINT #f, "<TD>" & Spieler((paarungen(j,1,r)*50-50) + Teamspieler(paarungen(j,1,r),k,r)) & "</TD>" CharToOem Spieler((paarungen(j,1,r)*50-50) + Teamspieler(paarungen(j,1,r),k,r)), Spieler((paarungen(j,1,r)*50-50) + Teamspieler(paarungen(j,1,r),k,r)) PRINT #f, "<TD>()</TD>" PRINT #f, "<TD>-</TD>" PRINT #f, "<TD>" & Teamspieler(paarungen(j,2,r),k,r) & ".</TD>" OemToChar Spieler((paarungen(j,2,r)*50-50) + Teamspieler(paarungen(j,2,r),k,r)), Spieler((paarungen(j,2,r)*50-50) + Teamspieler(paarungen(j,2,r),k,r)) PRINT #f, "<TD>" & Spieler((paarungen(j,2,r)*50-50) + Teamspieler(paarungen(j,2,r),k,r)) & "</TD>" CharToOem Spieler((paarungen(j,2,r)*50-50) + Teamspieler(paarungen(j,2,r),k,r)), Spieler((paarungen(j,2,r)*50-50) + Teamspieler(paarungen(j,2,r),k,r)) PRINT #f, "<TD>()</TD>" IF modus = 0 THEN IF EinzelErgebnisse(j, k, r) = "1-0" THEN PRINT #f, "<TD> 1 - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "R-R" THEN PRINT #f, "<TD> ½ - ½ </TD>" IF EinzelErgebnisse(j, k, r) = "0-1" THEN PRINT #f, "<TD> 1 - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "R-0" THEN PRINT #f, "<TD> ½ - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "0-R" THEN PRINT #f, "<TD> 0 - ½ </TD>" IF EinzelErgebnisse(j, k, r) = "0-0" THEN PRINT #f, "<TD> 0 - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "+--" THEN PRINT #f, "<TD> + - - </TD>" IF EinzelErgebnisse(j, k, r) = "---" THEN PRINT #f, "<TD> - - - </TD>" IF EinzelErgebnisse(j, k, r) = "--+" THEN PRINT #f, "<TD> - - + </TD>" IF EinzelErgebnisse(j, k, r) = "W-L" THEN PRINT #f, "<TD> 1U - 0U </TD>" IF EinzelErgebnisse(j, k, r) = "D-D" THEN PRINT #f, "<TD> ½U - ½U </TD>" IF EinzelErgebnisse(j, k, r) = "L-W" THEN PRINT #f, "<TD> 0U - 1U </TD>" IF EinzelErgebnisse(j, k, r) = "" OR EinzelErgebnisse(j, k, r) = " " THEN PRINT #f, "<TD> </TD>" END IF IF modus = 1 THEN IF EinzelErgebnisse(j, k, r) = "2-0" THEN PRINT #f, "<TD> 1 - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "1-1" THEN PRINT #f, "<TD> ½ - ½ </TD>" IF EinzelErgebnisse(j, k, r) = "0-2" THEN PRINT #f, "<TD> 1 - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "1-0" THEN PRINT #f, "<TD> ½ - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "0-1" THEN PRINT #f, "<TD> 0 - ½ </TD>" IF EinzelErgebnisse(j, k, r) = "0-0" THEN PRINT #f, "<TD> 0 - 0 </TD>" IF EinzelErgebnisse(j, k, r) = "+--" THEN PRINT #f, "<TD> + - - </TD>" IF EinzelErgebnisse(j, k, r) = "---" THEN PRINT #f, "<TD> - - - </TD>" IF EinzelErgebnisse(j, k, r) = "--+" THEN PRINT #f, "<TD> - - + </TD>" IF EinzelErgebnisse(j, k, r) = "W-L" THEN PRINT #f, "<TD> 2U - 0U </TD>" IF EinzelErgebnisse(j, k, r) = "D-D" THEN PRINT #f, "<TD> 1U - 1U </TD>" IF EinzelErgebnisse(j, k, r) = "L-W" THEN PRINT #f, "<TD> 0U - 2U </TD>" IF EinzelErgebnisse(j, k, r) = " " THEN PRINT #f, "<TD> </TD>" END IF PRINT #f, "<TD> </TD>" PRINT #f, "</TR>" END IF NEXT END IF IF j < ppr(r) THEN PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">  </TD>" PRINT #f, "</TR>" END IF NEXT IF r < VAL(Tmp(4)) THEN PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">  </TD>" PRINT #f, "</TR>" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">  </TD>" PRINT #f, "</TR>" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">" & Sprachausgaben(195) & " " & r+1 & " " & Sprachausgaben(196) & "</TD" PRINT #f, "</TR>" PRINT #f, "" END IF NEXT CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF '/ ' ************************************************************************************************* /' Rangliste IF l = 3 THEN OPEN TRIM(DateiName, ".STOP") + ".html" FOR OUTPUT AS #f PRINT #f, "<html>" PRINT #f, "<head>" PRINT #f, "<title>Rangliste</title>" PRINT #f, "</head>" PRINT #f, "<body>" PRINT #f, "<h1>Schachturnierorganisationsprogramm by ALWIM</h1>" PRINT #f, "<h2>Rangliste Rundenturnier</h2>" PRINT #f, "<p>Rangliste: Stand nach Runde " & Runde & "</p>" PRINT #f, "<table>" FOR k = 1 TO Runde PRINT #f, "<td>Runde " & k & ":</td>" FOR j = 1 TO ppr(runde) PRINT #f, "<tr>" PRINT #f, "<td> " & Spieler(paarungen(j,1,k)) & "-" & Spieler(paarungen(j,2,k)) & " "& Punkte(paarungen(j,1,k),k) & "-" & Punkte(paarungen(j,2,k),k) PRINT #f, "</tr>" NEXT PRINT #f, "<tr>" PRINT #f, "<td>__________________________________________________________________________________</td>" PRINT #f, "</tr>" NEXT PRINT #f, "</table>" PRINT #f, "</body>" PRINT #f, "</html>" CLOSE #f END IF '/ ' Rangliste IF l = 3 THEN IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN OPEN TRIM(DateiName, ".STOP") + "-Rangliste.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<HTML>" PRINT #f, "<HEAD>" PRINT #f, "<TITLE>" & Sprachausgaben(182) & "</TITLE>" PRINT #f, "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" PRINT #f, "" PRINT #f, "" PRINT #f, "</HEAD>" PRINT #f, "" PRINT #f, "<BODY>" PRINT #f, "" PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"" >" PRINT #f, "" PRINT #f, "<COLGROUP>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=133>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=26>" PRINT #f, "<COL WIDTH=6>" PRINT #f, "<COL WIDTH=133>" PRINT #f, "<COL WIDTH=20>" PRINT #f, "<COL WIDTH=13>" PRINT #f, "<COL WIDTH=13>" PRINT #f, "<COL WIDTH=13>" PRINT #f, "<COL WIDTH=13>" PRINT #f, "<COL WIDTH=26>" IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 10 THEN PRINT #f, "<COL WIDTH=33>" IF Feinwertungssystem(2) > 1 AND Feinwertungssystem(2) < 10 THEN PRINT #f, "<COL WIDTH=40>" PRINT #f, "</COLGROUP>" PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""15"">" & Sprachausgaben(203) & " " & Runde & " " & Sprachausgaben(204) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(205) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(198) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(206) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(185) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">A</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(187) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(207) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(208) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(209) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(210) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(211) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(157) & "</TH>" ' IF Feinwertungssystem(1) < 1 OR Feinwertungssystem(1) > 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">  </TH>" IF Feinwertungssystem(1) = 2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(213) & "</TH>" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = 5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(215) & "</TH>" ' BuScr IF Feinwertungssystem(1) = 6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(216) & "</TH>" IF Feinwertungssystem(1) = 7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(217) & "</TH>" IF Feinwertungssystem(1) = 8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(218) & "</TH>" IF Feinwertungssystem(1) = 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(219) & "</TH>" IF Feinwertungssystem(1) = 10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(225) & "</TH>" IF Feinwertungssystem(1) = 11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(231) & "</TH>" IF Feinwertungssystem(1) = 12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(233) & "</TH>" IF Feinwertungssystem(1) = 13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" IF Feinwertungssystem(1) = 14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(237) & "</TH>" IF Feinwertungssystem(1) = 15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(239) & "</TH>" IF Feinwertungssystem(1) = 17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(243) & "</TH>" IF Feinwertungssystem(1) = 18 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" IF Feinwertungssystem(1) = 19 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh IF Feinwertungssystem(1) = -2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh Cut 1 IF Feinwertungssystem(1) = -3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh Cut 1 IF Feinwertungssystem(1) = -4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" ' Buchh Medium 1 IF Feinwertungssystem(1) = -5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" ' Buchh Medium 1 IF Feinwertungssystem(1) = -6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' Soberg Cut 1 IF Feinwertungssystem(1) = -7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' SoBerg Cut 2 IF Feinwertungssystem(1) = -8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 1 IF Feinwertungssystem(1) = -9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 2 IF Feinwertungssystem(1) = -10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 1 IF Feinwertungssystem(1) = -11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 2 IF Feinwertungssystem(1) = -12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' IF Feinwertungssystem(1) = -13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' IF Feinwertungssystem(1) = -14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' IF Feinwertungssystem(1) = -15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' IF Feinwertungssystem(1) = -16 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' IF Feinwertungssystem(1) = -17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' IF Feinwertungssystem(1) = 23 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(241) & "</TH>" ' S-Spiele ' IF Feinwertungssystem(2) < 1 OR Feinwertungssystem(2) > 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">  </TH>" IF Feinwertungssystem(2) = 2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' SoBerg IF Feinwertungssystem(2) = 3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(213) & "</TH>" ' Wins IF Feinwertungssystem(2) = 4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh IF Feinwertungssystem(2) = 5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(215) & "</TH>" ' BuScr IF Feinwertungssystem(2) = 6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(216) & "</TH>" ' Schmul IF Feinwertungssystem(2) = 7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(217) & "</TH>" ' Koya IF Feinwertungssystem(2) = 8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(218) & "</TH>" ' TeamScr IF Feinwertungssystem(2) = 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(219) & "</TH>" ' 3-Scr IF Feinwertungssystem(2) = 10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(225) & "</TH>" ' DiVergl IF Feinwertungssystem(2) = 11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(231) & "</TH>" ' ARO IF Feinwertungssystem(2) = 12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(233) & "</TH>" ' TPR IF Feinwertungssystem(2) = 13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' APRO IF Feinwertungssystem(2) = 14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(237) & "</TH>" ' GE IF Feinwertungssystem(2) = 15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(239) & "</TH>" ' AOB IF Feinwertungssystem(2) = 17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(243) & "</TH>" ' S-Wins IF Feinwertungssystem(2) = 18 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(2) = 19 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh IF Feinwertungssystem(2) = -2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh Cut 1 IF Feinwertungssystem(2) = -3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh Cut 1 IF Feinwertungssystem(2) = -4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" ' Buchh Medium 1 IF Feinwertungssystem(2) = -5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" ' Buchh Medium 1 IF Feinwertungssystem(2) = -6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' Soberg Cut 1 IF Feinwertungssystem(2) = -7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' SoBerg Cut 2 IF Feinwertungssystem(2) = -8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 1 IF Feinwertungssystem(2) = -9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 2 IF Feinwertungssystem(2) = -10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 1 IF Feinwertungssystem(2) = -11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 2 IF Feinwertungssystem(2) = -12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -16 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(2) = -17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(2) = 23 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(241) & "</TH>" ' S-Spiele PRINT #f, "</TR>" FOR k = VAL(Tmp(5)) TO VAL(Tmp(6)) PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD ALIGN=""RIGHT"">" & k & "." & "</TD>" ' Rang PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(k, 10) & "." & "</TD>" ' Startnummer PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(k, 14) & "</TD>" ' Name des Teilnehmers IF Temp(k, 2) <> "0" THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(k, 2) & "</TD>" ' ELO IF Temp(k, 2) = "0" THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(k, 3) & "</TD>" ' ELO PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(k, 3) & "</TD>" ' DWZ PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(j, -3) & "</TD>" ' Attribut Aktiv/Deaktiv PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(k, 15) & "</TD>" ' Verein PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(k, 9) & "</TD>" ' Nationalität PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 4) & "</TD>" ' Anzahl der Spiele PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 2) & "</TD>" ' Anzahl der Siege PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 3) & "</TD>" ' Anzahl der Remis ' PRINT #f, "<TD ALIGN=""RIGHT"">" & RAZ-TempPunkte(k, 2)-TempPunkte(k, 3) & "</TD>" ' Anzahl der Verluste PRINT #f, "<TD ALIGN=""RIGHT"">" & (TempPunkte(k, 4) - (TempPunkte(k, 2) + TempPunkte(k, 3))) & "</TD>" ' Anzahl der Verluste PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 1) & "</TD>" ' Punkte IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 12 THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & TempFeinwertung(k, 1) & "</TD>" ' Feinwertung 1 IF Feinwertungssystem(2) > 1 AND Feinwertungssystem(2) < 12 THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & TempFeinwertung(k, 2) & "</TD>" ' Feinwertung 2 PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" PRINT #f, "" PRINT #f, "</BODY>" PRINT #f, "</HTML>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN MANNSCHAFTSRATING ' OPEN TRIM(DateiName, ".STOP") + "-Rangliste.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<HTML>" PRINT #f, "<HEAD>" PRINT #f, "<TITLE>" & Sprachausgaben(182) & "</TITLE>" PRINT #f, "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">" PRINT #f, "" PRINT #f, "" PRINT #f, "</HEAD>" PRINT #f, "" PRINT #f, "<BODY>" PRINT #f, "" ' PRINT #f, "<H2>" & Sprachausgaben(188) & "</H2>" ' IF Sprache <> 5 THEN PRINT #f, "<H3> " & RAZ & " " & Sprachausgaben(82) & " </H3>" ' IF Sprache = 5 THEN PRINT #f, "<H3> " & Sprachausgaben(82) & " = " & RAZ & " </H3>" PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"" >" PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""12"">" & Sprachausgaben(203) & " " & Runde & " " & Sprachausgaben(204) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(205) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(191) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(192) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(12) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(185) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(186) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(209) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(210) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(211) & "</TH>" PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(218) & "</TH>" ' IF Feinwertungssystem(1) < 1 OR Feinwertungssystem(1) > 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">  </TH>" IF Feinwertungssystem(1) = 2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(213) & "</TH>" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = 5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(215) & "</TH>" IF Feinwertungssystem(1) = 6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(216) & "</TH>" IF Feinwertungssystem(1) = 7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(217) & "</TH>" IF Feinwertungssystem(1) = 8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(218) & "</TH>" IF Feinwertungssystem(1) = 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(219) & "</TH>" IF Feinwertungssystem(1) = 10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(225) & "</TH>" IF Feinwertungssystem(1) = 11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(231) & "</TH>" IF Feinwertungssystem(1) = 12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(233) & "</TH>" IF Feinwertungssystem(1) = 13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" IF Feinwertungssystem(1) = 14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(237) & "</TH>" IF Feinwertungssystem(1) = 15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(239) & "</TH>" IF Feinwertungssystem(1) = 17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(243) & "</TH>" IF Feinwertungssystem(1) = 18 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" IF Feinwertungssystem(1) = 19 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" IF Feinwertungssystem(1) = -2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = -7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = -8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 1 IF Feinwertungssystem(1) = -9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 2 IF Feinwertungssystem(1) = -10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 1 IF Feinwertungssystem(1) = -11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 2 IF Feinwertungssystem(1) = -12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(1) = -13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(1) = -14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(1) = -15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(1) = -16 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(1) = -17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(1) = 23 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(241) & "</TH>" ' IF Feinwertungssystem(2) < 1 OR Feinwertungssystem(2) > 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">  </TH>" IF Feinwertungssystem(2) = 2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' SoBerg IF Feinwertungssystem(2) = 3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(213) & "</TH>" ' Wins IF Feinwertungssystem(2) = 4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh IF Feinwertungssystem(2) = 5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(215) & "</TH>" ' BuScr IF Feinwertungssystem(2) = 6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(216) & "</TH>" ' Schmul IF Feinwertungssystem(2) = 7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(217) & "</TH>" ' Koya IF Feinwertungssystem(2) = 8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(218) & "</TH>" ' TeamScr IF Feinwertungssystem(2) = 9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(219) & "</TH>" ' 3-Scr IF Feinwertungssystem(2) = 10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(225) & "</TH>" ' DiVergl IF Feinwertungssystem(2) = 11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(231) & "</TH>" ' ARO IF Feinwertungssystem(2) = 12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(233) & "</TH>" ' TPR IF Feinwertungssystem(2) = 13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' APRO IF Feinwertungssystem(2) = 14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(237) & "</TH>" ' GE IF Feinwertungssystem(2) = 15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(239) & "</TH>" ' AOB IF Feinwertungssystem(2) = 17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(243) & "</TH>" ' S-Wins IF Feinwertungssystem(2) = 18 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(2) = 19 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh IF Feinwertungssystem(2) = -2 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh Cut 1 IF Feinwertungssystem(2) = -3 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(214) & "</TH>" ' Buchh Cut 1 IF Feinwertungssystem(2) = -4 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" ' Buchh Medium 1 IF Feinwertungssystem(2) = -5 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(98) & "</TH>" ' Buchh Medium 1 IF Feinwertungssystem(2) = -6 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' Soberg Cut 1 IF Feinwertungssystem(2) = -7 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(212) & "</TH>" ' SoBerg Cut 2 IF Feinwertungssystem(2) = -8 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 1 IF Feinwertungssystem(2) = -9 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Cut 2 IF Feinwertungssystem(2) = -10 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 1 IF Feinwertungssystem(2) = -11 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & "ForeBuchh" & "</TH>" ' ForeBuchh Medium 2 IF Feinwertungssystem(2) = -12 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -13 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -14 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -15 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(235) & "</TH>" ' ARO IF Feinwertungssystem(2) = -16 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(2) = -17 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(245) & "</TH>" ' SumWrt IF Feinwertungssystem(2) = 23 THEN PRINT #f, "<TH ALIGN=""RIGHT"">" & Sprachausgaben(241) & "</TH>" ' S-Spiele PRINT #f, "</TR>" FOR k = VAL(Tmp(5)) TO VAL(Tmp(6)) PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD ALIGN=""RIGHT"">" & k & "." & "</TD>" ' Rang PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(k, 10) & "." & "</TD>" ' Startnummer PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(k, 14) & "</TD>" ' Name des Teilnehmers IF STR(Korrektur(k, 1)) <> "0" THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & Korrektur(k, 1) & "</TD>" ' ELO IF STR(Korrektur(k, 1)) = "0" THEN PRINT #f, "<TD ALIGN=""RIGHT""> </TD>" ' ELO PRINT #f, "<TD ALIGN=""RIGHT"">" & Korrektur(k, 2) & "</TD>" ' DWZ PRINT #f, "<TD ALIGN=""RIGHT"">" & Temp(j, -3) & "</TD>" ' Attribut Aktiv/Deaktiv ' PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 4) & "</TD>" ' Anzahl der Spiele PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 2) & "</TD>" ' Anzahl der Siege PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 3) & "</TD>" ' Anzahl der Remis ' PRINT #f, "<TD ALIGN=""RIGHT"">" & RAZ-TempPunkte(k, 2)-TempPunkte(k, 3) & "</TD>" ' Anzahl der Verluste PRINT #f, "<TD ALIGN=""RIGHT"">" & (TempPunkte(k, 4) - ((TempPunkte(k, 2) + TempPunkte(k, 3)))) & "</TD>" ' Anzahl der Verluste PRINT #f, "<TD ALIGN=""RIGHT"">" & TempPunkte(k, 1) & "</TD>" ' Punkte IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 11 THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & TempFeinwertung(k, 1) & "</TD>" ' Feinwertung 1 IF Feinwertungssystem(2) > 1 AND Feinwertungssystem(2) < 11 THEN PRINT #f, "<TD ALIGN=""RIGHT"">" & TempFeinwertung(k, 2) & "</TD>" ' Feinwertung 2 PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" PRINT #f, "" PRINT #f, "</BODY>" PRINT #f, "</HTML>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Kreuztabelle (Rundensystem/Rutschsystem) IF l = 4 AND Paarungssystem <> 0 THEN ' OPEN TRIM(DateiName, ".STOP") + "-Kreuztabelle.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"">" PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=""17"">" & Sprachausgaben(220) & " " & Runde & " " & Sprachausgaben(204) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" ' PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(202) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(206) & "</TH>" FOR j = 1 TO TAZ PRINT #f, "<TH>" & j & "</TH>" NEXT PRINT #f, "<TH>" & Sprachausgaben(157) & "</TH>" ' IF Feinwertungssystem(1) < 1 OR Feinwertungssystem(1) > 9 THEN PRINT #f, "<TH> </TH>" IF Feinwertungssystem(1) = 2 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "<TH>" & Sprachausgaben(213) & "</TH>" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = 5 THEN PRINT #f, "<TH>" & Sprachausgaben(215) & "</TH>" IF Feinwertungssystem(1) = 6 THEN PRINT #f, "<TH>" & Sprachausgaben(216) & "</TH>" IF Feinwertungssystem(1) = 7 THEN PRINT #f, "<TH>" & Sprachausgaben(217) & "</TH>" IF Feinwertungssystem(1) = 8 THEN PRINT #f, "<TH>" & Sprachausgaben(218) & "</TH>" IF Feinwertungssystem(1) = 9 THEN PRINT #f, "<TH>" & Sprachausgaben(219) & "</TH>" IF Feinwertungssystem(1) = 10 THEN PRINT #f, "<TH>" & Sprachausgaben(225) & "</TH>" IF Feinwertungssystem(1) = 11 THEN PRINT #f, "<TH>" & Sprachausgaben(231) & "</TH>" IF Feinwertungssystem(1) = 12 THEN PRINT #f, "<TH>" & Sprachausgaben(233) & "</TH>" IF Feinwertungssystem(1) = 13 THEN PRINT #f, "<TH>" & Sprachausgaben(235) & "</TH>" IF Feinwertungssystem(1) = 14 THEN PRINT #f, "<TH>" & Sprachausgaben(237) & "</TH>" IF Feinwertungssystem(1) = 15 THEN PRINT #f, "<TH>" & Sprachausgaben(239) & "</TH>" IF Feinwertungssystem(1) = 17 THEN PRINT #f, "<TH>" & Sprachausgaben(243) & "</TH>" IF Feinwertungssystem(1) = 18 THEN PRINT #f, "<TH>" & Sprachausgaben(245) & "</TH>" IF Feinwertungssystem(1) = -2 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -3 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -4 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -5 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -6 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = -7 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 23 THEN PRINT #f, "<TH>" & Sprachausgaben(241) & "</TH>" /' IF Feinwertungssystem(2) > 0 OR Feinwertungssystem(2) < 10 THEN IF Feinwertungssystem(2) = 2 THEN PRINT #f, "<TH>SoBerg</TH>" IF Feinwertungssystem(2) = 3 THEN PRINT #f, "<TH>Siege</TH>" IF Feinwertungssystem(2) = 4 THEN PRINT #f, "<TH>Buchh</TH>" IF Feinwertungssystem(2) = 5 THEN PRINT #f, "<TH>BuSum</TH>" IF Feinwertungssystem(2) = 6 THEN PRINT #f, "<TH>Schmul</TH>" IF Feinwertungssystem(2) = 7 THEN PRINT #f, "<TH>Koya</TH>" IF Feinwertungssystem(2) = 8 THEN PRINT #f, "<TH>Man.Pkt.</TH>" IF Feinwertungssystem(2) = 9 THEN PRINT #f, "<TH>3-Pkt</TH>" END IF '/ PRINT #f, "</TR>" PRINT #f, "" FOR j = 1 TO TAZ PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD>" & j & ".</TD>" PRINT #f, "<TD>" & Temp(j, 14) & "</TD>" ' Name IF STR(Temp(j, 2)) <> "0" THEN PRINT #f, "<TD>" & Temp(j, 2) & "</TD>" ' ELO IF STR(Temp(j, 2)) = "0" THEN PRINT #f, "<TD> </TD>" ' ELO ' FOR e = 1 TO TAZ IF Temp(j, 14) = Temp(e, 14) THEN PRINT #f, "<TD>**</TD>" FOR r = 1 TO RAZ FOR k = 1 TO ppr(r) ' Schachmodus IF modus = 0 THEN ' Ergebnisse - Kreuztabelle IF kampflose(k, r) = 0 THEN IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>1</TD>": t = 1 IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>0</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0.5 THEN PRINT #f, "<TD>½</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>1</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>0</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0.5 THEN PRINT #f, "<TD>½</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 2000 THEN PRINT #f, "<TD> </TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 2000 THEN PRINT #f, "<TD> </TD>" END IF IF kampflose(k, r) = 1 THEN IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>+</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>-</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>+</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>-</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) <> 1 AND Punkte(paarungen(k,1,r),r) <> 0 AND Punkte(paarungen(k,1,r),r) <> 0.5 THEN PRINT #f, "<TD> </TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) <> 1 AND Punkte(paarungen(k,2,r),r) <> 0 AND Punkte(paarungen(k,2,r),r) <> 0.5 THEN PRINT #f, "<TD> </TD>" END IF IF kampflose(k, r) = 2 THEN IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>W</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>L</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0.5 THEN PRINT #f, "<TD>D</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>W</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>L</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0.5 THEN PRINT #f, "<TD>D</TD>" END IF END IF ' Mühlemodus IF modus = 1 THEN ' Ergebnisse - Kreuztabelle IF kampflose(k, r) = 0 THEN IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 2 THEN PRINT #f, "<TD>2</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>0</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>1</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 2 THEN PRINT #f, "<TD>2</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>0</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>1</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 2000 THEN PRINT #f, "<TD> </TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 2000 THEN PRINT #f, "<TD> </TD>" END IF IF kampflose(k, r) = 1 THEN IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 2 THEN PRINT #f, "<TD>+</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>-</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 2 THEN PRINT #f, "<TD>+</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>-</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) <> 2 AND Punkte(paarungen(k,1,r),r) <> 0 AND Punkte(paarungen(k,1,r),r) <> 1 THEN PRINT #f, "<TD> </TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) <> 2 AND Punkte(paarungen(k,2,r),r) <> 0 AND Punkte(paarungen(k,2,r),r) <> 1 THEN PRINT #f, "<TD> </TD>" END IF IF kampflose(k, r) = 2 THEN IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 2 THEN PRINT #f, "<TD>W</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>L</TD>" IF Temp(j, 14) = Spieler(paarungen(k,1,r)) AND Temp(e, 14) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>D</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 2 THEN PRINT #f, "<TD>W</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>L</TD>" IF Temp(j, 14) = Spieler(paarungen(k,2,r)) AND Temp(e, 14) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>D</TD>" END IF END IF NEXT NEXT NEXT PRINT #f, "<TD>" & TempPunkte(j, 1) & "</TD>" IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 11 THEN PRINT #f, "<TD>" & TempFeinwertung(j, 1) & "</TD>" ' IF Feinwertungssystem(2) > 1 AND Feinwertungssystem(2) < 11 THEN PRINT #f, "<TD>" & TempFeinwertung(j, 2) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF ' Fortschrittstabelle IF l = 5 THEN ' OPEN TRIM(DateiName, ".STOP") + "-Fortschrittstabelle.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"">" PRINT #f, "" PRINT #f, "<TR>" ' PRINT #f, "<TD COLSPAN=""" & RAZ + 7 & """> Fortschrittstabelle:  Stand nach der " & Runde & ". Runde   (nach Rangliste)</TD>" PRINT #f, "<TD COLSPAN=""" & RAZ + 7 & """>" & Sprachausgaben(221) & " " & Runde & " " & Sprachausgaben(222) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" ' PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(202) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(12) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(185) & "</TH>" FOR j = 1 TO RAZ PRINT #f, "<TH>" & j & "</TH>" NEXT PRINT #f, "<TH>" & Sprachausgaben(157) & "</TH>" ' IF Feinwertungssystem(1) < 1 OR Feinwertungssystem(1) > 9 THEN PRINT #f, "<TH> </TH>" IF Feinwertungssystem(1) = 2 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "<TH>" & Sprachausgaben(213) & "</TH>" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = 5 THEN PRINT #f, "<TH>" & Sprachausgaben(215) & "</TH>" IF Feinwertungssystem(1) = 6 THEN PRINT #f, "<TH>" & Sprachausgaben(216) & "</TH>" IF Feinwertungssystem(1) = 7 THEN PRINT #f, "<TH>" & Sprachausgaben(217) & "</TH>" IF Feinwertungssystem(1) = 8 THEN PRINT #f, "<TH>" & Sprachausgaben(218) & "</TH>" IF Feinwertungssystem(1) = 9 THEN PRINT #f, "<TH>" & Sprachausgaben(219) & "</TH>" IF Feinwertungssystem(1) = 10 THEN PRINT #f, "<TH>" & Sprachausgaben(225) & "</TH>" IF Feinwertungssystem(1) = 11 THEN PRINT #f, "<TH>" & Sprachausgaben(231) & "</TH>" IF Feinwertungssystem(1) = 12 THEN PRINT #f, "<TH>" & Sprachausgaben(233) & "</TH>" IF Feinwertungssystem(1) = 13 THEN PRINT #f, "<TH>" & Sprachausgaben(235) & "</TH>" IF Feinwertungssystem(1) = 14 THEN PRINT #f, "<TH>" & Sprachausgaben(237) & "</TH>" IF Feinwertungssystem(1) = 15 THEN PRINT #f, "<TH>" & Sprachausgaben(239) & "</TH>" IF Feinwertungssystem(1) = 17 THEN PRINT #f, "<TH>" & Sprachausgaben(243) & "</TH>" IF Feinwertungssystem(1) = 18 THEN PRINT #f, "<TH>" & Sprachausgaben(245) & "</TH>" IF Feinwertungssystem(1) = 19 THEN PRINT #f, "<TH>" & "ForeBuchh" & "</TH>" IF Feinwertungssystem(1) = -2 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -3 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -4 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -5 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -6 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = -7 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 23 THEN PRINT #f, "<TH>" & Sprachausgaben(241) & "</TH>" ' IF Feinwertungssystem(2) < 1 OR Feinwertungssystem(2) > 9 THEN PRINT #f, "<TH> </TH>" IF Feinwertungssystem(2) = 2 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(2) = 3 THEN PRINT #f, "<TH>" & Sprachausgaben(213) & "</TH>" IF Feinwertungssystem(2) = 4 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(2) = 5 THEN PRINT #f, "<TH>" & Sprachausgaben(215) & "</TH>" IF Feinwertungssystem(2) = 6 THEN PRINT #f, "<TH>" & Sprachausgaben(216) & "</TH>" IF Feinwertungssystem(2) = 7 THEN PRINT #f, "<TH>" & Sprachausgaben(217) & "</TH>" IF Feinwertungssystem(2) = 8 THEN PRINT #f, "<TH>" & Sprachausgaben(218) & "</TH>" IF Feinwertungssystem(2) = 9 THEN PRINT #f, "<TH>" & Sprachausgaben(219) & "</TH>" IF Feinwertungssystem(2) = 10 THEN PRINT #f, "<TH>" & Sprachausgaben(225) & "</TH>" IF Feinwertungssystem(2) = 11 THEN PRINT #f, "<TH>" & Sprachausgaben(231) & "</TH>" IF Feinwertungssystem(2) = 12 THEN PRINT #f, "<TH>" & Sprachausgaben(233) & "</TH>" IF Feinwertungssystem(2) = 13 THEN PRINT #f, "<TH>" & Sprachausgaben(235) & "</TH>" IF Feinwertungssystem(2) = 14 THEN PRINT #f, "<TH>" & Sprachausgaben(237) & "</TH>" IF Feinwertungssystem(2) = 15 THEN PRINT #f, "<TH>" & Sprachausgaben(239) & "</TH>" IF Feinwertungssystem(2) = 17 THEN PRINT #f, "<TH>" & Sprachausgaben(243) & "</TH>" IF Feinwertungssystem(2) = 18 THEN PRINT #f, "<TH>" & Sprachausgaben(245) & "</TH>" IF Feinwertungssystem(2) = 19 THEN PRINT #f, "<TH>" & "ForeBuchh" & "</TH>" IF Feinwertungssystem(2) = -2 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(2) = -3 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(2) = -4 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(2) = -5 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(2) = -6 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(2) = -7 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 23 THEN PRINT #f, "<TH>" & Sprachausgaben(241) & "</TH>" PRINT #f, "</TR>" PRINT #f, "" t = 0 FOR j = 1 TO TAZ PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD>" & j & ".</TD>" PRINT #f, "<TD>" & Temp(j, 14) & "</TD>" ' Name IF STR(Temp(j, 2)) <> "0" THEN PRINT #f, "<TD>" & Temp(j, 2) & "</TD>" ' ELO IF STR(Temp(j, 2)) = "0" THEN PRINT #f, "<TD> </TD>" ' ELO IF STR(Temp(j, 3)) <> "0" THEN PRINT #f, "<TD>" & Temp(j, 3) & "</TD>" ' NWZ IF STR(Temp(j, 3)) = "0" THEN PRINT #f, "<TD> </TD>" ' NWZ FOR r = 1 TO RAZ IF fehlendeSpieler(Rang(VAL(Temp(j, 10))), r) > 0 THEN PRINT #f, "<TD> </TD>" FOR k = 1 TO ppr(r) IF fehlendeSpieler(Rang(VAL(Temp(j, 10))), r) = 0 THEN ' Normale Ergebnisse IF kampflose(k, r) = 0 THEN IF Paarungssystem < 3 THEN IF TAZ MOD 2 <> 0 THEN IF k = 1 THEN IF Temp(j, 1) = Spieler(paarungen(k,1,r)) THEN PRINT #f, "<TD>" & (TAZ+1) & "w</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) THEN PRINT #f, "<TD>" & (TAZ+1) & "s</TD>": t = 1 END IF IF k > 1 THEN IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w1</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w0</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0.5 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w½</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s1</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s0</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0.5 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s½</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 2000 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 2000 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s</TD>": t = 1 END IF ELSE IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w1</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w0</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0.5 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w½</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s1</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s0</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0.5 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s½</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 2000 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 2000 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s</TD>": t = 1 END IF END IF IF Paarungssystem > 2 THEN IF k > 0 THEN IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 1 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w1</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w0</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0.5 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w½</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 1 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s1</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s0</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0.5 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s½</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 2000 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 2000 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s</TD>": t = 1 END IF END IF END IF ' kampflose Ergebnisse IF kampflose(k, r) = 1 THEN IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w+</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "w-</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,2,r) <> 0 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s+</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,2,r) <> 0 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "s-</TD>": t = 1 END IF ' ungewertete Ergebnisse IF kampflose(k, r) = 2 THEN IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 1 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "wW</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "wL</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 0.5 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,2,r)) & "wD;</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 1 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "sW</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "sL</TD>": t = 1 IF Temp(j, 1) = Spieler(paarungen(k,2,r)) AND Punkte(paarungen(k,2,r),r) = 0.5 AND t = 0 THEN PRINT #f, "<TD>" & Rang(paarungen(k,1,r)) & "sD;</TD>": t = 1 END IF ' spielfreie Paarung IF kampflose(k, r) = 1 THEN IF Temp(j, 1) = Spieler(paarungen(k,1,r)) AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 AND t = 0 THEN PRINT #f, "<TD>+</TD>" END IF END IF NEXT t = 0 NEXT PRINT #f, "<TD>" & TempPunkte(j, 1) & "</TD>" IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 12 THEN PRINT #f, "<TD>" & TempFeinwertung(j, 1) & "</TD>" IF Feinwertungssystem(2) > 1 AND Feinwertungssystem(2) < 12 THEN PRINT #f, "<TD>" & TempFeinwertung(j, 2) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF ' Kreuztabelle im Rundensystem mit 2 Durchgängen (Mühlemodus) IF l = 4 AND Paarungssystem = 0 THEN /' FOR j = 1 TO TAZ FOR k = 1 TO RAZ TempErgebnisse(j, k) = 0 NEXT NEXT '/ /' LOCATE 1,5: PRINT Rang(1); " - "; Rang(2); " - "; Rang(3); " - "; Rang(4); " - "; Rang(5); " - "; Rang(6) ' Rang(VAL(Temp(j, 10))) = j LOCATE 3,5: PRINT Rang(7); " - "; Rang(8); " - "; Rang(9); " - "; Rang(10); " - "; Rang(11); " - "; Rang(12) LOCATE 5,5: PRINT Rang(13); " - "; Rang(14); " - "; Rang(15); " - "; Rang(16); " - "; Rang(17); " - "; Rang(VAL(Temp(9, 10))) '/ ' l = 1 ' Zähler ' OPEN TRIM(DateiName, ".STOP") + "-Kreuztabelle.html" FOR OUTPUT ENCODING "UTF-8" AS #f PRINT #f, "<TABLE BORDER=""2"" CELLPADDING=""2"" CELLSPACING=""2"" BGCOLOR=""#C0C0C0"">" PRINT #f, "" PRINT #f, "<TR>" PRINT #f, "<TD COLSPAN=" & 3+RAZ & ">" & Sprachausgaben(220) & " " & Runde & " " & Sprachausgaben(204) & "</TD>" ' COLSPAN=17 PRINT #f, "</TR>" PRINT #f, "" ' PRINT #f, "<TR BGCOLOR=""#00FF00"">" PRINT #f, "<TH>" & Sprachausgaben(202) & "</TH>" PRINT #f, "<TH ALIGN=""LEFT"">" & Sprachausgaben(199) & "</TH>" PRINT #f, "<TH>" & Sprachausgaben(206) & "</TH>" FOR j = 1 TO TAZ PRINT #f, "<TH>" & j & "</TH>" NEXT PRINT #f, "<TH>" & Sprachausgaben(157) & "</TH>" ' IF Feinwertungssystem(1) < 1 OR Feinwertungssystem(1) > 9 THEN PRINT #f, "<TH> </TH>" IF Feinwertungssystem(1) = 2 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "<TH>" & Sprachausgaben(213) & "</TH>" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = 5 THEN PRINT #f, "<TH>" & Sprachausgaben(215) & "</TH>" IF Feinwertungssystem(1) = 6 THEN PRINT #f, "<TH>" & Sprachausgaben(216) & "</TH>" IF Feinwertungssystem(1) = 7 THEN PRINT #f, "<TH>" & Sprachausgaben(217) & "</TH>" IF Feinwertungssystem(1) = 8 THEN PRINT #f, "<TH>" & Sprachausgaben(218) & "</TH>" IF Feinwertungssystem(1) = 9 THEN PRINT #f, "<TH>" & Sprachausgaben(219) & "</TH>" IF Feinwertungssystem(1) = 10 THEN PRINT #f, "<TH>" & Sprachausgaben(225) & "</TH>" IF Feinwertungssystem(1) = 11 THEN PRINT #f, "<TH>" & Sprachausgaben(231) & "</TH>" IF Feinwertungssystem(1) = 12 THEN PRINT #f, "<TH>" & Sprachausgaben(233) & "</TH>" IF Feinwertungssystem(1) = 13 THEN PRINT #f, "<TH>" & Sprachausgaben(235) & "</TH>" IF Feinwertungssystem(1) = 14 THEN PRINT #f, "<TH>" & Sprachausgaben(237) & "</TH>" IF Feinwertungssystem(1) = 15 THEN PRINT #f, "<TH>" & Sprachausgaben(239) & "</TH>" IF Feinwertungssystem(1) = 17 THEN PRINT #f, "<TH>" & Sprachausgaben(243) & "</TH>" IF Feinwertungssystem(1) = 18 THEN PRINT #f, "<TH>" & Sprachausgaben(245) & "</TH>" IF Feinwertungssystem(1) = 19 THEN PRINT #f, "<TH>" & "ForeBuchh" & "</TH>" IF Feinwertungssystem(1) = -2 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -3 THEN PRINT #f, "<TH>" & Sprachausgaben(214) & "</TH>" IF Feinwertungssystem(1) = -4 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -5 THEN PRINT #f, "<TH>" & Sprachausgaben(98) & "</TH>" IF Feinwertungssystem(1) = -6 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = -7 THEN PRINT #f, "<TH>" & Sprachausgaben(212) & "</TH>" IF Feinwertungssystem(1) = 23 THEN PRINT #f, "<TH>" & Sprachausgaben(241) & "</TH>" /' IF Feinwertungssystem(2) > 0 OR Feinwertungssystem(2) < 10 THEN IF Feinwertungssystem(2) = 2 THEN PRINT #f, "<TH>SoBerg</TH>" IF Feinwertungssystem(2) = 3 THEN PRINT #f, "<TH>Siege</TH>" IF Feinwertungssystem(2) = 4 THEN PRINT #f, "<TH>Buchh</TH>" IF Feinwertungssystem(2) = 5 THEN PRINT #f, "<TH>BuSum</TH>" IF Feinwertungssystem(2) = 6 THEN PRINT #f, "<TH>Schmul</TH>" IF Feinwertungssystem(2) = 7 THEN PRINT #f, "<TH>Koya</TH>" IF Feinwertungssystem(2) = 8 THEN PRINT #f, "<TH>Man.Pkt.</TH>" IF Feinwertungssystem(2) = 9 THEN PRINT #f, "<TH>3-Pkt</TH>" END IF '/ PRINT #f, "</TR>" PRINT #f, "" /' Ergebnisse definieren FOR j = 1 TO TAZ FOR e = 1 TO TAZ FOR w = 1 TO RAZ FOR k = 1 TO ppr(w) IF paarungen(k,1,w) = j AND paarungen(k,2,w) = e THEN IF Punkte(paarungen(k,1,w),w) = 0 THEN TempErgebnisse(paarungen(k,1,w), w) = 0 : TempErgebnisse(paarungen(k,1,w), -w) = paarungen(k,2,w) IF Punkte(paarungen(k,1,w),w) = 1 THEN TempErgebnisse(paarungen(k,1,w), w) = 1 : TempErgebnisse(paarungen(k,1,w), -w) = paarungen(k,2,w) IF Punkte(paarungen(k,1,w),w) = 2 THEN TempErgebnisse(paarungen(k,1,w), w) = 2 : TempErgebnisse(paarungen(k,1,w), -w) = paarungen(k,2,w) IF Punkte(paarungen(k,2,w),w) = 0 THEN TempErgebnisse(paarungen(k,2,w), w) = 0 : TempErgebnisse(paarungen(k,2,w), -w) = paarungen(k,1,w) IF Punkte(paarungen(k,2,w),w) = 1 THEN TempErgebnisse(paarungen(k,2,w), w) = 1 : TempErgebnisse(paarungen(k,2,w), -w) = paarungen(k,1,w) IF Punkte(paarungen(k,2,w),w) = 2 THEN TempErgebnisse(paarungen(k,2,w), w) = 2 : TempErgebnisse(paarungen(k,2,w), -w) = paarungen(k,1,w) END IF IF paarungen(k,2,w) = j AND paarungen(k,1,w) = e THEN IF Punkte(paarungen(k,1,w),w) = 0 THEN TempErgebnisse(paarungen(k,1,w), w) = 0 : TempErgebnisse(paarungen(k,1,w), -w) = paarungen(k,2,w) IF Punkte(paarungen(k,1,w),w) = 1 THEN TempErgebnisse(paarungen(k,1,w), w) = 1 : TempErgebnisse(paarungen(k,1,w), -w) = paarungen(k,2,w) IF Punkte(paarungen(k,1,w),w) = 2 THEN TempErgebnisse(paarungen(k,1,w), w) = 2 : TempErgebnisse(paarungen(k,1,w), -w) = paarungen(k,2,w) IF Punkte(paarungen(k,2,w),w) = 0 THEN TempErgebnisse(paarungen(k,2,w), w) = 0 : TempErgebnisse(paarungen(k,2,w), -w) = paarungen(k,1,w) IF Punkte(paarungen(k,2,w),w) = 1 THEN TempErgebnisse(paarungen(k,2,w), w) = 1 : TempErgebnisse(paarungen(k,2,w), -w) = paarungen(k,1,w) IF Punkte(paarungen(k,2,w),w) = 2 THEN TempErgebnisse(paarungen(k,2,w), w) = 2 : TempErgebnisse(paarungen(k,2,w), -w) = paarungen(k,1,w) END IF NEXT NEXT NEXT NEXT '/ FOR j = 1 TO TAZ PRINT #f, "<TR BGCOLOR=""#00FFFF"">" PRINT #f, "<TD>" & Rang(j) & ".</TD>" OemToChar Spieler(j), Spieler(j) PRINT #f, "<TD ALIGN=""LEFT"">" & Spieler(j) & "</TD>" ' Name CharToOem Spieler(j), Spieler(j) IF STR(Temp(j, 2)) <> "0" THEN PRINT #f, "<TD>" & STR(ELO(j)) & "</TD>" ' ELO ' PRINT #f, "<TD ALIGN=""LEFT"">" & Temp(j, 14) & "</TD>" ' Name ' IF STR(Temp(j, 2)) <> "0" THEN PRINT #f, "<TD>" & Temp(j, 2) & "</TD>" ' ELO IF STR(Temp(j, 2)) = "0" THEN PRINT #f, "<TD> </TD>" ' ELO ' FOR e = 1 TO TAZ IF Temp(j, 14) = Temp(e, 14) THEN PRINT #f, "<TD ALIGN=""CENTER"">**</TD>" ' alles auf 0 setzen FOR k = 1 TO TAZ TempPunkte(k, -1) = 0 ' Punktezähler TempPunkte(k, -2) = 0 ' Variable, ob eine der Partien gewonnen wurde NEXT '/ /' IF TempPunkte(l, -1) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">0</TD>" IF TempPunkte(l, -1) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">1</TD>" IF TempPunkte(l, -1) = 2 AND TempPunkte(l, -2) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">2</TD>" IF TempPunkte(l, -1) = 3 THEN PRINT #f, "<TD ALIGN=""CENTER"">3</TD>" IF TempPunkte(l, -1) = 4 THEN PRINT #f, "<TD ALIGN=""CENTER"">4</TD>" IF TempPunkte(l, -1) = 2 AND TempPunkte(l, -2) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER""><b><u>2</u></b></TD>" '/ ' Punkte zusammenzählen FOR w = 1 TO RAZ FOR k = 1 TO ppr(w) IF paarungen(k,1,w) = j AND paarungen(k,2,w) = e THEN ' IF Punkte(paarungen(k,1,w),w) = 1 THEN TempPunkte(paarungen(k,1,w), -1) += 1 IF Punkte(paarungen(k,1,w),w) = 2 THEN TempPunkte(paarungen(k,1,w), -1) += 2: TempPunkte(paarungen(k,1,w), -2) = 1 IF Punkte(paarungen(k,2,w),w) = 1 THEN TempPunkte(paarungen(k,2,w), -1) += 1 IF Punkte(paarungen(k,2,w),w) = 2 THEN TempPunkte(paarungen(k,2,w), -1) += 2: TempPunkte(paarungen(k,2,w), -2) = 1 '/ END IF ' IF paarungen(k,2,w) = j AND paarungen(k,1,w) = e THEN ' IF Punkte(paarungen(k,1,w),w) = 1 THEN TempPunkte(paarungen(k,1,w), -1) += 1 IF Punkte(paarungen(k,1,w),w) = 2 THEN TempPunkte(paarungen(k,1,w), -1) += 2: TempPunkte(paarungen(k,1,w), -2) = 1 IF Punkte(paarungen(k,2,w),w) = 1 THEN TempPunkte(paarungen(k,2,w), -1) += 1 IF Punkte(paarungen(k,2,w),w) = 2 THEN TempPunkte(paarungen(k,2,w), -1) += 2: TempPunkte(paarungen(k,2,w), -2) = 1 '/ END IF NEXT NEXT '/ IF modus = 1 THEN ' Punkte in HTML-Datei speichern IF Temp(j, 14) <> Temp(e, 14) THEN ' LOCATE 11,5: PRINT "e: "; e; " - "; TempErgebnisse(9, 1); " - "; TempErgebnisse(9, 2); " - "; TempErgebnisse(9, 3); " - "; TempErgebnisse(9, 4); " - "; TempErgebnisse(9, 5); " - "; TempErgebnisse(9, 6) ' LOCATE 7,5: PRINT "Rang: "; Rang(j); " - "; TempErgebnisse(Rang(j), w); " - "; TempErgebnisse(14, w) ' LOCATE 11,5: PRINT Rang(1); " - "; TempErgebnisse(Rang(1), 1); " - "; TempErgebnisse(Rang(1), 18) /' FOR w = 1 TO TAZ IF Rang(w) = l THEN ' k = w ' Spieler ' TempErgebnisse(j, -1) = w /' IF l = 1 THEN LOCATE 21, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 2 THEN LOCATE 22, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 3 THEN LOCATE 23, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 4 THEN LOCATE 24, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 5 THEN LOCATE 25, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 6 THEN LOCATE 26, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 7 THEN LOCATE 27, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 8 THEN LOCATE 28, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 9 THEN LOCATE 29, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 10 THEN LOCATE 30, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 11 THEN LOCATE 31, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 12 THEN LOCATE 32, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 13 THEN LOCATE 33, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 14 THEN LOCATE 34, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 15 THEN LOCATE 35, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 16 THEN LOCATE 36, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w IF l = 17 THEN LOCATE 37, 40: PRINT "k: "; k; " - "; Rang(w); " - "; w '/ EXIT FOR END IF NEXT '/ ' Gegner für Spieler ermitteln ' IF Rang(e) = e THEN w = e /' FOR ww AS INTEGER = 1 TO RAZ FOR kk AS INTEGER = 1 TO ppr(ww) IF k = paarungen(kk,1,ww) AND ww = paarungen(kk,2,e) NEXT NEXT '/ ' IF l = 1 THEN LOCATE 1, 40: PRINT "k: "; TempErgebnisse(9, 1); " "; TempErgebnisse(9, 2); ; " "; TempErgebnisse(9, 3); " "; TempErgebnisse(9, 4) ' LOCATE j+21, 32: PRINT k /' IF TempErgebnisse(k, e) = 0 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">0</TD>" IF TempErgebnisse(k, e) = 1 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">1</TD>" IF TempErgebnisse(k, e) = 0 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">1</TD>" IF TempErgebnisse(k, e) = 1 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">2</TD>" IF TempErgebnisse(k, e) = 2 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER""><b><u>2</u></b></TD>" IF TempErgebnisse(k, e) = 0 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 2 THEN PRINT #f, "<TD ALIGN=""CENTER""><b><u>2</u></b></TD>" IF TempErgebnisse(k, e) = 2 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">3</TD>" IF TempErgebnisse(k, e) = 1 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 2 THEN PRINT #f, "<TD ALIGN=""CENTER"">3</TD>" IF TempErgebnisse(k, e) = 2 AND TempErgebnisse(k, (RAZ-((RAZ/2)-e))) = 2 THEN PRINT #f, "<TD ALIGN=""CENTER"">4</TD>" '/ ' = RAZ-((RAZ/2)-e) ' IF TempPunkte(j, -1) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">0</TD>" IF TempPunkte(j, -1) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER"">1</TD>" IF TempPunkte(j, -1) = 2 AND TempPunkte(j, -2) = 0 THEN PRINT #f, "<TD ALIGN=""CENTER"">2</TD>" IF TempPunkte(j, -1) = 3 THEN PRINT #f, "<TD ALIGN=""CENTER"">3</TD>" IF TempPunkte(j, -1) = 4 THEN PRINT #f, "<TD ALIGN=""CENTER"">4</TD>" IF TempPunkte(j, -1) = 2 AND TempPunkte(j, -2) = 1 THEN PRINT #f, "<TD ALIGN=""CENTER""><b><u>2</u></b></TD>" '/ ' PRINT #f, "<TD> </TD>" END IF END IF NEXT ' l += 1 PRINT #f, "<TD>" & Gesamtpunkte(j) & "</TD>" IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 11 THEN PRINT #f, "<TD>" & Feinwertungen(j, 10) & "</TD>" ' PRINT #f, "<TD>" & TempPunkte(j, 1) & "</TD>" ' IF Feinwertungssystem(1) > 1 AND Feinwertungssystem(1) < 11 THEN PRINT #f, "<TD>" & TempFeinwertung(j, 1) & "</TD>" ' IF Feinwertungssystem(2) > 1 AND Feinwertungssystem(2) < 11 THEN PRINT #f, "<TD>" & TempFeinwertung(j, 2) & "</TD>" PRINT #f, "</TR>" PRINT #f, "" NEXT PRINT #f, "</TABLE>" CLOSE #f MessageBox(0, Sprachausgaben(68), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF '/ END SUB SUB TRF(j AS INTEGER) CHDIR EXEPATH ' Pfad setzen DIM AS INTEGER f = FREEFILE DIM AS INTEGER u DIM AS STRING Zeile(2002), DataId, Farbe IF j <> 5 THEN IF Gesamtpunkte(j) = 0 OR Paarungssystem = 4 OR Paarungssystem = 11 THEN TABELLE(0) END IF ' TRF-Datei für JaVaFo/bbpPairings erstellen IF j = 1 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Temp(j, 1) = "" IF Paarungssystem < 5 AND Paarungssystem <> 4 THEN Temp(j, 1) = Spieler(j) IF Paarungssystem = 4 THEN Temp(j, 1) = STR(j) IF Paarungssystem = 8 THEN Temp(j, 1) = STR(j) IF Paarungssystem = 11 THEN Temp(j, 1) = STR(j) IF Paarungssystem <> 4 AND Paarungssystem <> 8 AND Paarungssystem <> 11 THEN OemToChar Spieler(j), Temp(j, 1) IF LEN(Temp(j, 1)) > 33 THEN Temp(j, 1) = LEFT(Temp(j, 1), 33) END IF IF Paarungssystem = 5 THEN Temp(j, 1) = "" Temp(j, 1) = Team(j) OemToChar Team(j), Temp(j, 1) END IF NEXT ' OemToChar Spieler(j), Spieler(j) ' OemToChar ELO(j), VAL(Temp(j, 2)) ' OemToChar DWZ(j), VAL(Temp(j, 3)) ' OemToChar Titel(j), Temp(j, 4) ' OemToChar Verein(j), Temp(j, 5) ' OemToChar Geburt(j), Temp(j, 6) ' OemToChar FIDEID(j), Temp(j, 7) ' OemToChar Geschlecht(j), Temp(j, 8) ' OemToChar Nation(j), Temp(j, 9) ' OemToChar PKZ(j), Temp(j, 14) ' OemToChar Vnummer(j), Temp(j, 15) ' OemToChar Mnummer(j), Temp(j, 16) ' FOR k = 17 TO 52 ' OemToChar fehlendeSpieler(j, k-16), VAL(Temp(j, k)) ' NEXT ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 ELSE ppr(runde) = TAZ / 2 END IF '/ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär in eine Datei speichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ FOR k = 1 TO Runde IF fehlendeSpieler(l, k-1) = 3 THEN PRINT #f, " 0000 - F"; IF fehlendeSpieler(l, k-1) = 2 THEN PRINT #f, " 0000 - H"; IF fehlendeSpieler(l, k-1) = 1 THEN PRINT #f, " 0000 - Z"; IF fehlendeSpieler(l, k-1) = -1 THEN PRINT #f, " 0000 - 0"; FOR j = 1 TO ppr(runde) IF Modus = 0 THEN ' normale Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + STR(Punkte(paarungen(j,1,k),k)); ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + STR(Punkte(paarungen(j,2,k),k)); ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "="; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "="; ' + Ergebnis END IF ' kampflose Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 1 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w -"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b -"; END IF ' Ergebnisse für Partien mit nur einem Zug! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 2 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w 1"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w 0"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b 1"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b 0"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w ="; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b ="; END IF ' Gegner spielfrei IF paarungen(j,1,k) = 0 OR paarungen(j,2,k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PRINT #f, " 0000 - +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PRINT #f, " 0000 - +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, " 0000 - U"; END IF END IF IF Modus = 1 THEN ' normale Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "1"; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "1"; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "0"; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "0"; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "="; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "="; ' + Ergebnis END IF ' kampflose Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 1 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w -"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b -"; END IF ' Ergebnisse für Partien mit nur einem Zug! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 2 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w 1"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w 0"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b 1"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b 0"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w ="; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b ="; END IF ' Gegner spielfrei IF paarungen(j,1,k) = 0 OR paarungen(j,2,k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 1 THEN PRINT #f, " 0000 - +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 1 THEN PRINT #f, " 0000 - +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, " 0000 - U"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, " 0000 - U"; END IF END IF NEXT NEXT ' Spieler anwesend/abwesend eintragen IF Runde > 1 THEN IF fehlendeSpieler(l, Runde) <> 1 AND fehlendeSpieler(l, Runde) <> -1 AND fehlendeSpieler(l, Runde) <> 2 AND fehlendeSpieler(l, Runde) <> 3 THEN PRINT #f, " " ' Spieler anwesend END IF IF fehlendeSpieler(l, Runde) = 3 THEN PRINT #f, " 0000 - F " ' Spieler abwesend END IF IF fehlendeSpieler(l, Runde) = 2 THEN PRINT #f, " 0000 - H " ' Spieler abwesend END IF IF fehlendeSpieler(l, Runde) = 1 THEN PRINT #f, " 0000 - Z " ' Spieler abwesend END IF IF fehlendeSpieler(l, Runde) = -1 THEN PRINT #f, " 0000 - 0 " ' (manuelle Paarung definieren) END IF END IF NEXT CLOSE #f ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f ' KILL(EXEPATH + "\Temp.tmp") END IF ' Zufallszahl ermitteln für Farbe IF Runde = 1 THEN FENSTERFARBE ' z = INT(RND * 2) + 1 IF Paarungssystem <> 4 AND Paarungssystem <> 8 AND Paarungssystem <> 11 THEN OPEN EXEPATH + "\javafo_in.txt" FOR OUTPUT AS #f ' ENCODING "UTF-8" IF Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN OPEN EXEPATH + "\Turniere.trfx" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Anzahl der Spieler mit Rating ermitteln k = 0 FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN k +=1 NEXT ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(j, 9) = Eingabe(9) Temp(j, 10) = Eingabe(10) Temp(j, 12) = Eingabe(12) Temp(j, 14) = Eingabe(14) OemToChar Eingabe(9), Temp(j, 9) OemToChar Eingabe(10), Temp(j, 10) OemToChar Eingabe(12), Temp(j, 12) OemToChar Eingabe(14), Temp(j, 14) ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(j, 9) ' Turniername PRINT #f, "022 " + Temp(j, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation PRINT #f, "042 " + Eingabe(21) ' Turnierbeginn PRINT #f, "052 " + Eingabe(22) ' Turnierende PRINT #f, "062 " + STR(TAZ) ' Anzahl der Teilnehmer IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN PRINT #f, "072 " + STR(k) ' Anzahl der Spieler mit ELO-Zahl IF Paarungssystem = 5 THEN PRINT #f, "072 0" ' Für Mannschaftsturniere im Schweizer System IF Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN PRINT #f, "082 0" ' Anzahl der Mannschaften im Schweizer System für bbpPairings IF Paarungssystem < 3 THEN PRINT #f, "092 " + "Round Robin" 'Paarungssystem IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN PRINT #f, "092 " + "Individual: Swiss System" ' IF Paarungssystem = 9 THEN PRINT #f, "092 " + "KO-System" PRINT #f, "102 " + Temp(j, 14) ' Hauptschiedsrichter PRINT #f, "112 " ' Deputyschiedsrichter ' PRINT #f, "122 " + Temp(j, 12) ' Bedenkzeit PRINT #f, "122 moves/time, increment" PRINT #f, "XXR " + STR(RAZ) ' Anzahl der Runden ' IF Paarungssystem < 8 THEN IF Runde < 2 AND z = 1 THEN PRINT #f, "XXC white1" ' Farbe in Runde 1 für Spieler 1 IF Runde < 2 AND z = 2 THEN PRINT #f, "XXC black1" ' Farbe in Runde 1 für Spieler 1 ' END IF ' ******************************************************************************************************************************************************************** IF Paarungssystem = 8 OR Paarungssystem = 11 AND Runde > 1 THEN PRINT #f, "XXC rank" ' ******************************************************************************************************************************************************************** ' Schachmodus IF modus = 0 THEN IF Paarungssystem = 4 THEN PRINT #f, "BBW 1.0" IF Paarungssystem = 4 THEN PRINT #f, "BBD 0.5" ' IF Paarungssystem = 8 THEN PRINT #f, "BBL 0.0" ' IF Paarungssystem = 8 THEN PRINT #f, "BBZ 0.0" ' IF Paarungssystem = 8 THEN PRINT #f, "BBF 0.0" IF Paarungssystem = 4 AND HalbBye = 0 THEN PRINT #f, "BBU 1.0" IF Paarungssystem = 4 AND HalbBye = 1 THEN PRINT #f, "BBU 0.5" IF Paarungssystem = 8 THEN PRINT #f, "BBW 1.0" IF Paarungssystem = 8 THEN PRINT #f, "BBD 0.5" ' IF Paarungssystem = 8 THEN PRINT #f, "BBL 0.0" ' IF Paarungssystem = 8 THEN PRINT #f, "BBZ 0.0" ' IF Paarungssystem = 8 THEN PRINT #f, "BBF 0.0" IF Paarungssystem = 8 AND HalbBye = 0 THEN PRINT #f, "BBU 1.0" IF Paarungssystem = 8 AND HalbBye = 1 THEN PRINT #f, "BBU 0.5" IF Paarungssystem = 11 THEN PRINT #f, "BBW 1.0" IF Paarungssystem = 11 THEN PRINT #f, "BBD 0.5" ' IF Paarungssystem = 11 THEN PRINT #f, "BBL 0.0" ' IF Paarungssystem = 11 THEN PRINT #f, "BBZ 0.0" ' IF Paarungssystem = 11 THEN PRINT #f, "BBF 0.0" IF Paarungssystem = 11 AND HalbBye = 0 THEN PRINT #f, "BBU 1.0" IF Paarungssystem = 11 AND HalbBye = 1 THEN PRINT #f, "BBU 0.5" END IF ' Mühlemodus IF modus = 1 THEN IF Paarungssystem = 8 THEN PRINT #f, "BBW 2.0" IF Paarungssystem = 8 THEN PRINT #f, "BBD 1.0" IF Paarungssystem = 8 THEN PRINT #f, "BBL 0.0" IF Paarungssystem = 8 THEN PRINT #f, "BBZ 0.0" IF Paarungssystem = 8 THEN PRINT #f, "BBF 0.0" IF Paarungssystem = 8 AND HalbBye = 0 THEN PRINT #f, "BBU 2.0" IF Paarungssystem = 8 AND HalbBye = 1 THEN PRINT #f, "BBU 1.0" IF Paarungssystem = 11 THEN PRINT #f, "BBW 2.0" IF Paarungssystem = 11 THEN PRINT #f, "BBD 1.0" IF Paarungssystem = 11 THEN PRINT #f, "BBL 0.0" IF Paarungssystem = 11 THEN PRINT #f, "BBZ 0.0" IF Paarungssystem = 11 THEN PRINT #f, "BBF 0.0" IF Paarungssystem = 11 AND HalbBye = 0 THEN PRINT #f, "BBU 2.0" IF Paarungssystem = 11 AND HalbBye = 1 THEN PRINT #f, "BBU 1.0" END IF IF Paarungssystem < 8 THEN PRINT #f, " " FOR j AS INTEGER = 1 TO TAZ N = STR(Gesamtpunkte(j)) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N u = 0 IF Runde > 1 THEN FOR z = 1 TO ppr(runde) IF paarungen(z,1,runde-1) = l THEN u += 1 IF paarungen(z,2,runde-1) = l THEN u += 1 NEXT END IF IF Paarungssystem < 3 THEN u = 0 ' wegen dem Rundensystem und Rutschsystem, damit die TRF-Datei korrekt erstellt wird!!! ' Testen sollte ich auch eine ungerade Zahl, sowie kampflose Ergebnisse IF Geschlecht(j) = "m" OR Geschlecht(j) = "M" THEN IF u < 1 THEN ' JaVaFo IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + " " + Geburt(j) + SPACE(10-LEN(Geburt(j))) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) ' JaVaFo IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 2 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " ELSE PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF END IF END IF IF Geschlecht(j) = "w" OR Geschlecht(j) = "W" OR Geschlecht(j) = "f" OR Geschlecht(j) = "F" THEN IF u < 1 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + " " + Geburt(j) + SPACE(10-LEN(Geburt(j))) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 2 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " ELSE PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF END IF END IF IF Geschlecht(j) = " " OR Geschlecht(j) = "" THEN IF u < 1 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + " " + Geburt(j) + SPACE(10-LEN(Geburt(j))) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 2 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " ELSE PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF END IF END IF NEXT END IF ' IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär in eine Datei speichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ FOR k = 1 TO Runde IF fehlendeSpieler(l, k-1) = 3 THEN PRINT #f, " 0000 - F"; IF fehlendeSpieler(l, k-1) = 2 THEN PRINT #f, " 0000 - H"; IF fehlendeSpieler(l, k-1) = 1 THEN PRINT #f, " 0000 - Z"; IF fehlendeSpieler(l, k-1) = -1 THEN PRINT #f, " 0000 - 0"; FOR j = 1 TO ppr(runde) ' IF fehlendeSpieler(paarungen(j,1,k), k) = 0 AND fehlendeSpieler(paarungen(j,2,k), k) = 0 THEN IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "1"; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "1"; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "0"; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "0"; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "="; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "="; ' + Ergebnis END IF ' kampflose Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 1 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w -"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b -"; END IF ' Ergebnisse für Partien mit nur einem Zug! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 2 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w 1"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w 0"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 2 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b 1"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b 0"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w ="; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b ="; END IF ' Gegner spielfrei IF paarungen(j,1,k) = 0 OR paarungen(j,2,k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 1 THEN PRINT #f, " 0000 - +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 1 THEN PRINT #f, " 0000 - +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, " 0000 - U"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, " 0000 - U"; END IF NEXT NEXT ' Spieler anwesend/abwesend eintragen IF Runde > 1 THEN IF fehlendeSpieler(l, Runde) <> 1 AND fehlendeSpieler(l, Runde) <> -1 AND fehlendeSpieler(l, Runde) <> 2 AND fehlendeSpieler(l, Runde) <> 3 THEN PRINT #f, " " ' Spieler anwesend END IF IF fehlendeSpieler(l, Runde) = 3 THEN PRINT #f, " 0000 - F " ' Spieler abwesend END IF IF fehlendeSpieler(l, Runde) = 2 THEN PRINT #f, " 0000 - H " ' Spieler abwesend END IF IF fehlendeSpieler(l, Runde) = 1 THEN PRINT #f, " 0000 - Z " ' Spieler abwesend END IF IF fehlendeSpieler(l, Runde) = -1 THEN PRINT #f, " 0000 - 0 " ' (manuelle Paarung definieren) END IF END IF NEXT CLOSE #f ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f ' KILL(EXEPATH + "\Temp.tmp") END IF ' Zufallszahl ermitteln für Farbe IF Runde = 1 THEN FENSTERFARBE ' z = INT(RND * 2) + 1 OPEN EXEPATH + "\javafo_in.txt" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Anzahl der Spieler mit Rating ermitteln k = 0 FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN k +=1 NEXT ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(j, 9) = Eingabe(9) Temp(j, 10) = Eingabe(10) Temp(j, 12) = Eingabe(12) Temp(j, 14) = Eingabe(14) OemToChar Eingabe(9), Temp(j, 9) OemToChar Eingabe(10), Temp(j, 10) OemToChar Eingabe(12), Temp(j, 12) OemToChar Eingabe(14), Temp(j, 14) ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(j, 9) ' Turniername PRINT #f, "022 " + Temp(j, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation PRINT #f, "042 " + Eingabe(21) ' Turnierbeginn PRINT #f, "052 " + Eingabe(22) ' Turnierende PRINT #f, "062 " + STR(TAZ) ' Anzahl der Teilnehmer IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN PRINT #f, "072 " + STR(k) ' Anzahl der Spieler mit ELO-Zahl IF Paarungssystem = 5 THEN PRINT #f, "072 " + STR(k) ' Für Mannschaftsturniere im Schweizer System IF Paarungssystem = 8 OR Paarungssystem = 11 THEN PRINT #f, "082 0" ' Anzahl der Mannschaften im Schweizer System für bbpPairings IF Paarungssystem < 3 THEN PRINT #f, "092 " + "Round Robin" 'Paarungssystem IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 5 OR Paarungssystem = 8 OR Paarungssystem = 11 THEN PRINT #f, "092 " + "Individual: Swiss System" PRINT #f, "102 " + Temp(j, 14) ' Hauptschiedsrichter PRINT #f, "122 " + Temp(j, 12) ' Bedenkzeit PRINT #f, "XXR " + STR(RAZ) ' Anzahl der Runden IF Runde < 2 AND z = 1 THEN PRINT #f, "XXC white1" ' Farbe in Runde 1 für Spieler 1 IF Runde < 2 AND z = 2 THEN PRINT #f, "XXC black1" ' Farbe in Runde 1 für Spieler 1 PRINT #f, " " FOR j AS INTEGER = 1 TO TAZ N = STR(Gesamtpunkte(j)) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N u = 0 IF Runde > 1 THEN FOR z = 1 TO ppr(runde) IF paarungen(z,1,runde-1) = l THEN u += 1 IF paarungen(z,2,runde-1) = l THEN u += 1 NEXT END IF IF Paarungssystem < 3 THEN u = 0 ' wegen dem Rundensystem und Rutschsystem, damit die TRF-Datei korrekt erstellt wird!!! ' Testen sollte ich auch eine ungerade Zahl, sowie kampflose Ergebnisse IF Geschlecht(j) = "m" OR Geschlecht(j) = "M" THEN IF u < 1 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + " " + Geburt(j) + SPACE(10-LEN(Geburt(j))) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 2 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " ELSE PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF END IF END IF IF Geschlecht(j) = "w" OR Geschlecht(j) = "W" OR Geschlecht(j) = "f" OR Geschlecht(j) = "F" THEN IF u < 1 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + " " + Geburt(j) + SPACE(10-LEN(Geburt(j))) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 2 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " ELSE PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF END IF END IF IF Geschlecht(j) = " " OR Geschlecht(j) = "" THEN IF u < 1 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + " " + Geburt(j) + SPACE(10-LEN(Geburt(j))) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 2 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " ELSE PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF END IF END IF NEXT END IF ' PRINT #f, "" 'Zeilenabschluss ' Schweizer System - Beschleunigtes Paaren a la Baku IF Paarungssystem = 4 THEN ' IF Runde < 2 THEN Baku(1) = (TAZ/2) Sprachausgaben(0) = STR(Baku(1)) IF INSTR(Sprachausgaben(0), ".") = 0 THEN ' keine Kommazahl IF Baku(1) MOD 2 <> 0 THEN Baku(1) += 1 ELSE ' Kommazahl Baku(1) = FIX(Baku(1)) IF Baku(1) MOD 2 <> 0 THEN Baku(1) += 1 ELSE Baku(1) += 2 END IF ' END IF ' Rundenanzahl der Beschleunigung errechnen/definieren Baku(2) = (RAZ/2) Sprachausgaben(0) = STR(Baku(2)) IF INSTR(Sprachausgaben(0), ".") = 0 THEN ' keine Kommazahl, nichts machen ELSE ' Kommazahl = 1 dazurechnen Baku(2) = FIX(Baku(2)) Baku(2) += 1 END IF ' Anzahl der Runden mit 1.0 definieren Baku(3) = (Baku(2)/2) Sprachausgaben(0) = STR(Baku(3)) IF INSTR(Sprachausgaben(0), ".") = 0 THEN ' keine Kommazahl, nichts machen ELSE ' Kommazahl = 1 dazuzählen Baku(3) = FIX(Baku(3)) Baku(3) += 1 END IF FOR j = 1 TO TAZ PRINT #f, "XXA" + SPACE(5-LEN(STR(j))) + STR(j) + " "; FOR k = 1 TO Runde IF j <= Baku(1) THEN IF k <= Baku(2) THEN IF k <= Baku(3) THEN PRINT #f, "1.0 "; IF k > Baku(3) THEN PRINT #f, "0.5 "; ELSE PRINT #f, "0.0 "; END IF ELSE PRINT #f, "0.0 "; END IF NEXT PRINT #f, "" NEXT END IF '/ ' Punktesystem für Mühleturniere IF Modus = 1 THEN PRINT #f, "" PRINT #f, "XXS WW=2 WD=1 WL=0 BW=2 BD=1 BL=0" PRINT #f, "XXS FL=0 FW=2" PRINT #f, "XXS PAB=2 FPB=2 HPB=1 ZPB=0" END IF CLOSE #f END IF ' TRF-Datei für ELO-Auswertung erstellen IF j = 4 THEN IF Rang(1) = -1 THEN TABELLE(0) ' Einzelmodus IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ Temp(j, 1) = "" Temp(j, 1) = Spieler(j) OemToChar Spieler(j), Temp(j, 1) l = INSTR(Temp(j, 1), "ß") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ss" & MID(Temp(j, 1), l+1)' ß END IF l = INSTR(Temp(j, 1), "Ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ae" & MID(Temp(j, 1), l+1)' Ä END IF l = INSTR(Temp(j, 1), "ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ae" & MID(Temp(j, 1), l+1)' ä END IF l = INSTR(Temp(j, 1), "Ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Oe" & MID(Temp(j, 1), l+1)' Ö END IF l = INSTR(Temp(j, 1), "ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "oe" & MID(Temp(j, 1), l+1)' ö END IF l = INSTR(Temp(j, 1), "Ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ue" & MID(Temp(j, 1), l+1)' Ü END IF l = INSTR(Temp(j, 1), "ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ue" & MID(Temp(j, 1), l+1)' ü END IF NEXT ' Partien pro Runde zwischenspeichern FOR j = 1 TO RAZ pprAlt(j) = ppr(j) NEXT ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 ELSE ppr(runde) = TAZ / 2 END IF IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär in eine Datei speichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ FOR k = 1 TO runde ' Runde IF fehlendeSpieler(l, k-1) = 3 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - F"; IF fehlendeSpieler(l, k-1) = 2 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - H"; IF fehlendeSpieler(l, k-1) = 1 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - Z"; IF fehlendeSpieler(l, k-1) = -1 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - 0"; FOR j = 1 TO ppr(runde) ' ppr(Runde) ' IF fehlendeSpieler(paarungen(j,1,k), k) = 0 AND fehlendeSpieler(paarungen(j,2,k), k) = 0 THEN IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 AND Punkte(paarungen(j,2,k),k) <> 2000 AND Punkte(paarungen(j,1,k),k) <> 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + STR(Punkte(paarungen(j,1,k),k)); ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 AND Punkte(paarungen(j,1,k),k) <> 2000 AND Punkte(paarungen(j,2,k),k) <> 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + STR(Punkte(paarungen(j,2,k),k)); ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "="; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "="; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,2,k),k) = 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + SPACE(LEN(STR(paarungen(j,2,k)))) + " "; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,1,k),k) = 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + SPACE(LEN(STR(paarungen(j,1,k)))) + " "; END IF ' kampflose Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 1 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w -"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b -"; END IF ' Ergebnisse für Partien mit nur einem Zug! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 2 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w W"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w L"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b W"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b L"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w D"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b D"; END IF ' Gegner spielfrei IF paarungen(j,1,k) = 0 OR paarungen(j,2,k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, " 0000 - H"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, " 0000 - H"; END IF NEXT NEXT ' Spieler anwesend/abwesend eintragen IF Runde > 1 AND Runde <= RAZ THEN IF fehlendeSpieler(l, Runde) <> 1 AND fehlendeSpieler(l, Runde) <> -1 AND fehlendeSpieler( l, Runde) <> 2 AND fehlendeSpieler( l, Runde) <> 3 THEN PRINT #f, "" ' Spieler anwesend END IF IF fehlendeSpieler(l, Runde) = 1 AND Paarungssystem < 3 THEN PRINT #f, "" END IF IF fehlendeSpieler(l, Runde) = 3 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - F" ' Spieler abwesend - Vollpunktbye END IF IF fehlendeSpieler(l, Runde) = 2 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - H" ' Spieler abwesend - Halbpunktbye END IF IF fehlendeSpieler(l, Runde) = 1 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - Z" ' Spieler abwesend - Zeropunktbye END IF IF fehlendeSpieler(l, Runde) = -1 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - 0" ' manuelle Paarung definieren END IF END IF NEXT CLOSE #f ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f ' KILL(EXEPATH + "\Temp.tmp") END IF ' Zufallszahl ermitteln für Farbe z = INT(RND * 2) + 1 OPEN AA + "_TRF16.trf" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Anzahl der Spieler mit Rating ermitteln k = 0 FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN k +=1 NEXT ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(j, 9) = Eingabe(9) Temp(j, 10) = Eingabe(10) Temp(j, 12) = Eingabe(12) Temp(j, 14) = Eingabe(14) Temp(j, 15) = Eingabe(15) Temp(j, 16) = Eingabe(16) Temp(j, 17) = Eingabe(17) Temp(j, 18) = Eingabe(18) Temp(j, 19) = Eingabe(19) OemToChar Eingabe(9), Temp(j, 9) OemToChar Eingabe(10), Temp(j, 10) OemToChar Eingabe(12), Temp(j, 12) OemToChar Eingabe(14), Temp(j, 14) OemToChar Eingabe(15), Temp(j, 15) OemToChar Eingabe(16), Temp(j, 16) OemToChar Eingabe(17), Temp(j, 17) OemToChar Eingabe(18), Temp(j, 18) OemToChar Eingabe(19), Temp(j, 19) FOR t = 9 TO 19 xxx = INSTR(Temp(j, t), "ß") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ss" & MID(Temp(j, t), xxx+1)' ß END IF xxx = INSTR(Temp(j, t), "Ä") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Ae" & MID(Temp(j, t), xxx+1)' Ä END IF xxx = INSTR(Temp(j, t), "ä") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ae" & MID(Temp(j, t), xxx+1) ' ä END IF xxx = INSTR(Temp(j, t), "Ö") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Oe" & MID(Temp(j, t), xxx+1)' Ö END IF xxx = INSTR(Temp(j, t), "ö") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "oe" & MID(Temp(j, t), xxx+1)' ö END IF xxx = INSTR(Temp(j, t), "Ü") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Ue" & MID(Temp(j, t), xxx+1)' Ü END IF xxx = INSTR(Temp(j, 1), "ü") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ue" & MID(Temp(j, t), xxx+1)' ü END IF NEXT ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(j, 9) ' Turniername PRINT #f, "022 " + Temp(j, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation IF LEN(Eingabe(21)) = 10 THEN PRINT #f, "042" + SPACE(11-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) ' Turnierbeginn IF LEN(Eingabe(22)) = 10 THEN PRINT #f, "052" + SPACE(11-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) ' Turnierende IF LEN(Eingabe(21)) = 4 THEN PRINT #f, "042" + SPACE(5-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) = 4 THEN PRINT #f, "052" + SPACE(5-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/00/00" ' Turnierende IF LEN(Eingabe(21)) <> 4 AND LEN(Eingabe(21)) <> 10 THEN PRINT #f, "042" + " 0000/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) <> 4 AND LEN(Eingabe(22)) <> 10 THEN PRINT #f, "052" + " 0000/00/00" ' Turnierende PRINT #f, "062 " + STR(TAZ) ' Anzahl der Teilnehmer PRINT #f, "072 " + STR(k) ' Anzahl der Spieler mit ELO-Zahl IF Paarungssystem < 3 THEN PRINT #f, "092 " + "Individual: Round Robin" ' Paarungssystem IF Paarungssystem = 3 OR Paarungssystem = 4 THEN PRINT #f, "092 " + "Individual: Swiss System Dutch (JaVaFo)" ' Paarungssystem IF Paarungssystem = 8 THEN PRINT #f, "092 " + "Individual: Swiss System Burstein (BPP)" ' Paarungssystem IF Paarungssystem = 11 THEN PRINT #f, "092 " + "Individual: Swiss System Dutch (BPP)" ' Paarungssystem IF Paarungssystem = 9 THEN PRINT #f, "092 " + "Individual: KO-System" PRINT #f, "102 " + Temp(j, 14) ' Hauptschiedsrichter PRINT #f, "112 " + Temp(j, 15) + "; " + Temp(j, 16) + "; " + Temp(j, 17) + "; " + Temp(j, 18) + "; " + Temp(j, 19) ' Weitere Schiedsrichter 15-19 PRINT #f, "122 " + Temp(j, 12) ' Bedenkzeit PRINT #f, "XXR " + STR(RAZ) ' ******************************************************************************************************************************************* ' Datum der einzelnen Runden in eine Datei speichern mittels einer FOR - NEXT Schleife!!! PRINT #f, "132 " + SPACE(87); FOR j = 1 TO RAZ IF Datum(j) <> "" THEN PRINT #f, RIGHT(Datum(j),2); "/"; MID(Datum(j),4,2); "/"; LEFT(Datum(j),2); " "; ELSE PRINT #f, " "; NEXT PRINT #f, "" ' ******************************************************************************************************************************************* PRINT #f, "" ' Leerzeile ' Infozeile PRINT #f, "DDD SSSS sTTT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RRRR FFF IIIIIIIIIII BBBB/BB/BB PPPP RRRR"; FOR z = 1 TO RAZ PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1); NEXT PRINT #f, "" FOR j AS INTEGER = 1 TO TAZ N = STR(Gesamtpunkte(j)) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N u = 0 IF Runde > 1 THEN FOR z = 1 TO ppr(runde) IF paarungen(z,1,runde-1) = l THEN u += 1 IF paarungen(z,2,runde-1) = l THEN u += 1 NEXT END IF IF Paarungssystem < 3 THEN u = 0 ' wegen dem Rundensystem und Rutschsystem, damit die TRF-Datei korrekt erstellt wird!!! ' Testen sollte ich auch eine ungerade Zahl, sowie kampflose Ergebnisse IF Geschlecht(j) = "m" OR Geschlecht(j) = "M" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF IF Geschlecht(j) = "w" OR Geschlecht(j) = "W" OR Geschlecht(j) = "f" OR Geschlecht(j) = "F" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF IF Geschlecht(j) = " " OR Geschlecht(j) = "" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF NEXT PRINT #f, "" IF Feinwertungssystem(1) = 2 THEN PRINT #f, "XXT Sonneborn-Berger" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "XXT NumberOfWins" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "XXT BCH" IF Feinwertungssystem(2) = 2 THEN PRINT #f, "XXT Sonneborn-Berger" IF Feinwertungssystem(2) = 3 THEN PRINT #f, "XXT NumberOfWins" IF Feinwertungssystem(2) = 4 THEN PRINT #f, "XXT BCH" CLOSE #f END IF ' Mannschaftsmodus IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ FOR k = 1 TO 50 Temp(j*50-50+k, 1) = "" Temp(j*50-50+k, 1) = Spieler(j*50-50+k) OemToChar Spieler(j*50-50+k), Temp(j*50-50+k, 1) l = INSTR(Temp(j*50-50+k, 1), "ß") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ss" & MID(Temp(j*50-50+k, 1), l+1)' ß END IF l = INSTR(Temp(j*50-50+k, 1), "Ä") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Ae" & MID(Temp(j*50-50+k, 1), l+1)' Ä END IF l = INSTR(Temp(j*50-50+k, 1), "ä") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ae" & MID(Temp(j*50-50+k, 1), l+1)' ä END IF l = INSTR(Temp(j*50-50+k, 1), "Ö") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Oe" & MID(Temp(j*50-50+k, 1), l+1)' Ö END IF l = INSTR(Temp(j*50-50+k, 1), "ö") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "oe" & MID(Temp(j*50-50+k, 1), l+1)' ö END IF l = INSTR(Temp(j*50-50+k, 1), "Ü") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Ue" & MID(Temp(j*50-50+k, 1), l+1)' Ü END IF l = INSTR(Temp(j*50-50+k, 1), "ü") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ue" & MID(Temp(j*50-50+k, 1), l+1)' ü END IF NEXT NEXT ' Anzahl der nicht vorhandenen Mannschaftsspieler errechnen FOR j = 1 TO TAZ IF Team(j) = "" THEN EXIT FOR ' Schleife verlassen, wenn letzte Mannschaft aufgerufen wurde! z = 0 FOR k = 1 TO 50 IF Spieler((((j)*50-50)+k)) <> "" THEN z+= 1 NEXT TempPunkte(j, 6) = 50-z ' Anzahl der nicht vorhandenen Mannschaftsspieler errechnen NEXT ' Ergebnisse zwischenspeichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ ' Verein FOR k = 1 TO 50 ' Mannschaftsspieler FOR r = 1 TO runde ' Runde ' IF Spieler(l*50-50+k) = "" THEN EXIT FOR z = 0 FOR j = 1 TO Bretter ' Mannschaftsbretter der jeweiligen Paarungen IF (l*50-50+k) = (l*50-50+(Teamspieler(l, j, r))) THEN ' FOR t = 1 TO ppr(r) IF l = paarungen(t, 1, r) OR l = paarungen(t, 2, r) THEN EXIT FOR NEXT ' Ergebnisse und Paarungen in Datei speichern IF l = paarungen(t,1,r) THEN ' Abzugswert errechnen e = 0 FOR bb = 1 TO ((paarungen(t,2,r))-1) e += TempPunkte(bb, 6) NEXT ' IF LEFT(Einzelergebnisse(t, j, r), 1) = "1" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b 1 "; ' + Ergebnis IF LEFT(Einzelergebnisse(t, j, r), 1) = "0" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b 0 "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "R" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b = "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "+" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b + "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "-" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b - "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "W" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b W "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "D" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b D "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "L" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b L "; ' END IF IF l = paarungen(t,2,r) THEN ' Abzugswert errechnen e = 0 FOR bb = 1 TO ((paarungen(t,1,r))-1) e += TempPunkte(bb, 6) NEXT ' IF LEFT(Einzelergebnisse(t, j, r), 1) = "1" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w 0 "; ' + Ergebnis IF LEFT(Einzelergebnisse(t, j, r), 1) = "0" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w 1 "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "R" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w = "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "+" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w + "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "-" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w - "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "W" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w W "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "D" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w D "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "L" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w L "; ' END IF z = 1 END IF IF j = Bretter AND z = 0 AND r < Runde THEN PRINT #f, "0000 - - "; IF j = Bretter AND z = 0 AND r >= Runde THEN PRINT #f, "0000 - -"; NEXT NEXT PRINT #f, "" ' Neue Zeile NEXT NEXT CLOSE #f ' IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f END IF j = 1 ' OPEN AA + "_TRF16.trf" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(0, 9) = Eingabe(9) Temp(0, 10) = Eingabe(10) Temp(0, 12) = Eingabe(12) Temp(0, 14) = Eingabe(14) Temp(0, 15) = Eingabe(15) Temp(0, 16) = Eingabe(16) Temp(0, 17) = Eingabe(17) Temp(0, 18) = Eingabe(18) Temp(0, 19) = Eingabe(19) OemToChar Eingabe(9), Temp(0, 9) OemToChar Eingabe(10), Temp(0, 10) OemToChar Eingabe(12), Temp(0, 12) OemToChar Eingabe(14), Temp(0, 14) OemToChar Eingabe(15), Temp(0, 15) OemToChar Eingabe(16), Temp(0, 16) OemToChar Eingabe(17), Temp(0, 17) OemToChar Eingabe(18), Temp(0, 18) OemToChar Eingabe(19), Temp(0, 19) FOR t = 9 TO 19 DO xxx = INSTR(Temp(0, t), ANY "ß") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ss" & MID(Temp(0, t), xxx+1)' ß END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ä") k = LEN(Temp(0, t)) IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Ae" & MID(Temp(0, t), xxx+1)' Ä END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ä") k = LEN(Temp(0, t)) IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ae" & MID(Temp(0, t), xxx+1) ' ä END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ö") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Oe" & MID(Temp(0, t), xxx+1)' Ö END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ö") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "oe" & MID(Temp(0, t), xxx+1)' ö END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ü") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Ue" & MID(Temp(0, t), xxx+1)' Ü END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ü") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ue" & MID(Temp(0, t), xxx+1)' ü END IF LOOP WHILE xxx > 0 NEXT ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(0, 9) ' Turniername PRINT #f, "022 " + Temp(0, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation ' PRINT #f, "042 " + Eingabe(21) ' Turnierbeginn ' PRINT #f, "052 " + Eingabe(22) ' Turnierende IF LEN(Eingabe(21)) = 10 THEN PRINT #f, "042" + SPACE(11-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) ' Turnierbeginn IF LEN(Eingabe(22)) = 10 THEN PRINT #f, "052" + SPACE(11-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) ' Turnierende IF LEN(Eingabe(21)) = 4 THEN PRINT #f, "042" + SPACE(5-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) = 4 THEN PRINT #f, "052" + SPACE(5-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/00/00" ' Turnierende IF LEN(Eingabe(21)) <> 4 AND LEN(Eingabe(21)) <> 10 THEN PRINT #f, "042" + " " ' Turnierbeginn IF LEN(Eingabe(22)) <> 4 AND LEN(Eingabe(22)) <> 10 THEN PRINT #f, "052" + " " ' Turnierende ' Anzahl der Mannschaftsspieler und der Mannschaftsspieler mit ELO-Zahl errechnen t = 1 r = 1 FOR j = 1 TO TAZ FOR k = 1 TO 50 IF Temp(j*50-50+k, 1) <> "" THEN t += 1 IF ELO(j*50-50+k) <> 0 THEN r += 1 NEXT NEXT t-= 1 r -= 1 ' PRINT #f, "062 " + STR(t) ' Anzahl der Mannschaftsspieler PRINT #f, "072 " + STR(r) ' Anzahl der Spieler mit ELO-Zahl PRINT #f, "082 " + STR(TAZ) ' Anzahl der Mannschaften IF Paarungssystem = 6 OR Paarungssystem = 7 THEN PRINT #f, "092 " + "Team: Round Robin" 'Paarungssystem ' IF Paarungssystem = 2 THEN PRINT #f, "092 " + "Round Robin" IF Paarungssystem = 5 THEN PRINT #f, "092 " + "Team: Swiss System Dutch (JaVaFo)" PRINT #f, "102 " + Temp(0, 14) ' Hauptschiedsrichter PRINT #f, "112 " + Temp(0, 15) + "; " + Temp(0, 16) + "; " + Temp(0, 17) + "; " + Temp(0, 18) + "; " + Temp(0, 19) ' Weitere Schiedsrichter 15-19 PRINT #f, "122 " + Temp(0, 12) ' Bedenkzeit PRINT #f, "XXR " + STR(RAZ) ' ******************************************************************************************************************************************* ' Datum der einzelnen Runden in eine Datei speichern mittels einer FOR - NEXT Schleife!!! PRINT #f, "132 " + SPACE(87); FOR j = 1 TO RAZ IF Datum(j) <> "" THEN PRINT #f, RIGHT(Datum(j),2); "/"; MID(Datum(j),4,2); "/"; LEFT(Datum(j),2); " "; ELSE PRINT #f, " "; NEXT PRINT #f, "" ' ******************************************************************************************************************************************* PRINT #f, "" ' Leerzeile ' Infozeile PRINT #f, "DDD SSSS sTTT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RRRR FFF IIIIIIIIIII BBBB/BB/BB PPPP RRRR"; FOR z = 1 TO RAZ PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1); NEXT PRINT #f, "" ' ' N = STR(Gesamtpunkte(j)) ' IF INSTR(N, ".") = 0 THEN N += ".0" ' IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N ' Spieler + Paarungen IF Geschlecht(j*50-50+k) = "m" OR Geschlecht(j*50-50+k) = "M" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF IF Geschlecht(j*50-50+k) = "w" OR Geschlecht(j*50-50+k) = "W" OR Geschlecht(j*50-50+k) = "f" OR Geschlecht(j*50-50+k) = "F" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF IF Geschlecht(j*50-50+k) = " " OR Geschlecht(j*50-50+k) = "" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " " + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " " + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF ' Spielfrei eintragen bei ungerade Teilnehmerzahl IF TAZ MOD 2 <> 0 THEN e += 50 z = ((j*50-50+Bretter)-e) z += 1 FOR j = 1 TO Bretter PRINT #f, "001" + SPACE(5-LEN(STR(z))) + STR(z) + " " + " " + LEFT("spielfrei", 34) + SPACE(34-LEN("spielfrei")) + " " + " " + " " + " " + " " + " 0.0" + SPACE(5-LEN(STR((z)))) + STR(z) + " " + SPACE(runde*10) z += 1 NEXT END IF PRINT #f, "" ' Leerzeile ' Vereine FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT ' Vereinsname speichern PRINT #f, "013 " + Team(j) + SPACE(32-LEN(Team(j))); ' Spielernummer speichern FOR k = 1 TO 50 IF Temp(j*50-50+k, 1) <> "" THEN z = ((j*50-50+k)-e) PRINT #f, SPACE(4-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " "; END IF IF Temp(j*50-50+k, 1) = "" THEN EXIT FOR NEXT PRINT #f, "" ' Leerzeile NEXT ' Spielfrei eintragen bei ungerade Teilnehmerzahl IF TAZ MOD 2 <> 0 THEN PRINT #f, "013 " + "spielfrei" + SPACE(32-LEN("spielfrei")); z += 1 FOR k = 1 TO Bretter PRINT #f, SPACE(4-LEN(STR(z))) + STR(z) + " "; z += 1 NEXT END IF PRINT #f, "" ' Leerzeile PRINT #f, "" ' Leerzeile ' Feinwertung definieren IF Feinwertungssystem(1) = 2 THEN PRINT #f, "XXT Sonneborn-Berger" IF Feinwertungssystem(1) = 3 THEN PRINT #f, "XXT NumberOfWins" IF Feinwertungssystem(1) = 4 THEN PRINT #f, "XXT BCH" IF Feinwertungssystem(2) = 2 THEN PRINT #f, "XXT Sonneborn-Berger" IF Feinwertungssystem(2) = 3 THEN PRINT #f, "XXT NumberOfWins" IF Feinwertungssystem(2) = 4 THEN PRINT #f, "XXT BCH" CLOSE #f END IF ' Partien pro Runde zurückspeichern FOR j = 1 TO RAZ ppr(j) = pprAlt(j) NEXT EXIT SUB END IF ' TRF Datei einlesen??? IF j = 2 OR j = 3 THEN z = 1 IF DateiName <> "" THEN FOR j = 1 TO TAZ FOR k = 1 TO RAZ fehlendeSpieler(j, k) = 0 NEXT NEXT RUECKSETZEN ' eingegebene Daten löschen ' j = 1 t = 1 k = 1 ' Daten einlesen UND Teilnehmer parallel ermitteln OPEN DateiName FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, zeile(j) ' Ab hier folgt Ihr originaler Einlese-Code: IF LEFT(zeile(j), 3) = "012" THEN Eingabe(9) = MID(zeile(j), 5, 50) ' Turniername IF LEFT(zeile(j), 3) = "022" THEN Eingabe(10) = MID(zeile(j), 5, 50) ' Turnierort IF LEFT(zeile(j), 3) = "032" THEN Eingabe(11) = MID(zeile(j), 5, 50) ' Förderung IF LEFT(zeile(j), 3) = "042" THEN Eingabe(21) = MID(zeile(j), 5, 10) ' Datum Beginn IF LEFT(zeile(j), 3) = "052" THEN Eingabe(22) = MID(zeile(j), 5, 10) ' Datum Ende ' Falls die optionale Zeile 062 doch existiert, überschreibt sie den Zähler mit dem exakten Wert IF LEFT(zeile(j), 3) = "062" THEN TAZ = VAL(MID(zeile(j), 5, 50)) IF LEFT(zeile(j), 3) = "102" THEN Eingabe(14) = MID(zeile(j), 5, 50) ' Hauptschiedsrichter IF LEFT(zeile(j), 3) = "112" THEN Eingabe(15) = MID(zeile(j), 5, 50) ' Schiedsrichter IF LEFT(zeile(j), 3) = "122" THEN Eingabe(12) = MID(zeile(j), 5, 50) ' Bedenkzeit Paarungssystem = 3 ' Schweizer System ' --- Teilnehmeranzahl errechnen, falls die Zeile 062 in der TRF-Datei fehlt --- IF TAZ = 0 THEN IF LEFT(zeile(j), 3) = "001" THEN TAZ += 1 END IF END IF ' ------------------------------------------------ ' Feinwertungssysteme auslesen und festlegen IF LEFT(zeile(j), 3) = "202" THEN ' Positionen und Anzahl der Komma festlegen w = 1 l = 1 FOR a = 1 TO 3 TmpBrett(w) = INSTR(l, zeile(j), ",") IF TmpBrett(w) <> 0 THEN l = TmpBrett(w) + 1 w += 1 ELSE a -= 1 EXIT FOR END IF NEXT IF a > 2 THEN a = 1 ' Eingelesenes Auswerten IF TmpBrett(1) <> 0 THEN FOR l = 1 TO a aa = MID(zeile(j), TmpBrett(l)+1, (TmpBrett(l+1)-TmpBrett(l))-1) IF aa = "SB" THEN Feinwertungssystem(l) = 2 IF aa = "WIN" THEN Feinwertungssystem(l) = 3 IF aa = "BH" THEN Feinwertungssystem(l) = 4 ' IF aa = "" THEN Feinwertungssystem(l) = 5 ' IF aa = "" THEN Feinwertungssystem(l) = 6 IF aa = "KS" THEN Feinwertungssystem(l) = 7 IF aa = "BPG" THEN Feinwertungssystem(l) = 23 ' IF aa = "" THEN Feinwertungssystem(l) = 8 ' IF aa = "" THEN Feinwertungssystem(l) = 9 IF aa = "DE" THEN Feinwertungssystem(l) = 10 IF aa = "ARO" THEN Feinwertungssystem(l) = 11 IF aa = "TPR" THEN Feinwertungssystem(l) = 12 IF aa = "APRO" THEN Feinwertungssystem(l) = 13 IF aa = "REP" THEN Feinwertungssystem(l) = 14 IF aa = "AOB" THEN Feinwertungssystem(l) = 15 ' IF aa = "" THEN Feinwertungssystem(l) = 16 IF aa = "BWG" THEN Feinwertungssystem(l) = 17 IF aa = "PS" THEN Feinwertungssystem(l) = 18 IF aa = "FB" THEN Feinwertungssystem(l) = 19 ' IF aa = "" THEN Feinwertungssystem(l) = 23 ' IF aa = "" THEN Feinwertungssystem(l) = 26 ' IF aa = "" THEN Feinwertungssystem(l) = 27 IF aa = "PTP" THEN Feinwertungssystem(l) = 28 IF aa = "APPO" THEN Feinwertungssystem(l) = 29 IF aa = "RTNG" THEN Feinwertungssystem(l) = 30 IF aa = "STD" THEN Feinwertungssystem(l) = 31 IF aa = "BH/C1" THEN Feinwertungssystem(l) = -2 IF aa = "BH/C2" THEN Feinwertungssystem(l) = -3 IF aa = "BH/M1" THEN Feinwertungssystem(l) = -4 IF aa = "BH/M2" THEN Feinwertungssystem(l) = -5 IF aa = "SB/C1" THEN Feinwertungssystem(l) = -6 IF aa = "SB/C2" THEN Feinwertungssystem(l) = -7 IF aa = "FB/C1" THEN Feinwertungssystem(l) = -8 IF aa = "FB/C2" THEN Feinwertungssystem(l) = -9 IF aa = "FB/M1" THEN Feinwertungssystem(l) = -10 IF aa = "FB/M2" THEN Feinwertungssystem(l) = -11 IF aa = "ARO/C1" THEN Feinwertungssystem(l) = -12 IF aa = "ARO/C2" THEN Feinwertungssystem(l) = -13 IF aa = "ARO/M1" THEN Feinwertungssystem(l) = -14 IF aa = "ARO/M2" THEN Feinwertungssystem(l) = -15 IF aa = "PS/C1" THEN Feinwertungssystem(l) = -16 IF aa = "PS/C2" THEN Feinwertungssystem(l) = -17 IF aa = "BH/P" THEN Feinwertungssystem(l) = -18 IF aa = "BH/C1/P" THEN Feinwertungssystem(l) = -19 IF aa = "BH/C2/P" THEN Feinwertungssystem(l) = -20 IF aa = "BH/M1/P" THEN Feinwertungssystem(l) = -21 IF aa = "BH/M2/P" THEN Feinwertungssystem(l) = -22 IF aa = "SB/P" THEN Feinwertungssystem(l) = -23 IF aa = "SB/C1/P" THEN Feinwertungssystem(l) = -24 IF aa = "SB/C2/P" THEN Feinwertungssystem(l) = -25 IF aa = "FB/P" THEN Feinwertungssystem(l) = -26 IF aa = "FB/C1/P" THEN Feinwertungssystem(l) = -27 IF aa = "FB/C2/P" THEN Feinwertungssystem(l) = -28 IF aa = "FB/M1/P" THEN Feinwertungssystem(l) = -29 IF aa = "FB/M2/P" THEN Feinwertungssystem(l) = -30 IF aa = "DE/P" THEN Feinwertungssystem(l) = -31 IF aa = "AOB/F" THEN Feinwertungssystem(l) = -32 NEXT END IF END IF ' Feinwertungssysteme festlegen, wenn nur eines oder gar keines aus der Datei eingelesen wurde! IF TmpBrett(1) = 0 THEN Feinwertungssystem(1) = 0 Feinwertungssystem(2) = 0 END IF IF TmpBrett(1) = 1 THEN ' Feinwertungssystem(2) = 0 END IF '/ ' Dynamisches Array-Anpassen, sobald TAZ bekannt ist oder wächst IF TAZ > 0 THEN REDIM PRESERVE AS INTEGER paarungen(0 TO (TAZ+1), 0 TO 2, 0 TO 37) END IF ' Spieler einlesen IF LEFT(zeile(j), 3) = "001" THEN r = ((LEN(zeile(j)) - 91) / 10) IF RAZ < r THEN RAZ = r Titel(j) = UCASE(MID(zeile(j), 11, 3)) Titel(j) = LTRIM(Titel(j), ANY " ") ' ... [Rest Ihrer Titel-Ersetzungen (GM, IM, etc.)] ... Spieler(j) = RTRIM(MID(zeile(j), 15, 33)) ELO(j) = VAL(MID(zeile(j), 49, 4)) e = INSTR(MID(zeile(j), 70, 10), " ") IF e = 0 THEN Geburt(j) = MID(zeile(j), 78, 2) + "." + MID(zeile(j), 75, 2) + "." + MID(zeile(j), 70, 4) IF e = 1 THEN Geburt(j) = "00.00.0000" IF e = 6 THEN Geburt(j) = "00.00." + MID(zeile(j), 70, 4) IF e = 9 THEN Geburt(j) = "00." + MID(zeile(j), 76, 2) + "." + MID(zeile(j), 70, 4) Nation(j) = MID(zeile(j), 54, 3) Geschlecht(j) = MID(zeile(j), 10, 1) FIDEID(j) = MID(zeile(j), 58, 10) FIDEID(j) = LTRIM(FIDEID(j), ANY " ") j += 1 ' Erhöht den Index für die nächste Zeile im Array END IF LOOP CLOSE #f ' Anzahl der Teilnehmer pro Runde ermitteln FOR k = 1 TO RAZ FOR j = 1 TO TAZ Farbe = MID(Zeile(j), 97+(10*(k-1)), 1) IF Farbe = "b" OR Farbe = "B" OR Farbe = "w" OR Farbe = "W" OR Farbe = "-" OR Farbe = " " THEN IF MID(Zeile(j), 92+(10*(k-1)), 4) <> "0000" AND MID(Zeile(j), 92+(10*(k-1)), 4) <> " " THEN IF MID(Zeile(j), 99+(10*(k-1)), 1) <> "Z" AND MID(Zeile(j), 99+(10*(k-1)), 1) <> "H" AND MID(Zeile(j), 99+(10*(k-1)), 1) <> "F" AND MID(Zeile(j), 99+(10*(k-1)), 1) <> " " THEN ppr(k) += 1 END IF IF MID(Zeile(j), 92+(10*(k-1)), 4) = "0000" OR MID(Zeile(j), 92+(10*(k-1)), 4) <> " " THEN IF MID(Zeile(j), 99+(10*(k-1)), 1) = "U" THEN ppr(k) += 1 END IF END IF NEXT NEXT ' Partien pro Runde ermitteln! FOR k = 1 TO RAZ IF ppr(k) MOD 2 <> 0 THEN ppr(k) = ((ppr(k) + 1) / 2) ELSE ppr(k) = (ppr(k) / 2) END IF NEXT FOR k = 1 TO RAZ FOR j = 1 TO TAZ Farbe = MID(Zeile(j), 97+(10*(k-1)), 1) IF genommen(j, k) = 0 OR genommen(VAL(MID(Zeile(j), 92+(10*(k-1)), 4)), k) = 0 THEN IF Farbe = "b" OR Farbe = "B" THEN paarungen(t,1,k) = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) paarungen(t,2,k) = j genommen(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "+" THEN kampflose(t, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "-" THEN kampflose(t, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "W" THEN kampflose(t, k) = 2 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "L" THEN kampflose(t, k) = 2 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "D" THEN kampflose(t, k) = 2 t += 1 END IF END IF IF genommen(j, k) = 0 OR genommen(VAL(MID(Zeile(j), 92+(10*(k-1)), 4)), k) = 0 THEN IF Farbe = "w" OR Farbe = "W" THEN paarungen(t,2,k) = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) paarungen(t,1,k) = j genommen(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "+" THEN kampflose(t, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "-" THEN kampflose(t, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "W" THEN kampflose(t, k) = 2 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "L" THEN kampflose(t, k) = 2 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "D" THEN kampflose(t, k) = 2 t += 1 END IF END IF ' y = 0 yy = VAL(MID(Zeile(j), 81, 4)) ' Punkte des jeweiligen Spielers definieren für Pairing-Allocated-Bye ' Punkte des jeweiligen Spielers errechnen für Pairing-Allocated-Bye FOR l = 1 TO RAZ IF MID(Zeile(j), 99+(10*(l-1)), 1) = "1" OR MID(Zeile(j), 99+(10*(l-1)), 1) = "+" OR MID(Zeile(j), 99+(10*(l-1)), 1) = "W" OR MID(Zeile(j), 99+(10*(l-1)), 1) = "U" OR MID(Zeile(j), 99+(10*(l-1)), 1) = "F" THEN y += 1 IF MID(Zeile(j), 99+(10*(l-1)), 1) = "=" OR MID(Zeile(j), 99+(10*(l-1)), 1) = "D" OR MID(Zeile(j), 99+(10*(l-1)), 1) = "H" THEN y += 0.5 NEXT ' IF genommen(j, k) = 0 OR genommen(VAL(MID(Zeile(j), 92+(10*(k-1)), 4)), k) = 0 THEN IF MID(Zeile(j), 92+(10*(k-1)), 4) = "0000" OR MID(Zeile(j), 92+(10*(k-1)), 4) = " " THEN IF Farbe = "-" OR Farbe = " " THEN ' Spieler ist spielfrei - 1 Punkt IF MID(Zeile(j), 99+(10*(k-1)), 1) = "U" THEN IF y = yy THEN paarungen(t,2,k) = 0 paarungen(t,1,k) = j Punkte(paarungen(t,1,k),k) = 1 Punkte(paarungen(t,2,k),k) = 0 kampflose(t, k) = 1 genommen(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 t += 1 HalbBye = 0 END IF END IF IF MID(Zeile(j), 99+(10*(k-1)), 1) = "+" THEN paarungen(t,2,k) = 0 paarungen(t,1,k) = j Punkte(paarungen(t,1,k),k) = 1 Punkte(paarungen(t,2,k),k) = 0 kampflose(t, k) = 1 genommen(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 t += 1 HalbBye = 0 END IF ' Spieler ist spielfrei - 0.5 Punkte IF MID(Zeile(j), 99+(10*(k-1)), 1) = "=" THEN paarungen(t,2,k) = 0 paarungen(t,1,k) = j Punkte(paarungen(t,1,k),k) = 0.5 Punkte(paarungen(t,2,k),k) = 0 kampflose(t, k) = 1 genommen(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 t += 1 HalbBye = 1 END IF IF MID(Zeile(j), 99+(10*(k-1)), 1) = "U" THEN IF y <> yy THEN paarungen(t,2,k) = 0 paarungen(t,1,k) = j Punkte(paarungen(t,1,k),k) = 0.5 Punkte(paarungen(t,2,k),k) = 0 kampflose(t, k) = 1 genommen(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 t += 1 HalbBye = 1 END IF END IF ' Spieler setzt eine Runde aus mit 0 Punkten IF MID(Zeile(j), 99+(10*(k-1)), 1) = "Z" OR MID(Zeile(j), 99+(10*(k-1)), 1) = " " OR MID(Zeile(j), 99+(10*(k-1)), 1) = "-" THEN fehlendeSpieler(j, k) = 1 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 END IF ' Spieler setzt eine Runde aus mit 0.5 Punkten IF MID(Zeile(j), 99+(10*(k-1)), 1) = "H" THEN fehlendeSpieler(j, k) = 2 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 END IF ' Spieler setzt eine Runde aus mit 1 Punkten - (Vollpunktbyes) IF MID(Zeile(j), 99+(10*(k-1)), 1) = "F" THEN fehlendeSpieler(j, k) = 3 z = VAL(MID(Zeile(j), 92+(10*(k-1)), 4)) genommen(z, k) = 1 END IF END IF END IF END IF IF MULTIKEY(&h01) THEN EXIT SUB NEXT t = 1 NEXT t = 1 ' Punkte einlesen FOR k = 1 TO RAZ FOR j = 1 TO TAZ Farbe = MID(Zeile(j), 97+(10*(k-1)), 1) IF Farbe = "b" OR Farbe = "B" THEN IF MID(Zeile(j), 99+(10*(k-1)), 1) = "1" THEN Punkte(j, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "0" THEN Punkte(j, k) = 0 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "=" THEN Punkte(j, k) = 0.5 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "+" THEN Punkte(j, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "-" THEN Punkte(j, k) = 0 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "W" THEN Punkte(j, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "L" THEN Punkte(j, k) = 0 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "D" THEN Punkte(j, k) = 0.5 IF MID(Zeile(j), 99+(10*(k-1)), 1) = " " THEN Punkte(j, k) = 2000 t += 1 END IF IF Farbe = "w" OR Farbe = "W" THEN IF MID(Zeile(j), 99+(10*(k-1)), 1) = "1" THEN Punkte(j, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "0" THEN Punkte(j, k) = 0 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "=" THEN Punkte(j, k) = 0.5 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "+" THEN Punkte(j, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "-" THEN Punkte(j, k) = 0 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "W" THEN Punkte(j, k) = 1 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "L" THEN Punkte(j, k) = 0 IF MID(Zeile(j), 99+(10*(k-1)), 1) = "D" THEN Punkte(j, k) = 0.5 IF MID(Zeile(j), 99+(10*(k-1)), 1) = " " THEN Punkte(j, k) = 2000 t += 1 END IF NEXT t = 1 NEXT ' Ungültige Ergebnisse löschen FOR k = 1 TO RAZ FOR j = 1 TO ppr(r) IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 1 THEN Punkte(paarungen(j,1,k),k) = 2000: Punkte(paarungen(j,2,k),k) = 2000: kampflose(j, k) = 0 IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 0.5 THEN Punkte(paarungen(j,1,k),k) = 2000: Punkte(paarungen(j,2,k),k) = 2000: kampflose(j, k) = 0 IF Punkte(paarungen(j,1,k),k) = 0.5 AND Punkte(paarungen(j,2,k),k) = 1 THEN Punkte(paarungen(j,1,k),k) = 2000: Punkte(paarungen(j,2,k),k) = 2000: kampflose(j, k) = 0 NEXT NEXT END IF ' Rundendatum + Rundenuhrzeit initialisieren REDIM AS STRING Datum(RAZ) REDIM AS STRING Uhrzeit(RAZ) ' ausgeloste Runden definieren FOR z = 1 TO RAZ ausgelosteRunde(z) = 1 NEXT ' Sonderzeichen umwandeln j -= 1 FOR k = 1 TO j CharToOem Spieler(k), Spieler(k) NEXT CharToOem Eingabe(9), Eingabe(9) ' Turniername CharToOem Eingabe(10), Eingabe(10) ' Turnierort CharToOem Eingabe(11), Eingabe(11) ' Förderation CharToOem Eingabe(21), Eingabe(21) ' Datum Turnierbeginn CharToOem Eingabe(22), Eingabe(22) ' Datum Turnierende ' CharToOem Eingabe(16), Eingabe(16) ' Turniertyp CharToOem Eingabe(14), Eingabe(14) ' Hauptschiedsrichter CharToOem Eingabe(15), Eingabe(15) ' Schiedsrichter CharToOem Eingabe(12), Eingabe(12) ' Bedenkzeit ' Spieler und/oder Paarungen anzeigen ANZEIGE(1) END IF ' TRF Datei erstellen für "Gacruxtb.exe", zum errechnen der Streichwertung IF j = 5 THEN ' IF Rang(1) = 0 THEN TABELLE(0) ' TABELLE(0) ' Einzelmodus IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ Temp(j, 1) = "" Temp(j, 1) = Spieler(j) OemToChar Spieler(j), Temp(j, 1) l = INSTR(Temp(j, 1), "ß") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ss" & MID(Temp(j, 1), l+1)' ß END IF l = INSTR(Temp(j, 1), "Ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ae" & MID(Temp(j, 1), l+1)' Ä END IF l = INSTR(Temp(j, 1), "ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ae" & MID(Temp(j, 1), l+1)' ä END IF l = INSTR(Temp(j, 1), "Ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Oe" & MID(Temp(j, 1), l+1)' Ö END IF l = INSTR(Temp(j, 1), "ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "oe" & MID(Temp(j, 1), l+1)' ö END IF l = INSTR(Temp(j, 1), "Ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ue" & MID(Temp(j, 1), l+1)' Ü END IF l = INSTR(Temp(j, 1), "ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ue" & MID(Temp(j, 1), l+1)' ü END IF NEXT ' Partien pro Runde zwischenspeichern FOR j = 1 TO RAZ pprAlt(j) = ppr(j) NEXT ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 ELSE ppr(runde) = TAZ / 2 END IF '/ IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär in eine Datei speichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ FOR k = 1 TO Runde ' Runde IF fehlendeSpieler(l, k-1) = 3 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - F"; ' IF fehlendeSpieler(l, k-1) = 3 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - F" IF fehlendeSpieler(l, k-1) = 2 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - H"; IF fehlendeSpieler(l, k-1) = 1 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - Z"; IF fehlendeSpieler(l, k-1) = -1 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - 0"; FOR j = 1 TO ppr(runde) ' ppr(Runde) ' IF fehlendeSpieler(paarungen(j,1,k), k) = 0 AND fehlendeSpieler(paarungen(j,2,k), k) = 0 THEN IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 AND Punkte(paarungen(j,2,k),k) <> 2000 AND Punkte(paarungen(j,1,k),k) <> 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + STR(Punkte(paarungen(j,1,k),k)); ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 AND Punkte(paarungen(j,1,k),k) <> 2000 AND Punkte(paarungen(j,2,k),k) <> 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + STR(Punkte(paarungen(j,2,k),k)); ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "="; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "="; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,2,k),k) = 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + SPACE(LEN(STR(paarungen(j,2,k)))) + " "; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,1,k),k) = 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + SPACE(LEN(STR(paarungen(j,1,k)))) + " "; END IF ' kampflose Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 1 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w -"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b -"; END IF ' Ergebnisse für Partien mit nur einem Zug! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 2 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w W"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w L"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b W"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b L"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w D"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b D"; END IF ' Gegner spielfrei IF paarungen(j,1,k) = 0 OR paarungen(j,2,k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, " 0000 - H"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, " 0000 - H"; END IF NEXT NEXT ' Spieler anwesend/abwesend eintragen IF Runde > 1 AND Runde <= RAZ THEN IF fehlendeSpieler(l, Runde) <> 1 AND fehlendeSpieler(l, Runde) <> -1 AND fehlendeSpieler( l, Runde) <> 2 AND fehlendeSpieler( l, Runde) <> 3 THEN PRINT #f, "" ' Spieler anwesend END IF IF fehlendeSpieler(l, Runde) = 1 AND Paarungssystem < 3 THEN PRINT #f, "" END IF IF fehlendeSpieler(l, Runde) = 3 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - F" ' Spieler abwesend - Vollpunktbye END IF IF fehlendeSpieler(l, Runde) = 2 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - H" ' Spieler abwesend - Halbpunktbye END IF IF fehlendeSpieler(l, Runde) = 1 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - Z" ' Spieler abwesend - Zeropunktbye END IF IF fehlendeSpieler(l,Runde) = -1 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - 0" ' manuelle Paarung definieren END IF END IF NEXT CLOSE #f ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f ' KILL(EXEPATH + "\Temp.tmp") END IF ' Zufallszahl ermitteln für Farbe z = INT(RND * 2) + 1 OPEN "engine26.trf" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Anzahl der Spieler mit Rating ermitteln k = 0 FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN k +=1 NEXT ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(j, 9) = Eingabe(9) Temp(j, 10) = Eingabe(10) Temp(j, 12) = Eingabe(12) Temp(j, 14) = Eingabe(14) Temp(j, 15) = Eingabe(15) Temp(j, 16) = Eingabe(16) Temp(j, 17) = Eingabe(17) Temp(j, 18) = Eingabe(18) Temp(j, 19) = Eingabe(19) OemToChar Eingabe(9), Temp(j, 9) OemToChar Eingabe(10), Temp(j, 10) OemToChar Eingabe(12), Temp(j, 12) OemToChar Eingabe(14), Temp(j, 14) OemToChar Eingabe(15), Temp(j, 15) OemToChar Eingabe(16), Temp(j, 16) OemToChar Eingabe(17), Temp(j, 17) OemToChar Eingabe(18), Temp(j, 18) OemToChar Eingabe(19), Temp(j, 19) FOR t = 9 TO 19 xxx = INSTR(Temp(j, t), "ß") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ss" & MID(Temp(j, t), xxx+1)' ß END IF xxx = INSTR(Temp(j, t), "Ä") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Ae" & MID(Temp(j, t), xxx+1)' Ä END IF xxx = INSTR(Temp(j, t), "ä") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ae" & MID(Temp(j, t), xxx+1) ' ä END IF xxx = INSTR(Temp(j, t), "Ö") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Oe" & MID(Temp(j, t), xxx+1)' Ö END IF xxx = INSTR(Temp(j, t), "ö") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "oe" & MID(Temp(j, t), xxx+1)' ö END IF xxx = INSTR(Temp(j, t), "Ü") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Ue" & MID(Temp(j, t), xxx+1)' Ü END IF xxx = INSTR(Temp(j, 1), "ü") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ue" & MID(Temp(j, t), xxx+1)' ü END IF NEXT ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(j, 9) ' Turniername PRINT #f, "022 " + Temp(j, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation IF LEN(Eingabe(21)) = 10 THEN PRINT #f, "042" + SPACE(11-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) ' Turnierbeginn IF LEN(Eingabe(22)) = 10 THEN PRINT #f, "052" + SPACE(11-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) ' Turnierende IF LEN(Eingabe(21)) = 4 THEN PRINT #f, "042" + SPACE(5-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) = 4 THEN PRINT #f, "052" + SPACE(5-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/00/00" ' Turnierende IF LEN(Eingabe(21)) <> 4 AND LEN(Eingabe(21)) <> 10 THEN PRINT #f, "042" + " 0000/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) <> 4 AND LEN(Eingabe(22)) <> 10 THEN PRINT #f, "052" + " 0000/00/00" ' Turnierende PRINT #f, "062 " + STR(TAZ) ' Anzahl der Teilnehmer PRINT #f, "072 " + STR(k) ' Anzahl der Spieler mit ELO-Zahl IF Paarungssystem < 3 THEN PRINT #f, "092 " + "Individual: Round Robin" ' Paarungssystem IF Paarungssystem = 3 OR Paarungssystem = 4 THEN PRINT #f, "092 " + "Individual: Swiss System Dutch (JaVaFo)" ' Paarungssystem IF Paarungssystem = 8 THEN PRINT #f, "092 " + "Individual: Swiss System Burstein (BPP)" ' Paarungssystem IF Paarungssystem = 11 THEN PRINT #f, "092 " + "Individual: Swiss System Dutch (BPP)" ' Paarungssystem IF Paarungssystem = 9 THEN PRINT #f, "092 " + "Individual: KO-System" PRINT #f, "102 " + Temp(j, 14) ' Hauptschiedsrichter PRINT #f, "112 " + Temp(j, 15) + "; " + Temp(j, 16) + "; " + Temp(j, 17) + "; " + Temp(j, 18) + "; " + Temp(j, 19) ' Weitere Schiedsrichter 15-19 PRINT #f, "122 " + Temp(j, 12) ' Bedenkzeit PRINT #f, "XXR " + STR(RAZ) ' ******************************************************************************************************************************************* ' Datum der einzelnen Runden in eine Datei speichern mittels einer FOR - NEXT Schleife!!! PRINT #f, "132 " + SPACE(87); FOR j = 1 TO Runde IF Datum(j) <> "" THEN PRINT #f, RIGHT(Datum(j),2); "/"; MID(Datum(j),4,2); "/"; LEFT(Datum(j),2); " "; ELSE PRINT #f, " "; NEXT PRINT #f, "" ' ******************************************************************************************************************************************* PRINT #f, "" ' Leerzeile ' Infozeile PRINT #f, "DDD SSSS sTTT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RRRR FFF IIIIIIIIIII BBBB/BB/BB PPPP RRRR"; FOR z = 1 TO Runde PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1); NEXT PRINT #f, "" FOR j AS INTEGER = 1 TO TAZ N = STR(Gesamtpunkte(j)) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N u = 0 IF Runde > 1 THEN FOR z = 1 TO ppr(runde) IF paarungen(z,1,runde-1) = l THEN u += 1 IF paarungen(z,2,runde-1) = l THEN u += 1 NEXT END IF IF Paarungssystem < 3 THEN u = 0 ' wegen dem Rundensystem und Rutschsystem, damit die TRF-Datei korrekt erstellt wird!!! ' Testen sollte ich auch eine ungerade Zahl, sowie kampflose Ergebnisse IF Geschlecht(j) = "m" OR Geschlecht(j) = "M" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF IF Geschlecht(j) = "w" OR Geschlecht(j) = "W" OR Geschlecht(j) = "f" OR Geschlecht(j) = "F" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF IF Geschlecht(j) = " " OR Geschlecht(j) = "" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF NEXT PRINT #f, "" CLOSE #f END IF ' Mannschaftsmodus IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ FOR k = 1 TO 50 Temp(j*50-50+k, 1) = "" Temp(j*50-50+k, 1) = Spieler(j*50-50+k) OemToChar Spieler(j*50-50+k), Temp(j*50-50+k, 1) l = INSTR(Temp(j*50-50+k, 1), "ß") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ss" & MID(Temp(j*50-50+k, 1), l+1)' ß END IF l = INSTR(Temp(j*50-50+k, 1), "Ä") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Ae" & MID(Temp(j*50-50+k, 1), l+1)' Ä END IF l = INSTR(Temp(j*50-50+k, 1), "ä") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ae" & MID(Temp(j*50-50+k, 1), l+1)' ä END IF l = INSTR(Temp(j*50-50+k, 1), "Ö") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Oe" & MID(Temp(j*50-50+k, 1), l+1)' Ö END IF l = INSTR(Temp(j*50-50+k, 1), "ö") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "oe" & MID(Temp(j*50-50+k, 1), l+1)' ö END IF l = INSTR(Temp(j*50-50+k, 1), "Ü") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Ue" & MID(Temp(j*50-50+k, 1), l+1)' Ü END IF l = INSTR(Temp(j*50-50+k, 1), "ü") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ue" & MID(Temp(j*50-50+k, 1), l+1)' ü END IF NEXT NEXT ' Anzahl der nicht vorhandenen Mannschaftsspieler errechnen FOR j = 1 TO TAZ IF Team(j) = "" THEN EXIT FOR ' Schleife verlassen, wenn letzte Mannschaft aufgerufen wurde! z = 0 FOR k = 1 TO 50 IF Spieler((((j)*50-50)+k)) <> "" THEN z+= 1 NEXT TempPunkte(j, 6) = 50-z ' Anzahl der nicht vorhandenen Mannschaftsspieler errechnen NEXT ' Ergebnisse zwischenspeichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ ' Verein FOR k = 1 TO 50 ' Mannschaftsspieler FOR r = 1 TO Runde ' Runde ' IF Spieler(l*50-50+k) = "" THEN EXIT FOR z = 0 FOR j = 1 TO Bretter ' Mannschaftsbretter der jeweiligen Paarungen IF (l*50-50+k) = (l*50-50+(Teamspieler(l, j, r))) THEN ' FOR t = 1 TO ppr(r) IF l = paarungen(t, 1, r) OR l = paarungen(t, 2, r) THEN EXIT FOR NEXT ' Ergebnisse und Paarungen in Datei speichern IF l = paarungen(t,1,r) THEN ' Abzugswert errechnen e = 0 FOR bb = 1 TO ((paarungen(t,2,r))-1) e += TempPunkte(bb, 6) NEXT ' IF LEFT(Einzelergebnisse(t, j, r), 1) = "1" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b 1 "; ' + Ergebnis IF LEFT(Einzelergebnisse(t, j, r), 1) = "0" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b 0 "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "R" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b = "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "+" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b + "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "-" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b - "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "W" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b W "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "D" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b D "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "L" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b L "; ' END IF IF l = paarungen(t,2,r) THEN ' Abzugswert errechnen e = 0 FOR bb = 1 TO ((paarungen(t,1,r))-1) e += TempPunkte(bb, 6) NEXT ' IF LEFT(Einzelergebnisse(t, j, r), 1) = "1" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w 0 "; ' + Ergebnis IF LEFT(Einzelergebnisse(t, j, r), 1) = "0" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w 1 "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "R" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w = "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "+" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w + "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "-" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w - "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "W" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w W "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "D" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w D "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "L" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w L "; ' END IF z = 1 END IF IF j = Bretter AND z = 0 AND r < Runde THEN PRINT #f, "0000 - - "; IF j = Bretter AND z = 0 AND r >= Runde THEN PRINT #f, "0000 - -"; NEXT NEXT PRINT #f, "" ' Neue Zeile NEXT NEXT CLOSE #f ' IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f END IF j = 1 ' OPEN "engine26.trf" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(0, 9) = Eingabe(9) Temp(0, 10) = Eingabe(10) Temp(0, 12) = Eingabe(12) Temp(0, 14) = Eingabe(14) Temp(0, 15) = Eingabe(15) Temp(0, 16) = Eingabe(16) Temp(0, 17) = Eingabe(17) Temp(0, 18) = Eingabe(18) Temp(0, 19) = Eingabe(19) OemToChar Eingabe(9), Temp(0, 9) OemToChar Eingabe(10), Temp(0, 10) OemToChar Eingabe(12), Temp(0, 12) OemToChar Eingabe(14), Temp(0, 14) OemToChar Eingabe(15), Temp(0, 15) OemToChar Eingabe(16), Temp(0, 16) OemToChar Eingabe(17), Temp(0, 17) OemToChar Eingabe(18), Temp(0, 18) OemToChar Eingabe(19), Temp(0, 19) FOR t = 9 TO 19 DO xxx = INSTR(Temp(0, t), ANY "ß") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ss" & MID(Temp(0, t), xxx+1)' ß END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ä") k = LEN(Temp(0, t)) IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Ae" & MID(Temp(0, t), xxx+1)' Ä END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ä") k = LEN(Temp(0, t)) IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ae" & MID(Temp(0, t), xxx+1) ' ä END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ö") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Oe" & MID(Temp(0, t), xxx+1)' Ö END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ö") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "oe" & MID(Temp(0, t), xxx+1)' ö END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ü") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Ue" & MID(Temp(0, t), xxx+1)' Ü END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ü") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ue" & MID(Temp(0, t), xxx+1)' ü END IF LOOP WHILE xxx > 0 NEXT ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(0, 9) ' Turniername PRINT #f, "022 " + Temp(0, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation ' PRINT #f, "042 " + Eingabe(21) ' Turnierbeginn ' PRINT #f, "052 " + Eingabe(22) ' Turnierende IF LEN(Eingabe(21)) = 10 THEN PRINT #f, "042" + SPACE(11-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) ' Turnierbeginn IF LEN(Eingabe(22)) = 10 THEN PRINT #f, "052" + SPACE(11-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) ' Turnierende IF LEN(Eingabe(21)) = 4 THEN PRINT #f, "042" + SPACE(5-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) = 4 THEN PRINT #f, "052" + SPACE(5-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/00/00" ' Turnierende IF LEN(Eingabe(21)) <> 4 AND LEN(Eingabe(21)) <> 10 THEN PRINT #f, "042" + " " ' Turnierbeginn IF LEN(Eingabe(22)) <> 4 AND LEN(Eingabe(22)) <> 10 THEN PRINT #f, "052" + " " ' Turnierende ' Anzahl der Mannschaftsspieler und der Mannschaftsspieler mit ELO-Zahl errechnen t = 1 r = 1 FOR j = 1 TO TAZ FOR k = 1 TO 50 IF Temp(j*50-50+k, 1) <> "" THEN t += 1 IF ELO(j*50-50+k) <> 0 THEN r += 1 NEXT NEXT t-= 1 r -= 1 ' PRINT #f, "062 " + STR(t) ' Anzahl der Mannschaftsspieler PRINT #f, "072 " + STR(r) ' Anzahl der Spieler mit ELO-Zahl PRINT #f, "082 " + STR(TAZ) ' Anzahl der Mannschaften IF Paarungssystem = 6 OR Paarungssystem = 7 THEN PRINT #f, "092 " + "Team: Round Robin" 'Paarungssystem ' IF Paarungssystem = 2 THEN PRINT #f, "092 " + "Round Robin" IF Paarungssystem = 5 THEN PRINT #f, "092 " + "Team: Swiss System Dutch (JaVaFo)" PRINT #f, "102 " + Temp(0, 14) ' Hauptschiedsrichter PRINT #f, "112 " + Temp(0, 15) + "; " + Temp(0, 16) + "; " + Temp(0, 17) + "; " + Temp(0, 18) + "; " + Temp(0, 19) ' Weitere Schiedsrichter 15-19 PRINT #f, "122 " + Temp(0, 12) ' Bedenkzeit PRINT #f, "XXR " + STR(RAZ) ' ******************************************************************************************************************************************* ' Datum der einzelnen Runden in eine Datei speichern mittels einer FOR - NEXT Schleife!!! PRINT #f, "132 " + SPACE(87); FOR j = 1 TO RAZ IF Datum(j) <> "" THEN PRINT #f, RIGHT(Datum(j),2); "/"; MID(Datum(j),4,2); "/"; LEFT(Datum(j),2); " "; ELSE PRINT #f, " "; NEXT PRINT #f, "" ' ******************************************************************************************************************************************* PRINT #f, "" ' Leerzeile ' Infozeile PRINT #f, "DDD SSSS sTTT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RRRR FFF IIIIIIIIIII BBBB/BB/BB PPPP RRRR"; FOR z = 1 TO RAZ PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1); NEXT PRINT #f, "" ' Spieler + Paarungen IF Geschlecht(j*50-50+k) = "m" OR Geschlecht(j*50-50+k) = "M" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF IF Geschlecht(j*50-50+k) = "w" OR Geschlecht(j*50-50+k) = "W" OR Geschlecht(j*50-50+k) = "f" OR Geschlecht(j*50-50+k) = "F" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF IF Geschlecht(j*50-50+k) = " " OR Geschlecht(j*50-50+k) = "" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " " + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " " + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF ' Spielfrei eintragen bei ungerade Teilnehmerzahl IF TAZ MOD 2 <> 0 THEN e += 50 z = ((j*50-50+Bretter)-e) z += 1 FOR j = 1 TO Bretter PRINT #f, "001" + SPACE(5-LEN(STR(z))) + STR(z) + " " + " " + LEFT("spielfrei", 34) + SPACE(34-LEN("spielfrei")) + " " + " " + " " + " " + " " + " 0.0" + SPACE(5-LEN(STR((z)))) + STR(z) + " " + SPACE(runde*10) z += 1 NEXT END IF PRINT #f, "" ' Leerzeile ' Vereine FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT ' Vereinsname speichern PRINT #f, "013 " + Team(j) + SPACE(32-LEN(Team(j))); ' Spielernummer speichern FOR k = 1 TO 50 IF Temp(j*50-50+k, 1) <> "" THEN z = ((j*50-50+k)-e) PRINT #f, SPACE(4-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " "; END IF IF Temp(j*50-50+k, 1) = "" THEN EXIT FOR NEXT PRINT #f, "" ' Leerzeile NEXT ' Spielfrei eintragen bei ungerade Teilnehmerzahl IF TAZ MOD 2 <> 0 THEN PRINT #f, "013 " + "spielfrei" + SPACE(32-LEN("spielfrei")); z += 1 FOR k = 1 TO Bretter PRINT #f, SPACE(4-LEN(STR(z))) + STR(z) + " "; z += 1 NEXT END IF PRINT #f, "" ' Leerzeile PRINT #f, "" ' Leerzeile CLOSE #f END IF ' Partien pro Runde zurückspeichern FOR j = 1 TO RAZ ppr(j) = pprAlt(j) NEXT EXIT SUB END IF ' TRF-Datei für ELO-Auswertung erstellen - TRF26 IF j = 6 THEN IF Rang(1) = -1 THEN TABELLE(0) ' Einzelmodus IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ Temp(j, 1) = "" Temp(j, 1) = Spieler(j) OemToChar Spieler(j), Temp(j, 1) l = INSTR(Temp(j, 1), "ß") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ss" & MID(Temp(j, 1), l+1)' ß END IF l = INSTR(Temp(j, 1), "Ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ae" & MID(Temp(j, 1), l+1)' Ä END IF l = INSTR(Temp(j, 1), "ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ae" & MID(Temp(j, 1), l+1)' ä END IF l = INSTR(Temp(j, 1), "Ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Oe" & MID(Temp(j, 1), l+1)' Ö END IF l = INSTR(Temp(j, 1), "ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "oe" & MID(Temp(j, 1), l+1)' ö END IF l = INSTR(Temp(j, 1), "Ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ue" & MID(Temp(j, 1), l+1)' Ü END IF l = INSTR(Temp(j, 1), "ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ue" & MID(Temp(j, 1), l+1)' ü END IF NEXT ' Partien pro Runde zwischenspeichern FOR j = 1 TO RAZ pprAlt(j) = ppr(j) NEXT ' Partien pro Runde ermitteln! IF TAZ MOD 2 <> 0 THEN ppr(runde) = (TAZ - 1) / 2 ppr(runde) += 1 ELSE ppr(runde) = TAZ / 2 END IF IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär in eine Datei speichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ FOR k = 1 TO runde ' Runde IF fehlendeSpieler(l, k-1) = 3 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - F"; IF fehlendeSpieler(l, k-1) = 2 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - H"; IF fehlendeSpieler(l, k-1) = 1 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - Z"; IF fehlendeSpieler(l, k-1) = -1 AND Paarungssystem > 2 THEN PRINT #f, " 0000 - 0"; FOR j = 1 TO ppr(runde) ' ppr(Runde) ' IF fehlendeSpieler(paarungen(j,1,k), k) = 0 AND fehlendeSpieler(paarungen(j,2,k), k) = 0 THEN IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 AND Punkte(paarungen(j,2,k),k) <> 2000 AND Punkte(paarungen(j,1,k),k) <> 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + STR(Punkte(paarungen(j,1,k),k)); ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 AND Punkte(paarungen(j,1,k),k) <> 2000 AND Punkte(paarungen(j,2,k),k) <> 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + STR(Punkte(paarungen(j,2,k),k)); ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w " + "="; ' + Ergebnis IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b " + "="; ' + Ergebnis IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,2,k),k) = 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + SPACE(LEN(STR(paarungen(j,2,k)))) + " "; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,1,k),k) = 2000 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + SPACE(LEN(STR(paarungen(j,1,k)))) + " "; END IF ' kampflose Ergebnisse IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 1 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w +"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w -"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b +"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b -"; END IF ' Ergebnisse für Partien mit nur einem Zug! IF paarungen(j,1,k) > 0 AND paarungen(j,2,k) > 0 AND kampflose(j, k) = 2 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w W"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w L"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b W"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b L"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " w D"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, SPACE(6-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " b D"; END IF ' Gegner spielfrei IF paarungen(j,1,k) = 0 OR paarungen(j,2,k) = 0 THEN IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) <> 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) <> 0.5 THEN PRINT #f, " 0000 - U"; IF paarungen(j,1,k) = l AND paarungen(j,2,k) <> l AND Punkte(paarungen(j,1,k),k) = 0.5 THEN PRINT #f, " 0000 - H"; IF paarungen(j,2,k) = l AND paarungen(j,1,k) <> l AND Punkte(paarungen(j,2,k),k) = 0.5 THEN PRINT #f, " 0000 - H"; END IF NEXT NEXT ' Spieler anwesend/abwesend eintragen IF Runde > 1 AND Runde <= RAZ THEN IF fehlendeSpieler(l, Runde) <> 1 AND fehlendeSpieler(l, Runde) <> -1 AND fehlendeSpieler( l, Runde) <> 2 AND fehlendeSpieler( l, Runde) <> 3 THEN PRINT #f, "" ' Spieler anwesend END IF IF fehlendeSpieler(l, Runde) = 1 AND Paarungssystem < 3 THEN PRINT #f, "" END IF IF fehlendeSpieler(l, Runde) = 3 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - F" ' Spieler abwesend - Vollpunktbye END IF IF fehlendeSpieler(l, Runde) = 2 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - H" ' Spieler abwesend - Halbpunktbye END IF IF fehlendeSpieler(l, Runde) = 1 AND Paarungssystem > 2 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - Z" ' Spieler abwesend - Zeropunktbye END IF IF fehlendeSpieler(l, Runde) = -1 THEN IF Runde <= RAZ THEN PRINT #f, " 0000 - 0" ' manuelle Paarung definieren END IF END IF NEXT CLOSE #f ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f ' KILL(EXEPATH + "\Temp.tmp") END IF ' Zufallszahl ermitteln für Farbe z = INT(RND * 2) + 1 OPEN AA + "_TRF 2026.trf" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Anzahl der Spieler mit Rating ermitteln k = 0 FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN k +=1 NEXT ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(j, 9) = Eingabe(9) Temp(j, 10) = Eingabe(10) Temp(j, 12) = Eingabe(12) Temp(j, 14) = Eingabe(14) Temp(j, 15) = Eingabe(15) Temp(j, 16) = Eingabe(16) Temp(j, 17) = Eingabe(17) Temp(j, 18) = Eingabe(18) Temp(j, 19) = Eingabe(19) OemToChar Eingabe(9), Temp(j, 9) OemToChar Eingabe(10), Temp(j, 10) OemToChar Eingabe(12), Temp(j, 12) OemToChar Eingabe(14), Temp(j, 14) OemToChar Eingabe(15), Temp(j, 15) OemToChar Eingabe(16), Temp(j, 16) OemToChar Eingabe(17), Temp(j, 17) OemToChar Eingabe(18), Temp(j, 18) OemToChar Eingabe(19), Temp(j, 19) FOR t = 9 TO 19 xxx = INSTR(Temp(j, t), "ß") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ss" & MID(Temp(j, t), xxx+1)' ß END IF xxx = INSTR(Temp(j, t), "Ä") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Ae" & MID(Temp(j, t), xxx+1)' Ä END IF xxx = INSTR(Temp(j, t), "ä") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ae" & MID(Temp(j, t), xxx+1) ' ä END IF xxx = INSTR(Temp(j, t), "Ö") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Oe" & MID(Temp(j, t), xxx+1)' Ö END IF xxx = INSTR(Temp(j, t), "ö") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "oe" & MID(Temp(j, t), xxx+1)' ö END IF xxx = INSTR(Temp(j, t), "Ü") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "Ue" & MID(Temp(j, t), xxx+1)' Ü END IF xxx = INSTR(Temp(j, 1), "ü") IF xxx > 0 THEN Temp(j, t) = LEFT(Temp(j, t), xxx-1) & "ue" & MID(Temp(j, t), xxx+1)' ü END IF NEXT ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(j, 9) ' Turniername PRINT #f, "022 " + Temp(j, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation IF LEN(Eingabe(21)) = 10 THEN PRINT #f, "042" + SPACE(11-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) ' Turnierbeginn IF LEN(Eingabe(22)) = 10 THEN PRINT #f, "052" + SPACE(11-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) ' Turnierende IF LEN(Eingabe(21)) = 4 THEN PRINT #f, "042" + SPACE(5-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) = 4 THEN PRINT #f, "052" + SPACE(5-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/00/00" ' Turnierende IF LEN(Eingabe(21)) <> 4 AND LEN(Eingabe(21)) <> 10 THEN PRINT #f, "042" + " 0000/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) <> 4 AND LEN(Eingabe(22)) <> 10 THEN PRINT #f, "052" + " 0000/00/00" ' Turnierende PRINT #f, "062 " + STR(TAZ) ' Anzahl der Teilnehmer PRINT #f, "072 " + STR(k) ' Anzahl der Spieler mit ELO-Zahl IF Paarungssystem < 3 THEN PRINT #f, "092 " + "Individual: Round Robin" ' Paarungssystem IF Paarungssystem = 3 THEN PRINT #f, "092 " + "Individual: Swiss System Dutch 2017 (JaVaFo)" ' Paarungssystem IF Paarungssystem = 8 THEN PRINT #f, "092 " + "Individual: Swiss System Burstein (BPP)" ' Paarungssystem IF Paarungssystem = 11 OR Paarungssystem = 4 THEN PRINT #f, "092 " + "Individual: Swiss System Dutch 2025 (BPP)" ' Paarungssystem IF Paarungssystem = 9 THEN PRINT #f, "092 " + "Individual: KO-System" PRINT #f, "102 " + Temp(j, 14) ' Hauptschiedsrichter PRINT #f, "112 " + Temp(j, 15) + "; " + Temp(j, 16) + "; " + Temp(j, 17) + "; " + Temp(j, 18) + "; " + Temp(j, 19) ' Weitere Schiedsrichter 15-19 PRINT #f, "122 " + Temp(j, 12) ' Bedenkzeit ' ******************************************************************************************************************************************* ' Datum der einzelnen Runden in eine Datei speichern mittels einer FOR - NEXT Schleife!!! PRINT #f, "132 " + SPACE(87); FOR j = 1 TO RAZ IF Datum(j) <> "" THEN PRINT #f, RIGHT(Datum(j),2); "/"; MID(Datum(j),4,2); "/"; LEFT(Datum(j),2); " "; ELSE PRINT #f, " "; NEXT ' ******************************************************************************************************************************************* PRINT #f, "" PRINT #f, "142 " + STR(RAZ) IF paarungen(1,1,1) = 1 THEN PRINT #f, "152 W" IF paarungen(1,2,1) = 1 THEN PRINT #f, "152 B" IF HalbBye = 0 THEN PRINT #f, "162 W 1.0 D 0.5 L 0.0 A 0.0 P 1.0 X 0.5" IF HalbBye = 1 THEN PRINT #f, "162 W 1.0 D 0.5 L 0.0 A 0.0 P 0.5 X 0.5" IF sortstartrank = 1 THEN PRINT #f, "172 " + Eingabe(11) + " FIDON" IF sortstartrank = 2 THEN PRINT #f, "172 " + Eingabe(11) + " NIDOF" IF sortstartrank = 3 OR sortstartrank = 4 THEN PRINT #f, "172 " + Eingabe(11) + " OTHER" PRINT #f, "182 " + "Schachturnierorganisationsprogramm / " + "Version: " + local_version ' Paarungen - Codes IF Paarungssystem = 0 THEN PRINT #f, "192 " + "BERGER DOUBLEROUNDROBIN" IF Paarungssystem = 1 THEN PRINT #f, "192 " + "BERGER_ROUNDROBIN" IF Paarungssystem = 2 THEN PRINT #f, "192 " + "CUSTOM ROUNDROBIN" IF Paarungssystem = 3 THEN PRINT #f, "192 " + "FIDE_DUTCH_2017" IF Paarungssystem = 4 THEN PRINT #f, "192 " + "FIDE_DUTCH_2025_BAKU" IF Paarungssystem = 5 THEN PRINT #f, "192 " + "FIDE TEAM" IF Paarungssystem = 6 THEN PRINT #f, "192 " + "BERGER TEAM ROUNDROBIN" IF Paarungssystem = 8 THEN PRINT #f, "192 " + "FIDE_BURSTEIN" IF Paarungssystem = 9 THEN PRINT #f, "192 " + "CUSTOM_KNOCKOUT" IF Paarungssystem = 11 THEN PRINT #f, "192 " + "FIDE_DUTCH_2025" ' Feinwertungen - Codes PRINT #f, "202 PTS,"; IF Feinwertungssystem(1) = 1 THEN PRINT #f, "???,"; IF Feinwertungssystem(1) = 2 THEN PRINT #f, "SB,"; IF Feinwertungssystem(1) = 3 THEN PRINT #f, "WIN,"; IF Feinwertungssystem(1) = 4 THEN PRINT #f, "BH,"; ' IF Feinwertungssystem(1) = 5 THEN PRINT #f, "Buchholzsumme,"; ' IF Feinwertungssystem(1) = 6 THEN PRINT #f, "Schmuljan,"; IF Feinwertungssystem(1) = 7 THEN PRINT #f, "KS,"; IF Feinwertungssystem(1) = 8 THEN PRINT #f, "BC,"; ' IF Feinwertungssystem(1) = 9 THEN PRINT #f, "3-Punkte-Regel,"; IF Feinwertungssystem(1) = 10 THEN PRINT #f, "DE,"; IF Feinwertungssystem(1) = 11 THEN PRINT #f, "ARO,"; IF Feinwertungssystem(1) = 12 THEN PRINT #f, "TPR,"; IF Feinwertungssystem(1) = 13 THEN PRINT #f, "APRO,"; IF Feinwertungssystem(1) = 14 THEN PRINT #f, "REP,"; IF Feinwertungssystem(1) = 15 THEN PRINT #f, "AOB,"; IF Feinwertungssystem(1) = 17 THEN PRINT #f, "BWG,"; IF Feinwertungssystem(1) = 18 THEN PRINT #f, "PS,"; IF Feinwertungssystem(1) = 19 THEN PRINT #f, "FB,"; IF Feinwertungssystem(1) = 23 THEN PRINT #f, "BPG,"; IF Feinwertungssystem(1) = 28 THEN PRINT #f, "APPO"; IF Feinwertungssystem(1) = 29 THEN PRINT #f, "PTP"; IF Feinwertungssystem(1) = 30 THEN PRINT #f, "RTNG"; IF Feinwertungssystem(1) = 31 THEN PRINT #f, "STD"; IF Feinwertungssystem(1) = -2 THEN PRINT #f, "BH-C1,"; IF Feinwertungssystem(1) = -3 THEN PRINT #f, "BH-C2,"; IF Feinwertungssystem(1) = -4 THEN PRINT #f, "BH-M1,"; IF Feinwertungssystem(1) = -5 THEN PRINT #f, "BH-M2,"; IF Feinwertungssystem(1) = -6 THEN PRINT #f, "SB-C1,"; IF Feinwertungssystem(1) = -7 THEN PRINT #f, "SB-C2,"; IF Feinwertungssystem(1) = -8 THEN PRINT #f, "FB-C1,"; IF Feinwertungssystem(1) = -9 THEN PRINT #f, "FB-C2,"; IF Feinwertungssystem(1) = -10 THEN PRINT #f, "FB-M1,"; IF Feinwertungssystem(1) = -11 THEN PRINT #f, "FB-M2,"; IF Feinwertungssystem(1) = -12 THEN PRINT #f, "ARO-C1,"; IF Feinwertungssystem(1) = -13 THEN PRINT #f, "ARO-C2,"; IF Feinwertungssystem(1) = -14 THEN PRINT #f, "ARO-M1,"; IF Feinwertungssystem(1) = -15 THEN PRINT #f, "ARO-M2,"; IF Feinwertungssystem(1) = -16 THEN PRINT #f, "PS-C1,"; IF Feinwertungssystem(1) = -17 THEN PRINT #f, "PS-C2,"; IF Feinwertungssystem(1) = -18 THEN PRINT #f, "BH-P"; IF Feinwertungssystem(1) = -19 THEN PRINT #f, "BH-C1-P"; IF Feinwertungssystem(1) = -20 THEN PRINT #f, "BH-C2-P"; IF Feinwertungssystem(1) = -21 THEN PRINT #f, "BH-M1-P"; IF Feinwertungssystem(1) = -22 THEN PRINT #f, "BH-M2-P"; IF Feinwertungssystem(1) = -23 THEN PRINT #f, "SB-P"; IF Feinwertungssystem(1) = -24 THEN PRINT #f, "SB-C1-P"; IF Feinwertungssystem(1) = -25 THEN PRINT #f, "SB-C2-P"; IF Feinwertungssystem(1) = -26 THEN PRINT #f, "FB-P"; IF Feinwertungssystem(1) = -27 THEN PRINT #f, "FB-C1-P"; IF Feinwertungssystem(1) = -28 THEN PRINT #f, "FB-C2-P"; IF Feinwertungssystem(1) = -29 THEN PRINT #f, "FB-M1-P"; IF Feinwertungssystem(1) = -30 THEN PRINT #f, "FB-M2-P"; IF Feinwertungssystem(1) = -31 THEN PRINT #f, "DE-P"; IF Feinwertungssystem(1) = -32 THEN PRINT #f, "AOB-F"; IF Feinwertungssystem(2) = 1 THEN PRINT #f, "???" IF Feinwertungssystem(2) = 2 THEN PRINT #f, "SB" IF Feinwertungssystem(2) = 3 THEN PRINT #f, "WIN" IF Feinwertungssystem(2) = 4 THEN PRINT #f, "BH" ' IF Feinwertungssystem(2) = 5 THEN PRINT #f, "Buchholzsumme" ' IF Feinwertungssystem(2) = 6 THEN PRINT #f, "Schmuljan" IF Feinwertungssystem(2) = 7 THEN PRINT #f, "KS" IF Feinwertungssystem(2) = 8 THEN PRINT #f, "BC" ' IF Feinwertungssystem(2) = 9 THEN PRINT #f, "3-Punkte-Regel" IF Feinwertungssystem(2) = 10 THEN PRINT #f, "DE" IF Feinwertungssystem(2) = 11 THEN PRINT #f, "ARO" IF Feinwertungssystem(2) = 12 THEN PRINT #f, "TPR" IF Feinwertungssystem(2) = 13 THEN PRINT #f, "APRO" IF Feinwertungssystem(2) = 14 THEN PRINT #f, "REP" IF Feinwertungssystem(2) = 15 THEN PRINT #f, "AOB" IF Feinwertungssystem(2) = 17 THEN PRINT #f, "BWG" IF Feinwertungssystem(2) = 18 THEN PRINT #f, "PS" IF Feinwertungssystem(2) = 19 THEN PRINT #f, "FB" IF Feinwertungssystem(2) = 23 THEN PRINT #f, "BPG" IF Feinwertungssystem(2) = 28 THEN PRINT #f, "APPO" IF Feinwertungssystem(2) = 29 THEN PRINT #f, "PTP" IF Feinwertungssystem(2) = 30 THEN PRINT #f, "RTNG" IF Feinwertungssystem(2) = 31 THEN PRINT #f, "STD" IF Feinwertungssystem(2) = -2 THEN PRINT #f, "BH-C1" IF Feinwertungssystem(2) = -3 THEN PRINT #f, "BH-C2" IF Feinwertungssystem(2) = -4 THEN PRINT #f, "BH-M1" IF Feinwertungssystem(2) = -5 THEN PRINT #f, "BH-M2" IF Feinwertungssystem(2) = -6 THEN PRINT #f, "SB-C1" IF Feinwertungssystem(2) = -7 THEN PRINT #f, "SB-C2" IF Feinwertungssystem(2) = -8 THEN PRINT #f, "FB-C1" IF Feinwertungssystem(2) = -9 THEN PRINT #f, "FB-C2" IF Feinwertungssystem(2) = -10 THEN PRINT #f, "FB-M1" IF Feinwertungssystem(2) = -11 THEN PRINT #f, "FB-M2" IF Feinwertungssystem(2) = -12 THEN PRINT #f, "ARO-C1" IF Feinwertungssystem(2) = -13 THEN PRINT #f, "ARO-C2" IF Feinwertungssystem(2) = -14 THEN PRINT #f, "ARO-M1" IF Feinwertungssystem(2) = -15 THEN PRINT #f, "ARO-M2" IF Feinwertungssystem(2) = -16 THEN PRINT #f, "PS-C1" IF Feinwertungssystem(2) = -17 THEN PRINT #f, "PS-C2" IF Feinwertungssystem(2) = -18 THEN PRINT #f, "BH-P" IF Feinwertungssystem(2) = -19 THEN PRINT #f, "BH-C1-P" IF Feinwertungssystem(2) = -20 THEN PRINT #f, "BH-C2-P" IF Feinwertungssystem(2) = -21 THEN PRINT #f, "BH-M1-P" IF Feinwertungssystem(2) = -22 THEN PRINT #f, "BH-M2-P" IF Feinwertungssystem(2) = -23 THEN PRINT #f, "SB-P" IF Feinwertungssystem(2) = -24 THEN PRINT #f, "SB-C1-P" IF Feinwertungssystem(2) = -25 THEN PRINT #f, "SB-C2-P" IF Feinwertungssystem(2) = -26 THEN PRINT #f, "FB-P" IF Feinwertungssystem(2) = -27 THEN PRINT #f, "FB-C1-P" IF Feinwertungssystem(2) = -28 THEN PRINT #f, "FB-C2-P" IF Feinwertungssystem(2) = -29 THEN PRINT #f, "FB-M1-P" IF Feinwertungssystem(2) = -30 THEN PRINT #f, "FB-M2-P" IF Feinwertungssystem(2) = -31 THEN PRINT #f, "DE-P" IF Feinwertungssystem(2) = -32 THEN PRINT #f, "AOB-F" PRINT #f, "222 " + Temp(TAZ+1, 12) ' Bedenkzeit PRINT #f, "" ' Leerzeile ' Infozeile PRINT #f, "### Player Section" PRINT #f, "DDD SSSS sTTT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RRRR FFF IIIIIIIIIII BBBB/BB/BB PPPP RRRR"; FOR z = 1 TO RAZ PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1); NEXT PRINT #f, "" FOR j AS INTEGER = 1 TO TAZ N = STR(Gesamtpunkte(j)) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N u = 0 IF Runde > 1 THEN FOR z = 1 TO ppr(runde) IF paarungen(z,1,runde-1) = l THEN u += 1 IF paarungen(z,2,runde-1) = l THEN u += 1 NEXT END IF IF Paarungssystem < 3 THEN u = 0 ' wegen dem Rundensystem und Rutschsystem, damit die TRF-Datei korrekt erstellt wird!!! ' Testen sollte ich auch eine ungerade Zahl, sowie kampflose Ergebnisse IF Geschlecht(j) = "m" OR Geschlecht(j) = "M" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " m" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF IF Geschlecht(j) = "w" OR Geschlecht(j) = "W" OR Geschlecht(j) = "f" OR Geschlecht(j) = "F" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " w" + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF IF Geschlecht(j) = " " OR Geschlecht(j) = "" THEN IF u < 1 THEN IF LEN(Geburt(j)) = 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/" + MID(Geburt(j), 4, 2) + "/" + LEFT(Geburt(j), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) = 4 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN IF Runde > 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + tmp(j) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 0 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) IF Runde < 2 AND fehlendeSpieler(j, Runde) = 1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde < 2 AND fehlendeSpieler(j, Runde) = -1 THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(5-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " END IF ELSE IF fehlendeSpieler(j, Runde) <> -1 THEN IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - - " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - -" ELSE IF Runde < RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0 " IF Runde = RAZ THEN PRINT #f, "001" + SPACE(5-LEN(STR(j))) + STR(j) + " " + Titel(j) + SPACE(4-LEN(Titel(j))) + Temp(j, 1) + SPACE(34-LEN(Temp(j, 1))) + STRING(4-LEN(STR(ELO(j))), "0") + STR(ELO(j)) + " " + SPACE(3-LEN(Nation(j))) + Nation(j) + " " + SPACE(11-LEN(FIDEID(j))) + FIDEID(j) + SPACE(11-LEN(Geburt(j))) + Geburt(j) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " 0000 - 0" END IF END IF END IF NEXT PRINT #f, "" PRINT #f, "### Bye Section / Zero (ZPB), Half (HPB), Full (FPB)" /' PRINT #f, "### T RRR"; FOR z = 1 TO RAZ PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1); NEXT PRINT #f, "" '/ DIM AS INTEGER spielerInZeile ' ÄUßERE SCHLEIFE: Wir gehen jede Runde einzeln durch (z = Runde) FOR z AS INTEGER = 1 TO RAZ spielerInZeile = 0 ' INNERE SCHLEIFE: Wir prüfen alle Spieler für die aktuelle Runde (j = Spieler) FOR j AS INTEGER = 1 TO TAZ ' JETZT KORREKT: j (Spieler) zuerst, z (Runde) als zweites! ' Wir prüfen, ob der Wert > 0 ist (Spieler hatte ein Bye) IF fehlendeSpieler(j, z) > 0 THEN ' Wenn es der erste gefundene Spieler in dieser Runde ist, Zeile anfangen IF spielerInZeile = 0 THEN ' "240 Z 1 " -> Runde wird 3-stellig rechtsbündig formatiert PRINT #f, "240 " + RIGHT(" " + LTRIM(STR(z)), 3) + " "; END IF ' Spieler-ID schreiben (4 Zeichen breit + 1 Leerzeichen) PRINT #f, RIGHT(" " + LTRIM(STR(j)), 4) + " "; spielerInZeile += 1 ' FIDE-Standard: Maximal 3 Spieler pro Zeile erlaubt IF spielerInZeile = 3 THEN PRINT #f, "" ' Zeile voll, Umbruch (Fortsetzung folgt in neuer 240er Zeile) spielerInZeile = 0 END IF END IF NEXT ' Wenn die Runde fertig ist und noch Spieler offen waren (< 3), Zeile schließen IF spielerInZeile > 0 THEN PRINT #f, "" END IF NEXT CLOSE #f END IF ' Mannschaftsmodus IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN ' wegen falsch dargestellte Buchstaben! FOR j = 1 TO TAZ FOR k = 1 TO 50 Temp(j*50-50+k, 1) = "" Temp(j*50-50+k, 1) = Spieler(j*50-50+k) OemToChar Spieler(j*50-50+k), Temp(j*50-50+k, 1) l = INSTR(Temp(j*50-50+k, 1), "ß") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ss" & MID(Temp(j*50-50+k, 1), l+1)' ß END IF l = INSTR(Temp(j*50-50+k, 1), "Ä") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Ae" & MID(Temp(j*50-50+k, 1), l+1)' Ä END IF l = INSTR(Temp(j*50-50+k, 1), "ä") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ae" & MID(Temp(j*50-50+k, 1), l+1)' ä END IF l = INSTR(Temp(j*50-50+k, 1), "Ö") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Oe" & MID(Temp(j*50-50+k, 1), l+1)' Ö END IF l = INSTR(Temp(j*50-50+k, 1), "ö") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "oe" & MID(Temp(j*50-50+k, 1), l+1)' ö END IF l = INSTR(Temp(j*50-50+k, 1), "Ü") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "Ue" & MID(Temp(j*50-50+k, 1), l+1)' Ü END IF l = INSTR(Temp(j*50-50+k, 1), "ü") IF l > 0 THEN Temp(j*50-50+k, 1) = LEFT(Temp(j*50-50+k, 1), l-1) & "ue" & MID(Temp(j*50-50+k, 1), l+1)' ü END IF NEXT NEXT ' Anzahl der nicht vorhandenen Mannschaftsspieler errechnen FOR j = 1 TO TAZ IF Team(j) = "" THEN EXIT FOR ' Schleife verlassen, wenn letzte Mannschaft aufgerufen wurde! z = 0 FOR k = 1 TO 50 IF Spieler((((j)*50-50)+k)) <> "" THEN z+= 1 NEXT TempPunkte(j, 6) = 50-z ' Anzahl der nicht vorhandenen Mannschaftsspieler errechnen NEXT ' Ergebnisse zwischenspeichern OPEN EXEPATH + "\Temp.tmp" FOR OUTPUT AS #f ' ENCODING "UTF-8" FOR l = 1 TO TAZ ' Verein FOR k = 1 TO 50 ' Mannschaftsspieler FOR r = 1 TO runde ' Runde ' IF Spieler(l*50-50+k) = "" THEN EXIT FOR z = 0 FOR j = 1 TO Bretter ' Mannschaftsbretter der jeweiligen Paarungen IF (l*50-50+k) = (l*50-50+(Teamspieler(l, j, r))) THEN ' FOR t = 1 TO ppr(r) IF l = paarungen(t, 1, r) OR l = paarungen(t, 2, r) THEN EXIT FOR NEXT ' Ergebnisse und Paarungen in Datei speichern IF l = paarungen(t,1,r) THEN ' Abzugswert errechnen e = 0 FOR bb = 1 TO ((paarungen(t,2,r))-1) e += TempPunkte(bb, 6) NEXT ' IF LEFT(Einzelergebnisse(t, j, r), 1) = "1" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b 1 "; ' + Ergebnis IF LEFT(Einzelergebnisse(t, j, r), 1) = "0" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b 0 "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "R" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b = "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "+" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b + "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "-" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b - "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "W" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b W "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "D" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b D "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "L" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e))))) + STR(((paarungen(t,2,r)*50-50+(Teamspieler(paarungen(t,2,r), j, r)))-e)) + " b L "; ' END IF IF l = paarungen(t,2,r) THEN ' Abzugswert errechnen e = 0 FOR bb = 1 TO ((paarungen(t,1,r))-1) e += TempPunkte(bb, 6) NEXT ' IF LEFT(Einzelergebnisse(t, j, r), 1) = "1" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w 0 "; ' + Ergebnis IF LEFT(Einzelergebnisse(t, j, r), 1) = "0" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w 1 "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "R" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w = "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "+" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w + "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "-" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w - "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "W" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w W "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "D" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w D "; IF LEFT(Einzelergebnisse(t, j, r), 1) = "L" THEN PRINT #f, SPACE((4-LEN(STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e))))) + STR(((paarungen(t,1,r)*50-50+(Teamspieler(paarungen(t,1,r), j, r)))-e)) + " w L "; ' END IF z = 1 END IF IF j = Bretter AND z = 0 AND r < Runde THEN PRINT #f, "0000 - - "; IF j = Bretter AND z = 0 AND r >= Runde THEN PRINT #f, "0000 - -"; NEXT NEXT PRINT #f, "" ' Neue Zeile NEXT NEXT CLOSE #f ' IF Runde > 1 THEN ' Ergebnisse mit Gegner Temporär aus Datei laden j = 1 OPEN EXEPATH + "\Temp.tmp" FOR INPUT AS #f ' ENCODING "UTF-8" DO UNTIL EOF(f) LINE INPUT #f, tmp(j) j += 1 LOOP CLOSE #f END IF j = 1 ' OPEN AA + "_TRF 2026.trf" FOR OUTPUT AS #f ' ENCODING "UTF-8" ' Sonderzeichen umwandeln, damit die in der Datei richtig dargestellt werden bzw. erscheinen! Temp(0, 9) = Eingabe(9) Temp(0, 10) = Eingabe(10) Temp(0, 12) = Eingabe(12) Temp(0, 14) = Eingabe(14) Temp(0, 15) = Eingabe(15) Temp(0, 16) = Eingabe(16) Temp(0, 17) = Eingabe(17) Temp(0, 18) = Eingabe(18) Temp(0, 19) = Eingabe(19) OemToChar Eingabe(9), Temp(0, 9) OemToChar Eingabe(10), Temp(0, 10) OemToChar Eingabe(12), Temp(0, 12) OemToChar Eingabe(14), Temp(0, 14) OemToChar Eingabe(15), Temp(0, 15) OemToChar Eingabe(16), Temp(0, 16) OemToChar Eingabe(17), Temp(0, 17) OemToChar Eingabe(18), Temp(0, 18) OemToChar Eingabe(19), Temp(0, 19) FOR t = 9 TO 19 DO xxx = INSTR(Temp(0, t), ANY "ß") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ss" & MID(Temp(0, t), xxx+1)' ß END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ä") k = LEN(Temp(0, t)) IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Ae" & MID(Temp(0, t), xxx+1)' Ä END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ä") k = LEN(Temp(0, t)) IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ae" & MID(Temp(0, t), xxx+1) ' ä END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ö") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Oe" & MID(Temp(0, t), xxx+1)' Ö END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ö") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "oe" & MID(Temp(0, t), xxx+1)' ö END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "Ü") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "Ue" & MID(Temp(0, t), xxx+1)' Ü END IF LOOP WHILE xxx > 0 DO xxx = INSTR(Temp(0, t), ANY "ü") IF xxx > 0 THEN Temp(0, t) = LEFT(Temp(0, t), xxx-1) & "ue" & MID(Temp(0, t), xxx+1)' ü END IF LOOP WHILE xxx > 0 NEXT ' TRF-Datei befüllen mit Daten PRINT #f, "012 " + Temp(0, 9) ' Turniername PRINT #f, "022 " + Temp(0, 10) ' Turnierort PRINT #f, "032 " + Eingabe(11) ' Förderation ' PRINT #f, "042 " + Eingabe(21) ' Turnierbeginn ' PRINT #f, "052 " + Eingabe(22) ' Turnierende IF LEN(Eingabe(21)) = 10 THEN PRINT #f, "042" + SPACE(11-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) ' Turnierbeginn IF LEN(Eingabe(22)) = 10 THEN PRINT #f, "052" + SPACE(11-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) ' Turnierende IF LEN(Eingabe(21)) = 4 THEN PRINT #f, "042" + SPACE(5-LEN(Eingabe(21))) + RIGHT(Eingabe(21), 4) + "/00/00" ' Turnierbeginn IF LEN(Eingabe(22)) = 4 THEN PRINT #f, "052" + SPACE(5-LEN(Eingabe(22))) + RIGHT(Eingabe(22), 4) + "/00/00" ' Turnierende IF LEN(Eingabe(21)) <> 4 AND LEN(Eingabe(21)) <> 10 THEN PRINT #f, "042" + " " ' Turnierbeginn IF LEN(Eingabe(22)) <> 4 AND LEN(Eingabe(22)) <> 10 THEN PRINT #f, "052" + " " ' Turnierende ' Anzahl der Mannschaftsspieler und der Mannschaftsspieler mit ELO-Zahl errechnen t = 1 r = 1 FOR j = 1 TO TAZ FOR k = 1 TO 50 IF Temp(j*50-50+k, 1) <> "" THEN t += 1 IF ELO(j*50-50+k) <> 0 THEN r += 1 NEXT NEXT t-= 1 r -= 1 ' PRINT #f, "062 " + STR(t) ' Anzahl der Mannschaftsspieler PRINT #f, "072 " + STR(r) ' Anzahl der Spieler mit ELO-Zahl PRINT #f, "082 " + STR(TAZ) ' Anzahl der Mannschaften IF Paarungssystem = 6 OR Paarungssystem = 7 THEN PRINT #f, "092 " + "Team: Round Robin" 'Paarungssystem ' IF Paarungssystem = 2 THEN PRINT #f, "092 " + "Round Robin" IF Paarungssystem = 5 THEN PRINT #f, "092 " + "Team: Swiss System Dutch 2017 (JaVaFo)" PRINT #f, "102 " + Temp(0, 14) ' Hauptschiedsrichter PRINT #f, "112 " + Temp(0, 15) + "; " + Temp(0, 16) + "; " + Temp(0, 17) + "; " + Temp(0, 18) + "; " + Temp(0, 19) ' Weitere Schiedsrichter 15-19 PRINT #f, "122 " + Temp(0, 12) ' Bedenkzeit PRINT #f, "XXR " + STR(RAZ) ' ******************************************************************************************************************************************* ' Datum der einzelnen Runden in eine Datei speichern mittels einer FOR - NEXT Schleife!!! PRINT #f, "132 " + SPACE(87); FOR j = 1 TO RAZ IF Datum(j) <> "" THEN PRINT #f, RIGHT(Datum(j),2); "/"; MID(Datum(j),4,2); "/"; LEFT(Datum(j),2); " "; ELSE PRINT #f, " "; NEXT PRINT #f, "" ' ******************************************************************************************************************************************* PRINT #f, "" ' Leerzeile ' Infozeile PRINT #f, "DDD SSSS sTTT NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN RRRR FFF IIIIIIIIIII BBBB/BB/BB PPPP RRRR"; FOR z = 1 TO RAZ PRINT #f, " " + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1) + " " + RIGHT(STR(z),1); NEXT PRINT #f, "" ' ' N = STR(Gesamtpunkte(j)) ' IF INSTR(N, ".") = 0 THEN N += ".0" ' IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N ' Spieler + Paarungen IF Geschlecht(j*50-50+k) = "m" OR Geschlecht(j*50-50+k) = "M" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " m" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF IF Geschlecht(j*50-50+k) = "w" OR Geschlecht(j*50-50+k) = "W" OR Geschlecht(j*50-50+k) = "f" OR Geschlecht(j*50-50+k) = "F" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " w" + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " 0000/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF IF Geschlecht(j*50-50+k) = " " OR Geschlecht(j*50-50+k) = "" THEN FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT FOR k = 1 TO 50 N = STR((TempPunkte(((j*50-50)+k),5))) IF INSTR(N, ".") = 0 THEN N += ".0" IF LEN(N) < 5 THEN N = STRING(5-LEN(N), " ") + N IF LEN(Geburt(j*50-50+k)) = 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(11-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/" + MID(Geburt(j*50-50+k), 4, 2) + "/" + LEFT(Geburt(j*50-50+k), 2) + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) = 4 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + SPACE(5-LEN(Geburt(j*50-50+k))) + RIGHT(Geburt(j*50-50+k), 4) + "/00/00" + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF IF LEN(Geburt(j*50-50+k)) <> 4 AND LEN(Geburt(j*50-50+k)) <> 10 THEN IF Runde > 1 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " " + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) + " " + tmp(j*50-50+k) IF Runde < 2 AND Temp(j*50-50+k, 1) <> "" THEN PRINT #f, "001" + SPACE(5-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " " + Titel(j*50-50+k) + SPACE(4-LEN(Titel(j*50-50+k))) + LEFT(Temp(j*50-50+k, 1), 34) + SPACE(34-LEN(Temp(j*50-50+k, 1))) + STRING(4-LEN(STR(ELO(j*50-50+k))), "0") + STR(ELO(j*50-50+k)) + " " + SPACE(3-LEN(Nation(j*50-50+k))) + Nation(j*50-50+k) + SPACE(12-LEN(FIDEID(j*50-50+k))) + FIDEID(j*50-50+k) + " " + N + SPACE(5-LEN(STR((Rang(j))))) + STR(Rang(j)) END IF NEXT NEXT END IF ' Spielfrei eintragen bei ungerade Teilnehmerzahl IF TAZ MOD 2 <> 0 THEN e += 50 z = ((j*50-50+Bretter)-e) z += 1 FOR j = 1 TO Bretter PRINT #f, "001" + SPACE(5-LEN(STR(z))) + STR(z) + " " + " " + LEFT("spielfrei", 34) + SPACE(34-LEN("spielfrei")) + " " + " " + " " + " " + " " + " 0.0" + SPACE(5-LEN(STR((z)))) + STR(z) + " " + SPACE(runde*10) z += 1 NEXT END IF PRINT #f, "" ' Leerzeile ' Vereine FOR j = 1 TO TAZ ' Abzugswert errechnen e = 0 FOR bb = 1 TO (j-1) e += TempPunkte(bb, 6) NEXT ' Vereinsname speichern PRINT #f, "013 " + Team(j) + SPACE(32-LEN(Team(j))); ' Spielernummer speichern FOR k = 1 TO 50 IF Temp(j*50-50+k, 1) <> "" THEN z = ((j*50-50+k)-e) PRINT #f, SPACE(4-LEN(STR((j*50-50+k)-e))) + STR((j*50-50+k)-e) + " "; END IF IF Temp(j*50-50+k, 1) = "" THEN EXIT FOR NEXT PRINT #f, "" ' Leerzeile NEXT ' Spielfrei eintragen bei ungerade Teilnehmerzahl IF TAZ MOD 2 <> 0 THEN PRINT #f, "013 " + "spielfrei" + SPACE(32-LEN("spielfrei")); z += 1 FOR k = 1 TO Bretter PRINT #f, SPACE(4-LEN(STR(z))) + STR(z) + " "; z += 1 NEXT END IF CLOSE #f END IF EXIT SUB END IF END SUB /' SUB Zeitzone ' 1. Variablen deklarieren Dim as TIME_ZONE_INFORMATION tzi Dim as DWORD tz_status Dim as Long total_bias Dim as String zeitzone_str = "" ' 2. Zeitzonendaten abrufen tz_status = GetTimeZoneInformation(@tzi) ' 3. Sommer-/Winterzeit berücksichtigen If tz_status = TIME_ZONE_ID_DAYLIGHT Then total_bias = tzi.Bias + tzi.DaylightBias Else total_bias = tzi.Bias + tzi.StandardBias End If ' 4. Minuten-Bias umrechnen (Vorzeichen für die Anzeige umdrehen) Dim as Long display_bias = -total_bias Dim as Long tz_hours = Abs(display_bias) \ 60 Dim as Long tz_minutes = Abs(display_bias) Mod 60 ' 5. String-Variable zusammensetzen ' Vorzeichen (+/-) If display_bias >= 0 Then zeitzone_str &= "+" Else zeitzone_str &= "-" ' Stunden (mit führender Null, falls unter 10) If tz_hours < 10 Then zeitzone_str &= "0" zeitzone_str &= Str(tz_hours) & ":" ' Minuten (mit führender Null, falls unter 10) If tz_minutes < 10 Then zeitzone_str &= "0" zeitzone_str &= Str(tz_minutes) ' --- Test der Variable --- ' PRINT "Inhalt der Variable: "; zeitzone_str ' SLEEP END SUB '/ ' SUB DWZ_AUSWERTUNG ' UUID generieren UUID(0) = ErzeugeWindowsUUID() ' Geburtsjahr zwischenspeichern/definieren??? FOR j = 1 TO TAZ IF LEN(Geburt(j)) = 10 THEN Temp(j, 6) = SPACE(10-LEN(Geburt(j))) + LEFT(Geburt(j), 2) + MID(Geburt(j), 4, 2) + RIGHT(Geburt(j), 4) IF LEN(Geburt(j)) = 4 THEN Temp(j, 6) = SPACE(4-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN Temp(j, 6) = "" NEXT DIM AS INTEGER f = FREEFILE ' RIGHT(DATE, 4) & "-" & LEFT(DATE, 2) & "-" & MID(DATE, 4, 2) & "T" & TIME & "+00:00" ' Auswertungsdatei für DeWIS erstellen OPEN AA + ".xml" FOR OUTPUT AS #f PRINT #f, "<?xml version='1.0' encoding='utf-8'?>" PRINT #f, "<DSB_DWZ_TournamentReport version=" + CHR(34) + "2.5" + CHR(34) PRINT #f, "xmlns:xsi=" + CHR(34) + "http://www.w3.org/2001/XMLSchema-instance" + CHR(34) PRINT #f, "xmlns=" + CHR(34) + "http://www.schachbund.de/XMLSchema" + CHR(34) PRINT #f, "xsi:schemaLocation=" + CHR(34) + "http://www.schachbund.de/XMLSchema" PRINT #f, "https://www.schachbund.de/files/wertungsportal/XMLSchema/2026/DSB_DWZ_Tounament_2_5.xsd" + CHR(34) + ">" PRINT #f, "" PRINT #f, "<header>" PRINT #f, " <creationDate>" + RIGHT(DATE, 4) + "-" + LEFT(DATE, 2) + "-" + MID(DATE, 4, 2) + "T" + TIME + "+00:00" + "</creationDate>" ' Datum + Uhrzeit + Zeitzone PRINT #f, " <sender>" + Nutzer + "</sender>" ' E-Mailadresse Turnierorganisator PRINT #f, " <system>Schachturnierorganisationsprogramm</system>" ' Programmname PRINT #f, " <fileUUID>" + UUID(0) + "</fileUUID>" ' UUID PRINT #f, "</header>" PRINT #f, "" PRINT #f, "<tournament>" PRINT #f, " <tournamentUUID>" + UUID(1) + "</tournamentUUID>" ' tournamentUUID PRINT #f, " <label>" + Eingabe(9) + "</label>" IF Paarungssystem = 0 THEN PRINT #f, " <tournamentType>SR</tournamentType>" IF Paarungssystem = 1 THEN PRINT #f, " <tournamentType>SR</tournamentType>" IF Paarungssystem = 2 THEN PRINT #f, " <tournamentType>SR</tournamentType>" IF Paarungssystem = 3 THEN PRINT #f, " <tournamentType>SW</tournamentType>" IF Paarungssystem = 4 THEN PRINT #f, " <tournamentType>SW</tournamentType>" IF Paarungssystem = 5 THEN PRINT #f, " <tournamentType>TW</tournamentType>" IF Paarungssystem = 6 THEN PRINT #f, " <tournamentType>TR</tournamentType>" IF Paarungssystem = 8 THEN PRINT #f, " <tournamentType>SW</tournamentType>" IF Paarungssystem = 9 THEN PRINT #f, " <tournamentType>SC</tournamentType>" IF Paarungssystem = 11 THEN PRINT #f, " <tournamentType>SW</tournamentType>" PRINT #f, " <timecontrol>" + Eingabe(12) + "</timecontrol>" PRINT #f, " <rounds>" + STR(RAZ) + "</rounds>" PRINT #f, " <startDate>" + MID(Eingabe(21), 7, 4) + "-" + MID(Eingabe(21), 4, 2) + "-" + LEFT(Eingabe(21), 2) + "</startDate>" PRINT #f, " <endDate>" + MID(Eingabe(22), 7, 4) + "-" + MID(Eingabe(22), 4, 2) + "-" + LEFT(Eingabe(22), 2) + "</endDate>" PRINT #f, " <location>" + Eingabe(10) + "</location>" PRINT #f, "</tournament>" PRINT #f, "" PRINT #f, "<players>" FOR j = 1 TO TAZ PRINT #f, " <player>" PRINT #f, " <tournamentPlayerNumber>" + STR(j) + "</tournamentPlayerNumber>" PRINT #f, " <dsbId>" + PKZ(j) + "</dsbId>" k = INSTR(Spieler(j), ",") ' Ermitteln, an welcher Stelle das Trennzeichen ist! IF k <> 0 THEN PRINT #f, " <surname>" + LEFT(Spieler(j),k-1) + "</surname>" PRINT #f, " <forename>" + MID(Spieler(j),k+1) + "</forename>" END IF IF LEN(Geburt(j)) < 5 THEN PRINT #f, " <dobYear>" + Geburt(j) + "</dobYear>" IF LEN(Geburt(j)) > 4 THEN PRINT #f, " <dobYear>" + RIGHT(Geburt(j),4) + "</dobYear>" PRINT #f, " <club>" + Verein(j) + "</club>" PRINT #f, " <fideId>" + FIDEID(j) + "</fideId>" PRINT #f, " <fideRating>" + STR(ELO(j)) + "</fideRating>" PRINT #f, " <sex>" + Geschlecht(j) + "</sex><" PRINT #f, " </player>" PRINT #f, "" NEXT PRINT #f, "</players>" PRINT #f, "" PRINT #f, "<games>" ' r = 1 FOR k = 1 TO RAZ FOR j = 1 TO ppr(r) PRINT #f, " <game>" PRINT #f, " <round>" + STR(r) + "</round>" PRINT #f, " <tournamentPlayerNumberWhite>" + STR(paarungen(j,1,k)) + "</tournamentPlayerNumberWhite>" PRINT #f, " <tournamentPlayerNumberBlack>" + STR(paarungen(j,2,k)) + "</tournamentPlayerNumberBlack>" ' IF paarungen(j,2,k) <> 0 THEN IF kampflose(j, k) = 0 THEN PRINT #f, " <pointWhite>" + STR(Punkte(paarungen(j,1,k),k)) + "</pointWhite><pointBlack>" + STR(Punkte(paarungen(j,2,k),k)) + "</pointBlack>" IF kampflose(j, k) = 1 OR kampflose(j, k) = 2 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, " <pointWhite>+</pointWhite><pointBlack>-</pointBlack>" IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 1 THEN PRINT #f, " <pointWhite>-</pointWhite><pointBlack>+</pointBlack>" IF Punkte(paarungen(j,1,k),k) = 0 AND Punkte(paarungen(j,2,k),k) = 0 THEN PRINT #f, " <pointWhite>-</pointWhite><pointBlack>-</pointBlack>" END IF ELSE IF paarungen(j,2,k) = 0 THEN PRINT #f, " <pointWhite>+</pointWhite><pointBlack>-</pointBlack>" END IF PRINT #f, " </game>" PRINT #f, "" '/ NEXT r += 1 NEXT '/ PRINT #f, "</games>" PRINT #f, "</DSB_DWZ_TournamentReport>" ' 1234567890 ' 14.12.1983 ' Eingabe(21) Startdatum ' Eingabe(22) Endedatum END SUB '/ ' ELOBASE-Format SUB DEWIS ' Geburtsjahr zwischenspeichern/definieren??? FOR j = 1 TO TAZ IF LEN(Geburt(j)) = 10 THEN Temp(j, 6) = SPACE(10-LEN(Geburt(j))) + LEFT(Geburt(j), 2) + MID(Geburt(j), 4, 2) + RIGHT(Geburt(j), 4) IF LEN(Geburt(j)) = 4 THEN Temp(j, 6) = SPACE(4-LEN(Geburt(j))) + RIGHT(Geburt(j), 4) IF LEN(Geburt(j)) <> 4 AND LEN(Geburt(j)) <> 10 THEN Temp(j, 6) = "" NEXT DIM AS INTEGER f = FREEFILE ' Auswertungsdatei für DeWIS erstellen OPEN AA + ".swi" FOR OUTPUT AS #f PRINT #f, Eingabe(9) PRINT #f, "" IF Paarungssystem = 0 THEN PRINT #f, "ER" + SPACE(4-LEN(STR(TAZ))) + STR(TAZ) + SPACE(3-LEN(STR(RAZ))) + STR(RAZ) + " 2" IF Paarungssystem = 1 OR Paarungssystem = 2 THEN PRINT #f, "ER" + SPACE(4-LEN(STR(TAZ))) + STR(TAZ) + SPACE(3-LEN(STR(RAZ))) + STR(RAZ) + " 1" IF Paarungssystem > 2 THEN PRINT #f, "ES" + SPACE(4-LEN(STR(TAZ))) + STR(TAZ) + SPACE(3-LEN(STR(RAZ))) + STR(RAZ) + " 1" PRINT #f, " ttt. rrr nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv lll ffffffffff pppppppppp gggggggg eeee dddd zzzzz mmmm" FOR l = 1 TO TAZ PRINT #f, SPACE(4-LEN(STR(l))) + STR(l) + ". " + SPACE(3-LEN(STR(Rang(l)))) + STR(Rang(l)) + " " + Spieler(l) + SPACE(32-LEN(Spieler(l))) + " " + Verein(l) + SPACE(32-LEN(Verein(l))) + " " + SPACE(3-LEN(Nation(l))) + Nation(l) + " " + SPACE(10-LEN(FIDEID(l))) + STR(FIDEID(l)) + " " + SPACE(10-LEN(PKZ(l))) + PKZ(l) + " " + SPACE(8-LEN(Temp(l, 6))) + Temp(l, 6) + " " + SPACE(4-LEN(STR(ELO(l)))) + STR(ELO(l)) + " " + SPACE(4-LEN(STR(DWZ(l)))) + STR(DWZ(l)) + " " + SPACE(5-LEN(STR(Vnummer(l)))) + Vnummer(l) + " " + SPACE(4-LEN(STR(Mnummer(l)))) + Mnummer(l) + " "; FOR k = 1 TO RAZ FOR j = 1 TO ppr(k) IF kampflose(j, k) = 0 OR kampflose(j, k) = 2 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND paarungen(j,1,k) = l THEN PRINT #f, "1W" + SPACE(3-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " "; IF Punkte(paarungen(j,1,k),k) = 0 AND paarungen(j,1,k) = l THEN PRINT #f, "0W" + SPACE(3-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " "; IF Punkte(paarungen(j,1,k),k) = 0.5 AND paarungen(j,1,k) = l THEN PRINT #f, "RW" + SPACE(3-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " "; IF Punkte(paarungen(j,2,k),k) = 1 AND paarungen(j,2,k) = l THEN PRINT #f, "1B" + SPACE(3-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " "; IF Punkte(paarungen(j,2,k),k) = 0 AND paarungen(j,2,k) = l THEN PRINT #f, "0B" + SPACE(3-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " "; IF Punkte(paarungen(j,2,k),k) = 0.5 AND paarungen(j,2,k) = l THEN PRINT #f, "RB" + SPACE(3-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " "; END IF IF kampflose(j, k) = 1 THEN IF Punkte(paarungen(j,1,k),k) = 1 AND paarungen(j,1,k) = l AND paarungen(j,2,k) > 0 THEN PRINT #f, "+:" + SPACE(3-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " "; IF Punkte(paarungen(j,1,k),k) = 0 AND paarungen(j,1,k) = l AND paarungen(j,2,k) > 0 THEN PRINT #f, "-:" + SPACE(3-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " "; IF Punkte(paarungen(j,2,k),k) = 1 AND paarungen(j,2,k) = l AND paarungen(j,1,k) > 0 THEN PRINT #f, "+:" + SPACE(3-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " "; IF Punkte(paarungen(j,2,k),k) = 0 AND paarungen(j,2,k) = l AND paarungen(j,1,k) > 0 THEN PRINT #f, "-:" + SPACE(3-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " "; IF Punkte(paarungen(j,1,k),k) = 1 AND paarungen(j,1,k) = l AND paarungen(j,2,k) = 0 THEN PRINT #f, " :" + SPACE(3-LEN(STR(paarungen(j,2,k)))) + STR(paarungen(j,2,k)) + " "; IF Punkte(paarungen(j,2,k),k) = 1 AND paarungen(j,2,k) = l AND paarungen(j,1,k) = 0 THEN PRINT #f, " :" + SPACE(3-LEN(STR(paarungen(j,1,k)))) + STR(paarungen(j,1,k)) + " "; END IF NEXT IF fehlendeSpieler(l, k) = 1 THEN PRINT #f, " :" + " 0" + " "; NEXT PRINT #f, "" NEXT PRINT #f, "###" PRINT #f, "Name: " + Eingabe(9) PRINT #f, "Ort: " + Eingabe(10) PRINT #f, "FIDE-Land: " + Eingabe(11) PRINT #f, "Datum(S): " + Eingabe(21) + " " + "Datum(E): " + Eingabe(22) PRINT #f, "Züge: " + Eingabe(12) PRINT #f, "Turnierorganisator: " + Eingabe(13) PRINT #f, "Hauptschiedsrichter: " + Eingabe(14) PRINT #f, "Weitere Schiedsrichter: " + Eingabe(15) CLOSE #f END SUB SUB FLRESU DIM AS INTEGER f = FREEFILE ' Buchstaben umwandeln! FOR j = 1 TO TAZ OemToChar Spieler(j), Spieler(j) OemToChar Verein(j), Verein(j) NEXT OPEN AA + ".csv" FOR OUTPUT AS #f FOR j = 1 TO Runde FOR k = 1 TO ppr(j) l = LEN(Spieler(paarungen(k,1,j))) z = INSTR(Spieler(paarungen(k,1,j)), ",") t = LEN(Spieler(paarungen(k,2,j))) e = INSTR(Spieler(paarungen(k,2,j)), ",") IF kampflose(k, j) = 0 THEN PRINT #f, STR(paarungen(k,1,j)) + ";R" + STR(DWZ(paarungen(k,1,j))) + ";" + LEFT(Spieler(paarungen(k,1,j)), z-1) + ";" + RIGHT(Spieler(paarungen(k,1,j)), l-z) + ";" + Verein(paarungen(k,1,j)) + ";" + STR(paarungen(k,2,j)) + ";R" + STR(DWZ(paarungen(k,2,j))) + ";" + LEFT(Spieler(paarungen(k,2,j)), e-1) + ";" + RIGHT(Spieler(paarungen(k,2,j)), t-e) + ";" + Verein(paarungen(k,2,j)) + ";" + STR(Punkte(paarungen(k,1,j),j)) + ";" + STR(Punkte(paarungen(k,2,j),j)) + ";N" IF kampflose(k, j) <> 0 THEN PRINT #f, STR(paarungen(k,1,j)) + ";R" + STR(DWZ(paarungen(k,1,j))) + ";" + LEFT(Spieler(paarungen(k,1,j)), z-1) + ";" + RIGHT(Spieler(paarungen(k,1,j)), l-z) + ";" + Verein(paarungen(k,1,j)) + ";" + STR(paarungen(k,2,j)) + ";R" + STR(DWZ(paarungen(k,2,j))) + ";" + LEFT(Spieler(paarungen(k,2,j)), e-1) + ";" + RIGHT(Spieler(paarungen(k,2,j)), t-e) + ";" + Verein(paarungen(k,2,j)) + ";" + STR(Punkte(paarungen(k,1,j),j)) + ";" + STR(Punkte(paarungen(k,2,j),j)) + ";F" NEXT NEXT CLOSE #f ' Buchstaben zurückwandeln! FOR j = 1 TO TAZ CharToOem Spieler(j), Spieler(j) CharToOem Verein(j), Verein(j) NEXT END SUB SUB ELOEINLESEN DIM f AS INTEGER = FREEFILE CHDIR EXEPATH ' Pfad setzen ' Daten einlesen und Anzahl der Daten ermitteln! OPEN PfadElo FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N IF MULTIKEY(&h01) THEN EXIT DO j += 1 LOOP CLOSE #f eingeleseneDaten = j j += 1 REDIM Daten(0 TO j, 0 TO 16) j = 0 OPEN PfadElo FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, Daten(j, 0) IF TRIM(LEFT(Daten(j, 0), 9)) <> "ID Number" THEN Daten(j, 1) = TRIM(LEFT(Daten(j, 0), 15)) ' FideID Daten(j, 2) = TRIM(MID(Daten(j, 0), 16, 60)) ' Name Daten(j, 3) = MID(Daten(j, 0), 77, 3) ' Nation Daten(j, 4) = TRIM(MID(Daten(j, 0), 81, 3)) ' Geschlecht Daten(j, 5) = TRIM(MID(Daten(j, 0), 85, 3)) ' Titel ' Daten(j, 6) = TRIM(Mid(Daten(j, 0), 90, 3)) ' weiblicher Titel ' Daten(j, 7) = TRIM(Mid(Daten(j, 0), 95, 15)) ' Organisator Titel ' Daten(j, 8) = TRIM(Mid(Daten(j, 0), 110, 3)) ' FOA Daten(j, 9) = TRIM(MID(Daten(j, 0), 114, 5)) ' ELO-Zahl ' Daten(j, 10) = TRIM(Mid(Daten(j, 0), 120, 3))' Anzahl Spiele Daten(j, 11) = TRIM(Mid(Daten(j, 0), 124, 2))' kFaktor Daten(j, 12) = TRIM(MID(Daten(j, 0), 127, 5))' Geburtsdatum ' Daten(j, 13) = TRIM(Mid(Daten(j, 0), 133, 3))' Flag END IF j += 1 LOOP CLOSE #f eingeleseneDaten -= 1 END SUB SUB AKTUALISIEREN DIM f AS INTEGER = FREEFILE CHDIR EXEPATH ' Pfad setzen ' Daten einlesen und Anzahl der Daten ermitteln! IF Paarungssystem < 5 OR Paarungssystem = 8 THEN IF k = 0 THEN IF FILEEXISTS(EXEPATH + "\standard_rating_list.txt") THEN OPEN "standard_rating_list.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N j += 1 LOOP CLOSE #f j += 1 REDIM Temp(0 TO j, 0 TO 14) ' Temp(0 TO j, -1 TO 14) j = 1 OPEN "standard_rating_list.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, Daten(j, 0) FOR k = 1 TO TAZ IF FIDEID(k) = TRIM(LEFT(Daten(j, 0), 15)) THEN IF ELO(k) <> VAL(TRIM(MID(Daten(j, 0), 114, 5))) THEN ELO(k) = VAL(TRIM(MID(Daten(j, 0), 114, 5))) ' ELO-Zahl IF Spieler(k) <> TRIM(MID(Daten(j, 0), 16, 60)) THEN Spieler(k) = TRIM(MID(Daten(j, 0), 16, 60)) ' NAME IF Nation(k) <> MID(Daten(j, 0), 77, 3) THEN Nation(k) = MID(Daten(j, 0), 77, 3) ' Nation IF Geschlecht(k) <> TRIM(MID(Daten(j, 0), 81, 3)) THEN Geschlecht(k) = TRIM(MID(Daten(j, 0), 81, 3)) ' Geschlecht IF Titel(k) <> TRIM(MID(Daten(j, 0), 90, 3)) THEN Titel(k) = TRIM(MID(Daten(j, 0), 90, 3)) ' Titel IF Geburt(k) <> TRIM(MID(Daten(j, 0), 127, 5)) THEN Geburt(k) = TRIM(MID(Daten(j, 0), 127, 5)) ' Geburt ' kFaktor END IF NEXT LOOP CLOSE #f REDIM Temp(0 TO 2002, 0 TO 52) k = 0 ELSE MessageBox(0, "standard_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Rapid IF k = 1 THEN IF FILEEXISTS(EXEPATH + "\rapid_rating_list.txt") THEN OPEN "rapid_rating_list.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N j += 1 LOOP CLOSE #f j += 1 REDIM Temp(0 TO j, 0 TO 14) ' Temp(0 TO j, -1 TO 14) j = 1 OPEN "rapid_rating_list.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, Daten(j, 0) FOR k = 1 TO TAZ IF FIDEID(k) = TRIM(LEFT(Daten(j, 0), 15)) THEN IF ELO(k) <> VAL(TRIM(MID(Daten(j, 0), 114, 5))) THEN ELO(k) = VAL(TRIM(MID(Daten(j, 0), 114, 5))) ' ELO-Zahl IF Spieler(k) <> TRIM(MID(Daten(j, 0), 16, 60)) THEN Spieler(k) = TRIM(MID(Daten(j, 0), 16, 60)) ' NAME IF Nation(k) <> MID(Daten(j, 0), 77, 3) THEN Nation(k) = MID(Daten(j, 0), 77, 3) ' Nation IF Geschlecht(k) <> TRIM(MID(Daten(j, 0), 81, 3)) THEN Geschlecht(k) = TRIM(MID(Daten(j, 0), 81, 3)) ' Geschlecht IF Titel(k) <> TRIM(MID(Daten(j, 0), 90, 3)) THEN Titel(k) = TRIM(MID(Daten(j, 0), 90, 3)) ' Titel IF Geburt(k) <> TRIM(MID(Daten(j, 0), 127, 5)) THEN Geburt(k) = TRIM(MID(Daten(j, 0), 127, 5)) ' Geburt END IF NEXT LOOP CLOSE #f REDIM Temp(0 TO 2002, 0 TO 52) k = 1 ELSE MessageBox(0, "rapid_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' Blitz IF k = 2 THEN IF FILEEXISTS(EXEPATH + "\blitz_rating_list.txt") THEN OPEN "blitz_rating_list.txt" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N j += 1 LOOP CLOSE #f j += 1 REDIM Temp(0 TO j, 0 TO 14) ' Temp(0 TO j, -1 TO 14) j = 1 OPEN "blitz_rating_list.txt" FOR INPUT AS #f DO UNTIL EOF(f) LINE INPUT #f, Daten(j, 0) FOR k = 1 TO TAZ IF FIDEID(k) = TRIM(LEFT(Daten(j, 0), 15)) THEN IF ELO(k) <> VAL(MID(Daten(j, 0), 114, 5)) THEN ELO(k) = VAL(MID(Daten(j, 0), 114, 5)) ' ELO-Zahl IF Spieler(k) <> TRIM(MID(Daten(j, 0), 16, 60)) THEN Spieler(k) = TRIM(MID(Daten(j, 0), 16, 60)) ' NAME IF Nation(k) <> MID(Daten(j, 0), 77, 3) THEN Nation(k) = MID(Daten(j, 0), 77, 3) ' Nation IF Geschlecht(k) <> TRIM(MID(Daten(j, 0), 81, 3)) THEN Geschlecht(k) = TRIM(MID(Daten(j, 0), 81, 3)) ' Geschlecht IF Titel(k) <> TRIM(MID(Daten(j, 0), 90, 3)) THEN Titel(k) = TRIM(MID(Daten(j, 0), 90, 3)) ' Titel IF Geburt(k) <> TRIM(MID(Daten(j, 0), 127, 5)) THEN Geburt(k) = TRIM(MID(Daten(j, 0), 127, 5)) ' Geburt END IF NEXT LOOP CLOSE #f REDIM Temp(0 TO 2002, 0 TO 52) k = 2 ELSE MessageBox(0, "blitz_rating_list.txt???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ' DWZ/NWZ IF k = 3 THEN IF FILEEXISTS(EXEPATH + "\DWZ.liste") THEN OPEN "DWZ.LISTE" FOR INPUT AS #f j = 1 DO UNTIL EOF(f) LINE INPUT #f, N IF j < 25000 THEN Tmp(j) = "" j += 1 LOOP CLOSE #f j += 1 REDIM Temp(0 TO j, 0 TO 16) ' Temp(0 TO j, -1 TO 16) j = 1 OPEN "DWZ.LISTE" FOR INPUT AS #f DO UNTIL EOF(f) INPUT #f, Temp(j, 6), Temp(j, 7), Temp(j, 8), Temp(j, 2), Temp(j, 10), Temp(j, 4), Temp(j, 11), Temp(j, 12), Temp(j, 13), Temp(j, 14), Temp(j, 15), Temp(j, 9), Temp(j, 5), Temp(j, 1), Temp(j, 3), Temp(j, 16) FOR k = 1 TO TAZ IF FIDEID(k) = Temp(j, 1) AND FIDEID(k) <> "" AND Tmp(k) <> "A" THEN IF ELO(k) <> VAL(Temp(j, 14)) THEN ELO(k) = VAL(Temp(j, 9)) ' ELO-Zahl IF DWZ(k) <> VAL(Temp(j, 9)) THEN DWZ(k) = VAL(Temp(j, 14)) ' DWZ-Zahl IF Spieler(k) <> Temp(j, 2) THEN Spieler(k) = Temp(j, 2) ' NAME IF Nation(k) <> Temp(j, 3) THEN Nation(k) = Temp(j, 3) ' Nation IF Geschlecht(k) <> Temp(j, 4) THEN Geschlecht(k) = Temp(j, 4) ' Geschlecht IF Titel(k) <> Temp(j, 5) THEN Titel(k) = Temp(j, 5) ' Titel IF Geburt(k) <> Temp(j, 12) THEN Geburt(k) = Temp(j, 12) ' Geburt IF Verein(k) <> Temp(j, 16) THEN Verein(k) = Temp(j, 16) ' Verein IF Vnummer(k) <> Temp(j, 6) THEN Vnummer(k) = Temp(j, 6) ' Vereinsnummer IF Mnummer(k) <> Temp(j, 7) THEN Mnummer(k) = Temp(j, 7) ' Mitgliedsnummer IF Tmp(k) <> "A" THEN Tmp(k) = Temp(j, 8) END IF NEXT LOOP CLOSE #f REDIM Temp(0 TO 2002, 0 TO 52) ELSE MessageBox(0, "DWZ.liste???", Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END IF ANZEIGE(i) MessageBox(0, "OK", "STOP", MB_ICONINFORMATION OR MB_SYSTEMMODAL) END IF END SUB SUB SCROLLBALKEN ' yy = y IF Seite = 1 THEN yyy = Scrollbalkenposition(1) ' IF i <> 0 THEN y = 152 + i IF TAZ > 1 THEN zzz = ((325-153) / ((TAZ+24) / 25)) + 153 IF TAZ < 2 THEN zzz = 325: Scrollbalkenposition(1) = 153 ' ((326-153) / (1 / 24)) + 153 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 END IF IF Seite = 2 THEN yyy = Scrollbalkenposition(2) IF ppr(runde) > 1 THEN zzz = ((502-112) / ((ppr(runde)+59) / 60)) + 112 IF ppr(runde) < 2 THEN zzz = 502: Scrollbalkenposition(2) = 112 laenge = (zzz - 112) IF laenge < 4 THEN laenge = 4 END IF IF Seite = 7 THEN ' 152 - 623 yyy = Scrollbalkenposition(4) IF eingeleseneDaten > 1 THEN zzz = ((622-153) / ((eingeleseneDaten+59) / 60)) + 153 IF eingeleseneDaten < 2 THEN zzz = 622: Scrollbalkenposition(4) = 153 laenge = (zzz - 153) IF laenge < 4 THEN laenge = 4 ' Scrollbalken Spieler einlesen ' LINE (5,152)-(25,152), &h555555 ' LINE (5,623)-(25,623), &hFFFFFF ' LINE (5,152)-(5,623), &h555555 ' LINE (25,152)-(25,623), &hFFFFFF END IF IF Seite = 9 THEN yyy = Scrollbalkenposition(3) IF RAZ > 1 THEN zzz = ((389-112) / ((RAZ+39) / 40)) + 112 IF RAZ < 2 THEN zzz = 389: Scrollbalkenposition(3) = 112 laenge = (zzz - 112) IF laenge < 4 THEN laenge = 4 ENDIF SCREENLOCK IF Seite = 1 THEN LINE (995, 153)-(1013, 325), Hintergrundfarbe, BF FELD 995, Scrollbalkenposition(1), 1013, yyy + laenge, Hintergrundfarbe ' Feld für Scrollbar - Wort laenge wieder entfernen bei dieser Zeile! END IF IF Seite = 2 THEN LINE (234, 112)-(252, 502), Hintergrundfarbe, BF FELD 234, Scrollbalkenposition(2), 252, yyy + laenge, Hintergrundfarbe ' Feld für Scrollbar ' Brettnumer anzeigen FONT " ", 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 FONT Sprachausgaben(137) + ": " + LTRIM(STR(Brett)), 71, 110, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF IF Seite = 7 THEN LINE (6, 153)-(24, 622), Hintergrundfarbe, BF ' &hAA7777 FELD 6, Scrollbalkenposition(4), 24, yyy + laenge, Hintergrundfarbe ' Feld für Scrollbar END IF IF Seite = 9 THEN LINE (291, 112)-(309, 389), Hintergrundfarbe, BF FELD 291, Scrollbalkenposition(3), 309, yyy + laenge, Hintergrundfarbe ' Feld für Scrollbar END IF '/ SCREENUNLOCK END SUB FUNCTION ERZEUGEWINDOWSUUID() AS STRING DIM AS GUID tGuid DIM AS LPOLESTR wstrGUID DIM AS STRING ergebnis = "" ' 1. GUID direkt vom Windows-System generieren lassen IF CoCreateGuid(@tGuid) = S_OK THEN ' 2. Die binäre GUID in einen lesbaren Wide-String (Unicode) umwandeln IF StringFromCLSID(@tGuid, @wstrGUID) = S_OK THEN ' Typumwandlung in einen FreeBASIC-WString-Zeiger DIM AS WSTRING PTR pWStr = Cast(WSTRING PTR, wstrGUID) ergebnis = *pWStr ' Windows liefert die GUID standardmäßig mit geschweiften Klammern: "{...}" ' Diese schneiden wir hier für das Standard-UUID-Format ab: IF LEFT(ergebnis, 1) = "{" THEN ergebnis = MID(ergebnis, 2) IF RIGHT(ergebnis, 1) = "}" THEN ergebnis = LEFT(ergebnis, LEN(ergebnis) - 1) ' Wichtig: Den von Windows reservierten Speicher wieder freigeben CoTaskMemFree(wstrGUID) END IF END IF ' UUIDs werden im Web und in Datenbanken standardmäßig klein geschrieben RETURN LCASE(ergebnis) END FUNCTION FUNCTION AUFSCROLLBALKEN(BYVAL x AS INTEGER,BYVAL y AS INTEGER,BYVAL xx AS INTEGER,BYVAL yy AS INTEGER)AS INTEGER GETMOUSE mausx, mausy,,mausk AUFSCROLLBALKEN=0 IF mausx > x THEN IF mausy > y THEN IF mausx < xx THEN IF mausy < yy THEN AUFSCROLLBALKEN=1 Buttonsperre = 1 END IF END IF END IF END IF END FUNCTION FUNCTION GETPRINTERFROMUSER(hWnd AS HWND) AS PRINTDLG DIM pd AS PRINTDLG WITH pd .lStructSize = SIZEOF(PRINTDLG) .hwndOwner = hWnd .Flags = PD_ALLPAGES OR PD_COLLATE OR PD_RETURNDC OR PD_NOSELECTION END WITH PrintDlg(@pd) RETURN pd END FUNCTION FUNCTION DRUCKEN() AS BOOL DIM AS STRING Text DIM Printer AS PRINTDLG DIM di AS DOCINFO DIM AS INTEGER groesse ' groesse = 80 ' Teilnehmer groesse = 76 ' Paarungen ' groesse = 80 ' Rangliste DIM hfMyFont AS HFONT = CreateFont(groesse, 0, 0, 0, 0, 0, 0, 0,_ DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY,_ DEFAULT_PITCH, "Lucida Console") ' Times New Roman 'Printer-Dialog anzeigen Printer = GETPRINTERFROMUSER(hWnd) WITH di .cbSize = SIZEOF(DOCINFO) .lpszDocName = STRPTR("Ausdruck") END WITH ' Spielernamen = 35 ' Verein = 32 ' ELO = 4 ' DWZ = 4 ' Titel = 3 ' FIDEID = ' Land = 3 ' Geburt = 10 'Ausdrucken IF StartDoc(Printer.hDC, @di) <= 0 THEN RETURN FALSE IF StartPage(Printer.hDC) <= 0 THEN RETURN FALSE SetMapMode(Printer.hDC, MM_TEXT) SetBkMode(Printer.hDC, TRANSPARENT) SelectObject(Printer.hDC, hfMyFont) SetTextColor(Printer.hDC, RGB(0, 0, 0)) IF l < 7 THEN TextOut(Printer.hDC, 30, 160 * 0 + 40, "Schachturnierorganisationsprogramm", LEN("Schachturnierorganisationsprogramm")) IF l < 7 THEN TextOut(Printer.hDC, 30, 100 + 40, Eingabe(9), LEN(Eingabe(9))) ' ausgewählte Teilnehmer drucken IF l = 1 THEN y = 360 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN TextOut(Printer.hDC, 30, y, SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(132) + SPACE(3-(LEN(STR(Sprachausgaben(132))))) + " " + "EloI " + "EloN " + Sprachausgaben(15), LEN(SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(132) + SPACE(3-(LEN(STR(Sprachausgaben(132))))) + " " + "EloI " + "EloN " + Sprachausgaben(15))) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN TextOut(Printer.hDC, 30, y, SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + "EloI " + "EloN ", LEN(SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + "EloI " + "EloN ")) y = 400 FOR j AS INTEGER = VAL(Tmp(1)) TO VAL(Tmp(2)) IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Text = SPACE(4-(LEN(STR(j)))) + STR(j) + ". " + Spieler(j) + " " + SPACE(36-(LEN(STR(Spieler(j))))) + " " + Nation(j) + " " + SPACE(4-(LEN(STR(ELO(j))))) + STR(ELO(j)) + " " + SPACE(4-(LEN(STR(DWZ(j))))) + STR(DWZ(j)) + " " + Verein(j) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Text = SPACE(4-(LEN(STR(j)))) + STR(j) + ". " + Team(j) + " " + SPACE(36-(LEN(STR(Team(j))))) + " " + SPACE(4-(LEN(STR(Korrektur(j, 1))))) + STR(Korrektur(j, 1)) + " " + SPACE(4-(LEN(STR(Korrektur(j, 2))))) + STR(Korrektur(j, 2)) ' Korrektur(j, 1) ' Korrektur(j, 2) OemToChar Text, Text y += 160 TextOut(Printer.hDC, 30, y, STRPTR(Text), LEN(Text)) ' TextOut(Printer.hDC, 1, y+5, LINE(1,y+5)-(300,y+5),&h000000, LEN(LINE(1,y+5)-(300,y+5),&h000000)) IF j MOD 37 = 0 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 0 END IF NEXT END IF ' Paarungen drucken IF l = 2 THEN y = 400 AA = "" FOR j = VAL(Tmp(3)) TO VAL(Tmp(4)) TextOut(Printer.hDC, 30, y, Sprachausgaben(9) + " " + Sprachausgaben(133) + " " + STR(j), LEN(Sprachausgaben(9) + " " + Sprachausgaben(133) + " " + STR(Runde))) y += 120 TextOut(Printer.hDC, 30, y, SPACE(5-(LEN(STR(Sprachausgaben(156))))) + Sprachausgaben(156) + " " + SPACE(4-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(17-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " - " + SPACE(4-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(17-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " " + Sprachausgaben(140), LEN(SPACE(5-(LEN(STR(Sprachausgaben(156))))) + Sprachausgaben(156) + " " + SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(16-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(14) + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " - " + SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(16-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(14) + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " " + Sprachausgaben(140))) y += 120 FOR k = 1 TO ppr(j) ' Gesamtpunkte der jeweiligen Spieler errechnen FOR e = 1 TO TAZ Gesamtpunkte(e) = 0 FOR t = 1 TO j IF Punkte(e,t-1) <> 2000 AND Punkte(e,t-1) <> 0 THEN Gesamtpunkte(e) += Punkte(e,t-1) NEXT NEXT ' Ergebnisse definieren IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF kampflose(k, j) = 0 THEN IF Punkte(paarungen(k,1,j),j) = 1 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "1-0" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0.5 THEN AA = "½-½" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 1 THEN AA = "0-1" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "½-0" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 0.5 THEN AA = "0-½" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "0-0" END IF IF kampflose(k, j) = 1 THEN IF Punkte(paarungen(k,1,j),j) = 1 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "+--" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 1 THEN AA = "--+" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "---" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "=--" END IF IF kampflose(k, j) = 2 THEN IF Punkte(paarungen(k,1,j),j) = 1 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "W-L" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 1 THEN AA = "L-W" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0.5 THEN AA = "D-D" END IF IF Punkte(paarungen(k,1,j),j) = 2000 AND Punkte(paarungen(k,2,j),j) = 2000 THEN AA = "" IF Sprache <> 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Spieler(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Spieler(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j))) + " " IF Sprache = 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Spieler(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Spieler(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j)))+ " " END IF ' IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Sprache <> 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Team(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Team(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j))) + " " IF Sprache = 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Team(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Team(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j)))+ " " IF kampflose(k, j) = 0 AND Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) <> 0 AND paarungen(k,2,j) <> 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + " - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) END IF IF kampflose(k, j) = 1 THEN IF Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) <> 0 AND paarungen(k,2,j) <> 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + "k - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) + "k" END IF IF Punkte(paarungen(k,1,j),j) = 2000 AND Punkte(paarungen(k,2,j),j) = 2000 THEN AA = "" END IF IF kampflose(k, j) = 2 AND Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) <> 0 AND paarungen(k,2,j) <> 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + "U - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) + "U" END IF IF Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) = 0 OR paarungen(k,2,j) = 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + "k - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) + "k" END IF END IF OemToChar Text, Text TextOut(Printer.hDC, 30, y+40, Text + AA, LEN(Text + AA)) ' bis Brett 37, dann neue Seite!!! y += 160 IF y > 6279 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 400 END IF NEXT AA = "" ' bis Brett 37, dann neue Seite!!! y += 160 IF y > 6279 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 400 END IF NEXT END IF ' Rangliste drucken IF l = 3 THEN ' Feinwertung 1 bestimmen für Druckausgabe IF Feinwertungssystem(1) = 1 THEN AA = "???" IF Feinwertungssystem(1) = 2 THEN AA = Sprachausgaben(94) IF Feinwertungssystem(1) = 3 THEN AA = Sprachausgaben(95) IF Feinwertungssystem(1) = 4 THEN AA = Sprachausgaben(96) IF Feinwertungssystem(1) = 5 THEN AA = Sprachausgaben(97) IF Feinwertungssystem(1) = 6 THEN AA = Sprachausgaben(160) IF Feinwertungssystem(1) = 7 THEN AA = Sprachausgaben(161) IF Feinwertungssystem(1) = 8 THEN AA = Sprachausgaben(169) IF Feinwertungssystem(1) = 9 THEN AA = Sprachausgaben(173) IF Feinwertungssystem(1) = 10 THEN AA = Sprachausgaben(225) IF Feinwertungssystem(1) = 11 THEN AA = Sprachausgaben(231) ' Feinwertung 2 bestimmen für Druckausgabe IF Feinwertungssystem(2) = 1 THEN Text = "???" IF Feinwertungssystem(2) = 2 THEN Text = Sprachausgaben(94) IF Feinwertungssystem(2) = 3 THEN Text = Sprachausgaben(95) IF Feinwertungssystem(2) = 4 THEN Text = Sprachausgaben(96) IF Feinwertungssystem(2) = 5 THEN Text = Sprachausgaben(97) IF Feinwertungssystem(2) = 6 THEN Text = Sprachausgaben(160) IF Feinwertungssystem(2) = 7 THEN Text = Sprachausgaben(161) IF Feinwertungssystem(2) = 8 THEN Text = Sprachausgaben(169) IF Feinwertungssystem(2) = 9 THEN Text = Sprachausgaben(173) IF Feinwertungssystem(2) = 10 THEN Text = Sprachausgaben(225) IF Feinwertungssystem(2) = 11 THEN AA = Sprachausgaben(231) ' hier wird gedruckt!!! ' TextOut(Printer.hDC, 30, 600, SPACE(5-(LEN(STR(Sprachausgaben(25))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157)) + " " + SPACE(6-(LEN(STR(LEFT(AA,6))))) + STR(LEFT(AA,6)) + " " + SPACE(6-(LEN(STR(LEFT(Text,6))))) + STR(LEFT(Text,6)), LEN(SPACE(5-(LEN(STR(Sprachausgaben(25)))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157)) + " " + SPACE(6-(LEN(STR(LEFT(AA,6))))) + STR(LEFT(AA,6)) + " " + SPACE(6-(LEN(STR(LEFT(Text,6))))) + STR(LEFT(Text,6)) + " A") ' TextOut(Printer.hDC, 30, 600, SPACE(5-(LEN(STR(Sprachausgaben(25))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " A " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157))) TextOut(Printer.hDC, 30, 600, SPACE(5-(LEN(STR(Sprachausgaben(25))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " A + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157)) + " " + SPACE(6-(LEN(STR(LEFT(AA,6))))) + STR(LEFT(AA,6)) + " " + SPACE(6-(LEN(STR(LEFT(Text,6))))) + STR(LEFT(Text,6)), LEN(SPACE(5-(LEN(STR(Sprachausgaben(25))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " A + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157)) + " " + SPACE(6-(LEN(STR(LEFT(AA,6))))) + STR(LEFT(AA,6)) + " " + SPACE(6-(LEN(STR(LEFT(Text,6))))) + STR(LEFT(Text,6)))) Text = Sprachausgaben(64) OemToChar Text, Text ' Text umwandeln TextOut(Printer.hDC, 30, 400, Text + " " + STR(Runde), LEN(Text + " " + STR(Runde))) y = 760 FOR j AS INTEGER = VAL(Tmp(5)) TO VAL(Tmp(6)) ' Platz Platz Teilnehmer Teilnehmer Attribut Attribut Titel Titel ELO ELO DWZ DWZ Verein Verein Gewinne Gewinne Remis Remis Verlust Verlust Gesamtpunkte Gesamtpunkte Feinwertung 1 Feinwertung 2 Text = SPACE(5-(LEN(STR(j)))) + STR(j) + " " + LEFT(Temp(j, 1),25) + SPACE(25-(LEN(STR(LEFT(Temp(j, 1),25))))) + " " + SPACE(5-(LEN(STR(LEFT(Temp(j, 4),25))))) + Temp(j, 4) + " " + SPACE(4-(LEN(STR(Temp(j, 2))))) + Temp(j, 2) + " " + SPACE(4-(LEN(STR(Temp(j, 3))))) + Temp(j, 3) + " " + LEFT(Temp(j, 5),14) + SPACE(14-(LEN(STR(LEFT(Temp(j, 5),14))))) + " " + SPACE(1-(LEN(STR(LEFT(Temp(j, -3),25))))) + Temp(j, -3) + SPACE(2-(LEN(STR(TempPunkte(j, 2))))) + STR(TempPunkte(j, 2)) + " " + SPACE(2-(LEN(STR(TempPunkte(j, 3))))) + STR(TempPunkte(j, 3)) + " " + SPACE(2-(LEN(STR((TempPunkte(j, 4) - (TempPunkte(j, 2) + TempPunkte(j, 3))))))) + STR((TempPunkte(j, 4) - (TempPunkte(j, 2) + TempPunkte(j, 3)))) + " " + SPACE(6-(LEN(STR(TempPunkte(j, 1))))) + STR(TempPunkte(j, 1)) + " " + SPACE(6-(LEN(STR(TempFeinwertung(j, 1))))) + STR(TempFeinwertung(j, 1)) + " " + SPACE(6-(LEN(STR(TempFeinwertung(j, 2))))) + STR(TempFeinwertung(j, 2)) ' Text = SPACE(5-(LEN(STR(j)))) + STR(j) + " " + LEFT(Temp(j, 1),25) + SPACE(25-(LEN(STR(LEFT(Temp(j, 1),25))))) + " " + SPACE(5-(LEN(STR(LEFT(Temp(j, 4),25))))) + Temp(j, 4) + " " + SPACE(4-(LEN(STR(Temp(j, 2))))) + Temp(j, 2) + " " + SPACE(4-(LEN(STR(Temp(j, 3))))) + Temp(j, 3) + " " + LEFT(Temp(j, 5),14) + SPACE(14-(LEN(STR(LEFT(Temp(j, 5),14))))) + " " + SPACE(2-(LEN(STR(TempPunkte(j, 2))))) + STR(TempPunkte(j, 2)) + " " + SPACE(2-(LEN(STR(TempPunkte(j, 3))))) + STR(TempPunkte(j, 3)) + " " + SPACE(2-(LEN(STR((TempPunkte(j, 4) - (TempPunkte(j, 2) + TempPunkte(j, 3))))))) + STR((TempPunkte(j, 4) - (TempPunkte(j, 2) + TempPunkte(j, 3)))) + " " + SPACE(6-(LEN(STR(TempPunkte(j, 1))))) + STR(TempPunkte(j, 1)) + " " + SPACE(6-(LEN(STR(TempFeinwertung(j, 1))))) + STR(TempFeinwertung(j, 1)) + " " + SPACE(6-(LEN(STR(TempFeinwertung(j, 2))))) + STR(TempFeinwertung(j, 2)) OemToChar Text, Text ' Text umwandeln TextOut(Printer.hDC, 30, y, STRPTR(Text), LEN(Text)) y += 160 ' Temp(j, 9) = Nation(j) ' Nation ' bis Teilnehmer 37, dann neue Seite!!! IF y > 6520 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 400 END IF NEXT END IF ' alle Teilnehmer drucken IF l = 4 THEN y = 360 IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN TextOut(Printer.hDC, 30, y, SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(132) + SPACE(3-(LEN(STR(Sprachausgaben(132))))) + " " + "EloI " + "EloN " + Sprachausgaben(15), LEN(SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(132) + SPACE(3-(LEN(STR(Sprachausgaben(132))))) + " " + "EloI " + "EloN " + Sprachausgaben(15))) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN TextOut(Printer.hDC, 30, y, SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + "EloI " + "EloN ", LEN(SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(37-(LEN(STR(Sprachausgaben(8))))) + " " + "EloI " + "EloN ")) FOR j AS INTEGER = 1 TO TAZ IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN Text = SPACE(4-(LEN(STR(j)))) + STR(j) + ". " + Spieler(j) + " " + SPACE(36-(LEN(STR(Spieler(j))))) + " " + Nation(j) + " " + SPACE(4-(LEN(STR(ELO(j))))) + STR(ELO(j)) + " " + SPACE(4-(LEN(STR(DWZ(j))))) + STR(DWZ(j)) + " " + Verein(j) IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN Text = SPACE(4-(LEN(STR(j)))) + STR(j) + ". " + Team(j) + " " + SPACE(36-(LEN(STR(Team(j))))) + " " + SPACE(4-(LEN(STR(Korrektur(j, 1))))) + STR(Korrektur(j, 1)) + " " + SPACE(4-(LEN(STR(Korrektur(j, 2))))) + STR(Korrektur(j, 2)) OemToChar Text, Text y += 160 TextOut(Printer.hDC, 30, y+40, STRPTR(Text), LEN(Text)) IF j MOD 37 = 0 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 0 END IF NEXT END IF ' Paarungen drucken - nur 1 Runde!!! IF l = 5 THEN y = 400 AA = "" ' FOR j = 1 TO Runde FOR j = Runde TO Runde TextOut(Printer.hDC, 30, y, Sprachausgaben(9) + " " + Sprachausgaben(133) + " " + STR(j), LEN(Sprachausgaben(9) + " " + Sprachausgaben(133) + " " + STR(Runde))) y += 120 TextOut(Printer.hDC, 30, y, SPACE(5-(LEN(STR(Sprachausgaben(156))))) + Sprachausgaben(156) + " " + SPACE(4-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(17-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " - " + SPACE(4-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(17-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " " + Sprachausgaben(140), LEN(SPACE(5-(LEN(STR(Sprachausgaben(156))))) + Sprachausgaben(156) + " " + SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(16-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(14) + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " - " + SPACE(5-(LEN("Nr."))) + "Nr." + " " + Sprachausgaben(8) + SPACE(16-(LEN(STR(Sprachausgaben(8))))) + " " + Sprachausgaben(14) + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + " " + SPACE(7-(LEN(STR(Sprachausgaben(26))))) + Sprachausgaben(26) + " " + Sprachausgaben(140))) y += 120 FOR k = 1 TO ppr(j) ' Gesamtpunkte der jeweiligen Spieler errechnen FOR e = 1 TO TAZ Gesamtpunkte(e) = 0 FOR t = 1 TO j IF Punkte(e,t-1) <> 2000 AND Punkte(e,t-1) <> 0 THEN Gesamtpunkte(e) += Punkte(e,t-1) NEXT NEXT ' Ergebnisse definieren IF Paarungssystem < 5 OR Paarungssystem = 8 OR Paarungssystem = 9 OR Paarungssystem = 11 THEN IF kampflose(k, j) = 0 THEN IF Punkte(paarungen(k,1,j),j) = 1 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "1-0" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0.5 THEN AA = "½-½" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 1 THEN AA = "0-1" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "½-0" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 0.5 THEN AA = "0-½" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "0-0" END IF IF kampflose(k, j) = 1 THEN IF Punkte(paarungen(k,1,j),j) = 1 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "+--" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 1 THEN AA = "--+" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "---" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "=--" END IF IF kampflose(k, j) = 2 THEN IF Punkte(paarungen(k,1,j),j) = 1 AND Punkte(paarungen(k,2,j),j) = 0 THEN AA = "W-L" IF Punkte(paarungen(k,1,j),j) = 0 AND Punkte(paarungen(k,2,j),j) = 1 THEN AA = "L-W" IF Punkte(paarungen(k,1,j),j) = 0.5 AND Punkte(paarungen(k,2,j),j) = 0.5 THEN AA = "D-D" END IF IF Punkte(paarungen(k,1,j),j) = 2000 AND Punkte(paarungen(k,2,j),j) = 2000 THEN AA = "" IF Sprache <> 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Spieler(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Spieler(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j))) + " " IF Sprache = 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Spieler(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Spieler(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Spieler(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j)))+ " " END IF IF Paarungssystem = 5 OR Paarungssystem = 6 OR Paarungssystem = 7 THEN IF Sprache <> 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Team(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Team(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(7-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j))) + " " IF Sprache = 5 THEN Text = SPACE(5-(LEN(STR(k)))) + STR(k) + " " + SPACE(4-(LEN(STR(paarungen(k,1,j))))) + STR(paarungen(k,1,j)) + " " + LEFT(Team(paarungen(k,1,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,1,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,1,j))))) + Titel(paarungen(k,1,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,1,j)))))) + STR(Gesamtpunkte(paarungen(k,1,j))) + " - " + SPACE(4-(LEN(STR(paarungen(k,2,j))))) + STR(paarungen(k,2,j)) + " " + LEFT(Team(paarungen(k,2,j)), 17) + SPACE(17-(LEN(LEFT(Team(paarungen(k,2,j)), 17)))) + " " + SPACE(5-(LEN(Titel(paarungen(k,2,j))))) + Titel(paarungen(k,2,j)) + " " + SPACE(12-(LEN(STR(Gesamtpunkte(paarungen(k,2,j)))))) + STR(Gesamtpunkte(paarungen(k,2,j)))+ " " IF kampflose(k, j) = 0 AND Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) <> 0 AND paarungen(k,2,j) <> 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + " - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) END IF IF kampflose(k, j) = 1 THEN IF Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) <> 0 AND paarungen(k,2,j) <> 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + "k - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) + "k" END IF IF Punkte(paarungen(k,1,j),j) = 2000 AND Punkte(paarungen(k,2,j),j) = 2000 THEN AA = "" END IF IF kampflose(k, j) = 2 AND Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) <> 0 AND paarungen(k,2,j) <> 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + "U - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) + "U" END IF IF Punkte(paarungen(k,1,j),j) <> 2000 AND Punkte(paarungen(k,2,j),j) <> 2000 THEN IF paarungen(k,1,j) = 0 OR paarungen(k,2,j) = 0 THEN AA = STR(Mannschaftspunkte(paarungen(k,1,j),j)) + "k - " + STR(Mannschaftspunkte(paarungen(k,2,j),j)) + "k" END IF END IF OemToChar Text, Text TextOut(Printer.hDC, 30, y+40, Text + AA, LEN(Text + AA)) ' bis Brett 37, dann neue Seite!!! y += 160 IF y > 6279 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 400 END IF NEXT NEXT END IF ' Rangliste drucken IF l = 6 THEN ' Feinwertung 1 bestimmen für Druckausgabe IF Feinwertungssystem(1) = 1 THEN AA = "???" IF Feinwertungssystem(1) = 2 THEN AA = Sprachausgaben(94) IF Feinwertungssystem(1) = 3 THEN AA = Sprachausgaben(95) IF Feinwertungssystem(1) = 4 THEN AA = Sprachausgaben(96) IF Feinwertungssystem(1) = 5 THEN AA = Sprachausgaben(97) IF Feinwertungssystem(1) = 6 THEN AA = Sprachausgaben(160) IF Feinwertungssystem(1) = 7 THEN AA = Sprachausgaben(161) IF Feinwertungssystem(1) = 8 THEN AA = Sprachausgaben(169) IF Feinwertungssystem(1) = 9 THEN AA = Sprachausgaben(173) IF Feinwertungssystem(1) = 10 THEN AA = Sprachausgaben(225) IF Feinwertungssystem(1) = 11 THEN AA = Sprachausgaben(231) ' Feinwertung 2 bestimmen für Druckausgabe IF Feinwertungssystem(2) = 1 THEN Text = "???" IF Feinwertungssystem(2) = 2 THEN Text = Sprachausgaben(94) IF Feinwertungssystem(2) = 3 THEN Text = Sprachausgaben(95) IF Feinwertungssystem(2) = 4 THEN Text = Sprachausgaben(96) IF Feinwertungssystem(2) = 5 THEN Text = Sprachausgaben(97) IF Feinwertungssystem(2) = 6 THEN Text = Sprachausgaben(160) IF Feinwertungssystem(2) = 7 THEN Text = Sprachausgaben(161) IF Feinwertungssystem(2) = 8 THEN AA = Sprachausgaben(169) IF Feinwertungssystem(2) = 9 THEN AA = Sprachausgaben(173) IF Feinwertungssystem(2) = 10 THEN AA = Sprachausgaben(225) IF Feinwertungssystem(2) = 11 THEN AA = Sprachausgaben(231) ' hier wird gedruckt!!! TextOut(Printer.hDC, 30, 600, SPACE(5-(LEN(STR(Sprachausgaben(25))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157)) + " " + SPACE(6-(LEN(STR(LEFT(AA,6))))) + STR(LEFT(AA,6)) + " " + SPACE(6-(LEN(STR(LEFT(Text,6))))) + STR(LEFT(Text,6)), LEN(SPACE(5-(LEN(STR(Sprachausgaben(25))))) + Sprachausgaben(25) + " " + Sprachausgaben(8) + SPACE(25-(LEN(STR(Sprachausgaben(8))))) + " " + SPACE(5-(LEN(STR(Sprachausgaben(14))))) + Sprachausgaben(14) + " EloI " + "EloN " + Sprachausgaben(15) + SPACE(14-(LEN(STR(Sprachausgaben(15))))) + " + = - " + SPACE(6-(LEN(STR(LTRIM(Sprachausgaben(157)))))) + LTRIM(Sprachausgaben(157)) + " " + SPACE(6-(LEN(STR(LEFT(AA,6))))) + STR(LEFT(AA,6)) + " " + SPACE(6-(LEN(STR(LEFT(Text,6))))) + STR(LEFT(Text,6)))) Text = Sprachausgaben(64) OemToChar Text, Text ' Text umwandeln TextOut(Printer.hDC, 30, 400, Text + " " + STR(Runde), LEN(Text + " " + STR(Runde))) y = 760 FOR j AS INTEGER = 1 TO TAZ Text = SPACE(5-(LEN(STR(j)))) + STR(j) + " " + LEFT(Temp(j, 1),25) + SPACE(25-(LEN(STR(LEFT(Temp(j, 1),25))))) + " " + SPACE(5-(LEN(STR(LEFT(Temp(j, 4),25))))) + Temp(j, 4) + " " + SPACE(4-(LEN(STR(Temp(j, 2))))) + Temp(j, 2) + " " + SPACE(4-(LEN(STR(Temp(j, 3))))) + Temp(j, 3) + " " + LEFT(Temp(j, 5),14) + SPACE(14-(LEN(STR(LEFT(Temp(j, 5),14))))) + " " + SPACE(2-(LEN(STR(TempPunkte(j, 2))))) + STR(TempPunkte(j, 2)) + " " + SPACE(2-(LEN(STR(TempPunkte(j, 3))))) + STR(TempPunkte(j, 3)) + " " + SPACE(2-(LEN(STR((TempPunkte(j, 4) - (TempPunkte(j, 2) - TempPunkte(j, 3))))))) + STR((TempPunkte(j, 4) - (TempPunkte(j, 2) - TempPunkte(j, 3)))) + " " + SPACE(6-(LEN(STR(TempPunkte(j, 1))))) + STR(TempPunkte(j, 1)) + " " + SPACE(6-(LEN(STR(TempFeinwertung(j, 1))))) + STR(TempFeinwertung(j, 1)) + " " + SPACE(6-(LEN(STR(TempFeinwertung(j, 2))))) + STR(TempFeinwertung(j, 2)) OemToChar Text, Text ' Text umwandeln TextOut(Printer.hDC, 30, y, STRPTR(Text), LEN(Text)) y += 160 ' bis Teilnehmer 37, dann neue Seite!!! IF y > 6520 THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE y = 400 END IF NEXT END IF ' FA1 - drucken IF l = 7 OR l = 8 THEN DIM AS INTEGER Anzahl(1 TO 1), Nationen(1 TO 197), Rated(1 TO 2000) ' Anzahl der Nationen, Titelträger und Spieler mit Wertungszahl errechnen FOR j = 1 TO 197 Nationen(j) = 0 NEXT FOR e = 1 TO TAZ aaa = Nation(e) LAENDERKUERZEL(3) IF Spieler(e) <> "" THEN Nationen(e) = 1 IF ELO(e) <> 0 THEN Rated(e) = 1 NEXT k = 0 e = 0 FOR j = 1 TO 2000 IF Nationen(j) = 1 AND j < 198 THEN e += 1 IF Rated(j) = 1 THEN k += 1 IF Titel(j) <> "" THEN Anzahl(1) +=1 NEXT ' Objekt wählen SelectObject(Printer.hdc, GetStockObject(DC_PEN)) ' Linien schwarz zeichnen SetDCPenColor(Printer.hdc, &h000000) ' Außenrahmen zeichnen (Quadrat) MoveToEx(Printer.hdc, 340, 500, Null) LineTo(Printer.hdc, 4460, 500) LineTo(Printer.hdc, 4460, 1935) LineTo(Printer.hdc, 340, 1935) LineTo(Printer.hdc, 340, 500) ' Zwischenlinien zeichnen MoveToEx(Printer.hdc, 341, 660, Null) LineTo(Printer.hdc, 4459, 660) MoveToEx(Printer.hdc, 341, 820, Null) LineTo(Printer.hdc, 4459, 820) MoveToEx(Printer.hdc, 341, 1135, Null) LineTo(Printer.hdc, 4459, 1135) MoveToEx(Printer.hdc, 341, 1295, Null) LineTo(Printer.hdc, 4459, 1295) MoveToEx(Printer.hdc, 341, 1455, Null) LineTo(Printer.hdc, 4459, 1455) MoveToEx(Printer.hdc, 341, 1615, Null) LineTo(Printer.hdc, 4459, 1615) MoveToEx(Printer.hdc, 341, 1775, Null) LineTo(Printer.hdc, 4459, 1775) MoveToEx(Printer.hdc, 341, 1935, Null) LineTo(Printer.hdc, 4459, 1935) MoveToEx(Printer.hdc, 2650, 501, Null) LineTo(Printer.hdc, 2650, 1934) ' Box zeichnen MoveToEx(Printer.hdc, 390, 2288, Null) LineTo(Printer.hdc, 390, 2368) LineTo(Printer.hdc, 310, 2368) LineTo(Printer.hdc, 310, 2288) LineTo(Printer.hdc, 389, 2288) MoveToEx(Printer.hdc, 390, 2448, Null) LineTo(Printer.hdc, 390, 2528) LineTo(Printer.hdc, 310, 2528) LineTo(Printer.hdc, 310, 2448) LineTo(Printer.hdc, 389, 2448) ' Außenrahmen zeichnen (Quadrat) MoveToEx(Printer.hdc, 340, 2735, Null) LineTo(Printer.hdc, 4460, 2735) LineTo(Printer.hdc, 4460, 3535) LineTo(Printer.hdc, 340, 3535) LineTo(Printer.hdc, 340, 2735) ' Außenrahmen zeichnen (Quadrat) MoveToEx(Printer.hdc, 340, 4495, Null) LineTo(Printer.hdc, 4460, 4495) LineTo(Printer.hdc, 4460, 4792) LineTo(Printer.hdc, 340, 4792) LineTo(Printer.hdc, 340, 4495) ' Zwischenlinien zeichnen MoveToEx(Printer.hdc, 341, 2895, Null) LineTo(Printer.hdc, 4459, 2895) MoveToEx(Printer.hdc, 341, 3055, Null) LineTo(Printer.hdc, 4459, 3055) MoveToEx(Printer.hdc, 341, 3375, Null) LineTo(Printer.hdc, 4459, 3375) MoveToEx(Printer.hdc, 2100, 2736, Null) LineTo(Printer.hdc, 2100, 3054) MoveToEx(Printer.hdc, 3300, 2896, Null) LineTo(Printer.hdc, 3300, 3054) MoveToEx(Printer.hdc, 3300, 3376, Null) LineTo(Printer.hdc, 3300, 3534) ' "Courier New" ' 83 DIM AS STRING Schriftart = "Calibri" ' Schriftart z = 141 ' Schriftgröße ' Größe ändern SelectObject(Printer.hDC, CreateFont(z+20, 0, 0, 0, 900, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Texte ausgeben IF l = 7 THEN TextOut(Printer.hDC, 340, 210, STRPTR("International Arbiter Norm Report Form"), LEN("International Arbiter Norm Report Form")) IF l = 7 THEN TextOut(Printer.hDC, 4250, 210, STRPTR("IA1"), LEN("IA1")) IF l = 8 THEN TextOut(Printer.hDC, 340, 210, STRPTR("FIDE Arbiter Norm Report Form"), LEN("FIDE Arbiter Norm Report Form")) IF l = 8 THEN TextOut(Printer.hDC, 4250, 210, STRPTR("FA1"), LEN("FA1")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(z, 0, 0, 0, 900, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Texte ausgeben TextOut(Printer.hDC, 380, 500, STRPTR("Last Name:"), LEN("Last Name:")) TextOut(Printer.hDC, 380, 660, STRPTR("FIDE ID Number:"), LEN("FIDE ID Number:")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(z, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Text = RIGHT(Eingabe(21), 4) + "-" + MID(Eingabe(21), 4, 2) + "-" + LEFT(Eingabe(21), 2) + " - " + RIGHT(Eingabe(22), 4) + "-" + MID(Eingabe(22), 4, 2) + "-" + LEFT(Eingabe(22), 2) ' Text = RIGHT(Eingabe(22), 4) + "-" + MID(Eingabe(22), 4, 2) + "-" + LEFT(Eingabe(22), 2) ' Texte ausgeben Text = "Federation of Event: " + Eingabe(11) TextOut(Printer.hDC, 380, 820, STRPTR(Text), LEN(Text)) Text = "Dates: " + RIGHT(Eingabe(21), 4) + "/" + MID(Eingabe(21), 4, 2) + "/" + LEFT(Eingabe(21), 2) + " - " + RIGHT(Eingabe(22), 4) + "/" + MID(Eingabe(22), 4, 2) + "/" + LEFT(Eingabe(22), 2) TextOut(Printer.hDC, 380, 1135, STRPTR(Text), LEN(Text)) IF Paarungssystem = 0 THEN Text = "System: " + " Double Round Robin" IF Paarungssystem = 1 THEN Text = "System: " + " Round Robin" IF Paarungssystem = 2 THEN Text = "System: " + " Round Robin" IF Paarungssystem = 3 THEN Text = "System: " + " Individual Swiss System Dutch (JaVaFo)" IF Paarungssystem = 4 THEN Text = "System: " + " Individual Swiss System Dutch (JaVaFo)" IF Paarungssystem = 5 THEN Text = "System: " + " Team Swiss System" IF Paarungssystem = 6 THEN Text = "System: " + " Team Round Robin" IF Paarungssystem = 8 THEN Text = "System: " + " Individual Swiss System Burstein (BBP)" TextOut(Printer.hDC, 380, 1295, STRPTR(Text), LEN(Text)) Text = "Number of players: " + STR(TAZ) TextOut(Printer.hDC, 380, 1455, STRPTR(Text), LEN(Text)) Text = "Number of federations represented: " + STR(e) TextOut(Printer.hDC, 380, 1615, STRPTR(Text), LEN(Text)) Text = "Time control: " + Eingabe(12) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 380, 1775, STRPTR(Text), LEN(Text)) ' Größe ändern SelectObject(Printer.hDC, CreateFont(z, 0, 0, 0, 900, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Texte ausgeben TextOut(Printer.hDC, 2690, 500, STRPTR("First Name:"), LEN("First Name:")) TextOut(Printer.hDC, 2690, 660, STRPTR("Federation:"), LEN("Federation:")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(z-35, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Texte ausgeben Text = Eingabe(9) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 2690, 980, STRPTR(Text), LEN(Text)) ' Größe ändern SelectObject(Printer.hDC, CreateFont(z, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Texte ausgeben TextOut(Printer.hDC, 2690, 820, STRPTR("Name of Event:"), LEN("Name of Event:")) Text = "Venue: " + Eingabe(10) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 2690, 1135, STRPTR(Text), LEN(Text)) Text = "Number of rounds: " + STR(RAZ) TextOut(Printer.hDC, 2690, 1295, STRPTR(Text), LEN(Text)) Text = "Number of FIDE Rated players: " + STR(k) TextOut(Printer.hDC, 2690, 1455, STRPTR(Text), LEN(Text)) Text = "Number of titled players: " + STR(Anzahl(1)) TextOut(Printer.hDC, 2690, 1615, STRPTR(Text), LEN(Text)) TextOut(Printer.hDC, 320, 2095, STRPTR("Recommendation: (please tick the appropriate box)."), LEN("Recommendation: (please tick the appropriate box).")) IF l = 7 THEN TextOut(Printer.hDC, 400, 2255, STRPTR("The Arbiter’s performance was of the required standard for a International Arbiter."), LEN("The Arbiter’s performance was of the required standard for a International Arbiter.")) IF l = 8 THEN TextOut(Printer.hDC, 400, 2255, STRPTR("The Arbiter’s performance was of the required standard for a FIDE Arbiter."), LEN("The Arbiter’s performance was of the required standard for a FIDE Arbiter.")) TextOut(Printer.hDC, 400, 2415, STRPTR("The Arbiter still needs to gain more experience."), LEN("The Arbiter still needs to gain more experience.")) TextOut(Printer.hDC, 380, 2735, STRPTR("Name:"), LEN("Name:")) TextOut(Printer.hDC, 380, 2895, STRPTR("Position:"), LEN("Position:")) TextOut(Printer.hDC, 380, 3055, STRPTR("Name and position of the Authenticating Federation official:"), LEN("Name and position of the Authenticating Federation official:")) TextOut(Printer.hDC, 380, 3375, STRPTR("Signature"), LEN("Signature")) TextOut(Printer.hDC, 2140, 2735, STRPTR("Signature:"), LEN("Signature:")) TextOut(Printer.hDC, 2140, 2895, STRPTR("Federation:"), LEN("Federation:")) TextOut(Printer.hDC, 3340, 2895, STRPTR("Date:"), LEN("Date:")) TextOut(Printer.hDC, 3340, 3375, STRPTR("Date:"), LEN("Date:")) ' IF l = 7 THEN TextOut(Printer.hDC, 380, 3695, STRPTR("The organizer is responsible for providing the above certificate to each Arbiter who in"), LEN("The organizer is responsible for providing the above certificate to each Arbiter who in")) TextOut(Printer.hDC, 380, 3855, STRPTR("the opinion of the Chief Arbiter has qualified for a International Arbiter norm and who"), LEN("the opinion of the Chief Arbiter has qualified for a International Arbiter norm and who")) TextOut(Printer.hDC, 380, 4015, STRPTR("requests it before the end of the tournament. The Chief Arbiter is responsible for"), LEN("requests it before the end of the tournament. The Chief Arbiter is responsible for")) TextOut(Printer.hDC, 380, 4175, STRPTR("providing the signed certificate to the organising federation for authentication."), LEN("providing the signed certificate to the organising federation for authentication.")) END IF IF l = 8 THEN TextOut(Printer.hDC, 380, 3695, STRPTR("The organizer is responsible for providing the above certificate to each Arbiter who in"), LEN("The organizer is responsible for providing the above certificate to each Arbiter who in")) TextOut(Printer.hDC, 380, 3855, STRPTR("the opinion of the Chief Arbiter has qualified for a FIDE Arbiter norm and who requests"), LEN("the opinion of the Chief Arbiter has qualified for a FIDE Arbiter norm and who requests")) TextOut(Printer.hDC, 380, 4015, STRPTR("it before the end of the tournament. The Chief Arbiter is responsible for providing the"), LEN("it before the end of the tournament. The Chief Arbiter is responsible for providing the")) TextOut(Printer.hDC, 380, 4175, STRPTR("signed certificate to the organising federation for authentication."), LEN("signed certificate to the organising federation for authentication.")) END IF IF l = 7 THEN TextOut(Printer.hDC, 380, 4495, STRPTR("When applying for the IA title, the applicant’s federation must attach a copy of any"), LEN("When applying for the IA title, the applicant’s federation must attach a copy of any")) IF l = 8 THEN TextOut(Printer.hDC, 380, 4495, STRPTR("When applying for the FA title, the applicant’s federation must attach a copy of any"), LEN("When applying for the FA title, the applicant’s federation must attach a copy of any")) TextOut(Printer.hDC, 380, 4655, STRPTR("appeals decisions."), LEN("appeals decisions.")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(z-30, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, Schriftart)) ' Farbe ändern SetTextColor(Printer.hdc, &h241CED) ' Text ausgeben TextOut(Printer.hDC, 380, 4975, STRPTR("PRIVACY NOTICE: this form contains personal data, please check FIDE Privacy policy at www.fide.com/privacy"), LEN("PRIVACY NOTICE: this form contains personal data, please check FIDE Privacy policy at www.fide.com/privacy")) END IF '/ /' IT1 - drucken IF l = 9 THEN DIM AS INTEGER Anzahl(1 TO 23), Nationen(1 TO 197), Rated(1 TO 197) DIM AS INTEGER b(0 TO 10) DIM AS INTEGER GM(1 TO 197), IM(1 TO 197), FM(1 TO 197), WGM(1 TO 197), WIM(1 TO 197), WFM(1 TO 197) ' Wert auf 0 setzen FOR j = 1 TO 197 Nationen(j) = 0 NEXT ' Anzahl der Nationen errechnen FOR l = 1 TO TAZ aaa = Nation(l) LAENDERKUERZEL(3) Nationen(k) = 1 NEXT b(3) = 0 FOR j = 1 TO 197 IF Nationen(j) = 1 THEN b(10) += 1 NEXT ' Wert auf 0 setzen FOR j = 1 TO 197 Nationen(j) = 0 NEXT ' alles auf 0 setzen FOR j = 0 TO 9 b(j) = 0 NEXT ' FOR r = 1 TO RAZ FOR j = 1 TO ppr(r) ' Anzahl der Gegner mit Wertungszahl und Anzahl der Titel berechnen IF i = paarungen(j,1,r) THEN IF Titel(paarungen(j,2,r)) = "GM" THEN b(1) += 1 IF Titel(paarungen(j,2,r)) = "IM" THEN b(2) += 1 IF Titel(paarungen(j,2,r)) = "WGM" THEN b(3) += 1 IF Titel(paarungen(j,2,r)) = "WIM" THEN b(4) += 1 IF Titel(paarungen(j,2,r)) = "FM" THEN b(5) += 1 IF Titel(paarungen(j,2,r)) = "WFM" THEN b(6) += 1 IF ELO(paarungen(j,2,r)) = 0 AND DWZ(paarungen(j,2,r)) = 0 THEN ' hier nichts machen ELSE IF i = paarungen(j,1,r) THEN b(7) += 1 END IF END IF IF i = paarungen(j,2,r) THEN IF Titel(paarungen(j,1,r)) = "GM" THEN b(1) += 1 IF Titel(paarungen(j,1,r)) = "WGM" THEN b(2) += 1 IF Titel(paarungen(j,1,r)) = "IM" THEN b(3) += 1 IF Titel(paarungen(j,1,r)) = "WIM" THEN b(4) += 1 IF Titel(paarungen(j,1,r)) = "FM" THEN b(5) += 1 IF Titel(paarungen(j,1,r)) = "WFM" THEN b(6) += 1 IF ELO(paarungen(j,1,r)) = 0 AND DWZ(paarungen(j,1,r)) = 0 THEN ' hier nichts machen ELSE IF i = paarungen(j,2,r) THEN b(7) += 1 END IF END IF ' Anzahl der Spieler des Gastgeberlandes IF i = paarungen(j,1,r) AND Eingabe(11) = Nation(paarungen(j,2,r)) THEN b(8) += 1 IF i = paarungen(j,2,r) AND Eingabe(11) = Nation(paarungen(j,1,r)) THEN b(8) += 1 ' Anzahl der Gegner mit Titel IF Titel(paarungen(j,2,r)) = "GM" OR Titel(paarungen(j,2,r)) = "IM" OR Titel(paarungen(j,2,r)) = "WGM" OR Titel(paarungen(j,2,r)) = "WIM" OR Titel(paarungen(j,2,r)) = "FM" OR Titel(paarungen(j,2,r)) = "WFM" THEN IF i = paarungen(j,1,r) AND Titel(paarungen(j,2,r)) <> "" THEN b(9) += 1 END IF IF Titel(paarungen(j,1,r)) = "GM" OR Titel(paarungen(j,1,r)) = "IM" OR Titel(paarungen(j,1,r)) = "WGM" OR Titel(paarungen(j,1,r)) = "WIM" OR Titel(paarungen(j,1,r)) = "FM" OR Titel(paarungen(j,1,r)) = "WFM" THEN IF i = paarungen(j,2,r) AND Titel(paarungen(j,1,r)) <> "" THEN b(9) += 1 END IF ' number players not from title applicant’s federation calculation IF i = paarungen(j,1,r) AND Nation(i) <> Nation(paarungen(j,2,r)) THEN b(0) += 1 EXIT FOR END IF IF i = paarungen(j,2,r) AND Nation(i) <> Nation(paarungen(j,1,r)) THEN b(0) += 1 EXIT FOR END IF NEXT NEXT ' Anzahl der Seiten errechnen r = 0 FOR k = 1 TO RAZ IF k MOD 11 = 1 THEN r += 1 NEXT FOR k = 1 TO r ' SelectObject(Printer.hdc, GetStockObject(DC_PEN)) ' Linien schwarz zeichnen SetDCPenColor(Printer.hdc, &h000000) ' Außenrahmen zeichnen (Quadrat) - Certificate of Title Result MoveToEx(Printer.hdc, 600, 332, Null) LineTo(Printer.hdc, 4563, 332) LineTo(Printer.hdc, 4563, 516) LineTo(Printer.hdc, 600, 516) LineTo(Printer.hdc, 600, 332) ' Außenrahmen zeichnen (Quadrat) - Spieler MoveToEx(Printer.hdc, 600, 730, Null) LineTo(Printer.hdc, 4563, 730) LineTo(Printer.hdc, 4563, 1300) LineTo(Printer.hdc, 600, 1300) LineTo(Printer.hdc, 600, 730) ' Außenrahmen zeichnen (Quadrat) - Turnierinformationen MoveToEx(Printer.hdc, 600, 1370, Null) LineTo(Printer.hdc, 4563, 1370) LineTo(Printer.hdc, 4563, 2450) LineTo(Printer.hdc, 600, 2450) LineTo(Printer.hdc, 600, 1370) ' Außenrahmen zeichnen (Quadrat) - 1.43d MoveToEx(Printer.hdc, 600, 2535, Null) LineTo(Printer.hdc, 4563, 2535) LineTo(Printer.hdc, 4563, 2960) LineTo(Printer.hdc, 600, 2960) LineTo(Printer.hdc, 600, 2535) ' Außenrahmen zeichnen (Quadrat) - Gegner MoveToEx(Printer.hdc, 600, 3149, Null) LineTo(Printer.hdc, 4563, 3149) LineTo(Printer.hdc, 4563, 5305) LineTo(Printer.hdc, 600, 5305) LineTo(Printer.hdc, 600, 3149) ' Querlinien zeichnen FOR j = 3149 TO 5305 STEP 180 MoveToEx(Printer.hdc, 601, j, Null) LineTo(Printer.hdc, 4562, j) NEXT ' Größe ändern SelectObject(Printer.hDC, CreateFont(86, 0, 0, 0, 700, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Texte ausgeben TextOut(Printer.hDC, 4220, 240, STRPTR("IT1"), LEN("IT1")) TextOut(Printer.hDC, 1900, 380, STRPTR("Certificate of Title Result"), LEN("Certificate of Title Result")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(86, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Text ausgeben TextOut(Printer.hDC, 1050, 550, STRPTR("0 GM 0 IM 0 WGM 0 WIM"), LEN("0 GM 0 IM 0 WGM 0 WIM")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(66, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Texte ausgeben TextOut(Printer.hDC, 640, 900, STRPTR("Name: ................................... First Name: ................................"), LEN("Name: ................................... First Name: ................................")) TextOut(Printer.hDC, 640, 1100, STRPTR("ID-number: ......... Federation: ................."), LEN("ID-number: ......... Federation: .................")) TextOut(Printer.hDC, 640, 1500, STRPTR("Event: .................................... Start: .......... Close: .........."), LEN("Event: .................................... Start: .......... Close: ..........")) TextOut(Printer.hDC, 640, 1660, STRPTR("Chief Arbiter (name, ID): ......................... number of games: .........."), LEN("Chief Arbiter (name, ID): ......................... number of games: ..........")) TextOut(Printer.hDC, 640, 1820, STRPTR("rate of play: ..................................... number of federations: ...."), LEN("rate of play: ..................................... number of federations: ....")) TextOut(Printer.hDC, 640, 1980, STRPTR("number players not from title applicant’s federation ... number rated opponents ...."), LEN("number players not from title applicant’s federation ... number rated opponents ....")) TextOut(Printer.hDC, 640, 2140, STRPTR("number players from host federation ........ total number of titled opponents ...."), LEN("number players from host federation ........ total number of titled opponents ....")) TextOut(Printer.hDC, 640, 2300, STRPTR("number of: GM .... IM .... WGM .... WIM .... FM .... WFM ...."), LEN("number of: GM .... IM .... WGM .... WIM .... FM .... WFM ....")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(56, 0, 0, 0, 600, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Text ausgeben TextOut(Printer.hDC, 640, 2590, STRPTR("Where applying 1.43d:"), LEN("Where applying 1.43d:")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(66, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Texte ausgeben TextOut(Printer.hDC, 640, 2700, STRPTR("number of federations: ....... number of rated players not from host federation: ......."), LEN("number of federations: ....... number of rated players not from host federation: .......")) TextOut(Printer.hDC, 640, 2860, STRPTR("number of players not from host federation holding GM, IM, WGM, WIM titles ......"), LEN("number of players not from host federation holding GM, IM, WGM, WIM titles ......")) TextOut(Printer.hDC, 600, 2980, STRPTR("Special remarks:"), LEN("Special remarks:")) TextOut(Printer.hDC, 640, 3200, STRPTR("Rd Opponents ID Fed Rating Rat. 1.46c Title Score"), LEN("Rd Opponents ID Fed Rating Rat. 1.46c Title Score")) TextOut(Printer.hDC, 600, 5408, STRPTR("Rating average (1.46b): ......... Score required: ......... Score achieved: ........."), LEN("Rating average (1.46b): ......... Score required: ......... Score achieved: .........")) TextOut(Printer.hDC, 600, 5615, STRPTR("Exceeding norm by .........points"), LEN("Exceeding norm by .........points")) TextOut(Printer.hDC, 2265, 5728, STRPTR(".................................................."), LEN("..................................................")) TextOut(Printer.hDC, 2265, 5825, STRPTR("Chief Arbiter's signature"), LEN("Chief Arbiter's signature")) TextOut(Printer.hDC, 600, 6250, STRPTR("Name of federation official: ...................... Signature: ...................."), LEN("Name of federation official: ...................... Signature: ....................")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(66, 0, 0, 0, 600, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Text ausgeben TextOut(Printer.hDC, 600, 5930, STRPTR("Federation confirming the result:"), LEN("Federation confirming the result:")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(56, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Farbe ändern SetTextColor(Printer.hdc, &h241CED) ' Text ausgeben TextOut(Printer.hDC, 600, 6360, STRPTR("PRIVACY NOTICE: this form contains personal data, please check FIDE Privacy policy at www.fide.com/privacy"), LEN("PRIVACY NOTICE: this form contains personal data, please check FIDE Privacy policy at www.fide.com/privacy")) ' Farbe ändern SetTextColor(Printer.hdc, &h000000) ' Texte ausgeben TextOut(Printer.hDC, 600, 6440, STRPTR("Note: Unrated = 1000, butsee 1.46b. Score = 1, ½ or 0.5, 0 for played games or +, =, - for unplayed games"), LEN("Note: Unrated = 1000, butsee 1.46b. Score = 1, ½ or 0.5, 0 for played games or +, =, - for unplayed games")) TextOut(Printer.hDC, 600, 6500, STRPTR("The organizer must provide this certificate to: each player who has achieved a title result,"), LEN("The organizer must provide this certificate to: each player who has achieved a title result,")) TextOut(Printer.hDC, 600, 6560, STRPTR("to the organizing federation, the player’s federation and the FIDE Office."), LEN("to the organizing federation, the player’s federation and the FIDE Office.")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(96, 0, 0, 0, 700, TRUE, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Aral")) ' Text ausgeben TextOut(Printer.hDC, 2900, 6670, STRPTR("This report is not valid until confirmed by QC"), LEN("This report is not valid until confirmed by QC")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(66, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Rundenzahl ausgeben e = 3390 FOR j = 1 TO 11 n = STR(j+((k-1)*11)) TextOut(Printer.hDC, 640, e, STRPTR(n), LEN(n)) e += 180 NEXT ' Text ausgeben n = Eingabe(9) OemToChar n, n TextOut(Printer.hDC, 890, 1450, STRPTR(n), LEN(n)) ' Turniername n = Eingabe(14) OemToChar n, n TextOut(Printer.hDC, 1660, 1610, STRPTR(n), LEN(n)) ' Hauptschiedsrichter n = Eingabe(12) OemToChar n, n TextOut(Printer.hDC, 1190, 1770, STRPTR(n), LEN(n)) ' Bedenkzeit ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Texte ausgeben n = LEFT(Spieler(i),(INSTR(Spieler(i), ",")-1)) OemToChar n, n TextOut(Printer.hDC, 890, 850, STRPTR(n), LEN(n)) ' Name n = MID(Spieler(i),(INSTR(Spieler(i), ",")+1)) OemToChar n, n TextOut(Printer.hDC, 3180, 850, STRPTR(n), LEN(n)) ' Vorname TextOut(Printer.hDC, 1090, 1050, STRPTR(FIDEID(i)), LEN(FIDEID(i))) ' FIDEID TextOut(Printer.hDC, 3180, 1050, STRPTR(Nation(i)), LEN(Nation(i))) ' Nation TextOut(Printer.hDC, 3010, 1450, STRPTR(Eingabe(21)), LEN(Eingabe(21))) ' Startdatum TextOut(Printer.hDC, 3950, 1450, STRPTR(Eingabe(22)), LEN(Eingabe(22))) ' Endedatum n = STR(RAZ) TextOut(Printer.hDC, 3780, 1610, STRPTR(n), LEN(n)) ' Anzahl der Runden n = STR(b(10)) TextOut(Printer.hDC, 4010, 1770, STRPTR(n), LEN(n)) ' Anzahl der Nationen n = STR(b(0)) TextOut(Printer.hDC, 2810, 1930, STRPTR(n), LEN(n)) ' Anzahl Spieler, die nicht vom Land des Titelanwärters sind (number players not from title applicant’s federation) n = STR(b(7)) TextOut(Printer.hDC, 4010, 1930, STRPTR(n), LEN(n)) ' Anzahl der gewerteten Spieler n = STR(b(8)) TextOut(Printer.hDC, 2120, 2090, STRPTR(n), LEN(n)) ' Anzahl der Spieler des Gastgeberverbandes n = STR(b(9)) TextOut(Printer.hDC, 4210, 2090, STRPTR(n), LEN(n)) ' Anzahl der gewerteten Spieler FOR j = 0 TO 5 n = STR(b(j+1)) TextOut(Printer.hDC, 1400+(500*j), 2250, STRPTR(n), LEN(n)) ' Anzahl der Titel der Gegner (GM, IM, FM, WGM, WIM, WFM) NEXT /' ' ********************************************************************************************************************************************************************* FOR j = 1 TO 197 Nationen(j) = 0 NEXT FOR l = 1 TO TAZ aaa = Nation(l) LAENDERKUERZEL(3) IF ELO(l) = 0 THEN Nationen(k) = 1 IF ELO(l) <> 0 THEN Rated(k) = 1 IF Titel(l) = "GM" THEN GM(k) = 1 IF Titel(l) = "IM" THEN IM(k) = 1 IF Titel(l) = "FM" THEN FM(k) = 1 IF Titel(l) = "WGM" THEN WGM(k) = 1 IF Titel(l) = "WIM" THEN WIM(k) = 1 IF Titel(l) = "WFM" THEN WFM(k) = 1 NEXT k = 0 l = 0 FOR j = 1 TO 197 IF Nationen(j) = 1 THEN b(3) += 1 IF Rated(j) = 1 THEN k += 1 IF GM(j) = 1 THEN l += 1 IF IM(j) = 1 THEN b(1) += 1 IF FM(j) = 1 THEN b(2) += 1 IF WGM(j) = 1 THEN b(4) += 1 IF WIM(j) = 1 THEN b(5) += 1 IF WFM(j) = 1 THEN b(6) += 1 NEXT ' Number of Feds text = STR(k) TextOut(Printer.hDC, 1147.6, 3914, STRPTR(Text), LEN(Text)) ' Rated - Number of Feds text = STR(l) TextOut(Printer.hDC, 1147.6, 4044, STRPTR(Text), LEN(Text)) ' GM - Number of Feds text = STR(b(1)) TextOut(Printer.hDC, 1147.6, 4184, STRPTR(Text), LEN(Text)) ' IM - Number of Feds text = STR(b(2)) TextOut(Printer.hDC, 1147.6, 4324, STRPTR(Text), LEN(Text)) ' FM - Number of Feds text = STR(b(3)) TextOut(Printer.hDC, 3166.6, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Number of Feds text = STR(b(4)) TextOut(Printer.hDC, 3166.6, 4044, STRPTR(Text), LEN(Text)) ' WGM - Number of Feds text = STR(b(5)) TextOut(Printer.hDC, 3166.6, 4184, STRPTR(Text), LEN(Text)) ' WIM - Number of Feds text = STR(b(6)) TextOut(Printer.hDC, 3166.6, 4324, STRPTR(Text), LEN(Text)) ' WFM - Number of Feds FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN Anzahl(1) +=1 IF Titel(j) = "GM" THEN Anzahl(2) +=1 IF Titel(j) = "IM" THEN Anzahl(3) +=1 IF Titel(j) = "FM" THEN Anzahl(4) +=1 IF Titel(j) = "WGM" THEN Anzahl(5) +=1 IF Titel(j) = "WIM" THEN Anzahl(6) +=1 IF Titel(j) = "WFM" THEN Anzahl(7) +=1 IF Nation(j) = Eingabe(11) AND ELO(j) <> 0 THEN Anzahl(8) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "GM" THEN Anzahl(9) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "IM" THEN Anzahl(10) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "FM" THEN Anzahl(11) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "WGM" THEN Anzahl(12) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "WIM" THEN Anzahl(13) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "WFM" THEN Anzahl(14) += 1 IF Nation(j) = Eingabe(11) AND ELO(j) = 0 THEN Anzahl(15) += 1 IF Nation(j) <> Eingabe(11) AND ELO(j) <> 0 THEN Anzahl(16) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "GM" THEN Anzahl(17) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "IM" THEN Anzahl(18) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "FM" THEN Anzahl(19) += 1 IF Nation(j) <> Eingabe(11) AND ELO(j) = 0 THEN Anzahl(20) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "WGM" THEN Anzahl(21) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "WIM" THEN Anzahl(22) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "WFM" THEN Anzahl(23) += 1 NEXT ' Number text = STR(Anzahl(1)) TextOut(Printer.hDC, 743.8, 3914, STRPTR(Text), LEN(Text)) ' Rated - Number text = STR(Anzahl(2)) TextOut(Printer.hDC, 743.8, 4044, STRPTR(Text), LEN(Text)) ' GM - Number text = STR(Anzahl(3)) TextOut(Printer.hDC, 743.8, 4184, STRPTR(Text), LEN(Text)) ' IM - Number text = STR(Anzahl(4)) TextOut(Printer.hDC, 743.8, 4324, STRPTR(Text), LEN(Text)) ' FM - Number ' Host Fed. Players text = STR(Anzahl(8)) TextOut(Printer.hDC, 1551.4, 3914, STRPTR(Text), LEN(Text)) ' Rated - Host Fed. Players text = STR(Anzahl(9)) TextOut(Printer.hDC, 1551.4, 4044, STRPTR(Text), LEN(Text)) ' GM - Host Fed. Players text = STR(Anzahl(10)) TextOut(Printer.hDC, 1551.4, 4184, STRPTR(Text), LEN(Text)) ' IM - Host Fed. Players text = STR(Anzahl(11)) TextOut(Printer.hDC, 1551.4, 4324, STRPTR(Text), LEN(Text)) ' FM - Host Fed. Players ' Other Fed. Players text = STR(Anzahl(16)) TextOut(Printer.hDC, 1955.2, 3914, STRPTR(Text), LEN(Text)) ' Rated - Other Fed. Players text = STR(Anzahl(17)) TextOut(Printer.hDC, 1955.2, 4044, STRPTR(Text), LEN(Text)) ' GM - Other Fed. Players text = STR(Anzahl(18)) TextOut(Printer.hDC, 1955.2, 4184, STRPTR(Text), LEN(Text)) ' IM - Other Fed. Players text = STR(Anzahl(19)) TextOut(Printer.hDC, 1955.2, 4324, STRPTR(Text), LEN(Text)) ' FM - Other Fed. Players ' Number text = STR(TAZ-Anzahl(1)) TextOut(Printer.hDC, 2762.8, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Number text = STR(Anzahl(5)) TextOut(Printer.hDC, 2762.8, 4044, STRPTR(Text), LEN(Text)) ' WGM - Number text = STR(Anzahl(6)) TextOut(Printer.hDC, 2762.8, 4184, STRPTR(Text), LEN(Text)) ' WIM - Number text = STR(Anzahl(7)) TextOut(Printer.hDC, 2762.8, 4324, STRPTR(Text), LEN(Text)) ' WFM - Number ' Host Fed. Players text = STR(Anzahl(15)) TextOut(Printer.hDC, 3570.4, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Host Fed. Players text = STR(Anzahl(12)) TextOut(Printer.hDC, 3570.4, 4044, STRPTR(Text), LEN(Text)) ' WGM - Host Fed. Players text = STR(Anzahl(13)) TextOut(Printer.hDC, 3570.4, 4184, STRPTR(Text), LEN(Text)) ' WIM - Host Fed. Players text = STR(Anzahl(14)) TextOut(Printer.hDC, 3570.4, 4324, STRPTR(Text), LEN(Text)) ' WFM - Host Fed. Players ' Other Fed. Players text = STR(Anzahl(20)) TextOut(Printer.hDC, 3974.2, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Other Fed. Players text = STR(Anzahl(21)) TextOut(Printer.hDC, 3974.2, 4044, STRPTR(Text), LEN(Text)) ' WGM - Other Fed. Players text = STR(Anzahl(22)) TextOut(Printer.hDC, 3974.2, 4184, STRPTR(Text), LEN(Text)) ' WIM - Other Fed. Players text = STR(Anzahl(23)) TextOut(Printer.hDC, 3974.2, 4324, STRPTR(Text), LEN(Text)) ' WFM - Other Fed. Players '/ ' ************************************************************************************************************************************************************************ ' neue Seite drucken IF k < r THEN IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE NEXT END IF '/ ' IT3 - drucken IF l = 9 THEN ' Größe ändern ' SelectObject(Printer.hDC, CreateFont(96, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' SelectObject(Printer.hDC, hfMyFont) ' SetTextColor(Printer.hDC, RGB(0, 0, 0)) SelectObject(Printer.hdc, GetStockObject(DC_PEN)) SetDCPenColor(Printer.hdc, &hC0C0C0) e = 1 t = 1 DIM f AS INTEGER = FREEFILE DIM AS INTEGER Logo(0 TO 288) FOR k = 1 TO 288 Logo(k) = 0 NEXT CHDIR EXEPATH ' Pfad setzen ' DO IF FILEEXISTS("Logo.txt") THEN OPEN "Logo.txt" FOR INPUT AS #f ' laden DO UNTIL EOF(f) LINE INPUT #f, text ' Zeile einlesen IF Logo(e) = 0 THEN Logo(e) = 1: t = e: e = 1: EXIT DO e += 1 LOOP CLOSE #f END IF FOR k = 1 TO 32 IF MID(text, k, 1) = "8" THEN SetDCPenColor(Printer.hdc, &h808080) IF MID(text, k, 1) = "7" THEN SetDCPenColor(Printer.hdc, &hb3b3b3) IF MID(text, k, 1) = "2" THEN SetDCPenColor(Printer.hdc, &h008000) IF k = 1 THEN MoveToEx(Printer.hdc, 300, (50+(t*1)), Null) LineTo(Printer.hdc, (300+(k*9)), (50+(t*1))) NEXT IF t > 287 THEN EXIT DO LOOP ' Linien schwarz zeichnen SetDCPenColor(Printer.hdc, &h000000) ' Außenrahmen zeichnen (Quadrat) MoveToEx(Printer.hdc, 300, 500, Null) LineTo(Printer.hdc, 4338, 500) LineTo(Printer.hdc, 4338, 5885) LineTo(Printer.hdc, 300, 5885) LineTo(Printer.hdc, 300, 500) ' Zwischenlinien zeichnen MoveToEx(Printer.hdc, 301, 782, Null) ' Förderation + Turniername LineTo(Printer.hdc, 4337, 782) MoveToEx(Printer.hdc, 1580, 501, Null) ' Senkrechter Strich zwischen Förderation und Turniername LineTo(Printer.hdc, 1580, 781) MoveToEx(Printer.hdc, 301, 1008, Null) ' Turnierort + Datum (Start/Ende) LineTo(Printer.hdc, 4337, 1008) MoveToEx(Printer.hdc, 2260, 783, Null) LineTo(Printer.hdc, 2260, 1007) MoveToEx(Printer.hdc, 3285, 783, Null) LineTo(Printer.hdc, 3285, 1007) MoveToEx(Printer.hdc, 301, 1222, Null) ' Turnierorganisator LineTo(Printer.hdc, 4337, 1222) MoveToEx(Printer.hdc, 301, 1412, Null) ' Kontakt Informationen LineTo(Printer.hdc, 4337, 1412) MoveToEx(Printer.hdc, 301, 1577, Null) LineTo(Printer.hdc, 4337, 1577) MoveToEx(Printer.hdc, 301, 1748, Null) LineTo(Printer.hdc, 4337, 1748) MoveToEx(Printer.hdc, 301, 1822, Null) LineTo(Printer.hdc, 4337, 1822) MoveToEx(Printer.hdc, 1320, 1823, Null) LineTo(Printer.hdc, 1320, 2175) MoveToEx(Printer.hdc, 2805, 1823, Null) LineTo(Printer.hdc, 2805, 2175) ' Anzahl Runden + Runden pro Tag + Bedenkzeit MoveToEx(Printer.hdc, 301, 2176, Null) LineTo(Printer.hdc, 4337, 2176) MoveToEx(Printer.hdc, 1565, 2177, Null) LineTo(Printer.hdc, 1565, 2911) ' Pairing system MoveToEx(Printer.hdc, 301, 2912, Null) LineTo(Printer.hdc, 4337, 2912) ' besondere Hinweise MoveToEx(Printer.hdc, 301, 3120, Null) LineTo(Printer.hdc, 4337, 3120) MoveToEx(Printer.hdc, 301, 3329, Null) LineTo(Printer.hdc, 4337, 3329) MoveToEx(Printer.hdc, 301, 3537, Null) LineTo(Printer.hdc, 4337, 3537) MoveToEx(Printer.hdc, 301, 3713, Null) LineTo(Printer.hdc, 4337, 3713) ' MoveToEx(Printer.hdc, 301, 3890, Null) LineTo(Printer.hdc, 4337, 3890) MoveToEx(Printer.hdc, 301, 4012, Null) LineTo(Printer.hdc, 4337, 4012) MoveToEx(Printer.hdc, 301, 4153, Null) LineTo(Printer.hdc, 4337, 4153) MoveToEx(Printer.hdc, 301, 4294, Null) LineTo(Printer.hdc, 4337, 4294) ' MoveToEx(Printer.hdc, 301, 4447, Null) LineTo(Printer.hdc, 4337, 4447) MoveToEx(Printer.hdc, 301, 4723, Null) LineTo(Printer.hdc, 4337, 4723) MoveToEx(Printer.hdc, 301, 4870, Null) LineTo(Printer.hdc, 4337, 4870) MoveToEx(Printer.hdc, 301, 5035, Null) LineTo(Printer.hdc, 4337, 5035) MoveToEx(Printer.hdc, 301, 5090, Null) LineTo(Printer.hdc, 4337, 5090) ' MoveToEx(Printer.hdc, 301, 5292, Null) LineTo(Printer.hdc, 4337, 5292) MoveToEx(Printer.hdc, 301, 5482, Null) LineTo(Printer.hdc, 4337, 5482) MoveToEx(Printer.hdc, 301, 5672, Null) LineTo(Printer.hdc, 4337, 5672) ' GM/IM/FM FOR j = 703.8 TO 4338 STEP 403.8 MoveToEx(Printer.hdc, j, 3714, Null) LineTo(Printer.hdc, j, 4446) NEXT ' ' Größe ändern SelectObject(Printer.hDC, CreateFont(66, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' Texte ausgeben TextOut(Printer.hDC, 1000, 100, STRPTR("Programm zur Organisation von Schachturnieren"), LEN("Programm zur Organisation von Schachturnieren")) TextOut(Printer.hDC, 1000, 160, STRPTR("Alexander Lenhard"), LEN("Alexander Lenhard")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(96, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 340, 350, STRPTR("Tournament Report Form"), LEN("Tournament Report Form")) TextOut(Printer.hDC, 3720, 350, STRPTR("IT3"), LEN("IT3")) TextOut(Printer.hDC, 340, 530, STRPTR("Federation"), LEN("Federation")) TextOut(Printer.hDC, 340, 650, STRPTR(Eingabe(11)), LEN(Eingabe(11))) TextOut(Printer.hDC, 1600, 530, STRPTR("Name of Tournament"), LEN("Name of Tournament")) Text = Eingabe(9) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 1600, 650, STRPTR(Text), LEN(Text)) ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 340, 800, STRPTR("Country and Place of Tournament"), LEN("Country and Place of Tournament")) Text = Eingabe(11) + " / " + Eingabe(10) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 340, 910, STRPTR(Text), LEN(Text)) TextOut(Printer.hDC, 2280, 800, STRPTR("Starting Date"), LEN("Starting Date")) Text = RIGHT(Eingabe(21), 4) + "-" + MID(Eingabe(21), 4, 2) + "-" + LEFT(Eingabe(21), 2) TextOut(Printer.hDC, 2280, 910, STRPTR(Text), LEN(Text)) ' Start Datum TextOut(Printer.hDC, 3305, 800, STRPTR("End Date"), LEN("End Date")) Text = RIGHT(Eingabe(22), 4) + "-" + MID(Eingabe(22), 4, 2) + "-" + LEFT(Eingabe(22), 2) TextOut(Printer.hDC, 3305, 910, STRPTR(Text), LEN(Text)) ' Ende Datum TextOut(Printer.hDC, 340, 1035, STRPTR("Organizer of the Tournament"), LEN("Organizer of the Tournament")) Text = Eingabe(13) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 340, 1135, STRPTR(Text), LEN(Text)) ' Turnierveranstalter ' Größe ändern SelectObject(Printer.hDC, CreateFont(56, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 930, 1235, STRPTR("Contact Information (address, phone, fax, email) of the person responsible for information:"), LEN("Contact Information (address, phone, fax, email) of the person responsible for information:")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 340, 1846, STRPTR("Number of Rounds"), LEN("Number of Rounds")) TextOut(Printer.hDC, 1340, 1846, STRPTR("Schedule (number of rounds/day)"), LEN("Schedule (number of rounds/day)")) TextOut(Printer.hDC, 2845, 1846, STRPTR("Rate(s) of play"), LEN("Rate(s) of play")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(146, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) aaa = STR(Runde) + " / " + STR(RAZ) TextOut(Printer.hDC, 340, 1976, STRPTR(aaa), LEN(aaa)) ' Rundenanzahl ausgeben ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) Text = Eingabe(12) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 2845, 2006, STRPTR(Text), LEN(Text)) TextOut(Printer.hDC, 340, 2200, STRPTR("Tournament Type"), LEN("Tournament Type")) TextOut(Printer.hDC, 1605, 2200, STRPTR("Pairing System of a"), LEN("Pairing System of a")) TextOut(Printer.hDC, 1605, 2350, STRPTR("Swiss System Tournament ____________________________"), LEN("Swiss System Tournament ____________________________")) TextOut(Printer.hDC, 1605, 2500, STRPTR("Manual [ ] Person responsible ____________________________"), LEN("Manual [ ] Person responsible ____________________________")) TextOut(Printer.hDC, 1605, 2650, STRPTR("Computerized [X]"), LEN("Computerized [X]")) TextOut(Printer.hDC, 2465, 2650, STRPTR("Program used ___________________________"), LEN("Program used ___________________________")) IF Paarungssystem <> 8 THEN TextOut(Printer.hDC, 3100, 2345, STRPTR("Dutch (JaVaFo)"), LEN("Dutch (JaVaFo)")) IF Paarungssystem = 8 THEN TextOut(Printer.hDC, 2900, 2345, STRPTR("Burstein (bbpPairings)"), LEN("Burstein (bbpPairings)")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(59, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 3070, 2645, STRPTR("Schachturnierorganisationsprogramm"), LEN("Schachturnierorganisationsprogramm")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(96, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 340, 2450, STRPTR("Individual:"), LEN("Individual:")) IF Paarungssystem = 3 OR Paarungssystem = 4 OR Paarungssystem = 8 THEN TextOut(Printer.hDC, 340, 2550, STRPTR("Swiss System (FIDE)"), LEN("Swiss System (FIDE)")) IF Paarungssystem < 3 THEN TextOut(Printer.hDC, 340, 2550, STRPTR("Round Robin System"), LEN("Round Robin System")) IF Paarungssystem = 9 THEN TextOut(Printer.hdc, 340, 2550, STRPTR("KO-System"), LEN("KO-System")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' TextOut(Printer.hDC, 340, 2932, STRPTR("Special Remarks (exceptions in pairings, restart option,...)"), LEN("Special Remarks (exceptions in pairings, restart option,...)")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(62, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) ' TextOut(Printer.hDC, 340, 3734, STRPTR("Type"), LEN("Type")) TextOut(Printer.hDC, 743.8, 3734, STRPTR("Number"), LEN("Number")) TextOut(Printer.hDC, 1147.6, 3734, STRPTR("Number of"), LEN("Number of")) TextOut(Printer.hDC, 1551.4, 3734, STRPTR("Host Fed."), LEN("Host Fed.")) TextOut(Printer.hDC, 1955.2, 3734, STRPTR("Other Fed."), LEN("Other Fed.")) TextOut(Printer.hDC, 1147.6, 3804, STRPTR("Feds"), LEN("Feds")) TextOut(Printer.hDC, 1551.4, 3804, STRPTR("Players"), LEN("Players")) TextOut(Printer.hDC, 1955.2, 3804, STRPTR("Players"), LEN("Players")) TextOut(Printer.hDC, 2359, 3734, STRPTR("Type"), LEN("Type")) TextOut(Printer.hDC, 2762.8, 3734, STRPTR("Number"), LEN("Number")) TextOut(Printer.hDC, 3166.6, 3734, STRPTR("Number of"), LEN("Number of")) TextOut(Printer.hDC, 3570.4, 3734, STRPTR("Host Fed."), LEN("Host Fed.")) TextOut(Printer.hDC, 3974.2, 3734, STRPTR("Other Fed."), LEN("Other Fed.")) TextOut(Printer.hDC, 3166.6, 3804, STRPTR("Feds"), LEN("Feds")) TextOut(Printer.hDC, 3570.4, 3804, STRPTR("Players"), LEN("Players")) TextOut(Printer.hDC, 3974.2, 3804, STRPTR("Players"), LEN("Players")) TextOut(Printer.hDC, 340, 3914, STRPTR("Rated"), LEN("Rated")) TextOut(Printer.hDC, 340, 4044, STRPTR("GM"), LEN("GM")) TextOut(Printer.hDC, 340, 4184, STRPTR("IM"), LEN("IM")) TextOut(Printer.hDC, 340, 4324, STRPTR("FM"), LEN("FM")) TextOut(Printer.hDC, 2359, 3914, STRPTR("Unrated"), LEN("Unrated")) TextOut(Printer.hDC, 2359, 4044, STRPTR("WGM"), LEN("WGM")) TextOut(Printer.hDC, 2359, 4184, STRPTR("WIM"), LEN("WIM")) TextOut(Printer.hDC, 2359, 4324, STRPTR("WFM"), LEN("WFM")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) DIM AS INTEGER Anzahl(1 TO 23), Nationen(1 TO 197), Rated(1 TO 197) DIM AS INTEGER b(0 TO 6) DIM AS INTEGER GM(1 TO 197), IM(1 TO 197), FM(1 TO 197), WGM(1 TO 197), WIM(1 TO 197), WFM(1 TO 197) FOR j = 1 TO 23 Anzahl(j) = 0 NEXT FOR j = 1 TO 197 Nationen(j) = 0 NEXT ' FOR l = 1 TO TAZ aaa = Nation(l) LAENDERKUERZEL(3) IF ELO(l) = 0 THEN Nationen(k) = 1 IF ELO(l) <> 0 THEN Rated(k) = 1 IF Titel(l) = "GM" THEN GM(k) = 1 IF Titel(l) = "IM" THEN IM(k) = 1 IF Titel(l) = "FM" THEN FM(k) = 1 IF Titel(l) = "WGM" THEN WGM(k) = 1 IF Titel(l) = "WIM" THEN WIM(k) = 1 IF Titel(l) = "WFM" THEN WFM(k) = 1 NEXT k = 0 l = 0 FOR j = 1 TO 197 IF Nationen(j) = 1 THEN b(3) += 1 IF Rated(j) = 1 THEN k += 1 IF GM(j) = 1 THEN l += 1 IF IM(j) = 1 THEN b(1) += 1 IF FM(j) = 1 THEN b(2) += 1 IF WGM(j) = 1 THEN b(4) += 1 IF WIM(j) = 1 THEN b(5) += 1 IF WFM(j) = 1 THEN b(6) += 1 NEXT ' Number of Feds text = STR(k) TextOut(Printer.hDC, 1147.6, 3914, STRPTR(Text), LEN(Text)) ' Rated - Number of Feds text = STR(l) TextOut(Printer.hDC, 1147.6, 4044, STRPTR(Text), LEN(Text)) ' GM - Number of Feds text = STR(b(1)) TextOut(Printer.hDC, 1147.6, 4184, STRPTR(Text), LEN(Text)) ' IM - Number of Feds text = STR(b(2)) TextOut(Printer.hDC, 1147.6, 4324, STRPTR(Text), LEN(Text)) ' FM - Number of Feds text = STR(b(3)) TextOut(Printer.hDC, 3166.6, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Number of Feds text = STR(b(4)) TextOut(Printer.hDC, 3166.6, 4044, STRPTR(Text), LEN(Text)) ' WGM - Number of Feds text = STR(b(5)) TextOut(Printer.hDC, 3166.6, 4184, STRPTR(Text), LEN(Text)) ' WIM - Number of Feds text = STR(b(6)) TextOut(Printer.hDC, 3166.6, 4324, STRPTR(Text), LEN(Text)) ' WFM - Number of Feds FOR j = 1 TO TAZ IF ELO(j) <> 0 THEN Anzahl(1) +=1 IF Titel(j) = "GM" THEN Anzahl(2) +=1 IF Titel(j) = "IM" THEN Anzahl(3) +=1 IF Titel(j) = "FM" THEN Anzahl(4) +=1 IF Titel(j) = "WGM" THEN Anzahl(5) +=1 IF Titel(j) = "WIM" THEN Anzahl(6) +=1 IF Titel(j) = "WFM" THEN Anzahl(7) +=1 IF Nation(j) = Eingabe(11) AND ELO(j) <> 0 THEN Anzahl(8) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "GM" THEN Anzahl(9) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "IM" THEN Anzahl(10) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "FM" THEN Anzahl(11) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "WGM" THEN Anzahl(12) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "WIM" THEN Anzahl(13) += 1 IF Nation(j) = Eingabe(11) AND Titel(j) = "WFM" THEN Anzahl(14) += 1 IF Nation(j) = Eingabe(11) AND ELO(j) = 0 THEN Anzahl(15) += 1 IF Nation(j) <> Eingabe(11) AND ELO(j) <> 0 THEN Anzahl(16) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "GM" THEN Anzahl(17) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "IM" THEN Anzahl(18) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "FM" THEN Anzahl(19) += 1 IF Nation(j) <> Eingabe(11) AND ELO(j) = 0 THEN Anzahl(20) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "WGM" THEN Anzahl(21) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "WIM" THEN Anzahl(22) += 1 IF Nation(j) <> Eingabe(11) AND Titel(j) = "WFM" THEN Anzahl(23) += 1 NEXT ' Number text = STR(Anzahl(1)) TextOut(Printer.hDC, 743.8, 3914, STRPTR(Text), LEN(Text)) ' Rated - Number text = STR(Anzahl(2)) TextOut(Printer.hDC, 743.8, 4044, STRPTR(Text), LEN(Text)) ' GM - Number text = STR(Anzahl(3)) TextOut(Printer.hDC, 743.8, 4184, STRPTR(Text), LEN(Text)) ' IM - Number text = STR(Anzahl(4)) TextOut(Printer.hDC, 743.8, 4324, STRPTR(Text), LEN(Text)) ' FM - Number ' Host Fed. Players text = STR(Anzahl(8)) TextOut(Printer.hDC, 1551.4, 3914, STRPTR(Text), LEN(Text)) ' Rated - Host Fed. Players text = STR(Anzahl(9)) TextOut(Printer.hDC, 1551.4, 4044, STRPTR(Text), LEN(Text)) ' GM - Host Fed. Players text = STR(Anzahl(10)) TextOut(Printer.hDC, 1551.4, 4184, STRPTR(Text), LEN(Text)) ' IM - Host Fed. Players text = STR(Anzahl(11)) TextOut(Printer.hDC, 1551.4, 4324, STRPTR(Text), LEN(Text)) ' FM - Host Fed. Players ' Other Fed. Players text = STR(Anzahl(16)) TextOut(Printer.hDC, 1955.2, 3914, STRPTR(Text), LEN(Text)) ' Rated - Other Fed. Players text = STR(Anzahl(17)) TextOut(Printer.hDC, 1955.2, 4044, STRPTR(Text), LEN(Text)) ' GM - Other Fed. Players text = STR(Anzahl(18)) TextOut(Printer.hDC, 1955.2, 4184, STRPTR(Text), LEN(Text)) ' IM - Other Fed. Players text = STR(Anzahl(19)) TextOut(Printer.hDC, 1955.2, 4324, STRPTR(Text), LEN(Text)) ' FM - Other Fed. Players ' Number text = STR(TAZ-Anzahl(1)) TextOut(Printer.hDC, 2762.8, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Number text = STR(Anzahl(5)) TextOut(Printer.hDC, 2762.8, 4044, STRPTR(Text), LEN(Text)) ' WGM - Number text = STR(Anzahl(6)) TextOut(Printer.hDC, 2762.8, 4184, STRPTR(Text), LEN(Text)) ' WIM - Number text = STR(Anzahl(7)) TextOut(Printer.hDC, 2762.8, 4324, STRPTR(Text), LEN(Text)) ' WFM - Number ' Host Fed. Players text = STR(Anzahl(15)) TextOut(Printer.hDC, 3570.4, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Host Fed. Players text = STR(Anzahl(12)) TextOut(Printer.hDC, 3570.4, 4044, STRPTR(Text), LEN(Text)) ' WGM - Host Fed. Players text = STR(Anzahl(13)) TextOut(Printer.hDC, 3570.4, 4184, STRPTR(Text), LEN(Text)) ' WIM - Host Fed. Players text = STR(Anzahl(14)) TextOut(Printer.hDC, 3570.4, 4324, STRPTR(Text), LEN(Text)) ' WFM - Host Fed. Players ' Other Fed. Players text = STR(Anzahl(20)) TextOut(Printer.hDC, 3974.2, 3914, STRPTR(Text), LEN(Text)) ' Unrated - Other Fed. Players text = STR(Anzahl(21)) TextOut(Printer.hDC, 3974.2, 4044, STRPTR(Text), LEN(Text)) ' WGM - Other Fed. Players text = STR(Anzahl(22)) TextOut(Printer.hDC, 3974.2, 4184, STRPTR(Text), LEN(Text)) ' WIM - Other Fed. Players text = STR(Anzahl(23)) TextOut(Printer.hDC, 3974.2, 4324, STRPTR(Text), LEN(Text)) ' WFM - Other Fed. Players ' TextOut(Printer.hDC, 370, 4470, STRPTR("Chief Arbiter and contact information of Chief Arbiter (email)"), LEN("Chief Arbiter and contact information of Chief Arbiter (email)")) Text = Eingabe(14) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 370, 4630, STRPTR(Text), LEN(Text)) ' Größe ändern SelectObject(Printer.hDC, CreateFont(66, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) TextOut(Printer.hDC, 340, 5150, STRPTR("Deputy Chief Arbiter"), LEN("Deputy Chief Arbiter")) ' TextOut(Printer.hDC, 340, 5310, STRPTR("If more than 20 players"), LEN("If more than 20 players")) TextOut(Printer.hDC, 340, 5390, STRPTR("Arbiter"), LEN("Arbiter")) ' TextOut(Printer.hDC, 340, 5500, STRPTR("If more than 70 players"), LEN("If more than 70 players")) TextOut(Printer.hDC, 340, 5580, STRPTR("Arbiter"), LEN("Arbiter")) ' TextOut(Printer.hDC, 340, 5690, STRPTR("If more than 120 players"), LEN("If more than 120 players")) TextOut(Printer.hDC, 340, 5770, STRPTR("Arbiter"), LEN("Arbiter")) ' Größe ändern SelectObject(Printer.hDC, CreateFont(76, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH, "Lucida Console")) k = 5170 FOR j = 15 TO 18 Text = Eingabe(j) OemToChar Text, Text ' Sonderzeichen umwandeln TextOut(Printer.hDC, 1420, k, STRPTR(Text), LEN(Text)) k += 200 NEXT TextOut(Printer.hDC, 340, 6000, STRPTR("The organizer must provide this report form to each arbiter who has achieved a norm,"), LEN("The organizer must provide this report form to each arbiter who has achieved a norm,")) TextOut(Printer.hDC, 340, 6100, STRPTR("his/her federation, the organizing federation and the FIDE Secretariat."), LEN("his/her federation, the organizing federation and the FIDE Secretariat.")) SetTextColor(Printer.hdc, &h241CED) TextOut(Printer.hDC, 340, 6200, STRPTR("PRIVACY NOTICE: Chief Organizer's and Chief Arbiter's email address is required only"), LEN("PRIVACY NOTICE: Chief Organizer's and Chief Arbiter's email address is required only")) TextOut(Printer.hDC, 340, 6300, STRPTR("for institutional purposes and will be displayed on FIDE website. Please, refer to"), LEN("for institutional purposes and will be displayed on FIDE website. Please, refer to")) TextOut(Printer.hDC, 340, 6400, STRPTR("FIDE Data Protection Policy published in FIDE at https://www.fide.com/privacy"), LEN("FIDE Data Protection Policy published in FIDE at https://www.fide.com/privacy")) END IF '/ IF EndPage(Printer.hDC) <= 0 THEN RETURN FALSE IF EndDoc(Printer.hDC) <= 0 THEN RETURN FALSE 'Aufräumen DeleteDC(Printer.hDC) DeleteObject(hfMyFont) RETURN TRUE END FUNCTION SUB SGUIFARBE ' IF SetupFarbe = 1 THEN FarbePaarung(3) = &hE1E1E1 ' SetupFarbe = 2 THEN OOO ' SetupFarbe = 3 THEN XXX ' SetupFarbe = 4 THEN OOO ' SetupFarbe = 5 THEN XXX ' SetupFarbe = 6 THEN XXX/OOO ' SetupFarbe = 7 THEN OOO ' SetupFarbe = 8 THEN XXX ' DIM AS UINTEGER messageTextColor DIM AS UINTEGER messageColor customColors = TRUE backgroundColor = Hintergrundfarbe ComboBackgroundColor = Hintergrundfarbe textColor = FarbePaarung(3) gadgetColor = Hintergrundfarbe menuColor = Farbe(2) gadgetGlowColor = Hintergrundfarbe gadgetTextColor = textColor cursorColor = textColor menuTextColor = Hintergrundfarbe menuHiliteColor = Hintergrundfarbe menuGhostedColor = ShiftRGB(MenuColor, -contrast / 2) messageTextColor = textColor messageColor = gadgetColor InitGFX '/ END SUB SUB MANNSCHAFTSRATING ' Werte auf 0 setzen FOR j = 1 TO TAZ Korrektur(j, 1) = 0 ' ELO Korrektur(j, 2) = 0 ' DWZ NEXT ' Wertungszahl für Mannschaften berechnen FOR j = 1 TO TAZ r = 0 e = 0 FOR k = 1 to 50 Korrektur(j, 1) += ELO((j*50-50)+k) Korrektur(j, 2) += DWZ((j*50-50)+k) IF ELO((j*50-50)+k) <> 0 THEN r += 1 IF DWZ((j*50-50)+k) <> 0 THEN e += 1 NEXT IF r > 0 THEN Korrektur(j, 1) = CINT((Korrektur(j, 1)/r)) IF e > 0 THEN Korrektur(j, 2) = CINT((Korrektur(j, 2)/e)) NEXT r = 0 END SUB FUNCTION Char(s AS STRING) AS STRING DIM AS STRING sChar DIM AS INTEGER numberOfBytes numberOfBytes = LEN(s) sChar = STRING(numberOfBytes, " ") UTFToChar(UTF_ENCOD_UTF8, STRPTR(s), STRPTR(sChar), @numberOfBytes) RETURN LEFT(sChar, numberOfBytes) END FUNCTION FUNCTION runden(wert AS SINGLE) AS SINGLE RETURN INT(wert * 100 + .5) / 100 END FUNCTION FUNCTION ISLEAPYEAR(y AS INTEGER) AS INTEGER RETURN (y MOD 4 = 0 AND y MOD 100 <> 0) OR (y MOD 400 = 0) END FUNCTION FUNCTION DAYOFWEEK(d AS INTEGER, m AS INTEGER, y AS INTEGER) AS INTEGER DIM baseDate AS DOUBLE = DATESERIAL(y, m, d) RETURN WEEKDAY(baseDate, 2) - 1 ' Montag = 0, Sonntag = 6 END FUNCTION SUB GETSYSTEMDATE(BYREF y AS INTEGER, BYREF m AS INTEGER, BYREF d AS INTEGER) y = YEAR(NOW) m = MONTH(NOW) d = DAY(NOW) END SUB FUNCTION PICKDATE() AS STRING ' ScreenRes 500, 400, 32 COLOR RGB(0, 0, 0), RGB(255, 255, 255) ' CLS DIM abgebrochen AS INTEGER = 0 DIM ty AS INTEGER, tm AS INTEGER, td AS INTEGER GETSYSTEMDATE(ty, tm, td) ' Systemdatum holen DIM selDay AS INTEGER = td DIM selMonth AS INTEGER = tm DIM selYear AS INTEGER = ty DIM mouseX AS INTEGER, mouseY AS INTEGER, mouseBtn AS INTEGER DIM oldBtn AS INTEGER DIM hoveredDay AS INTEGER = 0 DIM daysInMonth(0 TO 13) AS INTEGER = {0,31,28,31,30,31,30,31,31,30,31,30,31} DIM weekDays(0 TO 7) AS STRING = {Sprachausgaben(248),Sprachausgaben(249),Sprachausgaben(250),Sprachausgaben(251),Sprachausgaben(252),Sprachausgaben(253),Sprachausgaben(254)} DO SCREENLOCK COLOR Hintergrundfarbe, Hintergrundfarbe ' Farbe Uhrzeit FONT TIME, 2, 120, Farbe(1), Farbe(2), Farbe(3), 0, 0 ' Uhrzeit anzeigen COLOR RGB(0, 0, 0), RGB(255, 255, 255) ' Farbe Datumspicker LINE (0, 0)-(499, 399), RGB(230,230,230), BF ' Titelbereich LINE (0, 0)-(499, 60), RGB(245,245,245), BF DRAW STRING (180, 15), Sprachausgaben(246), RGB(0, 0, 0) ' Monatsnavigation DRAW STRING (60, 40), "<", RGB(0, 102, 204) DRAW STRING (400, 40), ">", RGB(0, 102, 204) DRAW STRING (200, 40), Sprachausgaben(247) + ": " & RIGHT("0" & STR(selMonth), 2) & "." & selYear, RGB(0, 0, 0) ' Wochentage FOR i AS INTEGER = 0 TO 6 DRAW STRING (55 + i * 55, 75), weekDays(i), RGB(80, 80, 80) NEXT ' Tage im Monat berechnen DIM days AS INTEGER = daysInMonth(selMonth) IF selMonth = 2 AND ISLEAPYEAR(selYear) THEN days = 29 DIM startCol As INTEGER = DAYOFWEEK(1, selMonth, selYear) DIM row AS INTEGER = 0 DIM sc AS INTEGER = startCol hoveredDay = 0 GETMOUSE mouseX, mouseY, , mouseBtn FOR d AS INTEGER = 1 TO days DIM col AS INTEGER = sc MOD 7 DIM x AS INTEGER = 50 + col * 55 DIM y AS INTEGER = 100 + row * 40 DIM boxColor AS UINTEGER = RGB(255, 255, 255) DIM borderColor AS UINTEGER = RGB(200, 200, 200) DIM textColor AS UINTEGER = RGB(0, 0, 0) IF mouseX >= x AND mouseX <= x + 50 AND mouseY >= y AND mouseY <= y + 30 THEN boxColor = RGB(220, 230, 250) hoveredDay = d END IF IF d = selDay THEN boxColor = RGB(0, 120, 215) textColor = RGB(255, 255, 255) END IF IF d = td AND selMonth = tm AND selYear = ty THEN CIRCLE (x + 25, y + 15), 18, RGB(200, 200, 200), , , , F END IF LINE (x, y)-(x + 50, y + 30), borderColor, B LINE (x + 1, y + 1)-(x + 49, y + 29), boxColor, BF DRAW STRING (x + 18, y + 8), RIGHT(" " & STR(d), 2), textColor sc += 1 IF sc MOD 7 = 0 THEN row += 1 NEXT SCREENUNLOCK ' Monatsnavigation mit Mausklick IF mouseBtn = 1 AND oldBtn = 0 THEN IF mouseY >= 40 AND mouseY <= 55 THEN IF mouseX >= 55 AND mouseX <= 75 THEN selMonth -= 1 IF selMonth < 1 THEN selMonth = 12 selYear -= 1 END IF selDay = 0 SLEEP 120 CONTINUE DO ELSEIF mouseX >= 395 AND mouseX <= 415 THEN selMonth += 1 IF selMonth > 12 THEN selMonth = 1 selYear += 1 END IF selDay = 0 SLEEP 120 CONTINUE DO END IF END IF IF hoveredDay <> 0 THEN selDay = hoveredDay EXIT DO END IF END IF oldBtn = mouseBtn IF INKEY = CHR(27) THEN ' ESC = Abbrechen ' SCREENRES 640, 320, 32 abgebrochen = TRUE EXIT DO END IF SLEEP 30 LOOP ' ScreenRes 640, 320, 32 IF abgebrochen THEN IF k = 1 THEN IF LEN(Eingabe(21)) <> 10 THEN RETURN " " ELSE selDay = VAL(LEFT(Eingabe(21), 2)) selMonth = VAL(MID(Eingabe(21), 4, 2)) selYear = VAL(RIGHT(Eingabe(21), 4)) RETURN RIGHT("0" & STR(selDay), 2) & "." & RIGHT("0" & STR(selMonth), 2) & "." & selYear END IF END IF IF k = 2 THEN IF LEN(Eingabe(22)) <> 10 THEN RETURN " " ELSE selDay = VAL(LEFT(Eingabe(22), 2)) selMonth = VAL(MID(Eingabe(22), 4, 2)) selYear = VAL(RIGHT(Eingabe(22), 4)) RETURN RIGHT("0" & STR(selDay), 2) & "." & RIGHT("0" & STR(selMonth), 2) & "." & selYear END IF END IF ELSE RETURN RIGHT("0" & STR(selDay), 2) & "." & RIGHT("0" & STR(selMonth), 2) & "." & selYear END IF END FUNCTION FUNCTION DOWNLOADURL(url AS ZSTRING PTR) AS STRING DIM AS STRING result = "" DIM hInetSession AS HANDLE DIM hInetConnect AS HANDLE DIM buffer AS ZSTRING * 1024 DIM bytesRead AS DWORD DIM success AS BOOL hInetSession = InternetOpen("FreeBASICVersionChecker", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0) IF hInetSession = NULL THEN PRINT "Fehler bei InternetOpen" RETURN "" END IF hInetConnect = InternetOpenUrl(hInetSession, url, NULL, 0, INTERNET_FLAG_RELOAD, 0) IF hInetConnect = NULL THEN PRINT "Fehler bei InternetOpenUrl" InternetCloseHandle(hInetSession) RETURN "" END IF DO success = InternetReadFile(hInetConnect, @buffer, 1024, @bytesRead) IF (success = 0) OR (bytesRead = 0) THEN EXIT DO result &= LEFT(buffer, bytesRead) LOOP InternetCloseHandle(hInetConnect) InternetCloseHandle(hInetSession) RETURN result END FUNCTION FUNCTION EXTRACTVERSION(WEBSEITE AS STRING) AS STRING ' pos -> posi umbenannt wegen Duplikatfehler DIM AS INTEGER posi = INSTR(WEBSEITE, searchStr) IF posi = 0 THEN RETURN "" DIM AS INTEGER startPos = posi + LEN(searchStr) DIM AS INTEGER j = startPos DIM AS STRING version = "" DIM AS STRING * 1 c DIM AS INTEGER code DO WHILE j <= LEN(WEBSEITE) c = MID(WEBSEITE, j, 1) code = ASC(c) IF (code >= ASC("0") AND code <= ASC("9")) OR code = ASC(".") THEN version &= c j += 1 ELSE EXIT DO END IF LOOP RETURN version END FUNCTION SUB SERVERVESUS TABELLE(0) LAENDERKUERZEL(1) ' Buchstaben umwandeln FOR j = 1 TO TAZ ' Spieler Temp(j, 1) = "" Temp(j, 1) = Spieler(j) OemToChar Spieler(j), Temp(j, 1) ' OemToChar Temp(j, 1), Temp(j, 1) l = INSTR(Temp(j, 1), "ß") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ss" & MID(Temp(j, 1), l+1)' ß END IF l = INSTR(Temp(j, 1), "Ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ae" & MID(Temp(j, 1), l+1)' Ä END IF l = INSTR(Temp(j, 1), "ä") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ae" & MID(Temp(j, 1), l+1)' ä END IF l = INSTR(Temp(j, 1), "Ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Oe" & MID(Temp(j, 1), l+1)' Ö END IF l = INSTR(Temp(j, 1), "ö") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "oe" & MID(Temp(j, 1), l+1)' ö END IF l = INSTR(Temp(j, 1), "Ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "Ue" & MID(Temp(j, 1), l+1)' Ü END IF l = INSTR(Temp(j, 1), "ü") IF l > 0 THEN Temp(j, 1) = LEFT(Temp(j, 1), l-1) & "ue" & MID(Temp(j, 1), l+1)' ü END IF ' Vereine Temp(j, 5) = "" Temp(j, 5) = Verein(j) OemToChar Verein(j), Temp(j, 5) ' OemToChar Temp(j, 5), Temp(j, 5) l = INSTR(Temp(j, 5), "ß") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "ss" & MID(Temp(j, 5), l+1)' ß END IF l = INSTR(Temp(j, 5), "Ä") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "Ae" & MID(Temp(j, 5), l+1)' Ä END IF l = INSTR(Temp(j, 5), "ä") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "ae" & MID(Temp(j, 5), l+1)' ä END IF l = INSTR(Temp(j, 5), "Ö") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "Oe" & MID(Temp(j, 5), l+1)' Ö END IF l = INSTR(Temp(j, 5), "ö") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "oe" & MID(Temp(j, 5), l+1)' ö END IF l = INSTR(Temp(j, 5), "Ü") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "Ue" & MID(Temp(j, 5), l+1)' Ü END IF l = INSTR(Temp(j, 5), "ü") IF l > 0 THEN Temp(j, 5) = LEFT(Temp(j, 5), l-1) & "ue" & MID(Temp(j, 5), l+1)' ü END IF NEXT ' Turnierdirektor - Buchstaben umwandeln Tmp(14) = Eingabe(13) OemToChar Eingabe(13), Tmp(14) l = INSTR(Tmp(14), "ß") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "ss" & MID(Tmp(14), l+1)' ß END IF l = INSTR(Tmp(14), "Ä") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "Ae" & MID(Tmp(14), l+1)' Ä END IF l = INSTR(Tmp(14), "ä") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "ae" & MID(Tmp(14), l+1)' ä END IF l = INSTR(Tmp(14), "Ö") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "Oe" & MID(Tmp(14), l+1)' Ö END IF l = INSTR(Tmp(14), "ö") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "oe" & MID(Tmp(14), l+1)' ö END IF l = INSTR(Tmp(14), "Ü") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "Ue" & MID(Tmp(14), l+1)' Ü END IF l = INSTR(Tmp(14), "ü") IF l > 0 THEN Tmp(14) = LEFT(Tmp(14), l-1) & "ue" & MID(Tmp(14), l+1)' ü END IF '/ ' neue Runde nur, wenn alle Ergebnisse eingegeben sind! AnzahlErgebnisse = 0 FOR j = 1 TO ppr(runde) IF Punkte(paarungen(j,1,Runde),Runde) <> 2000 THEN AnzahlErgebnisse += 1 NEXT FOR j = 1 TO RAZ IF ausgelosteRunde(j) = 0 THEN EXIT FOR NEXT j -= 1 DIM f AS INTEGER = FREEFILE AA = RTRIM(Dateiname, ".STOP") OPEN AA + " (" + Tmp(14) + ")" + ".txt" FOR OUTPUT AS #f PRINT #f, "|*event*|" PRINT #f, "tournament=" & Eingabe(9) PRINT #f, "section=" & Eingabe(9) ' IF Datum(runde) <> "" THEN IF MID(Datum(runde), 4, 1) <> "0" THEN PRINT #f, "date=" & RIGHT(Datum(runde), 4) & "/" & MID(Datum(runde), 4, 2) & "/" & LEFT(Datum(runde), 2) ELSE PRINT #f, "date=" & RIGHT(Datum(runde), 4) & "/" & MID(Datum(runde), 5, 1) & "/" & LEFT(Datum(runde), 2) ELSE PRINT #f, "date=" & RIGHT(DATE, 4) & "/" & LEFT(DATE, 2) & "/" & MID(DATE, 4, 2) END IF PRINT #f, "city=" & Eingabe(10) PRINT #f, "state=" PRINT #f, "country=" & Tmp(13) PRINT #f, "td=" & Tmp(14) PRINT #f, "rounds_paired=" & j IF AnzahlErgebnisse >= ppr(runde) THEN PRINT #f, "rounds_played=" & j IF AnzahlErgebnisse < ppr(runde) THEN j-= 1 IF j < 1 THEN j = 0 IF AnzahlErgebnisse < ppr(runde) THEN PRINT #f, "rounds_played=" & j IF LEFT(TIME, 1) <> "0" THEN PRINT #f, "time_stamp=" & MID(DATE, 4, 2) & "." & LEFT(DATE, 2) & "." & RIGHT(DATE, 4) & " - " & LEFT(TIME, 2) & ":" & MID(TIME, 4, 2) ELSE PRINT #f, "time_stamp=" & MID(DATE, 4, 2) & "." & LEFT(DATE, 2) & "." & RIGHT(DATE, 4) & " - " & MID(TIME, 2, 1) & ":" & MID(TIME, 4, 2) PRINT #f, "|*options*|" IF HalbBye = 0 THEN PRINT #f, "Pairing_allocated_bye=Win" IF HalbBye = 1 THEN PRINT #f, "Pairing_allocated_bye=Draw" PRINT #f, "tiebreaks="; FOR j = 1 TO 2 IF Feinwertungssystem(j) = 2 THEN PRINT #f, "Sonneborn"; IF Feinwertungssystem(j) = 3 THEN PRINT #f, "Wins"; IF Feinwertungssystem(j) = 4 THEN PRINT #f, "Buch"; IF Feinwertungssystem(j) = 5 THEN PRINT #f, "BuchSum"; IF Feinwertungssystem(j) = 6 THEN PRINT #f, "Schmuljan"; IF Feinwertungssystem(j) = 7 THEN PRINT #f, "Koya"; IF Feinwertungssystem(j) = 8 THEN PRINT #f, "Boardpoints"; IF Feinwertungssystem(j) = 9 THEN PRINT #f, "3-Point-Rating"; IF Feinwertungssystem(j) = 10 THEN PRINT #f, "Direct"; IF Feinwertungssystem(j) = 11 THEN PRINT #f, "ARO"; IF Feinwertungssystem(j) = 12 THEN PRINT #f, "TPR"; IF Feinwertungssystem(j) = 13 THEN PRINT #f, "APRO"; IF Feinwertungssystem(j) = 14 THEN PRINT #f, "GE"; IF Feinwertungssystem(j) = 15 THEN PRINT #f, "AOB"; IF Feinwertungssystem(j) = -2 THEN PRINT #f, "Buch"; IF Feinwertungssystem(j) = -3 THEN PRINT #f, "Buch"; IF Feinwertungssystem(j) = -4 THEN PRINT #f, "Buch"; IF Feinwertungssystem(j) = -5 THEN PRINT #f, "Buch"; IF Feinwertungssystem(j) = -6 THEN PRINT #f, "Sonneborn"; IF Feinwertungssystem(j) = -7 THEN PRINT #f, "Sonneborn"; IF j = 1 THEN PRINT #f, ";"; NEXT PRINT #f, "" PRINT #f, "|*players*|" FOR j = 1 TO TAZ l = INSTR(Temp(j, 1), ",") PRINT #f, "|*" & j & "*|" IF l = 0 THEN PRINT #f, "name=" & Temp(j, 1) IF l > 0 THEN PRINT #f, "name=" & LEFT(Temp(j, 1), l-1) & " " & MID(Temp(j, 1), l+1) PRINT #f, "title=" & Titel(j) PRINT #f, "birthday=" & Geburt(j) PRINT #f, "rank=" & Rang(j) PRINT #f, "id1=" & FIDEID(j) PRINT #f, "id2=" & PKZ(j) IF ELO(j) <> 0 THEN PRINT #f, "rating=" & ELO(j) ELSE PRINT #f, "rating=" IF DWZ(j) <> 0 THEN PRINT #f, "rating2=" & DWZ(j) ELSE PRINT #f, "rating2=" PRINT #f, "kfactor=" & kFaktor(j) PRINT #f, "federation=" & Nation(j) PRINT #f, "team=" & Temp(j, 5) PRINT #f, "sex=" & Geschlecht(j) l = 0 FOR r = 1 TO RAZ IF fehlendeSpieler(j, r) = 1 OR fehlendeSpieler(j, r) = 2 THEN l += 1 NEXT IF l > 0 THEN k = 1 IF l > 0 THEN PRINT #f, "byes="; FOR r = 1 TO RAZ IF fehlendeSpieler(j, r) = 1 AND k < l THEN PRINT #f, STR(r) & "z;"; IF fehlendeSpieler(j, r) = 1 AND k >= l THEN PRINT #f, STR(r) & "z" IF fehlendeSpieler(j, r) = 1 THEN k += 1 IF fehlendeSpieler(j, r) = 2 AND k < l THEN PRINT #f, STR(r) & "h;"; IF fehlendeSpieler(j, r) = 2 AND k >= l THEN PRINT #f, STR(r) & "h" IF fehlendeSpieler(j, r) = 2 THEN k += 1 NEXT END IF PRINT #f, "tiebreaks=" & TempFeinwertung(j, 3) & ";" & TempFeinwertung(j, 4) ' PRINT #f, "results="; IF modus = 0 THEN FOR r = 1 TO RAZ IF r <= runde THEN IF fehlendeSpieler(j, r) = 1 AND r = 1 THEN PRINT #f, "U;"; IF fehlendeSpieler(j, r) = 1 AND r > 1 THEN PRINT #f, "U;"; IF fehlendeSpieler(j, r) = 2 AND r = 1 THEN PRINT #f, "U;"; IF fehlendeSpieler(j, r) = 2 AND r > 1 THEN PRINT #f, "U;"; FOR k = 1 TO ppr(r) IF r = 1 THEN IF kampflose(k, r) = 0 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "L;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0.5 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "L;"; END IF IF kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "-;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0.5 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "-;"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; END IF END IF IF r > 1 AND r < RAZ THEN IF kampflose(k, r) = 0 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "L;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0.5 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "L;"; END IF IF kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "-;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0.5 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "-;"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; END IF END IF IF r > 1 AND r = RAZ THEN IF kampflose(k, r) = 0 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "W"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "D"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "L"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "W"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0.5 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "D"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "L"; END IF IF kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "+"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "="; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "-"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "+"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0.5 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "="; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "-"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "X"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "F"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "X"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "F"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0.5 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B"; END IF END IF NEXT END IF NEXT END IF IF modus = 1 THEN FOR r = 1 TO RAZ IF r <= runde THEN IF fehlendeSpieler(j, r) = 1 AND r = 1 THEN PRINT #f, "U;"; IF fehlendeSpieler(j, r) = 1 AND r > 1 THEN PRINT #f, "U;"; IF fehlendeSpieler(j, r) = 2 AND r = 1 THEN PRINT #f, "U;"; IF fehlendeSpieler(j, r) = 2 AND r > 1 THEN PRINT #f, "U;"; FOR k = 1 TO ppr(r) IF r = 1 THEN IF kampflose(k, r) = 0 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "L;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "L;"; END IF IF kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "-;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "-;"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; END IF END IF IF r > 1 AND r < RAZ THEN IF kampflose(k, r) = 0 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "L;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "W;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "D;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "L;"; END IF IF kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "-;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "+;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "=;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "-;"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "X;"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "F;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B;"; END IF END IF IF r > 1 AND r = RAZ THEN IF kampflose(k, r) = 0 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "W"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "D"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "L"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "W"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "D"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "L"; END IF IF kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "+"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "="; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "-"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "+"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 1 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "="; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "-"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "X"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 0 AND paarungen(k,2,r) <> 0 THEN PRINT #f, "F"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 2 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "X"; IF paarungen(k,2,r) = j AND Punkte(paarungen(k,2,r),r) = 0 AND paarungen(k,1,r) <> 0 THEN PRINT #f, "F"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 2 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B"; IF paarungen(k,1,r) = j AND Punkte(paarungen(k,1,r),r) = 1 AND paarungen(k,2,r) = 0 THEN PRINT #f, "B"; END IF END IF NEXT END IF NEXT END IF PRINT #f, "" ' PRINT #f, "colors="; FOR r = 1 TO RAZ IF r <= runde THEN IF fehlendeSpieler(j, r) = 1 AND r > 1 THEN PRINT #f, ";-"; IF fehlendeSpieler(j, r) = 1 AND r = 1 THEN PRINT #f, "-"; IF fehlendeSpieler(j, r) = 2 AND r > 1 THEN PRINT #f, ";-"; IF fehlendeSpieler(j, r) = 2 AND r = 1 THEN PRINT #f, "-"; FOR k = 1 TO ppr(r) IF kampflose(k, r) = 0 OR kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND r > 1 THEN PRINT #f, ";W"; IF paarungen(k,2,r) = j AND r > 1 THEN PRINT #f, ";B"; IF paarungen(k,1,r) = j AND r = 1 THEN PRINT #f, "W"; IF paarungen(k,2,r) = j AND r = 1 THEN PRINT #f, "B"; END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND paarungen(k,2,r) <> 0 AND r > 1 THEN PRINT #f, ";W"; IF paarungen(k,2,r) = j AND paarungen(k,1,r) <> 0 AND r > 1 THEN PRINT #f, ";B"; IF paarungen(k,1,r) = j AND paarungen(k,2,r) <> 0 AND r = 1 THEN PRINT #f, "W"; IF paarungen(k,2,r) = j AND paarungen(k,1,r) <> 0 AND r = 1 THEN PRINT #f, "B"; IF paarungen(k,1,r) = j AND paarungen(k,2,r) = 0 AND r > 1 THEN PRINT #f, ";-"; IF paarungen(k,1,r) = j AND paarungen(k,2,r) = 0 AND r = 1 THEN PRINT #f, "-"; END IF NEXT END IF NEXT PRINT #f, "" ' PRINT #f, "ops="; FOR r = 1 TO RAZ IF r <= runde THEN IF fehlendeSpieler(j, r) = 1 AND r > 1 THEN PRINT #f, ";0"; IF fehlendeSpieler(j, r) = 1 AND r = 1 THEN PRINT #f, "0"; IF fehlendeSpieler(j, r) = 2 AND r > 1 THEN PRINT #f, ";0"; IF fehlendeSpieler(j, r) = 2 AND r = 1 THEN PRINT #f, "0"; FOR k = 1 TO ppr(r) IF kampflose(k, r) = 0 OR kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND r > 1 THEN PRINT #f, ";" & paarungen(k,2,r); IF paarungen(k,2,r) = j AND r > 1 THEN PRINT #f, ";" & paarungen(k,1,r); IF paarungen(k,1,r) = j AND r = 1 THEN PRINT #f, STR(paarungen(k,2,r)); IF paarungen(k,2,r) = j AND r = 1 THEN PRINT #f, STR(paarungen(k,1,r)); END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND paarungen(k,2,r) <> 0 AND r > 1 THEN PRINT #f, ";" & paarungen(k,2,r); IF paarungen(k,2,r) = j AND paarungen(k,1,r) <> 0 AND r > 1 THEN PRINT #f, ";" & paarungen(k,1,r); IF paarungen(k,1,r) = j AND paarungen(k,2,r) <> 0 AND r = 1 THEN PRINT #f, STR(paarungen(k,2,r)); IF paarungen(k,2,r) = j AND paarungen(k,1,r) <> 0 AND r = 1 THEN PRINT #f, STR(paarungen(k,1,r)); IF paarungen(k,1,r) = j AND paarungen(k,2,r) = 0 AND r > 1 THEN PRINT #f, ";0"; IF paarungen(k,1,r) = j AND paarungen(k,2,r) = 0 AND r = 1 THEN PRINT #f, "0"; END IF NEXT END IF NEXT PRINT #f, "" ' PRINT #f, "boards="; FOR r = 1 TO RAZ IF r <= runde THEN IF fehlendeSpieler(j, r) = 1 AND r > 1 THEN PRINT #f, ";0"; IF fehlendeSpieler(j, r) = 1 AND r = 1 THEN PRINT #f, "0"; IF fehlendeSpieler(j, r) = 2 AND r > 1 THEN PRINT #f, ";0"; IF fehlendeSpieler(j, r) = 2 AND r = 1 THEN PRINT #f, "0"; FOR k = 1 TO ppr(r) IF kampflose(k, r) = 0 OR kampflose(k, r) = 2 THEN IF paarungen(k,1,r) = j AND r > 1 THEN PRINT #f, ";" & k; IF paarungen(k,2,r) = j AND r > 1 THEN PRINT #f, ";" & k; IF paarungen(k,1,r) = j AND r = 1 THEN PRINT #f, STR(k); IF paarungen(k,2,r) = j AND r = 1 THEN PRINT #f, STR(k); END IF IF kampflose(k, r) = 1 THEN IF paarungen(k,1,r) = j AND paarungen(k,2,r) <> 0 AND r > 1 THEN PRINT #f, ";" & k; IF paarungen(k,2,r) = j AND paarungen(k,1,r) <> 0 AND r > 1 THEN PRINT #f, ";" & k; IF paarungen(k,1,r) = j AND paarungen(k,2,r) <> 0 AND r = 1 THEN PRINT #f, STR(k); IF paarungen(k,2,r) = j AND paarungen(k,1,r) <> 0 AND r = 1 THEN PRINT #f, STR(k); IF paarungen(k,1,r) = j AND paarungen(k,2,r) = 0 AND r > 1 THEN PRINT #f, ";" & k; IF paarungen(k,1,r) = j AND paarungen(k,2,r) = 0 AND r = 1 THEN PRINT #f, STR(k); END IF NEXT END IF NEXT PRINT #f, "" NEXT CLOSE #f MessageBox(0, "OK", "STOP", MB_ICONINFORMATION OR MB_SYSTEMMODAL) END SUB SUB AWK CHDIR EXEPATH ' Pfad setzen DIM f AS INTEGER = FREEFILE IF FILEEXISTS(EXEPATH + "\awk.exe") THEN ' Buchholz Cut-1 IF Feinwertungssystem(1) = -2 OR Feinwertungssystem(2) = -2 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=1 awk.trf" FOR INPUT AS #f SLEEP 1000, 1 DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 19) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF '/ ' Buchholz Cut-2 IF Feinwertungssystem(1) = -3 OR Feinwertungssystem(2) = -3 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=2 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 20) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Buchholz Medium 1 IF Feinwertungssystem(1) = -4 OR Feinwertungssystem(2) = -4 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=3 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 21) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Buchholz Medium 2 IF Feinwertungssystem(1) = -5 OR Feinwertungssystem(2) = -5 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=4 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 22) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Sonneborn-Berger Cut-1 IF Feinwertungssystem(1) = -6 OR Feinwertungssystem(2) = -6 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=5 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 23) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Sonneborn-Berger Cut-2 IF Feinwertungssystem(1) = -7 OR Feinwertungssystem(2) = -7 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=6 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 24) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Forebuchholz Cut-1 IF Feinwertungssystem(1) = -8 OR Feinwertungssystem(2) = -8 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=1 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 29) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Forebuchholz Cut-2 IF Feinwertungssystem(1) = -9 OR Feinwertungssystem(2) = -9 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=2 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 30) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Forebuchholz Medium 1 IF Feinwertungssystem(1) = -10 OR Feinwertungssystem(2) = -10 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=3 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 31) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF ' Forebuchholz Medium 2 IF Feinwertungssystem(1) = -11 OR Feinwertungssystem(2) = -11 THEN j = 1 OPEN PIPE EXEPATH + "\awk.exe -f tbcomp.awk -v show=4 awk.trf" FOR INPUT AS #f DO INPUT #f, aa IF LEN(aa) < 10 THEN Feinwertungen(j, 32) = VAL(aa) j += 1 END IF LOOP WHILE j <= TAZ CLOSE #f END IF '/ END IF END SUB SUB TRFFOREBUCHHOLZCUT ' DIM AS INTEGER Zaehler(0 TO 25000, 0 TO 7) ' alte Ergebnisse zwischenspeichern und zu Remis ändern IF runde = RAZ THEN FOR j = 1 TO ppr(RAZ) KorrekturFore(paarungen(j,1,RAZ), 1) = Punkte(paarungen(j,1,RAZ),RAZ) KorrekturFore(paarungen(j,2,RAZ), 1) = Punkte(paarungen(j,2,RAZ),RAZ) KorrekturFore(j, 2) = kampflose(j, RAZ) IF paarungen(j,2,RAZ) <> 0 THEN ' Schachmodus IF modus = 0 THEN Punkte(paarungen(j,1,RAZ),RAZ) = 0.5 Punkte(paarungen(j,2,RAZ),RAZ) = 0.5 END IF ' Mühlemodus IF modus = 1 THEN Punkte(paarungen(j,1,RAZ),RAZ) = 1 Punkte(paarungen(j,2,RAZ),RAZ) = 1 END IF kampflose(j, RAZ) = 0 END IF NEXT END IF ' Feinwertungen auf 0 setzen FOR k = 1 TO TAZ ' GesamtpunkteForebuchholz(k) = 0 ' Gesamtpunkte ForeBuchholz GesamtpunkteForebuchholz(k) = Gesamtpunkte(k) Gesamtpunkte(k) = 0 Feinwertungen(k, 28) = 0 ' Forebuchholz PunkteKorrektur(k) = 0 Zaehler(k, 5) = 0 ' Zähler wie oft ein Spieler spielt Zaehler(k, 7) = 0 ' Zähler wie oft ein Spieler spielt TempPunkte(k, 7) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) TempPunkte(k, 8) = 0 ' Zähler wie viele Punkte ein Spieler hat bei gespielten Partien (ohne kampflose und spielfreie Paarungen) FOR j = 1 TO Runde IF Punkte(k,j) <> 2000 AND Punkte(k,j) <> 0 THEN Gesamtpunkte(k) += Punkte(k,j) IF fehlendeSpieler(k,j) = 0 THEN Feinwertungen(k, -1) = j Korrektur(k, j) = Gesamtpunkte(k) ' Anzahl der Runden zählen, die ein Spieler aussetzt IF fehlendeSpieler(k,j) = 1 THEN Zaehler(k, 0) += 1 IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 0) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 3) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 4) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 4) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) = 2 THEN Zaehler(k, 2) += 1 ' Anzahl der Runden zählen, die ein Spieler mit 0.5 Punkten aussetzt IF fehlendeSpieler(k,j) = 0 THEN Zaehler(k, 2) = 0 ' Wert auf 0 setzen, wenn ein Spieler wieder anwesend ist IF fehlendeSpieler(k,j) > 0 THEN Zaehler(k, 1) += 1 ' Zählen wie oft ein Spieler aussetzt NEXT NEXT ' TRF-Datei erstellen!!! TRF(5) ' original Ergebnisse wiederherstellen IF runde = RAZ THEN FOR j = 1 TO ppr(RAZ) Punkte(paarungen(j,1,Runde),Runde) = KorrekturFore(paarungen(j,1,RAZ), 1) Punkte(paarungen(j,2,Runde),Runde) = KorrekturFore(paarungen(j,2,RAZ), 1) kampflose(j, RAZ) = KorrekturFore(j, 2) NEXT END IF ' Gesamtpunkte wiederherstellen FOR j = 1 TO TAZ Gesamtpunkte(j) = GesamtpunkteForebuchholz(j) NEXT END SUB SUB GACRUX CHDIR EXEPATH ' Pfad setzen TRF(5) ' Auswertedatei für Gacrux erstellen ' 1. Feinwertung definieren IF Feinwertungssystem(1) = 0 THEN Temp(1, 1) = "WIN" ' keine 1. Feinwertung - fiktive Feinwertung eingetragen für Gacrux IF Feinwertungssystem(1) = 1 THEN Temp(1, 1) = "SB" ' Sonneborn-Berger IF Feinwertungssystem(1) = 2 THEN Temp(1, 1) = "WIN" ' Anzahl der Siege IF Feinwertungssystem(1) = 3 THEN Temp(1, 1) = "BH" ' Buchholz ' IF Feinwertungssystem(1) = 4 THEN Temp(1, 1) = "" ' Buchholzsumme ' IF Feinwertungssystem(1) = 5 THEN Temp(1, 1) = "" ' Schmuljan IF Feinwertungssystem(1) = 6 THEN Temp(1, 1) = "KS" ' Koya IF Feinwertungssystem(1) = 7 THEN Temp(1, 1) = "BPG" ' Anzahl Schwarzpartien ' IF Feinwertungssystem(1) = 8 THEN Temp(1, 1) = "" ' Brettpunkte ' IF Feinwertungssystem(1) = 9 THEN Temp(1, 1) = "" ' 3-Punkte-Regel IF Feinwertungssystem(1) = 10 THEN Temp(1, 1) = "DE" ' Direkter Vergleich IF Feinwertungssystem(1) = 11 THEN Temp(1, 1) = "ARO" ' Durchnittliche Elowertung der Gegner IF Feinwertungssystem(1) = 12 THEN Temp(1, 1) = "TPR" ' Leistungsbewertung im Turnier IF Feinwertungssystem(1) = 13 THEN Temp(1, 1) = "APRO" ' Durchschnttliche perfekte [Turnier] Performance der Gegner IF Feinwertungssystem(1) = 14 THEN Temp(1, 1) = "REP" ' Rounds elected to play IF Feinwertungssystem(1) = 15 THEN Temp(1, 1) = "AOB" ' Durchschnittliche Buchholzwertung der Gegner IF Feinwertungssystem(1) = 17 THEN Temp(1, 1) = "BWG" ' Anzahl der gewonnenen Schwarzpartien IF Feinwertungssystem(1) = 18 THEN Temp(1, 1) = "PS" ' Summenwertung / Progressive Score IF Feinwertungssystem(1) = 19 THEN Temp(1, 1) = "FB" ' Forebuchholz IF Feinwertungssystem(1) = 28 THEN Temp(1, 1) = "PTP" ' Rating Differenz IF Feinwertungssystem(1) = 29 THEN Temp(1, 1) = "APPO" ' Perfekte Trn.-Leist.-Gegner IF Feinwertungssystem(1) = 30 THEN Temp(1, 1) = "RTNG" ' Rating IF Feinwertungssystem(1) = 31 THEN Temp(1, 1) = "WON" ' WON IF Feinwertungssystem(1) = -2 THEN Temp(1, 1) = "BH/C1" ' Buchholz Cut 1 IF Feinwertungssystem(1) = -3 THEN Temp(1, 1) = "BH/C2" ' Buchholz Cut 2 IF Feinwertungssystem(1) = -4 THEN Temp(1, 1) = "BH/M1" ' Buchholz Median 1 IF Feinwertungssystem(1) = -5 THEN Temp(1, 1) = "BH/M2" ' Buchholz Median 2 IF Feinwertungssystem(1) = -6 THEN Temp(1, 1) = "SB/C1" ' Sonneborn-Berger Cut 1 IF Feinwertungssystem(1) = -7 THEN Temp(1, 1) = "SB/C2" ' Sonneborn-Berger Cut 2 IF Feinwertungssystem(1) = -8 THEN Temp(1, 1) = "FB/C1" ' Forebuchholz Cut 1 IF Feinwertungssystem(1) = -9 THEN Temp(1, 1) = "FB/C2" ' Forebuchholz Cut 2 IF Feinwertungssystem(1) = -10 THEN Temp(1, 1) = "FB/M1" ' Forebuchholz Medium 1 IF Feinwertungssystem(1) = -11 THEN Temp(1, 1) = "FB/M2" ' Forebuchholz Medium 2 IF Feinwertungssystem(1) = -12 THEN Temp(1, 1) = "ARO/C1" ' Durchnittliche Elowertung der Gegner Cut 1 IF Feinwertungssystem(1) = -13 THEN Temp(1, 1) = "ARO/C2" ' Durchnittliche Elowertung der Gegner Cut 2 IF Feinwertungssystem(1) = -14 THEN Temp(1, 1) = "ARO/M1" ' Durchnittliche Elowertung der Gegner Medium 1 IF Feinwertungssystem(1) = -15 THEN Temp(1, 1) = "ARO/M2" ' Durchnittliche Elowertung der Gegner Medium 2 IF Feinwertungssystem(1) = -16 THEN Temp(1, 1) = "PS/C1" ' Summenwertung Cut 1 IF Feinwertungssystem(1) = -17 THEN Temp(1, 1) = "PS/C2" ' Summenwertung Cut 2 IF Feinwertungssystem(1) = -18 THEN Temp(1, 1) = "BH/P" IF Feinwertungssystem(1) = -19 THEN Temp(1, 1) = "BH/C1/P" IF Feinwertungssystem(1) = -20 THEN Temp(1, 1) = "BH/C2/P" IF Feinwertungssystem(1) = -21 THEN Temp(1, 1) = "BH/M1/P" IF Feinwertungssystem(1) = -22 THEN Temp(1, 1) = "BH/M2/P" IF Feinwertungssystem(1) = -23 THEN Temp(1, 1) = "SB/P" IF Feinwertungssystem(1) = -24 THEN Temp(1, 1) = "SB/C1/P" IF Feinwertungssystem(1) = -25 THEN Temp(1, 1) = "SB/C2/P" IF Feinwertungssystem(1) = -26 THEN Temp(1, 1) = "FB/P" IF Feinwertungssystem(1) = -27 THEN Temp(1, 1) = "FB/C1/P" IF Feinwertungssystem(1) = -28 THEN Temp(1, 1) = "FB/C2/P" IF Feinwertungssystem(1) = -29 THEN Temp(1, 1) = "FB/M1/P" IF Feinwertungssystem(1) = -30 THEN Temp(1, 1) = "FB/M2/P" IF Feinwertungssystem(1) = -31 THEN Temp(1, 1) = "DE/P" IF Feinwertungssystem(1) = -32 THEN Temp(1, 1) = "AOB/F" ' 2. Feinwertung definieren IF Feinwertungssystem(2) = 0 THEN Temp(2, 1) = "" ' keine 2. Feinwertung IF Feinwertungssystem(2) = 1 THEN Temp(2, 1) = "SB" ' Sonneborn-Berger IF Feinwertungssystem(2) = 2 THEN Temp(2, 1) = "WIN" ' Anzahl der Siege IF Feinwertungssystem(2) = 3 THEN Temp(2, 1) = "BH" ' Buchholz ' IF Feinwertungssystem(2) = 4 THEN Temp(2, 1) = "" ' Buchholzsumme ' IF Feinwertungssystem(2) = 5 THEN Temp(2, 1) = "" ' Schmuljan IF Feinwertungssystem(2) = 6 THEN Temp(2, 1) = "KS" ' Koya IF Feinwertungssystem(2) = 7 THEN Temp(2, 1) = "BPG" ' Anzahl Schwarzpartien ' IF Feinwertungssystem(2) = 8 THEN Temp(2, 1) = "" ' Brettpunkte ' IF Feinwertungssystem(2) = 9 THEN Temp(2, 1) = "" ' 3-Punkte-Regel IF Feinwertungssystem(2) = 10 THEN Temp(2, 1) = "DE" ' Direkter Vergleich IF Feinwertungssystem(2) = 11 THEN Temp(2, 1) = "ARO" ' Durchnittliche Elowertung der Gegner IF Feinwertungssystem(2) = 12 THEN Temp(2, 1) = "TPR" ' Leistungsbewertung im Turnier IF Feinwertungssystem(2) = 13 THEN Temp(2, 1) = "APRO" ' Durchschnttliche perfekte [Turnier] Performance der Gegner IF Feinwertungssystem(2) = 14 THEN Temp(2, 1) = "REP" ' Rounds elected to play IF Feinwertungssystem(2) = 15 THEN Temp(2, 1) = "AOB" ' Durchschnittliche Buchholzwertung der Gegner IF Feinwertungssystem(2) = 17 THEN Temp(2, 1) = "BWG" ' Anzahl der gewonnenen Schwarzpartien IF Feinwertungssystem(2) = 18 THEN Temp(2, 1) = "PS" ' Summenwertung / Progressive Score IF Feinwertungssystem(2) = 19 THEN Temp(2, 1) = "FB" ' Forebuchholz IF Feinwertungssystem(2) = 28 THEN Temp(2, 1) = "PTP" ' Rating Differenz IF Feinwertungssystem(2) = 29 THEN Temp(2, 1) = "APPO" ' Perfekte Trn.-Leist.-Gegner IF Feinwertungssystem(2) = 30 THEN Temp(2, 1) = "RTNG" ' Rating IF Feinwertungssystem(2) = 31 THEN Temp(2, 1) = "WON" ' WON IF Feinwertungssystem(2) = -2 THEN Temp(2, 1) = "BH/C1" ' Buchholz Cut 1 IF Feinwertungssystem(2) = -3 THEN Temp(2, 1) = "BH/C2" ' Buchholz Cut 2 IF Feinwertungssystem(2) = -4 THEN Temp(2, 1) = "BH/M1" ' Buchholz Median 1 IF Feinwertungssystem(2) = -5 THEN Temp(2, 1) = "BH/M2" ' Buchholz Median 2 IF Feinwertungssystem(2) = -6 THEN Temp(2, 1) = "SB/C1" ' Sonneborn-Berger Cut 1 IF Feinwertungssystem(2) = -7 THEN Temp(2, 1) = "SB/C2" ' Sonneborn-Berger Cut 2 IF Feinwertungssystem(2) = -8 THEN Temp(2, 1) = "FB/C1" ' Forebuchholz Cut 1 IF Feinwertungssystem(2) = -9 THEN Temp(2, 1) = "FB/C2" ' Forebuchholz Cut 2 IF Feinwertungssystem(2) = -10 THEN Temp(2, 1) = "FB/M1" ' Forebuchholz Medium 1 IF Feinwertungssystem(2) = -11 THEN Temp(2, 1) = "FB/M2" ' Forebuchholz Medium 2 IF Feinwertungssystem(2) = -12 THEN Temp(2, 1) = "ARO/C1" ' Durchnittliche Elowertung der Gegner Cut 1 IF Feinwertungssystem(2) = -13 THEN Temp(2, 1) = "ARO/C2" ' Durchnittliche Elowertung der Gegner Cut 2 IF Feinwertungssystem(2) = -14 THEN Temp(2, 1) = "ARO/M1" ' Durchnittliche Elowertung der Gegner Medium 1 IF Feinwertungssystem(2) = -15 THEN Temp(2, 1) = "ARO/M2" ' Durchnittliche Elowertung der Gegner Medium 2 IF Feinwertungssystem(2) = -16 THEN Temp(2, 1) = "PS/C1" ' Summenwertung Cut 1 IF Feinwertungssystem(2) = -17 THEN Temp(2, 1) = "PS/C2" ' Summenwertung Cut 2 IF Feinwertungssystem(2) = -18 THEN Temp(2, 1) = "BH/P" IF Feinwertungssystem(2) = -19 THEN Temp(2, 1) = "BH/C1/P" IF Feinwertungssystem(2) = -20 THEN Temp(2, 1) = "BH/C2/P" IF Feinwertungssystem(2) = -21 THEN Temp(2, 1) = "BH/M1/P" IF Feinwertungssystem(2) = -22 THEN Temp(2, 1) = "BH/M2/P" IF Feinwertungssystem(2) = -23 THEN Temp(2, 1) = "SB/P" IF Feinwertungssystem(2) = -24 THEN Temp(2, 1) = "SB/C1/P" IF Feinwertungssystem(2) = -25 THEN Temp(2, 1) = "SB/C2/P" IF Feinwertungssystem(2) = -26 THEN Temp(2, 1) = "FB/P" IF Feinwertungssystem(2) = -27 THEN Temp(2, 1) = "FB/C1/P" IF Feinwertungssystem(2) = -28 THEN Temp(2, 1) = "FB/C2/P" IF Feinwertungssystem(2) = -29 THEN Temp(2, 1) = "FB/M1/P" IF Feinwertungssystem(2) = -30 THEN Temp(2, 1) = "FB/M2/P" IF Feinwertungssystem(2) = -31 THEN Temp(2, 1) = "DE/P" IF Feinwertungssystem(2) = -32 THEN Temp(2, 1) = "AOB/F" ' 1. Programm ausführen und in Datei schreiben lassen Shell "gacruxtb.exe -i engine26.trf -o standings_gacruxtb.txt -d C -t " + Temp(1, 1) + " " + Temp(2, 1) ' 2. Daten einlesen DIM f AS INTEGER = FREEFILE OPEN "standings_gacruxtb.txt" FOR INPUT AS #f DO UNTIL EOF(f) INPUT #f, j, k, TempFeinwertung(j, 1), TempFeinwertung(j, 2) LOOP CLOSE #f ' eingelesene Daten verarbeiten FOR j = 1 TO TAZ FOR k = 1 TO 2 IF Feinwertungssystem(k) = 1 THEN Feinwertungen(j, 1) = TempFeinwertung(j, k) ' SonnebornBerger(j) ' Feinwertung 1 zwischenspeichern IF Feinwertungssystem(k) = 2 THEN Gewinn(j) = TempFeinwertung(j, k) ' Anzahl der Gewinne ' Feinwertung 2 zwischenspeichern IF Feinwertungssystem(k) = 3 THEN Feinwertungen(j, 2) = TempFeinwertung(j, k) ' Buchholz(j) ' Feinwertung 3 zwischenspeichern IF Feinwertungssystem(k) = 4 THEN Feinwertungen(j, 3) = TempFeinwertung(j, k) ' Buchholzsumme(j) ' Feinwertung 4 zwischenspeichern IF Feinwertungssystem(k) = 5 THEN Feinwertungen(j, 4) = TempFeinwertung(j, k) ' Schmuljan(j) ' Feinwertung 5 zwischenspeichern IF Feinwertungssystem(k) = 6 THEN Koya(j) = TempFeinwertung(j, k) ' Feinwertungen(j, 5) ' Feinwertung 6 zwischenspeichern IF Feinwertungssystem(k) = 7 THEN Feinwertungen(j, 6) = TempFeinwertung(j, k) ' Anzahl der Schwarzpartien IF Feinwertungssystem(k) = 8 THEN Feinwertungen(j, 8) = TempFeinwertung(j, k) ' Brettpunkte(j) ' Feinwertung 7 zwischenspeichern IF Feinwertungssystem(k) = 9 THEN Feinwertungen(j, 9) = TempFeinwertung(j, k) ' 3-Punkte-Regel ' Feinwertung 8 zwischenspeichern IF Feinwertungssystem(k) = 10 THEN Feinwertungen(j, 10) = TempFeinwertung(j, k) ' Direkter Vergleich' Feinwertung 10 zwischenspeichern IF Feinwertungssystem(k) = 10 THEN Feinwertungen(j, 11) = TempFeinwertung(j, k) ' Direkter Vergleich' Feinwertung 11 zwischenspeichern IF Feinwertungssystem(k) = 11 THEN Feinwertungen(j, 12) = TempFeinwertung(j, k) ' Durchnittliche Elowertung der Gegner ' Feinwertung 12 zwischenspeichern IF Feinwertungssystem(k) = 12 THEN Feinwertungen(j, 13) = TempFeinwertung(j, k) ' Leistungsbewertung im Turnier ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(k) = 13 THEN Feinwertungen(j, 14) = TempFeinwertung(j, k) ' Durchschnttliche perfekte [Turnier] Performance der Gegner ' Feinwertung 13 zwischenspeichern IF Feinwertungssystem(k) = 14 THEN Feinwertungen(j, 17) = TempFeinwertung(j, k) ' Rounds elected play ' Feinwertung 14 zwischenspeichern IF Feinwertungssystem(k) = 15 THEN Feinwertungen(j, 18) = TempFeinwertung(j, k) ' Durchschnittliche Buchholzwertung der Gegner IF Feinwertungssystem(k) = 17 THEN Feinwertungen(j, 26) = TempFeinwertung(j, k) ' Anzahl der gewonnenen Schwarzpartien IF Feinwertungssystem(k) = 18 THEN Feinwertungen(j, 27) = TempFeinwertung(j, k) ' Summenwertung / Progressive Score IF Feinwertungssystem(k) = 19 THEN Feinwertungen(j, 28) = TempFeinwertung(j, k) ' Forebuchholz IF Feinwertungssystem(k) = 28 THEN Feinwertungen(j, 52) = TempFeinwertung(j, k) ' Rating Differenz IF Feinwertungssystem(k) = 29 THEN Feinwertungen(j, 53) = TempFeinwertung(j, k) ' Perfekte Trn.-Leist.-Gegner IF Feinwertungssystem(k) = 30 THEN Feinwertungen(j, 54) = TempFeinwertung(j, k) ' Rating IF Feinwertungssystem(k) = 31 THEN Feinwertungen(j, 55) = TempFeinwertung(j, k) ' WON IF Feinwertungssystem(k) = -2 THEN Feinwertungen(j, 19) = TempFeinwertung(j, k) ' Buchholz Cut 1 IF Feinwertungssystem(k) = -3 THEN Feinwertungen(j, 20) = TempFeinwertung(j, k) ' Buchholz Cut 2 IF Feinwertungssystem(k) = -4 THEN Feinwertungen(j, 21) = TempFeinwertung(j, k) ' Buchholz Median 1 IF Feinwertungssystem(k) = -5 THEN Feinwertungen(j, 22) = TempFeinwertung(j, k) ' Buchholz Median 2 IF Feinwertungssystem(k) = -6 THEN Feinwertungen(j, 23) = TempFeinwertung(j, k) ' Sonneborn-Berger Cut 1 IF Feinwertungssystem(k) = -7 THEN Feinwertungen(j, 24) = TempFeinwertung(j, k) ' Sonneborn-Berger Cut 2 IF Feinwertungssystem(k) = -8 THEN Feinwertungen(j, 29) = TempFeinwertung(j, k) ' Forebuchholz Cut 1 IF Feinwertungssystem(k) = -9 THEN Feinwertungen(j, 30) = TempFeinwertung(j, k) ' Forebuchholz Cut 2 IF Feinwertungssystem(k) = -10 THEN Feinwertungen(j, 31) = TempFeinwertung(j, k) ' Forebuchholz Medium 1 IF Feinwertungssystem(k) = -11 THEN Feinwertungen(j, 32) = TempFeinwertung(j, k) ' Forebuchholz Medium 2 IF Feinwertungssystem(k) = -12 THEN Feinwertungen(j, 33) = TempFeinwertung(j, k) ' Durchnittliche Elowertung der Gegner Cut 1 IF Feinwertungssystem(k) = -13 THEN Feinwertungen(j, 34) = TempFeinwertung(j, k) ' Durchnittliche Elowertung der Gegner Cut 2 IF Feinwertungssystem(k) = -14 THEN Feinwertungen(j, 35) = TempFeinwertung(j, k) ' Durchnittliche Elowertung der Gegner Medium 1 IF Feinwertungssystem(k) = -15 THEN Feinwertungen(j, 36) = TempFeinwertung(j, k) ' Durchnittliche Elowertung der Gegner Medium 2 IF Feinwertungssystem(k) = -16 THEN Feinwertungen(j, 37) = TempFeinwertung(j, k) ' Summenwertung Cut 1 IF Feinwertungssystem(k) = -17 THEN Feinwertungen(j, 38) = TempFeinwertung(j, k) ' Summenwertung Cut 2 IF Feinwertungssystem(k) = -18 THEN Feinwertungen(j, 39) = TempFeinwertung(j, k) ' Buchholz-P IF Feinwertungssystem(k) = -19 THEN Feinwertungen(j, 40) = TempFeinwertung(j, k) ' Buchholz/C1/P IF Feinwertungssystem(k) = -20 THEN Feinwertungen(j, 41) = TempFeinwertung(j, k) ' Buchholz/C2/P IF Feinwertungssystem(k) = -21 THEN Feinwertungen(j, 42) = TempFeinwertung(j, k) ' Buchholz/M1/P IF Feinwertungssystem(k) = -22 THEN Feinwertungen(j, 43) = TempFeinwertung(j, k) ' Buchholz/M2/P IF Feinwertungssystem(k) = -23 THEN Feinwertungen(j, 44) = TempFeinwertung(j, k) ' Sonneborn-Berger/P IF Feinwertungssystem(k) = -24 THEN Feinwertungen(j, 45) = TempFeinwertung(j, k) ' Sonneborn-Berger/Cut 1/P IF Feinwertungssystem(k) = -25 THEN Feinwertungen(j, 46) = TempFeinwertung(j, k) ' Sonneborn-Berger/Cut 2/P IF Feinwertungssystem(k) = -26 THEN Feinwertungen(j, 47) = TempFeinwertung(j, k) ' Forebuchholz/P IF Feinwertungssystem(k) = -27 THEN Feinwertungen(j, 48) = TempFeinwertung(j, k) ' Forebuchholz/Cut 1/P IF Feinwertungssystem(k) = -28 THEN Feinwertungen(j, 49) = TempFeinwertung(j, k) ' Forebuchholz/Cut 2/P IF Feinwertungssystem(k) = -29 THEN Feinwertungen(j, 50) = TempFeinwertung(j, k) ' Forebuchholz/Medium 1/P IF Feinwertungssystem(k) = -30 THEN Feinwertungen(j, 51) = TempFeinwertung(j, k) ' Forebuchholz/Medium 2/P IF Feinwertungssystem(1) = -31 THEN Feinwertungen(j, 56) = TempFeinwertung(j, k) ' Direkter Vergleich/P IF Feinwertungssystem(1) = -32 THEN Feinwertungen(j, 57) = TempFeinwertung(j, k) ' AOB/F NEXT NEXT END SUB #IFDEF __FB_64BIT__ SUB EMAILSENDEN DIM AS CURL PTR CURL = CURL_EASY_INIT() ' Prüfung auf Initialisierungsfehler IF (CURL) = 0 THEN MessageBox(0, Sprachausgaben(3), Sprachausgaben(1), MB_ICONINFORMATION OR MB_SYSTEMMODAL) EXIT SUB END IF ' --- HAUPTPROGRAMM --- ' Globale Einstellungen (gelten für alle Mails) ' DIM AS STRING NUTZER = "test@online.de" ' DIM AS STRING SERVER = "smtps://smtp.1und1.de:465" DIM AS STRING PROVIDER = (Server & ":" & Port) ' Pfad zur Zertifikatsdatei (muss neben der EXE liegen) DIM AS STRING CAPATH = EXEPATH + "\cacert.pem" ' DIM AS STRING AKTUELLE_MAIL ' --- SSL Fix Start --- ' Hier sagen wir CURL, wo das Zertifikat liegt CURL_EASY_SETOPT(CURL, CURLOPT_CAINFO, STRPTR(CAPATH)) ' --- SSL Fix Ende --- CURL_EASY_SETOPT(CURL, CURLOPT_URL, STRPTR(PROVIDER)) CURL_EASY_SETOPT(CURL, CURLOPT_USERNAME, STRPTR(NUTZER)) CURL_EASY_SETOPT(CURL, CURLOPT_PASSWORD, STRPTR(PASS)) CURL_EASY_SETOPT(CURL, CURLOPT_USE_SSL, CURLUSESSL_ALL) CURL_EASY_SETOPT(CURL, CURLOPT_READFUNCTION, @READ_CALLBACK) CURL_EASY_SETOPT(CURL, CURLOPT_UPLOAD, 1) ' Liste der Empfänger ' DIM AS STRING EMPFAENGER(1 TO 3) = {"xxx@web.de", "xxx@online.de", "xxx@t-online.de"} IF MessageBox(0, Sprachausgaben(259), Sprachausgaben(1), MB_ICONQUESTION OR MB_YESNO) = IDYES THEN FOR j AS INTEGER = 1 TO TAZ IF EMPFAENGER(j) <> "" THEN ' Prüfung welches Brett und Farbe der Spieler hat l = 0 FOR k = 1 TO ppr(runde) IF paarungen(k,1,runde) = j OR paarungen(k,2,runde) = j THEN r = k IF paarungen(k,1,runde) = j THEN l = paarungen(k,2,runde) IF paarungen(k,2,runde) = j THEN l = paarungen(k,1,runde) NEXT ' Nachricht für die Spieler die anwesend sind IF fehlendeSpieler(j, runde) = 0 THEN ' Namen für die Mail in UTF-8 umwandeln Tmp(1) = ToUTF8(Spieler(paarungen(r,1,runde))) Tmp(2) = ToUTF8(Spieler(paarungen(r,2,runde))) ' Mail-Inhalt für den aktuellen Durchlauf AKTUELLE_MAIL = "From: " & NUTZER & !"\r\n" & _ "To: " & EMPFAENGER(j) & !"\r\n" & _ "Subject: Pairings for round " & STR(runde) & !"\r\n" & _ "MIME-Version: 1.0" & !"\r\n" & _ "Content-Type: text/plain; charset=utf-8" & !"\r\n" & _ "Content-Transfer-Encoding: 8bit" & !"\r\n" & !"\r\n" & _ !"\r\n" & "Hello Chessfriend - Hallo Schachfreund! The pairing is/Die Paarung lautet: " & !"\r\n" & !"\r\n" &_ !"\r\n" & "Board/Brett " & STR(r) & ": " & Tmp(1) & " - " & Tmp(2) & !"\r\n" & !"\r\n" & _ "E-Mail: " & EMPFAENGER(l) & !"\r\n" & _ "Tel.: " & Telefonnummer(l) & !"\r\n" END IF ' Nachricht für Spieler der eine Runde aussetzt IF fehlendeSpieler(j, runde) <> 0 THEN ' Mail-Inhalt für den aktuellen Durchlauf AKTUELLE_MAIL = "From: " & NUTZER & !"\r\n" & _ "To: " & EMPFAENGER(j) & !"\r\n" & _ "Subject: Pairing for round " & STR(runde) & !"\r\n" & _ !"\r\n" & "Hello Chessfriend, you are absent in this round - Hallo Schachfreund, du setzt diese Runde aus!" END IF ' Empfängerliste für LIBCURL erstellen DIM AS CURL_SLIST PTR RCPT = NULL RCPT = CURL_SLIST_APPEND(RCPT, STRPTR(EMPFAENGER(j))) ' Individuelle Optionen für diesen Durchlauf setzen CURL_EASY_SETOPT(CURL, CURLOPT_MAIL_FROM, STRPTR(NUTZER)) CURL_EASY_SETOPT(CURL, CURLOPT_MAIL_RCPT, RCPT) CURL_EASY_SETOPT(CURL, CURLOPT_READDATA, @AKTUELLE_MAIL) ' LOCATE 5,5: PRINT "Sende Mail " & STR(j) & " an " & EMPFAENGER(j) & "... " FONT "Mail " + LTRIM(STR(j)) + "/" + LTRIM(STR(TAZ)), 78, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 DIM AS CURLCODE RES = CURL_EASY_PERFORM(CURL) IF (RES <> CURLE_OK) THEN ' PRINT "Fehler bei Mail " & STR(j) & ": " & *CURL_EASY_STRERROR(RES) IF RES = CURLE_LOGIN_DENIED THEN MessageBox(0, Sprachausgaben(256), Sprachausgaben(1), MB_ICONERROR) CURL_SLIST_FREE_ALL(RCPT) CURL_EASY_CLEANUP(CURL) ' Verbindung sauber schließen pass = "" ' Speicher leeren FONT " ", 78, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 EXIT SUB ' Schleife komplett abbrechen, da weitere Versuche sinnlos sind END IF MessageBox(0, Sprachausgaben(257) & " " & STR(j) & ": " & *CURL_EASY_STRERROR(RES), Sprachausgaben(1), MB_ICONWARNING Or MB_TOPMOST) ELSE ' PRINT Sprachausgaben(255) FONT Sprachausgaben(255), 79, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 SLEEP 100 FONT " ", 79, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Empfängerliste für den nächsten Durchlauf leeren CURL_SLIST_FREE_ALL(RCPT) SLEEP 500 END IF NEXT ELSE FOR j AS INTEGER = 1 TO TAZ IF EMPFAENGER(j) <> "" THEN ' Prüfung welches Brett und Farbe der Spieler hat l = 0 FOR k = 1 TO ppr(runde) IF paarungen(k,1,runde) = j OR paarungen(k,2,runde) = j THEN r = k IF paarungen(k,1,runde) = j THEN l = paarungen(k,2,runde) IF paarungen(k,2,runde) = j THEN l = paarungen(k,1,runde) NEXT ' Nachricht für Spieler der eine Runde aussetzt IF fehlendeSpieler(j, runde) = 0 THEN ' Mail-Inhalt für den aktuellen Durchlauf AKTUELLE_MAIL = "From: " & NUTZER & !"\r\n" & _ "To: " & EMPFAENGER(j) & !"\r\n" & _ "Subject: Pairings for round " & STR(runde) & !"\r\n" & _ !"\r\n" & "Hello Chessfriend - Hallo Schachfreund! The pairing is/Die Paarung lautet: " & !"\r\n" & !"\r\n" &_ !"\r\n" & "Board/Brett " & STR(r) & ": " & Spieler(paarungen(r,1,runde)) & " - " & Spieler(paarungen(r,2,runde)) & !"\r\n" ' "E-Mail: " & EMPFAENGER(l) & !"\r\n" & _ ' "Tel.: " & Telefonnummer(l) & !"\r\n" END IF ' Nachricht für Spieler der eine Runde aussetzt IF fehlendeSpieler(j, runde) <> 0 THEN ' Mail-Inhalt für den aktuellen Durchlauf AKTUELLE_MAIL = "From: " & NUTZER & !"\r\n" & _ "To: " & EMPFAENGER(j) & !"\r\n" & _ "Subject: Pairing for round " & STR(runde) & !"\r\n" & _ !"\r\n" & "Hello Chessfriend, you are absent in this round - Hallo Schachfreund, du setzt diese Runde aus!" END IF ' Empfängerliste für LIBCURL erstellen DIM AS CURL_SLIST PTR RCPT = NULL RCPT = CURL_SLIST_APPEND(RCPT, STRPTR(EMPFAENGER(j))) ' Individuelle Optionen für diesen Durchlauf setzen CURL_EASY_SETOPT(CURL, CURLOPT_MAIL_FROM, STRPTR(NUTZER)) CURL_EASY_SETOPT(CURL, CURLOPT_MAIL_RCPT, RCPT) CURL_EASY_SETOPT(CURL, CURLOPT_READDATA, @AKTUELLE_MAIL) ' LOCATE 5,5: PRINT "Sende Mail " & STR(j) & " an " & EMPFAENGER(j) & "... " FONT "Mail " + LTRIM(STR(j)) + "/" + LTRIM(STR(TAZ)), 78, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 DIM AS CURLCODE RES = CURL_EASY_PERFORM(CURL) IF (RES <> CURLE_OK) THEN ' PRINT "Fehler bei Mail " & STR(j) & ": " & *CURL_EASY_STRERROR(RES) IF RES = CURLE_LOGIN_DENIED THEN MessageBox(0, Sprachausgaben(256), Sprachausgaben(1), MB_ICONERROR) CURL_SLIST_FREE_ALL(RCPT) CURL_EASY_CLEANUP(CURL) ' Verbindung sauber schließen pass = "" ' Speicher leeren FONT " ", 78, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 EXIT SUB ' Schleife komplett abbrechen, da weitere Versuche sinnlos sind END IF MessageBox(0, Sprachausgaben(257) & " " & STR(j) & ": " & *CURL_EASY_STRERROR(RES), Sprachausgaben(1), MB_ICONWARNING Or MB_TOPMOST) ELSE ' PRINT Sprachausgaben(255) FONT Sprachausgaben(255), 79, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 SLEEP 100 FONT " ", 79, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 END IF ' Empfängerliste für den nächsten Durchlauf leeren CURL_SLIST_FREE_ALL(RCPT) SLEEP 500 END IF NEXT END IF ' Verbindung sauber schließen CURL_EASY_CLEANUP(CURL) pass = "" ' Speicher leeren FONT " ", 78, 85, Farbe(1), Farbe(2), Farbe(3), 0, 0 MessageBox(0, Sprachausgaben(258), Sprachausgaben(1), MB_OK Or MB_ICONINFORMATION Or MB_TOPMOST) ' SLEEP END SUB '/ ' Sonderzeichen umwandeln FUNCTION ToUTF8(s AS STRING) AS STRING DIM AS STRING res = "" FOR i AS INTEGER = 0 TO LEN(s) - 1 SELECT CASE s[i] CASE 132: res &= CHR(195, 164) ' ä CASE 148: res &= CHR(195, 182) ' ö CASE 129: res &= CHR(195, 188) ' ü CASE 142: res &= CHR(195, 132) ' Ä CASE 153: res &= CHR(195, 150) ' Ö CASE 154: res &= CHR(195, 156) ' Ü CASE 225: res &= CHR(195, 159) ' ß CASE ELSE: res &= CHR(s[i]) END SELECT NEXT RETURN res END FUNCTION ' Callback bleibt gleich: versorgt CURL mit den Mail-Daten FUNCTION READ_CALLBACK(BUFFER AS ANY PTR, SIZE AS UINTEGER, NITEMS AS UINTEGER, USERP AS ANY PTR) AS UINTEGER DIM AS STRING PTR SOURCE = CAST(STRING PTR, USERP) DIM AS UINTEGER TOTAL_SIZE = SIZE * NITEMS IF LEN(*SOURCE) = 0 THEN RETURN 0 DIM AS UINTEGER TO_COPY = IIF(LEN(*SOURCE) < TOTAL_SIZE, LEN(*SOURCE), TOTAL_SIZE) MEMCPY(BUFFER, STRPTR(*SOURCE), TO_COPY) *SOURCE = MID(*SOURCE, TO_COPY + 1) RETURN TO_COPY END FUNCTION #ENDIF /' SUB WENDEFIXEBRETTERAN(paarungen() AS STRING, FixeSpieler() AS STRING, FixeBretter() AS INTEGER, runde AS INTEGER) DIM gesamt AS INTEGER = UBOUND(paarungen, 1) DIM Temporaer(1 TO gesamt, 1 TO 2) AS STRING DIM Belegt(1 TO gesamt) AS INTEGER FOR i AS INTEGER = 1 TO gesamt Belegt(i) = 0 Temp(i,1) = "" Temp(i,2) = "" NEXT FOR i AS INTEGER = 1 TO gesamt DIM s1 AS STRING = paarungen(i, 1, runde) DIM s2 AS STRING = paarungen(i, 2, runde) DIM brett1 AS INTEGER = 0 DIM brett2 AS INTEGER = 0 FOR j AS INTEGER = LBOUND(FixeSpieler) TO UBOUND(FixeSpieler) IF LCASE(s1) = LCASE(FixeSpieler(j)) THEN brett1 = FixeBretter(j) IF LCASE(s2) = LCASE(FixeSpieler(j)) THEN brett2 = FixeBretter(j) NEXT DIM ZielBrett AS INTEGER = 0 IF brett1 > 0 AND brett2 > 0 THEN ZielBrett = brett1 ELSEIF brett1 > 0 THEN ZielBrett = brett1 ELSEIF brett2 > 0 THEN ZielBrett = brett2 ELSE DIM position AS INTEGER = 1 WHILE position <= gesamt ANDALSO Belegt(position) = 1 position += 1 WEND IF position <= gesamt THEN ZielBrett = position END IF ' Falls das gewünschte Brett bereits belegt ist ? nächstes freies Brett suchen IF Belegt(ZielBrett) = 1 THEN FOR k AS INTEGER = 1 TO gesamt IF Belegt(k) = 0 THEN ZielBrett = k EXIT FOR END IF NEXT END IF Temporaer(ZielBrett, 1) = s1 Temporaer(ZielBrett, 2) = s2 Belegt(ZielBrett) = 1 NEXT FOR i AS INTEGER = 1 TO gesamt paarungen(i, 1, runde) = Temporaer(i, 1) paarungen(i, 2, runde) = Temporaer(i, 2) NEXT END SUB '/ /' SUB WENDEFIXEBRETTERAN(paarungen() AS INTEGER, FixeSpieler() AS INTEGER, FixeBretter() AS INTEGER, runde AS INTEGER) DIM gesamt AS INTEGER DIM i AS INTEGER, j AS INTEGER, k AS INTEGER DIM p AS INTEGER DIM a AS INTEGER, b AS INTEGER DIM fs AS INTEGER, fb AS INTEGER gesamt = UBOUND(paarungen, 1) ' --- Temporäres Array zum Verschieben --- DIM Temp(1 TO gesamt, 1 TO 2) AS INTEGER ' Paarungen kopieren FOR i = 1 TO gesamt Temp(i,1) = paarungen(i,1,runde) Temp(i,2) = paarungen(i,2,runde) NEXT i ' --- Feste Spieler verarbeiten --- FOR j = 1 TO UBOUND(FixeSpieler) fs = FixeSpieler(j) fb = FixeBretter(j) ' Abbruch, wenn kein fixer Spieler mehr IF fs = 0 THEN EXIT FOR END IF ' Paarung dieses Spielers suchen p = 0 FOR i = 1 TO gesamt IF Temp(i,1) = fs OR Temp(i,2) = fs THEN p = i EXIT FOR END IF NEXT i IF p = 0 THEN ' Spieler kommt in dieser Runde nicht vor GOTO NAECHSTER_SPIELER END IF IF p = fb THEN ' Spieler bereits am richtigen Brett GOTO NAECHSTER_SPIELER END IF ' Paarung merken a = Temp(p,1) b = Temp(p,2) ' Verschieben der anderen Paarungen IF p < fb THEN FOR k = fb TO p + 1 STEP -1 Temp(k,1) = Temp(k-1,1) Temp(k,2) = Temp(k-1,2) NEXT k ELSE FOR k = fb TO p - 1 Temp(k,1) = Temp(k+1,1) Temp(k,2) = Temp(k+1,2) NEXT k END IF ' Paarung auf das feste Brett setzen Temp(fb,1) = a Temp(fb,2) = b NAECHSTER_SPIELER: NEXT j ' --- Zurückschreiben --- FOR i = 1 TO gesamt paarungen(i,1,runde) = Temp(i,1) paarungen(i,2,runde) = Temp(i,2) NEXT i END SUB '/ SUB TPRTABELLE IF p = 1 Then dp = 800 IF p = 0.99 Then dp = 677 IF p = 0.98 Then dp = 589 IF p = 0.97 Then dp = 538 IF p = 0.96 Then dp = 501 IF p = 0.95 Then dp = 470 IF p = 0.94 Then dp = 444 IF p = 0.93 Then dp = 422 IF p = 0.92 Then dp = 401 IF p = 0.91 Then dp = 383 IF p = 0.90 Then dp = 366 IF p = 0.89 Then dp = 351 IF p = 0.88 Then dp = 336 IF p = 0.87 Then dp = 322 IF p = 0.86 Then dp = 309 IF p = 0.85 Then dp = 296 IF p = 0.84 Then dp = 284 IF p = 0.83 Then dp = 273 IF p = 0.82 Then dp = 262 IF p = 0.81 Then dp = 251 IF p = 0.80 Then dp = 240 IF p = 0.79 Then dp = 230 IF p = 0.78 Then dp = 220 IF p = 0.77 Then dp = 211 IF p = 0.76 Then dp = 202 IF p = 0.75 Then dp = 193 IF p = 0.74 Then dp = 184 IF p = 0.73 Then dp = 175 IF p = 0.72 Then dp = 166 IF p = 0.71 Then dp = 158 IF p = 0.70 Then dp = 149 IF p = 0.69 Then dp = 141 IF p = 0.68 Then dp = 133 IF p = 0.67 Then dp = 125 IF p = 0.66 Then dp = 117 IF p = 0.65 Then dp = 110 IF p = 0.64 Then dp = 102 IF p = 0.63 Then dp = 95 IF p = 0.62 Then dp = 87 IF p = 0.61 Then dp = 80 IF p = 0.60 Then dp = 72 IF p = 0.59 Then dp = 65 IF p = 0.58 Then dp = 57 IF p = 0.57 Then dp = 50 IF p = 0.56 Then dp = 43 IF p = 0.55 Then dp = 36 IF p = 0.54 Then dp = 29 IF p = 0.53 Then dp = 21 IF p = 0.52 Then dp = 14 IF p = 0.51 Then dp = 7 IF p = 0.50 Then dp = 0 IF p = 0.49 Then dp = -7 IF p = 0.48 Then dp = -14 IF p = 0.47 Then dp = -21 IF p = 0.46 Then dp = -29 IF p = 0.45 Then dp = -36 IF p = 0.44 Then dp = -43 IF p = 0.43 Then dp = -50 IF p = 0.42 Then dp = -57 IF p = 0.41 Then dp = -65 IF p = 0.40 Then dp = -72 IF p = 0.39 Then dp = -80 IF p = 0.38 Then dp = -87 IF p = 0.37 Then dp = -95 IF p = 0.36 Then dp = -102 IF p = 0.35 Then dp = -110 IF p = 0.34 Then dp = -117 IF p = 0.33 Then dp = -125 IF p = 0.32 Then dp = -133 IF p = 0.31 Then dp = -141 IF p = 0.30 Then dp = -149 IF p = 0-29 Then dp = -158 IF p = 0.28 Then dp = -166 IF p = 0.27 Then dp = -175 IF p = 0.26 Then dp = -184 IF p = 0.25 Then dp = -193 IF p = 0.24 Then dp = -202 IF p = 0.23 Then dp = -211 IF p = 0.22 Then dp = -220 IF p = 0.21 Then dp = -230 IF p = 0.20 Then dp = -240 IF p = 0.19 Then dp = -251 IF p = 0.18 Then dp = -262 IF p = 0.17 Then dp = -273 IF p = 0.16 Then dp = -284 IF p = 0.15 Then dp = -296 IF p = 0.14 Then dp = -309 IF p = 0.13 Then dp = -322 IF p = 0.12 Then dp = -336 IF p = 0.11 Then dp = -351 IF p = 0.10 Then dp = -366 IF p = 0.09 Then dp = -383 IF p = 0.08 Then dp = -401 IF p = 0.07 Then dp = -422 IF p = 0.06 Then dp = -444 IF p = 0.05 Then dp = -470 IF p = 0.04 Then dp = -501 IF p = 0.03 Then dp = -538 IF p = 0.02 Then dp = -589 IF p = 0.01 Then dp = -677 IF p = 0 Then dp = -800 END SUB /' ' *************************************************************************************************************************************************************************** Dim As String enginePath = "gacrux.exe" ' Pfad zur EXE Dim As String inputFile = "turnier.trf" ' Deine Turnierdatei Dim As String commandLine = enginePath & " -i " & inputFile & " -o - -d" Dim As String outputLine Dim As Integer fileNum = FreeFile ' Startet die Engine und öffnet den "Pipe" zum Lesen der Ausgabe If Open Pipe(commandLine For Input As #fileNum) = 0 Then Print "Berechnung läuft..." ' Die Ausgabe der Engine (JSON) Zeile für Zeile einlesen Do Until EOF(fileNum) Line Input #fileNum, outputLine Print "Empfangen: " & outputLine Loop Close #fileNum Else Print "Fehler: Gacrux konnte nicht gestartet werden!" End If Sleep gacrux.exe -i turnier.trf -o - -t BH,SB,WIN ' *************************************************************************************************************************************************************************** '/ /' CONSTRUCTOR connectionType(Typ AS STRING) IF Typ = "G_Server" THEN isServer = 1 ' IP = "127.0.0.1" hosten ELSEIF Typ = "G_Client" THEN ' isServer = 2 IP = "127.0.0.1" connecten ELSE ' isServer = 0 IP = Typ IF Typ <> "offline" THEN connecten ENDIF access_VData = MUTEXCREATE access_Paarungen = MUTEXCREATE END CONSTRUCTOR DESTRUCTOR connectionType beenden END DESTRUCTOR SUB connectionType.beenden IF isServer = 1 THEN TSNE_Disconnect(G_Server) 'Server beenden TSNE_WaitClose(G_Server) 'Warten bis Server beendet ist END IF IF isServer = 2 THEN TSNE_Disconnect(G_Client) 'Client beenden TSNE_WaitClose(G_Client) 'Warten bis Client beendet ist ENDIF MUTEXDESTROY access_VData MUTEXDESTROY access_Paarungen END SUB SUB connectionType.hosten DIM BV AS INTEGER BV = TSNE_Create_Server(G_Client, 9000, 1, @TSNE_NewConnection, @TSNE_NewConnectionCanceled) 'Server erstellen IF BV = TSNE_Const_NoError THEN PRINT "Server bereit" ELSE PRINT "Fehler: " & BV ENDIF END SUB SUB connectionType.connecten DIM BV AS INTEGER BV = TSNE_Create_Client(G_Client, IP, 9000, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData) 'Client erstellen IF BV = TSNE_Const_NoError THEN PRINT "Suche Server" ELSE PRINT "Fehler: " & BV ENDIF END SUB SUB connectionType.senden(Message AS STRING) TSNE_Data_Send(partnerID, Message) END SUB SUB TSNE_Disconnected(BYVAL V_TSNEID AS UINTEGER) ' Handling, wenn disconnected wird PRINT V_TSNEID & " wurde disconnectet" END SUB SUB TSNE_Connected(BYVAL V_TSNEID AS UINTEGER) ' neue Verbindung wurde aufgebaut PRINT "Nun mit " & V_TSNEID & " verbunden" partnerID = V_TSNEID END SUB SUB TSNE_NewConnection(BYVAL V_TSNEID AS UINTEGER, BYVAL V_RequestID AS Socket, BYVAL V_IPA AS STRING) ' Wenn versucht wird, eine neue Verbindung herzustellen ' Nur wichtig für den Server PRINT "Ein Client versucht zu verbinden" DIM XNewTSNEID AS UINTEGER DIM XReturnIPA AS STRING ' Akzeptieren der Verbindung TSNE_Create_Accept(V_RequestID, XNewTSNEID, XReturnIPA, @TSNE_Disconnected, @TSNE_Connected, @TSNE_NewData) END SUB SUB TSNE_NewConnectionCanceled(BYVAL V_TSNEID AS UINTEGER, BYVAL V_IPA AS STRING) ' Verhalten, wenn abgelehnt wird PRINT "Verbindung wurde abgelehnt" END SUB SUB TSNE_NewData(BYVAL V_TSNEID AS UINTEGER, BYREF V_Data AS STRING) ' PRINT V_Data & " ::kommt von:: " & V_TSNEID ' MUTEXLOCK access_VData ' MUTEXLOCK access_Paarungen /' IF LEFT(V_Data, 3) = "062" THEN TAZ = VAL(MID(V_Data,5)) END IF '/ ' ' FOR j = 1 TO TAZ ' IF LEFT(V_Data, 3) = "001" THEN Spieler(j) = MID(V_Data,5) ' NEXT ' IF LEFT(V_Data, 3) = "000" THEN ppr(1) = VAL(MID(V_Data,4)) LOCATE 3,5: PRINT "V_Data: "; V_Data; V_Data = "" /' LOCATE 3,5: PRINT "TAZ: "; TAZ; " xxx" LOCATE 5,5: PRINT "ppr: "; ppr(1); " xxx" '/ /' TAZ = 36 ppr(2) = 18 ' Brett, Farbe, Runde ' Paarungen löschen/initialisieren REDIM AS INTEGER paarungen(0 TO 1000, 0 TO 2, 0 TO 29) IF ppr(1) <> 0 THEN FOR j = 1 TO ppr(1) IF LEFT(V_Data, 3) = "002" THEN paarungen(j, 1, 1) = VAL(MID(V_Data,5)) NEXT END IF IF ppr(1) = 0 THEN FOR j = 1 TO ppr(2) IF LEFT(V_Data, 3) = "002" THEN paarungen(j, 1, 1) = VAL(MID(V_Data,5)) NEXT END IF '/ ' MUTEXUNLOCK access_VData ' NetzwerkString = V_Data ' access_Paarungen = MUTEXCREATE ' MUTEXDESTROY access_Paarungen ' MUTEXUNLOCK access_Paarungen ' V_Data="" END SUB '/ /' myServer.senden("062 " + STR(TAZ)) FOR j = 1 TO TAZ myServer.senden("001 " + Spieler(j)) NEXT myServer.senden("000 " + STR(ppr(Runde))) FOR j = 1 TO ppr(Runde) myServer.senden("002 " + STR(paarungen(j,1,Runde))) NEXT '/[/code]

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.