alias -l setdmcolours {
  ;###################################################################
  ;##########SET THE COLOUR NUMBER YOU WANT WHERE THE NUMBER IS#######
  ;###################################################################

  set %colour.overall 10
  set %colour.nicks 7
  set %colour.hits 3
  set %colour.hp 6
  set %colour.weapon 14
  set %colour.poison 4

  ;###################################################################
  ;###################################################################
  ;###################################################################

  set %c1 $+($chr(3),%colour.overall)
  set %c2 $+($chr(3),%colour.nicks)
  set %c3 $+($chr(3),%colour.hits)
  set %c4 $+($chr(3),%colour.hp)
  set %c5 $+($chr(3),%colour.weapon)
  set %c6 $+($chr(3),%colour.pois)
}


;#######################START DEATHMATCH#########################

on $*:text:/^[!.@](dm|deathmatch|chal(l)?(enge)?|fight)/Si:#DM, #DM-shop, #DM-bank: {
  if ($network == Tundrairc) {
    if ($chan == #DM-shop || $chan == #DM-bank) {
      notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 .
      halt
    }
    setdmcolours
    set %dm.chan #DM
    if (%dmid. [ $+ [ $nick ] ] == 1) {
      if (%dmnick. [ $+ [ $nick ] ] == 1) {
        if (%dmwins. [ $+ [ $nick ] ] == $null) .set %dmwins. [ $+ [ $nick ] ] 0
        if (%dmloses. [ $+ [ $nick ] ] == $null) .set %dmloses. [ $+ [ $nick ] ] 0
        if (%dm.player1) {
          if (%dm.player1 == $nick && %dm.status != ON) { notice $nick %c1 $+ Please wait until somebody accepts your challange or your challenge times out. | halt }
          if (%dm.status == ON) {
            notice $nick %c1 $+ Sorry, but there is already a $+ %c5 DeathMatch $+ %c1 running, please wait till that one is over, and try again.
            halt
          } 
          set %dm.status ON
          set %dm.player2 $nick
          if (%dmlvl. [ $+ [ %dm.player1 ] ] == $null) {
            set %dmlvl. [ $+ [ %dm.player1 ] ] 1
          }
          if (%dmlvl. [ $+ [ %dm.player2 ] ] == $null) {
            set %dmlvl. [ $+ [ %dm.player2 ] ] 1
          }
          timerturnswitch 1 120 turngone
          set %dmstarthealth. [ $+ [ %dm.player1 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player1 ] ] ^1.2 * 30 + 80),1,46)
          set %dmstarthealth. [ $+ [ %dm.player2 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player2 ] ] ^1.2 * 30 + 80),1,46)
          set %dmhealth. [ $+ [ %dm.player1 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player1 ] ] ^1.2 * 30 + 80),1,46)
          set %dmhealth. [ $+ [ %dm.player2 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player2 ] ] ^1.2 * 30 + 80),1,46)
          msg %dm.chan %c1 $+ The fight is: $+ %c5 A %c6 $+ level %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c5 $+ : %c2 $+ %dm.player1 $+ %c5 ( $+ %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ %dm.player1 ] ] $+ %c5 $+ : $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ %dm.player1 ] ] $+ %c5 $+ ) Vs a %c6 $+ level %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c5 $+ : %c2 $+ %dm.player2 $+ %c5 ( $+ %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ %dm.player2 ] ] $+ %c5 - $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ %dm.player2 ] ] $+ %c5 $+ ).
          var %dm.begin = $r(1,2)
          timerchallenge off
          if (%dm.begin == 1) {
            set %dm.startnick %dm.player1
          }
          if (%dm.begin == 2) {
            set %dm.startnick %dm.player2
            var %dm.player3 = %dm.player1
            set %dm.player1 %dm.player2
            set %dm.player2 %dm.player3
          }
          msg %dm.chan %c2 $+ %dm.startnick $+ %c1 starts the game!
          notice %dm.player1 %c1 $+ Dm started, you're fighting %c4 $+ %dm.player2 $+ %c1 $+ , who has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints.
          notice %dm.player2 %c1 $+ Dm started, you're fighting %c4 $+ %dm.player1 $+ %c1 $+ , who has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints.
        }
        else {
          set %dm.player1 $nick
          msg %dm.chan %c2 $+ %dm.player1 $+ %c1 ( $+ %c6 $+ level %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c1 - %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ $nick ] ] $+ %c1 - $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ $nick ] ] $+ %c1 $+ ) has initiated a %c5 $+ DM Game $+ %c1 $+ . Type $+ %c6 !DM $+ %c1 to fight him!
          timerchallenge 1 30 tooslow
        }
      }
      else {
        notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions.
      }
    }
    else {
      notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to connect to %c2 $+ irc.TundraIRC.net %c1 $+ to play a DeathMatch!
  }
}

;###################################END DEATHMATCH##############################
ON $*:text:/^[`!@.]((stop|halt|end)( )?d(eath)?m(atch)?)/Si:#DM: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if ($nick ishop $chan || $nick isop $chan || $address($nick,2) == $address($me,2) || $nick == Supamagier || $nick == cnb6 || $nick == cnb6|bnc) {
      if (%dm.status != ON) { 
        notice $nick %c1 $+ There's no deathmatch running.
        halt
      }
      if ($nick != %dm.player1 && $nick != %dm.player2) {
        msg $chan %c1 $+ Deathmatch stopped by $+ %c2 $nick $+ %c1 $+ .
        enddm
      }
      else {
        notice $nick %c1 $+ You can't do that as a player, $+ %c5 coward $+ %c1 $+ !
      }
    }
    else {
      notice $nick %c1 $+ You need to be a 7half-op or higher $+ %c1 to use this command.
    } 
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;#############################REGISTER AND ID TO PLAY###########################
on $*:text:/^[`](dm( reg(ister)?|reg(ister)?|-reg(ister)?)|register(dm)?)/Si:#DM, #DM-shop, #DM-bank: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%dmnick. [ $+ [ $nick ] ] != 1) {
    set %tryreg. [ $+ [ $nick ] ] 1
    msg $nick %c1 $+ So you want to register? Great! Type $+ %c3 !setpass passyouwant $+ %c1 in my PM. You can't use any spaces in your password. Don't use your login password for any other thing. You'll also need to choose a class, you can choose between $+ %c6 Mage $+ %c1 $+ , $+ %c6 Range $+ %c1 and $+ %c6 Melee $+ %c1 $+ . Use $+ %c4 !setclass styleyouwant $+ %c1 to choose one.
  }
  else {
    notice $nick %c1 $+ You already registered!
  }
}
on *:text:!setpass*:?: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%tryreg. [ $+ [ $nick ] ] == 1) {
    if (%dmclass. [ $+ [ $nick ] ] == $null) { msg $nick %c1 $+ Please choose a class first. Use %c4 $+ !setclass classyouwant $+ %c1 $+ . | halt }
    msg $nick %c1 $+ Congrats! You just registered. Your name is $+ %c3 $nick $+ %c1 $+ , you class is $+ %c2 %dmclass. [ $+ [ $nick ] ] $+ %c1 and your pass is $+ %c2 $2 $+ %c1 $+ . If you want to change your pass, type $+ %c4 !changepass newpass $+ %c1 $+ . Use $+ %c4 /msg $me !identify yourpass $+ %c1 to identify next time.
    msg $nick %c1 $+ You get $+ %c4 100 coins $+ %c1 so you can buy your first weapon. Join $+ %c2 #DM-shop $+ %c1 to buy one!
    set %dmmoney. [ $+ [ $nick ] ] 100
    unset %tryreg. [ $+ [ $nick ] ]
    set %dmnick. [ $+ [ $nick ] ] 1
    set %dmpass. [ $+ [ $nick ] ] $2
    set %dmid. [ $+ [ $nick ] ] 1
    close -m $nick 
  }
  else {
    msg $nick %c1 $+ Please type $+ %c2 !dm register $+ %c1 in $+ %c4 #DM $+ %c1 first please.
  }
}

on *:text:!setclass*:?: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%tryreg. [ $+ [ $nick ] ] == 1) {
    if (%dmclass. [ $+ [ $nick ] ]) { msg $nick %c1 $+ You already set a class ($+ %c2 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ ), now you have to set a password. Use %c4 $+ !setpass passyouwant $+ %c1 $+ . | halt }
    if ($2 == range || $2 == mage || $2 == melee) {
      msg $nick %c1 $+ Congrats! You just chose a class. You chose $+ %c2 $2 $+ %c1 $+ . Now please choose a pass. Use %c4 $+ !setpass passyouwant $+ %c1 $+ .
      set %dmnick. [ $+ [ $nick ] ] 1
      set %dmclass. [ $+ [ $nick ] ] $2
    }
    else {
      msg $nick Please choose between $+ %c6 Mage $+ %c1 $+ , $+ %c6 Range $+ %c1 and $+ %c6 Melee $+ %c1 $+ .
    }
  }
  else {
    msg $nick %c1 $+ Please type $+ %c2 !dm register $+ %c1 in $+ %c4 #DM $+ %c1 first please.
  }
}

on *:text:!changepass*:?: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    msg $nick %c1 $+ Congrats! You just changed your pass to $+ %c2 $2 $+ %c1 $+ . If you want to change your pass again, type $+ %c4 !changepass newpass $+ %c1 $+ .
    set %dmpass. [ $+ [ $nick ] ] $2
    close -m $nick
  }
  else {
    msg $nick %c1 $+ You need to be identified if you want to change your pass! Use $+ %c4 /msg $me !identify yourpass $+ %c1 to identify.
  } 
}
on $*:text:/^[!@`.](id(entify)?)/Si:?: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%dmnick. [ $+ [ $nick ] ] != 1) { msg $nick %c1 $+ Please register first. Type %c5 $+ `dm-register $+ %c1 first,in #DM and follow the instructions. | halt }
  if (%dmid. [ $+ [ $nick ] ] == 1) { msg $nick %c1 $+ You are already identified! | close -m $nick | halt }
  if ($2 == %dmpass. [ $+ [ $nick ] ]) {
    msg $nick %c1 $+ You are now identified, have fun!.
    msg $nick %c1 $+ You will be auto-unidentified when you disconnect.
    set %dmid. [ $+ [ $nick ] ] 1
    unset %dmtrylog. [ $+ [ $nick ] ]
    close -m $nick
  }
  else {
    if (%dmtrylog. [ $+ [ $nick ] ] >= 5) {
      msg $nick %c3 Five $+ %c1 wrong passwords in a row, you'll be now ignored for $+ %c6 10 minutes $+ %c1 $+ .
      unset %dmtrylog. [ $+ [ $nick ] ]
      ignore -u600 $nick
      halt
    }
    msg $nick %c1 $+ Wrong password.
    inc %dmtrylog. [ $+ [ $nick ] ]
  }
}

on $*:text:/^[!@`.]((my)?(class))/Si:#DM, #DM-bank, #DM-shop: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (%dmnick. [ $+ [ $nick ] ] != 1) { notice $nick %c1 $+ Please register first. Type %c5 $+ `dm-register $+ %c1 first,in #DM and follow the instructions. | halt }
  if (%dmid. [ $+ [ $nick ] ] != 1) { notice $nick %c1 $+ Please identify first. Type %c5 $+ /msg Supabot !id <yourpass> $+ %c1 $+ . | halt }
  notice $nick %c1 $+ The class you chose is $+ %c2 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ .
}

on *:quit: {
  if ($network == TundraIRC) {
    unset %dmid. [ $+ [ $nick ] ]
  }
}
on *:disconnect: {
  if ($network == TundraIRC) {
    unset %dmid.*
  }
}

;################################SHOP AND BANK###########################
on $*:text:/^[!`@.](item(s)?|shop|sale)/Si:#DM-shop, #DM, #DM-bank: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM || $chan == #DM-bank) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-shop $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    ;###################WHAT DO WE HAVE TODAY?###############################
    if ($2 == $null) {
      notice $nick %c1 $+ Please Choose a category. Type $+ %c2 !item category $+ %c1 $+ . The categories we have today are: $+ %c3 Food $+ %c1 $+ , $+ %c3 Potions $+ %c1 $+ , %c3 $+ Warrior $+ %c1 $+ , %c3 $+ Ranger $+ %c1 $+ , %c3 $+ Mage $+ %c1 $+ , %c3 $+ Spells $+ %c1 and %c3 $+ Arrows.
    }
    if ($2 == food) {
      if (%nobuycommandfood. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandfood. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The food we have today:
        msg $nick %c2 $+ Small health potion $+ %c1 - $+ %c5 10 coins $+ %c1 - $+ %c4 Heals 20 hp.
        msg $nick %c2 $+ Normal health potion $+ %c1 - $+ %c5 20 coins $+ %c1 - $+ %c4 Heals 30 hp.
        msg $nick %c2 $+ Large health potion $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c4 Heals 50 hp. 
        msg $nick %c2 $+ Incredible fantastic Uber health potion $+ %c4 - $+ %c5 1000 coins $+ %c1 - $+ %c4 Heals 800 hp, makes you immune for damage 1 round. Cant be used more than 3 times per fight.
        timer [ $+ [ $nick $+ food ] ] 1 180 set %nobuycommandfood. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ food).secs %c1 $+ seconds before using this command again.
      }
    }
    if ($2 == potions) {
      if (%nobuycommandpotions. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandpotions. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The potions we have today:
        msg $nick %c2 $+ Anti potion $+ %c1 - $+ %c5 30 coins $+ %c1 - $+ %c4 Cures a poison
        msg $nick %c2 $+ Prayer potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Allows you to use prayer again.
        msg $nick %c2 $+ Mage potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your mage max hit with 10% for 5 turns, may be used 1 time per fight.
        msg $nick %c2 $+ Strength potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your melee max hit with 10% for 5 turns, may be used 1 time per fight.
        msg $nick %c2 $+ Ranged potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your range max hit with 10% for 5 turns, may be used 1 time per fight.
        msg $nick %c2 $+ Defence potion $+ %c1 - $+ %c5 150 coins $+ %c1 - $+ %c4 Decreases the enemies max hit with 10% for 5 turns, may be used 1 time per fight.
        timer [ $+ [ $nick $+ pot ] ] 1 180 set %nobuycommandpotions. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ pot).secs %c1 $+ seconds before using this command again.
      }
    }
    if ($2 == warrior) {
      if (%nobuycommandwarrior. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandwarrior. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The melee weapons we have today:
        msg $nick %c2 $+ Dagger $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c6 lvl 1 $+ %c1 - $+ %c4 Max hit 10
        msg $nick %c2 $+ Sword $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c6 lvl 1 $+ %c1 - $+ %c4 Max hit 15 
        msg $nick %c2 $+ Battle axe $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c6 lvl 5 $+ %c1 - $+ %c4 Max hit 25
        msg $nick %c2 $+ Home made sword $+ %c1 - $+ %c5 250 coins $+ %c1 - $+ %c6 lvl 10 $+ %c1 - $+ %c4 Max hit 50 (May break) 
        msg $nick %c2 $+ Scimitar $+ %c1 - $+ %c5 2000 coins $+ %c1 - $+ %c6 lvl 15 $+ %c1 - $+ %c4 Max hit 50
        msg $nick %c2 $+ Duel handed battle axes $+ %c1 - $+ %c5 5000 coins $+ %c1 - $+ %c6 lvl 25 $+ %c1 - $+ %c4 Max hit 200
        msg $nick %c2 $+ Godsword $+ %c1 - $+ %c5 25000 coins $+ %c1 - $+ %c6 lvl 40 $+ %c1 - $+ %c4 Max hit 550
        timer [ $+ [ $nick $+ war ] ] 1 180 set %nobuycommandwarrior. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ war).secs %c1 $+ seconds before using this command again.
      }
    }
    if ($2 == ranger) {
      if (%nobuycommandranger. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandranger. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The ranged weapons we have today:
        msg $nick %c2 $+ Bow $+ %c1 - $+ %c5 10 coins $+ %c1 - $+ %c4 Arrow max hit
        msg $nick %c2 $+ Large bow $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c4 Arrow max hit
        msg $nick %c2 $+ Great bow $+ %c1 - $+ %c5 1000 coins $+ %c1 - $+ %c4 Arrow max hit
        msg $nick %c2 $+ Ultimate bow $+ %c1 - $+ %c5 5000 coins $+ %c1 - $+ %c4 Arrow max hit
        msg $nick %c2 $+ Triple arrowed bow $+ %c1 - $+ %c5 10000 coins $+ %c1 - $+ %c4 Arrow max hit (three arrows per shot).
        timer [ $+ [ $nick $+ rang ] ] 1 180 set %nobuycommandranger. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ rang).secs %c1 $+ seconds before using this command again.
      }
    }
    if ($2 == mage) {
      if (%nobuycommandmage. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandmage. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The mage weapons we have today:
        msg $nick %c2 $+ Newbie magic staff $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c4 Spell max hit - 20%.
        msg $nick %c2 $+ Beginner magic staff $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c4 Spell max hit - 10%.
        msg $nick %c2 $+ Magic staff $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Spell max hit. 
        msg $nick %c2 $+ Advanced magic staff $+ %c1 - $+ %c5 500 coins $+ %c1 - $+ %c4 Spell max hit + 10%.
        msg $nick %c2 $+ Ultimate magic staff $+ %c1 - $+ %c5 1000 coins $+ %c1 - $+ %c4 Spell max hit + 20%.
        msg $nick %c2 $+ Two Duel handed magic wands $+ %c1 - $+ %c5 5000 coins $+ %c1 - $+ %c4 Spell max hit + 50%.
        timer [ $+ [ $nick $+ mage ] ] 1 180 set %nobuycommandmage. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ mage).secs %c1 $+ seconds before using this command again.
      }
    }
    if ($2 == spells) {
      if (%nobuycommandspells. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandspells. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The magic spells we have today:
        msg $nick %c2 $+ Blizz $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c6 Newbie magic staff $+ %c1 - $+ %c4 Max hit 20 
        msg $nick %c2 $+ Blizztering cold $+ %c1 - $+ %c5 75 coins $+ %c6 Newbie magic staff $+ %c1 - $+ %c4 Max hit 25
        msg $nick %c2 $+ Fire fury $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c6 Beginner magic staff $+ %c1 - $+ %c4 Max hit 50
        msg $nick %c2 $+ Blizztering freeze $+ %c1 - $+ %c5 400 coins $+ %c6 Magic staff $+ %c1 - $+ %c4 Max hit 70 & Freezes you opponent for 2 turns, so he can't attack you (unless he ranges).
        msg $nick %c2 $+ Venquence fury $+ %c1 - $+ %c5 500 coins $+ %c1 - $+ %c6 Magic staff $+ %c1 - $+ %c4 Max hit 100
        msg $nick %c2 $+ Health cast $+ %c1 - $+ %c5 2000 coins $+ %c1 - $+ %c6 Advanced magic staff $+ %c1 - $+ %c4 Heals you with 30% of your total hp.
        msg $nick %c2 $+ Life cast $+ %c1 - $+ %c5 3500 coins $+ %c1 - $+ %c6 Ultimate magic staff $+ %c1 - $+ %c4 Heals you with 70% of your total hp.
        msg $nick %c2 $+ Teleport $+ %c1 - $+ %c5 5000 coins $+ %c1 - $+ %c6 Ultimate magic staff $+ %c1 - $+ %c4 Allows you to teleport from your opponent away, which allows you to cast 4 spells before he can attack you (unless he ranges, than only 1).
        msg $nick %c2 $+ Avada kadavra $+ %c1 - $+ %c5 10000 coins $+ %c1 - $+ %c6 Two Duel handed magic wands $+ %c1 - $+ %c4 Max hit 700
        timer [ $+ [ $nick $+ spells ] ] 1 180 set %nobuycommandspells. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ spells).secs %c1 $+ seconds before using this command again.
      }
    }
    if ($2 == arrows) {
      if (%nobuycommandother. [ $+ [ $nick ] ] != 1) {
        set %nobuycommandother. [ $+ [ $nick ] ] 1
        msg $nick %c3 $+ The arrows we have today:
        msg $nick %c2 $+ Weak arrow $+ %c1 - $+ %c5 1 coin each $+ %c1 - $+ %c6 Bow $+ %c1 - $+ %c4 Max hit 10
        msg $nick %c2 $+ Normal arrow $+ %c1 - $+ %c5 2 coin each $+ %c1 - $+ %c6 Bow $+ %c1 - $+ %c4 Max hit 40
        msg $nick %c2 $+ Powerful arrow $+ %c1 - $+ %c5 2 coin each $+ %c1 - $+ %c6 Large bow $+ %c1 - $+ %c4 Max hit 75
        msg $nick %c2 $+ Powerful arrow (P) $+ %c1 - $+ %c5 5 coin each $+ %c1 - $+ %c6 Great bow $+ %c1 - $+ %c4 Max hit 100 + 10 damage poison (per round)
        msg $nick %c2 $+ Diamond arrow $+ %c1 - $+ %c5 10 coin each $+ %c1 - $+ %c6 Ultimate bow $+ %c1 - $+ %c4 Max hit 150
        msg $nick %c2 $+ Diamond arrow (P+) $+ %c1 - $+ %c5 15 coin each $+ %c1 - $+ %c6 Ultimate bow $+ %c1 - $+ %c4 Max hit 200 + 20 damage poison (per round)
        msg $nick %c2 $+ Cursed arrow (P++) $+ %c1 - $+ %c5 30 coin each $+ %c1 - $+ %c6 Ultimate bow $+ %c1 - $+ %c4 Max hit 450 + 40 damage poison (per round) that can't be cured.
        timer [ $+ [ $nick $+ oth ] ] 1 180 set %nobuycommandother. [ $+ [ $nick ] ] 0
      }
      else { 
        notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ oth).secs %c1 $+ seconds before using this command again.
      }
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;############################## LET'S BUY STUFF! ########################
on $*:text:/^[!`@.](buy)/Si:#DM-bank, #DM, #DM-shop: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM || $chan == #DM-bank) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-shop $+ %c1 .
    halt
  }
  if ($nick == %dm.player1 || $nick == %dm.player2) {
    notice $nick %c1 $+ You can't buy stuff during a fight!
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (!$3) .goto buymsg
    var %dm.amount = $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41))
    if (%dm.amount == 0) {
      notice $nick %c1 $+ You can't buy $+ %c3 0 $+ %c1 of something.
      halt
    }
    if (%dm.amount isnum) {
      set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0)
      set %dm.item $replace(%dm.item,$chr(32),_)
      if (%dmbuyfirsttime != 1) {
        set %dmbuyfirsttime 1
        setShop
      }
      set %dm.buyitem $read(dmshopitems.txt, w, %dm.item $+ *)
      if (%dm.buyitem) {
        if (%dmmoney. [ $+ [ $nick ] ] >= $calc($gettok(%dm.buyitem,2,64) * %dm.amount)) {
          set %dmwriteitem $replace(%dm.buyitem,$chr(32),_)
          set %dmwriteitem $gettok(%dmwriteitem,1,64)
          if ($readini(dminv.ini,$nick,%dmwriteitem) == $null) {
            inc %dminv. [ $+ [ $nick ] ]
            set %dm.amountt %dm.amount
          }
          else {
            set %dm.amountt $calc($readini(dminv.ini,$nick,%dmwriteitem) + %dm.amount)
          }
          if (%dminv. [ $+ [ $nick ] ] > 10) {
            dec %dminv. [ $+ [ $nick ] ] 
            notice $nick %c1 $+ Your inventory, which has $+ %c2 10 $+ %c1 slots, is full, you need to bank first. Join %c4 $+ #DM-bank $+ %c1 to do so.
            halt
          }
          writeini dminv.ini $nick %dmwriteitem %dm.amountt
          dec %dmmoney. [ $+ [ $nick ] ] $calc($gettok(%dm.buyitem,2,64) * %dm.amount)
          notice $nick %c1 $+ Congrats! You just bought $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.buyitem,1,64),_,$chr(32)) $+ s %c1 $+ for $+ %c2 $calc($gettok(%dm.buyitem,2,64) * %dm.amount) coins $+ %c1 $+ . You now have $+ %c2 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 left.
          notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.buyitem,1,64),_,$chr(32)) $+ s $+ %c1 with you!
        }
        else {
          if (%dmmoney. [ $+ [ $nick ] ] == $null) {
            set %dmmoney. [ $+ [ $nick ] ] 0
          }
          notice $nick %c1 $+ Insufficient money. You need  $+ %c3 $calc($gettok(%dm.buyitem,2,64) * %dm.amount) coins $+ %c1 to buy $+ %c2 %dm.amount $gettok(%dm.buyitem,1,64) $+ s $+ %c1 $+ , while you only have $+ %c2 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 $+ .
        }
      }
      else {
        notice $nick %c1 $+ Sorry! We don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 $+ . Maybe you spelled it wrong?
      }
    }
    else {
      :buymsg
      notice $nick %c1 $+ Please use $+ %c3 !buy <item> <amount(below 100000)> $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;####################### SELL SELL SELL! #############################
on $*:text:/^[!`@.](sell)/Si:#DM-shop, #DM, #DM-bank: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM || $chan == #DM-bank) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-shop $+ %c1 .
    halt
  }
  if ($nick == %dm.player1 || $nick == %dm.player2) {
    notice $nick %c1 $+ You can't sell stuff during a fight!
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (!$3) .goto sellmsg
    set %dm.amount $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41))
    if (%dm.amount == 0) {
      notice $nick %c1 $+ You can't sell $+ %c3 0 $+ %c1 of something.
      halt
    }
    if (%dm.amount isnum || $remove($right($1-,4),$chr(32)) == all) {
      set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0,all)
      set %dm.item $replace(%dm.item,$chr(32),_)
      set %dm.sellitem $read(dmshopitems.txt, w, %dm.item $+ *)
      if (%dm.sellitem) {
        set %dmwriteitem $replace(%dm.sellitem,$chr(32),_)
        set %dmwriteitem $gettok(%dmwriteitem,1,64)
        if ($remove($right($1-,4),$chr(32)) == all) .set %dm.amount $readini(dminv.ini,$nick,%dmwriteitem)
        set %dm.amountt $calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount)
        if (!%dm.amount) {
          notice $nick %c1 $+ Sorry, you don't have any %c3 $+ $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s %c1 $+ in your inventory, maybe in your bank?
          halt
        }
        if ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) < 0) {
          set %dm.amountt 0
          notice $nick %c1 $+ Sorry! You don't have $+ %c2 %dm.amount %c3 $+ $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s $+ %c1 on you, maybe on your bank?
          halt
        }
        elseif ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) == 0) {
          dec %dminv. [ $+ [ $nick ] ]
          remini dminv.ini $nick %dmwriteitem
        }
        else {
          writeini dminv.ini $nick %dmwriteitem %dm.amountt
        }
        set %sellprice $calc((($gettok(%dm.sellitem,2,64) * 0.6) * %dm.amount) + 0.5)
        set %sellprice $gettok(%sellprice,1,46)
        inc %dmmoney. [ $+ [ $nick ] ] %sellprice
        notice $nick %c1 $+ Congrats! You just sold $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s %c1 $+ for $+ %c2 %sellprice coins $+ %c1 $+ . You now have $+ %c2 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 $+ .
        notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s $+ %c1 with you!
      }
      else {
        notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 on you. Maybe you spelled it wrong?
      }
    }
    else {
      :sellmsg
      notice $nick %c1 $+ Please use $+ %c3 !sell <item> <amount(below 100000)> $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;################## WHAT DO YOU HAVE? ############################
on $*:text:/^[!@`.](money|cash)/Si:#DM-shop, #DM, #DM-bank: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-bank $+ %c1 and $+ %c2 #DM-shop $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (%dmmoney. [ $+ [ $nick ] ]) {
      notice $nick %c1 $+ You currently have $+ %c3 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 $+ .
    }
    else {
      set %dmmoney. [ $+ [ $nick ] ] 0
      notice $nick %c1 $+ You currently have $+ %c3 0 coins $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;#################### INVENTORY ############################
on $*:text:/^[`!@.](inv((ent(ory)?)?)?|on)/Si:#DM, #DM-shop, #DM-bank: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if (!%showinv. [ $+ [ $nick ] ]) {
    set %showinv. [ $+ [ $nick ] ] 1
    if ($read(dminv.ini, w, * $+ $nick $+ *)) {
      if (%dminv. [ $+ [ $nick ] ] >= 10) .set %dminv. [ $+ [ $nick ] ] 10
      msg $nick %c3 $+ In your inventory you have $+ %c1 ( $+ %c4 %dminv. [ $+ [ $nick ] ] $+ %c6 / $+ %c4 10 $+ %c1 items ) $+ %c3 $+ :
      set %dmslots 0
      set %dmplaymsg 1
      play -at $+ $nick dmplayway $nick dminv.ini 500
    }
    else {
      notice $nick %c1 $+ You don't have anything with you at the moment.
    }
    timerinv [ $+ [ $nick ] ] 1 300 unset %showinv. [ $+ [ $nick ] ] 
  }
  else {
    notice $nick %c1 $+ Please wait $+ %c6 $timer(inv $+ $nick).secs $+ %c1 seconds before using this command again.
  }
}

;############################## LET'S BANK DA SHIT! #######################
on $*:text:/^[!`.@](bank|store)/Si:#DM-bank, #DM, #DM-shop: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-bank $+ %c1 .
    halt
  }
  if ($nick == %dm.player1 || $nick == %dm.player2) {
    notice $nick %c1 $+ You can't bank stuff during a fight!
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (!$2) {
      if (!%showbank. [ $+ [ $nick ] ]) {
        set %showbank. [ $+ [ $nick ] ] 1
        if ($read(dmbank.ini, w, * $+ $nick $+ *)) {
          msg $nick %c3 $+ On your bank you have $+ %c1 ( $+ %c4 %dmbank. [ $+ [ $nick ] ] $+ %c1 items ) $+ %c3 $+ :
          play -at $+ $nick dmplayway $nick dmbank.ini 500
          halt
        }
        else {
          notice $nick %c1 $+ You don't have anything on your bank at the moment.
          halt
        }
        timerbank [ $+ [ $nick ] ] 1 300 unset %showbank. [ $+ [ $nick ] ] 
      }
      else {
        notice $nick %c1 $+ Please wait $+ %c6 $timer(bank $+ $nick).secs $+ %c1 seconds before using this command again.
      }
    }
    if (!$3) .goto bankmsg
    set %dm.amount $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41))
    if (%dm.amount == 0) {
      notice $nick %c1 $+ You can't bank $+ %c3 0 $+ %c1 of something.
      halt
    }
    if (%dm.amount isnum || $remove($right($1-,4),$chr(32)) == all) {
      set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0,all)
      set %dm.item $replace(%dm.item,$chr(32),_)
      set %dm.bankitem $read(dmshopitems.txt, w, %dm.item $+ *)
      if (%dm.bankitem) {
        set %dmwriteitem $replace(%dm.bankitem,$chr(32),_)
        set %dmwriteitem $gettok(%dmwriteitem,1,64)
        if ($remove($right($1-,4),$chr(32)) == all) .set %dm.amount $readini(dminv.ini,$nick,%dmwriteitem)
        if (!%dm.amount) {
          notice $nick %c1 $+ Sorry, you don't have any %c3 $+ $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s %c1 $+ in your inventory.
          halt
        }
        set %dm.amountt $calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount)
        if ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) < 0) {
          set %dm.amountt 0
          notice $nick %c1 $+ Sorry! You don't have $+ %c2 %dm.amount %c3 $+ $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s $+ %c1 on you, maybe on your bank?
          halt
        }
        elseif ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) == 0) {
          dec %dminv. [ $+ [ $nick ] ]
          remini dminv.ini $nick %dmwriteitem
        }
        else {
          writeini dminv.ini $nick %dmwriteitem %dm.amountt
        }
        if ($readini(dmbank.ini,$nick,%dmwriteitem) == $null) {
          set %dm.amounttt %dm.amount
          inc %dmbank. [ $+ [ $nick ] ]
        }
        else {
          set %dm.amounttt $calc($readini(dmbank.ini,$nick,%dmwriteitem) + %dm.amount)
        }
        writeini dmbank.ini $nick %dmwriteitem %dm.amounttt
        notice $nick %c1 $+ Congrats! You just banked $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ .
        notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s $+ %c1 with you and $+ %c3 %dm.amounttt $+ %c1 on your bank.
      }
      else {
        notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 on you. Maybe you spelled it wrong?
      }
    }
    else {
      :bankmsg
      notice $nick %c1 $+ Please use $+ %c3 !bank <item> <amount (below 100000)> $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;############################ WITHDRAW YA JUNK ############################
on $*:text:/^[!`.@](with(d(raw)?)?)/Si:#DM-bank, #DM, #DM-shop: {
  setdmcolours
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM-bank $+ %c1 .
    halt
  }
  if ($nick == %dm.player1 || $nick == %dm.player2) {
    notice $nick %c1 $+ You withdraw buy stuff during a fight!
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (!$3) .goto withdrawmsg
    if (%dminv. [ $+ [ $nick ] ] >= 10) {
      dec %dminv. [ $+ [ $nick ] ] 
      notice $nick %c1 $+ Your inventory, which has $+ %c2 10 $+ %c1 slots, is full, you need to bank first. Join %c4 $+ #DM-bank $+ %c1 to do so.
      halt
    }
    set %dm.amount $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41))
    if (%dm.amount == 0) {
      notice $nick %c1 $+ You can't withdraw $+ %c3 0 $+ %c1 of something.
      halt
    }
    if (%dm.amount isnum || $remove($right($1-,4),$chr(32)) == all) {
      set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0,all)
      set %dm.item $replace(%dm.item,$chr(32),_)
      set %dm.withdrawitem $read(dmshopitems.txt, w, %dm.item $+ *)
      if (%dm.withdrawitem) {
        set %dmwriteitem $replace(%dm.withdrawitem,$chr(32),_)
        set %dmwriteitem $gettok(%dmwriteitem,1,64)
        if ($remove($right($1-,4),$chr(32)) == all) .set %dm.amount $readini(dmbank.ini,$nick,%dmwriteitem)
        if (!%dm.amount) {
          notice $nick %c1 $+ Sorry, you don't have any %c3 $+ $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s %c1 $+ on your bank.
          halt
        }
        set %dm.amountt $calc($readini(dmbank.ini,$nick,%dmwriteitem) - %dm.amount)
        if ($calc($readini(dmbank.ini,$nick,%dmwriteitem) - %dm.amount) < 0) {
          set %dm.amountt 0
          notice $nick %c1 $+ Sorry! You don't have $+ %c2 %dm.amount %c3 $+ $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s $+ %c1 on your bank.
          halt
        }
        elseif ($calc($readini(dmbank.ini,$nick,%dmwriteitem) - %dm.amount) == 0) {
          dec %dmbank. [ $+ [ $nick ] ]
          remini dmbank.ini $nick %dmwriteitem
        }
        else {
          writeini dmbank.ini $nick %dmwriteitem %dm.amountt
        }
        if ($readini(dminv.ini,$nick,%dmwriteitem) == $null) {
          set %dm.amounttt %dm.amount
          inc %dminv. [ $+ [ $nick ] ]
        }
        else {
          set %dm.amounttt $calc($readini(dminv.ini,$nick,%dmwriteitem) + %dm.amount)
        }
        writeini dminv.ini $nick %dmwriteitem %dm.amounttt
        notice $nick %c1 $+ Congrats! You just withdrawed $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ .
        notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s $+ %c1 on your bank and $+ %c3 %dm.amounttt $+ %c1 with you.
      }
      else {
        notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 on your bank. Maybe you spelled it wrong?
      }
    }
    else {
      :withdrawmsg
      notice $nick %c1 $+ Please use $+ %c3 !withdraw <item> <amount (below 100000)> $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;##########################################################################
;#######################---NOW.... LET'S FIGHT!!---########################
;##########################################################################

;########################## EQUIP ITEMS ###################################
on $*:TEXT:/^[!`@.](equip(p)?(ed)?|wear)/Si:#DM, #DM-bank, #DM-shop: {
  set %dmturnnick $nick 
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM-bank || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (%dm.status == on) {
      if (!$2) {
        if (!%dmweapon. [ $+ [ $nick ] ]) .set %dmweapon. [ $+ [ $nick ] ] "piece of air"
        notice $nick %c1 $+ You currently have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped.
        halt
      }
      if ($2- == %dmweapon. [ $+ [ $nick ] ]) {
        notice $nick %c1 $+ You already have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped.
        halt
      }
      unset %unequip
      if (%dmweapon. [ $+ [ $nick ] ]) {
        set %unequip %dmweapon. [ $+ [ $nick ] ]
        if (%unequip == "piece of air") { unset %unequip }
      }

      set %weaprequest $replace($2-,$chr(32),_)
      set %dm.equipitem $read(dmshopitems.txt, w, %weaprequest $+ *)
      if ($replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) == $gettok(%dm.equipitem,1,64)) {
        notice $nick %c1 $+ You already have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped.
        halt
      }
      if (%dm.equipitem) {
        set %dmweapclass. [ $+ [ $nick ] ] $gettok(%dm.equipitem,3,64)
        if (%dmweapclass. [ $+ [ $nick ] ] != %dmclass. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You only can equip weapons that belong to your class, $+ %c3 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ .
          halt 
        }
        set %dmcheckweap $gettok($replace(%dm.equipitem,$chr(32),_),1,64)
        if ($readini(dminv.ini,$nick,%dmcheckweap)) { 
          if ($gettok(%dm.equipitem,3,64) == melee || $gettok(%dm.equipitem,3,64) == range || $gettok(%dm.equipitem,3,64) == mage) {
            set %dmweapon. [ $+ [ $nick ] ] $replace(%dm.equipitem,_,$chr(32))
            set %dmweapon. [ $+ [ $nick ] ] $gettok(%dmweapon. [ $+ [ $nick ] ],1,64)
            writeini dminv.ini $nick $gettok(%dm.equipitem,1,64) $calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - 1)
            var %amountleft = $readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64))
            if (%amountleft <= 0) { 
              remini dminv.ini $nick $gettok(%dm.equipitem,1,64)
              dec %dminv. [ $+ [ $nick ] ]
            }
            if ($gettok(%dm.equipitem,3,64) == melee) {
              if (%dmlvl. [ $+ [ $nick ] ] >= $gettok(%dm.equipitem,5,64)) {
                if (%unequip) {
                  msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ .
                  if (%lastequipped. [ $+ [ $nick ] ]) { 
                    writeini dminv.ini $nick $gettok(%lastequipped. [ $+ [ $nick ] ],1,64) $calc($readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) + 1) 
                    var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64))
                  }
                  else {
                    var %amountnow == 1)
                  }
                  if (%amountnow == 1) .inc %dminv. [ $+ [ $nick ] ]
                }
                set %dmweapmax. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64)
                msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which has a max hit of $+ %c3 %dmweapmax. [ $+ [ $nick ] ] $+ %c1 $+ .
                set %lastequipped. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64)
              }
              else {
                notice $nick %c1 $+ Sorry, you need to be at least $+ %c4 level $gettok(%dm.equipitem,5,64) $+ %c1 to equip a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , while you only are level $+ %c6 %dmlvl. [ $+ [ $nick ] ] $+ %c1 $+ .
                unset %dmweapon. [ $+ [ $nick ] ]
              }
            }
            elseif ($gettok(%dm.equipitem,3,64) == range) {
              if (%unequip) {
                msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ .
                if (%lastequipped. [ $+ [ $nick ] ]) {
                  writeini dminv.ini $nick $gettok(%lastequipped. [ $+ [ $nick ] ],1,64) $calc($readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) + 1)
                  var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64))
                }
                else {
                  var %amountnow = 1
                }
                if (%amountnow == 1) .inc %dminv. [ $+ [ $nick ] ]
              }
              set %dmweaparrows. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64)
              msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ .
              set %lastequipped. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64)
            }
            elseif ($gettok(%dm.equipitem,3,64) == mage) {
              set %dmweapextra. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64)
              if (%dmweapextra. [ $+ [ $nick ] ] < 0) .set %dmextramage decreases
              if (%dmweapextra. [ $+ [ $nick ] ] > 0) .set %dmextramage increases
              if (%unequip) {
                msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ .
                if (%lastequipped. [ $+ [ $nick ] ]) {
                  writeini dminv.ini $nick $gettok(%lastequipped. [ $+ [ $nick ] ],1,64) $calc($readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) + 1)
                  var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64))
                }
                else {
                  var %amountnow = 1
                }
                if (%amountnow == 1) .inc %dminv. [ $+ [ $nick ] ]
              }
              set %lastequipped. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64)
              msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which %dmextramage his spells max hit with $remove(%dmweapextra. [ $+ [ $nick ] ],-) $+ % $+ %c1 $+ .
              set %mayunequip. [ $+ [ $nick ] ] 1
            }
          }
          else {
            notice $nick %c1 $+ You can't equip a $+ %c3 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ .
          }
        } 
        else { 
          notice $nick %c1 $+ You dont have a $+ %c5 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ !
        }
      }
      else {
        notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%weaprequest,_,$chr(32)) $+ " $+ %c1 in your inventory. Maybe you spelled it wrong?
      }
    }
    else {
      notice $nick %c1 $+ You can only use this command when fighting.
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;########################### EQUIP ARROWS ################################
on $*:TEXT:/^[!`@.](arrow)/Si:#DM, #DM-bank, #DM-shop: { 

  ;+++BASIC+++
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM-bank || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (%dm.status == on) {
      if (!$2) {
        if (!%dmarrow. [ $+ [ $nick ] ]) {
          notice $nick %c1 You currently have $+ %c2 the basic arrows ( $+ %c4 $+ Max hit: $+ %c6 5 $+ %c2 $+ ) $+ %c1 equipped.
        }
        if (!%dmarrow.amount. [ $+ [ $nick ] ]) .set %dmarrow.amount. [ $+ [ $nick ] ] 0
        notice $nick %c1 $+ You currently have $+ %c3 %dmarrow.amount. [ $+ [ $nick ] ] $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 equipped.
        halt
      }
      ;+++ CHANGES  '!arrow weak arrow all/num' in 'weak_arrow' +++
      set %weaprequest $replace($2-,$chr(32),_)
      set %weaprequest $remove(%weaprequest,1,2,3,4,5,6,7,8,9,0,all)

      ;+++ GETS FULL NAME/DATA OF ITEM: 'weak' becomes 'weak_arrow@price@arrow@bow@hit' +++
      set %dm.equipitem $read(dmshopitems.txt, w, %weaprequest $+ *)

      ;+++ CHECKS IF THE ARROW YOU TRY TO EQUIP IS THE SAME AS THE ONE THAT IS EQUIPPED. IF YES, GOTO :CHECKBOW +++
      if ($gettok($replace(%dmarrow. [ $+ [ $nick ] ],$chr(32),_),1,64) == $gettok(%dm.equipitem,1,64)) {
        unset %unequip2
        goto checkbow
      }

      ;+++ IF IT ISNT, TELLS IT HAVE TO UN-EQUIP THE OLD ARROW +++
      if (%dmarrow. [ $+ [ $nick ] ]) {
        unset %dmarrow.amount. [ $+ [ $nick ] ]
        set %unequip2 %dmarrow. [ $+ [ $nick ] ]
      }

      ;+++ CHECKS IF THE ITEM GIVEN IS AN ARROW +++
      set %dmweapclass. [ $+ [ $nick ] ] $gettok(%dm.equipitem,3,64)
      if (!%dmweapclass. [ $+ [ $nick ] ] || %dmweapclass. [ $+ [ $nick ] ] == melee || %dmweapclass. [ $+ [ $nick ] ] == range || %dmweapclass. [ $+ [ $nick ] ] == mage || %dmweapclass. [ $+ [ $nick ] ] == spell) { goto sorrymsg }
      if (%dmweapclass. [ $+ [ $nick ] ] != arrow) {
        notice $nick %c1 $+ You only can equip arrows with the ranger class, while you have $+ %c3 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ .
        halt 
      }

      ;+++ START :CHECKBOW - CHECKS IF AN AMOUNT IS GIVEN +++
      :checkbow
      set %dmarrow.amount $remove($right($1-,5),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41))
      if (!%dmarrow.amount) {
        notice $nick %c1 $+ Please specify a number, $+ %c2 below 10000 $+ %c1 $+ , of arrows you want to equip.
        halt
      }

      ;+++ IF THE ITEM GIVIN EXISTS, CONTINUE, ELSE GOTO :SORRYMSG +++
      if (!%dm.equipitem) .goto sorrymsg
      if (%dm.equipitem) {

        ;+++ INCREASE THE CURRENT ARROW AMOUNT BY THE GIVEN +++ 
        inc %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount

        ;+++ CHANGES 'weak_arrow@price@arrow@bow@hit' in 'weak arrow' +++
        set %dmcheckweap $gettok($replace(%dm.equipitem,$chr(32),_),1,64)

        ;+++ IF YOU HAVE THE ARROW +++
        if ($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64))) { 

          ;+++ CHANGES 'weak_arrow' TO 'weak arrow' +++
          set %dmarrow. [ $+ [ $nick ] ] $replace(%dm.equipitem,_,$chr(32))

          ;+++ TELLS WHAT BOW YOU NEED +++
          set %reqbow $gettok(%dm.equipitem,4,64)
          set %reqbow $replace(%reqbow,_,$chr(32))

          ;+++ CHECKS IF YOU HAVEN'T THE CORRECT BOW EQUIPPED +++
          if (%reqbow == bow && %dmweapon. [ $+ [ $nick ] ] != bow && %dmweapon. [ $+ [ $nick ] ] != large bow && %dmweapon. [ $+ [ $nick ] ] != great bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) {
            notice $nick %c1 $+ You need a $+ %c5 bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ .
            dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount
            halt
          }
          elseif (%reqbow == large bow && %dmweapon. [ $+ [ $nick ] ] != large bow && %dmweapon. [ $+ [ $nick ] ] != great bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) {
            notice $nick %c1 $+ You need a $+ %c5 Large bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ .
            dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount            
            halt
          }
          elseif (%reqbow == great bow && %dmweapon. [ $+ [ $nick ] ] != great bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) {
            notice $nick %c1 $+ You need a $+ %c5 Great bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ .
            dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount           
            halt
          }
          elseif (%reqbow == ultimate bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) {
            notice $nick %c1 $+ You need an $+ %c5 Ultimate bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ .
            dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount           
            halt
          }

          ;+++ IF YOU ARE WIELDING THE CORRECT BOW +++
          else {
            if ($calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - %dmarrow.amount) < 0) {
              set %amountyouhave $readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64))
              if (!%amountyouhave) .set %amountyouhave 0
              notice $nick %c1 $+ Sorry, you don't have $+ %c3 %dmarrow.amount $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ . You only have $+ %c3 %amountyouhave $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ .
              halt
            }
            elseif $calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - %dmarrow.amount) == 0) {
              remini dminv.ini $nick $gettok(%dm.equipitem,1,64)
              dec %dminv. [ $+ [ $nick ] ]
            }
            set %amountleft $calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - %dmarrow.amount)
            if (%amountleft <= 0) { 
              remini dminv.ini $nick $gettok(%dm.equipitem,1,64)
              dec %dminv. [ $+ [ $nick ] ]
            }
            else {
              writeini dminv.ini $nick $gettok(%dm.equipitem,1,64) %amountleft
              inc %dminv. [ $+ [ $nick ] ]
            }
            if (%unequip2) {
              msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 $gettok(%unequip2,1,64) $+ s $+ %c1 $+ .
              set %oldamount $readini(dminv.ini,$nick,$gettok(%lastequipped2. [ $+ [ $nick ] ],1,64))
              set %plusamount %lastarrowamount. [ $+ [ $nick ] ]
              set %newamount $calc(%oldamount + %plusamount)
              if (%lastequipped2. [ $+ [ $nick ] ]) {
                writeini dminv.ini $nick $gettok(%lastequipped2. [ $+ [ $nick ] ],1,64) %newamount
                var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped2. [ $+ [ $nick ] ],1,64))
              }
              else {
                var %amountnow = 1
              }
            }
            if ($gettok($replace(%dm.equipitem,$chr(32),_), 6, 64) == P) { set %addextra , and has $+ %c6 10 $+ %c1 damage poison. }
            elseif ($gettok($replace(%dm.equipitem,$chr(32),_), 6, 64) == P+) { set %addextra , and has $+ %c6 20 $+ %c1 damage poison. }
            elseif ($gettok($replace(%dm.equipitem,$chr(32),_), 6, 64) == P++) { set %addextra , and has $+ %c6 40 $+ %c1 damage poison, that can't be cured. }
            else { set %addextra . } 
            set %lastequipped2. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64)
            set %lastarrowamount. [ $+ [ $nick ] ] %dmarrow.amount. [ $+ [ $nick ] ]
            set %dmarrowmax. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),5,64)
            msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equips $+ %c3 %dmarrow.amount $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ , which can max hit $+ %c3 %dmarrowmax. [ $+ [ $nick ] ] $+ %c1 $+ %addextra
          }
        } 

        ;+++ IF YOU DON'T HAVE THE ARROW +++
        else { 
          notice $nick %c1 $+ You dont have a $+ %c5 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ !
        }
      }
      else {
        :sorrymsg
        notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%weaprequest,_,$chr(32)) $+ " $+ %c1 in your inventory. Maybe you spelled it wrong?
      }
    }
    else {
      notice $nick %c1 $+ You can only use this command when fighting.
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;########################### UNEQUIP ####################################
on $*:text:/^[!`@.](un(eq(uip)?)|wear)/Si:#DM, #DM-shop, #DM-bank: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM-bank || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (%dm.status == on && ($nick == %dm.player1 || $nick == %dm.player2)) {
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) {
        notice $nick %c1 $+ You don't have anything equipped!
        halt
      }
      set %dmwriteitemfight $replace(%dmweapon. [ $+ [ $nick ] ],Chr(32),_)
      var %checkitemfight = $readini(dminv.ini,$nick,$replace(%dmwriteitemfight,$chr(32),_))
      if (%dminv. [ $+ [ $nick ] ] >= 10 && !%checkitemfight) {
        notice $nick %c1 $+ Your inventory is full!
        halt
      }
      msg %dm.chan %c2 $+ $nick $+ %c1 Unequips his $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which means he now is unarmed.
      if ($readini(dminv.ini,$nick,$replace(%dmwriteitemfight,$chr(32),_))) .inc %dminv. [ $+ [ $nick ] ]
      unset %mayunequip. [ $+ [ $nick ] ]
      unset %dmweapon. [ $+ [ $nick ] ]
      unset %lastequipped. [ $+ [ $nick ] ]
      set %oldamountfight $readini(dminv.ini,$nick,$replace(%dmwriteitemfight,$chr(32),_))
      writeini dminv.ini $nick $replace(%dmwriteitemfight,$chr(32),_) $calc(%oldamountfight + 1)
    }
    else {
      notice $nick %c1 $+ You can only use this command when fighting.
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}


;######################## ATTACK - MELEE ################################
on $*:text:/^[?!@`.](at(t)?(ack)?|hit)/Si:#DM: {
  if (%dm.status == ON) {
    if ($nick == %dm.player1) {
      timerturnswitch off
      timerstopdm off
      if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
        msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
        notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
        set %dm.player1 %dm.player2
        set %dm.player2 $nick
        dec %dmfreeze. [ $+ [ $nick ] ]
        halt
      }
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ])  { 
        set %dm.hit $rand(0,5) 
        set %dmweapused his fist.
      }
      else { 
        var %dm.equipitem = $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
        if ($gettok(%dm.equipitem,3,64) != melee && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead.
          halt
        }
        set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64)
        set %dm.hit $rand(0, %dm.max)
        set %dmweapused a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ .
        if (home isin %dmweapon. [ $+ [ %dm.player1 ] ] && $r(1,5) == 2) {
          timer 1 1 notice $nick %c1 $+ You broke your $+ %c3 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ , meaning you lost it.
          unset %dmweapon. [ $+ [ %dm.player1 ] ]
        }
      } 
      health.check
      set %dm.player1 %dm.player2
      set %dm.player2 $nick
      timerturnswitch 1 120 turngone
    }
    elseif ($nick == %dm.player2) { 
      notice $nick %c1 $+ Its not your turn! 
    }
    else { 
      notice $nick %c1 $+ You are not fighting in this DM. 
    }
  }
  else {
    notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one.
  }
}

;######################## ATTACK - RANGE ################################
on $*:text:/^[@`.?!](s(h)?((o)?o)?t)/Si:#DM: {
  if (%dm.status == ON) {
    if ($nick == %dm.player1) {
      timerturnswitch off
      timerstopdm off
      if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
        msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
        notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
        set %dm.player1 %dm.player2
        set %dm.player2 $nick
        dec %dmfreeze. [ $+ [ $nick ] ]
        halt
      }
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] || !%dmarrow. [ $+ [ $nick ] ])  { 
        set %dm.hit $rand(0,5) 
        if (!%dmarrow. [ $+ [ $nick ] ] && %dmweapon. [ $+ [ $nick ] ]) { set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with the $+ %c5 basic arrows $+ %c1 $+ . }
        else { set %dmweapused his fist. } 
      }
      else { 
        var %dm.equipitem = $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
        if ($gettok(%dm.equipitem,3,64) != range && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !attack $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead.
          halt
        }
        set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),5,64)
        set %dm.hit $rand(0, %dm.max)
        set %dm.poison $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),6,64)
        if (%dm.poison == P) .set %dm.poisondmg 10
        if (%dm.poison == P+) .set %dm.poisondmg 20
        if (%dm.poison == P++) .set %dm.poisondmg 40
        if (!%dmpoisoned. [ $+ [ %dm.player2 ] ] && %dm.poisondmg && $r(1,5) == 2) {
          set %addpoison 1
        }
        dec %dmarrow.amount. [ $+ [ $nick ] ] %arrows.shot
        set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ .
        if (%dmarrow.amount. [ $+ [ $nick ] ] <= 0) {
          unset %dmarrow. [ $+ [ $nick ] ]
        }
        else {
          set %dmweapused %dmweapused $chr(32) | timer 1 1 notice %dm.player1 %c1 $+ You now have $+ %c3 %dmarrow.amount. [ $+ [ %dm.player1 ] ] $+ %c5 $gettok(%dmarrow. [ $+ [ %dm.player1 ] ],1,64) $+ s $+ %c1 left.
        }
        set %arrows.shot $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64)
        if (%arrows.shot == 3) {
          set %dm.hit2 $rand(0, %dm.max)
          set %dm.hit3 $rand(0, %dm.max)
        }
      } 
      health.check
      set %dm.player1 %dm.player2
      set %dm.player2 $nick
      timerturnswitch 1 120 turngone
    }
    elseif ($nick == %dm.player2) { 
      notice $nick %c1 $+ Its not your turn! 
    }
    else { 
      notice $nick %c1 $+ You are not fighting in this DM. 
    }
  }
  else {
    notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one.
  }
}


;######################## ATTACK - MAGE #################################
on $*:text:/^[?!@`.](cast|spell)/Si:#DM: {
  if (%dm.status == ON) {
    if ($nick == %dm.player1) {
      timerturnswitch off
      timerstopdm off
      if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
        msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
        notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
        set %dm.player1 %dm.player2
        set %dm.player2 $nick
        dec %dmfreeze. [ $+ [ $nick ] ]
        halt
      }
      set %dmspellname $read(dmshopitems.txt, w, $replace($2-,$chr(32),_) $+ *)
      set %dmspell2 $gettok(%dmspellname,1,64)
      set %dmspell $replace(%dmspell2,_,$chr(32))
      if (!%dmspell) {
        notice $nick %c1 $+ There's no such spell as %c4 $+ " $+ $2- $+ " $+ %c1 $+ .
        halt
      }
      if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] || !$2)  { 
        set %dm.hit $calc($rand(0,10) + $rand(
        set %dmweapused the basic spell.
      }
      else { 
        set %dm.weaponuse $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
        if ($gettok(%dm.weaponuse,3,64) != mage && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack $+ %c1 or %c3 $+ !use $+ %c1 instead.
          halt
        }
        set %reqstaff $gettok(%dmspellname,4,64)
        set %reqstaff $replace(%reqstaff,_,$chr(32))
        if (%reqstaff == Newbie magic staff && %dmweapon. [ $+ [ $nick ] ] != Newbie magic staff && %dmweapon. [ $+ [ $nick ] ] != Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need a $+ %c5 Newbie magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        elseif (%reqstaff == Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need a $+ %c5 Beginner magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        elseif (%reqstaff == Magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need a $+ %c5 Magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        elseif (%reqstaff == Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
          notice $nick %c1 $+ You need an $+ %c5 Advanced magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
          halt
        }
        if ($gettok(%dmspellname,3,64) == aspell) {
          set %dm.max $gettok(%dmspellname,5,64)
          if (%dmweapon. [ $+ [ $nick ] ] == Newbie magic staff) .set %dm.max $calc(%dm.max * 0.8)
          if (%dmweapon. [ $+ [ $nick ] ] == Beginner magic staff) .set %dm.max $calc(%dm.max * 0.9)
          if (%dmweapon. [ $+ [ $nick ] ] == Advanced magic staff) .set %dm.max $calc(%dm.max * 1.1)
          if (%dmweapon. [ $+ [ $nick ] ] == Ultimate magic staff) .set %dm.max $calc(%dm.max * 1.2)
          if (%dmweapon. [ $+ [ $nick ] ] == Two duel handed magic wands) .set %dm.max $calc(%dm.max * 1.5)
          set %dm.hit $rand(5, %dm.max) 
          set %dmweapused %c3 $+ %dmspell $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ .
          if ($gettok(%dmspellname,6,64) == freeze) {
            set %dmfreeze. [ $+ [ %dm.player2 ] ] 2
            if (%dmclass. [ $+ [ %dm.player2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.player2 ] ] 0
            set %dmweapused %dmweapused  | msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has been frozen, meaning he can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 2 $+ %c1 turns.
          }
          health.check
        }
        elseif ($gettok(%dmspellname,3,64) == hspell) {
          set %dm.heal $calc(%dm.starthealth. [ $+ [ %dm.player1 ] ] / 100 * $gettok(%dmspellname,5,64))
          inc %dmhealth. [ $+ [ %dm.player1 ] ] %dm.heal
          if (%dmhealth. [ $+ [ %dm.player1 ] ] > %dm.starthealth. [ $+ [ %dm.player1 ] ]) {
            set %dm.heal $calc(%dm.starthealth. [ $+ [ %dm.player1 ] ] - %dmhealth. [ $+ [ %dm.player1 ] ])
            set %dmhealth. [ $+ [ %dm.player1 ] ] %dm.starthealth. [ $+ [ %dm.player1 ] ]
          }
          msg %dm.chan %c2 $+ %dm.player1 $+ %c1 casts $+ %c5 %dmspell $+ %c1 healing him with $+ %c4 %dm.heal $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints.  
        }
        elseif ($gettok(%dmspellname,3,64) == tspell) {
          set %dmfreeze. [ $+ [ %dm.player2 ] ] 4
          if (%dmclass. [ $+ [ %dm.player2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.player2 ] ] 2
          msg %dm.chan %c2 $+ %dm.player1 $+ %c5 teleports away $+ %c1 $+ , meaning $+ %c2 %dm.player2 $+ %c1 can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 4 $+ %c1 $+ , and $+ %c3 ranged/magic attacks $+ %c1 for $+ %c5 2 $+ %c1 turns. 
        }

        writeini dminv.ini $nick %dmspell2 $calc($readini(dminv.ini,$nick,%dmspell2) - 1)
        set %dmweapused %dmweapused  | timer 1 1 notice %dm.player1 %c1 $+ You have $+ %c3 $readini(dminv.ini,$nick,%dmspell2) $+ %c4 %dmspell $+ s $+ %c1 left. 
        if ($readini(dminv.ini,$nick,%dmspell2) <= 0) .remini dminv.ini $nick %dmspell2 
      } 
      set %dm.player1 %dm.player2
      set %dm.player2 $nick
      timerturnswitch 1 120 turngone
    }
    elseif ($nick == %dm.player2) { 
      notice $nick %c1 $+ Its not your turn! 
    }
    else { 
      notice $nick %c1 $+ You are not fighting in this DM. 
    }
  }
  else {
    notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one.
  }
}


;######################## XP & LVL CHECK ################################
on $*:text:/^[!@`.](((e)?x)?p(oint)?(s)?|l(e)?v(e)?l)/Si:#DM, #DM-shop, #DM-bank: {
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM-bank || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    var %dmxpchecknick = $nick
    if (($2 && $2 !isnum && !$3) || ($3 && $2 !isnum)) { var %dmxpchecknick = $2 }
    if (!%dm.xp. [ $+ [ %dmxpchecknick ] ]) .set %dm.xp. [ $+ [ %dmxpchecknick ] ] 0
    if (!%dmlvl. [ $+ [ %dmxpchecknick ] ]) .set %dmlvl. [ $+ [ %dmxpchecknick ] ] 1
    var %dmxpnow = %dm.xp. [ $+ [ %dmxpchecknick ] ]
    if ($3 isnum || ($2 isnum && !3)) {
      goto checkthis
    }
    if (%dmlvl. [ $+ [ %dmxpchecknick ] ] == 1 ) { 
      set %dm.lvl.req. [ $+ [ %dmxpchecknick ] ] 100 
    } 
    else { 
      set %dm.lvl.req. [ $+ [ %dmxpchecknick ] ] $calc(%dmlvl. [ $+ [ %dmxpchecknick ] ] ^ 3 * 0.6 + %dmlvl. [ $+ [ %dmxpchecknick ] ] * 100))
    }
    var %dmxpneed = %dm.lvl.req. [ $+ [ %dmxpchecknick ] ]
    set %xpleft. [ $+ [ %dmxpchecknick ] ] $calc(%dmxpneed - %dmxpnow)
    notice $nick %c3 $+ %dmxpchecknick $+ %c1 currently is level $+ %c5 %dmlvl. [ $+ [ %dmxpchecknick ] ] $+ %c1 $+ , and has $+ %c4 $gettok(%dm.xp. [ $+ [ %dmxpchecknick ] ],1,46) $+ %c1 expoints. For level $+ %c6 $calc(%dmlvl. [ $+ [ %dmxpchecknick ] ] + 1) $+ %c1 he needs a total of $+ %c5 $gettok(%dm.lvl.req. [ $+ [ %dmxpchecknick ] ],1,46) %c1 $+ expoints, which means he needs $+ %c2 $gettok(%xpleft. [ $+ [ %dmxpchecknick ] ],1,46) %c1 $+ expoints more.
    halt
    :checkthis
    if ($3 isnum) .set %asklvl $3
    if ($2 isnum) .set %asklvl $2
    goto checklvl
    if ((!$3 && $2 !isnum) || ($3 && $3 !isnum)) {
      notice $nick %c1 $+ You need to specify a lvl.
      halt
    }
    :checklvl
    if (%dmlvl. [ $+ [ %dmxpchecknick ] ] > %asklvl) {
      notice $nick %c2 $+ %dmxpchecknick $+ %c1 already is higher than lvl %c3 $+ %asklvl $+ %c1 $+ .
      halt
    }
    else {
      var %asklvl2 = $calc(%asklvl - 1)
      var %asklvlxp = $calc(%asklvl2 ^ 3 * 0.6 + %asklvl2 * 100)
      notice $nick %c1 $+ For lvl $+ %c4 %asklvl $+ %c1 $+ , $+ %c2 %dmxpchecknick $+ %c1 needs $+ %c6 $gettok($calc(%asklvlxp - %dmxpnow),1,46) %c1 $+ more expoints. He now has $+ %c6 $gettok(%dmxpnow,1,46) %c1 $+ expoints and is level $+ %c4 %dmlvl. [ $+ [ %dmxpchecknick ] ] $+ %c1 $+ .
      halt
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}

;############################ POTIONS & FOOD ############################



;############################ PRAYER ####################################



;########################################################################
;########################### OTHER COMMANDS #############################
;########################################################################

;########################### GET/SET MONEY ##############################
on $*:text:/^[!`.@]((get|set)(mon(ey)?|cash))/Si:#DM, #DM-shop, #DM-bank: {
  if (($nick == Supamagier || $nick == cnb6 || $address($nick,2) == $address($me,2)) || $nick isop $chan) {
    if (get isin $1-) {
      if (!$2 || # isin $2) {
        notice $nick %c1 $+ Please specify a valid nickname.
        halt
      }
      if (!%dmmoney. [ $+ [ $2 ] ]) .set %dmmoney. [ $+ [ $2 ] ] 0
      notice $nick %c2 $+ $2 $+ %c1 has $+ %c3 %dmmoney. [ $+ [ $2 ] ] $+ %c1 coins.
    }
    if (set isin $1-) {
      if (!$2 || # isin $2 || !$3 || $3 !isnum) {
        notice $nick %c1 $+ Please specify a valid nickname and amount.
        halt
      }
      set %dmmoney. [ $+ [ $2 ] ] $3
      notice $nick %c2 $+ $2 $+ `s %c1 $+ money set to $+ %c3 $3 $+ %c1 $+ .
    }
  }
  else {
    notice $nick %c1 $+ You need to be my owner to do this.
  }
}

;########################################################################
;#####################---ALIASES --- ALIASES ---#########################
;########################################################################

;##################IF NOT ACCEPTED WITHIN 30 SECONDS#####################
alias dmplayway {
  timer -m 1 500 inc %dmslots
  msg $replace($1-,=,: $+ %c2 $+ $chr(32),_,$chr(32))
  set %playnick $pnick
  timer -m 1 5500 dmplayway2
}

alias -l dmplayway2 {
  if (%dmplaymsg) {
    set %dminv. [ $+ [ %playnick ] ] %dmslots
    unset %dmplaymsg
  }
} 
alias -l tooSlow {
  msg %dm.chan %c1 $+ Nobody accepted $+ %c2 %dm.player1 $+ 's $+ %c1 challenge within $+ %c4 30 $+ %c1 seconds. Challenge timed out.
  unset %dm.player*
  unset %dm.status*
  unset %dm.chan*
}
alias setDMShop {
  write -c dmshopitems.txt

  ; +++ NAME@PRICE +++
  write dmshopitems.txt Small_health_potion@10
  write dmshopitems.txt Normal_health_potion@20
  write dmshopitems.txt Large_health_potion@50
  write dmshopitems.txt Incredible_fantastic_Uber_health_potion@1000
  write dmshopitems.txt Anti_potion@30
  write dmshopitems.txt Prayer_potion@200
  write dmshopitems.txt Mage_potion@200
  write dmshopitems.txt Strength_potion@200
  write dmshopitems.txt Ranged_potion@200
  write dmshopitems.txt Defence_potion@150

  ; +++ NAME@PRICE@CLASS@MAX HIT@STR REQ +++
  write dmshopitems.txt Dagger@50@melee@10@1
  write dmshopitems.txt Sword@100@melee@15@1
  write dmshopitems.txt Battle_axe@200@melee@25@5
  write dmshopitems.txt Home_made_sword@250@melee@50@10
  write dmshopitems.txt Scimitar@2000@melee@50@15
  write dmshopitems.txt Duel_handed_battle_axes@5000@melee@200@25
  write dmshopitems.txt Godsword@25000@melee@550@40

  ; +++ NAME@PRICE@CLASS@AMOUNNT ARROW
  write dmshopitems.txt Bow@10@range@1
  write dmshopitems.txt Large_bow@100@range@1
  write dmshopitems.txt Great_bow@1000@range@1
  write dmshopitems.txt Ultimate_bow@5000@range@1
  write dmshopitems.txt Triple_arrowed_bow@10000@range@3

  ; +++ NAME@PRICE@CLASS@HIT INCREASE IN % +++
  write dmshopitems.txt Newbie_magic_staff@50@mage@-20
  write dmshopitems.txt Beginner_magic_staff@100@mage@-10
  write dmshopitems.txt Magic_staff@200@mage@0
  write dmshopitems.txt Advanced_magic_staff@500@mage@10
  write dmshopitems.txt Ultimate_magic_staff@1000@mage@20
  write dmshopitems.txt Two_Duel_handed_magic_wands@5000@mage@50

  ; +++ NAME@PRICE@SORT SPELL@STAFF REQ@MAX HIT/HEALTH RECOVER +++
  write dmshopitems.txt Blizz@50@aspell@newbie_magic_staff@20
  write dmshopitems.txt Blizztering_cold@75@aspell@newbie_magic_staff@25
  write dmshopitems.txt Fire_fury@100@aspell@beginner_magic_staff@50
  write dmshopitems.txt Blizztering_freeze@400@aspell@30@magic_staff@70@freeze
  write dmshopitems.txt Venquence_fury@500@aspell@magic_staff@100
  write dmshopitems.txt Health_cast@2000@hspell@advanced_magic_staff@30
  write dmshopitems.txt Life_cast@3500@hspell@ultimate_magic_staff@70
  write dmshopitems.txt Teleport@5000@tspell@ultimate_magic_staff@
  write dmshopitems.txt Avada_kadavra@10000@aspell2@two_duel_handed_magic_wands@700

  ; +++ NAME@PRICE@ARROW@BOW REQ@MAX HIT@POISON? +++
  write dmshopitems.txt Weak_arrow@1@arrow@bow@10
  write dmshopitems.txt Normal_arrow@2@arrow@bow@40
  write dmshopitems.txt powerful_arrow@2@arrow@large_bow@75
  write dmshopitems.txt powerful_arrow_(P)@5@arrow@great_bow@100@P
  write dmshopitems.txt Diamond_arrow@10@arrow@ultimate_bow@150
  write dmshopitems.txt Diamond_arrow_(P+)@15@arrow@ultimate_bow@200@P+
  write dmshopitems.txt Cursed_arrow@30@arrow@ultimate_bow@450@P++
}

alias -l turngone {
  msg %dm.chan %c2 $+ %dm.player1 $+ %c1 hasn't attacked or used a potion/spell within $+ %c3 1 minute $+ %c1 $+ ; $+ %c2 %dm.player2 $+ 's $+ %c1 turn.
  timerstopdm 1 60 turngone2 
  var %dm.player3 = %dm.player1
  set %dm.player1 %dm.player2
  set %dm.player2 %dm.player3
}
alias -l turngone2 {
  msg %dm.chan %c2 $+ %dm.player1 $+ %c1 nor $+ %c2 %dm.player2 $+ %c1 has attacked or used a potion/spell within $+ %c3 2 minutes $+ %c1 $+ ; deathmatch halted.
  enddm
}

alias -l health.check {
  if (%dmpoisoned. [ $+ [ %dm.player1 ] ]) {
    if (%dmpoisoned. [ $+ [ %dm.player1 ] ] > %dmhealth. [ $+ [ %dm.player1 ] ]) { 
      set %dmpoisoned. [ $+ [ %dm.player1 ] ] %dmhealth. [ $+ [ %dm.player1 ] ]
      var %dm.player3 = %dm.player1
      set %dm.player1 %dm.player2
      set %dm.player2 %dm.player3 
      msg %dm.chan %c2 $+ %dm.player2 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left.
      msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has died because of poison! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight! 
      :playerdied
    }
    else {
      dec %dmhealth. [ $+ [ %dm.player1 ] ] %dmpoisoned. [ $+ [ %dm.player1 ] ]
      msg %dm.chan %c2 $+ %dm.player1 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints left.
    }
  }
  if (%dm.hit > %dmhealth. [ $+ [ %dm.player2 ] ]) { 
    set %dm.hit %dmhealth. [ $+ [ %dm.player2 ] ] 
  }
  msg %dm.chan %c2 $+ %dm.player1 $+ %c1 has hit $+ %c3 %dm.hit $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused
  if (%addpoison) {
    msg %dm.chan %c2 $+ %dm.player2 $+ %c1 is poisoned with $+ %c6 %dm.poisondmg $+ %c1 poison damage each turn!
    set %dmpoisoned. [ $+ [ %dm.player2 ] ] %dm.poisondmg
    unset %addpoison
  }
  dec %dmhealth. [ $+ [ %dm.player2 ] ] %dm.hit
  if  (%dmhealth. [ $+ [ %dm.player2 ] ] <= 0) { 
    msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has been defeated! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight! 
    :playerdied
    set %winfight 1
    inc %dmloses. [ $+ [ %dm.player2 ] ] 
    inc %dmwins. [ $+ [ %dm.player1 ] ]
    enddm
    return
  }
  msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left! 
  notice %dm.player1 %c1 $+ You gained $+ %c6 %dm.hit $+ %c1 XP.
  inc %dm.xp. [ $+ [ %dm.player1 ] ] %dm.hit
  xp.check 
}

alias -l xp.check { 
  if (%winfight) .inc %dm.xp. [ $+ [ %dm.player1 ] ] $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15)
  if (%dmlvl. [ $+ [ %dm.player1 ] ] == 1 ) { 
    set %dm.lvl.req. [ $+ [ %dm.player1 ] ] 100 
  } 
  else { 
    set %dm.lvl.req. [ $+ [ %dm.player1 ] ] $calc(%dmlvl. [ $+ [ $nick ] ] ^ 3 * 0.6 + %dmlvl. [ $+ [ $nick ] ] * 100)) 
  }
  lvl.check
}

alias -l lvl.check {
  if (%dm.xp. [ $+ [ %dm.player1 ] ] >= %dm.lvl.req. [ $+ [ %dm.player1 ] ]) {  
    inc %dmlvl. [ $+ [ %dm.player1 ] ] 
    msg %dm.chan %c6 $+ Congratulations! $+ %c2 %dm.player1 $+ %c6 just leveled up! He now is level $+ %c6 %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c6 $+ ! 
    notice %dm.player1 %c1 $+ From now on, you'll have $+ %c4 $gettok($calc(%dmlvl. [ $+ [ %dm.player1 ] ]  ^1.2 * 30 + 80),1,46) $+ %c1 hitpoints.
  }
}
alias enddm {
  timerstopdm off
  timerturnswitch off
  unset %dm.player*
  unset %dm.status
  unset %winfight
  unset %dmpoison*
  unset %dmfreeze*
}






;########################################################
;################ TO BE USED LATER ######################
;########################################################

[none]nothing[/none]


;##############################################################
;###################### BACK UPS ##############################
;##############################################################

; +++ MAYBE IN ALIAS 'DMPLAYWAY2' +++
;msg %playnick %c1 $+ Currently, you have used $+ %c4 %dmslots $+ %c1 / $+ %c4 10 $+ %c1 inventory slots.

; +++