1 .@r

2 =

3 getrefine();

4 bonus

5 bMaxHPrate,.@r/2;

6 bonus

7 bMaxSPrate,.@r/2;

8 bonus

9 bAgi,5;

10 bonus

11 bFlee,10;

12 if

13 (readparam(bStr)

14 =90)

15 bonus

16 bBaseAtk,10+(.@r*2);

17 if

18 (readparam(bInt)

19 =90)

20 bonus

21 bMatk,20+(.@r*3);

22 if

23 (readparam(bVit)

24 =90)

25 bonus2

26 bSubEle,Ele_Neutral,3+((.@r

27 =8)?3:0)+((.@r

28 =10)?4:0);

29 if

30 (readparam(bAgi)

31 =90)

32 {

33 bonus

34 bAspdRate,3+(.@r/2);

35 bonus

36 bAspd,((.@r

37 =10)?1:0);

38 }

39 if

40 (readparam(bDex)

41 =90)

42 bonus

43 bLongAtkRate,3+(.@r/2);

44 if

45 (readparam(bLuk)

46 =90)

47 bonus

48 bCritAtkRate,5+.@r;