ドラゴンクエストクローンを作ろう (746ﾚｽ)
上下前次1-新
17: 名前は開発中のものです。 [sage] 03/03/03 06:34 ID:h+n9vPOr(1) AAS
作って君を叩きたいだけだと思われ
18: 名前は開発中のものです。 [sage] 03/03/03 06:57 ID:CO+b/7tl(1) AAS
ここはソースと有用なツールをうｐしてる。マターリヲチ推奨。

外部ﾘﾝｸ:www.zero-city.com
19(1): 名前は開発中のものです。 [sage] 03/03/03 07:04 ID:pxhSxl9y(1/3) AAS
>>15
15(2): 名前は開発中のものです。 [sage] 03/03/03 03:43 ID:AHGPsQLD(1) AAS
>>14
やりたいんじゃなくて作りたいやつのスレだろ？

どうせサイト醸すならこっちの製作日記のほうがなんぼか参考になるかも。
外部ﾘﾝｸ[html]:mydq.moo.jp

しかし荒れつつもなんだかんだいって進んでるとこみると、みんなドラクエ作りたいんだな？
DirectDrawでのTCanvasの使い方がなっていない。
WindowsAPIを使うなどとは・・・。
以下のようなクラスを作って

interface
uses
　　Windows, Graphics, DirectX;
type
　　TDirectDrawCanvas = class(TCanvas)
　　protected
　　　　FSurface: IDirectDrawSurface;
　　　　FDeviceContext: HDC;
　　　　FEnabled: Boolean;
　　　　procedure CreateHandle; override;
　　public
　　　　constructor Create(ASurface: IDirectDrawSurface);
　　　　destructor Destroy; override;

　　　　procedure Release;
　　　　property Enabled: Boolean read FEnabled;
　　end;

implementation
20(1): 名前は開発中のものです。 [sage] 03/03/03 07:05 ID:pxhSxl9y(2/3) AAS
開業多すぎうざい。連投規制に引っかかるかも知れんので続きは後になるかも
{ TDirectDrawCanvas }
constructor TDirectDrawCanvas.Create(ASurface: IDirectDrawSurface);
begin
　　inherited Create;
　　FSurface := ASurface;
　　FDeviceContext := 0;
　　FEnabled := ASurface.IsLost = DD_OK;
end;

destructor TDirectDrawCanvas.Destroy;
begin
　　Release;
　　inherited;
end;

procedure TDirectDrawCanvas.Release;
begin
　if FDeviceContext <> 0 then begin
　　　　Handle := 0;
　　　　FSurface.ReleaseDC(FDeviceContext);
　　　　FDeviceContext := 0;
　　end;
end;
21(1): 名前は開発中のものです。 [sage] 03/03/03 07:08 ID:pxhSxl9y(3/3) AAS
procedure TDirectDrawCanvas.CreateHandle;
begin
　　if FDeviceContext = 0 then begin
　　　　FEnabled := FSurface.GetDC(FDeviceContext) = DD_OK;
　　　　if FEnabled then
　　　　　　Handle := FDeviceContext
　　　　else begin
　　　　　　Handle := 0;
　　　　　　FDeviceContext := 0;
　　　　end;
　　end;
end;

使い方は
　Canvas := TCanvas.Create(BackBufferSurface);
しておいて
　with Canvas do
　　if Enabled then try
　　　Pen.Style := psSolid;
　　　：
　　finally
　　　Release;
　　end;
22: あぼーん [あぼーん] AAS
あぼーん
23: 名前は開発中のものです。 [sage] 03/03/03 23:45 ID:2h+FJ0rv(1) AAS
>>19-21
本人にも言ってやれよ(w
そもそもDelphiだからってTCanvasを無理に使う必要ないし
ゲームなんだからWinAPI使ってオーバーヘッドを少しでもなくすのも
選択肢の１つじゃないかな？
24: あぼーん [あぼーん] AAS
あぼーん
25: あぼーん [あぼーん] AAS
あぼーん
26: あぼーん [あぼーん] AAS
あぼーん
27: あぼーん [あぼーん] AAS
あぼーん
28: 名前は開発中のものです。 [sage] 03/03/04 20:03 ID:aKVw+q7w(1) AAS
つーかクローンってなんなの
29: 名前は開発中のものです。 [sage] 03/03/04 22:01 ID:rgrVPnjf(1) AAS
香港の・・・
30: 名前は開発中のものです。 [sage] 03/03/05 00:36 ID:RStZurod(1) AAS
くーｒ
31: あぼーん [あぼーん] AAS
あぼーん
32: あぼーん [あぼーん] AAS
あぼーん
33: あぼーん [あぼーん] AAS
あぼーん
34(1): 名前は開発中のものです。 [sage] 03/03/06 07:13 ID:zT4gLugk(1) AAS
初代ＤＱのヒット以来、クローンだらけなんだが。
また作るの？
35: あぼーん [あぼーん] AAS
あぼーん
36: 名前は開発中のものです。 [sage] 03/03/06 18:03 ID:D1A7isFA(1) AAS
>>34
クローンつっても劣化しすぎてるからな。
37: 名前は開発中のものです。 [] 03/03/06 22:26 ID:yK27jEHl(1) AAS
￣￣￣￣￣￣￣○￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　O 。
　　　　　　　　　　　　　　　　 , ─ヽ
＿＿＿＿＿＿＿＿　　　　/,/＼ヾ＼ 　　／￣￣￣￣￣￣￣￣￣
|＿＿|＿＿|＿＿|＿　　 __（（´∀｀＼　）＜　と、言うと>>1
1(10): dq [] 03/03/01 02:44 ID:A/IG49Gl(1) AAS
ドラゴンクエストクローンを作ろう
は逃げたのサ
|＿|＿＿|＿＿|＿＿　／ノへゝ/''' 　)ヽ　　＼＿＿＿＿＿＿＿＿＿
||＿＿|　　　　　　　 | | ＼´-｀）　/　丿/
|＿|＿|　从.从从　　| ＼__￣￣⊂|丿/
|＿＿|| 从人人从.　|　/＼＿＿/::::::|||
|＿|＿|／//ヽヾ＼　 /　　　::::::::::::ゝ/||
────────(~〜ヽ::::::::::::|／　　　　　　　　＝ age ＝
38: あぼーん [あぼーん] AAS
あぼーん
39: あぼーん [あぼーん] AAS
あぼーん
40: あぼーん [あぼーん] AAS
あぼーん
41: あぼーん [あぼーん] AAS
あぼーん
上下前次1-新書関写板覧索設栞歴
あと 705 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.022s