| 0,0 → 1,630 |
|---|
| VERSION 5.00 |
| Begin VB.Form LevelFort |
| BackColor = &H00000000& |
| BorderStyle = 1 'Fixed Single |
| Caption = "Nächste Stufe" |
| ClientHeight = 5415 |
| ClientLeft = 45 |
| ClientTop = 495 |
| ClientWidth = 5940 |
| LinkTopic = "LevelFort" |
| MaxButton = 0 'False |
| MinButton = 0 'False |
| ScaleHeight = 5415 |
| ScaleWidth = 5940 |
| StartUpPosition = 1 'CenterOwner |
| Begin VB.CommandButton Command4 |
| BackColor = &H00E0E0E0& |
| Cancel = -1 'True |
| Caption = "Schließen" |
| Default = -1 'True |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 375 |
| Left = 4320 |
| Style = 1 'Graphical |
| TabIndex = 23 |
| Top = 4560 |
| Width = 1215 |
| End |
| Begin VB.Frame Frame3 |
| BackColor = &H00000000& |
| Caption = "Charakterwerte" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 3375 |
| Left = 480 |
| TabIndex = 0 |
| Top = 1560 |
| Width = 3615 |
| Begin VB.CommandButton Command3 |
| Caption = "+" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 13.5 |
| Charset = 0 |
| Weight = 400 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 255 |
| Left = 3000 |
| TabIndex = 3 |
| Top = 1560 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command2 |
| Caption = "+" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 13.5 |
| Charset = 0 |
| Weight = 400 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 255 |
| Left = 3000 |
| TabIndex = 2 |
| Top = 960 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command1 |
| Caption = "+" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 13.5 |
| Charset = 0 |
| Weight = 400 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 255 |
| Left = 3000 |
| TabIndex = 1 |
| Top = 360 |
| Width = 375 |
| End |
| Begin VB.Label Label23 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "/" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 240 |
| Left = 2880 |
| TabIndex = 27 |
| Top = 2880 |
| Width = 90 |
| End |
| Begin VB.Label Label22 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "/" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 240 |
| Left = 2880 |
| TabIndex = 26 |
| Top = 2280 |
| Width = 90 |
| End |
| Begin VB.Label Label21 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FF00& |
| Height = 300 |
| Left = 3000 |
| TabIndex = 25 |
| Top = 2880 |
| Width = 315 |
| End |
| Begin VB.Label Label20 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FF00& |
| Height = 300 |
| Left = 3000 |
| TabIndex = 24 |
| Top = 2280 |
| Width = 315 |
| End |
| Begin VB.Label Label12 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 300 |
| Left = 2520 |
| TabIndex = 13 |
| Top = 2880 |
| Width = 315 |
| End |
| Begin VB.Label Label11 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 300 |
| Left = 2520 |
| TabIndex = 12 |
| Top = 2280 |
| Width = 315 |
| End |
| Begin VB.Label Label10 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Mana" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 345 |
| Left = 240 |
| TabIndex = 11 |
| Top = 2880 |
| Width = 765 |
| End |
| Begin VB.Label Label9 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Lebensenergie" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H008080FF& |
| Height = 345 |
| Left = 240 |
| TabIndex = 10 |
| Top = 2280 |
| Width = 2070 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 300 |
| Left = 2520 |
| TabIndex = 9 |
| Top = 1560 |
| Width = 315 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 300 |
| Left = 2520 |
| TabIndex = 8 |
| Top = 960 |
| Width = 315 |
| End |
| Begin VB.Label Label6 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 300 |
| Left = 2520 |
| TabIndex = 7 |
| Top = 360 |
| Width = 315 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackColor = &H00000000& |
| BackStyle = 0 'Transparent |
| Caption = "Gewandtheit" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 345 |
| Left = 240 |
| TabIndex = 6 |
| Top = 1560 |
| Width = 1830 |
| End |
| Begin VB.Label Label4 |
| AutoSize = -1 'True |
| BackColor = &H00000000& |
| BackStyle = 0 'Transparent |
| Caption = "Intelligenz" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 345 |
| Left = 240 |
| TabIndex = 5 |
| Top = 960 |
| Width = 1545 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackColor = &H00000000& |
| BackStyle = 0 'Transparent |
| Caption = "Stärke" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 345 |
| Left = 240 |
| TabIndex = 4 |
| Top = 360 |
| Width = 915 |
| End |
| End |
| Begin VB.Label Label19 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fixed Single |
| Caption = "la19" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 20.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFF00& |
| Height = 555 |
| Left = 4320 |
| TabIndex = 22 |
| Top = 2040 |
| Width = 930 |
| End |
| Begin VB.Label Label18 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Punkte" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 18 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 435 |
| Left = 4320 |
| TabIndex = 21 |
| Top = 1560 |
| Width = 1260 |
| End |
| Begin VB.Label Label17 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "la17" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 2220 |
| TabIndex = 20 |
| Top = 720 |
| Width = 375 |
| End |
| Begin VB.Label Label16 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "la16" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FF00& |
| Height = 195 |
| Left = 2760 |
| TabIndex = 19 |
| Top = 1080 |
| Width = 375 |
| End |
| Begin VB.Label Label15 |
| BackStyle = 0 'Transparent |
| Caption = "/" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00C0C0FF& |
| Height = 255 |
| Left = 2640 |
| TabIndex = 18 |
| Top = 1080 |
| Width = 135 |
| End |
| Begin VB.Label Label14 |
| Alignment = 1 'Right Justify |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "la14" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FF00& |
| Height = 195 |
| Left = 2220 |
| TabIndex = 17 |
| Top = 1080 |
| Width = 375 |
| End |
| Begin VB.Label Label13 |
| BackStyle = 0 'Transparent |
| Caption = "Erfahrung" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00C0C0FF& |
| Height = 255 |
| Left = 480 |
| TabIndex = 16 |
| Top = 1080 |
| Width = 975 |
| End |
| Begin VB.Label Label2 |
| BackStyle = 0 'Transparent |
| Caption = "Stufe" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00C0C0FF& |
| Height = 255 |
| Left = 480 |
| TabIndex = 15 |
| Top = 720 |
| Width = 975 |
| End |
| Begin VB.Label Label1 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Du hast die nächste Stufe erreicht!" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 345 |
| Left = 480 |
| TabIndex = 14 |
| Top = 240 |
| Width = 4965 |
| End |
| End |
| Attribute VB_Name = "LevelFort" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Command1_Click() |
| If punkte = 0 Then Fehler: GoTo no |
| Rutiene |
| Strength = Strength + 1 |
| Label6.Caption = Strength |
| no: |
| End Sub |
| |
| Private Sub Command2_Click() |
| If punkte = 0 Then Fehler: GoTo no2 |
| Rutiene |
| Iq = Iq + 1 |
| Label7.Caption = Iq |
| no2: |
| End Sub |
| |
| Private Sub Command3_Click() |
| If punkte = 0 Then Fehler: GoTo no3 |
| Rutiene |
| Speed = Speed + 1 |
| Label8.Caption = Speed |
| no3: |
| End Sub |
| |
| Private Sub Command4_Click() |
| Unload LevelFort |
| End Sub |
| |
| Private Sub Form_Load() |
| stufe = stufe + 1 |
| punkte = punkte + 5 |
| NextLevel = (NextLevel + stufe * 100) - 100 |
| Label20.Caption = STARThp |
| Label21.Caption = STARTmp |
| Label17.Caption = stufe |
| Label14.Caption = experience |
| Label16.Caption = NextLevel |
| Label6.Caption = Strength |
| Label7.Caption = Iq |
| Label8.Caption = Speed |
| Label11.Caption = hp |
| Label12.Caption = mp |
| Label19.Caption = punkte |
| End Sub |
| Private Sub Rutiene() |
| punkte = punkte - 1 |
| Label19.Caption = punkte |
| End Sub |
| |