Anonymous

on *:text:!create*:#duel-arena:{
  if (!$read(AQNames.txt, s, $nick)) { 
    notice $nick You have created your Character!
    if (!$2) { 
      write AQNames.txt $nick $nick 
      notice $nick You didn't specify a name so your Character will have the name $nick by default.
      notice $nick Type !style Melee/Range/Mage to choose your attack style.
    }
    else { 
      write AQNames.txt $nick $2 
      notice $nick You have given your Character the name $2 $+ .
      notice $nick Type !style Melee/Range/Mage to choose your attack style.      
    }
  }
  else { 
    notice $nick You already have a Character!
  }
}
on *:text:!style*:#duel-arena:{ if (!$read(AQNames.txt, s, $nick)) notice $nick You don't have a Character! Type !create <name> to make one.
  if ($2 == melee) set % $+ $read(AQNames.txt, s, $nick) MELEE
  if ($2 == range) set % $+ $read(AQNames.txt, s, $nick) RANGE
  if ($2 == mage) set % $+ $read(AQNames.txt, s, $nick) MAGE
}
on *:text:!battle*:#duel-arena:{
  if (!$read(AQNames.txt, s, $nick)) {
    notice $nick You do not have a Character! Type !create <name> to make one.
  }
  else {
    notice $nick You choose to battle a random creature...
    tokenize 32 $read(monsters.txt)
    set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster $1
    set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP $rand($gettok($2,1,$asc(-)),$gettok($2,2,$asc(-)))
    set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP $rand($gettok($3,1,$asc(-)),$gettok($3,2,$asc(-)))
    set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins $rand($gettok($4,1,$asc(-)),$gettok($4,2,$asc(-)))
    notice $nick A % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster appears...
    set % $+ $read(AQNames.txt, s, $nick) $+ 'sHP 99
    notice $nick type !attack to attack.
  }
}
on *:text:!attack*:#duel-arena:{
  if (!$read(AQNames.txt, s, $nick)) notice $nick You don't have a Character! Type !create <name> to make one.
  else { if ($read(AQNames.txt, s, $nick) == MELEE) notice $nick $read(AQNames.txt, s, $nick) runs towards the % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster and slashes it with $read(AQNames.txt, s, $nick) $+ 's sword!
    set % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE $rand(0,20)
    notice $nick $read(AQNames.txt, s, $nick) dealt % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE on the % + $read(AQNames.txt, s, $nick) $+ 'sMonster $+ !
    dec % $+ $read(AQNames.txt, s, $nick) $+ MonsterHP % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE
    if (% $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP < 0) || (%+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP == 0) notice $nick $read(AQNames.txt, s, $nick) has Won! The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster lay in it's blood.
    notice $nick $read(AQNames.txt, s, 4nick) has gained % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP Experience!
    inc % $+ $read(AQNames.txt, s, $nick) $+ XP % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP
    notice $nick $read(AQNames.txt, s, $nick) has won %+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins Coins!
    inc % $+ $read(AQNames.txt, s, $nick) $+ Coins % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins
    else { notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster has % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP HP left.
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster $+ 's turn.
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster attempts to attack!
      set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage $rand($gettok($5,1,$asc(-)),$gettok($5,2,$asc(-)))
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster deals % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage on $read(AQNames.txt, s, $nick) $+ !
      dec % $+ $read(AQNames.txt, s, $nick) $+ 'sHP % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage
      if (% $+ $read(AQNames.txt, s, $nick) $+ 'sHP < 0) || (% $+ $read(AQNames.txt, s, $nick) $+ 'sHP == 0) notice $nick $read(AQNames.txt, s, $nick) has fallen!
      else { notice $nick $read(AQNames.txt, s, $nick) has % $+ $read(AQNames.txt, s, $nick) 'sHP left!
        notice $nick $read(AQNames.txt, s, $nick) $+ 's turn.
      }
    }
    if ($read(AQNames.txt, s, $nick) == RANGE) notice $nick $read(AQNames.txt, s, $nick) pulls out their bow and fires a handful of arrows from their quiver at the % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster $+ !
    set % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE $rand(0,20)
    notice $nick $read(AQNames.txt, s, $nick) dealt % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE on the % + $read(AQNames.txt, s, $nick) $+ 'sMonster $+ !
    dec % $+ $read(AQNames.txt, s, $nick) $+ MonsterHP % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE
    unset % $+ $read(AQNames.txt, s, $nick) %+ DAMAGE
    if (% $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP < 0) || (%+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP == 0) notice $nick $read(AQNames.txt, s, $nick) has Won! The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster lay in it's blood.
    notice $nick $read(AQNames.txt, s, 4nick) has gained % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP Experience!
    inc % $+ $read(AQNames.txt, s, $nick) $+ XP % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP
    notice $nick $read(AQNames.txt, s, $nick) has won %+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins Coins!
    inc % $+ $read(AQNames.txt, s, $nick) $+ Coins % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins
    else { notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster has % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP HP left.
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster $+ 's turn.
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster attempts to attack!
      set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage $rand($gettok($5,1,$asc(-)),$gettok($5,2,$asc(-)))
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster deals % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage on $read(AQNames.txt, s, $nick) $+ !
      dec % $+ $read(AQNames.txt, s, $nick) $+ 'sHP % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage
      if (% $+ $read(AQNames.txt, s, $nick) $+ 'sHP < 0) || (% $+ $read(AQNames.txt, s, $nick) $+ 'sHP == 0) notice $nick $read(AQNames.txt, s, $nick) has fallen!
      else { notice $nick $read(AQNames.txt, s, $nick) has % $+ $read(AQNames.txt, s, $nick) 'sHP left!
        notice $nick $read(AQNames.txt, s, $nick) $+ 's turn.
      }
    }
    if ($read(AQNames.txt, s, $nick) == MAGE) notice $nick $read(AQNames, s, $nick) holds out their staff... charges up and produces a ball of energy and BOOOOOM!!!, fires it at % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster $+ !
    set % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE $rand(0,20)
    notice $nick $read(AQNames.txt, s, $nick) dealt % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE on the % + $read(AQNames.txt, s, $nick) $+ 'sMonster $+ !
    dec % $+ $read(AQNames.txt, s, $nick) $+ MonsterHP % $+ $read(AQNames.txt, s, $nick) $+ DAMAGE
    unset % $+ $read(AQNames.txt, s, $nick) %+ DAMAGE
    if (% $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP < 0) || (%+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP == 0) notice $nick $read(AQNames.txt, s, $nick) has Won! The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster lay in it's blood.
    notice $nick $read(AQNames.txt, s, 4nick) has gained % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP Experience!
    inc % $+ $read(AQNames.txt, s, $nick) $+ XP % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterXP
    notice $nick $read(AQNames.txt, s, $nick) has won %+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins Coins!
    inc % $+ $read(AQNames.txt, s, $nick) $+ Coins % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterCoins
    else { notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster has % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterHP HP left.
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster $+ 's turn.
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster attempts to attack!
      set % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage $rand($gettok($5,1,$asc(-)),$gettok($5,2,$asc(-)))
      notice $nick The % $+ $read(AQNames.txt, s, $nick) $+ 'sMonster deals % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage on $read(AQNames.txt, s, $nick) $+ !
      dec % $+ $read(AQNames.txt, s, $nick) $+ 'sHP % $+ $read(AQNames.txt, s, $nick) $+ 'sMonsterDamage
      if (% $+ $read(AQNames.txt, s, $nick) $+ 'sHP < 0) || (% $+ $read(AQNames.txt, s, $nick) $+ 'sHP == 0) notice $nick $read(AQNames.txt, s, $nick) has fallen!
      else { notice $nick $read(AQNames.txt, s, $nick) has % $+ $read(AQNames.txt, s, $nick) 'sHP left!
        notice $nick $read(AQNames.txt, s, $nick) $+ 's turn.
      }
    }
  }
}