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:!DmHp:#:{  
  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:!DmSpec:#:{
  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   
    }
  }
}
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
}