Hallo,
Ich mache gerade ein Spiel mit Gilden,
Das ist ein Ausschnitt des Programms:
Spoiler anzeigen
$gilde = IniRead("save.ini", "general", "gilde", "0")
[/autoit] [autoit][/autoit] [autoit]Func Ini_Write()
IniWrite("save.ini", "general", "gilde", $gilde)
EndFunc
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 10% 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
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", "10% 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
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
MsgBox(0, "Platzhalter", "Platzhalter")
Else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc
Komischer weise kann man den Gilden immer wieder beitreten, irgendwie lesen die es nicht aus... die save.ini zeigt aber an:
Danke im Vorraus
Mfg