3 interface
7 implementation
12 var
14 begin
16 exit;
18 //Выпиливаем все необходимые предметы
20 begin
23 begin
28 begin
32 begin
36 break;
38 else
39 begin
57 //Проверка, может ли игрок сделать этот крафт.
59 var
62 begin
63 //Если место крафта подходит, то продолжаем крафт
66 else
67 exit;
69 //Проверяем каждую ячейку крафта
71 begin
72 //Получаем общуюю сумму подходящего предмета
75 begin
77 begin
82 //Проверяем, подходит ли количество предметов
85 else
86 exit;