と思ってましたが普通に修正できました…。∧‖∧
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