Tribes2/construction-mod
1
0
Fork 0
mirror of https://github.com/mostlikely4r/construction-mod.git synced 2026-01-19 19:24:44 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
construction-mod/scripts/MTC_core.cs
mostlikely4r cbb5d08a0c Initial commit
2025-06-05 12:37:16 +02:00

1483 lines
38 KiB
C#
Raw Blame History

// MTC core
$MTC_Loaded = true;
if ($Host::MTC::MTCMax < 1)
$Host::MTC::MTCMax = 5;
if ($Host::MTC::MTCMin $= "" || $Host::MTC::MTCMin > $Host::MTC::MTCMax)
$Host::MTC::MTCMin = 1;
compile("scripts/MTC_weap.cs");
exec("scripts/MTC_weap.cs");
compile("scripts/MTC_eweap.cs");
exec("scripts/MTC_eweap.cs");
compile("scripts/MTC_ai.cs");
exec("scripts/MTC_ai.cs");
compile("scripts/MTC_level.cs");
exec("scripts/MTC_level.cs");
//Plasma
$DeathMessageTurretKill[$DamageType::Plasma, 0] = '\c0%1 was vaporized by a rampaging plasma MTC.';
$DeathMessageTurretKill[$DamageType::Plasma, 1] = '\c0%1 tried to dance with a plasma MTC but forgot to wear %3 dancing shoes.';
$DeathMessageTurretKill[$DamageType::Plasma, 2] = '\c0%1 was searching for a place to settle down when a plasma MTC ran over %2.';
//Chain
$DeathMessageTurretKill[$DamageType::Bullet, 0] = '\c0A misguided chain MTC thought %1 would look better perforated.';
$DeathMessageTurretKill[$DamageType::Bullet, 1] = '\c0%1 got in the way of the wrath of an almighty chain MTC.';
$DeathMessageTurretKill[$DamageType::Bullet, 2] = '\c0%1 couldn\'t dodge the 60 bullets per second a chain MTC threw at %2.';
//laser
$DeathMessageTurretKill[$DamageType::Laser, 0] = '\c0%1 looked around the corner only to get %3 head burned of by a laser MTC.';
$DeathMessageTurretKill[$DamageType::Laser, 1] = '\c0%1 forgot that the green beams where harmless, not the red ones.';
$DeathMessageTurretKill[$DamageType::Laser, 2] = '\c0%1 wasn\'t faster than the speed of light and was shot by a laser MTC.';
//grenade
$DeathMessageTurretKill[$DamageType::Grenade, 0] = '\c0%1 mistook a grenade MTC\'s rage for some harmless clouds.';
$DeathMessageTurretKill[$DamageType::Grenade, 1] = '\c0%1 was buried under the wrath of a grenade MTC.';
$DeathMessageTurretKill[$DamageType::Grenade, 2] = '\c0%1 still has to learn that you can\'t pick up grenades and trow them back in Tribes 2.';
//Disc
$DeathMessageTurretKill[$DamageType::Disc, 0] = '\c0%1 dodged right into a disc MTC\'s spinfusor.';
$DeathMessageTurretKill[$DamageType::Disc, 1] = '\c0%1 didn\'t notice the disc MTC that was sneaking up on %2 untill it was too late.';
$DeathMessageTurretKill[$DamageType::Disc, 2] = '\c0%1 had an encounter with a disc MTC and didn\'t live to tell about it.';
//Missile
$DeathMessageTurretKill[$DamageType::Missile, 0] = '\c0%1 forgot to drop a flare while running from a missle MTC\'s missile';
$DeathMessageTurretKill[$DamageType::Missile, 1] = '\c0%1 didn\'t know a missile MTC had declared it no-flying day.';
$DeathMessageTurretKill[$DamageType::Missile, 2] = '\c0%1 was gunned down by a missile MTC\'s mid-day express.';
//Blaster
$DeathMessageTurretKill[$DamageType::Blaster, 0] = '\c0%1 was smacked down by a blaster MTC.';
$DeathMessageTurretKill[$DamageType::Blaster, 1] = '\c0%1 fell down and was run over by a blaster MTC.';
$DeathMessageTurretKill[$DamageType::Blaster, 2] = '\c0%1 had the bad luck of being spotted by a blaster MTC.';
//Mortar
$DeathMessageTurretKill[$DamageType::Mortar, 0] = '\c0%1 never knew his limbs could fly in opposite directions until a mortar MTC showed him.';
$DeathMessageTurretKill[$DamageType::Mortar, 1] = '\c0%1 was fused to the terrain by a mortar MTC.';
$DeathMessageTurretKill[$DamageType::Mortar, 2] = '\c0%1 saw a MTC turret\'s green rain and forgot to get out of the way.';
$mtcBaseSize["light"] = "1.6 3 0.75";
$mtcBaseSize["medium"] = "3 3.6 1.2";
//$mtcBaseSize["light"] = "6 6 2";
//$mtcBaseSize["medium"] = "6 10 1";
$mtcBaseSize["heavy"] = "6 8 2";
$mtcTurretSize["light"] = "1.2 1.5 1.15";
$mtcTurretSize["medium"] = "2.22 2.4 1.44";
//$mtcTurretSize["light"] = "4 5 3";
//$mtcTurretSize["medium"] = "1 1 0.75";
$mtcTurretSize["heavy"] = "1 1 0.75";
$mtcnotTargetMod = 0.5;
$mtcturretMod = 0.25;
datablock AudioProfile(MTCThinkSound) {
fileName = "fx/misc/bounty_objrem1.wav";
description = AudioClose3d;
preload = true;
effect = MotionSensorDeployEffect;
};
datablock ItemData(mtc)
{
className = Pack;
catagory = "Deployables";
shapeFile = "ammo_mine.dts";
mass = 3.0;
elasticity = 0.2;
friction = 0;
rotate = true;
density = 0.1;
heatSignature = 1;
emap = true;
dynamicType = $TypeMasks::SensorObjectType;
targetNameTag = 'MTC';
targetTypeTag = 'Unit';
sensorData = DeployedOutdoorTurretSensor;
};
datablock StaticShapeData(mtcTarget) : StaticShapeDamageProfile
{
className = "target";
shapeFile = "reticle_bomber.dts";
};
datablock StaticShapeData(MtcSig) : StaticShapeDamageProfile
{
shapeFile = "Turret_Muzzlepoint.dts";
className = Target;
dynamicType = $TypeMasks::SensorObjectType;
heatSignature = 1;
targetTypeTag = 'mtc';
sensorData = DeployedOutdoorTurretSensor;
maxDamage = 1000;
destroyedLevel = 200.20;
disabledLevel = 200.00;
};
datablock ParticleData(mtcJetParticle)
{
dragCoefficient = 0.0;
gravityCoefficient = 0;
inheritedVelFactor = 0.2;
constantAcceleration = 0.0;
lifetimeMS = 500;
lifetimeVarianceMS = 0;
textureName = "particleTest";
colors[0] = "0.32 0.47 0.47 1.0";
colors[1] = "0.32 0.47 0.47 0";
sizes[0] = 0.40;
sizes[1] = 0.15;
};
datablock ParticleEmitterData(mtcJetEmitter)
{
ejectionPeriodMS = 3;
periodVarianceMS = 0;
ejectionVelocity = 3.0;
velocityVariance = 5.0;
ejectionOffset = 0.0;
overrideAdvances = false;
thetaMin = 110;
thetaMax = 180;
phiReferenceVel = 0;
phiVariance = 360;
particles = "mtcJetParticle";
};
datablock TurretData(mtcTurret) : TurretDamageProfile
{
className = MtcTurret;
shapeFile = "turret_outdoor_deploy.dts";
mass = 0.1;
maxDamage = 2.20;
destroyedLevel = 2.20;
disabledLevel = 2.00;
repairRate = 0;
deployedObject = true;
thetaMin = 0;
thetaMax = 145;
thetaNull = 90;
yawVariance = 30.0; // these will smooth out the elf tracking code.
pitchVariance = 30.0; // more or less just tolerances
selfpower = true;
maxEnergy = 60;
rechargeRate = 0.256;
isShielded = false;
energyPerDamagePoint = 360;
renderWhenDestroyed = false;
heatSignature = 0;
canControl = true;
cmdCategory = "DTactical";
cmdIcon = CMDTurretIcon;
cmdMiniIconName = "commander/MiniIcons/com_turret_grey";
firstPersonOnly = true;
targetTypeTag = 'mtc';
sensorData = DeployedOutdoorTurretSensor;
sensorRadius = DeployedOutdoorTurretSensor.detectRadius;
sensorColor = "191 0 226";
explosion = HandGrenadeExplosion;
expDmgRadius = 5.0;
expDamage = 0.3;
expImpulse = 500.0;
debrisShapeName = "debris_generic_small.dts";
debris = TurretDebrisSmall;
};
datablock TurretData(LightmtcTurret) : mtcTurret
{
shapeFile = "turret_outdoor_deploy.dts";
mass = 0.1;
maxDamage = 1.10;
destroyedLevel = 1.10;
disabledLevel = 1.00;
repairRate = 0;
maxEnergy = 60;
rechargeRate = 0.256;
isShielded = false;
energyPerDamagePoint = 360;
};
datablock TurretData(MediumMtcTurret) : mtcTurret
{
shapeFile = "turret_outdoor_deploy.dts";
mass = 0.1;
maxDamage = 2.20;
destroyedLevel = 2.20;
disabledLevel = 2.00;
repairRate = 0;
maxEnergy = 60;
rechargeRate = 0.256;
isShielded = false;
energyPerDamagePoint = 360;
};
datablock TurretData(HeavyMtcTurret) : mtcTurret
{
shapeFile = "turret_base_large.dts";
mass = 0.1;
maxDamage = 4.40;
destroyedLevel = 4.40;
disabledLevel = 4.40;
repairRate = 0;
maxEnergy = 60;
rechargeRate = 0.256;
isShielded = True;
energyPerDamagePoint = 30;
explosion = TurretExplosion;
expDmgRadius = 15.0;
expDamage = 0.66;
expImpulse = 2000.0;
debrisShapeName = "debris_generic.dts";
debris = TurretDebris;
};
datablock TurretData(HugeMtcTurret) : mtcTurret
{
shapeFile = "turret_base_large.dts";
mass = 0.1;
maxDamage = 2.20;
destroyedLevel = 2.20;
disabledLevel = 2.00;
repairRate = 0;
maxEnergy = 60;
rechargeRate = 0.256;
isShielded = false;
energyPerDamagePoint = 360;
explosion = TurretExplosion;
expDmgRadius = 15.0;
expDamage = 0.66;
expImpulse = 2000.0;
debrisShapeName = "debris_generic.dts";
debris = TurretDebris;
};
function mtcTurret::onDestroyed(%this, %obj, %prevState)
{
if (%obj.isRemoved)
return;
%obj.isRemoved = true;
%obj.base.Beacon();
%obj.base.blazetarget();
%obj.base.specialtarget();
Parent::onDestroyed(%this, %obj, %prevState);
%obj.schedule(500, "delete");
%obj.base.schedule(500, "delete");
%killer = %obj.lastDamagedBy;
%killer.mtckills++;
if (%killer.player.getDatablock().classname $= "armor")
{
if (%killer.player.getMountedImage(0).item $= "SuperChaingun")
{
messageAll('msgSuicide', '\c0%1 pulverized a %2 MTC with an huge amount of super chaingun bullets and got 0.1 points for the effort.',%killer.name,%obj.base.weapon);
%killer.score = %killer.score +0.1;
}
else
{
%score = $mtcScore[%obj.base.weapon] * (1-($mtcnotTargetMod*(%obj.base.target != %killer.player)));
%killer.score = %killer.score +%score;
if (%obj.base.target != %killer.player)
{
messageAll('msgSuicide', '\c0%1 has been awarded %2 points for killing a distracted %3 MTC',%killer.name,%score,%obj.base.weapon);
}
else
{
messageAll('msgSuicide', '\c0%1 has been awarded %2 points for killing a %3 MTC',%killer.name,%score,%obj.base.weapon);
}
messageClient(%killer, 'MsgItemPickup', '\c0You\'ve killed %1 MTC\'s.', %killer.mtckills);
}
if (getRandom()*20+%killer.mtckills>30)
{
echo("bountyhunter");
spawnMTC("","",10,%killer);
}
}
else if (%killer.getOwner())
{
%score = $mtcScore[%obj.base.weapon] * (1*$mtcturretMod);
%killer.getOwner().score = %killer.getOwner().score +%score;
%killer.getOwner().mtckills++;
messageClient(%killer, 'MsgItemPickup', '\c0You\'ve killed %1 MTC\'s.', %killer.mtckills);
messageAll('msgSuicide', '\c0%1 \'s turret killed a %3 MTC, and got %2 points for it ',%killer.getOwner().name,%score,%obj.base.weapon);
}
else if (%killer.getClassname() $= "TURRET")
{
if (%killer.IsMtc())
messageAll('msgSuicide', '\c0A MTC was killed by another MTC',%killer.getOwner().name,%obj.base.weapon);
else
messageAll('msgSuicide', '\c0A MTC was killed by a turret',%killer.getOwner().name,%obj.base.weapon);
}
else
messageAll('msgSuicide', '\c0A MTC was killed',%killer.getOwner().name,%obj.base.weapon);
if (getRandom()*20+%killer.mtckills>30)
{
echo("bountyhunter");
spawnMTC("","",10,%killer);
}
}
function mtcTurret::onDamage(%data, %obj)
{
Parent::onDamage(%data, %obj);
%obj.base.aggression = %obj.base.aggression + 0.5;
if (%obj.base.target != %obj.lastDamagedBy && !%obj.base.empsch)
%obj.base.resetorders();
}
function MtcTurret::DamageObject(%data,%this, %sourceObject, %position, %amount, %damageType)
{
if (%sourceObject != %this)
{
if (%sourceObject.client)
%this.lastDamagedBy = %sourceObject.client;
else
%this.lastDamagedBy = %sourceObject;
}
Parent::DamageObject(%data,%this, %sourceObject, %position, %amount, %damageType);
}
function mtcTurret::selectTarget(%this, %turret)
{
%obj = %turret.base;
//[[Early abort]] we really can't fire.
if (%obj.nofire)
{
%turret.clearTarget();
return;
}
if (%obj.forcetarget())
{
%turret.setTargetObject(%obj.forcetarget());
%obj.blazetarget(%obj.forcetarget());
return "";
}
%TargetSearchMask = $TypeMasks::PlayerObjectType | $TypeMasks::objObjectType | $TypeMasks::StationObjectType | $TypeMasks::GeneratorObjectType |
$TypeMasks::SensorObjectType | $TypeMasks::turretType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType;
if (!%obj.meddist)
%range = 500;
else
%range = %obj.meddist;
InitContainerRadiusSearch(%turret.getMuzzlePoint(0),%range,%TargetSearchMask);
%group = nameToID("MissionCleanup/Deployables");
while ((%potentialTarget = ContainerSearchNext()) != 0)
{
if (%potentialtarget)
{ //Legal ways
if (%potentialtarget == %turret.base.target || (MTCGroup.blazetarget[%potentialtarget] == 1 && !(%turret.base.weapon $= "target")) )
{
%fstat =aboveground(%potentialtarget.getworldboxcenter(),1,0);
%stat = GetWord(%fstat,0);
if(%stat $= "open" || %stat $= "roof" || %stat $= "shadow")
{
if (%potentialtarget.isforcefield())
%turret.setTargetObject(%obj.specialtarget(%potentialtarget,0,1));
else
%turret.setTargetObject(%potentialtarget);
%obj.blazetarget(%potentialtarget);
return "";
}
else if (!%potentialtarget.isforcefield())
{
%top = GetWords(%potentialtarget.seetop(),1,3);
if (%top !$= "")
{
%turret.setTargetObject(%obj.specialtarget(%potentialtarget,%top,1));
%obj.blazetarget(%potentialtarget,1);
return "";
}
}
}
}
}
%obj.blazetarget();
%obj.specialtarget();
}
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
function startMTC() {
$Host::MTC::Enabled = 1;
autoMTCSpawn(60000,$Host::MTC::MTCMin,$Host::MTC::MTCMax);
}
function stopMTC() {
$Host::MTC::Enabled = 0;
cancel($MTCSpawn);
MTCGroup.delete();
}
function autoMTCSpawn(%time,%min,%max) {
cancel($MTCSpawn);
// %group = nameToID("MissionCleanup/MTCGroup/bases");
%count = bases.getCount();
if (%count < %max) {
for (%c = 0; %c < limit((%min - %count),%min,%max);%c++) {
%weapon = MtcRandomWeapon();
%pos = pos(RandomPlayer());
%angle = getRandom() * 2 * $Pi;
%dist = getRandom() * 500 + 500;
%pos = VectorAdd(%pos,getTerrainHeight2( mCos(%angle) * %dist SPC mSin(%angle) * %dist SPC 0));
spawnMTC(%pos,%weapon);
}
}
$MTCSpawn = schedule(%time,0,"autoMTCSpawn",%time,%min,%max);
}
function spawnMTC(%pos,%weapon,%aggression,%target)
{
if ($mtcWeaponSize[%weapon]$="")
%weapon = MtcRandomWeapon();
%obj = new Item() {
className = pack;
dataBlock = mtc;
targetNameTag = %weapon;
};
%obj.addToMTCGroup();
%obj.setTransForm(%pos SPC "1 0 0 0");
%obj.size = $mtcWeaponSize[%weapon];
%obj.SetScale($mtcBaseSize[%obj.size]);
if (!%aggression)
%obj.aggression = getRandom()* 5;
else
%obj.aggression = %aggression;
if (%target)
%obj.forcetarget = %target;
%obj.nonotify = 1;
%obj.weapon = %weapon;
echo(%weapon SPC "mtc spawned with" SPC %obj.aggression SPC "anger level");
%obj.Initialize();
}
function shapebase::addToMTCGroup(%obj,%set)
{
if (!isObject(MTCGroup))
{
%main = new SimGroup("MTCGroup");
MissionCleanup.add(%TigGroup);
%base = new Simgroup("bases");
%turrets = new Simgroup("turrets");
%beacons = new Simgroup("beacons");
%main.add(%base);
%main.add(%turrets);
%main.add(%beacons);
}
if (%set == 1)
Turrets.add(%obj);
else if (%set == 2)
beacons.add(%obj);
else
bases.add(%obj);
}
function GameBase::isMTC(%obj) {
%name = %obj.getDataBlock().getName();
if (%name $= "lightMTCTurret")
return 1;
if (%name $= "mediumMTCTurret")
return 1;
if (%name $= "heavyMTCTurret")
return 1;
if (%name $= "HugeMTCTurret")
return 1;
if (%name $= "MTCSig")
return 1;
if (%name $= "MTC")
return 1;
return "";
}
function mtc::onCollision(%data,%obj,%col)
{
}
function mtcsig::onCollision(%data,%obj,%col)
{
}
function Item::Arm(%obj)
{
//echo("arm");
%team = 3;
//ChainTurret
%block = "mtcTurret";
//%turret = TurretData::create(%block);
%size = $mtcWeaponSize[%obj.weapon];
%turret = new Turret()
{
className = DeployedTurret;
dataBlock = %size @ mtcTurret;
maxdamage = 20;
};
%turret.SetScale($mtcTurretSize[%obj.size]);
%obj.mountObject(%turret, 0);
%obj.mountObject(%sign, 1);
%turret.setSelfPowered();
%turret.playThread($DeployThread, "deploy");
%turret.setRechargeRate(%turret.getDatablock().rechargeRate);
%barrel = %obj.weapon @ "TurretBarrel";
%turret.mountImage(%barrel,0,false);
%obj.turret = %turret;
%turret.base = %obj;
%turret.team = %team;
setTargetSensorGroup(%turret.getTarget(), %team);
%turret.addToMTCGroup(1);
}
function getorders()
{
//%group = nameToID("MissionCleanup/MTCGroup/bases");
echo(bases.getCount() SPC "mtcs found");
for( %c = 0; %c < bases.getCount(); %c++ )
{
%obj = bases.getObject(%c);
if (%obj.order !$= "")
{
%totarg = %totarg+%obj.aggression;
if (mtcCleanTarget(%obj.target))
{
%target = %obj.target.getDatablock().classname;
if (!%gottar[%target])
{
%targets++;
%targetname[%targets] = %target;
}
%gottar[%target]++;
}
%order = %obj.order;
if (!%gotor[%order])
{
%orders++;
%odername[%orders] = %order;
}
%gotor[%order]++;
%weapon = %obj.weapon;
if (!%gotweap[%weapon])
{
%weapons++;
%weaponname[%weapons] = %weapon;
}
%gotweap[%weapon]++;
}
}
echo(" -" SPC "with an avarage aggression of" SPC %totarg/(bases.getCount()) );
echo(" +" SPC %orders SPC "order types found");
for( %c = 1; %c <= %orders; %c++ )
{
%order = %odername[%c];
echo(" -" SPC %gotor[%order] SPC "times" SPC %order SPC "ordered");
}
echo(" +" SPC %targets SPC "target types found");
for( %c = 1; %c <= %targets; %c++ )
{
%target = %targetname[%c];
echo(" -" SPC %gottar[%target] SPC "times" SPC %target SPC "targeted");
}
echo(" +" SPC %weapons SPC "weapon types found");
for( %c = 1; %c <= %weapons; %c++ )
{
%weapon = %weaponname[%c];
echo(" -" SPC %gotweap[%weapon] SPC "times" SPC %weapon SPC "armed");
}
}
function Item::Notify(%obj,%id)
{
if (!%obj.nonotify && !$Nomtcnotify)
{
switch$ (%id) {
case "attack":
echo("[[mtc]]" SPC %obj SPC "is attacking" SPC %obj.target.getDatablock().Classname);
echo(" +[[Target]]" SPC %obj.target SPC "is" SPC VectorDist(pos(%obj),pos(%obj.target)) SPC "meters away from mtc");
case "flee":
echo("[[mtc]]" SPC %obj SPC "is fleeing from" SPC %obj.target.getDatablock().Classname);
echo(" +[[Target]]" SPC %obj.target SPC "is" SPC VectorDist(pos(%obj),pos(%obj.target)) SPC "meters away from mtc");
case "roam":
echo("[[mtc]]" SPC %obj SPC "is roaming around" SPC %obj.target.getDatablock().Classname);
echo(" +Closest [[target]]" SPC %obj.target SPC "is" SPC VectorDist(pos(%obj),pos(%obj.target)) SPC "meters away from mtc");
case "repair":
echo("[[mtc]]" SPC %obj SPC "is repairing at" SPC MFloor(%obj.turret.getDamagePct() *100) @"% damage and" SPC MFloor(%obj.ammo["flare"]) SPC "flares");
case "ammo":
echo("[[mtc]]" SPC %obj SPC "has:");
echo(" + " @ MFloor(%obj.ammo["flare"]) SPC "flares");
echo(" + " @ MFloor(%obj.ammo["mine"]) SPC "mines");
echo(" + " @ MFloor(%obj.ammo["cloak"]) SPC "cloak seconds");
echo(" and an aggression level of" SPC MFloor(%obj.aggression));
}
}
}
function mtcnerfwar()
{
for( %c = 0; %c < ClientGroup.getCount(); %c++ )
{
%client = ClientGroup.getObject(%c);
spawnMTC("0 0 0","nerf",10,%client);
}
}
function Item::blazetarget(%obj,%target,%set)
{
//echo("blazetarget");
%obj.cloak();
if (%obj.weapon $= "target")
{
if (%set)
{
if (%obj.blazetarget == %target)
return "";
else if (IsObject(%target))
{
%obj.blazetarget();
%obj.blazetarget = %target;
MTCGroup.blazetarget[%target] = 1;
}
}
else
{
MTCGroup.blazetarget[%obj.blazetarget] = 0;
%obj.blazetarget = "";
}
}
}
function Item::VisTarget(%obj,%linkobj,%pos,%dir,%sided)
{
//echo("visTarget");
if (!Isobject(%obj.vistarget1))
{
%tar1 = new StaticShape()
{
className = Target;
dataBlock = mtcTarget;
scale = "0.25 0.25 0.25";
};
}
else
%tar1 = %obj.vistarget1;
if (%pos $= "" && Isobject(%linkobj))
%pos = pos(%linkobj);
else if (%pos $= "")
%pos = pos(%obj);
%rot1 = fullrot(%dir,"0 0 1");
%tar1.setTransform(%pos SPC %rot1);
%obj.vistarget1 =%tar1;
%tar1.schedule(60000,"delete");
if (%sided)
{
if (!Isobject(%obj.vistarget2))
{
%tar2 = new StaticShape()
{
className = Target;
dataBlock = mtcTarget;
scale = "0.25 0.25 0.25";
};
}
else
%tar2 = %obj.vistarget2;
%rot2 = fullrot(VectorScale(%dir,-1),"0 0 1");
%tar2.setTransform(%pos SPC %rot2);
%obj.vistarget2 = %tar2;
%tar2.schedule(60000,"delete");
}
return %tar1;
}
function Item::specialtarget(%obj,%target,%pos,%set)
{
//echo("specialtarget");
if (%set)
{
if (%pos !$= "")
{
%ppos = getTerrainHeight2(%target.getWorldboxCenter());
%res = containerRayCast(%obj.turret.getWorldboxCenter(),VectorAdd(%ppos,"0 0 0.1"), -1,%obj.turret);
if (GetWord(%res,0) == %target)
{
%dir = realvec(%target,NormalFromRaycast(%res));
%pos = VectorAdd(PosFromRaycast(%res),VectorScale(%dir,0.1));
}
else
{
%dir = "0 0 1";
}
}
else
{
%pos = %target.getWorldboxCenter();
%dir = VectorNormalize(VectorSub(%pos,pos(%obj.turret)));
%rot1 = fullrot(%dir,0);
%rot2 = fullrot(VectorScale(%dir,-1));
}
return %obj.VisTarget(%target,%pos,%dir,1);
}
else
{
if (isObject(%obj.vistarget1))
%obj.vistarget1.delete();
if (isObject(%obj.vistarget2))
%obj.vistarget2.delete();
}
}
function Item::canfire(%obj,%set)
{
//echo("canfire");
if (%set $= "target")
{
%obj.canfire = "target";
%obj.nofire = "";
if (%obj.turret.getTargetObject() && %obj.turret.getTargetObject() != %obj.target)
%obj.turret.clearTarget();
}
else if (%set $= "all")
{
%obj.canfire = "all";
%obj.nofire = "";
}
else if (!%set)
{
%obj.turret.clearTarget();
%obj.nofire = 1;
%obj.canfire = "none";
}
}
//////////////////////////////////////////////
//////////////Inventory Actions///////////////
//////////////////////////////////////////////
//Telleportation
function Item::telleport(%obj,%loc)
{
//echo("telleport");
if (!%obj.notelle)
{
if (!%obj.notellefx)
{
teleportStartFX(%obj);
teleportStartFX(%obj.turret);
%obj.schedule(1002,"teleportEndFX",%obj);
%obj.turret.schedule(1002,"teleportEndFX",%obj.turret);
%obj.play3D(TelePadBeamSound);
}
%obj.schedule(1001,"SetTransform",%loc SPC rot(%obj));
%obj.turret.schedule(1001,"SetTransform",%loc SPC rot(%obj.turret));
}
}
//cloaking
function Item::cloak(%obj,%set)
{
//echo("cloak");
// We need atleast 20 seconds to activate cloak
if (%set && %obj.ammo["cloak"] >= 20 && !%obj.cloaked && !%obj.nocloak && getSimTime()-%obj.lastcloaktime>5000)
{
%obj.cloaked = 1;
%obj.setCloaked(True);
%obj.turret.setCloaked(True);
%obj.cloaktime = getsimtime();
%obj.silent(1);
%obj.schedule(%obj.ammo["cloak"]*1000,"cloak",0);
%obj.lastcloaktime = GetSimTime();
}
else if (!%set)
{
if (%obj.cloaked)
{
%obj.ammo["cloak"]= %obj.ammo["cloak"]-(getSimtime()-%obj.cloaktime)/1000;
%obj.cloaked = 0;
}
if (%obj.silent)
%obj.silent();
if (%obj.isCloaked())
%obj.setCloaked(False);
if (%obj.turret.isCloaked())
%obj.turret.setCloaked(False);
%obj.beacon(1);
}
}
function Item::silent(%obj,%set)
{
//echo("silent");
if (!%obj.nosilent && %set)
{
if (!%obj.attackcloak)
{
%obj.canfire();
%obj.flash();
}
//%obj.turret.setHeat(0);
%obj.noflare = 1;
%obj.notellefx = 1;
%obj.nojet = 1;
%obj.nosound = 1;
%obj.nobeacon = 1;
%obj.Beacon();
%obj.silent = 1;
}
else if (!%set)
{
//%obj.turret.setHeat(1);
%obj.canfire("target");
%obj.notellefx = "";
%obj.noflare = "";
%obj.nojet = "";
%obj.nosound = "";
%obj.nobeacon = "";
%obj.noflare = "";
%obj.silent = "";
}
}
//Mines
function Item::Mine(%obj)
{
//echo("mine");
if (%obj.ammo["mine"] > 0 && !%obj.nomine && %obj.lastThrowtime + 5000 < getSimTime())
{
%obj.ammo["mine"] = %obj.ammo["mine"] -1;
%thrownItem = new Item()
{
dataBlock = MineDeployed;
sourceObject = %obj;
};
MissionCleanup.add(%thrownItem);
// throw it
%dir = VectorNormalize(VectorSub(%obj.target.getWorldboxCenter(),%obj.getWorldboxCenter()));
%vec = vectorScale(%dir, (20.0));
// add a vertical component to give it a better arc
%dot = vectorDot("0 0 1", %dir);
if(%dot < 0)
%dot = -%dot;
%vec = vectorAdd(%vec, vectorScale("0 0 4", 1 - %dot));
// add player's velocity
%vec = vectorAdd(%vec, vectorScale(%obj.getVelocity(), 0.4));
%pos = %obj.getWorldboxCenter();
%thrownItem.sourceObject = %obj;
%thrownItem.team = %obj.team;
%thrownItem.setTransform(%pos);
%thrownItem.applyImpulse(%pos, %vec);
%thrownItem.setCollisionTimeout(%obj);
serverPlay3D(GrenadeThrowSound, %pos);
%obj.lastThrowtime = getSimTime();
%thrownItem.getDataBlock().onThrow(%thrownItem, %obj);
schedule(30 * 60 * 1000,0,"explodeMine",%thrownItem, true);
}
}
// Flares
function Item::flare(%obj)
{
//echo("flare");
if (%obj.ammo["flare"] > 0 && !%obj.noflare)
{
%obj.ammo["flare"] = %obj.ammo["flare"] - 1;
%size = getRandom() * 3;
%p = new FlareProjectile() {
dataBlock = FlareGrenadeProj;
initialDirection = "0 0" SPC %size;
initialPosition = %obj.getWorldboxCenter();
sourceObject = %obj;
sourceSlot = 0;
};
FlareSet.add(%p);
MissionCleanup.add(%p);
serverPlay3D(GrenadeThrowSound, %obj.getWorldboxCenter());
%p.schedule(6000, "delete");
}
}
function Item::Incomming(%obj)
{
InitContainerRadiusSearch(%obj.getWorldboxCenter(),500,-1);
while ((%target = ContainerSearchNext()) != 0)
{
if (MissileSet.isMember(%target))
{
if (%target.gettargetobject() == %obj)
{
return %target;
}
}
}
return "";
}
//Flash
function Item::Flash(%obj)
{
//echo("flash");
if (%obj.ammo["flash"] > 0 && !%obj.noflash)
{
%obj.ammo["flash"] = %obj.ammo["flash"] - 1;
%size = getRandom() * 3;
%flash = new Item()
{
dataBlock = FlashGrenadeThrown;
sourceObject = %obj;
};
%flash.setTransform(VectorAdd(pos(%obj),"0 0 4") SPC "1 0 0 0");
schedule(500,0,"detonateFlashGrenade",%flash);
MissionCleanup.add(%flash);
serverPlay3D(GrenadeThrowSound, %obj.getWorldboxCenter());
}
}
//Jetting
function ShapeBase::Jet(%obj,%time)
{
if (isObject(%obj) && !%obj.nojet && !$nojet)
{
if ($MTC::FancyJet)
{
for (%c = 0; %c < (%time/50); %c++)
{
%obj.schedule(%c*50,"JetPoof",50);
}
}
else
{
createLifeEmitter(%obj.getworldBoxCenter(), mtcJetEmitter, 100);
}
}
}
//SmallLightDamageSmoke
function Shapebase::JetPoof(%obj,%time)
{
if (isObject(%obj) && !%obj.nojet)
{
%pos = %obj.getWorldboxCenter();
%obj.firePoof = new ParticleEmissionDummy()
{
position = %pos;
rotation = "";
DataBlock = "defaultEmissionDummy";
lockCount = "0";
homingCount = "0";
emitter = "mtcJetEmitter";
velocity = "10";
};
MissionCleanup.add(%obj.firePoof);
%obj.firePoof.schedule(%time, "delete");
}
}
///
function GiveSign(%obj)
{
if (!IsObject(%obj.signature))
{
%sign = new StaticShape(){
dataBlock = MtcSig;
};
}
else
%sign = %obj.signature;
%sign.setTransform(%obj.getTransform());
%sign.team = %obj.team;
%sign.setHeat(1);
%obj.mountObject(%sign, 4);
setTargetSensorGroup(%sign.getTarget(), %obj.team);
%obj.signature = %sign;
%sign.owner = %obj;
CheckSign(%sign);
return %sign;
}
function CheckSign(%sign)
{
if (!IsObject(%sign.owner)&& IsObject(%sign))
{
%sign.delete();
}
else if (IsObject(%sign.owner)&& IsObject(%sign))
Schedule(30000,0,"CheckSign",%sign);
}
function Item::beacon(%obj,%set)
{
if (%set && !%obj.nobeacon && !%obj.turret.isRemoved && IsObject(%obj))
{
if (!IsObject(%obj.enemyBeacon1))
{
%beacon1 = new BeaconObject(){
datablock = BomberBeacon;
};
}
else
%beacon1 = %obj.enemyBeacon1;
if (!IsObject(%obj.enemyBeacon2))
{
%beacon2 = new BeaconObject(){
datablock = BomberBeacon;
};
}
else
%beacon2 = %obj.enemyBeacon2;
%beacon1.team = 2;
%beacon2.team = 1;
%beacon1.owner = %obj;
%beacon2.owner = %obj;
%beacon1.setTarget(2);
%beacon2.setTarget(1);
%obj.mountObject(%beacon1, 4);
%obj.mountObject(%beacon2, 5);
%obj.enemyBeacon1 = %beacon1;
%obj.enemyBeacon2 = %beacon2;
%beacon1.addToMTCGroup(2);
%beacon2.addToMTCGroup(2);
%beacon1.setBeaconType(friend);
%beacon2.setBeaconType(friend);
%sign = GiveSign(%obj.turret);
%sign.addToMTCGroup(2);
//%obj.turret.mountObject(%sign,4);
}
else
{
if (IsObject(%obj.enemyBeacon1))
{
%obj.enemyBeacon1.delete();
%obj.enemyBeacon1 = "";
}
if (IsObject(%obj.enemyBeacon2))
{
%obj.enemyBeacon2.delete();
%obj.enemyBeacon2 = "";
}
if (IsObject(%obj.turret.signature))
{
%obj.turret.signature.delete();
%obj.turret.signature = "";
}
}
}
function Item::Sound(%obj,%id)
{
if (!%obj.nosound)
{
switch$ (%id) {
case "think":
%obj.play3D(MTCThinkSound);
case "move":
%obj.play3D(SkiAllSoftSound);
}
}
}
function Item::Emp(%obj,%time)
{
//echo("emp");
cancel(%obj.empsch);
cancel(%obj.invloop);
cancel(%obj.evalloop);
cancel(%obj.mainrun);
%obj.canfire = "";
%obj.nofire = 1;
%obj.turret.clearTarget();
//%obj.zaplight(%time);
//createLifeEmitter(%obj.getWorldboxCenter(),ELFSparksEmitter, limit(%time-500,0));
%obj.turret.zapobject();
%obj.empsch = %obj.schedule(%time,"unEmp");
}
function Item::unEmp(%obj)
{
echo("umemp");
cancel(%obj.empsch);
%obj.empsch = "";
%obj.turret.stopzap();
%obj.nofire = "";
%obj.invloop();
%obj.evaluate();
}
////////////////////////////////////////////////////////////
///////////////////SHIELDING SYSTEM/////////////////////////
////////////////////////////////////////////////////////////
function gameConnection::antiMissile(%obj)
{
cancel(%obj.shieldsch);
if (!IsObject(%obj))
return "";
if (IsObject(%obj.player))
%obj.player.pointdeflaser();
%obj.shieldsch = %obj.schedule(500,"antiMissile");
}
function ShapeBase::GetHoming(%obj)
{
if (!%obj.homingcount)
return "";
InitContainerRadiusSearch(%obj.getWorldBoxCenter(),75,-1);
while ((%target = ContainerSearchNext()) != 0)
{
if (MissileSet.isMember(%target))
{
if (%target.getTargetObject() == %obj)
{
return %target;
}
}
}
return "";
}
function MissileBarrelLarge::onFire(%data,%obj,%slot)
{
%p = Parent::onFire(%data,%obj,%slot);
Missileset.add(%p);
if (%obj.getControllingClient())
{
// a player is controlling the turret
%target = %obj.getLockedTarget();
}
else
{
// The ai is controlling the turret
%target = %obj.getTargetObject();
}
if(%target)
%p.setObjectTarget(%target);
else if(%obj.isLocked())
%p.setPositionTarget(%obj.getLockedPosition());
else
%p.setNoTarget(); // set as unguided. Only happens when itchy trigger can't wait for lock tone.
}
function ShapeBase::PointDefLaser(%obj)
{
if (%missile = %obj.getHoming())
{
%pos = %obj.getWorldboxCenter();
%result = Zaplos(%pos,%missile,0,%obj.owner);
if (GetWord(%result,0))
{
%lastpos = %missile.getWorldboxCenter();
schedule(100,0,"putscreen",%obj,%missile,%lastpos);
}
}
}
function putscreen(%obj,%missile,%lastpos)
{
%newpos = %missile.getWorldboxCenter();
%step = VectorSub(%lastpos,%newpos);
%pos = %obj.getWorldBoxCenter();
%obj.screen(VectorAdd(%pos,%step),VectorNormalize(%step));
}
function ShapeBase::ActiveShield(%obj)
{
cancel(%obj.shieldsch);
InitContainerRadiusSearch(%obj.getWorldBoxCenter(),50,-1);
echo("shield");
while ((%target = ContainerSearchNext()) != 0)
{
if (%obj.IsEnemy(%target.sourceobject))
{
%pos = %target.getWorldBoxCenter();
%dir = VectorNormalize(VectorSub(%obj.getWorldBoxCenter(),%pos));
%obj.schedule(10+%count*10,"screen",VectorAdd(%pos,%dir),%dir);
%count++;
}
}
%obj.shieldsch = %obj.schedule(100,"activeShield");
}
function ShieldTrack(%obj,%target,%lastpos)
{
if (!isObject(%obj) || !IsObject(%target))
return "";
%pos = %obj.getWorldBoxCenter();
%newpos = %target.getWorldBoxCenter();
%lastdist = VectorDist(%pos,%lastpos);
%newdist = VectorDist(%pos,%newpos);
if (%lastdist < %newdist)
return "";
if (%newdist < 30)
%obj.screen(%spos,%dir);
}
function ShapeBase::screen(%owner,%pos,%nrm)
{
cancel(%screen.del);
if (!ISObject(%owner.screen))
{
%screen = new ForceFieldBare()
{
DataBlock = DeployedForceField3;
scale = "5 5 0.1";
};
}
else
%screen = %owner.screen;
%left= VectorCross(%nrm,"0 0 1");
%up = VectorCross(%left,%nrm);
%offset = VectorScale(VectorAdd(%left,%up),-2.5);
%rot = Fullrot(%nrm,"0 0 1");
%screen.setTransform(VectorAdd(%pos,%offset) SPC %rot);
%owner.screen = %screen;
%screen.del = %screen.Schedule(500,"delete");
}
function LockedMissile(%pos,%dir,%obj)
{
%p = new SeekerProjectile() {
dataBlock = ShoulderMissile;
initialDirection = %dir;
initialPosition = %pos;
//sourceObject = "";
//sourceSlot = %obj.fireslot;
//vehicleObject = %obj;
};
//%p = Parent::onFire(%data, %obj, %slot);
MissileSet.add(%p);
%p.setObjectTarget(%obj);
}
/////////////////////////////////////////////////////////////
///////////////////////Camp//////////////////////////////////
/////////////////////////////////////////////////////////////
function Shapebase::startterrainscan(%obj,%type)
{
if (%type == 1)
{
%obj.terrainscan(2,0,180,1,0,20,50);
%obj.terrainscan(2,0,-180,-1,0,20,50);
%obj.maxresult = 2;
}
else if (%type == 2)
{
%obj.terrainscan(2,0,180,1,0,20,2000);
%obj.terrainscan(2,0,-180,-1,0,20,2000);
%obj.terrainscan(2,0,180,1,10,20,2000);
%obj.terrainscan(2,0,-180,-1,10,20,2000);
%obj.terrainscan(2,0,180,1,20,20,2000);
%obj.terrainscan(2,0,-180,-1,20,20,2000);
%obj.maxresult = 6;
}
else
%obj.terrainscan(2,0,360,1,0,20,50);
}
function Shapebase::terrainscan(%obj,%height,%startangle,%maxangle,%tick,%pitch,%minrange,%maxrange)
{
%pos = %obj.getWorldboxCenter();
%rot = %obj.getRotation();
%targeter = new StaticShape()
{
position = %pos;
rotation = %rot;
datablock = "LightningTarget";
};
%targeter.center = %obj;
%targeter.initialrot = GetWord(%rot,3)+mDegtoRad(%startangle);
%targeter.height = %height;
%targeter.maxangle = %maxangle;
%targeter.tick = %tick;
%targeter.pitch = mDegtoRad(%pitch);
%targeter.minrange = %minrange;
%targeter.maxrange = %maxrange;
%pointer = new TargetProjectile()
{
dataBlock = BasicTargeter;
initialDirection = "0 0 1";
initialPosition = "0 0 1";
sourceObject = %targeter;
damageFactor = 1;
sourceSlot = 0;
};
%targeter.pointer = %pointer;
%targeter.scandir(%tick);
}
function Shapebase::ScanDir(%obj,%dir)
{
//Aim beam
%rot = mDegToRad(%dir)+%obj.initialrot;
%rotation = rotadd("0 0 1" SPC %rot,"1 0 0" SPC %obj.pitch);
%vec = mSin(%rot)*mCos(%obj.pitch) SPC mCos(%rot)*mCos(%obj.pitch) SPC -1*mSin(%obj.pitch);
%offset = VectorAdd("0 0" SPC %obj.height,%vec);
%pos = VectorAdd(getTerrainHeight2(%obj.center.getWorldboxCenter()),%offset);
%obj.setTransform(%pos SPC %rotation);
///Cast terrain
%mask = $TypeMasks::TerrainObjectType | $TypeMasks::InteriorObjectType;
%res = ContainerRayCast(%pos,VectorAdd(%pos,VectorScale(%vec,%obj.maxrange)),%mask, %obj.center);
if ((!%res && %obj.maxrange) || VectorDist(%pos,GetWords(%res,1,3)) < %obj.minrange)
%obj.result++;
if (mAbs(%dir) >= mAbs(%obj.maxangle))
%obj.terrainscanned();
else
%obj.schedule(10,"Scandir",%dir+%obj.tick);
}
function Shapebase::terrainscanned(%obj)
{
%obj.center.result = stripEndSpaces(%obj.center.result SPC %obj.result);
%result = %obj.center.result;
if (getWordCount(%result) >= limit(%obj.center.maxresult,1))
{
echo(%result);
%obj.center.result = "";
}
%obj.pointer.delete();
%obj.delete();
}
Reference in a new issue View git blame Copy permalink