e2f4ba74d5
Merged redundant hak files. Moved hak scripts into module. Updated gitignore. Full Compile. Added release folder & archive.
77 lines
2.8 KiB
Plaintext
77 lines
2.8 KiB
Plaintext
///////////////////////////////////////////////////////////////////////////////////
|
|
// REAL TIME STRATEGY ADVENTURE - Kit
|
|
// FILE: rtsa_headerm
|
|
// NAME: Header for building the unit
|
|
// SCRIPTED BY:Deva Bryson Winblood
|
|
// DATE: 4/4/2003
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
|
|
void fnCreateUnit(string sUID,object oTarget,object oPC)
|
|
{ // unit ID
|
|
object oMod=GetModule();
|
|
object oUnit;
|
|
string sW;
|
|
location lLoc=GetLocation(oTarget);
|
|
int nN;
|
|
int nN2;
|
|
int nN3;
|
|
object oH;
|
|
int nRes=GetLocalInt(oMod,"nRTSResNum");
|
|
effect eVFX=EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_1);
|
|
int nST=GetLocalInt(oMod,"n"+sUID+"SUMT");
|
|
if (nST==2) eVFX=EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_2);
|
|
else if (nST==3) eVFX=EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3);
|
|
else if (nST==4) eVFX=EffectVisualEffect(VFX_FNF_SUMMON_UNDEAD);
|
|
else if (nST==5) eVFX=EffectVisualEffect(VFX_FNF_SUMMON_CELESTIAL);
|
|
else if (nST==6) eVFX=EffectVisualEffect(VFX_FNF_SUMMON_GATE);
|
|
else if (nST==7) eVFX=EffectVisualEffect(VFX_FNF_SMOKE_PUFF);
|
|
else if (nST==8) eVFX=EffectVisualEffect(VFX_IMP_LIGHTNING_M);
|
|
else if (nST==9) eVFX=EffectVisualEffect(VFX_IMP_SUNSTRIKE);
|
|
else if (nST==10) eVFX=EffectVisualEffect(VFX_NONE);
|
|
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,eVFX,lLoc,3.0);
|
|
oUnit=CreateObject(OBJECT_TYPE_CREATURE,sUID,lLoc,FALSE);
|
|
if (oUnit!=OBJECT_INVALID)
|
|
{ // unit exists
|
|
nN=GetLocalInt(oMod,"n"+sUID+"RC0"); // How much gold does it cost
|
|
AssignCommand(oTarget,TakeGoldFromCreature(nN,oPC,TRUE)); // gold cost of unit
|
|
nN=1;
|
|
while(nN<=nRes)
|
|
{ // other resource costs
|
|
nN2=GetLocalInt(oMod,"n"+sUID+"RC"+IntToString(nN));
|
|
if (nN2<0) nN2=0;
|
|
nN3=GetLocalInt(oPC,"nRes"+IntToString(nN)+"Store");
|
|
nN3=nN3-nN2;
|
|
if (nN3<1) nN3=0;
|
|
SetLocalInt(oPC,"nRes"+IntToString(nN)+"Store",nN3);
|
|
nN++;
|
|
} // other resource costs
|
|
if (GetLocalInt(oMod,"n"+sUID+"IT")!=0)
|
|
{ // item consumed on create
|
|
sW=GetLocalString(oMod,"s"+sUID+"IT");
|
|
oH=GetItemPossessedBy(oPC,sW);
|
|
DestroyObject(oH);
|
|
} // item consumed on create
|
|
sW=GetLocalString(oMod,"s"+sUID+"COVAR");
|
|
nN=GetLocalInt(oMod,"n"+sUID+"COVAR");
|
|
if (nN<1) nN=0;
|
|
if(nN>0)
|
|
{ // COVAR implemented
|
|
nN2=GetLocalInt(oPC,"nVarU"+sW);
|
|
nN2=nN2+nN;
|
|
SetLocalInt(oPC,"nVarU"+sW,nN2);
|
|
} // COVAR implemented
|
|
nN=GetLocalInt(oMod,"n"+sUID+"CUT");
|
|
nN++;
|
|
SetLocalInt(oMod,"n"+sUID+"CUT",nN);
|
|
// SPR
|
|
sW=GetLocalString(oMod,"s"+sUID+"SPR");
|
|
oH=GetItemPossessedBy(oPC,sW);
|
|
if (oH!=OBJECT_INVALID)
|
|
{ // destroy object
|
|
DestroyObject(oH);
|
|
} // destroy object
|
|
SetLocalString(oUnit,"sTeamID",GetLocalString(oPC,"sTeamID"));
|
|
} // unit exists
|
|
} // fnCreateUnit()
|
|
|