| /trunk/Schatten über Aysalia/Nicht verwendet/Charakter Generate.frm |
|---|
| 0,0 → 1,1248 |
| VERSION 5.00 |
| Begin VB.Form Charakter |
| BackColor = &H00000000& |
| BorderStyle = 0 'Kein |
| Caption = "Dragon Quest : Charakter Generierung" |
| ClientHeight = 6990 |
| ClientLeft = 0 |
| ClientTop = 60 |
| ClientWidth = 6945 |
| LinkTopic = "Charakter" |
| ScaleHeight = 6990 |
| ScaleWidth = 6945 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'Bildschirmmitte |
| 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 = 360 |
| TabIndex = 37 |
| Top = 2160 |
| Width = 3255 |
| 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 = 2640 |
| TabIndex = 40 |
| Top = 360 |
| 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 = 2640 |
| TabIndex = 39 |
| Top = 960 |
| Width = 375 |
| End |
| 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 = 2640 |
| TabIndex = 38 |
| Top = 1560 |
| Width = 375 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackColor = &H00000000& |
| BackStyle = 0 'Transparent |
| Caption = "Stärke" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 330 |
| Left = 120 |
| TabIndex = 50 |
| Top = 360 |
| Width = 825 |
| End |
| Begin VB.Label Label4 |
| AutoSize = -1 'True |
| BackColor = &H00000000& |
| BackStyle = 0 'Transparent |
| Caption = "Intelligenz" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 330 |
| Left = 120 |
| TabIndex = 49 |
| Top = 960 |
| Width = 1260 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackColor = &H00000000& |
| BackStyle = 0 'Transparent |
| Caption = "Gewandtheit" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 330 |
| Left = 120 |
| TabIndex = 48 |
| Top = 1560 |
| Width = 1560 |
| End |
| Begin VB.Label Label6 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| 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 = 2040 |
| TabIndex = 47 |
| Top = 360 |
| Width = 315 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| 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 = 2040 |
| TabIndex = 46 |
| Top = 960 |
| Width = 315 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| 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 = 2040 |
| TabIndex = 45 |
| Top = 1560 |
| Width = 315 |
| End |
| Begin VB.Label Label9 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Lebensenergie" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H008080FF& |
| Height = 330 |
| Left = 120 |
| TabIndex = 44 |
| Top = 2280 |
| Width = 1770 |
| End |
| Begin VB.Label Label10 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Mana" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 330 |
| Left = 120 |
| TabIndex = 43 |
| Top = 2880 |
| Width = 720 |
| End |
| Begin VB.Label Label11 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| 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 = 2040 |
| TabIndex = 42 |
| Top = 2280 |
| Width = 315 |
| End |
| Begin VB.Label Label12 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| 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 = 2040 |
| TabIndex = 41 |
| Top = 2880 |
| Width = 315 |
| End |
| End |
| Begin VB.CommandButton Command6 |
| Caption = "Mit diesem Helden spielen" |
| 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 = 600 |
| TabIndex = 27 |
| Top = 6120 |
| Width = 2895 |
| End |
| Begin VB.Frame Frame2 |
| BackColor = &H00000000& |
| Caption = "Kampffertigkeiten" |
| 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 = 2175 |
| Left = 3840 |
| TabIndex = 14 |
| Top = 4080 |
| Width = 2535 |
| Begin VB.CommandButton Command15 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 36 |
| Top = 1800 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command14 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 35 |
| Top = 1440 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command13 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 34 |
| Top = 1080 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command12 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 33 |
| Top = 720 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command11 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 32 |
| Top = 360 |
| Width = 375 |
| End |
| Begin VB.Label Label30 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 24 |
| Top = 1800 |
| Width = 285 |
| End |
| Begin VB.Label Label29 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 23 |
| Top = 1440 |
| Width = 285 |
| End |
| Begin VB.Label Label28 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 22 |
| Top = 1080 |
| Width = 285 |
| End |
| Begin VB.Label Label27 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 21 |
| Top = 720 |
| Width = 285 |
| End |
| Begin VB.Label Label26 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 20 |
| Top = 360 |
| Width = 285 |
| End |
| Begin VB.Label Label25 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Bögen" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 11.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 255 |
| Left = 240 |
| TabIndex = 19 |
| Top = 1800 |
| Width = 645 |
| End |
| Begin VB.Label Label24 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Hiebwaffen" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 11.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 255 |
| Left = 240 |
| TabIndex = 18 |
| Top = 1440 |
| Width = 1095 |
| End |
| Begin VB.Label Label23 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Stäbe/Speere" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 11.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 255 |
| Left = 240 |
| TabIndex = 17 |
| Top = 1080 |
| Width = 1290 |
| End |
| Begin VB.Label Label22 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Äxte" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 11.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 255 |
| Left = 240 |
| TabIndex = 16 |
| Top = 720 |
| Width = 480 |
| End |
| Begin VB.Label Label21 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Schwerter" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 11.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 255 |
| Left = 240 |
| TabIndex = 15 |
| Top = 360 |
| Width = 990 |
| End |
| End |
| Begin VB.Frame Frame1 |
| BackColor = &H00000000& |
| Caption = "Magiefertigkeiten" |
| 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 = 1815 |
| Left = 3840 |
| TabIndex = 5 |
| Top = 2160 |
| Width = 2535 |
| Begin VB.CommandButton Command10 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 31 |
| Top = 1440 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command9 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 30 |
| Top = 1080 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command8 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 29 |
| Top = 720 |
| Width = 375 |
| End |
| Begin VB.CommandButton Command7 |
| Caption = "+" |
| Height = 255 |
| Left = 2040 |
| TabIndex = 28 |
| Top = 360 |
| Width = 375 |
| End |
| Begin VB.Label Label20 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 13 |
| Top = 1440 |
| Width = 285 |
| End |
| Begin VB.Label Label19 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 12 |
| Top = 1080 |
| Width = 285 |
| End |
| Begin VB.Label Label18 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Left = 1680 |
| TabIndex = 11 |
| Top = 720 |
| Width = 285 |
| End |
| Begin VB.Label Label17 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "00" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 255 |
| Index = 0 |
| Left = 1680 |
| TabIndex = 10 |
| Top = 360 |
| Width = 285 |
| End |
| Begin VB.Label Label16 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Nekromantie" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00808080& |
| Height = 285 |
| Index = 0 |
| Left = 240 |
| TabIndex = 9 |
| Top = 1440 |
| Width = 1320 |
| End |
| Begin VB.Label Label15 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Natur" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FF00& |
| Height = 285 |
| Left = 240 |
| TabIndex = 8 |
| Top = 1080 |
| Width = 585 |
| End |
| Begin VB.Label Label14 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Licht" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00C0FFFF& |
| Height = 285 |
| Left = 240 |
| TabIndex = 7 |
| Top = 720 |
| Width = 510 |
| End |
| Begin VB.Label Label13 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Chaos" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H000000FF& |
| Height = 285 |
| Left = 240 |
| TabIndex = 6 |
| Top = 360 |
| Width = 630 |
| End |
| End |
| Begin VB.ComboBox Combo1 |
| BackColor = &H00C00000& |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 11.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000FFFF& |
| Height = 375 |
| ItemData = "Charakter Generate.frx":0000 |
| Left = 4320 |
| List = "Charakter Generate.frx":0019 |
| Sorted = -1 'True |
| Style = 2 'Dropdown-Liste |
| TabIndex = 4 |
| ToolTipText = "Wählen sie hier ihren Typus" |
| Top = 960 |
| Width = 2055 |
| End |
| Begin VB.TextBox Text1 |
| BackColor = &H00000000& |
| BeginProperty Font |
| Name = "Arial" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 375 |
| Left = 2040 |
| MousePointer = 3 'I-Cursor |
| TabIndex = 3 |
| Text = "Kai" |
| ToolTipText = "Geben sie hier den Namen ihres Helden ein" |
| Top = 960 |
| Width = 1935 |
| End |
| Begin VB.PictureBox Picture1 |
| BackColor = &H00000000& |
| BorderStyle = 0 'Kein |
| Height = 1455 |
| Left = 240 |
| Picture = "Charakter Generate.frx":005B |
| ScaleHeight = 1455 |
| ScaleWidth = 1695 |
| TabIndex = 2 |
| Top = 240 |
| Width = 1695 |
| End |
| Begin VB.Label Label99 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "L" |
| BeginProperty Font |
| Name = "Tempus Sans ITC" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF80FF& |
| Height = 360 |
| Index = 1 |
| Left = 4320 |
| TabIndex = 54 |
| Top = 6600 |
| Width = 165 |
| End |
| Begin VB.Label Label98 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "G" |
| BeginProperty Font |
| Name = "Tempus Sans ITC" |
| Size = 14.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF00FF& |
| Height = 360 |
| Index = 1 |
| Left = 4440 |
| TabIndex = 53 |
| Top = 6720 |
| Width = 225 |
| End |
| Begin VB.Label Label34 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Lotus Games, (w) by Kai Breiling 1998" |
| BeginProperty Font |
| Name = "OCR A Extended" |
| Size = 9 |
| Charset = 0 |
| Weight = 400 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF00FF& |
| Height = 195 |
| Left = 360 |
| MousePointer = 2 'Kreuz |
| TabIndex = 52 |
| ToolTipText = "Hier draufklicken, um Informationen über Lotus Games zu erhalten" |
| Top = 6720 |
| Width = 3885 |
| End |
| Begin VB.Line Line1 |
| BorderColor = &H00FFFFFF& |
| X1 = 360 |
| X2 = 6360 |
| Y1 = 6720 |
| Y2 = 6720 |
| End |
| Begin VB.Label Label33 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "#Nachteile#" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 360 |
| TabIndex = 51 |
| Top = 1800 |
| Width = 1050 |
| End |
| Begin VB.Label Label32 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| BorderStyle = 1 'Fest Einfach |
| Caption = "6" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 360 |
| Left = 3360 |
| TabIndex = 26 |
| Top = 5640 |
| Width = 225 |
| End |
| Begin VB.Label Label31 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Übrige Punkte" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 300 |
| Left = 1440 |
| TabIndex = 25 |
| Top = 5655 |
| Width = 1725 |
| End |
| Begin VB.Label Label2 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "für Dragon Quest" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 2160 |
| TabIndex = 1 |
| Top = 600 |
| Width = 1215 |
| End |
| Begin VB.Label Label1 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Charakter Generierung" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 18 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 390 |
| Left = 2160 |
| TabIndex = 0 |
| Top = 240 |
| Width = 3675 |
| End |
| End |
| Attribute VB_Name = "Charakter" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Combo1_Click() |
| punkte = 6 |
| Label32.Caption = 6 |
| Select Case Combo1.ListIndex |
| Case 0 |
| minSTRENGTH = 45: addSTRENGTH = 15 |
| minIQ = 45: addIQ = 12 |
| minSPEED = 45: addSPEED = 16 |
| NONmagician |
| SCHWERTER = 4: ÄXTE = 3: STÄBE = 4: HIEBWAFFEN = 5: BÖGEN = 3 |
| GoTo Calculate |
| Case 1 |
| minSTRENGTH = 50: addSTRENGTH = 25 |
| minIQ = 35: addIQ = 8 |
| minSPEED = 45: addSPEED = 10 |
| NONmagician |
| SCHWERTER = 2: ÄXTE = 6: STÄBE = 2: HIEBWAFFEN = 3: BÖGEN = 2 |
| GoTo Calculate |
| Case 2 |
| minSTRENGTH = 40: addSTRENGTH = 12 |
| minIQ = 50: addIQ = 10 |
| minSPEED = 55: addSPEED = 15 |
| magician = 1: CHAOS = 1: NATUR = 4: LICHT = 2: NEKROMANTIE = 0 |
| SCHWERTER = 3: ÄXTE = 1: STÄBE = 4: HIEBWAFFEN = 3: BÖGEN = 5 |
| GoTo Calculate |
| Case 6 |
| minSTRENGTH = 35: addSTRENGTH = 10 |
| minIQ = 50: addIQ = 20 |
| minSPEED = 45: addSPEED = 6 |
| magician = 1: CHAOS = 2: NATUR = 1: LICHT = 0: NEKROMANTIE = 5 |
| GoTo Calculate |
| SCHWERTER = 0: ÄXTE = 0: STÄBE = 3: HIEBWAFFEN = 2: BÖGEN = 1 |
| GoTo Calculate |
| Case 4 |
| minSTRENGTH = 46: addSTRENGTH = 13 |
| minIQ = 45: addIQ = 11 |
| minSPEED = 45: addSPEED = 18 |
| NONmagician |
| SCHWERTER = 7: ÄXTE = 3: STÄBE = 3: HIEBWAFFEN = 3: BÖGEN = 2 |
| GoTo Calculate |
| Case 5 |
| minSTRENGTH = 35: addSTRENGTH = 5 |
| minIQ = 55: addIQ = 25 |
| minSPEED = 45: addSPEED = 8 |
| magician = 1: CHAOS = 3: LICHT = 3: NATUR = 2: NEKROMANTIE = 2 |
| SCHWERTER = 0: ÄXTE = 0: STÄBE = 3: HIEBWAFFEN = 2: BÖGEN = 0 |
| GoTo Calculate |
| Case 3 |
| minSTRENGTH = 35: addSTRENGTH = 9 |
| minIQ = 49: addIQ = 21 |
| minSPEED = 45: addSPEED = 9 |
| magician = 1: CHAOS = 0: LICHT = 5: NATUR = 2: NEKROMANTIE = 0 |
| SCHWERTER = 1: ÄXTE = 0: STÄBE = 3: HIEBWAFFEN = 2: BÖGEN = 1 |
| Calculate: |
| Randomize Timer |
| Strength = Int(addSTRENGTH * Rnd) + minSTRENGTH |
| Randomize Timer |
| Iq = Int(addIQ * Rnd) + minIQ |
| Randomize Timer |
| Speed = Int(addSPEED * Rnd) + minSPEED |
| hpmp |
| Label6.Caption = Strength |
| Label7.Caption = Iq |
| Label8.Caption = Speed |
| Label11.Caption = hp |
| Label12.Caption = mp |
| Label17(0).Caption = CHAOS |
| Label18.Caption = LICHT |
| Label19.Caption = NATUR |
| Label20.Caption = NEKROMANTIE |
| Label26.Caption = SCHWERTER |
| Label27.Caption = ÄXTE |
| Label28.Caption = STÄBE |
| Label29.Caption = HIEBWAFFEN |
| Label30.Caption = BÖGEN |
| infopoint |
| End Select |
| End Sub |
| Private Sub Command1_Click() |
| If punkte = 0 Then Fehler: GoTo no |
| Rutiene |
| Strength = Strength + 1 |
| hp = Int(Strength / 1.2) |
| Label6.Caption = Strength |
| Label11.Caption = hp |
| no: |
| End Sub |
| Private Sub Command10_Click() |
| Kontrolle |
| If magician = 0 Then GoTo Q4 |
| If punkte = 0 Then Fehler: GoTo Q4 |
| Rutiene |
| NEKROMANTIE = NEKROMANTIE + 1 |
| Label20.Caption = NEKROMANTIE |
| Q4: |
| End Sub |
| Private Sub Command11_Click() |
| If punkte = 0 Then Fehler: GoTo F1 |
| Rutiene |
| SCHWERTER = SCHWERTER + 1 |
| Label26.Caption = SCHWERTER |
| F1: |
| End Sub |
| Private Sub Command12_Click() |
| If punkte = 0 Then Fehler: GoTo F2 |
| Rutiene |
| ÄXTE = ÄXTE + 1 |
| Label27.Caption = ÄXTE |
| F2: |
| End Sub |
| Private Sub Command13_Click() |
| If punkte = 0 Then Fehler: GoTo F3 |
| Rutiene |
| STÄBE = STÄBE + 1 |
| Label28.Caption = STÄBE |
| F3: |
| End Sub |
| Private Sub Command14_Click() |
| If punkte = 0 Then Fehler: GoTo F4 |
| Rutiene |
| HIEBWAFFEN = HIEBWAFFEN + 1 |
| Label29.Caption = HIEBWAFFEN |
| F4: |
| End Sub |
| Private Sub Command15_Click() |
| If punkte = 0 Then Fehler: GoTo F7 |
| Rutiene |
| BÖGEN = BÖGEN + 1 |
| Label30.Caption = BÖGEN |
| F7: |
| End Sub |
| Private Sub Command2_Click() |
| If punkte = 0 Then Fehler: GoTo no2 |
| Rutiene |
| Iq = Iq + 1 |
| If magician = 0 Then GoTo jump |
| mp = Int(Iq / 1.2) |
| jump: |
| Label7.Caption = Iq |
| Label12.Caption = mp |
| 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() |
| End Sub |
| Private Sub Command6_Click() |
| hpmp |
| nom = Text1.Text |
| typus = Combo1.Text |
| Unload Charakter |
| Vorgeschichte.Show |
| End Sub |
| Private Sub Command7_Click() |
| Kontrolle |
| If magician = 0 Then GoTo Q1 |
| If punkte = 0 Then Fehler: GoTo Q1 |
| Rutiene |
| CHAOS = CHAOS + 1 |
| Label17(0).Caption = CHAOS |
| Q1: |
| End Sub |
| Private Sub Command8_Click() |
| Kontrolle |
| If magician = 0 Then GoTo Q2 |
| If punkte = 0 Then Fehler: GoTo Q2 |
| Rutiene |
| LICHT = LICHT + 1 |
| Label18.Caption = LICHT |
| Q2: |
| End Sub |
| Private Sub Command9_Click() |
| Kontrolle |
| If magician = 0 Then GoTo Q3 |
| If punkte = 0 Then Fehler: GoTo Q3 |
| Rutiene |
| NATUR = NATUR + 1 |
| Label19.Caption = NATUR |
| Q3: |
| End Sub |
| Private Sub Form_Load() |
| punkte = 6 |
| End Sub |
| Private Sub infopoint() |
| If Combo1.Text = "Amazone" Then Label33.Caption = "Kann nicht zaubern" |
| If Combo1.Text = "Barbar" Then Label33.Caption = "Darf nur Lederrüstungen tragen / kann nicht zaubern" |
| If Combo1.Text = "Elf" Then Label33.Caption = "Darf nur Lederrüstungen tragen" |
| If Combo1.Text = "Klerikerin" Then Label33.Caption = "Darf keine Äxte führen / Darf nur Lederrüstungen tragen" |
| If Combo1.Text = "Krieger" Then Label33.Caption = "Kann nicht zaubern" |
| If Combo1.Text = "Magier" Then Label33.Caption = "Darf keine Äxte führen / darf nur Lederrüstungen tragen" |
| If Combo1.Text = "Nekromanzer" Then Label33.Caption = "Darf nur Lederrüstungen tragen / darf keine elfischen Waffen führen" |
| End Sub |
| Private Sub Label34_Click() |
| LotusNews.Show |
| End Sub |
| Sub hpmp() |
| STARThp = Int(Strength / 1.2) |
| hp = STARThp |
| STARTmp = Int(Iq / 1.2) |
| If magician = 0 Then STARTmp = 0 |
| mp = STARTmp |
| End Sub |
| /trunk/Schatten über Aysalia/Nicht verwendet/Charakter generate.frx |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Schatten über Aysalia/Nicht verwendet/Charakter generate.vbp |
|---|
| 0,0 → 1,102 |
| Type=Exe |
| Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation |
| Form=DQstory.frm |
| Form=Landkarte.frm |
| Module=Module1; DragonData.bas |
| Form=Kampf.frm |
| Form=Spruchbuch.frm |
| Module=Module2; DragonDataSub.bas |
| Form=Rast.frm |
| Form=LevelFort.frm |
| Form=ObjectSelect.frm |
| Form=Beute.frm |
| Form=StartTitle.frm |
| Module=Module3; ZauberData.bas |
| Form=Lindgar.frm |
| Form=LgSmith1.frm |
| Form=Tot.frm |
| Form=LgGuild1.frm |
| Form=LgShop1.frm |
| Form=LgTaverne1.frm |
| Form=LgRust1.frm |
| Form=LotusNews.frm |
| Form=Amazon.frm |
| Form=AzSmith2.frm |
| Form=AzTrain1.frm |
| Form=AzBow1.frm |
| Form=Gragook.frm |
| Form=GrSmith3.frm |
| Form=GrRust3.frm |
| Form=GrTaverne2.frm |
| Form=GrGilde3.frm |
| Form=Phaekskar.frm |
| Form=PhSmith4.frm |
| Form=PhTaverne4.frm |
| Form=PhGilde4.frm |
| Form=Shaela.frm |
| Form=ShSmith4.frm |
| Form=ShBow2.frm |
| Form=ShGilde4.frm |
| Form=ShRust4.frm |
| Form=Kristallsee.frm |
| Form=KrTauchen.frm |
| Form=KrSchatz.frm |
| Form=Feenwald.frm |
| Form=FeKobold.frm |
| Form=FeSee.frm |
| Form=FeMedusaEi.frm |
| Form=FeTempel.frm |
| Form=FeSchatz.frm |
| Form=Charakter.frm |
| Form=Höhlen.frm |
| Form=HöTruhe.frm |
| Form=HöTisch.frm |
| Form=HöhlenE2.frm |
| Form=HöTruhe2.frm |
| Form=HöTruhe3.frm |
| Form=HöTruhe4.frm |
| Form=HöAltar.frm |
| Form=Wüste.frm |
| Form=WsFelsen.frm |
| Form=WsObelisk.frm |
| Form=WsOase.frm |
| Form=WsLager.frm |
| Form=Sumpf.frm |
| Form=SuBaum.frm |
| Form=SuWolke.frm |
| Form=FESTUNG.frm |
| Form=Festung2.frm |
| IconForm="StartTitle" |
| Startup="StartTitle" |
| HelpFile="" |
| Title="Dragon Quest" |
| ExeName32="Dragon Quest.exe" |
| Path32="" |
| Command32="" |
| Name="DragonQuest" |
| HelpContextID="0" |
| Description="Rollenspiel" |
| CompatibleMode="0" |
| MajorVer=1 |
| MinorVer=0 |
| RevisionVer=0 |
| AutoIncrementVer=0 |
| ServerSupportFiles=0 |
| VersionComments="Elvenlord@Gmx.de" |
| VersionCompanyName="Lotus Games" |
| VersionLegalCopyright="(w) 1999 by Kai Breiling" |
| VersionProductName="Dragon Quest" |
| CompilationType=0 |
| OptimizationType=0 |
| FavorPentiumPro(tm)=0 |
| CodeViewDebugInfo=0 |
| NoAliasing=0 |
| BoundsCheck=0 |
| OverflowCheck=0 |
| FlPointCheck=0 |
| FDIVCheck=0 |
| UnroundedFP=0 |
| StartMode=0 |
| Unattended=0 |
| ThreadPerObject=0 |
| MaxNumberOfThreads=1 |
| /trunk/Schatten über Aysalia/Nicht verwendet/Dragon Quest.bas |
|---|
| 0,0 → 1,9 |
| Attribute VB_Name = "Module1" |
| Global punkte As Integer |
| Global Strength, Iq, Speed, STARTmp, STARThp, hp, mp As Integer |
| Global CHAOS, LICHT, NATUR, NEKROMANTIE As Integer |
| Global SCHWERTER, ÄXTE, STÄBE, HIEBWAFFEN, BÖGEN As Integer |
| Global magician As Integer |
| Global nom, typus As String |
| /trunk/Schatten über Aysalia/Nicht verwendet/GrGilde3.frm |
|---|
| 0,0 → 1,448 |
| VERSION 5.00 |
| Begin VB.Form GrGuild3 |
| BackColor = &H00000040& |
| BorderStyle = 0 'Kein |
| Caption = "GrGuild3" |
| ClientHeight = 4995 |
| ClientLeft = 0 |
| ClientTop = 0 |
| ClientWidth = 7230 |
| ForeColor = &H00400000& |
| LinkTopic = "GrGuild3" |
| ScaleHeight = 4995 |
| ScaleWidth = 7230 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'Bildschirmmitte |
| Begin VB.ListBox List1 |
| BackColor = &H00000000& |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 2220 |
| ItemData = "GrGilde3.frx":0000 |
| Left = 600 |
| List = "GrGilde3.frx":0010 |
| TabIndex = 1 |
| Top = 840 |
| Width = 2055 |
| End |
| Begin VB.CommandButton Command2 |
| Caption = "Verlassen" |
| 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 = 4920 |
| TabIndex = 0 |
| Top = 3960 |
| Width = 1335 |
| End |
| Begin VB.Label Label15 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Auftrag" |
| Enabled = 0 'False |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 240 |
| Left = 4920 |
| TabIndex = 17 |
| Top = 4440 |
| Width = 750 |
| End |
| Begin VB.Label Label1 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Magiergilde ""Dämmerung und Finsternis""" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 15.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF0000& |
| Height = 375 |
| Left = 480 |
| TabIndex = 16 |
| Top = 120 |
| Width = 6450 |
| End |
| Begin VB.Shape Shape1 |
| BorderColor = &H00FF0000& |
| Height = 2175 |
| Left = 3000 |
| Top = 840 |
| Width = 3735 |
| End |
| Begin VB.Label Label2 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label2" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 195 |
| Left = 4440 |
| TabIndex = 15 |
| Top = 960 |
| Width = 585 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Schaden" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3120 |
| TabIndex = 14 |
| Top = 1440 |
| Width = 765 |
| End |
| Begin VB.Label Label4 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Mana" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3120 |
| TabIndex = 13 |
| Top = 1920 |
| Width = 480 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Preis" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3120 |
| TabIndex = 12 |
| Top = 2520 |
| Width = 435 |
| End |
| Begin VB.Label Label6 |
| Alignment = 1 'Rechts |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l6" |
| 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 = 195 |
| Left = 4620 |
| TabIndex = 11 |
| Top = 1440 |
| Width = 165 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l7" |
| 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 = 195 |
| Left = 4800 |
| TabIndex = 10 |
| Top = 1920 |
| Width = 165 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l8" |
| 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 = 4440 |
| TabIndex = 9 |
| Top = 2520 |
| Width = 165 |
| End |
| Begin VB.Label Label9 |
| AutoSize = -1 'True |
| 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 = &H00FFFFFF& |
| Height = 195 |
| Left = 4800 |
| TabIndex = 8 |
| Top = 1440 |
| Width = 75 |
| End |
| Begin VB.Label Label10 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l0" |
| 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 = 195 |
| Left = 4920 |
| TabIndex = 7 |
| Top = 1440 |
| Width = 165 |
| End |
| Begin VB.Label Label11 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Goldkronen" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 4920 |
| TabIndex = 6 |
| Top = 3120 |
| Width = 825 |
| End |
| Begin VB.Label Label12 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label12" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 6120 |
| TabIndex = 5 |
| Top = 3120 |
| Width = 570 |
| End |
| Begin VB.Label Label17 |
| BackStyle = 0 'Transparent |
| Caption = "Rajek, Gildenmeister der Nekromantie" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 1095 |
| Left = 600 |
| TabIndex = 4 |
| Top = 3720 |
| Width = 4215 |
| End |
| Begin VB.Label Label13 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Gilde der Nekromantie beitreten" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00C0C0FF& |
| Height = 195 |
| Left = 600 |
| TabIndex = 3 |
| Top = 3120 |
| Width = 2715 |
| End |
| Begin VB.Label Label14 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "100 Goldkronen" |
| ForeColor = &H00C0C0FF& |
| Height = 195 |
| Left = 600 |
| TabIndex = 2 |
| Top = 3360 |
| Width = 1140 |
| End |
| End |
| Attribute VB_Name = "GrGuild3" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Command2_Click() |
| Unload GrGuild3 |
| Gragook.Show |
| End Sub |
| Private Sub Form_Load() |
| RADIKAL |
| initial |
| End Sub |
| Private Sub Label13_Click() |
| If magician = 0 Then Label17.Caption = "Du musst schon was von Magie wissen, kleiner!": GoTo nixnix |
| If DämmerungUndFinsternis = 1 Then Label17.Caption = "Du bist schon Mitglied!": GoTo nixnix |
| If gold < 100 Then Label17.Caption = "Tut mir leid, Ohne Gold kannst du uns nicht beitreten.": GoTo nixnix |
| gold = gold - 100 |
| DämmerungUndFinsternis = 1 |
| Label17.Caption = "Sei gegrüßt! Du bist nun Mitglied in unserer Gilde." |
| initial |
| nixnix: |
| End Sub |
| Private Sub Label2_Click() |
| If gold < kpreis Then Label17.Caption = "Hüte dich, mit mir Scherze zu treiben!": GoTo nixda |
| gold = gold - kpreis |
| spell = List1.Text: Spruchbuch.Combo1.AddItem spell |
| Label17.Caption = "Dieser Spruch wird sehr nützlich sein!" |
| initial |
| nixda: |
| End Sub |
| Private Sub List1_Click() |
| If List1.Text = "Mantel des Todes" Then GoTo feuerball |
| If List1.Text = "Schattenblitz" Then GoTo flammenstrahl |
| If List1.Text = "Verwesung" Then GoTo Manabrand |
| If List1.Text = "Lähmung" Then GoTo drachenodem |
| If List1.Text = "a" Then GoTo Erdbeben |
| feuerball: |
| kwaffe = "Mantel des Todes" |
| kgrundschaden = 5 |
| kzusatzschaden = 10 |
| kmana = 26 |
| kpreis = 225 |
| initial |
| GoTo weiter |
| flammenstrahl: |
| kwaffe = "Schattenblitz" |
| kgrundschaden = 1 |
| kzusatzschaden = 19 |
| kmana = 20 |
| kpreis = 280 |
| initial |
| GoTo weiter |
| Manabrand: |
| kwaffe = "Verwesung" |
| kgrundschaden = 1 |
| kzusatzschaden = 6 |
| kmana = 12 |
| kpreis = 115 |
| initial |
| GoTo weiter |
| drachenodem: |
| kwaffe = "Lähmung" |
| kgrundschaden = 0 |
| kzusatzschaden = 0 |
| kmana = 20 |
| kpreis = 350 |
| initial |
| GoTo weiter |
| Erdbeben: |
| kwaffe = "" |
| kgrundschaden = 4 |
| kzusatzschaden = 12 |
| kmana = 18 |
| kpreis = 130 |
| initial |
| weiter: |
| End Sub |
| Sub initial() |
| If DämmerungUndFinsterniss = 0 Then List1.Enabled = False Else List1.Enabled = True |
| Label12.Caption = gold |
| Label2.Caption = kwaffe |
| Label6.Caption = kgrundschaden |
| Label10.Caption = kgrundschaden + kzusatzschaden |
| Label7.Caption = kmana |
| Label8.Caption = Str(kpreis) + " Goldkronen" |
| If List1.Text = "Lähmung" Then Label6.Caption = "0": Label10.Caption = "Lähmt für 3 Runden" |
| End Sub |
| /trunk/Schatten über Aysalia/Nicht verwendet/GrGilde3.frx |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Schatten über Aysalia/Nicht verwendet/LgGuild1.frm |
|---|
| 0,0 → 1,460 |
| VERSION 5.00 |
| Begin VB.Form LgGuild1 |
| BackColor = &H00000040& |
| BorderStyle = 0 'Kein |
| Caption = "LgGuild1" |
| ClientHeight = 5805 |
| ClientLeft = 0 |
| ClientTop = 0 |
| ClientWidth = 7290 |
| LinkTopic = "LgGuild1" |
| MaxButton = 0 'False |
| MinButton = 0 'False |
| ScaleHeight = 5805 |
| ScaleWidth = 7290 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'Bildschirmmitte |
| Begin VB.CommandButton Command2 |
| Caption = "Verlassen" |
| 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 = 4920 |
| TabIndex = 13 |
| Top = 3840 |
| Width = 1335 |
| End |
| Begin VB.ListBox List1 |
| BackColor = &H00000000& |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 2220 |
| ItemData = "LgGuild1.frx":0000 |
| Left = 600 |
| List = "LgGuild1.frx":0013 |
| TabIndex = 1 |
| Top = 960 |
| Width = 2055 |
| End |
| Begin VB.Label Label15 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Auftrag" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 240 |
| Left = 4920 |
| TabIndex = 17 |
| Top = 4320 |
| Width = 750 |
| End |
| Begin VB.Label Label14 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "100 Goldkronen" |
| ForeColor = &H008080FF& |
| Height = 195 |
| Left = 600 |
| TabIndex = 16 |
| Top = 3480 |
| Width = 1140 |
| End |
| Begin VB.Label Label13 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Gilde des Chaos beitreten" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H008080FF& |
| Height = 195 |
| Left = 600 |
| TabIndex = 15 |
| Top = 3240 |
| Width = 2205 |
| End |
| Begin VB.Label Label17 |
| BackStyle = 0 'Transparent |
| Caption = "Xandus, Gildenmeister des Chaos" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 1095 |
| Left = 600 |
| TabIndex = 14 |
| Top = 3840 |
| Width = 4215 |
| End |
| Begin VB.Label Label12 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label12" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 4200 |
| TabIndex = 12 |
| Top = 3240 |
| Width = 570 |
| End |
| Begin VB.Label Label11 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Goldkronen" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 3000 |
| TabIndex = 11 |
| Top = 3240 |
| Width = 825 |
| End |
| Begin VB.Label Label10 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l0" |
| 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 = 195 |
| Left = 4920 |
| TabIndex = 10 |
| Top = 1560 |
| Width = 165 |
| End |
| Begin VB.Label Label9 |
| AutoSize = -1 'True |
| 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 = &H00FFFFFF& |
| Height = 195 |
| Left = 4800 |
| TabIndex = 9 |
| Top = 1560 |
| Width = 75 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l8" |
| 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 = 4440 |
| TabIndex = 8 |
| Top = 2640 |
| Width = 165 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l7" |
| 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 = 195 |
| Left = 4800 |
| TabIndex = 7 |
| Top = 2040 |
| Width = 165 |
| End |
| Begin VB.Label Label6 |
| Alignment = 1 'Rechts |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l6" |
| 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 = 195 |
| Left = 4620 |
| TabIndex = 6 |
| Top = 1560 |
| Width = 165 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Preis" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3120 |
| TabIndex = 5 |
| Top = 2640 |
| Width = 435 |
| End |
| Begin VB.Label Label4 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Mana" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3120 |
| TabIndex = 4 |
| Top = 2040 |
| Width = 480 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Schaden" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3120 |
| TabIndex = 3 |
| Top = 1560 |
| Width = 765 |
| End |
| Begin VB.Label Label2 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label2" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 195 |
| Left = 4440 |
| TabIndex = 2 |
| Top = 1080 |
| Width = 585 |
| End |
| Begin VB.Shape Shape1 |
| BorderColor = &H00FF0000& |
| Height = 2175 |
| Left = 3000 |
| Top = 960 |
| Width = 3735 |
| End |
| Begin VB.Label Label1 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Magiergilde ""Chaos und Hölleninferno""" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 15.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H000000FF& |
| Height = 375 |
| Left = 600 |
| TabIndex = 0 |
| Top = 240 |
| Width = 6045 |
| End |
| End |
| Attribute VB_Name = "LgGuild1" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Command1_Click() |
| If Text1.Text = "Xajek" Then Label17.Caption = "Er hat bei uns die Magie der zerstörung gelernt, doch kurz vor beendigung hat er abgebrochen und ist zu einer Gilde der Nekromantie übergegangen. Er ist böse ... und gefährlich.": GoTo weiter |
| weiter: |
| End Sub |
| Private Sub Command2_Click() |
| Unload LgGuild1 |
| Lindgar.Show |
| End Sub |
| Private Sub Form_Load() |
| If yymittel = 1 Or yymittel = 2 Then Label15.Enabled = False |
| RADIKAL |
| initial |
| End Sub |
| Private Sub Label13_Click() |
| If magician = 0 Then Label17.Caption = "Tut mir leid, aber du brauchst Grundkenntnisse der Magie!": GoTo nixnix |
| If ChaosUndHölleninferno = 1 Then Label17.Caption = "Du bist schon Mitglied!": GoTo nixnix |
| If gold < 100 Then Label17.Caption = "Tut mir leid, Ohne Gold kannst du uns nicht beitreten.": GoTo nixnix |
| gold = gold - 100 |
| ChaosUndHölleninferno = 1 |
| Label17.Caption = "Sei gegrüßt! Du bist nun Mitglied in unserer Gilde." |
| initial |
| nixnix: |
| End Sub |
| Private Sub Label15_Click() |
| a = MsgBox("Danke, vielen Dank! Dieses Mittel gegen eine schwere Krankheit muss unbedingt nach Phaekskar gebracht werden, um einen alten Freund zu helfen.", 64 + vbYesNo, "Xandus") |
| b = Val(a) |
| If b = vbYes Then yymittel = 1: Label15.Enabled = False |
| End Sub |
| Private Sub Label2_Click() |
| If gold < kpreis Then Label17.Caption = "Hüte dich, mit mir Scherze zu treiben!": GoTo nixda |
| gold = gold - kpreis |
| spell = List1.Text: Spruchbuch.Combo1.AddItem spell |
| Label17.Caption = "Dieser Spruch wird sehr nützlich sein!" |
| initial |
| nixda: |
| End Sub |
| Private Sub List1_Click() |
| If List1.Text = "Feuerball" Then GoTo feuerball |
| If List1.Text = "Flammenstrahl" Then GoTo flammenstrahl |
| If List1.Text = "Manabrand" Then GoTo Manabrand |
| If List1.Text = "Drachenodem" Then GoTo drachenodem |
| If List1.Text = "Erdbeben" Then GoTo Erdbeben |
| feuerball: |
| kwaffe = "Feuerball" |
| kgrundschaden = 3 |
| kzusatzschaden = 9 |
| kmana = 12 |
| kpreis = 180 |
| initial |
| GoTo weiter |
| flammenstrahl: |
| kwaffe = "Flammenstrahl" |
| kgrundschaden = 8 |
| kzusatzschaden = 6 |
| kmana = 25 |
| kpreis = 250 |
| initial |
| GoTo weiter |
| Manabrand: |
| kwaffe = "Manabrand" |
| kgrundschaden = 0 |
| kzusatzschaden = 0 |
| kmana = 0 |
| kpreis = 115 |
| initial |
| GoTo weiter |
| drachenodem: |
| kwaffe = "Drachenodem" |
| kgrundschaden = 5 |
| kzusatzschaden = 15 |
| kmana = 40 |
| kpreis = 350 |
| initial |
| GoTo weiter |
| Erdbeben: |
| kwaffe = "Erdbeben" |
| kgrundschaden = 4 |
| kzusatzschaden = 12 |
| kmana = 18 |
| kpreis = 130 |
| initial |
| weiter: |
| End Sub |
| Sub initial() |
| If ChaosUndHölleninferno = 0 Then List1.Enabled = False Else List1.Enabled = True |
| Label12.Caption = gold |
| Label2.Caption = kwaffe |
| Label6.Caption = kgrundschaden |
| Label10.Caption = kgrundschaden + kzusatzschaden |
| Label7.Caption = kmana |
| Label8.Caption = Str(kpreis) + " Goldkronen" |
| If List1.Text = "Manabrand" Then Label6.Caption = "0": Label10.Caption = "maxmp des Gegners": Label7.Caption = "Schaden" |
| End Sub |
| /trunk/Schatten über Aysalia/Nicht verwendet/LgGuild1.frx |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Schatten über Aysalia/Nicht verwendet/PhGilde4.frm |
|---|
| 0,0 → 1,451 |
| VERSION 5.00 |
| Begin VB.Form PhGilde4 |
| BackColor = &H00C0C0C0& |
| BorderStyle = 0 'Kein |
| Caption = "PhGilde4" |
| ClientHeight = 5910 |
| ClientLeft = 0 |
| ClientTop = 0 |
| ClientWidth = 7440 |
| LinkTopic = "PhGilde4" |
| ScaleHeight = 5910 |
| ScaleWidth = 7440 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'Bildschirmmitte |
| Begin VB.ListBox List1 |
| BackColor = &H00800000& |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 2220 |
| ItemData = "PhGilde4.frx":0000 |
| Left = 840 |
| List = "PhGilde4.frx":0013 |
| TabIndex = 1 |
| Top = 960 |
| Width = 2055 |
| End |
| Begin VB.CommandButton Command2 |
| Caption = "Verlassen" |
| 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 = 5160 |
| TabIndex = 0 |
| Top = 4080 |
| Width = 1335 |
| End |
| Begin VB.Label Label15 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Auftrag" |
| Enabled = 0 'False |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 240 |
| Left = 5160 |
| TabIndex = 17 |
| Top = 4560 |
| Width = 750 |
| End |
| Begin VB.Label Label1 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Magiergilde ""Licht und Frieden""" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 15.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 375 |
| Left = 1080 |
| TabIndex = 16 |
| Top = 240 |
| Width = 4905 |
| End |
| Begin VB.Shape Shape1 |
| BorderColor = &H00FF0000& |
| Height = 2175 |
| Left = 3240 |
| Top = 960 |
| Width = 3735 |
| End |
| Begin VB.Label Label2 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label2" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00000000& |
| Height = 195 |
| Left = 4680 |
| TabIndex = 15 |
| Top = 1080 |
| Width = 585 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Schaden" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF0000& |
| Height = 195 |
| Left = 3360 |
| TabIndex = 14 |
| Top = 1560 |
| Width = 765 |
| End |
| Begin VB.Label Label4 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Mana" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF0000& |
| Height = 195 |
| Left = 3360 |
| TabIndex = 13 |
| Top = 2040 |
| Width = 480 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Preis" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF0000& |
| Height = 195 |
| Left = 3360 |
| TabIndex = 12 |
| Top = 2640 |
| Width = 435 |
| End |
| Begin VB.Label Label6 |
| Alignment = 1 'Rechts |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l6" |
| 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 = 195 |
| Left = 4860 |
| TabIndex = 11 |
| Top = 1560 |
| Width = 165 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l7" |
| 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 = 195 |
| Left = 5040 |
| TabIndex = 10 |
| Top = 2040 |
| Width = 165 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l8" |
| 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 = 4680 |
| TabIndex = 9 |
| Top = 2640 |
| Width = 165 |
| End |
| Begin VB.Label Label9 |
| AutoSize = -1 'True |
| 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 = &H00FFFFFF& |
| Height = 195 |
| Left = 5040 |
| TabIndex = 8 |
| Top = 1560 |
| Width = 75 |
| End |
| Begin VB.Label Label10 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l0" |
| 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 = 195 |
| Left = 5160 |
| TabIndex = 7 |
| Top = 1560 |
| Width = 165 |
| End |
| Begin VB.Label Label11 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Goldkronen" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 3240 |
| TabIndex = 6 |
| Top = 3240 |
| Width = 825 |
| End |
| Begin VB.Label Label12 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label12" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 4440 |
| TabIndex = 5 |
| Top = 3240 |
| Width = 570 |
| End |
| Begin VB.Label Label17 |
| BackStyle = 0 'Transparent |
| Caption = "Lara, Gildenmeisterin des Lichtes" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00000000& |
| Height = 1095 |
| Left = 840 |
| TabIndex = 4 |
| Top = 3960 |
| Width = 4335 |
| End |
| Begin VB.Label Label13 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Gilde des Lichtes beitreten" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF0000& |
| Height = 195 |
| Left = 840 |
| TabIndex = 3 |
| Top = 3240 |
| Width = 2295 |
| End |
| Begin VB.Label Label14 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "100 Goldkronen" |
| ForeColor = &H00FF0000& |
| Height = 195 |
| Left = 840 |
| TabIndex = 2 |
| Top = 3480 |
| Width = 1140 |
| End |
| End |
| Attribute VB_Name = "PhGilde4" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Command2_Click() |
| Unload PhGilde4 |
| Phaekskar.Show |
| End Sub |
| Private Sub Form_Load() |
| RADIKAL |
| initial |
| End Sub |
| Private Sub Label13_Click() |
| If magician = 0 Then Label17.Caption = "Nein mein Kind, du brauchst Kenntnisse der Magie!": GoTo nixnix |
| If typus = "Nekromant" Then Label17.Caption = "Als Nekromant wirst du nicht in diese Gilde aufgenommen!": GoTo nixnix |
| If DämmerungUndFinsternis = 1 Then Label17.Caption = "Du kannst uns nicht beitreten, weil du der Gilde der Nekromantie angehörst.": GoTo nixnix |
| If LichtUndFrieden = 1 Then Label17.Caption = "Du bist schon Mitglied!": GoTo nixnix |
| If gold < 100 Then Label17.Caption = "Tut mir leid, Ohne Gold kannst du uns nicht beitreten.": GoTo nixnix |
| gold = gold - 100 |
| LichtUndFrieden = 1 |
| Label17.Caption = "Sei gegrüßt! Du bist nun Mitglied in unserer Gilde." |
| initial |
| nixnix: |
| End Sub |
| Private Sub Label2_Click() |
| If gold < kpreis Then Label17.Caption = "Hüte dich, mit mir Scherze zu treiben!": GoTo nixda |
| gold = gold - kpreis |
| spell = List1.Text: Spruchbuch.Combo1.AddItem spell |
| Label17.Caption = "Dieser Spruch wird sehr nützlich sein!" |
| initial |
| nixda: |
| End Sub |
| Private Sub List1_Click() |
| If List1.Text = "Genesung" Then GoTo feuerball |
| If List1.Text = "Blitzstrahl" Then GoTo flammenstrahl |
| If List1.Text = "Blitzschlag" Then GoTo Manabrand |
| If List1.Text = "Wunden heilen" Then GoTo Erdbeben |
| If List1.Text = "Exorzismus" Then GoTo drachenodem |
| feuerball: |
| kwaffe = "Genesung" |
| kgrundschaden = 0 |
| kzusatzschaden = 0 |
| kmana = 25 |
| kpreis = 140 |
| initial |
| GoTo weiter |
| flammenstrahl: |
| kwaffe = "Blitzstrahl" |
| kgrundschaden = 3 |
| kzusatzschaden = 15 |
| kmana = 30 |
| kpreis = 240 |
| initial |
| GoTo weiter |
| Manabrand: |
| kwaffe = "Blitzschlag" |
| kgrundschaden = 8 |
| kzusatzschaden = 20 |
| kmana = 45 |
| kpreis = 280 |
| initial |
| GoTo weiter |
| drachenodem: |
| kwaffe = "Exorzismus" |
| kgrundschaden = 0 |
| kzusatzschaden = 150 |
| kmana = 80 |
| kpreis = 450 |
| initial |
| GoTo weiter |
| Erdbeben: |
| kwaffe = "Wunden heilen" |
| kgrundschaden = 5 |
| kzusatzschaden = 10 |
| kmana = 15 |
| kpreis = 130 |
| initial |
| weiter: |
| End Sub |
| Sub initial() |
| If LichtUndFrieden = 0 Then List1.Enabled = False Else List1.Enabled = True |
| Label3.Caption = "Schaden" |
| Label12.Caption = gold |
| Label2.Caption = kwaffe |
| Label6.Caption = kgrundschaden |
| Label10.Caption = kgrundschaden + kzusatzschaden |
| Label7.Caption = kmana |
| Label8.Caption = Str(kpreis) + " Goldkronen" |
| If List1.Text = "Genesung" Then Label6.Caption = "0": Label10.Caption = "heilt krank und vergiftet": Label3.Caption = "Wirkung" |
| If List1.Text = "Wunden heilen" Then Label3.Caption = "Heilung" |
| End Sub |
| /trunk/Schatten über Aysalia/Nicht verwendet/PhGilde4.frx |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Schatten über Aysalia/Nicht verwendet/ShGilde4.frm |
|---|
| 0,0 → 1,400 |
| VERSION 5.00 |
| Begin VB.Form ShGilde4 |
| BackColor = &H00404000& |
| BorderStyle = 0 'Kein |
| Caption = "ShGilde4" |
| ClientHeight = 6360 |
| ClientLeft = 0 |
| ClientTop = 0 |
| ClientWidth = 7935 |
| LinkTopic = "ShGilde4" |
| ScaleHeight = 6360 |
| ScaleWidth = 7935 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'Bildschirmmitte |
| Begin VB.ListBox List1 |
| BackColor = &H00004000& |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0080FF80& |
| Height = 2220 |
| ItemData = "ShGilde4.frx":0000 |
| Left = 960 |
| List = "ShGilde4.frx":0013 |
| TabIndex = 1 |
| Top = 960 |
| Width = 2055 |
| End |
| Begin VB.CommandButton Command2 |
| Caption = "Verlassen" |
| 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 = 5280 |
| TabIndex = 0 |
| Top = 4080 |
| Width = 1335 |
| End |
| Begin VB.Label Label9 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Auftrag" |
| Enabled = 0 'False |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 9.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FF8080& |
| Height = 240 |
| Left = 5280 |
| TabIndex = 15 |
| Top = 4560 |
| Width = 750 |
| End |
| Begin VB.Label Label1 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Magiergilde ""Feenstaub""" |
| BeginProperty Font |
| Name = "Tahoma" |
| Size = 15.75 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFF80& |
| Height = 375 |
| Left = 1920 |
| TabIndex = 14 |
| Top = 240 |
| Width = 3840 |
| End |
| Begin VB.Shape Shape1 |
| BorderColor = &H00FF0000& |
| Height = 2175 |
| Left = 3360 |
| Top = 960 |
| Width = 3735 |
| End |
| Begin VB.Label Label2 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label2" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 195 |
| Left = 4800 |
| TabIndex = 13 |
| Top = 1080 |
| Width = 585 |
| End |
| Begin VB.Label Label3 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Wirkung" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3480 |
| TabIndex = 12 |
| Top = 1560 |
| Width = 720 |
| End |
| Begin VB.Label Label4 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Mana" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3480 |
| TabIndex = 11 |
| Top = 2040 |
| Width = 480 |
| End |
| Begin VB.Label Label5 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Preis" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFC0C0& |
| Height = 195 |
| Left = 3480 |
| TabIndex = 10 |
| Top = 2640 |
| Width = 435 |
| End |
| Begin VB.Label Label6 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l6" |
| 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 = 195 |
| Left = 4980 |
| TabIndex = 9 |
| Top = 1560 |
| Width = 165 |
| End |
| Begin VB.Label Label7 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l7" |
| 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 = 195 |
| Left = 5160 |
| TabIndex = 8 |
| Top = 2040 |
| Width = 165 |
| End |
| Begin VB.Label Label8 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "l8" |
| 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 = 4800 |
| TabIndex = 7 |
| Top = 2640 |
| Width = 165 |
| End |
| Begin VB.Label Label11 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Goldkronen" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 3360 |
| TabIndex = 6 |
| Top = 3240 |
| Width = 825 |
| End |
| Begin VB.Label Label12 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Label12" |
| ForeColor = &H0000FFFF& |
| Height = 195 |
| Left = 4560 |
| TabIndex = 5 |
| Top = 3240 |
| Width = 570 |
| End |
| Begin VB.Label Label17 |
| BackStyle = 0 'Transparent |
| Caption = "Farnion, Gildenmeister der Natur" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00E0E0E0& |
| Height = 1095 |
| Left = 960 |
| TabIndex = 4 |
| Top = 4080 |
| Width = 4335 |
| End |
| Begin VB.Label Label13 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "Gilde der Natur beitreten" |
| BeginProperty Font |
| Name = "MS Sans Serif" |
| Size = 8.25 |
| Charset = 0 |
| Weight = 700 |
| Underline = -1 'True |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H0000C000& |
| Height = 195 |
| Left = 960 |
| TabIndex = 3 |
| Top = 3240 |
| Width = 2115 |
| End |
| Begin VB.Label Label14 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "100 Goldkronen" |
| ForeColor = &H0000C000& |
| Height = 195 |
| Left = 960 |
| TabIndex = 2 |
| Top = 3480 |
| Width = 1140 |
| End |
| End |
| Attribute VB_Name = "ShGilde4" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Command2_Click() |
| Unload ShGilde4 |
| Shaela.Show |
| End Sub |
| Private Sub Form_Load() |
| RADIKAL |
| initial |
| End Sub |
| Private Sub Label13_Click() |
| If magician = 0 Then Label17.Caption = "Es tur mir außerordentlich leid, aber du bist nicht magiebegabt!": GoTo nixnix |
| If DämmerungUndFinsternis = 1 Then Label17.Caption = "Da du dich der Dunkelheit zugewandt hast, nehmen wir dich nicht auf!": GoTo nixnix |
| If Feenstaub = 1 Then Label17.Caption = "Du bist schon Mitglied!": GoTo nixnix |
| If gold < 100 Then Label17.Caption = "Tut mir leid, Ohne Gold kannst du uns nicht beitreten.": GoTo nixnix |
| gold = gold - 100 |
| Feenstaub = 1 |
| Label17.Caption = "Sei gegrüßt! Du bist nun Mitglied in unserer Gilde." |
| initial |
| nixnix: |
| End Sub |
| Private Sub Label2_Click() |
| If gold < kpreis Then Label17.Caption = "Hüte dich, mit mir Scherze zu treiben!": GoTo nixda |
| gold = gold - kpreis |
| spell = List1.Text: Spruchbuch.Combo1.AddItem spell |
| Label17.Caption = "Dieser Spruch wird sehr nützlich sein!" |
| initial |
| nixda: |
| End Sub |
| Private Sub List1_Click() |
| If List1.Text = "Naturheilung" Then GoTo feuerball |
| If List1.Text = "Schild" Then GoTo flammenstrahl |
| If List1.Text = "Kreatur abwenden" Then GoTo Manabrand |
| If List1.Text = "Zauberranken" Then GoTo drachenodem |
| If List1.Text = "Kältestrahl" Then GoTo Erdbeben |
| feuerball: |
| kwaffe = "Naturheilung" |
| wirkung = "heilt 3-12 Lebenspunkte" |
| kmana = 12 |
| kpreis = 120 |
| initial |
| GoTo weiter |
| flammenstrahl: |
| kwaffe = "Schild" |
| wirkung = "Gibt 3 Zusätzliche RS" |
| kmana = 25 |
| kpreis = 150 |
| initial |
| GoTo weiter |
| Manabrand: |
| kwaffe = "Kreatur abwenden" |
| wirkung = "Vertreibt Kreaturen" |
| kmana = 20 |
| kpreis = 215 |
| initial |
| GoTo weiter |
| drachenodem: |
| kwaffe = "Zauberranken" |
| wirkung = "Pro Runde 3-8 SP" |
| kmana = 20 |
| kpreis = 170 |
| initial |
| GoTo weiter |
| Erdbeben: |
| kwaffe = "Kältestrahl" |
| wirkung = "5-12 SP" |
| kmana = 15 |
| kpreis = 230 |
| initial |
| weiter: |
| End Sub |
| Sub initial() |
| If Feenstaub = 0 Then List1.Enabled = False Else List1.Enabled = True |
| label12.Caption = gold |
| Label2.Caption = kwaffe |
| Label6.Caption = wirkung |
| Label7.Caption = kmana |
| Label8.Caption = Str(kpreis) + " Goldkronen" |
| End Sub |
| /trunk/Schatten über Aysalia/Nicht verwendet/ShGilde4.frx |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Schatten über Aysalia/Nicht verwendet/Spruchbuch.frm |
|---|
| 0,0 → 1,386 |
| VERSION 5.00 |
| Begin VB.Form Spruchbuch |
| BackColor = &H00000000& |
| BorderStyle = 0 'Kein |
| Caption = "Spruchbuch" |
| ClientHeight = 4770 |
| ClientLeft = 0 |
| ClientTop = 60 |
| ClientWidth = 6165 |
| ControlBox = 0 'False |
| LinkTopic = "Spruchbuch" |
| Picture = "Spruchbuch.frx":0000 |
| ScaleHeight = 4770 |
| ScaleWidth = 6165 |
| ShowInTaskbar = 0 'False |
| StartUpPosition = 2 'Bildschirmmitte |
| Begin VB.CommandButton Command2 |
| Caption = "Schließen" |
| Height = 375 |
| Left = 4800 |
| TabIndex = 8 |
| Top = 4320 |
| Width = 1215 |
| End |
| Begin VB.CommandButton Command1 |
| Caption = "Spruch wählen" |
| Height = 375 |
| Left = 4800 |
| TabIndex = 7 |
| Top = 3840 |
| Width = 1215 |
| End |
| Begin VB.ComboBox Combo1 |
| BackColor = &H00404040& |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| ForeColor = &H00FFFFFF& |
| Height = 405 |
| ItemData = "Spruchbuch.frx":427E |
| Left = 720 |
| List = "Spruchbuch.frx":4280 |
| Sorted = -1 'True |
| Style = 2 'Dropdown-Liste |
| TabIndex = 0 |
| Top = 480 |
| Width = 3735 |
| End |
| Begin VB.Label Label50 |
| BackStyle = 0 'Transparent |
| Caption = "xxxx" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 735 |
| Left = 720 |
| TabIndex = 6 |
| Top = 1320 |
| Width = 3735 |
| End |
| Begin VB.Label Label60 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "xxxx" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 285 |
| Left = 3480 |
| TabIndex = 5 |
| Top = 960 |
| Width = 480 |
| End |
| Begin VB.Label Label49 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "xxxx" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 285 |
| Left = 2400 |
| TabIndex = 4 |
| Top = 960 |
| Width = 480 |
| End |
| Begin VB.Label Label48 |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "xx" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 285 |
| Left = 1320 |
| TabIndex = 3 |
| Top = 960 |
| Width = 240 |
| End |
| Begin VB.Label Label2 |
| BackStyle = 0 'Transparent |
| Caption = "-" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 255 |
| Left = 1200 |
| TabIndex = 2 |
| Top = 960 |
| Width = 135 |
| End |
| Begin VB.Label Label46 |
| Alignment = 1 'Rechts |
| AutoSize = -1 'True |
| BackStyle = 0 'Transparent |
| Caption = "xx" |
| BeginProperty Font |
| Name = "Times New Roman" |
| Size = 12 |
| Charset = 0 |
| Weight = 700 |
| Underline = 0 'False |
| Italic = 0 'False |
| Strikethrough = 0 'False |
| EndProperty |
| Height = 285 |
| Left = 960 |
| TabIndex = 1 |
| Top = 960 |
| Width = 240 |
| End |
| End |
| Attribute VB_Name = "Spruchbuch" |
| Attribute VB_GlobalNameSpace = False |
| Attribute VB_Creatable = False |
| Attribute VB_PredeclaredId = True |
| Attribute VB_Exposed = False |
| Private Sub Combo1_Click() |
| If Combo1.Text = "Feuerblitz" Then GoTo FEUERblitz |
| If Combo1.Text = "Mantel des Todes" Then GoTo ManTod |
| If Combo1.Text = "Schattenblitz" Then GoTo Schattenblitz |
| If Combo1.Text = "Verwesung" Then GoTo Verwesung |
| If Combo1.Text = "Lähmung" Then GoTo lähmen |
| If Combo1.Text = "Genesung" Then GoTo Genesung |
| If Combo1.Text = "Blitzstrahl" Then GoTo Blitzstrahl |
| If Combo1.Text = "Blitzschlag" Then GoTo blitzschlag |
| If Combo1.Text = "Exorzismus" Then GoTo exorzismus |
| If Combo1.Text = "Wunden heilen" Then GoTo wundheilung |
| If Combo1.Text = "Erdbeben" Then GoTo Erdbeben |
| If Combo1.Text = "Drachenatem" Then GoTo drachenatem |
| If Combo1.Text = "Hölleninferno" Then GoTo inferno |
| If Combo1.Text = "Feuerball" Then GoTo feuerball |
| If Combo1.Text = "Flammenstrahl" Then GoTo flammenstrahl |
| If Combo1.Text = "Manabrand" Then GoTo Manabrand |
| If Combo1.Text = "Drachenodem" Then GoTo odem |
| If Combo1.Text = "Naturheilung" Then GoTo naturheilung |
| If Combo1.Text = "Schild" Then GoTo schilda |
| If Combo1.Text = "Kreatur abwenden" Then GoTo abwenden |
| If Combo1.Text = "Zauberranken" Then GoTo zauberranken |
| If Combo1.Text = "Kältestrahl" Then GoTo Kältestrahl |
| If Combo1.Text = "Lichtblitz" Then GoTo Lichtblitz |
| If Combo1.Text = "Leichte Heilung" Then GoTo lheilung |
| lheilung: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "8" |
| Label60.Caption = "Natur" |
| Label50.Caption = "heilt 2-8 Lebenspunkte" |
| GoTo jupp |
| Lichtblitz: |
| mindam = 0 |
| maxdam = 8 |
| Label49.Caption = "8" |
| Label60.Caption = "Licht" |
| Label50.Caption = "" |
| GoTo jupp |
| naturheilung: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "12" |
| Label60.Caption = "Natur" |
| Label50.Caption = "" |
| GoTo jupp |
| schilda: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "25" |
| Label60.Caption = "Natur" |
| Label50.Caption = "Bildet ein Schild, welches dich zusätzlich mit 3 RS schützt" |
| GoTo jupp |
| abwenden: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "20" |
| Label60.Caption = "Natur" |
| Label50.Caption = "Vertreibt Kreaturen" |
| GoTo jupp |
| zauberranken: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "20" |
| Label60.Caption = "Natur" |
| Label50.Caption = "Umranken den Gegner, der somit jede Runde Schaden erleidet" |
| GoTo jupp |
| Kältestrahl: |
| mindam = 5 |
| maxdam = 12 |
| Label49.Caption = "15" |
| Label60.Caption = "Natur" |
| Label50.Caption = "" |
| GoTo jupp |
| ManTod: |
| mindam = 5 |
| maxdam = 10 |
| Label49.Caption = "26" |
| Label60.Caption = "Nekromantie" |
| Label50.Caption = "" |
| GoTo jupp |
| odem: |
| mindam = 5 |
| maxdam = 15 |
| Label49.Caption = "40" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "" |
| GoTo jupp |
| Manabrand: |
| mindam = 0 |
| maxdam = gmp |
| Label49.Caption = "0" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "Löst die Arkane Kraft des Gegners, so dass sie explodiert" |
| GoTo jupp |
| Schattenblitz: |
| mindam = 1 |
| maxdam = 19 |
| Label49.Caption = "20" |
| Label60.Caption = "Nekromantie" |
| Label50.Caption = "" |
| GoTo jupp |
| Verwesung: |
| mindam = 1 |
| maxdam = 6 |
| Label49.Caption = "12" |
| Label60.Caption = "Nekromantie" |
| Label50.Caption = "Lässt den Gegner jede Runde weiter verwesen" |
| GoTo jupp |
| lähmen: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "20" |
| Label60.Caption = "Chaos" |
| zahl = 3 + ((NEKROMANTIE / 2) - (gstrength / 30)) |
| Label50.Caption = "Lähmt den Gegner für " + Str(zahl) + " Runden" |
| GoTo jupp |
| Genesung: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "25" |
| Label60.Caption = "Licht" |
| Label50.Caption = "Neutralisiert Gift und heilt Krankheit" |
| GoTo jupp |
| Blitzstrahl: |
| mindam = 3 |
| maxdam = 15 |
| Label49.Caption = "30" |
| Label60.Caption = "Licht" |
| Label50.Caption = "" |
| GoTo jupp |
| blitzschlag: |
| mindam = 8 |
| maxdam = 20 |
| Label49.Caption = "55" |
| Label60.Caption = "Licht" |
| Label50.Caption = "" |
| GoTo jupp |
| exorzismus: |
| mindam = 0 |
| maxdam = 60 |
| Label49.Caption = "80" |
| Label60.Caption = "Licht" |
| Label50.Caption = "Wirkt nur gegen Dämonen" |
| GoTo jupp |
| wundheilung: |
| mindam = 0 |
| maxdam = 0 |
| Label49.Caption = "15" |
| Label60.Caption = "Licht" |
| Label50.Caption = "Heilt 5-15 Lebenspunkte" |
| GoTo jupp |
| Erdbeben: |
| mindam = 4 |
| maxdam = 12 |
| Label49.Caption = "18" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "Verletzt auch dich!" |
| GoTo jupp |
| drachenatem: |
| mindam = 0 |
| maxdam = 50 |
| Label49.Caption = "40" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "" |
| GoTo jupp |
| inferno: |
| mindam = 25 |
| maxdam = 25 |
| Label49.Caption = "80" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "" |
| GoTo jupp |
| feuerball: |
| mindam = 3 |
| maxdam = 9 |
| Label49.Caption = "12" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "" |
| GoTo jupp |
| flammenstrahl: |
| mindam = 8 |
| maxdam = 14 |
| Label49.Caption = "25" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "" |
| GoTo jupp |
| FEUERblitz: |
| mindam = 1 |
| maxdam = 5 |
| Label49.Caption = "6" |
| Label60.Caption = "Chaos" |
| Label50.Caption = "" |
| jupp: |
| Label46.Caption = mindam |
| Label48.Caption = maxdam + mindam |
| End Sub |
| Private Sub Command1_Click() |
| Kampf.Label46.Caption = mindam |
| Kampf.Label48.Caption = maxdam + mindam |
| Kampf.Label49.Caption = Label49.Caption |
| Kampf.Label60.Caption = Label60.Caption |
| Kampf.Label50.Caption = Label50.Caption |
| Kampf.Label59.Caption = Combo1.Text |
| Zauberbutton |
| Kampf.initial |
| Spruchbuch.Hide |
| End Sub |
| Private Sub Command2_Click() |
| Spruchbuch.Hide |
| End Sub |
| /trunk/Schatten über Aysalia/Nicht verwendet/Spruchbuch.frx |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Schatten über Aysalia/Nicht verwendet/ZauberData.bas |
|---|
| 0,0 → 1,20 |
| Attribute VB_Name = "Module3" |
| Sub FEUERblitz() |
| If treffer <= hitchance Then GoTo hit Else GoTo away |
| hit: |
| Randomize Timer |
| schaden = Int(maxdam * Rnd) + mindam |
| VERLETZUNG |
| mp = mp - minus |
| GoTo da |
| away: |
| da: |
| FeindZug |
| End Sub |
| Sub VERLETZUNG() |
| ghp = ghp - schaden |
| Kampf.Label57.Caption = "Dein " + Kampf.Label59.Caption + " verletzt " + feind + " für " + Str(schaden) + " Schadenspunkte!" |
| CheckLive |
| End Sub |