【Weiss】技術的なスレ

143：茜：2003/04/11(金) 04:16 ID:6fkOkvNY: >>141
好ヽ(´ー｀)ノ

□［茜］デバッグコマンドに Zeny 増減機能と髪型・髪色変更機能を追加します
================================================================================
■コードベース: α0x0016
■最終更新日時: 2003-04-11 00:09

　#zeny <数値>: Zeny を数値分増減
　#hair <数値>: 髪型変更（0-20）
　#hcolor <数値>: 髪色変更（0-8）

行頭 + その行を追加
行頭 - その行を削除
行頭その他元々存在する行（この行近傍にパッチしてください）
================================================================================
Game.pas
--------
■procedure sv3PacketProcess(Socket: TCustomWinSocket);
//------------------------------------------------------------------------------
end else if Copy(str, 1, 5) = 'unit ' then begin
//スキル効能地表示テスト
Val(Copy(str, 6, 256), j, k);
if (k <> 0) or (j < 0) or (j > 999) then continue;
SetSkillUnit(tm, tc.PID, Point(tc.Point.X + 1, tc.Point.Y - 1), timeGetTime(), j, 1, 10000);
+end else if Copy(str, 1, 5) = 'zeny ' then begin
+//zeny
+Val(Copy(str, 6, 256), i, k);
+if (k = 0) and (i<=10000000) and (tc.Zeny+i>0) then begin
+tc.Zeny := tc.Zeny + i;
+end;
+if (tc.Zeny > 999999999) then tc.Zeny := 999999999;
+WFIFOW(0, $00b1);
+WFIFOW(2, $0014);
+WFIFOL(4, tc.Zeny);
+Socket.SendBuf(buf, 8);
+end else if Copy(str, 1, 5) = 'hair 'then begin
+//髪型
+Val(Copy(str, 6, 256), i, k);
+if (k = 0) and (i>=0) and (i<=20) then begin
+tc.Hair:= i;
+WFIFOW(0, $00c3);
+WFIFOL(2, tc.PID);
+WFIFOB(6, 1);
+WFIFOB(7, i);
+SendBCmd(tm, tc.Point, 8);
+end;
+end else if Copy(str, 1, 7) = 'hcolor 'then begin
+//髪色
+Val(Copy(str, 8, 256), i, k);
+if (k = 0) and (i>=0) and (i<=8) then begin
+tc.HairColor:= i;
+WFIFOW(0, $00c3);
+WFIFOL(2, tc.PID);
+WFIFOB(6, 6);
+WFIFOB(7, i);
+SendBCmd(tm, tc.Point, 8);
+end;
+end;
//------------------------------------------------------------------------------

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）