on *:TEXT:!give*:?: {
  if ($hget(wallet, $2) == $null) { .msg $nick That person does not have an account. }
  elseif ($hget(wallet, $nick) >= $cursimple($3,$4)) {
    hdec wallet $nick $v2
    hinc wallet $2 $v2
    .msg $nick You have given $3 $4 to $2.
    .msg $2 You have received $3 $4 from $nick $+ .
  }
  else .msg $nick You do not have enough money.
}

alias cursimple {
  if ($2 == CTB) { return $1 }
  if ($2 == CT) { return $calc($1 * 10) }
  if ($2 == ST) { return $calc($1 * 1000) }
  if ($2 == GT) { return $calc($1 * 10000) }
}