;;;QQ:67762207
[@LevelUpBonus]
{
#IF
CheckBonus
#SAY
______________{FCOLOR/1}[{FCOLOR/12} {FCOLOR/14}Hermit Functions{FCOLOR/12} {FCOLOR/1}]{FCOLOR/12} \\
{FCOLOR/2}You Can Add Bonus Stats After Level 40.\
You Connot Remove These Stats Unless You Have 'CurseWater', Please Chose Carefully!\\
{FCOLOR/10}You Have Used <$OUTPUT(USERADDBONUSCOUNT)> Bonus Points{FOCLOR/12}\\
<HP/@ChangeType(HP,12,20,8,HP)> , <MP/@ChangeType(MP,15,31,12,MP)> \
<DC/@ChangeType(DC,1,2,2,DC)> , <MC/@ChangeType(MC,1,2,2,MC)> , <SC/@ChangeType(SC,1,2,2,SC)> \
<AC/@ChangeType(AC,1,2,2,AC)> , <MAC/@ChangeType(MAC,1,2,2,MAC)>\
<Atom/@ChangeType(ATOM)>\\

<Use Gold/@LevelUpOneBonus> (Each Bonus = 250,000 Gold)\\

<Exit/@exit>\
#ELSESAY
{FCOLOR/2}You Don't Meet The Requirements!\\
<Exit/@exit>

;HPӦ  12+random(8)   20+random(8)
;ħMP      15+random(12)  31+random(12)
;AC  1+random(2)    2+random(2)
;5Ԫ 1+random(2)    1+random(3)

[@LevelUpOneBonus]
#IF
CheckBonus
checkgold 250000
#ACT
take Gold 250000
#SAY
______________{FCOLOR/1}[{FCOLOR/12} {FCOLOR/14}Hermit Functions{FCOLOR/12} {FCOLOR/1}]{FCOLOR/12} \\
{FCOLOR/2}You Can Add Bonus Stats After Level 40.\
You Connot Remove These Stats Unless You Have 'CurseWater', Please Chose Carefully!\\
{FCOLOR/10}You Have Used <$OUTPUT(USERADDBONUSCOUNT)> Bonus Points{FOCLOR/12}\\
<HP/@ChangeType(HP,12,20,8,HP)> , <MP/@ChangeType(MP,15,31,12,MP)> \
<DC/@ChangeType(DC,1,2,2,DC)> , <MC/@ChangeType(MC,1,2,2,MC)> , <SC/@ChangeType(SC,1,2,2,SC)> \
<AC/@ChangeType(AC,1,2,2,AC)> , <MAC/@ChangeType(MAC,1,2,2,MAC)>\
<Atom/@ChangeType(ATOM)>\\
#ELSESAY
{FCOLOR/2}You Don't Meet The Requirements!\\
<Exit/@exit>


[@ChangeType1()]
#ACT
mov A0 %ARG(1)

#IF
CheckBonus
#SAY
Please Enter the Additional Points and Number of Times:\\
<Input/@@intop>\


[@@intop]
#ACT
mov D5 %INPUTNUM
#SAY
You Want to Add <$OUTPUT(A0)>, Number of Times <$OUTPUT(D5)>.\\
<Continue/@addming>\
<Re-Input/@@intop>


[@addming]
#IF
CheckBonus
#ACT
goto @FastADDBonus

#IF
Large D5 1
#ACT
DEC D5 1
Delaygoto [Local] 1 @addming
#ELSEACT
break


[@FastADDBonus]
#IF
EQUAL A0  "HP"
#ACT
goto "@ChangeType(HP,12,20,8,HP)"

#IF
EQUAL A0  "MP"
#ACT
goto "@ChangeType(MP,15,31,12,MP)"

#IF
EQUAL A0  "DC"
#ACT
goto "@ChangeType(DC,1,2,2,DC)"

#IF
EQUAL A0  "SC"
#ACT
goto "@ChangeType(SC,1,2,2,SC)"

#IF
EQUAL A0  "MC"
#ACT
goto "@ChangeType(MC,1,2,2,MC)"


#IF
EQUAL A0  "AC"
#ACT
goto "@ChangeType(AC,1,2,2,AC)"

#IF
EQUAL A0  "MAC"
#ACT
goto "@ChangeType(MAC,1,2,2,MAC)"

#IF
EQUAL A0  "ATOM"
#ACT
goto "@ChangeType(ATOM)"



[@ChangeType()]
#ACT
mov A0 %ARG(1)
mov D0 %ARG(2)  ;;40 
mov D1 %ARG(3)  ;;50 
mov D2 %ARG(4)  ;;
mov A1 %ARG(5)  ;;
close

#IF
Checklevel 40
#ACT
mov D3 %P9
mov D4 %USERADDBONUSCOUNT
#ELSEACT
break
#ELSESAY
{FCOLOR/2}You Don't Meet The Requirements!\\
<Exit/@exit>


#IF
!EQUAL D4 0
#ACT
dec D3 %D4
dec D3 39
#ELSEACT
dec D3 39



#IF
Large D3 0
#ELSEACT
break
#ELSESAY
You Don't Meet The Requirements!\\
<Exit/@exit>

#IF
#ACT
actcmd TAKEBONUSEX [INC]


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 50ͨ

#IF
#ACT
movr D4 %D2

#IF
!EQUAL D4 0
!EQUAL A0 "ATOM"
Elarge USERADDBONUSCOUNT 10
#ACT
inc D1 %D4
actcmd TAKEBONUSEX %A0 %D1
formatstr "%s Increased By %s!" %A1 %D1
sysmsg "<$OUTPUT(A9)>"
goto @LevelUpBonus
break

#IF
EQUAL D4 0
!EQUAL A0 "ATOM"
Elarge USERADDBONUSCOUNT 10
#ACT
actcmd TAKEBONUSEX %A0 %D1
formatstr "%s Increased By %s!" %A1 %D1
sysmsg "<$OUTPUT(A9)>"
goto @LevelUpBonus
break

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 50ͨ 

#IF
!EQUAL D4 0
!EQUAL A0 "ATOM"
eSmall USERADDBONUSCOUNT 10
#ACT
inc D0 %D4
actcmd TAKEBONUSEX %A0 %D0
formatstr "%s Increased By %s!" %A1 %D0
sysmsg "<$OUTPUT(A9)>"
goto @LevelUpBonus
break

#IF
EQUAL D4 0
!EQUAL A0 "ATOM"
eSmall USERADDBONUSCOUNT 10
#ACT
actcmd TAKEBONUSEX %A0 %D0
formatstr "%s Increased By %s!" %A1 %D0
sysmsg "<$OUTPUT(A9)>"
goto @LevelUpBonus
break
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Ԫ

#IF
#ACT
movr D6 5
inc D6 1   ;;Ԫ
mov Ԫ1 0
mov Ԫ2 0
mov Ԫ3 0
mov Ԫ4 0
mov Ԫ5 0
mov Ԫ6 0
mov Ԫ7 0


#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE

#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE


#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE

#IF
LARGE D6 0
#ACT
dec D6 1
movr D7 7
inc D7 1
goto @ATOMDECIDE


#IF
Elarge USERADDBONUSCOUNT 10
#ACT
mov D3 3 ;; 0 1 2
#ELSEACT  
mov D3 2 ;; 0 1 

#IF
EQUAL Ԫ1 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM1 %D8
formatstr "FireAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ2 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM2 %D8
formatstr "IceAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ3 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM3 %D8
formatstr "LightningAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ4 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM4 %D8
formatstr "WindAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ5 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM5 %D8
formatstr "HolyAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ6 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM6 %D8
formatstr "DarkAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"

#IF
EQUAL Ԫ7 1
#ACT
movr D8 %D3
inc D8 1
actcmd TAKEBONUSEX AM7 %D8
formatstr "PhantomAtom Increased By %s!" %D8
sysmsg "<$OUTPUT(A9)>"


[@ATOMDECIDE]
#IF
EQUAL D7 1
#ACT
mov Ԫ1 1

#IF
EQUAL D7 2
#ACT
mov Ԫ2 1

#IF
EQUAL D7 3
#ACT
mov Ԫ3 1

#IF
EQUAL D7 4
#ACT
mov Ԫ4 1

#IF
EQUAL D7 5
#ACT
mov Ԫ5 1

#IF
EQUAL D7 6
#ACT
mov Ԫ6 1

#IF
EQUAL D7 7
#ACT
mov Ԫ7 1
}

[@BuyPotion]
{
#SAY
˵{FCOLOR/10}֮ҩˮ 100ֵȡӵףֵ!!{FCOLOR/12}һ !! ֮ҩˮļ۸ 1,000,000 !!\\
<Ȼܰ󣬵һҪ!/@BuyPotionCheck>

[@BuyPotionCheck]
#IF
checkgold 1000000
#SAY
ã֮ҩˮ!!\\
#ACT
give ֮ҩˮ 1
take  1000000
#ELSESAY
Ǯ!\\
</@exit>
}
;;;QQ:67762207
