;;;;;;;;;;;;;;;;;;;
; FOR DIABLO DEMO ;
;;;;;;;;;;;;;;;;;;;
alias D2_EXP_TO_GOLD {
  ;$1 = Player Level
  ;$2 = Monster Level
  ;$3 = Monster Count Start
  ;$4 = Monster Count Interval
  ;$5 = Goldfind Multiplier (% BASED)
  ;$6 = Minimum Gold Tick (% BASED)
  ;$7 = % DAMAGE DONE

  var %MINIMUM_GOLD_TICK $$6
  var %PLAYER_LEVEL $1
  var %MONSTER_LEVEL $2
  var %MONSTER_COUNT_START $3
  var %MONSTER_COUNT_INTERVAL $4
  var %GOLDFIND_MULTIPLIER $5

  var %tiers 12

  var %multiplier $iif($7,$calc($7 / 100),1)

  var %diablo_gold $DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEWISH(%PLAYER_LEVEL,%MONSTER_LEVEL,1,%MONSTER_COUNT_INTERVAL) * %multiplier

  echo -a KILLS PER LEVEL: $calc($diablo_level_to_gold(%PLAYER_LEVEL) / %diablo_gold2)

  ;echo -a MULTIPLIER: $CALCULATE_MULTIPLIER(%PLAYER_LEVEL, %MONSTER_LEVEL, %MONSTER_COUNT_START, %MONSTER_COUNT_INTERVAL)
  return $TRIM($calc($calc((%diablo_gold * ($limit(%GOLDFIND_MULTIPLIER,0,100) / 100) * ($limit(%GOLDFIND_MULTIPLIER,100,$calc(%GOLDFIND_MULTIPLIER + 100)) / 100)) * (100 / %MINIMUM_GOLD_TICK)))))

  ;return $TRIM($calc((2 ^ (%MONSTER_LEVEL / %tiers - 1) * ($limit(%GOLDFIND_MULTIPLIER,0,100) / 100) * 2 ^ ($limit(%GOLDFIND_MULTIPLIER,100,$calc(%GOLDFIND_MULTIPLIER + 100)) / 100)) * (100 / %MINIMUM_GOLD_TICK)))

  ;return $calc(2 ^ ($DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW($1,$2,$3,$4) / 12 + ($5 / 100 - 1)))
}
alias DIABLO_D2_CRAFT_COST {
  ;$1 = Item Level
  ;$2 = Minimum Gold Tick (% BASED)
  return $calc(2 ^ $1 * (100 / $2))
}
alias DIABLO_EXP_TO_D2_GOLD {
  ;$1 = Player Level
  ;$2 = Monster Level
  ;$3 = Monster Count Start
  ;$4 = Monster Count Interval
  ;$5 = Goldfind Multiplier (% BASED)
  ;$6 = Minimum Gold Tick (% BASED)
  ;$7 = % DAMAGE DONE

  var %DAMAGE_DONE_PERCENT $$7
  var %MINIMUM_GOLD_TICK $$6
  var %PLAYER_LEVEL $1
  var %MONSTER_LEVEL $2
  var %MONSTER_COUNT_START $3
  var %MONSTER_COUNT_INTERVAL $4
  var %GOLDFIND_MULTIPLIER $5

  var %tiers 12

  var %multiplier $calc($LIMIT($7,0,100) / 100)

  var %diablo_gold $DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW(%PLAYER_LEVEL,%MONSTER_LEVEL,1,%MONSTER_COUNT_INTERVAL) * %multiplier
  var %diablo_gold2 $DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW(%PLAYER_LEVEL,%MONSTER_LEVEL,%MONSTER_COUNT_START,%MONSTER_COUNT_INTERVAL) * %multiplier

  echo -a RATIO: $calc(%diablo_gold / %diablo_gold2)
  echo -a KILLS PER LEVEL: $calc(($1 + 1) / %diablO_gold2)

  ;echo -a MULTIPLIER: $CALCULATE_MULTIPLIER(%PLAYER_LEVEL, %MONSTER_LEVEL, %MONSTER_COUNT_START, %MONSTER_COUNT_INTERVAL)
  return $TRIM($calc($calc(((2 ^ ((%diablo_gold - 1) / %tiers - 1) * ($limit(%GOLDFIND_MULTIPLIER,0,100) / 100) * 2 ^ ($limit(%GOLDFIND_MULTIPLIER,100,$calc(%GOLDFIND_MULTIPLIER + 100)) / 100)) * (100 / %MINIMUM_GOLD_TICK))) / (%diablo_gold / %diablo_gold2)))

  ;return $TRIM($calc((2 ^ (%MONSTER_LEVEL / %tiers - 1) * ($limit(%GOLDFIND_MULTIPLIER,0,100) / 100) * 2 ^ ($limit(%GOLDFIND_MULTIPLIER,100,$calc(%GOLDFIND_MULTIPLIER + 100)) / 100)) * (100 / %MINIMUM_GOLD_TICK)))

  ;return $calc(2 ^ ($DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW($1,$2,$3,$4) / 12 + ($5 / 100 - 1)))
}
; COUNT = PLEVEL - MLEVEL
; OFFSET = COUNT_TO_NUMBER(COUNT)
; print("OFFSETA: " + str(OFFSET))
; return (((PLEVEL + 1) / ABSN(OFFSET) ** ATANN(OFFSET)) / MONSTER_COUNT_INTERVAL) / MONSTER_COUNT_START
alias BCD {
  var %start 60
  var %end 60

  while %end {
    var %ONE $DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW(%end,%start,1,1,100,1,100)
    var %TWENTY_FIVE $DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW(%end,%start,30,1,100,1,100)

    echo -a A: %one B: %twenty_five
    echo -a $calc(%one / %twenty_five)
    echo -a MULTIPLIER: $calculate_multiplier(%end,%start,30,1)
    dec %end
  }
}

alias CALCULATE_MULTIPLIER {
  var %plevel $1
  var %mlevel $iif($2,$2,$1)
  var %monster_start $iif($3,$3,1)
  var %monster_count $iif($4,$4,1)

  var %COUNT $COUNT_TO_NUMBER($calc((%PLEVEL - %MLEVEL) * %monster_count + %monster_start - $LIMIT($DTEST_VIRII(%monster_start),0,1)),1)

  return $ABSN($CALC(1 / %COUNT ^ $ATANN(%COUNT)))


}
alias DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEW {
  var %plevel $1
  var %mlevel $iif($2,$2,$1)
  var %monster_start $iif($3,$3,1)
  var %monster_count $iif($4,$4,1)
  var %monster_min $iif($5,$5,1)
  var %COUNT $COUNT_TO_NUMBER($calc((%PLEVEL - %MLEVEL) * %monster_count + %monster_start - $LIMIT($DTEST_VIRII(%monster_start),0,1)),1)

  return $ABSN($calc((%PLEVEL + 1) / %COUNT ^ $ATANN(%COUNT)))
}

alias DIABLO_PLEVEL_AND_MLEVEL_TO_EXP_NEWISH {
  var %plevel $1
  var %mlevel $iif($2,$2,$1)
  var %monster_start $iif($3,$3,1)
  var %monster_count $iif($4,$4,1)
  var %monster_min $iif($5,$5,1)
  var %COUNT $COUNT_TO_NUMBER($calc((%PLEVEL - %MLEVEL) * %monster_count + %monster_start - $LIMIT($DTEST_VIRII(%monster_start),0,1)),1)

  return $DIABLO_LEVEL_TO_GOLD($ABSN($calc((%PLEVEL + 1) / %COUNT ^ $ATANN(%COUNT))))
}
alias DTEST_VIRII {
  return $calc((($1 ^ 2) ^ -1 - ($1 ^ -1) + 1) * $1)
}
;;;;;;;;;;;;;;;;;;;;;;;
; END FOR DIABLO DEMO ;
;;;;;;;;;;;;;;;;;;;;;;;