СЕРИЯ "СКРИПТЫ СТАРОЙ БАЗЫ" ЦИКЛ "СКРИПТЫ SELLARY"
автор::::::::::::sellary:::::::::::::::::::: Oct 20 2003 Функция определяет, можно ли надеть указанный армор. в функцию передаем: oArmor - объект армора, oCreature - объект создания, на которое этот армор пытаемся одеть возвращает TRUE, если одеть можно, FALSE - в обратном случае. Проверка идет без учета класса создания (возможно, в дальнейшем модифицирую "по просьбам радиослушателей"). Отдельное спасибо Lazy Ranma за идею и spurlos - за мотивацию, DBColl за подсказку с уровнем.
Neverwinter Script Source | int GetIsValidArmor(object oArmor, object oCreature) { // считаем базовую цену армора int nPrice = GetGoldPieceValue(oArmor);
// определяем уровень создания int nClass = GetHitDice(oCreature);
// определяем, может ли создание класса nClass // одевать броню стоимостью nPrice // (используется таблица #13 из приложения; // считаем, что создание более, чем 20 уровня // может одеть любой армор) int bResult = TRUE; switch (nClass) { case 1: bResult = (nPrice<=1000); break; case 2: bResult = (nPrice<=1500); break; case 3: bResult = (nPrice<=2500); break; case 4: bResult = (nPrice<=3500); break; case 5: bResult = (nPrice<=5000); break; case 6: bResult = (nPrice<=6500); break; case 7: bResult = (nPrice<=9000); break; case 8: bResult = (nPrice<=12000); break; case 9: bResult = (nPrice<=15000); break; case 10: bResult = (nPrice<=19500); break; case 11: bResult = (nPrice<=25000); break; case 12: bResult = (nPrice<=30000); break; case 13: bResult = (nPrice<=35000); break; case 14: bResult = (nPrice<=40000); break; case 15: bResult = (nPrice<=50000); break; case 16: bResult = (nPrice<=65000); break; case 17: bResult = (nPrice<=75000); break; case 18: bResult = (nPrice<=90000); break; case 19: bResult = (nPrice<=110000); break; case 20: bResult = (nPrice<=130000); break; default: bResult = (nClass>20); break; };
// возвращаем результат return bResult; } |
************************************************************************************
КОНЕЦ ЦИКЛА "СКРИПТЫ SELLARY" СЕРИИ "СКРИПТЫ СТАРОЙ БАЗЫ"
|