Beiträge von L3viathan
-
-
Schneller gehts mit Select, gucks dir einfach in der Hilfe an.
-
Bitte [ autoit ]-Tags verwenden.
Spoiler anzeigen
[autoit]loop()
[/autoit] [autoit][/autoit] [autoit]
func loop()
while 1
switch GUIGetMsg($gui1)
case $esc
exitloop
case $GUI_EVENT_CLOSE
exitloop
case $ok
$auf = guictrlread($auf)
$mas = guictrlread($mas)
$ter = guictrlread($ter)
$kun = guictrlread($kun)
$nr = guictrlread($nr)
$bez = GUICtrlRead($bez)
$kon = GUICtrlRead($kon)
if $auf = "" then
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Auftragsnummer aus!")
ContinueLoop
EndIfif $mas = "" then
[/autoit] [autoit][/autoit] [autoit]
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Maschine aus!")
ContinueLoop
EndIfif $ter = "" then
[/autoit] [autoit][/autoit] [autoit]
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Termin aus!")
ContinueLoop
EndIf
if $kun = "" then
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Kunde aus!")
ContinueLoop
EndIfif $nr = "" then
[/autoit] [autoit][/autoit] [autoit]
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Maschinen Nummer aus!")
ContinueLoop
EndIf
if $bez = "" then
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Maschinen Bezeichnung aus!")
ContinueLoop
EndIfif $kon = "" then
[/autoit]
msgbox (16, "Pflichtfelder", "Bitte füllen Sie das Feld Konstrukteur aus!")
ContinueLoop
EndIf
main()
EndSwitch
WEnd
endfunc -
-
-
Wollte nur wissen obs solche Funktionen auch in Autoit gibt. (wenn ja, wie heißen sie ? )
Guck dir die Hilfe an:
ControlSend
Send -
Ich spiele S.O nicht und habe es auch nicht vor, deshalb weiß ich nicht, wie man das erkennen kann.
[autoit]
Ändert sich eine zuvor feststehende Farbe in einem Bereich? Dann probier mal PixelGetColor oder PixelChecksum.
Das Enter dann in einer Schleife mit Sleep, etwa:
[/autoit]
Do
Send("{ENTER}")
sleep(100)
Until PixelGetColor($x,$y) = $wert
edit: @Hellwave: Schlechte Idee, Endlosschleife. -
-
-
den Beitrag, er hatte wohl was geschrieben und wieder gelöscht
-
Alles anzeigen
Und was ist das überhaupt für ein komischer RGB-Wert, der da raus kommt:
11250603
Was soll das bedeuten?
Ist RGB nicht z.B. 255 255 255?
112 50 603 kanns ja nicht sein^^
11 250 603 auch nicht
112 506 03 auch nicht???????Hex($color)
-
Ich würde sagen du brauchst $COLOR_APPWORKSPACE
-
Ich würd das ja so machen, was bringt denn das If da? (leider bin ich falsch informiert...)
-
Was soll denn bitte If(1)?
Kannst du das nicht weglassen? -
wo siehst du da nen witz?
des mit galenda?Padmak
Das Galenda tausendmal komplexer ist vielleicht? -
Wieso ehrlich?
Ich hab auch ein ähnliches Script geschrieben, ganz allein:Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$intro = GUICreate("Villigers", 625, 445, 193, 125)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0xC0C0C0)
$load = GUICtrlCreateProgress(224, 208, 193, 25)
GUICtrlCreateLabel("Now Loading ...", 224, 176, 79, 17)
GUISetState(@SW_SHOW)$s = 0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
do
$s = $s + 1
sleep(30)
guictrlsetdata($load, $s)
until $s = 100
sleep(1500)
guisetstate(0)#Region #### Initialisieren ####
[/autoit] [autoit][/autoit] [autoit]
$Form2 = GUICreate("Villigers", 625, 445, 193, 125)
$Button1 = GUICtrlCreateButton("Frei", 192, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("Frei", 240, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button3 = GUICtrlCreateButton("Frei", 288, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button4 = GUICtrlCreateButton("Frei", 192, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button5 = GUICtrlCreateButton("Frei", 192, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button6 = GUICtrlCreateButton("Frei", 240, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button7 = GUICtrlCreateButton("Frei", 288, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button8 = GUICtrlCreateButton("Frei", 288, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button9 = GUICtrlCreateButton("Lager", 240, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Group1 = GUICtrlCreateGroup("Recourcen", 0, 296, 137, 145)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Label1 = GUICtrlCreateLabel("Holz", 8, 336, 25, 17)
$Label2 = GUICtrlCreateLabel("Stein", 8, 368, 28, 17)
$Label3 = GUICtrlCreateLabel("Gold", 8, 400, 26, 17)
$holzw = GUICtrlCreateLabel("0", 56, 336, 15, 17)
$steinw = GUICtrlCreateLabel("0", 56, 368, 15, 17)
$goldw = GUICtrlCreateLabel("0", 56, 400, 20, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button10 = GUICtrlCreateButton("Kaufen", 192, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button11 = GUICtrlCreateButton("Kaufen", 240, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button12 = GUICtrlCreateButton("Kaufen", 288, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button13 = GUICtrlCreateButton("Kaufen", 336, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button14 = GUICtrlCreateButton("Kaufen", 336, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button15 = GUICtrlCreateButton("Kaufen", 336, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button16 = GUICtrlCreateButton("Kaufen", 336, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button17 = GUICtrlCreateButton("Kaufen", 384, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button18 = GUICtrlCreateButton("Kaufen", 432, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button19 = GUICtrlCreateButton("Kaufen", 432, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button20 = GUICtrlCreateButton("Kaufen", 384, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button21 = GUICtrlCreateButton("Kaufen", 432, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button22 = GUICtrlCreateButton("Kaufen", 384, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button23 = GUICtrlCreateButton("Kaufen", 432, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button24 = GUICtrlCreateButton("Kaufen", 384, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$rbee = GUICtrlCreateButton("Runde beenden", 480, 328, 129, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$fst = GUICtrlCreateButton("Forschungstrupp schicken", 240, 408, 145, 25, 0)
$attk = GUICtrlCreateButton("Feind angreifen", 408, 408, 89, 25, 0)
$Group2 = GUICtrlCreateGroup("Truppen", 8, 8, 137, 153)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Label4 = GUICtrlCreateLabel("Bogenschützen", 24, 32, 78, 17)
$Label5 = GUICtrlCreateLabel("Schwertkämpfer", 24, 56, 81, 17)
$Label6 = GUICtrlCreateLabel("Lanzenträger", 24, 80, 66, 17)
$Label7 = GUICtrlCreateLabel("Ritter", 24, 104, 29, 17)
$bgsw = GUICtrlCreateLabel("0", 112, 32, 15, 17)
$swkw = GUICtrlCreateLabel("0", 112, 56, 15, 17)
$lztw = GUICtrlCreateLabel("0", 112, 80, 15, 17)
$rtrw = GUICtrlCreateLabel("0", 112, 104, 15, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $form2)
#EndRegion #### Initialisieren#Region #### BAUEN ####
[/autoit] [autoit][/autoit] [autoit]
$bauen = GUICreate("Bauen", 232, 382, 190, 123)
$kaserne = GUICtrlCreateButton("Kaserne", 8, 8, 65, 65, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$kaserne1 = GUICtrlCreateLabel("In der Kaserne kannst du ", 80, 8, 126, 17)
$kaserne2 = GUICtrlCreateLabel("Krieger ausbilden.", 80, 24, 88, 17)
$kaserne3 = GUICtrlCreateLabel("Kosten: 20 Stein 10 Holz", 80, 48, 136, 17)
$gehoef = GUICtrlCreateButton("Gehöf", 8, 80, 65, 65, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$gehoef1 = GUICtrlCreateLabel("Das Gehöf bringt dir 6 neue ", 80, 88, 137, 17)
$gehoef2 = GUICtrlCreateLabel("Bauern die du zu Kriegern ", 80, 104, 129, 17)
$gehoef3 = GUICtrlCreateLabel("ausbilden kannst", 80, 120, 84, 17)
$gehoef4 = GUICtrlCreateLabel("Kosten: 5 Stein 10 Holz", 80, 136, 139, 17)
$kaserne4 = GUICtrlCreateLabel("50 Gold", 152, 64, 44, 17)
$for = GUICtrlCreateButton("Forschungshaus", 8, 160, 89, 65, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$for1 = GUICtrlCreateLabel("Du kannst Forschungs- ", 104, 168, 117, 17)
$for2 = GUICtrlCreateLabel("Trupps losschicken, die ", 104, 184, 119, 17)
$for3 = GUICtrlCreateLabel("nach Recourcen suchen.", 104, 200, 125, 17)
$for4 = GUICtrlCreateLabel("Kosten: 15 Stein 10 Holz", 104, 216, 124, 17)
$hlz = GUICtrlCreateButton("Holzfäller", 8, 240, 65, 65, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$hlz1 = GUICtrlCreateLabel("Du bekommst am Rundenende", 80, 240, 151, 17)
$hlz2 = GUICtrlCreateLabel("mehr Holz.", 80, 256, 54, 17)
$hlz3 = GUICtrlCreateLabel("Kosten: 10 Holz 10 Gold", 80, 280, 150, 25)
$stn = GUICtrlCreateButton("Steinmetzt", 8, 312, 65, 65, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$stn1 = GUICtrlCreateLabel("Du bekommst am Rundenende", 80, 312, 151, 17)
$stn2 = GUICtrlCreateLabel("mehr Stein", 80, 328, 54, 17)
$stn3 = GUICtrlCreateLabel("Kosten: 10 Stein 10 Gold", 80, 344, 134, 25)#EndRegion #### BAUEN ####
[/autoit] [autoit][/autoit] [autoit]$bauern = 0
[/autoit] [autoit][/autoit] [autoit]
$holz = 30
$stein = 35
$gold = 99
$bgs = 0
$swk = 0
$rtr = 0
$steind = 1
$holzd = 1
$goldd = 1
$k10 = 0
$k11 = 0
$k12 = 0
$k13 = 0
$k14 = 0
$k15 = 0
$k16 = 0
$k17 = 0
$k18 = 0
$k19 = 0
$k20 = 0
$k21 = 0
$k22 = 0
$k23 = 0
$k24 = 0
$dobuy = 0While 1
[/autoit] [autoit][/autoit] [autoit]
$dobuy = 0
$msg = guigetmsg()
guictrlsetdata($holzw, $holz)
GUICtrlSetData($steinw, $stein)
guictrlsetdata($goldw, $gold)
guictrlsetdata($bgsw, $bgs)
GUICtrlSetData($swkw, $swk)
GUICtrlSetData($rtrw, $rtr)
Select
case $msg = $fst
case $msg = $attk
case $msg = $Button1
$btng = $Button1
$nr = 1
main()
case $msg = $Button2
$nr = 2
$btng = $Button2
main()
case $msg = $Button3
$nr = 3
$btng = $Button3
main()
case $msg = $Button4
$nr = 4
$btng = $Button4
main()
case $msg = $Button5
$nr = 5
$btng = $Button5
main()
case $msg = $Button6
$nr = 6
$btng = $Button6
main()
case $msg = $Button7
$nr = 7
$btng = $Button7
main()
case $msg = $Button8
$nr = 8
$btng = $Button8
main()
case $msg = $Button9
msgbox(0, '', 'Du kannst hier nichts bauen')
case $msg = $Button10
$nr = 10
$btng = $Button10
main()
case $msg = $Button11
$nr = 11
$btng = $Button11
main()
case $msg = $Button12
$nr = 12
$btng = $Button12
main()
case $msg = $Button13
$nr = 13
$btng = $Button13
main()
case $msg = $Button14
$nr = 14
$btng = $Button14
main()
case $msg = $Button15
$nr = 15
$btng = $Button15
main()
case $msg = $Button16
$nr = 16
$btng = $Button16
main()
case $msg = $Button17
$nr = 17
$btng = $Button17
main()
case $msg = $Button18
$nr = 18
$btng = $Button18
main()
case $msg = $Button19
$nr = 19
$btng = $Button19
main()
case $msg = $Button20
$nr = 20
$btng = $Button20
main()
case $msg = $Button21
$nr = 21
$btng = $Button21
main()
case $msg = $Button22
$nr = 22
$btng = $Button22
main()
case $msg = $Button23
$nr = 23
$btng = $Button23
main()
case $msg = $Button24
$nr = 24
$btng = $Button24
main()
case $msg = $rbee
beep(500, 100)
$holz = $holz+$holzd
$stein = $stein+$steind
$gold = $gold+$goldd
case $msg = $GUI_EVENT_CLOSE
guisetstate(0, $bauen)
EndSelect
WEnd
func main()
if $nr < 10 then $allow = 1
if $nr = 10 Then
if $k10 = 0 then
$allow = 0
EndIf
if $k10 = 1 then $allow = 1
EndIf
if $nr = 11 Then
if $k11 = 0 then
$allow = 0
EndIf
if $k11 = 1 then $allow = 1
EndIf
if $nr = 12 Then
if $k12 = 0 then
$allow = 0
EndIf
if $k12 = 1 then $allow = 1
EndIf
if $nr = 13 Then
if $k13 = 0 then
$allow = 0
EndIf
if $k13 = 1 then $allow = 1
EndIf
if $nr = 14 Then
if $k14 = 0 then
$allow = 0
EndIf
if $k14 = 1 then $allow = 1
EndIf
if $nr = 15 Then
if $k15 = 0 then
$allow = 0
EndIf
if $k15 = 1 then $allow = 1
EndIf
if $nr = 16 Then
if $k16 = 0 then
$allow = 0
EndIf
if $k16 = 1 then $allow = 1
EndIf
if $nr = 17 Then
if $k17 = 0 then
$allow = 0
EndIf
if $k17 = 1 then $allow = 1
EndIf
if $nr = 18 Then
if $k18 = 0 then
$allow = 0
EndIf
if $k18 = 1 then $allow = 1
EndIf
if $nr = 19 Then
if $k19 = 0 then
$allow = 0
EndIf
if $k19 = 1 then $allow = 1
EndIf
if $nr = 20 Then
if $k20 = 0 then
$allow = 0
EndIf
if $k20 = 1 then $allow = 1
EndIf
if $nr = 21 Then
if $k21 = 0 then
$allow = 0
EndIf
if $k21 = 1 then $allow = 1
EndIf
if $nr = 22 Then
if $k22 = 0 then
$allow = 0
EndIf
if $k22 = 1 then $allow = 1
EndIf
if $nr = 23 Then
if $k23 = 0 then
$allow = 0
EndIf
if $k23 = 1 then $allow = 1
EndIf
if $nr = 24 Then
if $k24 = 0 then
$allow = 0
EndIf
if $k24 = 1 then $allow = 1
EndIf
if $allow = 1 then
GUISetState(@SW_SHOW, $bauen)
Do
$msg = GUIGetMsg($bauen)
Select
case $msg = $kaserne
if $stein < 20 then msgbox(0, '', 'Du hast nich genügend Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $gold < 50 then msgbox(0, '', 'Du hast zu wenig Gold')
if $gold > 49 Then
if $stein > 19 Then
if $holz > 9 Then
$stein = $stein - 20
$holz = $holz - 10
$gold = $gold - 50
$goldd = $goldd + 5
guictrlsetdata($btng, 'Kaserne')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
endif
EndIf
Case $msg = $gehoef
if $stein < 5 then msgbox(0, '', 'Du hast zu wenig Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $stein > 4 Then
if $holz > 9 Then
$stein = $stein - 5
$holz = $holz - 10
$bauern = $bauern + 6
guictrlsetdata($btng, 'Gehöft')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf
Case $msg = $for
if $stein < 15 then msgbox(0, '', 'Du hast zu wenig Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $stein > 14 Then
if $holz > 9 Then
$stein = $stein - 15
$holz = $holz - 10
$forschungen = 1
guictrlsetdata($btng, 'Forschung')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf
Case $msg = $hlz
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $gold < 10 then msgbox(0, '', 'Du hast zu wenig Gold')
if $gold > 9 Then
if $holz > 9 Then
$holz = $holz - 10
$gold = $gold - 10
$holzd = $holzd + 5
GUICtrlSetData($btng, 'Holzfäller')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf
Case $msg = $stn
if $stein < 10 then msgbox(0, '', 'Du hast zu wenig Stein')
if $gold < 10 Then msgbox(0, '', 'Du hast zu wenig Gold')
if $stein > 9 then
if $gold > 9 Then
$gold = $gold - 10
$stein = $stein - 10
$steind = $steind + 5
guictrlsetdata($btng, 'Steinmetzt')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf
Case $msg = $GUI_EVENT_CLOSE
$dobuy = 1
EndSelectuntil $dobuy = 1
[/autoit]
EndIf
if $allow = 0 then buy()
EndFunc
func buy()
$kaufen = msgbox(4, 'Kaufen', 'Möchtest du das Feld für 100 Gold kaufen?')
if $kaufen = 6 then
if $gold < 100 then msgbox(0, '', 'Du hast zu wenig Gold!')
if $gold > 99 then
$gold = $gold - 100
guictrlsetdata($btng, 'Frei')
GUICtrlSetBkColor($btng, 0x00FF00)
if $nr = 10 then $k10 = 1
if $nr = 11 then $k11 = 1
if $nr = 12 then $k12 = 1
if $nr = 13 then $k13 = 1
if $nr = 14 then $k14 = 1
if $nr = 15 then $k15 = 1
if $nr = 16 then $k16 = 1
if $nr = 17 then $k17 = 1
if $nr = 18 then $k18 = 1
if $nr = 19 then $k19 = 1
if $nr = 20 then $k20 = 1
if $nr = 21 then $k21 = 1
if $nr = 22 then $k22 = 1
if $nr = 23 then $k23 = 1
if $nr = 24 then $k24 = 1
EndIf
EndIf
EndFunc
Tipp: mach an den Anfang einen Kommentar rein -
-
Select müsste schneller sein als if, aber hu nows
-
Also ist es egal welche variable ich nehme und ich kann imer 1 hinschreiben?
[autoit]
[/autoit]
switch 1
case $x>$Objekte[0][3]-$Objekte[$number][3]
$x=$Objekte[0][3]-$Objekte[$number][3]
$return=1
endswitch
Ja, theoretisch. Aber dann ist Switch auch nicht mehr schneller als Select.... -
Select ist eigentlich nur Switch True.
[autoit]
Manchmal kann man halt Switch nicht verwenden, nur bei sowas:
[/autoit]
Switch $antwort
Case 2
;sdadasdf
Case 4
;asdfasf
Case Else
;afasf
EndSwitch
and-verknüpfungen gehen in Switch und Select auch.