Question Parry and Dodge Fix

/* Decide whether this is a hit or a miss. * Victim asleep = hit, otherwise: * 1 = Automatic miss. * 2..19 = Checked vs. AC. * 20 = Automatic hit. */ if (diceroll == 20 || !AWAKE(victim)) dam = TRUE; else if (diceroll == 1) dam = FALSE; else dam = (calc_thaco - diceroll <= victim_ac); + /* Dodge and Parry Snippet */ + if (dam) { + if (!IS_NPC(victim) && GET_SKILL(victim, SKILL_PARRY) > 0) { + prob = rand_number(1, 101); + if (prob < GET_SKILL(victim, SKILL_PARRY)) { + chance = rand_number(1, 100); + if (chance <= 15) { + act("$N parries your attack!", FALSE, ch, NULL, victim, TO_CHAR); + act("You parry $n's attack!", FALSE, ch, NULL, victim, TO_VICT); + act("$N parries $n's attack!", FALSE, ch, NULL, victim, TO_NOTVICT); + dam = FALSE; + } + } + + if (GET_SKILL(victim, SKILL_PARRY) > 0) + chance = rand_number(1, 100); + else + chance = 0; + + if ((chance <= 10) && (GET_SKILL(victim, SKILL_PARRY) < 80) && (GET_SKILL(victim, SKILL_PARRY) > 0)) { + send_to_char(victim, "\tGYour parrying skill has gone up!\tn\r\n"); + GET_SKILL(victim, SKILL_PARRY) += 1; + } + } + else if (!IS_NPC(victim) && GET_SKILL(victim, SKILL_DODGE) > 0) { + prob = rand_number(1, 101); + if (prob < GET_SKILL(victim, SKILL_DODGE)) { + chance = rand_number(1, 100); + if (chance <= 15 ) { + act("$N dodges your attack!", FALSE, ch, NULL, victim, TO_CHAR); + act("You dodge $n's attack!", FALSE, ch, NULL, victim, TO_VICT); + act("$N dodges $n's attack!", FALSE, ch, NULL, victim, TO_NOTVICT); + dam = FALSE; + } + } + + if (GET_SKILL(victim, SKILL_DODGE) > 0) + chance = rand_number(1, 100); + else + chance = 0; + + if ((chance <= 10) && (GET_SKILL(victim, SKILL_DODGE) < 80) && (GET_SKILL(victim, SKILL_DODGE) > 0)) { + send_to_char(victim, "\tGYour dodging skill has gone up!\tn\r\n"); + GET_SKILL(victim, SKILL_DODGE) += 1; + } + } + } + /* End Dodge and Parry */ if (!dam) /* the attacker missed the victim */ damage(ch, victim, 0, type == SKILL_BACKSTAB ? SKILL_BACKSTAB : w_type); else {

  else    dam = FALSE; /* Dodge Check */   if (dam) {     if (IS_NPC(victim)) {             /* check if a NPC dodges */       if (rand_number(1, 200) < GET_LEVEL(victim) * 2) { // looking at this again i should switch this and the below if           if (GET_POS(victim) > POS_SITTING) {       // should be at least standing or fighting to dodge           act("$N skillfully dodges your attack.", FALSE, ch, 0, victim, TO_CHAR);           act("$N skillfully dodges $n's attack.", FALSE, ch, 0, victim, TO_NOTVICT);           act("You dodge $n's attack.", FALSE, ch, 0, victim, TO_VICT); /* weird... keep for switched?*/           return;           }       }     } else {                          /* check if a player dodges */       if (rand_number(1, 399) <= GET_SKILL(victim, SKILL_DODGE) && // at 100% skill that's a 1 in 4 chance?         GET_POS(victim) > POS_SITTING && !PLR_FLAGGED(victim, PLR_KILLER)) {         act("$N skillfully dodges your attack.", FALSE, ch, 0, victim, TO_CHAR);         act("$N skillfully dodges $n's attack.", FALSE, ch, 0, victim, TO_NOTVICT);         act("You dodge $n's attack.", FALSE, ch, 0, victim, TO_VICT);         improve_skill(ch, SKILL_DODGE);         return;       }     }   }