Subversion Repositories aysalia

Rev

Blame | Last modification | View Log | RSS feed

  1. Attribute VB_Name = "ZdDDataSub"
  2. Public Const HandCursor = 32649&
  3. Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
  4. Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
  5. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  6.  
  7. Sub ReadRezept()
  8. 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."
  9. 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."
  10. 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."
  11. 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."
  12. 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."
  13. 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."
  14. 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."
  15. 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"
  16. dqSCHRIFTSTÜCK.Show
  17. dqSCHRIFTSTÜCK.Label1.Caption = Manager.Inventar.Text
  18. dqSCHRIFTSTÜCK.Label2.Caption = B
  19. End Sub
  20.  
  21. Sub CheckOrt()
  22. If Ort = "Shanti" Then Shanti.Show
  23. If Ort = "Elfenwald" Then Elfenwald.Show
  24. If Ort = "Phargas" Then Phargas.Show
  25. If Ort = "Havengate" Then Havengate.Show
  26. End Sub
  27.  
  28. Public Function GetPath() As String
  29.   If Right(App.Path, 1) = "\" Then
  30.     GetPath = App.Path
  31.   Else
  32.     GetPath = App.Path & "\"
  33.   End If
  34. End Function
  35.  
  36. Sub FeFail()
  37. Titel = "Feilschen misslungen"
  38. Text = "Du erfeilscht nichts."
  39. onlyOK
  40. Konversation.Show (vbModal)
  41. End Sub
  42.  
  43. Sub FeGelungen()
  44. Zahl = Int(FEILSCHEN / 2.5)
  45. dqPREIS = Int(dqPREIS * ((100 - Zahl) / 100))
  46. Titel = "Feilschen gelungen"
  47. Text = "Du erfeilscht " + Str(Zahl) + " %."
  48. onlyOK
  49. Konversation.Show (vbModal)
  50. End Sub
  51.  
  52. Sub StFail()
  53. Titel = "Stehlen misslungen"
  54. If Gold >= 40 Then Text = "Um " + Inhaber + " zu beruhigen zahlst du dein ganzes Gold.": Gold = 0: ManagRighter: GoTo OJ
  55. If Gold < 25 Then
  56.   If (Rnd * 100) > 80 Then
  57.     Rem Man stirbt zu einer Wahrscheinlichkeit von 20%
  58.     Text = "Die Wächter des Ladens schneiden dir die Kehle durch."
  59.     Hp = 0
  60.     Manager.Label20 = Hp
  61.     Zahl = 910
  62.   Else
  63.     Rem SchadenSt: 20% ~ 30% Schaden
  64.     Rem Sterben kann man nie weil nach Schaden aufgerundet wird
  65.     Dim SchadenSt As Integer
  66.     Randomize Timer
  67.     SchadenSt = Round(10 * Rnd + 20)
  68.     Text = "Man ertappt dich und schmettert dir einen stumpfen Gegenstand ins Gesicht. Schnell eilst du davon. Du verlierst " + Str(SchadenSt) + "% HP."
  69.     Hp = Round(Hp * (100 - SchadenSt) / 100)
  70.     Manager.Label20 = Hp
  71.     Zahl = 910
  72.   End If
  73. End If
  74. OJ:
  75. onlyOK
  76. Konversation.Show (vbModal)
  77. If Hp <= 0 Then
  78.   Unload dqSCHMIEDE
  79.   Unload dqBOGENBAUER
  80.   Unload dqHERBERGE
  81.   Unload dqRÜSTSCHMIEDE
  82.   Unload dqZAUBERER
  83.   TOT.Show
  84. End If
  85. End Sub
  86. Sub Stgelungen()
  87. Titel = "Stehlen gelungen"
  88. Text = "Du stiehlst " + dqWAFFE
  89. Manager.Inventar.AddItem dqWAFFE
  90. onlyOK
  91. Konversation.Show (vbModal)
  92. End Sub
  93. Sub NoGold()
  94. Titel = Inhaber
  95. Text = "Du hast nicht genug Gold."
  96. onlyOK
  97. Konversation.Show (vbModal)
  98. End Sub
  99.  
  100. Sub JaUndNein()
  101. Answer1 = "Ja"
  102. Answer2 = "Nein"
  103. Answer3 = ""
  104. End Sub
  105. Sub onlyOK()
  106. Answer1 = "OK"
  107. Answer2 = ""
  108. Answer3 = ""
  109. End Sub
  110. Sub RHMP()
  111. If Hp > STARThp Then Hp = STARThp
  112. If MP > STARTmp Then MP = STARTmp
  113. End Sub
  114. Sub SchlafenGehen()
  115. Zahl = (24 - Stunden) - Bier
  116. Zahl = Zahl + 8
  117. Zahl = Int(Zahl / 3)
  118. Bier = 0
  119. Stunden = 8
  120. Minuten = 0
  121. Hp = Hp + Zahl
  122. MP = MP + Zahl
  123. RHMP
  124.  
  125. Titel = "Ereignis"
  126. Text = "Du regenerierst " + Str(Zahl) + " Lebenspunkte und Mana."
  127. onlyOK
  128. Konversation.Show (vbModal)
  129. End Sub
  130. Sub GetExperience()
  131. Experience = Experience + Exp
  132. 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
  133. End Sub
  134.  
  135. Sub CheckLife()
  136. If Hp <= 0 Then TOT.Show: Unload Kampf: Unload Rast: GoTo nix
  137. If Ghp <= 0 Then Winner
  138. nix:
  139. End Sub
  140.  
  141. Sub Winner()
  142. Wesung = 0: Lähmzeit = 0: SchildZ = 0: Ranken = 0
  143. Unsichtbar = 0
  144. ManagRighter
  145. Unload Kampf
  146. Beute.Show (vbModal)
  147. If woher = "Ende" Then MsgBox "Vielen Dank, dass du Zeitalter der Dämonen gespielt hast!": End
  148. If woher = "Havengate" Then Havengate.Show: Havengate.CheckMove
  149. If woher = "OrkMeister" Then Landkarte.Show: Ring = 1
  150. If woher = "Lager der Orks" Then Landkarte.Show: Konversation.Show: Konversation.MitHäuptlingSprechen
  151. If woher = "LK" Then Landkarte.Show: Landkarte.city
  152. If woher = "TdOK1" Then TdOK1.Show: Djinn = 1: TdOK1.CheckMove
  153. If woher = "TdOK2" Then TdOK2.Show: Zankh = 1: TdOK2.CheckMove
  154. If woher = "Haus" Then Haus.Show: Fässer = 1: Haus.city
  155. If woher = "Labor" Then Labor.Show: Seeli = 1: Labor.city
  156. If woher = "Labor2a" Then Labor.Show: Seela = 1: Labor.Seelenjäger.Visible = False: Labor.city
  157. If woher = "Elfenwald" Then Elfenwald.Show: Elfenwald.city
  158. If PositionNumber = 733 Then Konversation.MitHäuptlingSprechen
  159. End Sub
  160.  
  161. Sub Angriff()
  162. Randomize Timer
  163. EVTangriff = Int(23 * Rnd)
  164. End Sub
  165.  
  166. Public Function FileExists(Datei As String) As Boolean
  167.   On Error Resume Next
  168.   FileExists = Dir$(Datei) <> ""
  169.   FileExists = FileExists And Err = 0
  170.   On Error GoTo 0
  171. End Function
  172.  
  173. Function zweinull(ByVal inp)
  174. If Len(inp) = 0 Then zweinull = "00"
  175. If Len(inp) = 1 Then zweinull = "0" & inp
  176. If Len(inp) > 1 Then zweinull = inp
  177. End Function
  178.  
  179. Sub Dayli()
  180. Manager.Label32.Caption = Stunden
  181. Manager.Label30.Caption = zweinull(Minuten)
  182. End Sub
  183. Sub AddObj()
  184. Manager.Inventar.AddItem A
  185. End Sub
  186.  
  187. Sub ManagRighter()
  188. Manager.Label23.Caption = ""
  189. Manager.Label22.Caption = Gold
  190. If Epoints > 0 Then Manager.Command4.Enabled = True: Manager.Command5.Enabled = True: Manager.Command6.Enabled = True
  191. Manager.Label29.Caption = "Kraftschaden " + Str(Int(Strength / 20))
  192. Manager.Label26.Caption = "Stufe " + Str(Stufe)
  193. Manager.Label27.Caption = Experience
  194. Manager.Label28.Caption = NextLevel
  195. Manager.Label15.Caption = Strength
  196. Manager.Label16.Caption = Speed
  197. Manager.Label17.Caption = Iq
  198. Manager.Label20.Caption = Hp
  199. Manager.Label21.Caption = MP
  200. Manager.Label7.Caption = STARThp
  201. Manager.Label8.Caption = STARTmp
  202. Manager.Label55.Caption = Epoints
  203. End Sub
  204.  
  205. Sub Getlife()
  206. Randomize Timer
  207. Zahl = Int(5 * Rnd) + 1
  208. STARThp = STARThp + Zahl
  209. Hp = Hp + Zahl
  210. Randomize Timer
  211. Zahl = Int(5 * Rnd) + 1
  212. STARTmp = STARTmp + Zahl
  213. If Magician = 1 Then MP = MP + Zahl
  214. End Sub
  215.