Thomas DM batttle part!

alias battle {
set %dm.fight on
msg $chan %dm.player1 has to start!
}



on *:text:!attack:#DM: {
if ($nick == %player1) {
if (%dm.weapon. [ $+ [ $nick ] ] == $null)
set %hit.player1 $rand(0,5) } {
elseif (%dm.weapon. [ $+ [ $nick ] ] == dagger)
set %hit.player1 $rand(0,10) } {
elseif (%dm.weapon. [ $+ [ $nick ] ] == sword)
set %hit.player1 $rand(0,15) } {
elseif (%dm.weapon. [ $+ [ $nick ] ] == battleaxe)
set %hit.player1 $rand(0,25)} {
elseif (%dm.weapon. [ $+ [ $nick ] ] == scimitar)
set %hit.player1 $rand(0,50) } {
elseif (%dm.weapon. [ $+ [ $nick ] ] == dualhandedbattleaxes)
set %hit.player1 $rand(0,200) } {
elseif (%dm.weapon. [ $+ [ $nick ] ] == godsword)
set %hit.player1 $rand(0,550) } {
health.check
set %dm.player1 %dm.player2
set %dm.player2 $nick
} {
if ($nick == %dm.player2) { notice $nick its not your turn! }
}
}



alias -l health.check{
msg #DM %dm.player1 has hit %hit.player1 on %dm.player2!
dec %health.start [ $+ [ %dm.player ] ] %hit.player1
if  (%health.start [ $+ [ %dm.player2 ] ] <= 0) { { msg $chan %dm.player1 has been defeated! he gets 20 xp points for this fight! } { inc %dm.xp. [ $+ [ $nick ] ] } } { 
xp.check } 
}

alias -l xp.check { 
inc  %dm.xp. [ $+ [ %dm.player1 ] ] 20
 {

if (%lvl. [ $+ [ %dm.player1 ] ] == 1 ) { set %dm.lvl.req. [ $+ [ %dm.player1 ] ] 100 } } {
else { set %dm.lvl.req. [ $+ [ %dm.player1 ] ] $calc(%lvl. [ $+ [ %dm.player1 ] ]*100:0.6 } } {
if (%dm.xp. [ $+ [ %dm.player1 ] ] >= %dm.lvl.req. [ $+ [ %dm.player1 ] ] { { inc %lvl. [ $+ [ %dm.player1 ] ] 1  } { msg $chan congratulations! you have just lvled up you are now lvl %lvl. [ $+ [ %dm.player1 ] ] ! }
} } 


on *:TEXT:!use*:#DM: {
if (%DM.fight == on && $nick == %dm.player1) { 
set %use.request $remove($2-,$chr(32) )
if (%use.request == smallhealthpotion && $readini(dminv.ini,$nick,%use.request) == 1) { inc %health. [ $+ [ $nick ] ] 10 }
elseif (%use.request == healthpotion && $readini(dminv.ini,$nick,%use.request) == 1) { inc %health. [ $+ [ $nick ] ] 20 }
elseif (%use.request == largehealthpotion && $readini(dminv.ini,$nick,%use.request) == 1) { inc %health. [ $+ [ $nick ] ] 30 }
elseif (%use.request == prayerpotion && ($readini(dminv.ini,$nick,%use.request) == 1) { inc %prayer. [ $+ [ $nick ] ] 1 }

}
Else { halt } 
}

on *:TEXT:!prayer*:#DM: {
if (%DM.fight == on)
if ($nick == %dm.player1 || $nick == dm.player2)
set %pray.request $remove($2-,$chr(32) )
if (%pray.request == """""" && $readini(dminv.ini,$nick,%pray.request) == 1) { set %pray."""" on.