From ea1851eeb7af99eaa244ef70004b4989819c3ad3 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Thu, 30 Jul 2020 14:36:53 -0300
Subject: Use Lybniz to define a more stable formula for RP Learning 1 MSP
 skills will never cost research points

---
 npc/config/magic.txt   | 2 +-
 npc/functions/util.txt | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/npc/config/magic.txt b/npc/config/magic.txt
index 8d0999ef6..4d113edab 100644
--- a/npc/config/magic.txt
+++ b/npc/config/magic.txt
@@ -299,7 +299,7 @@ OnInit:
     /* RegisterMagic(MSP, Skill, MaxLv, Item, Amount,
                             Class, Cost, {PreReq, PostReq}) */
 
-    // Research Points (RP) range: 0~72 [MAX: 72]
+    // Research Points (RP) range: 100~1000 [10k ~ 1M points]
 
 
 
diff --git a/npc/functions/util.txt b/npc/functions/util.txt
index 10073c715..facabc0a3 100644
--- a/npc/functions/util.txt
+++ b/npc/functions/util.txt
@@ -763,7 +763,7 @@ function	script	learn_magic	{
     .@it=$@MSK_ITEM[.@ski];
     .@am=$@MSK_AMOUNT[.@ski];
     .@msp=$@MSK_MSPCOST[.@ski];
-    .@ap=$@MSK_COST[.@ski]**((getskilllv(.@ski)+1)/2)-1+getskilllv(.@ski);
+    .@ap=($@MSK_COST[.@ski]*getskilllv(.@ski)*100)**2;
 
     // Pre-requisite check
     if (.@pre) {
@@ -785,6 +785,9 @@ function	script	learn_magic	{
     if (getskilllv(.@ski)) {
         .@msp=50; // FIXME NYI
         .@learn$=l("Upgrading");
+    } else if (.@msp <= 1) {
+        // 1 MSP skills take no Research Points
+        .@ap=0;
     }
 
     mesc l("%s %s will require:", .@learn$, getskillname(.@ski));
-- 
cgit v1.2.3-70-g09d2