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/Schatten über Aysalia/ @ 1

  → /trunk/Schatten über Aysalia/ @ 2

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

No changes between revisions

Regard whitespace Rev 1 → Rev 2

/trunk/Schatten über Aysalia/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/Schatten über Aysalia/Amazon.frm
0,0 → 1,235
VERSION 5.00
Begin VB.Form Amazon
BackColor = &H00400040&
BorderStyle = 0 'None
ClientHeight = 4875
ClientLeft = 0
ClientTop = 0
ClientWidth = 6750
ControlBox = 0 'False
LinkTopic = "Amazon"
ScaleHeight = 4875
ScaleWidth = 6750
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00FF80FF&
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 = 4920
Style = 1 'Graphical
TabIndex = 7
Top = 4080
Width = 1455
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "A"
BeginProperty Font
Name = "Times New Roman"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1095
Left = 4440
TabIndex = 8
Top = 360
Width = 690
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Kasharia fertig Bögen in verschiedenen Arten und Formen an."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 495
Left = 240
TabIndex = 6
Top = 4080
Width = 3735
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Im Trainingslager der Amazonen lehren die Kriegsfrauen den unerfahrenen die Kunst der Hiebwaffen."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 735
Left = 240
TabIndex = 5
Top = 2640
Width = 3735
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Arakia, die Waffenschmiedin der Stadt fertigt, die für die Amazonen typischen Waffen an."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 240
TabIndex = 4
Top = 1200
Width = 3735
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kasharia die Bogenbauerin"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 3
Top = 3600
Width = 3120
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Das Trainigslager"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 2
Top = 2160
Width = 2010
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Arakia die Waffenschmiedin"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 240
TabIndex = 1
Top = 720
Width = 3165
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "mazon"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 630
Left = 4920
TabIndex = 0
Top = 360
Width = 1515
End
End
Attribute VB_Name = "Amazon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Amazon
Landkarte.Show
End Sub
Private Sub Label2_Click()
AzSmith2.Show
Unload Amazon
End Sub
Private Sub Label2_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 Label3_Click()
AzTrain1.Show
Unload Amazon
End Sub
Private Sub Label3_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 Label4_Click()
AzBow1.Show
Unload Amazon
End Sub
Private Sub Label4_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

/trunk/Schatten über Aysalia/AzBow1.frm
0,0 → 1,389
VERSION 5.00
Begin VB.Form AzBow1
BackColor = &H001B1E36&
BorderStyle = 0 'None
Caption = "AzBow1"
ClientHeight = 6600
ClientLeft = 0
ClientTop = 0
ClientWidth = 6525
LinkTopic = "AzBow1"
ScaleHeight = 6600
ScaleWidth = 6525
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
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 = 4680
Style = 1 'Graphical
TabIndex = 12
Top = 4440
Width = 1215
End
Begin VB.ListBox List1
BackColor = &H00404040&
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 2790
ItemData = "AzBow1.frx":0000
Left = 960
List = "AzBow1.frx":0013
TabIndex = 0
Top = 1080
Width = 1815
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 4560
TabIndex = 13
Top = 4920
Width = 750
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Kasharia die Bogenbauerin"
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 = 1215
Left = 840
TabIndex = 11
Top = 4440
Width = 3735
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 2775
Left = 2880
Top = 1080
Width = 2775
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3120
TabIndex = 10
Top = 3480
Width = 435
End
Begin VB.Label label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3120
TabIndex = 9
Top = 1560
Width = 765
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label11"
ForeColor = &H0000FFFF&
Height = 195
Left = 3840
TabIndex = 8
Top = 3960
Width = 570
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 2880
TabIndex = 7
Top = 3960
Width = 825
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4680
TabIndex = 6
Top = 1560
Width = 75
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 195
Left = 4080
TabIndex = 5
Top = 3480
Width = 585
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4800
TabIndex = 4
Top = 1560
Width = 285
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4380
TabIndex = 3
Top = 1560
Width = 285
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxxxxxxxxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4080
TabIndex = 2
Top = 1200
Width = 1095
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kasharia die Bogenbauerin"
BeginProperty Font
Name = "Tahoma"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 525
Left = 360
TabIndex = 1
Top = 240
Width = 5895
End
End
Attribute VB_Name = "AzBow1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload AzBow1
Amazon.Show
End Sub
Private Sub Command2_Click()
a = Text1.Text
If a = "Xajek" Then Label17.Caption = "Oh nein, fang du nicht auch noch an. Viele versuchten ihn zu töten und sind gescheitert.": GoTo suck
If a = "Sumpf" Then Label17.Caption = "In den Sumpf solltest du dich erst später wagen, Riesenskorpione sind gefährliche Gegner.": GoTo suck
If a = "Kristallsee" Then Label17.Caption = "Der Kristallsee weist unterirdische Tunnel auf, aber mehr weiß ich auch nicht.": GoTo suck
Label17.Caption = "Frag nicht mich, ich weiß es nicht."
suck:
End Sub
Private Sub Form_Load()
If yyPfeile = 1 Or yyPfeile = 2 Then Label6.Enabled = False
RADIKAL
initial
End Sub
Private Sub Label2_Click()
If gold < kpreis Then Label17.Caption = "Du solltest schon etwas Gold dabei haben.": GoTo nixda
If typus = "Paladin" Then MsgBox "Als Paladin darfst du kein Bogen tragen!": GoTo nixda
gold = gold - kpreis
If List1.Text = "Pfeil" Then pfeile = pfeile + 1: GoTo kucki
bogen = kwaffe
fkgrschaden = kgrundschaden
fkzuschaden = kzusatzschaden
kucki:
Label17.Caption = "Das ist feinste Handarbeit!"
initial
nixda:
End Sub
Private Sub Label2_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 Label6_Click()
a = MsgBox("Gut dass du mir helfen kannst. Bringst du diese Zauberpfeile bitte zu Laurana nach Sheala? Sie wird dir 60 Goldkronen zahlen.", 64 + vbYesNo, "Kasharia")
b = Val(a)
If b = vbYes Then yyPfeile = 1: Label6.Enabled = False
End Sub
Private Sub Label6_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 List1_Click()
If List1.Text = "Pfeil" Then GoTo pfeilo
If List1.Text = "Kurzbogen" Then GoTo schwert
If List1.Text = "Langbogen" Then GoTo breitschwert
If List1.Text = "Kompositbogen" Then GoTo handaxt
If List1.Text = "Kriegsbogen" Then GoTo streitaxt
pfeilo:
kwaffe = "Pfeil"
kgrundschaden = 0
kzusatzschaden = 0
kpreis = 5
GoTo weiter
schwert:
kwaffe = "Kurzbogen"
kgrundschaden = 3
kzusatzschaden = 4
kpreis = 90
GoTo weiter
breitschwert:
kwaffe = "Langbogen"
kgrundschaden = 4
kzusatzschaden = 6
kpreis = 160
GoTo weiter
handaxt:
kwaffe = "Kompositbogen"
kgrundschaden = 2
kzusatzschaden = 7
kpreis = 130
GoTo weiter
streitaxt:
kwaffe = "Kriegsbogen"
kgrundschaden = 4
kzusatzschaden = 10
kpreis = 240
weiter:
initial
End Sub
Sub initial()
Label2.Caption = kwaffe
Label3.Caption = kgrundschaden
Label5.Caption = kgrundschaden + kzusatzschaden
Label9.Caption = Str(kpreis) + " Goldkronen"
Label11.Caption = gold
End Sub

/trunk/Schatten über Aysalia/AzBow1.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/Schatten über Aysalia/AzSmith2.frm
0,0 → 1,608
VERSION 5.00
Begin VB.Form AzSmith2
BackColor = &H00400000&
BorderStyle = 0 'None
Caption = "AzSmith2"
ClientHeight = 6735
ClientLeft = 0
ClientTop = 0
ClientWidth = 7695
LinkTopic = "AzSmith2"
ScaleHeight = 6735
ScaleWidth = 7695
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
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 = 4920
Style = 1 'Graphical
TabIndex = 21
Top = 4440
Width = 1215
End
Begin VB.ListBox List1
BackColor = &H00404040&
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 2790
ItemData = "AzSmith2.frx":0000
Left = 1320
List = "AzSmith2.frx":0013
TabIndex = 0
Top = 1080
Width = 1815
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 4800
TabIndex = 22
Top = 4920
Width = 750
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label20"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 3240
TabIndex = 20
Top = 4200
Width = 690
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "x Goldkronen l19"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 5400
TabIndex = 19
Top = 4200
Width = 1455
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe verkaufen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 1320
TabIndex = 18
Top = 4200
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Arakia die Waffenschmiedin"
BeginProperty Font
Name = "Tahoma"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 525
Left = 720
TabIndex = 17
Top = 240
Width = 6135
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxxxxxxxxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4440
TabIndex = 16
Top = 1200
Width = 1095
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4740
TabIndex = 15
Top = 1560
Width = 285
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5160
TabIndex = 14
Top = 1560
Width = 285
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4920
TabIndex = 13
Top = 1920
Width = 285
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "x"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5040
TabIndex = 12
Top = 2400
Width = 105
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4800
TabIndex = 11
Top = 2880
Width = 465
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 195
Left = 4440
TabIndex = 10
Top = 3480
Width = 585
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5040
TabIndex = 9
Top = 1560
Width = 75
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 3240
TabIndex = 8
Top = 3960
Width = 825
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label11"
ForeColor = &H0000FFFF&
Height = 195
Left = 4200
TabIndex = 7
Top = 3960
Width = 570
End
Begin VB.Label label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3480
TabIndex = 6
Top = 1560
Width = 765
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3480
TabIndex = 5
Top = 1920
Width = 825
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Abzug"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3480
TabIndex = 4
Top = 2400
Width = 540
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3480
TabIndex = 3
Top = 2880
Width = 690
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3480
TabIndex = 2
Top = 3480
Width = 435
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 2775
Left = 3240
Top = 1080
Width = 2775
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Arakia die Waffenschmiedin"
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 = 1215
Left = 960
TabIndex = 1
Top = 4560
Width = 3855
End
End
Attribute VB_Name = "AzSmith2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload AzSmith2
Amazon.Show
End Sub
Private Sub Command2_Click()
a = Text1.Text
If a = "Xajek" Then Label17.Caption = "Xajek? Hör bloß auf, ich hab schon genug von dem!": GoTo suck
If a = "Sumpf" Then Label17.Caption = "Im Sumpf war ich auch schon mal, mit ein paar unserer Jäger, doch sie wurden von Riesenskorpionen getötet. Ich konnte fliehen.": GoTo suck
If a = "Kristallsee" Then Label17.Caption = "Das legendäre Kristallschwert ist in ihm verbannt worden, dass möcht ich gern haben.": GoTo suck
Label17.Caption = "Tja, da fragst du mich was."
suck:
End Sub
Private Sub Form_Load()
RADIKAL
initial
End Sub
Private Sub Label18_Click()
If waffe = "" Then GoTo kk
gold = gold + zahl
waffe = ""
grundwert = 0
zusatzwert = 0
ABZUG = 0
material = ""
kateg = ""
initial
Label17.Caption = "Danke für's Geschäft!"
kk:
End Sub
Private Sub Label18_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()
If gold < kpreis Then Label17.Caption = "Du solltest schon etwas Gold dabei haben.": GoTo nixda
gold = gold - kpreis
waffe = kwaffe
grundwert = kgrundschaden
zusatzwert = kzusatzschaden
material = kmaterial
ABZUG = kabzug
kateg = kkateg
Label17.Caption = "Viel Spaß beim töten!"
initial
nixda:
End Sub
Private Sub Label2_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 Label21_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 List1_Click()
If List1.Text = "Streitkolben" Then GoTo schwert
If List1.Text = "Amazonensäbel" Then GoTo breitschwert
If List1.Text = "Kriegshammer" Then GoTo handaxt
If List1.Text = "Morgenstern" Then GoTo streitaxt
If List1.Text = "Kriegsspeer" Then GoTo bischwert
schwert:
kwaffe = "Streitkolben"
kgrundschaden = 2
kzusatzschaden = 5
kkateg = "Hie"
kabzug = 0
kmaterial = "Stahl"
kpreis = 85
initial
GoTo weiter
breitschwert:
kwaffe = "Amazonensäbel"
kgrundschaden = 4
kzusatzschaden = 2
kkateg = "Sch"
kabzug = 0
kmaterial = "Stahl"
kpreis = 125
initial
GoTo weiter
handaxt:
kwaffe = "Kriegshammer"
kgrundschaden = 4
kzusatzschaden = 6
kkateg = "Hie"
kabzug = 2
kmaterial = "Stahl"
kpreis = 175
initial
GoTo weiter
streitaxt:
kwaffe = "Morgenstern"
kgrundschaden = 2
kzusatzschaden = 10
kkateg = "Hie"
kabzug = 3
kmaterial = "Stahl"
kpreis = 130
initial
GoTo weiter
bischwert:
kwaffe = "Kriegsspeer"
kgrundschaden = 2
kzusatzschaden = 12
kkateg = "Sp"
kabzug = 1
kmaterial = "Stahl"
kpreis = 200
initial
weiter:
End Sub
Sub initial()
Label20.Caption = waffe + " " + Str(grundwert) + "-" + Str(grundwert + zusatzwert)
zahl = grundwert + zusatzwert * 16
Label19.Caption = zahl
Label2.Caption = kwaffe
Label3.Caption = kgrundschaden
Label5.Caption = kgrundschaden + kzusatzschaden
Label6.Caption = kkateg
Label7.Caption = kabzug
Label8.Caption = kmaterial
Label9.Caption = Str(kpreis) + " Goldkronen"
Label11.Caption = gold
End Sub

/trunk/Schatten über Aysalia/AzSmith2.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/Schatten über Aysalia/AzTrain1.frm
0,0 → 1,386
VERSION 5.00
Begin VB.Form AzTrain1
BackColor = &H00400040&
BorderStyle = 0 'None
Caption = "AzTrain1"
ClientHeight = 6510
ClientLeft = 0
ClientTop = 0
ClientWidth = 7620
LinkTopic = "AzTrain1"
ScaleHeight = 6510
ScaleWidth = 7620
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00FFC0FF&
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 = 4920
Style = 1 'Graphical
TabIndex = 13
Top = 4080
Width = 1455
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 4920
TabIndex = 14
Top = 4560
Width = 750
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label13"
ForeColor = &H0000FFFF&
Height = 195
Left = 5520
TabIndex = 12
Top = 3720
Width = 570
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 4440
TabIndex = 11
Top = 3720
Width = 825
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Lutana die Amazone"
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 = 1335
Left = 1920
TabIndex = 10
Top = 4320
Width = 4575
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 3360
TabIndex = 9
Top = 3480
Width = 690
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 3360
TabIndex = 8
Top = 2640
Width = 585
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label8"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 3360
TabIndex = 7
Top = 1800
Width = 585
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 6
Top = 3480
Width = 435
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 5
Top = 2640
Width = 435
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 4
Top = 1800
Width = 435
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingsstunde Bogen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 1920
TabIndex = 3
Top = 3120
Width = 2790
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingsstunde Speere und Stäbe"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 1920
TabIndex = 2
Top = 2280
Width = 4200
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingsstunde Hiebwaffen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 1920
TabIndex = 1
Top = 1440
Width = 3375
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Trainingslager"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 435
Left = 2400
TabIndex = 0
Top = 240
Width = 2550
End
End
Attribute VB_Name = "AzTrain1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload AzTrain1
Amazon.Show
End Sub
Private Sub Command2_Click()
Unload AzTrain1
Amazon.Show
End Sub
Private Sub Form_Load()
initial
End Sub
Private Sub Label14_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()
If HIEBWAFFEN >= 8 Then errornix: GoTo nixda
If gold < trainhie Then errorgold: GoTo nixda
Label11.Caption = "Gut gemacht!"
gold = gold - trainhie
HIEBWAFFEN = HIEBWAFFEN + 1
initial
nixda:
End Sub
Private Sub Label2_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 Label3_Click()
If STÄBE >= 6 Then errornix: GoTo nixda2
If gold < trainsp Then errorgold: GoTo nixda2
Label11.Caption = "Sehr gut!"
gold = gold - trainsp
STÄBE = STÄBE + 1
initial
nixda2:
End Sub
Private Sub Label3_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 Label4_Click()
If BÖGEN >= 8 Then errornix: GoTo nixda3
If gold < trainbo Then errorgold: GoTo nixda3
Label11.Caption = "Wann trainieren wir weiter?"
gold = gold - trainbo
BÖGEN = BÖGEN + 1
initial
nixda3:
End Sub
Sub initial()
trainhie = HIEBWAFFEN * 65
trainsp = STÄBE * 50
trainbo = BÖGEN * 70
Label8.Caption = Str(trainhie) + " Goldkronen"
Label9.Caption = Str(trainsp) + " Goldkronen"
Label10.Caption = Str(trainbo) + " Goldkronen"
Label13.Caption = gold
End Sub
Sub errornix()
Label11.Caption = "Sorry, aber in diesem Gebiet kann ich dir nichts mehr zeigen."
End Sub
Sub errorgold()
Label11.Caption = "Besorg das Gold und wir können beginnen."
End Sub
Private Sub Label4_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

/trunk/Schatten über Aysalia/Beute.frm
0,0 → 1,904
VERSION 5.00
Begin VB.Form Beute
BackColor = &H00400000&
BorderStyle = 0 'None
ClientHeight = 7005
ClientLeft = 0
ClientTop = 0
ClientWidth = 8760
ControlBox = 0 'False
LinkTopic = "Beute"
ScaleHeight = 7005
ScaleWidth = 8760
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame3
BackColor = &H00400000&
Caption = "Gegenstände"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1695
Left = 360
TabIndex = 24
Top = 4800
Width = 4455
Begin VB.CommandButton Command4
BackColor = &H00FF8080&
Caption = "Nehmen"
Height = 375
Left = 3120
Style = 1 'Graphical
TabIndex = 26
Top = 1080
Width = 1215
End
Begin VB.ListBox List1
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1035
ItemData = "Beute.frx":0000
Left = 360
List = "Beute.frx":0002
Sorted = -1 'True
TabIndex = 25
Top = 360
Width = 2655
End
End
Begin VB.CommandButton Command3
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "Schließen"
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 = 7080
Style = 1 'Graphical
TabIndex = 23
Top = 6240
Width = 1335
End
Begin VB.PictureBox Picture1
BackColor = &H00400000&
BorderStyle = 0 'None
Height = 1695
Left = 120
Picture = "Beute.frx":0004
ScaleHeight = 1695
ScaleWidth = 1935
TabIndex = 11
Top = 240
Width = 1935
End
Begin VB.Frame Frame2
BackColor = &H00400000&
Caption = "Panzerung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 975
Left = 360
TabIndex = 8
Top = 3600
Width = 8175
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
Caption = "Rüstung nehmen"
Height = 255
Left = 3690
Style = 1 'Graphical
TabIndex = 22
Top = 690
Width = 4455
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4200
TabIndex = 35
Top = 480
Width = 75
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 3000
TabIndex = 34
Top = 480
Width = 75
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 2040
TabIndex = 33
Top = 480
Width = 75
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 120
TabIndex = 32
Top = 480
Width = 75
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 1
Left = 4200
TabIndex = 21
Top = 240
Width = 510
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Behinderung"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 1
Left = 3000
TabIndex = 20
Top = 240
Width = 780
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstschutz"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 1
Left = 2040
TabIndex = 19
Top = 240
Width = 660
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Name"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 1
Left = 120
TabIndex = 18
Top = 240
Width = 375
End
End
Begin VB.Frame Frame1
BackColor = &H00400000&
Caption = "Bewaffnung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 975
Left = 360
TabIndex = 7
Top = 2280
Width = 8175
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Caption = "Waffe nehmen"
Height = 255
Left = 3690
Style = 1 'Graphical
TabIndex = 17
Top = 690
Width = 4455
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 7440
TabIndex = 31
Top = 480
Width = 75
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5280
TabIndex = 30
Top = 480
Width = 75
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 3960
TabIndex = 29
Top = 480
Width = 75
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 2760
TabIndex = 28
Top = 480
Width = 75
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 2550
TabIndex = 27
Top = 480
Width = 75
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Abzug"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Left = 7440
TabIndex = 16
Top = 240
Width = 405
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 0
Left = 5280
TabIndex = 15
Top = 240
Width = 600
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 0
Left = 3960
TabIndex = 14
Top = 240
Width = 510
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 0
Left = 2400
TabIndex = 13
Top = 240
Width = 525
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Name"
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 165
Index = 0
Left = 120
TabIndex = 12
Top = 240
Width = 375
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
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 = 240
Left = 2640
TabIndex = 10
Top = 470
Width = 90
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 120
TabIndex = 9
Top = 470
Width = 75
End
End
Begin VB.Label Label27
Alignment = 1 'Right Justify
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 = &H0080FFFF&
Height = 210
Left = 7200
TabIndex = 39
Top = 5520
Width = 570
End
Begin VB.Label Label26
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 = &H00C0FFFF&
Height = 210
Left = 5040
TabIndex = 38
Top = 5520
Width = 975
End
Begin VB.Label Label25
Alignment = 1 'Right Justify
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 = &H0080FFFF&
Height = 210
Left = 7200
TabIndex = 37
Top = 5160
Width = 570
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gefundene Goldkronen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 210
Left = 5040
TabIndex = 36
Top = 5160
Width = 1935
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label7"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 210
Left = 5280
TabIndex = 6
Top = 1560
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label6"
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 = 5280
TabIndex = 5
Top = 1200
Width = 540
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label5"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 6600
TabIndex = 4
Top = 840
Width = 705
End
Begin VB.Label Label4
AutoSize = -1 'True
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 = 2640
TabIndex = 3
Top = 1560
Width = 1140
End
Begin VB.Label Label3
AutoSize = -1 'True
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 = 2640
TabIndex = 2
Top = 1200
Width = 1500
End
Begin VB.Label Label2
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 = 2640
TabIndex = 1
Top = 840
Width = 2385
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Du hast den Feind besiegt!"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 2640
TabIndex = 0
Top = 120
Width = 4740
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
FillColor = &H00800000&
FillStyle = 0 'Solid
Height = 975
Left = 2520
Top = 120
Width = 4935
End
Begin VB.Shape Shape2
BorderColor = &H00FF0000&
FillColor = &H00800000&
FillStyle = 0 'Solid
Height = 270
Left = 4920
Top = 5490
Width = 3015
End
End
Attribute VB_Name = "Beute"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
waffe = gwaffe
grundwert = ggrundwert
zusatzwert = gzusatzwert
material = gmat
kateg = gkateg
ABZUG = gabzug
Label8.Caption = "": Label9.Caption = "": Label11.Caption = "": Label12.Caption = "": Label13.Caption = "": Label14.Caption = "": Label10.Caption = ""
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
rüstung = grust
rs = grs
be = gbe
rsmat = grsmat
Label15.Caption = "": Label16.Caption = "": Label17.Caption = "": Label18.Caption = ""
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
If a = "Rubinschlüssel" Then
Unload Beute
Höhlen.Show
Else: Unload Beute
End If
End Sub
Private Sub Command4_Click()
Command4.Enabled = False
If List1.Text = "Pfeil" Then pfeile = pfeile + 1: GoTo nixda
frmInternal.List1.AddItem List1.Text
nixda:
stelle = List1.ListIndex
List1.RemoveItem stelle
If List1.List(0) = "" Then Command4.Enabled = False Else List1.ListIndex = List1.ListIndex + 1
End Sub
Private Sub Command5_Click()
Command5.Caption = List1.Text
End Sub
Private Sub Form_Load()
If feind = "Blauer Djinn" Then Festung2.Show
If feind = "Veil" Then Festung2.Show
Command4.Enabled = False
If zahl = 1000 Then explus = explus / 2: zahl = 0
Label5.Caption = explus
Label6.Caption = experience
Label7.Caption = NextLevel
If art = "kr" Or art = "da" Or art = "un" Then Command1.Enabled = False: Command2.Enabled = False: GoTo nixda
Gegenstände
Label8.Caption = gwaffe
Label9.Caption = ggrundwert
Label11.Caption = ggrundwert + gzusatzwert
Label12.Caption = gmat
Label13.Caption = gkateg
Label14.Caption = gabzug
Label15.Caption = grust
Label16.Caption = grs
Label17.Caption = gbe
Label18.Caption = grsmat
Command1.Caption = waffe + " gegen " + Label8.Caption + " austauschen!"
If Label8.Caption = "" Then Command1.Enabled = False: Command1.Caption = "nicht möglich!"
Command2.Caption = rüstung + " gegen " + Label15.Caption + " austauschen!"
If Label15.Caption = "" Then Command2.Enabled = False: Command2.Caption = "nicht möglich!"
nixda:
End Sub
Sub Gegenstände()
If art = "kr" Then GoTo weiter
Randomize Timer
goldfund = Int(50 * Rnd) + 10
Label25.Caption = goldfund
gold = gold + goldfund
Randomize Timer
zahl = Int(20 * Rnd)
If zahl = 7 Then trank = "Stärketrank": List1.AddItem trank
If zahl = 19 Then trank = "Trank der Unsichtbarkeit": List1.AddItem trank
Randomize Timer
tränke = Int(5 * Rnd)
If tränke = 1 Then trank = "kleiner Heiltrank": List1.AddItem trank
Randomize Timer
wurfwaffen = Int(5 * Rnd)
If wurfwaffen = 1 Then ww = "Wurfmesser": List1.AddItem ww
If wurfwaffen = 4 Then ww = "Wurfstern": List1.AddItem ww
Randomize Timer
pfeil = Int(10 * Rnd) - 5
If pfeil <= 0 Then GoTo weiter
pfeilup:
a = "Pfeil"
List1.AddItem a
pfeil = pfeil - 1
If pfeil <= 0 Then GoTo weiter
GoTo pfeilup
weiter:
Label27.Caption = gold
If List1.List(0) = "" Then Command4.Enabled = False
End Sub
Private Sub List1_Click()
Command4.Enabled = True
End Sub

/trunk/Schatten über Aysalia/Beute.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/Schatten über Aysalia/Charakter.frm
0,0 → 1,1418
VERSION 5.00
Begin VB.Form Charakter
BackColor = &H00674E3A&
BorderStyle = 1 'Fixed Single
Caption = "Charaktergenerierung"
ClientHeight = 7095
ClientLeft = 45
ClientTop = 360
ClientWidth = 8565
LinkTopic = "Charakter"
MaxButton = 0 'False
ScaleHeight = 7095
ScaleWidth = 8565
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command4
Caption = "+"
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 = 7320
TabIndex = 33
Top = 4800
Width = 255
End
Begin VB.CommandButton Command5
Caption = "+"
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 = 7320
TabIndex = 32
Top = 5160
Width = 255
End
Begin VB.CommandButton Command6
Caption = "+"
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 = 7320
TabIndex = 31
Top = 5520
Width = 255
End
Begin VB.CommandButton Command7
Caption = "+"
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 = 7320
TabIndex = 30
Top = 5880
Width = 255
End
Begin VB.CommandButton Command8
Caption = "+"
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 = 7320
TabIndex = 29
Top = 6240
Width = 255
End
Begin VB.CommandButton Command1
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 3240
TabIndex = 20
Top = 3885
Width = 375
End
Begin VB.CommandButton Command2
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3240
TabIndex = 19
Top = 4635
Width = 375
End
Begin VB.CommandButton Command3
Caption = "+"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 3240
TabIndex = 18
Top = 5355
Width = 375
End
Begin VB.OptionButton Option2
BackColor = &H00800000&
Caption = "Krieger"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 4440
Style = 1 'Graphical
TabIndex = 16
Top = 1560
Width = 1215
End
Begin VB.OptionButton Option3
BackColor = &H00800000&
Caption = "Jäger"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 7080
Style = 1 'Graphical
TabIndex = 15
Top = 1560
Width = 1215
End
Begin VB.OptionButton Option8
BackColor = &H00800000&
Caption = "Dieb"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 5760
Style = 1 'Graphical
TabIndex = 14
Top = 1560
Width = 1215
End
Begin VB.ComboBox Combo1
BackColor = &H00800000&
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 = 360
ItemData = "Charakter.frx":0000
Left = 2520
List = "Charakter.frx":0010
Style = 2 'Dropdown List
TabIndex = 8
Top = 1560
Width = 1815
End
Begin VB.CommandButton Command13
BackColor = &H00FFC0C0&
Caption = "Helden übernehmen"
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 = 375
Left = 5280
Style = 1 'Graphical
TabIndex = 7
Top = 720
Width = 3015
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
Left = 5280
TabIndex = 6
Text = "Cramen Cendor"
Top = 360
Width = 3015
End
Begin VB.Line Line1
BorderColor = &H00FFFF00&
BorderWidth = 3
X1 = 4680
X2 = 4320
Y1 = 3960
Y2 = 3960
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "Je gewandter der Held ist, desto besser kann er seinen Gegner treffen."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 495
Left = 360
TabIndex = 47
Top = 5640
Width = 3855
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "In einigen Situation reagiert der Held schneller, wenn er intelligenter ist."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 495
Left = 360
TabIndex = 46
Top = 4920
Width = 3855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Umso größer die Stärke, desto mehr Schaden fügt der Held bei einem Treffer zu."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 495
Left = 360
TabIndex = 45
Top = 4200
Width = 3855
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "C"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 630
Left = 360
TabIndex = 44
Top = 240
Width = 405
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schwerter"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 4680
TabIndex = 43
Top = 4800
Width = 1095
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Speere und Stäbe"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 4680
TabIndex = 42
Top = 5160
Width = 1920
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Äxte"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 4680
TabIndex = 41
Top = 5520
Width = 465
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Hiebwaffen"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 4680
TabIndex = 40
Top = 5880
Width = 1200
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bögen"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 4680
TabIndex = 39
Top = 6240
Width = 705
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 6960
TabIndex = 38
Top = 4800
Width = 240
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 6960
TabIndex = 37
Top = 5160
Width = 240
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 6960
TabIndex = 36
Top = 5520
Width = 240
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 6960
TabIndex = 35
Top = 5880
Width = 240
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 6960
TabIndex = 34
Top = 6240
Width = 240
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stärke"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 360
TabIndex = 28
Top = 3960
Width = 690
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Intelligenz"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 360
TabIndex = 27
Top = 4680
Width = 1110
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gewandtheit"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Left = 360
TabIndex = 26
Top = 5400
Width = 1350
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 285
Left = 360
TabIndex = 25
Top = 6240
Width = 1710
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 2760
TabIndex = 24
Top = 3840
Width = 360
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 2760
TabIndex = 23
Top = 4560
Width = 360
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 2760
TabIndex = 22
Top = 5280
Width = 360
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 360
Left = 2760
TabIndex = 21
Top = 6240
Width = 360
End
Begin VB.Label N1
BackStyle = 0 'Transparent
Caption = "#Nachteil#"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 225
Left = 4440
TabIndex = 17
Top = 3240
Width = 3855
End
Begin VB.Label Label34
AutoSize = -1 'True
BackStyle = 0 'Transparent
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 = 225
Left = 3960
TabIndex = 13
Top = 3240
Width = 105
End
Begin VB.Label Label40
BackStyle = 0 'Transparent
Caption = "Liste"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1455
Left = 360
TabIndex = 12
Top = 1920
Width = 1815
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
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 = 2520
TabIndex = 11
Top = 3240
Width = 975
End
Begin VB.Label Label39
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gegenstände"
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 = 360
TabIndex = 10
Top = 1560
Width = 1125
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Beschreibung"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 975
Left = 4440
TabIndex = 9
Top = 1920
Width = 3855
End
Begin VB.Label Label33
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Name"
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 = 4680
TabIndex = 5
Top = 360
Width = 495
End
Begin VB.Label Label38
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "15"
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 = 7320
TabIndex = 4
Top = 4320
Width = 270
End
Begin VB.Label Label37
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Fähigkeitspunkte"
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 = 4680
TabIndex = 3
Top = 4320
Width = 1980
End
Begin VB.Label Label36
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "15"
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 = 7320
TabIndex = 2
Top = 3840
Width = 270
End
Begin VB.Label Label35
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Eigenschaftspunkte"
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 = 4680
TabIndex = 1
Top = 3840
Width = 2295
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "harakter Generierung"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 390
Left = 760
TabIndex = 0
Top = 400
Width = 3420
End
Begin VB.Shape Shape1
BorderColor = &H000000C0&
FillColor = &H00400000&
FillStyle = 0 'Solid
Height = 975
Left = 240
Top = 120
Width = 4215
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0FF&
FillStyle = 0 'Solid
Height = 2055
Left = 240
Top = 1440
Width = 2055
End
Begin VB.Shape Shape3
BorderColor = &H00FFFFFF&
FillStyle = 0 'Solid
Height = 2415
Left = 4560
Top = 4200
Width = 3135
End
Begin VB.Shape Shape4
BorderColor = &H00FFFFC0&
FillStyle = 0 'Solid
Height = 2895
Left = 240
Top = 3720
Width = 4095
End
End
Attribute VB_Name = "Charakter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub diob()
a = "Schriftrolle 'Schlösser öffnen'"
frmInternal.List1.AddItem a
End Sub
Sub drob()
a = "großer Heiltrank"
frmInternal.List1.AddItem a
End Sub
Sub klob()
a = "kleiner Heiltrank"
frmInternal.List1.AddItem a
a = "Gegengift"
frmInternal.List1.AddItem a
a = "Krankheitselixier"
frmInternal.List1.AddItem a
End Sub
Sub neob()
a = "kleiner Heiltrank"
frmInternal.List1.AddItem a
End Sub
Sub maob()
a = "kleiner Heiltrank"
frmInternal.List1.AddItem a
a = "kleiner Heiltrank"
frmInternal.List1.AddItem a
End Sub
Sub jaob()
a = "kleiner Heiltrank"
frmInternal.List1.AddItem a
End Sub
Sub paob()
a = "kleiner Heiltrank"
frmInternal.List1.AddItem a
End Sub
Sub COOLZERO()
SCHWERTER = 0
STÄBE = 0
ÄXTE = 0
HIEBWAFFEN = 0
BÖGEN = 0
CHAOS = 0
NATUR = 0
LICHT = 0
NEKROMANTIE = 0
End Sub
Private Sub Kontrolle()
If magician = 0 Then MsgBox "Nur Magiebegabte Helden können diese Fähigkeit steigern!", 64 + 0, "Fehler:"
End Sub
Sub Opo()
If (punkte + fpunkte = 0) And (Combo1.ListIndex <> -1) And ((Option2.Value And Option2.Enabled) Or (Option8.Value And Option8.Enabled) Or (Option3.Value And Option3.Enabled)) Then Command13.Enabled = True Else Command13.Enabled = False
End Sub
Sub rutiene2()
punkte = punkte - 1
Label36.Caption = punkte
Opo
End Sub
Private Sub Rutiene()
fpunkte = fpunkte - 1
Label38.Caption = fpunkte
Opo
End Sub
Private Sub Combo1_Click()
COOLZERO
If Combo1.Text = "Elf" Then Label3.Caption = "Elfen sind leichtfüßige Menschenähnliche Gestalten, abgesehen von den spitzen Ohren und den Mandelförmigen Augen.": gold = 50: hp = 25: mp = 25
If Combo1.Text = "Mensch" Then Label3.Caption = "Menschen sind die am häufigsten vorkomme Rasse in Aysalia": gold = 150: hp = 35: mp = 15
If Combo1.Text = "Halb-Elf" Then Label3.Caption = "Halb-Elfen sind eine Mischung aus Mensch und Elf, diese Rasse hat etwas bessere Sinne als die Menschen.": gold = 100: hp = 30: mp = 30
If Combo1.Text = "Zwerg" Then Label3.Caption = "Zwerge fühlen sich am meisten in Höhlen heimisch. Sie sind gewohnt schwere Äxte zu führen, und machen dies meisterlich.": gold = 200: hp = 40: mp = 5
initial
End Sub
Private Sub NONmagician()
magician = 0: CHAOS = 0: NATUR = 0: NEKROMANTIE = 0: LICHT = 0
End Sub
Private Sub Command1_Click()
If punkte = 0 Then Fehler: GoTo no
rutiene2
Strength = Strength + 1
Label10.Caption = Strength
no:
End Sub
Private Sub Command10_Click()
Kontrolle
If magician = 0 Then GoTo Q2
If fpunkte = 0 Then Fehler: GoTo Q2
Rutiene
NATUR = NATUR + 1
Label30.Caption = NATUR
Q2:
End Sub
Private Sub Command11_Click()
Kontrolle
If magician = 0 Then GoTo Q3
If fpunkte = 0 Then Fehler: GoTo Q3
Rutiene
LICHT = LICHT + 1
Label31.Caption = LICHT
Q3:
End Sub
Private Sub Command12_Click()
Kontrolle
If magician = 0 Then GoTo Q4
If fpunkte = 0 Then Fehler: GoTo Q4
Rutiene
NEKROMANTIE = NEKROMANTIE + 1
Label32.Caption = NEKROMANTIE
Q4:
End Sub
Private Sub Command13_Click()
STARThp = hp
STARTmp = mp
If typus = "Krieger" Then waffe = "Kurzschwert": kateg = "Sch": grundwert = 2: zusatzwert = 2: material = "Stahl": ABZUG = 0: rüstung = "Lederharnisch": rs = 3: be = 3
If typus = "Paladin" Then waffe = "Schwert": kateg = "Sch": grundwert = 3: zusatzwert = 3: material = "Stahl": ABZUG = 0: rüstung = "kurzes Kettenhemd": rs = 2: be = 2: paob
If typus = "Jäger" Then waffe = "Jagdspeer": kateg = "Sp": grundwert = 2: zusatzwert = 7: material = "Stahl": ABZUG = 0: rüstung = "Lederkleidung": rs = 1: be = 1: bogen = "Kurzbogen": pfeile = 6: fkgrschaden = 3: fkzuschaden = 4: jaob
If typus = "Magier" Then waffe = "Kampfstab": kateg = "Sp": grundwert = 2: zusatzwert = 3: material = "Holz": ABZUG = 0: rüstung = "Kutte": rs = 0: be = 0: maob
If typus = "Nekromant" Then waffe = "Kampfstab": kateg = "Sp": grundwert = 2: zusatzwert = 3: material = "Schwarz": ABZUG = 0: rüstung = "Schwarze Robe": rs = 0: be = 0: neob
If typus = "Kleriker" Then waffe = "Weihstab": kateg = "Sp": grundwert = 2: zusatzwert = 4: material = "Geweiht": ABZUG = 0: rüstung = "Weiße Robe": rs = 0: be = 0: klob
If typus = "Druide" Then waffe = "Jagdspeer": kateg = "sp": grundwert = 2: zusatzwert = 7: material = "Stahl": ABZUG = 0: rüstung = "Grüne Kutte": rs = 0: be = 0: drob
If typus = "Dieb" Then waffe = "Streitkolben": kateg = "Hie": grundwert = 2: zusatzwert = 5: material = "Stahl": ABZUG = 0: rüstung = "Lederkleidung": rs = 0: be = 0: diob
If typus = "Magier" Then spell = "Feuerblitz": Spruchbuch.Combo1.AddItem spell
If typus = "Nekromant" Then spell = "Schattenblitz": Spruchbuch.Combo1.AddItem spell
If typus = "Kleriker" Then spell = "Lichtblitz": Spruchbuch.Combo1.AddItem spell
If typus = "Druide" Then spell = "Leichte Heilung": Spruchbuch.Combo1.AddItem spell
stufe = 3
experience = 300
NextLevel = NextLevel + stufe * 100 + experience
nom = Text1.Text
Unload Charakter
Vorgeschichte.Show
End Sub
Private Sub Command2_Click()
If punkte = 0 Then Fehler: GoTo no2
rutiene2
Iq = Iq + 1
Label11.Caption = Iq
no2:
End Sub
Private Sub Command3_Click()
If punkte = 0 Then Fehler: GoTo no3
rutiene2
Speed = Speed + 1
Label12.Caption = Speed
no3:
End Sub
Private Sub Command4_Click()
If fpunkte = 0 Then Fehler: GoTo F1
Rutiene
SCHWERTER = SCHWERTER + 1
Label20.Caption = SCHWERTER
F1:
End Sub
Private Sub Command5_Click()
If fpunkte = 0 Then Fehler: GoTo F2
Rutiene
STÄBE = STÄBE + 1
Label21.Caption = STÄBE
F2:
End Sub
Private Sub Command6_Click()
If fpunkte = 0 Then Fehler: GoTo F3
Rutiene
ÄXTE = ÄXTE + 1
Label22.Caption = ÄXTE
F3:
End Sub
Private Sub Command7_Click()
If fpunkte = 0 Then Fehler: GoTo F4
Rutiene
HIEBWAFFEN = HIEBWAFFEN + 1
Label23.Caption = HIEBWAFFEN
F4:
End Sub
Private Sub Command8_Click()
If fpunkte = 0 Then Fehler: GoTo F5
Rutiene
BÖGEN = BÖGEN + 1
Label24.Caption = BÖGEN
F5:
End Sub
Private Sub Command9_Click()
Kontrolle
If magician = 0 Then GoTo Q1
If fpunkte = 0 Then Fehler: GoTo Q1
Rutiene
CHAOS = CHAOS + 1
Label29.Caption = CHAOS
Q1:
End Sub
Private Sub Form_Load()
initial
End Sub
Private Sub Option1_Click()
nachteil1 = "Darf nur Metallrüstungen tragen"
nachteil2 = "Darf keine Bögen führen"
nachteil3 = ""
obj = "Schwert, kleiner Heiltrank, kurzes Kettenhemd"
WrNach
typus = "Paladin"
SCHWERTER = 7: STÄBE = 1: ÄXTE = 3: HIEBWAFFEN = 3: BÖGEN = 0
CHAOS = 0: LICHT = 2: NEKROMANTIE = 0: NATUR = 0
magician = 1
StPlus = 15
IqPlus = 10
SpPlus = 0
hp = hp + 20
mp = mp + 15
Nogger
initial
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then End
End Sub
Private Sub Option2_Click()
obj = "Kurzschwert, Lederharnisch"
nachteil1 = ""
WrNach
typus = "Krieger"
SCHWERTER = 5: STÄBE = 3: ÄXTE = 4: HIEBWAFFEN = 3: BÖGEN = 3
NONmagician
StPlus = 20
IqPlus = 0
SpPlus = 10
hp = hp + 25
mp = 0
Nogger
initial
End Sub
Private Sub Option3_Click()
nachteil1 = "Darf NUR Lederrüstungen tragen"
obj = "Jagdspeer, kleiner Heiltrank, Kurzbogen, 6 Pfeile"
WrNach
typus = "Jäger"
SCHWERTER = 2: STÄBE = 5: ÄXTE = 3: HIEBWAFFEN = 2: BÖGEN = 5
NONmagician
StPlus = 5
IqPlus = 0
SpPlus = 20
hp = hp + 15
mp = 0
Nogger
initial
End Sub
Private Sub Option4_Click()
nachteil1 = "Darf nur Lederrüstungen tragen"
nachteil2 = "Darf keine Äxte führen"
nachteil3 = ""
obj = "Kampfstab, 2x kleiner Heiltrank"
WrNach
typus = "Magier"
SCHWERTER = 0: STÄBE = 3: ÄXTE = 0: HIEBWAFFEN = 1: BÖGEN = 0
CHAOS = 4: LICHT = 3: NEKROMANTIE = 1: NATUR = 2
magician = 1
StPlus = -5
IqPlus = 25
SpPlus = 0
hp = hp + 5
mp = mp + 25
Nogger
initial
End Sub
Private Sub Option5_Click()
nachteil1 = "Darf nur Lederrüstungen tragen"
nachteil2 = "Darf keine geweihten Waffen führen"
nachteil3 = ""
obj = "Kampfstab, kleiner Heiltrank"
WrNach
typus = "Nekromant"
SCHWERTER = 0: STÄBE = 3: ÄXTE = 1: HIEBWAFFEN = 2: BÖGEN = 0
CHAOS = 2: LICHT = 0: NEKROMANTIE = 5: NATUR = 1
magician = 1
StPlus = -5
IqPlus = 20
SpPlus = 0
hp = hp + 10
mp = mp + 20
Nogger
initial
End Sub
Private Sub Option6_Click()
obj = "Weihstab, kleiner Heiltrank, Gegengift, Krankheitselixier"
nachteil1 = "Darf nur Lederrüstungen tragen"
nachteil2 = "Darf keine Äxte führen"
nachteil3 = "Darf keine schwarzen Waffen führen"
WrNach
typus = "Kleriker"
SCHWERTER = 0: STÄBE = 3: ÄXTE = 0: HIEBWAFFEN = 2: BÖGEN = 0
CHAOS = 0: LICHT = 4: NEKROMANTIE = 0: NATUR = 2
magician = 1
StPlus = -5
IqPlus = 20
SpPlus = 0
hp = hp + 5
mp = mp + 20
Nogger
initial
End Sub
Private Sub Option7_Click()
obj = "Speer, großer Heiltrank"
nachteil1 = "Darf nur Lederrüstungen tragen"
nachteil2 = "Darf keine schwarzen Waffen führen"
nachteil3 = "Darf keine Äxte führen"
WrNach
typus = "Druide"
SCHWERTER = 0: STÄBE = 4: ÄXTE = 0: HIEBWAFFEN = 2: BÖGEN = 0
CHAOS = 0: LICHT = 2: NEKROMANTIE = 1: NATUR = 5
magician = 1
StPlus = -5
IqPlus = 20
SpPlus = 10
hp = hp + 5
mp = mp + 20
Nogger
initial
End Sub
Private Sub Option8_Click()
obj = "Streitkolben, Schriftrolle Schlösser öffnen"
nachteil1 = "Darf nur Lederrüstungen oder Kettenhemd tragen"
WrNach
typus = "Dieb"
SCHWERTER = 2: STÄBE = 1: ÄXTE = 1: HIEBWAFFEN = 4: BÖGEN = 2
NONmagician
StPlus = 5
IqPlus = 0
SpPlus = 10
hp = hp + 15
mp = 0
Nogger
initial
End Sub
Sub initial()
Label34.Caption = gold
punkte = 15
fpunkte = 5
Opo
If Combo1.Text = "Elf" Then Strength = 30: Iq = 45: Speed = 50: EClass
If Combo1.Text = "Halb-Elf" Then Strength = 35: Iq = 40: Speed = 50: HEClass
If Combo1.Text = "Mensch" Then Strength = 40: Iq = 40: Speed = 45: MClass
If Combo1.Text = "Zwerg" Then Strength = 50: Iq = 35: Speed = 40: ZClass
If StPlus = -5 Then Strength = Strength - 5: GoTo weiter
Strength = StPlus + Strength
weiter:
Iq = IqPlus + Iq
Speed = SpPlus + Speed
Label10.Caption = Strength
Label11.Caption = Iq
Label12.Caption = Speed
If magician = 0 Then STARTmp = 0: mp = 0
If Combo1.Text = "Elf" Then STÄBE = STÄBE + 2: ÄXTE = ÄXTE - 1
If Combo1.Text = "Mensch" Then SCHWERTER = SCHWERTER + 1: STÄBE = STÄBE - 1
If Combo1.Text = "Zwerg" Then SCHWERTER = SCHWERTER - 2: ÄXTE = ÄXTE + 2
Label13.Caption = hp
Label20.Caption = SCHWERTER
Label21.Caption = STÄBE
Label22.Caption = ÄXTE
Label23.Caption = HIEBWAFFEN
Label24.Caption = BÖGEN
Label36.Caption = punkte
Label38.Caption = fpunkte
End Sub
Sub EClass()
Option2.Enabled = True
Option3.Enabled = True
Option8.Enabled = False
End Sub
Sub HEClass()
Option2.Enabled = True
Option3.Enabled = True
Option8.Enabled = True
End Sub
Sub MClass()
Option2.Enabled = True
Option3.Enabled = True
Option8.Enabled = True
End Sub
Sub ZClass()
Option2.Enabled = True
Option3.Enabled = False
Option8.Enabled = True
End Sub
Sub WrNach()
If Combo1.Text = "Elf" Then hp = 25: mp = 25
If Combo1.Text = "Mensch" Then hp = 35: mp = 15
If Combo1.Text = "Halb-Elf" Then hp = 30: mp = 30
If Combo1.Text = "Zwerg" Then hp = 40: mp = 5
N1.Caption = nachteil1
Label40.Caption = obj
End Sub
Sub Nogger()
End Sub

/trunk/Schatten über Aysalia/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/Schatten über Aysalia/CheckHero.frm
0,0 → 1,418
VERSION 5.00
Begin VB.Form CheckHero
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = "Helden prüfen"
ClientHeight = 4230
ClientLeft = 45
ClientTop = 330
ClientWidth = 5835
Icon = "CheckHero.frx":0000
LinkTopic = "CheckHero"
MaxButton = 0 'False
ScaleHeight = 4230
ScaleWidth = 5835
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "Schließen"
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 = 4440
Style = 1 'Graphical
TabIndex = 2
Top = 3720
Width = 1335
End
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Caption = "Inventar"
Height = 375
Left = 4440
Style = 1 'Graphical
TabIndex = 1
Top = 120
Width = 1335
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Stärke"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 480
TabIndex = 18
Top = 1560
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Intelligenz"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 480
TabIndex = 17
Top = 2160
Width = 1410
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Gewandtheit"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 330
Left = 480
TabIndex = 16
Top = 2760
Width = 1740
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 2760
TabIndex = 15
Top = 1560
Width = 390
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 2760
TabIndex = 14
Top = 2160
Width = 390
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 2760
TabIndex = 13
Top = 2760
Width = 390
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Lebensenergie"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 480
TabIndex = 12
Top = 3480
Width = 2085
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 435
Left = 2760
TabIndex = 11
Top = 3480
Width = 390
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 435
Left = 3720
TabIndex = 10
Top = 3480
Width = 390
End
Begin VB.Label Label22
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "/"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 435
Left = 3480
TabIndex = 9
Top = 3480
Width = 105
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stufe"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0FF&
Height = 285
Left = 480
TabIndex = 8
Top = 600
Width = 600
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Erfahrung"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0FF&
Height = 285
Left = 480
TabIndex = 7
Top = 960
Width = 1155
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "la14"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 240
Left = 2085
TabIndex = 6
Top = 960
Width = 390
End
Begin VB.Label Label15
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 = &H00C0C0FF&
Height = 255
Left = 2520
TabIndex = 5
Top = 960
Width = 135
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "la16"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 240
Left = 2640
TabIndex = 4
Top = 960
Width = 390
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "la17"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 2160
TabIndex = 3
Top = 600
Width = 465
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Name des Helden"
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 345
Left = 480
TabIndex = 0
Top = 120
Width = 2745
End
End
Attribute VB_Name = "CheckHero"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
ObjectSelect.Show (vbModal)
End Sub
Private Sub Command2_Click()
Unload CheckHero
End Sub
Private Sub Form_Load()
Label1.Caption = nom
Label20.Caption = STARThp
Label17.Caption = stufe
Label14.Caption = experience
Label16.Caption = NextLevel
Label6.Caption = Strength
Label7.Caption = Iq
Label8.Caption = Speed
Label11.Caption = hp
End Sub
Private Sub Label10_Click()
End Sub

/trunk/Schatten über Aysalia/CheckHero.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/Schatten über Aysalia/DQSTORY.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/Schatten über Aysalia/DQstory.frm
0,0 → 1,216
VERSION 5.00
Begin VB.Form Vorgeschichte
BackColor = &H00674E3A&
BorderStyle = 0 'None
ClientHeight = 6315
ClientLeft = 0
ClientTop = 60
ClientWidth = 5955
ControlBox = 0 'False
LinkTopic = "Vorgeschichte"
ScaleHeight = 6315
ScaleWidth = 5955
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00FF8080&
Cancel = -1 'True
Caption = "Bestätigen"
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 = 4440
Style = 1 'Graphical
TabIndex = 4
Top = 5760
Width = 1335
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "nach einem Helden, der"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 285
Left = 2880
TabIndex = 8
Top = 3480
Width = 2685
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "schreit"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 345
Left = 1680
TabIndex = 7
Top = 3450
Width = 975
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Das Land"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 285
Left = 480
TabIndex = 6
Top = 3480
Width = 1095
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Was bisher geschah..."
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 285
Left = 480
TabIndex = 5
Top = 360
Width = 2505
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Name einfügen#"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 405
Left = 3240
TabIndex = 3
Top = 5160
Width = 2550
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Und dieser Held bist du,"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 285
Left = 480
TabIndex = 2
Top = 4800
Width = 2730
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "dieses von der Dunkelheit ins Licht führt."
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 285
Left = 480
TabIndex = 1
Top = 3840
Width = 4665
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"DQstory.frx":0000
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 2415
Left = 480
TabIndex = 0
Top = 840
Width = 5175
End
End
Attribute VB_Name = "Vorgeschichte"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
wettera = Int(4 * Rnd)
If wettera = 0 Then wetter = "Klar"
If wettera = 1 Then wetter = "Regen"
If wettera = 2 Then wetter = "Sonnig"
If wettera = 3 Then wetter = "Klar"
Unload Vorgeschichte
Landkarte.Show
End Sub
Private Sub Form_Load()
Label4.Caption = nom
End Sub

/trunk/Schatten über Aysalia/DragonData.bas
0,0 → 1,56
Attribute VB_Name = "Module1"
Rem Charakter Eigenschaften
Global Strength, Iq, Speed, hp, mp, STARThp, STARTmp As Integer
Global CHAOS, LICHT, NATUR, NEKROMANTIE, SCHWERTER, ÄXTE, STÄBE, HIEBWAFFEN, BÖGEN As Integer
Global magician, punkte, answer As Integer
Global nom As String
Rem end
Rem Kampf Werte
Global schritt, ggrundwert, gzusatzwert, grs, gbe As Integer
Global explus, stufe, experience, ghp, gmp, gspeed, gstrength As Integer
Global gmat, ghpst, grust, woher, feind, gwaffe, grsmat, gabzug, gkateg As String
Global grundwert, zusatzwert, rs, be, fkgrschaden, fkzuschaden As Integer
Global rüstung, waffe, material, rsmat, ABZUG, bogen, kateg, typus As String
Global pfeile, nkchance, fkchance, zschance, gold As Integer
Global kraftschaden, NextLevel, evtangriff, enemy, maxdam, mindam, minus As Integer
Global schaden, kgrundschaden, kzusatzschaden, kabzug, kpreis As Integer
Global kwaffe, kkateg, kmaterial, beschreibung As String
Global kmana, bier, kbe, krs, krank, vergiftet As Integer
Rem ende
Rem Trainingslager
Global amazonkampf, trainhie, trainbo, trainsp, treffer, hitchance As Integer
Rem ende
Rem Magiergilden
Global ChaosUndHölleninferno, DämmerungUndFinsternis, LichtUndFrieden, Feenstaub, sleep As Integer
Rem ende
Rem Orte
Global eifrei, frei, freisee, Reichtum, Andere, Selbst, tempelfrei As Integer
Global StPlus, IqPlus, SpPlus, zahl As Integer
Global fpunkte, hotruhe, door, truhe2, truhe3, truhe4, skeletto, muck As Integer
Global schluessel1, schluessel2, schluessel3, schluessel4, schluessel5 As Integer
Global nachteil1, nachteil2, nachteil3 As String
Global obj As String
Global altar, drachentot, stones, obelisk, lampe, rotkri As Integer
Global baum, gesicht, veil, djinn, schrankh, truheh, KRISTALLSCHLÜSSEL As Integer
Global xstark, visi, amverwesen, lähmung, schild, ranken As Integer
Rem ende
Rem Sonstiges
Global altpreis, zf, skorp As Integer
Global arcano As Integer
Global zkg As String
Global a, art, wetter, zombie As String
Global Uitem As Integer
Global wirkung, book As String
Global zweig1, zweig2, zweig3, KristallseeFertig As Integer
Rem ende
Rem Auftragsdaten
Global yyPfeile, yyork, yymittel, yyrolle, yyfreund As Integer
Rem ende

/trunk/Schatten über Aysalia/DragonDataSub.bas
0,0 → 1,336
Attribute VB_Name = "Module2"
Public Const HandCursor = 32649&
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Function FileExists(Datei As String) As Boolean
On Error Resume Next
FileExists = Dir$(Datei) <> ""
FileExists = FileExists And Err = 0
On Error GoTo 0
End Function
Public Function GetPath() As String
If Right(App.Path, 1) = "\" Then
GetPath = App.Path
Else
GetPath = App.Path & "\"
End If
End Function
Sub Angriff3()
Randomize Timer
evtangriff = Int(20 * Rnd)
If evtangriff = 1 Then Whichenemy5
End Sub
Sub Whichenemy5()
Randomize Timer
enemy = Int(13 * Rnd)
If enemy <= 3 Then GoTo Ratte
If enemy = 4 Then GoTo Skelett
If enemy = 6 Then GoTo Geist
If enemy = 7 Then GoTo Höhlenmensch
If enemy = 9 Then GoTo zombie
If enemy = 10 Then GoTo Ghul
If enemy > 10 Then GoTo Nekromant
GoTo accel4
Ratte:
art = "kr": explus = 1: feind = "Ratte"
gwaffe = "Zähne": gmat = "": ggrundwert = 1: gzusatzwert = 3: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 5: gmp = 0: gspeed = 20: gstrength = 5
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
GoTo accel4
Skelett:
art = "un": explus = 25: feind = "Skelett"
gwaffe = "Rostiges Schwert": gmat = "Stahl": ggrundwert = 2: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "": grs = 0: grsmat = "": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 25: gmp = 0: gspeed = 42: gstrength = 46
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
GoTo accel4
Geist:
art = "un": explus = 40: feind = "Geist"
gwaffe = "Geisterhand": gmat = "": ggrundwert = 5: gzusatzwert = 2: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 40: gmp = 0: gspeed = 55: gstrength = 30
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
GoTo accel4
Höhlenmensch:
art = "me": explus = 25: feind = "Höhlenmensch"
gwaffe = "Jagdspieß": gmat = "Holz": ggrundwert = 1: gzusatzwert = 6: gabzug = 1: gkateg = "Sp": grust = "": grs = 0: grsmat = "": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 30: gmp = 0: gspeed = 53: gstrength = 51
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
GoTo accel4
zombie:
art = "un": explus = 20: feind = "Zombie"
gwaffe = "Faust": gmat = "": ggrundwert = 3: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 25: gmp = 0: gspeed = 42: gstrength = 48
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
GoTo accel4
Ghul:
art = "un": explus = 30: feind = "Ghul"
gwaffe = "Faust": gmat = "": ggrundwert = 3: gzusatzwert = 5: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 40: gmp = 0: gspeed = 40: gstrength = 54
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
GoTo accel4
Nekromant:
art = "zau": explus = 50: feind = "Nekromant"
gwaffe = "Opferdolch": gmat = "Vulkaneisen": ggrundwert = 3: gzusatzwert = 1: gabzug = 0: gkateg = "Sch": grust = "Schwarze Robe": grs = 0: grsmat = "Leder": gbe = 0
If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
ghp = 30: gmp = 30: gspeed = 35: gstrength = 40
Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
accel4:
End Sub
Sub SchlafenGehen()
bier = 0
Randomize Timer
wettera = Int(4 * Rnd)
If wettera = 0 Then wetter = "Klar"
If wettera = 1 Then wetter = "Regen"
If wettera = 2 Then wetter = "Sonnig"
If wettera = 3 Then wetter = "Klar"
schritt = 0
Randomize Timer
plushp = Int(8 * Rnd) + 1
If hp = STARThp Then plushp = 0
If vergiftet = 1 Then
If hp - 6 <= 0 Then
MsgBox "Du erliegst deiner Vergiftung!"
hp = hp - 6
Exit Sub
Else
MsgBox "Du erleidest durch die Vergiftung 6 Schadenspunkte"
hp = hp - 6
GoTo max
End If
End If
If krank = 1 Then plushp = 0: GoTo max
hp = hp + plushp
max:
If hp > STARThp Then hp = STARThp
a = "Du regenerierst " + Str(plushp) + " Lebenspunkte."
MsgBox a, 64 + 0, "Regeneration"
End Sub
Sub Fehler()
MsgBox "Nicht genügend Punkte übrig!", 64 + 0, "Fehler:"
End Sub
Sub CheckLive()
If hp <= 0 Then Unload Kampf: Unload Landkarte: Tot.Show: GoTo nix
If ghp <= 0 Then GetExperience: Winner
nix:
End Sub
Sub GetExperience()
If typus = "Dieb" Then explus = explus + 15
experience = experience + explus
If experience >= NextLevel Then LevelFort.Show (vbModal)
End Sub
Sub Winner()
xtark = 0: visi = 0: amverwesen = 0: lähmung = 0: schild = 0: ranken = 0
Unload Kampf
If woher = "Amazon" Then
MsgBox "Nun gut! Du hast dich als würdig erwiesen, trete ein.", 64 + 0, "Valena, die Amazonenkönigin"
amazonkampf = 1
Amazon.Show
End If
If woher = "Kristallsee" Then Kristallsee.Show
If woher = "Feenwald" Then Feenwald.Show: Feenwald.Ort
If woher = "Medusa Ei" Then GetRune
If woher = "Höhlen" And feind = "Verfluchtes Skelett" Then
a = "Rubinschlüssel"
Beute.List1.AddItem a
Rem Unload Kampf
End If
If woher = "Höhlen" Then Höhlen.Show: Höhlen.Ort2
If woher = "HöhlenE2" Then HöhlenE2.Show: HöhlenE2.Ort3
If woher = "Felsen" Then Unload Kampf: Unload WsFelsen: Wüste.Show: Wüste.Shape1.Visible = False: drachentot = 1: DrachenSchatz: Wüste.Ort9
If woher = "Wüste" Then Wüste.Show: Wüste.Ort9
If woher = "Lager" Then getsplit
If woher = "Baum" Then getsplit2: baum = 1: Unload SuBaum: Sumpf.Show: Sumpf.Ort200
If woher = "Sumpf" Then Sumpf.Show: Sumpf.Ort200
If woher = "Nest" Then GetDingens
If woher = "Festung2" Then Festung2.Show: Festung2.ortFINAL2
If woher = "FINAL" Then zf = 1: Unload Beute: TheEnd.Show
If feind = "Orkhäuptling" Then yyork = 2
If woher = "LK" Then Landkarte.Show: Landkarte.City
If zf <> 1 Then Beute.Show (vbModal)
End Sub
Sub FeindZug()
Uchance
If art = "zau" Then arcanofeind
If arcano = 1 Then GoTo nonog
Randomize Timer
zahl = Int(6 * Rnd)
If zahl < 5 And visi = 1 Then Kampf.Label58.Caption = feind + " sieht dich nicht (Unsichtbar)": GoTo nonog
If lähmung > 0 Then Kampf.Label58.Caption = feind + " ist noch gelähmt und greift nicht an.": lähmung = lähmung - 1: GoTo nonog
Randomize Timer
treffer = Int(100 * Rnd)
If treffer < gspeed Then GoTo hitg Else GoTo losg
hitg:
Randomize Timer
schaden = Int(gzusatzwert * Rnd) + ggrundwert
gkraftschaden = Int(gstrength / 15)
Randomize Timer
plus = Int(gkraftschaden * Rnd)
schaden = (schaden + plus) - rs
If schild = 1 Then zahl = 3
schaden = schaden - zahl
If schaden < 0 Then schaden = 0
hp = hp - schaden
Kampf.Label58.Caption = feind + " verwundet " + nom + " mit " + Str(schaden) + " Schadenspunkten."
krankOUgift
wup
GoTo nonog
losg:
Kampf.Label58.Caption = feind + " verfehlt " + nom + "."
wup
nonog:
arcano = 0
Kampf.initial
CheckLive
End Sub
Sub RADIKAL()
kwaffe = ""
kgrundschaden = 0
kzusatzschaden = 0
kabzug = 0
kmaterial = ""
kkateg = ""
krs = 0
kbe = 0
kmana = 0
kpreis = 0
End Sub
Sub WaffeZerbirst()
waffe = ""
grundwert = 0
zusatzwert = 0
material = ""
ABZUG = 0
End Sub
Sub GetRune()
MsgBox "Du erhältst : Rune der Unendlichkeit", 64 + 0, "Objekt"
a = "Rune der Unendlichkeit"
frmInternal.List1.AddItem a
End Sub
Sub GFh22()
Beute.Show (vbModal)
End Sub
Sub DelItem()
stelle = frmInternal.List1.ListIndex
If stelle <> -1 Then frmInternal.List1.RemoveItem stelle
End Sub
Sub DrachenSchatz()
MsgBox "Du erhältst : 5000 Goldkronen", 64 + 0, "Gold erhalten"
gold = gold + 5000
MsgBox "Du erhältst zusätzlich 200 Erfahrungspunkte für deinen ersten getöteten Drachen.", 64 + 0, "Drachen getötet"
explus = 200
GetExperience
a = MsgBox("Du findest : Drachenlanze (Sp, Drachenstahl, 4-25, -15)", 64 + vbYesNo, "Objekt")
b = Val(a)
If b = vbYes And magician = 1 Then MsgBox "Diese Waffe darfst du leider nicht führen! Du musst sie zurücklassen.": GoTo no1
If b = vbYes And typus <> "Krieger" Then MsgBox "Nur Krieger dürfen diese Waffe tragen!": GoTo no1
If b = vbYes Then waffe = "Drachenlanze": kateg = "Sp": material = "Drachenstahl": ABZUG = 15: grundschaden = 4: zuschaden = 21
no1:
a = MsgBox("Du findest : Zauberspruch Drachenatem (CHAOS 0-50 40 mp)", 64 + vbYesNo, "Spell")
b = Val(a)
If b = vbYes And magician = 0 Then MsgBox "Du kannst diesen Spruch nicht lernen!": GoTo no2
If b = vbYes Then spell = "Drachenatem": Spruchbuch.Combo1.AddItem spell
no2:
End Sub
Sub getsplit()
rotkri = 1
MsgBox "Du erhältst : Roter Kristallsplitter"
a = "Roter Kristallsplitter"
frmInternal.List1.AddItem a
End Sub
Sub getsplit2()
MsgBox "Du erhältst : Purpurner Kristallsplitter"
a = "Purpurner Kristallsplitter"
frmInternal.List1.AddItem a
End Sub
Sub GetDingens()
MsgBox "Du erhältst : Grüner Kristallsplitter", 64 + 0, "Object"
a = "Grüner Kristallsplitter"
frmInternal.List1.AddItem a
MsgBox "Du erhältst 60 Goldkronen", 64 + 0, "Gold!": gold = gold + 60
Sumpf.Show
skorp = 1
Sumpf.Shape2(0).Visible = False
End Sub
Sub Uchance()
Uitem = 2
End Sub
Sub wup()
If amverwesen <> 1 Then GoTo nope22
Randomize Timer
zahl = Int(5 * Rnd) + 1
ghp = ghp - zahl
Kampf.Label57.Caption = Kampf.Label57.Caption + " (+" + Str(zahl) + " SP V.wesung)"
nope22:
End Sub
Sub arcanofeind()
If gmp < 15 Then GoTo least
zahl = Int(ghp / ghpst) * 100
If zahl > 50 Then GoTo least
Randomize Timer
zahl = Int(2 * Rnd)
If zahl > 0 Then GoTo least
gmp = gmp - 15
Randomize Timer
zahl = Int(11 * Rnd) + 4
ghp = ghp + zahl
Kampf.Label58.Caption = feind + " heilt " + Str(zahl) + " Lebenspunkte"
arcano = 1
GoTo ratz
least:
Randomize Timer
zahl = Int(6 * Rnd)
If zahl = 0 And gmp >= 6 Then gmp = gmp - 6: schaden = 1: zahl = 5: zkg = "Feuerblitz": GoTo damz
If zahl = 2 And gmp >= 12 Then gmp = gmp - 12: schaden = 3: zahl = 9: zkg = "Feuerball": GoTo damz
If zahl = 5 And gmp >= 20 Then gmp = gmp - 20: schaden = 1: zahl = 19: zkg = "Schattenblitz": GoTo damz
GoTo ratz
damz:
Randomize Timer
schaden = Int(zahl * Rnd) + schaden
hp = hp - schaden
Kampf.Label58.Caption = feind + "s " + zkg + " fügt dir " + Str(schaden) + " Schadenspunkte zu!"
arcano = 1
ratz:
End Sub
Sub krankOUgift()
Randomize Timer
zahl = Int(6 * Rnd)
If zahl < 5 Then GoTo nixdavon
If feind = "Riesenskorpion" Or feind = "Schlange" Or feind = "Riesenschlange" Then itsGIFT
If art = "un" Or feind = "Pestbringer" Or feind = "Hyäne" Or feind = "Ratte" Then itsKRANK
nixdavon:
End Sub
Sub itsGIFT()
Kampf.Label58.Caption = Kampf.Label58.Caption + " (VERGIFTET!)"
vergiftet = 1
End Sub
Sub itsKRANK()
Kampf.Label58.Caption = Kampf.Label58.Caption + " (KRANK!)"
krank = 1
End Sub

/trunk/Schatten über Aysalia/FESTUNG.frm
0,0 → 1,197
VERSION 5.00
Begin VB.Form FESTUNG
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "FESTUNG"
ClientHeight = 5250
ClientLeft = 0
ClientTop = 0
ClientWidth = 4485
KeyPreview = -1 'True
LinkTopic = "FESTUNG"
Picture = "FESTUNG.frx":0000
ScaleHeight = 5250
ScaleWidth = 4485
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X A J E K's F E S T U N G"
BeginProperty Font
Name = "Courier New"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 270
Left = 120
TabIndex = 3
Top = 4560
Width = 3900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Verlassen"
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 = 3480
TabIndex = 2
Top = 4920
Width = 930
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0C0&
Height = 135
Index = 1
Left = 1960
Shape = 3 'Circle
Top = 480
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0C0&
Height = 135
Index = 0
Left = 60
Shape = 3 'Circle
Top = 1380
Width = 135
End
Begin VB.Shape held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 1660
Shape = 3 'Circle
Top = 3780
Width = 135
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Etage höher"
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 = 1920
TabIndex = 1
Top = 840
Width = 1155
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Tür"
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 = 0
Top = 1560
Width = 315
End
End
Attribute VB_Name = "FESTUNG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub ortFINAL()
If held.Left = Shape2(1).Left And held.Top = Shape2(1).Top Then FINALfight
If held.Left = Shape2(0).Left And held.Top = Shape2(0).Top Then FESTUNG.Hide: Festung2.Show
End Sub
Sub FINALfight()
Unload FESTUNG
MsgBox "Du gehst die Treppen hoch und betrittst einen Raum. Auf dem Boden ist ein rotes leuchtendes Pentagramm aufgezeichnet, in der Mitte steht Xajek, der leise vor sich hinmurmelt. Plötzlich reisst er die Augen auf."
MsgBox "WER STÖRT MICH BEI MEINEM RITUAL? - Du? Der Auserwählte? Veil! VEIL! Grrr... Jetzt wirst du sterben!"
art = "zau": explus = 1000: feind = "Xajek"
gwaffe = "Meisterhafter Magierstab": gmat = "Schwarz": ggrundwert = 6: gzusatzwert = 8: gabzug = 0: gkateg = "": grust = "Schwarze Robe": grs = 1: grsmat = "Stoff": gbe = 1
woher = "FINAL"
ghp = 180: gmp = 320: gspeed = 75: gstrength = 68
Kampf.Show
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 < FESTUNG.Height Then
held.Top = held.Top + 100
ortFINAL
End If
End Sub
Sub Obenlauf()
If held.Top - 100 >= 0 Then
held.Top = held.Top - 100
ortFINAL
End If
End Sub
Sub Rechtslauf()
If held.Left + held.Width + 100 < FESTUNG.Width Then
held.Left = held.Left + 100
ortFINAL
End If
End Sub
Sub Linkslauf()
If held.Left - 100 >= 0 Then
held.Left = held.Left - 100
ortFINAL
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFFFFFF
End Sub
Private Sub Label3_Click()
Unload FESTUNG
Landkarte.Show
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFFFF&
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

/trunk/Schatten über Aysalia/FESTUNG.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/Schatten über Aysalia/FeKobold.frm
0,0 → 1,221
VERSION 5.00
Begin VB.Form FeKobold
BackColor = &H00004000&
BorderStyle = 0 'None
Caption = "FeKobold"
ClientHeight = 4245
ClientLeft = 0
ClientTop = 0
ClientWidth = 5325
LinkTopic = "FeKobold"
ScaleHeight = 4245
ScaleWidth = 5325
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Natürlich."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 240
Left = 360
TabIndex = 6
Top = 2640
Width = 1125
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Welche drei Rätsel?"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 240
Left = 360
TabIndex = 5
Top = 2280
Width = 2250
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Du bist sicher gekommen um die drei Rätsel zu lösen, oder?"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 195
Left = 120
TabIndex = 4
Top = 1920
Width = 5100
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Das geht dich nichts an, Kobold"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 360
TabIndex = 3
Top = 1320
Width = 3405
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Name"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 360
TabIndex = 2
Top = 960
Width = 750
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Hallo! Ich bin Blubub, und wer bist du?"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FF80&
Height = 195
Left = 120
TabIndex = 1
Top = 600
Width = 3330
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Blubub der Kobold"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 240
Left = 120
TabIndex = 0
Top = 120
Width = 1935
End
End
Attribute VB_Name = "FeKobold"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Label3.Caption = "- Ich bin " + nom
End Sub
Private Sub Label3_Click()
frei = 1
Label5.ForeColor = &H80FF80
Label6.ForeColor = &HFF8080
Label7.ForeColor = &HFF8080
Feenwald.Shape4.Visible = False
End Sub
Private Sub Label3_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 Label4_Click()
Rausmchiss
End Sub
Private Sub Label4_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 Label6_Click()
If frei = 0 Then GoTo nix
MsgBox "Och, die drei Rätsel der >Rune der Dunkelheit< natürlich. Du langweilst mich.", 64 + 0, "Blubub der Kobold"
Rausmchiss
nix:
End Sub
Sub Rausmchiss()
MsgBox "Plötzlich befindest du dich wieder außerhalb des Hauses, im Feenwald.", 64 + 0, "Ereignis"
Unload FeKobold
Feenwald.Show
frei = 0
End Sub
Private Sub Label7_Click()
If frei = 0 Then GoTo nix2
MsgBox "Gut. Dann kann es ja losgehen!", 64 + 0, "Blubub der Kobold"
Q1$ = InputBox("Leise schleiche ich, auf leisem Fuße hüt' ich mich, Kommt ein Mäuserich zu nahe mir, verschling ich ihn mit Gier. Was bin ich?", "Das 1. Rätsel", "")
If Q1$ = "Katze" Or Q1$ = "katze" Then MsgBox "Richtig!" Else Rausmchiss: GoTo nix2
Q2$ = InputBox("Von allen gesehen, kann mich doch keiner berühren. Ich bin neu und doch alt und wandere viel. Ich bin nicht aus Silber, obwohl ich silbern erschein', und jeder weiß, dass ich den Liebenden Träume schenke. Wer bin ich?", "Das 2. Rätsel", "")
If Q2$ = "Mond" Or Q1$ = "mond" Then MsgBox "Richtig!" Else Rausmchiss: GoTo nix2
Q3$ = InputBox("Keiner kann mich sehen, und doch bewege ich mich, verschlinge Berge und Städte und nie werd' ich satt. Was bin ich?", "Das 3.Rätsel", "")
If Q3$ = "Zeit" Or Q1$ = "zeit" Then MsgBox "Richtig!" Else Rausmchiss: GoTo nix2
MsgBox "Endlich! Die Rätsel sind gelöst, ich bin frei! Hier, dein Preis.", 64 + 0, "Blubub der Kobold"
MsgBox "Du erhältst : Rune der Dunkelheit"
a = "Rune der Dunkelheit"
frmInternal.List1.AddItem a
MsgBox "Du verlässt das Haus und plötzlich geht es in Flammen aus, bis nur noch Asche übrig bleibt."
frei = 2
Feenwald.Show
Unload FeKobold
nix2:
End Sub

/trunk/Schatten über Aysalia/FeMedusaEi.frm
0,0 → 1,108
VERSION 5.00
Begin VB.Form FeMedusaEi
BackColor = &H00404000&
BorderStyle = 0 'None
Caption = "FeMedusaEi"
ClientHeight = 2520
ClientLeft = 0
ClientTop = 0
ClientWidth = 5655
LinkTopic = "FeMedusaEi"
ScaleHeight = 2520
ScaleWidth = 5655
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Vorsichtig mit der Hand auseinanderbrechen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 360
TabIndex = 2
Top = 1680
Width = 4620
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mit Waffe zerschlagen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 360
TabIndex = 1
Top = 1320
Width = 2295
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"FeMedusaEi.frx":0000
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFC0&
Height = 1035
Left = 120
TabIndex = 0
Top = 120
Width = 5340
End
End
Attribute VB_Name = "FeMedusaEi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label2_Click()
MsgBox "Du holst aus und schmetterst " + waffe + " auf das Ei. Das Ei zerbirst und der Körper entpuppt sich als eine Medusa, die dich angreift.", 64 + 0, "Ereignis"
Kreaturr
End Sub
Private Sub Label2_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 Label3_Click()
MsgBox "Du berührst das Ei und plötzlich zerspringt es und du wirst durch die Explosion weggeschleudert. Eine Medusa erwacht. (12 Schadenspunkte)", 64 + 0, "Ereignis"
Kreaturr
End Sub
Sub Kreaturr()
art = "kr": explus = 65: feind = "Medusa"
gwaffe = "Blick": gmat = "": ggrundwert = 2: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Medusa Ei"
ghp = 40: gmp = 10: gspeed = 35: gstrength = 45
Feenwald.Shape4.Visible = False
eifrei = 1: Feenwald.Show: Kampf.Show: Unload FeMedusaEi
End Sub
Private Sub Label3_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

/trunk/Schatten über Aysalia/FeMedusaEi.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/Schatten über Aysalia/FeSchatz.frm
0,0 → 1,194
VERSION 5.00
Begin VB.Form FeSchatz
BackColor = &H00404040&
BorderStyle = 0 'None
Caption = "FeSchatz"
ClientHeight = 3435
ClientLeft = 0
ClientTop = 0
ClientWidth = 3435
LinkTopic = "FeSchatz"
ScaleHeight = 3435
ScaleWidth = 3435
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Cancel = -1 'True
Caption = "Verlassen"
Default = -1 'True
Height = 255
Left = 2520
Style = 1 'Graphical
TabIndex = 4
Top = 3120
Visible = 0 'False
Width = 855
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schatz der schwarzen Feen"
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 = 240
Left = 240
TabIndex = 3
Top = 120
Width = 2835
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nichts"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 840
TabIndex = 2
Top = 2280
Width = 660
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nichts"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 840
TabIndex = 1
Top = 1560
Width = 660
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Nichts"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 840
TabIndex = 0
Top = 840
Width = 660
End
End
Attribute VB_Name = "FeSchatz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload FeSchatz
Feenwald.Show
End Sub
Private Sub Form_Load()
MsgBox "Der Altar zerspringt und weiße Flügel treten aus aus ihm hervor, dann erhebt sich eine weiße Fee aus dem Stein.", 64 + 0, "Ereignis"
MsgBox "Der Schatz der schwarzen Feen ist nun deiner. Und viel Glück auf deiner Mission.", 64 + 0, "Eine weiße Fee"
If Reichtum = 1 Then Label1.Caption = "600 Goldkronen"
If Reichtum = 2 Then Label1.Caption = "Stein der Weisheit"
If Reichtum = 3 Then Label1.Caption = "Elixier"
If Selbst = 1 Then Label2.Caption = "Axt der Dunkelheit"
If Selbst = 2 Then Label2.Caption = "Feenstaub"
If Selbst = 3 Then Label2.Caption = "Zauberspruch 'Hölleninferno'"
If Andere = 1 Then Label3.Caption = "Trank der Unsichtbarkeit"
If Andere = 2 Then Label3.Caption = "Feenstab"
If Andere = 3 Then Label3.Caption = "Stein der Kraft"
End Sub
Private Sub Label1_Click()
If Label1.Caption = "" Then GoTo nix1
If Label1.Caption = "600 Goldkronen" Then gold = gold + 600
If Label1.Caption = "Stein der Weisheit" Then MsgBox "Intelligenz +5", 64 + 0, "Weisheit": Iq = Iq + 5
If Label1.Caption = "Elixier" Then a = "Elixier": frmInternal.List1.AddItem a
Label1.Caption = ""
nix1:
If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" Then Command1_Click
End Sub
Private Sub Label1_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()
If Label2.Caption = "" Then GoTo nix2
If Label2.Caption = "Axt der Dunkelheit" Then GetAxt
If Label2.Caption = "Feenstaub" Then a = "Feenstaub": frmInternal.List1.AddItem a
If Label2.Caption = "Zauberspruch 'Hölleninferno'" And magician = 1 Then a = "Hölleninferno": Spruchbuch.Combo1.AddItem a: If magician = 0 Then MsgBox "Du kannst das nicht lernen!"
Label2.Caption = ""
nix2:
If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" Then Command1_Click
End Sub
Private Sub Label2_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 Label3_Click()
If Label3.Caption = "" Then GoTo nix3
If Label3.Caption = "Trank der Unsichtbarkeit" Then a = "Trank der Unsichtbarkeit": frmInternal.List1.AddItem a
If Label3.Caption = "Feenstab" Then getstaff
If Label3.Caption = "Stein der Kraft" Then MsgBox "Stärke +5", 64 + 0, "Kraft": Strength = Strength + 5
Label3.Caption = ""
nix3:
If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" Then Command1_Click
End Sub
Sub GetAxt()
a = MsgBox("Werte : 5-25 / Ax / Schwarz / 10", vbYesNo + 0, "Axt der Dunkelheit")
b = Val(a)
If magician = 0 Then b = vbNo: MsgBox "Als Zauberkundiger kannst du diese Waffe nicht führen!"
If b = vbYes Then waffe = "Axt der Dunkelheit": grundwert = 5: zusatzwert = 20: kateg = "Ax": material = "Schwarz": ABZUG = 10
If b = vbNo Then MsgBox "Axt wird ins frmInternal.List1 abgelegt": a = "Axt der Dunkelheit": frmInternal.List1.AddItem a
End Sub
Sub getstaff()
a = MsgBox("Werte : 3-15 / Sp / Magisch / 1", vbYesNo + 0, "Axt der Dunkelheit")
b = Val(a)
If b = vbYes Then waffe = "Feenstab": grundwert = 3: zusatzwert = 12: kateg = "Sp": material = "Magisch": ABZUG = 1
If b = vbNo Then MsgBox "Feenstab wird ins frmInternal.List1 abgelegt": a = "Feenstab": frmInternal.List1.AddItem a
End Sub
Private Sub Label3_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

/trunk/Schatten über Aysalia/FeSee.frm
0,0 → 1,445
VERSION 5.00
Begin VB.Form FeSee
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "FeSee"
ClientHeight = 7920
ClientLeft = 0
ClientTop = 0
ClientWidth = 7140
LinkTopic = "FeSee"
ScaleHeight = 7920
ScaleWidth = 7140
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Ich diene garkeinem."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 15
Top = 6960
Width = 2310
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Ich diene dem Schöpfer der Erde."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 14
Top = 6600
Width = 3615
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Ich diene nur der Dunkelheit."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 13
Top = 6240
Width = 3090
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = """Wem dienst du?"""
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 240
TabIndex = 12
Top = 5880
Width = 1845
End
Begin VB.Label Label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Ich bin ein weiser Mann."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 11
Top = 5400
Width = 2610
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Als ein Lebewesen, wie jedes andere auf dieser Welt."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 10
Top = 5040
Width = 5685
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Ich bin ein mächtiger Krieger."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 9
Top = 4680
Width = 3150
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = """Als was siehst du dich?"""
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 240
TabIndex = 8
Top = 4320
Width = 2595
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Garnichts, das Leben ist, was mir am meisten bedeutet."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 7
Top = 3720
Width = 5820
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Nicht so viel, wie Wissen."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 6
Top = 3360
Width = 2775
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "- Ich würde dafür töten."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 360
TabIndex = 5
Top = 3000
Width = 2340
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = """Wieviel, Abenteurer, bedeutet dir Reichtum?"""
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 240
TabIndex = 4
Top = 2640
Width = 4740
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Die Statue und der Stein beginnen zu beben. Es bilden sich flammige Augen und Mundwerk in der Statue."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 615
Left = 240
TabIndex = 3
Top = 2040
Width = 6135
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Mit Statue sprechen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 480
TabIndex = 2
Top = 1200
Width = 2055
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Statue berühren"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 480
TabIndex = 1
Top = 840
Width = 1650
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Ein Silberglänzender Stein ragt aus dem See empor. Darauf steht eine Statue in Form eines Feuerdämons."
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 = 615
Left = 240
TabIndex = 0
Top = 240
Width = 6495
End
End
Attribute VB_Name = "FeSee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label10_Click()
Selbst = 1
weiter2
End Sub
Private Sub Label11_Click()
Selbst = 2
weiter2
End Sub
Private Sub Label12_Click()
Selbst = 3
weiter2
End Sub
Private Sub Label14_Click()
Andere = 1
weiter3
End Sub
Private Sub Label15_Click()
Andere = 2
weiter3
End Sub
Private Sub Label16_Click()
Andere = 3
weiter3
End Sub
Private Sub Label2_Click()
MsgBox "Als du die Statue berührst, schlagen Flammen um dich und es bildet sich ein Feuerdämon.", 64 + 0, "Ereignis"
art = "da": explus = 80: feind = "Feuerdämon"
gwaffe = "Flammen": gmat = "": ggrundwert = 5: gzusatzwert = 15: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Schwarzer See"
ghp = 80: gmp = 40: gspeed = 45: gstrength = 45
Kampf.Show
End Sub
Private Sub Label2_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 Label3_Click()
MsgBox "Du sprichst die Statue an, und fragst was es mit dem Tempel der schwarzen Feen auf sich hat.", 64 + 0, "Folge"
Label4.ForeColor = &HFFFFFF
Label5.ForeColor = &HFFFF&
Label6.ForeColor = &HFF8080
Label7.ForeColor = &HFF8080
Label8.ForeColor = &HFF8080
End Sub
Private Sub Label3_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 Label6_Click()
Reichtum = 1
weiter1
End Sub
Sub weiter1()
If Label4.ForeColor = &H0& Then GoTo nix
Label9.ForeColor = &HFFFF&
Label10.ForeColor = &HFF8080
Label11.ForeColor = &HFF8080
Label12.ForeColor = &HFF8080
nix:
End Sub
Private Sub Label7_Click()
Reichtum = 2
weiter1
End Sub
Private Sub Label8_Click()
Reichtum = 3
weiter1
End Sub
Sub weiter2()
If Label9.ForeColor = &H0& Then GoTo nix2
Label13.ForeColor = &HFFFF&
Label14.ForeColor = &HFF8080
Label15.ForeColor = &HFF8080
Label16.ForeColor = &HFF8080
nix2:
End Sub
Sub weiter3()
If Label13.ForeColor = &H0& Then GoTo nix3
MsgBox "Du darfst gehen. Aber nimm dies noch mit.", 64 + 0, "Statue"
MsgBox "Du erhältst : Rune der Zeit"
a = "Rune der Zeit"
frmInternal.List1.AddItem a
If Reichtum > 0 And Selbst > 0 And Andere > 0 Then MsgBox "Du erhältst 100 Erfahrungspunkte!"
freisee = 1
Feenwald.Shape3.Visible = False
Feenwald.Show
Unload FeSee
nix3:
End Sub

/trunk/Schatten über Aysalia/FeTempel.frm
0,0 → 1,334
VERSION 5.00
Begin VB.Form FeTempel
BackColor = &H00404040&
BorderStyle = 0 'None
Caption = "FeTempel"
ClientHeight = 3690
ClientLeft = 0
ClientTop = 0
ClientWidth = 6540
LinkTopic = "FeTempel"
ScaleHeight = 3690
ScaleWidth = 6540
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
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 = 5160
Style = 1 'Graphical
TabIndex = 10
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command1
BackColor = &H00808080&
Height = 855
Left = 5160
Style = 1 'Graphical
TabIndex = 6
Top = 1200
Width = 975
End
Begin VB.Label Label61
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "#Gegenstand"
ForeColor = &H00FFFFFF&
Height = 195
Left = 1920
TabIndex = 12
Top = 2280
Width = 975
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Wenn die Unendlichkeit die Zeit überholt, ist die Dunkelheit nahe!"
ForeColor = &H00FF8080&
Height = 255
Left = 360
TabIndex = 11
Top = 3240
Width = 5895
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "entnehmen"
ForeColor = &H0000FFFF&
Height = 195
Left = 3240
TabIndex = 9
Top = 1800
Width = 795
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "entnehmen"
ForeColor = &H0000FFFF&
Height = 195
Left = 1800
TabIndex = 8
Top = 1800
Width = 795
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "entnehmen"
ForeColor = &H0000FFFF&
Height = 195
Left = 360
TabIndex = 7
Top = 1800
Width = 795
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Klicke auf die Felder, um die ausgewählte Rune einzufügen."
ForeColor = &H00FFFFFF&
Height = 195
Left = 360
TabIndex = 5
Top = 2760
Width = 4245
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Inventar öffnen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 360
TabIndex = 4
Top = 2280
Width = 1320
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Runenfassung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 3240
TabIndex = 3
Top = 1200
Width = 1215
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Runenfassung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 1800
TabIndex = 2
Top = 1200
Width = 1215
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Runenfassung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 360
TabIndex = 1
Top = 1200
Width = 1215
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Umgestürzte schwarze Säulen und ein Altar zeichnen den Tempel der schwarzen Feen."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 615
Left = 240
TabIndex = 0
Top = 240
Width = 6135
End
End
Attribute VB_Name = "FeTempel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Label2.Caption = "Rune der Unendlichkeit" And Label3.Caption = "Rune der Zeit" And Label4.Caption = "Rune der Dunkelheit" Then Unload FeTempel: Feenwald.Shape2.Visible = False: tempelfrei = 1: FeSchatz.Show
End Sub
Private Sub Command2_Click()
FeTempel.Hide
Feenwald.Show
End Sub
Private Sub Form_Load()
Label61.Caption = frmInternal.List1.Text
End Sub
Private Sub Label2_Click()
Prüfen
If a = "" Then MsgBox "Das passt nicht!": GoTo nix1
If Label2.Caption <> "Runenfassung" Then frmInternal.List1.AddItem Label2.Caption
Label2.Caption = frmInternal.List1.Text
lEintrag
Label61.Caption = ""
nix1:
End Sub
Private Sub Label2_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 Label3_Click()
Prüfen
If a = "" Then MsgBox "Das passt nicht!": GoTo nix2
If Label3.Caption <> "Runenfassung" Then frmInternal.List1.AddItem Label3.Caption
Label3.Caption = frmInternal.List1.Text
lEintrag
Label61.Caption = ""
nix2:
End Sub
Private Sub Label3_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 Label4_Click()
Prüfen
If a = "" Then MsgBox "Das passt nicht!": GoTo nix3
If Label4.Caption <> "Runenfassung" Then frmInternal.List1.AddItem Label4.Caption
Label4.Caption = frmInternal.List1.Text
lEintrag
Label61.Caption = ""
nix3:
End Sub
Private Sub Label4_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 Label5_Click()
ObjectSelect.Show (vbModal)
Label61.Caption = frmInternal.List1.Text
End Sub
Sub Prüfen()
a = ""
If Label61.Caption = "Rune der Dunkelheit" Then a = "ok"
If Label61.Caption = "Rune der Zeit" Then a = "ok"
If Label61.Caption = "Rune der Unendlichkeit" Then a = "ok"
End Sub
Sub lEintrag()
stelle = frmInternal.List1.ListIndex
If stelle <> 0 Then frmInternal.List1.RemoveItem stelle
End Sub
Private Sub Label5_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 Label7_Click()
If Label2.Caption = "Runenfassung" Then GoTo nix11
frmInternal.List1.AddItem Label2.Caption
Label2.Caption = "Runenfassung"
nix11:
End Sub
Private Sub Label7_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 Label8_Click()
If Label3.Caption = "Runenfassung" Then GoTo nix22
frmInternal.List1.AddItem Label3.Caption
Label3.Caption = "Runenfassung"
nix22:
End Sub
Private Sub Label8_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 Label9_Click()
If Label4.Caption = "Runenfassung" Then GoTo nix33
frmInternal.List1.AddItem Label4.Caption
Label4.Caption = "Runenfassung"
nix33:
End Sub
Private Sub Label9_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

/trunk/Schatten über Aysalia/Feenwald.frm
0,0 → 1,323
VERSION 5.00
Begin VB.Form Feenwald
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Feenwald"
ClientHeight = 5835
ClientLeft = 0
ClientTop = 0
ClientWidth = 7485
KeyPreview = -1 'True
LinkTopic = "Feenwald"
Picture = "Feenwald.frx":0000
ScaleHeight = 5835
ScaleWidth = 7485
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Shape Shape4
BorderColor = &H0000FFFF&
Height = 135
Left = 1460
Shape = 3 'Circle
Top = 3680
Width = 135
End
Begin VB.Shape Shape3
BorderColor = &H0000FFFF&
Height = 135
Left = 5060
Shape = 3 'Circle
Top = 3180
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H0000FFFF&
Height = 135
Left = 2160
Shape = 3 'Circle
Top = 2080
Width = 135
End
Begin VB.Shape Shape1
BorderColor = &H0000FFFF&
Height = 135
Left = 4660
Shape = 3 'Circle
Top = 880
Width = 135
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "D E R F E E N W A L D"
BeginProperty Font
Name = "Courier New"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 270
Left = 120
TabIndex = 5
Top = 5400
Width = 3450
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Verlassen"
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 = 6480
TabIndex = 4
Top = 5520
Width = 870
End
Begin VB.Shape Held2
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 4860
Shape = 3 'Circle
Top = 1080
Width = 135
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Das Haus des Kobold"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 4920
TabIndex = 0
Top = 840
Width = 1815
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Tempel der schwarzen Feen"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 2400
TabIndex = 2
Top = 2040
Width = 2370
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Der Schwarze See"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 5160
TabIndex = 1
Top = 3360
Width = 1500
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Das Ei der Medusa"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 1680
TabIndex = 3
Top = 3480
Width = 1515
End
End
Attribute VB_Name = "Feenwald"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub Angriff2()
Randomize Timer
evtangriff = Int(10 * Rnd)
If evtangriff = 1 Then WhichEnemy2
End Sub
Sub WhichEnemy2()
Randomize Timer
enemy = Int(13 * Rnd)
If enemy <= 5 Then GoTo Schlange
If enemy = 6 Then GoTo SchwarzeFee
If enemy = 7 Then GoTo SteinFee
If enemy = 9 Then GoTo Höllenwolf
If enemy = 11 Then GoTo Ghul
If enemy = 13 Then GoTo Dunkelelf
If enemy = 16 Then GoTo Lindwurm
GoTo Accel2
Schlange:
art = "kr": explus = 10: feind = "Schlange"
gwaffe = "Biss": gmat = "": ggrundwert = 1: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Feenwald"
ghp = 10: gmp = 0: gspeed = 70: gstrength = 15
Feenwald.Hide: Kampf.Show
GoTo Accel2
SchwarzeFee:
art = "kr": explus = 20: feind = "Schwarze Fee"
gwaffe = "Krallen": gmat = "": ggrundwert = 3: gzusatzwert = 1: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Feenwald"
ghp = 20: gmp = 0: gspeed = 51: gstrength = 35
Feenwald.Hide: Kampf.Show
GoTo Accel2
SteinFee:
art = "kr": explus = 25: feind = "Steinfee"
gwaffe = "Blick": gmat = "": ggrundwert = 1: gzusatzwert = 6: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Feenwald"
ghp = 30: gmp = 0: gspeed = 40: gstrength = 45
Feenwald.Hide: Kampf.Show
GoTo Accel2
Höllenwolf:
art = "kr": explus = 30: feind = "Höllenwolf"
gwaffe = "Kiefer": gmat = "": ggrundwert = 2: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Feenwald"
ghp = 20: gmp = 0: gspeed = 62: gstrength = 48
Feenwald.Hide: Kampf.Show
GoTo Accel2
Ghul:
art = "un": explus = 35: feind = "Ghul"
gwaffe = "Krallen": gmat = "": ggrundwert = 3: gzusatzwert = 1: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Feenwald"
ghp = 40: gmp = 0: gspeed = 38: gstrength = 55
Feenwald.Hide: Kampf.Show
GoTo Accel2
Dunkelelf:
art = "zau": explus = 40: feind = "Dunkelelf"
gwaffe = "Schwert": gmat = "Schwarz": ggrundwert = 4: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "Lederharnisch": grs = 3: grsmat = "Leder": gbe = 3
woher = "Feenwald"
ghp = 30: gmp = 30: gspeed = 64: gstrength = 46
Feenwald.Hide: Kampf.Show
GoTo Accel2
Lindwurm:
art = "kr": explus = 65: feind = "Lindwurm"
gwaffe = "Kiefer": gmat = "": ggrundwert = 6: gzusatzwert = 6: gabzug = 0: gkateg = "": grust = "Schuppen": grs = 3: grsmat = "": gbe = 0
woher = "Feenwald"
ghp = 60: gmp = 0: gspeed = 60: gstrength = 45
Feenwald.Hide: Kampf.Show
Accel2:
End Sub
Sub Ort()
If Held2.Left = Shape3.Left And Held2.Top = Shape3.Top And freisee <> 1 Then Feenwald.Hide: FeSee.Show
If Held2.Left = Shape1.Left And Held2.Top = Shape1.Top And frei <> 2 Then Feenwald.Hide: FeKobold.Show
If Held2.Left = Shape2.Left And Held2.Top = Shape2.Top And tempelfrei <> 1 Then Feenwald.Hide: FeTempel.Show
If Held2.Left = Shape4.Left And Held2.Top = Shape4.Top And eifrei <> 1 Then Feenwald.Hide: FeMedusaEi.Show
End Sub
Private Sub Form_Activate()
If frei = 2 Then Label1.Caption = "Asche eines Hauses"
If eifrei = 1 Then Label4.Caption = "Scherben des Medusa Eies"
End Sub
Private Sub Form_Load()
Shape3.Visible = (freisee <> 1)
Shape1.Visible = (frei <> 1)
Shape2.Visible = (tempelfrei <> 1)
Shape4.Visible = (eifrei <> 1)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFFFFFF
End Sub
Private Sub Label5_Click()
Landkarte.Show
Unload Feenwald
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 Held2.Top + Held2.Height + 100 < Feenwald.Height Then
Held2.Top = Held2.Top + 100
Ort
Angriff2
End If
End Sub
Sub Obenlauf()
If Held2.Top - 100 >= 0 Then
Held2.Top = Held2.Top - 100
Ort
Angriff2
End If
End Sub
Sub Rechtslauf()
If Held2.Left + Held2.Width + 100 < Feenwald.Width Then
Held2.Left = Held2.Left + 100
Ort
Angriff2
End If
End Sub
Sub Linkslauf()
If Held2.Left - 100 >= 0 Then
Held2.Left = Held2.Left - 100
Ort
Angriff2
End If
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFFFF&
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

/trunk/Schatten über Aysalia/Feenwald.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/Schatten über Aysalia/Festung2.frm
0,0 → 1,297
VERSION 5.00
Begin VB.Form Festung2
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Festung2"
ClientHeight = 5175
ClientLeft = 0
ClientTop = 0
ClientWidth = 4500
KeyPreview = -1 'True
LinkTopic = "Festung2"
Picture = "Festung2.frx":0000
ScaleHeight = 5175
ScaleWidth = 4500
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X A J E K's F E S T U N G"
BeginProperty Font
Name = "Courier New"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 270
Left = 120
TabIndex = 5
Top = 4560
Width = 3900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Verlassen"
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 = 3480
TabIndex = 4
Top = 4800
Width = 930
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0C0&
Height = 135
Index = 4
Left = 1960
Shape = 3 'Circle
Top = 1580
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0C0&
Height = 135
Index = 3
Left = 160
Shape = 3 'Circle
Top = 1380
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0C0&
Height = 135
Index = 1
Left = 1660
Shape = 3 'Circle
Top = 180
Width = 135
End
Begin VB.Shape Shape2
BorderColor = &H00C0C0C0&
Height = 135
Index = 0
Left = 4360
Shape = 3 'Circle
Top = 980
Width = 135
End
Begin VB.Shape held
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Left = 3860
Shape = 3 'Circle
Top = 1580
Width = 135
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Tür"
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 = 4080
TabIndex = 0
Top = 1080
Width = 315
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Truhe"
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 = 1920
TabIndex = 1
Top = 240
Width = 555
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Tisch"
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 = 1920
TabIndex = 3
Top = 1800
Width = 495
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schrank"
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 = 2
Top = 1560
Width = 780
End
End
Attribute VB_Name = "Festung2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub ortFINAL2()
If veil = 1 Then GoTo ku
Randomize Timer
zahl = Int(4 * Rnd)
If zahl = 3 Then FightVeil
ku:
If held.Left = Shape2(0).Left And held.Top = Shape2(0).Top Then Festung2.Hide: FESTUNG.Show
If held.Left = Shape2(4).Left And held.Top = Shape2(4).Top Then Festung2.Hide: tisch
If held.Left = Shape2(3).Left And held.Top = Shape2(3).Top Then Festung2.Hide: schrank
If held.Left = Shape2(1).Left And held.Top = Shape2(1).Top Then Festung2.Hide: truhe
End Sub
Sub FightVeil()
art = "me": explus = 85: feind = "Veil"
gwaffe = "Veil's Schwert": gmat = "Schwarz": ggrundwert = 6: gzusatzwert = 6: gabzug = 0: gkateg = "Sch": grust = "Plattenharnisch": grs = 4: grsmat = "Stahl": gbe = 3
woher = "Veil"
ghp = 85: gmp = 0: gspeed = 55: gstrength = 55
Kampf.Show: Kampf.Label58.Caption = "'Du wagst, es die Festung des Meisters zu betreten? Dafür wirst du jetzt fallen!'"
veil = 1
End Sub
Sub tisch()
If djinn = 1 Then GoTo nix
a = MsgBox("Auf dem Tisch steht neben dem Geschir eine Flasche mit blauem Nebel. Willst du sie öffnen?", 64 + vbYesNo, "Tisch")
b = Val(a)
If b = vbYes Then GoTo djinn Else GoTo nix
djinn:
art = "da": explus = 60: feind = "Blauer Djinn"
gwaffe = "Geisterhand": gmat = "": ggrundwert = 5: gzusatzwert = 10: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
woher = "Festung2"
ghp = 55: gmp = 30: gspeed = 55: gstrength = 0
Festung2.Hide: Kampf.Show
nix:
djinn = 1
End Sub
Sub schrank()
If schrankh = 1 Then GoTo nixab
a = MsgBox("Du findest : Robe der Schwarzen (Stoff, RS5, BE1)" + Chr(13) + "Willst du diese Rüstung tragen?", 64 + 4, "Rüstung")
b = Val(a)
If b = vbYes Then rüstung = "Robe der Schwarzen": rsmat = "Stoff": rs = 5: be = 1
schrankh = 1
nixab:
Festung2.Show
End Sub
Sub truhe()
If truheh = 1 Then GoTo nob11
MsgBox "Du erhältst : Schriftrolle 'Hölleninferno'"
a = "Schriftrolle 'Hölleninferno'"
frmInternal.List1.AddItem a
MsgBox "Du erhältst : Schriftrolle 'Göttliche Heilung'"
a = "Schriftrolle 'Göttliche Heilung'"
frmInternal.List1.AddItem a
truheh = 1
nob11:
Festung2.Show
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 < Festung2.Height Then
held.Top = held.Top + 100
ortFINAL2
End If
End Sub
Sub Obenlauf()
If held.Top - 100 >= 0 Then
held.Top = held.Top - 100
ortFINAL2
End If
End Sub
Sub Rechtslauf()
If held.Left + held.Width + 100 < Festung2.Width Then
held.Left = held.Left + 100
ortFINAL2
End If
End Sub
Sub Linkslauf()
If held.Left - 100 >= 0 Then
held.Left = held.Left - 100
ortFINAL2
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFFFFFF
End Sub
Private Sub Label3_Click()
Unload Festung2
Landkarte.Show
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFFFF&
Dim lHandle As Long
lHandle = LoadCursor(0, HandCursor)
If (lHandle > 0) Then SetCursor lHandle
End Sub

/trunk/Schatten über Aysalia/Festung2.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/Schatten über Aysalia/GrRust3.frm
0,0 → 1,422
VERSION 5.00
Begin VB.Form GrRust3
BackColor = &H00400000&
BorderStyle = 0 'None
Caption = "GrRust3"
ClientHeight = 4530
ClientLeft = 0
ClientTop = 0
ClientWidth = 6840
LinkTopic = "GrRust3"
ScaleHeight = 4530
ScaleWidth = 6840
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox List1
BackColor = &H00000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 1815
ItemData = "GrRust3.frx":0000
Left = 1080
List = "GrRust3.frx":0013
TabIndex = 1
Top = 960
Width = 1575
End
Begin VB.CommandButton Command2
BackColor = &H00FF8080&
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 = 4800
Style = 1 'Graphical
TabIndex = 0
Top = 3360
Width = 1095
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 4800
TabIndex = 15
Top = 3840
Width = 750
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstschmied Gragaf"
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 345
Left = 1560
TabIndex = 14
Top = 240
Width = 2880
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 1815
Left = 2880
Top = 960
Width = 2655
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "RS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 3960
TabIndex = 13
Top = 1080
Width = 270
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstschutz"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3000
TabIndex = 12
Top = 1440
Width = 960
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Behinderung"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3000
TabIndex = 11
Top = 1800
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3000
TabIndex = 10
Top = 2160
Width = 690
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3000
TabIndex = 9
Top = 2520
Width = 435
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label7"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4200
TabIndex = 8
Top = 1440
Width = 585
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label8"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4200
TabIndex = 7
Top = 1800
Width = 585
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4200
TabIndex = 6
Top = 2160
Width = 585
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label10"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4200
TabIndex = 5
Top = 2520
Width = 690
End
Begin VB.Label Label11
BackColor = &H00400000&
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 255
Left = 2880
TabIndex = 4
Top = 2880
Width = 1095
End
Begin VB.Label Label12
BackColor = &H00400000&
Caption = "Label12"
ForeColor = &H0000FFFF&
Height = 255
Left = 4200
TabIndex = 3
Top = 2880
Width = 855
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Gragaf der Rüstschmied"
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 = 975
Left = 1080
TabIndex = 2
Top = 3360
Width = 3615
End
End
Attribute VB_Name = "GrRust3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload GrRust3
Gragook.Show
End Sub
Private Sub Form_Load()
If yyork >= 1 Then Label13.Enabled = False
RADIKAL
initial
End Sub
Private Sub Label13_Click()
a = MsgBox("Hör mir genau zu. Auf der Position x21,6 y36,8 findest du einen Orkhäuptling, der dort ein Lager aufschlägt. Töte ihn. Du bekommst 150 Goldkronen.", 64 + vbYesNo, "Gragaf")
b = Val(a)
If b = vbYes Then yyork = 1: Label13.Enabled = False
End Sub
Private Sub Label13_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()
If typus = "Paladin" And kmaterial = "Leder" Then MsgBox "Als Paladin darfst du keine Lederrüstung tragen!": GoTo nixda
If magician = 1 And kmaterial <> "Leder" Then MsgBox "Du darfst keine Metallrüstung tragen.": GoTo nixda
If gold < kpreis Then Label17.Caption = "Jau, jetzt brauchst du nur noch Geld.": GoTo nixda
gold = gold - kpreis
rüstung = kwaffe
rs = krs
be = kbe
rsmat = kmaterial
Label17.Caption = "Das wird dir helfen!"
initial
nixda:
End Sub
Private Sub Label2_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 List1_Click()
If List1.Text = "Kettenhemd" Then GoTo khemd
If List1.Text = "Lederharnisch" Then GoTo kmantel
If List1.Text = "Lederpanzer" Then GoTo spanzer
If List1.Text = "Drachenleder" Then GoTo pharnisch
If List1.Text = "Schuppenpanzer" Then GoTo ppanzer
khemd:
kwaffe = "Kettenhemd"
krs = 2
kbe = 2
kmaterial = "Stahl"
kpreis = 150
GoTo weiter
kmantel:
kwaffe = "Lederharnisch"
krs = 2
kbe = 2
kmaterial = "Leder"
kpreis = 120
GoTo weiter
spanzer:
kwaffe = "Lederpanzer"
krs = 3
kbe = 3
kmaterial = "Leder"
kpreis = 200
GoTo weiter
pharnisch:
kwaffe = "Drachenleder"
krs = 4
kbe = 3
kmaterial = "Leder"
kpreis = 300
GoTo weiter
ppanzer:
kwaffe = "Schuppenpanzer"
krs = 5
kbe = 5
kmaterial = "Stahl"
kpreis = 440
weiter:
initial
End Sub
Sub initial()
Label2.Caption = kwaffe
Label7.Caption = krs
Label8.Caption = kbe
Label9.Caption = kmaterial
Label10.Caption = kpreis
Label12.Caption = gold
End Sub

/trunk/Schatten über Aysalia/GrRust3.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/Schatten über Aysalia/GrSmith3.frm
0,0 → 1,602
VERSION 5.00
Begin VB.Form GrSmith3
BackColor = &H00000040&
BorderStyle = 0 'None
Caption = "GrSmith3"
ClientHeight = 6030
ClientLeft = 0
ClientTop = 0
ClientWidth = 7650
LinkTopic = "GrSmith3"
ScaleHeight = 6030
ScaleWidth = 7650
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox List1
BackColor = &H00404040&
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 2790
ItemData = "GrSmith3.frx":0000
Left = 1440
List = "GrSmith3.frx":0013
TabIndex = 1
Top = 1200
Width = 1815
End
Begin VB.CommandButton Command1
BackColor = &H008080FF&
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 = 5640
Style = 1 'Graphical
TabIndex = 0
Top = 4680
Width = 1215
End
Begin VB.Label Label21
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 5640
TabIndex = 22
Top = 5160
Width = 750
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffe verkaufen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 1080
TabIndex = 21
Top = 4320
Width = 1440
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "x Goldkronen l19"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 5160
TabIndex = 20
Top = 4320
Width = 1455
End
Begin VB.Label Label20
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label20"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 195
Left = 3000
TabIndex = 19
Top = 4320
Width = 690
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Orgham der Waffenschmied"
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 = 1215
Left = 1080
TabIndex = 18
Top = 4680
Width = 4455
End
Begin VB.Shape Shape1
BorderColor = &H00FF0000&
Height = 2775
Left = 3360
Top = 1200
Width = 2775
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Preis"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3600
TabIndex = 17
Top = 3600
Width = 435
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Material"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3600
TabIndex = 16
Top = 3000
Width = 690
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Abzug"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3600
TabIndex = 15
Top = 2520
Width = 540
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Kategorie"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3600
TabIndex = 14
Top = 2040
Width = 825
End
Begin VB.Label label12
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Schaden"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 195
Left = 3600
TabIndex = 13
Top = 1680
Width = 765
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label11"
ForeColor = &H0000FFFF&
Height = 195
Left = 4320
TabIndex = 12
Top = 4080
Width = 570
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 3360
TabIndex = 11
Top = 4080
Width = 825
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5160
TabIndex = 10
Top = 1680
Width = 75
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label9"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 195
Left = 4560
TabIndex = 9
Top = 3600
Width = 585
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4920
TabIndex = 8
Top = 3000
Width = 465
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "x"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5160
TabIndex = 7
Top = 2520
Width = 105
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5040
TabIndex = 6
Top = 2040
Width = 285
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 5280
TabIndex = 5
Top = 1680
Width = 285
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4860
TabIndex = 4
Top = 1680
Width = 285
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "xxxxxxxxxxxx"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Left = 4560
TabIndex = 3
Top = 1320
Width = 1095
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Orgham der Waffenschmied"
BeginProperty Font
Name = "Tahoma"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 525
Left = 840
TabIndex = 2
Top = 360
Width = 6135
End
End
Attribute VB_Name = "GrSmith3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload GrSmith3
Gragook.Show
End Sub
Private Sub Form_Load()
RADIKAL
initial
End Sub
Private Sub Label18_Click()
If waffe = "" Then GoTo kk
gold = gold + zahl
waffe = ""
grundwert = 0
zusatzwert = 0
ABZUG = 0
material = ""
kateg = ""
initial
Label17.Caption = "Danke für's Geschäft!"
kk:
End Sub
Private Sub Label18_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()
If typus = "Nekromant" Then GoTo a
If magician = 1 And kkateg = "Ax" Then MsgBox "Als Zauberkundiger darfst du keine Axt tragen!": GoTo nixda
a:
If gold < kpreis Then Label17.Caption = "Tut mir leid, aber etwas Gold bräucht ich auch noch.": GoTo nixda
gold = gold - kpreis
waffe = kwaffe
grundwert = kgrundschaden
zusatzwert = kzusatzschaden
material = kmaterial
ABZUG = kabzug
kateg = kkateg
Label17.Caption = "Gute Wahl!"
initial
nixda:
End Sub
Private Sub Label2_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 Label21_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 List1_Click()
If List1.Text = "Barbarenstreitaxt" Then GoTo schwert
If List1.Text = "Langaxt" Then GoTo breitschwert
If List1.Text = "Handaxt" Then GoTo handaxt
If List1.Text = "Streitaxt" Then GoTo streitaxt
If List1.Text = "Hellebarde" Then GoTo bischwert
schwert:
kwaffe = "Barbarenstreitaxt"
kgrundschaden = 10
kzusatzschaden = 10
kkateg = "Ax"
kabzug = 8
kmaterial = "Stahl"
kpreis = 650
initial
GoTo weiter
breitschwert:
kwaffe = "Langaxt"
kgrundschaden = 3
kzusatzschaden = 9
kkateg = "Ax"
kabzug = 5
kmaterial = "Stahl"
kpreis = 225
initial
GoTo weiter
handaxt:
kwaffe = "Handaxt"
kgrundschaden = 4
kzusatzschaden = 4
kkateg = "Ax"
kabzug = 3
kmaterial = "Stahl"
kpreis = 155
initial
GoTo weiter
streitaxt:
kwaffe = "Streitaxt"
kgrundschaden = 6
kzusatzschaden = 6
kkateg = "Ax"
kabzug = 6
kmaterial = "Stahl"
kpreis = 380
initial
GoTo weiter
bischwert:
kwaffe = "Hellebarde"
kgrundschaden = 2
kzusatzschaden = 16
kkateg = "Ax"
kabzug = 6
kmaterial = "Stahl"
kpreis = 360
initial
weiter:
End Sub
Sub initial()
Label20.Caption = waffe + " " + Str(grundwert) + "-" + Str(grundwert + zusatzwert)
zahl = grundwert + zusatzwert * 16
Label19.Caption = zahl
Label2.Caption = kwaffe
Label3.Caption = kgrundschaden
Label5.Caption = kgrundschaden + kzusatzschaden
Label6.Caption = kkateg
Label7.Caption = kabzug
Label8.Caption = kmaterial
Label9.Caption = Str(kpreis) + " Goldkronen"
Label11.Caption = gold
End Sub

/trunk/Schatten über Aysalia/GrSmith3.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/Schatten über Aysalia/GrTaverne2.frm
0,0 → 1,263
VERSION 5.00
Begin VB.Form GrTaverne2
BackColor = &H00000040&
BorderStyle = 0 'None
Caption = "GrTaverne2"
ClientHeight = 3465
ClientLeft = 0
ClientTop = 0
ClientWidth = 6090
LinkTopic = "GrTaverne2"
ScaleHeight = 3465
ScaleWidth = 6090
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
BackColor = &H008080FF&
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 = 4560
Style = 1 'Graphical
TabIndex = 0
Top = 2280
Width = 1215
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auftrag"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 240
Left = 4560
TabIndex = 9
Top = 2760
Width = 750
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Taverne ""Zum Saufenden Ork"""
BeginProperty Font
Name = "Tahoma"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 840
TabIndex = 8
Top = 240
Width = 4740
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bier bestellen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 240
Left = 360
TabIndex = 7
Top = 960
Width = 1455
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Zimmer mieten"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 240
Left = 360
TabIndex = 6
Top = 1320
Width = 1530
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2 Goldkronen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 240
Left = 2280
TabIndex = 5
Top = 960
Width = 1395
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "8 Goldkronen"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFC0C0&
Height = 240
Left = 2280
TabIndex = 4
Top = 1320
Width = 1395
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "Katschak, Barkeeper"
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 = 1095
Left = 360
TabIndex = 3
Top = 2040
Width = 4095
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Goldkronen"
ForeColor = &H0000FFFF&
Height = 195
Left = 2280
TabIndex = 2
Top = 1680
Width = 825
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label8"
ForeColor = &H0000FFFF&
Height = 195
Left = 3480
TabIndex = 1
Top = 1680
Width = 480
End
End
Attribute VB_Name = "GrTaverne2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload GrTaverne2
Gragook.Show
End Sub
Private Sub Form_Load()
initial
End Sub
Private Sub Label2_Click()
If gold < 2 Then Label17.Caption = "Du nix Scherze machen sonst du tot!": GoTo nixda
gold = gold - 2
bier = bier + 1
initial
nixda:
End Sub
Sub initial()
Label8.Caption = gold
If bier = 3 Then Label17.Caption = "Komm, du noch einen trinken."
If bier = 5 Then Label17.Caption = "Du viel trinken, gut für mir, trink mehr."
If bier > 7 Then bewusstlos
End Sub
Private Sub Label2_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 Label3_Click()
If gold < 8 Then Label17.Caption = "Grrrr.": GoTo nixda2
gold = gold - 8
SchlafenGehen
Unload GrTaverne2
If hp <= 0 Then Tot.Show Else Gragook.Show
nixda2:
End Sub
Sub bewusstlos()
If gold < 16 Then MsgBox "Du wirst vor Trunkenheit bewusstlos, und der Wirt setzt dich vor die Tür. -2 Lebenspunkte": GoTo nixda3
gold = gold - 16
MsgBox "Du wirst vor Trunkenheit bewusstlos und der Wirt bringt dich auf ein Zimmer und bedient sich an deiner Goldbörse. -16 Gold"
SchlafenGehen
If hp <= 0 Then Unload GrTaverne2: Tot.Show
nixda3:
initial
End Sub
Private Sub Label3_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 Label6_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

/trunk/Schatten über Aysalia/Gragook.frm
0,0 → 1,257
VERSION 5.00
Begin VB.Form Gragook
BackColor = &H00404040&
BorderStyle = 0 'None
Caption = "Gragook"
ClientHeight = 4350
ClientLeft = 0
ClientTop = 0
ClientWidth = 7035
LinkTopic = "Gragook"
ScaleHeight = 4350
ScaleWidth = 7035
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
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 = 5640
Style = 1 'Graphical
TabIndex = 7
Top = 3840
Width = 1215
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "k"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 630
Left = 6120
TabIndex = 9
Top = 600
Width = 285
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "oo"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 630
Left = 5640
TabIndex = 8
Top = 600
Width = 540
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Die Taverne ""Zum Saufenden Ork""."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 975
Left = 360
TabIndex = 6
Top = 3840
Width = 3495
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Taverne ""Zum Saufenden Ork"""
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 360
TabIndex = 5
Top = 3480
Width = 3495
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Gragaf verkauft Lederne, sowie Mettalene Rüstungen."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 735
Left = 360
TabIndex = 4
Top = 2520
Width = 3495
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Rüstschmied Gragaf"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 360
TabIndex = 3
Top = 2160
Width = 2340
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Orgham, ein Orkischer Waffenschmied verkauft in seiner Schmiede verschiedene Arten von Äxten."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 735
Left = 360
TabIndex = 2
Top = 1200
Width = 3495
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Waffenschmied Orgham"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 360
TabIndex = 1
Top = 840
Width = 2745
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Grag"
BeginProperty Font
Name = "Times New Roman"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H008080FF&
Height = 630
Left = 4440
TabIndex = 0
Top = 600
Width = 1245
End
End
Attribute VB_Name = "Gragook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If yyrolle = 0 Then MsgBox "Beim verlassen der Stadt, merkst du, dass du in deiner Tasche eine 'Schriftrolle der Djinns' hast.": yyrolle = 1
Unload Gragook
Landkarte.Show
End Sub
Private Sub Label2_Click()
GrSmith3.Show
Unload Gragook
End Sub
Private Sub Label2_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 Label4_Click()
If yyork = 2 Then MsgBox "Gut gemacht. Hier, nimm das Gold.": MsgBox "Du erhältst 150 Goldkronen": MsgBox "Du erhältst 20 Erfahrungspunkte": gold = gold + 150: explus = 20: GetExperience: yyork = 3
GrRust3.Show
Unload Gragook
End Sub
Private Sub Label4_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 Label6_Click()
GrTaverne2.Show
Unload Gragook
End Sub
Private Sub Label6_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