mirror of
https://github.com/Ragora/T2-ACCM.git
synced 2026-03-08 23:10:30 +00:00
Initial commit.
This commit is contained in:
Ragora
commit
f5a6cfce9b
262 changed files with 128936 additions and 0 deletions
722
Scripts/ModScripts/AI/DroneAI.cs
Normal file
722
Scripts/ModScripts/AI/DroneAI.cs
Normal file
|
|
@ -0,0 +1,722 @@
|
|||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
// Drone AI by Dondelium_X
|
||||
// CCM v3.4
|
||||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
$Drone::DetectDist = 500;
|
||||
$Drone::TurnImpulse = 123;
|
||||
$Drone::FrdImpulse = 525;
|
||||
//$Drone::TurnImpulse = 675 / 3;
|
||||
//$Drone::FrdImpulse = 525 * 3;
|
||||
$Drone::newTargetChance = "1 100";
|
||||
|
||||
$Drone::paths = 4;
|
||||
$Drone::path[1,1] = "0 1500 1000";
|
||||
$Drone::path[1,2] = "1500 0 1000";
|
||||
$Drone::path[1,3] = "0 -1500 1000";
|
||||
$Drone::path[1,4] = "-1500 0 1000";
|
||||
|
||||
$Drone::path[2,1] = "0 -1500 1000";
|
||||
$Drone::path[2,2] = "-1500 0 1000";
|
||||
$Drone::path[2,3] = "0 1500 1000";
|
||||
$Drone::path[2,4] = "1500 0 1000";
|
||||
|
||||
$Drone::path[3,1] = "0 2500 750";
|
||||
$Drone::path[3,2] = "0 2500 1250";
|
||||
$Drone::path[3,3] = "0 -2500 1250";
|
||||
$Drone::path[3,4] = "0 -2500 750";
|
||||
|
||||
$Drone::path[4,1] = "2500 0 750";
|
||||
$Drone::path[4,2] = "2500 0 1250";
|
||||
$Drone::path[4,3] = "-2500 0 1250";
|
||||
$Drone::path[4,4] = "-2500 0 750";
|
||||
|
||||
//-----Manuver Index-----
|
||||
|
||||
$flightManuvers::Behind[0] = Immelman;
|
||||
$flightManuvers::Behind[1] = HalfFlip;
|
||||
$flightManuvers::Behind[2] = BreakRight;
|
||||
$flightManuvers::Behind[3] = BreakLeft;
|
||||
$flightManuvers::Behind[4] = BarrelRoll;
|
||||
$flightManuvers::Behind[5] = WingWaggle;
|
||||
$flightManuvers::Behind[6] = Reversal;
|
||||
|
||||
|
||||
//-----Manuvers-----
|
||||
|
||||
//Immelman
|
||||
$flightManuver::Points[Immelman] = 5; //This signifies how many points are in the manuver
|
||||
$flightManuver::Point[Immelman,0] = "0 1 0 0 0 1"; //each point represents the 3 numbers of the vector of the desired forward vector,
|
||||
$flightManuver::Point[Immelman,1] = "0 0 1 0 -1 0"; //and then the 3 numbers of the vector for the desired Up vector
|
||||
$flightManuver::Point[Immelman,2] = "0 -1 0 0 0 -1";
|
||||
$flightManuver::Point[Immelman,3] = "0 -1 0 1 0 0";
|
||||
$flightManuver::Point[Immelman,4] = "0 -1 0 0 0 1";
|
||||
|
||||
//halfFlip
|
||||
$flightManuver::Points[HalfFlip] = 3;
|
||||
$flightManuver::Point[HalfFlip,0] = "0 1 0 0 0 1";
|
||||
$flightManuver::Point[HalfFlip,1] = "0 0 1 0 -1 0";
|
||||
$flightManuver::Point[HalfFlip,2] = "0 -1 0 0 0 -1";
|
||||
|
||||
//breakRight
|
||||
$flightManuver::Points[BreakRight] = 3;
|
||||
$flightManuver::Point[BreakRight,0] = "0 1 0 0 0 1";
|
||||
$flightManuver::Point[BreakRight,1] = "0 1 0 1 0 0";
|
||||
$flightManuver::Point[BreakRight,2] = "1 0 0 0 -1 0";
|
||||
|
||||
//BreakLeft
|
||||
$flightManuver::Points[BreakLeft] = 3;
|
||||
$flightManuver::Point[BreakLeft,0] = "0 1 0 0 0 1";
|
||||
$flightManuver::Point[BreakLeft,1] = "0 1 0 -1 0 0";
|
||||
$flightManuver::Point[BreakLeft,2] = "-1 0 0 0 -1 0";
|
||||
|
||||
//BarrelRoll
|
||||
$flightManuver::Points[BarrelRoll] = 5;
|
||||
$flightManuver::Point[BarrelRoll,0] = "0 1 0 0 0 1";
|
||||
$flightManuver::Point[BarrelRoll,1] = "0 1 0 1 0 0";
|
||||
$flightManuver::Point[BarrelRoll,2] = "0 1 0 0 0 -1";
|
||||
$flightManuver::Point[BarrelRoll,3] = "0 1 0 -1 0 0";
|
||||
$flightManuver::Point[BarrelRoll,4] = "0 1 0 0 0 1";
|
||||
|
||||
//WingWaggle
|
||||
$flightManuver::Points[WingWaggle] = 4;
|
||||
$flightManuver::Point[WingWaggle,0] = "0 1 0 0 0 1";
|
||||
$flightManuver::Point[WingWaggle,1] = "-1 1 0 0 0 1";
|
||||
$flightManuver::Point[WingWaggle,2] = "1 1 0 0 0 1";
|
||||
$flightManuver::Point[WingWaggle,3] = "0 1 0 0 0 1";
|
||||
|
||||
//Reversal
|
||||
$flightManuver::Points[Reversal] = 7;
|
||||
$flightManuver::Point[Reversal,0] = "0 1 0 0 0 1";
|
||||
$flightManuver::Point[Reversal,1] = "0 0 1 0 -1 0";
|
||||
$flightManuver::Point[Reversal,2] = "0 0 1 1 0 0";
|
||||
$flightManuver::Point[Reversal,3] = "1 0 0 0 0 -1";
|
||||
$flightManuver::Point[Reversal,4] = "0 0 -1 -1 0 0";
|
||||
$flightManuver::Point[Reversal,5] = "0 0 -1 0 1 0";
|
||||
$flightManuver::Point[Reversal,6] = "0 1 0 0 0 1";
|
||||
|
||||
//This is a function for mass spawning
|
||||
function DroneBattle(%pos, %radius, %number, %teamlow, %teamhigh, %maxskill){
|
||||
for(%i = 0; %i < %number; %i++){
|
||||
%startpos = vectorAdd(%pos,(getRandom(0, %radius) - (%radius / 2))@" "@(getRandom(0, %radius) - (%radius / 2))@" 0");
|
||||
%rotation = "0 0 1 "@getRandom(1,360);
|
||||
if(%teamlow != %teamhigh)
|
||||
%team = getRandom(%teamlow,%teamhigh);
|
||||
else
|
||||
%team = %teamlow;
|
||||
StartDrone(%startpos,%rotation,%team,getRandom(1,%maxskill));
|
||||
}
|
||||
}
|
||||
|
||||
//This sets up the drone and the functions needed to start the drone.
|
||||
function StartDrone(%pos, %rotation, %team, %skill){
|
||||
if(%team $= "")
|
||||
%team = 0;
|
||||
if(%pos $= "")
|
||||
%pos = "0 0 300";
|
||||
if(%rotation $= "")
|
||||
%rotation = "1 0 0 0";
|
||||
if(%skill !$= "ace"){
|
||||
if(%skill $= "" || %skill < 1)
|
||||
%skill = 1;
|
||||
else if(%skill > 10)
|
||||
%skill = 10;
|
||||
}
|
||||
%Drone = new FlyingVehicle()
|
||||
{
|
||||
dataBlock = ScoutFlyer;
|
||||
position = %pos;
|
||||
rotation = %rotation;
|
||||
team = %team;
|
||||
};
|
||||
MissionCleanUp.add(%Drone);
|
||||
|
||||
setTargetSensorGroup(%Drone.getTarget(), %team);
|
||||
|
||||
%drone.isdrone = 1;
|
||||
%drone.dodgeGround = 0;
|
||||
|
||||
if(%skill $= "ace"){
|
||||
%skill = 10;
|
||||
%drone.isace = 1;
|
||||
}
|
||||
|
||||
%drone.skill = 0.2 + (%skill / 12.5);
|
||||
|
||||
schedule(100, 0, "DroneForwardImpulse", %drone);
|
||||
schedule(101, 0, "DronefindTarget", %drone);
|
||||
schedule(102, 0, "DroneScanGround", %drone);
|
||||
|
||||
return %drone;
|
||||
}
|
||||
|
||||
//This makes the drone move forward until it dies
|
||||
function DroneForwardImpulse(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!%obj.isace){
|
||||
if(vectorLen(%obj.getVelocity()) < 165)
|
||||
%obj.applyImpulse(%obj.getPosition(),vectorScale(%obj.getForwardVector(),$Drone::FrdImpulse));
|
||||
}
|
||||
else{
|
||||
if(vectorLen(%obj.getVelocity()) < 225)
|
||||
%obj.applyImpulse(%obj.getPosition(),vectorScale(%obj.getForwardVector(),$Drone::FrdImpulse * 3));
|
||||
}
|
||||
schedule(100, 0, "DroneForwardImpulse", %obj);
|
||||
}
|
||||
|
||||
function DroneScanGround(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
%vec = %obj.getForwardVector();
|
||||
%vector = vectorAdd(%obj.getPosition(),"0 0 -500");
|
||||
%searchResult = containerRayCast(%obj.getWorldBoxCenter(), %vector, $TypeMasks::TerrainObjectType, %obj);
|
||||
if(%searchResult){
|
||||
%z = getWord(%vec,2);
|
||||
%height = vectorDist(%obj.getPosition(),posFromRaycast(%searchresult));
|
||||
if(%z < 0){
|
||||
if(%height <= (200 + ((%z * -1) * 300))){
|
||||
%obj.dodgeground = 1;
|
||||
schedule(100, 0, "DroneDodgeGround", %obj);
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
schedule(100, 0, "DroneScanGround", %obj);
|
||||
}
|
||||
|
||||
function DroneDodgeGround(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
%vec = %obj.getForwardVector();
|
||||
%z = getWord(%vec,2);
|
||||
if(%z > 0){
|
||||
%obj.dodgeground = 0;
|
||||
schedule(100, 0, "DronefindTarget", %obj);
|
||||
schedule(101, 0, "DroneScanGround", %obj);
|
||||
return;
|
||||
}
|
||||
%pos = vectorAdd(%obj.getPosition(),%vec);
|
||||
%obj.applyImpulse(%pos,vectorScale("0 0 1",$Drone::TurnImpulse * %obj.skill));
|
||||
schedule(100, 0, "DroneDodgeGround", %obj);
|
||||
}
|
||||
|
||||
//This function checks the area around it for any targets.
|
||||
function DronefindTarget(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
%pos = %obj.getposition();
|
||||
InitContainerRadiusSearch(%pos, $drone::detectdist + (800 + (600 * %obj.skill)), $TypeMasks::VehicleObjectType);
|
||||
while ((%searchResult = containerSearchNext()) != 0){
|
||||
%objtarget = firstWord(%searchResult);
|
||||
if(isObject(%objtarget) && %objTarget !$= %obj){
|
||||
%trgtype = %objtarget.getClassName();
|
||||
if(%trgtype $= "FlyingVehicle" && %objtarget.team != %obj.team){
|
||||
%testPos = %objtarget.getWorldBoxCenter();
|
||||
%distance = vectorDist(%objtarget.getPosition(),%pos);
|
||||
if (%distance > 0){
|
||||
%target = %objtarget;
|
||||
DroneDetermineManuver(%obj, %target);
|
||||
return;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
schedule(100, 0, "DronePatrol", %obj);
|
||||
}
|
||||
|
||||
function DronePatrol(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if($Drone::paths > 0){
|
||||
if(%obj.path $= ""){
|
||||
%obj.path = getRandom(1,$Drone::paths);
|
||||
%obj.point = 0;
|
||||
}
|
||||
%obj.point++;
|
||||
if($Drone::path[%obj.path,%obj.point] $= ""){
|
||||
schedule(100, 0, "DronefindTarget", %obj);
|
||||
%obj.path = "";
|
||||
%obj.point = "";
|
||||
}
|
||||
else
|
||||
schedule(100,0,"dronemovetopoint",%obj,$Drone::path[%obj.path,%obj.point]);
|
||||
}
|
||||
else
|
||||
schedule(500, 0, "DronefindTarget", %obj);
|
||||
}
|
||||
|
||||
function DroneMoveToPoint(%obj,%Tpos){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.dodgeground == 1)
|
||||
return;
|
||||
%pos = %obj.getPosition();
|
||||
%objfrd = %obj.getForwardVector();
|
||||
%objup = %obj.getUpVector();
|
||||
|
||||
%dist = vectorDist(%pos,%Tpos);
|
||||
%aimvec = vectorNormalize(vectorSub(%Tpos,%pos));
|
||||
|
||||
%vec = vectorSub(%aimvec , %objfrd);
|
||||
%vec = vectorCross(%vec, %objfrd);
|
||||
%vec = vectorNormalize(vectorCross(%objfrd, %vec));
|
||||
if(vectorDist(%objfrd,vectorNormalize(%aimvec)) < 0.1)
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),vectorScale(%objfrd,($Drone::TurnImpulse / 2))),%vec);
|
||||
else if(vectorDist(%objup, %vec) > 0.1){
|
||||
%vec = vectorSub(%vec, %objup);
|
||||
%vec = vectorCross(%vec, %objup);
|
||||
%vec = vectorNormalize(vectorCross(%objup, %vec));
|
||||
%pos = vectorAdd(%obj.getPosition(),vectorScale(%objup,$Drone::TurnImpulse * 3 * %obj.skill));
|
||||
%obj.applyImpulse(%pos,%vec);
|
||||
}
|
||||
else
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),%objfrd),vectorScale(%vec,$Drone::TurnImpulse * %obj.skill));
|
||||
if(getRandom(0,getWord($Drone::newTargetChance,1)) <= (getWord($Drone::newTargetChance,0) * 10))
|
||||
schedule(100, 0, "DronefindTarget", %obj, %target);
|
||||
else if(%dist < 25)
|
||||
schedule(100, 0, "DronePatrol", %obj);
|
||||
else
|
||||
schedule(100, 0, "DroneMoveToPoint", %obj, %tpos);
|
||||
}
|
||||
|
||||
//This function figures out what the drone should do from where the target is.
|
||||
function DroneDetermineManuver(%obj, %target){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
DronefindTarget(%obj);
|
||||
return;
|
||||
}
|
||||
%pos = %obj.getPosition();
|
||||
%Tpos = %Target.getPosition();
|
||||
%objfrd = %obj.getForwardVector();
|
||||
%trgfrd = %target.getForwardVector();
|
||||
%vec = vectorSub(%Tpos,%pos);
|
||||
%dirdist = vectorDist(%objfrd,vectorNormalize(%vec));
|
||||
%vecdist = vectorDist(%objfrd,%trgfrd);
|
||||
if(%dirdist > 1.41){
|
||||
if(%vecdist < 1.41 && vectorDist(%pos,%Tpos) < 2000){
|
||||
UnderFireManuver(%obj, $flightManuvers::Behind[getRandom(0,6)], "");
|
||||
}
|
||||
else
|
||||
TurnToFire(%obj, %target);
|
||||
}
|
||||
else
|
||||
TurnToFire(%obj, %target);
|
||||
%obj.target = %target;
|
||||
}
|
||||
|
||||
function TurnToFire(%obj, %target){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
DronefindTarget(%obj);
|
||||
return;
|
||||
}
|
||||
if(%obj.dodgeground == 1)
|
||||
return;
|
||||
|
||||
%pos = %obj.getPosition();
|
||||
%Tpos = %target.getPosition();
|
||||
%objfrd = %obj.getForwardVector();
|
||||
%trgfrd = %target.getForwardVector();
|
||||
%objup = %obj.getUpVector();
|
||||
%Tvel = %target.getVelocity();
|
||||
|
||||
%dist = vectorDist(%pos,%Tpos);
|
||||
%aimPos = vectorAdd(%Tpos, vectorScale(%Tvel,(%dist / 1750)));
|
||||
%aimvec = vectorNormalize(vectorSub(%aimPos,%pos));
|
||||
|
||||
if(vectorDist(%objfrd,%aimvec) < 0.1 && %dist <= 1000){
|
||||
if((vectorDist(%objfrd,%trgfrd) < 0.2 || vectorDist(%objfrd,%trgfrd) > 1.8) && %obj.missiling != 1){
|
||||
%obj.setImageTrigger(4, true);
|
||||
%obj.missiling = 1;
|
||||
}
|
||||
else if(%obj.missiling == 1){
|
||||
%obj.setImageTrigger(4, false);
|
||||
%obj.missiling = 0;
|
||||
}
|
||||
// if (%obj.firing != 1){
|
||||
%obj.setImageTrigger(2, true);
|
||||
%obj.setImageTrigger(3, true);
|
||||
%obj.firing = 1;
|
||||
// }
|
||||
}
|
||||
else{
|
||||
if(%obj.firing == 1){
|
||||
%obj.setImageTrigger(2, false);
|
||||
%obj.setImageTrigger(3, false);
|
||||
%obj.firing = 0;
|
||||
}
|
||||
if(%obj.missiling == 1){
|
||||
%obj.setImageTrigger(4, false);
|
||||
%obj.missiling = 0;
|
||||
}
|
||||
}
|
||||
%vec = vectorSub(%aimvec , %objfrd);
|
||||
%vec = vectorCross(%vec, %objfrd);
|
||||
%vec = vectorNormalize(vectorCross(%objfrd, %vec));
|
||||
if(vectorDist(%objfrd,%trgfrd) > 1.8 && %dist <= 120){
|
||||
%vec = vectorScale(%vec, -1);
|
||||
if(vectorDist(%objfrd,vectorNormalize(%aimvec)) > 1.8)
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),vectorScale(%objfrd,($Drone::TurnImpulse / 2))),%vec);
|
||||
else if(vectorDist(%objup, %vec) > 0.1){
|
||||
%vec = vectorSub(%vec, %objup);
|
||||
%vec = vectorCross(%vec, %objup);
|
||||
%vec = vectorNormalize(vectorCross(%objup, %vec));
|
||||
%pos = vectorAdd(%obj.getPosition(),vectorScale(%objup,$Drone::TurnImpulse * 3 * %obj.skill));
|
||||
%obj.applyImpulse(%pos,%vec);
|
||||
}
|
||||
else
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),%objfrd),vectorScale(%vec,$Drone::TurnImpulse * %obj.skill));
|
||||
}
|
||||
else if(vectorDist(%objfrd,vectorNormalize(%aimvec)) < 0.1)
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),vectorScale(%objfrd,($Drone::TurnImpulse / 2))),%vec);
|
||||
else if(vectorDist(%objup, %vec) > 0.1){
|
||||
%vec = vectorSub(%vec, %objup);
|
||||
%vec = vectorCross(%vec, %objup);
|
||||
%vec = vectorNormalize(vectorCross(%objup, %vec));
|
||||
%pos = vectorAdd(%obj.getPosition(),vectorScale(%objup,$Drone::TurnImpulse * 3 * %obj.skill));
|
||||
%obj.applyImpulse(%pos,%vec);
|
||||
}
|
||||
else
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),%objfrd),vectorScale(%vec,$Drone::TurnImpulse * %obj.skill));
|
||||
if(getRandom(0,getWord($Drone::newTargetChance,1)) <= getWord($Drone::newTargetChance,0))
|
||||
schedule(100, 0, "DronefindTarget", %obj, %target);
|
||||
else
|
||||
schedule(100, 0, "TurnToFire", %obj, %target);
|
||||
}
|
||||
|
||||
//This function preforms the manuver choosen in Determine Maunver function.
|
||||
function UnderFireManuver(%obj, %manuver, %point, %count){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.dodgeground == 1)
|
||||
return;
|
||||
if(%count $= "")
|
||||
%count = 0;
|
||||
if(%point $= ""){
|
||||
%point = 0;
|
||||
SetPointVectors(%obj, %manuver);
|
||||
}
|
||||
if(%count >= 30){
|
||||
schedule(100, 0, "DroneDetermineManuver", %obj, %obj.target);
|
||||
return;
|
||||
}
|
||||
%frdvec = %obj.getForwardVector();
|
||||
%upvec = %obj.getUpVector();
|
||||
if(vectorDist(%frdvec, %obj.pointvecfront[%point]) < 0.15 && vectorDist(%upvec, %obj.pointvectop[%point]) < 0.15){
|
||||
%point++;
|
||||
if(%point < $flightManuver::Points[%manuver])
|
||||
schedule(100, 0, "UnderFireManuver", %obj, %manuver, %point, 0);
|
||||
else
|
||||
schedule(100, 0, "DroneDetermineManuver", %obj, %obj.target);
|
||||
return;
|
||||
}
|
||||
if(vectorDist(%frdvec, %obj.pointvecfront[%point]) > 0.1){
|
||||
%vec = vectorSub(%obj.pointvecfront[%point], %frdvec);
|
||||
%vec = vectorCross(%vec, %frdvec);
|
||||
%vec = vectorCross(%frdvec, %vec);
|
||||
%obj.applyImpulse(vectorAdd(%obj.getPosition(),vectorScale(%frdvec,$Drone::TurnImpulse * %obj.skill)),%vec);
|
||||
}
|
||||
if(vectorDist(%upvec, %obj.pointvectop[%point]) > 0.1){
|
||||
%vec = vectorSub(%obj.pointvectop[%point], %upvec);
|
||||
%vec = vectorCross(%vec, %upvec);
|
||||
%vec = vectorCross(%upvec, %vec);
|
||||
%pos = vectorAdd(%obj.getPosition(),vectorScale(%upvec,$Drone::TurnImpulse * 3 * %obj.skill));
|
||||
%obj.applyImpulse(%pos,%vec);
|
||||
}
|
||||
%count++;
|
||||
schedule(100, 0, "UnderFireManuver", %obj, %manuver, %point, %count);
|
||||
}
|
||||
|
||||
//This function finds what vectors each point in the manuver is compaired to the drone.
|
||||
function SetPointVectors(%obj, %manuver){
|
||||
%up = %obj.getUpVector();
|
||||
%forward = %obj.getForwardVector();
|
||||
%right = vectorNormalize(vectorSub(%obj.getEdge("1 0 0"),%obj.getEdge("-1 0 0")));
|
||||
for(%i = 0; %i < $flightManuver::Points[%manuver]; %i++){
|
||||
%pointdir = $flightManuver::Point[%manuver, %i];
|
||||
%topvec = "0 0 0";
|
||||
%frontvec = "0 0 0";
|
||||
if(getWord(%pointdir, 0) > 0)
|
||||
%frontvec = vectorAdd(%frontvec, %right);
|
||||
else if(getWord(%pointdir, 0) < 0)
|
||||
%frontvec = vectorAdd(%frontvec, vectorScale(%right, -1));
|
||||
if(getWord(%pointdir, 1) > 0)
|
||||
%frontvec = vectorAdd(%frontvec, %forward);
|
||||
else if(getWord(%pointdir, 1) < 0)
|
||||
%frontvec = vectorAdd(%frontvec, vectorScale(%forward, -1));
|
||||
if(getWord(%pointdir, 2) > 0)
|
||||
%frontvec = vectorAdd(%frontvec, %up);
|
||||
else if(getWord(%pointdir, 2) < 0)
|
||||
%frontvec = vectorAdd(%frontvec, vectorScale(%up, -1));
|
||||
|
||||
if(getWord(%pointdir, 3) > 0)
|
||||
%topvec = vectorAdd(%topvec, %right);
|
||||
else if(getWord(%pointdir, 3) < 0)
|
||||
%topvec = vectorAdd(%topvec, vectorScale(%right, -1));
|
||||
if(getWord(%pointdir, 4) > 0)
|
||||
%topvec = vectorAdd(%topvec, %forward);
|
||||
else if(getWord(%pointdir, 4) < 0)
|
||||
%topvec = vectorAdd(%topvec, vectorScale(%forward, -1));
|
||||
if(getWord(%pointdir, 5) > 0)
|
||||
%topvec = vectorAdd(%topvec, %up);
|
||||
else if(getWord(%pointdir, 5) < 0)
|
||||
%topvec = vectorAdd(%topvec, vectorScale(%up, -1));
|
||||
|
||||
%obj.pointvecfront[%i] = vectorNormalize(%frontvec);
|
||||
%obj.pointvectop[%i] = vectorNormalize(%topvec);
|
||||
}
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
// Tank AI by Dondelium_X
|
||||
// CCM v3.4
|
||||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
$DTank::ForwardForce = 7000;
|
||||
$DTank::BackForce = 3000;
|
||||
$DTank::TurnForce = 2500;
|
||||
|
||||
function StartDTank(%pos,%team,%skill){
|
||||
if(%team $= "")
|
||||
%team = 0;
|
||||
if(%pos $= "")
|
||||
%pos = "0 0 300";
|
||||
if(%skill $= "" || %skill < 1)
|
||||
%skill = 1;
|
||||
else if(%skill > 10)
|
||||
%skill = 10;
|
||||
|
||||
%Drone = new HoverVehicle()
|
||||
{
|
||||
dataBlock = HeavyTank;
|
||||
position = %pos;
|
||||
rotation = "0 0 1 0";
|
||||
team = %team;
|
||||
};
|
||||
MissionCleanUp.add(%Drone);
|
||||
|
||||
setTargetSensorGroup(%Drone.getTarget(), %team);
|
||||
|
||||
%drone.skill = 0.6 + (%skill / 25);
|
||||
|
||||
schedule(100, 0, "DTankScanTargets",%drone);
|
||||
}
|
||||
|
||||
function DTankScanTargets(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
%pos = %obj.getposition();
|
||||
%closestClient = -1;
|
||||
%closestDistance = 32767;
|
||||
%scandist = 2000 * %obj.skill;
|
||||
%airtrgs = "";
|
||||
%groundtrgs = "";
|
||||
%inftrgs = "";
|
||||
InitContainerRadiusSearch(%pos, %scanDist, $TypeMasks::VehicleObjectType | $TypeMasks::PlayerObjectType);
|
||||
while ((%searchResult = containerSearchNext()) != 0){
|
||||
%objtarget = firstWord(%searchResult);
|
||||
if(isObject(%objtarget) && %objTarget !$= %obj && %objtarget.team != %obj.team){
|
||||
%trgtype = %objtarget.getClassName();
|
||||
if(%trgtype $= "FlyingVehicle")
|
||||
%airtrgs = %airtrgs SPC %objtarget;
|
||||
else if(%trgtype $= "HoverVehicle")
|
||||
%groundtrgs = %groundtrgs SPC %objtarget;
|
||||
else if(%trgtype $= "Player")
|
||||
%inftrgs = %inftrgs SPC %objtarget;
|
||||
}
|
||||
}
|
||||
if(%groundtrgs){
|
||||
%target = firstWord(%groundtrgs);
|
||||
%groundtrgs = getWords(%groundtrgs,1,4);
|
||||
DTankGroundCombat(%obj, %target,%groundtrgs);
|
||||
}
|
||||
else if(%inftrgs){
|
||||
%target = firstWord(%inftrgs);
|
||||
%inftrgs = getWords(%inftrgs,1,4);
|
||||
DTankInfCombat(%obj, %target,%inftrgs);
|
||||
}
|
||||
else if(%airtrgs){
|
||||
%target = firstWord(%airtrgs);
|
||||
%airtrgs = getWords(%airtrgs,1,4);
|
||||
DTankAACombat(%obj, %target,%airtrgs);
|
||||
}
|
||||
else{
|
||||
schedule(3000, 0, "DTankScanTargets", %obj);
|
||||
}
|
||||
}
|
||||
|
||||
function DTankGroundCombat(%obj, %target, %Trglist){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
%obj.turretobject.setImageTrigger(4,false);
|
||||
%obj.firing = "";
|
||||
if(%TrgList){
|
||||
%target = firstWord(%Trglist);
|
||||
%trglist = getWords(%trglist,1,4);
|
||||
}
|
||||
else{
|
||||
DTankScanTargets(%obj);
|
||||
return;
|
||||
}
|
||||
}
|
||||
%pos = %obj.getPosition();
|
||||
%tpos = %target.getPosition();
|
||||
%frdvec = vectorNormalize(getWords(%obj.getForwardVector(),0,1) SPC "0");
|
||||
%chkvec = vectorSub(%tpos,%pos);
|
||||
%chkvec = vectorNormalize(getWords(%chkvec,0,1) SPC "0");
|
||||
%turnvec = vectorsub(%chkvec,%frdvec);
|
||||
%vecdif = vectorlen(%turnvec);
|
||||
if(vectorDist(%pos,%tpos) > 2000){
|
||||
if(%obj.firing){
|
||||
%obj.firing = "";
|
||||
%obj.turret.setImageTrigger(4,false);
|
||||
}
|
||||
%target = "";
|
||||
}
|
||||
else if(vectorDist(%pos,%tpos) > 500){
|
||||
if(%vecdif >= "0.1"){
|
||||
%vec = vectorCross(%turnvec, %frdvec);
|
||||
%vec = vectorNormalize(vectorCross(%obj.getForwardVector(), %vec));
|
||||
%Imppos = vectorAdd(%pos,%obj.getForwardVector());
|
||||
%obj.applyImpulse(%Imppos,vectorScale(%vec,$DTank::TurnForce * %obj.skill));
|
||||
}
|
||||
}
|
||||
else{
|
||||
if(!%obj.firing){
|
||||
%obj.firing = 1;
|
||||
%obj.turretobject.firetype = 3;
|
||||
%obj.turretobject.setTargetObject(%Target);
|
||||
%obj.turretobject.aquireTime = getSimTime();
|
||||
%obj.turretobject.setImageTrigger(4,true);
|
||||
}
|
||||
if(%vecdif < "1.2" || %vecdif >= "1.6"){
|
||||
%Tvec1 = vectorNormalize(vectorcross(%chkvec,"0 0 1"));
|
||||
%Tvec2 = vectorScale(%Tvec1,-1);
|
||||
if(vectordist(%frdvec,%Tvec1) < vectorDist(%frdvec,%Tvec2))
|
||||
%tovec = vectorSub(%Tvec1,%frdvec);
|
||||
else
|
||||
%tovec = vectorSub(%Tvec2,%frdvec);
|
||||
%vec = vectorCross(%Tvec2, %frdvec);
|
||||
%vec = vectorNormalize(vectorCross(%obj.getForwardVector(), %vec));
|
||||
%Imppos = vectorAdd(%pos,%obj.getForwardVector());
|
||||
%obj.applyImpulse(%Imppos,vectorScale(%vec,$DTank::TurnForce * %obj.skill));
|
||||
}
|
||||
}
|
||||
%obj.applyImpulse(%pos,vectorScale(%obj.getForwardVector(),$DTank::ForwardForce));
|
||||
schedule(100, 0, "DTankGroundCombat",%obj,%target,%Trglist);
|
||||
}
|
||||
|
||||
function DTankAACombat(%obj, %target, %Trglist){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
%obj.turretobject.setImageTrigger(2,false);
|
||||
%obj.firing = "";
|
||||
if(%TrgList){
|
||||
%target = firstWord(%Trglist);
|
||||
%trglist = getWords(%trglist,1,4);
|
||||
}
|
||||
else{
|
||||
DTankScanTargets(%obj);
|
||||
return;
|
||||
}
|
||||
}
|
||||
%pos = %obj.getPosition();
|
||||
%tpos = %target.getPosition();
|
||||
if(vectorDist(%pos,%tpos) < 750){
|
||||
if(!%obj.firing){
|
||||
%obj.firing = 1;
|
||||
%obj.turretobject.setTargetObject(%Target);
|
||||
%obj.turretobject.aquireTime = getSimTime();
|
||||
%obj.turretobject.setImageTrigger(2,true);
|
||||
}
|
||||
}
|
||||
else if(vectorDist(%pos,%tpos) > 2000){
|
||||
if(%obj.firing){
|
||||
%obj.firing = "";
|
||||
%obj.turretobject.setImageTrigger(2,false);
|
||||
}
|
||||
%target = "";
|
||||
}
|
||||
schedule(100, 0, "DTankAACombat",%obj,%target,%Trglist);
|
||||
}
|
||||
|
||||
function DTankInfCombat(%obj, %target, %Trglist){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target) || %target.getState() $= "dead"){
|
||||
%obj.turretobject.setImageTrigger(3,false);
|
||||
%obj.firing = "";
|
||||
if(%TrgList){
|
||||
%target = firstWord(%Trglist);
|
||||
%trglist = getWords(%trglist,1,4);
|
||||
}
|
||||
else{
|
||||
DTankScanTargets(%obj);
|
||||
return;
|
||||
}
|
||||
}
|
||||
%pos = %obj.getPosition();
|
||||
%tpos = %target.getPosition();
|
||||
%frdvec = vectorNormalize(getWords(%obj.getForwardVector(),0,1) SPC "0");
|
||||
%chkvec = vectorSub(%tpos,%pos);
|
||||
%chkvec = vectorNormalize(getWords(%chkvec,0,1) SPC "0");
|
||||
%turnvec = vectorsub(%chkvec,%frdvec);
|
||||
%vecdif = vectorlen(%turnvec);
|
||||
if(vectorDist(%pos,%tpos) > 2000){
|
||||
if(%obj.firing){
|
||||
%obj.firing = "";
|
||||
%obj.turret.setImageTrigger(3,false);
|
||||
}
|
||||
%target = "";
|
||||
}
|
||||
else if(vectorDist(%pos,%tpos) > 300){
|
||||
if(%vecdif >= "0.1"){
|
||||
%vec = vectorCross(%turnvec, %frdvec);
|
||||
%vec = vectorNormalize(vectorCross(%obj.getForwardVector(), %vec));
|
||||
%Imppos = vectorAdd(%pos,%obj.getForwardVector());
|
||||
%obj.applyImpulse(%Imppos,vectorScale(%vec,$DTank::TurnForce * %obj.skill));
|
||||
}
|
||||
}
|
||||
else{
|
||||
if(!%obj.firing){
|
||||
%obj.firing = 1;
|
||||
%obj.turretobject.firetype = 1;
|
||||
%obj.turretobject.setTargetObject(%Target);
|
||||
%obj.turretobject.aquireTime = getSimTime();
|
||||
%obj.turretobject.setImageTrigger(3,true);
|
||||
}
|
||||
if(vectorDist(%pos,%tpos) < 100){
|
||||
if(%vecdif <= "1.6"){
|
||||
%vec = vectorCross(%turnvec, %frdvec);
|
||||
%vec = vectorNormalize(vectorCross(%obj.getForwardVector(), %vec));
|
||||
%Imppos = vectorAdd(%pos,%obj.getForwardVector());
|
||||
%obj.applyImpulse(%Imppos,vectorScale(%vec,$DTank::TurnForce * %obj.skill * "-1"));
|
||||
}
|
||||
}
|
||||
else {
|
||||
if(%vecdif < "1.2" || %vecdif >= "1.6"){
|
||||
%Tvec1 = vectorNormalize(vectorcross(%chkvec,"0 0 1"));
|
||||
%Tvec2 = vectorScale(%Tvec1,-1);
|
||||
if(vectordist(%frdvec,%Tvec1) < vectorDist(%frdvec,%Tvec2))
|
||||
%tovec = vectorSub(%Tvec1,%frdvec);
|
||||
else
|
||||
%tovec = vectorSub(%Tvec2,%frdvec);
|
||||
%vec = vectorCross(%Tvec2, %frdvec);
|
||||
%vec = vectorNormalize(vectorCross(%obj.getForwardVector(), %vec));
|
||||
%Imppos = vectorAdd(%pos,%obj.getForwardVector());
|
||||
%obj.applyImpulse(%Imppos,vectorScale(%vec,$DTank::TurnForce * %obj.skill));
|
||||
}
|
||||
}
|
||||
}
|
||||
%obj.applyImpulse(%pos,vectorScale(%obj.getForwardVector(),$DTank::ForwardForce));
|
||||
schedule(100, 0, "DTankInfCombat",%obj,%target,%Trglist);
|
||||
}
|
||||
283
Scripts/ModScripts/AI/S11AI.cs
Normal file
283
Scripts/ModScripts/AI/S11AI.cs
Normal file
|
|
@ -0,0 +1,283 @@
|
|||
$S11manuverforce = 75;
|
||||
$S11flyforce = 350;
|
||||
$S11forwardspeed = 120;
|
||||
$S11hoverheight = 3;
|
||||
$S11hoverforce = 100;
|
||||
$S11reconheight = "450 550";
|
||||
$S11reconradius = 700;
|
||||
|
||||
$S11[move] = "TAKEOFF MOVE LAND IDLE";
|
||||
$S11[guard] = "TAKEOFF RECON";
|
||||
$S11[attack] = "TAKEOFF MOE FIRE MOVE LAND IDLE";
|
||||
$S11[rearm] = "TAKEOFF MOVE LAND REARM TAKEOFF MOVE LAND IDLE";
|
||||
|
||||
function S11Think(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.tasks !$= ""){
|
||||
%task = getWord(%obj.tasks,0);
|
||||
%fun = "S11"@%task;
|
||||
%obj.mode = %task;
|
||||
if(%obj.specvar[%task] !$= "")
|
||||
schedule(10, 0, %fun, %obj, %obj.specvar[%task]);
|
||||
else
|
||||
schedule(10, 0, %fun, %obj);
|
||||
}
|
||||
else{
|
||||
%obj.mode = "IDLE";
|
||||
S11IDLE(%obj);
|
||||
}
|
||||
}
|
||||
|
||||
function S11IDLE(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "IDLE")
|
||||
return;
|
||||
|
||||
%pos = %obj.getPosition();
|
||||
%mask = $TypeMasks::InteriorObjectType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType | $TypeMasks::TerrainObjectType;
|
||||
%vector = vectorAdd(%pos,vectorScale("0 0 -1",$S11hoverheight));
|
||||
%searchResult = containerRayCast(%pos, %vector, %mask, %obj);
|
||||
if(%searchresult){
|
||||
%obj.applyImpulse(%pos,vectorScale("0 0 1",$S11hoverforce));
|
||||
}
|
||||
|
||||
schedule(100, 0, "S11IDLE", %obj);
|
||||
}
|
||||
|
||||
function S11TAKEOFF(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "TAKEOFF")
|
||||
return;
|
||||
%pos = %obj.getPosition();
|
||||
%mask = $TypeMasks::InteriorObjectType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType | $TypeMasks::TerrainObjectType;
|
||||
%vector = vectorAdd(%pos,"0 0 -20");
|
||||
%searchResult = containerRayCast(%pos, %vector, %mask, %obj);
|
||||
if(%searchresult)
|
||||
%obj.applyImpulse(%pos,"0 0 200");
|
||||
else{
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
schedule(100, 0, "S11TAKEOFF", %obj);
|
||||
}
|
||||
|
||||
function S11LAND(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "LAND")
|
||||
return;
|
||||
|
||||
%pos = %obj.getPosition();
|
||||
%mask = $TypeMasks::InteriorObjectType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType | $TypeMasks::TerrainObjectType;
|
||||
%vector = vectorAdd(%pos,"0 0" SPC (-10 - $S11hoverheight));
|
||||
%searchResult = containerRayCast(%pos, %vector, %mask, %obj);
|
||||
if(%searchresult){
|
||||
%dist = vectorDist(%pos,posfromraycast(%searchresult));
|
||||
if(%dist <= $S11hoverheight){
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
%speed = vectorScale("0 0 -1",%dist);
|
||||
%obj.setVelocity(%speed);
|
||||
}
|
||||
else{
|
||||
%vel = %obj.getVelocity();
|
||||
%reqvel = "0 0 -15";
|
||||
%impvec = vectorScale(vectorSub(%reqvel,%vel),%obj.getDatablock().mass);
|
||||
%obj.applyImpulse(%pos,%impvec);
|
||||
}
|
||||
schedule(100, 0, "S11LAND", %obj);
|
||||
}
|
||||
|
||||
function S11MOVE(%obj, %movepos){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "MOVE")
|
||||
return;
|
||||
|
||||
%pos = %obj.getPosition();
|
||||
%mask = $TypeMasks::InteriorObjectType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType | $TypeMasks::TerrainObjectType;
|
||||
%vector = vectorAdd(%pos,"0 0 -150");
|
||||
%searchResult = containerRayCast(%pos, %vector, %mask, %obj);
|
||||
%vec = "0 0 0";
|
||||
%frd = %obj.getForwardVector();
|
||||
if(vectorlen(%obj.getVelocity()) <= $S11forwardspeed)
|
||||
%vec = vectorScale(%frd,$S11flyforce);
|
||||
if(%searchresult)
|
||||
%vec = vectorAdd(%vec,"0 0 150");
|
||||
%tstpos = getWords(%movepos,0,1) SPC getWord(%pos,2);
|
||||
%dist = vectorDist(%tstpos,%pos);
|
||||
if(%dist > 10){
|
||||
%aimvec = vectorSub(%tstpos,%pos);
|
||||
%tvec = vectorNormalize(vectorCross(%aimvec, %frd));
|
||||
%tvec = vectorNormalize(vectorCross(%frd, %tvec));
|
||||
%obj.applyImpulse(vectorAdd(%pos,%frd),vectorScale(%tvec,$S11manuverforce));
|
||||
}
|
||||
else{
|
||||
if(%obj.specvar["MOVE",2] !$= ""){
|
||||
%obj.specvar["MOVE"] = %obj.specvar["MOVE",2];
|
||||
%obj.specvar["MOVE",2] = "";
|
||||
}
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
%obj.applyImpulse(%pos,%vec);
|
||||
schedule(100, 0, "S11MOVE",%obj,%movepos);
|
||||
}
|
||||
|
||||
function S11RECON(%obj,%reconPos){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "RECON")
|
||||
return;
|
||||
|
||||
%pos = %obj.getPosition();
|
||||
%mask = $TypeMasks::InteriorObjectType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType | $TypeMasks::TerrainObjectType;
|
||||
%vector = vectorAdd(%pos,"0 0 -1000");
|
||||
%searchResult = containerRayCast(%pos, %vector, %mask, %obj);
|
||||
if(%searchresult){
|
||||
%frd = %obj.getForwardVector();
|
||||
%vec = "0 0 0";
|
||||
if(vectorlen(%obj.getVelocity()) <= $S11forwardspeed)
|
||||
%vec = vectorScale(%frd,$S11flyforce);
|
||||
%dist = vectorDist(%pos,posfromraycast(%searchresult));
|
||||
if(%dist < getWord($S11reconheight,0))
|
||||
%vec = vectorAdd(%vec,"0 0 450");
|
||||
if(%dist > getWord($S11reconheight,1))
|
||||
%vec = vectorAdd(%vec,"0 0 -450");
|
||||
|
||||
%tstpos = getWords(%reconPos,0,1) SPC getWord(%pos,2);
|
||||
%dist = vectorDist(%tstpos,%pos);
|
||||
if(%dist > $S11reconradius){
|
||||
%aimvec = vectorSub(%tstpos,%pos);
|
||||
%tvec = vectorNormalize(vectorCross(%aimvec, %frd));
|
||||
%tvec = vectorNormalize(vectorCross(%frd, %tvec));
|
||||
%obj.applyImpulse(vectorAdd(%pos,%frd),vectorScale(%tvec,$S11manuverforce));
|
||||
}
|
||||
%obj.applyImpulse(%pos,%vec);
|
||||
}
|
||||
else{
|
||||
%vel = %obj.getVelocity();
|
||||
%reqvel = "0 0 -50";
|
||||
%impvec = vectorScale(vectorSub(%reqvel,%vel),%obj.getDatablock().mass);
|
||||
%obj.applyImpulse(%pos,%impvec);
|
||||
}
|
||||
schedule(100, 0, "S11RECON",%obj,%reconpos);
|
||||
}
|
||||
|
||||
function S11MOE(%obj,%target){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "MOE")
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
|
||||
%pos = %obj.getPosition();
|
||||
%frd = %obj.getForwardVector();
|
||||
%mask = $TypeMasks::InteriorObjectType | $TypeMasks::StaticShapeObjectType | $TypeMasks::ForceFieldObjectType | $TypeMasks::TerrainObjectType;
|
||||
%vector = vectorAdd(%pos,vectorScale(%frd,100));
|
||||
%searchResult = containerRayCast(%pos, %vector, %mask, %obj);
|
||||
if(!%searchResult){
|
||||
%tstvec = vectorAdd(%vector,"0 0 -50");
|
||||
%searchResult2 = containerRayCast(%vector, %tstvec, %mask, %obj);
|
||||
if(%searchResult2)
|
||||
%dir = "1";
|
||||
else
|
||||
%dir = "-1";
|
||||
}
|
||||
else
|
||||
%dir = "2";
|
||||
|
||||
%impvec = vectorScale(%obj.getUpVector(),$S11manuverforce * %dir);
|
||||
|
||||
%Tpos = %target.getPosition();
|
||||
%tstpos = getWords(%TPos,0,1) SPC getWord(%pos,2);
|
||||
%aimvec = VectorNormalize(vectorSub(%tstpos,%pos));
|
||||
%dist = vectorDist(%frd,%aimvec);
|
||||
if(%dist > 0.1){
|
||||
%aimvec = vectorSub(%tstpos,%pos);
|
||||
%tvec = vectorNormalize(vectorCross(%aimvec, %frd));
|
||||
%tvec = vectorNormalize(vectorCross(%frd, %tvec));
|
||||
%impvec = vectorAdd(%impvec,vectorScale(%tvec,$S11manuverforce));
|
||||
}
|
||||
if(vectorDist(%pos, %Tpos) < 500){
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
|
||||
%obj.applyImpulse(vectorAdd(%pos,%frd),%impvec);
|
||||
if(vectorlen(%obj.getVelocity()) <= $S11forwardspeed)
|
||||
%obj.applyImpulse(%pos,vectorScale(%obj.getForwardVector(),$S11flyforce));
|
||||
|
||||
schedule(100, 0, "S11MOE", %obj,%target);
|
||||
}
|
||||
|
||||
function S11REARM(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "REARM")
|
||||
return;
|
||||
|
||||
%obj.setVelocity("0 0 0");
|
||||
|
||||
if (%obj.turret.inv[AALauncherAmmo] < 1)
|
||||
%obj.turret.setInventory(AALauncherAmmo, 1);
|
||||
else if(%DamageLevel > 0)
|
||||
%obj.setRepairRate(0.01);
|
||||
else {
|
||||
%obj.setRepairRate(0);
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
|
||||
schedule(100, 0, "S11REARM", %obj, %target);
|
||||
}
|
||||
|
||||
function S11FIRE(%obj,%target){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "FIRE")
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
%turret = %obj.turret;
|
||||
if(%turret.inv[AALauncherAmmo] >= 1){
|
||||
%turret.target = %target;
|
||||
if(%obj.aiming != 1){
|
||||
%obj.aiming = 1;
|
||||
%turret.setTargetObject(%target);
|
||||
%turret.aquireTime = getSimTime();
|
||||
%turret.setImageTrigger(2,true);
|
||||
}
|
||||
else if(isObject(%turret.TLB)){
|
||||
%turret.setImageTrigger(3,true);
|
||||
}
|
||||
}
|
||||
else{
|
||||
%obj.aiming = 0;
|
||||
%turret.setImageTrigger(2,false);
|
||||
%turret.setImageTrigger(3,false);
|
||||
%obj.tasks = getWords(%obj.tasks,1,(getNumberOfWords(%obj.tasks) - 1));
|
||||
S11Think(%obj);
|
||||
return;
|
||||
}
|
||||
%frd = %obj.getForwardVector();
|
||||
%impvec = vectorAdd(vectorScale(%frd,$S11flyforce),"0 0 150");
|
||||
if(vectorlen(%obj.getVelocity()) <= $S11forwardspeed)
|
||||
%obj.applyImpulse(%obj.getPosition(),%impvec);
|
||||
schedule(100, 0, "S11FIRE", %obj, %target);
|
||||
}
|
||||
107
Scripts/ModScripts/AI/S17AI.cs
Normal file
107
Scripts/ModScripts/AI/S17AI.cs
Normal file
|
|
@ -0,0 +1,107 @@
|
|||
$S17moveforce = 500;
|
||||
|
||||
function S17Think(%obj){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.task !$= ""){
|
||||
%task = %obj.task;
|
||||
%fun = "S17"@%task;
|
||||
%obj.mode = %task;
|
||||
cancel(%obj.loop);cancel(%obj.loop);cancel(%obj.loop);
|
||||
if(%obj.specvar[%task] !$= "")
|
||||
%obj.loop = schedule(10, 0, %fun, %obj, %obj.specvar[%task]);
|
||||
else
|
||||
%obj.loop = schedule(10, 0, %fun, %obj);
|
||||
}
|
||||
}
|
||||
|
||||
function S17GUARD(%obj,%pos){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
%obj.mode = "MOVE";
|
||||
S17MOVE(%obj,%pos);
|
||||
}
|
||||
|
||||
function S17MOVE(%obj,%pos){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(%obj.mode !$= "MOVE")
|
||||
return;
|
||||
|
||||
%objpos = %obj.getPosition();
|
||||
%dist = vectorDist(%pos,%objpos);
|
||||
if(%dist > 10){
|
||||
%vec = vectorNormalize(vectorSub(%pos,%objpos));
|
||||
%vec = vectorScale(%vec,$S17moveforce);
|
||||
%obj.applyImpulse(%objpos,%vec);
|
||||
}
|
||||
else
|
||||
return;
|
||||
%obj.loop = schedule(100, 0, "S17MOVE",%obj,%pos);
|
||||
}
|
||||
|
||||
function S17ATTACK(%obj,%target){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
%obj.val = "";
|
||||
return;
|
||||
}
|
||||
if(%obj.mode !$= "ATTACK"){
|
||||
%obj.val = "";
|
||||
return;
|
||||
}
|
||||
|
||||
%objpos = %obj.getPosition();
|
||||
%trgpos = %target.getPosition();
|
||||
%dist = vectorDist(%trgpos,%objpos);
|
||||
if(%dist > 100){
|
||||
%vec = vectorNormalize(vectorSub(%pos,%objpos));
|
||||
%vec = vectorScale(%vec,$S17moveforce);
|
||||
%obj.applyImpulse(%objpos,%vec);
|
||||
}
|
||||
else {
|
||||
%vec = vectorSub(%trgpos,%objpos);
|
||||
%random = getRandom(1,2);
|
||||
if(%obj.val $= ""){
|
||||
if(%random == 1)
|
||||
%obj.val = "0 0 -1";
|
||||
else
|
||||
%obj.val = "0 0 1";
|
||||
}
|
||||
%vec = vectorNormalize(vectorCross(%vec,%val));
|
||||
%vec = vectorScale(%vec,$S17moveforce);
|
||||
%obj.applyImpulse(%objpos,%vec);
|
||||
}
|
||||
%obj.loop = schedule(100, 0, "S17ATTACK",%obj,%target);
|
||||
}
|
||||
|
||||
function S17REARM(%obj,%target){
|
||||
if(!isObject(%obj))
|
||||
return;
|
||||
if(!isObject(%target)){
|
||||
%target.setRepairRate(0);
|
||||
return;
|
||||
}
|
||||
if(%obj.mode !$= "REARM"){
|
||||
%target.setRepairRate(0);
|
||||
return;
|
||||
}
|
||||
|
||||
%objpos = %obj.getPosition();
|
||||
%trgpos = %target.getPosition();
|
||||
%dist = vectorDist(%trgpos,%objpos);
|
||||
%DamageLevel = %targetObject.getDamageLevel();
|
||||
if(%dist > 6){
|
||||
%vec = vectorNormalize(vectorCross(%vec,%val));
|
||||
%vec = vectorScale(%vec,$S17moveforce);
|
||||
%obj.applyImpulse(%objpos,%vec);
|
||||
}
|
||||
else if(%DamageLevel > 0)
|
||||
%obj.setRepairRate(0.01);
|
||||
else {
|
||||
%obj.setRepairRate(0);
|
||||
return;
|
||||
}
|
||||
%obj.loop = schedule(100, 0, "S17ATTACK",%obj,%target);
|
||||
}
|
||||
71
Scripts/ModScripts/AI/SentinelAI.cs
Normal file
71
Scripts/ModScripts/AI/SentinelAI.cs
Normal file
|
|
@ -0,0 +1,71 @@
|
|||
$sent::patrolwaittime = 10; // 10 secs
|
||||
$sent::patrolsaturation = 2; // 2 sentinel patrolling one point at a time
|
||||
|
||||
// 1 = Normal Sentinel
|
||||
// 2 = Sentinel Monitor
|
||||
|
||||
//==============================================================================
|
||||
// CreateSentinel
|
||||
//------------------------------------------------------------------------------
|
||||
// %pos = position
|
||||
// %team = team
|
||||
// %quantity = how many sentinels to spawn
|
||||
// %type = the type of sentinel to spawn [regular/monitor]
|
||||
//------------------------------------------------------------------------------
|
||||
// It creates a sentinel.
|
||||
//==============================================================================
|
||||
function CreateSentinel(%pos, %quantity, %type)
|
||||
{
|
||||
if(%quantity < 1)
|
||||
return;
|
||||
|
||||
while(%quantity)
|
||||
{
|
||||
%data = (%type == 2 ? "SentinelMonitor" : "SentinelVehicle");
|
||||
%sent = new FlyingVehicle() {
|
||||
datablock = %data;
|
||||
};
|
||||
|
||||
%sent.setTransform(%pos SPC "0 0 1 0");
|
||||
%sent.team = 1;
|
||||
|
||||
MissionCleanup.add(%sent);
|
||||
|
||||
setTargetSensorGroup(%sent.getTarget(), 1);
|
||||
|
||||
$ignoreNextBotConnection = true;
|
||||
%ai = aiConnect("_AISent");
|
||||
ChangeName(%ai, "Sentinel"@%ai);
|
||||
|
||||
%ai.isSentinel = true;
|
||||
%ai.sentVehicle = %sent;
|
||||
%ai.sentinelType = %type;
|
||||
|
||||
%ai.setControlObject(%sent);
|
||||
|
||||
// SentinelAI_PatrolArea(%ai);
|
||||
warn("Sentinel created: "@%ai@", VEHID"@%sent);
|
||||
%quantity--;
|
||||
}
|
||||
}
|
||||
|
||||
function DropSentinel(%id)
|
||||
{
|
||||
if(!isObject(%id) || %id.isSentinel != true)
|
||||
return;
|
||||
|
||||
if(isObject(%id.sentVehicle) && %id.sentVehicle.getDamageState() !$= "Destroyed")
|
||||
%id.sentVehicle.setDamageState(Destroyed);
|
||||
|
||||
%id.drop();
|
||||
}
|
||||
|
||||
function AIConnection::Sentinel_MoveTo(%client, %coords)
|
||||
{
|
||||
%client.clearStep();
|
||||
|
||||
%client.setPilotAim(%coords);
|
||||
%client.setPilotDestination(%coords);
|
||||
}
|
||||
|
||||
function AIConnection::Sentinel_Damaged
|
||||
654
Scripts/ModScripts/AI/SentinelData.cs
Normal file
654
Scripts/ModScripts/AI/SentinelData.cs
Normal file
|
|
@ -0,0 +1,654 @@
|
|||
//==============================================================================
|
||||
// Sentinel Data - Made by Blnukem
|
||||
//==============================================================================
|
||||
// Sentinel Sounds
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
datablock EffectProfile(SentinelTurretSwitchEffect)
|
||||
{
|
||||
effectname = "powered/turret_light_activate";
|
||||
minDistance = 2.5;
|
||||
maxDistance = 5.0;
|
||||
};
|
||||
|
||||
datablock EffectProfile(SentinelTurretFireEffect)
|
||||
{
|
||||
filename = "fx/vehicles/tank_chaingun.wav";
|
||||
minDistance = 2.5;
|
||||
maxDistance = 8.0;
|
||||
};
|
||||
|
||||
datablock EffectProfile(SentinelDeactivateEffect)
|
||||
{
|
||||
effectname = "powered/turret_heavy_reload";
|
||||
minDistance = 2.5;
|
||||
maxDistance = 5.0;
|
||||
};
|
||||
|
||||
datablock EffectProfile(SentinelActivateEffect)
|
||||
{
|
||||
effectname = "powered/turret_light_reload";
|
||||
minDistance = 2.5;
|
||||
maxDistance = 5.0;
|
||||
};
|
||||
|
||||
datablock EffectProfile(SentinelIdleEffect)
|
||||
{
|
||||
effectname = "powered/turret_light_idle";
|
||||
minDistance = 1;
|
||||
maxDistance = 2;
|
||||
};
|
||||
|
||||
datablock AudioProfile(SentinelTurretSwitchSound)
|
||||
{
|
||||
filename = "fx/powered/turret_light_activate.wav";
|
||||
description = AudioClose3d;
|
||||
preload = true;
|
||||
effect = SentinelTurretSwitchEffect;
|
||||
};
|
||||
|
||||
datablock AudioProfile(SentinelTurretFireSound)
|
||||
{
|
||||
filename = "fx/vehicles/tank_chaingun.wav";
|
||||
description = AudioDefaultLooping3d;
|
||||
preload = true;
|
||||
effect = SentinelTurretFireEffect;
|
||||
};
|
||||
|
||||
datablock AudioProfile(SentinelIdleSound)
|
||||
{
|
||||
filename = "fx/powered/turret_light_idle.wav";
|
||||
description = AudioDefaultLooping3d;
|
||||
preload = true;
|
||||
effect = SentinelIdleEffect;
|
||||
};
|
||||
|
||||
datablock AudioProfile(SentinelActivateSound)
|
||||
{
|
||||
filename = "fx/powered/turret_light_reload.wav";
|
||||
description = AudioClose3d;
|
||||
preload = true;
|
||||
effect = SentinelActivateEffect;
|
||||
};
|
||||
|
||||
datablock AudioProfile(SentinelDeactivateSound)
|
||||
{
|
||||
filename = "fx/powered/turret_heavy_reload.wav";
|
||||
description = AudioClose3d;
|
||||
preload = true;
|
||||
effect = SentinelDeactivateEffect;
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Vehicle Data
|
||||
//==============================================================================
|
||||
// Standard Sentinel
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
datablock FlyingVehicleData(SentinelVehicle) : SentinelDamageProfile
|
||||
{
|
||||
spawnOffset = "0.0 0.0 0.1";
|
||||
|
||||
catagory = "Sentinels";
|
||||
shapeFile = "stackable2s.dts";
|
||||
multipassenger = false;
|
||||
computeCRC = true;
|
||||
|
||||
debrisShapeName = "debris_generic.dts";
|
||||
debris = TurretDebris;
|
||||
renderWhenDestroyed = false;
|
||||
|
||||
drag = 0.15;
|
||||
density = 1.0;
|
||||
|
||||
numMountPoints = 0;
|
||||
|
||||
cameraMaxDist = 15;
|
||||
cameraOffset = 2.5;
|
||||
cameraLag = 0.9;
|
||||
explosion = TurretExplosion;
|
||||
explosionDamage = 0.5;
|
||||
explosionRadius = 5.0;
|
||||
|
||||
maxDamage = 0.5;
|
||||
destroyedLevel = 0.5;
|
||||
|
||||
isShielded = true;
|
||||
energyPerDamagePoint = 160;
|
||||
maxEnergy = 280;
|
||||
rechargeRate = 0.8;
|
||||
|
||||
minDrag = 30;
|
||||
rotationalDrag = 2000;
|
||||
|
||||
maxAutoSpeed = 15;
|
||||
autoAngularForce = 400;
|
||||
autoLinearForce = 300;
|
||||
autoInputDamping = 0.95;
|
||||
|
||||
maxSteeringAngle = 5;
|
||||
horizontalSurfaceForce = 6;
|
||||
verticalSurfaceForce = 4;
|
||||
maneuveringForce = 5000;
|
||||
steeringForce = 3000;
|
||||
steeringRollForce = 0;
|
||||
rollForce = 10;
|
||||
hoverHeight = 10;
|
||||
createHoverHeight = 2;
|
||||
maxForwardSpeed = 15;
|
||||
|
||||
jetForce = 4500;
|
||||
minJetEnergy = 0;
|
||||
jetEnergyDrain = 0; // Auto stabilize speed
|
||||
vertThrustMultiple = 0;
|
||||
|
||||
mass = 100;
|
||||
bodyFriction = 0;
|
||||
bodyRestitution = 0.5;
|
||||
minRollSpeed = 0;
|
||||
softImpactSpeed = 14;
|
||||
hardImpactSpeed = 25;
|
||||
|
||||
minImpactSpeed = 10;
|
||||
speedDamageScale = 0.06;
|
||||
|
||||
collDamageThresholdVel = 23.0;
|
||||
collDamageMultiplier = 0.02;
|
||||
|
||||
jetSound = "";
|
||||
engineSound = SentinelIdleSound;
|
||||
softImpactSound = SoftImpactSound;
|
||||
hardImpactSound = HardImpactSound;
|
||||
|
||||
softSplashSoundVelocity = 10.0;
|
||||
mediumSplashSoundVelocity = 15.0;
|
||||
hardSplashSoundVelocity = 20.0;
|
||||
exitSplashSoundVelocity = 10.0;
|
||||
|
||||
exitingWater = VehicleExitWaterMediumSound;
|
||||
impactWaterEasy = VehicleImpactWaterSoftSound;
|
||||
impactWaterMedium = VehicleImpactWaterMediumSound;
|
||||
impactWaterHard = VehicleImpactWaterMediumSound;
|
||||
waterWakeSound = VehicleWakeMediumSplashSound;
|
||||
|
||||
dustEmitter = LiftoffDustEmitter;
|
||||
triggerDustHeight = 1.0;
|
||||
dustHeight = 0.1;
|
||||
canControl = false;
|
||||
|
||||
minMountDist = 4;
|
||||
|
||||
splashEmitter[0] = VehicleFoamDropletsEmitter;
|
||||
splashEmitter[1] = VehicleFoamEmitter;
|
||||
|
||||
shieldImpact = VehicleShieldImpact;
|
||||
|
||||
cmdCategory = "Tactical";
|
||||
cmdIcon = CMDFlyingScoutIcon;
|
||||
cmdMiniIconName = "commander/MiniIcons/com_scout_grey";
|
||||
targetNameTag = 'Standard';
|
||||
targetTypeTag = 'Sentinel';
|
||||
sensorData = combatSensor;
|
||||
sensorRadius = combatSensor.detectRadius;
|
||||
sensorColor = "9 9 255";
|
||||
|
||||
checkRadius = 5.5;
|
||||
observeParameters = "1 5 5";
|
||||
canObserve = true;
|
||||
|
||||
runningLight[0] = ShrikeLight1;
|
||||
|
||||
shieldEffectScale = "2.0 2.0 2.0";
|
||||
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Sentinel Monitor Vehicle Data
|
||||
//==============================================================================
|
||||
|
||||
datablock FlyingVehicleData(SentinelMonitor) : SentinelDamageProfile
|
||||
{
|
||||
spawnOffset = "0.0 0.0 0.0";
|
||||
|
||||
catagory = "Sentinels";
|
||||
shapeFile = "beacon.dts";
|
||||
multipassenger = false;
|
||||
computeCRC = true;
|
||||
|
||||
debrisShapeName = "debris_generic.dts";
|
||||
debris = TurretDebris;
|
||||
renderWhenDestroyed = false;
|
||||
|
||||
drag = 4.15;
|
||||
density = 1.0;
|
||||
|
||||
numMountPoints = 0;
|
||||
|
||||
cameraMaxDist = 15;
|
||||
cameraOffset = 2.5;
|
||||
cameraLag = 0.9;
|
||||
explosion = TurretExplosion;
|
||||
explosionDamage = 0.5;
|
||||
explosionRadius = 5.0;
|
||||
|
||||
maxDamage = 50.00;
|
||||
destroyedLevel = 50.00;
|
||||
|
||||
isShielded = true;
|
||||
rechargeRate = 2.5;
|
||||
energyPerDamagePoint = 1;
|
||||
maxEnergy = 500;
|
||||
rechargeRate = 50.0;
|
||||
|
||||
minDrag = 30;
|
||||
rotationalDrag = 2000;
|
||||
|
||||
maxAutoSpeed = 15;
|
||||
autoAngularForce = 400;
|
||||
autoLinearForce = 300;
|
||||
autoInputDamping = 0.95;
|
||||
|
||||
maxSteeringAngle = 5;
|
||||
horizontalSurfaceForce = 6;
|
||||
verticalSurfaceForce = 4;
|
||||
maneuveringForce = 5000;
|
||||
steeringForce = 1000;
|
||||
steeringRollForce = 0;
|
||||
rollForce = 100;
|
||||
hoverHeight = 15;
|
||||
createHoverHeight = 2;
|
||||
maxForwardSpeed = 15;
|
||||
|
||||
jetForce = 1500;
|
||||
minJetEnergy = 0;
|
||||
jetEnergyDrain = 0; // Auto stabilize speed
|
||||
vertThrustMultiple = 0;
|
||||
|
||||
mass = 100;
|
||||
bodyFriction = 0;
|
||||
bodyRestitution = 0.5;
|
||||
minRollSpeed = 0;
|
||||
softImpactSpeed = 14;
|
||||
hardImpactSpeed = 25;
|
||||
|
||||
minImpactSpeed = 25;
|
||||
speedDamageScale = 0.06;
|
||||
|
||||
collDamageThresholdVel = 23.0;
|
||||
collDamageMultiplier = 0.02;
|
||||
|
||||
minTrailSpeed = 0.1;
|
||||
trailEmitter = ContrailEmitter;
|
||||
|
||||
jetSound = "";
|
||||
engineSound = SentinelIdleSound;
|
||||
softImpactSound = SoftImpactSound;
|
||||
hardImpactSound = HardImpactSound;
|
||||
|
||||
softSplashSoundVelocity = 10.0;
|
||||
mediumSplashSoundVelocity = 15.0;
|
||||
hardSplashSoundVelocity = 20.0;
|
||||
exitSplashSoundVelocity = 10.0;
|
||||
|
||||
exitingWater = VehicleExitWaterMediumSound;
|
||||
impactWaterEasy = VehicleImpactWaterSoftSound;
|
||||
impactWaterMedium = VehicleImpactWaterMediumSound;
|
||||
impactWaterHard = VehicleImpactWaterMediumSound;
|
||||
waterWakeSound = VehicleWakeMediumSplashSound;
|
||||
|
||||
dustEmitter = LiftoffDustEmitter;
|
||||
triggerDustHeight = 2.0;
|
||||
dustHeight = 0.0;
|
||||
canControl = false;
|
||||
|
||||
damageEmitter[0] = LightDamageSmoke;
|
||||
damageEmitter[1] = LightDamageSmoke;
|
||||
damageEmitter[2] = DamageBubbles;
|
||||
damageEmitterOffset[0] = "0.0 0.0 0.0 ";
|
||||
damageLevelTolerance[0] = 0.3;
|
||||
damageLevelTolerance[1] = 0.7;
|
||||
numDmgEmitterAreas = 1;
|
||||
|
||||
minMountDist = 4;
|
||||
|
||||
splashEmitter[0] = VehicleFoamDropletsEmitter;
|
||||
splashEmitter[1] = VehicleFoamEmitter;
|
||||
|
||||
shieldImpact = VehicleShieldImpact;
|
||||
|
||||
cmdCategory = "Tactical";
|
||||
cmdIcon = CMDCameraIcon;
|
||||
cmdMiniIconName = "commander/MiniIcons/com_camera_grey";
|
||||
targetNameTag = '';
|
||||
targetTypeTag = 'Monitor';
|
||||
sensorData = combatSensor;
|
||||
sensorRadius = combatSensor.detectRadius;
|
||||
sensorColor = "9 9 255";
|
||||
|
||||
checkRadius = 10.5;
|
||||
observeParameters = "1 5 5";
|
||||
canObserve = true;
|
||||
|
||||
runningLight[0] = ShrikeLight1;
|
||||
|
||||
shieldEffectScale = "2.0 2.0 2.0";
|
||||
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Image Data
|
||||
//==============================================================================
|
||||
// Standard Sentinel Image Data:
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
datablock ShapeBaseImageData(BodyImage) : SentinelVehicle
|
||||
{
|
||||
offset = "0.0 -0.2 0.3";
|
||||
rotation = "0 0 1 0";
|
||||
shapeFile = "turret_mortar_large.dts";
|
||||
};
|
||||
|
||||
datablock ShapeBaseImageData(RightWing) : SentinelVehicle
|
||||
{
|
||||
offset = "0.2 0.0 0.4";
|
||||
rotation = "0 0 -1 90";
|
||||
shapeFile = "pack_deploy_sensor_pulse.dts";
|
||||
};
|
||||
|
||||
datablock ShapeBaseImageData(LeftWing) : SentinelVehicle
|
||||
{
|
||||
offset = "-0.2 0.0 0.4";
|
||||
rotation = "0 0 1 90";
|
||||
shapeFile = "pack_deploy_sensor_pulse.dts";
|
||||
};
|
||||
|
||||
datablock ShapeBaseImageData(Eye) : SentinelVehicle
|
||||
{
|
||||
offset = "0.0 1.1 0.22";
|
||||
rotation = "1 0 0 90";
|
||||
shapeFile = "beacon.dts";
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Sentinel Monitor Image Data:
|
||||
//==============================================================================
|
||||
|
||||
datablock ShapeBaseImageData(Front) : SentinelMonitor
|
||||
{
|
||||
offset = "0.0 -0.02 0.0";
|
||||
rotation = "1.0 0.0 0.0 90.0";
|
||||
shapeFile = "camera.dts";
|
||||
};
|
||||
|
||||
datablock ShapeBaseImageData(Rear) : SentinelMonitor
|
||||
{
|
||||
offset = "0.0 0.02 0.0";
|
||||
rotation = "-1.0 0.0 0.0 90.0";
|
||||
shapeFile = "camera.dts";
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Decals and Projectiles
|
||||
//==============================================================================
|
||||
// Default Sentinel bullet Decal image:
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
datablock DecalData(SentinelDecal1)
|
||||
{
|
||||
sizeX = 0.15;
|
||||
sizeY = 0.15;
|
||||
textureName = "special/bullethole3";
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Standard Sentinel Bullet:
|
||||
//==============================================================================
|
||||
|
||||
datablock TracerProjectileData(SentinelBullet)
|
||||
{
|
||||
doDynamicClientHits = true;
|
||||
|
||||
directDamage = 0.15;
|
||||
directDamageType = $DamageType::Sentinel;
|
||||
explosion = "ChaingunExplosion";
|
||||
splash = ChaingunSplash;
|
||||
HeadMultiplier = 1.5;
|
||||
LegsMultiplier = 0.5;
|
||||
|
||||
kickBackStrength = 50.0;
|
||||
sound = ChaingunProjectile;
|
||||
|
||||
dryVelocity = 800.0;
|
||||
wetVelocity = 100.0;
|
||||
velInheritFactor = 1.0;
|
||||
fizzleTimeMS = 3000;
|
||||
lifetimeMS = 3000;
|
||||
explodeOnDeath = false;
|
||||
reflectOnWaterImpactAngle = 0.0;
|
||||
explodeOnWaterImpact = false;
|
||||
deflectionOnWaterImpact = 0.0;
|
||||
fizzleUnderwaterMS = 3000;
|
||||
|
||||
tracerLength = 10.0;
|
||||
tracerAlpha = false;
|
||||
tracerMinPixels = 6;
|
||||
tracerColor = 10.0/255.0 @ " " @ 30.0/255.0 @ " " @ 240.0/255.0 @ " 0.75";
|
||||
tracerTex[0] = "special/tracer00";
|
||||
tracerTex[1] = "special/tracercross";
|
||||
tracerWidth = 0.15;
|
||||
crossSize = 0.20;
|
||||
crossViewAng = 0.990;
|
||||
renderCross = true;
|
||||
|
||||
decalData[0] = SentinelDecal1;
|
||||
|
||||
hasLight = true;
|
||||
lightRadius = 8.0;
|
||||
lightColor = "0.5 0.5 0.175";
|
||||
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Turret Data
|
||||
//==============================================================================
|
||||
// Standard Sentinel Turret:
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
datablock TurretData(SentinelTurret) : TurretDamageProfile
|
||||
{
|
||||
className = VehicleTurret;
|
||||
catagory = "Turrets";
|
||||
shapeFile = "turret_belly_base.dts";
|
||||
preload = true;
|
||||
|
||||
mass = 1.0;
|
||||
maxDamage = 1.0;
|
||||
destroyedLevel = 1.0;
|
||||
repairRate = 0;
|
||||
maxDamage = SentinelVehicle.maxDamage;
|
||||
destroyedLevel = SentinelVehicle.destroyedLevel;
|
||||
rechargeRate = 0.15;
|
||||
|
||||
thetaMin = 90;
|
||||
thetaMax = 180;
|
||||
thetaNull = 90;
|
||||
|
||||
rechargeRate = 0.15;
|
||||
|
||||
isShielded = false;
|
||||
energyPerDamagePoint = 110;
|
||||
maxEnergy = 60;
|
||||
renderWhenDestroyed = true;
|
||||
barrel = SentinelTurretBarrel;
|
||||
heatSignature = 0;
|
||||
|
||||
canControl = false;
|
||||
cmdCategory = "DTactical";
|
||||
cmdIcon = CMDTurretIcon;
|
||||
cmdMiniIconName = "commander/MiniIcons/com_turret_grey";
|
||||
targetNameTag = 'Sentinel';
|
||||
targetTypeTag = 'Turret';
|
||||
|
||||
firstPersonOnly = true;
|
||||
|
||||
debrisShapeName = "debris_generic_small.dts";
|
||||
debris = TurretDebrisSmall;
|
||||
};
|
||||
|
||||
datablock TurretImageData(SentinelTurretBarrel)
|
||||
{
|
||||
shapeFile = "turret_muzzlepoint.dts";
|
||||
mountPoint = 0;
|
||||
|
||||
projectile = SentinelBullet;
|
||||
projectileType = TracerProjectile;
|
||||
|
||||
usesEnergy = true;
|
||||
fireEnergy = 0.0;
|
||||
minEnergy = 10.0;
|
||||
emap = true;
|
||||
|
||||
activationMS = 700;
|
||||
deactivateDelayMS = 1500;
|
||||
thinkTimeMS = 120;
|
||||
degPerSecTheta = 2000;
|
||||
degPerSecPhi = 2000;
|
||||
attackRadius = 100;
|
||||
|
||||
casing = ShellDebris;
|
||||
shellExitDir = "0.0 -0.5 -0.5";
|
||||
shellExitOffset = "0.0 0.0 0.0";
|
||||
shellExitVariance = 20.0;
|
||||
shellVelocity = 5.0;
|
||||
|
||||
projectileSpread = 2.0 / 1000.0;
|
||||
|
||||
stateName[0] = "Activate";
|
||||
stateTransitionOnNotLoaded[0] = "Dead";
|
||||
stateTransitionOnLoaded[0] = "ActivateReady";
|
||||
|
||||
stateName[1] = "ActivateReady";
|
||||
stateSequence[1] = "Activate";
|
||||
stateSound[1] = SentinelActivateSound;
|
||||
stateTimeoutValue[1] = 1;
|
||||
stateTransitionOnTimeout[1] = "Ready";
|
||||
stateTransitionOnNotLoaded[1] = "Deactivate";
|
||||
stateTransitionOnNoAmmo[1] = "NoAmmo";
|
||||
|
||||
stateName[2] = "Ready";
|
||||
stateTransitionOnNotLoaded[2] = "Deactivate";
|
||||
stateTransitionOnTriggerDown[2] = "Fire";
|
||||
stateTransitionOnNoAmmo[2] = "NoAmmo";
|
||||
|
||||
stateName[3] = "Fire";
|
||||
stateSequence[3] = "Fire";
|
||||
stateSequenceRandomFlash[3] = true;
|
||||
stateSound[3] = ChaingunFireSound;
|
||||
stateAllowImageChange[3] = false;
|
||||
stateEmitter[3] = "GunFireEffectEmitter";
|
||||
stateEmitterNode[3] = "muzzlepoint1";
|
||||
stateEmitterTime[3] = 0.1;
|
||||
stateScript[3] = "onFire";
|
||||
stateFire[3] = true;
|
||||
stateEjectShell[3] = true;
|
||||
stateTimeoutValue[3] = 0.1;
|
||||
stateTransitionOnTimeout[3] = "Fire";
|
||||
stateTransitionOnTriggerUp[3] = "Reload";
|
||||
stateTransitionOnNoAmmo[3] = "noAmmo";
|
||||
|
||||
stateName[4] = "Reload";
|
||||
stateTimeoutValue[4] = 0.01;
|
||||
stateAllowImageChange[4] = false;
|
||||
stateWaitForTimeout[4] = true;
|
||||
stateSequence[4] = "Reload";
|
||||
stateTransitionOnTimeout[4] = "Ready";
|
||||
stateTransitionOnNotLoaded[4] = "Deactivate";
|
||||
stateTransitionOnNoAmmo[4] = "NoAmmo";
|
||||
|
||||
stateName[5] = "Deactivate";
|
||||
stateSequence[5] = "Activate";
|
||||
stateSound[5] = SentinelDeactivateSound;
|
||||
stateEmitter[5] = "GunFireEffectEmitter";
|
||||
stateEmitterNode[5] = "muzzlepoint1";
|
||||
stateEmitterTime[5] = 0.2;
|
||||
stateDirection[5] = false;
|
||||
stateTimeoutValue[5] = 1;
|
||||
stateTransitionOnLoaded[5] = "ActivateReady";
|
||||
stateTransitionOnTimeout[5] = "Dead";
|
||||
|
||||
stateName[6] = "Dead";
|
||||
stateTransitionOnLoaded[6] = "ActivateReady";
|
||||
|
||||
stateName[7] = "NoAmmo";
|
||||
stateTransitionOnAmmo[7] = "Reload";
|
||||
stateSequence[7] = "NoAmmo";
|
||||
};
|
||||
|
||||
//==============================================================================
|
||||
// Vehicle Functions
|
||||
//==============================================================================
|
||||
// Sentinel Functions:
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
function SentinelVehicle::deleteAllMounted(%data, %obj) {
|
||||
$HostGamePlayerCount = ClientGroup.GetCount();
|
||||
%turret = %obj.getMountNodeObject(10);
|
||||
if (!%turret)
|
||||
return;
|
||||
|
||||
%turret.altTrigger = 0;
|
||||
%turret.fireTrigger = 0;
|
||||
|
||||
if (%client = %turret.getControllingClient()) {
|
||||
%client.player.setControlObject(%client.player);
|
||||
%client.player.mountImage(%client.player.lastWeapon, $WeaponSlot);
|
||||
%client.player.mountVehicle = false;
|
||||
|
||||
%client.player.bomber = false;
|
||||
%client.player.isBomber = false;
|
||||
}
|
||||
%turret.schedule(0, delete);
|
||||
}
|
||||
|
||||
function SentinelVehicle::onAdd(%this, %obj)
|
||||
{
|
||||
Parent::onAdd(%this, %obj);
|
||||
if (%obj.clientControl)
|
||||
serverCmdResetControlObject(%obj.clientControl);
|
||||
|
||||
%obj.mountImage(BodyImage, 1);
|
||||
%obj.mountImage(RightWing, 2);
|
||||
%obj.mountImage(LeftWing, 3);
|
||||
%obj.mountImage(Eye, 4);
|
||||
|
||||
%turret = TurretData::create(SentinelTurret);
|
||||
%turret.scale = "0.45 0.45 0.45";
|
||||
MissionCleanup.add(%turret);
|
||||
%turret.team = 1;
|
||||
%turret.selectedWeapon = 1;
|
||||
%turret.setSelfPowered();
|
||||
%obj.mountObject(%turret, 10);
|
||||
%turret.mountImage(SentinelTurretBarrel, 0);
|
||||
%obj.turretObject = %turret;
|
||||
%turret.setCapacitorRechargeRate( %turret.getDataBlock().capacitorRechargeRate );
|
||||
%turret.vehicleMounted = %obj;
|
||||
%turret.setAutoFire(true);
|
||||
%turret.mountImage(AIAimingTurretBarrel, 1);
|
||||
|
||||
setTargetSensorGroup(%turret.getTarget(), %turret.team);
|
||||
setTargetNeverVisMask(%turret.getTarget(), 0xffffffff);
|
||||
}
|
||||
|
||||
//==============================================================================
|
||||
// Monitor Functions:
|
||||
//==============================================================================
|
||||
|
||||
function SentinelMonitor::onAdd(%this, %obj)
|
||||
{
|
||||
Parent::onAdd(%this, %obj);
|
||||
if (%obj.clientControl)
|
||||
serverCmdResetControlObject(%obj.clientControl);
|
||||
|
||||
%obj.mountImage(Front, 1);
|
||||
%obj.mountImage(Rear, 2);
|
||||
}
|
||||
54
Scripts/ModScripts/ChatCommands/AICommands.cs
Normal file
54
Scripts/ModScripts/ChatCommands/AICommands.cs
Normal file
|
|
@ -0,0 +1,54 @@
|
|||
//------------------------------------------------------------------------------
|
||||
// ACCM AI Commands
|
||||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
// Drone Commands:
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Blnukem (edited by Eolk)
|
||||
function ccDroneBattle(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%x = getword(%sender.player.position, 0);
|
||||
%y = getword(%sender.player.position, 1);
|
||||
%z = getword(%sender.player.position, 2) + 1200;
|
||||
%newpos = %x SPC %y SPC %z;
|
||||
%base = strlwr(getword(%args, 0));
|
||||
%difficulty = getword(%args, 1);
|
||||
if(%base $= "Battle")
|
||||
%base = 1;
|
||||
else if(%base $= "Single")
|
||||
%base = 2;
|
||||
else
|
||||
{
|
||||
messageClient(%sender, "", "\c2Invalid variable. Valid variables are:\c3 battle\c2 and \c3single\c2.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%difficulty $= "Easy")
|
||||
%d = 1;
|
||||
else if(%difficulty $= "Medium")
|
||||
%d = 5;
|
||||
else if(%difficulty $= "Hard")
|
||||
%d = 10;
|
||||
else if(%difficulty $= "Ace")
|
||||
%d = "ace";
|
||||
else
|
||||
{
|
||||
messageClient(%sender, "", "\c2Invalid difficulty. Difficulties are:\c3 Light\c2,\c3 Medium\c2,\c3 Hard\c2, and\c3 Ace\c2.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%base == 1)
|
||||
DroneBattle(%newpos, 1000, 10, 10, 15, %d);
|
||||
else if(%base == 2)
|
||||
StartDrone(%newpos, "0 0 1 0", 5, %d);
|
||||
|
||||
messageAll("", "\c3"@%sender.nameBase@" \c2spawned a "@%difficulty@" "@(%base == 1 ? "drone battle" : "drone")@".~wgui/objective_Notification.wav");
|
||||
}
|
||||
|
||||
function ccCreateSentinel(%sender, %args)
|
||||
{
|
||||
CreateSentinel("0 0 310", 1, 1);
|
||||
}
|
||||
947
Scripts/ModScripts/ChatCommands/AdminCommands.cs
Normal file
947
Scripts/ModScripts/ChatCommands/AdminCommands.cs
Normal file
|
|
@ -0,0 +1,947 @@
|
|||
//==============================================================================
|
||||
// Admin Commands
|
||||
//==============================================================================
|
||||
|
||||
// Command by Eolk. Modified by Blnukem.
|
||||
function ccset(%sender, %args)
|
||||
{
|
||||
%base = strlwr(getword(%args, 0));
|
||||
%param = getword(%args, 1);
|
||||
switch$(%base)
|
||||
{
|
||||
case "canzombie":
|
||||
if(%sender.isAdmin)
|
||||
{
|
||||
if(%param != 1 && %param != 0)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Invalid parameters. Use 1 for canZombie to be on, use 0 for canZombie to be off.");
|
||||
return;
|
||||
}
|
||||
|
||||
$Host::canZombie = %param;
|
||||
messageAll('MsgAdminForce', "\c1"@%sender.nameBase@" \c2changed \c5HUMAN ZOMBIES \c2to \c5"@%param@"\c2.");
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::canZombie (human zombies) changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::canZombie@" via ccSet");
|
||||
}
|
||||
case "joinpw":
|
||||
if(%sender.isSuperAdmin)
|
||||
{
|
||||
if(%param $= "")
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2No Changes. You did not supply a value. Use \"remove\" to remove join pw.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(strlwr(%param) $= "remove")
|
||||
$Host::Password = "";
|
||||
else
|
||||
$Host::Password = %param;
|
||||
|
||||
messageAll('MsgAdminForce', "\c1"@%sender.nameBase@" \c2changed \c5JOIN PASSWORD\c2.");
|
||||
messageClient(%sender, "MsgYes", "\c2Join password changed to "@$Host::Password);
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::Password (server password) changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::Password@" via ccSet");
|
||||
}
|
||||
case "maxplyrs":
|
||||
if(!%sender.isSuperAdmin)
|
||||
return;
|
||||
|
||||
%failed = false;
|
||||
for(%i = 0; %i < strlen(%param); %i++)
|
||||
{
|
||||
%temp = getsubstr(%param, %i, 1);
|
||||
if(%temp !$= "1" && %temp !$= "2" && %temp !$= "3" && %temp !$= "4" && %temp !$= "5" && %temp !$= "6" && %temp !$= "7" && %temp !$= "8" && %temp !$= "9" && %temp !$= "0")
|
||||
{
|
||||
%failed = true;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if(%param < 0)
|
||||
%failed = true;
|
||||
|
||||
if(%failed == true)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2No changes. You supplied an invalid number. Must be over 0.");
|
||||
return;
|
||||
}
|
||||
|
||||
$Host::MaxPlayers = %param;
|
||||
messageAll('MsgAdminForce', "\c1"@%sender.nameBase@" \c2changed \c5MAX PLAYERS\c2 to \c5"@$Host::MaxPlayers@"\c2.");
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::MaxPlayers (maximum players allowed by the server) changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::MaxPlayers@" via ccSet");
|
||||
case "restrict":
|
||||
if(%sender.isAdmin)
|
||||
{
|
||||
%target = plnametocid(%param);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Unable to find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isAdmin)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Cannot do this to admins.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!%target.CannotDeploy)
|
||||
{
|
||||
%target.CannotDeploy = 1;
|
||||
messageClient(%sender, "MsgYes", "\c2"@%target.nameBase@"'s ability to deploy things has been revoked.~wfx/misc/diagnostic_on.wav");
|
||||
echo(%sender.namebase@" ("@%sender@") disabled "@%target.nameBase@"'s ("@%target@") ability to deploy objects");
|
||||
}
|
||||
else
|
||||
{
|
||||
%target.CannotDeploy = 0;
|
||||
messageClient(%sender, "MsgYes", "\c2"@%target.nameBase@" is free to deploy things again.~wfx/misc/diagnostic_on.wav");
|
||||
echo(%sender.namebase@" ("@%sender@") enabled "@%target.nameBase@"'s ("@%target@") ability to deploy objects");
|
||||
}
|
||||
}
|
||||
case "noinfection":
|
||||
if(%sender.isAdmin)
|
||||
{
|
||||
if(%param != 0 && %param != 1)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2No changes. You supplied an invalid type. Use 1 for on, use 0 for off.");
|
||||
return;
|
||||
}
|
||||
|
||||
$Host::NoInfection = %param;
|
||||
messageAll('MsgAdminForce', "\c1"@%sender.nameBase@" \c2changed \c5NO INFECTION \c2to \c5"@%param@"\c2.");
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::NoInfection (no infection) changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::NoInfection@" via ccSet");
|
||||
}
|
||||
case "autosave":
|
||||
if(%sender.isSuperAdmin) // SA
|
||||
{
|
||||
if(%param != 1 && %param != 0)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Invalid parameters. Input 1 for start, input 0 for end.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%param == 1)
|
||||
if($SaveBuilding::TimerEnabled)
|
||||
{
|
||||
saveBuildingTimerOn(); // This resets.
|
||||
messageAll('MsgAdminForce', "\c2"@%sender.nameBase@" has reset the autosave timer.");
|
||||
echo(%sender.nameBase@" ("@%sender@") has reset the autosave timer via ccSet");
|
||||
}
|
||||
else
|
||||
{
|
||||
saveBuildingTimer(0, 1, 0, 0);
|
||||
messageAll('MsgAdminForce', "\c2"@%sender.nameBase@" has enabled the autosave timer.");
|
||||
echo(%sender.nameBase@" ("@%sender@") has enabled the autosave timer via ccSet");
|
||||
}
|
||||
else
|
||||
if($SaveBuilding::TimerEnabled)
|
||||
{
|
||||
saveBuildingTimerOff();
|
||||
messageAll('MsgAdminForce', "\c2"@%sender.nameBase@" has disabled the autosave timer.");
|
||||
echo(%sender.nameBase@" ("@%sender@") has disabled the autosave timer via ccSet");
|
||||
}
|
||||
else
|
||||
messageClient(%sender, "", "\c2Cannot disable the autosave timer if it is already disabled!");
|
||||
}
|
||||
case "lockedteams":
|
||||
if(%sender.isAdmin)
|
||||
{
|
||||
if(%param != 1 && %param != 0)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Invalid parameters. Input 1 for lock, input 0 for unlock.");
|
||||
return;
|
||||
}
|
||||
|
||||
$Host::LockedTeams = %param;
|
||||
messageAll('MsgAdminForce', "\c2"@%sender.nameBase@" has changed locked teams to "@%param@".");
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::LockedTeams (locked, unchangeable teams) has been changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::LockedTeams@" via ccSet");
|
||||
}
|
||||
case "sapass":
|
||||
if(%sender.isSuperAdmin)
|
||||
{
|
||||
$Host::SuperAdminPassword = %param;
|
||||
messageClient(%sender, "", "\c2Super admin password changed to "@%param);
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::SuperAdminPassword (super admin password or SAD) has been changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::SuperAdminPassword@" via ccSet");
|
||||
}
|
||||
case "apass":
|
||||
if(%sender.isSuperAdmin)
|
||||
{
|
||||
$Host::AdminPassword = %param;
|
||||
messageClient(%sender, "", "\c2Admin password changed to "@%param);
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::AdminPassword (admin password or AD) has been changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::AdminPassword@" via ccSet");
|
||||
}
|
||||
case "fairteams":
|
||||
if(%sender.isAdmin)
|
||||
{
|
||||
if(%param != 1 && %param != 0)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Invalid parameters. Input 1 for enabled, input 0 for disable.");
|
||||
return;
|
||||
}
|
||||
|
||||
$Host::FairTeams = %param;
|
||||
messageAll("", "\c2"@%sender.nameBase@" has changed Fair Teams to "@%param@".");
|
||||
export( "$Host::*", "prefs/ServerPrefs.cs", false );
|
||||
echo("$Host::FairTeams (unbalanced team preventer) has been changed by "@%sender.nameBase@" ("@%sender@") to "@$Host::FairTeams@" via ccSet");
|
||||
}
|
||||
default:
|
||||
messageClient(%sender, "MsgNo", "\c2Invalid command. Valid commands are canzombie, zombieteam, joinpw, maxplyrs, restrict, zturrets");
|
||||
messageClient(%sender, "MsgNo", "\c2noinfection, dir, lockedteams, sapass, apass, fairteams, and autosave");
|
||||
}
|
||||
}
|
||||
|
||||
// Command by Eolk.
|
||||
function ccA(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
for(%i = 0; %i < ClientGroup.getCount(); %i++)
|
||||
{
|
||||
%cl = ClientGroup.getObject(%i);
|
||||
if(%cl.isAdmin)
|
||||
messageClient(%cl, 'MsgYes', "\c3[A]\c2"@%sender.nameBase@": "@%args);
|
||||
}
|
||||
logEcho("[ADMIN CHAT]: "@%sender.nameBase@": "@%args);
|
||||
}
|
||||
|
||||
// Command by Eolk (honestly, even though it looks like someone else's code).
|
||||
function ccCancelVote(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(Game.ScheduleVote $= "")
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2There is no vote to cancel!");
|
||||
return;
|
||||
}
|
||||
|
||||
cancel(Game.scheduleVote);
|
||||
|
||||
Game.votingArgs = "";
|
||||
Game.scheduleVote = "";
|
||||
Game.kickClient = "";
|
||||
clearVotes();
|
||||
|
||||
messageAll('closeVoteHud', "");
|
||||
if(%client.team != 0)
|
||||
clearBottomPrint(%client);
|
||||
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@" \c2has cancelled the vote.");
|
||||
messageAll('MsgVoteFailed', "");
|
||||
logEcho(%sender.nameBase@" ("@%sender@") has cancelled the vote");
|
||||
}
|
||||
|
||||
// Command by Eolk.
|
||||
function ccBottomPrint(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(%args $= "")
|
||||
{
|
||||
messageClient(%sender, 'MsgNo', "\c2Must supply text to display!");
|
||||
return;
|
||||
}
|
||||
|
||||
%print = %args;
|
||||
%wave = strstr(%args, "~w");
|
||||
|
||||
if(%wave != -1)
|
||||
%print = getsubstr(%args, 0, %wave);
|
||||
|
||||
BottomprintAll(%sender.nameBase@": "@%print, 10, 3);
|
||||
messageAll("MsgAll", "\c2"@ %sender.namebase@": \c4"@%print@"~wgui/objective_Notification.wav");
|
||||
logEcho("[BOTTOMPRINT]"@%sender.nameBase@" ("@%sender@"): "@%args);
|
||||
}
|
||||
|
||||
// Command by Eolk. Modified by Blnukem
|
||||
function ccCenterPrint(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(%args $= "")
|
||||
{
|
||||
messageClient(%sender, 'MsgNo', "\c2Must supply text to display!");
|
||||
return;
|
||||
}
|
||||
|
||||
%print = %args;
|
||||
%wave = strstr(%args, "~w");
|
||||
|
||||
if(%wave != -1)
|
||||
%print = getsubstr(%args, 0, %wave);
|
||||
|
||||
CenterprintAll(%sender.nameBase@": "@%print, 10, 3);
|
||||
messageAll("MsgAll", "\c2"@ %sender.namebase@": \c4"@%print@"~wgui/objective_Notification.wav");
|
||||
logEcho("[BOTTOMPRINT]"@%sender.nameBase@" ("@%sender@"): "@%args);
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccJailPlayer(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(!$Host::Prison::Enabled)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Prison is not enabled.");
|
||||
return;
|
||||
}
|
||||
|
||||
%target = plnametocid(getword(%args, 0));
|
||||
%time = getword(%args, 1);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Target does not exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%target.player))
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Target's player does not exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if((%target.isAdmin && !%sender.isAdmin) || %target.isSuperAdmin)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2You must outrank the target to jail them.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target == %sender && %target.isJailed && !%sender.isSuperAdmin)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Can only unjail yourself if you are of super admin status.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%time > 600)
|
||||
%time = 600;
|
||||
|
||||
%test = %target.isJailed;
|
||||
JailPlayer(%target, %target.isJailed, %time);
|
||||
if(!%test)
|
||||
{
|
||||
messageClient(%target, "MsgAdminForce", "\c2You have been sentenced to jail.");
|
||||
messageAllExcept(%target, -1, "MsgAdminForce", "\c3"@%target.nameBase@" \c2has been sentenced to jail.");
|
||||
logEcho(%target.nameBase@" ("@%target@") was sentenced to jail by "@%sender.nameBase@" ("@%sender@") for "@%time@" seconds");
|
||||
}
|
||||
else
|
||||
{
|
||||
messageClient(%target, "MsgAdminForce", "\c2You have had your jail sentence cut short.", %sender.nameBase);
|
||||
messageAllExcept(%target, -1, "MsgAdminForce", "\c3"@%target.nameBase@" \c2has had their jail sentence cut short.");
|
||||
logEcho(%target.nameBase@" ("@%target@") was released from jail by "@%sender.nameBase@" ("@%sender@")");
|
||||
}
|
||||
}
|
||||
|
||||
// Command by Eolk.
|
||||
function ccMute(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2No such person.");
|
||||
return;
|
||||
}
|
||||
|
||||
if((%target.isAdmin && !%sender.isSuperAdmin) || %target.isSuperAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2Can't mute someone you don't outrank!");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!%target.isSilenced)
|
||||
{
|
||||
messageClient(%target, "", "\c2You have been muted.");
|
||||
%target.isSilenced = 1;
|
||||
messageClient(%sender, "", "\c3"@%target.nameBase@"\c2 has been muted.");
|
||||
logEcho(%sender.nameBase@" ("@%sender@") globally muted "@%target.nameBase@" ("@%target@")");
|
||||
}
|
||||
else
|
||||
{
|
||||
%target.isSilenced = 0;
|
||||
messageClient(%sender, "", "\c3"@%target.nameBase@"\c2 has been unmuted.");
|
||||
logEcho(%sender.nameBase@" ("@%sender@") globally unmuted "@%target.nameBase@" ("@%target@")");
|
||||
}
|
||||
}
|
||||
|
||||
// Chat command by Eolk (special thanks to Krash for bug fixes!)
|
||||
// <3
|
||||
function ccaddteam(%sender)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(Game.numTeams >= 2 && $AddedMoreTeams != 1)
|
||||
{
|
||||
messageClient(%sender, 'MsgNo', "\c2There are already enough teams.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!$AddedMoreTeams)
|
||||
{
|
||||
Game.numTeams++;
|
||||
setSensorGroupCount(Game.numTeams);
|
||||
// clearVehicleCount(Game.numTeams + 1); // Not sure about this...
|
||||
$AddedMoreTeams = 1;
|
||||
$NewTeam = Game.numTeams;
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@" \c2has added another team.");
|
||||
warn(%sender.nameBase@" ("@%sender@") has added another team");
|
||||
}
|
||||
else
|
||||
{
|
||||
for(%i = 0; %i < ClientGroup.getCount(); %i++)
|
||||
{
|
||||
%obj = ClientGroup.getObject(%i);
|
||||
if(%obj.team == $NewTeam)
|
||||
{
|
||||
Game.forceObserver(%obj, "AdminForce");
|
||||
messageClient(%obj, 'MsgYes', "\c2You have been forced into observer due to being on the deleted team.");
|
||||
}
|
||||
}
|
||||
|
||||
Game.numTeams--;
|
||||
setSensorGroupCount(Game.numTeams);
|
||||
$AddedMoreTeams = 0;
|
||||
$NewTeam = "";
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@" \c2has deleted the new team. All people have been forced into observer.");
|
||||
warn(%sender.nameBase@" ("@%sender@") has deleted the new team");
|
||||
}
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccSummon(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(%sender.isJailed)
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2You cannot do this command while in jail!");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%sender.player))
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2You must have a player object in order to do this.");
|
||||
return;
|
||||
}
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2Target does not exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isJailed)
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2Target is jailed.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%target.player))
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2Your target has to have a player object in order to do this.");
|
||||
return;
|
||||
}
|
||||
|
||||
%x = getword(%sender.player.position, 0);
|
||||
%y = getword(%sender.player.position, 1);
|
||||
%z = getword(%sender.player.position, 2) + 2.5;
|
||||
%newpos = %x SPC %y SPC %z;
|
||||
|
||||
%target.player.setPosition(%newpos);
|
||||
%target.player.setVelocity("0 0 0");
|
||||
|
||||
messageClient(%target, "MsgYes", "\c2You have been summoned by\c3 "@%sender.namebase@"\c2.");
|
||||
messageClient(%sender, "MsgYes", "\c2You have summoned \c3"@%target.namebase@"\c2.");
|
||||
}
|
||||
|
||||
// Blnukem/Eolk
|
||||
function ccDesmurf(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Cannot find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!%target.isSmurf)
|
||||
messageClient(%sender, "", "\c2No smurf name detected.");
|
||||
else
|
||||
getRealName(%target, %sender);
|
||||
logEcho(%sender.nameBase@" ("@%sender@") requested non-smurf name of "@%target.nameBase@" ("@%target@")");
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccGoto(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(%sender.isJailed)
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2You cannot do this command while in jail!");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%sender.player))
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2You must have a player object in order to do this.");
|
||||
return;
|
||||
}
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2Target does not exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isJailed)
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2Target is jailed.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%target.player))
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2Your target has to have a player object in order to do this.");
|
||||
return;
|
||||
}
|
||||
|
||||
%x = getword(%target.player.position, 0);
|
||||
%y = getword(%target.player.position, 1);
|
||||
%z = getword(%target.player.position, 2) + 2.5;
|
||||
%newpos = %x SPC %y SPC %z;
|
||||
|
||||
%sender.player.setPosition(%newpos);
|
||||
%sender.player.setVelocity("0 0 0");
|
||||
|
||||
messageClient(%sender, "MsgYes", "\c2You have gone to\c3 "@%target.namebase@"'s \c2location.");
|
||||
if(%sender.isAdmin)
|
||||
messageClient(%target, "MsgYes", "\c3"@%sender.nameBase@" \c2has come to you.");
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccMoveme(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(getwordcount(%args) != 3)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Your movement was not specified in X Y Z format.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%sender.isJailed)
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2You cannot do this command while in jail!");
|
||||
return;
|
||||
}
|
||||
|
||||
%newpos = VectorAdd(%sender.player.position, %args);
|
||||
%sender.player.setPosition(%newpos);
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccmoveto(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(getwordcount(%args) != 3)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2Your movement was not specified in X Y Z format.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%sender.isJailed)
|
||||
{
|
||||
messageclient(%sender, "MsgNo", "\c2You cannot do this command while in jail!");
|
||||
return;
|
||||
}
|
||||
|
||||
%sender.player.setPosition(%args);
|
||||
}
|
||||
|
||||
// Blnukem/Eolk
|
||||
function ccKill(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(%target == %sender)
|
||||
{
|
||||
messageClient(%sender, "", "\c2You cannot kill yourself.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isSuperAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2You cannot kill Super Admins.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Cannot find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%target.player))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Cannot find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
%target.player.scriptkill($DamageType::Idiocy);
|
||||
messageAll("", "~wfx/misc/bounty_completed.wav");
|
||||
warn(%sender.nameBase@" ("@%sender@") killed "@%target.nameBase@" ("@%target@") using admin force");
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccForceTeamSpawn(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%team = getword(%args, 0);
|
||||
%sp = getword(%args, 1);
|
||||
if(%sp !$= "")
|
||||
%sp = %sp - 1; // Subtract one to have things make a little more sense.
|
||||
|
||||
if(%team $= "")
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2A team must be specified.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%sp $= "")
|
||||
{
|
||||
$UseForcedTeamSpawn[%team] = 0;
|
||||
$ForcedSpawn[%team] = "";
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has released the forced spawn for team \c3"@%team@"\c2. If you wish to not spawn at the point anymore, use /choosespawn to reset.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject($teamSP[%team, %sp]))
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2The spawnpoint specified doesn't exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!$teamSP[%team, %sp].active)
|
||||
{
|
||||
messageClient(%sender, "MsgNo", "\c2The spawnpoint specified is not powered.");
|
||||
return;
|
||||
}
|
||||
|
||||
$UseForcedTeamSpawn[%team] = 1;
|
||||
$ForcedSpawn[%team] = $teamSP[%team, %sp];
|
||||
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has forced team\c3 "@%team@"\c2 to spawn at spawnpoint \c3"@%sp+1@"\c2.");
|
||||
warn(%sender.nameBase@" ("@%sender@") forced team"@%team@" to spawn at spawn"@%sp);
|
||||
}
|
||||
|
||||
// By Eolk
|
||||
function ccSaveBuilding(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%rad = getword(%args, 0);
|
||||
%file = getword(%args, 1);
|
||||
SaveBuilding(%sender, %rad, %file, 1, 0);
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 is saving the buildings with a radius of \c3"@%rad@"\c2.");
|
||||
messageClient(%sender, "", "\c2Building saved to\c3 "@$SaveBuilding::LastFile@"\c2.");
|
||||
warn(%sender.nameBase@" ("@%sender@", GUID: "@%sender.guid@") attempted save buildings within a radius of "@%radius@" to file "@%file);
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccLoadBuilding(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
LoadBuilding(%args);
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@" \c2has loaded a building.");
|
||||
warn(%sender.nameBase@" ("@%sender@", GUID: "@%sender.guid@") loaded file "@%args);
|
||||
}
|
||||
|
||||
// Blnukem
|
||||
function ccTurrets(%sender) {
|
||||
if (!%sender.isAdmin)
|
||||
return;
|
||||
if ($TurretEnableOverride) {
|
||||
$TurretEnableOverride = 0;
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has disabled turrets.");
|
||||
}
|
||||
else {
|
||||
$TurretEnableOverride = 1;
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has enabled turrets.");
|
||||
}
|
||||
logEcho("$TurretEnableOverride (turrets work in purebuild) changed to "@$TurretEnableOverride@" by "@%sender.nameBase@" ("@%sender@") using ccTurrets");
|
||||
}
|
||||
|
||||
// Blnukem
|
||||
function ccBuySCG(%sender) {
|
||||
if (!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
if(!isObject(%sender.player))
|
||||
{
|
||||
messageClient(%sender, "", "\c2You must be playing in order to get a Super Chaingun.");
|
||||
return;
|
||||
}
|
||||
|
||||
messageClient(%sender, "", "\c2A Super Chaingun has been added to your inventory.");
|
||||
%sender.player.setInventory(SuperChaingun, 1, true);
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccChangeName(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(getword(%args, 0));
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Invalid Target.");
|
||||
return;
|
||||
}
|
||||
|
||||
%name = getwords(%args, 1, getWordCount(%args) - 1);
|
||||
if(%name $= "")
|
||||
{
|
||||
messageClient(%sender, 'MsgNo', "\c2Need to supply a name!");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%name $= "reset")
|
||||
{
|
||||
ChangeName(%target, "reset");
|
||||
messageClient(%target, "", "\c2Your name has been reset.");
|
||||
warn(%sender.nameBase@" ("@%sender@") has reset "@%target.nameBase@"'s ("@%target@") name");
|
||||
return;
|
||||
}
|
||||
|
||||
ChangeName(%target, %name);
|
||||
messageClient(%target, "", "\c2Your new name is \c3"@%name@"\c2.");
|
||||
warn(%sender.nameBase@" ("@%sender@") changed "@%target.nameBase@"'s ("@%target@") name to "@%name);
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccSavePlayer(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(getword(%args, 0));
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Invalid target.");
|
||||
return;
|
||||
}
|
||||
|
||||
%name = getword(%args, 1);
|
||||
if(%name $= "")
|
||||
{
|
||||
messageClient(%sender, "", "\c2Invalid name.");
|
||||
return;
|
||||
}
|
||||
|
||||
%folder = $SaveBuilding::SaveFolder @ %name; // I really don't know if we should check for invalid characters
|
||||
new FileObject("Building"); // or not. I think Tribes 2 does that automatically.
|
||||
|
||||
Building.openforwrite(%folder);
|
||||
Building.writeLine("// Saved by \"" @ getField(%sender.nameBase,0) @ "\"");
|
||||
Building.writeLine("// Created in mission \"" @ $MissionName @ "\"");
|
||||
Building.writeLine("// Construction " @ $ModVersion);
|
||||
Building.writeLine("");
|
||||
|
||||
%group = nameToID("MissionCleanup/Deployables"); // We should really check isObject here... and we will!
|
||||
if(!isObject(%group))
|
||||
{
|
||||
messageClient(%sender, "", "\c2There are no deployables!");
|
||||
return;
|
||||
}
|
||||
|
||||
for(%i = 0; %i < %group.getCount(); %i++)
|
||||
{
|
||||
%depl = %group.getObject(%i);
|
||||
if(isObject(%depl) && %depl.getOwner() == %target)
|
||||
{
|
||||
%towrite = writeBuildingComponent(%depl); // This will return null if invalid.
|
||||
if(%towrite !$= "")
|
||||
Building.writeline(%towrite);
|
||||
}
|
||||
}
|
||||
|
||||
Building.close();
|
||||
Building.delete();
|
||||
|
||||
messageAll('MsgAdminForce', "\c2"@%sender.nameBase@" is saving "@%target.nameBase@"'s buildings.");
|
||||
messageClient(%sender, "", "\c2Building saved to "@%folder@".");
|
||||
logEcho(%sender.nameBase@" ("@%sender@") saved "@%target.nameBase@"'s pieces to file "@%name);
|
||||
}
|
||||
|
||||
// Command made by Eolk.
|
||||
function ccForceGivePieces(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2This is the admin give pieces. Regular clients have to use /givepieces target.");
|
||||
return;
|
||||
}
|
||||
|
||||
%from = (getWord(%args, 0) !$= "orphan" ? plnametocid(getWord(%args, 0)) : "orphan");
|
||||
%to = plnametocid(getWord(%args, 1));
|
||||
|
||||
if(%from !$= "orphan" && !isObject(%from))
|
||||
{
|
||||
messageClient(%sender, "", "\c2First argument - player doesn't exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%to))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Second argument - player doesn't exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
GivePieces(%from, %to);
|
||||
if(%from !$= "orphan")
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has forced \c3"@%from.nameBase@"\c2 to transfer "@(%from.sex $= "Male" ? "his" : "her")@" pieces to \c3"@%to.nameBase@"\c2.");
|
||||
else
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has given all orphans to \c3"@%to.nameBase@"\c2.");
|
||||
logEcho(%sender.nameBase@" ("@%sender@") gave "@(%from == "orphan" ? "all orphaned" : %from.nameBase@"'s ("@%from@")")@" pieces to "@%to.nameBase@" ("@%to@")");
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccGiveClientPieces(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2This command is for admins only.");
|
||||
return;
|
||||
}
|
||||
|
||||
%from = getword(%args, 0);
|
||||
%to = plnametocid(getWord(%args, 1));
|
||||
|
||||
if(!isObject(%to))
|
||||
{
|
||||
messageClient(%sender, "", "\c2The receiving client doesn't exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
GivePieces(%from, %to);
|
||||
messageAll('MsgAdminForce', "\c3"@%sender.nameBase@"\c2 has given all the pieces of client \c3"@%from@"\c2 to \c3"@%to.nameBase@".");
|
||||
logEcho(%sender.nameBase@" ("@%sender@") gave all pieces owned by client "@%from@" to "@%to.nameBase@" ("@%to@")");
|
||||
}
|
||||
|
||||
// Blnukem
|
||||
function ccTest (%sender,%args)
|
||||
{
|
||||
if(!%sender.isAdmin){
|
||||
return;
|
||||
}
|
||||
|
||||
%x = getword(%sender.player.position, 0);
|
||||
%y = getword(%sender.player.position, 1);
|
||||
%z = getTerrainHeight(%x SPC %y) + 5;
|
||||
%rot = "0 0 1 "@getRandom(1,360);
|
||||
%newpos = %x SPC %y SPC %z;
|
||||
if(%args $= "Raptor")
|
||||
{
|
||||
%type = ScoutFlyer;
|
||||
} else if(%args $= "Airwing")
|
||||
{
|
||||
%type = StrikeFlyer;
|
||||
} else if(%args $= "Superior")
|
||||
{
|
||||
%type = SuperiorityFighter;
|
||||
}
|
||||
|
||||
if(%args $= "")
|
||||
{
|
||||
MessageClient(%sender, "Msg", "\c2Please specifiy the vehicle type.");
|
||||
} else if(%args !$= "Raptor" && %args !$= "Airwing" && %args !$= "Superior")
|
||||
{
|
||||
MessageClient(%sender, "Msg", "\c3"@%args@"\c2 is not a valid vehicle.");
|
||||
}
|
||||
|
||||
%veh = new FlyingVehicle()
|
||||
{
|
||||
dataBlock = ""@%type@"";
|
||||
position = ""@%newpos@"";
|
||||
rotation = ""@%rot@"";
|
||||
team = %sender.team;
|
||||
};
|
||||
|
||||
MissionCleanUp.add(%veh);
|
||||
setTargetSensorGroup(%veh.getTarget(), %sender.team);
|
||||
commandToClient(%sender,'SetDefaultVehicleKeys', true);
|
||||
commandToClient(%sender,'SetPilotVehicleKeys', true);
|
||||
%veh.mountObject(%sender.player,0);
|
||||
%veh.playAudio(0, MountVehicleSound);
|
||||
%sender.player.mVehicle = %col;
|
||||
%datablock = %type;
|
||||
%datablock.playerMounted(%veh,%sender.player, 0);
|
||||
}
|
||||
|
||||
// Eolk
|
||||
function ccNoVote(%sender, %args)
|
||||
{
|
||||
if(!%sender.isAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Target does not exist.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2This command does not affect admins.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(Game.scheduleVote !$= "")
|
||||
{
|
||||
messageClient(%sender, "", "\c2Cannot do this while a vote is in progress.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.canVote)
|
||||
{
|
||||
messageClient(%sender, "", "\c3"@%target.nameBase@"'s \c2ability to vote has been taken away.");
|
||||
%target.canVote = false;
|
||||
}
|
||||
else
|
||||
{
|
||||
messageClient(%sender, "", "\c3"@%target.nameBase@"'s \c2ability to vote has been given back.");
|
||||
%target.canVote = true;
|
||||
}
|
||||
}
|
||||
234
Scripts/ModScripts/ChatCommands/HelpCommand.cs
Normal file
234
Scripts/ModScripts/ChatCommands/HelpCommand.cs
Normal file
|
|
@ -0,0 +1,234 @@
|
|||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
// Help Commands, by Blnukem.
|
||||
// Note to other ACCM Devs, this method is best for telling clients each command
|
||||
// and it is pretty clean. Although it can be a pain when adding new commands,
|
||||
// but I'll be doing that, not you guys. (Since Eolk will fuck it up [Again])
|
||||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
|
||||
function ccSquadHelp(%sender, %args){
|
||||
messageClient(%sender, "", "\c3/CreateSquad [Name] \c2- Create your own squad. (Sergeant Rank Required)");
|
||||
messageClient(%sender, "", "\c3/S [Text] \c2- Privatly Chat with your squad.");
|
||||
messageClient(%sender, "", "\c3/LeaveSquad \c2- Leave the squad you are in.");
|
||||
messageClient(%sender, "", "\c3/Invite [PlayerName] \c2- Invite a person to your Squad.");
|
||||
messageClient(%sender, "", "\c3/RequestInvite [SquadName] \c2- Request an Invite to a Squad.");
|
||||
messageClient(%sender, "", "\c3/Join \c2- Use this to accept an invite to a squad.");
|
||||
messageClient(%sender, "", "\c3/SOL \c2- Spawn around your squad's leader.");
|
||||
messageClient(%sender, "", "\c3/ListSquads \c2- Lists all squads in the server.");
|
||||
messageClient(%sender, "", "\c3/Force [Join/Leave] [SquadName] [PlayerName] \c2- Force a person to leave/join a squad. (General Rank Required)");
|
||||
}
|
||||
|
||||
function ccRankHelp(%sender, %args){
|
||||
messageClient(%sender, "", "\c3/ItemRestrictions \c2- Gives a list of the weapons/packs that are restricted to ranks.");
|
||||
messageClient(%sender, "", "\c3/Top5 \c2- Gives a list of players with the highest ranks.");
|
||||
messageClient(%sender, "", "\c3/ListRanks \c2- Lists all the ranks and the points required to get that rank.");
|
||||
messageClient(%sender, "", "\c3/CheckStats \c2- Check your current rank and score.");
|
||||
messageClient(%sender, "", "\c3/CheckStats [PlayerName] \c2- Check the current rank and score of another person.");
|
||||
}
|
||||
|
||||
function ccItemRestrictions(%sender, %args){
|
||||
messageClient(%sender, "", "\c3M79 Grenade Launcher \c2- Points Required:\c3 1250\c2 Rank Required:\c3 Specialist\c2.");
|
||||
messageClient(%sender, "", "\c3Gauss Cannon \c2- Points Required:\c3 4800\c2 Rank Required:\c3 Master Sergeant\c2.");
|
||||
messageClient(%sender, "", "\c3Napalm Mortar \c2- Points Required:\c3 6000\c2 Rank Required:\c3 Second Lieutenant\c2.");
|
||||
messageClient(%sender, "", "\c3Jet Booster Pack \c2- Points Required:\c3 2550\c2 Rank Required:\c3 Staff Sergeant\c2.");
|
||||
messageClient(%sender, "", "\c3Flame Turret Barrel \c2- Points Required:\c3 1800\c2 Rank Required:\c3 Sergeant\c2.");
|
||||
}
|
||||
|
||||
function ccListRanks(%sender, %args){
|
||||
messageClient(%sender, "", "\c3Private\c2 - Points Required:\c3 250\c2.");
|
||||
messageClient(%sender, "", "\c3Private First Class\c2 - Points Required:\c3 500\c2.");
|
||||
messageClient(%sender, "", "\c3Corporal\c2 - Points Required:\c3 1250\c2.");
|
||||
messageClient(%sender, "", "\c3Specialist\c2 - Points Required:\c3 1800\c2.");
|
||||
messageClient(%sender, "", "\c3Sergeant\c2 - Points Required:\c3 2550\c2.");
|
||||
messageClient(%sender, "", "\c3Staff Sergeant\c2 - Points Required:\c3 3600\c2.");
|
||||
messageClient(%sender, "", "\c3Sergeant First Class\c2 - Points Required:\c3 4800\c2.");
|
||||
messageClient(%sender, "", "\c3Master Sergeant\c2 - Points Required:\c3 6000\c2.");
|
||||
messageClient(%sender, "", "\c3Second Lieutenant\c2 - Points Required:\c3 8500\c2.");
|
||||
messageClient(%sender, "", "\c3First Lieutenant\c2 - Points Required:\c3 9750\c2.");
|
||||
messageClient(%sender, "", "\c3Captian\c2 - Points Required:\c3 9750\c2.");
|
||||
messageClient(%sender, "", "\c3Major\c2 - Points Required:\c3 11000\c2.");
|
||||
messageClient(%sender, "", "\c3Lieutenant Colonel\c2 - Points Required:\c3 15500\c2.");
|
||||
messageClient(%sender, "", "\c3Colonel\c2 - Points Required:\c3 18500\c2.");
|
||||
messageClient(%sender, "", "\c3Brigadier General\c2 - Points Required:\c3 22500\c2.");
|
||||
messageClient(%sender, "", "\c3Major General\c2 - Points Required:\c3 30000\c2.");
|
||||
messageClient(%sender, "", "\c3Lieutenant General\c2 - Points Required:\c3 50000\c2.");
|
||||
messageClient(%sender, "", "\c3General\c2 - Points Required:\c3 75000\c2.");
|
||||
messageClient(%sender, "", "\c3General Of The Army\c2 - Points Required:\c3 90000\c2.");
|
||||
}
|
||||
|
||||
function ccZombiePointHelp(%sender, %args){
|
||||
return;
|
||||
if(!%sender.isAdmin && !%sender.isZombieKeeper)
|
||||
return;
|
||||
|
||||
messageClient(%sender, "", "\c3/PlaceZombiePoint [SpawnName] [ZType] [Time] [MaxZombies] [ZombieLimit] \c2- Places an advanced zombie point.");
|
||||
messageClient(%sender, "", "\c3/ListZombieSpawns \c2- Lists all the advanced zombie points.");
|
||||
messageClient(%sender, "", "\c3/DisableSpawn [SpawnName] \c2- Disables an advanced zombie point by label.");
|
||||
messageClient(%sender, "", "\c3/DisableAllSpawns \c2- Disables all advanced zombie points.");
|
||||
messageClient(%sender, "", "\c3/EnableSpawn [SpawnName] \c2- Enables an advanced zombie point by label.");
|
||||
messageClient(%sender, "", "\c3/EnableAllSpawns \c2- Enables all advanced zombie points.");
|
||||
messageClient(%sender, "", "\c3/RemoveSpawn [SpawnName] \c2- Removes an advanced zombie spawn.");
|
||||
messageClient(%sender, "", "\c3/RemoveAllSpawns \c2- Removes all advanced zombie spawns.");
|
||||
messageClient(%sender, "", "\c3/GetStatus [SpawnName] \c2- Get the status of a an advanced zombie spawn by label.");
|
||||
messageClient(%sender, "", "\c3/MarkZombieSpawns \c2- Mark all zombie spawns.");
|
||||
messageClient(%sender, "", "\c3/SaveSpawns [Radius] [FileName.cs] \c2- Save all of the advanced zombie spawns whithin said radius to said filename.");
|
||||
messageClient(%sender, "", "\c3/LoadSpawns [Radius] [FileName.cs] \c2- Load zombie spawns whithin said filename.");
|
||||
messageClient(%sender, "", "\c3/ReplaceSpawn Type[Single/Radius/All] [Arg2] \c2- Replaces advanced spawns with regular spawns. Which ones get replaced depends solely on your input.");
|
||||
}
|
||||
|
||||
function ccHelp(%sender, %args)
|
||||
{
|
||||
%base = strlwr(getword(%args, 0));
|
||||
switch$(%base){
|
||||
case "":
|
||||
messageClient(%sender, "", "\c2Help command options:");
|
||||
messageClient(%sender, "", "\c3BasicCommands \c2- \c3BuildingOptions \c2- \c3AdminCommands \c2- \c3SACommands");
|
||||
messageClient(%sender, "", "\c3SentinelCommands \c2- \c3ZombieCommands \c2- \c3DroneCommands \c2- \c3QuickCommands");
|
||||
messageClient(%sender, "", "\c2Don't understand this command? Type:\c3 /Help Usage \c2to learn how it works.");
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "Usage":
|
||||
messageClient(%sender, "", "\c0----------------------------------------------------------------------------------------------------------------------------------");
|
||||
messageClient(%sender, "", "\c2To use the help command simply type:\c3 /Help \c2then the option you wish to use.");
|
||||
messageClient(%sender, "", "\c2For Example, type this in global chat:\c3 /Help Test");
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "Test":
|
||||
messageClient(%sender, "", "\c0----------------------------------------------------------------------------------------------------------------------------------");
|
||||
messageClient(%sender, "", "\c2Good, you succesfully used the\c3 /Help \c2command.");
|
||||
messageClient(%sender, "", "\c2You can also use Quick Commands if you don't feel like typing\c3 /Help \c2before each option.");
|
||||
messageClient(%sender, "", "\c2To see the list of Quick Commands, type:\c3 /Help QuickCommands");
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "QuickCommands":
|
||||
messageClient(%sender, "", "\c3/BasicCMDS \c2- Basic Commands.");
|
||||
messageClient(%sender, "", "\c3/BuildOptions \c2- Building Options.");
|
||||
messageClient(%sender, "", "\c3/ZCMDS \c2- Zombie Commands.");
|
||||
messageClient(%sender, "", "\c3/SCMDS \c2- Sentinel Commands.");
|
||||
messageClient(%sender, "", "\c3/DCMDS \c2- Drone Commands.");
|
||||
messageClient(%sender, "", "\c3/AdminCMDS \c2- Admin Commands.");
|
||||
messageClient(%sender, "", "\c3/SACMDS \c2- Super Admin Commands.");
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "BuildingOptions":
|
||||
messageClient(%sender, "", "\c2Use the building manager in the Lobby to save your pieces.");
|
||||
messageClient(%sender, "", "\c3/Delmypieces \c2- Delete all of your pieces.");
|
||||
messageClient(%sender, "", "\c3/Objectscale [X Y Z] \c2- Basic scaling function.");
|
||||
messageClient(%sender, "", "\c3/Getscale \c2- Get the scale of an object.");
|
||||
messageClient(%sender, "", "\c3/Pos [X Y Z] \c2- This will move an object in X Y Z format.");
|
||||
messageClient(%sender, "", "\c3/GetPos \c2- This gets the postition of an object.");
|
||||
messageClient(%sender, "", "\c3/RankHelp \c2- Tells you basic information on ranks.");
|
||||
messageClient(%sender, "", "\c3/SetFreq [#] \c2- Set your power frequency.");
|
||||
messageClient(%sender, "", "\c3/ObjectName [Name] \c2- Sets a name to a deployable.");
|
||||
messageClient(%sender, "", "\c3/Radius [Radius] \c2- Sets the radius for Switches/Tripwires.");
|
||||
messageClient(%sender, "", "\c3/Cloak \c2- Makes your pieces invisible.");
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "BasicCommands":
|
||||
messageClient(%sender, "", "\c3![PlayerName] [Message] \c2- Private messaging.");
|
||||
messageClient(%sender, "", "\c3/Opendoor \c2- Point at a door and use this command to open it. (You can also use /Open)");
|
||||
messageClient(%sender, "", "\c3/Opendoor [Password] \c2- Point at a door and use this command to open it if it\'s passworded.");
|
||||
messageClient(%sender, "", "\c3/Setdoorpass [Password] \c2- Point at a door and use this to set it\'s password.");
|
||||
messageClient(%sender, "", "\c3/ChooseSpawn [#] \c2- Choose a selected spawnpoint to spawn there.");
|
||||
messageClient(%sender, "", "\c3/ListSpawns \c2- Displays all spawnpoints on your team.");
|
||||
messageClient(%sender, "", "\c3/Hack Help \c2- Tells you how to Hack enemy teleporters.");
|
||||
messageClient(%sender, "", "\c3/SquadHelp \c2- Tells you how to use squad commands.");
|
||||
messageClient(%sender, "", "\c3/RankHelp \c2- Tells you basic information on ranks.");
|
||||
messageClient(%sender, "", "\c3/Tips \c2- This will give you a random tip.");
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "SentinelCommands":
|
||||
if (!%sender.isAdmin){
|
||||
messageClient(%sender, "", "\c2Only Admins can use this command. ~wfx/misc/misc.error.wav");
|
||||
%sender.player.scriptkill($DamageType::Idiocy);
|
||||
return;
|
||||
}
|
||||
messageClient(%sender, "", "\c2Command\'s Temporarily Disabled.");
|
||||
return;
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "ZombieCommands":
|
||||
if ((!%sender.isAdmin) && (!%sender.isZombieKeeper)){
|
||||
messageClient(%sender, "", "\c2Only Admins or Zombie Keepers can use this command. ~wfx/misc/misc.error.wav");
|
||||
%sender.player.scriptkill($DamageType::Idiocy);
|
||||
return;
|
||||
}
|
||||
messageClient(%sender, "", "\c3/BuyZpack \c2- Buy a zombie pack.");
|
||||
messageClient(%sender, "", "\c3/MakeZLord [PlayerName] \c2- Make the person a lord zombie.");
|
||||
messageClient(%sender, "", "\c3/MakeRapier [PlayerName] \c2- Make the person a regular zombie.");
|
||||
messageClient(%sender, "", "\c3/Stalk [PlayerName] [ZType] Difficulty[Cool/Light/Medium/Heavy] \c2- Spawn zombies around a target.");
|
||||
messageClient(%sender, "", "\c3/Cure [PlayerName] \c2- Cures a person.");
|
||||
messageClient(%sender, "", "\c3/Infect [PlayerName] \c2- Infect the target with the zombie virus.");
|
||||
messageClient(%sender, "", "\c3/KillZombies \c2- Kills all zombies and infected.");
|
||||
messageClient(%sender, "", "\c3/ZDetectDist [Radius] \c2- Set how large the zombie detection distance is.");
|
||||
messageClient(%sender, "", "\c3/SemiInfect [PlayerName] \c2- Infect that person with the altrenative virus.");
|
||||
// messageClient(%sender, "", "\c3/ZombiePointHelp \c2- Displays commands fo advanced zombie spawn points.");
|
||||
return;
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "DroneCommands":
|
||||
if (!%sender.isAdmin){
|
||||
messageClient(%sender, "", "\c2Only Admins can use this command. ~wfx/misc/misc.error.wav");
|
||||
%sender.player.scriptkill($DamageType::Idiocy);
|
||||
return;
|
||||
}
|
||||
messageClient(%sender, "", "\c3/DroneBattle [Single/Battle/Custom] \c2- Basic Command where you can spawn either single drones, full battles, or even customize battles.");
|
||||
return;
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "AdminCommands":
|
||||
if (!%sender.isAdmin){
|
||||
messageClient(%sender, "", "\c2Only Admins can use this command. ~wfx/misc/misc.error.wav");
|
||||
%sender.player.scriptkill($DamageType::Idiocy);
|
||||
return;
|
||||
}
|
||||
messageClient(%sender, "", "\c3/JailPlayer [PlayerName] [Time] \c2- Sends a specified player to jail for a set amount of time.");
|
||||
messageClient(%sender, "", "\c3/AddTeam \c2- Add/Removes a second team.");
|
||||
messageClient(%sender, "", "\c3/Gag [PlayerName] [Time] \c2- Silences an annoying player.");
|
||||
messageClient(%sender, "", "\c3/CancelVote \c2- Cancels a vote.");
|
||||
messageClient(%sender, "", "\c3/DelPieces [PlayerName] \c2- Deletes a specified player\'s pieces.");
|
||||
messageClient(%sender, "", "\c3/Kill [PlayerName] \c2- Kill someone.");
|
||||
messageClient(%sender, "", "\c3/ChangeName [PlayerName] [NewName] \c2- Changes the target\'s name.");
|
||||
messageClient(%sender, "", "\c3/Goto [PlayerName] \c2- Go directly to a specified person.");
|
||||
messageClient(%sender, "", "\c3/Summon [PlayerName] \c2- Summon a specified person.");
|
||||
messageClient(%sender, "", "\c3/Moveto [X Y Z] \c2- Go directly to a desired location.");
|
||||
messageClient(%sender, "", "\c3/Moveme [X Y Z] \c2- Move on your X, Y or Z axis.");
|
||||
messageClient(%sender, "", "\c3/BottomPrint [Text] \c2- Send a message on the bottom of the screen.");
|
||||
messageClient(%sender, "", "\c3/CenterPrint [Text] \c2- Send a message in the center of the screen.");
|
||||
messageClient(%sender, "", "\c3/ForceTeamSpawn [TeamName] [SpawnNumber] \c2- Forces an entire team to spawn at one spawnpoint.");
|
||||
messageClient(%sender, "", "\c3/SaveBuilding [Radius] [FileName.cs] \c2- Save buildings in the server.");
|
||||
messageClient(%sender, "", "\c3/LoadBuilding [FileName.cs] \c2- Load a building file.");
|
||||
messageClient(%sender, "", "\c3/A [Message] \c2- Admin private messaging.");
|
||||
messageClient(%sender, "", "\c3/BuySCG \c2- Force a SCG into your inventory.");
|
||||
messageClient(%sender, "", "\c3/DeSmurf \c2- Remove a client\'s smurf name. And reset to their normal name.");
|
||||
messageClient(%sender, "", "\c3/Turrets \c2- Enables/disables turrets.");
|
||||
return;
|
||||
}
|
||||
|
||||
switch$(%base){
|
||||
case "SACommands":
|
||||
if (!%sender.isSuperAdmin){
|
||||
messageClient(%sender, "", "\c2Only Super Admins can use this command. ~wfx/misc/misc.error.wav");
|
||||
%sender.player.scriptkill($DamageType::Idiocy);
|
||||
return;
|
||||
}
|
||||
messageClient(%sender, "", "\c3/Admin [PlayerName] \c2- Force someone to become Admin.");
|
||||
messageClient(%sender, "", "\c3/SuperAdmin [PlayerName] \c2- Force someone to become Super Admin.");
|
||||
messageClient(%sender, "", "\c3/Info [PlayerName] \c2- Get basic info on a specified player.");
|
||||
messageClient(%sender, "", "\c3/Echo [PlayerName] \c2- Silently mute someone without them knowing.");
|
||||
messageClient(%sender, "", "\c3/Shred [PlayerName] \c2- Put someone in the ACCM paper shredder.");
|
||||
messageClient(%sender, "", "\c3/SA [Message] \c2- Super Admin private messaging.");
|
||||
return;
|
||||
}
|
||||
}
|
||||
98
Scripts/ModScripts/ChatCommands/SACommands.cs
Normal file
98
Scripts/ModScripts/ChatCommands/SACommands.cs
Normal file
|
|
@ -0,0 +1,98 @@
|
|||
//------------------------------------------------------------------------------
|
||||
// ACCM Super Admin Commands
|
||||
//------------------------------------------------------------------------------
|
||||
//------------------------------------------------------------------------------
|
||||
// Command by Eolk
|
||||
function ccSA(%sender, %args)
|
||||
{
|
||||
if(!%sender.isSuperAdmin)
|
||||
return;
|
||||
|
||||
for(%i = 0; %i < ClientGroup.getCount(); %i++)
|
||||
{
|
||||
%cl = ClientGroup.getObject(%i);
|
||||
if(%cl.isSuperAdmin)
|
||||
messageClient(%cl, 'MsgYes', "\c3[SA]\c2"@%sender.nameBase@": "@%args);
|
||||
}
|
||||
logEcho("[SUPERADMIN CHAT]: "@%sender.nameBase@": "@%args);
|
||||
}
|
||||
|
||||
// Command by Blnukem
|
||||
function ccDeadmin(%sender, %args)
|
||||
{
|
||||
if(!%sender.isSuperAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Unable to find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isSuperAdmin || !%target.isAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2Target has incorrect status of adminship.");
|
||||
return;
|
||||
}
|
||||
|
||||
%target.isAdmin = false;
|
||||
%target.isSuperAdmin = false;
|
||||
messageAll( 'MsgStripAdminPlayer', '\c3%1 \c2has de-admined\c3 %2\c2.', %sender.name, %target.name, %target );
|
||||
%target.player.setInventory("SuperChaingun", 0);
|
||||
%target.player.setInventory("SuperChaingunAmmo", 0);
|
||||
logEcho(%sender.nameBase@" ("@%sender@") de-admin'd "@%target.nameBase@" ("@%target@")");
|
||||
}
|
||||
|
||||
// Command by Blnukem
|
||||
function ccAdmin(%sender, %args)
|
||||
{
|
||||
if(!%sender.isSuperAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Unable to find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2Target has incorrect status of adminship.");
|
||||
return;
|
||||
}
|
||||
|
||||
Game.voteAdminPlayer(%sender, %target);
|
||||
%target.player.setInventory("SuperChaingun", 1);
|
||||
%target.player.setInventory("SuperChaingunAmmo", 999);
|
||||
logEcho(%sender.nameBase@" ("@%sender@") gave admin to "@%target.nameBase@" ("@%target@")");
|
||||
}
|
||||
|
||||
// Command by Blnukem
|
||||
function ccSuperAdmin(%sender, %args)
|
||||
{
|
||||
if(!%sender.isSuperAdmin)
|
||||
return;
|
||||
|
||||
%target = plnametocid(%args);
|
||||
if(!isObject(%target))
|
||||
{
|
||||
messageClient(%sender, "", "\c2Unable to find target.");
|
||||
return;
|
||||
}
|
||||
|
||||
if(%target.isSuperAdmin)
|
||||
{
|
||||
messageClient(%sender, "", "\c2Target has incorrect status of adminship.");
|
||||
return;
|
||||
}
|
||||
|
||||
%target.isAdmin = true;
|
||||
%target.isSuperAdmin = true;
|
||||
%name = getTaggedString(%target.name);
|
||||
messageAll( 'MsgSuperAdminPlayer', '\c3%3 \c2has made\c3 %2 \c2a super admin.', %target, %name, %sender.nameBase );
|
||||
%target.player.setInventory("SuperChaingun", 1);
|
||||
%target.player.setInventory("SuperChaingunAmmo", 999);
|
||||
logEcho(%sender.nameBase@" ("@%sender@") gave super admin to "@%target.nameBase@" ("@%target@")");
|
||||
}
|
||||
1239
Scripts/ModScripts/ChatCommands/ZombieCommands.cs
Normal file
1239
Scripts/ModScripts/ChatCommands/ZombieCommands.cs
Normal file
File diff suppressed because it is too large
Load diff
763
Scripts/ModScripts/ModFunctions.cs
Normal file
763
Scripts/ModScripts/ModFunctions.cs
Normal file
|
|
@ -0,0 +1,763 @@
|
|||
//==============================================================================
|
||||
// Mod Functions
|
||||
//==============================================================================
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Blnukem.
|
||||
|
||||
function AutoBan(%client)
|
||||
{
|
||||
MessageAll('MsgAdminForce', '\c3%1 \c2was automatically banned by the server.', %client.name);
|
||||
%client.player.scriptKill(0);
|
||||
%client.setDisconnectReason( "You have been automatically banned by the server." );
|
||||
%client.schedule(0, "delete");
|
||||
BanList::add(%client.guid, %client.getAddress(), $Host::BanTime);
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Blnukem and Dark Dragon DX.
|
||||
|
||||
function applyskin(%obj,%skin,%name)
|
||||
{
|
||||
%obj.target = createTarget(%obj, %name, %skin, "Male1", '', 0, PlayerSensor);
|
||||
setTargetDataBlock(%obj.target, %obj.getDatablock());
|
||||
setTargetSensorData(%obj.target, PlayerSensor);
|
||||
setTargetSensorGroup(%obj.target, 6);
|
||||
setTargetSkin(%obj.target, %skin);
|
||||
setTargetName(%obj.target, addtaggedstring(%name));
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Blnukem.
|
||||
|
||||
function LoadDefaultSettings() {
|
||||
$Host::Cascade = 0;
|
||||
Call("EnableVehicles");
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Blnukem.
|
||||
|
||||
function ClearBasicTimer(%obj)
|
||||
{
|
||||
if(isObject(%obj))
|
||||
{
|
||||
if(%obj.BasicTimer > 0)
|
||||
{
|
||||
%obj.BasicTimer -= 1;
|
||||
%obj.BasicTimerSchedule = Schedule(1000, 0, "ClearBasicTimer", %obj);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Originally by Eolk, revised by Blnukem.
|
||||
|
||||
function Cure(%args)
|
||||
{
|
||||
%args.player.infected = 0;
|
||||
cancel(%args.player.infectedDamage);
|
||||
%args.player.infectedDamage = "";
|
||||
%args.player.beats = 0;
|
||||
%args.player.canZkill = 0;
|
||||
%args.player.hit = 0;
|
||||
cancel(%args.player.zombieAttackImpulse);
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Unknown Author
|
||||
|
||||
function plnametocid(%name)
|
||||
{
|
||||
%count = ClientGroup.getCount();
|
||||
for(%i = 0; %i < %count; %i++)
|
||||
{
|
||||
%obj = ClientGroup.getObject(%i);
|
||||
%nametest = strlwr(%obj.namebase);
|
||||
%name = strlwr(%name);
|
||||
if(strstr(%nametest, %name) != -1)
|
||||
return %obj;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function addToZombiePointGroup(%obj)
|
||||
{
|
||||
%grp = nameToId("MissionCleanup/ZombiePoints");
|
||||
if(!isObject(%grp))
|
||||
{
|
||||
%grp = new SimGroup("ZombiePoints");
|
||||
MissionCleanup.add(%grp);
|
||||
}
|
||||
|
||||
%grp.add(%obj);
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk... Just supposed to make things pretty
|
||||
|
||||
function ZombiePoint::setStatus(%this, %status)
|
||||
{
|
||||
%this.status = %status;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk... Long, isn't it?
|
||||
|
||||
function ZombiePoint::StartSpawnLoop(%this)
|
||||
{
|
||||
if(%this.disabled)
|
||||
return;
|
||||
|
||||
if(%this.maximumZombies != -1)
|
||||
%this.spawnedZombies++;
|
||||
|
||||
if(%this.maximumZombies != -1 && (%this.spawnedZombies >= %this.maximumZombies))
|
||||
{
|
||||
%this.disabled = 1;
|
||||
return;
|
||||
}
|
||||
|
||||
if(%this.zombieLimit != -1 && (getwordcount(%this.zombieList) >= %this.zombieLimit))
|
||||
{
|
||||
%this.zombieLoop = %this.schedule(%this.timeout * 1000, "StartSpawnLoop");
|
||||
return;
|
||||
}
|
||||
|
||||
if(ZombieGroup.getCount() >= $Host::MaxZombies && $Host::MaxZombies != -1)
|
||||
{
|
||||
%this.zombieLoop = %this.schedule(%this.timeout * 1000, "StartSpawnLoop");
|
||||
return;
|
||||
}
|
||||
|
||||
%test = %this.type;
|
||||
if(%this.type $= "random")
|
||||
{
|
||||
%num = getRandom(1, 5);
|
||||
if(%num == 2)
|
||||
%test = "ravenger";
|
||||
else if(%num == 3)
|
||||
%test = "lord";
|
||||
else if(%num == 4)
|
||||
%test = "demon";
|
||||
else if(%num == 5)
|
||||
%test = "rapier";
|
||||
else
|
||||
%test = "regular";
|
||||
}
|
||||
|
||||
switch$(%test)
|
||||
{
|
||||
case "regular":
|
||||
%zombie = new Player() {
|
||||
datablock = "ZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Zombie");
|
||||
|
||||
%type = 1;
|
||||
case "ravenger":
|
||||
%zombie = new Player() {
|
||||
datablock = "FZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Ravenger Zombie");
|
||||
|
||||
%type = 2;
|
||||
case "lord":
|
||||
%zombie = new player(){
|
||||
datablock = "LordZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'ZLord',"Zombie Lord");
|
||||
|
||||
%zombie.client = $zombie::Lclient;
|
||||
%zombie.mountImage(ZHead, 3);
|
||||
%zombie.mountImage(ZBack, 4);
|
||||
%zombie.mountImage(ZDummyslotImg, 5);
|
||||
%zombie.mountImage(ZDummyslotImg2, 6);
|
||||
%zombie.firstFired = 0;
|
||||
%zombie.canmove = 1;
|
||||
%type = 3;
|
||||
|
||||
case "demon":
|
||||
%zombie = new player(){
|
||||
datablock = "DemonZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Demon Zombie");
|
||||
|
||||
%zombie.mountImage(ZdummyslotImg, 4);
|
||||
%type = 4;
|
||||
|
||||
case "rapier":
|
||||
%zombie = new player(){
|
||||
datablock = "RapierZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Rapier Zombie");
|
||||
|
||||
%zombie.mountImage(ZWingImage, 3);
|
||||
%zombie.mountImage(ZWingImage2, 4);
|
||||
%zombie.setActionThread("scoutRoot",true);
|
||||
%type = 5;
|
||||
}
|
||||
|
||||
%zombie.type = %type;
|
||||
%zombie.setTransform(%this.spawnTransform);
|
||||
%zombie.team = 0;
|
||||
%zombie.canJump = 1;
|
||||
%zombie.hasTarget = 0;
|
||||
%zombie.isCompZomb = 1;
|
||||
if(%this.zombieLimit != -1)
|
||||
{
|
||||
%zombie.overwatcher = %this;
|
||||
%this.zombieList = listAdd(%this.zombieList, %zombie, -1);
|
||||
}
|
||||
|
||||
AddToZombieGroup(%zombie);
|
||||
schedule(1000, %zombie, "ZSetRandomMove", %zombie);
|
||||
schedule(1000, %zombie, "ZombieLookforTarget", %zombie);
|
||||
|
||||
%this.zombieLoop = %this.schedule(%this.timeout * 1000, "StartSpawnLoop");
|
||||
%this.setStatus("Spawning zombies.");
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function zombieSpawnByName(%name)
|
||||
{
|
||||
%name = strlwr(%name);
|
||||
%grp = nameToId("MissionCleanup/ZombiePoints");
|
||||
if(!isObject(%grp))
|
||||
return 0;
|
||||
for(%i = 0; %i < %grp.getCount(); %i++)
|
||||
{
|
||||
%obj = %grp.getObject(%i);
|
||||
%objname = strlwr(%obj.label);
|
||||
if(%name $= %objname)
|
||||
return %obj;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function AssignStalkMonitor(%target, %ztype, %stype)
|
||||
{
|
||||
if(isObject(%target.stalkMonitor))
|
||||
return;
|
||||
|
||||
%s = new ScriptObject()
|
||||
{
|
||||
class = StalkMonitor;
|
||||
};
|
||||
|
||||
MissionCleanup.add(%s); // this kills any lingering ones at the mission end.
|
||||
|
||||
// assign the necessary flags.
|
||||
%s.target = %target;
|
||||
// note: these are already strlwr()ed.
|
||||
%s.ztype = %ztype;
|
||||
%s.stype = %stype;
|
||||
|
||||
// this is here mainly for a reminder...
|
||||
// %s.lastztype = "";
|
||||
// %s.laststype = "";
|
||||
%s.coolvar = "light";
|
||||
%s.coolcount = 0;
|
||||
%s.coolup = 1;
|
||||
|
||||
// tag 'em.
|
||||
%target.stalkMonitor = %s;
|
||||
}
|
||||
|
||||
// This is for easy time adjusting.
|
||||
$SwarmLoopTime["heavy"] = 1000; // 1 second.
|
||||
$SwarmLoopTime["medium"] = 5000; // 5 seconds.
|
||||
$SwarmLoopTime["light"] = 10000; // 10 seconds.
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function StalkMonitor::StalkLoop(%this)
|
||||
{
|
||||
if(!%this)
|
||||
return;
|
||||
|
||||
%target = %this.target;
|
||||
if(!isObject(%target))
|
||||
{
|
||||
// Let's pack our bags and go. Our work is done here.
|
||||
%this.doneStalking();
|
||||
return;
|
||||
}
|
||||
|
||||
if(!isObject(%target.player))
|
||||
{
|
||||
if(%this.stype !$= "cool")
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.stype], "StalkLoop");
|
||||
else // don't update. They were in observer.
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.coolvar], "StalkLoop");
|
||||
return;
|
||||
}
|
||||
|
||||
if(ZombieGroup.getCount() >= $Host::MaxZombies && $Host::MaxZombies != -1)
|
||||
{
|
||||
if(%this.stype !$= "cool")
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.stype], "StalkLoop");
|
||||
else // don't update. There isn't an available zombie spot.
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.coolvar], "StalkLoop");
|
||||
return;
|
||||
}
|
||||
|
||||
%monitor = %target.stalkMonitor;
|
||||
%test = %monitor.ztype;
|
||||
if(%test $= "random")
|
||||
{
|
||||
%num = getRandom(1, 5);
|
||||
if(%num == 2)
|
||||
%test = "ravenger";
|
||||
else if(%num == 3)
|
||||
%test = "lord";
|
||||
else if(%num == 4)
|
||||
%test = "demon";
|
||||
else if(%num == 5)
|
||||
%test = "rapier";
|
||||
else
|
||||
%test = "regular";
|
||||
}
|
||||
|
||||
switch$(%test)
|
||||
{
|
||||
case "regular":
|
||||
%zombie = new Player() {
|
||||
datablock = "ZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Zombie");
|
||||
|
||||
%type = 1;
|
||||
case "ravenger":
|
||||
%zombie = new Player() {
|
||||
datablock = "FZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Ravenger Zombie");
|
||||
|
||||
%type = 2;
|
||||
case "lord":
|
||||
%zombie = new player(){
|
||||
datablock = "LordZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'ZLord',"Zombie Lord");
|
||||
|
||||
%zombie.client = $zombie::Lclient;
|
||||
%zombie.mountImage(ZHead, 3);
|
||||
%zombie.mountImage(ZBack, 4);
|
||||
%zombie.mountImage(ZDummyslotImg, 5);
|
||||
%zombie.mountImage(ZDummyslotImg2, 6);
|
||||
%zombie.firstFired = 0;
|
||||
%zombie.canmove = 1;
|
||||
%type = 3;
|
||||
|
||||
case "demon":
|
||||
%zombie = new player(){
|
||||
datablock = "DemonZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Demon Zombie");
|
||||
|
||||
%zombie.mountImage(ZdummyslotImg, 4);
|
||||
%type = 4;
|
||||
|
||||
case "rapier":
|
||||
%zombie = new player(){
|
||||
datablock = "RapierZombieArmor";
|
||||
};
|
||||
applyskin(%zombie,'Zombie',"Rapier Zombie");
|
||||
|
||||
%zombie.mountImage(ZWingImage, 3);
|
||||
%zombie.mountImage(ZWingImage2, 4);
|
||||
%zombie.setActionThread("scoutRoot",true);
|
||||
%type = 5;
|
||||
}
|
||||
|
||||
%zombie.type = %type;
|
||||
%pos = %target.player.position;
|
||||
// cheezy randomness. Should work.
|
||||
// TODO: Add a check for interior, etc. Look at alternateSpawn.
|
||||
%rand = getRandomB();
|
||||
if(%rand)
|
||||
%x = getword(%pos, 0) + getRandom(25, 100);
|
||||
else
|
||||
%x = getword(%pos, 0) - getRandom(25, 100);
|
||||
|
||||
%rand = getRandomB();
|
||||
if(%rand)
|
||||
%y = getword(%pos, 1) + getRandom(25, 100);
|
||||
else
|
||||
%y = getword(%pos, 1) - getRandom(25, 100);
|
||||
%z = getTerrainHeight(%x SPC %y);
|
||||
|
||||
%dapos = %x SPC %y SPC %z;
|
||||
%typeMasks = $TypeMasks::VehicleObjectType | $TypeMasks::MoveableObjectType | $TypeMasks::PlayerObjectType | $TypeMasks::TurretObjectType;
|
||||
InitContainerRadiusSearch(%dapos, 2, %typeMasks);
|
||||
if(ContainerSearchNext != 0)
|
||||
{
|
||||
// This position isn't valid, let's not spawn this round.
|
||||
if(%this.stype !$= "cool")
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.stype], "StalkLoop");
|
||||
else // don't update. They were in observer.
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.coolvar], "StalkLoop");
|
||||
return;
|
||||
}
|
||||
|
||||
%zombie.setTransform(%dapos SPC "1 0 0 0");
|
||||
%zombie.team = 0;
|
||||
%zombie.canJump = 1;
|
||||
%zombie.hasTarget = 0;
|
||||
%zombie.isCompZomb = 1;
|
||||
|
||||
AddToZombieGroup(%zombie);
|
||||
schedule(1000, %zombie, "ZSetRandomMove", %zombie);
|
||||
schedule(1000, %zombie, "ZombieLookforTarget", %zombie);
|
||||
|
||||
if(%this.stype !$= "cool")
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.stype], "StalkLoop");
|
||||
else
|
||||
{
|
||||
%this.UpdateCoolVariables();
|
||||
%this.stalkSchedule = %this.schedule($SwarmLoopTime[%this.coolvar], "StalkLoop");
|
||||
}
|
||||
}
|
||||
|
||||
$StalkCoolTime["light"] = 10; // 100 seconds of boredom. :P
|
||||
$StalkCoolTime["medium"] = 15; // 75 seconds of balanced zombie invasions.
|
||||
$StalkCoolTime["heavy"] = 30; // 30 seconds of pure heck. :)
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function StalkMonitor::UpdateCoolVariables(%this)
|
||||
{
|
||||
%this.coolcount++;
|
||||
if(%this.coolcount >= ($StalkCoolTime[%this.coolvar] + 1)) // Add an extra to it so that the amount of times actually gets done.
|
||||
{
|
||||
%this.coolcount = 0;
|
||||
if(%this.coolvar $= "light")
|
||||
{
|
||||
%this.coolvar = "medium";
|
||||
%this.coolup = 1;
|
||||
}
|
||||
else if(%this.coolvar $= "medium")
|
||||
{
|
||||
if(%this.coolup == 1)
|
||||
%this.coolvar = "heavy";
|
||||
else
|
||||
%this.coolvar = "light";
|
||||
}
|
||||
else if(%this.coolvar $= "heavy")
|
||||
{
|
||||
%this.coolvar = "medium";
|
||||
%this.coolup = 0;
|
||||
}
|
||||
else
|
||||
error(%this @": Cannot update cooldown count. Unknown coolvar.");
|
||||
}
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function StalkMonitor::doneStalking(%this)
|
||||
{
|
||||
// echo(%this @": Done stalking. Terminating...");
|
||||
cancel(%this.stalkSchedule);
|
||||
%this.stalkSchedule = "";
|
||||
%this.target.stalkMonitor = "";
|
||||
|
||||
%this.schedule(500, "delete");
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function opposite(%num)
|
||||
{
|
||||
return %num * -1;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function SimObject::isTSStaticObject(%obj)
|
||||
{
|
||||
// If it doesn't have a shape name, then it definately ain't.
|
||||
if(%obj.shapeName $= "")
|
||||
return 0;
|
||||
|
||||
for(%i = 0; %i < $NumStaticTSObjects; %i++)
|
||||
{
|
||||
if(getword($StaticTSObjects[%i], 2) $= %obj.shapeName)
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ZombieGetRandom()
|
||||
{
|
||||
%rand = getRandom();
|
||||
if(%rand > 0.9)
|
||||
return 1; // Lord Zombie
|
||||
else if(%rand <= 0.8 && %rand >= 0.7)
|
||||
return 2; // Rapier
|
||||
else
|
||||
return 0; // Regular
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ClearSaveTimeout(%cl)
|
||||
{
|
||||
if(isObject(%cl))
|
||||
{
|
||||
if(%cl.saveTimeout > 0)
|
||||
{
|
||||
%cl.saveTimeout -= 1;
|
||||
%cl.saveTimeoutSchedule = schedule(1000, 0, "ClearSaveTimeout", %cl);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ClearLoadTimeout(%cl)
|
||||
{
|
||||
if(isObject(%cl))
|
||||
{
|
||||
if(%cl.loadTimeout > 0)
|
||||
{
|
||||
%cl.loadTimeout -= 1;
|
||||
%cl.loadTimeoutSchedule = schedule(1000, 0, "ClearLoadTimeout", %cl);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ReverseGetRot(%rot, %mult)
|
||||
{
|
||||
%x = getword(%rot, 0) / %mult;
|
||||
%y = getword(%rot, 1) / %mult;
|
||||
%z = getword(%rot, 2) / %mult;
|
||||
return %x SPC %y SPC %z SPC %mult;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ACCMChatLog(%client, %msg, %type, %target)
|
||||
{
|
||||
if($Host::ACCMChatLogging != 1 && $Host::ACCMEchoChat != 1)
|
||||
return;
|
||||
|
||||
%msg = stripChars(%msg, "\c0\c1\c2\c3\c4\c5\c6\c7\c8\c9\x10\x11");
|
||||
switch$(%type)
|
||||
{
|
||||
case 0:
|
||||
%t = "[GLOBAL]";
|
||||
case 1:
|
||||
%t = "[TEAM]";
|
||||
case 2:
|
||||
%t = "[PRIVATE]";
|
||||
}
|
||||
|
||||
%logdate = formattimestring("m-d-y");
|
||||
%dir = "ServerLogs/Chat/Log of "@%logdate@".log";
|
||||
if($Host::ACCMChatLogging == 1)
|
||||
{
|
||||
%temp = new FileObject();
|
||||
%temp.openforappend(%dir);
|
||||
%temp.writeline(%t @" ("@formattimestring("D m/d/y hh:nn a")@") "@%client.nameBase @""@ (%t $= "[PRIVATE]" ? " (to "@%target.nameBase@")" : "")@": "@%msg);
|
||||
%temp.close();
|
||||
%temp.delete();
|
||||
}
|
||||
|
||||
if($Host::ACCMEchoChat == 1)
|
||||
echo(%t @" ("@formattimestring("D m/d/y hh:nn a")@") "@%client.nameBase @""@ (%t $= "[PRIVATE]" ? " (to "@%target.nameBase@")" : "")@": "@%msg);
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ACCMConnectionLog(%client, %type, %reason)
|
||||
{
|
||||
if($Host::ACCMConnectionLogging != 1)
|
||||
return;
|
||||
|
||||
if(%client.nameBase $= "Sentinel" || %client.nameBase $= "Monitor")
|
||||
return;
|
||||
|
||||
if(%reason $= "")
|
||||
%reason = "Successful manual disconnect.";
|
||||
|
||||
switch$(%type)
|
||||
{
|
||||
case "connect":
|
||||
%t = "joined the server";
|
||||
case "disconnect":
|
||||
%t = "disconnected from the server (reason: "@%reason@")";
|
||||
default:
|
||||
error("ACCMConnectionLog: %type turned up unknown value. Report this!");
|
||||
return;
|
||||
}
|
||||
|
||||
%logdate = formattimestring("m-d-y");
|
||||
%dir = "ServerLogs/Connections/Log of "@%logdate@".log";
|
||||
%authInfo = %client.getAuthInfo();
|
||||
if($playingonline)
|
||||
%str = "[ONLINE] "@formattimestring("D m/d/y hh:nn a")@" (GUID: "@%client.guid@", REAL NAME: "@getField(%authInfo, 0)@", SMURF: "@%client.isSmurf@", "@%client.getAddress()@") "@%client.nameBase@" "@%t@".";
|
||||
else
|
||||
%str = "[OFFLINE] "@formattimestring("D m/d/y hh:nn a")@" ("@%client.getAddress()@") "@%client.nameBase@" "@%t@".";
|
||||
%temp = new FileObject();
|
||||
%temp.openforappend(%dir);
|
||||
%temp.writeline(%str);
|
||||
%temp.close();
|
||||
%temp.delete();
|
||||
logEcho(%str);
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function VectorCheck(%vec)
|
||||
{
|
||||
if(getword(%vec, 0) > 0)
|
||||
%x = 1;
|
||||
else if(getword(%vec, 0) < 0)
|
||||
%x = -1;
|
||||
else
|
||||
%x = 0;
|
||||
if(getword(%vec, 1) > 0)
|
||||
%y = 1;
|
||||
else if(getword(%vec, 1) < 0)
|
||||
%y = -1;
|
||||
else
|
||||
%y = 0;
|
||||
if(getword(%vec, 2) > 0)
|
||||
%z = 1;
|
||||
else if(getword(%vec, 2) < 0)
|
||||
%z = -1;
|
||||
else
|
||||
%z = 0;
|
||||
return %x SPC %y SPC %z;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function VectorPositive(%vec)
|
||||
{
|
||||
if(getword(%vec, 0) < 0)
|
||||
%x = opposite(getword(%vec, 0));
|
||||
else
|
||||
%x = getword(%vec, 0);
|
||||
if(getword(%vec, 1) < 0)
|
||||
%y = opposite(getword(%vec, 1));
|
||||
else
|
||||
%y = getword(%vec, 1);
|
||||
if(getword(%vec, 2) < 0)
|
||||
%z = opposite(getword(%vec, 2));
|
||||
else
|
||||
%z = getword(%vec, 2);
|
||||
return %x SPC %y SPC %z;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function VectorAdd2(%vec, %adder)
|
||||
{
|
||||
if(getword(%vec, 0) != 0)
|
||||
%new1 = getword(%vec, 0) + %adder;
|
||||
else
|
||||
%new1 = 0;
|
||||
if(getword(%vec, 1) != 0)
|
||||
%new2 = getword(%vec, 1) + %adder;
|
||||
else
|
||||
%new2 = 0;
|
||||
if(getword(%vec, 2) != 0)
|
||||
%new3 = getword(%vec, 2) + %adder;
|
||||
else
|
||||
%new3 = 0;
|
||||
return %new1 SPC %new2 SPC %new3;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function CheckGUID(%client)
|
||||
{
|
||||
if(!$playingonline)
|
||||
{
|
||||
error("CheckGUID: This does not work offline!");
|
||||
return;
|
||||
}
|
||||
|
||||
%authinfo = %client.getAuthInfo();
|
||||
%guid = getField(%authinfo, 3);
|
||||
return %guid;
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function CreateWaypoint(%pos, %name)
|
||||
{
|
||||
%w = new WayPoint() {
|
||||
datablock = WayPointMarker;
|
||||
name = %name;
|
||||
};
|
||||
|
||||
%w.setTransform(%pos SPC "0 0 1 0");
|
||||
%w.team = 0;
|
||||
|
||||
MissionCleanup.add(%w);
|
||||
%w.schedule(10000, "delete");
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Made by Eolk.
|
||||
|
||||
function ChangeName(%client, %name)
|
||||
{
|
||||
if(%name $= "reset")
|
||||
{
|
||||
if(%client.oldName !$= "")
|
||||
{
|
||||
removeTaggedString(%client.name);
|
||||
%client.name = "";
|
||||
%client.name = addTaggedString(%client.oldname);
|
||||
|
||||
setTargetName(%client.target, addTaggedString(%client.oldName));
|
||||
messageAll('MsgClientNameChanged', "", "", %client.name, %client);
|
||||
%client.oldname = "";
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
if(%client.oldName $= "")
|
||||
%client.oldName = getTaggedString(%client.name);
|
||||
|
||||
removeTaggedString(%client.name);
|
||||
%client.name = "";
|
||||
%realname = "\x10\c6"@%name@"\x11";
|
||||
%client.name = addTaggedString(%realname);
|
||||
|
||||
setTargetName(%client.target, addTaggedString(%realname));
|
||||
messageAll('MsgClientNameChanged', "", %client.oldname, %client.name, %client);
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue