@Threadersteller
-> Das Bild ist von: Mattthias ; nicht EliteMatthias ; bitte um Korrektur !
Ist korriegirt.
Beiträge von Script-Bär
-
-
Das Ergebnis steht nun fest (siehe Post#1)
Glückwunsch an die 3 Gewinner und Danke für alle Einsendungen!
-
Sorry, mein Internet-Anshcluss hat die letzten Tage nicht funktioniert.
Gleich kommt die Abstimmung.
-
Ich musste die Termine etwas verschieben, da ich ab morgen in Urlaub fahre
-
-> Teilnehmerliste aktualisiert. (Post #1)
->
ZitatWie wäre es, wenn man die gleichen preisbilder, also das was yxyx (oder wie auch immer^^) nur mit 2011 macht, der erste Wettbewerb ist ja schon ein jahr her.
Ich habe schon eigene Gewinner-Auszeichnungs-Bilder erstellt.
-> Datume ergänzt. (Post #1)
-
Sorry das ich erst jetzt antworte, aber ich hatte viel zu tun.
Zu euren Fragen:
-> Wie/mit was ihr das Bild erstellt ist egal.
-> Die einzige erlaubte vorgefertigte Logo ist das der AutoIt-Seite: http://www.autoitscript.com/site/wp-conten…images/logo.png -
Danke für das Lob.:-)
Eventuell baue ich die Abfragen am Anfang noch in eine GUI.
-
Nach msgbox(0,"","wend ende") muss noch ein ExitLoop.
-
Ich hab dann mal einen Wettbewerb gestartet.
-
Hallo @all,
Beschreibung
ich starte mal einen Wettbewerb für ein AutoIt Wallpaper von euch.
Regeln:
-> Bis zum Abgabedatum muss das Wallpaper per PM oder eMail [LV . reg (at) gmx . de (ohne Leerzeichen)] bei mir angekommen sein.
-> Daraufhin wird per Abstimmung der Sieger ermittelt.
-> Der Sieger bekommt Ruhm, Ehre und ein Bild für die Signatur (1./2./3. Platz).
-> Das Bild muss selbstgemacht sein (Bei Hilfe bitte den Username des Helfers in der PM/eMail nennen.)
-> Das Bild muss neu sein (Bilder vom letzten Jahr einsenden ist nicht erlaubt.)Stichtage:
-> Start: Ab sofort!
-> Abgabe bis zum. 27.04.2011 24:00
-> Abstimmung ab ca. 28.04.2011 21:30
-> Abstimmung bis zum 02.05.2011 12:00Ich wünsche euch allen viel Spaß beim Erstellen eurer Bilder.
Sollt etwas unklar sein, dann fragt einfach.Bisherige Teilnehmer:
jojot -> Einsendung erhalten
BadBunny -> Einsendung erhalten
name 22 -> Einsendung erhalten
Progandy -> Einsendung erhalten
Higggiii -> Angemedlet
yxyx -> Angemeldet
Matthis -> Einsendung erhaltenBild 1: (name22)
[Blockierte Grafik: http://img96.imageshack.us/img96/2306/autoitmatrix.jpg]
Bild 2: (BadBunny)
Bild 3: (ProgAndy)
Bild 4: (Mattthias/Männchen & Pickaxe)
[Blockierte Grafik: http://elitemattthias.el.funpic.de/AutoIt%20Logo.gif]
Bild 5: (jojot)
Ergebniss: (Bild-Nr.) Platz
---------------------_Progandy (3)
----name22(1)|-------- 1. -------|
----|------ 2. --------------------------| Mattthias (4)
----|------------------------------------------- 3. ---------| -
Wofür brauchst du $location?
Das Script wäre so:
[autoit]$location = 10
[/autoit][autoit][/autoit][autoit]While 1
[/autoit]
For $i2 = 0 To 5
MsgBox(0, "", $i2)
$location -= 1
If $location = 0 Then ExitLoop
Next
If $location = 0 Then ExitLoop
WEnd -
Herzlich Willkommen im Forum.
Wenn du Hilfe brauchst, kannst du ruhig mich fragen.
-
Richtig müsste es folgendermasen sein:
[autoit]$location = 10
[/autoit][autoit][/autoit][autoit]For $i = 1 To 2 ; Um alle Links zu bekommen
[/autoit]
For $i2 = 0 To 5
MsgBox(0, "", $i2)
Next
Next
Das Problem bei dir ist, das du die Variable zum Überprüfen/Anzeige des Durchlaufst überschreibst und wenn er das erste for überprüft ist es schon über 2. -
Ich könnte es ja auch machen. Hat jemand was dagegen?
-
So, jetzt kommt Version 2 mit KI.
Wäre nett von euch wenn ihr sie testet und mir eure Meinung zur KI sagt.
-
Hab ich hinzugefügt siehe Post #1.
-
Ok, füge ich noch hinzu
//EDIT: Hinzugefügt! (siehe post #1)
-
Hallo @all,
ich stelle euch mal mein Spiel vor das ich am Wochenende gecodet habe vor.
Es ist ein Tic-Tac-Toe Spiel für 2 Personen in AutoIt.Bedienung:
Einfach in das Feld klicken, das man für sich beanspruchen möchte.
Die Felder werden mit "deiner" Farbe eingefärbt.Version 2:
Vorhandende Features: (neu)
-> Siegeserkennung (auch bei unentschieden)
-> Farbe selber festlegen
-> Abfragen zum Beenden/Neustarten
-> Anzeige welcher Spiler am Zug ist.
-> KI (= der PC spielt mit dir)
Geplante Features:
-Hier jetzt aber das Skript:
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIconGlobal $Felder_Anzeige[10][10]
[/autoit] [autoit][/autoit] [autoit]
Global $Felder_Status[10][10]
$AS = 1
For $i1 = 1 to 3;Felder Status auf 0 setzen
For $i2 = 1 to 3
$Felder_Status[$i1][$i2] = 0
Next
Next
$KI = false; [1][1] | [2][1] | [3][1]
[/autoit] [autoit][/autoit] [autoit]
;--------|--------|--------
; [1][2] | [2][2] | [3][2]
;--------|--------|--------
; [1][3] | [2][3] | [3][3]If MsgBox(36, "Wichtige Frage", "Soll Spieler 2 der Computer sein?") = 6 Then;Abfrage zur aktivierung der KI
[/autoit] [autoit][/autoit] [autoit]
$KI = true
EndIfDo;Farbe Festlegen
[/autoit] [autoit][/autoit] [autoit]
$FARBE_S1 = InputBox("Welche Farbe? (S1)", "Grün = 0x32CD32 | Gelb = 0xFFD700" & @CRLF & "Rot = 0xFF0000 | Blau = 0x1874CD", "0x32CD32", " M9")
Until @error = 0
Do
If $KI = true Then
$FARBE_S2 = InputBox("Welche Farbe für den PC-Gegner?", "Grün = 0x32CD32 | Gelb = 0xFFD700" & @CRLF & "Rot = 0xFF0000 | Blau = 0x1874CD", "0xFFD700", " M9")
Else
$FARBE_S2 = InputBox("Welche Farbe? (S2)", "Grün = 0x32CD32 | Gelb = 0xFFD700" & @CRLF & "Rot = 0xFF0000 | Blau = 0x1874CD", "0xFFD700", " M9")
EndIf
If $FARBE_S1 = $FARBE_S2 Then MsgBox(16, "Kleiner Hinweis!", "Diese Farbe hat schon Spieler !1")
Until @error = 0 and $FARBE_S1 <> $FARBE_S2GUIcreate("Tic-Tac-Toe", 305, 325);GUI erstellen
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("", 0, 0, 305, 325)
GUIctrlSetBkColor(-1, 0x000000)
GUICtrlSetDefBkColor(0xFFFFFF)
$SA = GUICtrlCreateLabel("Aktuell am Zug: Spieler 1.", 0, 0, 305)
$Felder_Anzeige[1][1] = GUICtrlCreateLabel("", 0, 20, 95, 95)
$Felder_Anzeige[1][2] = GUICtrlCreateLabel("", 0, 125, 95, 95)
$Felder_Anzeige[1][3] = GUICtrlCreateLabel("", 0, 230, 95, 95)
$Felder_Anzeige[2][1] = GUICtrlCreateLabel("", 105, 20, 95, 95)
$Felder_Anzeige[2][2] = GUICtrlCreateLabel("", 105, 125, 95, 95)
$Felder_Anzeige[2][3] = GUICtrlCreateLabel("", 105, 230, 95, 95)
$Felder_Anzeige[3][1] = GUICtrlCreateLabel("", 210, 20, 95, 95)
$Felder_Anzeige[3][2] = GUICtrlCreateLabel("", 210, 125, 95, 95)
$Felder_Anzeige[3][3] = GUICtrlCreateLabel("", 210, 230, 95, 95)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$H = WinGetHandle("Tic-Tac-Toe")
$mouse = GUIGetCursorInfo($H)
If GUIGetMsg($H) = $GUI_EVENT_CLOSE Then _EXIT1()
If $mouse[2] = 1 Then
For $i1 = 1 to 3;Eingaben überprüfen
For $i2 = 1 to 3
If $mouse[4] = $Felder_Anzeige[$i1][$i2] and $Felder_Status[$i1][$i2] = 0 Then
$Felder_Status[$i1][$i2] = $AS
If $KI = false Then
If $AS = 1 Then
GUICtrlSetBkColor($Felder_Anzeige[$i1][$i2], $FARBE_S1)
$AS = 2
GUICtrlSetData($SA, "Aktuell am Zug: Spieler 2.")
Else
GUICtrlSetBkColor($Felder_Anzeige[$i1][$i2], $FARBE_S2)
$AS = 1
GUICtrlSetData($SA, "Aktuell am Zug: Spieler 1.")
EndIf
_GU()
Else
GUICtrlSetBkColor($Felder_Anzeige[$i1][$i2], $FARBE_S1)
$AS = 2
_GU()
If $AS = 2 Then
GUICtrlSetData($SA, "Aktuell am Zug: Der Computer.")
_KI()
_GU()
GUICtrlSetData($SA, "Aktuell am Zug: Spieler 1.")
$AS = 1
EndIf
EndIf
EndIf
Next
Next
Sleep(200)
EndIf
WEndFunc _EXIT1()
[/autoit] [autoit][/autoit] [autoit]
If MsgBox(36, "Wichtige Frage", "Wirklich beenden?") = 6 Then
Exit
EndIf
EndFunc ;==>_EXIT1Func _EXIT()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($SA, "Aktuell am Zug: Niemand!")
If MsgBox(36, "Wichtige Frage", "Nochmal spielen?") = 6 Then
For $i1 = 1 to 3;Felder Status auf 0 setzen
For $i2 = 1 to 3
$Felder_Status[$i1][$i2] = 0
Next
Next
For $i1 = 1 to 3;Felder Farbe auf Weiß setzen
For $i2 = 1 to 3
GUICtrlSetBkColor($Felder_Anzeige[$i1][$i2], 0xFFFFFF)
Next
Next
$AS = 1
GUICtrlSetData($SA, "Aktuell am Zug: Spieler 1.")
Else
Exit
EndIf
EndFunc ;==>_EXITFunc _GU()
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 to 2;Auf Gewinn überprüfen
If $Felder_Status[1][1] = $i and $Felder_Status[1][2] = $i and $Felder_Status[1][3] = $i Then
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Spalte 1")
_EXIT()
EndIf
If $Felder_Status[2][1] = $i and $Felder_Status[2][2] = $i and $Felder_Status[2][3] = $i Then
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Spalte 2")
_EXIT()
EndIf
If $Felder_Status[3][1] = $i and $Felder_Status[3][2] = $i and $Felder_Status[3][3] = $i Then
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Spalte 3")
_EXIT()
EndIfIf $Felder_Status[1][1] = $i and $Felder_Status[2][1] = $i and $Felder_Status[3][1] = $i Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Zeile 1")
_EXIT()
EndIf
If $Felder_Status[1][2] = $i and $Felder_Status[2][2] = $i and $Felder_Status[3][2] = $i Then
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Zeile 2")
_EXIT()
EndIf
If $Felder_Status[1][3] = $i and $Felder_Status[2][3] = $i and $Felder_Status[3][3] = $i Then
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Zeile 3")
_EXIT()
EndIfIf $Felder_Status[1][1] = $i and $Felder_Status[2][2] = $i and $Felder_Status[3][3] = $i Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Quer 1 (LO <-> RU)")
_EXIT()
EndIf
If $Felder_Status[1][3] = $i and $Felder_Status[2][2] = $i and $Felder_Status[3][1] = $i Then
MsgBox(0, "Tic-Tac-Toe", "Spieler " & $i & " gewinnt =>> Quer 2 (LU <-> RO)")
_EXIT()
EndIf
Next
If $Felder_Status[1][1] <> 0 and $Felder_Status[1][2] <> 0 and $Felder_Status[1][3] <> 0 and $Felder_Status[2][1] <> 0 and $Felder_Status[2][2] <> 0 and $Felder_Status[2][3] <> 0 and $Felder_Status[3][1] <> 0 and $Felder_Status[3][2] <> 0 and $Felder_Status[3][3] <> 0 Then
MsgBox(0, "Tic-Tac-Toe", "Unentschieden!")
_EXIT()
EndIf
EndFunc ;==>_GUFunc _KI()
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 to 3;Testen ob es eine reihe zu Blocken/Vervollständigen gibt.
If $Felder_Status[$i][1] <> 0 and $Felder_Status[$i][2] <> 0 Then
$NF = $Felder_Status[$i][3]
$NF_2 = $i
$NF_3 = 3
$R_V = true
ExitLoop
ElseIf $Felder_Status[$i][1] <> 0 and $Felder_Status[$i][3] <> 0 Then
$NF = $Felder_Status[$i][2]
$NF_2 = $i
$NF_3 = 2
$R_V = true
ExitLoop
ElseIf $Felder_Status[$i][2] <> 0 and $Felder_Status[$i][3] <> 0 Then
$NF = $Felder_Status[$i][1]
$NF_2 = $i
$NF_3 = 1
$R_V = true
ExitLoopElseIf $Felder_Status[1][$i] <> 0 and $Felder_Status[2][$i] <> 0 Then
[/autoit] [autoit][/autoit] [autoit]
$NF = $Felder_Status[3][$i]
$NF_2 = 3
$NF_3 = $i
$R_V = true
ExitLoop
ElseIf $Felder_Status[1][$i] <> 0 and $Felder_Status[3][$i] <> 0 Then
$NF = $Felder_Status[2][$i]
$NF_2 = 2
$NF_3 = $i
$R_V = true
ExitLoop
ElseIf $Felder_Status[2][$i] <> 0 and $Felder_Status[3][$i] <> 0 Then
$NF = $Felder_Status[1][$i]
$NF_2 = 1
$NF_3 = $i
$R_V = true
ExitLoopElseIf $Felder_Status[1][1] = $i and $Felder_Status[2][2] = $i Then
[/autoit] [autoit][/autoit] [autoit]
$NF = $Felder_Status[3][3]
$NF_2 = 3
$NF_3 = 3
$R_V = true
ExitLoop
ElseIf $Felder_Status[3][3] = $i and $Felder_Status[2][2] = $i Then
$NF = $Felder_Status[1][1]
$NF_2 = 1
$NF_3 = 1
$R_V = true
ExitLoop
ElseIf $Felder_Status[1][1] = $i and $Felder_Status[3][3] = $i Then
$NF = $Felder_Status[2][2]
$NF_2 = 2
$NF_3 = 2
$R_V = true
ExitLoopElseIf $Felder_Status[1][3] = $i and $Felder_Status[2][2] = $i Then
[/autoit] [autoit][/autoit] [autoit]
$NF = $Felder_Status[3][1]
$NF_2 = 3
$NF_3 = 1
$R_V = true
ExitLoop
ElseIf $Felder_Status[3][1] = $i and $Felder_Status[2][2] = $i Then
$NF = $Felder_Status[1][3]
$NF_2 = 1
$NF_3 = 3
$R_V = true
ExitLoop
ElseIf $Felder_Status[1][3] = $i and $Felder_Status[3][1] = $i Then
$NF = $Felder_Status[2][2]
$NF_2 = 2
$NF_3 = 2
$R_V = true
ExitLoop
Else
$R_V = false
EndIf
NextIf $R_V = true Then;Testen ob gefundenes Feld unbelegt ist
[/autoit] [autoit][/autoit] [autoit]
If $NF = 0 Then
$Felder_Status[$NF_2][$NF_3] = 2
GUICtrlSetBkColor($Felder_Anzeige[$NF_2][$NF_3], $FARBE_S2)
Else
$R_V = false
EndIf
EndIfIf $R_V = false Then;Solange ein Feld per Zufall aussuchen, bis eins gefunden ist, dass frei ist.
[/autoit]
Do
$R1 = Random(1, 3, 1)
$R2 = Random(1, 3, 1)
Until $Felder_Status[$R1][$R2] = 0
$Felder_Status[$R1][$R2] = 2
GUICtrlSetBkColor($Felder_Anzeige[$R1][$R2], $FARBE_S2)
EndIf
EndFunc ;==>_KI
Lob/Kritik/Verbesserungsvorschläge werden immer gerne gesehen.
-
Schneller und ohne zusätzliche Installationen geht's mit dieser Website: http://www.farb-tabelle.de/de/farbtabelle.htm
-
Auch von mir alles gute zum Geburtstag!