| Code: |
use uo;
use os;
include "include/skillpoints";
include "include/attributes";
program shilcombat()
print( "Using ShilcombatAdvancement..." );
return 1;
endprogram
exported function ShilCombatAdvancement( attacker, weapon, defender )
If( weapon )
Var SkillID := FindSkillidByIdentifier(weapon.attribute);
AwardPoints( attacker, SkillID, 30 );
Else
AwardPoints( attacker, 43, 30 );
Endif
AwardPoints( attacker, 27, 30 );
endfunction
function FindSkillidByIdentifier(skid)
var retval;
case(skid)
"Wrestling": retval := SKILLID_WRESTLING;
"Fencing": retval := SKILLID_FENCING;
"Swords": retval := SKILLID_SWORDSMANSHIP;
"Swordsmanship": retval := SKILLID_SWORDSMANSHIP;
"Mace": retval := SKILLID_MACEFIGHTING;
"Macefighting": retval := SKILLID_MACEFIGHTING;
"Archery": retval := SKILLID_ARCHERY;
endcase
return retval;
endfunction |