1 .@r

2 =

3 getrefine();

4 bonus

5 bMatk,(.@r/2)*20;

6 if

7 (.@r

8 6)

9 {

10 bonus

11 bVariableCastrate,-10;

12 }

13 if

14 (.@r

15 8)

16 {

17 bonus2

18 bMagicAtkEle,Ele_Dark,10;

19 bonus2

20 bMagicAtkEle,Ele_Neutral,10;

21 }

22 if

23 (.@r

24 10)

25 {

26 bonus2

27 bMagicAtkEle,Ele_Water,10;

28 bonus2

29 bMagicAtkEle,Ele_Wind,10;

30 bonus2

31 bMagicAtkEle,Ele_Earth,10;

32 bonus2

33 bMagicAtkEle,Ele_Fire,10;

34 }

35 .@val

36 =

37 max(min(.@r-15,5),0);

38 bonus

39 bFixedCast,-.@val*100;