ДА БУДЕТ БOT!

[HooleeCheeter]

похоже я нашёл в чем дело ...

function GetNextWeapon: integer; //Выдает ObjID предмета, если не найден в базе, выдает -1,
//достигли макс уровня заточки -2, подбираем мин текущий уровень заточки -3
var
i: integer;
begin
Result:=-1;
if CurEnchLvl>=MaxEnchLvl then begin
Result:=-2;
exit;
end;
for i:=1 to max do begin
//находим первый подходящий предмет
if (WpnBase[1,i]<>0) and (WpnBase[2,i]=CurEnchLvl) then begin
Result:=WpnBase[1,i];
exit;
end;
end;
CurEnchLvl:=CurEnchLvl+1;
Result:=-3;
end;

там нужно поставить "<=", сейчас поднимут сервак проверю.

Добавлено спустя 20 минут 40 секунд:
Re: ДА БУДЕТ БОТ!
именно в это и было дело )