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
#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)
$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, 0, 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)
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")
$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)
#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 ###
#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
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 $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
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()
msgbox(0, 'CHEEEEEEETERRRRRR', 'Cheats sind an ;-)')
$gold = 99999
$stein = 99999
$holz = 99999
auswert()
EndFunc
func angr()
msgbox(0, '', ''&$flzt&' '&$fbgs&' '&$fswk&' '&$frtr)
EndFunc