About types.... to...

player.player_typ = new player_typ

        If KeyDown(200) ; up
		player\y = player\y - 4
	EndIf	
	If KeyDown(208) ; down
		player\y = player\y + 4
	EndIf	
	If KeyDown(203) ; left
		player\x = player\x - 4
	EndIf	
	If KeyDown(205) ; right
		player\x = player\x + 4
	EndIf
        DrawImage image, player\x, player\y
until player\visible

Not sure what you're getting at with the "visible" thing though...