レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

【初心者】はじめてのWeiss

94：Cross：2003/03/10(月) 03:47 ID:FDZ27sDE: 爆レスの為、2分割にします。
その2

むぅー、なんかソースコード、変な所弄られてんだけど、、。

正式

ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
ini.ReadSectionValues('Server', sl);
ini.Free;

sl1 := TStringList.Create;
sl1.Delimiter := '.';
sl1.DelimitedText := sl.Values['IP'];
if sl1.Count = 4 then begin
ServerIP := inet_addr(PChar(sl.Values['IP']));
end else begin
ServerIP := inet_addr('127.0.0.1');
//ServerIP := $0100007f;
end;
if sl.IndexOfName('Name') <> -1 then begin
ServerName := sl.Values['Name'];
end else begin
ServerName := 'weiss';
end;
if sl.IndexOfName('NPCID') <> -1 then begin
NowNPCID := StrToInt(sl.Values['NPCID']);
end else begin
NowNPCID := 50000;
end;
if sl.IndexOfName('sv2port') <> -1 then begin
sv2port := StrToInt(sl.Values['sv2port']);
end else begin
sv2port := 6121;
end;
sv2.Port := sv2port;
if sl.IndexOfName('sv3port') <> -1 then begin
sv3port := StrToInt(sl.Values['sv3port']);
end else begin
sv3port := 5121;
end;
sv3.Port := sv3port;
if sl.IndexOfName('WarpDebug') <> -1 then begin
WarpDebugFlag := StrToBool(sl.Values['WarpDebug']);
end else begin
WarpDebugFlag := false;
end;

if sl.IndexOfName('BaseExpMultiplier') <> -1 then begin
BaseExpMultiplier := StrToInt(sl.Values['BaseExpMultiplier']);
end else begin
BaseExpMultiplier := 1;
end;

if sl.IndexOfName('JobExpMultiplier') <> -1 then begin
JobExpMultiplier := StrToInt(sl.Values['JobExpMultiplier']);
end else begin
JobExpMultiplier := 1;
end;

今回#0093 で訂正されたWeiss

ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
ini.ReadSectionValues('Server', sl);
ini.Free;

sl1 := TStringList.Create;
sl1.Delimiter := '.';
sl1.DelimitedText := sl.Values['IP'];
if sl1.Count = 4 then begin
ServerIP := inet_addr(PChar(sl.Values['IP']));
end else begin
ServerIP := inet_addr('127.0.0.1');
//ServerIP := $0100007f;
end;
if sl.IndexOfName('Name') <> -1 then begin
ServerName := sl.Values['Name'];
end else begin
ServerName := 'weiss';
end;
if sl.IndexOfName('NPCID') <> -1 then begin
NowNPCID := StrToInt(sl.Values['NPCID']);
end else begin
NowNPCID := 50000;
end;
if sl.IndexOfName('sv2port') <> -1 then begin
sv2port := StrToInt(sl.Values['sv2port']);
end else begin
sv2port := 6121;
end;
sv2.Port := sv2port;
if sl.IndexOfName('sv3port') <> -1 then begin
sv3port := StrToInt(sl.Values['sv3port']);
end else begin
sv3port := 5121;
end;
sv3.Port := sv3port;
if sl.IndexOfName('WarpDebug') <> -1 then begin
WarpDebugFlag := StrToBool(sl.Values['WarpDebug']);
end else begin
WarpDebugFlag := false;
end;

、、、って、ソースコードって上げても良いんだろうか（汗
ダメだったら削除御願いします。
えーっと、プログラミングなんて全然分からないと言う人でも
明らかに弄られてるのがお分かりでしょうかね。
WeissはWeiss.iniファイルが無くても動くように設計されています。
が、今回修正された物は何故か必要のなさそうな部分が弄られてる。
、、、謎だ。
そして眠いから寝るね。ｗ

掲示板管理者へ連絡無料レンタル掲示板