Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | VERSION 5.00 |
| 2 | Begin VB.Form Spruchbuch |
||
| 3 | BackColor = &H00000000& |
||
| 4 | BorderStyle = 0 'Kein |
||
| 5 | Caption = "Spruchbuch" |
||
| 6 | ClientHeight = 4770 |
||
| 7 | ClientLeft = 0 |
||
| 8 | ClientTop = 60 |
||
| 9 | ClientWidth = 6165 |
||
| 10 | ControlBox = 0 'False |
||
| 11 | LinkTopic = "Spruchbuch" |
||
| 12 | Picture = "Spruchbuch.frx":0000 |
||
| 13 | ScaleHeight = 4770 |
||
| 14 | ScaleWidth = 6165 |
||
| 15 | ShowInTaskbar = 0 'False |
||
| 16 | StartUpPosition = 2 'Bildschirmmitte |
||
| 17 | Begin VB.CommandButton Command2 |
||
| 18 | Caption = "Schließen" |
||
| 19 | Height = 375 |
||
| 20 | Left = 4800 |
||
| 21 | TabIndex = 8 |
||
| 22 | Top = 4320 |
||
| 23 | Width = 1215 |
||
| 24 | End |
||
| 25 | Begin VB.CommandButton Command1 |
||
| 26 | Caption = "Spruch wählen" |
||
| 27 | Height = 375 |
||
| 28 | Left = 4800 |
||
| 29 | TabIndex = 7 |
||
| 30 | Top = 3840 |
||
| 31 | Width = 1215 |
||
| 32 | End |
||
| 33 | Begin VB.ComboBox Combo1 |
||
| 34 | BackColor = &H00404040& |
||
| 35 | BeginProperty Font |
||
| 36 | Name = "Times New Roman" |
||
| 37 | Size = 12 |
||
| 38 | Charset = 0 |
||
| 39 | Weight = 700 |
||
| 40 | Underline = 0 'False |
||
| 41 | Italic = 0 'False |
||
| 42 | Strikethrough = 0 'False |
||
| 43 | EndProperty |
||
| 44 | ForeColor = &H00FFFFFF& |
||
| 45 | Height = 405 |
||
| 46 | ItemData = "Spruchbuch.frx":427E |
||
| 47 | Left = 720 |
||
| 48 | List = "Spruchbuch.frx":4280 |
||
| 49 | Sorted = -1 'True |
||
| 50 | Style = 2 'Dropdown-Liste |
||
| 51 | TabIndex = 0 |
||
| 52 | Top = 480 |
||
| 53 | Width = 3735 |
||
| 54 | End |
||
| 55 | Begin VB.Label Label50 |
||
| 56 | BackStyle = 0 'Transparent |
||
| 57 | Caption = "xxxx" |
||
| 58 | BeginProperty Font |
||
| 59 | Name = "Times New Roman" |
||
| 60 | Size = 12 |
||
| 61 | Charset = 0 |
||
| 62 | Weight = 700 |
||
| 63 | Underline = 0 'False |
||
| 64 | Italic = 0 'False |
||
| 65 | Strikethrough = 0 'False |
||
| 66 | EndProperty |
||
| 67 | Height = 735 |
||
| 68 | Left = 720 |
||
| 69 | TabIndex = 6 |
||
| 70 | Top = 1320 |
||
| 71 | Width = 3735 |
||
| 72 | End |
||
| 73 | Begin VB.Label Label60 |
||
| 74 | AutoSize = -1 'True |
||
| 75 | BackStyle = 0 'Transparent |
||
| 76 | Caption = "xxxx" |
||
| 77 | BeginProperty Font |
||
| 78 | Name = "Times New Roman" |
||
| 79 | Size = 12 |
||
| 80 | Charset = 0 |
||
| 81 | Weight = 700 |
||
| 82 | Underline = 0 'False |
||
| 83 | Italic = 0 'False |
||
| 84 | Strikethrough = 0 'False |
||
| 85 | EndProperty |
||
| 86 | Height = 285 |
||
| 87 | Left = 3480 |
||
| 88 | TabIndex = 5 |
||
| 89 | Top = 960 |
||
| 90 | Width = 480 |
||
| 91 | End |
||
| 92 | Begin VB.Label Label49 |
||
| 93 | AutoSize = -1 'True |
||
| 94 | BackStyle = 0 'Transparent |
||
| 95 | Caption = "xxxx" |
||
| 96 | BeginProperty Font |
||
| 97 | Name = "Times New Roman" |
||
| 98 | Size = 12 |
||
| 99 | Charset = 0 |
||
| 100 | Weight = 700 |
||
| 101 | Underline = 0 'False |
||
| 102 | Italic = 0 'False |
||
| 103 | Strikethrough = 0 'False |
||
| 104 | EndProperty |
||
| 105 | Height = 285 |
||
| 106 | Left = 2400 |
||
| 107 | TabIndex = 4 |
||
| 108 | Top = 960 |
||
| 109 | Width = 480 |
||
| 110 | End |
||
| 111 | Begin VB.Label Label48 |
||
| 112 | AutoSize = -1 'True |
||
| 113 | BackStyle = 0 'Transparent |
||
| 114 | Caption = "xx" |
||
| 115 | BeginProperty Font |
||
| 116 | Name = "Times New Roman" |
||
| 117 | Size = 12 |
||
| 118 | Charset = 0 |
||
| 119 | Weight = 700 |
||
| 120 | Underline = 0 'False |
||
| 121 | Italic = 0 'False |
||
| 122 | Strikethrough = 0 'False |
||
| 123 | EndProperty |
||
| 124 | Height = 285 |
||
| 125 | Left = 1320 |
||
| 126 | TabIndex = 3 |
||
| 127 | Top = 960 |
||
| 128 | Width = 240 |
||
| 129 | End |
||
| 130 | Begin VB.Label Label2 |
||
| 131 | BackStyle = 0 'Transparent |
||
| 132 | Caption = "-" |
||
| 133 | BeginProperty Font |
||
| 134 | Name = "Times New Roman" |
||
| 135 | Size = 12 |
||
| 136 | Charset = 0 |
||
| 137 | Weight = 700 |
||
| 138 | Underline = 0 'False |
||
| 139 | Italic = 0 'False |
||
| 140 | Strikethrough = 0 'False |
||
| 141 | EndProperty |
||
| 142 | Height = 255 |
||
| 143 | Left = 1200 |
||
| 144 | TabIndex = 2 |
||
| 145 | Top = 960 |
||
| 146 | Width = 135 |
||
| 147 | End |
||
| 148 | Begin VB.Label Label46 |
||
| 149 | Alignment = 1 'Rechts |
||
| 150 | AutoSize = -1 'True |
||
| 151 | BackStyle = 0 'Transparent |
||
| 152 | Caption = "xx" |
||
| 153 | BeginProperty Font |
||
| 154 | Name = "Times New Roman" |
||
| 155 | Size = 12 |
||
| 156 | Charset = 0 |
||
| 157 | Weight = 700 |
||
| 158 | Underline = 0 'False |
||
| 159 | Italic = 0 'False |
||
| 160 | Strikethrough = 0 'False |
||
| 161 | EndProperty |
||
| 162 | Height = 285 |
||
| 163 | Left = 960 |
||
| 164 | TabIndex = 1 |
||
| 165 | Top = 960 |
||
| 166 | Width = 240 |
||
| 167 | End |
||
| 168 | End |
||
| 169 | Attribute VB_Name = "Spruchbuch" |
||
| 170 | Attribute VB_GlobalNameSpace = False |
||
| 171 | Attribute VB_Creatable = False |
||
| 172 | Attribute VB_PredeclaredId = True |
||
| 173 | Attribute VB_Exposed = False |
||
| 174 | Private Sub Combo1_Click() |
||
| 175 | If Combo1.Text = "Feuerblitz" Then GoTo FEUERblitz |
||
| 176 | If Combo1.Text = "Mantel des Todes" Then GoTo ManTod |
||
| 177 | If Combo1.Text = "Schattenblitz" Then GoTo Schattenblitz |
||
| 178 | If Combo1.Text = "Verwesung" Then GoTo Verwesung |
||
| 179 | If Combo1.Text = "Lähmung" Then GoTo lähmen |
||
| 180 | If Combo1.Text = "Genesung" Then GoTo Genesung |
||
| 181 | If Combo1.Text = "Blitzstrahl" Then GoTo Blitzstrahl |
||
| 182 | If Combo1.Text = "Blitzschlag" Then GoTo blitzschlag |
||
| 183 | If Combo1.Text = "Exorzismus" Then GoTo exorzismus |
||
| 184 | If Combo1.Text = "Wunden heilen" Then GoTo wundheilung |
||
| 185 | If Combo1.Text = "Erdbeben" Then GoTo Erdbeben |
||
| 186 | If Combo1.Text = "Drachenatem" Then GoTo drachenatem |
||
| 187 | If Combo1.Text = "Hölleninferno" Then GoTo inferno |
||
| 188 | If Combo1.Text = "Feuerball" Then GoTo feuerball |
||
| 189 | If Combo1.Text = "Flammenstrahl" Then GoTo flammenstrahl |
||
| 190 | If Combo1.Text = "Manabrand" Then GoTo Manabrand |
||
| 191 | If Combo1.Text = "Drachenodem" Then GoTo odem |
||
| 192 | If Combo1.Text = "Naturheilung" Then GoTo naturheilung |
||
| 193 | If Combo1.Text = "Schild" Then GoTo schilda |
||
| 194 | If Combo1.Text = "Kreatur abwenden" Then GoTo abwenden |
||
| 195 | If Combo1.Text = "Zauberranken" Then GoTo zauberranken |
||
| 196 | If Combo1.Text = "Kältestrahl" Then GoTo Kältestrahl |
||
| 197 | If Combo1.Text = "Lichtblitz" Then GoTo Lichtblitz |
||
| 198 | If Combo1.Text = "Leichte Heilung" Then GoTo lheilung |
||
| 199 | lheilung: |
||
| 200 | mindam = 0 |
||
| 201 | maxdam = 0 |
||
| 202 | Label49.Caption = "8" |
||
| 203 | Label60.Caption = "Natur" |
||
| 204 | Label50.Caption = "heilt 2-8 Lebenspunkte" |
||
| 205 | GoTo jupp |
||
| 206 | Lichtblitz: |
||
| 207 | mindam = 0 |
||
| 208 | maxdam = 8 |
||
| 209 | Label49.Caption = "8" |
||
| 210 | Label60.Caption = "Licht" |
||
| 211 | Label50.Caption = "" |
||
| 212 | GoTo jupp |
||
| 213 | naturheilung: |
||
| 214 | mindam = 0 |
||
| 215 | maxdam = 0 |
||
| 216 | Label49.Caption = "12" |
||
| 217 | Label60.Caption = "Natur" |
||
| 218 | Label50.Caption = "" |
||
| 219 | GoTo jupp |
||
| 220 | schilda: |
||
| 221 | mindam = 0 |
||
| 222 | maxdam = 0 |
||
| 223 | Label49.Caption = "25" |
||
| 224 | Label60.Caption = "Natur" |
||
| 225 | Label50.Caption = "Bildet ein Schild, welches dich zusätzlich mit 3 RS schützt" |
||
| 226 | GoTo jupp |
||
| 227 | abwenden: |
||
| 228 | mindam = 0 |
||
| 229 | maxdam = 0 |
||
| 230 | Label49.Caption = "20" |
||
| 231 | Label60.Caption = "Natur" |
||
| 232 | Label50.Caption = "Vertreibt Kreaturen" |
||
| 233 | GoTo jupp |
||
| 234 | zauberranken: |
||
| 235 | mindam = 0 |
||
| 236 | maxdam = 0 |
||
| 237 | Label49.Caption = "20" |
||
| 238 | Label60.Caption = "Natur" |
||
| 239 | Label50.Caption = "Umranken den Gegner, der somit jede Runde Schaden erleidet" |
||
| 240 | GoTo jupp |
||
| 241 | Kältestrahl: |
||
| 242 | mindam = 5 |
||
| 243 | maxdam = 12 |
||
| 244 | Label49.Caption = "15" |
||
| 245 | Label60.Caption = "Natur" |
||
| 246 | Label50.Caption = "" |
||
| 247 | GoTo jupp |
||
| 248 | ManTod: |
||
| 249 | mindam = 5 |
||
| 250 | maxdam = 10 |
||
| 251 | Label49.Caption = "26" |
||
| 252 | Label60.Caption = "Nekromantie" |
||
| 253 | Label50.Caption = "" |
||
| 254 | GoTo jupp |
||
| 255 | odem: |
||
| 256 | mindam = 5 |
||
| 257 | maxdam = 15 |
||
| 258 | Label49.Caption = "40" |
||
| 259 | Label60.Caption = "Chaos" |
||
| 260 | Label50.Caption = "" |
||
| 261 | GoTo jupp |
||
| 262 | Manabrand: |
||
| 263 | mindam = 0 |
||
| 264 | maxdam = gmp |
||
| 265 | Label49.Caption = "0" |
||
| 266 | Label60.Caption = "Chaos" |
||
| 267 | Label50.Caption = "Löst die Arkane Kraft des Gegners, so dass sie explodiert" |
||
| 268 | GoTo jupp |
||
| 269 | Schattenblitz: |
||
| 270 | mindam = 1 |
||
| 271 | maxdam = 19 |
||
| 272 | Label49.Caption = "20" |
||
| 273 | Label60.Caption = "Nekromantie" |
||
| 274 | Label50.Caption = "" |
||
| 275 | GoTo jupp |
||
| 276 | Verwesung: |
||
| 277 | mindam = 1 |
||
| 278 | maxdam = 6 |
||
| 279 | Label49.Caption = "12" |
||
| 280 | Label60.Caption = "Nekromantie" |
||
| 281 | Label50.Caption = "Lässt den Gegner jede Runde weiter verwesen" |
||
| 282 | GoTo jupp |
||
| 283 | lähmen: |
||
| 284 | mindam = 0 |
||
| 285 | maxdam = 0 |
||
| 286 | Label49.Caption = "20" |
||
| 287 | Label60.Caption = "Chaos" |
||
| 288 | zahl = 3 + ((NEKROMANTIE / 2) - (gstrength / 30)) |
||
| 289 | Label50.Caption = "Lähmt den Gegner für " + Str(zahl) + " Runden" |
||
| 290 | GoTo jupp |
||
| 291 | Genesung: |
||
| 292 | mindam = 0 |
||
| 293 | maxdam = 0 |
||
| 294 | Label49.Caption = "25" |
||
| 295 | Label60.Caption = "Licht" |
||
| 296 | Label50.Caption = "Neutralisiert Gift und heilt Krankheit" |
||
| 297 | GoTo jupp |
||
| 298 | Blitzstrahl: |
||
| 299 | mindam = 3 |
||
| 300 | maxdam = 15 |
||
| 301 | Label49.Caption = "30" |
||
| 302 | Label60.Caption = "Licht" |
||
| 303 | Label50.Caption = "" |
||
| 304 | GoTo jupp |
||
| 305 | blitzschlag: |
||
| 306 | mindam = 8 |
||
| 307 | maxdam = 20 |
||
| 308 | Label49.Caption = "55" |
||
| 309 | Label60.Caption = "Licht" |
||
| 310 | Label50.Caption = "" |
||
| 311 | GoTo jupp |
||
| 312 | exorzismus: |
||
| 313 | mindam = 0 |
||
| 314 | maxdam = 60 |
||
| 315 | Label49.Caption = "80" |
||
| 316 | Label60.Caption = "Licht" |
||
| 317 | Label50.Caption = "Wirkt nur gegen Dämonen" |
||
| 318 | GoTo jupp |
||
| 319 | wundheilung: |
||
| 320 | mindam = 0 |
||
| 321 | maxdam = 0 |
||
| 322 | Label49.Caption = "15" |
||
| 323 | Label60.Caption = "Licht" |
||
| 324 | Label50.Caption = "Heilt 5-15 Lebenspunkte" |
||
| 325 | GoTo jupp |
||
| 326 | Erdbeben: |
||
| 327 | mindam = 4 |
||
| 328 | maxdam = 12 |
||
| 329 | Label49.Caption = "18" |
||
| 330 | Label60.Caption = "Chaos" |
||
| 331 | Label50.Caption = "Verletzt auch dich!" |
||
| 332 | GoTo jupp |
||
| 333 | drachenatem: |
||
| 334 | mindam = 0 |
||
| 335 | maxdam = 50 |
||
| 336 | Label49.Caption = "40" |
||
| 337 | Label60.Caption = "Chaos" |
||
| 338 | Label50.Caption = "" |
||
| 339 | GoTo jupp |
||
| 340 | inferno: |
||
| 341 | mindam = 25 |
||
| 342 | maxdam = 25 |
||
| 343 | Label49.Caption = "80" |
||
| 344 | Label60.Caption = "Chaos" |
||
| 345 | Label50.Caption = "" |
||
| 346 | GoTo jupp |
||
| 347 | feuerball: |
||
| 348 | mindam = 3 |
||
| 349 | maxdam = 9 |
||
| 350 | Label49.Caption = "12" |
||
| 351 | Label60.Caption = "Chaos" |
||
| 352 | Label50.Caption = "" |
||
| 353 | GoTo jupp |
||
| 354 | flammenstrahl: |
||
| 355 | mindam = 8 |
||
| 356 | maxdam = 14 |
||
| 357 | Label49.Caption = "25" |
||
| 358 | Label60.Caption = "Chaos" |
||
| 359 | Label50.Caption = "" |
||
| 360 | GoTo jupp |
||
| 361 | FEUERblitz: |
||
| 362 | mindam = 1 |
||
| 363 | maxdam = 5 |
||
| 364 | Label49.Caption = "6" |
||
| 365 | Label60.Caption = "Chaos" |
||
| 366 | Label50.Caption = "" |
||
| 367 | jupp: |
||
| 368 | Label46.Caption = mindam |
||
| 369 | Label48.Caption = maxdam + mindam |
||
| 370 | End Sub |
||
| 371 | |||
| 372 | Private Sub Command1_Click() |
||
| 373 | Kampf.Label46.Caption = mindam |
||
| 374 | Kampf.Label48.Caption = maxdam + mindam |
||
| 375 | Kampf.Label49.Caption = Label49.Caption |
||
| 376 | Kampf.Label60.Caption = Label60.Caption |
||
| 377 | Kampf.Label50.Caption = Label50.Caption |
||
| 378 | Kampf.Label59.Caption = Combo1.Text |
||
| 379 | Zauberbutton |
||
| 380 | Kampf.initial |
||
| 381 | Spruchbuch.Hide |
||
| 382 | End Sub |
||
| 383 | |||
| 384 | Private Sub Command2_Click() |
||
| 385 | Spruchbuch.Hide |
||
| 386 | End Sub |