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 = 0 'None |
||
| 4 | Caption = "Tot" |
||
| 5 | ClientHeight = 6345 |
||
| 6 | ClientLeft = 0 |
||
| 7 | ClientTop = 0 |
||
| 8 | ClientWidth = 6345 |
||
| 9 | LinkTopic = "Tot" |
||
| 10 | Picture = "Tot.frx":0000 |
||
| 11 | ScaleHeight = 6345 |
||
| 12 | ScaleWidth = 6345 |
||
| 13 | ShowInTaskbar = 0 'False |
||
| 14 | StartUpPosition = 2 'CenterScreen |
||
| 15 | Begin VB.CommandButton Command2 |
||
| 16 | BackColor = &H000000FF& |
||
| 17 | Caption = "Neu laden" |
||
| 18 | BeginProperty Font |
||
| 19 | Name = "MS Sans Serif" |
||
| 20 | Size = 8.25 |
||
| 21 | Charset = 0 |
||
| 22 | Weight = 700 |
||
| 23 | Underline = 0 'False |
||
| 24 | Italic = 0 'False |
||
| 25 | Strikethrough = 0 'False |
||
| 26 | EndProperty |
||
| 27 | Height = 375 |
||
| 28 | Left = 120 |
||
| 29 | Style = 1 'Graphical |
||
| 30 | TabIndex = 1 |
||
| 31 | Top = 5880 |
||
| 32 | Width = 1815 |
||
| 33 | End |
||
| 34 | Begin VB.CommandButton Command1 |
||
| 35 | BackColor = &H000000FF& |
||
| 36 | Cancel = -1 'True |
||
| 37 | Caption = "Beenden" |
||
| 38 | Default = -1 'True |
||
| 39 | BeginProperty Font |
||
| 40 | Name = "MS Sans Serif" |
||
| 41 | Size = 8.25 |
||
| 42 | Charset = 0 |
||
| 43 | Weight = 700 |
||
| 44 | Underline = 0 'False |
||
| 45 | Italic = 0 'False |
||
| 46 | Strikethrough = 0 'False |
||
| 47 | EndProperty |
||
| 48 | Height = 375 |
||
| 49 | Left = 4440 |
||
| 50 | Style = 1 'Graphical |
||
| 51 | TabIndex = 0 |
||
| 52 | Top = 5880 |
||
| 53 | Width = 1815 |
||
| 54 | End |
||
| 55 | End |
||
| 56 | Attribute VB_Name = "Tot" |
||
| 57 | Attribute VB_GlobalNameSpace = False |
||
| 58 | Attribute VB_Creatable = False |
||
| 59 | Attribute VB_PredeclaredId = True |
||
| 60 | Attribute VB_Exposed = False |
||
| 61 | Private Sub Command1_Click() |
||
| 62 | End |
||
| 63 | End Sub |
||
| 64 | |||
| 65 | Private Sub Command2_Click() |
||
| 66 | Rem So unprofessionell es auch wirken mag, ich muss alle Forms einzeln |
||
| 67 | Rem unloaden, denn manche Fenster sind nur hidden und somit ist z.B. |
||
| 68 | Rem die Position des Spielers noch eingespeichert. |
||
| 69 | Unload Amazon |
||
| 70 | Unload AzBow1 |
||
| 71 | Unload AzSmith2 |
||
| 72 | Unload AzTrain1 |
||
| 73 | Unload Beute |
||
| 74 | Unload Vorgeschichte |
||
| 75 | Unload Feenwald |
||
| 76 | Unload FeKobold |
||
| 77 | Unload FeMedusaEi |
||
| 78 | Unload FeSchatz |
||
| 79 | Unload FeSee |
||
| 80 | Unload FESTUNG |
||
| 81 | Unload Festung2 |
||
| 82 | Unload FeTempel |
||
| 83 | Unload Charakter |
||
| 84 | Unload Gragook |
||
| 85 | Unload GrRust3 |
||
| 86 | Unload GrSmith3 |
||
| 87 | Unload GrTaverne2 |
||
| 88 | Unload HöAltar |
||
| 89 | Unload Höhlen |
||
| 90 | Unload HöhlenE2 |
||
| 91 | Unload HöTisch |
||
| 92 | Unload HöTruhe |
||
| 93 | Unload HöTruhe2 |
||
| 94 | Unload HöTruhe4 |
||
| 95 | Unload HöTruhe3 |
||
| 96 | Unload Kampf |
||
| 97 | Unload Kristallsee |
||
| 98 | Unload KrSchatz |
||
| 99 | Unload KrTauchen |
||
| 100 | Unload Landkarte |
||
| 101 | Unload LevelFort |
||
| 102 | Unload LgRust1 |
||
| 103 | Unload LgShop1 |
||
| 104 | Unload LgSmith1 |
||
| 105 | Unload LgTaverne1 |
||
| 106 | Unload Lindgar |
||
| 107 | Unload ObjectSelect |
||
| 108 | Unload Phaekskar |
||
| 109 | Unload PhSmith4 |
||
| 110 | Unload phtaverne4 |
||
| 111 | Unload Rast |
||
| 112 | Unload Shaela |
||
| 113 | Unload ShBow2 |
||
| 114 | Unload ShSmith4 |
||
| 115 | Unload Wüste |
||
| 116 | Unload WsObelisk |
||
| 117 | Unload WsOase |
||
| 118 | Unload WsLager |
||
| 119 | Unload WsFelsen |
||
| 120 | Unload SuWolke |
||
| 121 | Unload Sumpf |
||
| 122 | Unload SuBaum |
||
| 123 | Unload StartTitle |
||
| 124 | Unload ShRust4 |
||
| 125 | Unload CheckHero |
||
| 126 | Unload TheEnd |
||
| 127 | Unload frmAbout |
||
| 128 | |||
| 129 | Unload Tot |
||
| 130 | StartTitle.Label4_Click |
||
| 131 | End Sub |
||
| 132 | |||
| 133 | Private Sub Form_Load() |
||
| 134 | Command2.Enabled = (FileExists(GetPath & "süa.sav")) |
||
| 135 | End Sub |