Villigers

Scripter192

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>
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)

[/autoit] [autoit][/autoit] [autoit]

$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)

[/autoit] [autoit][/autoit] [autoit]

$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 #####

[/autoit] [autoit][/autoit] [autoit]

$intro = GUICreate("Villigers", 625, 445, 193, 125, 0, 0)
GUISetBkColor(0xC0C0C0)
$load = GUICtrlCreateProgress(224, 208, 193, 25)
GUICtrlCreateLabel("Now Loading ...", 224, 176, 79, 17)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$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)
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)

[/autoit] [autoit][/autoit] [autoit]

Opt("TrayMenuMode", 1)
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 ####

[/autoit] [autoit][/autoit] [autoit]

#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)

[/autoit] [autoit][/autoit] [autoit]

#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)

[/autoit] [autoit][/autoit] [autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

$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)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#endregion ### Forschen ###
$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 ###

[/autoit] [autoit][/autoit] [autoit]

#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
$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
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 2 Then
$t2 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 3 Then
$t3 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 4 Then
$t4 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 5 Then
$t5 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 6 Then
$t6 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 7 Then
$t7 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 8 Then
$t8 = 1
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 3 Then
$t3 = 2
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 4 Then
$t4 = 2
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 5 Then
$t5 = 2
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 6 Then
$t6 = 2
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 7 Then
$t7 = 2
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 8 Then
$t8 = 2
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 3 Then
$t3 = 3
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 4 Then
$t4 = 3
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 5 Then
$t5 = 3
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 6 Then
$t6 = 3
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 7 Then
$t7 = 3
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 8 Then
$t8 = 3
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 3 Then
$t3 = 4
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 4 Then
$t4 = 4
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 5 Then
$t5 = 4
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 6 Then
$t6 = 4
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 7 Then
$t7 = 4
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 8 Then
$t8 = 4
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 3 Then
$t3 = 5
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 4 Then
$t4 = 5
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 5 Then
$t5 = 5
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 6 Then
$t6 = 5
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 7 Then
$t7 = 5
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if $nr = 8 Then
$t8 = 5
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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 $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)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

EndFunc
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

[/autoit]

Padmak

Zitat von Scripter192

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!!!

hast du sowas schon mal bei uns erlebt?
wir sind hier (annähernd) alle ehrlich
sonst würd ja wohl niemand was veröffentlichen oder?
also ich finds lustig
allerdings würd ich immer abfragen ob sich die labels verändert haben -> flackern

Padmak

L3viathan

Wieso ehrlich?
Ich hab auch ein ähnliches Script geschrieben, ganz allein:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$intro = GUICreate("Villigers", 625, 445, 193, 125)
GUISetBkColor(0xC0C0C0)
$load = GUICtrlCreateProgress(224, 208, 193, 25)
GUICtrlCreateLabel("Now Loading ...", 224, 176, 79, 17)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$s = 0
do
$s = $s + 1
sleep(30)
guictrlsetdata($load, $s)
until $s = 100
sleep(1500)
guisetstate(0)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region #### Initialisieren ####
$Form2 = GUICreate("Villigers", 625, 445, 193, 125)
$Button1 = GUICtrlCreateButton("Frei", 192, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("Frei", 240, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button3 = GUICtrlCreateButton("Frei", 288, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button4 = GUICtrlCreateButton("Frei", 192, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button5 = GUICtrlCreateButton("Frei", 192, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button6 = GUICtrlCreateButton("Frei", 240, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button7 = GUICtrlCreateButton("Frei", 288, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button8 = GUICtrlCreateButton("Frei", 288, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button9 = GUICtrlCreateButton("Lager", 240, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Group1 = GUICtrlCreateGroup("Recourcen", 0, 296, 137, 145)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Label1 = GUICtrlCreateLabel("Holz", 8, 336, 25, 17)
$Label2 = GUICtrlCreateLabel("Stein", 8, 368, 28, 17)
$Label3 = GUICtrlCreateLabel("Gold", 8, 400, 26, 17)
$holzw = GUICtrlCreateLabel("0", 56, 336, 15, 17)
$steinw = GUICtrlCreateLabel("0", 56, 368, 15, 17)
$goldw = GUICtrlCreateLabel("0", 56, 400, 20, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button10 = GUICtrlCreateButton("Kaufen", 192, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button11 = GUICtrlCreateButton("Kaufen", 240, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button12 = GUICtrlCreateButton("Kaufen", 288, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button13 = GUICtrlCreateButton("Kaufen", 336, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button14 = GUICtrlCreateButton("Kaufen", 336, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button15 = GUICtrlCreateButton("Kaufen", 336, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button16 = GUICtrlCreateButton("Kaufen", 336, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button17 = GUICtrlCreateButton("Kaufen", 384, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button18 = GUICtrlCreateButton("Kaufen", 432, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button19 = GUICtrlCreateButton("Kaufen", 432, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button20 = GUICtrlCreateButton("Kaufen", 384, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button21 = GUICtrlCreateButton("Kaufen", 432, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button22 = GUICtrlCreateButton("Kaufen", 384, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button23 = GUICtrlCreateButton("Kaufen", 432, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button24 = GUICtrlCreateButton("Kaufen", 384, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$rbee = GUICtrlCreateButton("Runde beenden", 480, 328, 129, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$fst = GUICtrlCreateButton("Forschungstrupp schicken", 240, 408, 145, 25, 0)
$attk = GUICtrlCreateButton("Feind angreifen", 408, 408, 89, 25, 0)
$Group2 = GUICtrlCreateGroup("Truppen", 8, 8, 137, 153)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Label4 = GUICtrlCreateLabel("Bogenschützen", 24, 32, 78, 17)
$Label5 = GUICtrlCreateLabel("Schwertkämpfer", 24, 56, 81, 17)
$Label6 = GUICtrlCreateLabel("Lanzenträger", 24, 80, 66, 17)
$Label7 = GUICtrlCreateLabel("Ritter", 24, 104, 29, 17)
$bgsw = GUICtrlCreateLabel("0", 112, 32, 15, 17)
$swkw = GUICtrlCreateLabel("0", 112, 56, 15, 17)
$lztw = GUICtrlCreateLabel("0", 112, 80, 15, 17)
$rtrw = GUICtrlCreateLabel("0", 112, 104, 15, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $form2)
#EndRegion #### Initialisieren

[/autoit] [autoit][/autoit] [autoit]

#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)

[/autoit] [autoit][/autoit] [autoit]

#EndRegion #### BAUEN ####

[/autoit] [autoit][/autoit] [autoit]

$bauern = 0
$holz = 30
$stein = 35
$gold = 99
$bgs = 0
$swk = 0
$rtr = 0
$steind = 1
$holzd = 1
$goldd = 1
$k10 = 0
$k11 = 0
$k12 = 0
$k13 = 0
$k14 = 0
$k15 = 0
$k16 = 0
$k17 = 0
$k18 = 0
$k19 = 0
$k20 = 0
$k21 = 0
$k22 = 0
$k23 = 0
$k24 = 0
$dobuy = 0

[/autoit] [autoit][/autoit] [autoit]

While 1
$dobuy = 0

$msg = guigetmsg()

guictrlsetdata($holzw, $holz)
GUICtrlSetData($steinw, $stein)
guictrlsetdata($goldw, $gold)
guictrlsetdata($bgsw, $bgs)
GUICtrlSetData($swkw, $swk)
GUICtrlSetData($rtrw, $rtr)
Select
case $msg = $fst

case $msg = $attk

case $msg = $Button1
$btng = $Button1
$nr = 1
main()
case $msg = $Button2
$nr = 2
$btng = $Button2
main()
case $msg = $Button3

$nr = 3
$btng = $Button3
main()
case $msg = $Button4
$nr = 4
$btng = $Button4
main()
case $msg = $Button5
$nr = 5
$btng = $Button5
main()
case $msg = $Button6
$nr = 6
$btng = $Button6
main()
case $msg = $Button7
$nr = 7
$btng = $Button7
main()
case $msg = $Button8
$nr = 8
$btng = $Button8
main()
case $msg = $Button9
msgbox(0, '', 'Du kannst hier nichts bauen')

case $msg = $Button10
$nr = 10
$btng = $Button10
main()
case $msg = $Button11
$nr = 11
$btng = $Button11
main()
case $msg = $Button12
$nr = 12
$btng = $Button12
main()
case $msg = $Button13
$nr = 13
$btng = $Button13
main()
case $msg = $Button14
$nr = 14
$btng = $Button14
main()
case $msg = $Button15
$nr = 15
$btng = $Button15
main()
case $msg = $Button16
$nr = 16
$btng = $Button16
main()
case $msg = $Button17
$nr = 17
$btng = $Button17
main()
case $msg = $Button18
$nr = 18
$btng = $Button18
main()
case $msg = $Button19
$nr = 19
$btng = $Button19
main()
case $msg = $Button20
$nr = 20
$btng = $Button20
main()
case $msg = $Button21
$nr = 21
$btng = $Button21
main()
case $msg = $Button22
$nr = 22
$btng = $Button22
main()
case $msg = $Button23
$nr = 23
$btng = $Button23
main()
case $msg = $Button24
$nr = 24
$btng = $Button24
main()
case $msg = $rbee
beep(500, 100)
$holz = $holz+$holzd
$stein = $stein+$steind
$gold = $gold+$goldd
case $msg = $GUI_EVENT_CLOSE
guisetstate(0, $bauen)
EndSelect
WEnd

func main()
if $nr < 10 then $allow = 1

if $nr = 10 Then

if $k10 = 0 then
$allow = 0
EndIf
if $k10 = 1 then $allow = 1
EndIf

if $nr = 11 Then
if $k11 = 0 then
$allow = 0
EndIf
if $k11 = 1 then $allow = 1
EndIf

if $nr = 12 Then
if $k12 = 0 then
$allow = 0
EndIf
if $k12 = 1 then $allow = 1
EndIf

if $nr = 13 Then
if $k13 = 0 then
$allow = 0
EndIf
if $k13 = 1 then $allow = 1
EndIf

if $nr = 14 Then
if $k14 = 0 then
$allow = 0
EndIf
if $k14 = 1 then $allow = 1
EndIf

if $nr = 15 Then
if $k15 = 0 then
$allow = 0
EndIf
if $k15 = 1 then $allow = 1
EndIf

if $nr = 16 Then
if $k16 = 0 then
$allow = 0
EndIf
if $k16 = 1 then $allow = 1
EndIf

if $nr = 17 Then
if $k17 = 0 then
$allow = 0
EndIf
if $k17 = 1 then $allow = 1
EndIf

if $nr = 18 Then
if $k18 = 0 then
$allow = 0
EndIf
if $k18 = 1 then $allow = 1
EndIf

if $nr = 19 Then
if $k19 = 0 then
$allow = 0
EndIf
if $k19 = 1 then $allow = 1
EndIf

if $nr = 20 Then
if $k20 = 0 then
$allow = 0
EndIf
if $k20 = 1 then $allow = 1
EndIf

if $nr = 21 Then
if $k21 = 0 then
$allow = 0
EndIf
if $k21 = 1 then $allow = 1
EndIf

if $nr = 22 Then
if $k22 = 0 then
$allow = 0
EndIf
if $k22 = 1 then $allow = 1
EndIf

if $nr = 23 Then
if $k23 = 0 then
$allow = 0
EndIf
if $k23 = 1 then $allow = 1
EndIf

if $nr = 24 Then
if $k24 = 0 then
$allow = 0
EndIf
if $k24 = 1 then $allow = 1
EndIf

if $allow = 1 then
GUISetState(@SW_SHOW, $bauen)

Do
$msg = GUIGetMsg($bauen)
Select
case $msg = $kaserne
if $stein < 20 then msgbox(0, '', 'Du hast nich genügend Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $gold < 50 then msgbox(0, '', 'Du hast zu wenig Gold')
if $gold > 49 Then
if $stein > 19 Then
if $holz > 9 Then
$stein = $stein - 20
$holz = $holz - 10
$gold = $gold - 50
$goldd = $goldd + 5
guictrlsetdata($btng, 'Kaserne')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
endif
EndIf
Case $msg = $gehoef
if $stein < 5 then msgbox(0, '', 'Du hast zu wenig Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $stein > 4 Then
if $holz > 9 Then
$stein = $stein - 5
$holz = $holz - 10
$bauern = $bauern + 6
guictrlsetdata($btng, 'Gehöft')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $for
if $stein < 15 then msgbox(0, '', 'Du hast zu wenig Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $stein > 14 Then
if $holz > 9 Then
$stein = $stein - 15
$holz = $holz - 10
$forschungen = 1
guictrlsetdata($btng, 'Forschung')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $hlz
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $gold < 10 then msgbox(0, '', 'Du hast zu wenig Gold')
if $gold > 9 Then
if $holz > 9 Then
$holz = $holz - 10
$gold = $gold - 10
$holzd = $holzd + 5
GUICtrlSetData($btng, 'Holzfäller')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $stn
if $stein < 10 then msgbox(0, '', 'Du hast zu wenig Stein')
if $gold < 10 Then msgbox(0, '', 'Du hast zu wenig Gold')
if $stein > 9 then
if $gold > 9 Then
$gold = $gold - 10
$stein = $stein - 10
$steind = $steind + 5
guictrlsetdata($btng, 'Steinmetzt')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $GUI_EVENT_CLOSE
$dobuy = 1
EndSelect

[/autoit] [autoit][/autoit] [autoit]

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
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

[/autoit]

Tipp: mach an den Anfang einen Kommentar rein

Oger-Lord

Man kann noch keine Krieger ausbilden? Oder habe ich es nicht gefunden? Als ich auf die Kaserne geklickt habe hatte ich die Möglichkeit sie zu ersetzten.
Ansonsten würde ich dir noch empfehlen Bilder für die Gebäude zu benutzten. Ich finde es bei Spielen immer so traurig wen man sich das Szeario dank der fehlenden Bilder nicht so schön vorstellen kann.

Allgemein ein schönes Projekt, auch wenn ich mir das mit dem Angreifen und den Gegnern noch nicht ganz vorstellen kann.

Edit über mir: hey L3viathan2142 klasse arbeit, wasr ja ganz schön fleißg!!!!!!

Padmak

Zitat von L3viathan2142

Ich hab auch ein ähnliches Script geschrieben, ganz allein:

boa ey es gibt schon zufälle
ich hab auch so eins noch rumliegen:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$intro = GUICreate("Villigers", 625, 445, 193, 125)
GUISetBkColor(0xC0C0C0)
$load = GUICtrlCreateProgress(224, 208, 193, 25)
GUICtrlCreateLabel("Now Loading ...", 224, 176, 79, 17)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$s = 0
do
$s = $s + 1
sleep(30)
guictrlsetdata($load, $s)
until $s = 100
sleep(1500)
guisetstate(0)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#Region #### Initialisieren ####
$Form2 = GUICreate("Villigers", 625, 445, 193, 125)
$Button1 = GUICtrlCreateButton("Frei", 192, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("Frei", 240, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button3 = GUICtrlCreateButton("Frei", 288, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button4 = GUICtrlCreateButton("Frei", 192, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button5 = GUICtrlCreateButton("Frei", 192, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button6 = GUICtrlCreateButton("Frei", 240, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button7 = GUICtrlCreateButton("Frei", 288, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button8 = GUICtrlCreateButton("Frei", 288, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button9 = GUICtrlCreateButton("Lager", 240, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Group1 = GUICtrlCreateGroup("Recourcen", 0, 296, 137, 145)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Label1 = GUICtrlCreateLabel("Holz", 8, 336, 25, 17)
$Label2 = GUICtrlCreateLabel("Stein", 8, 368, 28, 17)
$Label3 = GUICtrlCreateLabel("Gold", 8, 400, 26, 17)
$holzw = GUICtrlCreateLabel("0", 56, 336, 15, 17)
$steinw = GUICtrlCreateLabel("0", 56, 368, 15, 17)
$goldw = GUICtrlCreateLabel("0", 56, 400, 20, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button10 = GUICtrlCreateButton("Kaufen", 192, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button11 = GUICtrlCreateButton("Kaufen", 240, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button12 = GUICtrlCreateButton("Kaufen", 288, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button13 = GUICtrlCreateButton("Kaufen", 336, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button14 = GUICtrlCreateButton("Kaufen", 336, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button15 = GUICtrlCreateButton("Kaufen", 336, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button16 = GUICtrlCreateButton("Kaufen", 336, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button17 = GUICtrlCreateButton("Kaufen", 384, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button18 = GUICtrlCreateButton("Kaufen", 432, 256, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button19 = GUICtrlCreateButton("Kaufen", 432, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button20 = GUICtrlCreateButton("Kaufen", 384, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button21 = GUICtrlCreateButton("Kaufen", 432, 160, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button22 = GUICtrlCreateButton("Kaufen", 384, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button23 = GUICtrlCreateButton("Kaufen", 432, 112, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Button24 = GUICtrlCreateButton("Kaufen", 384, 208, 49, 49, 0)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$rbee = GUICtrlCreateButton("Runde beenden", 480, 328, 129, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$fst = GUICtrlCreateButton("Forschungstrupp schicken", 240, 408, 145, 25, 0)
$attk = GUICtrlCreateButton("Feind angreifen", 408, 408, 89, 25, 0)
$Group2 = GUICtrlCreateGroup("Truppen", 8, 8, 137, 153)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Label4 = GUICtrlCreateLabel("Bogenschützen", 24, 32, 78, 17)
$Label5 = GUICtrlCreateLabel("Schwertkämpfer", 24, 56, 81, 17)
$Label6 = GUICtrlCreateLabel("Lanzenträger", 24, 80, 66, 17)
$Label7 = GUICtrlCreateLabel("Ritter", 24, 104, 29, 17)
$bgsw = GUICtrlCreateLabel("0", 112, 32, 15, 17)
$swkw = GUICtrlCreateLabel("0", 112, 56, 15, 17)
$lztw = GUICtrlCreateLabel("0", 112, 80, 15, 17)
$rtrw = GUICtrlCreateLabel("0", 112, 104, 15, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $form2)
#EndRegion #### Initialisieren

[/autoit] [autoit][/autoit] [autoit]

#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)

[/autoit] [autoit][/autoit] [autoit]

#EndRegion #### BAUEN ####

[/autoit] [autoit][/autoit] [autoit]

$bauern = 0
$holz = 30
$stein = 35
$gold = 99
$bgs = 0
$swk = 0
$rtr = 0
$steind = 1
$holzd = 1
$goldd = 1
$k10 = 0
$k11 = 0
$k12 = 0
$k13 = 0
$k14 = 0
$k15 = 0
$k16 = 0
$k17 = 0
$k18 = 0
$k19 = 0
$k20 = 0
$k21 = 0
$k22 = 0
$k23 = 0
$k24 = 0
$dobuy = 0

[/autoit] [autoit][/autoit] [autoit]

While 1
$dobuy = 0

$msg = guigetmsg()

guictrlsetdata($holzw, $holz)
GUICtrlSetData($steinw, $stein)
guictrlsetdata($goldw, $gold)
guictrlsetdata($bgsw, $bgs)
GUICtrlSetData($swkw, $swk)
GUICtrlSetData($rtrw, $rtr)
Select
case $msg = $fst

case $msg = $attk

case $msg = $Button1
$btng = $Button1
$nr = 1
main()
case $msg = $Button2
$nr = 2
$btng = $Button2
main()
case $msg = $Button3

$nr = 3
$btng = $Button3
main()
case $msg = $Button4
$nr = 4
$btng = $Button4
main()
case $msg = $Button5
$nr = 5
$btng = $Button5
main()
case $msg = $Button6
$nr = 6
$btng = $Button6
main()
case $msg = $Button7
$nr = 7
$btng = $Button7
main()
case $msg = $Button8
$nr = 8
$btng = $Button8
main()
case $msg = $Button9
msgbox(0, '', 'Du kannst hier nichts bauen')

case $msg = $Button10
$nr = 10
$btng = $Button10
main()
case $msg = $Button11
$nr = 11
$btng = $Button11
main()
case $msg = $Button12
$nr = 12
$btng = $Button12
main()
case $msg = $Button13
$nr = 13
$btng = $Button13
main()
case $msg = $Button14
$nr = 14
$btng = $Button14
main()
case $msg = $Button15
$nr = 15
$btng = $Button15
main()
case $msg = $Button16
$nr = 16
$btng = $Button16
main()
case $msg = $Button17
$nr = 17
$btng = $Button17
main()
case $msg = $Button18
$nr = 18
$btng = $Button18
main()
case $msg = $Button19
$nr = 19
$btng = $Button19
main()
case $msg = $Button20
$nr = 20
$btng = $Button20
main()
case $msg = $Button21
$nr = 21
$btng = $Button21
main()
case $msg = $Button22
$nr = 22
$btng = $Button22
main()
case $msg = $Button23
$nr = 23
$btng = $Button23
main()
case $msg = $Button24
$nr = 24
$btng = $Button24
main()
case $msg = $rbee
beep(500, 100)
$holz = $holz+$holzd
$stein = $stein+$steind
$gold = $gold+$goldd
case $msg = $GUI_EVENT_CLOSE
guisetstate(0, $bauen)
EndSelect
WEnd

func main()
if $nr < 10 then $allow = 1

if $nr = 10 Then

if $k10 = 0 then
$allow = 0
EndIf
if $k10 = 1 then $allow = 1
EndIf

if $nr = 11 Then
if $k11 = 0 then
$allow = 0
EndIf
if $k11 = 1 then $allow = 1
EndIf

if $nr = 12 Then
if $k12 = 0 then
$allow = 0
EndIf
if $k12 = 1 then $allow = 1
EndIf

if $nr = 13 Then
if $k13 = 0 then
$allow = 0
EndIf
if $k13 = 1 then $allow = 1
EndIf

if $nr = 14 Then
if $k14 = 0 then
$allow = 0
EndIf
if $k14 = 1 then $allow = 1
EndIf

if $nr = 15 Then
if $k15 = 0 then
$allow = 0
EndIf
if $k15 = 1 then $allow = 1
EndIf

if $nr = 16 Then
if $k16 = 0 then
$allow = 0
EndIf
if $k16 = 1 then $allow = 1
EndIf

if $nr = 17 Then
if $k17 = 0 then
$allow = 0
EndIf
if $k17 = 1 then $allow = 1
EndIf

if $nr = 18 Then
if $k18 = 0 then
$allow = 0
EndIf
if $k18 = 1 then $allow = 1
EndIf

if $nr = 19 Then
if $k19 = 0 then
$allow = 0
EndIf
if $k19 = 1 then $allow = 1
EndIf

if $nr = 20 Then
if $k20 = 0 then
$allow = 0
EndIf
if $k20 = 1 then $allow = 1
EndIf

if $nr = 21 Then
if $k21 = 0 then
$allow = 0
EndIf
if $k21 = 1 then $allow = 1
EndIf

if $nr = 22 Then
if $k22 = 0 then
$allow = 0
EndIf
if $k22 = 1 then $allow = 1
EndIf

if $nr = 23 Then
if $k23 = 0 then
$allow = 0
EndIf
if $k23 = 1 then $allow = 1
EndIf

if $nr = 24 Then
if $k24 = 0 then
$allow = 0
EndIf
if $k24 = 1 then $allow = 1
EndIf

if $allow = 1 then
GUISetState(@SW_SHOW, $bauen)

Do
$msg = GUIGetMsg($bauen)
Select
case $msg = $kaserne
if $stein < 20 then msgbox(0, '', 'Du hast nich genügend Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $gold < 50 then msgbox(0, '', 'Du hast zu wenig Gold')
if $gold > 49 Then
if $stein > 19 Then
if $holz > 9 Then
$stein = $stein - 20
$holz = $holz - 10
$gold = $gold - 50
$goldd = $goldd + 5
guictrlsetdata($btng, 'Kaserne')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
endif
EndIf
Case $msg = $gehoef
if $stein < 5 then msgbox(0, '', 'Du hast zu wenig Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $stein > 4 Then
if $holz > 9 Then
$stein = $stein - 5
$holz = $holz - 10
$bauern = $bauern + 6
guictrlsetdata($btng, 'Gehöft')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $for
if $stein < 15 then msgbox(0, '', 'Du hast zu wenig Stein')
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $stein > 14 Then
if $holz > 9 Then
$stein = $stein - 15
$holz = $holz - 10
$forschungen = 1
guictrlsetdata($btng, 'Forschung')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $hlz
if $holz < 10 then msgbox(0, '', 'Du hast zu wenig Holz')
if $gold < 10 then msgbox(0, '', 'Du hast zu wenig Gold')
if $gold > 9 Then
if $holz > 9 Then
$holz = $holz - 10
$gold = $gold - 10
$holzd = $holzd + 5
GUICtrlSetData($btng, 'Holzfäller')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $stn
if $stein < 10 then msgbox(0, '', 'Du hast zu wenig Stein')
if $gold < 10 Then msgbox(0, '', 'Du hast zu wenig Gold')
if $stein > 9 then
if $gold > 9 Then
$gold = $gold - 10
$stein = $stein - 10
$steind = $steind + 5
guictrlsetdata($btng, 'Steinmetzt')
guisetstate(0, $bauen)
$dobuy = 1
EndIf
EndIf

Case $msg = $GUI_EVENT_CLOSE
$dobuy = 1
EndSelect

[/autoit] [autoit][/autoit] [autoit]

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
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

[/autoit]

Zitat von Scripter192

geb es als "Eures" weiter

doch des hat nämlich "Eures" geschrieben
...
sorry für die schlechten witze *post lösch*

Padmak

**Raupi**

Was mir aufgefallen ist :
1. Die Anzeige fläckert (wurde aber schon genannt).
2. Der Schließen Button des Baumanüs reagiert erst auf den 2. Klick.
3. Das Spiel beedet sich nicht nach dem klick auf den Schließen Button im Hauptmenü.

Scripter192

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

ctec

Hallo,

durch "Anpassung" der If- und Case-Abfragen, dynamischer Gestaltung einiger Elemente und Auslagerung einiger Variablen in ein Array könntest Du bestimmt 50% Quellcode sparen

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

Oger-Lord

Sry, aber Arrays sind deine Freunde!
Sie erleichtern dir die Arbeit und du musst den Code nicht immer per hand kopieren!

So würde ich zum Beispiel das Spielfeld erstellen:

Spoiler anzeigen

[autoit]

dim $Button[24]
for $r=0 to 5
for $i=0 to 3
$Button[$r*4+$i] = GUICtrlCreateButton("Frei", 192+$r*49, 112+$i*49, 49, 49, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
next
next

[/autoit]

Und schwupp sind alle 24 Felder durch einen so kurzen Code entstanden.