1. If the protagonist is killed, we ask player: want to continue playing or start new game? Then all of its equipment consists of a virtual safe. Mercenaries dissolved in usual sectors. The contracts are broken. Skipping a long period of time depending on the wound. Jobs fails. Player can continue game.

2. How can I verify that the team only two person of opposite-sex?

replace Player.OnKilled by
phrase OnKilled_Mod()
local i
local TmpHP
local ref TmpRef
local ref TmpSec
local string CurrentSectorName
local ref TmpSector

CurrentSectorName = call GetCurrentSectorName()

for (i = 1, i<=AllSectors SIZE, i++)
TmpSec = AllSectors Get(i)
if (CurrentSectorName==TmpSec.Name)
TmpSector=TmpSec
end if
end for

for (i = 1, i<=Player.MyTeam SIZE, i++)
TmpRef = Player.MyTeam Get(i)
Player.DelFromTeam(TmpRef)
end for

TmpHP = call GetHealth(Player.LocalID)
call SetHealth(Player.LocalID, TmpHP)
call ForceUnloadSector(TmpSector)

callm StratAI.SkipTime(1, 0)
Player.SetLocationInSector("exit place")
call ForceLoadSector(TmpSector)
end phrase

EDIT: I tested this again and it doesn't work. It seems the player gets unregistered when killed and there is no way to avoid that. Maybe try to get the dialog option before the player actually dies would be a better way to do it.

You can change the time he's out of action by altering the SkipTime(9 function and set what sector he will restart at.

You can add the dialog option here too so the player can choose what to do. But it's getting late and I have an early morning tomorrow and I need my beauty sleep

I'm so tired I'm not sure what you mean by opposite-sex persons, do you mean 2 women on the team or 2 men and 2 women? As I said, I'm too tired to figure that out

EDIT: I think I understand better what you mean, now that I have rested. You want a check to see if the player team is 1 man and 1 woman, and here's the syntax for that check.

local i
local string TmpSex
local ref TmpRef

if (Player.MyTeam SIZE==1)

for (i = 1, i<=Player.MyTeam SIZE, i++)
TmpRef = Player.MyTeam Get(i)
TmpSex = call GetSexByID(TmpRef.LocalID)
end for

if (Player.Sex==Male AND TmpSex==Female OR Player.Sex==Female AND TmpSex==Male)
//Do what you want happening if this is true
end if
end if

Have fun

Thanks for "Couple test" code... I have not errors only if put exaples with vhp&TestObj into QuestRoom.

In example of using Item. Tell me please. How can I identify that the subject enjoys someone other than the protagonist and who is. And how to increase resourse on it that object, which is used.

def object TestObject
begin

phrase Test()
local i
local ref TmpRef
local String TmpRefID = call GetCurrentMerc()

if(EventParmStr==Test_Item AND TmpRefID>0)

for(i=1, i<=Player.MyTeam SIZE, i++)
TmpRef = Player.MyTeam get(i)
if(TmpRefID==TmpRef.LocalID)
TmpRef.Say(""+str(TmpRef.DisplayName)+"")//Here you put the functions for the merc
end if
end for

else

if(EventParmStr==Test_Item AND TmpRefID==0)
callm vhp.InitValueHandler("Player")
if(callm vhp.pt("Actor")=="049_Kim")
Player.Say("Kim")//Here you put your functions or events here
else
if(callm vhp.pt("Actor")=="285_jaguar")
Player.Say("Gabriel")
else
if(callm vhp.pt("Actor")=="046_AlekseyIvanov")
Player.Say("Ivanov")
else
if(callm vhp.pt("Actor")=="047_Kurt")
Player.Say("Kurt")
else
if(callm vhp.pt("Actor")=="045_Cameron")
Player.Say("Cameron")
else
if(callm vhp.pt("Actor")=="048_Lambert")
Player.Say("Lambert")
else
if(callm vhp.pt("Actor")=="286_hope")
Player.Say("Christine")
else
if(callm vhp.pt("Actor")=="050_Babu")
Player.Say("Sanjay")
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end phrase

INITIAL
on event "USE Item" callm TestObject.Test() ALWAYS
END INITIAL
end

What do you mean by "how to increase resourse on it that object". Do you mean repairing it like you can do with weapons? Or do you mean change it's behavior and what it does?

Like

Player.DelItem(Test_Item)
Player.AddItem(Test_Item)

or if it's the merc

TmpRef.DelItem(Test_Item)
TmpRef.AddItem(Test_Item)

Then you'll have an item that is as good as new

Or maybe you can just get my mail address from my user profile?

translate.google.ru - poor

3. Характеристика механики HardLife, это какая-то неиспользуемая в оригинале или отдельно хранимая величина?
ответ: отдельно хранимая величина

2 DoRaDo

def Object MyNPC
begin
// здесь описание персонажа если новый...
end

ROOM QuestRoom
def Object Quest

begin

phrase EnterToSector()

MyNPC.SetSector(Sector, "место NPC")
// call SetToPlace (MyNPC.ININame, "место NPC")// SetToPlace это если нужно мгновенно установить в его точку.
// Sector = Campesino или любой какой нужно
// "место NPC" должно быть указано в файле мест.
Throw 'Вошел в сектор'
end phrase

initial

on event "Ч-з 2 ч войти" then TIMER2+2 call Quest.EnterToSector()
delete when 'Вошел в сектор'

end initial
end
end room

где нибудь должно кидаться событие "Ч-з 2 ч войти" и MyNPC должен быть описан.