| 0,0 → 1,402 |
|---|
| Attribute VB_Name = "Waffenwerte" |
| Sub WeaponCheck() |
| If A = "Magisches Schwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Magisch" |
| dqABZUG = 0 |
| dqPREIS = 200 |
| dqHÄNDE = 1 |
| End If |
| If A = "Schwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 3 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 100 |
| dqHÄNDE = 1 |
| End If |
| If A = "Barbarenschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 5 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 1 |
| dqPREIS = 230 |
| dqHÄNDE = 1 |
| End If |
| If A = "Bastardschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 8 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 3 |
| dqPREIS = 400 |
| dqHÄNDE = 2 |
| End If |
| If A = "Breitschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 160 |
| dqHÄNDE = 1 |
| End If |
| If A = "Kriegsschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 4 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 180 |
| dqHÄNDE = 1 |
| End If |
| If A = "Kurzschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 2 |
| dqZUSCHADEN = 3 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 75 |
| dqHÄNDE = 1 |
| End If |
| If A = "Zweihandschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 4 |
| dqZUSCHADEN = 8 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 2 |
| dqPREIS = 450 |
| dqHÄNDE = 2 |
| End If |
| If A = "Barbarenstreitaxt" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 10 |
| dqZUSCHADEN = 10 |
| dqKATEGORIE = "Ax" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 8 |
| dqPREIS = 650 |
| dqHÄNDE = 2 |
| End If |
| If A = "Beil" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 3 |
| dqKATEGORIE = "Ax" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 2 |
| dqPREIS = 70 |
| dqHÄNDE = 1 |
| End If |
| If A = "Handaxt" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 4 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Ax" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 3 |
| dqPREIS = 155 |
| dqHÄNDE = 1 |
| End If |
| If A = "Hellebarde" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 6 |
| dqZUSCHADEN = 6 |
| dqKATEGORIE = "Ax" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 6 |
| dqPREIS = 400 |
| dqHÄNDE = 2 |
| End If |
| If A = "Streitaxt" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 5 |
| dqZUSCHADEN = 5 |
| dqKATEGORIE = "Ax" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 3 |
| dqPREIS = 360 |
| dqHÄNDE = 1 |
| End If |
| If A = "Jagdspeer" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 1 |
| dqZUSCHADEN = 9 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 130 |
| dqHÄNDE = 1 |
| End If |
| If A = "Kampfstab" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 2 |
| dqZUSCHADEN = 3 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Holz" |
| dqABZUG = 0 |
| dqPREIS = 25 |
| dqHÄNDE = 2 |
| End If |
| If A = "Kriegsspeer" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 4 |
| dqZUSCHADEN = 8 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 3 |
| dqPREIS = 250 |
| dqHÄNDE = 2 |
| End If |
| If A = "Magierstab" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 2 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Magisch" |
| dqABZUG = 0 |
| dqPREIS = 120 |
| dqHÄNDE = 1 |
| End If |
| If A = "Stoßspeer" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 6 |
| dqZUSCHADEN = 10 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 4 |
| dqPREIS = 300 |
| dqHÄNDE = 2 |
| End If |
| If A = "Weihstab" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 2 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 180 |
| dqHÄNDE = 1 |
| End If |
| If A = "Zweililien" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 6 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 1 |
| dqPREIS = 170 |
| dqHÄNDE = 2 |
| End If |
| If A = "Knüppel" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 1 |
| dqZUSCHADEN = 2 |
| dqKATEGORIE = "Hie" |
| dqMATERIAL = "Holz" |
| dqABZUG = 0 |
| dqPREIS = 5 |
| dqHÄNDE = 1 |
| End If |
| If A = "Kriegshammer" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 4 |
| dqZUSCHADEN = 6 |
| dqKATEGORIE = "Hie" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 2 |
| dqPREIS = 175 |
| dqHÄNDE = 1 |
| End If |
| If A = "Morgenstern" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 2 |
| dqZUSCHADEN = 10 |
| dqKATEGORIE = "Hie" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 3 |
| dqPREIS = 130 |
| dqHÄNDE = 1 |
| End If |
| If A = "Ogertöter" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 5 |
| dqZUSCHADEN = 3 |
| dqKATEGORIE = "Hie" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 4 |
| dqPREIS = 160 |
| dqHÄNDE = 1 |
| End If |
| If A = "Streitkolben" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 2 |
| dqZUSCHADEN = 5 |
| dqKATEGORIE = "Hie" |
| dqMATERIAL = "Stahl" |
| dqABZUG = 0 |
| dqPREIS = 85 |
| dqHÄNDE = 1 |
| End If |
| If A = "Magierstab des Irion" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 4 |
| dqKATEGORIE = "Sp" |
| dqMATERIAL = "Magisch" |
| dqABZUG = -5 |
| dqPREIS = 400 |
| dqHÄNDE = 1 |
| End If |
| If A = "Elfenschwert" Then |
| dqWAFFE = A |
| dqGRSCHADEN = 3 |
| dqZUSCHADEN = 3 |
| dqKATEGORIE = "Sch" |
| dqMATERIAL = "Magisch" |
| dqABZUG = -10 |
| dqPREIS = 600 |
| dqHÄNDE = 1 |
| End If |
| End Sub |
| Sub BowCheck() |
| If A = "Kurzbogen" Then dqWAFFE = A: dqGRSCHADEN = 3: dqZUSCHADEN = 3: dqKATEGORIE = "Bogen": dqPREIS = 90 |
| If A = "Langbogen" Then dqWAFFE = A: dqGRSCHADEN = 4: dqZUSCHADEN = 6: dqKATEGORIE = "Bogen": dqPREIS = 160 |
| If A = "Elfenbogen" Then dqWAFFE = A: dqGRSCHADEN = 3: dqZUSCHADEN = 9: dqKATEGORIE = "Bogen": dqPREIS = 200 |
| If A = "Kompositbogen" Then dqWAFFE = A: dqGRSCHADEN = 2: dqZUSCHADEN = 7: dqKATEGORIE = "Bogen": dqPREIS = 130 |
| If A = "Kriegsbogen" Then dqWAFFE = A: dqGRSCHADEN = 4: dqZUSCHADEN = 10: dqKATEGORIE = "Bogen": dqPREIS = 250 |
| If A = "Pfeil" Then dqWAFFE = A: dqGRSCHADEN = 0: dqZUSCHADEN = 0: dqKATEGORIE = "Bogen": dqPREIS = 5 |
| If A = "Bolzen" Then dqWAFFE = A: dqGRSCHADEN = 0: dqZUSCHADEN = 0: dqKATEGORIE = "Bogen": dqPREIS = 5 |
| If A = "Leichte Armbrust" Then dqWAFFE = A: dqGRSCHADEN = 2: dqZUSCHADEN = 6: dqKATEGORIE = "Armbrust": dqPREIS = 130 |
| If A = "Schwere Armbrust" Then dqWAFFE = A: dqGRSCHADEN = 4: dqZUSCHADEN = 6: dqKATEGORIE = "Armbrust": dqPREIS = 180 |
| If A = "Zwergenarmbrust" Then dqWAFFE = A: dqGRSCHADEN = 1: dqZUSCHADEN = 8: dqKATEGORIE = "Armbrust": dqPREIS = 140 |
| If A = "Scharfschützenarmbrust" Then dqWAFFE = A: dqGRSCHADEN = 5: dqZUSCHADEN = 7: dqKATEGORIE = "Armbrust": dqPREIS = 200 |
| |
| End Sub |
| |
| Sub RüstCheck() |
| If A = "Drachenharnisch" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 3: dqPREIS = 300 |
| If A = "Championgurt" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 0: dqPREIS = 10 |
| If A = "Jagdhemd" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 0: dqPREIS = 60 |
| If A = "Lederwams" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 80 |
| If A = "Lederharnisch" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 3: dqPREIS = 120 |
| If A = "Hartholzharnisch" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Holz": dqABZUG = 3: dqPREIS = 250 |
| If A = "Lederpanzer" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 4: dqPREIS = 250 |
| If A = "Kettenhemd" Then dqWAFFE = A: dqGRSCHADEN = 2: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 2: dqPREIS = 120 |
| If A = "Kettenmantel" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 3: dqPREIS = 180 |
| If A = "Plattenharnisch" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 4: dqPREIS = 240 |
| If A = "Plattenpanzer" Then dqWAFFE = A: dqGRSCHADEN = 6: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 6: dqPREIS = 400 |
| If A = "Schuppenpanzer" Then dqWAFFE = A: dqGRSCHADEN = 5: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 5: dqPREIS = 320 |
| If A = "Ritterrüstung" Then dqWAFFE = A: dqGRSCHADEN = 8: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 9: dqPREIS = 800 |
| If A = "Lederhelm" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Helm": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 30 |
| If A = "Topfhelm" Then dqWAFFE = A: dqGRSCHADEN = 2: dqKATEGORIE = "Helm": dqMATERIAL = "Stahl": dqABZUG = 2: dqPREIS = 70 |
| If A = "Flügelhelm" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Helm": dqMATERIAL = "Stahl": dqABZUG = 4: dqPREIS = 120 |
| If A = "Ritterhelm" Then dqWAFFE = A: dqGRSCHADEN = 5: dqKATEGORIE = "Helm": dqMATERIAL = "Stahl": dqABZUG = 6: dqPREIS = 200 |
| If A = "Lederschild" Then dqWAFFE = A: dqGRSCHADEN = 2: dqKATEGORIE = "Schild": dqMATERIAL = "Leder": dqABZUG = 2: dqPREIS = 50 |
| If A = "Holzschild" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Schild": dqMATERIAL = "Holz": dqABZUG = 4: dqPREIS = 80 |
| If A = "Großschild" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Schild": dqMATERIAL = "Stahl": dqABZUG = 5: dqPREIS = 130 |
| If A = "Ritterschild" Then dqWAFFE = A: dqGRSCHADEN = 6: dqKATEGORIE = "Schild": dqMATERIAL = "Stahl": dqABZUG = 6: dqPREIS = 250 |
| If A = "Lederkleidung" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 20 |
| If A = "Rote Robe" Or A = "Schwarze Robe" Or A = "Weiße Robe" Or A = "Nachtblaue Kutte" Then dqWAFFE = A: dqGRSCHADEN = 0: dqKATEGORIE = "Umhang": dqMATERIAL = "Stoff": dqABZUG = 0: dqPREIS = 10 |
| If A = "Wattierte Weiße Robe" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Umhang": dqMATERIAL = "Stoff": dqABZUG = 0: dqPREIS = 50 |
| If A = "Lederumhang" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Umhang": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 30 |
| If A = "Fellumhang" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Umhang": dqMATERIAL = "Fell": dqABZUG = 1: dqPREIS = 40 |
| End Sub |
| |
| Sub KrautCheck() |
| If A = "Wurzelknolle" Then dqWAFFE = A: dqPREIS = 30: dqKATEGORIE = "Die Wuzelknolle wächst unter der Erde und ist die gebräuchliste Zutat der Alchemie." |
| If A = "Blüte eines Morgentaus" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "Der Morgentau ist eine Fleischfressende Pflanze, deren Blüten werden in der Alchemie verwendet." |
| If A = "Büschel Brunnensporn" Then dqWAFFE = A: dqPREIS = 65: dqKATEGORIE = "Brunnensporn wächst an Brunnen oder kleinen Wasserstellen, er verfügt über heilende Wirkung." |
| If A = "Büschel Grabkraut" Then dqWAFFE = A: dqPREIS = 80: dqKATEGORIE = "Grabkraut wächst, von Leichnamen gedüngt auf Friedhöfen und ist im rohen Zustand krankheitsbringend." |
| If A = "Flasche Alkohol (1/2 l)" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Ein halber Liter purer Alkohol." |
| If A = "Goldstaub (1 Unze)" Then dqWAFFE = A: dqPREIS = 5: dqKATEGORIE = "Eine Unze gewaschener Goldstaub aus einem Fluss." |
| If A = "Höllenpilz" Then dqWAFFE = A: dqPREIS = 80: dqKATEGORIE = "Wächst an lichten Stellen im Wald, ist im rohen Zustand tödlich." |
| If A = "Karfunkel" Then dqWAFFE = A: dqPREIS = 3000: dqKATEGORIE = "unbekannt" |
| If A = "Quecksilber (1 ml)" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "1 ml Quecksilber. Im rohen Zustand hochgiftig." |
| If A = "Schwarzer Lotos" Then dqWAFFE = A: dqPREIS = 600: dqKATEGORIE = "Der Schwarze Lotos wächst im Sumpf und ist die seltenste Pflanze. Giftig." |
| If A = "Schwefel (1 ml)" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "1 ml Schwefel." |
| If A = "Tropfen Drachenblut" Then dqWAFFE = A: dqPREIS = 1000: dqKATEGORIE = "1 Tropfen Drachenblut. Enthält Mana und ist somit im rohen Zustand leicht entzündlich." |
| If A = "Tropfen klares Blut" Then dqWAFFE = A: dqPREIS = 10: dqKATEGORIE = "Gewöhnliches Blut eines Menschen oder menschenähnlichen Wesens." |
| If A = "Tropfen Dämonenspeichel" Then dqWAFFE = A: dqPREIS = 100: dqKATEGORIE = "1 Tropfen Speichel eines Dämons. Im rohen Zustand Pestbringend." |
| If A = "Bärenfell" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Das Fell eines Bären." |
| If A = "Großer Heiltrank" Then dqWAFFE = A: dqPREIS = 40: dqKATEGORIE = "Gibt 15 Lebenspunkte nach Einnahme zurück." |
| If A = "Großer Zaubertrank" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "Gibt 15 Mana nach Einnahme zurück." |
| If A = "Kleiner Heiltrank" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Gibt 8 Lebenspunkte nach Einnahme zurück." |
| If A = "Kleiner Zaubertrank" Then dqWAFFE = A: dqPREIS = 30: dqKATEGORIE = "Gibt 8 Mana nach Einnahme zurück." |
| If A = "Leere Flasche" Then dqWAFFE = A: dqPREIS = 5: dqKATEGORIE = "Eine Leere Flasche die Hauptsächlich zum Abfüllen Alchemistischer Stoffe gedacht ist." |
| If A = "Magischer Opferdolch" Then dqWAFFE = A: dqPREIS = 150: dqKATEGORIE = "unbekannt" |
| If A = "Ogerzahn" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Der Reißzahn eines Ogers." |
| If A = "Silberkette" Then dqWAFFE = A: dqPREIS = 5: dqKATEGORIE = "Eine Kette aus Silber." |
| If A = "Silberner Dolch" Then dqWAFFE = A: dqPREIS = 30: dqKATEGORIE = "Ein Dolch aus Silber." |
| If A = "Smaragd Ring" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "Ein Ring mit einem eingefassten Smaragd." |
| If A = "Tentakelarm" Then dqWAFFE = A: dqPREIS = 75: dqKATEGORIE = "Der Arm eines Tentakels." |
| If A = "Thorkushur 's Schuppen" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "Die wichtigste Zutat für den 'Illusion zerstören' Zauber." |
| If A = "Unsichtbarkeitstrank" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "Dieser Trink verleiht dem Anwender Unsichtbarkeit für begrenzte Zeit." |
| If A = "Wolfsfell" Then dqWAFFE = A: dqPREIS = 10: dqKATEGORIE = "Das Fell eines Wolfes." |
| If A = "Alchemieset" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "Das Alchemieset wird dazu benutzt, um Tränke und Elixiere herzstellen." |
| End Sub |
| |
| Sub SpellCheck() |
| If A = "Genesung" Then dqWAFFE = A: dqPREIS = 120: dqKATEGORIE = "neutralisiert Gift und heilt Krankheiten": dqABZUG = 25: Zahl = 4 |
| If A = "Blitzstrahl" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "verursacht 3-18 Schadenspunkte": dqABZUG = 30: Zahl = 3 |
| If A = "Blitzschlag" Then dqWAFFE = A: dqPREIS = 250: dqKATEGORIE = "verursacht 8-28 Schadenspunkte": dqABZUG = 55: Zahl = 5 |
| If A = "Exorzismus" Then dqWAFFE = A: dqPREIS = 300: dqKATEGORIE = "verursacht 0-60 Schadenspunkte gg. Dämonen": dqABZUG = 80: Zahl = 4 |
| If A = "Wunden heilen" Then dqWAFFE = A: dqPREIS = 75: dqKATEGORIE = "heilt 5-12 Schadenspunkte": dqABZUG = 15: Zahl = 2 |
| |
| If A = "Mantel des Todes" Then dqWAFFE = A: dqPREIS = 150: dqKATEGORIE = "verursacht 5-15 Schadenspunkte": dqABZUG = 25: Zahl = 4 |
| If A = "Schattenblitz" Then dqWAFFE = A: dqPREIS = 80: dqKATEGORIE = "verursacht 1-20 Schadenspunkte": dqABZUG = 20: Zahl = 2 |
| If A = "Verwesung" Then dqWAFFE = A: dqPREIS = 70: dqKATEGORIE = "verursacht 1-6 Schadenspunkte pro Runde": dqABZUG = 12: Zahl = 1 |
| If A = "Lähmung" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "lähmt Gegner (Nek/2)-(gst/30) Runden lang": dqABZUG = 20: Zahl = 3 |
| If A = "Lebensentzug" Then dqWAFFE = A: dqPREIS = 100: dqKATEGORIE = "verursacht 3-6 Schadenspunkte und überträgt sie": dqABZUG = 15: Zahl = 2 |
| |
| If A = "Schild" Then dqWAFFE = A: dqPREIS = 120: dqKATEGORIE = "addiert 3 zu Rüstungsklasse": dqABZUG = 25: Zahl = 2 |
| If A = "Kreaturen abwenden" Then dqWAFFE = A: dqPREIS = 120: dqKATEGORIE = "vertreibt Kreaturen": dqABZUG = 20: Zahl = 3 |
| If A = "Zauberranken" Then dqWAFFE = A: dqPREIS = 180: dqKATEGORIE = "verursacht 3-8 Schadenspunkte pro Runde": dqABZUG = 20: Zahl = 3 |
| If A = "Naturheilung" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "heilt 3-12 Schadenspunkte": dqABZUG = 12: Zahl = 3 |
| If A = "Kältestrahl" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "verursacht 5-12 Schadenspunkte": dqABZUG = 15: Zahl = 4 |
| |
| If A = "Feuerball" Then dqWAFFE = A: dqPREIS = 125: dqKATEGORIE = "verursacht 3-12 Schadenspunkte": dqABZUG = 12: Zahl = 2 |
| If A = "Flammenstrahl" Then dqWAFFE = A: dqPREIS = 160: dqKATEGORIE = "verursacht 8-14 Schadenspunkte": dqABZUG = 25: Zahl = 3 |
| If A = "Manabrand" Then dqWAFFE = A: dqPREIS = 180: dqKATEGORIE = "verursacht (0-mp des Gegners) Schadenspunkte": dqABZUG = 0: Zahl = 2 |
| If A = "Drachenodem" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "verursacht 5-20 Schadenspunkte": dqABZUG = 40: Zahl = 5 |
| If A = "Hölleninferno" Then dqWAFFE = A: dqPREIS = 500: dqKATEGORIE = "verursacht 25-50 Schadenspunkte": dqABZUG = 80: Zahl = 6 |
| |
| End Sub |
| Sub Spellbookcheck() |
| If A = "Feuerblitz" Then dqGRDAMAGE = 1: dqGRADDAM = 5: dqSPELL = A: dqMANA = 5: dqWHAT = "S": dqWHICH = "CHAOS" |
| If A = "Feuerball" Then dqGRDAMAGE = 3: dqGRADDAM = 9: dqSPELL = A: dqMANA = 12: dqWHAT = "S": dqWHICH = "CHAOS" |
| If A = "Flammenstrahl" Then dqGRDAMAGE = 8: dqGRADDAM = 6: dqSPELL = A: dqMANA = 25: dqWHAT = "S": dqWHICH = "CHAOS" |
| If A = "Manabrand" Then dqGRDAMAGE = 0: dqGRADDAM = Gmp: dqSPELL = A: dqMANA = Gmp / 2: dqWHAT = "S": dqWHICH = "CHAOS" |
| If A = "Drachenodem" Then dqGRDAMAGE = 5: dqGRADDAM = 15: dqSPELL = A: dqMANA = 40: dqWHAT = "S": dqWHICH = "CHAOS" |
| If A = "Hölleninferno" Then dqGRDAMAGE = 25: dqGRADDAM = 25: dqSPELL = A: dqMANA = 80: dqWHAT = "S": dqWHICH = "CHAOS" |
| |
| If A = "Mantel des Todes" Then dqGRDAMAGE = 5: dqGRADDAM = 10: dqSPELL = A: dqMANA = 25: dqWHAT = "S": dqWHICH = "NEKROMANTIE" |
| If A = "Schattenblitz" Then dqGRDAMAGE = 1: dqGRADDAM = 19: dqSPELL = A: dqMANA = 20: dqWHAT = "S": dqWHICH = "NEKROMANTIE" |
| If A = "Verwesung" Then dqGRDAMAGE = 1: dqGRADDAM = 6: dqSPELL = A: dqMANA = 12: dqWHAT = "S": dqWHICH = "NEKROMANTIE" |
| If A = "Lähmung" Then dqGRDAMAGE = (Nek / 2) - (gst / 30): dqGRADDAM = 0: dqSPELL = A: dqMANA = 20: dqWHAT = "A": dqWHICH = "NEKROMANTIE" |
| If A = "Lebensentzug" Then dqGRDAMAGE = 3: dqGRADDAM = 3: dqSPELL = A: dqMANA = 15: dqWHAT = "S": dqWHICH = "NEKROMANTIE" |
| |
| If A = "Genesung" Then dqGRDAMAGE = 0: dqGRADDAM = 0: dqSPELL = A: dqMANA = 25: dqWHAT = "A": dqWHICH = "LICHT" |
| If A = "Blitzstrahl" Then dqGRDAMAGE = 3: dqGRADDAM = 15: dqSPELL = A: dqMANA = 30: dqWHAT = "S": dqWHICH = "LICHT" |
| If A = "Blitzschlag" Then dqGRDAMAGE = 8: dqGRADDAM = 20: dqSPELL = A: dqMANA = 55: dqWHAT = "S": dqWHICH = "LICHT" |
| If A = "Exorzismus" Then dqGRDAMAGE = 0: dqGRADDAM = 60: dqSPELL = A: dqMANA = 80: dqWHAT = "S": dqWHICH = "LICHT" |
| If A = "Wunden heilen" Then dqGRDAMAGE = 5: dqGRADDAM = 10: dqSPELL = A: dqMANA = 15: dqWHAT = "H": dqWHICH = "LICHT" |
| |
| If A = "Schild" Then dqGRDAMAGE = 0: dqGRADDAM = 0: dqSPELL = A: dqMANA = 25: dqWHAT = "A": dqWHICH = "NATUR" |
| If A = "Kreaturen abwenden" Then dqGRDAMAGE = 0: dqGRADDAM = 0: dqSPELL = A: dqMANA = 20: dqWHAT = "A": dqWHICH = "NATUR" |
| If A = "Zauberranken" Then dqGRDAMAGE = 3: dqGRADDAM = 5: dqSPELL = A: dqMANA = 20: dqWHAT = "S": dqWHICH = "NATUR" |
| If A = "Naturheilung" Then dqGRDAMAGE = 3: dqGRADDAM = 9: dqSPELL = A: dqMANA = 12: dqWHAT = "H": dqWHICH = "NATUR" |
| If A = "Kältestrahl" Then dqGRDAMAGE = 5: dqGRADDAM = 7: dqSPELL = A: dqMANA = 15: dqWHAT = "S": dqWHICH = "NATUR" |
| End Sub |