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

24 lines
565 B
Text
Raw Permalink Normal View History

use uo;
use os;
use polsys;
program MainHitScript( attacker, defender, weapon, armor, basedamage, rawdamage )
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