Miscellany

on *:TEXT:*Gold stolen*:#: {
  if ($nick == $hfind(FarmingCompetitionRegister, $nick)) && ($left($4,1) == $chr(9)) {
    set %GoldStolen $remtok($5,$chr(9),1,9) 
    set %FarmingCompetitionName $hget(FarmingCompetitionRegister, $nick)
    tokenize 44 %GoldStolen 
    set %FarmingCompetitionGoldHit $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit ^ 2 / %FarmingCompetitionName) / 100000) 
    hinc FarmingCompetition $nick $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionAttacks $nick 1
    hsave FarmingCompetition FarmingCompetition.txt
    hsave FarmingCompetitionAttacks FarmingCompetitionAttacks.txt
    hload FarmingCompetition FarmingCompetition.txt
    hload FarmingCompetitionAttacks FarmingCompetitionAttacks.txt   
    hsave FarmingCompetitionScore FarmingCompetitionScore.txt
  hload FarmingCompetitionScore FarmingCompetitionScore.txt }
  elseif ($nick == $hfind(FarmingCompetitionRegister, $nick)) && ($left($4,1) != $chr(9)) {
    set %FarmingCompetitionName $hget(FarmingCompetitionRegister, $nick)
    set %GoldStolen $5 
    tokenize 44 %GoldStolen 
    set %FarmingCompetitionGoldHit $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit ^ 2 / %FarmingCompetitionName) / 100000)
    hinc FarmingCompetition $nick $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionAttacks $nick 1
    hsave FarmingCompetition FarmingCompetition.txt
    hsave FarmingCompetitionAttacks FarmingCompetitionAttacks.txt
    hload FarmingCompetition FarmingCompetition.txt
    hload FarmingCompetitionAttacks FarmingCompetitionAttacks.txt
    hsave FarmingCompetitionScore FarmingCompetitionScore.txt
  hload FarmingCompetitionScore FarmingCompetitionScore.txt }
}