polserver/testsuite/pol/testpkgs/attack/attackhitscript.src

use uo;
use os;
use polsys;
use vitals;

program MainHitScript( attacker, defender, weapon, armor, basedamage, rawdamage )
  var damage := GetObjProperty( attacker, "#Damage" );
  if ( damage )
    ApplyDamage( defender, CInt( damage ) );
  endif
  var pid := GetObjProperty( attacker, "#TestPid" );
  if ( pid )
    var ev := struct{ type := "HIT",
                      attacker := attacker,
                      "attacker.name" := attacker.name,
                      defender := defender,
                      "defender.name" := defender.name,
                      weapon := weapon,
                      armor := armor,
                      basedamage := basedamage,
                      rawdamage := rawdamage,
                      gameclock := ReadGameClock() };

    GetProcess( pid ).SendEvent( ev );
  endif
endprogram