moving linkwalkblock, linkleftblock, linkleftmove, linkrightblock, _
  linkrightmove, linkupblock, linkupmove, linkdownblock, linkdownmove, _
  linkspeed, link
linkdownblock = False
Dim outoflvl As Boolean
 outoflvl = False
linkupblock = False
linkrightblock = False
linkleftblock = False
linkwalkblock = False
stickuse Sword, link, swordact, linkdir, linkwalkblock, linkpath, swordpath, _
  items
Dim i
Text2.Text = linkdir & " " & linkdiract
Dim xi
damage = 0
For Each xi In allactele_image
If xi.Name = "warp" Then
warpsub xi, link, outoflvl
End If
If xi.Name = "desti" Then
destisub xi, link
End If
If xi.Name = "stalfos" Then
stalfossub xi
End If
If xi.Name = "lvlexitB" Then
lexb xi, outoflvl '\hier wird das array array allactele_image neu dimensioniert
End If
If xi.Name = "lvlexitA" Then
LexA xi, outoflvl
End If
Next xi
Dim xp
For Each xp In allactele_picture
If xp.Name = "mountwall" Then
Walldefy link, xp, linkleftblock, linkrightblock, linkupblock, linkdownblock, _
  linkspeed / 1
End If
Next xp
If Not Utily < -1000 Then Utily = Utily - 1
If Not damage = 0 Then
If Not Lifecontrol.Interval = 1000 Then
damaging
Lifecontrol.Interval = 1000
End If
End If
If outoflvl Then resetlevel
End Sub