//Reload map
Locations[n].reload.l1.name = "reload1";
Locations[n].reload.l1.go = "Greenford_Town";
Locations[n].reload.l1.emerge = "reload7";
Locations[n].reload.l1.autoreload = "0";
Locations[n].reload.l1.label = "Greenford.";

//Reload map
Locations[n].reload.l1.name = "reload1";
Locations[n].reload.l1.go = "Greenford_tavern";
Locations[n].reload.l1.emerge = "reload2";
Locations[n].reload.l1.autoreload = "0";
Locations[n].reload.l1.label = "Tavern.";
Locations[n].locators_radius.reload.reload1 = 0.8;
n = n + 1;

...............................

if(CheckAttribute(enemy, "cirassId"))
{
dmg = dmg * (1.0 - stf(Items[sti(enemy.cirassId)].CirassLevel));
}
if(dmg > 0.0)
{
//Наносим повреждение
LAi_ApplyCharacterDamage(enemy, MakeInt(dmg + 0.5));

//aw013 --> Отравим врага
if (attack.index == GetMainCharacterIndex())
{
if(IsEquipCharacterByItem(pchar, "blade29"))
{
MakePoisonAttack(attack, enemy);
}
}
//aw013 <--

//Проверим на смерть
LAi_CheckKillCharacter(enemy);
//проверим на отравление
MakePoisonAttackCheckSex(enemy, attack);
}
...............................

......................................

string GetItemDescribe(int iGoodIndex)
{
string GoodName = Items[iGoodIndex].name;
ref arItm = &Items[iGoodIndex];
int lngFileID = LanguageOpenFile("ItemsDescribe.txt");
string describeStr = "";

//aw013 -->
float fItmPrice = (stf(arItm.price) / (stf(arItm.Weight))
describeStr += "Цена " + FloatToString(stf(arItm.price), 1) + " Вес " + FloatToString(stf(arItm.weight), 2) + " Цена/Вес " + FloatToString(fItmPrice, 1) + " зол./фунт" + newStr();
//aw013 <--

if (CheckAttribute(arItm, "groupID"))
{
//aw013 -->
if(arItm.groupID == CIRASS_ITEM_TYPE)
{
float fItmShield = (stf(arItm.CirassLevel) * 100)
describeStr += "Защита " + FloatToString(fItmShield, 2) + " проц." + newStr();
}
//aw013 <--
if(arItm.groupID == GUN_ITEM_TYPE)
{
describeStr += GetAssembledString(
LanguageConvertString(lngFileID,"weapon gun parameters"),
arItm) + newStr();
}

..........................................

//aw013 describeStr += newStr() + XI_ConvertString("weight") + " " + FloatToString(stf(arItm.weight), 1);

...........................................

.....................

// матрос с ЧЖ -->
if (CheckAttribute(chr, "GhostShipCrew"))
....................

// матрос с ЧЖ <--
{
if (makeint(nLuck + 0.5) > rand(15))
{
chref.Money = rand(9) + rand(makeint(nLuck))*5 + rand(makeint(nLuck))*20;
}
// вернем саблю и пистоль -->
//aw013 if(CheckAttribute(chr, "equip.blade"))
if(CheckAttribute(chr, "equip.blade") && chr.equip.blade != "unarmed")//aw013
{
//aw013 if(rand(MOD_SKILL_ENEMY_RATE + 4) == 2 && chr.equip.blade != "unarmed") // 20% for 3+2=5
//aw013 {
GiveItem2Character(chref, chr.equip.blade);
//aw013 }
}
if(CheckAttribute(chr, "equip.gun"))
{
//aw013 if(rand(MOD_SKILL_ENEMY_RATE + 4) == 2)
//aw013 {
GiveItem2Character(chref, chr.equip.gun);
TakeNItems(chref, "bullet", GetCharacterItem(chr, "bullet"));// boal gun bullet
//aw013 }
}
// вернем саблю и пистоль <--
//aw013 -->
if(CheckAttribute(chr,"cirass.itemID"))
{
chr.equip.cirass = chr.cirass.itemID;
GiveItem2Character(chref, chr.equip.cirass);
}
//aw013 <--
//fill box with new items
int j, howI;
ref itm;
string name = "";
string sModel = chr.model;
howI = 0;
// выясняем тип -->
...............................

..................................
int Dead_FindCloseBody()
{
ref mainChr = GetMainCharacter();
int dchr_index = -1;
float x, y, z;
float x1, y1, z1, rd, min_rd = 100; // 100 - is super max
GetCharacterPos(mainChr, &x, &y, &z);

for(int i = 0; i < Dead_Char_num; i++)
{
x1 = Dead_Characters[i].px;
z1 = Dead_Characters[i].pz;
rd = sqrt(sqr(x1 - x) + sqr(z1 - z))
//aw013 if ( rd < 1.2)
if ( rd < 3.2)//aw013
{
if (min_rd > rd)
{
min_rd = rd;
dchr_index = i;
.............................

............................
// MusketsShoot -->
float tmpDefence;
if (CheckOfficersPerk(mchr, "MusketsShoot") && IsFort == false)
{
tmpDefence = MakeFloat(GetSummonSkillFromName(echr, SKILL_DEFENCE)) / SKILL_MAX;
//aw013 ecrewBak = makeint(ecrew * 0.25);
ecrewBak = makeint(mcrew * 0.25);//aw013
//aw013 if (ecrewBak > mcrew) ecrewBak = mcrew;
ecrewBak = makeint(ecrewBak * (2.1 - tmpDefence) / 2.0);
if (ecrewBak > ecrew) ecrewBak = ecrew;//aw013
PlaySound("INTERFACE\_musketshot.wav");
ecrew = ecrew - ecrewBak;
Log_SetStringToLog("Мушкетным залпом убито " + ecrewBak + " человек команды противника.");
}
if (CheckOfficersPerk(echr, "MusketsShoot") && IsFort == false)
{
tmpDefence = MakeFloat(GetSummonSkillFromName(mchr, SKILL_DEFENCE)) / SKILL_MAX;
//aw013 ecrewBak = makeint(mcrew * 0.25);
ecrewBak = makeint(ecrew * 0.25);//aw013
//aw013 if (ecrewBak > ecrew) ecrewBak = ecrew;
ecrewBak = makeint(ecrewBak * (2.1 - tmpDefence) / 2.0);
if (ecrewBak > mcrew) ecrewBak = mcrew;//aw013
PlaySound("INTERFACE\_musketshot.wav");
mcrew = mcrew - ecrewBak;
Log_SetStringToLog("Мушкетным залпом убито " + ecrewBak + " человек нашей команды.");
Statistic_AddValue(mchr, "DeadCrewBoard", ecrewBak);
}
// MusketsShoot <--
...........................

//aw013 - 1 раз
.....................................
void Blood_StartGame(string qName)
{
ref sld;
Pchar.questTemp.CapBloodLine.stat = "Begining";
..............
DeleteAttribute(Pchar, "ShipSails.gerald_name");
Pchar.ship.type = SHIP_NOTUSED;
//GiveItem2Character(Pchar, "unarmed");
//EquipCharacterByItem(Pchar, "unarmed");
GiveItem2Character(Pchar, "suit_2");//aw013
EquipCharacterbyItem(Pchar, "suit_2");//aw013
TakeNItems(Pchar, "potion3", 1);
TakeNItems(Pchar, "potion2", 3);
TakeNItems(Pchar, "potion1", 4);
SetCharacterPerk(Pchar, "Doctor1");

............................

/////////////////////////////////////////////////////////////////////////
void Blood_StartGame_End(string qName)
{
ref sld;
chrDisableReloadToLocation = true;
InterfaceStates.Launched = false;
InterfaceStates.Buttons.Save.enable = true;
sld = characterFromID("Dragun_0");
LAi_RemoveCheckMinHP(sld);
pchar.quest.CapGobartAttack_1.over = "yes";
pchar.quest.CapGobartAttack_2.over = "yes";

CreateEntity(&LAi_QuestFader, "fader");
SendMessage(&LAi_QuestFader, "lfl", FADER_OUT, 0.5, false);
LAi_QuestFader.oldSaveState = InterfaceStates.Buttons.Save.enable;
InterfaceStates.Buttons.Save.enable = 0;

//aw013 Pchar.model="blood_bomj";

DoQuestFunctionDelay("CapBloodLineInit", 0.1);
}

void CapBloodLineInit(string qName)
{
//Возвращаем все после плена
LAi_SetCurHPMax(Pchar);
LAi_SetPlayerType(Pchar);
//Рабство
LAi_SetImmortal(Pchar, false);
RemoveCharacterEquip(pchar, CIRASS_ITEM_TYPE);//aw013
DeleteAttribute(Pchar, "items");
...........................
//aw013 - 2 раз
////////////////////////////////////////////////////////////////////////////////////////////
void RestoreBridgetown()
{
ref rColony;
Pchar.questTemp.CapBloodLine = false;
//aw013 Pchar.model="Blood5";
//aw013 здесь потом изменить нацию героя на пират
//Губернатор
ref sld = &characters[GetCharacterIndex("Bridgetown_Mayor")];
sld.Dialog.Filename = "Common_Mayor.c";
..........................

..................
case "God_hit_us": // это такой прикол - задействовать в ловушки для сундуков(boal)
iTemp = 10+rand(15);
//aw013 -->
if(CheckAttribute(pchar, "cirassId"))
{
iTemp = MakeInt(iTemp * (1.0 - stf(Items[sti(pchar.cirassId)].CirassLevel)));
}
//aw013 <--
if ((MakeInt(pchar.chr_ai.hp)-iTemp) > 0)
{
LAi_SetActorType(PChar);
.........................

/// boal -->
void OfficersReaction(string alignment)
{
int iPassenger;
int i, cn;
ref sld;

for (int io = 0; io<GetPassengersQuantity(pchar); io++)
{ // любой пассажир у кого есть пристрастие может свалить если наши дела ему не по душе
iPassenger = GetPassenger(pchar, io);
if (iPassenger != -1)
{
//aw013 if (CheckAttribute(characters[iPassenger], "loyality"))
if (CheckAttribute(characters[iPassenger], "loyality") && !CheckAttribute(characters[iPassenger], "OfficerWantToGo.DontGo"))//aw013
{
if (characters[iPassenger].alignment == alignment)
{
characters[iPassenger].loyality = makeint(characters[iPassenger].loyality) + 1;
}
else
{
characters[iPassenger].loyality = makeint(characters[iPassenger].loyality) - 1;
}
}
}
}
for (i=1; i<COMPANION_MAX; i++)
{
cn = GetCompanionIndex(pchar, i);
if(cn!=-1)
{
sld = GetCharacter(cn);
//aw013 if (CheckAttribute(sld, "loyality"))
if (CheckAttribute(sld, "loyality") && !CheckAttribute(sld, "OfficerWantToGo.DontGo"))//aw013
{
if (sld.alignment == alignment)
{
sld.loyality = makeint(sld.loyality) + 1;
if (CheckAttribute(sld, "PGGAi")) PGG_ChangeRelation2MainCharacter(sld, 1); //navy
}
else
{
sld.loyality = makeint(sld.loyality) - 1;
// специально не далею приведение к 0 и мах. потому чтоб был запас минусов для проверок
if (CheckAttribute(sld, "PGGAi")) PGG_ChangeRelation2MainCharacter(sld, -1); //navy

// boal новый учет зп 16.01.04 -->
int GetMoneyForOfficer(ref Npchar)
{
if (CheckAttribute(Npchar, "Payment") && makeint(Npchar.Payment) == true)
{
int i, sum;
sum = 0;
for (i=1; i<15; i++)
{
sum += GetSkillValue(Npchar, SKILL_TYPE, GetSkillNameByIdx(i));
}
if (!CheckAttribute(Npchar, "OfficerWantToGo.DontGo"))// aw013 за постоянство надо платить
{
return MOD_SKILL_ENEMY_RATE*4*sum;
}
else
{
return MOD_SKILL_ENEMY_RATE*8*sum;
}
}
return 0;
}

// только наняли <--
dialog.text = NPCharSexPhrase(NPChar, "Что вы хотите, капитан?", "Я готова поговорить с вами, капитан.");
if (isOfficer(Npchar)) // проверка для кампуса, где слотовые офы
{
Link.l2 = "Слушай мой приказ!";
Link.l2.go = "stay_follow";
}
//aw013 --> Найм на постоянку
if (!CheckAttribute(NPChar, "OfficerWantToGo.DontGo"))
{
Link.l3 = "У меня к тебе предложение.";
Link.l3.go = "contract";
}
//aw013 <-- Найм на постоянку
Link.l4 = "Ты уволен" + NPCharSexPhrase(NPChar, "", "а") + ". Я обойдусь без твоих услуг!";
Link.l4.go = "AsYouWish";

// boal отчет о корабле
/*if (CheckNPCharQuestAttribute(Npchar, "officertype", XI_ConvertString("treasurer")))
{

case "exit_fire":
//navy -->
if (CheckAttribute(NPChar, "PGGAi"))
{
pchar.questTemp.FiringOfficerIDX = NPChar.index;
AddDialogExitQuestFunction("PGG_FireOfficer");
DialogExit();
break;
}
//navy <--
Diag.TempNode = "Fired";
Pchar.questTemp.FiringOfficerIDX = GetCharacterIndex(Npchar.id);
AddDialogExitQuestFunction("LandEnc_OfficerFired");

Diag.CurrentNode = Diag.TempNode;
NPChar.quest.meeting = true;

DialogExit();
break;

//aw013 --> Найм на постоянку
case "contract":
dialog.text = "Слушаю вас внимательно, капитан.";
Link.l1 = "Ты хороший офицер и полностью мне подходишь. Хочу предложить тебе пойти ко мне на службу по контракту.";
Link.l1.go = "contract2";
break;

case "contract2":
dialog.text = "Спасибо за добрые слова, капитан. А какие условия по контракту?";
Link.l1 = "Оплата вдвое от обычного. Экипировка получше, сам понимаешь. Срок контракта 2 года. Уволится можешь по истечению срока, а если все будет устраивать нас обоих, продлеваем дальше.";
Link.l1.go = "contract3";
break;

case "contract3":
dialog.text = "Заманчивое предложение, ничего не скажешь. На спокойную старость заработать немного. А как насчет небольших подьемных для постоянного состава?";
if (sti(Pchar.money) >= sti(NPChar.rank)*500)
{
Link.l1 = "Ничего против не имею, "+sti(NPChar.rank)*500+" золотых прямо сейчас на руки тебя устроит?";
Link.l1.go = "contract4";
}
Link.l2 = "Ничего против не имею, но давай вернемся к этому разговору позже.";
Link.l2.go = "Exit";
break;

case "contract4":
dialog.text = "Вполне, капитан. Я согласен.";
AddMoneyToCharacter(Pchar, -(makeint(sti(NPChar.rank)*500)));
SetCharacterPerk(NPChar, "EnergyPlus");
SetCharacterPerk(NPChar, "HPPlus");
NPChar.OfficerWantToGo.DontGo = true;
NPChar.loyality = MAX_LOYALITY;
NPChar.Reputation = 50;
DeleteAttribute(NPChar, "alignment");
Link.l1 = "Вот и отлично! Договорились";
Link.l1.go = "Exit";
break;
//aw013 <-- Найм на постоянку

// boal 29.05.04 офицер хочет свалить -->
case "WantToGo":
chrDisableReloadToLocation = false;
Diag.TempNode = "Hired";

// Генерация корабля для верфи
int GenerateStoreShip(int iBaseType)
{
int iShip = GenerateShip(iBaseType, 0); // честный

if (iShip == -1)
{
return SHIP_NOTUSED;
}

ref rRealShip = GetRealShip(iShip);
rRealShip.StoreShip = true; // кораль на верфи, трется отдельным методом
rRealShip.Cannon = CANNON_TYPE_NONECANNON;//aw013 без орудий

return iShip;
}

if (IsEquipCharacterByItem(xi_refCharacter, arItem.id))
{
SendMessage(&GameInterface,"lsls",MSG_INTERFACE_MSG_TO_NODE,"EQUIP_BUTTON",0, "#"+XI_ConvertString("Remove that"));
//aw013 if(arItem.groupID==BLADE_ITEM_TYPE || arItem.groupID==SPYGLASS_ITEM_TYPE || arItem.groupID==PATENT_ITEM_TYPE)
if(arItem.groupID==PATENT_ITEM_TYPE)//aw013
{
return false;
}
}
else
{
if (arItem.groupID == CIRASS_ITEM_TYPE && !IsCharacterPerkOn(xi_refCharacter,"Ciras") && arItem.Clothes == false)
{
return false;
}
SendMessage(&GameInterface,"lsls",MSG_INTERFACE_MSG_TO_NODE,"EQUIP_BUTTON",0, "#"+XI_ConvertString("Equip that"));
}
return true;
}

item = 555,FORMATEDTEXT,NATIONS_FRAME_CAPTION
item = FRAME,NATIONS_FRAME
item = 100,PICTURE,ENGLAND
item = 100,PICTURE,FRANCE
item = 100,PICTURE,SPAIN
item = 100,PICTURE,HOLLAND
item = 100,PICTURE,PIRATE

void initNewMainCharacter()
{
ref ch = GetMainCharacter();
string sTemp;
int iTmp, i;

setNewMainCharacter(ch, startHeroType);
// контроль версий -->
ch.VersionNumber = GetVerNum();
ch.VersionNumberCompatibility = VERSION_NUM;
// контроль версий <--
ch.nation = NullCharacter.HeroParam.nation;
ch.BaseNation = NullCharacter.HeroParam.nation;

//MOD_EXP_RATE = 10; задаем в начале игры (выбор, от 5 до 15, 10 - середина по умолчанию)
//MOD_EXP_RATE = MOD_EXP_RATE + (MOD_SKILL_ENEMY_RATE)*6; // разные уровни для всех
MOD_EXP_RATE = makeint(MOD_EXP_RATE + MOD_SKILL_ENEMY_RATE * MOD_EXP_RATE / 1.666666666); // разные уровни для всех
if (MOD_EXP_RATE < 10) MOD_EXP_RATE = 10; // иначе будет развал целостности данных, порог релиховой версии бля всех сложностей.

// куда плывем
//aw013 if (rand(10) != 4)

if (sti(ch.nation) != 4)
{
ch.HeroParam.ToCityId = FindAlliedColonyForNation(sti(ch.nation), true);
}
else
{
ch.HeroParam.ToCityId = "Pirates";
}
//ch.HeroParam.ToCityId = "Santiago";
// откуда плывем
ch.HeroParam.FromCityId = Colonies[FindNonEnemyColonyForAdventure(sti(ch.nation), ch.HeroParam.ToCityId, true)].id;

// где появимся