on $*:TEXT:/^[!.`]mycolor/Si:*:{
  if ($2 isnum 1-9 && $3 == $null) {
    set %color [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $2 ] ]
    notice $nick this is your color. $c(Example)) 
  }
  elseif ($2 isnum 10-15) && $3 == $null) {
    set %color [ $+ [ $address($nick,2) ] ] $2 
    notice $nick this is your color. $c(Example)) 
  }
  elseif ($2 isnum 10-15 && $3 isnum 10-15) {
    set %color [ $+ [ $address($nick,2) ] ] $2
    set %color1 [ $+ [ $address($nick,2) ] ] $3
    notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
  }
  elseif ($2 isnum 1-9 && $3 isnum 1-9) {
    set %color [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $2 ] ]
    set %color1 [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $3 ] ]
    notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
  }
  elseif ($2 isnum 1-9 && $3 isnum 10-15) {
    set %color [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $2 ] ] 
    set %color1 [ $+ [ $address($nick,2) ] ] $3
    notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
  }
  elseif ($2 isnum 10-15) && $3 isnum 1-9) {
    set %color [ $+ [ $address($nick,2) ] ] $2
    set %color1 [ $+ [ $address($nick,2) ] ] $3
    notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
  }
  else { 
    notice $nick invalid!
  }
}

alias c { 
  if (%color [ $+ [ $address($nick,2) ] ] == $null) { set %color [ $+ [ $address($nick,2) ] ] 10 }
  return $+($chr(3),%color [ $+ [ $address($nick,2) ] ],$1-)
}

alias c2 { 
  if (%color1 [ $+ [ $address($nick,2) ] ] == $null) { set %color1 [ $+ [ $address($nick,2) ] ] 04 }
  return $+($chr(3),%color1 [ $+ [ $address($nick,2) ] ],$1-) 
}


alias endduel {
  unset %dSpec [ $+ [ %player1 ] ] %dSpec [ $+ [ %player2 ] ]
  unset %duel [ $+ [ $chan ] ]
  unset %turn [ $+ [ %player1 ] ] %turn [ $+ [ %player2 ] ]
  unset %hp [ $+ [ %player1 ] ] %hp [ $+ [ %player2 ] ]
  unset %player1 %player2 %firsthit %stake
}

alias money {
  return $+($replacex($1-,k,000,m,000000))
}

alias reversemoney {
  if ($1- < $money(1m)) && ($1- >= 1000) {
    return $+($regsubex($1-,(000)$,k))
    var %Reverse $true
  }
  elseif ($1- >= $money(1m)) && (%Reverse == $null) {
    return $+($regsubex($1-,(000000)$,m))
  }
}

on *:TEXT:`impoor*:#:{
  if (%GotMoney [ $+ [ $address($nick,2) ] ] == on) { notice $nick $c(you can only get money each 10 minutes!) | halt }
  if (%money [ $+ [ $nick ] ] == $null || %money [ $+ [ $nick ] ] == 0) {
    inc %money [ $+ [ $nick ] ] 75000
    notice $nick $c(You have been given) $c2(75k) $c(to start staking) $c2(`duel) $c(to begin staking)
    set %GotMoney [ $+ [ $address($nick,2) ] ] on  
    .timer 1 600 unset %GotMoney [ $+ [ $address($nick,2) ] ]
  }
  else {
    notice $nick $c(You have money bish!)
  }
}

on *:TEXT:`duel*:#:{
  if (%player1 != $null) && ($nick == %player1) { notice $nick you cant fight yourself | halt } 
  if (%player2 != $null) { notice $nick $c(theres already a duel in progress!) | halt }
  if (%money [ $+ [ $nick ] ] == $null || %money [ $+ [ $nick ] ] == 0) { notice $nick $c(You have no money!) $c2(`impoor) $c(to get money) | halt }
  elseif (%Player1 == $null) && (%money [ $+ [ $nick ] ] > 0) {
    set %Duel [ $+ [ $chan ] ] on
    msg $chan $c2( $nick ) $c(has started a) $c2(duel!)
    set %player1 $nick
  }
  elseif (%Player2 == $null) && (%player1 != $null) {
    msg $chan $c2( $nick ) $c(has joined the) $c2(duel!)
    set %player2 $nick
    var %firsthit $rand(1,2)
  }
  if (%firsthit == 1) {
    set %turn [ $+ [ %player1 ] ] on
    set %dSpec [ $+ [ %player2 ] ] 10
    set %dSpec [ $+ [ %player1 ] ] 10
    set %hp [ $+ [ %player2 ] ] 99
    set %hp [ $+ [ %player1 ] ] 99
    msg $chan $c2( %player1 ) $c(goes first!)
    notice %player1 $c(Well) $c2( %player1 ) $c(How much are we staking?) $c2(`stake AMOUNT)
    notice %player1 $c2( %player2 ) $c(has) $c2(%money [ $+ [ %player2 ] ] )
    notice %player1 $c(you have) $c2(%money [ $+ [ %player1 ] ] )  
  }
  elseif (%firsthit == 2) {
    set %turn [ $+ [ %player2 ] ] on
    set %dSpec [ $+ [ %player2 ] ] 10
    set %dSpec [ $+ [ %player1 ] ] 10
    set %hp [ $+ [ %player2 ] ] 99
    set %hp [ $+ [ %player1 ] ] 99
    msg $chan $c2( %player2 ) $c(goes first!)
    notice %player2 $c(Well) $c2( %player2 ) $c(How much are we staking?) $c2(`stake AMOUNT)
    notice %player2 $c2( %player1 ) $c(has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] )) 
    notice %player2 $c(you have) $c2( $reversemoney(%money [ $+ [ %player2 ] ] )) 
  }
}

on *:TEXT:`endduel:#:{
  if ($nick isop $chan || $nick ishop $chan || $address($me,2) == $address($nick,2)) {
    endduel
    msg $chan $c2( $nick ) $c(has halted the duel!)
  }
}

on *:TEXT:`stake*:#:{
  if (%turn [ $+ [ %player1 ] ] == on) {
    if ($nick == %player1) {
      if ($money( $2 ) <= %money [ $+ [ %player2 ] ] && %money [ $+ [ %player1 ] ] >= $money( $2 )) {
        dec %money [ $+ [ %player1 ] ] $2
        dec %money [ $+ [ %player2 ] ] $2
        set %stake $calc( $2 * 2 )
        msg $chan $c2( %player1 ) $c(has decided to stake) $c2( $reversemoney( $2 ) ) $c(Do you accept?) $c2( %player2 ) $c(?)
        notice %player2 $c(do you accept?) $c2(`accept or `decline)
        set %accept %player2
      }
    }
  }
  elseif (%turn [ $+ [ %player2 ] ] == on) {
    if ($nick == %player2) {
      if ( $money( $2 ) <= %money [ $+ [ %player2 ] ] && %money [ $+ [ %player1 ] ] >= $money( $2 )) {
        dec %money [ $+ [ %player1 ] ] $2
        dec %money [ $+ [ %player2 ] ] $2
        set %stake $calc($money( $2 ) * 2 )
        msg $chan $c2( %player2 ) $c(has decided to stake) $c2( $reversemoney( $2 ) ) $c(Do you accept?) $c2( %player1 ) $c(?)
        notice %player1 $c(do you accept?) $c2(`accept or `decline)
        set %accept %player1
      }
    }
  }
}

on *:TEXT:`decline*:#:{
  if (%accept == $nick) {
    msg $chan $c2( $nick ) $c(Has) $c2(DECLINED) $c(the stake)
    inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
    inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
    endduel
    unset %accept
  }
}

on *:TEXT:`accept*:#:{
  if (%accept == $nick) {
    msg $chan $c2($nick) $c(has) $c2(ACCEPTED) $c(The stake)
  }
  if (%accept == %player1) {
    notice %player2 $c(You start!)
    unset %accept
  }
  elseif (%accept == %player2) {
    notice %player1 $c(You start!) 
    unset %accept
  }
}

on $*:TEXT:/^[`](dscim|dscimmy|scim|scimmy)/Si:#:{
  if (%turn [ $+ [ %player1 ] ] == on) {
    if ($nick != %player1) { notice $nick $c(Not your turn!) }
    elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] != on) {
      var %dScim $rand(0,21)
      dec %hp [ $+ [ %player2 ] ] %dScim
      if (%hp [ $+ [ %player2 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player1 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player2 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
        notice %player2 Its your turn!
        unset %turn [ $+ [ %player1 ] ]
        set %turn [ $+ [ %player2 ] ] on
      }
    }
    elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] == on) {
      var %dScim $rand(0,24)
      dec %hp [ $+ [ %player2 ] ] %dScim
      if (%hp [ $+ [ %player2 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player2 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
        notice %player2 Its your turn!
        unset %turn [ $+ [ %player1 ] ]
        set %turn [ $+ [ %player2 ] ] on
      }
    }
  }
  elseif (%turn [ $+ [ %player2 ] ] == on) {
    if ($nick != %player2) { notice $nick $c(Not your turn!) }
    elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] != on) {
      var %dScim $rand(0,21)
      dec %hp [ $+ [ %player1 ] ] %dScim
      if (%hp [ $+ [ %player1 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player1 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
        notice %player1 Its your turn!
        unset %turn [ $+ [ %player2 ] ]
        set %turn [ $+ [ %player1 ] ] on
      }
    }
    elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] == on) {
      var %dScim $rand(0,24)
      dec %hp [ $+ [ %player1 ] ] %dScim
      if (%hp [ $+ [ %player1 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player1 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
        notice %player1 Its your turn!
        unset %turn [ $+ [ %player2 ] ]
        set %turn [ $+ [ %player1 ] ] on
      }
    }
  }
}

on *:TEXT:`dds*:#:{
  if (%turn [ $+ [ %player1 ] ] == on) {
    if ($nick != %player1) { notice $nick $c(Not your turn!) }
    elseif (%player1 == $nick) && (%dSpec [ $+ [ %player1 ] ] == 0) { notice $nick $c(You dont have enough special left) | halt } 
    elseif ((%player1 == $nick) && (%dSpec [ $+ [ %player1 ] ] > 0) && (%fury [ $+ [ %player1 ] ] != on)) {
      var %dds $rand(0,18)
      var %dds1 $rand(0,18)
      dec %hp [ $+ [ %player2 ] ] $calc( %dds + %dds1 )
      dec %dSpec [ $+ [ %player1 ] ] 2.5
      if (%hp. [ $+ [ %player2 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player1 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player2 ] ] > 0) {   
        notice %player1 $c(you have) $c2( $calc( %dSpec [ $+ [ %player1 ] ] * 10) $+ % ) $c(Special left)
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
        notice %player2 Its your turn!
        unset %turn [ $+ [ %player1 ] ]
        set %turn [ $+ [ %player2 ] ] on
      }
    }
    elseif ((%player1 == $nick) && (%dSpec [ $+ [ %player1 ] ] > 0) && (%fury [ $+ [ %player1 ] ] == on)) {
      var %dds $rand(0,20)
      var %dds1 $rand(0,20)
      dec %hp [ $+ [ %player2 ] ] $calc( %dds + %dds1 )
      dec %dSpec [ $+ [ %player1 ] ] 2.5
      if (%hp. [ $+ [ %player2 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player1 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player2 ] ] > 0) {   
        notice %player1 $c(you have) $c2( $calc( %dSpec [ $+ [ %player1 ] ] * 10) $+ % ) $c(Special left)
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
        notice %player2 Its your turn!
        unset %turn [ $+ [ %player1 ] ]
        set %turn [ $+ [ %player2 ] ] on
      }
    }
  }
  elseif (%turn [ $+ [ %player2 ] ] == on) {
    if ($nick != %player2) { notice $nick $c(Not your turn!) }
    elseif (%player2 == $nick) && (%dSpec [ $+ [ %player2 ] ] == 0) { notice $nick $c(You dont have enough special left) | halt } 
    elseif ((%player2 == $nick) && (%dSpec [ $+ [ %player2 ] ] > 0 && %fury [ $+ [ %player2 ] ] != on)) {
      var %dds $rand(0,18)
      var %dds1 $rand(0,18)
      dec %hp [ $+ [ %player1 ] ] $calc( %dds + %dds1 )
      dec %dSpec [ $+ [ %player2 ] ] 2.5
      if (%hp. [ $+ [ %player1 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] 
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player1 ] ] > 0) {   
        notice %player2 $c(you have) $c2( $calc( %dSpec [ $+ [ %player2 ] ] * 10) $+ % ) $c(Special left)
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
        notice %player1 Its your turn!
        unset %turn [ $+ [ %player2 ] ]
        set %turn [ $+ [ %player1 ] ] on
      }
    }
    elseif ((%player2 == $nick) && (%dSpec [ $+ [ %player2 ] ] > 0 && %fury [ $+ [ %player2 ] ] == on)) {
      var %dds $rand(0,20)
      var %dds1 $rand(0,20)
      dec %hp [ $+ [ %player1 ] ] $calc( %dds + %dds1 )
      dec %dSpec [ $+ [ %player2 ] ] 2.5
      if (%hp. [ $+ [ %player1 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] 
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player1 ] ] > 0) {   
        notice %player2 $c(you have) $c2( $calc( %dSpec [ $+ [ %player2 ] ] * 10) $+ % ) $c(Special left)
        msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
        notice %player1 Its your turn!
        unset %turn [ $+ [ %player2 ] ]
        set %turn [ $+ [ %player1 ] ] on
      }
    }
  }
}

on *:TEXT:`forfeit*:#:{
  if (%duel [ $+ [ $chan ] ] == on) && ($nick == %player1) {
    inc %money [ $+ [ %player2 ] ] %stake
    msg $chan $c2( $nick ) $c(has) $c2(forfeited the duel!)
    msg $chan $c2( %player2 ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
    endduel
  }
  elseif (%duel [ $+ [ $chan ] ] == on) && ($nick == %player2) {
    inc %money [ $+ [ %player1 ] ] %stake
    msg $chan $c2( $nick ) $c(has) $c2(forfeited the duel!)
    msg $chan $c2( %player1 ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
    endduel
  }
}

on *:TEXT:`xLog*:#:{
  if (%turn [ $+ [ %player1 ] ] == on) {
    if ($nick != %player1) { notice $nick $c(Not your turn!) }
    elseif ($nick == %player1 && %comp [ $+ [ $nick ] ] != on) {
      var %xLog $rand(1,6)
      msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
      if (%xLog == 6) {
        .timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
        inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
        inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
        .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))      
        .timer 1 10 endduel
      }
      elseif (%xLog != 6) {
        .timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player2 ) $c(wins)
        inc %money [ $+ [ %player2 ] ] %stake
        .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
        .timer 1 10 endduel
      }
    }
    elseif ($nick == %player1 && %comp [ $+ [ $nick ] ] == on) {
      var %xLog $rand(1,3)
      msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
      if (%xLog == 3) {
        .timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
        inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
        inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
        .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))      
        .timer 1 10 endduel
      }
      elseif (%xLog != 3) {
        .timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player2 ) $c(wins)
        inc %money [ $+ [ %player2 ] ] %stake
        .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] )) 
        .timer 1 10 endduel
      }
    }

    elseif (%turn [ $+ [ %player2 ] ] == on && %comp [ $+ [ $nick ] ] != on) {
      if ($nick != %player2) { notice $nick $c(Not your turn!) }
      elseif ($nick == %player2) {
        var %xLog $rand(1,6)
        msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
        if (%xLog == 6) {
          .timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
          inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
          inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
          .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] )) ) 
          .timer 1 10 endduel     
        }
        elseif (%xLog != 6) {
          .timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player1 ) $c(wins)
          inc %money [ $+ [ %player1 ] ] %stake
          .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
          .timer 1 10 endduel
        }
      }
    }
    elseif (%turn [ $+ [ %player2 ] ] == on && %comp [ $+ [ $nick ] ] == on) {
      if ($nick != %player2) { notice $nick $c(Not your turn!) }
      elseif ($nick == %player2) {
        var %xLog $rand(1,3)
        msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
        if (%xLog == 3) {
          .timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
          inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
          inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
          .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ) )
          .timer 1 10 endduel     
        }
        elseif (%xLog != 3) {
          .timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player1 ) $c(wins)
          inc %money [ $+ [ %player1 ] ] %stake
          .timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ) )
          .timer 1 10 endduel
        }
      }
    }
  }
}

on *:TEXT:`whip*:#:{
  if (%turn [ $+ [ %player1 ] ] == on && %whip. [ $+ [ %player2 ] ] == on) {
    if ($nick != %player1) { notice $nick $c(Not your turn!) }
    elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] != on) {
      var %whip $rand(0,23)
      dec %hp [ $+ [ %player2 ] ] %whip
      if (%hp [ $+ [ %player2 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player1 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player2 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
        notice %player2 Its your turn!
        unset %turn [ $+ [ %player1 ] ]
        set %turn [ $+ [ %player2 ] ] on
      }
    }
    elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] == on) {
      var %whip $rand(0,26)
      dec %hp [ $+ [ %player2 ] ] %whip
      if (%hp [ $+ [ %player2 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player2 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
        notice %player2 Its your turn!
        unset %turn [ $+ [ %player1 ] ]
        set %turn [ $+ [ %player2 ] ] on
      }
    }
  }
  elseif (%turn [ $+ [ %player2 ] ] == on && %whip [ $+ [ %player2 ] ] == on) {
    if ($nick != %player2) { notice $nick $c(Not your turn!) }
    elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] != on) {
      var %Whip $rand(0,23)
      dec %hp [ $+ [ %player1 ] ] %Whip
      if (%hp [ $+ [ %player1 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player1 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
        notice %player1 Its your turn!
        unset %turn [ $+ [ %player2 ] ]
        set %turn [ $+ [ %player1 ] ] on
      }
    }
    elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] == on) {
      var %Whip $rand(0,26)
      dec %hp [ $+ [ %player1 ] ] %Whip
      if (%hp [ $+ [ %player1 ] ] <= 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
        inc %money [ $+ [ %player2 ] ] %stake
        msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
        endduel
      }
      elseif (%hp [ $+ [ %player1 ] ] > 0) {
        msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
        notice %player1 Its your turn!
        unset %turn [ $+ [ %player2 ] ]
        set %turn [ $+ [ %player1 ] ] on
      }
    }
  }
}

on *:TEXT:`buy*:#:{
  if ($2 == help) {
    notice $nick $c(ITEMS - PRICES) $c2(Whip - 1 $+ $chr(44) $+ 000 $+ $chr(44) $+ 000) $c2(Amulet of fury - 3 $+ $chr(44) $+ 000 $+ $chr(44) $+ 000) $c2(Laggy computer) $&
      $c2( (a bit more chances to x Log, `buy comp to buy) - 500 $+ $chr(44) $+ 000)
  } 
  if ($2 == whip) {
    if (%money [ $+ [ $nick ] ] <= 1000000) {
      notice $nick you cannot buy this yet!
    }
    elseif (%money [ $+ [ $nick ] ] > 1000000) {
      notice $nick $c(you can now use a ) $c2(whip!) $c(to use the whip do) $c2(`whip!)
      dec %Money [ $+ [ $nick ] ] 1000000
      notice $nick you have $c2( %money [ $+ [ $nick ] ] ) left.
      set %whip [ $+ [ $nick ] ] on
    }
  }
  if ($2 == fury || $2 == ammy) {
    if (%money [ $+ [ $nick ] ] <= 3000000) {
      notice $nick you cannot buy this yet!
    }
    elseif (%money [ $+ [ $nick ] ] > 3000000) {
      notice $nick $c(you now have a ) $c2(fury!) $c(You can now hit harder and get hit less!)
      dec %Money [ $+ [ $nick ] ] 3000000
      notice $nick you have $c2( %money [ $+ [ $nick ] ] ) left.
      set %fury [ $+ [ $nick ] ] on
    }
  }
  if ($2 == comp) {
    if (%money [ $+ [ $nick ] ] <= 500000) {
      notice $nick you cannot buy this yet
    }
    elseif (%money [ $+ [ $nick ] ] > 500000) {
      dec %money [ $+ [ $nick ] ] 500000
      notice $nick you bought a laggy comp! <- L why? You now have a bit more chances to x Log!
      notice $nick you have $c2(%money [ $+ [ $nick ] ] ) left.
      set %comp [ $+ [ $nick ] ] on
    }
  }
}