on *:TEXT:!Dm*:#:{
  if ($1 == !dmace) { halt }
  if ($1 == !dmcommands) {
    msg $nick 7!Dm (off)
    msg $nick 14!Whip
    msg $nick 7!Dds
    msg $nick 14!Dh
    msg $nick 7!Guthans - (Must Buy with D-Coins)
    msg $nick 14!DMace - (Must Buy with D-Coins) 
    msg $nick 7!Ice
    msg $nick 14!Karils
    msg $nick 7!Msb
    msg $nick 14!Shark   
    msg $nick 7!MyStats 7- Tells you your stats in the Dm 
    msg $nick 14!TheirStats 7- Tells you your opponents stats in the Dm
    msg $nick 7!Hiscores *NICK* 14- Shows wins and losses of a nick. If you don't supply a nick then it'll tell you your stats  
    msg $nick 12For the D-Coin Commands, type !Dcoin Commands   
    halt
  }
  if ($2 == $null) {
    if ($readini(Dm.ini,$chan,Status) == On) {
      notice $nick 14There is already a DM currently in $+ 7 $chan $+ 14.
      halt
    }
    if ($readini(Dm.ini,$chan,Status) == $null) {
      msg $chan 7 $+ $nick ( $+ $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, $+(12\,$chr(124),/), 10§) $+ $iif($readini(D-Coins.ini,$nick,RPhat) == Sold, $+(4\,$chr(124),/), 10§) $+ $iif($readini(D-Coins.ini,$nick,GPhat) == Sold, $+(3\,$chr(124),/), 10§) W: $iif($readini(Dm.Hiscores.ini,$nick,Wins) != $null, $readini(Dm.Hiscores.ini,$nick,Wins), 0) L: $iif($readini(Dm.Hiscores.ini,$nick,Losses) != $null, $readini(Dm.Hiscores.ini,$nick,Losses), 0) T: $calc( $iif($readini(Dm.Hiscores.ini,$nick,Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$nick,Losses) == $null, 0, $v1)) D-Coins: $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) $+ ) 14has initicated a DM! Ready to fight? To join just type 7!DM14.
      writeini Dm.ini $chan Status Start
      writeini Dm.Players.ini $chan Player-1 $nick
      writeini Dm.Hp.ini $chan Player-1 99
      writeini Dm.Sharks.ini $chan Player-1 15
      writeini Dm.Spec.ini $chan Player-1 100     
      .timerdmoff $+ $chan 1 30 dmtimerend $chan      
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      if ($readini(Dm.ini,$chan,Status) == Start) {
        .timerdmoff $+ $chan off     
        set %who.goes.first. [ $+ [ $chan ] ] $rand(1,2)
        writeini Dm.Turn.ini $chan Turn Player- $+ %who.goes.first. [ $+ [ $chan ] ]
        writeini Dm.ini $chan Status On
        writeini Dm.Players.ini $chan Player-2 $nick
        writeini Dm.Hp.ini $chan Player-2 99
        writeini Dm.Sharks.ini $chan Player-2 15
        writeini Dm.Spec.ini $chan Player-2 100      
        msg $chan 14The DM has STARTED! $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14VS $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 99 14Hitpoints and $+ 12 15 14Sharks!    
        .timer 1 2 msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player- $+ %who.goes.first. [ $+ [ $chan ] ]) 14goes first!
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan $iif(%who.goes.first. [ $+ [ $chan ] ] == 1, Player-2, Player-1) $iif(%who.goes.first. [ $+ [ $chan ] ] == 1, Player-1, Player-2)      
        unset %who.goes.first. [ $+ [ $chan ] ]
        halt
      }
    }
  }
  if ($2 == off) {
    if ($readini(Dm.ini,$chan,Status) == On) || ($readini(Dm.ini,$chan,Status) == Start) && ($nick isop $chan || $nick ishop $chan || $readini(Dm.Players.ini,$chan,Player-1) == $nick || $readini(Dm.Players.ini,$chan,Player-2) == $nick) || ($address($me,2) == $address($nick,2)) {
      enddm $chan       
      msg $chan 7 $+ $nick 14has stopped the DM for $+ 7 $chan $+ 14.
      halt
    }
    if ($readini(Dm.ini,$chan,Status) == $null) && ($nick isop $chan || $nick ishop $chan) {
      msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
      halt
    }
  }
}
on $*:TEXT:/!(Whip|flick|lash)/Si:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }
      if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
        notice $nick 14You can only Eat, Mage, or Range when your are frozen!
        halt
      }     
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        .timerdmnextturn $+ $chan off
        writeini Dm.Hits.ini $chan Hit $rand(0,40)
        $iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
        if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.          
          writeini Dm.Turn.ini $chan Turn Player-2
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2          
          halt
        } 
      }
    }
    if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {      
      msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
      dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
      dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses      
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10      
      .timer 1 2 dmwinner $chan Player-1       
      halt
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
      notice $nick 14You can only Eat, Mage, or Range when your are frozen!
      halt
    }    
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      .timerdmnextturn $+ $chan off
      $iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))   
      writeini Dm.Hits.ini $chan Hit $rand(0,40)
      writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
      if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
        msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.     
        writeini Dm.Turn.ini $chan Turn Player-1
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1       
        halt
      } 
      if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {       
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60     
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10     
        .timer 1 2 dmwinner $chan Player-2       
        halt
      }
    }
  }
}
on $*:TEXT:/!(Shark|eat)/Si:#:{
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Sharks.ini,$chan,Player-1) <= 0) {
          notice $nick 14You have $+ 7 0 14Sharks! 
          halt
        }
        if ($readini(Dm.Sharks.ini,$chan,Player-1) > 0) {
          if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
            $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen)
          } 
          .timerdmnextturn $+ $chan off          
          writeini Dm.Sharks.ini $chan Player-1 $calc( $readini(Dm.Sharks.ini,$chan,Player-1) - 1)
          writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) + 20)
          $iif($readini(Dm.Hp.ini,$chan,Player-1) > 99, writeini Dm.Hp.ini $chan Player-1 99)        
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14eats a Shark and now has $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
          notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Sharks.ini,$chan,Player-1) 14Sharks.
          writeini Dm.Turn.ini $chan Turn Player-2
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2          
          halt
        }
      }
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Sharks.ini,$chan,Player-2) <= 0) {
        notice $nick 14You have $+ 7 0 14Sharks! 
        halt
      }
      if ($readini(Dm.Sharks.ini,$chan,Player-2) > 0) {
        if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
          $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
        } 
        .timerdmnextturn $+ $chan off        
        writeini Dm.Sharks.ini $chan Player-2 $calc( $readini(Dm.Sharks.ini,$chan,Player-2) - 1)
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) + 20)
        $iif($readini(Dm.Hp.ini,$chan,Player-2) > 99, writeini Dm.Hp.ini $chan Player-2 99)        
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14eats a Shark and now has $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
        notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Sharks.ini,$chan,Player-2) 14Sharks.
        writeini Dm.Turn.ini $chan Turn Player-1
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1        
        halt
      }    
    }
  }
}
on *:TEXT:!Dds:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Spec.ini,$chan,Player-1) <= 0) {
          notice $nick 14You don't have any Special Bar left!
          halt
        }
        if ($readini(Dm.Spec.ini,$chan,Player-1) < 25) {
          notice $nick 14You don't have enough Special Bar left!
          halt
        }
        if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
          notice $nick 14You can only Eat, Mage, or Range when your are frozen!
          halt
        }
        if ($readini(Dm.Spec.ini,$chan,Player-1) > 0) {
          .timerdmnextturn $+ $chan off
          spec Player-1 $chan 25     
          writeini Dm.Hits.ini $chan Hit $rand(0,25) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,25)          
          writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
          writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )  
          if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
            msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
            msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.           
            notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.                       
            writeini Dm.Turn.ini $chan Turn Player-2          
            .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2            
            halt
          } 
        }
      }
      if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {        
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10        
        .timer 1 2 dmwinner $chan Player-1     
        halt
      }
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Spec.ini,$chan,Player-2) <= 0) {
        notice $nick 14You don't have any Special Bar left!
        halt
      }
      if ($readini(Dm.Spec.ini,$chan,Player-2) < 25) {
        notice $nick 14You don't have enough Special Bar left!
        halt
      }
      if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
        notice $nick 14You can only Eat, Mage, or Range when your are frozen!
        halt
      }      
      if ($readini(Dm.Spec.ini,$chan,Player-2) > 0) {
        .timerdmnextturn $+ $chan off
        spec Player-2 $chan 25                
        writeini Dm.Hits.ini $chan Hit $rand(0,25) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,25)
        writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
        writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )        
        if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.         
          notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.                   
          writeini Dm.Turn.ini $chan Turn Player-1
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1         
          halt
        } 
        if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {     
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
          dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
          dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses          
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60         
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10 
          .timer 1 2 dmwinner $chan Player-2      
          halt
        }
      }
    }
  }
}
on *:TEXT:!Gmaul:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Spec.ini,$chan,Player-1) <= 0) {
          notice $nick 14You don't have any Special Bar left!
          halt
        }
        if ($readini(Dm.Spec.ini,$chan,Player-1) < 100) {
          notice $nick 14You don't have enough Special Bar left!
          halt
        }
        if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
          notice $nick 14You can only Eat, Mage, or Range when your are frozen!
          halt
        }
        if ($readini(Dm.Spec.ini,$chan,Player-1) > 0) {
          .timerdmnextturn $+ $chan off
          spec Player-1 $chan 100     
          writeini Dm.Hits.ini $chan GHit $rand(0,25) | writeini Dm.Hits.ini $chan GSpec $rand(0,25) | writeini Dm.Hits.ini $chan Gmaulspec $rand(0,25)          
          writeini Dm.Hits.ini $chan GmaulTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,Gspec) + $readini(DM.Hits.ini,$chan,Gmaulspec) )
          writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,GmaulTotal) )  
          if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
            msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14smashes their Gmaul at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
            msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.           
            notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.                       
            writeini Dm.Turn.ini $chan Turn Player-2          
            .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2            
            halt
          } 
        }
      }
      if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {        
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14smashes their Gmaul at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10        
        .timer 1 2 dmwinner $chan Player-1     
        halt
      }
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Spec.ini,$chan,Player-2) <= 0) {
        notice $nick 14You don't have any Special Bar left!
        halt
      }
      if ($readini(Dm.Spec.ini,$chan,Player-2) < 100) {
        notice $nick 14You don't have enough Special Bar left!
        halt
      }
      if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
        notice $nick 14You can only Eat, Mage, or Range when your are frozen!
        halt
      }      
      if ($readini(Dm.Spec.ini,$chan,Player-2) > 0) {
        .timerdmnextturn $+ $chan off
        spec Player-2 $chan 100                
        writeini Dm.Hits.ini $chan GHit $rand(0,25) | writeini Dm.Hits.ini $chan GSpec $rand(0,25) | writeini Dm.Hits.ini $chan Gmaulspec $rand(0,25)          
        writeini Dm.Hits.ini $chan GmaulTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,Gspec + $readini(DM.Hits.ini,$chan,Gmaulspec) )
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,GmaulTotal) )       
        if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14smashes their Gmaul at 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1)) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.         
          notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.                   
          writeini Dm.Turn.ini $chan Turn Player-1
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1         
          halt
        } 
        if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {     
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14smashes their Gmaul at $+ 7 $readini(Dm.Players.ini,$chan,Player-1 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1 14with $+ 4 0 14Hitpoints.
          dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
          dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses          
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60         
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10 
          .timer 1 2 dmwinner $chan Player-2      
          halt
        }
      }
    }
  }
}

on *:TEXT:!Dh:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }

      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Hp.ini,$chan,Player-2) <= 35) {
          notice $nick 14You cant use Dharok when your Opponet has less than or equal to $+ 7 35 Hitpoints.
          halt
        }
        if ($readini(Dm.Other.ini,$chan,Player-1-Dh) == Degraded) {
          notice $nick 14Your Dharok has degraded when you lasted used it.
          halt
        }
        if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
          notice $nick 14You can only Eat, Mage, or Range when your are frozen!
          halt
        }        
        if ($readini(Dm.Hp.ini,$chan,Player-2) > 35) {
          .timerdmnextturn $+ $chan off
          $iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
          $iif($readini(Dm.Hp.ini,$chan,Player-1) == 99, writeini Dm.Hits.ini $chan Hit $rand(0,1), writeini Dm.Hits.ini $chan Hit $rand(0,70))             
          writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
          if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
            msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
            msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.            
            writeini Dm.Other.ini $chan Player-1-Dh Degraded            
            writeini Dm.Turn.ini $chan Turn Player-2
            .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2          
            halt
          } 
        }
      }
      if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {      
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses       
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10    
        .timer 1 2 dmwinner $chan Player-1       
        halt
      }
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Hp.ini,$chan,Player-1) <= 35) {
        notice $nick 14You cant use Dharok when your Opponet has less than or equal to $+ 7 35 Hitpoints.
        halt
      }
      if ($readini(Dm.Other.ini,$chan,Player-2-Dh) == Degraded) {
        notice $nick 14Your Dharok has degraded when you lasted used it.
        halt
      }
      if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
        notice $nick 14You can only Eat, Mage, or Range when your are frozen!
        halt
      }      
      if ($readini(Dm.Hp.ini,$chan,Player-1) > 35) {
        .timerdmnextturn $+ $chan off
        $iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))        
        $iif($readini(Dm.Hp.ini,$chan,Player-1) == 99, writeini Dm.Hits.ini $chan Hit $rand(0,1), writeini Dm.Hits.ini $chan Hit $rand(0,70))        
        writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
        if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.          
          writeini Dm.Other.ini $chan Player-2-Dh Degraded          
          writeini Dm.Turn.ini $chan Turn Player-1
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1          
          halt
        } 
        if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {       
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
          dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
          dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses          
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60         
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10 
          .timer 1 2 dmwinner $chan Player-2    
          halt
        }
      }
    }
  }
}
on *:TEXT:!Guthans:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }
      if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
        notice $nick 14You can only Eat, Mage, or Range when your are frozen!
        halt
      }        

      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(D-Coins.ini,$nick,Guthans) != Sold) {
          notice $nick 14You havn't bought Guthans. To buy, type 7!Buy Guthans
          halt
        }
        .timerdmnextturn $+ $chan off
        writeini Dm.Hits.ini $chan Hit $rand(0,45)
        set %healed [ $+ [ $chan ] ] $rand(1,4) | $iif(%healed [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Healed $readini(Dm.Hits.ini,$chan,Hit)) | unset %healed [ $+ [ $chan ] ]                           
        $iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
        if ($readini(Dm.Other.ini,$chan,Healed) != $null) {
          writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) + $readini(Dm.Other.ini,$chan,Healed) )
          $iif($readini(Dm.Hp.ini,$chan,Player-1) > 99, writeini Dm.Hp.ini $chan Player-1 99)        
        }       
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
        if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints and Healed $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ $iif($readini(Dm.Other.ini,$chan,Healed) != $null, $+ 3 $v1, $+ 3 0) 14Hitpoints. | remini Dm.Other.ini $chan Healed
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.          
          writeini Dm.Turn.ini $chan Turn Player-2
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2          
          halt
        } 
      }
    }
    if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {      
      msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
      dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
      dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses      
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10 
      .timer 1 2 dmwinner $chan Player-1       
      halt
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
      notice $nick 14You can only Eat, Mage, or Range when your are frozen!
      halt
    }    
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(D-Coins.ini,$nick,Guthans) != Sold) {
        notice $nick 14You havn't bought Guthans. To buy, type 7!Buy Guthans
        halt
      }
      .timerdmnextturn $+ $chan off
      $iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))   
      writeini Dm.Hits.ini $chan Hit $rand(0,45)
      set %healed [ $+ [ $chan ] ] $rand(1,4) | $iif(%healed [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Healed $readini(Dm.Hits.ini,$chan,Hit)) | unset %healed [ $+ [ $chan ] ]           
      if ($readini(Dm.Other.ini,$chan,Healed) != $null) {
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) + $readini(Dm.Other.ini,$chan,Healed) )
        $iif($readini(Dm.Hp.ini,$chan,Player-2) > 99, writeini Dm.Hp.ini $chan Player-2 99)      
      }      
      writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
      if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints and Healed $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ $iif($readini(Dm.Other.ini,$chan,Healed) != $null, $+ 3 $v1, $+ 3 0) 14Hitpoints. | remini Dm.Other.ini $chan Healed
        msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.     
        writeini Dm.Turn.ini $chan Turn Player-1
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1        
        halt
      } 
      if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {       
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10        
        .timer 1 2 dmwinner $chan Player-2       
        halt
      }
    }
  }
}
on *:TEXT:!Karils:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }     
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
          $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen) 
        }
        .timerdmnextturn $+ $chan off       
        writeini Dm.Hits.ini $chan Hit $rand(0,35)
        $iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
        if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.          
          writeini Dm.Turn.ini $chan Turn Player-2
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2         
          halt
        } 
      }
    }
    if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {      
      msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
      dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
      dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses      
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10     
      .timer 1 2 dmwinner $chan Player-1       
      halt
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
        $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen) 
      }      
      .timerdmnextturn $+ $chan off     
      $iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))   
      writeini Dm.Hits.ini $chan Hit $rand(0,35)
      writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
      if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
        msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.     
        writeini Dm.Turn.ini $chan Turn Player-1
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1      
        halt
      } 
      if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {       
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10        
        .timer 1 2 dmwinner $chan Player-2       
        halt
      }
    }
  }
}
on $*:TEXT:/!(Cbow|Crystal Bow)/Si:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }     
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
          $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen) 
        }
        .timerdmnextturn $+ $chan off       
        writeini Dm.Hits.ini $chan Hit $rand(0,35)
        $iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
        if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.          
          writeini Dm.Turn.ini $chan Turn Player-2
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2         
          halt
        } 
      }
    }
    if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {      
      msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
      dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
      dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses      
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10     
      .timer 1 2 dmwinner $chan Player-1       
      halt
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
        $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen) 
      }      
      .timerdmnextturn $+ $chan off     
      $iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))   
      writeini Dm.Hits.ini $chan Hit $rand(0,35)
      writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
      if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
        msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.     
        writeini Dm.Turn.ini $chan Turn Player-1
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1      
        halt
      } 
      if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {       
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10        
        .timer 1 2 dmwinner $chan Player-2       
        halt
      }
    }
  }
}
on *:TEXT:!Msb:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        if ($readini(Dm.Spec.ini,$chan,Player-1) <= 0) {
          notice $nick 14You don't have any Special Bar left!
          halt
        }
        if ($readini(Dm.Spec.ini,$chan,Player-1) < 55) {
          notice $nick 14You don't have enough Special Bar left!
          halt
        }
        if ($readini(Dm.Spec.ini,$chan,Player-1) > 0) {
          if ($readini(Dm.Other.ini,$chan,Player-1) == 1-Frozen) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
            $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen) 
          }
          .timerdmnextturn $+ $chan off          
          spec Player-1 $chan 55  
          writeini Dm.Hits.ini $chan Hit $rand(0,30) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,30)          
          writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
          writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )
          if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
            msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
            msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.           
            notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.            
            writeini Dm.Turn.ini $chan Turn Player-2        
            .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2            

            halt
          } 
        }
      }
      if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {        
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10        
        .timer 1 2 dmwinner $chan Player-1     
        halt
      }
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      if ($readini(Dm.Spec.ini,$chan,Player-2) <= 0) {
        notice $nick 14You don't have any Special Bar left!
        halt
      }
      if ($readini(Dm.Spec.ini,$chan,Player-2) < 55) {
        notice $nick 14You don't have enough Special Bar left!
        halt
      }
      if ($readini(Dm.Spec.ini,$chan,Player-2) > 0) {
        if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.IB.ini,$chan,Player-2-Frozen) == 2) {
          $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen) 
        }
        .timerdmnextturn $+ $chan off        
        spec Player-2 $chan 55       
        writeini Dm.Hits.ini $chan Hit $rand(0,25) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,25)
        writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
        writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )
        if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.         
          notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.         
          writeini Dm.Turn.ini $chan Turn Player-1
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
          halt
        } 
        if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {     
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
          dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
          dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses          
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60         
          dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10 
          .timer 1 2 dmwinner $chan Player-2      
          halt
        }
      }
    }
  }
}
on $*:TEXT:/!(Ice|barrage)/Si:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
        notice $nick 14It's not your turn!
        halt
      }        
      if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
        writeini Dm.Hits.ini $chan Hit $rand(0,30)
        .timerdmnextturn $+ $chan off
        if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == $null) {
          set %player2.frozen? [ $+ [ $chan ] ] $rand(1,4) | $iif(%player2.frozen? [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Player-2-Frozen 2) | unset %player2.frozen? [ $+ [ $chan ] ]                       
        }      
        if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
          $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen) 
        }  
        $iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
        writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
        if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
          msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14casts Ice Barrage at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints and $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, Froze them for $+ 3 2 14Turns., didn't freeze them.)
          msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.          
          writeini Dm.Turn.ini $chan Turn Player-2
          .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2          
          halt
        } 
      }
    }
    if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {      
      msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14casts Ice Barrage at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
      dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins 
      dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses      
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
      dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10      
      .timer 1 2 dmwinner $chan Player-1       
      halt
    }
  }
  if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
      notice $nick 14It's not your turn!
      halt
    }
    if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
      .timerdmnextturn $+ $chan off
      $iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))   
      writeini Dm.Hits.ini $chan Hit $rand(0,30)
      if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == $null) {
        set %player1.frozen? [ $+ [ $chan ] ] $rand(1,4) | $iif(%player1.frozen? [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Player-1-Frozen 2) | unset %player1.frozen? [ $+ [ $chan ] ]      
      }
      if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
        $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
      }           
      writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
      if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14casts Ice Barrage at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints and $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, Froze them for $+ 3 2 14Turns., didn't freeze them.)
        msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.     
        writeini Dm.Turn.ini $chan Turn Player-1
        .timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1       
        halt
      } 
      if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {       
        msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14casts Ice Barrage at at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
        dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins 
        dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses        
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
        dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10     
        .timer 1 2 dmwinner $chan Player-2       
        halt
      }
    }
  }
}
on *:TEXT:!DMStats:#:{ 
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }

    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $readini(Dm.Players.ini,$chan,Player-1) 14Here are your current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-1) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-1) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) != $null, $v1, 0)
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
      notice $readini(Dm.Players.ini,$chan,Player-2) 14Here are your current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-2) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-2) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) != $null, $v1, 0)
    }
  }
}
on *:TEXT:!DMStats:#:{  
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick 14You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
      halt
    }

    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $readini(Dm.Players.ini,$chan,Player-1) 14Here are $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-2) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-2) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) != $null, $v1, 0)
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
      notice $readini(Dm.Players.ini,$chan,Player-2) 14Here are $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-1) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-1) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) != $null, $v1, 0)
    }
  }
}
on *:TEXT:!Hiscores*:#:{
  if (!$2) {
    notice $nick 14Here are your hiscores from my 7DM 14Script: Wins:7 $iif($readini(Dm.Hiscores.ini,$nick,Wins) != $null, $readini(Dm.Hiscores.ini,$nick,Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$nick,Losses) != $null, $readini(Dm.Hiscores.ini,$nick,Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$nick,Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$nick,Losses) == $null, 0, $v1))
    halt
  }
  else {
    notice $nick 14Here are $+ 7 $2 $+ 's 14hiscores from my 7DM 14Script: Wins:7 $iif($readini(Dm.Hiscores.ini,$2,Wins) != $null, $readini(Dm.Hiscores.ini,$2,Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$2,Losses) != $null, $readini(Dm.Hiscores.ini,$2,Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$2,Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$2,Losses) == $null, 0, $v1))
    halt
  }
}
on *:QUIT:#:{
  if ($readini(Dm.ini,$chan,Status) != $null) {
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) || ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
      enddm $chan
      msg $chan  $+ $nick has quit IRC so their DM for $+  $chan automatically ends.
    }
  }
}

on *:TEXT:!Hp:#:{  
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan There is no DM currently in $+  $chan $+ . To start one, type !Dm. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick  $+ $readini(Dm.Players.ini,$chan,Player-1) is waiting to be challenged. To join the DM just type !Dm.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick You're not in the DM for $+  $chan $+ !
      halt
    }

    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $readini(Dm.Players.ini,$chan,Player-1) Here is your HP: $hpbar( $readini(Dm.Hp.ini,$chan,Player-1) )
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    notice $readini(Dm.Players.ini,$chan,Player-2)  Here is your HP: $hpbar( $readini(Dm.Hp.ini,$chan,Player-2) )    }
  }
}
on *:TEXT:!Spec:#:{
  if ($readini(Dm.ini,$chan,Status) == $null) {
    msg $chan There is no DM currently in $+  $chan $+ . To start one, type !Dm. 
    halt
  }
  if ($readini(Dm.ini,$chan,Status) == Start) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
      notice $nick  $+ $readini(Dm.Players.ini,$chan,Player-1) is waiting to be challenged. To join the DM just type !Dm.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $nick You don't have anyone to face!
      halt
    }
  }
  if ($readini(Dm.ini,$chan,Status) == On) {
    if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
      notice $nick You're not in the DM for $+  $chan $+ !
      halt
    }

    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
      notice $readini(Dm.Players.ini,$chan,Player-1) You have $+  $readini(Dm.Spec.ini,$chan,Player-1) $+ % Special Bar left.
      halt
    }
    if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
    notice $readini(Dm.Players.ini,$chan,Player-2)  You have $+  $readini(Dm.Spec.ini,$chan,Player-2) $+ % Special Bar left.    }
  }
}





on *:TEXT:!Sell*:*:{
  if ($2 == $null) {
    msg $nick You must specify what to sell. E.g: !Sell Guthans
    halt
  }
  if ($2 == Guthans) {
    if ($readini(D-Coins.ini,$nick,Guthans) == Sold) {
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 2000)
      remini D-Coins.ini $nick Guthans 
      msg $nick You have just sold Guthans and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.  
      halt    

    }
    if ($readini(D-Coins.ini,$nick,Guthans) != Sold) {
      msg $nick You havn't even bought Guthans! To buy, type !Buy Guthans
      halt
    }
  }
  if ($2 == DMace) {
    if ($readini(D-Coins.ini,$nick,DMace) == Sold) {
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 500)
      remini D-Coins.ini $nick DMace 
      msg $nick You have just sold DMace Special and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.  
      halt    
    }
    if ($readini(D-Coins.ini,$nick,DMace) != Sold) {
      msg $nick You havn't even bought DMace Special! To buy, type !Buy DMace
      halt
    }
  }
  if ($2- == Blue Phat) {
    if ($readini(D-Coins.ini,$nick,BPhat) == Sold) {
      remini D-Coins.ini $nick BPhat
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 1000000)
      msg $nick You have just sold Blue Phat and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
      halt
    }
    if ($readini(D-Coins.ini,$nick,BPhat) != Sold) {
      msg $nick You don't even have a Blue Phat! To buy, type !Buy Cracker and type !Open to see if you got a Blue Phat.
      halt
    }
  }
  if ($2- == Green Phat) {
    if ($readini(D-Coins.ini,$nick,GPhat) == Sold) {
      remini D-Coins.ini $nick GPhat
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 1000000) 
      msg $nick You have just sold Green Phat and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
      halt
    }
    if ($readini(D-Coins.ini,$nick,GPhat) != Sold) {
      msg $nick You don't even have a Green Phat! To buy, type !Buy Cracker and type !Open to see if you got a Green Phat.
      halt
    }
  }
  if ($2- == Red Phat) {
    if ($readini(D-Coins.ini,$nick,RPhat) == Sold) {
      remini D-Coins.ini $nick RPhat
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 1000000) 
      msg $nick You have just sold Red Phat and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
      halt
    }
    if ($readini(D-Coins.ini,$nick,RPhat) != Sold) {
      msg $nick You don't even have a Red Phat! To buy, type !Buy Cracker and type !Open to see if you got a Red Phat.
      halt
    }
  }
}
on *:TEXT:!Market*:*:{
  msg $nick ****D-Coins Market**** You have $+  $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins (To buy, type !Buy Item [The buy code is the underlined part in the Market])
  msg $nick DMace Spec - $iif($readini(D-Coins.ini,$nick,DMace) == Sold, SOLD!, For Sale - $+  500 D-Coins)
  msg $nick Guthans - $iif($readini(D-Coins.ini,$nick,Guthans) == Sold, SOLD!, For Sale - $+  2000 D-Coins)
  msg $nick Christmas Cracker - $iif($readini(D-Coins.ini,$nick,CCracker) == Sold, SOLD!, For Sale - $+  250 D-Coins)  
  msg $nick Blue/Green/Red PHat - $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, Blue PHat Bought! 1M D-Coins)  $iif($readini(D-Coins.ini,$nick,GPhat) == Sold, Green PHat Bought!  1M D-Coins)  $iif($readini(D-Coins.ini,$nick,RPhat) == Sold, Red PHat Bought!  1M D-Coins) Only obtainable through !Buy Cracker  
}
on *:TEXT:!Open:*:{
  if ($readini(D-Coins.ini,$nick,Cracker) != Sold) {
    msg $nick You havn't even bought a Christmas Cracker! To buy one, type !Buy Cracker
    halt
  }
  else {
    remini D-Coins.ini $nick Cracker 
    set %phat? [ $+ [ $nick ] ] $rand(1,20)
    if (%phat? [ $+ [ $nick ] ] == 3) && ($readini(D-Coins.ini,$nick,BPhat) == $null) {
      writeini D-Coins.ini $nick BPhat Sold
      msg $nick You open your cracker and.... ITS A BLUE PHAT!!!
      msg #KirbyBot  $+ $nick just got a Blue Phat!
      unset %phat? [ $+ [ $nick ] ]
      halt
    }
    if (%phat? [ $+ [ $nick ] ] == 12) && ($readini(D-Coins.ini,$nick,RPhat) == $null) {
      writeini D-Coins.ini $nick RPhat Sold
      msg $nick You open your cracker and.... ITS A RED PHAT!!!
      msg #KirbyBot  $+ $nick just got a Red Phat!
      unset %phat? [ $+ [ $nick ] ]
      halt
    }    
    if (%phat? [ $+ [ $nick ] ] == 7) && ($readini(D-Coins.ini,$nick,GPhat) == $null) {
      writeini D-Coins.ini $nick GPhat Sold
      msg $nick You open your cracker and.... ITS A GREEN PHAT!!!
      msg #KirbyBot  $+ $nick just got a Green Phat!
      unset %phat? [ $+ [ $nick ] ]
      halt
    }    
    else {
      msg $nick You open your cracker and.... You got nothing....
      unset %phat? [ $+ [ $nick ] ]      
      halt
    }  
  }
}
on *:TEXT:!DCoin Status*:*:{
  msg $nick Here is your D-Coins Status: $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, $+(\,$chr(124),/), §) $+ $iif($readini(D-Coins.ini,$nick,RPhat) == Sold, $+(\,$chr(124),/), §) $+ $iif($readini(D-Coins.ini,$nick,GPhat) == Sold, $+(\,$chr(124),/), §) D-Coins: $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) ~~ Guthans? $iif($readini(D-Coins.ini,$nick,Guthans) == Sold, Yes, No) ~~ DMace? $iif($readini(D-Coins.ini,$nick,DMace) == Sold, Yes, No) ~~ Cracker? $iif($readini(D-Coins.ini,$nick,Cracker) == Sold, Yes, No) ~~   
}
on *:TEXT:!Buy*:*:{
  if ($2 == $null) {
    msg $nick You must specify what to buy. E.g: !Buy Guthans
    halt
  }
  if ($2 == Guthans) {
    if ($readini(D-Coins.ini,$nick,Guthans) == Sold) {
      msg $nick You have already bought the Guthans!
      halt
    }    
    if ($readini(D-Coins.ini,$nick,Coins) >= 2000) {
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) - 2000)
      writeini D-Coins.ini $nick Guthans Sold
      msg $nick You have just bought Guthans and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.  
      halt    
    }
    else {
      msg $nick Guthans costs $+  2000 D-Coins and you only have $+  $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins.
      halt    
    }
  }
  if ($2 == DMace) {
    if ($readini(D-Coins.ini,$nick,DMace) == Sold) {
      msg $nick You have already bought the DMace Special!
      halt
    }    
    if ($readini(D-Coins.ini,$nick,Coins) >= 500) {
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) - 500)
      writeini D-Coins.ini $nick DMace Sold
      msg $nick You have just bought The DMace Special and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
      halt
    }
    else {
      msg $nick DMace Special costs $+  500 D-Coins and you only have $+  $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins.
      halt
    }
  }
  if ($2 == Cracker) {
    if ($readini(D-Coins.ini,$nick,Cracker) == Sold) {
      msg $nick You have already bought the Christmas Cracker!
      halt    
    }
    if ($readini(D-Coins.ini,$nick,Coins) >= 250) {
      writeini D-Coins.ini $nick Cracker Sold
      writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) - 250)
      msg $nick You have just bought A Christmas Cracker and now have $+  $readini(D-Coins.ini,$nick,Coins) D-Coins Left. (To Open, type !Open
      halt
    }
    else {
      msg $nick A Christmas Cracker costs $+  250 D-Coins and you only have $+  $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins.
      halt   
    }
  }
}

alias HPBar { var %OutPut = $+( $str( $+( $chr(3) , 9 , $chr(44) , 9 ,$chr(46)) , $round( $calc( ( $1 / 99 ) * 20 ) , 0 ) ),$str( $+( $chr(3) , 4 , $chr(44) , 4 ,$chr(46)) , $round( $calc( ( $calc( 99 - $1 ) / 99 ) * 20 ) , 0 ) ) ) | %50percent = $+($chr(3),1,$chr(44),09,5,$chr(3),1,$chr(44),04,0) | %49percent = $+($chr(3),1,$chr(44),04,$1) | %51percent = $+($chr(3),1,$chr(44),09,$1) | if ($1 == 50) var %percent = %50percent | if ($1 < 50) var %percent = %49percent | if ($1 > 50) var %percent = %51percent | if ($1 < 10) var %percent = $+(%49percent,$chr(3),4,$chr(44),04,.) | return $left( %OutPut , 45 ) $+ %percent $+ $right( %OutPut , 45 ) }

on *:TEXT:!DCoin Commands:*:{
  msg $nick ****D-Coins Commands****  
  msg $nick !Market - To see whats up for sale
  msg $nick !Buy Item - To buy an item
  msg $nick !Sell Item - To sell an item
  msg $nick !DCoin Status - To see your D-Coin Status (D-Coins, What you have, ect. ect.)
  msg $nick !Open - To open a Christmas Cracker
}

alias spec {
  writeini Dm.Spec.ini $2 $1 $calc( $readini(Dm.Spec.ini,$2,$1) - $3 )
}
alias enddm {
  .timerdmoff $+ $1 off  
  .timerdmnextturn $+ $1 off  
  remini Dm.ini $1 Status
  remini Dm.Players.ini $1 Player-1
  remini Dm.Players.ini $1 Player-2
  remini Dm.Hp.ini $1 Player-1
  remini Dm.Hp.ini $1 Player-2
  remini Dm.Sharks.ini $1 Player-1
  remini Dm.Sharks.ini $1 Player-2
  remini Dm.Hits.ini $1 DdpSpec
  remini Dm.Hits.ini $1 DdpSpecTotal
  remini Dm.Hits.ini $1 Hit
  remini Dm.Spec.ini $1 Player-1
  remini Dm.Spec.ini $1 Player-2
  remini Dm.Turn.ini $1 Turn
  remini Dm.Other.ini $1 Player-1-Dh
  remini Dm.Other.ini $1 Player-2-Dh
  remini Dm.Other.ini $1 Player-1-Frozen
  remini Dm.Other.ini $1 Player-2-Frozen
  remini Dm.Other.ini $1 Healed
}
alias dmadddcoins {
  writeini D-Coins.ini $1 Coins $calc( $readini(D-Coins.ini,$1,Coins) $2 $3 )

  if ($readini(D-Coins.ini,$1,Coins) < 0) {
    writeini D-Coins.ini $1 Coins 0
  }
}
alias dmnextturn {
  .timerdmnextturn $+ $1 off
  writeini Dm.Turn.ini $1 Turn $2
  msg $1 7 $+ $readini(Dm.Players.ini,$1,$3) 14hasn't made a move in their DM in $+ 7 $1 $+ 14, so it's now $+ 7 $readini(Dm.Players.ini,$1,$2) $+ 's 14Turn.
  .timerdmnextturn $+ $1 1 30 dmnextturn $1 $3 $2
}
alias dmtimerend {
  msg $1 14No one has entered $+ 7 $readini(Dm.Players.ini,$1,Player-1) $+ 's 14DM in 30 Seconds, so their DM for $+ 7 $1 14has ended.
  enddm $1
}
alias dmhiscore {
  writeini Dm.Hiscores.ini $1 $2 $calc($readini(Dm.Hiscores.ini,$1,$2) + 1)
}
alias dmwinner {
  msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14WINS! Wins:7 $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins) != $null, $readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses) != $null, $readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses) == $null, 0, $v1)) 14D-Coins:7 $iif($readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) != $null, $v1, 0)
  if ($me isop $1) {
    dmrandreward $1 $2 $r(1,10)
  }  
  enddm $1
}
on *:PART:#:{
  if ($readini(Dm.ini,$chan,Status) != $null) {
    if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) || ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {      
      enddm $chan
      msg $chan 7 $+ $nick 14has parted $+ 7 $chan $+ 14, so their DM automatically ends.
      halt
    }
  }
}
alias dmrandreward {
  if ($3 == 1) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 12Voice14! | mode $1 +v $readini(Dm.Players.ini,$1,$2) }
  elseif ($3 == 2) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 7HalfOp14! | mode $1 +h $readini(Dm.Players.ini,$1,$2) }
  elseif ($3 == 3) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 12Voice14! | mode $1 +v $readini(Dm.Players.ini,$1,$2) }
  elseif ($3 == 4) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 14Op14! | mode $1 +0 $readini(Dm.Players.ini,$1,$2) }
  elseif ($3 == 5) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 10 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 10) }
  elseif ($3 == 6) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 20 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 20) }
  elseif ($3 == 7) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 50 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 50) }
  elseif ($3 == 8) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 100 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 100) }
  elseif ($3 == 9) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 200 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 200) }
  elseif ($3 == 10) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 500 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 500) }
}