Untitled

on *:TEXT:*:#:{
  if ($1 == !dm-commands) {
    notice $nick $c1(Regular commands:) $c2(!dm) $c1(- Requests / joins a DM.) $chr(124) $c2(!stopdm) $c1(- Ends the DM.) $chr(124) $c2(!dmstats) $c1(- View your DM stats.) $chr(124) $c2(!dm-highscore) $c1(- View the highscores.) 
    notice $nick $c1(Weapons:) $c2(!dds) $c1(- DDS's someone.) $chr(124) $c2(!gmaul) $c1(- Mauls someone.) $chr(124) $c2(!gaxe) $c1(- Uses a Great Axe on someone.) $c2(!guth) $c1(- Uses guthans. 40% chance of healing.) $chr(124) $c2(!whip or !slash) $c1(- Whips someone.) $chr(124) $c2(!eat) $c1(- Eats.) 
    notice $nick $c2(!xbow) $c1(- Uses a Cross Bow.) $chr(124)$c2(!barrage) $c1(- Ice Barrage's some one. Chance of freezing them.) $chr(124) $c2(!cbow) $c1(- Uses a Crystal Bow.) $c2(!dbattle) $c1(- Uses your dbattle special) $chr(124) $c2(!dscim) $c1(- Uses your dscimmy) $Chr(124) $c2(!d2h) $c1(- Uses your d2h)
  }
  if ($1 == !dm) {
    if (($readini(duels.ini,$chan,$nick)) || ($readini(duels.ini,$chan,prime) == $nick)) notice $nick $c1(Sorry you're already either in a DM or waiting to join one.)
    else {
      if (!$ini(duels.ini,$chan)) {
        msg $chan $c2($nick) $c1(has requested a DM...Anyone brave enough to challenge) $+($c2($nick),$c1(?)) $c1(If so type) $c2(!dm.)
        writeini -n duels.ini $chan prime $nick
        $+(.timer,$chan) 1 10 check_duel $chan
      }
      else {
        if (!$readini(duels.ini,$chan,duel)) {
          if ((!$istok($readini(duels.ini,$chan,ohahaha),$nick,58)) && ($readini(duels.ini,$chan,prime) != $nick)) {
            writeini -n duels.ini $chan ohahaha $readini(duels.ini,$chan,ohahaha) $+ $nick $+ :
            msg $chan $c2($nick) $c1(has joined the waiting list to fight in the current DM.)
            writeini -n duels.ini $chan $calc($ini(duels.ini,$chan,0) + 1) $nick
          }
          else notice $nick $c1(Please don't spam the !dm command...)
        }
        else msg $chan $c1(Sorry) $c2($nick) $c1(there is either a or no DM in progress.)
      }
    }
  }
  if ((!$readini(duels.ini,$chan,$+(frozen,.,$nick))) && ($istok(!d2h !whip !slash !dds !gmaul !gaxe !guth !guthan !guthans !dscim !dmace !dbattle !dbat,$1,32))) {
    if (($1 == !slash) || ($1 == !whip)) {
      if ($readini(duels.ini,$chan,duel)) swing_duel $chan $nick
    }
    if ($regex($1,/^!dbat(tle)?/Si)) {
      if ($readini(duels.ini,$chan,duel)) dbattle_duel $chan $nick
    }
    if ($1 == !dscim) {
      if ($readini(duels.ini,$chan,duel)) dscim_duel $chan $nick
    }
    if ($1 == !d2h) {
      if ($readini(duels.ini,$chan,duel)) d2h_duel $chan $nick
    }
    if ($1 == !dds) {
      if ($readini(duels.ini,$chan,duel)) dds_duel $chan $nick
    }
    if ($1 == !dmace) {
      if ($readini(duels.ini,$chan,duel)) dmace_duel $chan $nick
    }
    if ($1 == !gmaul) {
      if ($readini(duels.ini,$chan,duel)) gmaul_duel $chan $nick
    }
    if ($1 == !gaxe) {
      if ($readini(duels.ini,$chan,duel)) gaxe_duel $chan $nick
    }
    if ($regex($1,/^!guth(ans?)?$/Si)) {
      if ($readini(duels.ini,$chan,duel)) guthan_duel $chan $nick
    }
  }
  if (($readini(duels.ini,$chan,$+(frozen,.,$nick))) && ($istok(!slash !dds !gmaul !gaxe !guth !guthan !guthans,$1,32))) {
    if ($gettok($readini(duels.ini,$chan,duel),$readini(duels.ini,$chan,$+($chan,.,turn)),126) == $nick) {
      notice $nick $c1(You're frozen and you can only use:) $c2(!xbow) $+ $c1($chr(44)) $c2(!barrage) $+ $c1($chr(44)) $c2(!eat) $+ $c1($chr(44) or) $c2(!cbow)
    }
  }
  if ($1 == !barrage) {
    if ($readini(duels.ini,$chan,duel)) barrage_duel $chan $nick $readini(duels.ini,$chan,$+(frozen,.,$nick))
  }
  if ($1 == !xbow) {
    if ($readini(duels.ini,$chan,duel)) xbow_duel $chan $nick $readini(duels.ini,$chan,$+(frozen,.,$nick))
  }
  if ($1 == !eat) {
    if ($readini(duels.ini,$chan,duel)) eat_duel $chan $nick
  }
  if ($1 == !cbow) {
    if ($readini(duels.ini,$chan,duel)) cbow_duel $chan $nick $readini(duels.ini,$chan,$+(frozen,.,$nick))
  }
  if ($1 == !dm-highscore) hiscore_duel $nick
  if ($1 == !stopdm) {
    if (($address($nick,2) == $address($me,2)) || ($nick isop $chan) || ($nick ishop $chan)) endgame $chan !@#$^& $nick
    else {
      if (($nick isin $readini(duels.ini,$chan,duel)) || ($timer($chan).secs)) { endgame $chan !@#$^& $nick }
      else notice $nick $c1(You much be in the DM or there must be a DM about to start for you to do that.)
    }
  }
  if ($1 == !dmstats) {
    tokenize 32 $readini(duels.ini,alltime,$nick)
    if (!$0) var %wnl = $c2(0) $c1(wins and) $c2(0) $c1(losses total:) $c2(0) $c1(games.)
    else var %wnl = $c2($1) $c1(wins and) $c2($2) $c1(losses total) $c2($calc($1 + $2)) $c1(games.)
    if ($readini(duels.ini,$chan,$nick)) var %status = $c1(You are currently in a DM $+ $chr(44) here are your statistics:) $c2($v1) $c1(hp) $c2($readini(duels.ini,$chan,$+(spec,.,$nick))) $c1(spec.)
    else %status = $c1(You are not currently in a DM.)
    var %scores = $checkscore, %z = 0
    tokenize 32 %scores
    while (%z < $0) var %z = %z + 1, %line = %line $iif($($+($,%z),2) == $nick,$whichone(%z))
    notice $nick %status $c1(AllTime Scores:) %wnl $iif($len(%line),$c1(You're in the high scores for the following:) $c2($regsubex(%line,/(\s)/Si,$+($chr(160),$chr(3),$c1(and),$c2($chr(160))))))
  }
}
alias -l whichone {
  if ($1 == 1) return AllTime
  if ($1 == 2) return Wins
  if ($1 == 3) return Loses
}
alias -l hiscore_duel {
  var %alls = 0, %allp = 0, %wins = 0, %winp = 0, %loss = 0, %losp = 0, %a = 0
  while (%a < $ini(duels.ini,alltime,0)) {
    var %a = %a + 1, %p = $ini(duels.ini,alltime,%a), %s = $readini(duels.ini,alltime,%p), %win = $gettok(%s,1,32), %los = $gettok(%s,2,32)
    if (%win > %wins) var %wins = $v1, %winp = %p
    if (%los > %loss) var %loss = $v1, %losp = %p
    if ($calc(%los + %win) > %alls) var %alls = $v1, %allp = %p
  }
  notice $1 $c1(Most Wins:) $+($c2(%winp),$c1($chr(40)),$c2(%wins),$c1($chr(41))) 
  notice $1 $c1(Most Losses:) $+($c2(%losp),$c1($chr(40)),$c2(%loss),$c1($chr(41)))
  notice $1 $c1(Most DMs played:) $+($c2(%allp),$c1($chr(40)),$c2(%alls),$c1($chr(41)))
}
alias -l checkscore {
  var %alls = 0, %allp = 0, %wins = 0, %winp = 0, %loss = 0, %losp = 0, %a = 0
  while (%a < $ini(duels.ini,alltime,0)) {
    var %a = %a + 1, %p = $ini(duels.ini,alltime,%a), %s = $readini(duels.ini,alltime,%p), %win = $gettok(%s,1,32), %los = $gettok(%s,2,32)
    if (%win > %wins) var %wins = $v1, %winp = %p
    if (%los > %loss) var %loss = $v1, %losp = %p
    if ($calc(%los + %win) > %alls) var %alls = $v1, %allp = %p
  }
  return %allp %winp %losp
}
alias -l fn return $iif(*.* iswm $1,$+($gettok($1,1,46),.,$mid($gettok($1,2,46),1,2)),$1)
alias -l check_duel {
  remini duels.ini $1 ohahaha
  if ($ini(duels.ini,$1,0) >= 2) {
    var %a = $rand(1,$ini(duels.ini,$1,0))
    while ($readini(duels.ini,$1,$ini(duels.ini,$1,%a)) == $readini(duels.ini,$1,prime)) %a = $rand(1,$ini(duels.ini,$1,0))
    var %duel = $readini(duels.ini,$1,$ini(duels.ini,$1,%a)) $+ ~ $+ $readini(duels.ini,$1,prime)
    remini duels.ini $1
    writeini -n duels.ini $1 $gettok(%duel,2,126) 99
    writeini -n duels.ini $1 $gettok(%duel,1,126) 99
    writeini -n duels.ini $1 duel %duel
    startgame $1 
  }
  else {
    msg $1 $c1(Removing the game file $+ $chr(44) not enough players for DM to begin.)
    endgame $1
  }
}
alias -l endgame {
  if ($timer($1)) $+(timer,$1) off
  remini duels.ini $1 ohahaha
  if (!$2) remini duels.ini $1
  else {
    if ($2 == !@#$^&) msg $1 $c1(Current DM was ended by) $c2($3)
    else {
      var %hs1 = $readini(duels.ini,alltime,$2), %hs2 = $readini(duels.ini,alltime,$3), %n1 = $2, %n2 = $3, %dmchan = $1
      tokenize 32 %hs1
      if (!$1-) { writeini -n duels.ini alltime %n1 0 0 | tokenize 32 0 0 }
      writeini -n duels.ini alltime %n1 $calc($1 + 1) $2
      tokenize 32 %hs2
      if (!$1-) { writeini -n duels.ini alltime %n2 0 0 | tokenize 32 0 0 }
      writeini -n duels.ini alltime %n2 $1 $calc($2 + 1)
      tokenize 32 $readini(duels.ini,alltime,%n1)
      msg %dmchan $c2(%n1) $c1(won the DM $+ $chr(44)) $c2(%n1) $+ $c1('s stats $+ $chr(44) Wins:) $c2($1) $c1(Loses:) $c2($2) $c1(Total:) $c2($calc($1 + $2))
      remini duels.ini %dmchan
      halt
    }
    remini duels.ini $1
  }
}
alias -l startgame {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1)
  writeini -n duels.ini $3 $+($3,.,turn) $r(1,2)
  writeini -n duels.ini $3 $+(food,.,$1) 20
  writeini -n duels.ini $3 $+(food,.,$2) 20
  writeini -n duels.ini $3 $+(spec,.,$1) 10
  writeini -n duels.ini $3 $+(spec,.,$2) 10
  writeini -n duels.ini $3 $+(frozen,.,$1) 0
  writeini -n duels.ini $3 $+(frozen,.,$2) 0
  writeini -n duels.ini $3 $+(barrages,.,$1) 4
  writeini -n duels.ini $3 $+(barrages,.,$2) 4
  writeini -n duels.ini $3 $+(cbow,.,$1) 150
  writeini -n duels.ini $3 $+(cbow,.,$2) 150
  writeini -n duels.ini $3 $+($1,.,heals) 2
  writeini -n duels.ini $3 $+($2,.,heals) 2
  msg $3 $c1(Players this round:) $c2($1) $c1(VS) $c2($2)
  msg $3 $c1(DM has started. Both fighters have) $c2(99) $c1(hp and) $c2(20) $c1(sharks $+($chr(40),heals 20,$chr(41),.) Max hit is) $+($c2(37),$c1(.))
  msg $3 $c1($($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)) $c2(attacks first!)
}
alias -l eat_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %was = $iif($readini(duels.ini,$3,$+(frozen,.,%hitter)),yes,no), %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    writeini -n duels.ini $3 $+(frozen,.,%hitter) 0
    if ($readini(duels.ini,$3,$+(food,.,%hitter)) >= 1) {
      if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
        if ($v1 == 1) notice %hitter your d battle special effect has run out.
        writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
      }
      var %prev = $readini(duels.ini,$3,$4), %new = $iif($calc(%prev + 20) >= 99,$v2,$v1)
      writeini -n duels.ini $3 $4 %new
      writeini -n duels.ini $3 $+(food,.,$4) $calc($readini(duels.ini,$3,$+(food,.,$4)) - 1)
      notice $4 $c1(You have) $c2($readini(duels.ini,$3,$+(food,.,$4))) $c1(sharks left. Old hp:) $c2(%prev) $c1(current:) $c2(%new) $+ $c1(.)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $iif(%was == yes,$c2(%hitter) $c1(is unfrozen and)) $c1(it's now) $c2($($+($,%next),2)) $+ $c1('s) turn.
    }
    else notice $4 $c1(You have no food...)
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l gaxe_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    var %form = $calc(90 * ((99 - $readini(duels.ini,$3,%hitter)) / 120)), %h1 = $iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,$calc(%form + 7),%form)
    var %hit = $iif($r(0,%h1) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice %hitter $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l dbattle_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    if ($readini(duels.ini,$3,$+(spec,.,%hitter)) < 10) {
      notice %hitter $c1(You don't have enough special energy to do that.) $c2($v1 $+ /10)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      halt
    }
    writeini -n duels.ini $3 $+(spec,.,%hitter) 0
    notice %hitter $c1(You have) $c2(0/10) $c2(special energy left.)
    writeini -n duels.ini $3 $+(%hitter,.,dbattle) 10
    msg $3 $c1(RRRRRAAAAAARRRRRRGGGGGGGGGHHH!) $c2(%hitter) $c1(Just used their d battle special!)
    writeini -n duels.ini $3 $+($3,.,turn) %next
    msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l dmace_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    if ($readini(duels.ini,$3,$+(spec,.,%hitter)) < 2.5) {
      notice %hitter $c1(You don't have enough special energy to do that.) $c2($v1 $+ /10)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      halt
    }
    var %left = $readini(duels.ini,$3,$+(spec,.,%hitter))
    writeini -n duels.ini $3 $+(spec,.,%hitter) $calc(%left - 2.5)
    notice %hitter $c1(You have) $c2($calc(%left - 2.5) $+ /10) $c2(special energy left.)
    var %hittedlife = $readini(duels.ini,$3,$($+($,%next),2))
    var %hit = $r(0,30), %hit1 = $iif($floor($calc((%hit * .25) + %hit)) >= %hittedlife,$v2,$v1)
    dec %hittedlife %hit1
    writeini -n duels.ini $3 $($+($,%next),2) %hittedlife
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit1,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2(%hittedlife) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l dds_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    if ($readini(duels.ini,$3,$+(spec,.,%hitter)) < 2.5) {
      notice %hitter $c1(You don't have enough special energy to do that.) $c2($v1 $+ /10)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2) $+ 's) $c1(turn.)
      halt
    }
    var %left = $readini(duels.ini,$3,$+(spec,.,%hitter))
    writeini -n duels.ini $3 $+(spec,.,%hitter) $calc(%left - 2.5)
    notice %hitter $c1(You have) $c2($calc(%left - 2.5) $+ /10) $c1(special energy left.)
    var %hittedlife = $readini(duels.ini,$3,$($+($,%next),2))
    var %hit1 = $iif($r(0,35) >= %hittedlife,$v2,$v1)
    dec %hittedlife %hit1
    var %hit2 = $iif($r(0,35) >= %hittedlife,$v2,$v1)
    dec %hittedlife %hit2 
    writeini -n duels.ini $3 $($+($,%next),2) %hittedlife
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit1,$chr(93))) $c1(and) $c2($+($chr(91),%hit2,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2(%hittedlife) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l guthan_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2), %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,37,30)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1), %heal = yes no yes no yes no no yes no no, %heal = $gettok(%heal,$r(1,10),32), %life = $readini(duels.ini,$3,%hitter)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice %hitter $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    if ($readini(duels.ini,$3,$+(%hitter,.,heals)) >= 1) {
      if (%heal == yes) {
        var %h = %hit, %hp = $readini(duels.ini,$3,%hitter), %slack = $calc(99 - %hp), %earned = $iif(%h > %slack,$v2,%h)
        writeini -n duels.ini $3 %hitter $iif($calc(%life + %h) > 99,99,$v1)
        writeini -n duels.ini $3 $+(%hitter,.,heals) $calc($readini(duels.ini,$3,$+(%hitter,.,heals)) - 1)
      }
    }
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($+ $readini(duels.ini,$3,$($+($,%next),2))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $iif(%earned,$c2(%hitter) $+ $c1('s Guthan's Special has activated. He earned:) $c2($v1) $c1(hp.)) $c1(it's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      if (%earned) notice %hitter $c1(Your special has activated earning you:) $c2($v1) $c1(hp back leaving you with) $c2($readini(duels.ini,$3,%hitter)) $c1(hp.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l gmaul_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    if ($readini(duels.ini,$3,$+(spec,.,%hitter)) < 10) {
      notice %hitter $c1(You don't have enough special energy to do that.) $c2($v1 $+ /10)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      halt
    }
    writeini -n duels.ini $3 $+(spec,.,%hitter) 0
    notice %hitter $c1(You have) $c2(0/10) $c1(special energy left.)
    var %hittedlife = $readini(duels.ini,$3,$($+($,%next),2))
    var %hit1 = $iif($r(0,30) >= %hittedlife,$v2,$v1)
    dec %hittedlife %hit1
    var %hit2 = $iif($r(0,30) >= %hittedlife,$v2,$v1)
    dec %hittedlife %hit2
    var %hit3 = $iif($r(0,30) >= %hittedlife,$v2,$v1)
    dec %hittedlife %hit3
    writeini -n duels.ini $3 $($+($,%next),2) %hittedlife
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit1,$chr(93))) $c1(and) $c2($+($chr(91),%hit2,$chr(93))) $c1(and) $c2($+($chr(91),%hit3,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2(%hittedlife) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l cbow_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2,~,$3)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2), %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,27,30)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice %hitter $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    if ($5 == 1) var %changed = yes
    else var %changed = no
    if ($readini(duels.ini,$3,$+(cbow,.,%hitter)) == 0) {
      notice %hitter $c1(Your bow is broken.)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      halt
    }
    writeini -n duels.ini $3 $+(cbow,.,%hitter)) $calc($readini(duels.ini,$3,$+(cbow,.,%hitter)) - 10)
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      writeini -n duels.ini $3 $+(frozen,.,%hitter) 0
      msg $3 $iif(%changed == yes,$c2(%hitter) $c1(has been unfrozen) $+ $chr(160),$c1($null)) $+ it's now $c2($($+($,%next),2)) $+ $c1('s turn.)
      var %ukno = $readini(duels.ini,$3,$+(cbow,.,%hitter)))
      notice $4 $iif(%ukno == 0,$c1(Your bow is completely broken and is now unusable!),$c1(Your bow degraded and is now at) $c2($+($fn($calc((($v1 - 10) / 15) * 10)),%,.)))
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l xbow_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2,~,$3)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2), %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,22,25)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1),
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice %hitter $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    if ($5 == 1) var %changed = yes
    else var %changed = no
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      writeini -n duels.ini $3 $+(frozen,.,%hitter) 0
      msg $3 $iif(%changed == yes,$c2(%hitter) $c1(has been unfrozen) $+ $chr(160),$c1($null)) $+ it's now $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l dscim_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    var %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,37,30)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice $c2(%hitter) $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l d2h_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    var %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,42,35)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice $c2(%hitter) $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l swing_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2)
    var %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,44,37)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice $c2(%hitter) $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}
alias -l barrage_duel {
  tokenize 126 $+($readini(duels.ini,$1,duel),~,$1,~,$2,~,$3)
  var %hitter = $($+($,$readini(duels.ini,$3,$+($3,.,turn))),2)
  if ($4 == %hitter) {
    var %next = $iif($readini(duels.ini,$3,$+($3,.,turn)) == 2,1,2), %hit = $iif($r(0,$iif($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1,27,30)) >= $readini(duels.ini,$3,$($+($,%next),2)),$v2,$v1)
    if ($readini(duels.ini,$3,$+(%hitter,.,dbattle)) >= 1) {
      if ($v1 == 1) notice %hitter $c1(your d battle special effect has run out.)
      writeini -n duels.ini $3 $+(%hitter,.,dbattle) $calc($v1 - 1)
    }
    if ($readini(duels.ini,$3,$+(barrages,.,%hitter)) == 0) {
      notice %hitter $c1(You don't have enough runes to cast that spell.)
      writeini -n duels.ini $3 $+($3,.,turn) %next
      msg $3 $c1(It's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      halt
    }
    writeini -n duels.ini $3 $+(barrages,.,%hitter)) $calc($readini(duels.ini,$3,$+(barrages,.,%hitter)) - 1)
    if ($5 == 1) var %changed = yes
    else var %changed = no
    var %frozen = $r(0,10)
    writeini -n duels.ini $3 $+(frozen,.,$($+($,%next),2)) $iif(%frozen isnum 5-10,1,0)
    writeini -n duels.ini $3 $($+($,%next),2) $iif($calc($readini(duels.ini,$3,$($+($,%next),2)) - %hit) < 0,0,$v1)
    msg $3 $c2(%hitter) $c1(did a) $c2($+($chr(91),%hit,$chr(93))) $c1(on) $c2($($+($,%next),2)) $c1(leaving) $c2($($+($,%next),2)) $c1(with) $c2($readini(duels.ini,$3,$($+($,%next),2)))) $c1(hp.)
    if ($readini(duels.ini,$3,$($+($,%next),2)) == 0) endgame $3 $4 $($+($,%next),2)
    else {
      writeini -n duels.ini $3 $+($3,.,turn) %next
      writeini -n duels.ini $3 $+(frozen,.,%hitter) 0
      msg $3 $iif(%changed == yes,$c2(%hitter) $c1(has been unfrozen)) $iif(%changed == yes,&&) $iif(%frozen isnum 5-10,$c2($($+($,%next),2)) $c1(is frozen.),$c2($($+($,%next),2)) $c1(didn't get frozen.)) $c1(it's now) $c2($($+($,%next),2)) $+ $c1('s turn.)
      notice $4 $c1(You have) $iif($readini(duels.ini,$3,$+(barrages,.,$4)),$v1,$chr(2) $+ NO $+ $chr(2)) $c1(barrages left.)
    }
  }
  else notice $4 $c1(Its not your turn.)
}