Added the new core as a subtree.

Core/top.lua

@@ -0,0 +1,11 @@
+function HandleTopCommand( Split, Player )
+	local World = Player:GetWorld()
+	
+	local PlayerPos = Player:GetPosition()
+	local Height = World:GetHeight( math.floor(PlayerPos.x), math.floor(PlayerPos.z) )
+	SetBackCoordinates( Player )
+	Player:TeleportToCoords( PlayerPos.x, Height+1, PlayerPos.z )
+	Player:SendMessage("Teleported to the top block")
+	
+	return true
+end