仿盛大传奇世界内外元神加属脚本

以下脚本加在元神登陆的时候，
用主体触发以下脚本。

[@PNEUMALogin] PNEUMA
#IF
CHECKLEVELEX > 0
#ACT
$PNEUMANAME.GOTO @外现加属性
BREAK

[@外现加属性]
#CALL [游戏功能元神加属.txt] @元神加属

[@元神加属]
{

#IF
HasPneuma 2
#ACT
#ELSEACT
SetAdditionalAbil 18 = 0
SetAdditionalAbil 19 = 0
SetAdditionalAbil 20 = 0
break
#IF
LARGE $INTROVERTAMBITKIND 2
SMALL $INTROVERTAMBITKIND 5
#ACT
MOV P33 7
#IF
LARGE $INTROVERTAMBITKIND 4
SMALL $INTROVERTAMBITKIND 7
#ACT
MOV P33 6
#IF
LARGE $INTROVERTAMBITKIND 6
#ACT
MOV P33 5
#IF
SMALL $INTROVERTAMBITKIND 3
SMALL $INTROVERTAMBITLEVEL 9
#ACT
MOV P33 4
#IF
SMALL $INTROVERTAMBITKIND 3
SMALL $INTROVERTAMBITLEVEL 6
#ACT
MOV P33 3
#IF
SMALL $INTROVERTAMBITKIND 3
SMALL $INTROVERTAMBITLEVEL 3
#ACT
MOV P33 2
#IF
SMALL $INTROVERTAMBITKIND 3
SMALL $INTROVERTAMBITLEVEL 1
#ACT
MOV P33 1
#IF
EQUAL $INTROVERTJOB 战士
#ACT
MOV P34 48
MOV P35 $STR(P33)
MULT P35 10
INC P34 $STR(P35)
SetAdditionalAbil 18 = $STR(P34)
SetAdditionalAbil 19 = 0
SetAdditionalAbil 20 = 0
break
#IF
EQUAL $INTROVERTJOB 道士
SMALL P33 5
#ACT
MOV P34 38
MOV P35 $STR(P33)
MULT P35 10
INC P34 $STR(P35)
SetAdditionalAbil 18 = $STR(P34)
SetAdditionalAbil 19 = 0
SetAdditionalAbil 20 = 3
break
#IF
EQUAL $INTROVERTJOB 道士
LARGE P33 4
#ACT
MOV P34 38
MOV P35 $STR(P33)
MULT P35 10
INC P34 $STR(P35)
SetAdditionalAbil 18 = $STR(P34)
SetAdditionalAbil 19 = 0
SetAdditionalAbil 20 = 4
break
#IF
EQUAL $INTROVERTJOB 法师
SMALL P33 5
#ACT
SetAdditionalAbil 18 = 0
SetAdditionalAbil 19 = 0
SetAdditionalAbil 20 = 3
break
#IF
EQUAL $INTROVERTJOB 法师
LARGE P33 4
#ACT
SetAdditionalAbil 18 = 0
SetAdditionalAbil 19 = 0
SetAdditionalAbil 20 = 4
break

}