Public feed #379448

Someone

public text v1 · immutable
Raw Edit
·published 2007-03-03 08:09 UTC
rendered paste body
on *:TEXT:*Gold stolen*:#: {
  if ($left($4,1) == $chr(9)) {
    set %GoldStolen $remtok($5,$chr(9),1,9) 
    set %SACounter $remtok($12,$chr(9),1,9)
    tokenize 44 %GoldStolen 
    set %FarmingCompetitionGoldHit $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetition $nick $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionAttacks $nick 1
    tokenize 44 %SACounter
    $iif($strip($1 $+ $2 $+ $3) < 100000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 1),) 
    $iif($strip($1 $+ $2 $+ $3) isnum 100000000-200000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 0.95),)
    $iif($strip($1 $+ $2 $+ $3) isnum 200000001-300000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 0.90),)
    $iif($strip($1 $+ $2 $+ $3) isnum 300000001-400000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 0.90),)
    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 ($left($4,1) != $chr(9)) {
    set %GoldStolen $5 
    set %SACounter $12
    tokenize 44 %GoldStolen 
    set %FarmingCompetitionGoldHit $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit ^ 2 / $strip($1 $+ $2 $+ $3)) / 100000)
    hinc FarmingCompetition $nick $strip($1 $+ $2 $+ $3)
    hinc FarmingCompetitionAttacks $nick 1
    tokenize 44 %SACounter
    $iif($strip($1 $+ $2 $+ $3) < 100000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 1),) 
    $iif($strip($1 $+ $2 $+ $3) isnum 100000000-200000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 0.95),)
    $iif($strip($1 $+ $2 $+ $3) isnum 200000001-300000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 0.90),)
    $iif($strip($1 $+ $2 $+ $3) isnum 300000001-400000000,hinc FarmingCompetitionScore $nick $calc((%FarmingCompetitionGoldHit / 1000000) * 0.90),)
    hsave FarmingCompetition FarmingCompetition.txt
    hsave FarmingCompetitionAttacks FarmingCompetitionAttacks.txt
    hload FarmingCompetition FarmingCompetition.txt
    hload FarmingCompetitionAttacks FarmingCompetitionAttacks.txt
    hsave FarmingCompetitionScore FarmingCompetitionScore.txt
  hload FarmingCompetitionScore FarmingCompetitionScore.txt }
}