レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。
【初心者】はじめてのWeiss
-
BaseEXP := BaseEXP + ts.Data.EXP * BaseExpMultiplier;
while BaseEXP >= BaseNextEXP do begin
//ベースレベルアップ
StatusPoint := StatusPoint + BaseLV div 5 + 3;
Inc(BaseLV);
BaseEXP := BaseEXP - BaseNextEXP;
BaseNextEXP := ExpTable[0][BaseLV];
SendCStat1(tc, 0, $000b, BaseLV);
SendCStat1(tc, 0, $0009, StatusPoint);
//修正
HP := MaxHP;
SP := MaxSP;
WFIFOW( 0, $019b);
WFIFOL( 2, PID);
WFIFOL( 6, 0);
SendBCmd(tm, Point, 10);
SendCStat(tc);
end;
SendCStat1(tc, 1, $0001, BaseEXP);
JobEXP := JobEXP + ts.Data.JEXP * JobExpMultiplier;
while JobEXP >= JobNextEXP do begin
//ジョブレベルアップ
Inc(SkillPoint);
Inc(JobLV);
JobEXP := JobEXP - JobNextEXP;
JobNextEXP := ExpTable[(Job + 5) div 6 + 1][JobLV];
SendCStat1(tc, 0, $0037, JobLV);
SendCStat1(tc, 0, $000c, SkillPoint);
WFIFOW( 0, $019b);
WFIFOL( 2, PID);
WFIFOL( 6, 1);
SendBCmd(tm, Point, 10);
SendCStat(tc);
end;
SendCStat1(tc, 1, $0002, JobEXP);
レベルアップのコードをコレに書き換えると便利だったり。
Pascalあまり勉強して無いので間違ってたらすまん。
掲示板管理者へ連絡
無料レンタル掲示板
