Subversion Repositories aysalia

Rev

Blame | Last modification | View Log | RSS feed

  1. Attribute VB_Name = "Waffenwerte"
  2. Sub WeaponCheck()
  3. If A = "Magisches Schwert" Then
  4.    dqWAFFE = A
  5.    dqGRSCHADEN = 3
  6.    dqZUSCHADEN = 4
  7.    dqKATEGORIE = "Sch"
  8.    dqMATERIAL = "Magisch"
  9.    dqABZUG = 0
  10.    dqPREIS = 200
  11.    dqHÄNDE = 1
  12. End If
  13. If A = "Schwert" Then
  14.    dqWAFFE = A
  15.    dqGRSCHADEN = 3
  16.    dqZUSCHADEN = 3
  17.    dqKATEGORIE = "Sch"
  18.    dqMATERIAL = "Stahl"
  19.    dqABZUG = 0
  20.    dqPREIS = 100
  21.    dqHÄNDE = 1
  22. End If
  23. If A = "Barbarenschwert" Then
  24.    dqWAFFE = A
  25.    dqGRSCHADEN = 5
  26.    dqZUSCHADEN = 4
  27.    dqKATEGORIE = "Sch"
  28.    dqMATERIAL = "Stahl"
  29.    dqABZUG = 1
  30.    dqPREIS = 230
  31.    dqHÄNDE = 1
  32. End If
  33. If A = "Bastardschwert" Then
  34.    dqWAFFE = A
  35.    dqGRSCHADEN = 3
  36.    dqZUSCHADEN = 8
  37.    dqKATEGORIE = "Sch"
  38.    dqMATERIAL = "Stahl"
  39.    dqABZUG = 3
  40.    dqPREIS = 400
  41.    dqHÄNDE = 2
  42. End If
  43. If A = "Breitschwert" Then
  44.    dqWAFFE = A
  45.    dqGRSCHADEN = 3
  46.    dqZUSCHADEN = 4
  47.    dqKATEGORIE = "Sch"
  48.    dqMATERIAL = "Stahl"
  49.    dqABZUG = 0
  50.    dqPREIS = 160
  51.    dqHÄNDE = 1
  52. End If
  53. If A = "Kriegsschwert" Then
  54.    dqWAFFE = A
  55.    dqGRSCHADEN = 4
  56.    dqZUSCHADEN = 4
  57.    dqKATEGORIE = "Sch"
  58.    dqMATERIAL = "Stahl"
  59.    dqABZUG = 0
  60.    dqPREIS = 180
  61.    dqHÄNDE = 1
  62. End If
  63. If A = "Kurzschwert" Then
  64.    dqWAFFE = A
  65.    dqGRSCHADEN = 2
  66.    dqZUSCHADEN = 3
  67.    dqKATEGORIE = "Sch"
  68.    dqMATERIAL = "Stahl"
  69.    dqABZUG = 0
  70.    dqPREIS = 75
  71.    dqHÄNDE = 1
  72. End If
  73. If A = "Zweihandschwert" Then
  74.    dqWAFFE = A
  75.    dqGRSCHADEN = 4
  76.    dqZUSCHADEN = 8
  77.    dqKATEGORIE = "Sch"
  78.    dqMATERIAL = "Stahl"
  79.    dqABZUG = 2
  80.    dqPREIS = 450
  81.    dqHÄNDE = 2
  82. End If
  83. If A = "Barbarenstreitaxt" Then
  84.    dqWAFFE = A
  85.    dqGRSCHADEN = 10
  86.    dqZUSCHADEN = 10
  87.    dqKATEGORIE = "Ax"
  88.    dqMATERIAL = "Stahl"
  89.    dqABZUG = 8
  90.    dqPREIS = 650
  91.    dqHÄNDE = 2
  92. End If
  93. If A = "Beil" Then
  94.    dqWAFFE = A
  95.    dqGRSCHADEN = 3
  96.    dqZUSCHADEN = 3
  97.    dqKATEGORIE = "Ax"
  98.    dqMATERIAL = "Stahl"
  99.    dqABZUG = 2
  100.    dqPREIS = 70
  101.    dqHÄNDE = 1
  102. End If
  103. If A = "Handaxt" Then
  104.    dqWAFFE = A
  105.    dqGRSCHADEN = 4
  106.    dqZUSCHADEN = 4
  107.    dqKATEGORIE = "Ax"
  108.    dqMATERIAL = "Stahl"
  109.    dqABZUG = 3
  110.    dqPREIS = 155
  111.    dqHÄNDE = 1
  112. End If
  113. If A = "Hellebarde" Then
  114.    dqWAFFE = A
  115.    dqGRSCHADEN = 6
  116.    dqZUSCHADEN = 6
  117.    dqKATEGORIE = "Ax"
  118.    dqMATERIAL = "Stahl"
  119.    dqABZUG = 6
  120.    dqPREIS = 400
  121.    dqHÄNDE = 2
  122. End If
  123. If A = "Streitaxt" Then
  124.    dqWAFFE = A
  125.    dqGRSCHADEN = 5
  126.    dqZUSCHADEN = 5
  127.    dqKATEGORIE = "Ax"
  128.    dqMATERIAL = "Stahl"
  129.    dqABZUG = 3
  130.    dqPREIS = 360
  131.    dqHÄNDE = 1
  132. End If
  133. If A = "Jagdspeer" Then
  134.    dqWAFFE = A
  135.    dqGRSCHADEN = 1
  136.    dqZUSCHADEN = 9
  137.    dqKATEGORIE = "Sp"
  138.    dqMATERIAL = "Stahl"
  139.    dqABZUG = 0
  140.    dqPREIS = 130
  141.    dqHÄNDE = 1
  142. End If
  143. If A = "Kampfstab" Then
  144.    dqWAFFE = A
  145.    dqGRSCHADEN = 2
  146.    dqZUSCHADEN = 3
  147.    dqKATEGORIE = "Sp"
  148.    dqMATERIAL = "Holz"
  149.    dqABZUG = 0
  150.    dqPREIS = 25
  151.    dqHÄNDE = 2
  152. End If
  153. If A = "Kriegsspeer" Then
  154.    dqWAFFE = A
  155.    dqGRSCHADEN = 4
  156.    dqZUSCHADEN = 8
  157.    dqKATEGORIE = "Sp"
  158.    dqMATERIAL = "Stahl"
  159.    dqABZUG = 3
  160.    dqPREIS = 250
  161.    dqHÄNDE = 2
  162. End If
  163. If A = "Magierstab" Then
  164.    dqWAFFE = A
  165.    dqGRSCHADEN = 2
  166.    dqZUSCHADEN = 4
  167.    dqKATEGORIE = "Sp"
  168.    dqMATERIAL = "Magisch"
  169.    dqABZUG = 0
  170.    dqPREIS = 120
  171.    dqHÄNDE = 1
  172. End If
  173. If A = "Stoßspeer" Then
  174.    dqWAFFE = A
  175.    dqGRSCHADEN = 6
  176.    dqZUSCHADEN = 10
  177.    dqKATEGORIE = "Sp"
  178.    dqMATERIAL = "Stahl"
  179.    dqABZUG = 4
  180.    dqPREIS = 300
  181.    dqHÄNDE = 2
  182. End If
  183. If A = "Weihstab" Then
  184.    dqWAFFE = A
  185.    dqGRSCHADEN = 2
  186.    dqZUSCHADEN = 4
  187.    dqKATEGORIE = "Sp"
  188.    dqMATERIAL = "Stahl"
  189.    dqABZUG = 0
  190.    dqPREIS = 180
  191.    dqHÄNDE = 1
  192. End If
  193. If A = "Zweililien" Then
  194.    dqWAFFE = A
  195.    dqGRSCHADEN = 3
  196.    dqZUSCHADEN = 6
  197.    dqKATEGORIE = "Sp"
  198.    dqMATERIAL = "Stahl"
  199.    dqABZUG = 1
  200.    dqPREIS = 170
  201.    dqHÄNDE = 2
  202. End If
  203. If A = "Knüppel" Then
  204.    dqWAFFE = A
  205.    dqGRSCHADEN = 1
  206.    dqZUSCHADEN = 2
  207.    dqKATEGORIE = "Hie"
  208.    dqMATERIAL = "Holz"
  209.    dqABZUG = 0
  210.    dqPREIS = 5
  211.    dqHÄNDE = 1
  212. End If
  213. If A = "Kriegshammer" Then
  214.    dqWAFFE = A
  215.    dqGRSCHADEN = 4
  216.    dqZUSCHADEN = 6
  217.    dqKATEGORIE = "Hie"
  218.    dqMATERIAL = "Stahl"
  219.    dqABZUG = 2
  220.    dqPREIS = 175
  221.    dqHÄNDE = 1
  222. End If
  223. If A = "Morgenstern" Then
  224.    dqWAFFE = A
  225.    dqGRSCHADEN = 2
  226.    dqZUSCHADEN = 10
  227.    dqKATEGORIE = "Hie"
  228.    dqMATERIAL = "Stahl"
  229.    dqABZUG = 3
  230.    dqPREIS = 130
  231.    dqHÄNDE = 1
  232. End If
  233. If A = "Ogertöter" Then
  234.    dqWAFFE = A
  235.    dqGRSCHADEN = 5
  236.    dqZUSCHADEN = 3
  237.    dqKATEGORIE = "Hie"
  238.    dqMATERIAL = "Stahl"
  239.    dqABZUG = 4
  240.    dqPREIS = 160
  241.    dqHÄNDE = 1
  242. End If
  243. If A = "Streitkolben" Then
  244.    dqWAFFE = A
  245.    dqGRSCHADEN = 2
  246.    dqZUSCHADEN = 5
  247.    dqKATEGORIE = "Hie"
  248.    dqMATERIAL = "Stahl"
  249.    dqABZUG = 0
  250.    dqPREIS = 85
  251.    dqHÄNDE = 1
  252. End If
  253. If A = "Magierstab des Irion" Then
  254.    dqWAFFE = A
  255.    dqGRSCHADEN = 3
  256.    dqZUSCHADEN = 4
  257.    dqKATEGORIE = "Sp"
  258.    dqMATERIAL = "Magisch"
  259.    dqABZUG = -5
  260.    dqPREIS = 400
  261.    dqHÄNDE = 1
  262. End If
  263. If A = "Elfenschwert" Then
  264.    dqWAFFE = A
  265.    dqGRSCHADEN = 3
  266.    dqZUSCHADEN = 3
  267.    dqKATEGORIE = "Sch"
  268.    dqMATERIAL = "Magisch"
  269.    dqABZUG = -10
  270.    dqPREIS = 600
  271.    dqHÄNDE = 1
  272. End If
  273. End Sub
  274. Sub BowCheck()
  275. If A = "Kurzbogen" Then dqWAFFE = A: dqGRSCHADEN = 3: dqZUSCHADEN = 3: dqKATEGORIE = "Bogen": dqPREIS = 90
  276. If A = "Langbogen" Then dqWAFFE = A: dqGRSCHADEN = 4: dqZUSCHADEN = 6: dqKATEGORIE = "Bogen": dqPREIS = 160
  277. If A = "Elfenbogen" Then dqWAFFE = A: dqGRSCHADEN = 3: dqZUSCHADEN = 9: dqKATEGORIE = "Bogen": dqPREIS = 200
  278. If A = "Kompositbogen" Then dqWAFFE = A: dqGRSCHADEN = 2: dqZUSCHADEN = 7: dqKATEGORIE = "Bogen": dqPREIS = 130
  279. If A = "Kriegsbogen" Then dqWAFFE = A: dqGRSCHADEN = 4: dqZUSCHADEN = 10: dqKATEGORIE = "Bogen": dqPREIS = 250
  280. If A = "Pfeil" Then dqWAFFE = A: dqGRSCHADEN = 0: dqZUSCHADEN = 0: dqKATEGORIE = "Bogen": dqPREIS = 5
  281. If A = "Bolzen" Then dqWAFFE = A: dqGRSCHADEN = 0: dqZUSCHADEN = 0: dqKATEGORIE = "Bogen": dqPREIS = 5
  282. If A = "Leichte Armbrust" Then dqWAFFE = A: dqGRSCHADEN = 2: dqZUSCHADEN = 6: dqKATEGORIE = "Armbrust": dqPREIS = 130
  283. If A = "Schwere Armbrust" Then dqWAFFE = A: dqGRSCHADEN = 4: dqZUSCHADEN = 6: dqKATEGORIE = "Armbrust": dqPREIS = 180
  284. If A = "Zwergenarmbrust" Then dqWAFFE = A: dqGRSCHADEN = 1: dqZUSCHADEN = 8: dqKATEGORIE = "Armbrust": dqPREIS = 140
  285. If A = "Scharfschützenarmbrust" Then dqWAFFE = A: dqGRSCHADEN = 5: dqZUSCHADEN = 7: dqKATEGORIE = "Armbrust": dqPREIS = 200
  286.  
  287. End Sub
  288.  
  289. Sub RüstCheck()
  290. If A = "Drachenharnisch" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 3: dqPREIS = 300
  291. If A = "Championgurt" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 0: dqPREIS = 10
  292. If A = "Jagdhemd" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 0: dqPREIS = 60
  293. If A = "Lederwams" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 80
  294. If A = "Lederharnisch" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 3: dqPREIS = 120
  295. If A = "Hartholzharnisch" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Holz": dqABZUG = 3: dqPREIS = 250
  296. If A = "Lederpanzer" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 4: dqPREIS = 250
  297. If A = "Kettenhemd" Then dqWAFFE = A: dqGRSCHADEN = 2: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 2: dqPREIS = 120
  298. If A = "Kettenmantel" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 3: dqPREIS = 180
  299. If A = "Plattenharnisch" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 4: dqPREIS = 240
  300. If A = "Plattenpanzer" Then dqWAFFE = A: dqGRSCHADEN = 6: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 6: dqPREIS = 400
  301. If A = "Schuppenpanzer" Then dqWAFFE = A: dqGRSCHADEN = 5: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 5: dqPREIS = 320
  302. If A = "Ritterrüstung" Then dqWAFFE = A: dqGRSCHADEN = 8: dqKATEGORIE = "Rüstung": dqMATERIAL = "Stahl": dqABZUG = 9: dqPREIS = 800
  303. If A = "Lederhelm" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Helm": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 30
  304. If A = "Topfhelm" Then dqWAFFE = A: dqGRSCHADEN = 2: dqKATEGORIE = "Helm": dqMATERIAL = "Stahl": dqABZUG = 2: dqPREIS = 70
  305. If A = "Flügelhelm" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Helm": dqMATERIAL = "Stahl": dqABZUG = 4: dqPREIS = 120
  306. If A = "Ritterhelm" Then dqWAFFE = A: dqGRSCHADEN = 5: dqKATEGORIE = "Helm": dqMATERIAL = "Stahl": dqABZUG = 6: dqPREIS = 200
  307. If A = "Lederschild" Then dqWAFFE = A: dqGRSCHADEN = 2: dqKATEGORIE = "Schild": dqMATERIAL = "Leder": dqABZUG = 2: dqPREIS = 50
  308. If A = "Holzschild" Then dqWAFFE = A: dqGRSCHADEN = 3: dqKATEGORIE = "Schild": dqMATERIAL = "Holz": dqABZUG = 4: dqPREIS = 80
  309. If A = "Großschild" Then dqWAFFE = A: dqGRSCHADEN = 4: dqKATEGORIE = "Schild": dqMATERIAL = "Stahl": dqABZUG = 5: dqPREIS = 130
  310. If A = "Ritterschild" Then dqWAFFE = A: dqGRSCHADEN = 6: dqKATEGORIE = "Schild": dqMATERIAL = "Stahl": dqABZUG = 6: dqPREIS = 250
  311. If A = "Lederkleidung" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Rüstung": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 20
  312. 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
  313. If A = "Wattierte Weiße Robe" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Umhang": dqMATERIAL = "Stoff": dqABZUG = 0: dqPREIS = 50
  314. If A = "Lederumhang" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Umhang": dqMATERIAL = "Leder": dqABZUG = 1: dqPREIS = 30
  315. If A = "Fellumhang" Then dqWAFFE = A: dqGRSCHADEN = 1: dqKATEGORIE = "Umhang": dqMATERIAL = "Fell": dqABZUG = 1: dqPREIS = 40
  316. End Sub
  317.  
  318. Sub KrautCheck()
  319. If A = "Wurzelknolle" Then dqWAFFE = A: dqPREIS = 30: dqKATEGORIE = "Die Wuzelknolle wächst unter der Erde und ist die gebräuchliste Zutat der Alchemie."
  320. 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."
  321. 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."
  322. 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."
  323. If A = "Flasche Alkohol (1/2 l)" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Ein halber Liter purer Alkohol."
  324. If A = "Goldstaub (1 Unze)" Then dqWAFFE = A: dqPREIS = 5: dqKATEGORIE = "Eine Unze gewaschener Goldstaub aus einem Fluss."
  325. If A = "Höllenpilz" Then dqWAFFE = A: dqPREIS = 80: dqKATEGORIE = "Wächst an lichten Stellen im Wald, ist im rohen Zustand tödlich."
  326. If A = "Karfunkel" Then dqWAFFE = A: dqPREIS = 3000: dqKATEGORIE = "unbekannt"
  327. If A = "Quecksilber (1 ml)" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "1 ml Quecksilber. Im rohen Zustand hochgiftig."
  328. If A = "Schwarzer Lotos" Then dqWAFFE = A: dqPREIS = 600: dqKATEGORIE = "Der Schwarze Lotos wächst im Sumpf und ist die seltenste Pflanze. Giftig."
  329. If A = "Schwefel (1 ml)" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "1 ml Schwefel."
  330. 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."
  331. If A = "Tropfen klares Blut" Then dqWAFFE = A: dqPREIS = 10: dqKATEGORIE = "Gewöhnliches Blut eines Menschen oder menschenähnlichen Wesens."
  332. If A = "Tropfen Dämonenspeichel" Then dqWAFFE = A: dqPREIS = 100: dqKATEGORIE = "1 Tropfen Speichel eines Dämons. Im rohen Zustand Pestbringend."
  333. If A = "Bärenfell" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Das Fell eines Bären."
  334. If A = "Großer Heiltrank" Then dqWAFFE = A: dqPREIS = 40: dqKATEGORIE = "Gibt 15 Lebenspunkte nach Einnahme zurück."
  335. If A = "Großer Zaubertrank" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "Gibt 15 Mana nach Einnahme zurück."
  336. If A = "Kleiner Heiltrank" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Gibt 8 Lebenspunkte nach Einnahme zurück."
  337. If A = "Kleiner Zaubertrank" Then dqWAFFE = A: dqPREIS = 30: dqKATEGORIE = "Gibt 8 Mana nach Einnahme zurück."
  338. If A = "Leere Flasche" Then dqWAFFE = A: dqPREIS = 5: dqKATEGORIE = "Eine Leere Flasche die Hauptsächlich zum Abfüllen Alchemistischer Stoffe gedacht ist."
  339. If A = "Magischer Opferdolch" Then dqWAFFE = A: dqPREIS = 150: dqKATEGORIE = "unbekannt"
  340. If A = "Ogerzahn" Then dqWAFFE = A: dqPREIS = 20: dqKATEGORIE = "Der Reißzahn eines Ogers."
  341. If A = "Silberkette" Then dqWAFFE = A: dqPREIS = 5: dqKATEGORIE = "Eine Kette aus Silber."
  342. If A = "Silberner Dolch" Then dqWAFFE = A: dqPREIS = 30: dqKATEGORIE = "Ein Dolch aus Silber."
  343. If A = "Smaragd Ring" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "Ein Ring mit einem eingefassten Smaragd."
  344. If A = "Tentakelarm" Then dqWAFFE = A: dqPREIS = 75: dqKATEGORIE = "Der Arm eines Tentakels."
  345. If A = "Thorkushur 's Schuppen" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "Die wichtigste Zutat für den 'Illusion zerstören' Zauber."
  346. If A = "Unsichtbarkeitstrank" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "Dieser Trink verleiht dem Anwender Unsichtbarkeit für begrenzte Zeit."
  347. If A = "Wolfsfell" Then dqWAFFE = A: dqPREIS = 10: dqKATEGORIE = "Das Fell eines Wolfes."
  348. If A = "Alchemieset" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "Das Alchemieset wird dazu benutzt, um Tränke und Elixiere herzstellen."
  349. End Sub
  350.  
  351. Sub SpellCheck()
  352. If A = "Genesung" Then dqWAFFE = A: dqPREIS = 120: dqKATEGORIE = "neutralisiert Gift und heilt Krankheiten": dqABZUG = 25: Zahl = 4
  353. If A = "Blitzstrahl" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "verursacht 3-18 Schadenspunkte": dqABZUG = 30: Zahl = 3
  354. If A = "Blitzschlag" Then dqWAFFE = A: dqPREIS = 250: dqKATEGORIE = "verursacht 8-28 Schadenspunkte": dqABZUG = 55: Zahl = 5
  355. If A = "Exorzismus" Then dqWAFFE = A: dqPREIS = 300: dqKATEGORIE = "verursacht 0-60 Schadenspunkte gg. Dämonen": dqABZUG = 80: Zahl = 4
  356. If A = "Wunden heilen" Then dqWAFFE = A: dqPREIS = 75: dqKATEGORIE = "heilt 5-12 Schadenspunkte": dqABZUG = 15: Zahl = 2
  357.  
  358. If A = "Mantel des Todes" Then dqWAFFE = A: dqPREIS = 150: dqKATEGORIE = "verursacht 5-15 Schadenspunkte": dqABZUG = 25: Zahl = 4
  359. If A = "Schattenblitz" Then dqWAFFE = A: dqPREIS = 80: dqKATEGORIE = "verursacht 1-20 Schadenspunkte": dqABZUG = 20: Zahl = 2
  360. If A = "Verwesung" Then dqWAFFE = A: dqPREIS = 70: dqKATEGORIE = "verursacht 1-6 Schadenspunkte pro Runde": dqABZUG = 12: Zahl = 1
  361. If A = "Lähmung" Then dqWAFFE = A: dqPREIS = 60: dqKATEGORIE = "lähmt Gegner (Nek/2)-(gst/30) Runden lang": dqABZUG = 20: Zahl = 3
  362. If A = "Lebensentzug" Then dqWAFFE = A: dqPREIS = 100: dqKATEGORIE = "verursacht 3-6 Schadenspunkte und überträgt sie": dqABZUG = 15: Zahl = 2
  363.  
  364. If A = "Schild" Then dqWAFFE = A: dqPREIS = 120: dqKATEGORIE = "addiert 3 zu Rüstungsklasse": dqABZUG = 25: Zahl = 2
  365. If A = "Kreaturen abwenden" Then dqWAFFE = A: dqPREIS = 120: dqKATEGORIE = "vertreibt Kreaturen": dqABZUG = 20: Zahl = 3
  366. If A = "Zauberranken" Then dqWAFFE = A: dqPREIS = 180: dqKATEGORIE = "verursacht 3-8 Schadenspunkte pro Runde": dqABZUG = 20: Zahl = 3
  367. If A = "Naturheilung" Then dqWAFFE = A: dqPREIS = 50: dqKATEGORIE = "heilt 3-12 Schadenspunkte": dqABZUG = 12: Zahl = 3
  368. If A = "Kältestrahl" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "verursacht 5-12 Schadenspunkte": dqABZUG = 15: Zahl = 4
  369.  
  370. If A = "Feuerball" Then dqWAFFE = A: dqPREIS = 125: dqKATEGORIE = "verursacht 3-12 Schadenspunkte": dqABZUG = 12: Zahl = 2
  371. If A = "Flammenstrahl" Then dqWAFFE = A: dqPREIS = 160: dqKATEGORIE = "verursacht 8-14 Schadenspunkte": dqABZUG = 25: Zahl = 3
  372. If A = "Manabrand" Then dqWAFFE = A: dqPREIS = 180: dqKATEGORIE = "verursacht (0-mp des Gegners) Schadenspunkte": dqABZUG = 0: Zahl = 2
  373. If A = "Drachenodem" Then dqWAFFE = A: dqPREIS = 200: dqKATEGORIE = "verursacht 5-20 Schadenspunkte": dqABZUG = 40: Zahl = 5
  374. If A = "Hölleninferno" Then dqWAFFE = A: dqPREIS = 500: dqKATEGORIE = "verursacht 25-50 Schadenspunkte": dqABZUG = 80: Zahl = 6
  375.  
  376. End Sub
  377. Sub Spellbookcheck()
  378. If A = "Feuerblitz" Then dqGRDAMAGE = 1: dqGRADDAM = 5: dqSPELL = A: dqMANA = 5: dqWHAT = "S": dqWHICH = "CHAOS"
  379. If A = "Feuerball" Then dqGRDAMAGE = 3: dqGRADDAM = 9: dqSPELL = A: dqMANA = 12: dqWHAT = "S": dqWHICH = "CHAOS"
  380. If A = "Flammenstrahl" Then dqGRDAMAGE = 8: dqGRADDAM = 6: dqSPELL = A: dqMANA = 25: dqWHAT = "S": dqWHICH = "CHAOS"
  381. If A = "Manabrand" Then dqGRDAMAGE = 0: dqGRADDAM = Gmp: dqSPELL = A: dqMANA = Gmp / 2: dqWHAT = "S": dqWHICH = "CHAOS"
  382. If A = "Drachenodem" Then dqGRDAMAGE = 5: dqGRADDAM = 15: dqSPELL = A: dqMANA = 40: dqWHAT = "S": dqWHICH = "CHAOS"
  383. If A = "Hölleninferno" Then dqGRDAMAGE = 25: dqGRADDAM = 25: dqSPELL = A: dqMANA = 80: dqWHAT = "S": dqWHICH = "CHAOS"
  384.  
  385. If A = "Mantel des Todes" Then dqGRDAMAGE = 5: dqGRADDAM = 10: dqSPELL = A: dqMANA = 25: dqWHAT = "S": dqWHICH = "NEKROMANTIE"
  386. If A = "Schattenblitz" Then dqGRDAMAGE = 1: dqGRADDAM = 19: dqSPELL = A: dqMANA = 20: dqWHAT = "S": dqWHICH = "NEKROMANTIE"
  387. If A = "Verwesung" Then dqGRDAMAGE = 1: dqGRADDAM = 6: dqSPELL = A: dqMANA = 12: dqWHAT = "S": dqWHICH = "NEKROMANTIE"
  388. If A = "Lähmung" Then dqGRDAMAGE = (Nek / 2) - (gst / 30): dqGRADDAM = 0: dqSPELL = A: dqMANA = 20: dqWHAT = "A": dqWHICH = "NEKROMANTIE"
  389. If A = "Lebensentzug" Then dqGRDAMAGE = 3: dqGRADDAM = 3: dqSPELL = A: dqMANA = 15: dqWHAT = "S": dqWHICH = "NEKROMANTIE"
  390.  
  391. If A = "Genesung" Then dqGRDAMAGE = 0: dqGRADDAM = 0: dqSPELL = A: dqMANA = 25: dqWHAT = "A": dqWHICH = "LICHT"
  392. If A = "Blitzstrahl" Then dqGRDAMAGE = 3: dqGRADDAM = 15: dqSPELL = A: dqMANA = 30: dqWHAT = "S": dqWHICH = "LICHT"
  393. If A = "Blitzschlag" Then dqGRDAMAGE = 8: dqGRADDAM = 20: dqSPELL = A: dqMANA = 55: dqWHAT = "S": dqWHICH = "LICHT"
  394. If A = "Exorzismus" Then dqGRDAMAGE = 0: dqGRADDAM = 60: dqSPELL = A: dqMANA = 80: dqWHAT = "S": dqWHICH = "LICHT"
  395. If A = "Wunden heilen" Then dqGRDAMAGE = 5: dqGRADDAM = 10: dqSPELL = A: dqMANA = 15: dqWHAT = "H": dqWHICH = "LICHT"
  396.  
  397. If A = "Schild" Then dqGRDAMAGE = 0: dqGRADDAM = 0: dqSPELL = A: dqMANA = 25: dqWHAT = "A": dqWHICH = "NATUR"
  398. If A = "Kreaturen abwenden" Then dqGRDAMAGE = 0: dqGRADDAM = 0: dqSPELL = A: dqMANA = 20: dqWHAT = "A": dqWHICH = "NATUR"
  399. If A = "Zauberranken" Then dqGRDAMAGE = 3: dqGRADDAM = 5: dqSPELL = A: dqMANA = 20: dqWHAT = "S": dqWHICH = "NATUR"
  400. If A = "Naturheilung" Then dqGRDAMAGE = 3: dqGRADDAM = 9: dqSPELL = A: dqMANA = 12: dqWHAT = "H": dqWHICH = "NATUR"
  401. If A = "Kältestrahl" Then dqGRDAMAGE = 5: dqGRADDAM = 7: dqSPELL = A: dqMANA = 15: dqWHAT = "S": dqWHICH = "NATUR"
  402. End Sub
  403.