Attribute VB_Name = "Module1"
Rem Charakter Eigenschaften
Global Strength, Iq, Speed, hp, mp, STARThp, STARTmp As Integer
Global CHAOS, LICHT, NATUR, NEKROMANTIE, SCHWERTER, ÄXTE, STÄBE, HIEBWAFFEN, BÖGEN As Integer
Global magician, punkte, answer As Integer
Global nom As String
Rem end
Rem Kampf Werte
Global schritt, ggrundwert, gzusatzwert, grs, gbe As Integer
Global explus, stufe, experience, ghp, gmp, gspeed, gstrength As Integer
Global gmat, ghpst, grust, woher, feind, gwaffe, grsmat, gabzug, gkateg As String
Global grundwert, zusatzwert, rs, be, fkgrschaden, fkzuschaden As Integer
Global rüstung, waffe, material, rsmat, ABZUG, bogen, kateg, typus As String
Global pfeile, nkchance, fkchance, zschance, gold As Integer
Global kraftschaden, NextLevel, evtangriff, enemy, maxdam, mindam, minus As Integer
Global schaden, kgrundschaden, kzusatzschaden, kabzug, kpreis As Integer
Global kwaffe, kkateg, kmaterial, beschreibung As String
Global kmana, bier, kbe, krs, krank, vergiftet As Integer
Rem ende
Rem Trainingslager
Global amazonkampf, trainhie, trainbo, trainsp, treffer, hitchance As Integer
Rem ende
Rem Magiergilden
Global ChaosUndHölleninferno, DämmerungUndFinsternis, LichtUndFrieden, Feenstaub, sleep As Integer
Rem ende
Rem Orte
Global eifrei, frei, freisee, Reichtum, Andere, Selbst, tempelfrei As Integer
Global StPlus, IqPlus, SpPlus, zahl As Integer
Global fpunkte, hotruhe, door, truhe2, truhe3, truhe4, skeletto, muck As Integer
Global schluessel1, schluessel2, schluessel3, schluessel4, schluessel5 As Integer
Global nachteil1, nachteil2, nachteil3 As String
Global obj As String
Global altar, drachentot, stones, obelisk, lampe, rotkri As Integer
Global baum, gesicht, veil, djinn, schrankh, truheh, KRISTALLSCHLÜSSEL As Integer
Global xstark, visi, amverwesen, lähmung, schild, ranken As Integer
Rem ende
Rem Sonstiges
Global altpreis, zf, skorp As Integer
Global arcano As Integer
Global zkg As String
Global a, art, wetter, zombie As String
Global Uitem As Integer
Global wirkung, book As String
Global zweig1, zweig2, zweig3, KristallseeFertig As Integer
Rem ende
Rem Auftragsdaten
Global yyPfeile, yyork, yymittel, yyrolle, yyfreund As Integer
Rem ende