按照论坛里提供的经验文件,做最详细的解释,想DIY的进来看(4.16)

namespace eval WoWEmu {
  proc CalcXP { victim_level killer_level victim_creature_type } {
    if { $killer_level >= 60 || $victim_creature_type ==8 } { return 0 } else {

检测人物等级>=60 或 怪物的type==8的时候 return 0 反之
      set lvldiff [expr { $victim_level-$killer_level }]

定义lvldiff值 []里的就是所定义的,怪物等级-人物等级
      set xp [expr { 20+((($victim_level/4)+5)*$victim_level) }]

设置xp的值 [20+(怪物等级/4+5)*怪物等级]
    }
 
    if { ($victim_creature_type ==1) || ($victim_creature_type ==6) || ($victim_creature_type ==7) } {

检测怪物type==1 或 ==6  或==7
      set xp [expr { ($xp*1) }]

设置xp值 xp值*1
    }
    if { ($victim_creature_type ==2) || ($victim_creature_type ==5) || ($victim_creature_type ==9) || ($victim_creature_type ==10) } {
      set xp [expr { ($xp*2) }]
    }
    if { ($victim_creature_type ==3) || ($victim_creature_type ==4)  } {
      set xp [expr { (3*$xp/2) }]
    }
    if { $lvldiff >= 21 } { set lvldiff 20 }   
    if { $lvldiff <= -1 } { set xp [expr { $xp+(($xp/11)*$lvldiff) }] } else {                                                                            
      set xp [expr { $xp+(($xp/20)*$lvldiff) }]
    }
##### XP-RATE: - Change 0.75 next line
    set xp [expr {(0.75*$xp)*1 }]
    if {$xp <= 0 ||  $lvldiff == -11 } { return 1 }
    return $xp   
  }

下面的上面都有说明了,一个个对照就可以知道.