Beiträge von Nakroma

Nakroma

Zitat von autoBert

Nach meinem Erachten brauchts du mindestens eine Schleife,

mfg autoBert

Heißt? Ich steh grad iwie aufm Schlauch

Nakroma

Ich könnt also eigentlich
card()
main()
main machen oder?
Dann wärs ja wieder logisch

Nakroma

Doch noch ein Problem:

Spoiler anzeigen

[autoit]

$cash = 30
$cash2 = 30
$wert = 0
$wert2 = 0
$player1 = True
$player2 = True
Local $card, $card2
einsatz()
Func einsatz()
Global $player1 = True
Global $player2 = True
Global $wert = 0
Global $wert1 = 0
Global $in = InputBox("Einsatz", "Player 1, wieviel Geld willst du einsetzen?")
Global $in2 = InputBox("Einsatz", "Player 2, wieviel Geld willst du einsetzen?")
If @error Then Exit
If $in < 1 Then
MsgBox(0, "Einsatz", "Bitte neuen Einsatz wählen. Zu niedrig")
einsatz()
EndIf
If $in > $cash Then
MsgBox(0, "Einsatz", "Du hast nicht genug Geld!")
einsatz()
EndIf
If $in2 < 1 Then
MsgBox(0, "Einsatz", "Bitte neuen Einsatz wählen. Zu niedrig")
einsatz()
EndIf
If $in2 > $cash2 Then
MsgBox(0, "Einsatz", "Du hast nicht genug Geld!")
einsatz()
EndIf
card()
card2()
main()
EndFunc ;==>einsatz
Func card()
$cardr = Random(1, 13, 1)
If $cardr = 1 Then
$card = "Ass(1)"
$wert = $wert + 1
ElseIf $cardr = 2 Then
$card = "Zwei(2)"
$wert = $wert + 2
ElseIf $cardr = 3 Then
$card = "Drei(3)"
$wert = $wert + 3
ElseIf $cardr = 4 Then
$card = "Vier(4)"
$wert = $wert + 4
ElseIf $cardr = 5 Then
$card = "Fünf(5)"
$wert = $wert + 5
ElseIf $cardr = 6 Then
$card = "Sechs(6)"
$wert = $wert + 6
ElseIf $cardr = 7 Then
$card = "Sieben(7)"
$wert = $wert + 7
ElseIf $cardr = 8 Then
$card = "Acht(8)"
$wert = $wert + 8
ElseIf $cardr = 9 Then
$card = "Neun(9)"
$wert = $wert + 9
ElseIf $cardr = 10 Then
$card = "Zehn(10)"
$wert = $wert + 10
ElseIf $cardr = 11 Then
$card = "Bube(11)"
$wert = $wert + 11
ElseIf $cardr = 12 Then
$card = "Dame(12)"
$wert = $wert + 12
ElseIf $cardr = 13 Then
$card = "König(13)"
$wert = $wert + 13
EndIf
EndFunc ;==>card
Func card2()
$cardr2 = Random(1, 13, 1)
If $cardr2 = 1 Then
$card2 = "Ass(1)"
$wert2 = $wert2 + 1
ElseIf $cardr2 = 2 Then
$card2 = "Zwei(2)"
$wert2 = $wert2 + 2
ElseIf $cardr2 = 3 Then
$card2 = "Drei(3)"
$wert2 = $wert2 + 3
ElseIf $cardr2 = 4 Then
$card2 = "Vier(4)"
$wert2 = $wert2 + 4
ElseIf $cardr2 = 5 Then
$card2 = "Fünf(5)"
$wert2 = $wert2 + 5
ElseIf $cardr2 = 6 Then
$card2 = "Sechs(6)"
$wert2 = $wert2 + 6
ElseIf $cardr2 = 7 Then
$card2 = "Sieben(7)"
$wert2 = $wert2 + 7
ElseIf $cardr2 = 8 Then
$card2 = "Acht(8)"
$wert2 = $wert2 + 8
ElseIf $cardr2 = 9 Then
$card2 = "Neun(9)"
$wert2 = $wert2 + 9
ElseIf $cardr2 = 10 Then
$card2 = "Zehn(10)"
$wert2 = $wert2 + 10
ElseIf $cardr2 = 11 Then
$card2 = "Bube(11)"
$wert2 = $wert2 + 11
ElseIf $cardr2 = 12 Then
$card2 = "Dame(12)"
$wert2 = $wert2 + 12
ElseIf $cardr2 = 13 Then
$card2 = "König(13)"
$wert2 = $wert2 + 13
EndIf
EndFunc ;==>card2
Func main()
MsgBox(0, "Karte", "Player 1, du hast die Karte: " & $card)
MsgBox(0, "Karte", "Player 2, du hast die Karte: " & $card2)
If $wert > 21 Then
MsgBox(0, "Verloren", "Player 1, Du bist über dem Wert 21! Du bist raus.")
$player1 = False
MsgBox(0, "Cash", "Player 1, dein momentaner Cash: " & $cash)
If $player2 = False Then
$choose_loose = MsgBox(4, "Bank", "Player 1, Player 2, wollt ihr nochmal spielen?")
If $choose_loose = 6 Then
einsatz()
Else
Exit
EndIf
EndIf
EndIf
If $wert2 > 21 Then
MsgBox(0, "Verloren", "Player 2, Du bist über dem Wert 21! Du bist raus.")
$player2 = False
MsgBox(0, "Cash", "Player 2, dein momentaner Cash: " & $cash2)
If $player1 = False Then
$choose_loose2 = MsgBox(4, "Bank", "Player 1, Player 2, wollt ihr nochmal spielen?")
If $choose_loose2 = 6 Then
einsatz()
Else
Exit
EndIf
EndIf
EndIf
$choose_card = MsgBox(4, "Bank", "Player 1, dein momentaner Wert: " & $wert & ". Willst du nochmal ziehen?")
If $choose_card = 6 Then
card()
EndIf
EndFunc

[/autoit]

Wenn man nochmal ziehen will kommt einfach ein Exit O_o
Was stimmt den nicht?

Nakroma

Ein Blackjack Programm. Jetzt soll es für 2 Spieler erweitert werden.

Spoiler anzeigen

[autoit]

$cash = 30
$cash2 = 30
$wert = 0
$wert2 = 0
$player1 = True
$player2 = True
einsatz()
Func einsatz()
Global $player1 = True
Global $player2 = True
Global $wert = 0
Global $wert1 = 0
Global $in = InputBox("Einsatz", "Player 1, wieviel Geld willst du einsetzen?")
Global $in2 = InputBox("Einsatz", "Player 2, wieviel Geld willst du einsetzen?")
If @error Then Exit
If $in < 1 Then
MsgBox(0, "Einsatz", "Bitte neuen Einsatz wählen. Zu niedrig")
einsatz()
EndIf
If $in > $cash Then
MsgBox(0, "Einsatz", "Du hast nicht genug Geld!")
einsatz()
EndIf
If $in2 < 1 Then
MsgBox(0, "Einsatz", "Bitte neuen Einsatz wählen. Zu niedrig")
einsatz()
EndIf
If $in2 > $cash2 Then
MsgBox(0, "Einsatz", "Du hast nicht genug Geld!")
einsatz()
EndIf
card()
card2()
main()
EndFunc
Func card()
$cardr = Random(1, 13, 1)
If $cardr = 1 Then
$card = "Ass(1)"
$wert = $wert + 1
ElseIf $cardr = 2 Then
$card = "Zwei(2)"
$wert = $wert + 2
ElseIf $cardr = 3 Then
$card = "Drei(3)"
$wert = $wert + 3
ElseIf $cardr = 4 Then
$card = "Vier(4)"
$wert = $wert + 4
ElseIf $cardr = 5 Then
$card = "Fünf(5)"
$wert = $wert + 5
ElseIf $cardr = 6 Then
$card = "Sechs(6)"
$wert = $wert + 6
ElseIf $cardr = 7 Then
$card = "Sieben(7)"
$wert = $wert + 7
ElseIf $cardr = 8 Then
$card = "Acht(8)"
$wert = $wert + 8
ElseIf $cardr = 9 Then
$card = "Neun(9)"
$wert = $wert + 9
ElseIf $cardr = 10 Then
$card = "Zehn(10)"
$wert = $wert + 10
ElseIf $cardr = 11 Then
$card = "Bube(11)"
$wert = $wert + 11
ElseIf $cardr = 12 Then
$card = "Dame(12)"
$wert = $wert + 12
ElseIf $cardr = 13 Then
$card = "König(13)"
$wert = $wert + 13
EndIf
EndFunc
Func card2()
$cardr2 = Random(1, 13, 1)
If $cardr2 = 1 Then
$card2 = "Ass(1)"
$wert2 = $wert2 + 1
ElseIf $cardr2 = 2 Then
$card2 = "Zwei(2)"
$wert2 = $wert2 + 2
ElseIf $cardr2 = 3 Then
$card2 = "Drei(3)"
$wert2 = $wert2 + 3
ElseIf $cardr2 = 4 Then
$card2 = "Vier(4)"
$wert2 = $wert2 + 4
ElseIf $cardr2 = 5 Then
$card2 = "Fünf(5)"
$wert2 = $wert2 + 5
ElseIf $cardr2 = 6 Then
$card2 = "Sechs(6)"
$wert2 = $wert2 + 6
ElseIf $cardr2 = 7 Then
$card2 = "Sieben(7)"
$wert2 = $wert2 + 7
ElseIf $cardr2 = 8 Then
$card2 = "Acht(8)"
$wert2 = $wert2 + 8
ElseIf $cardr2 = 9 Then
$card2 = "Neun(9)"
$wert2 = $wert2 + 9
ElseIf $cardr2 = 10 Then
$card2 = "Zehn(10)"
$wert2 = $wert2 + 10
ElseIf $cardr2 = 11 Then
$card2 = "Bube(11)"
$wert2 = $wert2 + 11
ElseIf $cardr2 = 12 Then
$card2 = "Dame(12)"
$wert2 = $wert2 + 12
ElseIf $cardr2 = 13 Then
$card2 = "König(13)"
$wert2 = $wert2 + 13
EndIf
EndFunc
Func main()
MsgBox(0, "Karte", "Player 1, du hast die Karte: " & $card)
MsgBox(0, "Karte", "Player 2, du hast die Karte: " & $card2)
If $wert > 21 Then
MsgBox(0, "Verloren", "Player 1, Du bist über dem Wert 21! Du bist raus.")
$player1 = False
MsgBox(0, "Cash", "Player 1, dein momentaner Cash: " & $cash)
If $player2 = False Then
$choose_loose = MsgBox(4, "Bank", "Player 1, Player 2, wollt ihr nochmal spielen?")
If $choose_loose = 6 Then
einsatz()
Else
Exit
EndIf
EndIf
EndIf
If $wert2 > 21 Then
MsgBox(0, "Verloren", "Player 2, Du bist über dem Wert 21! Du bist raus.")
$player2 = False
MsgBox(0, "Cash", "Player 2, dein momentaner Cash: " & $cash2)
If $player1 = False Then
$choose_loose2 = MsgBox(4, "Bank", "Player 1, Player 2, wollt ihr nochmal spielen?")
If $choose_loose2 = 6 Then
einsatz()
Else
Exit
EndIf
EndIf
EndIf
EndFunc

[/autoit]

Dietmar:
Es soll ja alles drei hintereinander ausgeführt werden.

Nakroma

Hallo,

[autoit]

Func einsatz()
card()
card2()
main()
EndFunc

[/autoit]

Nur die Funktion main() wird ausgeführt. der Rest nicht. wie kann ich das verhindern?
leider geht es aus technischen gründen sowas wie

[autoit]

Func einsatz()
card()
EndFunc
Func card()
card2()
....

[/autoit]

Nicht.
Könnt ihr mir helfen?

Nakroma

In Ansicht auf den Treadh "Autoit vs. Keylogger" habe ich mal ein kleines Tool gebastelt um Keylogger wenigstens ein bisschen zu täuschen. Ich weis, _StringEncrypt ist nicht besonders sicher, aber vor normalen Leuten die an deinen PC gehen sind die Passwörter damit sicher.
Einfach auf "Neues Passwort anlegen" gehen, die Sektion eingeben wie z.B. "Autoit.de" und dann das Passwort. Dann das Passwort einstellen auf "Autoit.de" und dann einfach Passwort einsetzen und auf die Passwortleiste im Browser gehen.

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <String.au3>
Opt("GuiOnEventMode", 1)
GUICreate("Keylogger Defense", 200, 100)
$go = GUICtrlCreateButton("Passwort einsetzen", 10, 10, 180)
$pw = GUICtrlCreateButton("Passwort einstellen", 10, 40, 180)
$newpw = GUICtrlCreateButton("Neues Passwort anlegen", 10, 70, 180)
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUICtrlSetOnEvent($pw, "pw")
GUICtrlSetOnEvent($newpw, "newpw")
GUICtrlSetOnEvent($go, "go")
GUISetState(@SW_SHOW)
$masterkey = "Warlord"
$gokey = ""

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

Func close()
Exit
EndFunc

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

Func go()
Sleep(2000)
Send($gokey)
EndFunc

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

Func pw()
If FileExists("./passwords.ini") Then
$rosections = InputBox("Passwort", "Bitte Section eingeben")
$rosection = _StringEncrypt(1, $rosections, $masterkey)
$gokeys = IniRead("passwords.ini", "passwords", $rosection, "")
$gokey = _StringEncrypt(0, $gokeys, $masterkey)
Else
MsgBox(0, "Fehler", "Keine Passwörter verfügbar")
EndIf
EndFunc

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

Func newpw()
$section = InputBox("Neues Passwort", "Bitte Section eingeben")
$key = InputBox("Neues Passwort", "Bitte Passwort eingeben")
$sectionend = _StringEncrypt(1, $section, $masterkey)
$keyend = _StringEncrypt(1, $key, $masterkey)
IniWrite("passwords.ini", "passwords", $sectionend, $keyend)
EndFunc

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

While 1
Sleep(1)
WEnd

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

Nakroma

Ach stimmt ja. Falsch verstanden Danke

Nakroma

Mir klar. Man kann doch aber auch einfach sein Script in eine .exe compilen, erfüllt das dann nicht den selbem Zweck?

Nakroma

Also,
das hier ist wahrscheinlich eine blöde Frage, dir mir aber schon lange auf der Seele brennt. Was bringen Obfuscator wenn man die .au3 doch in eine .exe compilen kann?

Nakroma

Ah ok^^

Nakroma

Danke an alle Jetzt gehts^^

Nakroma

O_O WTF? Das ist Merkwürdig...

Nakroma

Hehe Viel Spaß

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: Atlatonin, Nakroma

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

Script Function:
RPG - Wave

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

#ce ----------------------------------------------------------------------------
#include <GuiConstants.au3>
#include <stats.au3>
Opt("GUIOnEventMode", 1)
HotKeySet("v", "quest2eq");RingHotkey
$check_volk = IniRead("save.ini", "general", "volk", "")
$check_class = IniRead("save.ini", "general", "klasse", "")
If $check_volk = "Elf" Then
Sleep(1)
ElseIf $check_volk = "Zwerg" Then
Sleep(1)
ElseIf $check_volk = "Mensch" Then
Sleep(1)
ElseIf $check_volk = "Ork" Then
Sleep(1)
Else
$volk = InputBox("Volk", "Volk wählen: Elf, Ork, Zwerg, Mensch")
IniWrite("save.ini", "general", "volk", $volk)
If $volk = "Elf" Then
$int_self = $int_self + 2
$bew_self = $bew_self + 2
ElseIf $volk = "Ork" Then
$starke_self = $starke_self + 2
$ausdauer_self = $ausdauer_self + 2
ElseIf $volk = "Zwerg" Then
$starke_self = $starke_self + 2
$int_self = $int_self + 2
Elseif $volk = "Mensch" Then
$bew_self = $bew_self + 2
$ausdauer_self = $ausdauer_self + 2
Else
MsgBox(0, "Fehler", "Falsches Volk.")
Exit
EndIf
EndIf
If $check_class = "Schurke" Then
Sleep(1)
ElseIf $check_class = "Magier" Then
Sleep(1)
ElseIf $check_class = "Krieger" Then
Sleep(1)
ElseIf $check_class = "Jäger" Then
Sleep(1)
Else
$class = InputBox("Klasse", "Klasse wählen: Schurke, Magier, Krieger, Jäger")
IniWrite("save.ini", "general", "klasse", $class)
If $class = "Schurke" Then
$bew_self = $bew_self + 2
$crit_self = $crit_self + 2
ElseIf $class = "Magier" Then
$int_self = $int_self + 2
$bew_self = $bew_self + 2
ElseIf $class = "Krieger" Then
$ausdauer_self = $ausdauer_self + 2
$starke_self = $starke_self + 2
ElseIf $class = "Jäger" Then
$bew_self = $bew_self + 2
$int_self = $int_self + 2
Else
MsgBox(0, "Fehler", "Falsche Klasse.")
Exit
EndIf
EndIf
$life_enemy1 = 200
$volk = $check_volk
$class = $check_class
Ini_Write()

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

Func Ini_Write()
IniWrite("save.ini", "stats", "int", $int_self)
IniWrite("save.ini", "stats", "starke", $starke_self)
IniWrite("save.ini", "stats", "bew", $bew_self)
IniWrite("save.ini", "stats", "ausdauer", $ausdauer_self)
IniWrite("save.ini", "stats", "crit", $crit_self)
IniWrite("save.ini", "general", "life", $life_self)
IniWrite("save.ini", "general", "maxlife", $max_life_self)
IniWrite("save.ini", "general", "level", $level_self)
IniWrite("save.ini", "general", "gold", $gold_self)
IniWrite("save.ini", "quests", "quest1", $quest1)
IniWrite("save.ini", "general", "ep", $ep_self)
IniWrite("save.ini", "quests", "quest2", $quest2)
IniWrite("save.ini", "quests", "quest2eq", $quest2eq)
IniWrite("save.ini", "quests", "quest3", $quest3)
IniWrite("save.ini", "general", "gilde", $gilde)
IniWrite("save.ini", "tranke", "trank_der_starke", $trank_der_starke)
IniWrite("save.ini", "tranke", "trank_der_bew", $trank_der_bew)
IniWrite("save.ini", "quests", "quest1_start", $quest1_start)
IniWrite("save.ini", "quests", "quest2_start", $quest2_start)
IniWrite("save.ini", "quests", "quest3_start", $quest3_start)
EndFunc

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

Func Show_enemy1()
$level1_label2 =GUICtrlCreateLabel("Leben: " & $life_enemy1, 670, 30)
EndFunc

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

Func Show_enemy2()
$level2_label2 =GUICtrlCreateLabel("Leben: " & $life_enemy1, 670, 30)
EndFunc

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

Func Show()
GUICtrlCreateLabel("Gold: " & $gold_self, 10, 10)
GUICtrlCreateLabel("Level: " & $level_self, 100, 10)
GUICtrlCreateLabel("Leben: " & $life_self, 200, 10)
If $trank_der_starke > 0 Then
GUICtrlSetState($pic_trank_der_starke, 16)
Else
GUICtrlSetState($pic_trank_der_starke, 32)
EndIf
If $trank_der_bew > 0 Then
GUICtrlSetState($pic_trank_der_bew, 16)
Else
GUICtrlSetState($pic_trank_der_bew, 32)
EndIf
EndFunc

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

GUICreate("Interface - Wave", 800, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE")
$button1 = GUICtrlCreateButton("Charakter", 10, 80, 80)
$button2 = GUICtrlCreateButton("Kneipe", 10, 110, 80)
$button3 = GUICtrlCreateButton("Level", 10, 140, 80)
$button4 = GUICtrlCreateButton("Stadt", 10, 170, 80)
$level_button1 = GUICtrlCreateButton("Level 1", 120, 120, 50)
$level_button2 = GUICtrlCreateButton("Level 2", 200, 120, 50)
$level_button3 = GUICtrlCreateButton("Level 3", 280, 120, 50)
$level_button4 = GUICtrlCreateButton("Angriff", 100, 80, 50)
$level1_pic1 = GUICtrlCreatePic("./Pics/level1/level1_wald.jpg", 120, 120, 650, 250)
$level1_pic2 = GUICtrlCreatePic("./Pics/level1/level1_hund.jpg", 600, 200, 160, 138)
$level1_pic3 = GUICtrlCreatePic("./Pics/level1/level1_magier.jpg", 120, 200, 160, 138)
$level1_pic4 = GUICtrlCreatePic("./Pics/level1/level1_feuerball1.gif", 235, 260, 50, 50)
$level1_pic5 = GUICtrlCreatePic("./Pics/level1/level1_feuerball2.jpg", 615, 250, 50, 50)
$level1_pic6 = GUICtrlCreatePic("./Pics/level1/level1_kralle.jpg", 180, 225, 50, 50)
$level1_label1 = GUICtrlCreateLabel("Der Hund von Orkskarvil", 670, 10)
$level1_label2 = GUICtrlCreateLabel("Leben: " & $life_enemy1, 670, 30)
$level2_label1 = GUICtrlCreateLabel("Goblinischer Feuermeister", 670, 10)
$level2_label2 = GUICtrlCreateLabel("Leben: " & $life_enemy1, 670, 30)
$level2_pic1 = GUICtrlCreatePic("./Pics/level2/level2_gebirge.jpg", 120, 120, 650, 250)
$level2_pic2 = GUICtrlCreatePic("./Pics/level2/goblin.jpg", 600, 200, 160, 138)
$level2_pic3 = GUICtrlCreatePic("./Pics/level2/ork.jpg", 120, 200, 160, 138)
$level2_pic4 = GUICtrlCreatePic("./Pics/level2/axt.jpg", 615, 250, 50, 50)
$level2_pic5 = GUICtrlCreatePic("./Pics/level2/feuer.jpg", 180, 225, 50, 50)
$kneipe_label1 = GUICtrlCreateLabel("Kneipe", 120, 80)
$kneipe_pic1 = GUICtrlCreatePic("./Pics/kneipe/Wirt.gif", 120, 120, 60, 125)
$kneipe_pic2 = GUICtrlCreatePic("./Pics/kneipe/kneipe_ork.jpg", 220, 120, 80, 125)
$kneipe_pic3 = GUICtrlCreatePic("./Pics/kneipe/bauer.jpg", 320, 120, 80, 125)
$kneipe_pic4 = GUICtrlCreatePic("./Pics/kneipe/elf.jpg", 420, 120, 80, 125)
$char_label1 = GUICtrlCreateLabel("Charakter", 120, 80)
$char_label2 = GUICtrlCreateLabel("Volk: " & $volk, 120, 110)
$char_label3 = GUICtrlCreateLabel("Klasse: " & $class, 120, 140)
$char_label4 = GUICtrlCreateLabel("Beweglichkeit: " & $bew_self, 120, 180)
$char_label5 = GUICtrlCreateLabel("Stärke: " & $starke_self, 120, 210)
$char_label6 = GUICtrlCreateLabel("Intelligenz: " & $int_self, 120, 240)
$char_label7 = GUICtrlCreateLabel("Ausdauer: " & $ausdauer_self, 120, 270)
$char_label10 = GUICtrlCreateLabel("Kritisches Treffen: " & $crit_self, 300, 360)
$char_label11 = GUICtrlCreateLabel("Maximales Leben: " & $max_life_self, 250, 110)
$char_label12 = GUICtrlCreateLabel("EP: " & $ep_self, 250, 140)
$stadt_pic2 = GUICtrlCreatePic("./Pics/stadt/tunier.jpg", 120, 80, 126, 179)
$stadt_pic3 = GUICtrlCreatePic("./Pics/stadt/kloster.jpg", 250, 225, 176, 50)
$stadt_pic4 = GUICtrlCreatePic("./Pics/stadt/markt.jpg", 375, 300, 120, 59)
$stadt_pic5 = GUICtrlCreatePic("./Pics/stadt/gilde.jpg", 500, 80, 254, 192)
$stadt_pic6 = GUICtrlCreatePic("./Pics/tunier/tunier.jpg", 120, 120, 650, 250)
$stadt_button1 = GUICtrlCreateButton("Händlergilde", 200, 120, 100)
$stadt_button2 = GUICtrlCreateButton("Diebesgilde", 310, 120, 100)
$stadt_button3 = GUICtrlCreateButton("Alchemistengilde", 420, 120, 100)
$pic_trank_der_starke = GUICtrlCreatePic("./Pics/tranke/starke.jpg", 10, 30, 20, 20)
$pic_trank_der_bew = GUICtrlCreatePic("./Pics/tranke/bew.jpg", 40, 30, 20, 20)
GUIctrlSetOnEvent($button1, "show_charakter")
GUIctrlSetOnEvent($button2, "show_kneipe")
GUIctrlSetOnEvent($button3, "show_level")
GUIctrlSetOnEvent($button4, "show_stadt")
GUIctrlSetOnEvent($level_button1, "show_level1")
GUIctrlSetOnEvent($level_button2, "show_level2")
GUIctrlSetOnEvent($level_button3, "show_level3")
GUIctrlSetOnEvent($level_button4, "attacke")
GUIctrlSetOnEvent($kneipe_pic1, "kneipe_drink")
GUIctrlSetOnEvent($kneipe_pic2, "kneipe_quest1")
GUIctrlSetOnEvent($kneipe_pic3, "kneipe_quest2")
GUIctrlsetOnEvent($stadt_pic2, "stadt_tunier")
GUIctrlSetOnEvent($stadt_pic3, "stadt_beten")
GUIctrlSetOnEvent($stadt_pic5, "stadt_gilde")
GUIctrlSetOnEvent($stadt_button1, "stadt_handler")
GUIctrlSetOnEvent($stadt_button2, "stadt_dieb")
GUIctrlSetOnEvent($stadt_button3, "stadt_alchemist")
GUICtrlSetState($pic_trank_der_starke, 32)
GUICtrlSetState($pic_trank_der_bew, 32)
Hide()
Show()
GUISetState(@SW_SHOW)
While 1
Sleep(1)
WEnd

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

Func Hide()
GUICtrlSetState($char_label1, 32)
GUICtrlSetState($char_label2, 32)
GUICtrlSetState($char_label3, 32)
GUICtrlSetState($char_label4, 32)
GUICtrlSetState($char_label5, 32)
GUICtrlSetState($char_label6, 32)
GUICtrlSetState($char_label7, 32)
GUICtrlSetState($char_label10, 32)
GUICtrlSetState($char_label11, 32)
GUICtrlSetState($char_label12, 32)
GUICtrlSetState($kneipe_pic1, 32)
GUICtrlSetState($kneipe_pic2, 32)
GUICtrlSetState($kneipe_pic3, 32)
GUICtrlSetState($kneipe_pic4, 32)
GUICtrlSetState($kneipe_label1, 32)
GUICtrlSetState($level_button1, 32)
GUICtrlSetState($level_button2, 32)
GUICtrlSetState($level_button3, 32)
GUICtrlSetState($level_button4, 32)
GUICtrlSetState($level1_pic1, 32)
GUICtrlSetState($level1_pic2, 32)
GUICtrlSetState($level1_pic3, 32)
GUICtrlSetState($level1_pic4, 32)
GUICtrlSetState($level1_pic5, 32)
GUICtrlSetState($level1_label1, 32)
GUICtrlSetState($level1_label2, 32)
GUICtrlSetState($level2_label1, 32)
GUICtrlSetState($level2_label2, 32)
GUICtrlSetState($level1_pic6, 32)
GUICtrlSetState($level2_pic1, 32)
GUICtrlSetState($level2_pic2, 32)
GUICtrlSetState($level2_pic3, 32)
GUICtrlSetState($level2_pic4, 32)
GUICtrlSetState($level2_pic5, 32)
GUICtrlSetState($stadt_pic2, 32)
GUICtrlSetState($stadt_pic3, 32)
GUICtrlSetState($stadt_pic4, 32)
GUICtrlSetState($stadt_pic5, 32)
GUICtrlSetState($stadt_pic6, 32)
GUICtrlSetState($stadt_button1, 32)
GUICtrlSetState($stadt_button2, 32)
GUICtrlSetState($stadt_button3, 32)
EndFunc

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

Func Show_Charakter()
$char_label1 = GUICtrlCreateLabel("Charakter", 120, 80)
$char_label2 = GUICtrlCreateLabel("Volk: " & $volk, 120, 110)
$char_label3 = GUICtrlCreateLabel("Klasse: " & $class, 120, 140)
$char_label4 = GUICtrlCreateLabel("Beweglichkeit: " & $bew_self, 120, 180)
$char_label5 = GUICtrlCreateLabel("Stärke: " & $starke_self, 120, 210)
$char_label6 = GUICtrlCreateLabel("Intelligenz: " & $int_self, 120, 240)
$char_label7 = GUICtrlCreateLabel("Ausdauer: " & $ausdauer_self, 120, 270)
$char_label10 = GUICtrlCreateLabel("Kritisches Treffen: " & $crit_self, 120, 300)
$char_label11 = GUICtrlCreateLabel("Maximales Leben: " & $max_life_self, 250, 110)
$char_label12 = GUICtrlCreateLabel("EP: " & $ep_self, 250, 140)
Hide()
GUICtrlSetState($char_label1, 16)
GUICtrlSetState($char_label2, 16)
GUICtrlSetState($char_label3, 16)
GUICtrlSetState($char_label4, 16)
GUICtrlSetState($char_label5, 16)
GUICtrlSetState($char_label6, 16)
GUICtrlSetState($char_label7, 16)
GUICtrlSetState($char_label10, 16)
GUICtrlSetState($char_label11, 16)
GUICtrlSetState($char_label12, 16)
EndFunc

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

Func Show_Level()
Hide()
GUICtrlSetState($level_button1, 16)
GUICtrlSetState($level_button2, 16)
GUICtrlSetState($level_button3, 16)
If $level_self < 2 Then
GUICtrlSetState($level_button3, $GUI_DISABLE)
Else
GUICtrlSetState($level_button3, $GUI_ENABLE)
EndIf
EndFunc

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

Func Show_Kneipe()
Hide()
GUICtrlSetState($kneipe_label1, 16)
GUICtrlSetState($kneipe_pic1, 16)
GUICtrlSetState($kneipe_pic2, 16)
GUICtrlSetState($kneipe_pic3, 16)
GUICtrlSetState($kneipe_pic4, 16)
EndFunc

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

Func Kneipe_Drink()
$beer_life_start = $life_self / 4
$beer_life = Round($beer_life_start, 0)
$beer_choose = MsgBox(4, "Kneipe", "Willst du ein Bier trinken? Das kostet 4 Gold.")
If $beer_choose = 6 Then
If $gold_self > 3 Then
MsgBox(0, "Bier", "Ahh! Das tut gut! Du erhältst " & $beer_life & " Leben.")
$life_self = $life_self + $beer_life
$gold_self = $gold_self - 4
If $life_self > $max_life_self Then
$life_self_start = $life_self - $life_self
$life_self_start = $max_life_self
$life_self = Round($life_self_start, 0)
EndIf
Ini_Write()
Show()
Else
$beer_word_choose = Random(1, 5, 1)
If $beer_word_choose = 1 Then
$beer_word = "Kohle"
ElseIf $beer_word_choose = 2 Then
$beer_word = "Kies"
ElseIf $beer_word_choose = 3 Then
$beer_word = "Schotter"
ElseIf $beer_word_choose = 4 Then
$beer_word = "Gummi"
ElseIf $beer_word_choose = 5 Then
$beer_word = "Gold"
EndIf
MsgBox(0, "Bier", "Sorry, du hast nicht genug " & $beer_word & "!!!")
EndIf
EndIf
EndFunc

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

Func Kneipe_Quest1()
$check_quest1 = IniRead("save.ini", "quests", "quest1", "0")
Ini_write()
If $check_quest1 = 3 Then
MsgBox(0, "Kneipe", "Ich habe keine Aufgaben mehrrrr fürrr dich.")
Else
If $check_quest1 = 1 Then
MsgBox(0, "Kneipe", "Jaa! Toll! Danke! Hierrr hast du 2 Gold und 250 EP!")
If $gilde = "dieb" Then
MsgBox(0, "Info", "Du stibizt 1 Gold aus der Tasche des Orks! Hihi!")
$gold_self = $gold_self + 3
Else
$gold_self = $gold_self + 2
EndIf
$ep_self = $ep_self + 250
Show()
Check_EP()
$quest1 = $quest1 + 2
Ini_Write()
ElseIf $check_quest1 = 0 Then
If $quest1_start = "True" Then
MsgBox(0, "Kneipe", "Du hast ihn getötet? Nicht? Dann hau ab und töte ihn!")
Else
$quest_choose = MsgBox(4, "Kneipe", "Jarharr! Töte für mich den 'Hund von Orkskarvil' in Level 1! Jarharr!")
If $quest_choose = 6 Then
MsgBox(0, "Kneipe", "Danke Sehrrrr! Denk drrran: In Level 1!")
$quest1_start = "True"
Ini_write()
Else
MsgBox(0, "Kneipe", "Sehrrr Schade. Jarharr!")
EndIf
EndIf
EndIf
EndIf
EndFunc

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

Func Kneipe_Quest2()
$check_quest2 = IniRead("save.ini", "quests", "quest2", "0")
Ini_write()
If $check_quest2 = 3 Then
MsgBox(0, "Kneipe", "Danke söhr, aber isch broch dene Hilfe nisch mehr.")
Else
If $check_quest2 = 1 Then
MsgBox(0, "Kneipe", "Joho! Mei Schäfle is widder da! Hier haste 1 Gold un 250 EP!")
If $gilde = "dieb" Then
MsgBox(0, "Info", "Du klaust 1 ganzes Goldstück aus dem Hut des Bauern.")
$gold_self = $gold_self + 2
Else
$gold_self = $gold_self + 1
EndIf
$ep_self = $ep_self + 250
Show()
Check_EP()
$quest2 = $quest2 + 2
Ini_Write()
ElseIf $check_quest2 = 0 Then
If $quest2_start = "True" Then
MsgBox(0, "Kneipe", "Wo isn nu mei Schäfle?")
Else
$quest_choose = MsgBox(4, "Kneipe", "Hölfe Hölfe! Mei Schäfle wurd geklot! Es is in Level 2!")
If $quest_choose = 6 Then
MsgBox(0, "Kneipe", "Viele Dank! Aber pass of! Der Gegner is sehr stark! Hier haste mei Ringle!")
MsgBox(0, "Kneipe", "Drücke V auf dener Taschtatur um ihn zu aktivieren.")
$quest2_start = "True"
Ini_write()
Else
MsgBox(0, "Kneipe", "Oh schade! Mei armes Schäfle.")
EndIf
EndIf
EndIf
EndIf
EndFunc

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

FUnc Show_Level1()
$level = $level - $level
$level = $level + 1
$life_enemy1 = $life_enemy1 - $life_enemy1
$life_enemy1 = $life_enemy1 + 200
Show_enemy1()
GUICtrlSetState($level_button1, 32)
GUICtrlSetState($level_button2, 32)
GUICtrlSetState($level_button3, 32)
GUICtrlSetState($level1_pic1, 16)
GUICtrlSetState($level1_pic2, 16)
GUICtrlSetState($level1_pic3, 16)
GUICtrlSetState($level_button4, 16)
GUICtrlSetState($level1_pic4, 32)
GUICtrlSetState($level1_pic5, 32)
GUICtrlSetState($level1_label1, 16)
GUICtrlSetState($level1_label2, 16)
GUICtrlSetState($level1_pic6, 32)
GUICtrlSetState($level2_label1, 32)
GUICtrlSetState($level2_label2, 32)
GUICtrlSetState($level2_pic4, 32)
GUICtrlSetState($level2_pic5, 32)
EndFunc

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

FUnc Show_Level2()
$level = $level - $level
$level = $level + 2
$life_enemy1 = $life_enemy1 - $life_enemy1
$life_enemy1 = $life_enemy1 + 260
Show_enemy2()
GUICtrlSetState($level_button1, 32)
GUICtrlSetState($level_button2, 32)
GUICtrlSetState($level_button3, 32)
GUICtrlSetState($level2_pic1, 16)
GUICtrlSetState($level2_pic2, 16)
GUICtrlSetState($level2_pic3, 16)
GUICtrlSetState($level_button4, 16)
GUICtrlSetState($level1_pic4, 32)
GUICtrlSetState($level1_pic5, 32)
GUICtrlSetState($level2_label1, 16)
GUICtrlSetState($level2_label2, 16)
EndFunc

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

Func Show_Level3()
$level = $level - $level
$level = $level + 3
MsgBox(0, "Info", "Hallo, das hier ist ein sogenanntes Minigame.")
MsgBox(0, "Info", "Du hast eine begrenzte Zeit um Rehe zu jagen.")
$choose_level3 = MsgBox(4, "Info", "Willst du das Minigame starten?")
If $choose_level3 = 6 Then
GUICtrlSetState($level_button1, 32)
GUICtrlSetState($level_button2, 32)
GUICtrlSetState($level_button3, 32)
level3_minigame()
Else
Show_Level()
EndIf
EndFunc

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

Func Attacke()
If $level = 1 Then
Level1_Attacke()
If $life_self < 0 Then
MsgBox(0, "Info", "Du bist tot.")
Exit
EndIf
If $life_enemy1 < 0 Then
$check_quest_enemy1 = IniRead("save.ini", "quests", "quest1", "")
MsgBox(0, "Info", "Dein Gegner ist tot.")
Ini_write()
If $check_quest_enemy1 = 3 Then
Sleep(1)
Else
If $quest1_start = True Then
$quest1 = $quest1 - $quest1
$quest1 = $quest1 + 1
Ini_Write()
EndIf
EndIf
EndIf
ElseIf $level = 2 Then
Level2_Attacke()
If $life_self < 0 Then
MsgBox(0, "Info", "Du bist tot.")
Exit
EndIf
If $life_enemy1 < 0 Then
$check_quest_enemy1 = IniRead("save.ini", "quests", "quest2", "")
MsgBox(0, "Info", "Dein Gegner ist tot.")
Ini_write()
If $check_quest_enemy1 = 3 Then
Sleep(1)
Else
If $quest2_start = True Then
$quest2 = $quest2 - $quest2
$quest2 = $quest2 + 1
Ini_Write()
EndIf
EndIf
EndIf
EndIf
EndFunc

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

Func Level1_Attacke()
If $trank_der_starke > 0 Then
If $class = "magier" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
ElseIf $class = "jäger" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
Else
$damage_self_start = Random(44, 50, 1) + $starke_self / 2
$damage_self = Round($damage_self_start, 0)
EndIf
Else
If $class = "magier" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
ElseIf $class = "jäger" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
Else
$damage_self_start = Random(44, 50, 1) + $starke_self / 2
$damage_self = Round($damage_self_start, 0)
EndIf
EndIf
$crit = Random(1, 100, 1)
$avoid = Random(1, 100, 1)
$damage_enemy1 = Random(35, 50, 1)
GUICtrlSetState($level1_pic4, 16)
Sleep(1000)
GUICtrlSetState($level1_pic4, 32)
Sleep(600)
GUICtrlSetState($level1_pic5, 16)
Sleep(1000)
GUICtrlSetState($level1_pic5, 32)
If $crit < $crit_self Then
MsgBox(0, "Crit", "Cool! Kritischer Treffer!")
$life_enemy1 = $life_enemy1 - $damage_self * 2
Else
$life_enemy1 = $life_enemy1 - $damage_self
EndIf
Show_enemy1()
Sleep(1000)
If $life_enemy1 > 0 Then
If $avoid < $bew_self Then
MsgBox(0, "Avoid", "Gut! Du bist ausgewichen.")
Else
GUICtrlSetState($level2_pic5, 16)
Sleep(800)
GUICtrlSetState($level2_pic5, 32)
$life_self = $life_self - $damage_enemy1
EndIf
Show()
EndIf
If $trank_der_starke > 0 Then
$trank_der_starke = $trank_der_starke - 1
EndIf
Show()
Ini_Write()
EndFunc

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

Func Level2_Attacke()
If $trank_der_starke > 0 Then
If $class = "magier" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
ElseIf $class = "jäger" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
Else
$damage_self_start = Random(44, 50, 1) + $starke_self / 2
$damage_self = Round($damage_self_start, 0)
EndIf
Else
If $class = "magier" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
ElseIf $class = "jäger" Then
$damage_self_start = Random(44, 50, 1) + $int_self / 2
$damage_self = Round($damage_self_start, 0)
Else
$damage_self_start = Random(44, 50, 1) + $starke_self / 2
$damage_self = Round($damage_self_start, 0)
EndIf
EndIf
$crit = Random(1, 100, 1)
$avoid = Random(1, 100, 1)
$damage_enemy1 = Random(45, 60, 1)
GUICtrlSetState($level2_pic4, 16)
Sleep(1000)
GUICtrlSetState($level2_pic4, 32)
If $crit < $crit_self Then
MsgBox(0, "Crit", "Cool! Kritischer Treffer!")
$life_enemy1 = $life_enemy1 - $damage_self * 2
Else
$life_enemy1 = $life_enemy1 - $damage_self
EndIf
Show_enemy2()
Sleep(1000)
If $life_enemy1 > 0 Then
If $avoid < $bew_self Then
MsgBox(0, "Avoid", "Gut! Du bist ausgewichen.")
Else
GUICtrlSetState($level2_pic5, 16)
Sleep(800)
GUICtrlSetState($level2_pic5, 32)
$life_self = $life_self - $damage_enemy1
EndIf
Show()
EndIf
If $trank_der_starke > 0 Then
$trank_der_starke = $trank_der_starke - 1
EndIf
Show()
Ini_Write()
EndFunc

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

Func level3_minigame()
For $level3_time = 1 To 15 Step 1
$breite = Random(120, 700, 1)
$hohe = Random(120, 240, 1)
$3minigame = GUICtrlCreateButton("Fangen!", $breite, $hohe, 70)
GUICtrlSetOnEvent($3minigame, "target")
Sleep(600)
GUICtrlDelete($3minigame)
Sleep(1000)
Next
MsgBox(0, "Minigame", "Du hast " & $3targets & " Targets gefangen.")
$3targets = $3targets - $3targets
Ini_Write()
Show_level()
EndFunc

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

Func quest2eq()
If $quest2_start = True Then
If $level = 2 Then
If $quest2eq = 1 Then
MsgBox(0, "Ring", "Du aktivierst den Ring! Dein Gegner kriegt 150 Schaden")
$life_enemy1 = $life_enemy1 - 150
$quest2eq = $quest2eq - $quest2eq
Show_enemy2()
Ini_Write()
Else
MsgBox(0, "Fehler", "Du hast den Ring bereits benutzt")
EndIf
EndIf
EndIf
EndFunc

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

Func Check_EP()
If $level_self = 1 Then
If $ep_self > 499 Then
MsgBox(0, "Ding!!!", "Sehr Gut! Du bist eine Stufe aufgestiegen!")
levelup()
$level_self = $level_self + 1
Ini_Write()
Show()
EndIf
ElseIf $level_self = 2 Then
If $ep_self > 1499 Then
MsgBox(0, "Ding!!!", "Sehr Gut! Du bist eine Stufe aufgestiegen!")
Levelup()
$level_self = $level_self + 1
Ini_Write()
Show()
EndIf
EndIf
EndFunc

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

Func Levelup()
$starke_self = $starke_self + 1
$int_self = $int_self + 1
$bew_self = $bew_self + 1
$ausdauer_self = $ausdauer_self + 1
$crit_self = $crit_self + 1
EndFunc

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

Func show_stadt()
Hide()
GUICtrlSetState($stadt_pic2, 16)
GUICtrlSetState($stadt_pic3, 16)
GUICtrlSetState($stadt_pic4, 16)
GUICtrlSetState($stadt_pic5, 16)
EndFunc

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

Func stadt_beten()
$choose_beten = MsgBox(4, "Beten", "Ah du willst beten oder?")
If $choose_beten = 6 Then
MsgBox(0, "Beten", "Das ist schön. Die gebetete Zeit wird dir in Lebenspunkten gutgeschrieben.")
$beten_zeit = InputBox("Beten", "Wie lange willst du beten? 1 Sekunde = 1 Lebenspunkt")
If @error Then
MsgBox(0, "Beten", "Du hast das Beten abgebrochen.")
Return
EndIf
$beten_wait = MsgBox(262144, "Beten", "Es wird gebetet. Wenn du OK drückst, brichst du das Beten ab und es werden keine Lebenspunkte gutgeschrieben.", $beten_zeit)
If $beten_wait = 1 Then
MsgBox(0, "Beten", "Du hast das Beten abgebrochen.")
Else
MsgBox(0, "Beten", "Du hast fertig gebetet. Dir werden " & $beten_zeit & " Lebenspunkte gutgeschrieben.")
$life_self = $life_self + $beten_zeit
If $life_self > $max_life_self Then
$life_self_start = $life_self - $life_self
$life_self_start = $max_life_self
$life_self = Round($life_self_start, 0)
EndIf
Ini_Write()
Show()
EndIf
EndIf
EndFunc

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

Func stadt_tunier()
GUICtrlSetState($stadt_pic2, 32)
GUICtrlSetState($stadt_pic3, 32)
GUICtrlSetState($stadt_pic4, 32)
GUICtrlSetState($stadt_pic5, 32)
GUICtrlSetState($stadt_pic6, 16)
$tunier_choose = MsgBox(4, "Turnier", "Willst du beim Turnier teilnehmen? Es kostet 5 Gold. Wenn du gewinnst erhältst du 7 Gold.")
If $tunier_choose = 6 Then
If $gold_self > 4 Then
$gold_self = $gold_self - 5
Show()
$tunier_word_choose = Random(1, 9, 1)
If $tunier_word_choose = 1 Then
$tunier_word = "Manuel Karamber"
ElseIf $tunier_word_choose = 2 Then
$tunier_word = "Sir Karl von Röttlingen"
ElseIf $tunier_word_choose = 3 Then
$tunier_word = "Gustav von und zu Esslingen"
ElseIf $tunier_word_choose = 4 Then
$tunier_word = "Otto der Rivale"
ElseIf $tunier_word_choose = 5 Then
$tunier_word = "Tarek von Beutlingen"
ElseIf $tunier_word_choose = 6 Then
$tunier_word = "Sylvan aus Lenkingen"
ElseIf $tunier_word_choose = 7 Then
$tunier_word = "Alexander aus der Pampelmuse"
ElseIf $tunier_word_choose = 8 Then
$tunier_word = "Friedrich aus Bellingen"
ElseIf $tunier_word_choose = 9 Then
$tunier_word = "Valentin aus Lenkingen"
EndIf
MsgBox(0, "Turnier", "Du kämpfst gegen " & $tunier_word)
$tunier_enemy_angriff = Random(1, 3, 1)
If $tunier_enemy_angriff = 1 Then
$tunier_enemy = "Lanzenstoß"
ElseIf $tunier_enemy_angriff = 2 Then
$tunier_enemy = "Schildstoß"
ElseIf $tunier_enemy_angriff = 3 Then
$tunier_enemy = "Lanzenstecher"
EndIf
$tunier_angriff = InputBox("Turnier", "Wähle deine Attacke aus: Lanzenstoß, Schildstoß, Lanzenstecher")
If @error Then
MsgBox(0, "Turnier", "Du gibst auf? Was für eine Schande...")
EndIf
If $tunier_angriff = "Lanzenstoß" Then
If $tunier_enemy = "Lanzenstoß" Then
MsgBox(0, "Turnier", "Dein Gegner nimmt " & $tunier_enemy & ". Unentschieden")
$gold_self = $gold_self + 5
Show()
ElseIf $tunier_enemy = "Schildstoß" Then
MsgBox(0, "Turnier", "Dein Gegner nimmt " & $tunier_enemy & ". Gewonnen")
$gold_self = $gold_self + 7
Show()
ElseIf $tunier_enemy = "Lanzenstecher" Then
MsgBox(0, "Tunier", "Dein Gegner nimmt " & $tunier_enemy & ". Verloren")
EndIf
ElseIf $tunier_angriff = "Schildstoß" Then
If $tunier_enemy = "Schildstoß" Then
MsgBox(0, "Turnier", "Dein Gegner nimmt " & $tunier_enemy & ". Unentschieden")
$gold_self = $gold_self + 5
Show()
ElseIf $tunier_enemy = "Lanzenstecher" Then
MsgBox(0, "Turnier", "Dein Gegner nimmt " & $tunier_enemy & ". Gewonnen")
$gold_self = $gold_self + 7
Show()
ElseIf $tunier_enemy = "Lanzenstoß" Then
MsgBox(0, "Tunier", "Dein Gegner nimmt " & $tunier_enemy & ". Verloren")
EndIf
ElseIf $tunier_angriff = "Lanzenstecher" Then
If $tunier_enemy = "Lanzenstecher" Then
MsgBox(0, "Turnier", "Dein Gegner nimmt " & $tunier_enemy & ". Unentschieden")
$gold_self = $gold_self + 5
Show()
ElseIf $tunier_enemy = "Schildstoß" Then
MsgBox(0, "Turnier", "Dein Gegner nimmt " & $tunier_enemy & ". Gewonnen")
$gold_self = $gold_self + 7
Show()
ElseIf $tunier_enemy = "Lanzenstoß" Then
MsgBox(0, "Tunier", "Dein Gegner nimmt " & $tunier_enemy & ". Verloren")
EndIf
Else
MsgBox(0, "Turnier", "Du hast eine falsche Attacke eingegeben. Du erhältst dein Gold wieder, versuchs nochmal :)")
$gold_self = $gold_self + 5
Show()
EndIf
Else
MsgBox(0, "Turnier", "Du hast nicht genug Gold!")
EndIf
EndIf
Ini_Write()
Show()
EndFunc

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

Func stadt_gilde()
GUICtrlSetState($stadt_pic2, 32)
GUICtrlSetState($stadt_pic3, 32)
GUICtrlSetState($stadt_pic4, 32)
GUICtrlSetState($stadt_pic5, 32)
GUICtrlSetState($stadt_button1, 16)
GUICtrlSetState($stadt_button2, 16)
GUICtrlSetState($stadt_button3, 16)
EndFunc

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

Func stadt_handler()
$check_gilde1 = IniRead("save.ini", "general", "gilde", "0")
If $check_gilde1 = "0" Then
MsgBox(0, "Gilde", "Willkommen in der Händlergilde.")
MsgBox(0, "Gilde", "Deine Vorteile in dieser Gilde wären:")
MsgBox(0, "Gilde", "Du kriegst Rabatt auf Waren.")
$beitritt_handler = MsgBox(4, "Gilde", "Ist doch toll! Willst du der Händlergilde beitreten?")
If $beitritt_handler = 6 Then
MsgBox(0, "Gilde", "Das ist toll! Du gehörst jetzt zur Händlergilde.")
$gilde = "handler"
Ini_Write()
EndIf
ElseIf $check_gilde1 = "handler" Then
MsgBox(0, "Platzhalter", "Platzhalter")
Else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc

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

Func stadt_dieb()
$check_gilde2 = IniRead("save.ini", "general", "gilde", "0")
If $check_gilde2 = "0" Then
MsgBox(0, "Gilde", "Willkommen in der Diebesgilde.")
MsgBox(0, "Gilde", "Deine Vorteile in dieser Gilde wären:")
MsgBox(0, "Gilde", "Mehr Gold von Quests. Muhaha!")
$beitritt_dieb = MsgBox(4, "Gilde", "Willst du auch so verschlagen sein und dich der Diebesgilde anschliesen?")
If $beitritt_dieb = 6 Then
MsgBox(0, "Gilde", "Muhaha! Willkommen in unserer Gilde!")
$gilde = "dieb"
Ini_Write()
EndIf
ElseIf $check_gilde2 = "dieb" Then
MsgBox(0, "Platzhalter", "Platzhalter")
Else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc

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

Func stadt_alchemist()
$check_gilde3 = IniRead("save.ini", "general", "gilde", "0")
If $check_gilde3 = "0" Then
MsgBox(0, "Gilde", "Willkommen in del Alchemistengilde.")
MsgBox(0, "Gilde", "Deine Volteile in dieser Gilde wälen:")
MsgBox(0, "Gilde", "Du kannst Tlänke kaufen und benutzen.")
$beitritt_alchemist = MsgBox(4, "Gilde", "Willst du uns beitleten?")
If $beitritt_alchemist = 6 Then
MsgBox(0, "Gilde", "Willkommen in unselel Gilde.")
$gilde = "alchemist"
Ini_Write()
EndIf
ElseIf $check_gilde3 = "alchemist" Then
$choose_buy_trank = MsgBox(4, "Alchemistengilde", "Willst du einen Trank kaufen?")
If $choose_buy_trank = 6 Then
$choose_trank = InputBox("Trank kaufen", "Welchen Trank willst du kaufen? 1 = Trank der Stärke/3 Kämpfe/2 Gold. 2 = Trank der Beweglichkeit/3 Kämpfe/2 Gold")
If @error Then
Return
EndIf
If $choose_trank = "1" Then
$gold_self = $gold_self - 2
$trank_der_starke = $trank_der_starke + 3
Show()
Ini_Write()
ElseIf $choose_trank = "2" Then
$gold_self = $gold_self - 2
$trank_der_bew = $trank_der_bew + 3
Show()
Ini_Write()
Endif
EndIf
else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc

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

Func target()
$3targets = $3targets + 1
EndFunc

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

Func CLOSE()
Exit
EndFunc

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

Und die includete stats.au3:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: Atlatonin, Nakroma

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

Script Function:
RPG - Wave / Stats

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

#ce ----------------------------------------------------------------------------

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

; Werte_self

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

$volk = IniRead("save.ini", "general", "volk", "")
$class = IniRead("save.ini", "general", "klasse", "")

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

$starke_self = IniRead("save.ini", "stats", "starke", "5") ;(Schaden)
$int_self = IniRead("save.ini", "stats", "int", "5");(Schaden)
$bew_self = IniRead("save.ini", "stats", "bew", "5") ;(Avoid)
$ausdauer_self = IniRead("save.ini", "stats", "ausdauer", "5") ;(Life)
$crit_self = IniRead("save.ini", "stats", "crit", "5") ;(Krit)
$level_self = IniRead("save.ini", "general", "level", "1") ;(Stufe)
$gold_self = IniRead("save.ini", "general", "gold", "20") ;(Gold)/(Geld)
$ep_self = IniRead("save.ini", "general", "ep", "0") ;(EP, Nächste Stufe)

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

$energie_self = 100 ;Energie
$life_self_start = 200 + $ausdauer_self / 2
$life_self = IniRead("save.ini", "general", "life", Round($life_self_start, 0))
$max_life_self_start = 200 + $ausdauer_self / 2
$max_life_self = IniRead("save.ini", "general", "maxlife", Round($max_life_self_start, 0))
$gilde = IniRead("save.ini", "general", "gilde", "0") ;IniDelete
$trank_der_starke = IniRead("save.ini", "tranke", "trank_der_starke", "0") ;Trank der Stärke Stacks
$trank_der_bew = IniRead("save.ini", "tranke", "trank_der_bew", "0") ;Trank der Beweglichkeit Stacks

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

$quest1 = IniRead("save.ini", "quests", "quest1", "0") ;Quest: "Der Hund von Orkskarvil"
$quest1_start = IniRead("save.ini", "quests", "quest1_start", "False")

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

$quest2 = IniRead("save.ini", "quests", "quest2", "0") ;Quest: "Mein Schaf!"
$quest2_start = IniRead("save.ini", "quests", "quest2_start", "False")
$quest2eq = IniRead("save.ini", "quests", "quest2eq", "1") ;Ring

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

$quest3 = IniRead("save.ini", "quests", "quest3", "0") ;Quest: "Rehe hab ich gern!"
$quest3_start = IniRead("save.ini", "quests", "quest3_start", "False")
$3targets = 0 ;Rehe für level 3

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

$level = 0 ;Level für die Attacken

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

Nakroma

Ach mist -.- Stimmt

//ausprobiert: Es passiert immer noch nichts O_o

Nakroma

Hab es mir mal angeguckt und das gebastelt:

Spoiler anzeigen

[autoit]

Func level3_minigame()
For $level3_time = 1 To 15 Step 1
$breite = Random(120, 700, 1)
$hohe = Random(120, 240, 1)
$3minigame = GUICtrlCreateButton("Fangen!", $breite, $hohe, 70)
GuiCtrlSetOnEvent($3minigame, "target")
Sleep(600)
GUICtrlDelete($3minigame)
Sleep(1000)
Next
MsgBox(0, "Minigame", "Du hast " & $3targets & " Targets gefangen.")
$3targets = $3targets - $3targets
Ini_Write()
Show_level()
EndFunc

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

Func target()
$3targets = $3targets + 1
EndFunc

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

Also Opt("GuiOnEventMode", 1) ist klar und so, starten tut es auch aber es zeigt mir immer noch an: "0 Targets". Geht immer noch nich
Mfg

Nakroma

Wie genau mach ich das(Ich bin noch nicht so bewandert)?

Nakroma

Hallo(Ja, ich stelle viele Fragen),
Ich habe mir für mein Spiel ein Minigame zusammengebastelt.
Hier der Code Beim Spiel 1:

Spoiler anzeigen

[autoit]

While 1
$msg = GuiGetMsg()
Switch $msg
Case $start
level3_minigame()
EndSwitch
WEnd

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

While level3_minigame()
Switch $msg
Case $3minigame
$3targets = $3targets + 1
EndSwitch
WEnd

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

Func level3_minigame()
For $level3_time = 1 To 15 Step 1
$breite = Random(120, 700, 1)
$hohe = Random(120, 240, 1)
$3minigame = GUICtrlCreateButton("Fangen!", $breite, $hohe, 70)
Sleep(600)
GUICtrlDelete($3minigame)
Sleep(1000)
Next
MsgBox(0, "Minigame", "Du hast " & $3targets & " Targets gefangen.")
$3targets = $3targets - $3targets
Ini_Write()
Show_level()
EndFunc

[/autoit]

Spiel 2:

Spoiler anzeigen

[autoit]

While 1
Switch $msg
Case $start
level3_minigame()

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

Case $3minigame
$3targets = $3targets + 1

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

EndSwitch
WEnd

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

Func level3_minigame()
For $level3_time = 1 To 15 Step 1
$breite = Random(120, 700, 1)
$hohe = Random(120, 240, 1)
$3minigame = GUICtrlCreateButton("Fangen!", $breite, $hohe, 70)
Sleep(600)
GUICtrlDelete($3minigame)
Sleep(1000)
Next
MsgBox(0, "Minigame", "Du hast " & $3targets & " Targets gefangen.")
$3targets = $3targets - $3targets
Ini_Write()
Show_level()
EndFunc

[/autoit]

Es wird immer angezeigt "Du hast 0 Targets gefangen". Irgendwie geht der Case $3minigame nicht.
Kann mir wer helfen?
Mfg Nakroma

Nakroma

ich wird dir empfehlen mit Funcs zu arbeiten:

[autoit]

Case $Button1
$speed = GUICtrlRead($Input1)
$zahl = GUICtrlRead($Input2)
$answer1 = MsgBox(4,"Mausspiel","Wirklich starten?")
If $answer1 = 7 Then
MsgBox(0,"Mausspiel","Das Programm wird nun beendet")
Exit
Else
Mausspiel()
EndIf

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

Func Mausspiel()
[...]
If _IsPressed("1B") Then
Return
EndIf
EndFunc

[/autoit]

Mit Returns geht das relativ einfach.

Nakroma

Zitat von EpicChiller

Wenn wir schon dabei sind wisst ihr wie man eine Button löscht wenn die Frage beantwortet wurde also das der nicht mehr da steht oder wie man den zu Erledigt umbennent und wenn man drauf klickt eine MSGbox kommt. Vielen dank

Zum löschen:

[autoit]

GuictrlDelete($button1)

[/autoit]

Zum deaktivieren z.B. in die Func:

[autoit]

If $quiz_1_erledigt = True Then
GuiCtrlSetState($button1, $GUI_DISABLE)
Else
GuiCtrlSetState($buton1, $GUI_ENABLE)
EndIf

[/autoit]

Nakroma

Okey Danke für die vielen Hilfen, ich werde mal schauen.

Beiträge von Nakroma

Funktionen werden übersprungen

Funktionen werden übersprungen

Funktionen werden übersprungen

Funktionen werden übersprungen

Funktionen werden übersprungen

Keylogger Defense

Obfuscator - For What?

Obfuscator - For What?

Obfuscator - For What?

Case $button geht nicht?

Case $button geht nicht?

Case $button geht nicht?

Case $button geht nicht?

Case $button geht nicht?

Case $button geht nicht?

Case $button geht nicht?

Case $button geht nicht?

Mousemove beenden/pausieren ohne Exit

Button lässt sich nicht mehr klicken

Ini Verschlüsseln erkennt Variable nicht?