Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | Attribute VB_Name = "ObjektDaten" |
| 2 | Sub KleinerHeiltrank() |
||
| 3 | Hp = Hp + 8 |
||
| 4 | Kampf.Haktion.Caption = "Du regenerierst 8 Lebenspunkte" |
||
| 5 | End Sub |
||
| 6 | Sub GroßerHeiltrank() |
||
| 7 | Hp = Hp + 15 |
||
| 8 | Kampf.Haktion.Caption = "Du regenerierst 15 Lebenspunkte" |
||
| 9 | End Sub |
||
| 10 | Sub KleinerZaubertrank() |
||
| 11 | MP = MP + 8 |
||
| 12 | Kampf.Haktion.Caption = "Du regenerierst 8 Mana" |
||
| 13 | End Sub |
||
| 14 | Sub GroßerZaubertrank() |
||
| 15 | MP = MP + 15 |
||
| 16 | Kampf.Haktion.Caption = "Du regenerierst 15 Mana" |
||
| 17 | End Sub |
||
| 18 | |||
| 19 | Sub MagischerOpferdolch() |
||
| 20 | Zahl = 3 - Grs |
||
| 21 | If Zahl < 0 Then Zahl = 0 |
||
| 22 | Ghp = Ghp - Zahl |
||
| 23 | If Ghp < 0 Then CheckLife: STARThp = STARThp + 1 |
||
| 24 | Kampf.Haktion.Caption = "Du fügst " + Feind + " " + Str(Zahl) + " Schadenspunkte zu!" |
||
| 25 | End Sub |
||
| 26 | Sub SilbernerDolch() |
||
| 27 | If Art = "Vampir" Then |
||
| 28 | Zahl = 12 |
||
| 29 | Randomize Timer |
||
| 30 | Zahl = Zahl - Int(3 * Rnd) |
||
| 31 | If Zahl < 0 Then Zahl = 0 |
||
| 32 | Ghp = Ghp - Zahl |
||
| 33 | CheckLife |
||
| 34 | Kampf.Haktion.Caption = "Du fügst " + Feind + " " + Str(Zahl) + " Schadenspunkte zu!" |
||
| 35 | GoTo okay222 |
||
| 36 | End If |
||
| 37 | Kampf.Haktion.Caption = "Der Dolch weigert sich, seinen Gegner anzugreifen!" |
||
| 38 | okay222: |
||
| 39 | End Sub |
||
| 40 | |||
| 41 | Sub UnsichtbarkeitsTrank() |
||
| 42 | Unsichtbar = 1 |
||
| 43 | Kampf.Haktion.Caption = "Du bist nun Unsichtbar!" |
||
| 44 | End Sub |
||
| 45 | |||
| 46 | Sub Fell() |
||
| 47 | |||
| 48 | Randomize Timer |
||
| 49 | Zahl = Int(100 * Rnd) |
||
| 50 | If Zahl < Iq Then |
||
| 51 | A = "Fellumhang" |
||
| 52 | Manager.Inventar.AddItem A |
||
| 53 | Titel = "Fellumhang nähen" |
||
| 54 | Text = "Du nähst aus dem Fell einen Fellumhang." |
||
| 55 | onlyOK |
||
| 56 | Konversation.Show (vbModal) |
||
| 57 | GoTo olli |
||
| 58 | End If |
||
| 59 | Titel = "Fellumhang nähen" |
||
| 60 | Text = "Das nähen eines Fellumhangs misslingt dir!" |
||
| 61 | onlyOK |
||
| 62 | Konversation.Show (vbModal) |
||
| 63 | olli: |
||
| 64 | End Sub |