Another Npcs Release

;;;;;;;;;;;;;;
[@upgrade]
{
#say
#say
_______________{FCOLOR/1}[{FCOLOR/12}   Upgrade Menu   {FCOLOR/1}]{FCOLOR/12} \\
<[Explane Upgrade System]/@expalne>\\
<[UpgradeOrb]/@ready1>\
<[UpgradeGem]/@ready>\
<Cancle/@exit>\

[@expalne]
#say
_______________{FCOLOR/1}[{FCOLOR/12}   Explane Upgrade System  {FCOLOR/1}]{FCOLOR/12} \\
{FCOLOR/13}The Upgrade system is based on UpgradeOrbs and\
UpgradeGems,These Items can add Stats to an Item on\ 
your body such as DC, M-Soul, M-Nature or M-All.\\
{FCOLOR/1}UpgrageOrb - {FCOLOR/10}Has a 25% Success Rate.\
{FCOLOR/1}UpgradeGem - {FCOLOR/10}Has a 75% Success Rate.\\
<Back/@main>\ 




;;---------------------------------UPGRADE ORB




[@ready1]
#say
{FCOLOR/10}
Please note that the higher the items level, the lower the chance of success! \
If the upgrade fails, your item will be back to not upgrade the state! \
{FCOLOR/12}
Select the equipment you want to upgrade it\
< [ Clothes]/@upJERELRYPY(0)> | <[ Boots ]/@boots>\
< [ Helmet ]/@upJERELRYPY(4)> | <[ Weapon ]/@weapon>\
< [ Necklace ]/@upJERELRYPY(3)> \
< [Left Bracelet ]/@upJERELRYPY(5)> <[Right Bracelet]/@upJERELRYPY(6))> \
< [LeftRing ]/@upJERELRYPY(7)> <[Right Bracelet ]/@upJERELRYPY(8)> \

[@upJERELRYPY()]
#act
Mov  D0  %ARG(1)


#IF
checkcmd CHECKITEMINFO %D0
#say
What would you like to add?\\
Your items can only upgrade this defense, you sure you want to upgrade??\
<Upgrade AC/@lvlPY(0,1)>\                             
<Upgrade MAC/@lvlPY(1,1)>\
<Upgrade DC/@lvlPY(2,1)>\ 
<Upgrade M-All/@lvlPY(3,1)>\ 
<Exit/@exit>


[@lvlPY()]                 
#ACT
mov D1 %ARG(1)
mov D4 %ARG(2)
goto @vamos


[@vamos]
#if
CHECKITEMINFO %D0
checkitem Upgradeorb 1
Random 3
#act
take UpgradeOrb 1
actcmd EDITITEM %D1 + %D4
#say
Congratulations on your success in this equipment upgrade! Remove the equipment be able to see your results of the!\
<Exit/@exit>\
#elsesay
Upgrade item FAIL!\
<Exit/@exit>\


[@weapon]
#SAY
{FCOLOR/13}
What would you like to add?\
Your items can only upgrade this defense, you sure you want to upgrade??\\
_<Upgrade Luck/@UpDescPointS(3,1)>\ 
_<Upgrade Strength/@UpDescPointS(7,1)>\
_<Upgrade M-all/@upDescPoints(1,1)>\
_<Upgrade DC/@upDescPoints(0,1)>\
_<Upgrade Accuracy/@UpdescPoints(5,1)>\
_<Exit/@exit>


[@UpDescPointS()]
#ACT
MOV D1 %ARG(1)
MOV D4 %ARG(2)
goto @go1

[@go1]
#if
CHECKITEMINFO 1
checkitem Upgradeorb 1
#act
take UpgradeOrb 1
actcmd EDITITEM %D1 + %D4

[@boots]
#Say
{FCOLOR/13}
What would you like to add?\\
Your items can only upgrade this defense, you sure you want to upgrade??\

<Enhance HCWeight/@vamos3(2,1)>\
<Enhance WWeight/@vamos3(1,1)>\
<Enhance Recovery/@vamos3(0,1)>\


[@vamos3()]                 
#ACT
mov D1 %ARG(1)
mov D4 %ARG(2)
goto @vamos2

[@vamos2]
#if
CHECKITEMINFO %D0
checkitem Upgradeorb 1
#act
take UpgradeOrb 1
actcmd EDITITEM %D1 + %D4

#say
Congratulations on your success in this equipment upgrade! Remove the equipment be able to see your results of the!\
<Exit/@exit>\
#elsesay
Upgrade item FAIL!\
<Exit/@exit>\





;;-------------------------------------Upgrade GEM

[@ready]
#say
{FCOLOR/10}
Please note that the higher the items level, the lower the chance of success! \
If the upgrade fails, your item will be back to not upgrade the state! \
{FCOLOR/12}
Select the equipment you want to upgrade it\
< [ Clothes]/@upJERELRYPY(0)> | <[ Boots ]/@boots1>\
< [ Helmet ]/@upJERELRYPY(4)> | <[ Weapon ]/@weapon1>\
< [ Necklace ]/@upJERELRYPY(3)> \
< [Left Bracelet ]/@upJERELRYPY(5)> <[Right Bracelet]/@upJERELRYPY(6))> \
< [LeftRing ]/@upJERELRYPY(7)> <[Right Bracelet ]/@upJERELRYPY(8)> \

[@upJERELRYPY()]
#act
Mov  D0  %ARG(1)


#IF
checkcmd CHECKITEMINFO %D0
#say
What would you like to add?\\
Your items can only upgrade this defense, you sure you want to upgrade??\
<Upgrade AC/@lvlPY(0,1)>\                             
<Upgrade MAC/@lvlPY(1,1)>\
<Upgrade DC/@lvlPY(2,1)>\ 
<Upgrade M-All/@lvlPY(3,1)>\ 
<Exit/@exit>


[@lvlPY()]                 
#ACT
mov D1 %ARG(1)
mov D4 %ARG(2)
goto @vamos9


[@vamos9]
#if
CHECKITEMINFO %D0
checkitem UpgradeGem 1
Random 1
#act
take UpgradeGem 1
actcmd EDITITEM %D1 + %D4
#say
Congratulations on your success in this equipment upgrade! Remove the equipment be able to see your results of the!\
<Exit/@exit>\
#elsesay
Upgrade item FAIL!\
<Exit/@exit>\


[@weapon1]
#SAY
What would you like to add?\\
Your items can only upgrade this defense, you sure you want to upgrade??\
{FCOLOR/12}
_<Upgrade Luck/@UpDescPointS(3,1)>\ 
_<Upgrade Strength/@UpDescPointS(7,1)>\
_<Upgrade M-all/@upDescPoints(1,1)>\
_<Upgrade DC/@upDescPoints(0,1)>\
_<Upgrade Accuracy/@UpdescPoints(5,1)>\
_<Exit/@exit>


[@UpDescPointS()]
#ACT
MOV D1 %ARG(1)
MOV D4 %ARG(2)
goto @go1

[@go1]
#if
CHECKITEMINFO 1
checkitem UpgradeGem 1
#act
take UpgradeGem 1
actcmd EDITITEM %D1 + %D4

[@boots1]
#Say
<Enhance HCWeight/@vamos3(2,1)>\
<Enhance WWeight/@vamos3(1,1)>\
<Enhance Recovery/@vamos3(0,1)>\


[@vamos3()]                 
#ACT
mov D1 %ARG(1)
mov D4 %ARG(2)
goto @vamos15

[@vamos15]
#if
CHECKITEMINFO %D0
checkitem UpgradeGem 1
#act
take UpgradeGem 1
actcmd EDITITEM %D1 + %D4

#say
Congratulations on your success in this equipment upgrade! Remove the equipment be able to see your results of the!\
<Exit/@exit>\
#elsesay
Upgrade item FAIL!\
<Exit/@exit>\

}
;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@MagLevel]
{
#if
#say
My here may give your evil spirit law skill promotes to four fifth  grade\
{FCOLOR/10}This service needs 500 FamePoints{FCOLOR/12}\
<I must promote skill/@StartMagLevel>
#ELSESAY
This function needs the rank {FCOLOR/10}35{FCOLOR/12} Only then may use!\
<Return/@main>

[@StartMagLevel]
#IF
#SAY
{FCOLOR/10}Please inputs the evil spirit law skill name which you must promote:{FCOLOR/12}\
<Promotes to four levels of evil spirits law skill name/@@InputMagName1>\
<Promotes to the fifth grade evil spirit law skill name/@@InputMagName2>\
<Return/@main>\


[@@InputMagName1]
#ACT
  MOV        A4       %INPUTSTR
  goto @rinimabugei1

[@@InputMagName2]
#ACT
  MOV        A5       %INPUTSTR
  goto @rinimabugei2


[@rinimabugei1]
#if
  CHKMAGICLEVEL %A4 3
  checkfame 500
#act
  actcmd setfame - 500
  actcmd CHANGEMAGLVL %A4 4
#SAY
The evil spirit law skill rank promotes successfully, your integral  also remains {FCOLOR/1}<$HLPOINT>{FCOLOR/12} Points\
<Return/@main>\

#ELSESAY
The execution defeat, has the wrong possible reason:\
1.Your integral is insufficient,\
2.You have Input Skill Name Wrong.\
3.Skill not Levelled to 3 yet.\

[@rinimabugei2]
#if
  CHKMAGICLEVEL %A5 4
  checkfame 500
#act
  actcmd setfame - 500 
  actcmd CHANGEMAGLVL %A5 5
#SAY
The evil spirit law skill rank promotes successfully, your integral  also remains {FCOLOR/1}<$HLPOINT>{FCOLOR/12} Points\
<Return/@main>\

#ELSESAY
The execution defeat, has the wrong possible reason:\
1.Your integral is insufficient,\
2.You have Input Skill Name Wrong.\
3.Skill not Levelled to 3 yet.\

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[@main]
#sAY
{FCOLOR/13}Hello i change your FPs for Gps\
<[100 Fps to 20 gps ]/@fp(100,100,20)>\
<[300 Fps to 65 gps ]/@fp(300,300,65)>\
<[500 Fps to 110 gps]/@fp(500,500,110)>\
<[1000 Fps to 255 gps ]/@fp(1000,1000,255)>\

[@fp()]
#act
MOV D5 %ARG(1)
MOV D6 %ARG(2)
MOV D0 %ARG(3)
GOTO @fpauto


[@fpauto]
#if
checkfame %d5
#act
setfame - %D6
actcmd setuserjf + %D0
#elseact
goto @blabla

[@blabla]
#say
You dont have FPS!!\

#sAY
{FCOLOR/13}Hello i change your GPs for Fps but for change i need\
One Fptoken...\
<[20 Gps to 100 FPs ]/@gp(FpToken,20,100)>\
<[300 Gps to 1500 FPs ]/@gp(FpToken,300,1500)>\
<[500 Gps to 2500 FPs ]/@gp(FpToken,500,2500)>\
<[1000 Gps to 5000 FPs ]/@gp(FpToken,1000,5000)>\

[@gp()]
#act
Mov A2 %ARG(1)
MOV D1 %ARG(2)
MOV D2 %ARG(3)
GOTO @gpauto

[@gpauto]
#if
checkitem %A2 1
checkcmd checkuserjf %D1
#ACT
TAKE %A2 1
actcmd setuserjf - %D1
SETFAME + %D2
#elseact
goto @blabla

[@rebirth]
#SAY
{FCOLOR/13}Hello test rebirht\
{FCOLOR/13}What rebirht u need?\\
<[Rebirth 1]/@rb1(1,0,100,1,0)>\
<[Rebirth 2]/@rb1(2,150,300,15000000,1)>\
<[Rebirth 3]/@rb1(3,270,700,25000000,2)>\
<[Rebirth 4]/@rb1(4,430,1000,35000000,3)>\
<[Rebirth 5]/@rb1(5,750,1500,45000000,4)>\
<[Rebirth 6]/@rb1(6,1500,2500,55000000,5)>\
<[Rebirth 7]/@rb1(7,4000,6000,65000000,6)>\
<[Rebirth 8]/@rb1(8,7000,9000,75000000,7)>\\
<[Rebirth requirements]/@rb9>\

[@rb1()]
#act
MOV D5 %ARG(1)
MOV D6 %ARG(2)
MOV D0 %ARG(3)
MOV D8 %ARG(4)
MOV D4 %ARG(5)
GOTO @rebirthauto

[@rebirthauto]
#IF
Checkgold %D8
checklevel %D0
EQUAL USERREBORNCOUNT %D4
#ACT
setfame - %D6
Take gold %D8
ACTCMD SETSUPERCHANGE = %D5
actcmd SENDUSERSAY "@NameColor 270"
#elsesay
You are short on something to gain this Rebirth..\



[@rb9]
#Say
{FCOLOR/1}1st Rebirth:{FCOLOR/10}You must be lvl 100 its Free!{FCOLOR/12}\
{FCOLOR/1}2nd Rebirth:{FCOLOR/10}You must be lvl 300 and you need 150 Fp{FCOLOR/12}\
{FCOLOR/1}3rd Rebirth:{FCOLOR/10}You must be lvl 700 and you need 270 Fp{FCOLOR/12}\
{FCOLOR/1}4th Rebirth:{FCOLOR/10}You must be lvl 1000 and you need 430 Fp{FCOLOR/12}\
{FCOLOR/1}5th Rebirth:{FCOLOR/10}You must be lvl 1500 and you need 700 Fp{FCOLOR/12}\
{FCOLOR/1}6th Rebirth:{FCOLOR/10}You must be lvl 2500 and you need 1500Fp{FCOLOR/12}\
{FCOLOR/1}7th Rebirth:{FCOLOR/10}You must be lvl 6000 and you need 4000Fp{FCOLOR/12}\
{FCOLOR/1}8th Rebirth:{FCOLOR/10}You must be lvl 9000 and you need 7000Fp{FCOLOR/12}\
<[Back]/@main>\\
<[Exit]/@exit>\