; ---------------------------
; - IDEAS -
; - Allow for 3 character choices, to only get certain attacks
; - Enable fusing of ki attacks
; ---------------------------

alias _notice .notice $1 $$2-
alias _msg .msg $1 $$2-
alias -l _ return $left $1- $right
alias -l left return $iif(%dbz.left,%dbz.left,/_)
alias -l right return $iif(%dbz.right,%dbz.right,_\)
alias -l _isfile return $iif($isfile($+(dbz.,$1,.hsh)),$+(dbz.,$1,.hsh)))
alias -l qp { var %n = 5,%w | while (%n > 0) { var %w = $+(%w,$r(A,z)) | dec %n } | return $+(%w,$r(100,999)) } 
alias -l dbc return $iif(%dbz.chan,$v1,#Testing)

alias dbz.races {
  if ($1 == -l) return Saiyan Human Namekian Android
  elseif ($1 == saiyan) {
    if ($2 == -str) return 35
    elseif ($2 == -ki) return 25
    elseif ($2 == -hp) return 60
    elseif ($2 == -def) return 20
    elseif ($2 == -chr) return Goku Vegeta Gohan Trunks
  } 
  elseif ($1 == human) {
    if ($2 == -str) return 25
    elseif ($2 == -ki) return 30
    elseif ($2 == -hp) return 70
    elseif ($2 == -def) return 35
    elseif ($2 == -chr) return Tien Yamcha
  }
  elseif ($1 == namekian) {
    if ($2 == -str) return 25
    elseif ($2 == -ki) return 35
    elseif ($2 == -hp) return 70 
    elseif ($2 == -def) return 25
    elseif ($2 == -chr) return Piccolo 
  }
  elseif ($1 == android) {
    if ($2 == -str) return 40
    elseif ($2 == -ki) return 15
    elseif ($2 == -hp) return 65
    elseif ($2 == -def) return 30
    elseif ($2 == -chr) return No.16 No.17 No.18
  }
}
alias dbz.char {
  if ($1 == goku) {
    if ($2 == -atk) return Kamehameha 
  }
  elseif ($1 == vegeta) {
    if ($2 == -atk) return GalicGun
  }
  elseif ($1 == gohan) {
    if ($2 == -atk) return Masenko
  }
  elseif ($1 == Trunks) {
    if ($2 == -atk) return FinalFlash
  }
}
alias dbz.inc.reg {
  .ruser $1
  if ($hget($+(dbztemp.,$1))) hfree $+(dbztemp.,$1)
  _msg $1 $_(You've failed to complete registration in a timely manner. Because of this you must restart your registration process)
}
on *:text:.register:?:{
  window -c $nick
  if (!$_isfile($nick)) {
    if (!$hget($+(dbztemp.,$nick))) {
      var %a = hadd -m $+(dbztemp.,$nick),%qp = $qp
      %a password %qp
      %a status Normal
      .auser race $nick
      _msg $nick $_(You're now registered with the password $+(,%qp,) $+ . Let's move on to races.)
      _msg $nick $_(To view a list of races type .race. To select a race type .race <race>.)
      .timerdbztemp. $+ $nick 1 5 dbz.inc.reg $nick
    } 
    else _msg $nick $_(You're already in the process of registering)
  }
  else _msg $nick $_(You're already registered)
}
on race:text:.race:?:{ 
  if ($timer($+(dbztemp.,$nick))) {
    if ($istok($dbz.races(-l),$2,32)) {
      $+(.timerdbztemp.,$nick) off
      hadd -m $+(dbztemp.,%nick) race $2
    }
  }
}
