vereinfachen

Quote:

Originally Posted by KillerDeluxe Das war nicht ironisch gemeint, bei so vielen $LABEL, $BUTTON und $INPUT Variablen blickt man nicht mehr durch, du hättest sie lieber erkannbar benennen sollen (z. B. $L_Player1, $L_Player2).

Quote:

Originally Posted by maxi39 ich hab die funktion immer in block unterteil: PHP Code: If GUICtrlRead($COMBO1) = $PLAYER1 Then _NITROFREEZEON1()              If GUICtrlRead($COMBO1) = $PLAYER2 Then _NITROFREEZEON2()              If GUICtrlRead($COMBO1) = $PLAYER3 Then _NITROFREEZEON3()              If GUICtrlRead($COMBO1) = $PLAYER4 Then _NITROFREEZEON4()              If GUICtrlRead($COMBO1) = $PLAYER5 Then _NITROFREEZEON5()              If GUICtrlRead($COMBO1) = $PLAYER6 Then _NITROFREEZEON6()              If GUICtrlRead($COMBO1) = $PLAYER7 Then _NITROFREEZEON7()              If GUICtrlRead($COMBO1) = $PLAYER8 Then _NITROFREEZEON8()  das ist sehr übersichtlich

Dim $color[9]

Quote:

Code: $LABEL14 = GUICtrlCreateLabel("Player 1", 36, 87, 43, 18) $LABEL15 = GUICtrlCreateLabel("Player 2", 36, 119, 43, 18) $LABEL16 = GUICtrlCreateLabel("Player 3", 36, 151, 43, 18) $LABEL17 = GUICtrlCreateLabel("Player 4", 36, 183, 43, 18) $LABEL18 = GUICtrlCreateLabel("Player 5", 36, 215, 43, 18) $LABEL19 = GUICtrlCreateLabel("Player 6", 36, 247, 43, 18) $LABEL20 = GUICtrlCreateLabel("Player 7", 36, 279, 43, 18) $LABEL21 = GUICtrlCreateLabel("Player 8", 36, 303, 43, 18) $GROUP7 = GUICtrlCreateGroup("X", 100, 55, 89, 273, $BS_CENTER) $LABEL24 = GUICtrlCreateLabel("Label24", 120, 90, 42, 18) $LABEL25 = GUICtrlCreateLabel("Label25", 120, 122, 42, 18) $LABEL26 = GUICtrlCreateLabel("Label26", 120, 154, 42, 18) $LABEL27 = GUICtrlCreateLabel("Label27", 120, 186, 42, 18) $LABEL28 = GUICtrlCreateLabel("Label28", 120, 218, 42, 18) $LABEL29 = GUICtrlCreateLabel("Label29", 120, 250, 42, 18) $LABEL30 = GUICtrlCreateLabel("Label30", 120, 274, 42, 18) $LABEL31 = GUICtrlCreateLabel("Label31", 120, 306, 42, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $GROUP8 = GUICtrlCreateGroup("Y", 220, 55, 89, 273, $BS_CENTER) $LABEL32 = GUICtrlCreateLabel("Label32", 240, 90, 42, 18) $LABEL33 = GUICtrlCreateLabel("Label33", 240, 122, 42, 18) $LABEL34 = GUICtrlCreateLabel("Label34", 240, 154, 42, 18) $LABEL35 = GUICtrlCreateLabel("Label35", 240, 186, 42, 18) $LABEL36 = GUICtrlCreateLabel("Label36", 240, 218, 42, 18) $LABEL37 = GUICtrlCreateLabel("Label37", 240, 250, 42, 18) $LABEL38 = GUICtrlCreateLabel("Label38", 240, 274, 42, 18) $LABEL39 = GUICtrlCreateLabel("Label39", 240, 306, 42, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $GROUP9 = GUICtrlCreateGroup("Z", 340, 55, 89, 273, $BS_CENTER) $LABEL40 = GUICtrlCreateLabel("Label40", 360, 90, 42, 18) $LABEL41 = GUICtrlCreateLabel("Label41", 360, 122, 42, 18) $LABEL42 = GUICtrlCreateLabel("Label42", 360, 154, 42, 18) $LABEL43 = GUICtrlCreateLabel("Label43", 360, 186, 42, 18) $LABEL44 = GUICtrlCreateLabel("Label44", 360, 218, 42, 18) $LABEL45 = GUICtrlCreateLabel("Label45", 360, 250, 42, 18) $LABEL46 = GUICtrlCreateLabel("Label46", 360, 274, 42, 18) $LABEL47 = GUICtrlCreateLabel("Label47", 360, 306, 42, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1)

GUICtrlCreateGroup("X", 100, 55, 89, 273, $BS_CENTER)
GUICtrlCreateGroup("Y", 220, 55, 89, 273, $BS_CENTER)
GUICtrlCreateGroup("Z", 340, 55, 89, 273, $BS_CENTER)
Dim $player[8], $x[8], $y[8], $z[8]
For $i=0 To 7
	$player[$i] = GUICtrlCreateLabel("Player "&$i+1, 36, 87+$i*32, 43, 18)
	$x[$i] = GUICtrlCreateLabel("x"&$i+1, 120, 89+$i*32, 42, 18)
	$y[$i] = GUICtrlCreateLabel("y"&$i+1, 240, 89+$i*32, 42, 18)
	$z[$i] = GUICtrlCreateLabel("z"&$i+1, 360, 89+$i*32, 42, 18)
Next

Quote:

Code: If ProcessExists("mc2.exe") = False Then GUICtrlSetBkColor($GRAPHIC2, 16711680) If ProcessExists("mc2.exe") = True Then GUICtrlSetBkColor($GRAPHIC2, 65280) If GUICtrlRead($COMBO1) = $PLAYER1 Then GUICtrlSetBkColor($LABEL14, 16711680) If GUICtrlRead($COMBO1) = $PLAYER2 Then GUICtrlSetBkColor($LABEL15, 16711680) If GUICtrlRead($COMBO1) = $PLAYER3 Then GUICtrlSetBkColor($LABEL16, 16711680) If GUICtrlRead($COMBO1) = $PLAYER4 Then GUICtrlSetBkColor($LABEL17, 16711680) If GUICtrlRead($COMBO1) = $PLAYER5 Then GUICtrlSetBkColor($LABEL18, 16711680) If GUICtrlRead($COMBO1) = $PLAYER6 Then GUICtrlSetBkColor($LABEL19, 16711680) If GUICtrlRead($COMBO1) = $PLAYER7 Then GUICtrlSetBkColor($LABEL20, 16711680) If GUICtrlRead($COMBO1) = $PLAYER8 Then GUICtrlSetBkColor($LABEL21, 16711680) If GUICtrlRead($COMBO1) <> $PLAYER1 Then GUICtrlSetBkColor($LABEL14, 65535) If GUICtrlRead($COMBO1) <> $PLAYER2 Then GUICtrlSetBkColor($LABEL15, 65535) If GUICtrlRead($COMBO1) <> $PLAYER3 Then GUICtrlSetBkColor($LABEL16, 65535) If GUICtrlRead($COMBO1) <> $PLAYER4 Then GUICtrlSetBkColor($LABEL17, 65535) If GUICtrlRead($COMBO1) <> $PLAYER5 Then GUICtrlSetBkColor($LABEL18, 65535) If GUICtrlRead($COMBO1) <> $PLAYER6 Then GUICtrlSetBkColor($LABEL19, 65535) If GUICtrlRead($COMBO1) <> $PLAYER7 Then GUICtrlSetBkColor($LABEL20, 65535) If GUICtrlRead($COMBO1) <> $PLAYER8 Then GUICtrlSetBkColor($LABEL21, 65535)

	If Not ProcessExists("mc2.exe") And $color[0]<>0xFF0000 Then
		GUICtrlSetBkColor($GRAPHIC2, 0xFF0000)
		$color[0] = 0xFF0000
	ElseIf ProcessExists("mc2.exe") And $color[0]<>0xFFFF Then
		GUICtrlSetBkColor($GRAPHIC2, 0xFFFF)
		$color[0] = 0xFFFF
	EndIf

	For $i=1 To 8
		If GUICtrlRead($COMBO1)='Player '&$i And $color[$i]<>0xFF0000 Then
			GUICtrlSetBkColor($player[$i-1], 0xFF0000)
			$color[$i] = 0xFF0000
		ElseIf GUICtrlRead($COMBO1)<>'Player '&$i And  $color[$i]<>0xFFFF Then
			GUICtrlSetBkColor($player[$i-1], 0xFFFF)
			$color[$i] = 0xFFFF
		EndIf
	Next