Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | VERSION 5.00 |
| 2 | Begin VB.Form Landkarte |
||
| 3 | BackColor = &H00000000& |
||
| 4 | BorderStyle = 0 'None |
||
| 5 | Caption = "Landkarte" |
||
| 6 | ClientHeight = 5985 |
||
| 7 | ClientLeft = 0 |
||
| 8 | ClientTop = 0 |
||
| 9 | ClientWidth = 8970 |
||
| 10 | LinkTopic = "Landkarte" |
||
| 11 | Picture = "Landkarte.frx":0000 |
||
| 12 | ScaleHeight = 5985 |
||
| 13 | ScaleWidth = 8970 |
||
| 14 | ShowInTaskbar = 0 'False |
||
| 15 | StartUpPosition = 2 'CenterScreen |
||
| 16 | Begin VB.PictureBox Rasten |
||
| 17 | Enabled = 0 'False |
||
| 18 | Height = 340 |
||
| 19 | Left = 8640 |
||
| 20 | Picture = "Landkarte.frx":D636 |
||
| 21 | ScaleHeight = 285 |
||
| 22 | ScaleWidth = 195 |
||
| 23 | TabIndex = 1 |
||
| 24 | Top = 5520 |
||
| 25 | Visible = 0 'False |
||
| 26 | Width = 255 |
||
| 27 | End |
||
| 28 | Begin VB.Label Label2 |
||
| 29 | BackStyle = 0 'Transparent |
||
| 30 | Height = 255 |
||
| 31 | Left = 0 |
||
| 32 | TabIndex = 2 |
||
| 33 | Top = 0 |
||
| 34 | Width = 375 |
||
| 35 | End |
||
| 36 | Begin VB.Shape Shape1 |
||
| 37 | BorderColor = &H0000FFFF& |
||
| 38 | Height = 135 |
||
| 39 | Index = 5 |
||
| 40 | Left = 3180 |
||
| 41 | Shape = 3 'Circle |
||
| 42 | Top = 1060 |
||
| 43 | Width = 135 |
||
| 44 | End |
||
| 45 | Begin VB.Shape Shape1 |
||
| 46 | BorderColor = &H0000FFFF& |
||
| 47 | Height = 135 |
||
| 48 | Index = 4 |
||
| 49 | Left = 5580 |
||
| 50 | Shape = 3 'Circle |
||
| 51 | Top = 2260 |
||
| 52 | Width = 135 |
||
| 53 | End |
||
| 54 | Begin VB.Shape Shape1 |
||
| 55 | BorderColor = &H0000FFFF& |
||
| 56 | Height = 135 |
||
| 57 | Index = 3 |
||
| 58 | Left = 3080 |
||
| 59 | Shape = 3 'Circle |
||
| 60 | Top = 4260 |
||
| 61 | Width = 135 |
||
| 62 | End |
||
| 63 | Begin VB.Shape Shape1 |
||
| 64 | BorderColor = &H0000FFFF& |
||
| 65 | Height = 135 |
||
| 66 | Index = 2 |
||
| 67 | Left = 6980 |
||
| 68 | Shape = 3 'Circle |
||
| 69 | Top = 4460 |
||
| 70 | Width = 135 |
||
| 71 | End |
||
| 72 | Begin VB.Shape Shape1 |
||
| 73 | BorderColor = &H0000FFFF& |
||
| 74 | Height = 135 |
||
| 75 | Index = 1 |
||
| 76 | Left = 7380 |
||
| 77 | Shape = 3 'Circle |
||
| 78 | Top = 1660 |
||
| 79 | Width = 135 |
||
| 80 | End |
||
| 81 | Begin VB.Shape Shape1 |
||
| 82 | BorderColor = &H0000FFFF& |
||
| 83 | Height = 135 |
||
| 84 | Index = 0 |
||
| 85 | Left = 1080 |
||
| 86 | Shape = 3 'Circle |
||
| 87 | Top = 2560 |
||
| 88 | Width = 135 |
||
| 89 | End |
||
| 90 | Begin VB.Shape Held |
||
| 91 | BorderColor = &H00000000& |
||
| 92 | FillColor = &H0000FFFF& |
||
| 93 | FillStyle = 0 'Solid |
||
| 94 | Height = 135 |
||
| 95 | Left = 3280 |
||
| 96 | Shape = 3 'Circle |
||
| 97 | Top = 1360 |
||
| 98 | Width = 135 |
||
| 99 | End |
||
| 100 | Begin VB.Label Label1 |
||
| 101 | AutoSize = -1 'True |
||
| 102 | BackStyle = 0 'Transparent |
||
| 103 | Caption = "Süden" |
||
| 104 | BeginProperty Font |
||
| 105 | Name = "Arial" |
||
| 106 | Size = 8.25 |
||
| 107 | Charset = 0 |
||
| 108 | Weight = 700 |
||
| 109 | Underline = 0 'False |
||
| 110 | Italic = 0 'False |
||
| 111 | Strikethrough = 0 'False |
||
| 112 | EndProperty |
||
| 113 | Height = 210 |
||
| 114 | Left = 8280 |
||
| 115 | TabIndex = 0 |
||
| 116 | Top = 360 |
||
| 117 | Width = 525 |
||
| 118 | End |
||
| 119 | End |
||
| 120 | Attribute VB_Name = "Landkarte" |
||
| 121 | Attribute VB_GlobalNameSpace = False |
||
| 122 | Attribute VB_Creatable = False |
||
| 123 | Attribute VB_PredeclaredId = True |
||
| 124 | Attribute VB_Exposed = False |
||
| 125 | Private Sub Label2_Click() |
||
| 126 | A = InputBox("Gebe einen Cheatcode ein.", "") |
||
| 127 | If A = "god" Then Hp = 999: STARThp = 999: MsgBox "God aktiviert!" |
||
| 128 | If A = "king" Then Gold = Gold + 10000: MsgBox "10000 Goldkronen wurden hinzugefügt!" |
||
| 129 | If A = "archmage" Then MP = 999: STARTmp = 999: MsgBox "Archmage aktiviert!" |
||
| 130 | If A = "heal" Then Hp = STARThp: MP = STARTmp: MsgBox "komplett geheilt!" |
||
| 131 | ManagRighter |
||
| 132 | End Sub |
||
| 133 | |||
| 134 | Private Sub Rasten_Click() |
||
| 135 | Rast.Show |
||
| 136 | Landkarte.Hide |
||
| 137 | End Sub |
||
| 138 | |||
| 139 | Private Sub Form_Load() |
||
| 140 | KeyPreview = True |
||
| 141 | End Sub |
||
| 142 | |||
| 143 | Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) |
||
| 144 | Select Case KeyCode |
||
| 145 | Case vbKeyDown: Untenlauf |
||
| 146 | Case vbKeyUp: Obenlauf |
||
| 147 | Case vbKeyRight: Rechtslauf |
||
| 148 | Case vbKeyLeft: Linkslauf |
||
| 149 | Case vbKeyA: Linkslauf |
||
| 150 | Case vbKeyS: Untenlauf |
||
| 151 | Case vbKeyD: Rechtslauf |
||
| 152 | Case vbKeyW: Obenlauf |
||
| 153 | End Select |
||
| 154 | End Sub |
||
| 155 | |||
| 156 | Sub Untenlauf() |
||
| 157 | If Held.Top + Held.Height + 100 < Landkarte.Height Then |
||
| 158 | Held.Top = Held.Top + 100 |
||
| 159 | CheckMove |
||
| 160 | End If |
||
| 161 | End Sub |
||
| 162 | |||
| 163 | Sub Obenlauf() |
||
| 164 | If Held.Top - 100 >= 0 Then |
||
| 165 | Held.Top = Held.Top - 100 |
||
| 166 | CheckMove |
||
| 167 | End If |
||
| 168 | End Sub |
||
| 169 | |||
| 170 | Sub Rechtslauf() |
||
| 171 | If Held.Left + Held.Width + 100 < Landkarte.Width Then |
||
| 172 | Held.Left = Held.Left + 100 |
||
| 173 | CheckMove |
||
| 174 | End If |
||
| 175 | End Sub |
||
| 176 | |||
| 177 | Sub Linkslauf() |
||
| 178 | If Held.Left - 100 >= 0 Then |
||
| 179 | Held.Left = Held.Left - 100 |
||
| 180 | CheckMove |
||
| 181 | End If |
||
| 182 | End Sub |
||
| 183 | |||
| 184 | Sub Marsch() |
||
| 185 | Stunden = Stunden + 1 |
||
| 186 | Dayli |
||
| 187 | End Sub |
||
| 188 | |||
| 189 | Sub CheckMove() |
||
| 190 | If Stunden >= 12 Then Rasten.Enabled = True: Rasten.Visible = True |
||
| 191 | If Stunden >= 22 Then Landkarte.Hide: Rast.Show: GoTo non |
||
| 192 | Marsch |
||
| 193 | Angriff |
||
| 194 | If EVTangriff = 1 Then WhatEnemy: Landkarte.Hide: GoTo non |
||
| 195 | city |
||
| 196 | non: |
||
| 197 | End Sub |
||
| 198 | |||
| 199 | Sub WhatEnemy() |
||
| 200 | woher = "LK" |
||
| 201 | Randomize Timer |
||
| 202 | enemy = Int(6 * Rnd) |
||
| 203 | If Stufe < 4 And enemy >= 3 Then enemy = 0 |
||
| 204 | If enemy = 0 Then |
||
| 205 | Feind = "Goblin": MK = 95: Art = "Mensch": Zauber = "Nein": Exp = 15 |
||
| 206 | Gwaffe = "Knüppel": Fgrschaden = 1: Fzuschaden = 2: Fmaterial = "Holz": Fkategorie = "Hie": Fabzug = 0 |
||
| 207 | Grs = 0: Grust = "" |
||
| 208 | Giftig = 0: Krankhaft = 25: GoldFund = 5: Pfeilfund = 0: Bolzenfund = 0 |
||
| 209 | Ghp = 20: Gmp = 0: Gstrength = 25: Gspeed = 45: Gmr = -5 |
||
| 210 | End If |
||
| 211 | If enemy = 1 Then |
||
| 212 | Feind = "Ork": MK = 100: Art = "Mensch": Zauber = "Nein": Exp = 25 |
||
| 213 | Gwaffe = "Beil": Fgrschaden = 3: Fzuschaden = 3: Fmaterial = "Stahl": Fkategorie = "Ax": Fabzug = 2 |
||
| 214 | Grs = 1: Grust = "Championgurt" |
||
| 215 | Giftig = 0: Krankhaft = 10: GoldFund = 15: Pfeilfund = 0: Bolzenfund = 0 |
||
| 216 | Ghp = 30: Gmp = 0: Gstrength = 45: Gspeed = 40: Gmr = -3 |
||
| 217 | End If |
||
| 218 | If enemy = 2 Then |
||
| 219 | Feind = "Oger": MK = 125: Art = "Mensch": Zauber = "Nein": Exp = 40 |
||
| 220 | Gwaffe = "Morgenstern": Fgrschaden = 2: Fzuschaden = 10: Fmaterial = "Stahl": Fkategorie = "Hie": Fabzug = 3 |
||
| 221 | Grs = 1: Grust = "Lederlumpen" |
||
| 222 | Giftig = 0: Krankhaft = 15: GoldFund = 6: Pfeilfund = 0: Bolzenfund = 0 |
||
| 223 | Ghp = 40: Gmp = 0: Gstrength = 60: Gspeed = 30: Gmr = -4 |
||
| 224 | End If |
||
| 225 | If enemy = 3 Then |
||
| 226 | Feind = "Wolf": MK = 80: Art = "Kreatur": Zauber = "Nein": Exp = 25 |
||
| 227 | Gwaffe = "": Fgrschaden = 3: Fzuschaden = 3: Fmaterial = "": Fkategorie = "": Fabzug = 0 |
||
| 228 | Grs = 0: Grust = "" |
||
| 229 | Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0 |
||
| 230 | Ghp = 25: Gmp = 0: Gstrength = 35: Gspeed = 50: Gmr = -1 |
||
| 231 | End If |
||
| 232 | If enemy = 4 Then |
||
| 233 | Feind = "Bär": MK = 110: Art = "Kreatur": Zauber = "Nein": Exp = 30 |
||
| 234 | Gwaffe = "": Fgrschaden = 2: Fzuschaden = 6: Fmaterial = "": Fkategorie = "": Fabzug = 0 |
||
| 235 | Grs = 1: Grust = "" |
||
| 236 | Giftig = 0: Krankhaft = 0: GoldFund = 0: Pfeilfund = 0: Bolzenfund = 0 |
||
| 237 | Ghp = 35: Gmp = 0: Gstrength = 60: Gspeed = 40: Gmr = -1 |
||
| 238 | End If |
||
| 239 | If enemy = 5 Then |
||
| 240 | Feind = "Räuber": MK = 100: Art = "Mensch": Zauber = "Nein": Exp = 30 |
||
| 241 | Gwaffe = "Kurzschwert": Fgrschaden = 2: Fzuschaden = 3: Fmaterial = "Stahl": Fkategorie = "Sch": Fabzug = 0 |
||
| 242 | Grs = 2: Grust = "Lederwams" |
||
| 243 | Giftig = 0: Krankhaft = 0: GoldFund = 25: Pfeilfund = 3: Bolzenfund = 0 |
||
| 244 | Ghp = 30: Gmp = 0: Gstrength = 45: Gspeed = 45: Gmr = 0 |
||
| 245 | End If |
||
| 246 | |||
| 247 | Kampf.Show |
||
| 248 | |||
| 249 | End Sub |
||
| 250 | Sub city() |
||
| 251 | If Held.Left = Shape1(0).Left And Held.Top = Shape1(0).Top Then Orklager |
||
| 252 | If Held.Left = Shape1(1).Left And Held.Top = Shape1(1).Top Then Ort = "Elfenwald": DieElfen |
||
| 253 | If Held.Left = Shape1(2).Left And Held.Top = Shape1(2).Top Then Ort = "Shanti": Shanti.Show: Landkarte.Hide |
||
| 254 | If Held.Left = Shape1(3).Left And Held.Top = Shape1(3).Top Then Ort = "Havengate": Havengate.Show: Landkarte.Hide |
||
| 255 | If Held.Left = Shape1(4).Left And Held.Top = Shape1(4).Top Then TdOK1.Show: Landkarte.Hide |
||
| 256 | If Held.Left = Shape1(5).Left And Held.Top = Shape1(5).Top And Feind <> "Attentäter" Then Ort = "Phargas": Pharga: Landkarte.Hide |
||
| 257 | |||
| 258 | End Sub |
||
| 259 | Sub Pharga() |
||
| 260 | Phargas.Show |
||
| 261 | If AlterMann = 1 Then GoTo AR |
||
| 262 | AlterMann = 1 |
||
| 263 | Titel = "Alter Mann" |
||
| 264 | Text = "Hallo Abenteurer! Es wird dich doch sicherlich interessieren, dass in dieser Stadt ein Seelenjäger spukt. Er sucht sich Körper aus, die er dann kontrolliert. Auch ich könnte es sein. Er wurde angeblich vom Dämonenfürst geschickt. Du kannst ihn vielleicht besiegen." |
||
| 265 | onlyOK |
||
| 266 | Konversation.Show (vbModal) |
||
| 267 | AR: |
||
| 268 | End Sub |
||
| 269 | |||
| 270 | Sub DieElfen() |
||
| 271 | If Seela = 1 Then Elfenwald.Show: Landkarte.Hide Else Titel = "Der Wächter des Elfenwaldes": Text = "Tut mir leid, aber solange der Seelenjäger am leben ist, darf ich keinen hier durchlassen.": onlyOK: Konversation.Show (vbModal) |
||
| 272 | End Sub |
||
| 273 | Sub Orklager() |
||
| 274 | If Ring = 1 Then |
||
| 275 | Titel = "Ork-Wächter" |
||
| 276 | Text = "Du nicht mehr betreten dürfen das Lager. Das sagen Meister!" |
||
| 277 | onlyOK |
||
| 278 | GoTo klo |
||
| 279 | End If |
||
| 280 | Titel = "Ork-Wächter" |
||
| 281 | Text = "Halt! Wenn du mit Häuptling sprechen, dann du musst 100 Goldkronen bezahlen. Oder gegen Oger kämpfen. Was du wollen?" |
||
| 282 | Answer1 = "100 Goldkronen zahlen" |
||
| 283 | Answer2 = "Gegen Oger kämpfen" |
||
| 284 | Answer3 = "Verlassen" |
||
| 285 | PositionNumber = 733 |
||
| 286 | klo: |
||
| 287 | Konversation.Show (vbModal) |
||
| 288 | End Sub |