Subversion Repositories aysalia

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1 
VERSION 5.00
2 
Begin VB.Form Phaekskar
3 
   BackColor       =   &H00404040&
4 
   BorderStyle     =   0  'None
5 
   Caption         =   "Phaekskar"
6 
   ClientHeight    =   3495
7 
   ClientLeft      =   0
8 
   ClientTop       =   0
9 
   ClientWidth     =   6855
10 
   LinkTopic       =   "Phaekskar"
11 
   ScaleHeight     =   3495
12 
   ScaleWidth      =   6855
13 
   ShowInTaskbar   =   0   'False
14 
   StartUpPosition =   2  'CenterScreen
15 
   Begin VB.CommandButton Command1
16 
      BackColor       =   &H00E0E0E0&
17 
      Cancel          =   -1  'True
18 
      Caption         =   "Verlassen"
19 
      Default         =   -1  'True
20 
      BeginProperty Font
21 
         Name            =   "MS Sans Serif"
22 
         Size            =   8.25
23 
         Charset         =   0
24 
         Weight          =   700
25 
         Underline       =   0   'False
26 
         Italic          =   0   'False
27 
         Strikethrough   =   0   'False
28 
      EndProperty
29 
      Height          =   375
30 
      Left            =   4800
31 
      Style           =   1  'Graphical
32 
      TabIndex        =   5
33 
      Top             =   2520
34 
      Width           =   1335
35 
   End
36 
   Begin VB.Label Label6
37 
      AutoSize        =   -1  'True
38 
      BackStyle       =   0  'Transparent
39 
      Caption         =   "skar"
40 
      BeginProperty Font
41 
         Name            =   "Times New Roman"
42 
         Size            =   24
43 
         Charset         =   0
44 
         Weight          =   700
45 
         Underline       =   0   'False
46 
         Italic          =   0   'False
47 
         Strikethrough   =   0   'False
48 
      EndProperty
49 
      ForeColor       =   &H0080FFFF&
50 
      Height          =   540
51 
      Left            =   5520
52 
      TabIndex        =   6
53 
      Top             =   480
54 
      Width           =   885
55 
   End
56 
   Begin VB.Label Label5
57 
      BackStyle       =   0  'Transparent
58 
      Caption         =   "In der Zauberflöte treffen sich viele Magier und Kleriker um ihre Erfahrungen auszutauschen."
59 
      BeginProperty Font
60 
         Name            =   "Arial"
61 
         Size            =   8.25
62 
         Charset         =   0
63 
         Weight          =   400
64 
         Underline       =   0   'False
65 
         Italic          =   0   'False
66 
         Strikethrough   =   0   'False
67 
      EndProperty
68 
      ForeColor       =   &H00FFFFFF&
69 
      Height          =   735
70 
      Left            =   360
71 
      TabIndex        =   4
72 
      Top             =   2400
73 
      Width           =   3135
74 
   End
75 
   Begin VB.Label Label4
76 
      AutoSize        =   -1  'True
77 
      BackStyle       =   0  'Transparent
78 
      Caption         =   "Taverne ""Zur Zauberflöte"""
79 
      BeginProperty Font
80 
         Name            =   "Arial"
81 
         Size            =   12
82 
         Charset         =   0
83 
         Weight          =   700
84 
         Underline       =   -1  'True
85 
         Italic          =   0   'False
86 
         Strikethrough   =   0   'False
87 
      EndProperty
88 
      ForeColor       =   &H0000FFFF&
89 
      Height          =   285
90 
      Left            =   360
91 
      TabIndex        =   3
92 
      Top             =   2040
93 
      Width           =   2955
94 
   End
95 
   Begin VB.Label Label3
96 
      BackStyle       =   0  'Transparent
97 
      Caption         =   "Malagon präsentiert seine wundervollen Stäbe, auch magische Stäbe stellt er her."
98 
      BeginProperty Font
99 
         Name            =   "Arial"
100 
         Size            =   8.25
101 
         Charset         =   0
102 
         Weight          =   400
103 
         Underline       =   0   'False
104 
         Italic          =   0   'False
105 
         Strikethrough   =   0   'False
106 
      EndProperty
107 
      ForeColor       =   &H00FFFFFF&
108 
      Height          =   615
109 
      Left            =   360
110 
      TabIndex        =   2
111 
      Top             =   960
112 
      Width           =   2895
113 
   End
114 
   Begin VB.Label Label2
115 
      AutoSize        =   -1  'True
116 
      BackStyle       =   0  'Transparent
117 
      Caption         =   "Stabmacher Malagon"
118 
      BeginProperty Font
119 
         Name            =   "Arial"
120 
         Size            =   12
121 
         Charset         =   0
122 
         Weight          =   700
123 
         Underline       =   -1  'True
124 
         Italic          =   0   'False
125 
         Strikethrough   =   0   'False
126 
      EndProperty
127 
      ForeColor       =   &H0000FFFF&
128 
      Height          =   285
129 
      Left            =   360
130 
      TabIndex        =   1
131 
      Top             =   600
132 
      Width           =   2415
133 
   End
134 
   Begin VB.Label Label1
135 
      AutoSize        =   -1  'True
136 
      BackStyle       =   0  'Transparent
137 
      Caption         =   "Phaekskar"
138 
      BeginProperty Font
139 
         Name            =   "Times New Roman"
140 
         Size            =   24
141 
         Charset         =   0
142 
         Weight          =   700
143 
         Underline       =   0   'False
144 
         Italic          =   0   'False
145 
         Strikethrough   =   0   'False
146 
      EndProperty
147 
      ForeColor       =   &H0000FFFF&
148 
      Height          =   540
149 
      Left            =   4080
150 
      TabIndex        =   0
151 
      Top             =   720
152 
      Width           =   2160
153 
   End
154 
End
155 
Attribute VB_Name = "Phaekskar"
156 
Attribute VB_GlobalNameSpace = False
157 
Attribute VB_Creatable = False
158 
Attribute VB_PredeclaredId = True
159 
Attribute VB_Exposed = False
160 
Private Sub Command1_Click()
161 
Unload Phaekskar
162 
Landkarte.Show
163 
End Sub
164 
 
165 
Private Sub Form_Load()
166 
If yyfreund = 1 Then yyfreund = 2: MsgBox "Oh, du kennst Phen? Vielen dank, dass du mir hilfst. Ich geh dann, ciao.": gold = gold + 16: MsgBox "Du erhältst 16 Goldkronen": explus = 75: GetExperience: MsgBox "Du erhältst 75 Erfahrungspunkte!"
167 
If yymittel = 1 Then yymittel = 2: MsgBox "Vielen Dank! Nimm diese kleine Spende als Zeichen unserer Dankbarkeit.": MsgBox "Du erhältst : großer Heiltrank": a = "großer Heiltrank": frmInternal.List1.AddItem a: MsgBox "Du erhältst 60 Erfahrungspunkte!": explus = 60: GetExperience
168 
End Sub
169 
 
170 
Private Sub Label2_Click()
171 
PhSmith4.Show
172 
Unload Phaekskar
173 
End Sub
174 
 
175 
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
176 
Dim lHandle As Long
177 
lHandle = LoadCursor(0, HandCursor)
178 
If (lHandle > 0) Then SetCursor lHandle
179 
End Sub
180 
 
181 
Private Sub Label4_Click()
182 
phtaverne4.Show
183 
Unload Phaekskar
184 
End Sub
185 
 
186 
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
187 
Dim lHandle As Long
188 
lHandle = LoadCursor(0, HandCursor)
189 
If (lHandle > 0) Then SetCursor lHandle
190 
End Sub