aysaliaalarmingautosfxcalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /trunk/Zeitalter der Dämonen/ @ 1

  → /trunk/Zeitalter der Dämonen/ @ 2

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

No changes between revisions

Regard whitespace Rev 1 → Rev 2

/trunk/Zeitalter der Dämonen/Alter Titel.jpg
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Beute.frm
0,0 → 1,305
VERSION 5.00
Begin VB.Form Beute
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "Beute"
ClientHeight = 3120
ClientLeft = 45
ClientTop = 330
ClientWidth = 6495
ControlBox = 0 'False
LinkTopic = "Beute"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3120
ScaleWidth = 6495
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Schließen"
Default = -1 'True
Height = 375
Left = 5400
Style = 1 'Graphical
TabIndex = 8
Top = 2640
Width = 975
End
Begin VB.ListBox List1
BackColor = &H00800000&
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1950
Left = 240
Sorted = -1 'True
TabIndex = 3
Top = 960
Width = 2535
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gefundene Gegenstände"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 240
TabIndex = 9
Top = 720
Width = 2085
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label13"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 225
Left = 4560
TabIndex = 7
Top = 2040
Width = 675
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "/"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 4440
TabIndex = 6
Top = 2040
Width = 45
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label11"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 225
Left = 3735
TabIndex = 5
Top = 2040
Width = 675
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label10"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 3360
TabIndex = 4
Top = 1200
Width = 2295
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Erfahrungspunkte"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 3360
TabIndex = 2
Top = 1680
Width = 2340
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Titel"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 1
Top = 120
Width = 615
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Erhaltene Erfahrungspunkte"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 3315
TabIndex = 0
Top = 960
Width = 2415
End
End
Attribute VB_Name = "Beute"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload Beute
End Sub
Private Sub Form_Load()
If Art <> "" Then Label2.Caption = "Du hast '" + Feind + "' besiegt!" Else Label2.Caption = "Du hast etwas gefunden!"
Label10.Caption = Exp
GetExperience
Label11.Caption = Experience
Label13.Caption = NextLevel
Randomize Timer
GoldFund = Int(GoldFund * Rnd)
If Art = "Mensch" Then GoldFund = GoldFund + 8
A = Str(GoldFund)
A = A + " Goldkronen"
If GoldFund > 0 Then List1.AddItem A
Randomize Timer
Pfeilfund = Int(Pfeilfund * Rnd)
A = Str(Pfeilfund)
A = A + " Pfeile"
If Pfeilfund > 0 Then List1.AddItem A
Randomize Timer
Bolzenfund = Int(Bolzenfund * Rnd)
A = Str(Bolzenfund)
A = A + " Bolzen"
If Bolzenfund > 0 Then List1.AddItem A
Gegenstände
Exp = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0: Art = "": Feind = ""
Gwaffe = ""
Grust = ""
End Sub
Sub Gegenstände()
If Gwaffe <> "" Then List1.AddItem Gwaffe
If Grust <> "" Then List1.AddItem Grust
If Art = "Mensch" Then TestBlut
If Art = "Dämon" Then TestSpeichel
If Feind = "Dedrana" Then A = "Drachenstein": List1.AddItem A
If Feind = "Ork-Häuptling" Then A = "Ring der Meisterschaft": List1.AddItem A: A = "Großer Heiltrank": List1.AddItem A
If Feind = "Thorkushur" Then A = "Thorkushur's Schuppen": List1.AddItem A
If Feind = "Nebel Djinn" Then A = "Leere Flasche": List1.AddItem A
If Feind = "Oger" Then A = "Ogerzahn": List1.AddItem A
If Feind = "Bär" Then A = "Bärenfell": List1.AddItem A
If Feind = "Wolf" Then A = "Wolfsfell": List1.AddItem A
If Feind = "Kleines Tentakelwesen" Or Feind = "Großes Tentakelwesen" Then A = "Tentakelarm": List1.AddItem A
If Truhe = "tdok1a" Then A = "Buch 'Götter'": List1.AddItem A: A = "Buch 'Daemonica'": List1.AddItem A: A = "Rezept 'Kleiner Zaubertrank'": List1.AddItem A
If Truhe = "tdok1b" Then A = "Buch 'Artefacium'": List1.AddItem A: A = "Rezept 'Großer Heiltrank'": List1.AddItem A
If Truhe = "Haus" Then A = "Unsichtbarkeitstrank": List1.AddItem A: A = "Büschel Grabkraut": List1.AddItem A: A = "Großer Heiltrank": List1.AddItem A
End Sub
Private Sub List1_Click()
If List1.Text = "" Then GoTo nichts
Dim SuchZeichen As String
Dim Pos1 As Integer
Dim B As String
SuchZeichen = " "
A = List1.Text
B = Right(A, 5)
If B = "ronen" Or B = "feile" Or B = "olzen" Then GoTo nj
GoTo klk
nj:
Pos1 = InStr(2, A, SuchZeichen, 0)
Pos1 = Pos1 - 1
Zahl = Left(A, Pos1)
Zahl = Val(Zahl)
If B = "ronen" And Zahl > 0 Then Gold = Gold + Zahl: GoTo naked
If B = "feile" And Zahl > 0 Then Pfeile = Pfeile + Zahl: GoTo naked
If B = "olzen" And Zahl > 0 Then Bolzen = Bolzen + Zahl: GoTo naked
klk:
Manager.Inventar.AddItem A
naked:
ManagRighter
Zahl = List1.ListIndex
List1.RemoveItem Zahl
nichts:
End Sub
Sub TestBlut()
Randomize Timer
Zahl = Int(100 * Rnd)
If Zahl <= 15 Then A = "Tropfen klares Blut": List1.AddItem A
End Sub
Sub TestSpeichel()
Randomize Timer
Zahl = Int(100 * Rnd)
If Zahl <= 15 Then A = "Tropfen Dämonenspeichel": List1.AddItem A
End Sub

/trunk/Zeitalter der Dämonen/Bibliothek.frm
0,0 → 1,636
VERSION 5.00
Begin VB.Form Bibliothek
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Bibliothek"
ClientHeight = 4545
ClientLeft = 0
ClientTop = 0
ClientWidth = 7035
LinkTopic = "Bibliothek"
ScaleHeight = 4545
ScaleWidth = 7035
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command7
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Verlassen"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5520
Style = 1 'Graphical
TabIndex = 24
Top = 3960
Width = 1335
End
Begin VB.CommandButton Command6
BackColor = &H00E0E0E0&
Caption = "Bücherausweis kaufen"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
Style = 1 'Graphical
TabIndex = 21
Top = 3840
Width = 2655
End
Begin VB.CommandButton Command5
BackColor = &H00E0E0E0&
Caption = "Reden"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
Style = 1 'Graphical
TabIndex = 20
Top = 3120
Width = 2655
End
Begin VB.CommandButton Command4
BackColor = &H00E0E0E0&
Caption = "Studieren"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
Style = 1 'Graphical
TabIndex = 19
Top = 2280
Width = 1095
End
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
Caption = "Studieren"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
Style = 1 'Graphical
TabIndex = 18
Top = 1920
Width = 1095
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "Studieren"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
Style = 1 'Graphical
TabIndex = 17
Top = 1560
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "Studieren"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
Style = 1 'Graphical
TabIndex = 6
Top = 1200
Width = 1095
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "80 Goldkronen"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 225
Left = 3000
TabIndex = 23
Top = 3960
Width = 1230
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "mit Yasrida"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 225
Left = 3000
TabIndex = 22
Top = 3240
Width = 960
End
Begin VB.Label Label16
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "0 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 4320
TabIndex = 16
Top = 2280
Width = 1095
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "0 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 4320
TabIndex = 15
Top = 1920
Width = 1095
End
Begin VB.Label Label14
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "20 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 2760
TabIndex = 14
Top = 2280
Width = 1455
End
Begin VB.Label Label13
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "14 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 2760
TabIndex = 13
Top = 1920
Width = 1455
End
Begin VB.Label Label12
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "0 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 4320
TabIndex = 12
Top = 1560
Width = 1095
End
Begin VB.Label Label11
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "16 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 2760
TabIndex = 11
Top = 1560
Width = 1455
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = """Zauberkraft des Chaos"""
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 10
Top = 2280
Width = 2415
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = """Allerlei Diebeskunst"""
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 9
Top = 1920
Width = 2415
End
Begin VB.Label Label8
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "0 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 4320
TabIndex = 8
Top = 1200
Width = 1095
End
Begin VB.Label Label7
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "12 Stunden"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 2760
TabIndex = 7
Top = 1200
Width = 1455
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Studiert"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 255
Left = 4320
TabIndex = 5
Top = 840
Width = 1095
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Studienzeit"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 255
Left = 2760
TabIndex = 4
Top = 840
Width = 1455
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Buch"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 255
Left = 240
TabIndex = 3
Top = 840
Width = 2415
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = """Das höhere Denken"""
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 2
Top = 1560
Width = 2415
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = """Grundwissen der Alchemie"""
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 240
TabIndex = 1
Top = 1200
Width = 2475
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Bibliothek von Phargas"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 240
TabIndex = 0
Top = 120
Width = 6495
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 240
X2 = 6600
Y1 = 480
Y2 = 480
End
End
Attribute VB_Name = "Bibliothek"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
BuchGelesen
If ALCHEMIE >= 30 Then BookLow: GoTo nix1
GdAst = GdAst + 1
If GdAst = 12 Then Titel = "Grundwissen der Alchemie": Text = "Du beendest das Buch und erhältst " + Str(30 - ALCHEMIE) + "% zu Alchemie.": onlyOK: Konversation.Show (vbModal): ALCHEMIE = 30
Label8.Caption = Str(GdAst) + " Stunden"
initial
nix1:
End Sub
Private Sub Command2_Click()
BuchGelesen
If Iq < 60 Then BookHigh: GoTo nix2
DhDst = DhDst + 1
If DhDst = 16 Then Iq = Iq + 10: Titel = "Das höhere Denken": Text = "Du beendest das Buch und erhältst 10 Punkte zu Intelligenz .": onlyOK: Konversation.Show (vbModal)
Label12.Caption = Str(DhDst) + " Stunden"
initial
nix2:
End Sub
Private Sub Command3_Click()
BuchGelesen
If STEHLEN + FEILSCHEN >= 100 Then BookLow: GoTo nix3
ADst = ADst + 1
If ADst = 14 Then Titel = "Allerlei Diebeskunst": Text = "Du beendest das Buch und erhältst " + Str(30 - STEHLEN) + "% zu Stehlen und " + Str(30 - FEILSCHEN) + "% zu Feilschen.": onlyOK: Konversation.Show (vbModal): STEHLEN = 30: FEILSCHEN = 30:
Label15.Caption = Str(ADst) + " Stunden"
initial
nix3:
End Sub
Private Sub Command4_Click()
BuchGelesen
If CHAOS >= 6 Then BookLow: GoTo nixda4
If Magician = 0 Then BookHigh: GoTo nixda4
ZdCst = ZdCst + 1
If ZdCst = 20 Then CHAOS = CHAOS + 2: Titel = "Zauberkraft des Chaos": Text = "Du beendest das Buch und erhältst 2 Punkte zu Chaos .": onlyOK: Konversation.Show (vbModal)
Label16.Caption = Str(ZdCst) + " Stunden"
initial
nixda4:
End Sub
Sub BookLow()
Titel = "Nichts neues"
Text = "Nachdem du einige Seiten des Buches gelesen hast, merkst du, dass du nichts neues aus dem Buch lernst."
onlyOK
Konversation.Show (vbModal)
End Sub
Sub BookHigh()
Titel = "Grundwissen fehlt"
Text = "Du liest den Anfang des Buches, merkst jedoch, dass du das Grundwissen dafür nicht besitz."
onlyOK
Konversation.Show (vbModal)
End Sub
Private Sub Command5_Click()
Titel = "Yasrida"
Text = "Wenn du die Dienste der Bibliothek von Phargas in Anspruch nehmen willst, musst du einen Bücherausweis kaufen. Dann kannst du die Bücher hier studieren."
onlyOK
Konversation.Show (vbModal)
End Sub
Private Sub Command6_Click()
If Gold < 80 Then Inhaber = "Yasrida": NoGold: GoTo nono
Gold = Gold - 80
A = "Bücherausweis"
Bücherausweis = 1
Manager.Inventar.AddItem A
ManagRighter
initial
nono:
End Sub
Sub initial()
If Bücherausweis = 1 Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Enabled = False
End If
If GdAst = 12 Then Command1.Enabled = False
If DhDst = 16 Then Command2.Enabled = False
If ADst = 14 Then Command3.Enabled = False
If ZdCst = 20 Then Command4.Enabled = False
End Sub
Private Sub Command7_Click()
Unload Bibliothek
Phargas.Show
End Sub
Sub BuchGelesen()
Stunden = Stunden + 1
Dayli
If Stunden >= 22 Then Phargas.Show: Unload Bibliothek
End Sub
Private Sub Form_Activate()
If Stunden >= 22 Then
Phargas.Show
Titel = "Yasrida"
Text = "Tut mir leid, die Bibliothek ist nicht mehr zugänglich."
onlyOK
Konversation.Show (vbModal)
Unload Bibliothek
End If
End Sub
Private Sub Form_Load()
initial
End Sub

/trunk/Zeitalter der Dämonen/Charakter.frm
0,0 → 1,2369
VERSION 5.00
Begin VB.Form Charakter
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "Charaktergenerierung"
ClientHeight = 7845
ClientLeft = 45
ClientTop = 435
ClientWidth = 9315
LinkTopic = "Charakter"
MaxButton = 0 'False
ScaleHeight = 7845
ScaleWidth = 9315
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command15
BackColor = &H00FFC0C0&
Cancel = -1 'True
Caption = "Hauptmenü"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 4560
Style = 1 'Graphical
TabIndex = 92
Top = 600
Width = 2175
End
Begin VB.CommandButton Command19
BackColor = &H00FFC0C0&
Caption = "Charakter übernehmen"
Default = -1 'True
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 6840
Style = 1 'Graphical
TabIndex = 90
Top = 600
Width = 2175
End
Begin VB.Frame Frame5
BackColor = &H00400000&
Caption = "Fähigkeiten"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 3735
Left = 6720
TabIndex = 64
Top = 3720
Visible = 0 'False
Width = 2295
Begin VB.CommandButton Command18
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1960
Style = 1 'Graphical
TabIndex = 79
Top = 3120
Width = 255
End
Begin VB.CommandButton Command17
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1960
Style = 1 'Graphical
TabIndex = 78
Top = 2520
Width = 255
End
Begin VB.CommandButton Command16
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1960
Style = 1 'Graphical
TabIndex = 77
Top = 1920
Width = 255
End
Begin VB.CommandButton Command14
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1960
Style = 1 'Graphical
TabIndex = 76
Top = 1320
Width = 255
End
Begin VB.CommandButton Command13
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1960
Style = 1 'Graphical
TabIndex = 75
Top = 720
Width = 255
End
Begin VB.Label Label51
Alignment = 2 'Center
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 74
Top = 3120
Width = 450
End
Begin VB.Label Label50
Alignment = 2 'Center
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 73
Top = 2520
Width = 450
End
Begin VB.Label Label49
Alignment = 2 'Center
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 72
Top = 1920
Width = 450
End
Begin VB.Label Label47
Alignment = 2 'Center
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 71
Top = 1320
Width = 450
End
Begin VB.Label Label46
Alignment = 2 'Center
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 70
Top = 720
Width = 450
End
Begin VB.Label Label45
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Pflanzenkunde"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 120
TabIndex = 69
Top = 3120
Width = 1260
End
Begin VB.Label Label44
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stehlen"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 120
TabIndex = 68
Top = 2520
Width = 645
End
Begin VB.Label Label43
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Feilschen"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 120
TabIndex = 67
Top = 1920
Width = 810
End
Begin VB.Label Label41
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Wunden heilen"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 120
TabIndex = 66
Top = 1320
Width = 1260
End
Begin VB.Label Label40
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Alchemie"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 120
TabIndex = 65
Top = 720
Width = 795
End
End
Begin VB.Frame Frame4
BackColor = &H00400000&
Caption = "Talentwerte"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 3735
Left = 3840
TabIndex = 6
Top = 3720
Visible = 0 'False
Width = 2775
Begin VB.CommandButton Command12
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 63
Top = 3360
Width = 255
End
Begin VB.CommandButton Command11
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 62
Top = 3000
Width = 255
End
Begin VB.CommandButton Command10
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 61
Top = 2640
Width = 255
End
Begin VB.CommandButton Command9
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 60
Top = 2280
Width = 255
End
Begin VB.CommandButton Command8
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 51
Top = 1800
Width = 255
End
Begin VB.CommandButton Command7
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 50
Top = 1440
Width = 255
End
Begin VB.CommandButton Command6
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 49
Top = 1080
Width = 255
End
Begin VB.CommandButton Command5
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 48
Top = 720
Width = 255
End
Begin VB.CommandButton Command4
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 47
Top = 360
Width = 255
End
Begin VB.Label Label39
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 59
Top = 3360
Width = 330
End
Begin VB.Label Label38
AutoSize = -1 'True
BackColor = &H00004000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 58
Top = 3000
Width = 330
End
Begin VB.Label Label37
AutoSize = -1 'True
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 57
Top = 2640
Width = 330
End
Begin VB.Label Label36
AutoSize = -1 'True
BackColor = &H00000040&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 56
Top = 2280
Width = 330
End
Begin VB.Shape Shape3
BorderColor = &H000000FF&
Height = 1395
Left = 150
Top = 2260
Width = 2460
End
Begin VB.Shape Shape2
BorderColor = &H000000FF&
Height = 1910
Left = 150
Top = 280
Width = 2460
End
Begin VB.Label Label35
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nekromantie"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 225
Left = 240
TabIndex = 55
Top = 3360
Width = 1095
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Natur"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 225
Left = 240
TabIndex = 54
Top = 3000
Width = 465
End
Begin VB.Label Label33
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Licht"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 225
Left = 240
TabIndex = 53
Top = 2640
Width = 420
End
Begin VB.Label Label32
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Chaos"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 225
Left = 240
TabIndex = 52
Top = 2280
Width = 540
End
Begin VB.Label Label31
AutoSize = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 46
Top = 1800
Width = 330
End
Begin VB.Label Label30
AutoSize = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 45
Top = 1440
Width = 330
End
Begin VB.Label Label29
AutoSize = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 44
Top = 1080
Width = 330
End
Begin VB.Label Label28
AutoSize = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 43
Top = 720
Width = 330
End
Begin VB.Label Label27
AutoSize = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 42
Top = 360
Width = 330
End
Begin VB.Label Label26
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schusswaffen"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 240
TabIndex = 41
Top = 1800
Width = 1230
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Hiebwaffen"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 240
TabIndex = 40
Top = 1440
Width = 960
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Speere und Stäbe"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 240
TabIndex = 39
Top = 1080
Width = 1515
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Äxte"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 240
TabIndex = 38
Top = 720
Width = 390
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schwerter"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 240
TabIndex = 37
Top = 360
Width = 900
End
End
Begin VB.Frame Frame3
BackColor = &H00400000&
Caption = "Eigenschaftswerte"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 2535
Left = 240
TabIndex = 5
Top = 3720
Visible = 0 'False
Width = 3375
Begin VB.CommandButton Command3
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 32
Top = 1200
Width = 255
End
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 31
Top = 840
Width = 255
End
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 30
Top = 480
Width = 255
End
Begin VB.Label Label21
AutoSize = -1 'True
BackColor = &H00800000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 36
Top = 2040
Width = 330
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H000000C0&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 35
Top = 1680
Width = 330
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 120
TabIndex = 34
Top = 2040
Width = 525
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 120
TabIndex = 33
Top = 1680
Width = 1425
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 29
Top = 1200
Width = 330
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 28
Top = 840
Width = 330
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 27
Top = 480
Width = 330
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Intelligenz"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 26
Top = 1200
Width = 1005
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gewandtheit"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 25
Top = 840
Width = 1215
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stärke"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 24
Top = 480
Width = 615
End
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2040
TabIndex = 4
Text = "Arokh von Silberstein"
Top = 600
Width = 2175
End
Begin VB.Frame Frame2
BackColor = &H00400000&
Caption = "Klasse"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 2535
Left = 4080
TabIndex = 2
Top = 1080
Width = 4935
Begin VB.OptionButton Option7
BackColor = &H00FF8080&
Caption = "Dieb"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 17
Top = 1920
Width = 1215
End
Begin VB.OptionButton Option6
BackColor = &H00FF8080&
Caption = "Kleriker"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 16
Top = 1680
Width = 1215
End
Begin VB.OptionButton Option5
BackColor = &H00FF8080&
Caption = "Nekromant"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 15
Top = 1440
Width = 1215
End
Begin VB.OptionButton Option4
BackColor = &H00FF8080&
Caption = "Magier"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 14
Top = 1200
Width = 1215
End
Begin VB.OptionButton Option3
BackColor = &H00FF8080&
Caption = "Jäger"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 13
Top = 960
Width = 1215
End
Begin VB.OptionButton Option2
BackColor = &H00FF8080&
Caption = "Paladin"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 12
Top = 720
Width = 1215
End
Begin VB.OptionButton Option1
BackColor = &H00FF8080&
Caption = "Krieger"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
Style = 1 'Graphical
TabIndex = 11
Top = 480
Width = 1215
End
Begin VB.Label Label62
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nachteile"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2760
TabIndex = 91
Top = 480
Width = 750
End
Begin VB.Label Label61
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 1440
TabIndex = 89
Top = 720
Width = 60
End
Begin VB.Label Label60
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "unbekannt"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 1560
TabIndex = 88
Top = 720
Width = 885
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "Nachteil3"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 405
Left = 2760
TabIndex = 21
Top = 1680
Width = 2175
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "Nachteil 2"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 405
Left = 2760
TabIndex = 20
Top = 1200
Width = 2175
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Nachteil 1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 405
Left = 2760
TabIndex = 19
Top = 720
Width = 2175
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Magiebegabt"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 1440
TabIndex = 18
Top = 480
Width = 1065
End
End
Begin VB.Frame Frame1
BackColor = &H00400000&
Caption = "Rasse"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 2535
Left = 240
TabIndex = 1
Top = 1080
Width = 3735
Begin VB.ComboBox Combo1
BackColor = &H00800000&
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
ItemData = "Charakter.frx":0000
Left = 120
List = "Charakter.frx":0010
Style = 2 'Dropdown List
TabIndex = 7
Top = 480
Width = 1695
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Inventar"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 23
Top = 1480
Width = 855
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 735
Left = 120
Top = 1680
Width = 1695
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 735
Left = 165
TabIndex = 22
Top = 1680
Width = 1620
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 1200
TabIndex = 10
Top = 1080
Width = 90
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 120
TabIndex = 9
Top = 1080
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Beschreibung"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 1935
Left = 1865
TabIndex = 8
Top = 480
Width = 1815
End
End
Begin VB.Label Label59
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mystix Development"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 7320
TabIndex = 87
Top = 240
Width = 1680
End
Begin VB.Label Label58
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Aysalia: Zeitalter der Dämonen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 195
Left = 6330
TabIndex = 86
Top = 7560
Width = 2610
End
Begin VB.Label Label57
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "15%"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 2520
TabIndex = 85
Top = 7200
Width = 405
End
Begin VB.Label Label56
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "5"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 2520
TabIndex = 84
Top = 6840
Width = 165
End
Begin VB.Label Label55
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "5"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 2520
TabIndex = 83
Top = 6480
Width = 165
End
Begin VB.Label Label54
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Fähigkeitspunkte"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 240
TabIndex = 82
Top = 7200
Width = 1620
End
Begin VB.Label Label53
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Talentpunkte"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 240
TabIndex = 81
Top = 6840
Width = 1245
End
Begin VB.Label Label52
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Eigenschaftspunkte"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 240
TabIndex = 80
Top = 6480
Width = 1830
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Name des Helden"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 240
TabIndex = 3
Top = 600
Width = 1650
End
Begin VB.Line Line1
BorderColor = &H0000FFFF&
X1 = 240
X2 = 9000
Y1 = 480
Y2 = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Charakter Erschaffung"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 240
TabIndex = 0
Top = 120
Width = 3135
End
End
Attribute VB_Name = "Charakter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Frame3.Enabled = False
Frame3.Visible = False
Frame4.Enabled = False
Frame4.Visible = False
Frame5.Enabled = False
Frame5.Visible = False
A = Combo1.Text
If A = "Elf" Then Gold = 50: A = "Die Elfen waren einst die ersten Völker, die Aysalia bevölkerten. Im Wald fühlen sie sich am wohlsten, und nutzen diesen auch für ihre Waffen und Nahrung.": ElfON
If A = "Halb-Elf" Then Gold = 100: A = "Halbelfen sind eine Mischung aus Mensch und Elf. Halbelfen bevorzugen jedoch die menschliche seite und leben in der Stadt.": HelfON
If A = "Mensch" Then Gold = 150: A = "Menschen bevölkern noch heute am meisten Aysalia und breiten sich mit ihren Städten immer weiter aus.": MenON
If A = "Zwerg" Then Gold = 200: A = "Zwerge leben abgeschieden in kleinen Sippe in unterirdischen Höhlen zwischen hohen Bergen und hassen das Sonnelicht.": ZweON
Label5.Caption = Gold
Label3.Caption = A
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
End Sub
Private Sub Command1_Click()
Epoints = Epoints - 1
Strength = Strength + 1
Label15.Caption = Strength
CheckPoints
End Sub
Private Sub Command10_Click()
Tpoints = Tpoints - 1
LICHT = LICHT + 1
Label37.Caption = LICHT
CheckPoints
End Sub
Private Sub Command11_Click()
Tpoints = Tpoints - 1
NATUR = NATUR + 1
Label38.Caption = NATUR
CheckPoints
End Sub
Private Sub Command12_Click()
Tpoints = Tpoints - 1
NEKROMANTIE = NEKROMANTIE + 1
Label39.Caption = NEKROMANTIE
CheckPoints
End Sub
Private Sub Command13_Click()
Fpoints = Fpoints - 1
ALCHEMIE = ALCHEMIE + 1
Label46.Caption = Str(ALCHEMIE) + "%"
CheckPoints
End Sub
Private Sub Command14_Click()
Fpoints = Fpoints - 1
WUNDENHEILEN = WUNDENHEILEN + 1
Label47.Caption = Str(WUNDENHEILEN) + "%"
CheckPoints
End Sub
Private Sub Command15_Click()
Unload Charakter
StartTitle.Show
End Sub
Private Sub Command16_Click()
Fpoints = Fpoints - 1
FEILSCHEN = FEILSCHEN + 1
Label49.Caption = Str(FEILSCHEN) + "%"
CheckPoints
End Sub
Private Sub Command17_Click()
Fpoints = Fpoints - 1
STEHLEN = STEHLEN + 1
Label50.Caption = Str(STEHLEN) + "%"
CheckPoints
End Sub
Private Sub Command18_Click()
Fpoints = Fpoints - 1
PFLANZENKUNDE = PFLANZENKUNDE + 1
Label51.Caption = Str(PFLANZENKUNDE) + "%"
CheckPoints
End Sub
Private Sub Command19_Click()
Stunden = 8
Minuten = 30
Woche = "Montag"
Dayli
Nom = Text1.Text
If Typus = "Krieger" Or Typus = "Paladin" Then Waffe = "Schwert": GRschaden = 3: ZUschaden = 3: Kategorie = "Sch": Material = "Stahl": Abzug = 0: Hände = 1
If Typus = "Jäger" Then Waffe = "Jagdspeer": GRschaden = 2: ZUschaden = 7: Kategorie = "Sp": Material = "Holz": Abzug = 0: Hände = 1
If Typus = "Magier" Then Waffe = "Magierstab": GRschaden = 2: ZUschaden = 4: Kategorie = "Sp": Material = "Magisch": Abzug = 0: Hände = 1
If Typus = "Nekromant" Then Waffe = "Kampfstab": GRschaden = 2: ZUschaden = 3: Kategorie = "Sp": Material = "Holz": Abzug = 0: Hände = 1
If Typus = "Kleriker" Then Waffe = "Weihstab": GRschaden = 2: ZUschaden = 4: Kategorie = "Sp": Material = "Geweiht": Abzug = 0: Hände = 1
If Typus = "Dieb" Then Waffe = "Streitkolben": GRschaden = 2: ZUschaden = 5: Kategorie = "Hie": Material = "Holz": Abzug = 0: Hände = 1
If Typus = "Jäger" Then Rüstung = "Lederkleidung": Rrs = 1: Rbe = 1: Rmaterial = "Leder"
If Typus = "Magier" Then Umhang = "Rote Robe": Urs = 0: Ube = 0
If Typus = "Nekromant" Then Umhang = "Schwarze Robe": Urs = 0: Ube = 0
If Typus = "Kleriker" Then Umhang = "Weiße Robe": Urs = 0: Ube = 0
If Typus = "Dieb" Then Umhang = "Nachtblaue Kutte": Urs = 0: Ube = 0
If Typus = "Krieger" Then Rüstung = "Lederkleidung": Rrs = 1: Rbe = 1: Rmaterial = "Leder"
If Typus = "Paladin" Then Rüstung = "Kettenhemd": Rrs = 2: Rbe = 2: Rmaterial = "Stahl"
If Typus = "Magier" Then A = "Kleiner Zaubertrank": AddObj: AddObj
If Typus = "Nekromant" Or Typus = "Kleriker" Or Typus = "Paladin" Then A = "Kleiner Zaubertrank": AddObj
If Typus = "Dieb" Then A = "Dietriche": AddObj
If Typus = "Magier" Then A = "Feuerblitz": Manager.SpruchBuch.AddItem A
If Typus = "Jäger" Then Schusswaffe = "Kurzbogen": SWGRschaden = 3: SWZUschaden = 4: SwKategorie = "Bogen": Pfeile = 6
STARThp = Hp
STARTmp = MP
Stufe = 1
RK = Rrs + Urs + Hrs + Srs
Experience = 0
NextLevel = 100
Manager.Show
Landkarte.Show
Unload Charakter
Story.Show (vbModal)
End Sub
Private Sub Command2_Click()
Epoints = Epoints - 1
Speed = Speed + 1
Label16.Caption = Speed
CheckPoints
End Sub
Private Sub Command20_Click()
STARThp = Hp
STARTmp = MP
Stufe = 1
Experience = 0
NextLevel = 100
Manager.Show
Unload Charakter
End Sub
Private Sub Command3_Click()
Epoints = Epoints - 1
Iq = Iq + 1
Label17.Caption = Iq
CheckPoints
End Sub
Private Sub Command4_Click()
Tpoints = Tpoints - 1
SCHWERTER = SCHWERTER + 1
Label27.Caption = SCHWERTER
CheckPoints
End Sub
Private Sub Command5_Click()
Tpoints = Tpoints - 1
ÄXTE = ÄXTE + 1
Label28.Caption = ÄXTE
CheckPoints
End Sub
Private Sub Command6_Click()
Tpoints = Tpoints - 1
SPEERE = SPEERE + 1
Label29.Caption = SPEERE
CheckPoints
End Sub
Private Sub Command7_Click()
Tpoints = Tpoints - 1
HIEBWAFFEN = HIEBWAFFEN + 1
Label30.Caption = HIEBWAFFEN
CheckPoints
End Sub
Private Sub Command8_Click()
Tpoints = Tpoints - 1
SCHUSSWAFFEN = SCHUSSWAFFEN + 1
Label31.Caption = SCHUSSWAFFEN
CheckPoints
End Sub
Private Sub Command9_Click()
Tpoints = Tpoints - 1
CHAOS = CHAOS + 1
Label36.Caption = CHAOS
CheckPoints
End Sub
Private Sub Form_Load()
initial
End Sub
Sub initial()
If Magician = 0 Then Label60.Caption = "Nein" Else Label60.Caption = "Ja"
If Magician = 0 Then Frame4.Height = 2255 Else Frame4.Height = 3735
Epoints = 5
Tpoints = 5
Fpoints = 15
Command1.Enabled = True: Command2.Enabled = True: Command3.Enabled = True: Command4.Enabled = True: Command5.Enabled = True
Command6.Enabled = True: Command7.Enabled = True: Command8.Enabled = True: Command9.Enabled = True: Command10.Enabled = True
Command11.Enabled = True: Command12.Enabled = True: Command13.Enabled = True: Command14.Enabled = True
Command16.Enabled = True: Command17.Enabled = True: Command18.Enabled = True
Label7.Caption = Nachteil1
Label8.Caption = Nachteil2
Label9.Caption = Nachteil3
Label5.Caption = Gold
Strength = Strength + STplus
Label15.Caption = Strength
Speed = Speed + SPplus
Label16.Caption = Speed
Iq = Iq + IQplus
Label17.Caption = Iq
Label20.Caption = Hp
Label21.Caption = MP
Label55.Caption = Epoints
Label56.Caption = Tpoints
Label57.Caption = Str(Fpoints) + "%"
Label27.Caption = SCHWERTER
Label28.Caption = ÄXTE
Label29.Caption = SPEERE
Label30.Caption = HIEBWAFFEN
Label31.Caption = SCHUSSWAFFEN
Label36.Caption = CHAOS
Label37.Caption = LICHT
Label38.Caption = NATUR
Label39.Caption = NEKROMANTIE
Label46.Caption = Str(ALCHEMIE) + "%"
Label47.Caption = Str(WUNDENHEILEN) + "%"
Label49.Caption = Str(FEILSCHEN) + "%"
Label50.Caption = Str(STEHLEN) + "%"
Label51.Caption = Str(PFLANZENKUNDE) + "%"
End Sub
Sub ElfON()
Option1.Enabled = True
Option2.Enabled = False
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = False
Option6.Enabled = False
Option7.Enabled = False
End Sub
Sub HelfON()
Option1.Enabled = True
Option2.Enabled = False
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = False
Option6.Enabled = True
Option7.Enabled = True
End Sub
Sub MenON()
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Option7.Enabled = True
End Sub
Sub ZweON()
Option1.Enabled = True
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = True
Option5.Enabled = False
Option6.Enabled = False
Option7.Enabled = True
End Sub
Private Sub Option1_Click()
Nachteil1 = ""
Nachteil2 = ""
Nachteil3 = ""
Obj = "Schwert, Lederkleidung"
TheSetter
Typus = "Krieger"
ALCHEMIE = 5: WUNDENHEILEN = 30: FEILSCHEN = 30: STEHLEN = 5: PFLANZENKUNDE = 10
SCHWERTER = 6: SPEERE = 2: ÄXTE = 3: HIEBWAFFEN = 3: SCHUSSWAFFEN = 1
NONmagician
STplus = 20
IQplus = 0
SPplus = 10
Hp = Hp + 15
MP = 0
TheTruer
initial
End Sub
Sub TheTruer()
Frame3.Visible = True
Frame4.Visible = True
Frame5.Visible = True
Frame3.Enabled = True
Frame4.Enabled = True
Frame5.Enabled = True
End Sub
Sub TheSetter()
Command19.Enabled = False
Strength = 0: Iq = 0: Speed = 0
Hp = 0
MP = 0
If Combo1.Text = "Elf" Then Hp = Hp + 25: MP = MP + 45: Strength = 20: Iq = 30: Speed = 40:
If Combo1.Text = "Halb-Elf" Then Hp = Hp + 30: MP = MP + 40: Strength = 25: Iq = 30: Speed = 35
If Combo1.Text = "Mensch" Then Hp = Hp + 35: MP = MP + 35: Strength = 30: Iq = 30: Speed = 30
If Combo1.Text = "Zwerg" Then Hp = Hp + 45: MP = MP + 25: Strength = 45: Iq = 20: Speed = 25
Label7.Caption = Nachteil1
Label8.Caption = Nachteil2
Label9.Caption = Nachteil3
Label10.Caption = Obj
End Sub
Private Sub Option2_Click()
Nachteil1 = "Darf nur Metallrüstungen tragen"
Nachteil2 = "Darf keine Schusswaffen benutzen"
Nachteil3 = ""
Obj = "Schwert, Kettenhemd, kl. Zaubertrank"
TheSetter
Typus = "Paladin"
ALCHEMIE = 15: WUNDENHEILEN = 20: FEILSCHEN = 20: STEHLEN = 0: PFLANZENKUNDE = 20
SCHWERTER = 8: SPEERE = 1: ÄXTE = 3: HIEBWAFFEN = 3: SCHUSSWAFFEN = 0
CHAOS = 0: LICHT = 2: NEKROMANTIE = -5: NATUR = 0
Magician = 1
STplus = 10
IQplus = 10
SPplus = 10
Hp = Hp + 10
TheTruer
initial
End Sub
Private Sub Option3_Click()
Nachteil1 = "Darf nur einhändig geführte Waffen tragen"
Nachteil2 = "mit Ausnahme von Speeren"
Nachteil3 = ""
Obj = "Jagdspeer, Lederkleidung, Kurzbogen, 6 Pfeile"
TheSetter
Typus = "Jäger"
ALCHEMIE = 10: WUNDENHEILEN = 30: FEILSCHEN = 10: STEHLEN = 0: PFLANZENKUNDE = 30
SCHWERTER = 3: SPEERE = 4: ÄXTE = 2: HIEBWAFFEN = 1: SCHUSSWAFFEN = 5
NONmagician
STplus = 5
IQplus = 0
SPplus = 25
Hp = Hp + 5
MP = 0
TheTruer
initial
End Sub
Private Sub Option4_Click()
Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
Nachteil2 = "Darf nur Magierstab tragen"
Nachteil3 = ""
Obj = "Magierstab, 2x kleiner Zaubertrank"
TheSetter
Typus = "Magier"
ALCHEMIE = 40: WUNDENHEILEN = 35: FEILSCHEN = 10: STEHLEN = 5: PFLANZENKUNDE = 35
SCHWERTER = 0: SPEERE = 3: ÄXTE = 0: HIEBWAFFEN = 0: SCHUSSWAFFEN = 0
CHAOS = 3: LICHT = 3: NEKROMANTIE = 2: NATUR = 2
Magician = 1
STplus = 0
IQplus = 30
SPplus = 0
MP = MP + 20
TheTruer
initial
End Sub
Private Sub Option5_Click()
Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
Nachteil2 = "Darf keine geweihten Waffen führen"
Nachteil3 = "Darf nur einhändig geführte Waffen tragen"
Obj = "Kampfstab, kleiner Zaubertrank"
TheSetter
Typus = "Nekromant"
ALCHEMIE = 30: WUNDENHEILEN = 20: FEILSCHEN = 10: STEHLEN = 15: PFLANZENKUNDE = 20
SCHWERTER = 0: SPEERE = 3: ÄXTE = 1: HIEBWAFFEN = 1: SCHUSSWAFFEN = 0
CHAOS = 3: LICHT = -5: NEKROMANTIE = 5: NATUR = 2
Magician = 1
STplus = 5
IQplus = 25
SPplus = 0
Hp = Hp + 5
MP = MP + 10
TheTruer
initial
End Sub
Private Sub Option6_Click()
Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
Nachteil2 = "Darf keine Waffen aus Schwarzem Stahl führen"
Nachteil3 = "Darf nur einhändig geführte Waffen tragen"
Obj = "Weihstab, kleiner Zaubertrank"
TheSetter
Typus = "Kleriker"
ALCHEMIE = 30: WUNDENHEILEN = 40: FEILSCHEN = 10: STEHLEN = 0: PFLANZENKUNDE = 20
SCHWERTER = 1: SPEERE = 3: ÄXTE = 0: HIEBWAFFEN = 1: SCHUSSWAFFEN = 0
CHAOS = 0: LICHT = 5: NEKROMANTIE = -5: NATUR = 4
Magician = 1
STplus = 0
IQplus = 30
SPplus = 0
Hp = Hp + 0
MP = MP + 15
TheTruer
initial
End Sub
Private Sub Option7_Click()
Nachteil1 = "Darf nur Lederrüstungen und Roben tragen"
Nachteil2 = "Darf nur einhändig geführte Waffen tragen"
Nachteil3 = ""
Obj = "Streitkolben, Dietriche"
TheSetter
Typus = "Dieb"
ALCHEMIE = 5: WUNDENHEILEN = 10: FEILSCHEN = 30: STEHLEN = 40: PFLANZENKUNDE = 10
SCHWERTER = 3: SPEERE = 2: ÄXTE = 2: HIEBWAFFEN = 6: SCHUSSWAFFEN = 2
NONmagician
STplus = 10
IQplus = 0
SPplus = 20
Hp = Hp + 5
MP = 0
TheTruer
initial
End Sub
Sub CheckPoints()
If Epoints + Fpoints + Tpoints = 0 Then Command19.Enabled = True
Label55.Caption = Epoints
Label56.Caption = Tpoints
Label57.Caption = Str(Fpoints) + "%"
If Fpoints = 0 Then
Command13.Enabled = False: Command14.Enabled = False: Command16.Enabled = False: Command17.Enabled = False: Command18.Enabled = False
End If
If Tpoints = 0 Then
Command4.Enabled = False: Command5.Enabled = False: Command6.Enabled = False: Command7.Enabled = False: Command8.Enabled = False
Command9.Enabled = False: Command10.Enabled = False: Command11.Enabled = False: Command12.Enabled = False
End If
If Epoints = 0 Then
Command1.Enabled = False: Command2.Enabled = False: Command3.Enabled = False
End If
End Sub
Sub NONmagician()
Magician = 0
CHAOS = 0: NATUR = 0: NEKROMANTIE = 0: LICHT = 0
End Sub

/trunk/Zeitalter der Dämonen/Charakter.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Elfenwald.frm
0,0 → 1,314
VERSION 5.00
Begin VB.Form Elfenwald
BorderStyle = 0 'None
Caption = "Elfenwald"
ClientHeight = 5175
ClientLeft = 0
ClientTop = 0
ClientWidth = 7455
LinkTopic = "Elfenwald"
Picture = "Elfenwald.frx":0000
ScaleHeight = 5175
ScaleWidth = 7455
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "V"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 7200
TabIndex = 0
Top = 4800
Width = 195
End
Begin VB.Shape Elfenking
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 135
Left = 3080
Shape = 3 'Circle
Top = 2760
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 2180
Shape = 3 'Circle
Top = 3960
Width = 135
End
Begin VB.Shape Shape5
BorderColor = &H0000FFFF&
Height = 135
Left = 3680
Shape = 3 'Circle
Top = 2660
Width = 135
End
Begin VB.Shape Shape4
BorderColor = &H0000FFFF&
Height = 135
Left = 480
Shape = 3 'Circle
Top = 960
Width = 135
End
Begin VB.Shape Shape3
BorderColor = &H0000FFFF&
Height = 135
Left = 2880
Shape = 3 'Circle
Top = 2060
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Left = 2280
Shape = 3 'Circle
Top = 2460
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Left = 3980
Shape = 3 'Circle
Top = 1660
Width = 135
End
End
Attribute VB_Name = "Elfenwald"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Elfenwald.Height Then
Held.Top = Held.Top + 100
city
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
city
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Elfenwald.Width Then
Held.Left = Held.Left + 100
city
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
city
End If
End Sub
Sub city()
Angriff
If EVTangriff = 1 Then WhatEnemy: Elfenwald.Hide: GoTo non
If Held.Top = Shape1.Top And Held.Left = Shape1.Left Then Bogenbauer
If Held.Top = Shape2.Top And Held.Left = Shape2.Left Then gilde
If Held.Top = Shape3.Top And Held.Left = Shape3.Left Then Zauberer
If Held.Top = Shape4.Top And Held.Left = Shape4.Left Then Nest
If Held.Top = Shape5.Top And Held.Left = Shape5.Left Then Schmiede
If Held.Top = Elfenking.Top And Held.Left = Elfenking.Left Then ELFENKÖNIG
non:
End Sub
Sub WhatEnemy()
woher = "Elfenwald"
Randomize Timer
enemy = Int(6 * Rnd)
If enemy = 0 Then
Feind = "Dämonling": MK = 40: Art = "Dämon": Zauber = "Nein": Exp = 20
Gwaffe = "": Fgrschaden = 1: Fzuschaden = 4: Fmaterial = "Holz": Fkategorie = "Hie": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 15: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 15: Gmp = 0: Gstrength = 25: Gspeed = 55: Gmr = 0
End If
If enemy = 1 Then
Feind = "Schreckenswolf": MK = 75: Art = "Kreatur": Zauber = "Nein": Exp = 40
Gwaffe = "": Fgrschaden = 4: Fzuschaden = 3: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 30: Gmp = 0: Gstrength = 40: Gspeed = 50: Gmr = 1
End If
If enemy = 2 Then
Feind = "Dunkelelf": MK = 100: Art = "Mensch": Zauber = "Nekromantie": Exp = 55
Gwaffe = "Schwert": Fgrschaden = 3: Fzuschaden = 3: Fmaterial = "Stahl": Fkategorie = "Sch": Fabzug = 0
Grs = 2: Grust = "Kettenhemd"
Giftig = 0: Krankhaft = 0: GoldFund = 10: Pfeilfund = 3: Bolzenfund = 0
Ghp = 30: Gmp = 25: Gstrength = 45: Gspeed = 50: Gmr = -1
End If
If enemy = 3 Then
Feind = "Wolf": MK = 80: Art = "Kreatur": Zauber = "Nein": Exp = 25
Gwaffe = "": Fgrschaden = 3: Fzuschaden = 3: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 25: Gmp = 0: Gstrength = 35: Gspeed = 50: Gmr = -1
End If
If enemy = 4 Then
Feind = "Ghul": MK = 100: Art = "Untoter": Zauber = "Nein": Exp = 35
Gwaffe = "": Fgrschaden = 3: Fzuschaden = 5: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 30: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 30: Gmp = 0: Gstrength = 40: Gspeed = 30: Gmr = -5
End If
If enemy = 5 Then
Feind = "Dalerok's Scherge": MK = 110: Art = "Mensch": Zauber = "Nein": Exp = 30
Gwaffe = "Handaxt": Fgrschaden = 4: Fzuschaden = 4: Fmaterial = "Stahl": Fkategorie = "Ax": Fabzug = 3
Grs = 3: Grust = "Kettenhemd"
Giftig = 0: Krankhaft = 0: GoldFund = 20: Pfeilfund = 0: Bolzenfund = 0
Ghp = 35: Gmp = 0: Gstrength = 40: Gspeed = 40: Gmr = 0
End If
Kampf.Show
End Sub
Sub Schmiede()
SchmiedeName = "Lorions Schmiede"
Inhaber = "Lorion"
dqSCHMIEDE.Show
dqSCHMIEDE.Label1.Caption = SchmiedeName
dqSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Jagdspeer"
dqSCHMIEDE.List1.AddItem A
A = "Kriegsspeer"
dqSCHMIEDE.List1.AddItem A
A = "Stoßspeer"
dqSCHMIEDE.List1.AddItem A
A = "Schwert"
dqSCHMIEDE.List1.AddItem A
A = "Zweililien"
dqSCHMIEDE.List1.AddItem A
A = "Streitkolben"
dqSCHMIEDE.List1.AddItem A
End Sub
Sub gilde()
SchmiedeName = "Magiergilde 'Waldzauber'"
Inhaber = "Cethinia"
GildenArt = "Natur"
dqGILDE.Show
dqGILDE.Label1.Caption = SchmiedeName
dqGILDE.Label15.Caption = "mit " + Inhaber
A = "Schild"
dqGILDE.List1.AddItem A
A = "Zauberranken"
dqGILDE.List1.AddItem A
A = "Naturheilung"
dqGILDE.List1.AddItem A
A = "Kältestrahl"
dqGILDE.List1.AddItem A
End Sub
Sub Zauberer()
SchmiedeName = "Crylanon's Zauberutensilien"
Inhaber = "Crylanon"
dqZAUBERER.Show
dqZAUBERER.Label1.Caption = SchmiedeName
dqZAUBERER.Label11.Caption = "mit " + Inhaber
A = "Wurzelknolle"
dqZAUBERER.List1.AddItem A
A = "Leere Flasche"
dqZAUBERER.List1.AddItem A
A = "Büschel Grabkraut"
dqZAUBERER.List1.AddItem A
A = "Blüte eines Morgentaus"
dqZAUBERER.List1.AddItem A
A = "Büschel Brunnensporn"
dqZAUBERER.List1.AddItem A
A = "Schwefel (1 ml)"
dqZAUBERER.List1.AddItem A
A = "Quecksilber (1 ml)"
dqZAUBERER.List1.AddItem A
End Sub
Sub Bogenbauer()
SchmiedeName = "Bogenbauerin Alescha"
Inhaber = "Alescha"
dqBOGENBAUER.Show
dqBOGENBAUER.Label1.Caption = SchmiedeName
dqBOGENBAUER.Label15.Caption = "mit " + Inhaber
A = "Elfenbogen"
dqBOGENBAUER.List1.AddItem A
A = "Kurzbogen"
dqBOGENBAUER.List1.AddItem A
A = "Langbogen"
dqBOGENBAUER.List1.AddItem A
A = "Kompositbogen"
dqBOGENBAUER.List1.AddItem A
A = "Kriegsbogen"
dqBOGENBAUER.List1.AddItem A
A = "Pfeil"
dqBOGENBAUER.List1.AddItem A
End Sub
Sub Nest()
If Thorku = 1 Then GoTo nix
Elfenwald.Hide
Titel = "Das Nest von Thorkushur"
Text = "Gestank von Verwesung dringt dir in die Nase. Du stehst vor dem Nest von Thorkushur. Er liegt dort und schläft. Willst du ih angreifen?"
PositionNumber = 801
JaUndNein
Konversation.Show (vbModal)
nix:
End Sub
Sub ELFENKÖNIG()
If Thorku = 2 Then
Titel = "Thallamon, der Elfenkönig"
Text = "Wir stehen tief in deiner Schuld."
onlyOK
Konversation.Show (vbModal)
GoTo astalka
End If
If Thorku = 1 Then
Titel = "Thallamon, der Elfenkönig"
Text = "Danke, vielen Dank! Nimm dieses Schwert als Zeichen unserer Dankbarkeit."
A = "Elfenschwert"
Manager.Inventar.AddItem A
Exp = 100
GetExperience
Thorku = 2
onlyOK
Konversation.Show (vbModal)
GoTo astalka
End If
Titel = "Thallamon, der Elfenkönig"
Text = "Ah, sei gegrüßt mein Freund! Wir bitten dich um deine Hilfe. Thorkushur hat sich in einem Nest in unserem Wald eingelebt. Er tötet alle Elfen die er auf seiner Jagd erblickt."
onlyOK
Konversation.Show (vbModal)
astalka:
End Sub
Private Sub Label1_Click()
Unload Elfenwald
Landkarte.Show
End Sub

/trunk/Zeitalter der Dämonen/Elfenwald.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Equipment.frm
0,0 → 1,487
VERSION 5.00
Begin VB.Form Equipment
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "Ausrüstung"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 330
ClientWidth = 5520
ControlBox = 0 'False
LinkTopic = "Equipment"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 5520
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
Caption = "Objekt anlegen"
Enabled = 0 'False
Height = 255
Left = 240
Style = 1 'Graphical
TabIndex = 13
Top = 5520
Width = 1575
End
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "Verlassen"
Default = -1 'True
Height = 255
Left = 3720
Style = 1 'Graphical
TabIndex = 10
Top = 5520
Width = 1575
End
Begin VB.Label Label15
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstungsteile"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 16
Top = 3120
Width = 5100
End
Begin VB.Label Label14
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffen"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 15
Top = 1320
Width = 5055
End
Begin VB.Label Label13
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Helm"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 14
Top = 120
Width = 5100
End
Begin VB.Line Line4
BorderColor = &H00FF8080&
X1 = 240
X2 = 5280
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line3
BorderColor = &H00FF8080&
X1 = 240
X2 = 5280
Y1 = 4680
Y2 = 4680
End
Begin VB.Line Line1
BorderColor = &H00FF8080&
X1 = 240
X2 = 5280
Y1 = 2400
Y2 = 2400
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 12
Top = 2400
Width = 540
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 11
Top = 2640
Width = 4980
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 9
Top = 4320
Width = 4980
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 8
Top = 4080
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 285
TabIndex = 7
Top = 720
Width = 540
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 6
Top = 4920
Width = 4980
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 285
TabIndex = 5
Top = 3720
Width = 4980
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 450
Left = 285
TabIndex = 4
Top = 1920
Width = 4980
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 3
Top = 480
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 2
Top = 4680
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 1
Top = 3480
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 285
TabIndex = 0
Top = 1680
Width = 540
End
Begin VB.Shape Shape3
BorderColor = &H00FFFFFF&
Height = 2055
Left = 240
Top = 3360
Width = 5055
End
Begin VB.Shape Shape2
BorderColor = &H00FFFFFF&
Height = 1455
Left = 240
Top = 1560
Width = 5055
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
Height = 855
Left = 240
Top = 360
Width = 5055
End
End
Attribute VB_Name = "Equipment"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Equipment
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
A = Manager.Inventar.Text
dqWAFFE = ""
If Typus = "Magier" And A = "Magierstab des Irion" Then GoTo overjump
If Typus = "Magier" And A = "Magierstab" Then GoTo overjump
If Typus = "Magier" Then GoTo nonee
overjump:
WeaponCheck
If A = dqWAFFE Then AddWeap: GoTo jau
nonee:
BowCheck
If A = dqWAFFE Then AddBow: GoTo jau
RüstCheck
If A = dqWAFFE Then addrüst
jau:
End Sub
Private Sub Form_Load()
Dim MFG As String
Label4.Caption = Helm
Label8.Caption = Str(Hrs) + " RS / " + Str(Hbe) + " BE"
If Helm = "" Then Label4.Caption = "kein Helm!": Label8.Caption = ""
Label1.Caption = Waffe
If Kategorie = "Sch" Then MFG = "Schwert"
If Kategorie = "Ax" Then MFG = "Axt"
If Kategorie = "Sp" Then MFG = "Stabwaffe"
If Kategorie = "Hie" Then MFG = "Hiebwaffe"
Label5.Caption = Str(GRschaden) + " -" + Str(GRschaden + ZUschaden) + " / " + MFG + " aus " + Material + " / Abzug (" + Str(Abzug) + " )"
If Hände = 1 Then MFG = "einhändig"
If Hände = 2 Then MFG = "zweihändig"
Label5.Caption = Label5.Caption + ", " + MFG
Label3.Caption = Schild
Label7.Caption = Str(Srs) + " RS / " + Str(Sbe) + " BE"
If Schild = "" Then Label3.Caption = "kein Schild!": Label7.Caption = ""
Label2.Caption = Rüstung
Label6.Caption = " " + Rmaterial + " / " + Str(Rrs) + " RS / " + Str(Rbe) + " BE"
If Rüstung = "" Then Label2.Caption = "keine Rüstung!": Label6.Caption = ""
Label9.Caption = Umhang
Label10.Caption = Str(Urs) + " RS / " + Str(Ube) + " BE"
If Umhang = "" Then Label9.Caption = "kein Umhang!": Label10.Caption = ""
Label11.Caption = Schusswaffe
Label12.Caption = Str(SWGRschaden) + " -" + Str(SWGRschaden + SWZUschaden) + " / " + SwKategorie
If Schusswaffe = "" Then Label11.Caption = "keine Schusswaffe!": Label12.Caption = ""
End Sub
Sub AddWeap()
If Magician = 1 And dqHÄNDE = 2 Or Typus = "Dieb" And dqHÄNDE = 2 Then GoTo zunk
Manager.Inventar.AddItem Label1.Caption
A = Manager.Inventar.Text
Waffe = dqWAFFE
GRschaden = dqGRSCHADEN
ZUschaden = dqZUSCHADEN
Kategorie = dqKATEGORIE
Material = dqMATERIAL
Abzug = dqABZUG
Hände = dqHÄNDE
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
Form_Load
zunk:
End Sub
Sub AddBow()
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
If Label11.Caption = "keine Schusswaffe!" Then GoTo kb
Manager.Inventar.AddItem Label11.Caption
kb:
A = Manager.Inventar.Text
Schusswaffe = dqWAFFE
SWGRschaden = dqGRSCHADEN
SWZUschaden = dqZUSCHADEN
SwKategorie = dqKATEGORIE
Form_Load
End Sub
Sub addrüst()
If Typus = "Paladin" And dqMATERIAL = "Leder" Then GoTo klop212
If Typus = "Paladin" Then GoTo zdf
If dqMATERIAL = "Stahl" And Magician = 1 Then GoTo klop212
zdf:
A = Manager.Inventar.Text
If dqKATEGORIE = "Helm" Then Helm = dqWAFFE: Hrs = dqGRSCHADEN: Hbe = dqABZUG: If Label4.Caption <> "kein Helm!" Then Manager.Inventar.AddItem Label4.Caption
If dqKATEGORIE = "Rüstung" Then Rmaterial = dqMATERIAL: Rüstung = dqWAFFE: Rrs = dqGRSCHADEN: Rbe = dqABZUG: If Label2.Caption <> "keine Rüstung!" Then Manager.Inventar.AddItem Label2.Caption
If dqKATEGORIE = "Schild" Then Schild = dqWAFFE: Srs = dqGRSCHADEN: Sbe = dqABZUG: If Label3.Caption <> "kein Schild!" Then Manager.Inventar.AddItem Label3.Caption
If dqKATEGORIE = "Umhang" Then Umhang = dqWAFFE: Urs = dqGRSCHADEN: Ube = dqABZUG: If Label9.Caption <> "kein Umhang!" Then Manager.Inventar.AddItem Label9.Caption
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
Form_Load
klop212:
End Sub

/trunk/Zeitalter der Dämonen/GiveItems.frm
0,0 → 1,224
VERSION 5.00
Begin VB.Form GiveItems
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "GiveItems"
ClientHeight = 2940
ClientLeft = 0
ClientTop = 0
ClientWidth = 5520
LinkTopic = "GiveItems"
ScaleHeight = 2940
ScaleWidth = 5520
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Verlassen"
Default = -1 'True
Height = 255
Left = 4440
Style = 1 'Graphical
TabIndex = 7
Top = 2400
Width = 975
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "Objekt an Celison geben"
Enabled = 0 'False
Height = 375
Left = 3240
Style = 1 'Graphical
TabIndex = 6
Top = 1920
Width = 2175
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Benötigte Zutaten:"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 360
TabIndex = 5
Top = 1560
Width = 1935
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Ring der Meisterschaft"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 360
TabIndex = 4
Top = 2400
Width = 1890
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Drachenstein"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 360
TabIndex = 3
Top = 2160
Width = 1095
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Reptildämon Schuppen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 360
TabIndex = 2
Top = 1920
Width = 1905
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = """Hast du die benötigten Zutaten schon gefunden?"""
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 615
Left = 360
TabIndex = 1
Top = 600
Width = 3255
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Celison der Weise"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 360
TabIndex = 0
Top = 120
Width = 2220
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 360
X2 = 5280
Y1 = 480
Y2 = 480
End
End
Attribute VB_Name = "GiveItems"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
A = Manager.Inventar.Text
If A = "Thorkushur's Schuppen" Then TS
If A = "Drachenstein" Then DS
If A = "Ring der Meisterschaft" Then Rdm
End Sub
Sub TS()
zutatA = 1
Label3.FontStrikethru = True
Zackdibums
End Sub
Sub DS()
zutatB = 1
Label4.FontStrikethru = True
Zackdibums
End Sub
Sub Rdm()
zutatC = 1
Label5.FontStrikethru = True
Zackdibums
End Sub
Sub Zackdibums()
Equipment.Command2.Enabled = False
Manager.Command2.Enabled = False
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
Command1.Enabled = False
If Label3.FontStrikethru = True And Label4.FontStrikethru = True And Label5.FontStrikethru = True Then ENDGEGNER
End Sub
Private Sub Command2_Click()
Unload GiveItems
Phargas.Show
End Sub
Sub ENDGEGNER()
Unload Phargas: Unload GiveItems
woher = "Ende"
Feind = "Dämonenfürst Dalerok": MK = 150: Art = "Dämon": Zauber = "Nein": Exp = 2000
Gwaffe = "Dämonenschwert": Fgrschaden = 8: Fzuschaden = 12: Fmaterial = "Stahl": Fkategorie = "Sch": Fabzug = 0
Grs = 6: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 200: Gmp = 110: Gstrength = 67: Gspeed = 55: Gmr = 10
Kampf.Show
End Sub
Private Sub Form_Activate()
If zutatA = 1 Then Label3.FontStrikethru = True
If zutatB = 1 Then Label4.FontStrikethru = True
If zutatC = 1 Then Label5.FontStrikethru = True
End Sub

/trunk/Zeitalter der Dämonen/GiveItems.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Haus.frm
0,0 → 1,195
VERSION 5.00
Begin VB.Form Haus
BorderStyle = 0 'None
Caption = "Haus"
ClientHeight = 5955
ClientLeft = 0
ClientTop = 0
ClientWidth = 5205
LinkTopic = "Haus"
Picture = "Haus.frx":0000
ScaleHeight = 5955
ScaleWidth = 5205
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "V"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 4920
TabIndex = 0
Top = 5520
Width = 195
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 4
Left = 2580
Shape = 3 'Circle
Top = 360
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 3
Left = 480
Shape = 3 'Circle
Top = 5460
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 2
Left = 480
Shape = 3 'Circle
Top = 3160
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 1
Left = 3680
Shape = 3 'Circle
Top = 2160
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 0
Left = 480
Shape = 3 'Circle
Top = 2160
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 2580
Shape = 3 'Circle
Top = 5660
Width = 135
End
End
Attribute VB_Name = "Haus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Haus.Height Then
Held.Top = Held.Top + 100
city
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
city
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Haus.Width Then
Held.Left = Held.Left + 100
city
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
city
End If
End Sub
Sub city()
If Held.Left = Shape2(0).Left And Held.Top = Shape2(0).Top Then Truhken
If Held.Left = Shape2(1).Left And Held.Top = Shape2(1).Top Then Tisch
If Held.Left = Shape2(2).Left And Held.Top = Shape2(2).Top Then Schrank
If Held.Left = Shape2(3).Left And Held.Top = Shape2(3).Top Then Fässerkes
If Held.Left = Shape2(4).Left And Held.Top = Shape2(4).Top Then Haus.Hide: Spiegel
End Sub
Sub Tisch()
If TischH = 1 Then GoTo miss
GoldFund = 100
A = "Silberkette"
Beute.List1.AddItem A
A = "Smaragd Ring"
Beute.List1.AddItem A
TischH = 1
Beute.Show (vbModal)
miss:
End Sub
Sub Truhken()
If TruheH1 = 1 Then GoTo miss3
Truhe = "Haus"
Schlosslevel = 4
Inhalt = "Waffe"
TruheÖffnen.Show
miss3:
End Sub
Sub Schrank()
If SchrankH = 1 Then GoTo miss2
A = "Magisches Schwert"
Beute.List1.AddItem A
A = "Kettenhemd"
Beute.List1.AddItem A
SchrankH = 1
Beute.Show (vbModal)
miss2:
End Sub
Sub Fässerkes()
If Fässer = 1 Then GoTo miss5
Haus.Hide
Titel = "Fässer"
Text = "Die Fässer sind mit einer stinkenden trüben Flüssigkeit gefüllt. Willst du sie zerschlagen?"
JaUndNein
PositionNumber = 112
Konversation.Show (vbModal)
miss5:
End Sub
Private Sub Label1_Click()
Unload TruheÖffnen
Unload Haus
Phargas.Show
End Sub
Sub Spiegel()
Haus.Hide
Titel = "Sonderbarer Spiegel"
Text = "Du berührst den Spiegel, und merkwürdigerweise greifst du durch ihn hindurch. Willst du ganz hindurchgehen?"
JaUndNein
PositionNumber = 120
Konversation.Show (vbModal)
End Sub

/trunk/Zeitalter der Dämonen/Haus.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Havengate.frm
0,0 → 1,268
VERSION 5.00
Begin VB.Form Havengate
BorderStyle = 0 'None
Caption = "Havengate"
ClientHeight = 5205
ClientLeft = 0
ClientTop = 0
ClientWidth = 7470
LinkTopic = "Havengate"
Picture = "Havengate.frx":0000
ScaleHeight = 5205
ScaleWidth = 7470
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Shape SteinInhaber
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 135
Left = 1980
Shape = 3 'Circle
Top = 1260
Width = 135
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = ">"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 7200
TabIndex = 0
Top = 4800
Width = 180
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 1
Left = 2780
Shape = 3 'Circle
Top = 2860
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 4
Left = 480
Shape = 3 'Circle
Top = 1660
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 3
Left = 3780
Shape = 3 'Circle
Top = 1060
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 2
Left = 4980
Shape = 3 'Circle
Top = 960
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 0
Left = 6680
Shape = 3 'Circle
Top = 2660
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 4080
Shape = 3 'Circle
Top = 3060
Width = 135
End
End
Attribute VB_Name = "Havengate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
If Hexi = 8 Or Hexi = 1 Then SteinInhaber.Left = -200
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Havengate.Height Then
Held.Top = Held.Top + 100
CheckMove
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
CheckMove
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Havengate.Width Then
Held.Left = Held.Left + 100
CheckMove
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
CheckMove
End If
End Sub
Sub CheckMove()
If Hexi = 8 Or Hexi = 1 Then SteinInhaber.Left = -200
If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then gilde: Havengate.Hide
If Held.Left = Shape1(1).Left And Held.Top = Shape1(1).Top Then taverne: Havengate.Hide
If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Rschmiede: Havengate.Hide
If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Schmiede: Havengate.Hide
If Held.Left = Shape1(4).Left And Held.Top = Shape1(4).Top Then Bogenbauer: Havengate.Hide
If Held.Left = SteinInhaber.Left And Held.Top = SteinInhaber.Top Then GetStein
End Sub
Sub Bogenbauer()
SchmiedeName = "Bogenbauerin Nanthinia"
Inhaber = "Nanthinia"
dqBOGENBAUER.Show
dqBOGENBAUER.Label1.Caption = SchmiedeName
dqBOGENBAUER.Label15.Caption = "mit " + Inhaber
A = "Kurzbogen"
dqBOGENBAUER.List1.AddItem A
A = "Leichte Armbrust"
dqBOGENBAUER.List1.AddItem A
A = "Pfeil"
dqBOGENBAUER.List1.AddItem A
A = "Bolzen"
dqBOGENBAUER.List1.AddItem A
A = "Schwere Armbrust"
dqBOGENBAUER.List1.AddItem A
A = "Zwergenarmbrust"
dqBOGENBAUER.List1.AddItem A
End Sub
Sub Schmiede()
SchmiedeName = "Lodorga's Schmiede"
Inhaber = "Lodorga"
dqSCHMIEDE.Show
dqSCHMIEDE.Label1.Caption = SchmiedeName
dqSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Kriegsschwert"
dqSCHMIEDE.List1.AddItem A
A = "Zweihandschwert"
dqSCHMIEDE.List1.AddItem A
A = "Langaxt"
dqSCHMIEDE.List1.AddItem A
A = "Handaxt"
dqSCHMIEDE.List1.AddItem A
A = "Ogertöter"
dqSCHMIEDE.List1.AddItem A
A = "Kriegshammer"
dqSCHMIEDE.List1.AddItem A
End Sub
Sub Rschmiede()
SchmiedeName = "Eheda's Rüstschmiede"
Inhaber = "Eheda"
dqRÜSTSCHMIEDE.Show
dqRÜSTSCHMIEDE.Label1.Caption = SchmiedeName
dqRÜSTSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Lederhelm"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Kettenhemd"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Lederharnisch"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Holzschild"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Kettenmantel"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Ritterrüstung"
dqRÜSTSCHMIEDE.List1.AddItem A
End Sub
Sub taverne()
SchmiedeName = "Taverne 'Zum Lauten Schrei'"
Inhaber = "Laubagram"
dqHERBERGE.Show
dqHERBERGE.Label1.Caption = SchmiedeName
dqHERBERGE.Label5.Caption = "mit " + Inhaber
SaufPreis = 4
SaufSchluss = 2
ZimmerPreis = 8
ObjPreis = 80
ObjHerberge = "Dietriche"
Getränk = "Starkbier"
dqHERBERGE.Label2.Caption = Str(SaufPreis) + " Goldkronen"
dqHERBERGE.Label3.Caption = Str(ZimmerPreis) + " Goldkronen"
dqHERBERGE.Label4.Caption = Str(ObjPreis) + " Goldkronen"
dqHERBERGE.Command1.Caption = Getränk + " bestellen"
dqHERBERGE.Command3.Caption = ObjHerberge + " kaufen"
End Sub
Sub gilde()
SchmiedeName = "Magiergilde 'Feuerzauber'"
Inhaber = "Korodon"
GildenArt = "Chaos"
dqGILDE.Show
dqGILDE.Label1.Caption = SchmiedeName
dqGILDE.Label15.Caption = "mit " + Inhaber
A = "Feuerball"
dqGILDE.List1.AddItem A
A = "Flammenstrahl"
dqGILDE.List1.AddItem A
A = "Manabrand"
dqGILDE.List1.AddItem A
A = "Drachenodem"
dqGILDE.List1.AddItem A
A = "Hölleninferno"
dqGILDE.List1.AddItem A
End Sub
Private Sub Label1_Click()
Unload Havengate
Landkarte.Show
End Sub
Sub GetStein()
If Hexi = 8 Or Hexi = 1 Then GoTo xtain
Titel = "Dedrana, die Hexe"
Text = "Sei vorsichtig was du sagst, also was willst du von mir?"
Answer1 = "'Deinen Kopf!'"
Answer2 = "'Ich brauche diesen Drachenstein'"
Answer3 = "'Ach Nichts'"
PositionNumber = 363
Konversation.Show (vbModal)
xtain:
End Sub

/trunk/Zeitalter der Dämonen/Havengate.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Icon.bmp
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Kampf.frm
0,0 → 1,1480
VERSION 5.00
Begin VB.Form Kampf
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Kampf"
ClientHeight = 7005
ClientLeft = 0
ClientTop = 0
ClientWidth = 6135
LinkTopic = "Kampf"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7005
ScaleWidth = 6135
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command4
BackColor = &H00E0E0E0&
Caption = "Spruch sprechen"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 720
Style = 1 'Graphical
TabIndex = 50
Top = 5400
Width = 2055
End
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
Caption = "Objekt benutzen"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
Style = 1 'Graphical
TabIndex = 48
Top = 5640
Width = 1695
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "100%"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 170
Style = 1 'Graphical
TabIndex = 47
Top = 4440
Width = 645
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "100%"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 170
Style = 1 'Graphical
TabIndex = 46
Top = 3840
Width = 645
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Größe"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 2280
TabIndex = 57
Top = 720
Width = 690
End
Begin VB.Label Faktion
BackColor = &H00400000&
Caption = "Feindaktion"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 56
Top = 6480
Width = 5775
End
Begin VB.Label Haktion
BackColor = &H00004000&
Caption = "Heldenaktion"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
TabIndex = 55
Top = 6120
Width = 5775
End
Begin VB.Label Label53
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label53"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 270
Left = 5040
TabIndex = 54
Top = 5160
Width = 690
End
Begin VB.Label Label52
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label52"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 270
Left = 5040
TabIndex = 53
Top = 4920
Width = 690
End
Begin VB.Label Label51
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 3240
TabIndex = 52
Top = 5160
Width = 435
End
Begin VB.Label Label50
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 3240
TabIndex = 51
Top = 4920
Width = 1275
End
Begin VB.Label Label49
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 4680
TabIndex = 49
Top = 5640
Width = 105
End
Begin VB.Label Label48
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2280
TabIndex = 45
Top = 5040
Width = 105
End
Begin VB.Label Label47
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstungsklasse"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 840
TabIndex = 44
Top = 5040
Width = 1350
End
Begin VB.Label Label46
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 5280
TabIndex = 43
Top = 4680
Width = 540
End
Begin VB.Label Label45
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 4200
TabIndex = 42
Top = 4680
Width = 540
End
Begin VB.Label Label44
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 3240
TabIndex = 41
Top = 4680
Width = 660
End
Begin VB.Label Label43
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2160
TabIndex = 40
Top = 4680
Width = 780
End
Begin VB.Label Label42
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 840
TabIndex = 39
Top = 4680
Width = 1185
End
Begin VB.Label Label41
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 2160
TabIndex = 38
Top = 4440
Width = 795
End
Begin VB.Label Label40
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bolzen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 4200
TabIndex = 37
Top = 4440
Width = 555
End
Begin VB.Label Label39
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Pfeile"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 5280
TabIndex = 36
Top = 4440
Width = 465
End
Begin VB.Label Label38
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 3240
TabIndex = 35
Top = 4440
Width = 705
End
Begin VB.Label Label37
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schusswaffe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 840
TabIndex = 34
Top = 4440
Width = 1080
End
Begin VB.Label Label36
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 5280
TabIndex = 33
Top = 4080
Width = 630
End
Begin VB.Label Label35
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 4200
TabIndex = 32
Top = 4080
Width = 735
End
Begin VB.Label Label34
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 3240
TabIndex = 31
Top = 4080
Width = 630
End
Begin VB.Label Label33
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2160
TabIndex = 30
Top = 4080
Width = 855
End
Begin VB.Label Label32
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 840
TabIndex = 29
Top = 4080
Width = 1185
End
Begin VB.Label Label31
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Abzug"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 5280
TabIndex = 28
Top = 3840
Width = 525
End
Begin VB.Label Label30
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 4200
TabIndex = 27
Top = 3840
Width = 705
End
Begin VB.Label Label29
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 3240
TabIndex = 26
Top = 3840
Width = 660
End
Begin VB.Label Label28
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 2160
TabIndex = 25
Top = 3840
Width = 795
End
Begin VB.Label Label27
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 210
Left = 840
TabIndex = 24
Top = 3840
Width = 465
End
Begin VB.Label Label26
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Heldenaktionen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 120
TabIndex = 23
Top = 3480
Width = 1290
End
Begin VB.Shape Shape2
BackColor = &H00404040&
BackStyle = 1 'Opaque
BorderColor = &H0000FFFF&
Height = 2355
Left = 120
Top = 3720
Width = 5775
End
Begin VB.Label Label25
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label25"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 270
Left = 5040
TabIndex = 22
Top = 2880
Width = 690
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label24"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 270
Left = 5040
TabIndex = 21
Top = 2520
Width = 690
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label23"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
TabIndex = 20
Top = 2160
Width = 690
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label22"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
TabIndex = 19
Top = 1800
Width = 690
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label21"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
TabIndex = 18
Top = 1440
Width = 690
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 3600
TabIndex = 17
Top = 2880
Width = 435
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 3600
TabIndex = 16
Top = 2520
Width = 1275
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Magieresistenz"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 210
Left = 3600
TabIndex = 15
Top = 2160
Width = 1290
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gewandtheit"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 210
Left = 3600
TabIndex = 14
Top = 1800
Width = 1050
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stärke"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 210
Left = 3600
TabIndex = 13
Top = 1440
Width = 540
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label15"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 12
Top = 2640
Width = 1335
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstungsklasse"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 360
TabIndex = 11
Top = 2400
Width = 1350
End
Begin VB.Label Label11
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "l11"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 2640
TabIndex = 10
Top = 1800
Width = 705
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label10"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 1560
TabIndex = 9
Top = 1800
Width = 855
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 360
TabIndex = 8
Top = 1800
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 2640
TabIndex = 7
Top = 1560
Width = 705
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 1560
TabIndex = 6
Top = 1560
Width = 795
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 210
Left = 360
TabIndex = 5
Top = 1560
Width = 465
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "l5"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 360
TabIndex = 4
Top = 1200
Width = 165
End
Begin VB.Line Line1
BorderColor = &H0000FFFF&
X1 = 120
X2 = 5880
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#krankhaft"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 4920
TabIndex = 3
Top = 720
Width = 990
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#giftig"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 3840
TabIndex = 2
Top = 720
Width = 585
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Art"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 360
TabIndex = 1
Top = 720
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "#Text"
BeginProperty Font
Name = "Arial"
Size = 12.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 600
Left = 360
TabIndex = 0
Top = 120
Width = 5535
End
Begin VB.Shape Shape1
BorderColor = &H00C0C0C0&
FillColor = &H00404040&
FillStyle = 0 'Solid
Height = 1935
Left = 3480
Top = 1320
Width = 2415
End
End
Attribute VB_Name = "Kampf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Randomize Timer
Plus = Int(100 * Rnd)
If Plus <= NahkampfChance Then Hitted Else Loss
End Sub
Sub Hitted()
Randomize Timer
Plus = Int(ZUschaden * Rnd) + GRschaden
Randomize Timer
Zahl = Int(Grs * Rnd)
Plus = Plus - Zahl
Randomize Timer
Plus = Plus + Int((Strength / 20) * Rnd)
If Plus < 0 Then Plus = 0
If Art = "Dämon" And Material <> "Magisch" Then Plus = 0
Ghp = Ghp - Plus
Haktion.Caption = "Du verletzt " + Feind + " mit " + Str(Plus) + " Schadenspunkten"
FeindZug
End Sub
Sub Loss()
Haktion.Caption = "Du verfehlst " + Feind
FeindZug
End Sub
Sub FeindZug()
ObjSpeed = 2
If Lähmzeit > 0 Then Faktion.Caption = Feind + " ist noch gelähmt!": GoTo Harakiri
Randomize Timer
Zahl = Int(3 * Rnd)
If Unsichtbar = 0 Then GoTo adss
If Unsichtbar < 3 And Zahl > 0 Then Faktion.Caption = Feind + " schlägt wild um sich!": GoTo Harakiri
If Unsichtbar > 3 Then Unsichtbar = 0
Unsichtbar = Unsichtbar + 1
adss:
Randomize Timer
Plus = Int(100 * Rnd)
If Plus < Gspeed Then GoTo hit Else GoTo los
hit:
Randomize Timer
Plus = Int(Fzuschaden * Rnd) + Fgrschaden
Dim tsRK As Integer
tsRK = RK + (SchildZ * 3)
Randomize Timer
Zahl = Int(tsRK * Rnd)
Randomize Timer
Plus = Plus + Int((Gstrength / 20) * Rnd)
Plus = Plus - Zahl
If Plus < 0 Then Plus = 0
Hp = Hp - Plus
Faktion.Caption = Feind + " verletzt dich mit " + Str(Plus) + " Schadenspunkten"
GoTo Harakiri
los:
Faktion.Caption = Feind + " verfehlt " + Nom
Harakiri:
Enchanted
ManagRighter
initial
CheckLife
End Sub
Private Sub Command2_Click()
If SwKategorie = "Armbrust" And Bolzen = 0 Then Haktion.Caption = "Keine Bolzen im Köcher!": GoTo ec2
If SwKategorie = "Bogen" And Pfeile = 0 Then Haktion.Caption = "Keine Pfeile im Köcher!": GoTo ec2
If Gespannt = 0 Then Spannen: GoTo ec2
If SwKategorie = "Armbrust" Then Bolzen = Bolzen - 1
If SwKategorie = "Bogen" Then Pfeile = Pfeile - 1
Gespannt = 0
Randomize Timer
Plus = Int(100 * Rnd)
If Plus <= FernkampfChance Then GoTo yea Else GoTo no
yea:
Randomize Timer
Plus = Int(SWZUschaden * Rnd) + SWGRschaden
Randomize Timer
Plus = Plus - Int(Grs * Rnd)
Ghp = Ghp - Plus
Haktion.Caption = "Du verletzt " + Feind + " mit " + Str(Plus) + " Schadenspunkten"
FeindZug
GoTo ec2
no:
Haktion.Caption = "Du verfehlst " + Feind
FeindZug
ec2:
End Sub
Sub Spannen()
Haktion = "Du spannst " + Schusswaffe
Gespannt = 1
FeindZug
End Sub
Private Sub Command3_Click()
Dim objdes As String
objdes = Manager.Inventar.Text
If objdes = "Kleiner Heiltrank" Then KleinerHeiltrank: GoTo zyd
If objdes = "Kleiner Zaubertrank" Then KleinerZaubertrank: GoTo zyd
If objdes = "Großer Heiltrank" Then GroßerHeiltrank: GoTo zyd
If objdes = "Großer Zaubertrank" Then GroßerZaubertrank: GoTo zyd
If objdes = "Magischer Opferdolch" Then MagischerOpferdolch: GoTo zyd
If objdes = "Silberner Dolch" Then SilbernerDolch: GoTo zyd
If objdes = "Unsichtbarkeitstrank" Then UnsichtbarkeitsTrank: GoTo zyd
GoTo nonjo
zyd:
ObjSpeed = ObjSpeed - 1
If ObjSpeed = 0 Then FeindZug: ObjSpeed = 2
RHMP
ManagRighter
initial
If objdes = "Magischer Opferdolch" Or objdes = "Silberner Dolch" Then GoTo nonjo
Equipment.Command2.Enabled = False
Manager.Command2.Enabled = False
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
nonjo:
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
If Manager.SpruchBuch.Text = "" Then GoTo schuub
If MP < dqMANA Then Haktion.Caption = "Nicht genug Mana!": GoTo hippo
If dqSPELL = "Kreaturen abwenden" And Art <> "Kreatur" Then Haktion.Caption = "Gegner ist keine Kreatur!": GoTo hippo
If dqSPELL = "Kreaturen abwenden" And Fliehen = 0 Then Haktion.Caption = "Kreatur findet keinen Ausweg!": GoTo hippo
MP = MP - dqMANA
If dqSPELL = "Lähmung" Then LähmZauber: GoTo hippo
If dqSPELL = "Genesung" Then GenesZauber: GoTo hippo
If dqSPELL = "Kreaturen abwenden" Then Kreazauber: GoTo hippo
If dqSPELL = "Schild" Then SchiZauber: GoTo hippo
If dqWHAT = "S" Then GoTo Smove
If dqWHAT = "H" Then HeilZauber: GoTo hippo
Smove:
If dqSPELL = "Zauberranken" Then Ranken = 1
If dqSPELL = "Verwesung" Then Wesung = 1
Dim SpellDamage As Integer
Randomize Timer
Plus = Int(100 * Rnd)
If Plus > SpellHit Then GoTo sda
Randomize Timer
Plus = Int(dqGRADDAM * Rnd) + dqGRDAMAGE
Plus = Plus - Gmr
If dqSPELL = "Exorzismus" And Art <> "Dämon" Then Plus = 0
Haktion.Caption = dqSPELL + " verletzt " + Feind + " mit " + Str(Plus) + " Schadenspunkten."
If dqSPELL = "Lebensentzug" Then Hp = Hp + Plus
Ghp = Ghp - Plus
GoTo hippo
sda:
Haktion.Caption = dqSPELL + " verfehlt " + Feind
hippo:
FeindZug
schuub:
End Sub
Sub SchiZauber()
SchildZ = 1
Haktion.Caption = "Du formst ein Schild um dich herum!"
End Sub
Sub Kreazauber()
Ghp = 0: Exp = Int(Exp / 2): CheckLife
End Sub
Sub GenesZauber()
KrAnK = 0
VeRgIfTeT = 0
Haktion.Caption = "Du bist nun geheilt!"
End Sub
Sub LähmZauber()
Lähmzeit = Int((NEKROMANTIE) - (Gstrength / 30))
Haktion.Caption = Feind + " für " + Str(Lähmzeit) + " Runden gelähmt."
End Sub
Sub HeilZauber()
Dim HealingRate As Integer
Randomize Timer
Plus = Int(dqGRADDAM * Rnd) + dqGRDAMAGE
Haktion.Caption = dqSPELL + " gibt " + Str(Plus) + " Lebenspunkte wieder."
Hp = Hp + Plus
RHMP
End Sub
Sub initial()
Label1.Caption = "Du musst gegen " + Feind + " kämpfen!"
Label2.Caption = Art
If MK = 100 Then Label12.Caption = "Normal groß"
If MK >= 180 Then Label12.Caption = "Riesig groß": GoTo gaga
If MK >= 150 Then Label12.Caption = "Sehr Groß": GoTo gaga
If MK > 100 Then Label12.Caption = "Groß"
gaga:
If MK <= 50 Then Label12.Caption = "Winzig klein": GoTo gag
If MK <= 75 Then Label12.Caption = "Klein": GoTo gag
If MK <= 99 Then Label12.Caption = "Etwas kleiner"
gag:
If Giftig = 0 Then Label3.Caption = ""
If Giftig > 0 Then Label3.Caption = "Giftig!"
If Giftig >= 40 Then Label3.Caption = "Sehr giftig!"
If Giftig >= 75 Then Label3.Caption = "Extrem giftig!"
If Krankhaft = 0 Then Label4.Caption = ""
If Krankhaft > 0 Then Label4.Caption = "Krankhaft!"
If Krankhaft >= 40 Then Label4.Caption = "Sehr krankhaft!"
If Krankhaft >= 75 Then Label4.Caption = "Extrem krankhaft!"
If Schusswaffe <> "" Then Command2.Enabled = True
Label49.Caption = ObjSpeed
Label5.Caption = Feind
Label9.Caption = Gwaffe
Label10.Caption = Fkategorie
Label11.Caption = Str(Fgrschaden) + " -" + Str(Fzuschaden + Fgrschaden)
Label15.Caption = Str(Grs) + " RS"
Label21.Caption = Gstrength
Label22.Caption = Gspeed
Label23.Caption = Gmr
Label24.Caption = Ghp
Label25.Caption = Gmp
Label32.Caption = Waffe
Label33.Caption = Kategorie
Label34.Caption = Material
Label35.Caption = Str(GRschaden) + " -" + Str(ZUschaden + GRschaden)
Label36.Caption = Abzug
Label42.Caption = Schusswaffe
Label43.Caption = SwKategorie
Label44.Caption = Str(SWGRschaden) + "-" + Str(SWZUschaden + SWGRschaden)
Label45.Caption = Bolzen
Label46.Caption = Pfeile
RK = Rrs + Urs + Hrs + Srs
Label48.Caption = RK
Label52.Caption = Hp
Label53.Caption = MP
PercentChance
End Sub
Sub PercentChance()
NahkampfChance = Speed
If Kategorie = "Sch" Then Plus = SCHWERTER
If Kategorie = "Hie" Then Plus = HIEBWAFFEN
If Kategorie = "Sp" Then Plus = SPEERE
If Kategorie = "Ax" Then Plus = ÄXTE
GBE = Rbe + Ube + Hbe + Sbe
NahkampfChance = (NahkampfChance + Plus) - GBE - Abzug
NahkampfChance = Int(NahkampfChance * (MK / 100))
FernkampfChance = Speed + SCHUSSWAFFEN
FernkampfChance = Int(FernkampfChance * (MK / 100))
Command1.Caption = Str(NahkampfChance) + "%"
Command2.Caption = Str(FernkampfChance) + "%"
If Schusswaffe = "" Then Command2.Caption = "xx"
End Sub
Sub Enchanted()
If Wesung = 1 Then
Randomize Timer
Plus = Int(5 * Rnd) + 1
Ghp = Ghp - Plus
Haktion.Caption = Haktion.Caption + " (+" + Str(Plus) + " SP)"
End If
If Ranken = 1 Then
Randomize Timer
Plus = Int(5 * Rnd) + 3
Ghp = Ghp - Plus
Haktion.Caption = Haktion.Caption + " (+" + Str(Plus) + " SP)"
End If
End Sub
Private Sub Form_Activate()
ObjSpeed = 2
initial
End Sub

/trunk/Zeitalter der Dämonen/Konversation.frm
0,0 → 1,391
VERSION 5.00
Begin VB.Form Konversation
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "#Textfenster"
ClientHeight = 3855
ClientLeft = 45
ClientTop = 330
ClientWidth = 4560
ControlBox = 0 'False
Icon = "Konversation.frx":0000
LinkTopic = "Konversation"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3855
ScaleWidth = 4560
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command3
BackColor = &H00E0E0E0&
Caption = "Antwort3"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
Style = 1 'Graphical
TabIndex = 4
Top = 3360
Width = 4335
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "Antwort2"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
Style = 1 'Graphical
TabIndex = 3
Top = 2880
Width = 4335
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "Antwort1"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
Style = 1 'Graphical
TabIndex = 2
Top = 2400
Width = 4335
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1695
Left = 120
TabIndex = 1
Top = 600
Width = 4335
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 4440
Y1 = 480
Y2 = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 345
Left = 120
TabIndex = 0
Top = 120
Width = 855
End
End
Attribute VB_Name = "Konversation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Rem Es kam zu einem großen Fehler, wenn Unload und Show hintereinander auftraten
darf_ich_unload = True
If PositionNumber = 439 Then darf_ich_unload = False: Getnewstone: GoTo notend
If PositionNumber = 865 Then darf_ich_unload = False: vielgold: GoTo notend
If PositionNumber = 733 Then darf_ich_unload = False: Lagerbezahlen: GoTo notend
If PositionNumber = 679 Then darf_ich_unload = False: RedenWichtig: GoTo notend
If darf_ich_unload Then Unload Konversation
If PositionNumber = 363 Then Hexenkopf
If PositionNumber = 755 Then Assascomes
If PositionNumber = 801 Then Thorkucomes
If PositionNumber = 154 Then Feuercomes
If PositionNumber = 153 Then Glubschcomes
If PositionNumber = 666 Then TentBigComes
If PositionNumber = 120 Then Labor.Show
If PositionNumber = 112 Then TentakelComes
If PositionNumber = 111 Then Haus.Show
If PositionNumber = 955 Then DjinnComes
If PositionNumber = 910 Then End
If PositionNumber = 911 Then ZankhComes
PositionNumber = 0
notend:
End Sub
Private Sub Command2_Click()
Rem Es kam zu einem großen Fehler, wenn Unload und Show hintereinander auftraten
darf_ich_unload = True
If PositionNumber = 363 And (Hexi = 1 Or Hexi = 2) Then darf_ich_unload = False: gotcha: GoTo notkkk
If PositionNumber = 439 Then darf_ich_unload = False: gotcha: GoTo notkkk
If PositionNumber = 363 Then darf_ich_unload = False: Rätsel2000: GoTo notkkk
If darf_ich_unload Then Unload Konversation
If PositionNumber = 865 Then OrkAttack
If PositionNumber = 733 Then OgerAttack
If PositionNumber = 801 Then Elfenwald.Show
If PositionNumber = 153 Or PositionNumber = 154 Then Labor.Show
If PositionNumber = 112 Or PositionNumber = 120 Then Haus.Show
If PositionNumber = 911 Then TdOK2.Show
If PositionNumber = 955 Then TdOK1.Show
PositionNumber = 0
notkkk:
End Sub
Private Sub Command3_Click()
Rem Es kam zu einem großen Fehler, wenn Unload und Show hintereinander auftraten
darf_ich_unload = True
If PositionNumber = 439 Then darf_ich_unload = False: gotcha: GoTo notfff
If darf_ich_unload Then Unload Konversation
PositionNumber = 0
notfff:
End Sub
Private Sub Form_Load()
Konversation.Height = 4320
Command2.Enabled = True
Command2.Visible = True
Command3.Enabled = True
Command3.Visible = True
Konversation.Caption = Titel
Label1.Caption = Titel
Label2.Caption = Text
Command1.Caption = Answer1
If Answer2 = "" Then Command2.Enabled = False: Command2.Visible = False: Konversation.Height = 3345: GoTo s
Command2.Caption = Answer2
If Answer3 = "" Then Command3.Enabled = False: Command3.Visible = False: Konversation.Height = 3900
Command3.Caption = Answer3
s:
End Sub
Sub DjinnComes()
woher = "TdOK1"
Feind = "Nebel Djinn": MK = 105: Art = "Geist": Zauber = "Nein": Exp = 80
Gwaffe = "": Fgrschaden = 2: Fzuschaden = 8: Fmaterial = "": Fkategorie = "": Fabzug = 2
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 50: Gmp = 10: Gstrength = 1: Gspeed = 50: Gmr = 4
Kampf.Show
End Sub
Sub ZankhComes()
woher = "TdOK2"
Feind = "Zankh": MK = 160: Art = "Dämon": Zauber = "Nein": Exp = 140
Gwaffe = "": Fgrschaden = 6: Fzuschaden = 8: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 65: Gmp = 20: Gstrength = 55: Gspeed = 45: Gmr = 3
Kampf.Show
End Sub
Sub TentakelComes()
woher = "Haus"
Feind = "Kleines Tentakelwesen": MK = 60: Art = "Kreatur": Zauber = "Nein": Exp = 50
Gwaffe = "": Fgrschaden = 2: Fzuschaden = 10: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 15: Krankhaft = 20: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 35: Gmp = 0: Gstrength = 35: Gspeed = 40: Gmr = 0
Kampf.Show
End Sub
Sub TentBigComes()
woher = "Labor"
Feind = "Großes Tentakelwesen": MK = 150: Art = "Kreatur": Zauber = "Nein": Exp = 150
Gwaffe = "": Fgrschaden = 4: Fzuschaden = 12: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 20: Krankhaft = 25: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 50: Gmp = 0: Gstrength = 45: Gspeed = 30: Gmr = 1
Kampf.Show
End Sub
Sub Glubschcomes()
woher = "Labor"
Feind = "Bestie": MK = 130: Art = "Kreatur": Zauber = "Nein": Exp = 60
Gwaffe = "": Fgrschaden = 3: Fzuschaden = 14: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 45: Gmp = 0: Gstrength = 55: Gspeed = 25: Gmr = -1
Kampf.Show
Glubsch = 1
End Sub
Sub Feuercomes()
woher = "Labor"
Feind = "Feuerwesen": MK = 100: Art = "Dämon": Zauber = "Nein": Exp = 150
Gwaffe = "": Fgrschaden = 5: Fzuschaden = 10: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 40: Gmp = 0: Gstrength = 1: Gspeed = 40: Gmr = 7
Kampf.Show
FireMon = 1
End Sub
Sub Thorkucomes()
woher = "Elfenwald"
Feind = "Thorkushur": MK = 105: Art = "Dämon": Zauber = "Chaos": Exp = 75
Gwaffe = "": Fgrschaden = 5: Fzuschaden = 5: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 3: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 35: Gmp = 30: Gstrength = 55: Gspeed = 40: Gmr = 5
Kampf.Show
Thorku = 1
End Sub
Sub Assascomes()
woher = "LK"
Feind = "Attentäter": MK = 100: Art = "Mensch": Zauber = "Nein": Exp = 40
Gwaffe = "Kurzschwert": Fgrschaden = 2: Fzuschaden = 3: Fmaterial = "Stahl": Fkategorie = "Sch": Fabzug = 0
Grs = 0: Grust = "Schwarze Robe"
Giftig = 0: Krankhaft = 0: GoldFund = 25: Pfeilfund = 5: Bolzenfund = 3
Ghp = 30: Gmp = 0: Gstrength = 40: Gspeed = 58: Gmr = 1
Kampf.Show
End Sub
Sub RedenWichtig()
Text = "Folgende Dinge benötigt Ihr also: Die Schuppen eines Reptildämons, einen Drachenstein und den Ring der Meisterschaft. Im Elfenwald treibt gerade Thorkushur, ein Reptildämon sein Unwesen. Wenn du ihn tötest kannst du seine Schuppen haben. Den Ring der Meisterschaft besitzt der Orkhäuptling im Lager der Orks. Wo Ihr einen Drachenstein findet, kann ich Euch nicht sagen. Tut mir leid. Viel Glück!"
onlyOK
PositionNumber = 0
Form_Load
End Sub
Sub Lagerbezahlen()
If Gold >= 100 Then
Gold = Gold - 100
ManagRighter
MitHäuptlingSprechen
GoTo zack
End If
If Gold < 100 Then
Text = "Du nicht haben genug Geld. Weg!"
onlyOK
PositionNumber = 0
Form_Load
End If
zack:
End Sub
Sub MitHäuptlingSprechen()
Titel = "Orkhäuptling"
Text = "Was? Du willst haben Ring von Meisterschaft. Ich niemals abgeben das! Aber für 2000 Goldkronen."
Answer1 = "2000 Goldkronen zahlen"
Answer2 = "Orkhäuptling angreifen"
Answer3 = "Verlassen"
PositionNumber = 865
Form_Load
End Sub
Sub OgerAttack()
Landkarte.Hide
woher = "Lager der Orks"
Feind = "Schlachtoger": MK = 115: Art = "Mensch": Zauber = "Nein": Exp = 80
Gwaffe = "Streitaxt": Fgrschaden = 5: Fzuschaden = 5: Fmaterial = "Eisen": Fkategorie = "Ax": Fabzug = 3
Grs = 3: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 5: Pfeilfund = 0: Bolzenfund = 0
Ghp = 45: Gmp = 0: Gstrength = 65: Gspeed = 35: Gmr = -2
Kampf.Show
End Sub
Sub vielgold()
If Gold < 2000 Then
Text = "Du nicht haben Gold für mich. Pech!"
onlyOK
PositionNumber = 0
Form_Load
GoTo hjk
End If
Ring = 1
Gold = Gold - 2000
Text = "Hier! Jetzt haben du Ring. Und ich GOLD."
onlyOK
PositionNumber = 0
ManagRighter
A = "Ring der Meisterschaft"
Manager.Inventar.AddItem A
Form_Load
hjk:
End Sub
Sub OrkAttack()
Landkarte.Hide
woher = "OrkMeister"
Feind = "Ork-Häuptling": MK = 100: Art = "Mensch": Zauber = "Nein": Exp = 150
Gwaffe = "Kriegshammer": Fgrschaden = 4: Fzuschaden = 6: Fmaterial = "Stahl": Fkategorie = "Hie": Fabzug = 2
Grs = 2: Grust = "Kettenhemd"
Giftig = 0: Krankhaft = 0: GoldFund = 40: Pfeilfund = 0: Bolzenfund = 0
Ghp = 65: Gmp = 0: Gstrength = 50: Gspeed = 40: Gmr = 1
Kampf.Show
End Sub
Sub Hexenkopf()
Havengate.Hide
woher = "Havengate"
Feind = "Dedrana": MK = 90: Art = "Mensch": Zauber = "Nekromantie": Exp = 120
Gwaffe = "Weihstab": Fgrschaden = 2: Fzuschaden = 4: Fmaterial = "Magisch": Fkategorie = "Hie": Fabzug = 0
Grs = 0: Grust = "Schwarze Robe"
Giftig = 0: Krankhaft = 0: GoldFund = 15: Pfeilfund = 0: Bolzenfund = 0
Ghp = 35: Gmp = 75: Gstrength = 20: Gspeed = 42: Gmr = 7
Kampf.Show
Hexi = 8
End Sub
Sub Rätsel2000()
Text = "Nun gut, ich gebe dir diesen blöden Stein wenn du dieses Rätsel löst: Des Tages bin ich nicht sichtbar des Menschenauges, doch in der Nacht werde ich den Menschen zum Alp oder zur Fee. Was bin ich?"
Answer1 = "Traum"
Answer2 = "Gespenst"
Answer3 = "Dunkelelf"
PositionNumber = 439
Form_Load
End Sub
Sub Getnewstone()
Text = "Hier, und lass dich hier bloß nicht mehr blicken!"
onlyOK
PositionNumber = 0
Form_Load
A = "Drachenstein"
Manager.Inventar.AddItem A
Hexi = 1
End Sub
Sub gotcha()
Text = "Die Antwort war falsch du Volltrottel!"
onlyOK
PositionNumber = 0
Form_Load
Hexi = 2
End Sub

/trunk/Zeitalter der Dämonen/Konversation.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Labor.frm
0,0 → 1,206
VERSION 5.00
Begin VB.Form Labor
BorderStyle = 0 'None
Caption = "Labor"
ClientHeight = 4500
ClientLeft = 0
ClientTop = 0
ClientWidth = 6765
LinkTopic = "Labor"
Picture = "Labor.frx":0000
ScaleHeight = 4500
ScaleWidth = 6765
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "<"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 120
TabIndex = 0
Top = 4080
Width = 180
End
Begin VB.Shape Shape5
BorderColor = &H0000FFFF&
Height = 135
Left = 2680
Shape = 3 'Circle
Top = 2160
Width = 135
End
Begin VB.Shape Shape4
BorderColor = &H0000FFFF&
Height = 135
Left = 6180
Shape = 3 'Circle
Top = 1060
Width = 135
End
Begin VB.Shape Shape3
BorderColor = &H0000FFFF&
Height = 135
Left = 3480
Shape = 3 'Circle
Top = 2160
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 680
Shape = 3 'Circle
Top = 1860
Width = 135
End
Begin VB.Shape Seelenjäger
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Left = 2780
Shape = 3 'Circle
Top = 360
Width = 135
End
End
Attribute VB_Name = "Labor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Labor.Height Then
Held.Top = Held.Top + 100
city
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
city
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Labor.Width Then
Held.Left = Held.Left + 100
city
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
city
End If
End Sub
Sub city()
If Held.Left > 900 And Seeli = 0 Then SJ
If Glubsch = 1 Then GoTo ki1
If Held.Left = Shape5.Left And Held.Top = Shape5.Top Then Kreatur1
ki1:
If FireMon = 1 Then GoTo ki2
If Held.Left = Shape3.Left And Held.Top = Shape3.Top Then Kreatur2
ki2:
If Held.Left = Shape4.Left And Held.Top = Shape4.Top Then Tisch
If Seela = 1 Then GoTo kiai
If Held.Left = Seelenjäger.Left And Held.Top = Seelenjäger.Top Then Seelenj
kiai:
End Sub
Sub SJ()
Labor.Hide
Titel = "Der Seelenjäger"
Text = "Ahhh, da bist du ja -- Töte ihn, mein kleines!"
onlyOK
PositionNumber = 666
Konversation.Show (vbModal)
End Sub
Sub Seelenj()
Labor.Hide
woher = "Labor2a"
Feind = "Der Seelenjäger": MK = 100: Art = "Geist": Zauber = "NEKROMANTIE": Exp = 200
Gwaffe = "": Fgrschaden = 1: Fzuschaden = 7: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 30: Gmp = 25: Gstrength = 5: Gspeed = 45: Gmr = 5
Kampf.Show
End Sub
Sub Tisch()
If TischLab = 1 Then GoTo miss1
A = "Rezept 'Unsichtbarkeitstrank'"
Beute.List1.AddItem A
A = "Rezept 'Kleiner Zaubertrank'"
Beute.List1.AddItem A
A = "Tropfen klares Blut"
Beute.List1.AddItem A
Beute.List1.AddItem A
A = "Unsichtbarkeitstrank"
Beute.List1.AddItem A
A = "Kleiner Heiltrank"
Beute.List1.AddItem A
Beute.List1.AddItem A
A = "Büschel Brunnensporn"
Beute.List1.AddItem A
A = "Büschel Grabkraut"
Beute.List1.AddItem A
A = "Höllenpilz"
Beute.List1.AddItem A
Beute.List1.AddItem A
A = "Quecksilber (1 ml)"
Beute.List1.AddItem A
A = "Schwefel (1 ml)"
Beute.List1.AddItem A
A = ""
TischLab = 1
Beute.Show (vbModal)
miss1:
End Sub
Sub Kreatur1()
Labor.Hide
Titel = "Säule"
Text = "In der Säule befindet sich klares Wasser. Doch eine Bestie mit zwei riesigen Augen und pranken schwimmt leblos darin. Willst du die Säule zerschlagen?"
JaUndNein
PositionNumber = 153
Konversation.Show (vbModal)
End Sub
Sub Kreatur2()
Labor.Hide
Titel = "Säule"
Text = "In der Säule schwimmt eine feurige Gestalt im Wasser. Willst du die Säule zerschlagen?"
JaUndNein
PositionNumber = 154
Konversation.Show (vbModal)
End Sub
Private Sub Label1_Click()
Unload Labor
Haus.Show
End Sub

/trunk/Zeitalter der Dämonen/Labor.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Landkarte.frm
0,0 → 1,288
VERSION 5.00
Begin VB.Form Landkarte
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Landkarte"
ClientHeight = 5985
ClientLeft = 0
ClientTop = 0
ClientWidth = 8970
LinkTopic = "Landkarte"
Picture = "Landkarte.frx":0000
ScaleHeight = 5985
ScaleWidth = 8970
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox Rasten
Enabled = 0 'False
Height = 340
Left = 8640
Picture = "Landkarte.frx":D636
ScaleHeight = 285
ScaleWidth = 195
TabIndex = 1
Top = 5520
Visible = 0 'False
Width = 255
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Height = 255
Left = 0
TabIndex = 2
Top = 0
Width = 375
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 5
Left = 3180
Shape = 3 'Circle
Top = 1060
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 4
Left = 5580
Shape = 3 'Circle
Top = 2260
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 3
Left = 3080
Shape = 3 'Circle
Top = 4260
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 2
Left = 6980
Shape = 3 'Circle
Top = 4460
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 1
Left = 7380
Shape = 3 'Circle
Top = 1660
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 0
Left = 1080
Shape = 3 'Circle
Top = 2560
Width = 135
End
Begin VB.Shape Held
BorderColor = &H00000000&
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 3280
Shape = 3 'Circle
Top = 1360
Width = 135
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Süden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 8280
TabIndex = 0
Top = 360
Width = 525
End
End
Attribute VB_Name = "Landkarte"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label2_Click()
A = InputBox("Gebe einen Cheatcode ein.", "")
If A = "god" Then Hp = 999: STARThp = 999: MsgBox "God aktiviert!"
If A = "king" Then Gold = Gold + 10000: MsgBox "10000 Goldkronen wurden hinzugefügt!"
If A = "archmage" Then MP = 999: STARTmp = 999: MsgBox "Archmage aktiviert!"
If A = "heal" Then Hp = STARThp: MP = STARTmp: MsgBox "komplett geheilt!"
ManagRighter
End Sub
Private Sub Rasten_Click()
Rast.Show
Landkarte.Hide
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Landkarte.Height Then
Held.Top = Held.Top + 100
CheckMove
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
CheckMove
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Landkarte.Width Then
Held.Left = Held.Left + 100
CheckMove
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
CheckMove
End If
End Sub
Sub Marsch()
Stunden = Stunden + 1
Dayli
End Sub
Sub CheckMove()
If Stunden >= 12 Then Rasten.Enabled = True: Rasten.Visible = True
If Stunden >= 22 Then Landkarte.Hide: Rast.Show: GoTo non
Marsch
Angriff
If EVTangriff = 1 Then WhatEnemy: Landkarte.Hide: GoTo non
city
non:
End Sub
Sub WhatEnemy()
woher = "LK"
Randomize Timer
enemy = Int(6 * Rnd)
If Stufe < 4 And enemy >= 3 Then enemy = 0
If enemy = 0 Then
Feind = "Goblin": MK = 95: Art = "Mensch": Zauber = "Nein": Exp = 15
Gwaffe = "Knüppel": Fgrschaden = 1: Fzuschaden = 2: Fmaterial = "Holz": Fkategorie = "Hie": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 25: GoldFund = 5: Pfeilfund = 0: Bolzenfund = 0
Ghp = 20: Gmp = 0: Gstrength = 25: Gspeed = 45: Gmr = -5
End If
If enemy = 1 Then
Feind = "Ork": MK = 100: Art = "Mensch": Zauber = "Nein": Exp = 25
Gwaffe = "Beil": Fgrschaden = 3: Fzuschaden = 3: Fmaterial = "Stahl": Fkategorie = "Ax": Fabzug = 2
Grs = 1: Grust = "Championgurt"
Giftig = 0: Krankhaft = 10: GoldFund = 15: Pfeilfund = 0: Bolzenfund = 0
Ghp = 30: Gmp = 0: Gstrength = 45: Gspeed = 40: Gmr = -3
End If
If enemy = 2 Then
Feind = "Oger": MK = 125: Art = "Mensch": Zauber = "Nein": Exp = 40
Gwaffe = "Morgenstern": Fgrschaden = 2: Fzuschaden = 10: Fmaterial = "Stahl": Fkategorie = "Hie": Fabzug = 3
Grs = 1: Grust = "Lederlumpen"
Giftig = 0: Krankhaft = 15: GoldFund = 6: Pfeilfund = 0: Bolzenfund = 0
Ghp = 40: Gmp = 0: Gstrength = 60: Gspeed = 30: Gmr = -4
End If
If enemy = 3 Then
Feind = "Wolf": MK = 80: Art = "Kreatur": Zauber = "Nein": Exp = 25
Gwaffe = "": Fgrschaden = 3: Fzuschaden = 3: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 0: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 25: Gmp = 0: Gstrength = 35: Gspeed = 50: Gmr = -1
End If
If enemy = 4 Then
Feind = "Bär": MK = 110: Art = "Kreatur": Zauber = "Nein": Exp = 30
Gwaffe = "": Fgrschaden = 2: Fzuschaden = 6: Fmaterial = "": Fkategorie = "": Fabzug = 0
Grs = 1: Grust = ""
Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0
Ghp = 35: Gmp = 0: Gstrength = 60: Gspeed = 40: Gmr = -1
End If
If enemy = 5 Then
Feind = "Räuber": MK = 100: Art = "Mensch": Zauber = "Nein": Exp = 30
Gwaffe = "Kurzschwert": Fgrschaden = 2: Fzuschaden = 3: Fmaterial = "Stahl": Fkategorie = "Sch": Fabzug = 0
Grs = 2: Grust = "Lederwams"
Giftig = 0: Krankhaft = 0: GoldFund = 25: Pfeilfund = 3: Bolzenfund = 0
Ghp = 30: Gmp = 0: Gstrength = 45: Gspeed = 45: Gmr = 0
End If
Kampf.Show
End Sub
Sub city()
If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then Orklager
If Held.Left = Shape1(1).Left And Held.Top = Shape1(1).Top Then Ort = "Elfenwald": DieElfen
If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Ort = "Shanti": Shanti.Show: Landkarte.Hide
If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Ort = "Havengate": Havengate.Show: Landkarte.Hide
If Held.Left = Shape1(4).Left And Held.Top = Shape1(4).Top Then TdOK1.Show: Landkarte.Hide
If Held.Left = Shape1(5).Left And Held.Top = Shape1(5).Top And Feind <> "Attentäter" Then Ort = "Phargas": Pharga: Landkarte.Hide
End Sub
Sub Pharga()
Phargas.Show
If AlterMann = 1 Then GoTo AR
AlterMann = 1
Titel = "Alter Mann"
Text = "Hallo Abenteurer! Es wird dich doch sicherlich interessieren, dass in dieser Stadt ein Seelenjäger spukt. Er sucht sich Körper aus, die er dann kontrolliert. Auch ich könnte es sein. Er wurde angeblich vom Dämonenfürst geschickt. Du kannst ihn vielleicht besiegen."
onlyOK
Konversation.Show (vbModal)
AR:
End Sub
Sub DieElfen()
If Seela = 1 Then Elfenwald.Show: Landkarte.Hide Else Titel = "Der Wächter des Elfenwaldes": Text = "Tut mir leid, aber solange der Seelenjäger am leben ist, darf ich keinen hier durchlassen.": onlyOK: Konversation.Show (vbModal)
End Sub
Sub Orklager()
If Ring = 1 Then
Titel = "Ork-Wächter"
Text = "Du nicht mehr betreten dürfen das Lager. Das sagen Meister!"
onlyOK
GoTo klo
End If
Titel = "Ork-Wächter"
Text = "Halt! Wenn du mit Häuptling sprechen, dann du musst 100 Goldkronen bezahlen. Oder gegen Oger kämpfen. Was du wollen?"
Answer1 = "100 Goldkronen zahlen"
Answer2 = "Gegen Oger kämpfen"
Answer3 = "Verlassen"
PositionNumber = 733
klo:
Konversation.Show (vbModal)
End Sub

/trunk/Zeitalter der Dämonen/Landkarte.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Manager.frm
0,0 → 1,1071
VERSION 5.00
Begin VB.Form Manager
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "Charakter Manager"
ClientHeight = 7170
ClientLeft = 45
ClientTop = 360
ClientWidth = 4770
ClipControls = 0 'False
ControlBox = 0 'False
LinkTopic = "Manager"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7170
ScaleWidth = 4770
Begin VB.CommandButton Command10
BackColor = &H00E0E0E0&
Caption = "Speichern"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3360
Style = 1 'Graphical
TabIndex = 40
Top = 2160
Width = 975
End
Begin VB.CommandButton Command8
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Beenden"
Height = 255
Left = 3360
Style = 1 'Graphical
TabIndex = 39
Top = 2400
Width = 975
End
Begin VB.CommandButton Command9
BackColor = &H00E0E0E0&
Caption = "Command9"
Enabled = 0 'False
Height = 255
Left = 2880
Style = 1 'Graphical
TabIndex = 32
Top = 840
Visible = 0 'False
Width = 1575
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "Ausrüsten"
Height = 255
Left = 3000
Style = 1 'Graphical
TabIndex = 31
Top = 4080
Width = 1455
End
Begin VB.Frame Frame3
BackColor = &H00000000&
Caption = "Eigenschaftswerte"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 2535
Left = 240
TabIndex = 8
Top = 3960
Width = 2655
Begin VB.CommandButton Command6
BackColor = &H00E0E0E0&
Caption = "+"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 11
Top = 480
Width = 255
End
Begin VB.CommandButton Command5
BackColor = &H00E0E0E0&
Caption = "+"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 10
Top = 840
Width = 255
End
Begin VB.CommandButton Command4
BackColor = &H00E0E0E0&
Caption = "+"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
Style = 1 'Graphical
TabIndex = 9
Top = 1200
Width = 255
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "/"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 2160
TabIndex = 27
Top = 2040
Width = 60
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "/"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 2160
TabIndex = 26
Top = 1680
Width = 60
End
Begin VB.Label Label8
Alignment = 2 'Center
BackColor = &H00008000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 2280
TabIndex = 25
Top = 2040
Width = 330
End
Begin VB.Label Label7
Alignment = 2 'Center
BackColor = &H00008000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 2280
TabIndex = 24
Top = 1680
Width = 330
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stärke"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 21
Top = 480
Width = 615
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gewandtheit"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 20
Top = 840
Width = 1215
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Intelligenz"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 120
TabIndex = 19
Top = 1200
Width = 1005
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 18
Top = 480
Width = 330
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 17
Top = 840
Width = 330
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H00C00000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 16
Top = 1200
Width = 330
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 120
TabIndex = 15
Top = 1680
Width = 1425
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 120
TabIndex = 14
Top = 2040
Width = 525
End
Begin VB.Label Label20
Alignment = 2 'Center
BackColor = &H000000C0&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 13
Top = 1680
Width = 330
End
Begin VB.Label Label21
Alignment = 2 'Center
BackColor = &H00800000&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1800
TabIndex = 12
Top = 2040
Width = 330
End
End
Begin VB.ComboBox SpruchBuch
BackColor = &H00000040&
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
ItemData = "Manager.frx":0000
Left = 165
List = "Manager.frx":0002
Style = 2 'Dropdown List
TabIndex = 2
Top = 2895
Width = 1815
End
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "Objekt wegwerfen"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
Style = 1 'Graphical
TabIndex = 1
Top = 360
Width = 1575
End
Begin VB.ListBox Inventar
BackColor = &H00400000&
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 2160
ItemData = "Manager.frx":0004
Left = 240
List = "Manager.frx":0006
Sorted = -1 'True
TabIndex = 0
Top = 360
Width = 2535
End
Begin VB.Label Label32
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "24"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 3600
TabIndex = 44
Top = 6840
Width = 210
End
Begin VB.Label Label31
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = ":"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 3840
TabIndex = 43
Top = 6840
Width = 45
End
Begin VB.Label Label30
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 3960
TabIndex = 42
Top = 6840
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Uhr"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 225
Left = 4320
TabIndex = 41
Top = 6840
Width = 300
End
Begin VB.Label Label29
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kraftschaden"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 3000
TabIndex = 38
Top = 4440
Width = 1095
End
Begin VB.Label Label28
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label28"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 3000
TabIndex = 37
Top = 6240
Width = 1455
End
Begin VB.Label Label27
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label27"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 3000
TabIndex = 36
Top = 5760
Width = 1455
End
Begin VB.Label Label26
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Stufe 0"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 3000
TabIndex = 35
Top = 5280
Width = 1500
End
Begin VB.Label Label25
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Nächste Stufe"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 3000
TabIndex = 34
Top = 6000
Width = 1500
End
Begin VB.Label Label24
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Erfahrungspunkte"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 3000
TabIndex = 33
Top = 5520
Width = 1500
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 1800
TabIndex = 30
Top = 3600
Width = 1575
End
Begin VB.Label Label22
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "000"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 3000
TabIndex = 29
Top = 1680
Width = 1455
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 3240
TabIndex = 28
Top = 1440
Width = 975
End
Begin VB.Label Label52
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Eigenschaftspunkte"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 240
TabIndex = 23
Top = 6720
Width = 1830
End
Begin VB.Label Label55
AutoSize = -1 'True
BackColor = &H00FF0000&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 2520
TabIndex = 22
Top = 6720
Width = 165
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "XXXXX"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 1080
TabIndex = 7
Top = 3555
Width = 525
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "XXXXX"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 210
Left = 1080
TabIndex = 6
Top = 3300
Width = 525
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mana"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 165
TabIndex = 5
Top = 3555
Width = 435
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Beschreibung"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 495
Left = 2160
TabIndex = 4
Top = 2880
Width = 2415
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 165
TabIndex = 3
Top = 3300
Width = 795
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 2655
Left = 120
Top = 180
Width = 4455
End
End
Attribute VB_Name = "Manager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
dqWAFFE = ""
Equipment.Show
End Sub
Private Sub Command10_Click()
Open GetPath & "ZDD.sav" For Output As #1
Print #1, Nom
Print #1, Woche
Print #1, Typus
Print #1, Waffe
Print #1, Kategorie
Print #1, Material
Print #1, Rüstung
Print #1, Rmaterial
Print #1, Helm
Print #1, Schild
Print #1, Umhang
Print #1, Schusswaffe
Print #1, SwKategorie
Print #1, Inhalt
Print #1, Truhe
Print #1, There
Print #1, GdAst
Print #1, DhDst
Print #1, ADst; ZdCst; Celison
Print #1, Epoints; Strength; Speed; Iq
Print #1, STARThp; STARTmp; SCHWERTER; ÄXTE; SPEERE; HIEBWAFFEN; SCHUSSWAFFEN
Print #1, CHAOS; LICHT; NATUR; NEKROMANTIE
Print #1, ALCHEMIE; WUNDENHEILEN; FEILSCHEN; STEHLEN; PFLANZENKUNDE
Print #1, Magician; STplus; SPplus; IQplus; Gold
Print #1, Bücherausweis; Fliehen
Print #1, Hp; MP; KrAnK; VeRgIfTeT
Print #1, Stufe; Experience; NextLevel
Print #1, GRschaden; ZUschaden; Abzug; SWGRschaden; SWZUschaden
Print #1, Rrs; Rbe; Urs; Ube; Hrs; Hbe; Srs; Sbe
Print #1, RK; Pfeile; Bolzen; GBE
Print #1, Hände; Stunden; Minuten
Print #1, BeM; BB; BG; FA; Gs; Hpa; Qs; SL; Sf; TD; TkB; Wk; TDs
Print #1, AlterMann; Ring; Hexi
Print #1, Djinn; TischTdOK1; TischTdOK2; Zankh
Print #1, AltarTdOK2; Irion; SchrankH; Fässer; TischH
Print #1, Seeli; Seela; TischLab; Glubsch; FireMon; Thorku
Print #1, Attentat; Landkarte.Held.Left; Landkarte.Held.Top; Unsichtbar
Print #1, Truheo1; Truheo2; Truheo3; Truheo4; Truheo5; TruheH1
Print #1, zutatA; zutatB; zutatC
' Objekte
If Inventar.ListCount >= 1 Then Inventar.ListIndex = 0
For i = 0 To Inventar.ListCount - 1
If i = Inventar.ListCount - 1 Then alle_daten = alle_daten & Inventar.List(i): GoTo atleast
alle_daten = alle_daten & Inventar.List(i) & vbCrLf
Next i
atleast:
Print #1, alle_daten
Print #1, "###"
' Magie
alle_daten = ""
If SpruchBuch.ListCount >= 1 Then SpruchBuch.ListIndex = 0
For i = 0 To SpruchBuch.ListCount - 1
If i = SpruchBuch.ListCount - 1 Then alle_daten = alle_daten & SpruchBuch.List(i): GoTo atleast099
alle_daten = alle_daten & SpruchBuch.List(i) & vbCrLf
Next i
atleast099:
Print #1, alle_daten
Close #1
MsgBox "Spielstand wurde gespeichert!", 64 + 0, "Spielstand gespeichert"
End Sub
Private Sub Command2_Click()
Equipment.Command2.Enabled = False
dqBOGENBAUER.Label2.Caption = ""
dqSCHMIEDE.Label2.Caption = ""
dqZAUBERER.Label9.Caption = ""
dqRÜSTSCHMIEDE.Label2.Caption = ""
Command2.Enabled = False
A = Inventar.ListIndex
Inventar.RemoveItem A
End Sub
Private Sub Command4_Click()
Epoints = Epoints - 1
Iq = Iq + 1
Label17.Caption = Iq
CheckMan
End Sub
Private Sub Command5_Click()
Epoints = Epoints - 1
Speed = Speed + 1
Label16.Caption = Speed
CheckMan
End Sub
Private Sub Command6_Click()
Epoints = Epoints - 1
Strength = Strength + 1
Label15.Caption = Strength
CheckMan
End Sub
Private Sub Command8_Click()
End
End Sub
Private Sub Command9_Click()
If Command9.Caption = "lesen" Then ReadRezept: GoTo kkkk
dqALCHEMIE.Show
kkkk:
End Sub
Private Sub Form_Activate()
If Inventar.ListCount >= 1 Then Inventar.ListIndex = 0
If SpruchBuch.ListCount >= 1 Then SpruchBuch.ListIndex = 0
End Sub
Private Sub Form_Load()
If Magician = 0 Then SpruchBuch.Enabled = False
ManagRighter
End Sub
Sub CheckMan()
ManagRighter
If Epoints <= 0 Then Command4.Enabled = False: Command5.Enabled = False: Command6.Enabled = False
Label55.Caption = Epoints
End Sub
Private Sub Inventar_Click()
Command9.Enabled = False: Command9.Visible = False
Equipment.Command2.Enabled = True
If woher = "Bogenbauer" Then dqBOGENBAUER.Label2.Caption = Inventar.Text
If woher = "TruheÖffnen" And Inventar.Text = "Dietriche" Then TruheÖffnen.Command1.Enabled = True
If woher = "Schmiede" Then dqSCHMIEDE.Label2.Caption = Inventar.Text
If woher = "Zauberer" Then dqZAUBERER.Label9.Caption = Inventar.Text
If woher = "Rüstschmiede" Then dqRÜSTSCHMIEDE.Label2.Caption = Inventar.Text
Command2.Enabled = True: Rast.Command3.Enabled = True: Kampf.Command3.Enabled = True
GiveItems.Command1.Enabled = True
If Inventar.Text = "Leere Flasche" Then dqALCHEMIE.Command1.Enabled = True
dqALCHEMIE.Command7.Enabled = True
If Inventar.Text = "Alchemieset" Then Command9.Enabled = True: Command9.Visible = True: Command9.Caption = "benutzen"
There = Left(Inventar.Text, 4)
If There = "Reze" Or There = "Buch" Then Command9.Enabled = True: Command9.Visible = True: Command9.Caption = "lesen"
End Sub
Private Sub SpruchBuch_Click()
A = Manager.SpruchBuch.Text
Spellbookcheck
Label5.Caption = dqWHICH
Label6.Caption = dqMANA
If dqWHAT = "S" Then Label3.Caption = "Verursacht " + Str(dqGRDAMAGE) + " -" + Str(dqGRDAMAGE + dqGRADDAM) + " Schadenspunkte."
If dqWHAT = "H" Then Label3.Caption = "Heilt " + Str(dqGRDAMAGE) + " -" + Str(dqGRDAMAGE + dqGRADDAM) + " Schadenspunkte."
SpellHit = Speed
If dqWHICH = "CHAOS" Then SpellHit = SpellHit + (CHAOS * 2)
If dqWHICH = "NEKROMANTIE" Then SpellHit = SpellHit + (NEKROMANTIE * 2)
If dqWHICH = "LICHT" Then SpellHit = SpellHit + (LICHT * 2)
If dqWHICH = "NATUR" Then SpellHit = SpellHit + (NATUR * 2)
Kampf.Command4.Caption = dqSPELL + " (" + Str(SpellHit) + "% )"
Kampf.Command4.Enabled = True
End Sub

/trunk/Zeitalter der Dämonen/Manager.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/ObjektDaten.bas
0,0 → 1,64
Attribute VB_Name = "ObjektDaten"
Sub KleinerHeiltrank()
Hp = Hp + 8
Kampf.Haktion.Caption = "Du regenerierst 8 Lebenspunkte"
End Sub
Sub GroßerHeiltrank()
Hp = Hp + 15
Kampf.Haktion.Caption = "Du regenerierst 15 Lebenspunkte"
End Sub
Sub KleinerZaubertrank()
MP = MP + 8
Kampf.Haktion.Caption = "Du regenerierst 8 Mana"
End Sub
Sub GroßerZaubertrank()
MP = MP + 15
Kampf.Haktion.Caption = "Du regenerierst 15 Mana"
End Sub
Sub MagischerOpferdolch()
Zahl = 3 - Grs
If Zahl < 0 Then Zahl = 0
Ghp = Ghp - Zahl
If Ghp < 0 Then CheckLife: STARThp = STARThp + 1
Kampf.Haktion.Caption = "Du fügst " + Feind + " " + Str(Zahl) + " Schadenspunkte zu!"
End Sub
Sub SilbernerDolch()
If Art = "Vampir" Then
Zahl = 12
Randomize Timer
Zahl = Zahl - Int(3 * Rnd)
If Zahl < 0 Then Zahl = 0
Ghp = Ghp - Zahl
CheckLife
Kampf.Haktion.Caption = "Du fügst " + Feind + " " + Str(Zahl) + " Schadenspunkte zu!"
GoTo okay222
End If
Kampf.Haktion.Caption = "Der Dolch weigert sich, seinen Gegner anzugreifen!"
okay222:
End Sub
Sub UnsichtbarkeitsTrank()
Unsichtbar = 1
Kampf.Haktion.Caption = "Du bist nun Unsichtbar!"
End Sub
Sub Fell()
Randomize Timer
Zahl = Int(100 * Rnd)
If Zahl < Iq Then
A = "Fellumhang"
Manager.Inventar.AddItem A
Titel = "Fellumhang nähen"
Text = "Du nähst aus dem Fell einen Fellumhang."
onlyOK
Konversation.Show (vbModal)
GoTo olli
End If
Titel = "Fellumhang nähen"
Text = "Das nähen eines Fellumhangs misslingt dir!"
onlyOK
Konversation.Show (vbModal)
olli:
End Sub

/trunk/Zeitalter der Dämonen/Phargas.frm
0,0 → 1,346
VERSION 5.00
Begin VB.Form Phargas
BorderStyle = 0 'None
Caption = "Phargas"
ClientHeight = 4380
ClientLeft = 0
ClientTop = 0
ClientWidth = 7395
LinkTopic = "Phargas"
Picture = "Phargas.frx":0000
ScaleHeight = 4380
ScaleWidth = 7395
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 3980
Shape = 3 'Circle
Top = 4260
Width = 135
End
Begin VB.Shape Shape3
BorderColor = &H0000FFFF&
Height = 135
Left = 5880
Shape = 3 'Circle
Top = 3360
Width = 135
End
Begin VB.Shape Typ2
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 135
Left = 5580
Shape = 3 'Circle
Top = 3260
Width = 135
End
Begin VB.Shape Typ1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 135
Left = 5480
Shape = 3 'Circle
Top = 1560
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Left = 3880
Shape = 3 'Circle
Top = 2260
Width = 135
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = ">"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 7080
TabIndex = 0
Top = 3960
Width = 180
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 6
Left = 2880
Shape = 3 'Circle
Top = 660
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 5
Left = 1080
Shape = 3 'Circle
Top = 3660
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 4
Left = 3280
Shape = 3 'Circle
Top = 3960
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 3
Left = 5580
Shape = 3 'Circle
Top = 1260
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 2
Left = 6480
Shape = 3 'Circle
Top = 2160
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 0
Left = 680
Shape = 3 'Circle
Top = 1260
Width = 135
End
End
Attribute VB_Name = "Phargas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Phargas.Height Then
Held.Top = Held.Top + 100
city
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
city
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Phargas.Width Then
Held.Left = Held.Left + 100
city
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
city
End If
End Sub
Sub city()
If Held.Left = Typ1.Left And Held.Top = Typ1.Top Then T1
If Held.Left = Typ2.Left And Held.Top = Typ2.Top Then T2
If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then Schmiede: Phargas.Hide
If Held.Left = Shape3.Left And Held.Top = Shape3.Top Then Unterwelt
If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Rschmiede: Phargas.Hide
If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Hausa: Phargas.Hide
If Held.Left = Shape1(4).Left And Held.Top = Shape1(4).Top Then Zauberer: Phargas.Hide
If Held.Left = Shape1(5).Left And Held.Top = Shape1(5).Top Then gilde: Phargas.Hide
If Held.Left = Shape1(6).Left And Held.Top = Shape1(6).Top Then Bibliothek.Show: Phargas.Hide
If Held.Left = Shape2.Left And Held.Top = Shape2.Top Then Herberge: Phargas.Hide
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub Label1_Click()
Unload Phargas
If Attentat = 0 Then GoTo NoRoger
Landkarte.Show
If Attentat = 1 Then GoTo Roger
NoRoger:
Titel = "Vor Phargas"
Text = "Du schreitest durch das Palisadentor von Phargas. Plötzlich hörst du ein zischen und Bolzen rast direkt vor deine Füße. Ein in schwarzen Roben gehüllter Mann stürzt sich auf dich."
Answer1 = "Ok"
Answer2 = ""
Answer3 = ""
PositionNumber = 755
Attentat = 1
Konversation.Show (vbModal)
Roger:
End Sub
Sub Schmiede()
SchmiedeName = "Karadus' Schmiede"
Inhaber = "Karadus"
dqSCHMIEDE.Show
dqSCHMIEDE.Label1.Caption = SchmiedeName
dqSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Schwert"
dqSCHMIEDE.List1.AddItem A
A = "Bastardschwert"
dqSCHMIEDE.List1.AddItem A
A = "Breitschwert"
dqSCHMIEDE.List1.AddItem A
A = "Streitaxt"
dqSCHMIEDE.List1.AddItem A
A = "Morgenstern"
dqSCHMIEDE.List1.AddItem A
A = "Streitkolben"
dqSCHMIEDE.List1.AddItem A
End Sub
Sub gilde()
SchmiedeName = "Magiergilde 'Lichtbann'"
Inhaber = "Vaphidur"
GildenArt = "Licht"
dqGILDE.Show
dqGILDE.Label1.Caption = SchmiedeName
dqGILDE.Label15.Caption = "mit " + Inhaber
A = "Genesung"
dqGILDE.List1.AddItem A
A = "Blitzstrahl"
dqGILDE.List1.AddItem A
A = "Blitzschlag"
dqGILDE.List1.AddItem A
A = "Exorzismus"
dqGILDE.List1.AddItem A
A = "Wunden heilen"
dqGILDE.List1.AddItem A
End Sub
Sub Zauberer()
SchmiedeName = "Allaras' Magieladen"
Inhaber = "Allaras"
dqZAUBERER.Show
dqZAUBERER.Label1.Caption = SchmiedeName
dqZAUBERER.Label11.Caption = "mit " + Inhaber
A = "Wurzelknolle"
dqZAUBERER.List1.AddItem A
A = "Leere Flasche"
dqZAUBERER.List1.AddItem A
A = "Kleiner Heiltrank"
dqZAUBERER.List1.AddItem A
A = "Großer Heiltrank"
dqZAUBERER.List1.AddItem A
A = "Kleiner Zaubertrank"
dqZAUBERER.List1.AddItem A
A = "Blüte eines Morgentaus"
dqZAUBERER.List1.AddItem A
A = "Flasche Alkohol (1/2 l)"
dqZAUBERER.List1.AddItem A
A = "Alchemieset"
dqZAUBERER.List1.AddItem A
End Sub
Sub Herberge()
SchmiedeName = "Herberge 'Stille Nacht'"
Inhaber = "Koyara"
dqHERBERGE.Show
dqHERBERGE.Label1.Caption = SchmiedeName
dqHERBERGE.Label5.Caption = "mit " + Inhaber
SaufPreis = 2
SaufSchluss = 3
ZimmerPreis = 6
ObjPreis = 80
ObjHerberge = "Dietriche"
Getränk = "Bier"
dqHERBERGE.Label2.Caption = Str(SaufPreis) + " Goldkronen"
dqHERBERGE.Label3.Caption = Str(ZimmerPreis) + " Goldkronen"
dqHERBERGE.Label4.Caption = Str(ObjPreis) + " Goldkronen"
dqHERBERGE.Command1.Caption = Getränk + " bestellen"
dqHERBERGE.Command3.Caption = ObjHerberge + " kaufen"
End Sub
Sub Rschmiede()
SchmiedeName = "Serasek's Rüstschmiede"
Inhaber = "Serasek"
dqRÜSTSCHMIEDE.Show
dqRÜSTSCHMIEDE.Label1.Caption = SchmiedeName
dqRÜSTSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Lederhelm"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Schuppenpanzer"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Plattenpanzer"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Plattenharnisch"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Kettenhemd"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Flügelhelm"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Ritterhelm"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Großschild"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Ritterschild"
dqRÜSTSCHMIEDE.List1.AddItem A
End Sub
Sub Unterwelt()
Titel = "Eingang versperrt"
Text = "Der Eingang zur Unterwelt wird durch eine undurchdringliche Schwarze Kuppel versperrt."
onlyOK
Konversation.Show (vbModal)
End Sub
Sub Hausa()
Titel = "Ein altes Haus"
Text = "Vorsichtig schreitest du durch die unverschlossene Tür. Du erkennst ganz hinten im Raum einen sonderbaren großen Spiegel, der gegenüber den anderen Möbelstücken sehr prunkvoll wirkt."
onlyOK
PositionNumber = 111
Konversation.Show (vbModal)
End Sub
Sub T1()
Titel = "Borta, die Alte"
Text = "Hallo du! Aus dem Haus da kommen Nachts komische Geräusche heraus. Und ich kann dann nie einschlafen weil ich direkt daneben wohne. Und das stört mich sehr."
onlyOK
Konversation.Show (vbModal)
End Sub
Sub T2()
If Celison = 1 Then GiveItems.Show: GoTo zum
Celison = 1
Titel = "Celison, der Weise"
Text = "Seid gegrüßt, " + Nom + ". Ich bin hier um Euch etwas wichtiges zu sagen. Wenn Ihr den Eingang der Unterwelt betreten wollt, braucht Ihr drei Dinge. Diese Dinge sind schwer zu beschaffen. Aber sie sind notwenig. Hört Ihr mir zu?"
PositionNumber = 679
JaUndNein
Konversation.Show (vbModal)
zum:
End Sub

/trunk/Zeitalter der Dämonen/Phargas.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Pub.bat
0,0 → 1,4
@echo off
del .\*.vbw
del .\*.scc
del .\*.sav

/trunk/Zeitalter der Dämonen/Rast.frm
0,0 → 1,239
VERSION 5.00
Begin VB.Form Rast
BackColor = &H00400000&
BorderStyle = 0 'None
Caption = "Rast"
ClientHeight = 2820
ClientLeft = 0
ClientTop = 0
ClientWidth = 4680
LinkTopic = "Rast"
ScaleHeight = 2820
ScaleWidth = 4680
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command4
BackColor = &H00C0C000&
Cancel = -1 'True
Caption = "Schlaf"
Default = -1 'True
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 600
Style = 1 'Graphical
TabIndex = 4
Top = 960
Width = 735
End
Begin VB.CommandButton Command3
BackColor = &H00C0C000&
Caption = "Objekt benutzen"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
Style = 1 'Graphical
TabIndex = 3
Top = 1920
Width = 2535
End
Begin VB.CommandButton Command2
BackColor = &H00C0C000&
Caption = "Pflanzensuche"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
Style = 1 'Graphical
TabIndex = 2
Top = 1440
Width = 2535
End
Begin VB.CommandButton Command1
BackColor = &H00C0C000&
Caption = "Wunden heilen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
Style = 1 'Graphical
TabIndex = 1
Top = 960
Width = 2535
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 4440
Y1 = 480
Y2 = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rasten"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 405
Left = 120
TabIndex = 0
Top = 120
Width = 990
End
End
Attribute VB_Name = "Rast"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Command1.Enabled = False
HeilRast
End Sub
Private Sub Command2_Click()
Stunden = Stunden + 1
Dayli
Command2.Enabled = False
Randomize Timer
Zahl = Int(100 * Rnd)
If Zahl < PFLANZENKUNDE Then GoTo flowfound Else GoTo nichts
flowfound:
Randomize Timer
Zahl = Int(50 * Rnd)
A = ""
If Zahl = 0 Then A = "Wuzelknolle"
If Zahl >= 1 And Zahl < 3 Then A = "Unze Goldstaub"
If Zahl >= 15 And Zahl <= 30 Then A = "Blüte eines Morgentaus"
If Zahl >= 45 Then A = "Büschel Brunnensporn"
If Zahl >= 3 And Zahl <= 9 Then A = "Höllenpilz"
If Zahl = 9 Then A = "Schwarzer Lotos"
If A = "" Then A = "Wurzelknolle"
Manager.Inventar.AddItem A
Titel = "Pflanzensuche erfolgreich"
Text = "Du findest " + A
onlyOK
Konversation.Show (vbModal)
GoTo joja
nichts:
Titel = "Pflanzensuche fehlgeschlagen"
Text = "Du findest nichts"
onlyOK
Konversation.Show (vbModal)
joja:
End Sub
Private Sub Command3_Click()
Dim objdes As String
objdes = Manager.Inventar.Text
If objdes = "Bärenfell" Then Fell: GoTo kjik
If objdes = "Wolfsfell" Then Fell: GoTo kjik
If objdes = "Kleiner Heiltrank" Then KleinerHeiltrank: GoTo kjik
If objdes = "Kleiner Zaubertrank" Then KleinerZaubertrank: GoTo kjik
If objdes = "Großer Heiltrank" Then GroßerHeiltrank: GoTo kjik
If objdes = "Großer Zaubertrank" Then GroßerZaubertrank: GoTo kjik
GoTo klopse312
kjik:
RHMP
ManagRighter
Stunden = Stunden + 1
Dayli
Equipment.Command2.Enabled = False
Manager.Command2.Enabled = False
A = Manager.Inventar.ListIndex
Manager.Inventar.RemoveItem A
Command3.Enabled = False
klopse312:
End Sub
Private Sub Command4_Click()
Landkarte.Show
SchlafenGehen
Unload Rast
Dayli
ManagRighter
Landkarte.Rasten.Enabled = False: Landkarte.Rasten.Visible = False
Landkarte.city
End Sub
Private Sub Form_Activate()
Manager.Command10.Enabled = False
End Sub
Private Sub Form_Load()
Command1.Caption = Command1.Caption + " (" + Str(WUNDENHEILEN) + "%)"
Command2.Caption = Command2.Caption + " (" + Str(PFLANZENKUNDE) + "%)"
End Sub
Sub HeilRast()
Stunden = Stunden + 1
Dayli
Randomize Timer
Zahl = Int(100 * Rnd)
If Zahl > WUNDENHEILEN Then GoTo fail Else GoTo haha
fail:
Randomize Timer
Zahl = Int(5 * Rnd) + 1
Hp = Hp - Zahl
RHMP
Titel = "Wunden heilen fehlgeschlagen"
Text = "Du fügst dir " + Str(Zahl) + " Schadenspunkte zu."
onlyOK
Konversation.Show (vbModal)
If Hp <= 0 Then TOT.Show: Unload Rast
GoTo joky
haha:
Zahl = Int(WUNDENHEILEN / 10) + 1
Hp = Hp + Zahl
RHMP
Titel = "Wunden heilen gelungen"
Text = "Du heilst " + Str(Zahl) + " Lebenspunkte."
onlyOK
Konversation.Show (vbModal)
joky:
ManagRighter
End Sub
Private Sub Form_Unload(Cancel As Integer)
Manager.Command10.Enabled = True
End Sub

/trunk/Zeitalter der Dämonen/Shanti.frm
0,0 → 1,205
VERSION 5.00
Begin VB.Form Shanti
BorderStyle = 0 'None
Caption = "Shanti"
ClientHeight = 5235
ClientLeft = 0
ClientTop = 0
ClientWidth = 7470
LinkTopic = "Shanti"
Picture = "Shanti.frx":0000
ScaleHeight = 5235
ScaleWidth = 7470
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = ">"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 7200
TabIndex = 0
Top = 4920
Width = 180
End
Begin VB.Shape Shape4
BorderColor = &H0000FFFF&
Height = 135
Left = 4080
Shape = 3 'Circle
Top = 4560
Width = 135
End
Begin VB.Shape Shape3
BorderColor = &H0000FFFF&
Height = 135
Left = 4280
Shape = 3 'Circle
Top = 2260
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Left = 2280
Shape = 3 'Circle
Top = 1360
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Left = 3380
Shape = 3 'Circle
Top = 3160
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 3380
Shape = 3 'Circle
Top = 260
Width = 135
End
End
Attribute VB_Name = "Shanti"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < Shanti.Height Then
Held.Top = Held.Top + 100
city
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
city
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < Shanti.Width Then
Held.Left = Held.Left + 100
city
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
city
End If
End Sub
Sub city()
If Held.Left = Shape1.Left And Held.Top = Shape1.Top Then gilde
If Held.Left = Shape2.Left And Held.Top = Shape2.Top Then schmied
If Held.Left = Shape3.Left And Held.Top = Shape3.Top Then rschmied
If Held.Left = Shape4.Left And Held.Top = Shape4.Top Then taverne
End Sub
Sub gilde()
SchmiedeName = "Magiergilde 'Dämmerturm'"
Inhaber = "Xaphika"
GildenArt = "Nekromantie"
dqGILDE.Show
dqGILDE.Label1.Caption = SchmiedeName
dqGILDE.Label15.Caption = "mit " + Inhaber
A = "Mantel des Todes"
dqGILDE.List1.AddItem A
A = "Schattenblitz"
dqGILDE.List1.AddItem A
A = "Verwesung"
dqGILDE.List1.AddItem A
A = "Lähmung"
dqGILDE.List1.AddItem A
A = "Lebensentzug"
dqGILDE.List1.AddItem A
End Sub
Sub schmied()
SchmiedeName = "Atlanta's Schmiede"
Inhaber = "Atlanta"
dqSCHMIEDE.Show
dqSCHMIEDE.Label1.Caption = SchmiedeName
dqSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Barbarenstreitaxt"
dqSCHMIEDE.List1.AddItem A
A = "Kriegshammer"
dqSCHMIEDE.List1.AddItem A
A = "Morgenstern"
dqSCHMIEDE.List1.AddItem A
A = "Barbarenschwert"
dqSCHMIEDE.List1.AddItem A
A = "Breitschwert"
dqSCHMIEDE.List1.AddItem A
A = "Handaxt"
dqSCHMIEDE.List1.AddItem A
End Sub
Sub rschmied()
SchmiedeName = "Maras' Rüstschmiede"
Inhaber = "Maras"
dqRÜSTSCHMIEDE.Show
dqRÜSTSCHMIEDE.Label1.Caption = SchmiedeName
dqRÜSTSCHMIEDE.Label15.Caption = "mit " + Inhaber
A = "Lederhelm"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Hartholzharnisch"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Lederpanzer"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Kettenhemd"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Topfhelm"
dqRÜSTSCHMIEDE.List1.AddItem A
A = "Lederschild"
dqRÜSTSCHMIEDE.List1.AddItem A
End Sub
Sub taverne()
SchmiedeName = "Taverne 'Zum Vollen Bierkrug'"
Inhaber = "Thodur"
dqHERBERGE.Show
dqHERBERGE.Label1.Caption = SchmiedeName
dqHERBERGE.Label5.Caption = "mit " + Inhaber
SaufPreis = 4
SaufSchluss = 2
ZimmerPreis = 9
ObjPreis = 5
ObjHerberge = "Leere Flasche"
Getränk = "Starkbier"
dqHERBERGE.Label2.Caption = Str(SaufPreis) + " Goldkronen"
dqHERBERGE.Label3.Caption = Str(ZimmerPreis) + " Goldkronen"
dqHERBERGE.Label4.Caption = Str(ObjPreis) + " Goldkronen"
dqHERBERGE.Command1.Caption = Getränk + " bestellen"
dqHERBERGE.Command3.Caption = ObjHerberge + " kaufen"
End Sub
Private Sub Label1_Click()
Unload Shanti
Landkarte.Show
End Sub

/trunk/Zeitalter der Dämonen/Shanti.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/StartTitle.frm
0,0 → 1,232
VERSION 5.00
Begin VB.Form StartTitle
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "Aysalia: Das Zeitalter der Dämonen"
ClientHeight = 7200
ClientLeft = 45
ClientTop = 435
ClientWidth = 9600
Icon = "StartTitle.frx":0000
LinkTopic = "StartTitle"
MaxButton = 0 'False
Picture = "StartTitle.frx":030A
ScaleHeight = 7200
ScaleWidth = 9600
StartUpPosition = 2 'CenterScreen
Begin VB.Image Image1
Height = 495
Left = 120
Top = 6600
Width = 2655
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Spiel laden"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 8040
TabIndex = 2
Top = 6360
Width = 1410
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version 1.5.3"
ForeColor = &H00808080&
Height = 195
Left = 7440
TabIndex = 1
Top = 1680
Width = 930
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Neues Spiel"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 7920
TabIndex = 0
Top = 6720
Width = 1545
End
End
Attribute VB_Name = "StartTitle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Label4.Visible = FileExists(GetPath & "ZDD.sav")
Nom = ""
Typus = ""
Waffe = ""
Kategorie = ""
Material = ""
Rüstung = ""
Rmaterial = ""
Helm = ""
Schild = ""
Umhang = ""
Schusswaffe = ""
SwKategorie = ""
Inhalt = ""
Truhe = ""
There = ""
GdAst = 0
Celison = 0
TruheH1 = 0
DhDst = 0: ADst = 0: ZdCst = 0
BeM = 0: BB = 0: BG = 0: FA = 0: Gs = 0: Hpa = 0: Qs = 0: SL = 0: Sf = 0: TD = 0: TkB = 0: Wk = 0: TDs = 0
Epoints = 0: Strength = 0: Speed = 0: Iq = 0
STARThp = 0: STARTmp = 0: SCHWERTER = 0: ÄXTE = 0: SPEERE = 0: HIEBWAFFEN = 0: SCHUSSWAFFEN = 0
CHAOS = 0: LICHT = 0: NATUR = 0: NEKROMANTIE = 0
ALCHEMIE = 0: WUNDENHEILEN = 0: SECHSTERSINN = 0: FEILSCHEN = 0: STEHLEN = 0: PFLANZENKUNDE = 0
Magician = 0: STplus = 0: SPplus = 0: IQplus = 0: Gold = 0
Bücherausweis = 0: Fliehen = 0
Hp = 0: MP = 0: KrAnK = 0: VeRgIfTeT = 0
Stufe = 0: Experience = 0: NextLevel = 0
GRschaden = 0: ZUschaden = 0: Abzug = 0: SWGRschaden = 0: SWZUschaden = 0
Rrs = 0: Rbe = 0: Urs = 0: Ube = 0: Hrs = 0: Hbe = 0: Srs = 0: Sbe = 0
RK = 0: Pfeile = 0: Bolzen = 0: GBE = 0
Hände = 0: Stunden = 0: Minuten = 0
Woche = 0: AlterMann = 0: Ring = 0: Hexi = 0
Djinn = 0: TischTdOK1 = 0: TischTdOK2 = 0: Zankh = 0
AltarTdOK2 = 0: Irion = 0: SchrankH = 0: Fässer = 0: TischH = 0
Seeli = 0: Seela = 0: TischLab = 0: Glubsch = 0: FireMon = 0: Thorku = 0
Attentat = 0: Unsichtbar = 1
Truheo1 = 0: Truheo2 = 0: Truheo3 = 0: Truheo4 = 0: Truheo5 = 0
zutatA = 0: zutatB = 0: zutatC = 0
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF0000
Label4.ForeColor = &HFF0000
End Sub
Private Sub Image1_Click()
frmAbout.Show (vbModal)
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub
Private Sub Label2_Click()
Unload StartTitle
Charakter.Show
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFFFF&
Label4.ForeColor = &HFF0000
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub
Public Sub Label4_Click()
Unload StartTitle
Open GetPath & "ZDD.sav" For Input As #1
' Werte
Dim nb1, nb2 As Integer
Input #1, Nom
Input #1, Woche
Input #1, Typus
Input #1, Waffe
Input #1, Kategorie
Input #1, Material
Input #1, Rüstung
Input #1, Rmaterial
Input #1, Helm
Input #1, Schild
Input #1, Umhang
Input #1, Schusswaffe
Input #1, SwKategorie
Input #1, Inhalt
Input #1, Truhe
Input #1, There
Input #1, GdAst
Input #1, DhDst
Input #1, ADst, ZdCst, Celison
Input #1, Epoints, Strength, Speed, Iq
Input #1, STARThp, STARTmp, SCHWERTER, ÄXTE, SPEERE, HIEBWAFFEN, SCHUSSWAFFEN
Input #1, CHAOS, LICHT, NATUR, NEKROMANTIE
Input #1, ALCHEMIE, WUNDENHEILEN, FEILSCHEN, STEHLEN, PFLANZENKUNDE
Input #1, Magician, STplus, SPplus, IQplus, Gold
Input #1, Bücherausweis, Fliehen
Input #1, Hp, MP, KrAnK, VeRgIfTeT
Input #1, Stufe, Experience, NextLevel
Input #1, GRschaden, ZUschaden, Abzug, SWGRschaden, SWZUschaden
Input #1, Rrs, Rbe, Urs, Ube, Hrs, Hbe, Srs, Sbe
Input #1, RK, Pfeile, Bolzen, GBE
Input #1, Hände, Stunden, Minuten
Input #1, BeM, BB, BG, FA, Gs, Hpa, Qs, SL, Sf, TD, TkB, Wk, TDs
Input #1, AlterMann, Ring, Hexi
Input #1, Djinn, TischTdOK1, TischTdOK2, Zankh
Input #1, AltarTdOK2, Irion, SchrankH, Fässer, TischH
Input #1, Seeli, Seela, TischLab, Glubsch, FireMon, Thorku
Input #1, Attentat, nb1, nb2, Unsichtbar
Input #1, Truheo1, Truheo2, Truheo3, Truheo4, Truheo5, TruheH1
Input #1, zutatA, zutatB, zutatC
' Objekte
Do While Not EOF(1)
Input #1, alle_daten
If alle_daten = "###" Then GoTo weiter
If alle_daten <> "" Then Manager.Inventar.AddItem alle_daten
Loop
' Magie
weiter:
Do While Not EOF(1)
Input #1, alle_daten
Manager.SpruchBuch.AddItem alle_daten
Loop
Close #1
Dayli
ManagRighter
Manager.Show
If Magician = 1 Then Manager.SpruchBuch.Enabled = True
Landkarte.Show
Landkarte.Held.Left = nb1
Landkarte.Held.Top = nb2
Landkarte.city
If Stunden >= 12 Then Landkarte.Rasten.Enabled = True: Landkarte.Rasten.Visible = True
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF0000
Label4.ForeColor = &HFFFF&
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

/trunk/Zeitalter der Dämonen/StartTitle.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/Story.frm
0,0 → 1,137
VERSION 5.00
Begin VB.Form Story
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Story"
ClientHeight = 5310
ClientLeft = 0
ClientTop = 0
ClientWidth = 4920
LinkTopic = "Story"
ScaleHeight = 5310
ScaleWidth = 4920
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "So soll es sein!"
Default = -1 'True
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
Style = 1 'Graphical
TabIndex = 3
Top = 4800
Width = 1935
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Das Zeitalter der Dämonen"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 4
Top = 120
Width = 4455
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label3"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 600
Left = 0
TabIndex = 2
Top = 4200
Width = 4920
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Und dieser Held wirst du sein,"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 0
TabIndex = 1
Top = 3960
Width = 4920
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"Story.frx":0000
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0FF&
Height = 3255
Left = 480
TabIndex = 0
Top = 480
Width = 4095
End
Begin VB.Shape Shape1
BorderColor = &H000000FF&
FillColor = &H00110086&
FillStyle = 0 'Solid
Height = 3255
Left = 240
Top = 480
Width = 4455
End
End
Attribute VB_Name = "Story"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Story
End Sub
Private Sub Form_Load()
Label3.Caption = Nom
End Sub

/trunk/Zeitalter der Dämonen/Story.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/TOT.frm
0,0 → 1,109
VERSION 5.00
Begin VB.Form TOT
BorderStyle = 1 'Fixed Single
Caption = "Du bist gestorben"
ClientHeight = 4440
ClientLeft = 45
ClientTop = 330
ClientWidth = 4455
ControlBox = 0 'False
LinkTopic = "TOT"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "TOT.frx":0000
ScaleHeight = 4440
ScaleWidth = 4455
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00E0E0E0&
Caption = "Neu laden"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
Style = 1 'Graphical
TabIndex = 1
Top = 4080
Width = 1215
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Ende"
Default = -1 'True
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2640
Style = 1 'Graphical
TabIndex = 0
Top = 4080
Width = 1215
End
End
Attribute VB_Name = "TOT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Rem So unprofessionell es auch wirken mag, ich muss alle Forms einzeln
Rem unloaden, denn manche Fenster sind nur hidden und somit ist z.B.
Rem die Position des Spielers noch eingespeichert.
Rem Ausnahme: Manager
Unload StartTitle
Unload Charakter
Unload Landkarte
Unload Story
Unload Kampf
Unload Beute
Unload Phargas
Unload Rast
Unload Konversation
Unload dqSCHMIEDE
Unload dqGILDE
Unload dqZAUBERER
Unload dqHERBERGE
Unload dqRÜSTSCHMIEDE
Unload Bibliothek
Unload TdOK1
Unload TruheÖffnen
Unload TdOK2
Unload Havengate
Unload dqBOGENBAUER
Unload Haus
Unload Labor
Unload Equipment
Unload Elfenwald
Unload Shanti
Unload dqSCHRIFTSTÜCK
Unload dqALCHEMIE
Unload GiveItems
Unload frmAbout
Unload TOT
StartTitle.Label4_Click
End Sub
Private Sub Form_Load()
Unload Manager
Command2.Enabled = FileExists(GetPath & "ZDD.sav")
End Sub

/trunk/Zeitalter der Dämonen/TOT.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/TdOK1.frm
0,0 → 1,204
VERSION 5.00
Begin VB.Form TdOK1
BorderStyle = 0 'None
Caption = "TdOK1"
ClientHeight = 5370
ClientLeft = 0
ClientTop = 0
ClientWidth = 5625
LinkTopic = "TdOK1"
Picture = "TdOK1.frx":0000
ScaleHeight = 5370
ScaleWidth = 5625
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "V"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 5400
TabIndex = 1
Top = 5040
Width = 195
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "/\"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 5400
TabIndex = 0
Top = 4560
Width = 180
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 3
Left = 1880
Shape = 3 'Circle
Top = 1260
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 2
Left = 4380
Shape = 3 'Circle
Top = 2560
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 1
Left = 4380
Shape = 3 'Circle
Top = 3460
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Index = 0
Left = 880
Shape = 3 'Circle
Top = 2860
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 2880
Shape = 3 'Circle
Top = 4560
Width = 135
End
End
Attribute VB_Name = "TdOK1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < TdOK1.Height Then
Held.Top = Held.Top + 100
CheckMove
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
CheckMove
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < TdOK1.Width Then
Held.Left = Held.Left + 100
CheckMove
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
CheckMove
End If
End Sub
Sub CheckMove()
If Held.Top = Shape2(3).Top And Held.Left = Shape2(3).Left Then NachtSchrank
If Held.Top = Shape2(0).Top And Held.Left = Shape2(0).Left Then Tisch
If Held.Top = Shape2(2).Top And Held.Left = Shape2(2).Left Then Truhe1
If Held.Top = Shape2(1).Top And Held.Left = Shape2(1).Left Then Truhe2
End Sub
Sub NachtSchrank()
If Djinn = 1 Then GoTo miss1
TdOK1.Hide
Titel = "Nachtschrank"
Text = "Auf dem Nachtschrank steht eine Flasche, in der blauer Nebel wild wirbelt. Willst du die Flasche öffnen?"
PositionNumber = 955
JaUndNein
Konversation.Show (vbModal)
miss1:
End Sub
Sub Tisch()
If TischTdOK1 = 1 Then GoTo miss2
A = "Rezept 'Kleiner Zaubertrank'"
Beute.List1.AddItem A
A = "Büschel Grabkraut"
Beute.List1.AddItem A
A = "Höllenpilz"
Beute.List1.AddItem A
A = "Quecksilber (1 ml)"
Beute.List1.AddItem A
A = "Silberner Dolch"
Beute.List1.AddItem A
TischTdOK1 = 1
Beute.Show (vbModal)
miss2:
End Sub
Sub Truhe1()
If Truheo1 = 1 Then GoTo miss3
Truhe = "tdok1a"
Schlosslevel = 7
Inhalt = "Alchemie"
TruheÖffnen.Show
miss3:
End Sub
Sub Truhe2()
If Truheo2 = 1 Then GoTo miss4
Truhe = "tdok1b"
Schlosslevel = 10
Inhalt = "Waffe"
TruheÖffnen.Show
miss4:
End Sub
Private Sub Label1_Click()
TdOK2.Show
Unload TdOK1
End Sub
Private Sub Label2_Click()
Unload TruheÖffnen
Landkarte.Show
Unload TdOK1
End Sub

/trunk/Zeitalter der Dämonen/TdOK1.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property

/trunk/Zeitalter der Dämonen/TdOK2.frm
0,0 → 1,180
VERSION 5.00
Begin VB.Form TdOK2
BorderStyle = 0 'None
Caption = "&H0000FFFF&"
ClientHeight = 5625
ClientLeft = 0
ClientTop = 0
ClientWidth = 6000
LinkTopic = "TdOK2"
Picture = "TdOK2.frx":0000
ScaleHeight = 5625
ScaleWidth = 6000
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "V"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Left = 5640
TabIndex = 0
Top = 5280
Width = 195
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 3
Left = 3080
Shape = 3 'Circle
Top = 1260
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 2
Left = 1380
Shape = 3 'Circle
Top = 2260
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 1
Left = 2880
Shape = 3 'Circle
Top = 3860
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Index = 0
Left = 4880
Shape = 3 'Circle
Top = 3860
Width = 135
End
Begin VB.Shape Held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 2880
Shape = 3 'Circle
Top = 2660
Width = 135
End
End
Attribute VB_Name = "TdOK2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown: Untenlauf
Case vbKeyUp: Obenlauf
Case vbKeyRight: Rechtslauf
Case vbKeyLeft: Linkslauf
Case vbKeyA: Linkslauf
Case vbKeyS: Untenlauf
Case vbKeyD: Rechtslauf
Case vbKeyW: Obenlauf
End Select
End Sub
Sub Untenlauf()
If Held.Top + Held.Height + 100 < TdOK2.Height Then
Held.Top = Held.Top + 100
CheckMove
End If
End Sub
Sub Obenlauf()
If Held.Top - 100 >= 0 Then
Held.Top = Held.Top - 100
CheckMove
End If
End Sub
Sub Rechtslauf()
If Held.Left + Held.Width + 100 < TdOK2.Width Then
Held.Left = Held.Left + 100
CheckMove
End If
End Sub
Sub Linkslauf()
If Held.Left - 100 >= 0 Then
Held.Left = Held.Left - 100
CheckMove
End If
End Sub
Sub CheckMove()
If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then Sarko
If Held.Left = Shape1(1).Left And Held.Top = Shape1(1).Top Then Altar
If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Schrank
If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Iriont2
End Sub
Sub Schrank()
If TischTdOK2 = 1 Then GoTo miss
A = "Wattierte Weiße Robe"
Beute.List1.AddItem A
A = "Magierstab des Irion"
Beute.List1.AddItem A
GoldFund = 50
TischTdOK2 = 1
Beute.Show (vbModal)
miss:
End Sub
Sub Iriont2()
Irion = 1
Titel = "Irion, tot"
Text = "Der Oberkleriker liegt auf dem Boden, du erkennst keine Wunden, doch er ist tot. Er trägt anstatt seiner Weißen Robe eine Schwarze und in seiner Stirn ist das Zeichen des Dämonischen Dämonenfürsten eingebrandt."
onlyOK
Konversation.Show (vbModal)
End Sub
Sub Sarko()
If Zankh = 1 Then GoTo miss2
TdOK2.Hide
Titel = "Sarkophag"
If Iq < 60 Then Text = "Du versuchst die eingezeichneten Runen zu entziffern, doch dir fehlt das Wissen dazu. Willst du den Sarkophag öffnen?": GoTo kal
If Iq <= 75 Then Text = "Du kannst die eingezeichneten Runen nur teilweise entziffern : ... wagt ... zu stören ... Macht ... spüren. Willst du den Sarkophag öffnen?": GoTo kal
If Iq > 75 Then Text = "Du entzifferst die eingezeichneten Runen : Wer es wagt, die Ruhe zu stören, wird die Macht des Zankh's zu spüren bekommen. Willst du den Sarkophag öffnen?"
kal:
PositionNumber = 911
JaUndNein
Konversation.Show (vbModal)
miss2:
End Sub
Sub Altar()
If AltarTdOK2 = 1 Then GoTo miss5
A = "Tropfen Drachenblut"
Beute.List1.AddItem A
A = "Tropfen Dämonenspeichel"
Beute.List1.AddItem A
A = "Magischer Opferdolch"
Beute.List1.AddItem A
AltarTdOK2 = 1
Beute.Show (vbModal)
miss5:
End Sub
Private Sub Label1_Click()
Unload TdOK2
TdOK1.Show
End Sub

/trunk/Zeitalter der Dämonen/TdOK2.frx
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property