Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | VERSION 5.00 |
| 2 | Begin VB.Form WsFelsen |
||
| 3 | BackColor = &H00000040& |
||
| 4 | BorderStyle = 0 'None |
||
| 5 | Caption = "WsFelsen" |
||
| 6 | ClientHeight = 2745 |
||
| 7 | ClientLeft = 0 |
||
| 8 | ClientTop = 0 |
||
| 9 | ClientWidth = 5475 |
||
| 10 | LinkTopic = "WsFelsen" |
||
| 11 | ScaleHeight = 2745 |
||
| 12 | ScaleWidth = 5475 |
||
| 13 | ShowInTaskbar = 0 'False |
||
| 14 | StartUpPosition = 2 'CenterScreen |
||
| 15 | Begin VB.Label Label3 |
||
| 16 | AutoSize = -1 'True |
||
| 17 | BackStyle = 0 'Transparent |
||
| 18 | Caption = "Schnell weg hier!" |
||
| 19 | BeginProperty Font |
||
| 20 | Name = "MS Sans Serif" |
||
| 21 | Size = 9.75 |
||
| 22 | Charset = 0 |
||
| 23 | Weight = 700 |
||
| 24 | Underline = -1 'True |
||
| 25 | Italic = 0 'False |
||
| 26 | Strikethrough = 0 'False |
||
| 27 | EndProperty |
||
| 28 | ForeColor = &H00FFC0C0& |
||
| 29 | Height = 240 |
||
| 30 | Left = 360 |
||
| 31 | TabIndex = 2 |
||
| 32 | Top = 2160 |
||
| 33 | Width = 1770 |
||
| 34 | End |
||
| 35 | Begin VB.Label Label2 |
||
| 36 | AutoSize = -1 'True |
||
| 37 | BackStyle = 0 'Transparent |
||
| 38 | Caption = "Drachen bekämpfen" |
||
| 39 | BeginProperty Font |
||
| 40 | Name = "MS Sans Serif" |
||
| 41 | Size = 9.75 |
||
| 42 | Charset = 0 |
||
| 43 | Weight = 700 |
||
| 44 | Underline = -1 'True |
||
| 45 | Italic = 0 'False |
||
| 46 | Strikethrough = 0 'False |
||
| 47 | EndProperty |
||
| 48 | ForeColor = &H00FFC0C0& |
||
| 49 | Height = 240 |
||
| 50 | Left = 360 |
||
| 51 | TabIndex = 1 |
||
| 52 | Top = 1680 |
||
| 53 | Width = 2100 |
||
| 54 | End |
||
| 55 | Begin VB.Label Label1 |
||
| 56 | BackStyle = 0 'Transparent |
||
| 57 | Caption = $"WsFelsen.frx":0000 |
||
| 58 | BeginProperty Font |
||
| 59 | Name = "MS Sans Serif" |
||
| 60 | Size = 9.75 |
||
| 61 | Charset = 0 |
||
| 62 | Weight = 700 |
||
| 63 | Underline = 0 'False |
||
| 64 | Italic = 0 'False |
||
| 65 | Strikethrough = 0 'False |
||
| 66 | EndProperty |
||
| 67 | ForeColor = &H000000FF& |
||
| 68 | Height = 1095 |
||
| 69 | Left = 360 |
||
| 70 | TabIndex = 0 |
||
| 71 | Top = 240 |
||
| 72 | Width = 4695 |
||
| 73 | End |
||
| 74 | End |
||
| 75 | Attribute VB_Name = "WsFelsen" |
||
| 76 | Attribute VB_GlobalNameSpace = False |
||
| 77 | Attribute VB_Creatable = False |
||
| 78 | Attribute VB_PredeclaredId = True |
||
| 79 | Attribute VB_Exposed = False |
||
| 80 | Private Sub Label2_Click() |
||
| 81 | art = "Drachen": explus = 400: feind = "Sarokh der Drache" |
||
| 82 | gwaffe = "Klauen": gmat = "": ggrundwert = 5: gzusatzwert = 10: gabzug = 0: gkateg = "": grust = "Schuppen": grs = 3: grsmat = "": gbe = 3 |
||
| 83 | woher = "Felsen" |
||
| 84 | ghp = 400: gmp = 200: gspeed = 50: gstrength = 80 |
||
| 85 | Kampf.Show |
||
| 86 | End Sub |
||
| 87 | |||
| 88 | Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) |
||
| 89 | Dim lHandle As Long |
||
| 90 | lHandle = LoadCursor(0, HandCursor) |
||
| 91 | If (lHandle > 0) Then SetCursor lHandle |
||
| 92 | End Sub |
||
| 93 | |||
| 94 | Private Sub Label3_Click() |
||
| 95 | Unload WsFelsen |
||
| 96 | Wüste.Show |
||
| 97 | End Sub |
||
| 98 | |||
| 99 | Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) |
||
| 100 | Dim lHandle As Long |
||
| 101 | lHandle = LoadCursor(0, HandCursor) |
||
| 102 | If (lHandle > 0) Then SetCursor lHandle |
||
| 103 | End Sub |