keiner ne Idee? auf keine Frage? dann muss ich halt noch mehr warten
Beiträge von Scripter192
-
-
Wie kann man in einem "ListView" Dateien anzeigen lassen die sich in einem bestimmten Ordner befinden?
Also ich hab jetzt in nem GUI nen ListView und möchte in der den Inhalt von z.B: C:\ anzeigen lassen. (Nur die .exe)
Geht das Überhaupt?
Und dann noch was : wie kann man ein Script schreiben, dass eine datei ( .txt ) im internet runterläd, und den Inhahlt ließt?
Und dann nooooch was xD : Wie kann man eine HTML Seite anzeigen lassen?Hoffe auf schnelle Antwort
Thx im Vorraus MFg Scripter192
-
Ich sag nur Endlosspiel :p . Man kann nur verlieren ^^. Das mit dem Rechtscheibfehlern is mir auch jetzt grad aufgefallen... Wird ich ausbessern ....
-
Joa Sorry zu der unübersichtlichkeit :p . Das wegen dem Spoiler hab ich nich gewusst... aber jetzt is ja nen download da
-
Thx für die antwort funtioniert jetzt
-
Endlich ist mein Script fertig hoffe alle Bugs sind behoben und alle eure Wünsche erfüllt xD .
Bitte um FeedbackThx Im Vorraus
Stand 09.03.09
/Edit Sry wegen meinen Programmier Stil XDDD einfach starten und nich reingucken :p
MFG Scripter192
-
Endlich ist mein Script fertig hoffe alle Bugs sind behoben und alle eure Wünsche erfüllt xD .
Bitte um FeedbackThx Im Vorraus
Stand 09.03.09
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
TraySetClick("9")
#region ##### INTRO #####
$Form1 = GUICreate("Intro", 625, 442, 221, 128, $WS_POPUP,0)
GUISetCursor (15)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Scripted by Scripter192", 64, 48, 464, 60)
GUICtrlSetFont($Label1, 30, 400, 0, "Comic Sans MS")
GUICtrlSetBkColor($Label1, 0xFFFFFF)$Label3 = GUICtrlCreateLabel("Visit http://www.steruma.npage.de", 48, 152, 521, 60)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor($Label3, 0xFFFFFF)
GUICtrlSetFont($Label3, 30, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW, $Form1)$trans = 0
[/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit]
sleep(15)
$trans = $trans + 1
WinSetTrans($Form1, '', $trans)
until $trans = 240
sleep(2000)
do
sleep(15)
$trans = $trans - 1
winsettrans($Form1, '', $trans)
until $trans = 0
guisetstate(0, $Form1)
sleep(2000)
#endregion ##### INTRO #####$intro = GUICreate("Villigers", 625, 445, 193, 125, $WS_POPUP, 0)
[/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]
do
$s = $s + 1
sleep(30)
guictrlsetdata($load, $s)
until $s = 100
sleep(1500)
guisetstate(0)
$text = 'Dieser Text solle jetzt der Maus folgen'
#cs ######################################## AUSER FUNKTION ##################################################
#region ### MAUSZEIGER ###
$mauszeiger = guicreate('Mauszeiger', @Desktopwidth, @Desktopheight)
$mausbild = GUICtrlCreateLabel($text, 0, 0)
guisetstate(@SW_SHOW, $mauszeiger)
winsetontop($mauszeiger, '', 1)
WinSetTrans($mauszeiger, '', 210)
#EndRegion ### MAUSZEIGER ###
#ce ####################################### AUSER FUNKTION ######################################################
#Region #### Initialisieren ####
$Form2 = GUICreate("Villigers", 625, 455, 193, 140)
$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, 30, 40)
$steinw = GUICtrlCreateLabel("0", 56, 368, 30, 40)
$goldw = GUICtrlCreateLabel("0", 56, 400, 30, 40)
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)
GUICtrlCreateLabel("Runde:", 464, 24, 66, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$welcherunde = GUICtrlCreateLabel("0", 536, 24, 40, 25)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")GUICtrlSetBkColor(-1, 0xA0A0A4)
[/autoit] [autoit][/autoit] [autoit]
$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, 30, 25)
$swkw = GUICtrlCreateLabel("0", 112, 56, 30, 25)
$lztw = GUICtrlCreateLabel("0", 112, 80, 30, 25)
$rtrw = GUICtrlCreateLabel("0", 112, 104, 30, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)Opt("TrayMenuMode", 1)
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
TraySetClick("9")
$msz = TrayCreateItem("Mauszeiger ändern")
$end = TrayCreateItem("Beenden")
$1 = guictrlcreatemenu('Speichern/Laden')
$sp = GUICtrlCreateMenuItem('Spiel Speichern', $1)
$ld = GUICtrlCreateMenuItem('Laden', $1)
$hilfe = GUICtrlCreateMenu('Hilfe')
$anl = GUICtrlCreateMenuItem('Spielanleitung', $hilfe)
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]#Region ### Anleitung ###
[/autoit] [autoit][/autoit] [autoit]
$anleitung = GUICreate("Anleitung", 544, 359, 191, 124)
$Label1 = GUICtrlCreateLabel("Anleitung:", 8, 16, 120, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("In dem Spiel geht es darum, so schnell wie möglich viele Reccourcen zu gewinnen und Soldaten auszubilden,", 8, 64, 521, 17)
$Label3 = GUICtrlCreateLabel("befor der Feind dich angreift und dein Dorf zerstört. Ziel ist es den Feind so schnell wie möglich ( Rundenanzahl)", 8, 80, 529, 17)
$Label4 = GUICtrlCreateLabel("zu vernichten.", 8, 96, 71, 17)
$Label5 = GUICtrlCreateLabel("Du kannst auf die Frei Felder ein Gebäude bauen. Die Kaufen Felder musst du dir erst noch kaufen um darauf zu", 8, 128, 534, 17)
$Label6 = GUICtrlCreateLabel("bauen.", 8, 144, 37, 17)
$Label7 = GUICtrlCreateLabel("Mit dem Feind angreifen Button, kannst du den Feind mit deinen Truppen angreifen.", 8, 168, 398, 17)
$Label8 = GUICtrlCreateLabel("Mit dem Forschungstrupp schicken kannst du Truppen auf die Suche nach Reccourcen schiken, alerdings nur,", 8, 192, 529, 17)
$Label9 = GUICtrlCreateLabel("wenn du ein Forschungshaus besitzt", 8, 208, 176, 17)
$Label10 = GUICtrlCreateLabel("Mit dem Runde beenden Button kannst du die nächste Runde beginnen. Es werden dir neue Reccourcen", 8, 232, 504, 17)
$Label11 = GUICtrlCreateLabel("zugeschrieben.", 8, 248, 76, 17)
$Label12 = GUICtrlCreateLabel("Viel Spass beim Spielen. Bei Unklarheiten: einfach ausprobieren oder : ruf.stefan@yahoo.com", 8, 280, 451, 17)#EndRegion ### Anleitung ###
[/autoit] [autoit][/autoit] [autoit]#region ### Kaserne ###
[/autoit] [autoit][/autoit] [autoit]
$kasernegui = GUICreate("Kaserne", 526, 258, 210, 568)
$L23 = GUICtrlCreateLabel("Kaserne", 8, 0, 74, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$La324 = GUICtrlCreateLabel("Hier kannst du Truppen ausbilden:", 8, 32, 167, 17)
$bogis = GUICtrlCreateButton("Bogenschützen", 8, 56, 89, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$schwertis = GUICtrlCreateButton("Schwertkämpfer", 8, 128, 91, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$lanzis = GUICtrlCreateButton("Lanzenträger", 248, 56, 89, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$rittis = GUICtrlCreateButton("Ritter", 248, 143, 89, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$La2343 = GUICtrlCreateLabel("Bogenschützen sind die 2.", 104, 56, 129, 17)
$La2344 = GUICtrlCreateLabel("schwächsten Einheiten.", 104, 72, 117, 17)
$Lab234 = GUICtrlCreateLabel("Lanzenträger sind zwar billig", 344, 56, 136, 17)
$La234bel6 = GUICtrlCreateLabel("aber auch die schlechtesten", 344, 72, 138, 17)
$Lab234el7 = GUICtrlCreateLabel("Einheiten im Spiel", 344, 88, 87, 17)
$Lab234el8 = GUICtrlCreateLabel("Schwertkämpfer sind die 2.", 104, 128, 135, 17)
$Lab234el9 = GUICtrlCreateLabel("besten Einheiten im Spiel", 104, 144, 122, 17)
$Lab234el10 = GUICtrlCreateLabel("Ritter sind die besten Einhei-", 344, 143, 138, 17)
$Lab324el11 = GUICtrlCreateLabel("ten im Spiel", 344, 159, 58, 17)
$Lab234el12 = GUICtrlCreateLabel("Kosten: 10 Holz", 344, 104, 145, 17)
$Lab324el13 = GUICtrlCreateLabel("Kosten: 20 Holz 1 Stein", 96, 88, 145, 17)
$Label23414 = GUICtrlCreateLabel("Kosten: 30 Gold 20 Holz ", 104, 162, 136, 14)
$Label32415 = GUICtrlCreateLabel("Kosten: 40 Gold 30 Holz ", 344, 183, 128, 14)
$Label1 = GUICtrlCreateLabel("5 Stein", 176, 176, 37, 17)
$Label2 = GUICtrlCreateLabel("10 Stein", 416, 200, 43, 17)
#EndRegion ### Kaserne ###
#region ### Forschen ###$fosch = GUICreate("Forschungstrupp", 586, 339, 197, 128)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Forschungstrupp", 8, 8, 204, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Mit einem Forschungstrupp kannst du Reccourcen wie Stein, Holz aber vor allem Gold finden. Der Nachteil dabei ist aber", 8, 56, 573, 17)
GUICtrlCreateLabel("dass wenn du einen Forschungstrupp losschickst, nicht alle Truppen zurrück kehren. Viele Leute werden vor Erschöpf-", 8, 72, 564, 17)
GUICtrlCreateLabel("ung zu Grunde gehen. Dennoch bekommst du die Reccourcen.", 8, 88, 305, 17)
GUICtrlCreateLabel("Einheiten losschicken:", 8, 112, 193, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Lanzenträger :", 8, 152, 72, 17)
GUICtrlCreateLabel("Bogenschützen:", 8, 176, 81, 17)
GUICtrlCreateLabel("Schwertkämpfer:", 8, 200, 84, 17)
GUICtrlCreateLabel("Ritter:", 8, 224, 35, 17)
$forschl = GUICtrlCreateInput("0", 118, 146, 40, 21)
GuiCtrlCreateUpDown(-1)
$forschb = GUICtrlCreateInput("0", 118, 170, 40, 21)
GuiCtrlCreateUpDown(-1)
$forschs = GUICtrlCreateInput("0", 118, 194, 40, 21)
GuiCtrlCreateUpDown(-1)
$forschr = GUICtrlCreateInput("0", 118, 218, 40, 21)
GuiCtrlCreateUpDown(-1)
$acc = GUICtrlCreateButton("Losschicken", 40, 272, 75, 25, 0)
$all = GUICtrlCreateButton("Alle verfügbaren Einheiten auswählen", 216, 144, 195, 25, 0)
$null = GUICtrlCreateButton("Keine Einheiten auswählen", 216, 176, 195, 25, 0)#endregion ### Forschen ###
[/autoit] [autoit][/autoit] [autoit]#region ### ANGREIFEN ###
[/autoit] [autoit][/autoit] [autoit]
$angriff = GUICreate("Angreifen", 570, 320, 191, 128)
$label = GUICtrlCreateLabel("Angreifen", 16, 16, 118, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Mit welchen Einheiten willst du angreifen?", 16, 64, 201, 17)
$allee = GUICtrlCreateButton("Alle Einheiten wählen", 272, 112, 203, 25, 0)
$keinee = GUICtrlCreateButton("Keine Einheiten wählen", 272, 144, 201, 25, 0)
$agree = GUICtrlCreateButton("Angreifen", 16, 280, 97, 25, 0)
$Label3 = GUICtrlCreateLabel("Lanzenträger", 16, 88, 66, 17)
$Label4 = GUICtrlCreateLabel("Bogenschützen", 16, 112, 78, 17)
$Label5 = GUICtrlCreateLabel("Schwertkämpfer", 16, 136, 81, 17)
$Label6 = GUICtrlCreateLabel("Ritter", 16, 160, 29, 17)
$inlzt = GUICtrlCreateInput("0", 120, 88, 40, 21)
GUICtrlCreateUpdown(-1)
$inbgs = GUICtrlCreateInput("0", 120, 112, 40, 21)
GUICtrlCreateUpdown(-1)
$inswk = GUICtrlCreateInput("0", 120, 136, 40, 21)
GUICtrlCreateUpdown(-1)
$inrtr = GUICtrlCreateInput("0", 120, 160, 40, 21)
GUICtrlCreateUpdown(-1)
$Label7 = GUICtrlCreateLabel("Info: Das Angreifen kann bis zu 4 Runden gehen...", 16, 232, 244, 17)
#EndRegion ### ANGREIFEN ####region ### Kampf ###
[/autoit] [autoit][/autoit] [autoit]
$ergebniss = GUICreate("Kampf", 670, 598, 192, 136)
$Label1 = GUICtrlCreateLabel("Spieler", 24, 16, 63, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Gegner", 504, 16, 68, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("vs.", 296, 56, 27, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Lanzenträger: ", 16, 64, 72, 17)
$Label5 = GUICtrlCreateLabel("Bogenschützen:", 16, 88, 81, 17)
$Label6 = GUICtrlCreateLabel("Schwertkämpfer:", 16, 112, 84, 17)
$Label7 = GUICtrlCreateLabel("Ritter:", 16, 136, 32, 17)
$Label8 = GUICtrlCreateLabel("Lanzenträger: ", 488, 56, 72, 17)
$Label9 = GUICtrlCreateLabel("Bogenschützen:", 488, 80, 81, 17)
$Label10 = GUICtrlCreateLabel("Schwertkämpfer:", 488, 104, 84, 17)
$Label11 = GUICtrlCreateLabel("Ritter:", 488, 128, 32, 17)
$Label12 = GUICtrlCreateLabel("Nach dem Kampf:", 232, 224, 155, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("Lanzenträger: ", 32, 344, 72, 17)
$Label14 = GUICtrlCreateLabel("Bogenschützen:", 32, 368, 81, 17)
$Label15 = GUICtrlCreateLabel("Schwertkämpfer:", 32, 392, 84, 17)
$Label16 = GUICtrlCreateLabel("Ritter:", 32, 416, 32, 17)
$Label17 = GUICtrlCreateLabel("Lanzenträger: ", 488, 344, 72, 17)
$Label18 = GUICtrlCreateLabel("Bogenschützen:", 488, 368, 81, 17)
$Label19 = GUICtrlCreateLabel("Schwertkämpfer:", 488, 392, 84, 17)
$Label20 = GUICtrlCreateLabel("Ritter:", 488, 416, 32, 17)
$Label21 = GUICtrlCreateLabel("GEWINNER: ", 160, 520, 117, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$an1 = GUICtrlCreateLabel("Label22", 120, 64, 42, 17)
$an2= GUICtrlCreateLabel("Label23", 120, 88, 42, 17)
$an3 = GUICtrlCreateLabel("Label24", 120, 112, 42, 17)
$an4 = GUICtrlCreateLabel("Label25", 120, 136, 42, 17)
$an5 = GUICtrlCreateLabel("Label26", 128, 344, 42, 17)
$an6 = GUICtrlCreateLabel("Label27", 128, 368, 42, 17)
$an7 = GUICtrlCreateLabel("Label28", 128, 392, 42, 17)
$an8 = GUICtrlCreateLabel("Label29", 128, 416, 42, 17)
$an9 = GUICtrlCreateLabel("Label30", 584, 56, 42, 17)
$an10 = GUICtrlCreateLabel("Label31", 584, 80, 42, 17)
$an11 = GUICtrlCreateLabel("Label32", 584, 104, 42, 17)
$an12 = GUICtrlCreateLabel("Label33", 584, 128, 42, 17)
$an13 = GUICtrlCreateLabel("Label34", 584, 344, 42, 17)
$an14 = GUICtrlCreateLabel("Label35", 584, 368, 42, 17)
$an15 = GUICtrlCreateLabel("Label36", 584, 392, 42, 17)
$an16 = GUICtrlCreateLabel("Label37", 584, 416, 42, 17)
$winner = GUICtrlCreateLabel("Label38", 312, 520, 70, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
#endregion ### Kampf ###
#region ### CHEAT ###
$cheat = GUICreate("Cheats", 261, 64, 303, 219)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Bitte Cheat- Code eingeben:", 8, 8, 137, 17)
GUICtrlSetColor(-1, 0xC8C8C8)
$cheating = GUICtrlCreateInput("", 8, 32, 121, 21)
GUICtrlSetBkColor(-1, 0xFFFFE1)
GUICtrlSetCursor (-1, 7)
#endregion ###CHEAT ###
$bauern = 0
$holz = 30
$stein = 35
$gold = 99
$bgs = 2
$swk = 3
$rtr = 2
$lzt = 40
$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 = 0
$t1 = 0
$t2 = 0
$t3 = 0
$t4 = 0
$t5 = 0
$t6 = 0
$t7 = 0
$t8 = 0
$t10 = 0
$t11 = 0
$t12 = 0
$t13 = 0
$t14 = 0
$t15 = 0
$t16 = 0
$t17 = 0
$t18 = 0
$t19 = 0
$t20 = 0
$t21 = 0
$t22 = 0
$t23 = 0
$t24 = 0
$runde = 0
$forschungen = 0
HotKeySet('^!c', 'cheat')
$forschrunde = -1
$success = 0
$felzt = 0
$febgs = 0
$feswk = 0
$fertr = 0
$angrrunde = -1
$tag = 25
$sperr = 0
$angsperr = -1
$gewonnen = 0
auswert()
#region ### TESTING ####ENDREGION ### TESTING ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $form2)
traytip('Running Now', 'Das Spiel hat begonnen'&@CRLF&'Fals du das Spiel noch nicht kennst klicke auf Hilfe'&@CRLF&'Game constructed by Scripter192'&@CRLF&'www.steruma.npage.de'&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&'-', 20)
While 1
guictrlsetdata($cheating, '')
$dobuy = 0
$success = 0
$msg = guigetmsg()
switch $msg
case $fst
if $forschungen = 0 then msgbox(0, '', 'Du musst zuerst ein Forschungshaus bauen!')
if $forschungen = 2 then msgbox(0, '', 'Du hast in dieser Runde schon einen Forschungstrupp losgeschickt')
if $forschungen = 1 Then forsch()
case $attk
if $sperr = 1 then msgbox(0, '', 'Du kanns nicht jetzt schon wieder angreifen')
if $sperr = 0 then angr()
case $Button1
$btng = $Button1
$nr = 1
if $t1 = 0 then main()
if $t1 = 1 then kaserne()
case $Button2
$nr = 2
$btng = $Button2
if $t2 = 0 then main()
if $t2 = 1 then kaserne()
case $Button3
$nr = 3
$btng = $Button3
if $t3 = 0 then main()
if $t3 = 1 then kaserne()
case $Button4
$nr = 4
$btng = $Button4
if $t4 = 0 then main()
if $t4 = 1 then kaserne()
case $Button5
$nr = 5
$btng = $Button5
if $t5 = 0 then main()
if $t5 = 1 then kaserne()
case $Button6
$nr = 6
$btng = $Button6
if $t6 = 0 then main()
if $t6 = 1 then kaserne()
case $Button7
$nr = 7
$btng = $Button7
if $t7 = 0 then main()
if $t7 = 1 then kaserne()
case $Button8
$nr = 8
$btng = $Button8
if $t8 = 0 then main()
if $t8 = 1 then kaserne()
case $Button9
msgbox(0, '', 'Du kannst hier nichts bauen')
auswert()
case $Button10
$nr = 10
$btng = $Button10
if $t10 = 0 then main()
if $t10 = 1 then kaserne()
case $Button11
$nr = 11
$btng = $Button11
if $t11 = 0 then main()
if $t11 = 1 then kaserne()
case $Button12
$nr = 12
$btng = $Button12
if $t12 = 0 then main()
if $t12 = 1 then kaserne()
case $Button13
$nr = 13
$btng = $Button13
if $t13 = 0 then main()
if $t13 = 1 then kaserne()
case $Button14
$nr = 14
$btng = $Button14
if $t14 = 0 then main()
if $t14 = 1 then kaserne()
case $Button15
$nr = 15
$btng = $Button15
if $t15 = 0 then main()
if $t15 = 1 then kaserne()
case $Button16
$nr = 16
$btng = $Button16
if $t16 = 0 then main()
if $t16 = 1 then kaserne()
case $Button17
$nr = 17
$btng = $Button17
if $t17 = 0 then main()
if $t17 = 1 then kaserne()
case $Button18
$nr = 18
$btng = $Button18
if $t18 = 0 then main()
if $t18 = 1 then kaserne()
case $Button19
$nr = 19
$btng = $Button19
if $t19 = 0 then main()
if $t19 = 1 then kaserne()
case $Button20
$nr = 20
$btng = $Button20
if $t20 = 0 then main()
if $t20 = 1 then kaserne()
case $Button21
$nr = 21
$btng = $Button21
if $t21 = 0 then main()
if $t21 = 1 then kaserne()
case $Button22
$nr = 22
$btng = $Button22
if $t22 = 0 then main()
if $t22 = 1 then kaserne()
case $Button23
$nr = 23
$btng = $Button23
if $t23 = 0 then main()
if $t23 = 1 then kaserne()
case $Button24
$nr = 24
$btng = $Button24
if $t24 = 0 then main()
if $t24 = 1 then kaserne()
case $rbee
beep(500, 100)
$holz = $holz+$holzd
$stein = $stein+$steind
$gold = $gold+$goldd
$runde = $runde + 1
$felzt = $felzt + 1
if $runde > 10 then $febgs = $febgs + 1
if $runde > 15 then $feswk = $feswk + 1
if $runde > 20 then $fertr = $fertr + 1
guictrlsetdata($welcherunde, $runde)
auswert()
case $GUI_EVENT_CLOSE
$156 = msgbox(4, 'Beenden', 'Der Spielstand wird beim beenden gelöscht'&@CRLF&'Wirklich beenden?')
if $156 = 6 then Exit
case $anl
anleitung()
case $sp
speichern()
case $ld
laden()
EndSwitch
select
case $runde = $forschrunde
$forschrunde = -1
$flzt = $flzt - $todlzt
$fbgs = $fbgs - $todbgs
$fswk = $fswk - $todswk
$frtr = $frtr - $todrtr
$lzt = $lzt + $flzt
$bgs = $bgs + $fbgs
$swk = $swk + $fswk
$rtr = $rtr + $frtr
$gw = $frtr * 20 + $fswk * 10
$hw = $fbgs * 10 + $flzt * 5
$sw = $fswk * 10 + $frtr * 10
$gold = $gold + $gw
$stein = $stein + $sw
$holz = $holz + $hw
msgbox(0, '', 'Dein Forschungstrupp ist zurrück gekommen!'&@CRLF&'Es sind Gestroben: Lanzenträger: '&$todlzt&@CRLF&' Bogenschützen: '&$todbgs&@CRLF&'Schwertkämpfer: '&$todswk&@CRLF&'Ritter: '&$todrtr&@CRLF&@CRLF&'Du hast gefunden:'&@CRLF&'Holz: '&$hw&@CRLF&'Gold: '&$gw&@CRLF&'Stein: '&$sw)
auswert()
$forschungen = 1
case $runde = $angrrunde
$angrrunde = -1
$kill = 0
$killenb = 2
$killens = 3
$killenr = 4
$vorl = $slzt
$vorb = $sbgs
$vors = $sswk
$vorr = $srtr
$fvorl = $felzt
$fvorb = $febgs
$fvors = $febgs
$fvorr = $fertr
Do
$kill = $kill + 1
If $slzt > 0 Then
$slzt = $slzt - 1
EndIf
if $felzt > 0 Then
$felzt = $felzt - 1
EndIf
if $sbgs > 0 Then
if $kill = $killenb then
$sbgs = $sbgs - 1
EndIf
EndIf
if $febgs > 0 Then
if $kill = $killenb then
$febgs = $febgs - 1
$killenb = $killenb + 2
EndIf
EndIf
if $sswk > 0 Then
if $killens = $kill Then
$sswk = $sswk - 1
EndIf
EndIf
if $feswk > 0 Then
if $killens = $kill Then
$feswk = $feswk - 1
$killens = $killens + 3
EndIf
EndIf
if $srtr > 0 Then
if $kill = $killenr Then
$srtr = $srtr - 1
EndIf
EndIf
if $fertr > 0 Then
if $kill = $killenr Then
$fertr = $fertr - 1
$killenr = $killenr + 4
EndIf
EndIf
Until $slzt + $sbgs + $sswk + $srtr = 0 or $felzt + $febgs + $feswk + $fertr = 0
$gewonnen = 0
if $slzt + $sbgs + $sswk + $srtr > $felzt + $febgs + $feswk + $fertr Then
guictrlsetdata($winner, 'Spieler (DU)')
$lzt = $lzt + $slzt
$bgs = $bgs + $sbgs
$swk = $swk + $sswk
$rtr = $rtr + $srtr
$gewinn = random(20, 120, 1)
$holz=$holz+$gewinn
$stein=$stein+$gewinn
$gold=$gold+$gewinn
$gewonnen = 1
EndIf
if $slzt + $sbgs + $sswk + $srtr < $felzt + $febgs + $feswk + $fertr Then
guictrlsetdata($winner, 'Gegner')
EndIf
guisetstate(@SW_SHOW, $ergebniss)
guictrlsetdata($an1, $vorl)
guictrlsetdata($an2, $vorb)
guictrlsetdata($an3, $vors)
guictrlsetdata($an4, $vorr)
guictrlsetdata($an5, $slzt)
guictrlsetdata($an6, $sbgs)
guictrlsetdata($an7, $sswk)
guictrlsetdata($an8, $srtr)
guictrlsetdata($an9, $fvorl)
guictrlsetdata($an10, $fvorb)
guictrlsetdata($an11, $fvors)
guictrlsetdata($an12, $fvorr)
guictrlsetdata($an13, $felzt)
guictrlsetdata($an14, $febgs)
guictrlsetdata($an15, $feswk)
guictrlsetdata($an16, $fertr)
Do
$msg = guigetmsg()
until $msg = $GUI_EVENT_CLOSE
guisetstate(0, $ergebniss)
if $gewonnen = 1 then msgbox(0, '', 'Du gewinnst '&$gewinn&' von jedem Rohstoff')
auswert()
cASE $runde = $tag
msgbox(0, '', 'Der Feind hat dich angegriffen')
$tag = $tag + 10
$vorl = $lzt
$vorb = $bgs
$vors = $swk
$vorr = $rtr
$fvorl = $felzt
$fvorb = $febgs
$fvors = $febgs
$fvorr = $fertr
$kill = 0
$killenb = 2
$killens = 3
$killenr = 4
Do
$kill = $kill + 1
If $lzt > 0 Then
$lzt = $lzt - 1
EndIf
if $felzt > 0 Then
$felzt = $felzt - 1
EndIf
if $bgs > 0 Then
if $kill = $killenb then
$bgs = $bgs - 1
EndIf
EndIf
if $febgs > 0 Then
if $kill = $killenb then
$febgs = $febgs - 1
$killenb = $killenb + 2
EndIf
EndIf
if $swk > 0 Then
if $killens = $kill Then
$swk = $swk - 1
EndIf
EndIf
if $feswk > 0 Then
if $killens = $kill Then
$feswk = $feswk - 1
$killens = $killens + 3
EndIf
EndIf
if $rtr > 0 Then
if $kill = $killenr Then
$rtr = $rtr - 1
EndIf
EndIf
if $fertr > 0 Then
if $kill = $killenr Then
$fertr = $fertr - 1
$killenr = $killenr + 4
EndIf
EndIf
Until $lzt + $bgs + $swk + $rtr = 0 or $felzt + $febgs + $feswk + $fertr = 0
if $lzt + $bgs + $swk + $rtr > $felzt + $febgs + $feswk + $fertr Then
guictrlsetdata($winner, 'Spieler (DU)')
EndIf
if $lzt + $bgs + $swk + $rtr < $felzt + $febgs + $feswk + $fertr Then
guictrlsetdata($winner, 'Gegner')
$gewonnen = 1
$gewinn = random(20, 100, 1)
$holz=$holz-$gewinn
$stein=$stein-$gewinn
$gold=$gold-$gewinn
EndIf
guisetstate(@SW_SHOW, $ergebniss)
guictrlsetdata($an1, $vorl)
guictrlsetdata($an2, $vorb)
guictrlsetdata($an3, $vors)
guictrlsetdata($an4, $vorr)
guictrlsetdata($an5, $lzt)
guictrlsetdata($an6, $bgs)
guictrlsetdata($an7, $swk)
guictrlsetdata($an8, $rtr)
guictrlsetdata($an9, $fvorl)
guictrlsetdata($an10, $fvorb)
guictrlsetdata($an11, $fvors)
guictrlsetdata($an12, $fvorr)
guictrlsetdata($an13, $felzt)
guictrlsetdata($an14, $febgs)
guictrlsetdata($an15, $feswk)
guictrlsetdata($an16, $fertr)
Do
$msg = guigetmsg()
until $msg = $GUI_EVENT_CLOSE
guisetstate(0, $ergebniss)
if $gewonnen = 1 then msgbox(0, '', 'Der Feind nimmt dir '&$gewinn&' von jedem Rohstoff')
if $holz + $stein + $gold < -50 then
msgbox(0, '', 'Du hast das Spiel verloren... :´-(')
Exit
EndIf
auswert()
case $angsperr = $runde
$angsperr = -1
$sperr = 0
EndSelect
$msg = traygetmsg()
select
Case $msg = $msz
mauszeiger()
case $msg = $end
$156 = msgbox(4, 'Beenden', 'Der Spielstand wird beim beenden gelöscht'&@CRLF&'Wirklich beenden?')
if $156 = 6 then Exit
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 + 3
auswert()
guictrlsetdata($btng, 'Kaserne')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 1
EndIfif $nr = 2 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t2 = 1
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 1
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 1
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 1
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 1
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 1
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 1
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 1
EndIf
if $nr = 11 Then
$t11 = 1
EndIf
if $nr = 12 Then
$t12 = 1
EndIf
if $nr = 13 Then
$t13 = 1
EndIf
if $nr = 14 Then
$t14 = 1
EndIf
if $nr = 15 Then
$t15 = 1
EndIf
if $nr = 16 Then
$t16 = 1
EndIf
if $nr = 17 Then
$t17 = 1
EndIf
if $nr = 18 Then
$t18 = 1
EndIf
if $nr = 19 Then
$t19 = 1
EndIf
if $nr = 20 Then
$t20 = 1
EndIf
if $nr = 21 Then
$t21 = 1
EndIf
if $nr = 22 Then
$t22 = 1
EndIf
if $nr = 23 Then
$t23 = 1
EndIf
if $nr = 24 Then
$t24 = 1
EndIf
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
auswert()
guictrlsetdata($btng, 'Gehöft')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 2
EndIf
if $nr = 2 Then
$t2 = 2
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 2
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 2
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 2
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 2
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 2
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 2
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 2
EndIf
if $nr = 11 Then
$t11 = 2
EndIf
if $nr = 12 Then
$t12 = 2
EndIf
if $nr = 13 Then
$t13 = 2
EndIf
if $nr = 14 Then
$t14 = 2
EndIf
if $nr = 15 Then
$t15 = 2
EndIf
if $nr = 16 Then
$t16 = 2
EndIf
if $nr = 17 Then
$t17 = 2
EndIf
if $nr = 18 Then
$t18 = 2
EndIf
if $nr = 19 Then
$t19 = 2
EndIf
if $nr = 20 Then
$t20 = 2
EndIf
if $nr = 21 Then
$t21 = 2
EndIf
if $nr = 22 Then
$t22 = 2
EndIf
if $nr = 23 Then
$t23 = 2
EndIf
if $nr = 24 Then
$t24 = 2
EndIf
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
auswert()
guictrlsetdata($btng, 'Forschung')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 3
EndIf
if $nr = 2 Then
$t2 = 3
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 3
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 3
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 3
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 3
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 3
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 3
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 3
EndIf
if $nr = 11 Then
$t11 = 3
EndIf
if $nr = 12 Then
$t12 = 3
EndIf
if $nr = 13 Then
$t13 = 3
EndIf
if $nr = 14 Then
$t14 = 3
EndIf
if $nr = 15 Then
$t15 = 3
EndIf
if $nr = 16 Then
$t16 = 3
EndIf
if $nr = 17 Then
$t17 = 3
EndIf
if $nr = 18 Then
$t18 = 3
EndIf
if $nr = 19 Then
$t19 = 3
EndIf
if $nr = 20 Then
$t20 = 3
EndIf
if $nr = 21 Then
$t21 = 3
EndIf
if $nr = 22 Then
$t22 = 3
EndIf
if $nr = 23 Then
$t23 = 3
EndIf
if $nr = 24 Then
$t24 = 3
EndIf
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 + 1
auswert()
GUICtrlSetData($btng, 'Holzfäller')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 4
EndIf
if $nr = 2 Then
$t2 = 4
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 4
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 4
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 4
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 4
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 4
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 4
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 4
EndIf
if $nr = 11 Then
$t11 = 4
EndIf
if $nr = 12 Then
$t12 = 4
EndIf
if $nr = 13 Then
$t13 = 4
EndIf
if $nr = 14 Then
$t14 = 4
EndIf
if $nr = 15 Then
$t15 = 4
EndIf
if $nr = 16 Then
$t16 = 4
EndIf
if $nr = 17 Then
$t17 = 4
EndIf
if $nr = 18 Then
$t18 = 4
EndIf
if $nr = 19 Then
$t19 = 4
EndIf
if $nr = 20 Then
$t20 = 4
EndIf
if $nr = 21 Then
$t21 = 4
EndIf
if $nr = 22 Then
$t22 = 4
EndIf
if $nr = 23 Then
$t23 = 4
EndIf
if $nr = 24 Then
$t24 = 4
EndIf
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 + 1
auswert()
guictrlsetdata($btng, 'Steinmetzt')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 5
EndIf
if $nr = 2 Then
$t2 = 5
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 5
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 5
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 5
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 5
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 5
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 5
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit]
$t10 = 5
EndIf
if $nr = 11 Then
$t11 = 5
EndIf
if $nr = 12 Then
$t12 = 5
EndIf
if $nr = 13 Then
$t13 = 5
EndIf
if $nr = 14 Then
$t14 = 5
EndIf
if $nr = 15 Then
$t15 = 5
EndIf
if $nr = 16 Then
$t16 = 5
EndIf
if $nr = 17 Then
$t17 = 5
EndIf
if $nr = 18 Then
$t18 = 5
EndIf
if $nr = 19 Then
$t19 = 5
EndIf
if $nr = 20 Then
$t20 = 5
EndIf
if $nr = 21 Then
$t21 = 5
EndIf
if $nr = 22 Then
$t22 = 5
EndIf
if $nr = 23 Then
$t23 = 5
EndIf
if $nr = 24 Then
$t24 = 5
EndIf
EndIf
EndIf
Case $msg = $GUI_EVENT_CLOSE
guisetstate(0, $bauen)
$dobuy = 1
EndSelectuntil $dobuy = 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [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
auswert()
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
func mauszeiger()
msgbox(0, '', 'Diese Funktion ist noch nicht fertig!')
EndFunc
func kaserne()
if $dobuy = 0 Then
$exit156 = 0
guisetstate(@SW_SHOW, $kasernegui)
Do
$msg = guigetmsg()
Switch $msg
Case $GUI_EVENT_CLOSE
$exit156 = 1
case $lanzis
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $holz > 9 Then
$lzt = $lzt + 1
$holz = $holz - 10
auswert()
EndIf
case $bogis
if $holz < 20 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $stein < 1 then msgbox(0, '', 'Du hast zu wenig Steine!')
if $holz > 19 Then
if $stein > 0 then
$bgs = $bgs + 1
$holz = $holz - 20
$stein = $stein - 1
auswert()
EndIf
EndIf
case $schwertis
if $gold < 30 then msgbox(0, '', 'Du hast zu wenig Gold!')
if $holz < 20 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $stein < 5 then msgbox(0, '', 'Du hast zu wenig Stein!')
if $gold > 29 then
if $holz > 19 Then
if $stein > 4 Then
$swk = $swk + 1
$gold = $gold - 30
$holz = $holz - 20
$stein = $stein - 5
auswert()
EndIf
EndIf
EndIf
case $rittis
if $gold < 40 then msgbox(0, '', 'Du hast zu wenig Gold!')
if $holz < 20 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $stein < 10 then msgbox(0, '', 'Du hast zu wenig Stein!')
if $gold > 39 Then
if $holz > 19 Then
if $stein > 9 Then
$gold = $gold - 40
$holz = $holz - 20
$stein = $stein - 10
$rtr = $rtr + 1
auswert()
EndIf
EndIf
EndIf
EndSwitch
Until $exit156 = 1
guisetstate(0, $kasernegui)
EndIf
EndFunc
func anleitung()
$exit156 = 0
guisetstate(@SW_SHOW, $anleitung)
Do
$msg = GUIGetMsg($anleitung)
if $msg = $GUI_EVENT_CLOSE then $exit156 = 1
until $exit156 = 1
guisetstate(0, $anleitung)
EndFunc
func forsch()
guisetstate(@SW_SHOW, $fosch)
$exit156 = 0
Do
if guictrlread($forschl) < 0 then guictrlsetdata($forschl, 0)
if guictrlread($forschb) < 0 then guictrlsetdata($forschb, 0)
if guictrlread($forschs) < 0 then guictrlsetdata($forschs, 0)
if guictrlread($forschr) < 0 then guictrlsetdata($forschr, 0)
if $exit156 = 0 then $msg = guigetmsg()
Switch $msg
case $acc
forschgo()
case $GUI_EVENT_CLOSE
$exit156 = 1
case $all
guictrlsetdata($forschl, $lzt)
guictrlsetdata($forschb, $bgs)
guictrlsetdata($forschs, $swk)
guictrlsetdata($forschr, $rtr)
case $null
guictrlsetdata($forschl, 0)
guictrlsetdata($forschb, 0)
guictrlsetdata($forschs, 0)
guictrlsetdata($forschr, 0)
EndSwitch
until $exit156 = 1 or $success = 1
guisetstate(0, $fosch)
EndFunc
func auswert()
if $holz < 0 then $holz = 0
if $stein < 0 then $stein = 0
if $gold < 0 then $gold = 0
guictrlsetdata($holzw, $holz)
GUICtrlSetData($steinw, $stein)
guictrlsetdata($goldw, $gold)
guictrlsetdata($bgsw, $bgs)
GUICtrlSetData($swkw, $swk)
GUICtrlSetData($rtrw, $rtr)
guictrlsetdata($lztw, $lzt)
EndFuncfunc forschgo()
[/autoit] [autoit][/autoit] [autoit]
global $flzt = guictrlread($forschl)
global $fbgs = guictrlread($forschb)
global $fswk = guictrlread($forschs)
global $frtr = guictrlread($forschr)
if $flzt > $lzt then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $fbgs > $bgs then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $fswk > $swk then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $frtr > $rtr then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $flzt < $lzt + 1 then
if $fbgs < $bgs + 1 then
if $fswk < $swk + 1 then
if $frtr < $rtr + 1 then
$forschrunde = $runde + 1
$lzt = $lzt - $flzt
$bgs = $bgs - $fbgs
$swk = $swk - $fswk
$rtr = $rtr - $frtr
$forschungen = 2
auswert()
global $todlzt = round(random(0, $flzt), 0)
global $todbgs = round(random(0, $fbgs), 0)
global $todswk = round(random(0, $fswk), 0)
global $todrtr = round(random(0, $frtr), 0)
global $msg = $GUI_EVENT_CLOSE
global $exit156 = 1
global $success = 1
EndIf
EndIf
EndIf
EndIfEndFunc
[/autoit]
func cheat()
guisetstate(@SW_SHOW, $cheat)
Do
$msg = guigetmsg()
if GUICtrlRead($cheating) = 'imacheater' Then
$holz = 99999
$stein = 99999
$gold = 99999
auswert()
$msg = $GUI_EVENT_CLOSE
EndIf
until $msg = $GUI_EVENT_CLOSE
guisetstate(0, $cheat)
$msg = 0
auswert()
EndFunc
func angr()
;SEHR KOMPLEX :::::::::::: NICHTS ÄNDERN ::::::::::::
guisetstate(@sw_show, $angriff)
Do
$msg = guigetmsg()
if guictrlread($inlzt) < 0 then GUICtrlSetData($inlzt, 0)
if guictrlread($inbgs) < 0 then GUICtrlSetData($inbgs, 0)
if guictrlread($inswk) < 0 then GUICtrlSetData($inswk, 0)
if guictrlread($inrtr) < 0 then GUICtrlSetData($inrtr, 0)
Switch $msg
case $allee
guictrlsetdata($inlzt, $lzt)
guictrlsetdata($inbgs, $bgs)
guictrlsetdata($inswk, $swk)
guictrlsetdata($inrtr, $rtr)
case $keinee
guictrlsetdata($inlzt, 0)
guictrlsetdata($inbgs, 0)
guictrlsetdata($inswk, 0)
guictrlsetdata($inrtr, 0)
case $agree
auswert()
angrgo()
EndSwitch
until $msg = $GUI_EVENT_CLOSE
guisetstate(0, $angriff)
EndFunc
func angrgo()
global $slzt = guictrlread($inlzt)
global $sbgs = guictrlread($inbgs)
global $sswk = guictrlread($inswk)
global $srtr = guictrlread($inrtr)
if $slzt > $lzt then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $sbgs > $bgs then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $sswk > $swk then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $srtr > $rtr then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $slzt < $lzt + 1 then
if $sbgs < $bgs + 1 then
if $sswk < $swk + 1 then
if $srtr < $rtr + 1 then
guisetstate(0, $angriff)
$msg = $GUI_EVENT_CLOSE
$lzt = $lzt - $slzt
$bgs = $bgs - $sbgs
$swk = $swk - $sswk
$rtr = $rtr - $srtr
global $angrrunde = $runde + random(1, 5, 1)
$angsperr = $runde + 5
$sperr = 1
auswert()
EndIf
EndIf
EndIf
EndIf
EndFunc
func speichern()
$frage = 6
if FileExists('save.ini') then $frage = msgbox(4, '', 'Alte Speicherdaten werden überschrieben. Fortfahren?')
if $frage = 6 then
iniwrite('save.ini', '--------- HIER BITTE NICHTS VERÄNDERN, SONST KANN ES ZU FEHLERN IM SPIEL KOMMEN -----------', '.', '.')
IniWrite('save.ini', 'Prüfkeygen', 'defaultoptions', ($holz+$gold+$stein)*1212)
IniWrite('save.ini', 'Rohstoffe', 'Holz', ''&$holz)
iniwrite('save.ini', 'Rohstoffe', 'Stein', $stein)
iniwrite('save.ini', 'Rohstoffe', 'Gold', $gold)
iniwrite('save.ini', 'Truppen', 'lzt', $lzt)
iniwrite('save.ini', 'Truppen', 'bgs', $bgs)
iniwrite('save.ini', 'Truppen', 'swk', $swk)
iniwrite('save.ini', 'Truppen', 'rtr', $rtr)
iniwrite('save.ini', 'Rundenzahl', 'runde', $runde)
iniwrite('save.ini', 'FeindTruppen', 'felzt', $felzt)
iniwrite('save.ini', 'FeindTruppen', 'febgs', $febgs)
iniwrite('save.ini', 'FeindTruppen', 'feswk', $feswk)
iniwrite('save.ini', 'FeindTruppen', 'fertr', $fertr)
iniwrite('save.ini', 'Feldeigenschaften', 'k10', $k10)
iniwrite('save.ini', 'Feldeigenschaften', 'k11', $k11)
iniwrite('save.ini', 'Feldeigenschaften', 'k12', $k12)
iniwrite('save.ini', 'Feldeigenschaften', 'k13', $k13)
iniwrite('save.ini', 'Feldeigenschaften', 'k14', $k14)
iniwrite('save.ini', 'Feldeigenschaften', 'k15', $k15)
iniwrite('save.ini', 'Feldeigenschaften', 'k16', $k16)
iniwrite('save.ini', 'Feldeigenschaften', 'k17', $k17)
iniwrite('save.ini', 'Feldeigenschaften', 'k18', $k18)
iniwrite('save.ini', 'Feldeigenschaften', 'k19', $k19)
iniwrite('save.ini', 'Feldeigenschaften', 'k20', $k20)
iniwrite('save.ini', 'Feldeigenschaften', 'k21', $k21)
iniwrite('save.ini', 'Feldeigenschaften', 'k22', $k22)
iniwrite('save.ini', 'Feldeigenschaften', 'k23', $k23)
iniwrite('save.ini', 'Feldeigenschaften', 'k24', $k24)
iniwrite('save.ini', 'Feldeigenschaften', 't1', $t1)
iniwrite('save.ini', 'Feldeigenschaften', 't2', $t2)
iniwrite('save.ini', 'Feldeigenschaften', 't3', $t3)
iniwrite('save.ini', 'Feldeigenschaften', 't4', $t4)
iniwrite('save.ini', 'Feldeigenschaften', 't5', $t5)
iniwrite('save.ini', 'Feldeigenschaften', 't6', $t6)
iniwrite('save.ini', 'Feldeigenschaften', 't7', $t7)
iniwrite('save.ini', 'Feldeigenschaften', 't8', $t8)
iniwrite('save.ini', 'Feldeigenschaften', 't10', $t10)
iniwrite('save.ini', 'Feldeigenschaften', 't11', $t11)
iniwrite('save.ini', 'Feldeigenschaften', 't12', $t12)
iniwrite('save.ini', 'Feldeigenschaften', 't13', $t13)
iniwrite('save.ini', 'Feldeigenschaften', 't14', $t14)
iniwrite('save.ini', 'Feldeigenschaften', 't15', $t15)
iniwrite('save.ini', 'Feldeigenschaften', 't16', $t16)
iniwrite('save.ini', 'Feldeigenschaften', 't17', $t17)
iniwrite('save.ini', 'Feldeigenschaften', 't18', $t18)
iniwrite('save.ini', 'Feldeigenschaften', 't19', $t19)
iniwrite('save.ini', 'Feldeigenschaften', 't20', $t20)
iniwrite('save.ini', 'Feldeigenschaften', 't21', $t21)
iniwrite('save.ini', 'Feldeigenschaften', 't22', $t22)
iniwrite('save.ini', 'Feldeigenschaften', 't23', $t23)
iniwrite('save.ini', 'Feldeigenschaften', 't24', $t24)
EndIf
EndFunc
func laden()
$holz = IniRead('save.ini', 'Rohstoffe', 'Holz', 'error')
$stein = IniRead('save.ini', 'Rohstoffe', 'Stein', 'error')
$gold = iniread('save.ini', 'Rohstoffe', 'Gold', 'error')
$lzt = IniRead('save.ini', 'Truppen', 'lzt', 'error')
$bgs = IniRead('save.ini', 'Truppen', 'bgs', 'error')
$swk = IniRead('save.ini', 'Truppen', 'swk', 'error')
$rtr = IniRead('save.ini', 'Truppen', 'rtr', 'error')
$runde = iniread('save.ini', 'Rundenzahl', 'runde', 'error')
$felzt = iniread('save.ini', 'FeindTruppen', 'felzt', 'error')
$febgs = iniread('save.ini', 'FeindTruppen', 'febgs', 'error')
$feswk = iniread('save.ini', 'FeindTruppen', 'feswk', 'error')
$fertr = iniread('save.ini', 'FeindTruppen', 'fertr', 'error')
$k10 = iniread('save.ini', 'Feldeigenschaften', 'k10', Default)
$k11 = iniread('save.ini', 'Feldeigenschaften', 'k11', default)
$k12 = iniread('save.ini', 'Feldeigenschaften', 'k12', Default)
$k13 = iniread('save.ini', 'Feldeigenschaften', 'k13', default)
$k14 = iniread('save.ini', 'Feldeigenschaften', 'k14', default)
$k15 = iniread('save.ini', 'Feldeigenschaften', 'k15', default)
$k16 = iniread('save.ini', 'Feldeigenschaften', 'k16', default)
$k17 = iniread('save.ini', 'Feldeigenschaften', 'k17', default)
$k18 = iniread('save.ini', 'Feldeigenschaften', 'k18', default)
$k19 = iniread('save.ini', 'Feldeigenschaften', 'k19', default)
$k20 = iniread('save.ini', 'Feldeigenschaften', 'k20', default)
$k21 = iniread('save.ini', 'Feldeigenschaften', 'k21', default)
$k22 = iniread('save.ini', 'Feldeigenschaften', 'k22', default)
$k23 = iniread('save.ini', 'Feldeigenschaften', 'k23', default)
$k24 = iniread('save.ini', 'Feldeigenschaften', 'k24', default)
$key = iniread('save.ini', 'Prüfkeygen', 'defaultoptions', default)
$t24 = iniread('save.ini', 'Feldeigenschaften', 't24', default)
$t1 = iniread('save.ini', 'Feldeigenschaften', 't1', default)
$t2 = iniread('save.ini', 'Feldeigenschaften', 't2', default)
$t3 = iniread('save.ini', 'Feldeigenschaften', 't3', default)
$t4 = iniread('save.ini', 'Feldeigenschaften', 't4', default)
$t5 = iniread('save.ini', 'Feldeigenschaften', 't5', default)
$t6 = iniread('save.ini', 'Feldeigenschaften', 't6', default)
$t7 = iniread('save.ini', 'Feldeigenschaften', 't7', default)
$t8 = iniread('save.ini', 'Feldeigenschaften', 't8', default)
$t10 = iniread('save.ini', 'Feldeigenschaften', 't10', default)
$t11 = iniread('save.ini', 'Feldeigenschaften', 't11', default)
$t12 = iniread('save.ini', 'Feldeigenschaften', 't12', default)
$t13 = iniread('save.ini', 'Feldeigenschaften', 't13', default)
$t14 = iniread('save.ini', 'Feldeigenschaften', 't14', default)
$t15 = iniread('save.ini', 'Feldeigenschaften', 't15', default)
$t16 = iniread('save.ini', 'Feldeigenschaften', 't16', default)
$t17 = iniread('save.ini', 'Feldeigenschaften', 't17', default)
$t18 = iniread('save.ini', 'Feldeigenschaften', 't18', default)
$t19 = iniread('save.ini', 'Feldeigenschaften', 't19', default)
$t20 = iniread('save.ini', 'Feldeigenschaften', 't20', default)
$t21 = iniread('save.ini', 'Feldeigenschaften', 't21', default)
$t22 = iniread('save.ini', 'Feldeigenschaften', 't22', default)
$t23 = iniread('save.ini', 'Feldeigenschaften', 't23', default)
auswert()
if $key <> ($holz+$stein+$gold)*1212 Then
msgbox(0, '', 'Es ist ein Fehler aufgetreten: Fehlerhafte Speicherdatei: save.ini')
IniDelete('save.ini', 'Prüfkeygen')
Exit
EndIf
msgbox(0, '', 'Spielstand erfolgreich geladen!', 2)
EndFuncMFG Scripter192
-
Bei mir kommt da dann: Variable using without beeing declered! .
Muss da dann noch irgendein "include" hin? Wenn ja welches? -
Hi leutz.
Wie kann man den "Rand" eines GUI wegmachen? Also das wo die Buttons Minimieren, Beenden usw. drauf sind und der das ganze Gui umkreist. Der nervt nächmlich bei manchen sachenHoffe auf schnelle Antwort
MFG Scripter192
-
loooool was geht mit dem?
Empfiehl ihm mal einen von diesen Computer- Sucht Kliniken (Gibts wirklich )Oder ändere sein Passwort halt einfach
-
@ Schnuffel: Ich war erster HIHI
-
Du kannst höchtens sowas in der Richtung machen:
Spoiler anzeigen
[autoit]while 1
[/autoit]
if WinExists('World of Warcraft', '') then winclose('World of Warcraft')
WEnd\Edit: Oder noch besser das hier:
Spoiler anzeigen
[autoit]while 1
[/autoit]
if ProcessExists('World of Warcraft') then ProcessClose('World of Warcraft')
wend -
Warm löschst oder lässt du das Programm WoW nicht einfach aus AutoStart löschen? Des wäre einfacher
MFG Scripter192
PS: Unterdrückung von Prgrammen...: Hört sich eher wie ein trojaner oda so an.. Aber sry mir ist kein Befehl bekannt
-
Also:
Ich würd das so machen:Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
guicreate('BlaBla')
$save = guictrlcreatebutton('Speichern', 10, 10)
$ID = GUICtrlCreateInput('ID', 10, 50)
$PW = GUICtrlCreateInput('PW', 10, 90)
guisetstate()
while 1
$msg = guigetmsg()
switch $msg
case $GUI_EVENT_CLOSE
Exit
Case $save
save()
EndSwitch
WEndfunc save()
[/autoit] [autoit][/autoit] [autoit]
IniWrite("C:\test.ini", "Autologin", "ID", GUICtrlRead($ID))
IniWrite("C:\test.ini", "Autologin", "PW", GUICtrlRead($PW))
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
MsgBox(64, "Save", "Informationen wurden gespeichert")EndFunc
[/autoit]So gehts dann auch
MFG Scripter192
-
Des mit dem Flashen is lustig
-
Der Screenshotter erstellt einen Screenshot des aktuellen Bildschirms.
Viel Spass:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <GuiConstantsEx.au3>global $do
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
global $msg
global $counter
global $close = 0
global $do2$do = 0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$do2 = 10
$create = GUICreate('Screenshotter')
$closeb = GUICtrlCreateButton('Beenden', 10, 350)
$msg = GUISetState()
$text = GUICtrlCreateLabel('Willkommen bei Screenshotter. Wie der Name schon sagt können sie mit diesem'& @CRLF & 'Programm Screenshots erstellen. Einfach den Speicherpfad angeben,' & @CRLF & 'und Los gehts.', 10, 10)
$cbox = GUICtrlCreateCheckbox('Screenshot in Paint laden', 20, 60, default, default)
$text2 = GUICtrlCreateLabel('Bitte den Speicherpfad angeben:', 10, 100)
$pfad = GUICtrlCreateInput('' & @MyDocumentsDir, 10, 120)
$button = GUICtrlCreateButton('Screenshot aufnehmen', 10, 190)
do
$msg = guigetmsg()
if $do <> 10 then
if $msg = $cbox then
$do2 = 1
endif
endif
if $do2 = 1 then
$msg = GUIGetMsg()
if $msg = $cbox then $do2 = 0
EndIf
if $msg = $button then $do = 5if $do = 5 Then
[/autoit] [autoit][/autoit] [autoit]
WinSetState('Screenshotter', '', @SW_MINIMIZE)
Sleep(500)Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]Global $hBitmap, $hImage, $sCLSID, $tData, $tParams
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_ScreenCapture_Capture(guictrlread($pfad) & '\Screenshotter.jpg')
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GDIPlus_StartUp()
[/autoit] [autoit][/autoit] [autoit]$hImage = _GDIPlus_ImageLoadFromFile(guictrlread($pfad) & '\Screenshotter.jpg')
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GDIPlus_ImageSaveToFileEx($hImage, guictrlread($pfad) & '\Screenshotter.jpg', $sCLSID, DllStructGetPtr($tParams))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GDIPlus_ShutDown()
[/autoit]
WinSetState('Screenshotter', '', @SW_RESTORE)
MsgBox(0, 'Done!', 'Der Screenshot wurde erfolgreich unter: ' & guictrlread($pfad) & '\Screenshotter.jpg' & ' gespeichert')
$do = 0
if $do2 = 1 then
Run("MSPaint.exe " & '"' & guictrlread($pfad) & '\Screenshotter.jpg"')
endif
EndIf
until $msg = $GUI_EVENT_CLOSE or $msg = $closeb or $close = -1MFG Scripter192
-
Der Saver ist ein Script dass den Bildschirm von "Blicken anderer" schützt. Auf knopfruck verdunkelt es den Bildschirm.
Viel Spass:Spoiler anzeigen
[autoit]msgbox(0, 'Saver', 'Scripted by Stefan ( Scripter192 )'&@CRLF&'Press F1 for using the Saver'&@crlf&'Press F1 a second time for deactivade the saver'&@CRLF&'Press Strg + Alt + Esc to exit', 0)
[/autoit] [autoit][/autoit] [autoit]#region ### SAVER ###
[/autoit] [autoit][/autoit] [autoit]
$saver = guicreate('Saver', @desktopwidth + 100, @desktopheight + 100, -50, -50)
GUISetBkColor(0x000000)
#endregion ### SAVER ###
#region ### VARIABLES + HOTKEYS ###
$status = 0
$trans = 0
HotKeySet('{F1}', 'saver')
HotKeySet('^!{ESC}', 'ext')
#EndRegion ### VAIABLES + HOTKEYS ####Region ### SCRIPT ###
[/autoit] [autoit][/autoit] [autoit]
while 1
$jetzt = 0
if $status = 1 then
WinSetState($saver, '', @SW_SHOW)
if $status = 1 then MouseMove(0, @desktopheight, 1)
EndIf
$trans = 0
WEnd
#EndRegion ### SCRIPT ####region ### FUNCTIONS ###
[/autoit] [autoit][/autoit] [autoit]
func saver()
if $status = 0 Then
$status = 1
guisetstate(@SW_SHOW, $saver)
WinSetOnTop($saver, '', 1)
Do
sleep(1)
$trans = $trans + 1
WinSetTrans($saver, '', $trans)
Until $trans = 255
$jetzt = 1
EndIf
if $jetzt = 0 then
if $status = 1 Then
$trans = 255
$status = 0
Do
sleep(1)
$trans = $trans - 1
WinSetTrans($saver, '', $trans)
until $trans = 0
guisetstate(0, $saver)
EndIf
EndIf
EndFuncfunc ext()
[/autoit] [autoit][/autoit] [autoit][/autoit]
beep(1000)
TrayTip('EXIT', 'Exit NOW .....', 10)
sleep(6000)
Exit
EndFunc
#endregion ### FUNCTIONS ###MFG Scripter192
-
So.. jetzt hab ich eure gefundenen Bugs beseitigt. Jett muss ich nur noch das mit dem Angreifen und das mit dem Forschen machen
Bis jetzt siehts so aus ... :Bitte wieder auch hier um Feedback PLS
THX im Vorraus
PS: JAAA ICH WEIS DASS ES WENIGER ZEILEN SEIN KÖNNTEN
PPS: Das Script is da ooooooooben
-
Nja das Spiel is ja auch erst zu 50 % fertig ...
Danke für euer Feedback.. jetzt kann ich ja Fehler beheben.
Hab selber noch nen Bug gefunden Man kann 2 gleiche Gebäude NOCH auf einem gleichen Platz bauen das alte wird dabei "abgerissen", es werden aber immernoch Reccoucen dafür pro Runde vergeben.Naja auf ein neues. Ich lads bei fertigstellung wieder hier hoch
MFG Scripter192
Edit : Im Moment hat das Script 1020 Zeilen also ist es bald ma fertig denk ich
-
Hallo. Ich möchte euch mein "kleines" Scrip vorstellen : Villigers
Villigers ist ein Spiel, indem man Gebäude kaufe, verwalten, Kriege beginnen und noch vieles Mehr kann.
Noch ist da sScript nicht ganz fertig. Aber guckt ruhig schon mal rein...Bin für Verbesserungsvorschläge / Kritik bereit.
INFO: Bitte kopiert das Script NICHT und geb es als "Eures" weiter. Wenn ihr es anderen zeigen wollt verlinkt bitte diese Seite.
Danke Für euer Verständniss!!!UPDATE 23.02.09
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
TraySetClick("9")
#region ##### INTRO #####
$Form1 = GUICreate("Intro", 625, 442, 221, 128, 0, 0)
GUISetCursor (15)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Scripted by Scripter192", 64, 48, 464, 60)
GUICtrlSetFont($Label1, 30, 400, 0, "Comic Sans MS")
GUICtrlSetBkColor($Label1, 0xFFFFFF)$Label3 = GUICtrlCreateLabel("Visit http://www.steruma.npage.de", 48, 152, 521, 60)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor($Label3, 0xFFFFFF)
GUICtrlSetFont($Label3, 30, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW, $Form1)$trans = 0
[/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit]
sleep(15)
$trans = $trans + 1
WinSetTrans($Form1, '', $trans)
until $trans = 240
sleep(2000)
do
sleep(15)
$trans = $trans - 1
winsettrans($Form1, '', $trans)
until $trans = 0
guisetstate(0, $Form1)
sleep(2000)
#endregion ##### INTRO #####$intro = GUICreate("Villigers", 625, 445, 193, 125, 0, 0)
[/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]
do
$s = $s + 1
sleep(30)
guictrlsetdata($load, $s)
until $s = 100
sleep(1500)
guisetstate(0)
$text = 'Dieser Text solle jetzt der Maus folgen'
#cs ######################################## AUSER FUNKTION ##################################################
#region ### MAUSZEIGER ###
$mauszeiger = guicreate('Mauszeiger', @Desktopwidth, @Desktopheight)
$mausbild = GUICtrlCreateLabel($text, 0, 0)
guisetstate(@SW_SHOW, $mauszeiger)
winsetontop($mauszeiger, '', 1)
WinSetTrans($mauszeiger, '', 210)
#EndRegion ### MAUSZEIGER ###
#ce ####################################### AUSER FUNKTION ######################################################
#Region #### Initialisieren ####
$Form2 = GUICreate("Villigers", 625, 455, 193, 140)
$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, 30, 40)
$steinw = GUICtrlCreateLabel("0", 56, 368, 30, 40)
$goldw = GUICtrlCreateLabel("0", 56, 400, 30, 40)
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, 30, 25)
$swkw = GUICtrlCreateLabel("0", 112, 56, 30, 25)
$lztw = GUICtrlCreateLabel("0", 112, 80, 30, 25)
$rtrw = GUICtrlCreateLabel("0", 112, 104, 30, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)Opt("TrayMenuMode", 1)
[/autoit] [autoit][/autoit] [autoit]
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
TraySetClick("9")
$msz = TrayCreateItem("Mauszeiger ändern")
$end = TrayCreateItem("Beenden")
$hilfe = GUICtrlCreateMenu('Hilfe')
$anl = GUICtrlCreateMenuItem('Spielanleitung', $hilfe)
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]#Region ### Anleitung ###
[/autoit] [autoit][/autoit] [autoit]
$anleitung = GUICreate("Anleitung", 544, 359, 191, 124)
$Label1 = GUICtrlCreateLabel("Anleitung:", 8, 16, 120, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("In dem Spiel geht es darum, so schnell wie möglich viele Reccourcen zu gewinnen und Soldaten auszubilden,", 8, 64, 521, 17)
$Label3 = GUICtrlCreateLabel("befor der Feind dich angreift und dein Dorf zerstört. Ziel ist es den Feind so schnell wie möglich ( Rundenanzahl)", 8, 80, 529, 17)
$Label4 = GUICtrlCreateLabel("zu vernichten.", 8, 96, 71, 17)
$Label5 = GUICtrlCreateLabel("Du kannst auf die Frei Felder ein Gebäude bauen. Die Kaufen Felder musst du dir erst noch kaufen um darauf zu", 8, 128, 534, 17)
$Label6 = GUICtrlCreateLabel("bauen.", 8, 144, 37, 17)
$Label7 = GUICtrlCreateLabel("Mit dem Feind angreifen Button, kannst du den Feind mit deinen Truppen angreifen.", 8, 168, 398, 17)
$Label8 = GUICtrlCreateLabel("Mit dem Forschungstrupp schicken kannst du Truppen auf die Suche nach Reccourcen schiken, alerdings nur,", 8, 192, 529, 17)
$Label9 = GUICtrlCreateLabel("wenn du ein Forschungshaus besitzt", 8, 208, 176, 17)
$Label10 = GUICtrlCreateLabel("Mit dem Runde beenden Button kannst du die nächste Runde beginnen. Es werden dir neue Reccourcen", 8, 232, 504, 17)
$Label11 = GUICtrlCreateLabel("zugeschrieben.", 8, 248, 76, 17)
$Label12 = GUICtrlCreateLabel("Viel Spass beim Spielen. Bei Unklarheiten: einfach ausprobieren oder : ruf.stefan@yahoo.com", 8, 280, 451, 17)#EndRegion ### Anleitung ###
[/autoit] [autoit][/autoit] [autoit]#region ### Kaserne ###
[/autoit] [autoit][/autoit] [autoit]
$kasernegui = GUICreate("Kaserne", 526, 258, 210, 568)
$L23 = GUICtrlCreateLabel("Kaserne", 8, 0, 74, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$La324 = GUICtrlCreateLabel("Hier kannst du Truppen ausbilden:", 8, 32, 167, 17)
$bogis = GUICtrlCreateButton("Bogenschützen", 8, 56, 89, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$schwertis = GUICtrlCreateButton("Schwertkämpfer", 8, 128, 91, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$lanzis = GUICtrlCreateButton("Lanzenträger", 248, 56, 89, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$rittis = GUICtrlCreateButton("Ritter", 248, 143, 89, 57)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$La2343 = GUICtrlCreateLabel("Bogenschützen sind die 2.", 104, 56, 129, 17)
$La2344 = GUICtrlCreateLabel("schwächsten Einheiten.", 104, 72, 117, 17)
$Lab234 = GUICtrlCreateLabel("Lanzenträger sind zwar billig", 344, 56, 136, 17)
$La234bel6 = GUICtrlCreateLabel("aber auch die schlechtesten", 344, 72, 138, 17)
$Lab234el7 = GUICtrlCreateLabel("Einheiten im Spiel", 344, 88, 87, 17)
$Lab234el8 = GUICtrlCreateLabel("Schwertkämpfer sind die 2.", 104, 128, 135, 17)
$Lab234el9 = GUICtrlCreateLabel("besten Einheiten im Spiel", 104, 144, 122, 17)
$Lab234el10 = GUICtrlCreateLabel("Ritter sind die besten Einhei-", 344, 143, 138, 17)
$Lab324el11 = GUICtrlCreateLabel("ten im Spiel", 344, 159, 58, 17)
$Lab234el12 = GUICtrlCreateLabel("Kosten: 10 Holz", 344, 104, 145, 17)
$Lab324el13 = GUICtrlCreateLabel("Kosten: 20 Holz 1 Stein", 96, 88, 145, 17)
$Label23414 = GUICtrlCreateLabel("Kosten: 30 Gold 20 Holz ", 104, 162, 136, 14)
$Label32415 = GUICtrlCreateLabel("Kosten: 40 Gold 30 Holz ", 344, 183, 128, 14)
$Label1 = GUICtrlCreateLabel("5 Stein", 176, 176, 37, 17)
$Label2 = GUICtrlCreateLabel("10 Stein", 416, 200, 43, 17)
#EndRegion ### Kaserne ###
#region ### Forschen ###$fosch = GUICreate("Forschungstrupp", 586, 339, 197, 128)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Forschungstrupp", 8, 8, 204, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Mit einem Forschungstrupp kannst du Reccourcen wie Stein, Holz aber vor allem Gold finden. Der Nachteil dabei ist aber", 8, 56, 573, 17)
GUICtrlCreateLabel("dass wenn du einen Forschungstrupp losschickst, nicht alle Truppen zurrück kehren. Viele Leute werden vor Erschöpf-", 8, 72, 564, 17)
GUICtrlCreateLabel("ung zu Grunde gehen. Dennoch bekommst du die Reccourcen.", 8, 88, 305, 17)
GUICtrlCreateLabel("Einheiten losschicken:", 8, 112, 193, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Lanzenträger :", 8, 152, 72, 17)
GUICtrlCreateLabel("Bogenschützen:", 8, 176, 81, 17)
GUICtrlCreateLabel("Schwertkämpfer:", 8, 200, 84, 17)
GUICtrlCreateLabel("Ritter:", 8, 224, 35, 17)
$forschl = GUICtrlCreateInput("0", 118, 146, 40, 21)
GuiCtrlCreateUpDown(-1)
$forschb = GUICtrlCreateInput("0", 118, 170, 40, 21)
GuiCtrlCreateUpDown(-1)
$forschs = GUICtrlCreateInput("0", 118, 194, 40, 21)
GuiCtrlCreateUpDown(-1)
$forschr = GUICtrlCreateInput("0", 118, 218, 40, 21)
GuiCtrlCreateUpDown(-1)
$acc = GUICtrlCreateButton("Losschicken", 40, 272, 75, 25, 0)#endregion ### Forschen ###
[/autoit] [autoit][/autoit] [autoit]
$bauern = 0
$holz = 30
$stein = 35
$gold = 99
$bgs = 0
$swk = 0
$rtr = 0
$lzt = 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 = 0
$t1 = 0
$t2 = 0
$t3 = 0
$t4 = 0
$t5 = 0
$t6 = 0
$t7 = 0
$t8 = 0
$t10 = 0
$t11 = 0
$t12 = 0
$t13 = 0
$t14 = 0
$t15 = 0
$t16 = 0
$t17 = 0
$t18 = 0
$t19 = 0
$t20 = 0
$t21 = 0
$t22 = 0
$t23 = 0
$t24 = 0
$runde = 0
$forschungen = 0
HotKeySet('^!c', 'cheat')
$forschrunde = -1
$success = 0
$flzt = 0
$fbgs = 0
$fswk = 0
$frtr = 0
auswert()
#region ### TESTING ####ENDREGION ### TESTING ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $form2)
traytip('Running Now', 'Das Spiel hat begonnen'&@CRLF&'Fals du das Spiel noch nicht kennst klicke auf Hilfe'&@CRLF&'Game constructed by Scripter192'&@CRLF&'www.steruma.npage.de'&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&'-', 20)
While 1
$dobuy = 0
$success = 0
$msg = guigetmsg()
switch $msg
case $fst
if $forschungen = 0 then msgbox(0, '', 'Du musst zuerst ein Forschungshaus bauen!')
if $forschungen = 2 then msgbox(0, '', 'Du hast in dieser Runde schon einen Forschungstrupp losgeschickt')
if $forschungen = 1 Then forsch()
case $attk
angr()
case $Button1
$btng = $Button1
$nr = 1
if $t1 = 0 then main()
if $t1 = 1 then kaserne()
case $Button2
$nr = 2
$btng = $Button2
if $t2 = 0 then main()
if $t2 = 1 then kaserne()
case $Button3
$nr = 3
$btng = $Button3
if $t3 = 0 then main()
if $t3 = 1 then kaserne()
case $Button4
$nr = 4
$btng = $Button4
if $t4 = 0 then main()
if $t4 = 1 then kaserne()
case $Button5
$nr = 5
$btng = $Button5
if $t5 = 0 then main()
if $t5 = 1 then kaserne()
case $Button6
$nr = 6
$btng = $Button6
if $t6 = 0 then main()
if $t6 = 1 then kaserne()
case $Button7
$nr = 7
$btng = $Button7
if $t7 = 0 then main()
if $t7 = 1 then kaserne()
case $Button8
$nr = 8
$btng = $Button8
if $t8 = 0 then main()
if $t8 = 1 then kaserne()
case $Button9
msgbox(0, '', 'Du kannst hier nichts bauen')
auswert()
case $Button10
$nr = 10
$btng = $Button10
if $t10 = 0 then main()
if $t10 = 1 then kaserne()
case $Button11
$nr = 11
$btng = $Button11
if $t11 = 0 then main()
if $t11 = 1 then kaserne()
case $Button12
$nr = 12
$btng = $Button12
if $t12 = 0 then main()
if $t12 = 1 then kaserne()
case $Button13
$nr = 13
$btng = $Button13
if $t13 = 0 then main()
if $t13 = 1 then kaserne()
case $Button14
$nr = 14
$btng = $Button14
if $t14 = 0 then main()
if $t14 = 1 then kaserne()
case $Button15
$nr = 15
$btng = $Button15
if $t15 = 0 then main()
if $t15 = 1 then kaserne()
case $Button16
$nr = 16
$btng = $Button16
if $t16 = 0 then main()
if $t16 = 1 then kaserne()
case $Button17
$nr = 17
$btng = $Button17
if $t17 = 0 then main()
if $t17 = 1 then kaserne()
case $Button18
$nr = 18
$btng = $Button18
if $t18 = 0 then main()
if $t18 = 1 then kaserne()
case $Button19
$nr = 19
$btng = $Button19
if $t19 = 0 then main()
if $t19 = 1 then kaserne()
case $Button20
$nr = 20
$btng = $Button20
if $t20 = 0 then main()
if $t20 = 1 then kaserne()
case $Button21
$nr = 21
$btng = $Button21
if $t21 = 0 then main()
if $t21 = 1 then kaserne()
case $Button22
$nr = 22
$btng = $Button22
if $t22 = 0 then main()
if $t22 = 1 then kaserne()
case $Button23
$nr = 23
$btng = $Button23
if $t23 = 0 then main()
if $t23 = 1 then kaserne()
case $Button24
$nr = 24
$btng = $Button24
if $t24 = 0 then main()
if $t24 = 1 then kaserne()
case $rbee
beep(500, 100)
$holz = $holz+$holzd
$stein = $stein+$steind
$gold = $gold+$goldd
$runde = $runde + 1
$flzt = $flzt + 1
if $runde > 10 then $fbgs = $fbgs + 1
if $runde > 15 then $fswk = $fswk + 1
if $runde > 20 then $frtr = $frtr + 1
auswert()
case $GUI_EVENT_CLOSE
$156 = msgbox(4, 'Beenden', 'Der Spielstand wird beim beenden gelöscht'&@CRLF&'Wirklich beenden?')
if $156 = 6 then Exit
case $anl
anleitung()
EndSwitch
select
case $runde = $forschrunde
$forschrunde = -1
$flzt = $flzt - $todlzt
$fbgs = $fbgs - $todbgs
$fswk = $fswk - $todswk
$frtr = $frtr - $todrtr
$lzt = $lzt + $flzt
$bgs = $bgs + $fbgs
$swk = $swk + $fswk
$rtr = $rtr + $frtr
$gw = $frtr * 20 + $fswk * 10
$hw = $fbgs * 10 + $flzt * 5
$sw = $fswk * 10 + $frtr * 10
$gold = $gold + $gw
$stein = $stein + $sw
$holz = $holz + $hw
msgbox(0, '', 'Dein Forschungstrupp ist zurrück gekommen!'&@CRLF&'Es sind Gestroben: Lanzenträger: '&$todlzt&@CRLF&' Bogenschützen: '&$todbgs&@CRLF&'Schwertkämpfer: '&$todswk&@CRLF&'Ritter: '&$todrtr&@CRLF&@CRLF&'Du hast gefunden:'&@CRLF&'Holz: '&$hw&@CRLF&'Gold: '&$gw&@CRLF&'Stein: '&$sw)
auswert()
$forschungen = 1
EndSelect
$msg = traygetmsg()
select
Case $msg = $msz
mauszeiger()
case $msg = $end
$156 = msgbox(4, 'Beenden', 'Der Spielstand wird beim beenden gelöscht'&@CRLF&'Wirklich beenden?')
if $156 = 6 then Exit
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 + 3
auswert()
guictrlsetdata($btng, 'Kaserne')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 1
EndIfif $nr = 2 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t2 = 1
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 1
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 1
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 1
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 1
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 1
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 1
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 1
EndIf
if $nr = 11 Then
$t11 = 1
EndIf
if $nr = 12 Then
$t12 = 1
EndIf
if $nr = 13 Then
$t13 = 1
EndIf
if $nr = 14 Then
$t14 = 1
EndIf
if $nr = 15 Then
$t15 = 1
EndIf
if $nr = 16 Then
$t16 = 1
EndIf
if $nr = 17 Then
$t17 = 1
EndIf
if $nr = 18 Then
$t18 = 1
EndIf
if $nr = 19 Then
$t19 = 1
EndIf
if $nr = 20 Then
$t20 = 1
EndIf
if $nr = 21 Then
$t21 = 1
EndIf
if $nr = 22 Then
$t22 = 1
EndIf
if $nr = 23 Then
$t23 = 1
EndIf
if $nr = 24 Then
$t24 = 1
EndIf
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
auswert()
guictrlsetdata($btng, 'Gehöft')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 2
EndIf
if $nr = 2 Then
$t2 = 2
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 2
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 2
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 2
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 2
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 2
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 2
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 2
EndIf
if $nr = 11 Then
$t11 = 2
EndIf
if $nr = 12 Then
$t12 = 2
EndIf
if $nr = 13 Then
$t13 = 2
EndIf
if $nr = 14 Then
$t14 = 2
EndIf
if $nr = 15 Then
$t15 = 2
EndIf
if $nr = 16 Then
$t16 = 2
EndIf
if $nr = 17 Then
$t17 = 2
EndIf
if $nr = 18 Then
$t18 = 2
EndIf
if $nr = 19 Then
$t19 = 2
EndIf
if $nr = 20 Then
$t20 = 2
EndIf
if $nr = 21 Then
$t21 = 2
EndIf
if $nr = 22 Then
$t22 = 2
EndIf
if $nr = 23 Then
$t23 = 2
EndIf
if $nr = 24 Then
$t24 = 2
EndIf
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
auswert()
guictrlsetdata($btng, 'Forschung')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 3
EndIf
if $nr = 2 Then
$t2 = 3
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 3
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 3
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 3
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 3
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 3
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 3
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 3
EndIf
if $nr = 11 Then
$t11 = 3
EndIf
if $nr = 12 Then
$t12 = 3
EndIf
if $nr = 13 Then
$t13 = 3
EndIf
if $nr = 14 Then
$t14 = 3
EndIf
if $nr = 15 Then
$t15 = 3
EndIf
if $nr = 16 Then
$t16 = 3
EndIf
if $nr = 17 Then
$t17 = 3
EndIf
if $nr = 18 Then
$t18 = 3
EndIf
if $nr = 19 Then
$t19 = 3
EndIf
if $nr = 20 Then
$t20 = 3
EndIf
if $nr = 21 Then
$t21 = 3
EndIf
if $nr = 22 Then
$t22 = 3
EndIf
if $nr = 23 Then
$t23 = 3
EndIf
if $nr = 24 Then
$t24 = 3
EndIf
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 + 1
auswert()
GUICtrlSetData($btng, 'Holzfäller')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 4
EndIf
if $nr = 2 Then
$t2 = 4
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 4
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 4
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 4
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 4
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 4
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 4
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t10 = 4
EndIf
if $nr = 11 Then
$t11 = 4
EndIf
if $nr = 12 Then
$t12 = 4
EndIf
if $nr = 13 Then
$t13 = 4
EndIf
if $nr = 14 Then
$t14 = 4
EndIf
if $nr = 15 Then
$t15 = 4
EndIf
if $nr = 16 Then
$t16 = 4
EndIf
if $nr = 17 Then
$t17 = 4
EndIf
if $nr = 18 Then
$t18 = 4
EndIf
if $nr = 19 Then
$t19 = 4
EndIf
if $nr = 20 Then
$t20 = 4
EndIf
if $nr = 21 Then
$t21 = 4
EndIf
if $nr = 22 Then
$t22 = 4
EndIf
if $nr = 23 Then
$t23 = 4
EndIf
if $nr = 24 Then
$t24 = 4
EndIf
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 + 1
auswert()
guictrlsetdata($btng, 'Steinmetzt')
guisetstate(0, $bauen)
$dobuy = 1
if $nr = 1 Then
$t1 = 5
EndIf
if $nr = 2 Then
$t2 = 5
EndIfif $nr = 3 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t3 = 5
EndIfif $nr = 4 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t4 = 5
EndIfif $nr = 5 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t5 = 5
EndIfif $nr = 6 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t6 = 5
EndIfif $nr = 7 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t7 = 5
EndIfif $nr = 8 Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$t8 = 5
EndIfif $nr = 10 Then
[/autoit] [autoit][/autoit] [autoit]
$t10 = 5
EndIf
if $nr = 11 Then
$t11 = 5
EndIf
if $nr = 12 Then
$t12 = 5
EndIf
if $nr = 13 Then
$t13 = 5
EndIf
if $nr = 14 Then
$t14 = 5
EndIf
if $nr = 15 Then
$t15 = 5
EndIf
if $nr = 16 Then
$t16 = 5
EndIf
if $nr = 17 Then
$t17 = 5
EndIf
if $nr = 18 Then
$t18 = 5
EndIf
if $nr = 19 Then
$t19 = 5
EndIf
if $nr = 20 Then
$t20 = 5
EndIf
if $nr = 21 Then
$t21 = 5
EndIf
if $nr = 22 Then
$t22 = 5
EndIf
if $nr = 23 Then
$t23 = 5
EndIf
if $nr = 24 Then
$t24 = 5
EndIf
EndIf
EndIf
Case $msg = $GUI_EVENT_CLOSE
guisetstate(0, $bauen)
$dobuy = 1
EndSelectuntil $dobuy = 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [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
auswert()
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
func mauszeiger()
msgbox(0, '', 'Diese Funktion ist noch nicht fertig!')
EndFunc
func kaserne()
if $dobuy = 0 Then
$exit156 = 0
guisetstate(@SW_SHOW, $kasernegui)
Do
$msg = guigetmsg()
Switch $msg
Case $GUI_EVENT_CLOSE
$exit156 = 1
case $lanzis
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $holz > 9 Then
$lzt = $lzt + 1
$holz = $holz - 10
auswert()
EndIf
case $bogis
if $holz < 20 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $stein < 1 then msgbox(0, '', 'Du hast zu wenig Steine!')
if $holz > 19 Then
if $stein > 0 then
$bgs = $bgs + 1
$holz = $holz - 20
$stein = $stein - 1
auswert()
EndIf
EndIf
case $schwertis
if $gold < 30 then msgbox(0, '', 'Du hast zu wenig Gold!')
if $holz < 20 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $stein < 5 then msgbox(0, '', 'Du hast zu wenig Stein!')
if $gold > 29 then
if $holz > 19 Then
if $stein > 4 Then
$swk = $swk + 1
$gold = $gold - 30
$holz = $holz - 20
$stein = $stein - 5
auswert()
EndIf
EndIf
EndIf
case $rittis
if $gold < 40 then msgbox(0, '', 'Du hast zu wenig Gold!')
if $holz < 20 then msgbox(0, '', 'Du hast zu wenig Holz!')
if $stein < 10 then msgbox(0, '', 'Du hast zu wenig Stein!')
if $gold > 39 Then
if $holz > 19 Then
if $stein > 9 Then
$gold = $gold - 40
$holz = $holz - 20
$stein = $stein - 10
$rtr = $rtr + 1
auswert()
EndIf
EndIf
EndIf
EndSwitch
Until $exit156 = 1
guisetstate(0, $kasernegui)
EndIf
EndFunc
func anleitung()
$exit156 = 0
guisetstate(@SW_SHOW, $anleitung)
Do
$msg = GUIGetMsg($anleitung)
if $msg = $GUI_EVENT_CLOSE then $exit156 = 1
until $exit156 = 1
guisetstate(0, $anleitung)
EndFunc
func forsch()
guisetstate(@SW_SHOW, $fosch)
$exit156 = 0
Do
if $exit156 = 0 then $msg = guigetmsg()
Switch $msg
case $acc
forschgo()
case $GUI_EVENT_CLOSE
$exit156 = 1
EndSwitch
until $exit156 = 1 or $success = 1
guisetstate(0, $fosch)
EndFunc
func auswert()
guictrlsetdata($holzw, $holz)
GUICtrlSetData($steinw, $stein)
guictrlsetdata($goldw, $gold)
guictrlsetdata($bgsw, $bgs)
GUICtrlSetData($swkw, $swk)
GUICtrlSetData($rtrw, $rtr)
guictrlsetdata($lztw, $lzt)
EndFuncfunc forschgo()
[/autoit] [autoit][/autoit] [autoit]
global $flzt = guictrlread($forschl)
global $fbgs = guictrlread($forschb)
global $fswk = guictrlread($forschs)
global $frtr = guictrlread($forschr)
if $flzt > $lzt then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $fbgs > $bgs then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $fswk > $swk then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $frtr > $rtr then msgbox(0, '', 'Du hast nicht so viele Einheiten!')
if $flzt < $lzt + 1 then
if $fbgs < $bgs + 1 then
if $fswk < $swk + 1 then
if $frtr < $rtr + 1 then
$forschrunde = $runde + 1
$lzt = $lzt - $flzt
$bgs = $bgs - $fbgs
$swk = $swk - $fswk
$rtr = $rtr - $frtr
$forschungen = 2
auswert()
global $todlzt = round(random(0, $flzt), 0)
global $todbgs = round(random(0, $fbgs), 0)
global $todswk = round(random(0, $fswk), 0)
global $todrtr = round(random(0, $frtr), 0)
global $msg = $GUI_EVENT_CLOSE
global $exit156 = 1
global $success = 1
EndIf
EndIf
EndIf
EndIfEndFunc
[/autoit]
func cheat()
msgbox(0, 'CHEEEEEEETERRRRRR', 'Cheats sind an ;-)')
$gold = 99999
$stein = 99999
$holz = 99999
auswert()
EndFunc
func angr()
msgbox(0, '', ''&$flzt&' '&$fbgs&' '&$fswk&' '&$frtr)
EndFunc