[ASMjavaC]

каму инетесно вот перемещение клавиатурой

Program M3G_demo;
Uses d3;
Var i, k, m, lr, l1, l2, l3, l4: integer;
Begin	
	SetWindow(0, 0, GetWidth, GetHeight); // Устанавливаем окно
	Background('/clouds.gif'); // Загрузка текстурки для облаков
	Floor('/grass.gif', 6); // Текстурка земли
	Camera(0, 500, 2000); Camera_Orient(-100, 1000, 0, 0); // начальные установки камеры
	l1:=-45000;
	l2:=1000;
	Light(l1, l2, l3, l4); // Установка света
	i:=500; k:=-10; m:=4000;
	repeat
	if getKeyPressed = KE_KEY9      then i:=i-10; //вниз 9
	if getKeyPressed = KE_KEY3       then i:=i+10; //вверх 3
	if getKeyPressed = KE_KEY2      then m:=m-10; // вперед
	if getKeyPressed = KE_KEY8         then m:=m+10; // назад
           if getKeyPressed = KE_KEY4          then lr:=lr-10; // лево
           if getKeyPressed = KE_KEY6           then lr:=lr+10; //дправо


     Camera(lr, i, m); //i := i + k; m := m - 25; // Просто тупо двигаем камеру
		//if (i = 70) or (i = 500) then k := -k;
		if m = -4000 then break; // Если дошли до края земли - выход
		d3.Paint; d3.Repaint; Delay(50); // Открисовка сцены
	until false;
End.