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 TOT
3 
   BorderStyle     =   1  'Fixed Single
4 
   Caption         =   "Du bist gestorben"
5 
   ClientHeight    =   4440
6 
   ClientLeft      =   45
7 
   ClientTop       =   330
8 
   ClientWidth     =   4455
9 
   ControlBox      =   0   'False
10 
   LinkTopic       =   "TOT"
11 
   MaxButton       =   0   'False
12 
   MinButton       =   0   'False
13 
   Picture         =   "TOT.frx":0000
14 
   ScaleHeight     =   4440
15 
   ScaleWidth      =   4455
16 
   StartUpPosition =   2  'CenterScreen
17 
   Begin VB.CommandButton Command2
18 
      BackColor       =   &H00E0E0E0&
19 
      Caption         =   "Neu laden"
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          =   255
30 
      Left            =   600
31 
      Style           =   1  'Graphical
32 
      TabIndex        =   1
33 
      Top             =   4080
34 
      Width           =   1215
35 
   End
36 
   Begin VB.CommandButton Command1
37 
      BackColor       =   &H00E0E0E0&
38 
      Cancel          =   -1  'True
39 
      Caption         =   "Ende"
40 
      Default         =   -1  'True
41 
      BeginProperty Font
42 
         Name            =   "Arial"
43 
         Size            =   8.25
44 
         Charset         =   0
45 
         Weight          =   700
46 
         Underline       =   0   'False
47 
         Italic          =   0   'False
48 
         Strikethrough   =   0   'False
49 
      EndProperty
50 
      Height          =   255
51 
      Left            =   2640
52 
      Style           =   1  'Graphical
53 
      TabIndex        =   0
54 
      Top             =   4080
55 
      Width           =   1215
56 
   End
57 
End
58 
Attribute VB_Name = "TOT"
59 
Attribute VB_GlobalNameSpace = False
60 
Attribute VB_Creatable = False
61 
Attribute VB_PredeclaredId = True
62 
Attribute VB_Exposed = False
63 
Private Sub Command1_Click()
64 
End
65 
End Sub
66 
 
67 
Private Sub Command2_Click()
68 
Rem So unprofessionell es auch wirken mag, ich muss alle Forms einzeln
69 
Rem unloaden, denn manche Fenster sind nur hidden und somit ist z.B.
70 
Rem die Position des Spielers noch eingespeichert.
71 
Rem Ausnahme: Manager
72 
Unload StartTitle
73 
Unload Charakter
74 
Unload Landkarte
75 
Unload Story
76 
Unload Kampf
77 
Unload Beute
78 
Unload Phargas
79 
Unload Rast
80 
Unload Konversation
81 
Unload dqSCHMIEDE
82 
Unload dqGILDE
83 
Unload dqZAUBERER
84 
Unload dqHERBERGE
85 
Unload dqRÜSTSCHMIEDE
86 
Unload Bibliothek
87 
Unload TdOK1
88 
Unload TruheÖffnen
89 
Unload TdOK2
90 
Unload Havengate
91 
Unload dqBOGENBAUER
92 
Unload Haus
93 
Unload Labor
94 
Unload Equipment
95 
Unload Elfenwald
96 
Unload Shanti
97 
Unload dqSCHRIFTSTÜCK
98 
Unload dqALCHEMIE
99 
Unload GiveItems
100 
Unload frmAbout
101 
Unload TOT
102 
 
103 
StartTitle.Label4_Click
104 
End Sub
105 
 
106 
Private Sub Form_Load()
107 
Unload Manager
108 
Command2.Enabled = FileExists(GetPath & "ZDD.sav")
109 
End Sub