Как заварить чай. Инструкция для программистов.
program tea;
uses teapot, cup, water, flame;
............................
begin
teapot_x:=faucet_x;//ставим чайник под кран
teapot_y:=faucet_y-15;//чуть ниже крана
teapot_z:=faucet_z;//
fauced_cool_water_on:=true;//включаем воду
repeat
delay (10)
until ((teapot_current_value/teapot_max_value)>=0.5);//;ждём, пока чайник не заполниться наполовину
fauced_cool_water_on:=false;//выключаем воду
teapot_x:=gas_burner_x[1];//
teapot_y:=gas_burner_y[1];//
teapot_z:=gas_burner_z[1];//ставим чайник на конфорку
gas_burner_flame[1]:=true;//поджигаем огонь
repeat
delay (10)
until (teapot_temperature>=100);//ждем, пока вода не закипит
teapot_x:=cup_x+10;//подносим к чашке. Нужно, чтобы носик был над чашкой. Перемещаем чайник чуть вправо (предполагается, что изначально чайник смотрит на запад).
teapot_y:=cup_y;//
teapot_z:=cup_z;//
teapot_rotate_x:=45;//наклоняем чайник
delay (1000);//ждем секунду
teapot_rotate_x:=0;//наклоняем обратно
teapot_x:=gas_burner_x[1];//ставим чайник на конфорку
teapot_y:=gas_burner_y[1];//
teapot_z:=gas_burner_z[1];//
delay (300000+random (60000));//ждём около 5 минут
end.//чай готов!