| 0,0 → 1,214 |
|---|
| Attribute VB_Name = "ZdDDataSub" |
| Public Const HandCursor = 32649& |
| Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long |
| Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long |
| Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) |
| |
| Sub ReadRezept() |
| If Manager.Inventar.Text = "Rezept 'Elixier'" Then B = "Zutaten:" + Chr(13) + "6 Rabenfedern" + Chr(13) + "6 Wurzelknollen" + Chr(13) + "1 Horn eines Einhorns" + Chr(13) + "Alles in einen Topf geben und 3 Stunden bei 30° Kochen. Bewirkt göttliche Kraft für 3 Mondstunden." |
| If Manager.Inventar.Text = "Buch 'Daemonica'" Then B = "Dämonen leben in den Niederhöllen, nur wenn sie etwas graunvolles veranstalten wollen, kommen sie durch Portale oder mit Hilfe von Nekromanten an die Oberwelt. Dämonen sind nur durch magische Waffen verletzbar. 6 Mächtige Dämonenfürsten, Erzdämonen, haben die Kontrolle über die Unterwelt : Dalerok, Sewirok, Athan, Zawen, Crenos und H'rawem." |
| If Manager.Inventar.Text = "Buch 'Götter'" Then B = "Hoch im Himmel leben 4 Götter, die über das Schicksal der Menschen entscheiden. Man nennt sie Medusa, Azur, Orkhan und Pegasus. Von Grundauf sind sie Gut gesinnt doch untereinander sind sie oft im Streit." |
| If Manager.Inventar.Text = "Buch 'Artefacium'" Then B = "Oft werden gewöhnliche Dinge, wie Dolche und Stäbe von Erzmagiern verzaubert. Sie haben es früher oft vollbracht, um Langeweile zu unterdrücken da die verzauberung von Artefakten sehr viel Zeit in Anspruch nahm. Doch nicht selten taten sie es auch um berühmt zu werden. Der Berühmteste Artefaktverzauberer nennt sich Crydos." |
| If Manager.Inventar.Text = "Rezept 'Kleiner Heiltrank'" Then B = "Zutaten:" + Chr(13) + "1 Tropfen klares Blut" + Chr(13) + "2 Wurzelknollen" + Chr(13) + "1 Büschel Brunnensporn" + Chr(13) + "Alles in einen Topf geben und 1 Stunde bei 40° Kochen. Gibt 8 Lebenspunkte wieder." |
| If Manager.Inventar.Text = "Rezept 'Großer Heiltrank'" Then B = "Zutaten:" + Chr(13) + "2 Tropfen klares Blut" + Chr(13) + "2 Wurzelknollen" + Chr(13) + "2 Büschel Brunnensporn" + Chr(13) + "Alles in einen Topf geben und 3 Stunden bei 25° Kochen. Gibt 15 Lebenspunkte wieder." |
| If Manager.Inventar.Text = "Rezept 'Kleiner Zaubertrank'" Then B = "Zutaten:" + Chr(13) + "1 Tropfen Dämonenspeichel" + Chr(13) + "2 Blüten eines Morgentaus" + Chr(13) + "1ml Schwefel und Quecksilber" + Chr(13) + "Alles in einen Topf geben und 4 Stunden bei 50° Kochen. Gibt 8 Mana wieder." |
| If Manager.Inventar.Text = "Rezept 'Unsichtbarkeitstrank'" Then B = "Zutaten:" + Chr(13) + "1 Unze Goldstaub" + Chr(13) + "2 Wurzelknollen" + Chr(13) + "0,5 Liter Alkohol" + Chr(13) + "Alles in einen Topf geben und 1 Stunde bei 20° Kochen. Bewirkt Unsichtbarkeit" |
| dqSCHRIFTSTÜCK.Show |
| dqSCHRIFTSTÜCK.Label1.Caption = Manager.Inventar.Text |
| dqSCHRIFTSTÜCK.Label2.Caption = B |
| End Sub |
| |
| Sub CheckOrt() |
| If Ort = "Shanti" Then Shanti.Show |
| If Ort = "Elfenwald" Then Elfenwald.Show |
| If Ort = "Phargas" Then Phargas.Show |
| If Ort = "Havengate" Then Havengate.Show |
| End Sub |
| |
| Public Function GetPath() As String |
| If Right(App.Path, 1) = "\" Then |
| GetPath = App.Path |
| Else |
| GetPath = App.Path & "\" |
| End If |
| End Function |
| |
| Sub FeFail() |
| Titel = "Feilschen misslungen" |
| Text = "Du erfeilscht nichts." |
| onlyOK |
| Konversation.Show (vbModal) |
| End Sub |
| |
| Sub FeGelungen() |
| Zahl = Int(FEILSCHEN / 2.5) |
| dqPREIS = Int(dqPREIS * ((100 - Zahl) / 100)) |
| Titel = "Feilschen gelungen" |
| Text = "Du erfeilscht " + Str(Zahl) + " %." |
| onlyOK |
| Konversation.Show (vbModal) |
| End Sub |
| |
| Sub StFail() |
| Titel = "Stehlen misslungen" |
| If Gold >= 40 Then Text = "Um " + Inhaber + " zu beruhigen zahlst du dein ganzes Gold.": Gold = 0: ManagRighter: GoTo OJ |
| If Gold < 25 Then |
| If (Rnd * 100) > 80 Then |
| Rem Man stirbt zu einer Wahrscheinlichkeit von 20% |
| Text = "Die Wächter des Ladens schneiden dir die Kehle durch." |
| Hp = 0 |
| Manager.Label20 = Hp |
| Zahl = 910 |
| Else |
| Rem SchadenSt: 20% ~ 30% Schaden |
| Rem Sterben kann man nie weil nach Schaden aufgerundet wird |
| Dim SchadenSt As Integer |
| Randomize Timer |
| SchadenSt = Round(10 * Rnd + 20) |
| Text = "Man ertappt dich und schmettert dir einen stumpfen Gegenstand ins Gesicht. Schnell eilst du davon. Du verlierst " + Str(SchadenSt) + "% HP." |
| Hp = Round(Hp * (100 - SchadenSt) / 100) |
| Manager.Label20 = Hp |
| Zahl = 910 |
| End If |
| End If |
| OJ: |
| onlyOK |
| Konversation.Show (vbModal) |
| If Hp <= 0 Then |
| Unload dqSCHMIEDE |
| Unload dqBOGENBAUER |
| Unload dqHERBERGE |
| Unload dqRÜSTSCHMIEDE |
| Unload dqZAUBERER |
| TOT.Show |
| End If |
| End Sub |
| Sub Stgelungen() |
| Titel = "Stehlen gelungen" |
| Text = "Du stiehlst " + dqWAFFE |
| Manager.Inventar.AddItem dqWAFFE |
| onlyOK |
| Konversation.Show (vbModal) |
| End Sub |
| Sub NoGold() |
| Titel = Inhaber |
| Text = "Du hast nicht genug Gold." |
| onlyOK |
| Konversation.Show (vbModal) |
| End Sub |
| |
| Sub JaUndNein() |
| Answer1 = "Ja" |
| Answer2 = "Nein" |
| Answer3 = "" |
| End Sub |
| Sub onlyOK() |
| Answer1 = "OK" |
| Answer2 = "" |
| Answer3 = "" |
| End Sub |
| Sub RHMP() |
| If Hp > STARThp Then Hp = STARThp |
| If MP > STARTmp Then MP = STARTmp |
| End Sub |
| Sub SchlafenGehen() |
| Zahl = (24 - Stunden) - Bier |
| Zahl = Zahl + 8 |
| Zahl = Int(Zahl / 3) |
| Bier = 0 |
| Stunden = 8 |
| Minuten = 0 |
| Hp = Hp + Zahl |
| MP = MP + Zahl |
| RHMP |
| |
| Titel = "Ereignis" |
| Text = "Du regenerierst " + Str(Zahl) + " Lebenspunkte und Mana." |
| onlyOK |
| Konversation.Show (vbModal) |
| End Sub |
| Sub GetExperience() |
| Experience = Experience + Exp |
| If Experience >= NextLevel Then Epoints = Epoints + 5: Stufe = Stufe + 1: NextLevel = NextLevel + Int(Stufe * 100): Getlife: ManagRighter: Manager.Label23.Caption = "Stufe " + Str(Stufe) + " erreicht!": Manager.Label23.Visible = True |
| End Sub |
| |
| Sub CheckLife() |
| If Hp <= 0 Then TOT.Show: Unload Kampf: Unload Rast: GoTo nix |
| If Ghp <= 0 Then Winner |
| nix: |
| End Sub |
| |
| Sub Winner() |
| Wesung = 0: Lähmzeit = 0: SchildZ = 0: Ranken = 0 |
| Unsichtbar = 0 |
| ManagRighter |
| Unload Kampf |
| Beute.Show (vbModal) |
| If woher = "Ende" Then MsgBox "Vielen Dank, dass du Zeitalter der Dämonen gespielt hast!": End |
| If woher = "Havengate" Then Havengate.Show: Havengate.CheckMove |
| If woher = "OrkMeister" Then Landkarte.Show: Ring = 1 |
| If woher = "Lager der Orks" Then Landkarte.Show: Konversation.Show: Konversation.MitHäuptlingSprechen |
| If woher = "LK" Then Landkarte.Show: Landkarte.city |
| If woher = "TdOK1" Then TdOK1.Show: Djinn = 1: TdOK1.CheckMove |
| If woher = "TdOK2" Then TdOK2.Show: Zankh = 1: TdOK2.CheckMove |
| If woher = "Haus" Then Haus.Show: Fässer = 1: Haus.city |
| If woher = "Labor" Then Labor.Show: Seeli = 1: Labor.city |
| If woher = "Labor2a" Then Labor.Show: Seela = 1: Labor.Seelenjäger.Visible = False: Labor.city |
| If woher = "Elfenwald" Then Elfenwald.Show: Elfenwald.city |
| If PositionNumber = 733 Then Konversation.MitHäuptlingSprechen |
| End Sub |
| |
| Sub Angriff() |
| Randomize Timer |
| EVTangriff = Int(23 * Rnd) |
| End Sub |
| |
| Public Function FileExists(Datei As String) As Boolean |
| On Error Resume Next |
| FileExists = Dir$(Datei) <> "" |
| FileExists = FileExists And Err = 0 |
| On Error GoTo 0 |
| End Function |
| |
| Function zweinull(ByVal inp) |
| If Len(inp) = 0 Then zweinull = "00" |
| If Len(inp) = 1 Then zweinull = "0" & inp |
| If Len(inp) > 1 Then zweinull = inp |
| End Function |
| |
| Sub Dayli() |
| Manager.Label32.Caption = Stunden |
| Manager.Label30.Caption = zweinull(Minuten) |
| End Sub |
| Sub AddObj() |
| Manager.Inventar.AddItem A |
| End Sub |
| |
| Sub ManagRighter() |
| Manager.Label23.Caption = "" |
| Manager.Label22.Caption = Gold |
| If Epoints > 0 Then Manager.Command4.Enabled = True: Manager.Command5.Enabled = True: Manager.Command6.Enabled = True |
| Manager.Label29.Caption = "Kraftschaden " + Str(Int(Strength / 20)) |
| Manager.Label26.Caption = "Stufe " + Str(Stufe) |
| Manager.Label27.Caption = Experience |
| Manager.Label28.Caption = NextLevel |
| Manager.Label15.Caption = Strength |
| Manager.Label16.Caption = Speed |
| Manager.Label17.Caption = Iq |
| Manager.Label20.Caption = Hp |
| Manager.Label21.Caption = MP |
| Manager.Label7.Caption = STARThp |
| Manager.Label8.Caption = STARTmp |
| Manager.Label55.Caption = Epoints |
| End Sub |
| |
| Sub Getlife() |
| Randomize Timer |
| Zahl = Int(5 * Rnd) + 1 |
| STARThp = STARThp + Zahl |
| Hp = Hp + Zahl |
| Randomize Timer |
| Zahl = Int(5 * Rnd) + 1 |
| STARTmp = STARTmp + Zahl |
| If Magician = 1 Then MP = MP + Zahl |
| End Sub |