wow I Foregot to add this Part, ROFL!! No one said anything... any who This is the alias version where the attacks will hit

Punch {
  if ($readini($1 $+ .ini,$1,Attacking) == no) { halt }
  writeini $1 $+ .ini $1 Attacking No
  set %base.power $Rand(10,15)
  set %ExpGain $Rand(3,6)
  set %defense.power [ $readini $2 $+ .ini $2 Defense ]
  set %attack.power [ $readini $1 $+ .ini $1 Attack ]  
  set %Damage $calc( %base.power + (%attack.power - %defense.power))
  if (%Damage < 1) { set %Damage 1 }
  msg %ChanSet $Name($1) 4Punches $Name($2) 4in the face doing $bytes(%damage,b) damage! 12(0Gained14 %Exp 0Exp12) 
  writeini $2 $+ .ini $2 Hp $calc($readini($2 $+ .ini,$2,Hp) - %Damage)
  writeini $1 $+ .ini $1 Exp $calc($readini($1 $+ .ini,$1,Exp) + %Exp)
  LvLCheck $1
  DeadCheck $1 $2 
}
DragonFist {
  if ($readini($1 $+ .ini,$1,Attacking) == no) { halt }
  writeini $1 $+ .ini $1 Attacking No
  set %base.power $Calc(2 * [ $readini $1 $+ .ini $1 Attack ] )
  set %ExpGain $Rand(3,6)
  set %defense.power [ $readini $2 $+ .ini $2 Defense ]
  set %attack.power [ $readini $1 $+ .ini $1 Attack ]  
  set %Damage $calc( %base.power + (%attack.power - %defense.power))
  if (%Damage < 1) { set %Damage 1 }
  msg %ChanSet $Name($1) 4Bashes His Fist into $Name($2) $+ 4's Jaw doing $bytes(%damage,b) damage! 12(0Gained14 %Exp 0Exp12) 
  writeini $2 $+ .ini $2 Hp $calc($readini($2 $+ .ini,$2,Hp) - %Damage)
  writeini $1 $+ .ini $1 Exp $calc($readini($1 $+ .ini,$1,Exp) + %Exp)
  LvLCheck $1
  DeadCheck $1 $2 
}
HeavyFist {
  if ($readini($1 $+ .ini,$1,Attacking) == no) { halt }
  writeini $1 $+ .ini $1 Attacking No
  set %base.power $Calc(2 * [ $readini $1 $+ .ini $1 Attack ] )
  set %ExpGain $Rand(3,6)
  set %defense.power [ $readini $2 $+ .ini $2 Defense ]
  set %attack.power [ $readini $1 $+ .ini $1 Attack ]  
  set %Damage $calc( %base.power + (%attack.power - %defense.power))
  if (%Damage < 1) { set %Damage 1 }
  msg %ChanSet $Name($1) 4Bashes His Fist into $Name($2) $+ 4's Gut doing $bytes(%damage,b) damage! 12(0Gained14 %Exp 0Exp12) 
  writeini $2 $+ .ini $2 Hp $calc($readini($2 $+ .ini,$2,Hp) - %Damage)
  writeini $1 $+ .ini $1 Exp $calc($readini($1 $+ .ini,$1,Exp) + %Exp)
  LvLCheck $1
  DeadCheck $1 $2 
}
Slash {
  if ($readini($1 $+ .ini,$1,Attacking) == no) { halt }
  writeini $1 $+ .ini $1 Attacking No
  set %base.power $Rand(15,20)
  set %ExpGain $Rand(3,6)
  set %defense.power [ $readini $2 $+ .ini $2 Defense ]
  set %attack.power [ $readini $1 $+ .ini $1 Attack ]  
  set %Damage $calc( %base.power + (%attack.power - %defense.power))
  if (%Damage < 1) { set %Damage 1 }
  msg %ChanSet $Name($1) 4Slashes $Name($2) 4doing $bytes(%damage,b) damage! 12(0Gained14 %Exp 0Exp12) 
  writeini $2 $+ .ini $2 Hp $calc($readini($2 $+ .ini,$2,Hp) - %Damage)
  writeini $1 $+ .ini $1 Exp $calc($readini($1 $+ .ini,$1,Exp) + %Exp)
  LvLCheck $1
  DeadCheck $1 $2 
}