Anonymous

on $*:text:/^[!`.@](dm|deathmatch|chal(l)?(enge)?|fight)/Si:#DM: {
  if ($network == Tundrairc) {
    ;###################################################################
    ;##########SET THE COLOUR NUMBER YOU WANT WHERE THE XXXX IS#########
    ;###################################################################

    set %colour.overall 6
    set %colour.nicks 8
    set %colour.hits 3
    set %colour.hp 14
    set %colour.weapon 15
    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.poison)
    set %chan #DM
    if (%dmnick. [ $+ [ $nick ] ] != 1) {
      if (%dm.player1) {
        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
        msg %chan %c1 $+ The fight is %c2 $+ %dm.player1 $+ %c1 ( $+ %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ $nick ] ] $+ %c1 - $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ $nick ] ] $+ %c1 $+ ) Vs %c2 $+ %dm.player2 $+ %c1 ( $+ %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ $nick ] ] $+ %c1 - $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ $nick ] ] $+ %c1 $+ ).
        set %dm.begin $r(1,2)
        if (%dm.begin == 1) {
          set %dm.startnick %dm.player1
        }
        if (%dm.begin == 2) {
          set %dm.startnick %dm.player2
        }
        msg %chan %c2 $+ %dm.startnick $+ %c1 starts the game!
        notice %dm.player1 %c1 $+ Dm started, you're fighting %c4 $+ %dm.player2 $+ %c1 $+ .
        notice %dm.player2 %c1 $+ Dm started, you're fighting %c4 $+ %dm.player1 $+ %c1 $+ .
      }
      else {
        set %dm.player1 $nick
        msg %chan %c2 $+ %dm.player $+ %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!
      }
    }
    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 connect to %c2 $+ irc.tundrairc.net %c1 $+ to play a DeathMatch!
  }
}