define procedure <CombatAttack>
set numeric <player_combat_roll;$rand(0;%Player_Skill%)$>
msg <%player_combat_roll%>
set string <target; $parameter(1)$>
msg <You lunge for the #@target#>
set numeric <opponent_combat_roll;$rand(0;#(target):Skill#)$>
msg <%opponent_combat_roll%>
if ( %player_combat_roll% >= %opponent_combat_roll% ) then {
msg <You strike the #@opponent#>
}
else {
msg <The #@opponent# strikes you>
}
end define