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 StartTitle
3 
   BackColor       =   &H00000000&
4 
   BorderStyle     =   1  'Fixed Single
5 
   Caption         =   "Aysalia: Das Zeitalter der Dämonen"
6 
   ClientHeight    =   7200
7 
   ClientLeft      =   45
8 
   ClientTop       =   435
9 
   ClientWidth     =   9600
10 
   Icon            =   "StartTitle.frx":0000
11 
   LinkTopic       =   "StartTitle"
12 
   MaxButton       =   0   'False
13 
   Picture         =   "StartTitle.frx":030A
14 
   ScaleHeight     =   7200
15 
   ScaleWidth      =   9600
16 
   StartUpPosition =   2  'CenterScreen
17 
   Begin VB.Image Image1
18 
      Height          =   495
19 
      Left            =   120
20 
      Top             =   6600
21 
      Width           =   2655
22 
   End
23 
   Begin VB.Label Label4
24 
      AutoSize        =   -1  'True
25 
      BackStyle       =   0  'Transparent
26 
      Caption         =   "Spiel laden"
27 
      BeginProperty Font
28 
         Name            =   "Arial"
29 
         Size            =   14.25
30 
         Charset         =   0
31 
         Weight          =   400
32 
         Underline       =   0   'False
33 
         Italic          =   0   'False
34 
         Strikethrough   =   0   'False
35 
      EndProperty
36 
      ForeColor       =   &H00FF0000&
37 
      Height          =   330
38 
      Left            =   8040
39 
      TabIndex        =   2
40 
      Top             =   6360
41 
      Width           =   1410
42 
   End
43 
   Begin VB.Label Label3
44 
      AutoSize        =   -1  'True
45 
      BackStyle       =   0  'Transparent
46 
      Caption         =   "Version 1.5.3"
47 
      ForeColor       =   &H00808080&
48 
      Height          =   195
49 
      Left            =   7440
50 
      TabIndex        =   1
51 
      Top             =   1680
52 
      Width           =   930
53 
   End
54 
   Begin VB.Label Label2
55 
      AutoSize        =   -1  'True
56 
      BackStyle       =   0  'Transparent
57 
      Caption         =   "Neues Spiel"
58 
      BeginProperty Font
59 
         Name            =   "Arial"
60 
         Size            =   14.25
61 
         Charset         =   0
62 
         Weight          =   400
63 
         Underline       =   0   'False
64 
         Italic          =   0   'False
65 
         Strikethrough   =   0   'False
66 
      EndProperty
67 
      ForeColor       =   &H00FF0000&
68 
      Height          =   330
69 
      Left            =   7920
70 
      TabIndex        =   0
71 
      Top             =   6720
72 
      Width           =   1545
73 
   End
74 
End
75 
Attribute VB_Name = "StartTitle"
76 
Attribute VB_GlobalNameSpace = False
77 
Attribute VB_Creatable = False
78 
Attribute VB_PredeclaredId = True
79 
Attribute VB_Exposed = False
80 
Private Sub Form_Load()
81 
 
82 
Label4.Visible = FileExists(GetPath & "ZDD.sav")
83 
 
84 
Nom = ""
85 
Typus = ""
86 
Waffe = ""
87 
Kategorie = ""
88 
Material = ""
89 
Rüstung = ""
90 
Rmaterial = ""
91 
Helm = ""
92 
Schild = ""
93 
Umhang = ""
94 
Schusswaffe = ""
95 
SwKategorie = ""
96 
Inhalt = ""
97 
Truhe = ""
98 
There = ""
99 
GdAst = 0
100 
Celison = 0
101 
TruheH1 = 0
102 
DhDst = 0: ADst = 0: ZdCst = 0
103 
BeM = 0: BB = 0: BG = 0: FA = 0: Gs = 0: Hpa = 0: Qs = 0: SL = 0: Sf = 0: TD = 0: TkB = 0: Wk = 0: TDs = 0
104 
Epoints = 0: Strength = 0: Speed = 0: Iq = 0
105 
 STARThp = 0: STARTmp = 0: SCHWERTER = 0: ÄXTE = 0: SPEERE = 0: HIEBWAFFEN = 0: SCHUSSWAFFEN = 0
106 
 CHAOS = 0: LICHT = 0: NATUR = 0: NEKROMANTIE = 0
107 
 ALCHEMIE = 0: WUNDENHEILEN = 0: SECHSTERSINN = 0: FEILSCHEN = 0: STEHLEN = 0: PFLANZENKUNDE = 0
108 
 Magician = 0: STplus = 0: SPplus = 0: IQplus = 0: Gold = 0
109 
 Bücherausweis = 0: Fliehen = 0
110 
 Hp = 0: MP = 0: KrAnK = 0: VeRgIfTeT = 0
111 
 Stufe = 0: Experience = 0: NextLevel = 0
112 
 GRschaden = 0: ZUschaden = 0: Abzug = 0: SWGRschaden = 0: SWZUschaden = 0
113 
 Rrs = 0: Rbe = 0: Urs = 0: Ube = 0: Hrs = 0: Hbe = 0: Srs = 0: Sbe = 0
114 
 RK = 0: Pfeile = 0: Bolzen = 0: GBE = 0
115 
 Hände = 0: Stunden = 0: Minuten = 0
116 
 Woche = 0: AlterMann = 0: Ring = 0: Hexi = 0
117 
 Djinn = 0: TischTdOK1 = 0: TischTdOK2 = 0: Zankh = 0
118 
 AltarTdOK2 = 0: Irion = 0: SchrankH = 0: Fässer = 0: TischH = 0
119 
 Seeli = 0: Seela = 0: TischLab = 0: Glubsch = 0: FireMon = 0: Thorku = 0
120 
 Attentat = 0: Unsichtbar = 1
121 
 Truheo1 = 0: Truheo2 = 0: Truheo3 = 0: Truheo4 = 0: Truheo5 = 0
122 
 zutatA = 0: zutatB = 0: zutatC = 0
123 
 End Sub
124 
 
125 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
126 
Label2.ForeColor = &HFF0000
127 
Label4.ForeColor = &HFF0000
128 
End Sub
129 
 
130 
Private Sub Image1_Click()
131 
frmAbout.Show (vbModal)
132 
End Sub
133 
 
134 
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
135 
  Dim lHandle As Long
136 
  lHandle = LoadCursor(0, HandCursor)
137 
  If (lHandle > 0) Then SetCursor lHandle
138 
End Sub
139 
 
140 
Private Sub Label2_Click()
141 
Unload StartTitle
142 
Charakter.Show
143 
End Sub
144 
 
145 
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
146 
  Label2.ForeColor = &HFFFF&
147 
  Label4.ForeColor = &HFF0000
148 
  Dim lHandle As Long
149 
  lHandle = LoadCursor(0, HandCursor)
150 
  If (lHandle > 0) Then SetCursor lHandle
151 
End Sub
152 
 
153 
Public Sub Label4_Click()
154 
Unload StartTitle
155 
 
156 
Open GetPath & "ZDD.sav" For Input As #1
157 
 
158 
' Werte
159 
Dim nb1, nb2 As Integer
160 
Input #1, Nom
161 
Input #1, Woche
162 
Input #1, Typus
163 
Input #1, Waffe
164 
Input #1, Kategorie
165 
Input #1, Material
166 
Input #1, Rüstung
167 
Input #1, Rmaterial
168 
Input #1, Helm
169 
Input #1, Schild
170 
Input #1, Umhang
171 
Input #1, Schusswaffe
172 
Input #1, SwKategorie
173 
Input #1, Inhalt
174 
Input #1, Truhe
175 
Input #1, There
176 
Input #1, GdAst
177 
Input #1, DhDst
178 
Input #1, ADst, ZdCst, Celison
179 
Input #1, Epoints, Strength, Speed, Iq
180 
Input #1, STARThp, STARTmp, SCHWERTER, ÄXTE, SPEERE, HIEBWAFFEN, SCHUSSWAFFEN
181 
Input #1, CHAOS, LICHT, NATUR, NEKROMANTIE
182 
Input #1, ALCHEMIE, WUNDENHEILEN, FEILSCHEN, STEHLEN, PFLANZENKUNDE
183 
Input #1, Magician, STplus, SPplus, IQplus, Gold
184 
Input #1, Bücherausweis, Fliehen
185 
Input #1, Hp, MP, KrAnK, VeRgIfTeT
186 
Input #1, Stufe, Experience, NextLevel
187 
Input #1, GRschaden, ZUschaden, Abzug, SWGRschaden, SWZUschaden
188 
Input #1, Rrs, Rbe, Urs, Ube, Hrs, Hbe, Srs, Sbe
189 
Input #1, RK, Pfeile, Bolzen, GBE
190 
Input #1, Hände, Stunden, Minuten
191 
Input #1, BeM, BB, BG, FA, Gs, Hpa, Qs, SL, Sf, TD, TkB, Wk, TDs
192 
Input #1, AlterMann, Ring, Hexi
193 
Input #1, Djinn, TischTdOK1, TischTdOK2, Zankh
194 
Input #1, AltarTdOK2, Irion, SchrankH, Fässer, TischH
195 
Input #1, Seeli, Seela, TischLab, Glubsch, FireMon, Thorku
196 
Input #1, Attentat, nb1, nb2, Unsichtbar
197 
Input #1, Truheo1, Truheo2, Truheo3, Truheo4, Truheo5, TruheH1
198 
Input #1, zutatA, zutatB, zutatC
199 
 
200 
' Objekte
201 
Do While Not EOF(1)
202 
  Input #1, alle_daten
203 
  If alle_daten = "###" Then GoTo weiter
204 
  If alle_daten <> "" Then Manager.Inventar.AddItem alle_daten
205 
Loop
206 
 
207 
' Magie
208 
weiter:
209 
Do While Not EOF(1)
210 
  Input #1, alle_daten
211 
  Manager.SpruchBuch.AddItem alle_daten
212 
Loop
213 
 
214 
Close #1
215 
Dayli
216 
ManagRighter
217 
Manager.Show
218 
If Magician = 1 Then Manager.SpruchBuch.Enabled = True
219 
Landkarte.Show
220 
Landkarte.Held.Left = nb1
221 
Landkarte.Held.Top = nb2
222 
Landkarte.city
223 
If Stunden >= 12 Then Landkarte.Rasten.Enabled = True: Landkarte.Rasten.Visible = True
224 
End Sub
225 
 
226 
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
227 
  Label2.ForeColor = &HFF0000
228 
  Label4.ForeColor = &HFFFF&
229 
  Dim lHandle As Long
230 
  lHandle = LoadCursor(0, HandCursor)
231 
  If (lHandle > 0) Then SetCursor lHandle
232 
End Sub