Experimenting with weapon collision and using mounted objects

function BastardSword_Image::OnFire(%this, %obj, %slot)
{
   %player = %obj.client.player;
   %client = $pref::Player::ServerID;
   if (%slot == 0)
   {
      %player.playThread(1,"light_recoil");
      %this.PlaySchedule = schedule( 1000, 0,  stopplay, %this, %player); 
      // check collision when sword is at front
      %this.CheckFire = schedule( 400, 0,  DidSwordHit, %this, %player);  
   }
   
   if (%slot == 1)
   {
      %player.playThread(1,"slash2");
      %this.PlaySchedule = schedule( 1000, 0,  stopplay, %this, %player);
      // check collision when sword is at front
      %this.CheckFire = schedule( 400, 0,  DidSwordHit, %this, %player);   
   }
   
   
   
   // generate a swish sound
   %knifesound = new AudioEmitter() 
   {
       position = %player.position;
       fileName = "~/data/shapes/weapons/bastard_sword/swordswish.ogg";
       description = AudioClose3d;  //for loud sound
       preload = false;
   };
   %this.killit = %this.schedule(1000,"KillSwishSound",%knifesound);
 
   

}

function DidSwordHit(%this,%player)
{
   cancel(%this.CheckFire);
   
   // ~~~~  chose vector from player with short range to see if hit ~~~~~~~
   %eye = %player.getEyeVector();
   %vec = vectorScale(%eye, 2); // distance we can hit from 
   %start = %player.getEyeTransform();
   %end = VectorAdd(%start,%vec);
   %found = ContainerRayCast (%start, %end, $TypeMasks::PlayerObjectType, %player);

   // ~~~~~  if we got a target  then damage it  and create a hit sound ~~~~~~~~~~~~~
   if (%found>0)
   {
      //  ~~~~~~  hit sound emitter create ~~~~~~~~~~~
      %hitsound = new AudioEmitter() 
      {
         position = %player.position;
         fileName = "~/data/shapes/weapons/bastard_sword/metalthud.ogg";
         description = AudioClose3d;  //for loud sound
         preload = false;
      };
      %this.killit = %this.schedule(2000,"KillSwishSound",%hitsound);
      
      %mypos = %player.getposition();
      %transform = %found.getTransform();
      %posX = getWord(%transform, 0);
      %posY = getWord(%transform, 1);
      %posZ = getWord(%transform, 2);
      %posX = %posX;
      %posY = %posY;
      %posZ = %posZ + 1.8;  // head
      %posZ2 = %posZ - 0.2; // torso
      %position = %posX SPC %posY SPC %posZ SPC 0 SPC 0 SPC 0 SPC 1;
      %position2 = %posX SPC %posY SPC %posZ2 SPC 0 SPC 0 SPC 0 SPC 1;

      //~~~~~   create blood splats from hit ~~~~~~~~~~~~
      %this.blood1 = %this.schedule(250,"GeneratateBloodFX",%position);
      %this.blood2 = %this.schedule(350,"GeneratateBloodFX",%position2);
      %theirpos = %found.getposition();
      %vector = VectorSub(%theirpos, %mypos);
      %vector = VectorNormalize(%vector);

      //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      //Damage 20 on Bastard Sword.  min 5 max 25 base  from BastardSword_Image datablock
      //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

      %lowerdamage = %this.damage - 5;
      %upperdamage = %this.damage + 5; 
      %hitdamage = getRandom(%lowerdamage,%upperdamage);  //  random 15 - 25

      //~~~~~  APPLY DAMAGE ~~~~~~~~~~~~~~~~~~~~~

      %found.getDataBlock().damage(%found, %obj, %vector, %hitdamage, "Melee"); 
   }
}

//~~~~  stop animation after one swing ~~~~~~~
function stopplay(%this,%player)
{
   %player.stopThread(1);
}


//~~~~~  kill  hit sound  ~~~~~~~~~~~~
function BastardSword_Image::KillSwishSound(%this, %soundtokill)
{
   %soundtokill.delete();
}