Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | VERSION 5.00 |
| 2 | Begin VB.Form FeSchatz |
||
| 3 | BackColor = &H00404040& |
||
| 4 | BorderStyle = 0 'None |
||
| 5 | Caption = "FeSchatz" |
||
| 6 | ClientHeight = 3435 |
||
| 7 | ClientLeft = 0 |
||
| 8 | ClientTop = 0 |
||
| 9 | ClientWidth = 3435 |
||
| 10 | LinkTopic = "FeSchatz" |
||
| 11 | ScaleHeight = 3435 |
||
| 12 | ScaleWidth = 3435 |
||
| 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 | Height = 255 |
||
| 21 | Left = 2520 |
||
| 22 | Style = 1 'Graphical |
||
| 23 | TabIndex = 4 |
||
| 24 | Top = 3120 |
||
| 25 | Visible = 0 'False |
||
| 26 | Width = 855 |
||
| 27 | End |
||
| 28 | Begin VB.Label Label4 |
||
| 29 | AutoSize = -1 'True |
||
| 30 | BackStyle = 0 'Transparent |
||
| 31 | Caption = "Schatz der schwarzen Feen" |
||
| 32 | BeginProperty Font |
||
| 33 | Name = "MS Sans Serif" |
||
| 34 | Size = 9.75 |
||
| 35 | Charset = 0 |
||
| 36 | Weight = 700 |
||
| 37 | Underline = 0 'False |
||
| 38 | Italic = 0 'False |
||
| 39 | Strikethrough = 0 'False |
||
| 40 | EndProperty |
||
| 41 | ForeColor = &H00FFFFFF& |
||
| 42 | Height = 240 |
||
| 43 | Left = 240 |
||
| 44 | TabIndex = 3 |
||
| 45 | Top = 120 |
||
| 46 | Width = 2835 |
||
| 47 | End |
||
| 48 | Begin VB.Label Label3 |
||
| 49 | AutoSize = -1 'True |
||
| 50 | BackStyle = 0 'Transparent |
||
| 51 | Caption = "Nichts" |
||
| 52 | BeginProperty Font |
||
| 53 | Name = "MS Sans Serif" |
||
| 54 | Size = 9.75 |
||
| 55 | Charset = 0 |
||
| 56 | Weight = 700 |
||
| 57 | Underline = -1 'True |
||
| 58 | Italic = 0 'False |
||
| 59 | Strikethrough = 0 'False |
||
| 60 | EndProperty |
||
| 61 | ForeColor = &H00FF8080& |
||
| 62 | Height = 240 |
||
| 63 | Left = 840 |
||
| 64 | TabIndex = 2 |
||
| 65 | Top = 2280 |
||
| 66 | Width = 660 |
||
| 67 | End |
||
| 68 | Begin VB.Label Label2 |
||
| 69 | AutoSize = -1 'True |
||
| 70 | BackStyle = 0 'Transparent |
||
| 71 | Caption = "Nichts" |
||
| 72 | BeginProperty Font |
||
| 73 | Name = "MS Sans Serif" |
||
| 74 | Size = 9.75 |
||
| 75 | Charset = 0 |
||
| 76 | Weight = 700 |
||
| 77 | Underline = -1 'True |
||
| 78 | Italic = 0 'False |
||
| 79 | Strikethrough = 0 'False |
||
| 80 | EndProperty |
||
| 81 | ForeColor = &H00FF8080& |
||
| 82 | Height = 240 |
||
| 83 | Left = 840 |
||
| 84 | TabIndex = 1 |
||
| 85 | Top = 1560 |
||
| 86 | Width = 660 |
||
| 87 | End |
||
| 88 | Begin VB.Label Label1 |
||
| 89 | AutoSize = -1 'True |
||
| 90 | BackStyle = 0 'Transparent |
||
| 91 | Caption = "Nichts" |
||
| 92 | BeginProperty Font |
||
| 93 | Name = "MS Sans Serif" |
||
| 94 | Size = 9.75 |
||
| 95 | Charset = 0 |
||
| 96 | Weight = 700 |
||
| 97 | Underline = -1 'True |
||
| 98 | Italic = 0 'False |
||
| 99 | Strikethrough = 0 'False |
||
| 100 | EndProperty |
||
| 101 | ForeColor = &H00FF8080& |
||
| 102 | Height = 240 |
||
| 103 | Left = 840 |
||
| 104 | TabIndex = 0 |
||
| 105 | Top = 840 |
||
| 106 | Width = 660 |
||
| 107 | End |
||
| 108 | End |
||
| 109 | Attribute VB_Name = "FeSchatz" |
||
| 110 | Attribute VB_GlobalNameSpace = False |
||
| 111 | Attribute VB_Creatable = False |
||
| 112 | Attribute VB_PredeclaredId = True |
||
| 113 | Attribute VB_Exposed = False |
||
| 114 | Private Sub Command1_Click() |
||
| 115 | Unload FeSchatz |
||
| 116 | Feenwald.Show |
||
| 117 | End Sub |
||
| 118 | |||
| 119 | Private Sub Form_Load() |
||
| 120 | MsgBox "Der Altar zerspringt und weiße Flügel treten aus aus ihm hervor, dann erhebt sich eine weiße Fee aus dem Stein.", 64 + 0, "Ereignis" |
||
| 121 | MsgBox "Der Schatz der schwarzen Feen ist nun deiner. Und viel Glück auf deiner Mission.", 64 + 0, "Eine weiße Fee" |
||
| 122 | If Reichtum = 1 Then Label1.Caption = "600 Goldkronen" |
||
| 123 | If Reichtum = 2 Then Label1.Caption = "Stein der Weisheit" |
||
| 124 | If Reichtum = 3 Then Label1.Caption = "Elixier" |
||
| 125 | If Selbst = 1 Then Label2.Caption = "Axt der Dunkelheit" |
||
| 126 | If Selbst = 2 Then Label2.Caption = "Feenstaub" |
||
| 127 | If Selbst = 3 Then Label2.Caption = "Zauberspruch 'Hölleninferno'" |
||
| 128 | If Andere = 1 Then Label3.Caption = "Trank der Unsichtbarkeit" |
||
| 129 | If Andere = 2 Then Label3.Caption = "Feenstab" |
||
| 130 | If Andere = 3 Then Label3.Caption = "Stein der Kraft" |
||
| 131 | End Sub |
||
| 132 | |||
| 133 | Private Sub Label1_Click() |
||
| 134 | If Label1.Caption = "" Then GoTo nix1 |
||
| 135 | If Label1.Caption = "600 Goldkronen" Then gold = gold + 600 |
||
| 136 | If Label1.Caption = "Stein der Weisheit" Then MsgBox "Intelligenz +5", 64 + 0, "Weisheit": Iq = Iq + 5 |
||
| 137 | If Label1.Caption = "Elixier" Then a = "Elixier": frmInternal.List1.AddItem a |
||
| 138 | Label1.Caption = "" |
||
| 139 | nix1: |
||
| 140 | If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" Then Command1_Click |
||
| 141 | End Sub |
||
| 142 | |||
| 143 | Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) |
||
| 144 | Dim lHandle As Long |
||
| 145 | lHandle = LoadCursor(0, HandCursor) |
||
| 146 | If (lHandle > 0) Then SetCursor lHandle |
||
| 147 | End Sub |
||
| 148 | |||
| 149 | Private Sub Label2_Click() |
||
| 150 | If Label2.Caption = "" Then GoTo nix2 |
||
| 151 | If Label2.Caption = "Axt der Dunkelheit" Then GetAxt |
||
| 152 | If Label2.Caption = "Feenstaub" Then a = "Feenstaub": frmInternal.List1.AddItem a |
||
| 153 | If Label2.Caption = "Zauberspruch 'Hölleninferno'" And magician = 1 Then a = "Hölleninferno": Spruchbuch.Combo1.AddItem a: If magician = 0 Then MsgBox "Du kannst das nicht lernen!" |
||
| 154 | Label2.Caption = "" |
||
| 155 | nix2: |
||
| 156 | If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" Then Command1_Click |
||
| 157 | End Sub |
||
| 158 | |||
| 159 | Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) |
||
| 160 | Dim lHandle As Long |
||
| 161 | lHandle = LoadCursor(0, HandCursor) |
||
| 162 | If (lHandle > 0) Then SetCursor lHandle |
||
| 163 | End Sub |
||
| 164 | |||
| 165 | Private Sub Label3_Click() |
||
| 166 | If Label3.Caption = "" Then GoTo nix3 |
||
| 167 | If Label3.Caption = "Trank der Unsichtbarkeit" Then a = "Trank der Unsichtbarkeit": frmInternal.List1.AddItem a |
||
| 168 | If Label3.Caption = "Feenstab" Then getstaff |
||
| 169 | If Label3.Caption = "Stein der Kraft" Then MsgBox "Stärke +5", 64 + 0, "Kraft": Strength = Strength + 5 |
||
| 170 | Label3.Caption = "" |
||
| 171 | nix3: |
||
| 172 | If Label1.Caption = "" And Label2.Caption = "" And Label3.Caption = "" Then Command1_Click |
||
| 173 | End Sub |
||
| 174 | |||
| 175 | Sub GetAxt() |
||
| 176 | a = MsgBox("Werte : 5-25 / Ax / Schwarz / 10", vbYesNo + 0, "Axt der Dunkelheit") |
||
| 177 | b = Val(a) |
||
| 178 | If magician = 0 Then b = vbNo: MsgBox "Als Zauberkundiger kannst du diese Waffe nicht führen!" |
||
| 179 | If b = vbYes Then waffe = "Axt der Dunkelheit": grundwert = 5: zusatzwert = 20: kateg = "Ax": material = "Schwarz": ABZUG = 10 |
||
| 180 | If b = vbNo Then MsgBox "Axt wird ins frmInternal.List1 abgelegt": a = "Axt der Dunkelheit": frmInternal.List1.AddItem a |
||
| 181 | End Sub |
||
| 182 | |||
| 183 | Sub getstaff() |
||
| 184 | a = MsgBox("Werte : 3-15 / Sp / Magisch / 1", vbYesNo + 0, "Axt der Dunkelheit") |
||
| 185 | b = Val(a) |
||
| 186 | If b = vbYes Then waffe = "Feenstab": grundwert = 3: zusatzwert = 12: kateg = "Sp": material = "Magisch": ABZUG = 1 |
||
| 187 | If b = vbNo Then MsgBox "Feenstab wird ins frmInternal.List1 abgelegt": a = "Feenstab": frmInternal.List1.AddItem a |
||
| 188 | End Sub |
||
| 189 | |||
| 190 | Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) |
||
| 191 | Dim lHandle As Long |
||
| 192 | lHandle = LoadCursor(0, HandCursor) |
||
| 193 | If (lHandle > 0) Then SetCursor lHandle |
||
| 194 | End Sub |