Показать сообщение отдельно
Старый 14.10.2007, 17:46   #32
Пользователь
 
Аватар для HooleeCheeter
 
Регистрация: 10.10.2007
Сообщений: 29
Сказал Спасибо: 14
Имеет 0 спасибок в 0 сообщенях
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: ДА БУДЕТ БОТ!
именно в это и было дело )
HooleeCheeter вне форума   Ответить с цитированием