procedure CheckSave;
var Time : TDateTime;
begin
Time:= Now - (0.5 / 1440);
if InJournalBetweenTimes('World',Time,Now) >= 0 then Wait(75000)
end;

Вот он самый.

Compiler: [Error] (checksave.inc at 1:1): Syntax error

щас вот такое чудо...

Program AlchemyDRW; // (c) v26RuS (Galiano{ASTARTA} DRW) v1.1 {$Include 'all.inc'} var STime: TDateTime; q: integer; AlchemyFlag : Boolean; const WhatYouDo = 'Total Mana'; // Что делаем TypBottles = $0F0E; // Тип пустых бутылок TypPotion = $0F0E; // Тип готовых бутылок ColPotion = $09DF; // Цвет го...