Subversion Repositories aysalia

Rev

Blame | Last modification | View Log | RSS feed

  1. Attribute VB_Name = "Module2"
  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.  
  6. Public Function FileExists(Datei As String) As Boolean
  7.   On Error Resume Next
  8.   FileExists = Dir$(Datei) <> ""
  9.   FileExists = FileExists And Err = 0
  10.   On Error GoTo 0
  11. End Function
  12.  
  13. Public Function GetPath() As String
  14.   If Right(App.Path, 1) = "\" Then
  15.     GetPath = App.Path
  16.   Else
  17.     GetPath = App.Path & "\"
  18.   End If
  19. End Function
  20.  
  21. Sub Angriff3()
  22. Randomize Timer
  23. evtangriff = Int(20 * Rnd)
  24. If evtangriff = 1 Then Whichenemy5
  25. End Sub
  26. Sub Whichenemy5()
  27. Randomize Timer
  28. enemy = Int(13 * Rnd)
  29. If enemy <= 3 Then GoTo Ratte
  30. If enemy = 4 Then GoTo Skelett
  31. If enemy = 6 Then GoTo Geist
  32. If enemy = 7 Then GoTo Höhlenmensch
  33. If enemy = 9 Then GoTo zombie
  34. If enemy = 10 Then GoTo Ghul
  35. If enemy > 10 Then GoTo Nekromant
  36. GoTo accel4
  37. Ratte:
  38. art = "kr": explus = 1: feind = "Ratte"
  39. gwaffe = "Zähne": gmat = "": ggrundwert = 1: gzusatzwert = 3: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
  40. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  41. ghp = 5: gmp = 0: gspeed = 20: gstrength = 5
  42. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  43. GoTo accel4
  44. Skelett:
  45. art = "un": explus = 25: feind = "Skelett"
  46. gwaffe = "Rostiges Schwert": gmat = "Stahl": ggrundwert = 2: gzusatzwert = 3: gabzug = 0: gkateg = "Sch": grust = "": grs = 0: grsmat = "": gbe = 0
  47. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  48. ghp = 25: gmp = 0: gspeed = 42: gstrength = 46
  49. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  50. GoTo accel4
  51. Geist:
  52. art = "un": explus = 40: feind = "Geist"
  53. gwaffe = "Geisterhand": gmat = "": ggrundwert = 5: gzusatzwert = 2: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
  54. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  55. ghp = 40: gmp = 0: gspeed = 55: gstrength = 30
  56. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  57. GoTo accel4
  58. Höhlenmensch:
  59. art = "me": explus = 25: feind = "Höhlenmensch"
  60. gwaffe = "Jagdspieß": gmat = "Holz": ggrundwert = 1: gzusatzwert = 6: gabzug = 1: gkateg = "Sp": grust = "": grs = 0: grsmat = "": gbe = 0
  61. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  62. ghp = 30: gmp = 0: gspeed = 53: gstrength = 51
  63. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  64. GoTo accel4
  65. zombie:
  66. art = "un": explus = 20: feind = "Zombie"
  67. gwaffe = "Faust": gmat = "": ggrundwert = 3: gzusatzwert = 4: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
  68. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  69. ghp = 25: gmp = 0: gspeed = 42: gstrength = 48
  70. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  71. GoTo accel4
  72. Ghul:
  73. art = "un": explus = 30: feind = "Ghul"
  74. gwaffe = "Faust": gmat = "": ggrundwert = 3: gzusatzwert = 5: gabzug = 0: gkateg = "": grust = "": grs = 0: grsmat = "": gbe = 0
  75. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  76. ghp = 40: gmp = 0: gspeed = 40: gstrength = 54
  77. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  78. GoTo accel4
  79. Nekromant:
  80. art = "zau": explus = 50: feind = "Nekromant"
  81. gwaffe = "Opferdolch": gmat = "Vulkaneisen": ggrundwert = 3: gzusatzwert = 1: gabzug = 0: gkateg = "Sch": grust = "Schwarze Robe": grs = 0: grsmat = "Leder": gbe = 0
  82. If woher = "a" Then woher = "HöhlenE2" Else woher = "Höhlen"
  83. ghp = 30: gmp = 30: gspeed = 35: gstrength = 40
  84. Höhlen.Hide: HöhlenE2.Hide: Kampf.Show
  85. accel4:
  86. End Sub
  87.  
  88. Sub SchlafenGehen()
  89. bier = 0
  90. Randomize Timer
  91. wettera = Int(4 * Rnd)
  92. If wettera = 0 Then wetter = "Klar"
  93. If wettera = 1 Then wetter = "Regen"
  94. If wettera = 2 Then wetter = "Sonnig"
  95. If wettera = 3 Then wetter = "Klar"
  96. schritt = 0
  97. Randomize Timer
  98. plushp = Int(8 * Rnd) + 1
  99. If hp = STARThp Then plushp = 0
  100.  
  101. If vergiftet = 1 Then
  102.   If hp - 6 <= 0 Then
  103.     MsgBox "Du erliegst deiner Vergiftung!"
  104.     hp = hp - 6
  105.     Exit Sub
  106.   Else
  107.     MsgBox "Du erleidest durch die Vergiftung 6 Schadenspunkte"
  108.     hp = hp - 6
  109.     GoTo max
  110.   End If
  111. End If
  112.  
  113. If krank = 1 Then plushp = 0: GoTo max
  114. hp = hp + plushp
  115. max:
  116. If hp > STARThp Then hp = STARThp
  117. a = "Du regenerierst " + Str(plushp) + " Lebenspunkte."
  118. MsgBox a, 64 + 0, "Regeneration"
  119. End Sub
  120. Sub Fehler()
  121. MsgBox "Nicht genügend Punkte übrig!", 64 + 0, "Fehler:"
  122. End Sub
  123.  
  124. Sub CheckLive()
  125. If hp <= 0 Then Unload Kampf: Unload Landkarte: Tot.Show: GoTo nix
  126. If ghp <= 0 Then GetExperience: Winner
  127. nix:
  128. End Sub
  129.  
  130. Sub GetExperience()
  131. If typus = "Dieb" Then explus = explus + 15
  132. experience = experience + explus
  133. If experience >= NextLevel Then LevelFort.Show (vbModal)
  134. End Sub
  135.  
  136. Sub Winner()
  137. xtark = 0: visi = 0: amverwesen = 0: lähmung = 0: schild = 0: ranken = 0
  138. Unload Kampf
  139. If woher = "Amazon" Then
  140.    MsgBox "Nun gut! Du hast dich als würdig erwiesen, trete ein.", 64 + 0, "Valena, die Amazonenkönigin"
  141.    amazonkampf = 1
  142.    Amazon.Show
  143. End If
  144. If woher = "Kristallsee" Then Kristallsee.Show
  145. If woher = "Feenwald" Then Feenwald.Show: Feenwald.Ort
  146. If woher = "Medusa Ei" Then GetRune
  147. If woher = "Höhlen" And feind = "Verfluchtes Skelett" Then
  148. a = "Rubinschlüssel"
  149. Beute.List1.AddItem a
  150. Rem Unload Kampf
  151. End If
  152.  
  153. If woher = "Höhlen" Then Höhlen.Show: Höhlen.Ort2
  154. If woher = "HöhlenE2" Then HöhlenE2.Show: HöhlenE2.Ort3
  155. If woher = "Felsen" Then Unload Kampf: Unload WsFelsen: Wüste.Show: Wüste.Shape1.Visible = False: drachentot = 1: DrachenSchatz: Wüste.Ort9
  156. If woher = "Wüste" Then Wüste.Show: Wüste.Ort9
  157. If woher = "Lager" Then getsplit
  158. If woher = "Baum" Then getsplit2: baum = 1: Unload SuBaum: Sumpf.Show: Sumpf.Ort200
  159. If woher = "Sumpf" Then Sumpf.Show: Sumpf.Ort200
  160. If woher = "Nest" Then GetDingens
  161. If woher = "Festung2" Then Festung2.Show: Festung2.ortFINAL2
  162. If woher = "FINAL" Then zf = 1: Unload Beute: TheEnd.Show
  163. If feind = "Orkhäuptling" Then yyork = 2
  164. If woher = "LK" Then Landkarte.Show: Landkarte.City
  165. If zf <> 1 Then Beute.Show (vbModal)
  166. End Sub
  167.  
  168. Sub FeindZug()
  169. Uchance
  170. If art = "zau" Then arcanofeind
  171. If arcano = 1 Then GoTo nonog
  172. Randomize Timer
  173. zahl = Int(6 * Rnd)
  174. If zahl < 5 And visi = 1 Then Kampf.Label58.Caption = feind + " sieht dich nicht (Unsichtbar)": GoTo nonog
  175. If lähmung > 0 Then Kampf.Label58.Caption = feind + " ist noch gelähmt und greift nicht an.": lähmung = lähmung - 1: GoTo nonog
  176. Randomize Timer
  177. treffer = Int(100 * Rnd)
  178. If treffer < gspeed Then GoTo hitg Else GoTo losg
  179. hitg:
  180. Randomize Timer
  181. schaden = Int(gzusatzwert * Rnd) + ggrundwert
  182. gkraftschaden = Int(gstrength / 15)
  183. Randomize Timer
  184. plus = Int(gkraftschaden * Rnd)
  185. schaden = (schaden + plus) - rs
  186. If schild = 1 Then zahl = 3
  187. schaden = schaden - zahl
  188. If schaden < 0 Then schaden = 0
  189. hp = hp - schaden
  190. Kampf.Label58.Caption = feind + " verwundet " + nom + " mit " + Str(schaden) + " Schadenspunkten."
  191. krankOUgift
  192. wup
  193. GoTo nonog
  194. losg:
  195. Kampf.Label58.Caption = feind + " verfehlt " + nom + "."
  196. wup
  197. nonog:
  198. arcano = 0
  199. Kampf.initial
  200. CheckLive
  201. End Sub
  202.  
  203. Sub RADIKAL()
  204. kwaffe = ""
  205. kgrundschaden = 0
  206. kzusatzschaden = 0
  207. kabzug = 0
  208. kmaterial = ""
  209. kkateg = ""
  210. krs = 0
  211. kbe = 0
  212. kmana = 0
  213. kpreis = 0
  214. End Sub
  215. Sub WaffeZerbirst()
  216. waffe = ""
  217. grundwert = 0
  218. zusatzwert = 0
  219. material = ""
  220. ABZUG = 0
  221. End Sub
  222.  
  223. Sub GetRune()
  224. MsgBox "Du erhältst : Rune der Unendlichkeit", 64 + 0, "Objekt"
  225. a = "Rune der Unendlichkeit"
  226. frmInternal.List1.AddItem a
  227. End Sub
  228.  
  229. Sub GFh22()
  230. Beute.Show (vbModal)
  231. End Sub
  232.  
  233. Sub DelItem()
  234. stelle = frmInternal.List1.ListIndex
  235. If stelle <> -1 Then frmInternal.List1.RemoveItem stelle
  236. End Sub
  237.  
  238. Sub DrachenSchatz()
  239. MsgBox "Du erhältst : 5000 Goldkronen", 64 + 0, "Gold erhalten"
  240. gold = gold + 5000
  241. MsgBox "Du erhältst zusätzlich 200 Erfahrungspunkte für deinen ersten getöteten Drachen.", 64 + 0, "Drachen getötet"
  242. explus = 200
  243. GetExperience
  244. a = MsgBox("Du findest : Drachenlanze (Sp, Drachenstahl, 4-25, -15)", 64 + vbYesNo, "Objekt")
  245. b = Val(a)
  246. If b = vbYes And magician = 1 Then MsgBox "Diese Waffe darfst du leider nicht führen! Du musst sie zurücklassen.": GoTo no1
  247. If b = vbYes And typus <> "Krieger" Then MsgBox "Nur Krieger dürfen diese Waffe tragen!": GoTo no1
  248. If b = vbYes Then waffe = "Drachenlanze": kateg = "Sp": material = "Drachenstahl": ABZUG = 15: grundschaden = 4: zuschaden = 21
  249. no1:
  250. a = MsgBox("Du findest : Zauberspruch Drachenatem (CHAOS 0-50 40 mp)", 64 + vbYesNo, "Spell")
  251. b = Val(a)
  252. If b = vbYes And magician = 0 Then MsgBox "Du kannst diesen Spruch nicht lernen!": GoTo no2
  253. If b = vbYes Then spell = "Drachenatem": Spruchbuch.Combo1.AddItem spell
  254. no2:
  255. End Sub
  256.  
  257. Sub getsplit()
  258. rotkri = 1
  259. MsgBox "Du erhältst : Roter Kristallsplitter"
  260. a = "Roter Kristallsplitter"
  261. frmInternal.List1.AddItem a
  262. End Sub
  263. Sub getsplit2()
  264. MsgBox "Du erhältst : Purpurner Kristallsplitter"
  265. a = "Purpurner Kristallsplitter"
  266. frmInternal.List1.AddItem a
  267. End Sub
  268.  
  269. Sub GetDingens()
  270. MsgBox "Du erhältst : Grüner Kristallsplitter", 64 + 0, "Object"
  271. a = "Grüner Kristallsplitter"
  272. frmInternal.List1.AddItem a
  273. MsgBox "Du erhältst 60 Goldkronen", 64 + 0, "Gold!": gold = gold + 60
  274. Sumpf.Show
  275. skorp = 1
  276. Sumpf.Shape2(0).Visible = False
  277. End Sub
  278. Sub Uchance()
  279. Uitem = 2
  280. End Sub
  281. Sub wup()
  282. If amverwesen <> 1 Then GoTo nope22
  283. Randomize Timer
  284. zahl = Int(5 * Rnd) + 1
  285. ghp = ghp - zahl
  286. Kampf.Label57.Caption = Kampf.Label57.Caption + " (+" + Str(zahl) + " SP V.wesung)"
  287. nope22:
  288. End Sub
  289.  
  290. Sub arcanofeind()
  291. If gmp < 15 Then GoTo least
  292. zahl = Int(ghp / ghpst) * 100
  293. If zahl > 50 Then GoTo least
  294.  
  295. Randomize Timer
  296. zahl = Int(2 * Rnd)
  297. If zahl > 0 Then GoTo least
  298. gmp = gmp - 15
  299. Randomize Timer
  300. zahl = Int(11 * Rnd) + 4
  301. ghp = ghp + zahl
  302. Kampf.Label58.Caption = feind + " heilt " + Str(zahl) + " Lebenspunkte"
  303. arcano = 1
  304. GoTo ratz
  305. least:
  306. Randomize Timer
  307. zahl = Int(6 * Rnd)
  308. If zahl = 0 And gmp >= 6 Then gmp = gmp - 6: schaden = 1: zahl = 5: zkg = "Feuerblitz": GoTo damz
  309. If zahl = 2 And gmp >= 12 Then gmp = gmp - 12: schaden = 3: zahl = 9: zkg = "Feuerball": GoTo damz
  310. If zahl = 5 And gmp >= 20 Then gmp = gmp - 20: schaden = 1: zahl = 19: zkg = "Schattenblitz": GoTo damz
  311. GoTo ratz
  312. damz:
  313. Randomize Timer
  314. schaden = Int(zahl * Rnd) + schaden
  315. hp = hp - schaden
  316. Kampf.Label58.Caption = feind + "s " + zkg + " fügt dir " + Str(schaden) + " Schadenspunkte zu!"
  317. arcano = 1
  318. ratz:
  319. End Sub
  320.  
  321. Sub krankOUgift()
  322. Randomize Timer
  323. zahl = Int(6 * Rnd)
  324. If zahl < 5 Then GoTo nixdavon
  325. If feind = "Riesenskorpion" Or feind = "Schlange" Or feind = "Riesenschlange" Then itsGIFT
  326. If art = "un" Or feind = "Pestbringer" Or feind = "Hyäne" Or feind = "Ratte" Then itsKRANK
  327. nixdavon:
  328. End Sub
  329. Sub itsGIFT()
  330. Kampf.Label58.Caption = Kampf.Label58.Caption + " (VERGIFTET!)"
  331. vergiftet = 1
  332. End Sub
  333. Sub itsKRANK()
  334. Kampf.Label58.Caption = Kampf.Label58.Caption + " (KRANK!)"
  335. krank = 1
  336. End Sub
  337.