Subversion Repositories aysalia

Compare Revisions

Regard whitespace Rev 1 → Rev 2

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