と思ってましたが普通に修正できました…。∧‖∧
if not Skill[j].Data.Job[Job] then begin
を
if (not Skill[j].Data.Job[Job]) and (not DisableSkillLimit) then begin
にすることで上書きは防げます。
for i := 0 to 2 do begin
MemoMap[i] := '';
MemoPoint[i].X := 0;
MemoPoint[i].Y := 0;
end;
end;
+{アイテム製造関係追加}
+if ID < 100001 then ID := ID + 100001;
+{アイテム製造関係追加}
if ID >= NowCharaID then NowCharaID := ID + 1;
end else if Copy(str, 1, 7) = 'refine ' then begin 以下の
if (tc.Item[i].ID <> 0) and (tc.Item[i].Amount <> 0) and tc.Item[i].Data.IEquip and
(tc.Item[i].Equip <> 0) and (tc.Item[i].Card[0] <> $00ff) then begin
BaseNextEXP := ExpTable[0][BaseLV];
if Job = 0 then i := 0
else if Job < 7 then i := 1
else i := 2;
JobNextEXP := ExpTable[i][JobLV];
という部分がありますが
ここで
ノービスはbaseEXPテーブルを
1次職はノービスのJobEXPテーブルを
2次職は1次職のJobEXPテーブルを読みこんでしまっているようです
解決するには
BaseNextEXP := ExpTable[0][BaseLV];
if Job = 0 then i := 1
else if Job < 7 then i := 2
else i := 3;
JobNextEXP := ExpTable[i][JobLV];
とjobに応じて与えられているiの値を全部+1すればOKです
>>499
prontera.gat,150,89,6 script 案内要員 105,{
mes "[案内要員]";
mes "inputのテストを行います";
input @test;
mes "[案内要員]";
mes "入力された数値は$[@test]です。";
set Zeny = @test;
mes "所持金を$[@test]Zenyにしました。";
close;
}
今これで試してみたところ、うまく動作したのですが・・・どうでしょうか？
うまくいかないスクリプトがあれば、それを掲示してもらえると
原因追及が簡単になります。
お困りの時はスクリプトの掲載をお願いします〜<(_ _)>
