[@ħս]
{



#if
CheckMagicName ħ()
#act
mov N$ħʼ <$MAXMC>
div N$ħʼ 2
movr D3 1 100
goto @0
goto @2
#elseact
break


[@0]
#if
CheckMagicName ħ()
EQUAL <$STR(N$)> 3
SMALL   D3  <$STR(N$ħʼ)>
#act
goto @ħ3
break
#elseact
goto @1
[@1]
#if
EQUAL <$STR(N$)> 1
SMALL   D3  <$STR(N$ħʼ)>
#act
goto @ħ1
mov N$ 2
break

#if
EQUAL <$STR(N$)> 2
SMALL   D3  <$STR(N$ħʼ)>
#act
goto @ħ2
mov N$ 3
break


[@ħ1]
#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 1
#act
mov N$ħmp <$MAXMP>
div N$ħmp 200
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 10
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>

#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 2
#act
mov N$ħmp <$MAXMP>
div N$ħmp 200
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 10
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>


#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 3
#act
mov N$ħmp <$MAXMP>
div N$ħmp 200
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 10
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>

[@ħ2]
#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 1
#act
mov N$ħmp <$MAXMP>
div N$ħmp 150
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 8
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>



#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 2
#act
mov N$ħmp <$MAXMP>
div N$ħmp 150
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 8
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>


#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 3
#act
mov N$ħmp <$MAXMP>
div N$ħmp 150
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 8
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>

[@ħ3]
#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 1
#act
mov N$ħmp <$MAXMP>
div N$ħmp 100
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 6
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>
SENDDELAYMSG  ħʳʱ <$STR(N$ħʱ)> 56 0 @



#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 2
#act
mov N$ħmp <$MAXMP>
div N$ħmp 100
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 6
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 6 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>
SENDDELAYMSG ħʳʱ <$STR(N$ħʱ)> 56 0 @

#if
EQUAL <$STR(N$)> 1
CHECKSKILL ħ() = 3
#act
mov N$ħmp <$MAXMP>
div N$ħmp 100
MOV N$ħʱ <$MAXMC>
MUL N$ħʱ 10
MOV N$ħʸ <$PKPOWER>
DIV N$ħʸ 6
DIV N$ħʱ 3800
m.HumanHP - <$str(N$ħʸ)>
ChangeModeEx 5 <$STR(N$ħʱ)> <$STR(N$ħmp)> 
;SENDMSG 6 <$STR(N$ħʱ)>֮ڹ<$STR(N$ħmp)>. <$str(N$ħʸ)>
SENDDELAYMSG ħʳʱ <$STR(N$ħʱ)> 56 0 @

[@]
#act
mov N$ 1
;SENDMSG 6 ħʳʱ
;---------------------------------------------------------------

[@2]
#if
CHECKSKILL 鶯() = 1
#act
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  100
div N$鶯 20
MUL N$鶯 <$str(N$鶯mp)>
m.HumanHP - <$str(N$鶯)>
;SENDMSG 6   鶯˺<$str(N$鶯)> 

#if
CHECKSKILL 鶯() = 2
#act
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  100
div N$鶯 10
MUL N$鶯 <$str(N$鶯mp)>
m.HumanHP - <$str(N$鶯)>
;SENDMSG 6   鶯˺<$str(N$鶯)> 


#if
CHECKSKILL 鶯() = 3
#act
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  100
div N$鶯 7
MUL N$鶯 <$str(N$鶯mp)>
m.HumanHP - <$str(N$鶯)>
;SENDMSG 6   鶯˺<$str(N$鶯)>  

;-------------------------------------------------------

[@ħսһ]
#act
mov N$˫һ <$MAXMC>
div N$˫һ 200
movr D5 1 100

#if
CHECKSKILL һ𽣷 = 1 1
SMALL   D5  <$STR(N$˫һ)>
#act
goto @˫һ
;SENDMSG 6  ˫һ<$STR(N$˫һ)>
#elseact
goto @һ


[@һ]
#if
CHECKSKILL 鶯() = 1
CheckMagicName һ𽣷
#act
mov N$һħ <$MAXMC>
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  1200
div N$鶯1 <$str(N$鶯mp)>
div N$鶯 20
div N$һħ 5
inc N$鶯 <$str(N$鶯mp)>
inc N$鶯 N$鶯1
mul <$str(N$һħ)> <$str(N$鶯)>
m.HumanHP - <$str(N$һħ)>
;SENDMSG 6  һ𽣷鶯()<$str(N$һħ)>˺

#if
CHECKSKILL 鶯() = 2
CheckMagicName һ𽣷
#act
mov N$һħ <$MAXMC>
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  1200
div N$鶯1 <$str(N$鶯mp)>
div N$鶯 10
div N$һħ 5
inc N$鶯 <$str(N$鶯mp)>
inc N$鶯 N$鶯1
mul <$str(N$һħ)> <$str(N$鶯)>
m.HumanHP - <$str(N$һħ)>
;SENDMSG 6  һ𽣷鶯()<$str(N$һħ)>˺

#if
CHECKSKILL 鶯() = 3
CheckMagicName һ𽣷
#act
mov N$һħ <$MAXMC>
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  1200
div N$鶯1 <$str(N$鶯mp)>
div N$鶯 7
div N$һħ 5
inc N$鶯 <$str(N$鶯mp)>
inc N$鶯 N$鶯1
mul <$str(N$һħ)> <$str(N$鶯)>
m.HumanHP - <$str(N$һħ)>
;SENDMSG 6  һ𽣷鶯()<$str(N$һħ)>˺

[@˫һ]
#if
CHECKSKILL һ𽣷 = 1 1
CHECKSKILL 鶯() = 1
#act
mov N$һħ <$MAXMC>
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  1200
div N$鶯1 <$str(N$鶯mp)>
div N$鶯 20
div N$һħ 5
inc N$鶯 <$str(N$鶯mp)>
inc N$鶯 N$鶯1
mul <$str(N$һħ)> <$str(N$鶯)>
m.HumanHP - <$str(N$һħ)>
m.HumanHP - <$str(N$һħ)>
;SENDMSG 6  һ𽣷鶯()<$str(N$һħ)>˺  ˫һ


#if
CHECKSKILL һ𽣷 = 1 1
CHECKSKILL 鶯() = 2
#act
mov N$һħ <$MAXMC>
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  1200
div N$鶯1 <$str(N$鶯mp)>
div N$鶯 10
div N$һħ 5
inc N$鶯 <$str(N$鶯mp)>
inc N$鶯 N$鶯1
mul <$str(N$һħ)> <$str(N$鶯)>
m.HumanHP - <$str(N$һħ)>
m.HumanHP - <$str(N$һħ)>
;SENDMSG 6  һ𽣷鶯()<$str(N$һħ)>˺  ˫һ

#if
CHECKSKILL һ𽣷 = 1 1
CHECKSKILL 鶯() = 3
#act
mov N$һħ <$MAXMC>
mov N$鶯mp <$MAXMP>
mov N$鶯 <$PKPOWER>
div N$鶯mp  1200
div N$鶯1 <$str(N$鶯mp)>
div N$鶯 7
div N$һħ 5
inc N$鶯 <$str(N$鶯mp)>
inc N$鶯 N$鶯1
mul <$str(N$һħ)> <$str(N$鶯)>
m.HumanHP - <$str(N$һħ)>
m.HumanHP - <$str(N$һħ)>
;SENDMSG 6  һ𽣷鶯()<$str(N$һħ)>˺  ˫һ




}