Endlich ist mein Script fertig 
hoffe alle Bugs sind behoben und alle eure Wünsche erfüllt xD .
Bitte um Feedback
Thx Im Vorraus
Stand 09.03.09
Spoiler anzeigen
#include <GUIConstants.au3>
#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)
GUICtrlSetBkColor($Label3, 0xFFFFFF)
GUICtrlSetFont($Label3, 30, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW, $Form1)
$trans = 0
[/autoit] [autoit][/autoit] [autoit]Do
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)
GUISetBkColor(0xC0C0C0)
$load = GUICtrlCreateProgress(224, 208, 193, 25)
GUICtrlCreateLabel("Now Loading ...", 224, 176, 79, 17)
GUISetState(@SW_SHOW)
$s = 0
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)
$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)
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 ####
$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 ###
$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 ###
$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)
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 ###
$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 ###
$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 ###
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
EndIf
if $nr = 2 Then
$t2 = 1
EndIf
if $nr = 3 Then
$t3 = 1
EndIf
if $nr = 4 Then
$t4 = 1
EndIf
if $nr = 5 Then
$t5 = 1
EndIf
if $nr = 6 Then
$t6 = 1
EndIf
if $nr = 7 Then
$t7 = 1
EndIf
if $nr = 8 Then
$t8 = 1
EndIf
if $nr = 10 Then
$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
EndIf
if $nr = 3 Then
$t3 = 2
EndIf
if $nr = 4 Then
$t4 = 2
EndIf
if $nr = 5 Then
$t5 = 2
EndIf
if $nr = 6 Then
$t6 = 2
EndIf
if $nr = 7 Then
$t7 = 2
EndIf
if $nr = 8 Then
$t8 = 2
EndIf
if $nr = 10 Then
$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
EndIf
if $nr = 3 Then
$t3 = 3
EndIf
if $nr = 4 Then
$t4 = 3
EndIf
if $nr = 5 Then
$t5 = 3
EndIf
if $nr = 6 Then
$t6 = 3
EndIf
if $nr = 7 Then
$t7 = 3
EndIf
if $nr = 8 Then
$t8 = 3
EndIf
if $nr = 10 Then
$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
EndIf
if $nr = 3 Then
$t3 = 4
EndIf
if $nr = 4 Then
$t4 = 4
EndIf
if $nr = 5 Then
$t5 = 4
EndIf
if $nr = 6 Then
$t6 = 4
EndIf
if $nr = 7 Then
$t7 = 4
EndIf
if $nr = 8 Then
$t8 = 4
EndIf
if $nr = 10 Then
$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
EndIf
if $nr = 3 Then
$t3 = 5
EndIf
if $nr = 4 Then
$t4 = 5
EndIf
if $nr = 5 Then
$t5 = 5
EndIf
if $nr = 6 Then
$t6 = 5
EndIf
if $nr = 7 Then
$t7 = 5
EndIf
if $nr = 8 Then
$t8 = 5
EndIf
if $nr = 10 Then
$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
EndSelect
until $dobuy = 1
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)
EndFunc
func forschgo()
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
EndIf
EndFunc
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)
EndFunc
MFG Scripter192
