3 interface
7 implementation
11 var
13 begin
15 exit;
17 //Выпиливаем все необходимые предметы
19 begin
22 begin
27 begin
31 begin
35 break;
37 else
38 begin
56 //Проверка, может ли игрок сделать этот крафт.
58 var
61 begin
62 //Если место крафта подходит, то продолжаем крафт
65 else
66 exit;
68 //Проверяем каждую ячейку крафта
70 begin
71 //Получаем общуюю сумму подходящего предмета
74 begin
76 begin
81 //Проверяем, подходит ли количество предметов
84 else
85 exit;