Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 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 |