alias -l c1 { return $+($chr(3),$hget(DM,col1),$1-) }
alias -l c2 { return $+($chr(3),$hget(DM,col2),$1-) }
alias -l CheckPlayer2 { if (!$hget(DM,p2)) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2(30) $c1(secs are up and still not a player 2! Game will now reset.) | .reset } }
alias -l sort { .var %a $gettok($1,1,32),%b $gettok($2,1,32) | .return $iif(%a == %b,0,$iif(%a > %b,-1,1)) }
alias -l cash {
  if ($numtok($bytes($1,db),44) isnum 2) { .return $+($left($bytes($1,b),-2),K) }
  elseif ($numtok($bytes($1,db),44) isnum 3) { .return $+($left($bytes($1,b),-6),M) }
  elseif ($numtok($bytes($1,db),44) >= 4) { .return $+($left($bytes($1,b),-10),B) }
  else { return $+($1,gp) }
}
alias -l hiscore {
  .var %x = 1
  while ($read(money.txt,%x)) {
  .write -a money1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
  .filter -cffa money1.txt money2.txt sort * | .var %b = 1, %a
  while (%b < 11) { .var %a = %a $+($c2,%b,:) $c1($gettok($read(money2.txt,%b),2,32)) $+($c2,$chr(91),$c1,$cash($gettok($read(money2.txt,%b),1,32)),$c2,$chr(93)) | .inc %b }
  .remove money1.txt | .remove money2.txt | .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(hiscores),$c1,$chr(41),:) %a $c1($chr(124),Total played:) $c2($bytes($readini(DMsave.ini,Games,Total),db)) $c1(Total players:) $c2($bytes($calc(%x - 1),db)) | .timer 1 $r(1,15) .reset
}
alias -l reward {
  if (!$ini(DMprices.ini,0)) { .return $c1(Nothing!) | .halt }
  .var %x = 1
  while (%x <= 3) {
    .var %r = $r(1,$ini(DMprices.ini,prices,0)), %reward = %reward $c1($replace($ini(DMprices.ini,prices,%r),$chr(95),$chr(32))) $+($c2,$chr(91),$c1,$cash($readini(DMprices.ini,prices,$ini(DMprices.ini,prices,%r))),$c2,$chr(93)), %total = $calc(%total + $readini(DMprices.ini,prices,$ini(DMprices.ini,prices,%r)))
    .write $+(-s,$1) money.txt $1 $calc($read(money.txt,s,$1) + $readini(DMprices.ini,prices,$ini(DMprices.ini,prices,%r)))
    .inc %x
  }
  .return %reward $c1(Total:) $c2($cash(%total)) $+($c2,$chr(91),$c1,zybez.net,$c2,$chr(93))
}
alias reset {
  .mode $hget(DM,channel) -mvv $hget(DM,p1) $hget(DM,p2)
  if ($hget(DM,p1)) { .hdel DM p1 }
  if ($hget(DM,p2)) { .hdel DM p2 }
  if ($hget(DM,turn)) { .hdel DM turn }
  if ($hget(price,price)) { .hdel price price }
  if ($hget(price,name)) { .hdel price name }
  if ($hget(DM,p1.food)) { .hdel DM p1.food }
  if ($hget(DM,p1.spec)) { .hdel DM p1.spec }
  if ($hget(DM,p1.hp)) { .hdel DM p1.hp }
  if ($hget(DM,p2.food)) { .hdel DM p2.food }
  if ($hget(DM,p2.spec)) { .hdel DM p2.spec }
  if ($hget(DM,p2.hp)) { .hdel DM p2.hp }
  if ($hget(DM,hit)) { .hdel DM hit }
  if ($hget(DM,hit1)) { .hdel DM hit1 }
  if ($hget(DM,p1.frozen)) { .hdel DM p1.frozen }
  if ($hget(DM,p2.frozen)) { .hdel DM p2.frozen }
  if ($hget(DM,p2.msbspec)) { .hdel DM p2.msbspec }
  if ($hget(DM,p1.msbspec)) { .hdel DM p1.msbspec }
  if ($hget(DM,heal)) { .hdel DM heal }
  if ($hget(DM,p1.gspec)) { .hdel DM p1.gspec }
  if ($hget(DM,p2.gspec)) { .hdel DM p2.gspec }
  .timers off
}
alias dh {
  if ($1 >= 99) { return $r(0,15) }
  elseif ($1 >= 50) { return $r(0,35) }
  elseif ($1 >= 25) { return $r(0,40) }
  elseif ($1 >= 1) { return $r(1,45) }
}
alias hp {
  if ($1 >= 99) { return 14l9,9..........1,09999,9...........14,0l }
  elseif ($1 >= 94) { return 14l9,9..........1,09 $+ $1 $+ 9,9........4,4...14,0l }
  elseif ($1 >= 90) { return 14l9,9..........1,09 $+ $1 $+ 9,9.......4,4....14,0l }
  elseif ($1 >= 85) { return 14l9,9..........1,09 $+ $1 $+ 9,9......4,4.....14,0l }
  elseif ($1 >= 81) { return 14l9,9..........1,09 $+ $1 $+ 9,9.....4,4......14,0l }
  elseif ($1 >= 76) { return 14l9,9..........1,09 $+ $1 $+ 9,9....4,4.......14,0l }
  elseif ($1 >= 72) { return 14l9,9..........1,09 $+ $1 $+ 9,9...4,4........14,0l }
  elseif ($1 >= 67) { return 14l9,9..........1,09 $+ $1 $+ 9,9..4,4.........14,0l }
  elseif ($1 >= 62) { return 14l9,9..........1,09 $+ $1 $+ 9,9.4,4..........14,0l }
  elseif ($1 >= 58) { return 14l9,9..........1,09 $+ $1 $+ 9,9.4,4..........14,0l }
  elseif ($1 >= 54) { return 14l9,9..........1,09 $+ $1 $+ 4,4..........14,0l }
  elseif ($1 >= 50) { return 14l9,9..........1,09 $+ $left($1,1) $+ 1,04 $+ $right($1,1) $+ 4,4..........14,0l }
  elseif ($1 >= 44) { return 14l9,9..........1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 40) { return 14l9,9.........4,4.1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 35) { return 14l9,9........4,4..1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 31) { return 14l9,9.......4,4...1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 26) { return 14l9,9......4,4....1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 22) { return 14l9,9.....4,4.....1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 17) { return 14l9,9....4,4......1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 12) { return 14l9,9...4,4.......1,04 $+ $1 $+ 4,4...........14,0l }
  elseif ($1 >= 8) { return 14l9,9..4,4.........1,04 $+ $1 $+ 4,4............14,0l }
  elseif ($1 >= 1) { return 14l9,9.4,4..........1,04 $+ $1 $+ 4,4............14,0l }
  elseif ($1 == 0) { return 14l4,4...........1,0404,4............14,0l  }
}
alias -l winned {
  if ($hget(DM,p1) == $1 && $hget(DM,p2.hp) isnum 0) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($1) $hp($hget(DM,p1.hp)) $c1(defeated) $c2($hget(DM,p2)) $hp($hget(DM,p2.hp)) $c1(in a death match!) $c2($chr(124)) $c1(Reward:) $reward($hget(DM,p1)) | .timer 1 1 .hiscore }
  elseif ($hget(DM,p2) == $1 && $hget(DM,p1.hp) isnum 0) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($1) $c1(defeated) $c2($hget(DM,p1)) $c1(in a death match!) $c2($chr(124)) $c1(Reward:) $reward($hget(DM,p2)) | .timer 1 1 .hiscore }
}
on *:SOCKOPEN:DM.findprices.*:{
  .hinc -m DM getprice
  if ($hget(DM,getprice) isnum 22) { .sockclose $sockname | .hdel DM getprice | .halt }
  .sockwrite -nt $sockname GET $+(/priceguide.php?search_terms=&search_area=1&price_low=&price_high=&all_prices=true&member=1&ppage=75&page=,$hget(DM,getprice)) HTTP/1.1
  .sockwrite -nt $sockname Host: www.zybez.net
  .sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DM.findprices.*:{
  .var %ID = $gettok($sockname,3,46)
  if ($sockerr) { .msg $hget(DM,Administrator) $c1(**) $+($c1,$chr(40),$c2,$upper(sockerr),$c1,$chr(41),:) $c1(Price list from zybez could noit be downloaded.) | .sockclose $sockname | .halt }
  else { .var %sockreader | .sockread %sockreader
    if $regex(%sockreader,/search_term=(.*)" title="More information/) { .hadd -m price name $replace($regml(1),$chr(32),$chr(95)) }
    if $regex(%sockreader,/<td>(.*gp)</td>/) { .hadd -m price price $remove($regml(1),$chr(44),gp,$chr(45)) | .writeini -n DMprices.ini Prices $hget(price,name) $iif($gettok($hget(price,price),2,32) == $chr(45),$calc($gettok($hget(price,price),1,32) - ($gettok($hget(price,price),1,32) + $gettok($hget(price,price),3,32))),$gettok($hget(price,price),1,32)) }
    if $regex(%sockreader,/<!-- Search Results: End -->/) {
      .sockclose $sockname
      .inc %ID
      .sockopen $+(DM.findprices.,%ID) www.zybez.net 80
    }
  }
}

on $*:TEXT:*:$($hget(DM,channel),2):{
  if $regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]dm$/Si) {
    if ($regex($2,/off$/Si) && $istok($hget(DM,p1) $hget(DM,p2) $hget(DM,administrator),$nick,32)) {
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(Death match is now turned) $c2(OFF) $c1(in) $+($c2,$hget(DM,channel),$c1,.)
      .reset | .halt
    }
    if ($istok($hget(DM,p1) $hget(DM,p2),$nick,32)) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),:) $c1(You are already in a DM fight.) }
    elseif ($hget(DM,p1) && $hget(DM,p2)) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),:) $c1(There is already a death match going on.) }
    elseif (!$hget(DM,p1)) { .hadd -m DM p1 $nick | .hadd -m DM p1.food 20 | .hadd -m DM p1.dbowspec 1 | .hadd -m DM p1.gspec 1 | .hadd -m DM p1.msbspec 2 | .hadd -m DM p1.spec 4 | .hadd -m DM p1.hp 99 | .mode $hget(DM,channel) +v $nick
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(has initiated a death match! Type) $c2(!dm) $c1(to fight him.)
      .timer 1 30 .CheckPlayer2
    }
    elseif (!$hget(DM,p2)) { .writeini -n DMsave.ini Games Total $calc($readini(DMsave.ini,Games,Total) + 1) | .hadd -m DM p2 $nick | .hadd -m DM p2.food 20 | .hadd -m DM p2.dbowspec 1 | .hadd -m DM p2.gspec 1 | .hadd -m DM p2.msbspec 2 | .hadd -m DM p2.spec 4 | .hadd -m DM p2.hp 99 | .hadd -m DM turn $hget(DM,$+(p,$r(1,2))) | .mode $hget(DM,channel) +mv $nick
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(has challanged) $c2($hget(DM,p1)) $c1(in a death match!) $c2($hget(DM,turn)) $c1(goes first!)
    .notice $hget(DM,p1) $c1(**) $+($c1,$chr(40),$c2,$upper(info),$c1,$chr(41),:) $c1(You have) $+($c2,99 hitpoints,$c1,$chr(44)) $+($c2,20 sharks,$c1,$chr(44)) $c2(2 mage shortbow special attacks) $c1(and) $c2(4 special attacks) $c1(on your dragon dagger poisoned.) | .notice $hget(DM,p2) $c1(**) $+($c1,$chr(40),$c2,$upper(info),$c1,$chr(41),:) $c1(You have) $+($c2,99 hitpoints,$c1,$chr(44)) $+($c2,20 sharks,$c1,$chr(44)) $c2(2 mage shortbow special attacks) $c1(and) $c2(4 special attacks) $c1(on your dragon dagger poisoned.) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]status$/Si) && $istok($hget(DM,p1) $hget(DM,p2),$nick,32)) {
    if ($istok($hget(DM,p1),$nick,32)) { $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(status),$c1,$chr(41),:) $c1(Hitpoints:) $c2($hget(DM,p1.hp)) $c1($chr(124),Sharks left:) $c2($hget(DM,p1.food)) $c1($chr(124),DDS specials left:) $c2($hget(DM,p1.spec)) $c1($chr(124),MSB specials left:) $c2($hget(DM,p1.msbspec)) $c1($chr(124),Gmaul specials left:) $c2($hget(DM,p1.gspec)) $c1($chr(124),Cbow specials left:) $c2($hget(DM,p1.dbowspec)) }
    elseif ($istok($hget(DM,p2),$nick,32)) { $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(status),$c1,$chr(41),:) $c1(Hitpoints:) $c2($hget(DM,p2.hp)) $c1($chr(124),Sharks left:) $c2($hget(DM,p2.food)) $c1($chr(124),DDS specials left:) $c2($hget(DM,p2.spec)) $c1($chr(124),MSB specials left:) $c2($hget(DM,p2.msbspec)) $c1($chr(124),Gmaul specials left:) $c2($hget(DM,p2.gspec)) $c1($chr(124),Cbow specials left:) $c2($hget(DM,p2.dbowspec)) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]add(cash|money)$/Si) && $nick == $hget(DM,administrator)) {
    .write $+(-s,$2) money.txt $2 $calc($read(money.txt,s,$2) + $replace($3,k,000,m,000000,b,000000000)) | .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(cash),$c1,$chr(41),:) $+($c2,$bytes($replace($3,k,000,m,000000,b,000000000),db),$c1,gp) $c1(added to) $+($c2,$2,$c1,'s) $c1(account.)
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]del(cash|money)$/Si) && $nick == $hget(DM,administrator)) {
    .write $+(-s,$2) money.txt $2 $calc($read(money.txt,s,$2) - $replace($3,k,000,m,000000,b,000000000)) | .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(cash),$c1,$chr(41),:) $+($c2,$bytes($replace($3,k,000,m,000000,b,000000000),db),$c1,gp) $c1(removed from) $+($c2,$2,$c1,'s) $c1(account.)
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]turn$/Si) && $hget(DM,p2)) {
    $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(turn),$c1,$chr(41),:) $c1(It's now) $+($c2,$hget(DM,turn),$c1,'s) $c1(turn.)
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](dm)?hi(score|ghscore)[sz]?$/Si)) { .var %x = 1
    while ($read(money.txt,%x)) {
    .write -a money1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
    .filter -cffa money1.txt money2.txt sort * | .var %b = 1, %a
    while (%b < 11) { .var %a = %a $+($c2,%b,:) $c1($gettok($read(money2.txt,%b),2,32)) $+($c2,$chr(91),$c1,$cash($gettok($read(money2.txt,%b),1,32)),$c2,$chr(93)) | .inc %b }
    .remove money1.txt | .remove money2.txt | $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(hiscores),$c1,$chr(41),:) %a $c1($chr(124),Total played:) $c2($bytes($hget(DM,total),db)) $c1(Total players:) $c2($bytes($calc(%x - 1),db))
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](cash|money)[sz]?$/Si)) {
    if (!$read(money.txt,s,$iif($2,$v1,$nick))) { $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(error),$c1,$chr(41),:) $c2($iif($2,$v1,$nick)) $c1(is not ranked in our death match database,) | .halt }
    .var %x = 1
    while ($read(money.txt,%x)) {
    .write -a money1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
    .filter -cffa money1.txt money2.txt sort * | .var %a, %b = 1
    while ($read(money2.txt,%b)) {
      if ($iif($2,$v1,$nick) isin $read(money2.txt,%b)) {
        $iif($left($1,1) == @,.msg $chan,.notice $nick) $c1(**) $+($c1,$chr(40),$c2,$upper(Cash),$c1,$chr(41),:) $c1(Name:) $c2($iif($2,$v1,$nick)) $c1(Rank:) $c2($bytes(%b,db)) $c1(Cash:) $c2($bytes($read(money2.txt,%b),db)) $+($c2,$chr(91),$c1,$cash($read(money2.txt,%b)),$c2,$chr(93))
        .remove money1.txt | .remove money2.txt | .halt
      }
      .inc %b
    }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](abyssal)?whip$/Si)) {
    if ($hget(DM,turn) == $nick) { 
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }   
      .hadd -m DM hit1 $r(0,27) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(hits a) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]d(ds|ragondagger)$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.spec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
      .hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.spec)
      .hadd -m DM hit $iif($r(0,17) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .hadd -m DM hit1 $iif($r(0,17) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(uses his special attack hitting) $c2($hget(DM,hit)) $c1(then followed by) $c2($hget(DM,hit1)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]d(harok(s)?|h)$/Si)) {
    if ($hget(DM,turn) == $nick) { 
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }   
      .hadd -m DM hit1 $dh($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp))) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1($iif($r(1,2) == 1,strikes,swings) his great axe hittin a) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @](shark|eat)$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.food)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any sharks left!) | .halt }
      .hadd -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.hp)) $iif($calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + 20) > 99,99,$v1) | .hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.food))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(eats a shark!) $c1(This heals him 20 hp.) $c2($nick) $c1(now has) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)),$c2,/,$c1,99) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp))) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]blood(barrage)?$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      .hadd -m DM hit1 $r(0,30) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1))
      .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .hadd -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.hp) $iif($calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + $hget(DM,hit)) > 99,99,$calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + $hget(DM,hit)))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(strikes with a blood barrage hitting) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
      .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]ice(barrage)?$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      .hadd -m DM hit1 $r(0,30) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1))
      .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.frozen) $iif($r(1,2) == 2,frozen)
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(strikes with a ice barrage hitting) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
      .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]c(rystal)?bow$/Si)) {
    if ($hget(DM,turn) == $nick) { 
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      .hadd -m DM hit $iif($r(0,30) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(uses his crystal bow hitting) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
      .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]msb$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.msbspec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
      .hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.msbspec) | .hadd -m DM hit $iif($r(0,23) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1)
      .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit)) | .hadd -m DM hit1 $iif($r(0,23) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(uses his magic shortbow special attack hitting) $c2($hget(DM,hit)) $c1(then followed by) $c2($hget(DM,hit1)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick
      .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]guth(an)?$/Si)) {
    if ($hget(DM,turn) == $nick) { 
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }   
      .hadd -m DM hit1 $r(0,35) | .hadd -m DM hit $iif($hget(DM,hit1) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,hit1)) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .hadd -mu1 DM heal $iif($r(1,20) isnum 5-11,$iif($calc($hget(DM,hit) + $hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp))) > 99,0,$hget(DM,hit)),0)
      .hadd -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.hp)) + $hget(DM,heal))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1($iif($r(1,2) == 1,swings,stabs)) $c1(his guthans warspear hitting a) $c2($hget(DM,hit)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) $iif($hget(DM,heal) > 0,$c1(Guthans heal) $c2($nick) $c2($hget(DM,heal)) $c1(hitpoints.)) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]g(ranitemaul|maul)$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.gspec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
      .hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.gspec)
      .hadd -m DM hit $iif($r(0,25) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .hadd -m DM hit1 $iif($r(0,25) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
      .hadd -m DM hit2 $iif($r(0,25) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit2))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(swoshes his granite maul and hits) $+($c2,$hget(DM,hit),$c1,$chr(44)) $c2($hget(DM,hit1)) $c1(then followed by) $c2($hget(DM,hit2)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
  elseif ($regex($1,/^[ $+ $($hget(DM,trigger),2) $+ @]d(arkbow|bow)$/Si)) {
    if ($hget(DM,turn) == $nick) {
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p1,p2),.frozen)) == frozen) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(is frozen! It's now) $+($c2,$hget(DM,$iif($nick == $hget(DM,p1),p2,p1)),'s) $c1(turn.) | .hdel DM $+($iif($nick == $hget(DM,p1),p1,p2),.frozen) | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1)) | .halt }
      if ($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.dbowspec)) == 0) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(You dont have any special attacks left!) | .halt }
      .hdec -m DM $+($iif($nick == $hget(DM,p1),p1,p2),.dbowspec)
      .hadd -m DM hit $iif($r(0,35) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit))
      .hadd -m DM hit1 $iif($r(0,35) > $hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$v1) | .hadd -m DM $+($iif($nick == $hget(DM,p1),p2,p1),.hp) $calc($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)) - $hget(DM,hit1))
      .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(fires off his dark bow hitting) $c2($hget(DM,hit)) $c1(followed by a) $c2($hget(DM,hit1)) $c1(on) $c2($iif($nick == $hget(DM,p1),$hget(DM,p2),$v2)) $c1(leaving him with) $+($c1,$hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp)),$c2,/,$c1,99) $c1(hitpoints left.) $hp($hget(DM,$+($iif($nick == $hget(DM,p1),p2,p1),.hp))) | .winned $nick | .hadd -m DM turn $iif($hget(DM,turn) == $hget(DM,p1),$hget(DM,p2),$hget(DM,p1))
    }
    elseif ($istok($hget(DM,p1) $hget(DM,p2),$nick,32) && $hget(DM,turn) != $nick) { .notice $nick $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c1(It's not your turn!) }
  }
}
on *:JOIN:$($hget(DM,channel),2): {
  .var %x = 1
  while ($read(money.txt,%x)) {
  .write -a moneyjoin1.txt $gettok($read(money.txt,%x),2,32) $gettok($read(money.txt,%x),1,32) | .inc %x }
  .filter -cffa moneyjoin1.txt moneyjoin2.txt sort * | .var %a, %b = 1
  while ($read(moneyjoin2.txt,%b)) {
    if ($nick isin $read(moneyjoin2.txt,%b)) {
      .timer 1 1 .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(Cash),$c1,$chr(41),:) $c1(Name:) $c2($nick) $c1(Rank:) $c2($bytes(%b,db)) $c1(Cash:) $c2($bytes($read(moneyjoin2.txt,%b),db)) $+($c2,$chr(91),$c1,$cash($read(moneyjoin2.txt,%b)),$c2,$chr(93))
      .remove moneyjoin1.txt | .remove moneyjoin2.txt | .halt
    }
    .inc %b
  }
}
menu * {
  -
  .Death match V1.0:/dialog -m dm dm
}
alias dm { .dialog -m dm dm }
on *:LOAD:dialog -m dm dm
on *:CONNECT:dialog -m dm dm
on *:QUIT:if ($istok($hget(DM,p1) $hget(DM,p2),$nick,32)) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(left channel. Game will now reset.) | .reset }
on *:PART:$($hget(DM,channel),2):if ($istok($hget(DM,p1) $hget(DM,p2),$nick,32)) { .msg $hget(DM,channel) $c1(**) $+($c1,$chr(40),$c2,$upper(dm),$c1,$chr(41),:) $c2($nick) $c1(left channel. Game will now reset.) | .reset }
dialog dm {
  title "Death match v1.0 by Terror_nisse"
  size -1 -1 170 100
  option dbu
  box "Channel", 1, 3 3 80 24
  edit "", 2, 7 12 64 10, autohs
  box "Administrator", 3, 86 3 80 24
  edit "", 4, 90 12 64 10, autohs
  box "Colors", 5, 3 32 79 37
  box "1", 6, 8 39 30 24
  box "2", 7, 45 39 30 24
  edit "", 8, 12 48 21 10, autohs
  edit "", 9, 49 48 21 10, autohs
  box "Triggers", 10, 86 32 79 37
  text "© Copyright Terror nisse 2008-", 11, 3 92 100 20, disable
  button "OK", 12, 21 78 40 12, default, ok
  button "Cancel", 13, 64 78 40 12, cancel
  button "Price list", 14, 107 78 40 12
  edit "", 15, 90 48 64 10, autohs
}
on *:dialog:dm:close:*: {
  .hadd -m DM channel $iif($did(2),$v1,$chr(35)) | .writeini -n DMsave.ini DmToolkit Channel $iif($did(2),$v1,$chr(35))
  .hadd -m DM administrator $iif($did(4),$v1,No one set) | .writeini -n DMsave.ini DmToolkit Administrator $iif($did(4),$v1,No one set)
  .hadd -m DM col1 $iif($did(8) && $did(8) isnum 0-15,$iif($len($did(8)) == 1,$+(0,$did(8)),$did(8)),14) | .writeini -n DMsave.ini DmToolkit Col1 $iif($did(8) && $did(8) isnum 0-15,$iif($len($did(8)) == 1,$+(0,$did(8)),$did(8)),14)
  .hadd -m DM col2 $iif($did(9) && $did(9) isnum 0-15,$iif($len($did(9)) == 1,$+(0,$did(9)),$did(9)),07) | .writeini -n DMsave.ini DmToolkit Col2 $iif($did(9) && $did(9) isnum 0-15,$iif($len($did(9)) == 1,$+(0,$did(9)),$did(9)),07)
  .hadd -m DM trigger $iif($did(15),$v1,$+($chr(33),$chr(64))) | .writeini -n DMsave.ini DMToolkit trigger $iif($did(15),$v1,$+($chr(33),$chr(64)))
  if ($chr(64) !isincs $did(15)) { .echo -a *** [ Note ]: "@" is the public trigger for lookup commands. }
}
on *:dialog:dm:init:*: {
  .did -a dm 2 $iif($readini(DMsave.ini,DMtoolkit,channel),$v1,$chr(35)) | .did -a dm 4 $iif($readini(DMsave.ini,DMtoolkit,administrator),$v1,Administrator nick.)
  .did -a dm 8 $iif($readini(DMsave.ini,DMtoolkit,col1),$v1,14) | .did -a dm 9 $iif($readini(DMsave.ini,DMtoolkit,col2),$v1,07)
  .did -a dm 15 $iif($readini(DMsave.ini,DMtoolkit,trigger),$v1,$+($chr(33),$chr(64)))
}
on *:dialog:dm:sclick:14:{ .echo -a *** [ Price list ]: Please hold on while the price list is beeing downloaded. (Can take a while) | .inc %ID | .sockopen $+(DM.findprices.,%ID) www.zybez.net 80 }