Code: Select all
function getitem(what:word;count:integer):boolean;
begin
	findtype(what,ground);
	if findcount>0 then
	begin
		grab(finditem,count);
		result:=true;
	end
	else result:=false;
end;Code: Select all
function getitem(what:word;count:integer):boolean;
begin
	findtype(what,ground);
	if findcount>0 then
	begin
		grab(finditem,count);
		result:=true;
	end
	else result:=false;
end;Попробуй заменить наVal wrote:походу дела вопрос - moveitem по координатам 0.0.0 не можеть отмораживаться???
Code: Select all
grab(чя-го,кол-во)Code: Select all
12:20:18: Character Unknown Name Connected 
12:20:18: Character Unknown Name Disconnected