home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 58 / pcpp58b_TRIBES.iso / Tribes / base / scripts.vol / Training_Weapons.cs < prev    next >
Encoding:
Text File  |  1998-12-16  |  24.2 KB  |  601 lines
  1. //Weapons-FixedTarget Training
  2. //--------------------------------------
  3. //all these functions do is set up the scene for each weapon.
  4. //upon killing each target assigned, the next weapon lesson will resume.
  5. exec("game.cs");
  6. exec("Training_AI.cs");
  7.  
  8. //Globals
  9. //////////////
  10. $Train::missionType = "WEAPONS";
  11. $counter = 0;
  12. $AIkilled = 0;
  13.  
  14. //-------------------------------------
  15. //fixedTargetsBlaster()
  16. //-------------------------------------
  17. function fixedTargetsBlaster(%playerId)
  18. {   
  19.    //weapon discription
  20.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>This mission will introduce you to the many weapons that are available in TRIBES.\", 10);", 5);
  21.    schedule("messageAll(0, \"~wshell_click.wav\");", 5);
  22.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Ready?\", 10);", 15);
  23.    schedule("messageAll(0, \"~wshell_click.wav\");", 15);
  24.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Let's start with the blaster.  This is an energy weapon which all armor classes can carry.  It is a good close- to medium-range weapon that feeds off of your energy supply.\", 10);", 25);
  25.    schedule("messageAll(0, \"~wshell_click.wav\");", 25);
  26.    
  27.    //mount weapons
  28.    schedule("Player::setItemCount(" @ %playerId @ ",Blaster, 1);", 25);
  29.    schedule("Player::mountItem(" @ %playerId @ ", Blaster, 0);", 25);
  30.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Time to do some shooting!  Somewhere around you a player is trying to infiltrate your base.  Eliminate him with the blaster.\", 10);", 35);
  31.    schedule("messageAll(0, \"~wshell_click.wav\");", 35);
  32.    
  33.    //drone setup
  34.    %name = "Nailz";
  35.    %group = "\"MissionGroup\\\\AI\\\\guard1\"";
  36.    schedule("initAI(" @ %name @ ", " @ %group @ ", marmor);", 35);
  37.    schedule("setTarget(" @ %playerId @ ", " @ %name @ ");", 35);
  38.    $counter++;
  39. }
  40.  
  41. //----------------------------------
  42. //fixedTargetsPlasma()
  43. //----------------------------------
  44. function fixedTargetsPlasma(%playerId)
  45. {   
  46.    //discription of weapon
  47.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Next is the plasma gun.\", 10);", 10);
  48.    schedule("messageAll(0, \"~wshell_click.wav\");", 10);
  49.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>The plasma gun has about the same range as the blaster, but far more punch.  This weapon is a good choice against slower heavy armors because of its splash damage radius. \", 10);", 20);
  50.    schedule("messageAll(0, \"~wshell_click.wav\");", 20);
  51.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Let's take out a heavy armor and see how you like it.\", 10);",30);
  52.    schedule("messageAll(0, \"~wshell_click.wav\");", 30);
  53.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Once again, an enemy tribesman has infiltrated your base, and it is up to you to dispose of the threat.\", 10);", 40);
  54.    schedule("messageAll(0, \"~wshell_click.wav\");", 40);
  55.    
  56.    //mount weapon
  57.    schedule("Player::setItemCount(" @ %playerId @ ",Blaster, 0);", 12);
  58.    schedule("Player::setItemCount(" @ %playerId @ ",Plasmagun, 1);", 12);
  59.    schedule("Player::setItemCount(" @ %playerId @ ",PlasmaAmmo, 100);", 45);
  60.    schedule("Player::mountItem(" @ %playerId @ ", Plasmagun, 0);", 12);
  61.    
  62.    //drone details
  63.    %name = "SymLink";
  64.    %group = "\"MissionGroup\\\\AI\\\\guard2\"";
  65.    schedule("initAI(" @ %name @ " ," @  %group @ " , harmor);", 45);
  66.    schedule("setTarget(" @ %playerId @ ", " @ %name @ ");", 45);
  67.    $counter++;
  68. }
  69.  
  70. //--------------------------------------
  71. //fixedTargetsChain()
  72. //--------------------------------------
  73. function fixedTargetsChain(%playerId)
  74. {   
  75.    //weapon discription
  76.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Next, the chain gun.  Capable of churning out explosive flechettes in rapid order, it can chew up even heavy armors in short order.\", 10);", 10);
  77.    schedule("messageAll(0, \"~wshell_click.wav\");", 10);
  78.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>It can be carried by all armor classes.  Deadly at short range, it loses much of its effectiveness at greater distances.\", 10);", 20);
  79.    schedule("messageAll(0, \"~wshell_click.wav\");", 20);
  80.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Let's fire a few rounds and get an idea of the range of the chain gun. Try and take out the target that is crossing your path below your base tower.\", 10);", 30);
  81.    schedule("messageAll(0, \"~wshell_click.wav\");", 30);
  82.  
  83.    //weapon mounting
  84.    schedule("Player::setItemCount(" @ %playerId @ ",Chaingun, 1);", 12);
  85.    schedule("Player::setItemCount(" @ %playerId @ ",bulletAmmo, 10000);", 35);
  86.    schedule("Player::setItemCount(" @ %playerId @ ",disclauncher, 0);", 12);
  87.    schedule("Player::mountItem(" @ %playerId @ ", Chaingun, 0);", 12);
  88.    
  89.    //drone stuff
  90.    %name = "Slacker";
  91.    %group = "\"MissionGroup\\\\AI\\\\guard4\"";
  92.    schedule("initAI(" @ %name @ " ," @  %group @ " , marmor);", 35);
  93.    schedule("setTarget(" @ %playerId @ ", " @ %name @ ");", 35);
  94.    $counter++;
  95. }
  96.     
  97. //-----------------------------------
  98. //fixedTargetsdisc()
  99. //-----------------------------------
  100. function fixedTargetsdisc(%playerId)
  101. {   
  102.    //discribe the weapon
  103.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>The next weapon available to you is the disk launcher.\", 10);", 10);
  104.    schedule("messageAll(0, \"~wshell_click.wav\");", 10);
  105.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>This is definitely a weapon that you want to master.  Little else in tribal arsenals can match the damage dealt by its magnetic spinfusor disks. This weapon also has a wide splash radius, so aim at the feet of your enemy for maximum effectivness.\", 10);", 20);
  106.    schedule("messageAll(0, \"~wshell_click.wav\");", 20);
  107.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>The best way to get a feel for this weapon is to shoot some discs.  See if you can find an enemy tribesman wandering around your tower, and take 'em out!\", 10);", 30);
  108.    schedule("messageAll(0, \"~wshell_click.wav\");", 30);
  109.    
  110.    //mount the correct weapon
  111.    schedule("Player::setItemCount(" @ %playerId @ ",Disclauncher, 1);", 12);
  112.    schedule("Player::setItemCount(" @ %playerId @ ",Plasmagun, 0);", 12);
  113.    schedule("Player::setItemCount(" @ %playerId @ ",DiscAmmo, 100);", 32);
  114.    schedule("Player::mountItem(" @ %playerId @ ", Disclauncher, 0);", 12);
  115.    
  116.    //create a drone for them to shoot 
  117.    %name = "\"Cornboy!\"";
  118.    %group = "\"MissionGroup\\\\AI\\\\guard3\"";
  119.    schedule("initAI(" @ %name @ " ," @  %group @ " , harmor);", 35);
  120.    schedule("setTarget(" @ %playerId @ ", " @ %name @ ");", 35);
  121.    $counter++;
  122. }
  123.  
  124. //-----------------------------------
  125. //fixedTargetsSniper
  126. //-----------------------------------
  127. function fixedTargetsSniper(%playerId)
  128. {   
  129.    //discribe weapon
  130.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>For long-range sniping, nothing beats the laser rifle.  A powerful energy-based weapon, it can hit a target kilometers away!\", 10);", 5);
  131.    schedule("messageAll(0, \"~wshell_click.wav\");", 5);
  132.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Because of its high energy consumption, you must also have an energy pack to use this weapon and it can only be used by light armors.\", 10);", 15);
  133.    schedule("messageAll(0, \"~wshell_click.wav\");", 10);
  134.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>The zoom feature enhances the value of the laser rifle immensely. The default zoom key is E. To change the magnification, press the Z key.  You can change the magnification to two, five, ten or even twenty times normal vision!\", 10);", 25);
  135.    schedule("messageAll(0, \"~wshell_click.wav\");", 25);
  136.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Since a head shot deals more damage than a shot to other parts of the body, being able to use the zoom feature quickly and accurately can make the difference between killing or being killed.\", 10);", 35);
  137.    schedule("messageAll(0, \"~wshell_click.wav\");", 35);
  138.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Zoom in on an enemy tribesmen and take him out. Use your compass to locate the enemy to the north of you, then take him our with the laser rifle.\", 10);", 45);
  139.    schedule("messageAll(0, \"~wshell_click.wav\");", 45);
  140.  
  141.    //mount weapon
  142.    schedule("Player::setItemCount(" @ %playerId @ ",chaingun, 0);", 8);
  143.    schedule("Player::setItemCount(" @ %playerId @ ",laserrifle, 1);", 8);
  144.    schedule("Player::setItemCount(" @ %playerId @ ",EnergyPack, 1);", 8);
  145.    schedule("Player::mountItem(" @ %playerId @ ",EnergyPack, 1);", 8);
  146.    schedule("Player::mountItem(" @ %playerId @ ", laserrifle, 0);", 8);
  147.  
  148.    //setup target to shoot
  149.    %group = "\"MissionGroup\\\\AI\\\\guard5\"";
  150.    %name = "\"GotM*lk?\"";
  151.    schedule("initAI(" @ %name @ " ," @  %group @ " , marmor);", 45);
  152.    schedule("setTarget(" @ %playerId @ ", " @ %name @ ");", 45);
  153.    $counter++;
  154.  
  155. }
  156.  
  157. //---------------------------------------
  158. //fixedTargetsGrenade()
  159. //---------------------------------------
  160. function fixedTargetsGrenade(%playerId)
  161. {   
  162.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>On to a more explosive weapon!  Let's take a look at the grenade launcher.  It can be carried by all armor classes.\", 10);", 5);
  163.    schedule("messageAll(0, \"~wshell_click.wav\");", 5);
  164.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Grenades launched from the launcher have a timed fuse, exploding a few seconds after impact.  To clear out the inside of a bunker, just lob a couple of grenades insde and watch the enemy come running out.\", 10);", 15);
  165.    schedule("messageAll(0, \"~wshell_click.wav\");", 15);
  166.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>An enemy tribesman is thinking of trying to hide in a bunker.  Time to teach him the error of his ways.\", 10);", 25);
  167.    schedule("messageAll(0, \"~wshell_click.wav\");", 25);
  168.    schedule("bottomprint(" @ %playerId @ ", \"<f1><jc>Watch the bunker at the bottom of your base tower, and fire a couple of grenades when you see the enemy tribesman run inside.\", 10);", 35);
  169.    schedule("messageAll(0, \"~wshell_click.wav\");", 35);
  170.  
  171.    //mount weapon
  172.    schedule("Player::setItemCount(" @ %playerId @ ",grenadeAmmo, 50);", 40);
  173.    schedule("Player::setItemCount(" @ %playerId @ ",laserrifle, 0);", 8);
  174.    schedule("Player::setItemCount(" @ %playerId @ ",grenadelauncher, 1);", 8);
  175.    schedule("Player::mountItem(" @ %playerId @ ", grenadelauncher, 0);", 8);
  176.  
  177.    //setup target to shoot
  178.    %group1 = "\"MissionGroup\\\\AI\\\\guard6\"";
  179.    %name1 = "Skeet";
  180.    schedule("initAI(" @ %name1 @ " ," @  %group1 @ " , harmor);", 40);
  181.    schedule("setTarget(" @ %playerId @ ", " @ %name1 @ ");", 40);
  182.    $counter++;
  183. }
  184.  
  185. //-------------------------------
  186. //weaponsStart()
  187. //-------------------------------
  188. function weaponsStart(%clientId)
  189. {
  190.   fixedTargetsBlaster(%clientId);
  191. }
  192.  
  193. //-------------------------------
  194. //initAi()
  195. //-------------------------------
  196. function initAI(%name, %group, %armor)
  197. {
  198.   createAI(%name, %group, %armor, %name);
  199. }
  200.  
  201. //-------------------------------
  202. //Game:playerSpawned()
  203. //-------------------------------
  204. function Game::playerSpawned(%pl, %clientId, %armor)
  205. {
  206.    replenishAmmo();
  207. } 
  208.  
  209. //--------------------------------
  210. //AI::onDroneKilled()
  211. //--------------------------------
  212. function AI::onDroneKilled(%aiName)
  213. {
  214.   %clientId = 2049;
  215.   //kill thy vehicle creater!
  216.   if(%aiName == "Nailz")
  217.   {
  218.     fixedTargetsPlasma(%clientId);
  219.     bottomprint(%clientId, "<f1><jc>Good Job!", 5);
  220.     $AIkilled++;
  221.     ObjectiveScreen();
  222.   }
  223.   //symlink? hmmm enjoy it cuz it won't happen often. Killing him that is.
  224.   else if(%aiName == "SymLink")
  225.   {
  226.     fixedTargetsDisc(%clientId);
  227.     bottomprint(%clientId, "<f1><jc>Good Job!", 5);
  228.     $AIkilled++;
  229.     ObjectiveScreen();
  230.   }
  231.   //kill thy mission building God!
  232.   else if(%aiName == "Cornboy!")
  233.   {
  234.     fixedTargetsChain(%clientId);
  235.     bottomprint(%clientId, "<f1><jc>Good Job!", 5);
  236.     $AIkilled++;
  237.     ObjectiveScreen();
  238.   }
  239.   //kill thy master of the engine.
  240.   else if(%aiName == "Slacker")
  241.   {
  242.     fixedTargetsSniper(%clientId);
  243.     bottomprint(%clientId, "<f1><jc>Good Job!", 5);
  244.     $AIkilled++;
  245.     ObjectiveScreen();
  246.   }
  247.   //one word, 9 lives! Make every shot count.
  248.   else if(%aiName == "GotM*lk?")
  249.   {
  250.     fixedTargetsGrenade(%clientId);
  251.     bottomprint(%clientId, "<f1><jc>Good Job!", 5);
  252.     $AIkilled++;
  253.     ObjectiveScreen();
  254.   }
  255.   //kill thy compiler of the Gods!
  256.   else if(%aiName == "Skeet")
  257.   {
  258.     endMission(%clientId);
  259.     bottomprint(%clientId, "<f1><jc>Good Job!", 5);
  260.     $AIkilled++;
  261.   }
  262. }  
  263.  
  264. //----------------------------------
  265. //endMission()
  266. //----------------------------------
  267. function endMission(%clientId)
  268. {
  269.   %name = Client::getName(%clientId);
  270.   %String = "\"<f1><jc>Way to go " @ %name @ ", you have completed the weapons introduction mission!\"";
  271.   schedule("bottomprint(" @ %clientId @ ", " @ %String @ " , 10);", 5);
  272.   schedule("messageAll(0, \"~wshell_click.wav\");", 5); 
  273.   schedule("Training::MissionComplete(" @ %clientId @ ");", 15);
  274. }
  275.  
  276. //----------------------------------
  277. //StayInBounds()
  278. //----------------------------------
  279. function StayInBounds(%clientId)
  280. { 
  281.     %player = Client::getOwnedObject(%clientId);
  282.     %flash = 0.4;
  283.     Player::setDamageFlash(%player, %flash);
  284.     %pos = "203.811 -532.056 176.938";
  285.     messageAll(0, "You must Stay inside your base!" @ "~wshieldhit.wav");
  286.     GameBase::setPosition(%ClientId, %pos);
  287. } 
  288.    
  289. //------------------------------------------
  290. //GroupTrigger::onLeave()
  291. //------------------------------------------
  292. function GroupTrigger::onLeave(%this, %object)
  293. { 
  294.    %clId = Client::getFirst();
  295.    //The trigger stuff is not completely reliable, so we'll try our own 
  296.    //hard-coded rough check here as well:
  297.    %pos = Gamebase::getPosition( %clId );
  298.  
  299.    %x = getWord(%pos, 0 );
  300.    %y = getWord(%pos, 1 );
  301.    %z = getWord(%pos, 2 );
  302.  
  303.    // Seems to work pretty well.  You can get on top of the platform now.  I increased
  304.    // the Z so you can fly pretty high (it will cause the call to the else{} below.
  305.    //
  306.    // This has the "side effect" that there now IS a way to leave the platform, but you 
  307.    // have to try, and I think it qualifies as an easter egg rather than a bug.  
  308.    if( %x < 193 || %x > 212 || %y < -539 || %y > -521 || %z < 175 || %z > 250 )
  309.    {
  310.       dbecho(2,"Out of Bounds!");
  311.       StayInBounds(%clId);
  312.    }
  313.    else
  314.    {
  315.       dbecho(2,"onLeave() erroneously called in Weapons Training");
  316.    }
  317. } 
  318.  
  319. //----------------------------------
  320. //setTarget()
  321. //----------------------------------
  322. function setTarget(%playerId, %name)
  323. {
  324.     %id = AI::getId(%name);
  325.     %targIdx = (%id - 2048);
  326.     issueTargCommand(%playerId, %playerId, 1,"Waypoint set to target", %targIdx);
  327. }                
  328.  
  329. //----------------------------------
  330. //missionSummary()
  331. //----------------------------------
  332. function missionSummary()
  333. {
  334.    %time = getSimTime();
  335.    
  336.    Training::displayBitmap(0);
  337.    Team::setObjective(0, 1, "<f5><jl>Mission Completion:");
  338.    Team::setObjective(0, 2, "<f1>   -Completed:");
  339.    Team::setObjective(0, 3, "\n");
  340.    Team::setObjective(0, 4, "<f5><jl>Mission Information:");
  341.    Team::setObjective(0, 5, "<f1>   -Mission Name: Introduction to Weapons");
  342.    Team::setObjective(0, 6, "\n");
  343.    
  344.    Team::setObjective(0, 7, "<f5><j1>Mission Summary:");
  345.    
  346.    Team::setObjective(0, 8, "<f1>   -Total Mission Time: " @ "<f1>" @ Time::getMinutes(%time) @ " Minutes " @ Time::getSeconds(%time) @ " Seconds");
  347.    Team::setObjective(0, 9, "\n");
  348.    Team::setObjective(0, 10, "\n");
  349.    Team::setObjective(0, 11, "\n");
  350.    Team::setObjective(0, 12, "\n");
  351.    Team::setObjective(0, 13, "\n");
  352.    Team::setObjective(0, 14, "\n");
  353. }
  354.  
  355. //--------------------------------------
  356. //Training::missionComplete()
  357. //--------------------------------------
  358. function Training::missionComplete(%cl)
  359. {
  360.   Client::setGuiMode(%cl, $GuiModeObjectives);
  361.   missionSummary();
  362.   remoteEval(2049, TrainingEndMission);
  363. }
  364.  
  365. //-------------------------------------
  366. //remoteTrainingEndMission()
  367. //-------------------------------------
  368. function remoteTrainingEndMission()
  369. {
  370.    schedule("EndGame();", 8);
  371. }
  372.  
  373. //------------------------------------
  374. //replenishAmmo()
  375. //------------------------------------
  376. function replenishAmmo()
  377. {
  378.   %playerId = 2049;
  379.   
  380.   if($counter == 2)
  381.     Player::setItemCount(%playerId, PlasmaAmmo, 100);                          
  382.   else if($counter == 4)
  383.     Player::setItemCount(%playerId, bulletAmmo, 100);
  384.   else if($counter == 3)
  385.     Player::setItemCount(%playerId, discAmmo, 100);
  386.   else if($counter == 5)
  387.     Player::setItemCount(%playerId ,grenadeAmmo, 100);
  388.   schedule("replenishAmmo();", 30);
  389. }
  390.  
  391. //--------------------------------------------
  392. //Game::initialMissionDrop()
  393. //--------------------------------------------
  394. function Game::initialMissionDrop(%clientId)
  395. {
  396.    GameBase::setTeam(%clientId, 0);
  397.    Client::setGuiMode(%clientId, $GuiModePlay);
  398.    Game::playerSpawn(%clientId, false);
  399.  
  400.    schedule("bottomprint(" @ %clientId @ ", \"<f1><jc>Training Mission 2 - Weapon Introduction.\", 5);", 0);
  401.    schedule("messageAll(0, \"~wshell_click.wav\");", 0); 
  402.    schedule("weaponsStart(" @ %clientId @ ");", 5);
  403.     Training::displayBitmap(0);
  404.     objectiveScreen();
  405. }
  406.  
  407. //------------------------------------------------
  408. //ObjectiveScreen()
  409. //------------------------------------------------
  410. function ObjectiveScreen()
  411. {
  412.    %time = getSimTime() - $MatchStartTime;
  413.    Training::displayBitmap(0);
  414.    Team::setObjective(0, 1, "<f5><jl>Mission Completion:");
  415.    Team::setObjective(0, 2, "<f1>   -Firing range: Weapons training in progress");
  416.    Team::setObjective(0, 3, "\n");
  417.    Team::setObjective(0, 4, "<f5><jl>Mission Information:");
  418.    Team::setObjective(0, 5, "<f1>   -Mission Name: Introduction to Weapons");
  419.    Team::setObjective(0, 6, "\n");
  420.    
  421.    Team::setObjective(0, 7, "<f5><j1>Mission Summary:");
  422.    Team::setObjective(0, 8, "<f1>   -Total Mission Time: " @ "<f1>" @ Time::getMinutes(%time) @ " Minutes " @ Time::getSeconds(%time) @ " Seconds");
  423.    Team::setObjective(0, 9, "<f1>   -Total kills: " @ $AIkilled @ " out of 6");
  424.    
  425.    Team::setObjective(0, 10, "\n");
  426.    Team::setObjective(0, 11, "\n");
  427.    Team::setObjective(0, 12, "\n");
  428.    Team::setObjective(0, 13, "\n");
  429.    Team::setObjective(0, 14, "\n");
  430. }
  431.  
  432. //----------------------------------------
  433. //Player::onDamage()
  434. //----------------------------------------
  435. function Player::onDamage(%this,%type,%value,%pos,%vec,%mom,%vertPos,%quadrant,%object)
  436. {
  437.   if(Player::getClient(%this) != Client::getFirst())    
  438.   {    
  439.     if (Player::isExposed(%this)) {
  440.       %damagedClient = Player::getClient(%this);
  441.       %shooterClient = %object;
  442.  
  443.         Player::applyImpulse(%this,%mom);
  444.         if($teamplay && %damagedClient != %shooterClient && Client::getTeam(%damagedClient) == Client::getTeam(%shooterClient) ) {
  445.             if (%shooterClient != -1) {
  446.                 %curTime = getSimTime();
  447.                if ((%curTime - %this.DamageTime > 3.5 || %this.LastHarm != %shooterClient) && %damagedClient != %shooterClient && $Server::TeamDamageScale > 0) {
  448.                     Client::sendMessage(%damagedClient,0,"You took Friendly Fire from " @ Client::getName(%shooterClient) @ "!");
  449.                     Client::sendMessage(%shooterClient,0,"You just harmed Teammate " @ Client::getName(%damagedClient) @ "!");
  450.                     %this.LastHarm = %shooterClient;
  451.                     %this.DamageStamp = %curTime;
  452.                 }
  453.             }
  454.             %friendFire = $Server::TeamDamageScale;
  455.         }
  456.         else 
  457.             %friendFire = 1.0;    
  458.  
  459.         if (!Player::isDead(%this)) {
  460.             %armor = Player::getArmor(%this);
  461.             //More damage applyed to head shots
  462.             if(%vertPos == "head" && %type == $LaserDamageType) {
  463.                 if(%armor == "harmor") { 
  464.                     if(%quadrant == "middle_back" || %quadrant == "middle_front" || %quadrant == "middle_middle") {
  465.                         %value += (%value * 0.3);
  466.                     }
  467.                 }
  468.                 else {
  469.                     %value += (%value * 0.3);
  470.                 }
  471.             }
  472.             //If Shield Pack is on
  473.             if (%type != -1 && %this.shieldStrength) {
  474.                 %energy = GameBase::getEnergy(%this);
  475.                 %strength = %this.shieldStrength;
  476.                 if (%type == $ShrapnelDamageType || %type == $MortarDamageType)
  477.                     %strength *= 0.75;
  478.                 %absorb = %energy * %strength;
  479.                 if (%value < %absorb) {
  480.                     GameBase::setEnergy(%this,%energy - ((%value / %strength)*%friendFire));
  481.                     %thisPos = getBoxCenter(%this);
  482.                     %offsetZ =((getWord(%pos,2))-(getWord(%thisPos,2)));
  483.                     GameBase::activateShield(%this,%vec,%offsetZ);
  484.                     %value = 0;
  485.                 }
  486.                 else {
  487.                     GameBase::setEnergy(%this,0);
  488.                     %value = %value - %absorb;
  489.                 }
  490.             }
  491.               if (%value) {
  492.                 %value = $DamageScale[%armor, %type] * %value * %friendFire;
  493.             %dlevel = GameBase::getDamageLevel(%this) + %value;
  494.             %spillOver = %dlevel - %armor.maxDamage;
  495.                 GameBase::setDamageLevel(%this,%dlevel);
  496.                 %flash = Player::getDamageFlash(%this) + %value * 2;
  497.                 if (%flash > 0.75) 
  498.                     %flash = 0.75;
  499.                 Player::setDamageFlash(%this,%flash);
  500.                 //If player not dead then play a random hurt sound
  501.                 if(!Player::isDead(%this)) { 
  502.                     if(%damagedClient.lastDamage < getSimTime()) {
  503.                         %sound = radnomItems(3,injure1,injure2,injure3);
  504.                         playVoice(%damagedClient,%sound);
  505.                         %damagedClient.lastdamage = getSimTime() + 1.5;
  506.                     }
  507.                 }
  508.                 else {
  509.                if(%spillOver > 0.5 && (%type== $ExplosionDamageType || %type == $ShrapnelDamageType || %type== $MortarDamageType|| %type == $MissileDamageType)) {
  510.                          Player::trigger(%this, $WeaponSlot, false);
  511.                         %weaponType = Player::getMountedItem(%this,$WeaponSlot);
  512.                         if(%weaponType != -1)
  513.                             Player::dropItem(%this,%weaponType);
  514.                     Player::blowUp(%this);
  515.                     }
  516.                     else
  517.                     {
  518.                         if ((%value > 0.40 && (%type== $ExplosionDamageType || %type == $ShrapnelDamageType || %type== $MortarDamageType || %type == $MissileDamageType )) || (Player::getLastContactCount(%this) > 6) ) {
  519.                               if(%quadrant == "front_left" || %quadrant == "front_right") 
  520.                                 %curDie = $PlayerAnim::DieBlownBack;
  521.                             else
  522.                                 %curDie = $PlayerAnim::DieForward;
  523.                         }
  524.                         else if( Player::isCrouching(%this) ) 
  525.                             %curDie = $PlayerAnim::Crouching;                            
  526.                         else if(%vertPos=="head") {
  527.                             if(%quadrant == "front_left" ||    %quadrant == "front_right"    ) 
  528.                                 %curDie = radnomItems(2, $PlayerAnim::DieHead, $PlayerAnim::DieBack);
  529.                               else 
  530.                                 %curDie = radnomItems(2, $PlayerAnim::DieHead, $PlayerAnim::DieForward);
  531.                         }
  532.                         else if (%vertPos == "torso") {
  533.                             if(%quadrant == "front_left" ) 
  534.                                 %curDie = radnomItems(3, $PlayerAnim::DieLeftSide, $PlayerAnim::DieChest, $PlayerAnim::DieForwardKneel);
  535.                             else if(%quadrant == "front_right") 
  536.                                 %curDie = radnomItems(3, $PlayerAnim::DieChest, $PlayerAnim::DieRightSide, $PlayerAnim::DieSpin);
  537.                             else if(%quadrant == "back_left" ) 
  538.                                 %curDie = radnomItems(4, $PlayerAnim::DieLeftSide, $PlayerAnim::DieGrabBack, $PlayerAnim::DieForward, $PlayerAnim::DieForwardKneel);
  539.                             else if(%quadrant == "back_right") 
  540.                                 %curDie = radnomItems(4, $PlayerAnim::DieGrabBack, $PlayerAnim::DieRightSide, $PlayerAnim::DieForward, $PlayerAnim::DieForwardKneel);
  541.                         }
  542.                         else if (%vertPos == "legs") {
  543.                             if(%quadrant == "front_left" ||    %quadrant == "back_left") 
  544.                                 %curDie = $PlayerAnim::DieLegLeft;
  545.                             if(%quadrant == "front_right" ||    %quadrant == "back_right") 
  546.                                 %curDie = $PlayerAnim::DieLegRight;
  547.                         }
  548.                         Player::setAnimation(%this, %curDie);
  549.                     }
  550.                     if(%type == $ImpactDamageType && %object.clLastMount != "")  
  551.                         %shooterClient = %object.clLastMount;
  552.                        Client::onKilled(%damagedClient,%shooterClient, %type);
  553.                 }
  554.             }
  555.         }
  556.       }
  557.   }
  558. }
  559.  
  560.  
  561. //-------------------------------------
  562. //Ammo::onDrop() -don't be an idiot!
  563. //-------------------------------------
  564. function Ammo::onDrop(%player,%item)
  565. {
  566.     if($matchStarted) {
  567.         %count = Player::getItemCount(%player,%item);
  568.         %delta = $SellAmmo[%item];
  569.         if(%count <= %delta) { 
  570.             if( %item == "BulletAmmo" || (Player::getMountedItem(%player,$WeaponSlot)).imageType.ammoType != %item)
  571.                 %delta = %count;
  572.             else 
  573.                 %delta = %count - 1;
  574.  
  575.         }
  576.         if(%delta > 0) {
  577.             %obj = newObject("","Item",%item,%delta,false);
  578.           schedule("Item::Pop(" @ %obj @ ");", $ItemPopTime, %obj);
  579.  
  580.           addToSet("MissionCleanup", %obj);
  581.             GameBase::throw(%obj,%player,20,false);
  582.             messageAll(0, "~wmale2.wdsgst2.wav");
  583.             Player::decItemCount(%player,%item,%delta);
  584.         }
  585.     }
  586. }    
  587.  
  588.  
  589. //do nothing functions
  590. function remoteScoresOn(%clientId)
  591. {
  592. }
  593.  
  594. function remoteScoresOff(%clientId)
  595. {
  596. }
  597.  
  598. function Item::onDrop(%player, %item)
  599. {
  600. }
  601.