Delphiでアクションゲームが作りたい！！

>>229-230
とりあえずsin関数で正弦波発生させてwaveOut系のAPIに流せば？
一応「ぽーーーーー」ていう音叉みたいな音が出せるよ。
いわゆる「ぴーーーーー」っていう電子音は方形波の音に近いと思われ。
さらにFFT処理とかすると面白いけど、まぁ難しいんで割愛。

ゲーム作るんならDirectSound使ったほうがいいのかな？
漏れゲームは作った事無いからDirectX知らないんだな・・・

232 ：226：02/06/05 11:29

230>>
231>>
なるほど
ありがちょう
正弦波つくってwaveoutでやってみます
ごいけんさんくすこ

233 ：デフォルトの名無しさん：02/06/05 14:59

まぁ、squareと各種パラメータを駆使すればなんとか・・・。
激しく機種依存だけど。

234 ：デフォルトの名無しさん：02/06/06 15:59

あｇ３え

235 ：藪から棒：02/06/06 17:14

今さらVB.NET（VB6ユーザも）やるくらいならC#ですね。
でも今までVBで適当なプログラム書いていた人は性根入れ直してからにしないと。

236 ：デフォルトの名無しさん：02/06/06 23:14

初めて簡単なゲームを作ろうと思い、まず背景を白くしようと思ったのですが、
Form1のpaintイベントで

with Canvas do
begin
　Brush.Color := clWhite;
　FillRect(0, 0, Form1.ClientWidth, Form1.ClientHeight);
end;

ってやったらダメなんすけど、何でですか？
FillRectって引数がTRectでもInteger * 4でオーバーロードしてると思うんですが…。

237 ：当たって砕けろ：02/06/07 00:00

ボタンをクリックするだけの、ＲＰＧ風擬似戦闘ver１ができました！
でも内容的に見て戦闘にすらなってない罠。鬱。
これをもとにいろいろコマンドとか増やしてみよう・・・。

238 ：デフォルトの名無しさん：02/06/07 00:13

>>236
with Canvas do begin
　Brush.Color := clWhite;
　FillRect(Rect(0, 0, ClientWidth, ClientHeight));
end;

で出来たが、、、

＞FillRectって引数がTRectでもInteger * 4でオーバーロードしてると思うんですが…。
Pascalではこーゆーいーかげんな事は許されません。
それが面倒と感じるか、律儀とかんじるかは貴方次第。

あと"Form1"ってのはDelphiが便宜上使ってるグローバル変数なんで、余程の事が
無い限り直接参照する必要は無い。
どうせPaintイベントハンドラもTForm1のクラスメソッドなんだから、何も書かな
けりゃ、そのTForm1のインスタンスの ClientWidth が参照される。

>>237
がむばれ！！鬱！

239 ：デフォルトの名無しさん：02/06/07 00:23

>>238
サンクス。
＞FillRectって引数がTRectでもInteger * 4でオーバーロードしてると思うんですが…。
どこにも書いてなかった、誤爆スマソ！

最初はClientHeightとかだけにしてたんだけど、それでできなかったからForm1付けてみたんだよねー。

240 ：デフォルトの名無しさん：02/06/07 00:31

>>239
＞最初はClientHeightとかだけにしてたんだけど、それでできなかったからForm1付けてみたんだよねー。
なるほど。
でも明示的に、「そのフォームのClientHeightが使いたい！」と書くなら、
Self.ClientHeight
って書くべきですな。

あれ、でもWith do ... の中でSelf使うとCanvasと誤認されて、
「ClientHeightなんてproperty無ぇぞｺﾞﾙｧ」ってコンパイラエラーでるかも。

var
　Form: TForm1;
begin
　Form := Self;
　with Canvas do begin
　　Brush.Color := clWhite;
　　FillRect(Rect(0, 0, Form.ClientWidth, Form.ClientHeight));
　end;
end;

って書くのが一番正当なやりかたなのかな？

241 ：デフォルトの名無しさん：02/06/07 00:48

>>240
そのメソッドをそのクラスでしか使わないから、「Form1.ClientWidth」でいいかなと思いまして。←言い訳かも…(;´Д｀)
Selfってオブジェクトしか参照しないのでは？
だからわざわざクラス型変数Formは使わなくて良いのでは？

ゲーム作るっていっても、何から勉強していいのかわからないなぁ。
とりあえずTCanvasとTStreemをまず勉強しようと思ってますが…。

242 ：デフォルトの名無しさん：02/06/07 01:02

>>241
んー、まぁTForm1のインスタンスを2個以上作るってことは多分無いと
思うから、99.99％それで問題はないんだけど・・・
（もちろん2個以上のインスタンスを作りうる場合だと大問題！）
ま、教科書通り厳密にやるか、スッキリしたソースがいいか、のトレードオフですな。

＞Selfってオブジェクトしか参照しないのでは？
TObject-TPersistent-TComponent-TControl-TWinControl-TScrollingWinControl-TCustonForm-TForm-TForm1
ってな具合で継承してるので、TForm1も元を辿ればTObject型、もちろんSelfも使えます。

＞TStreem
一応TStreamといっておく。

243 ：デフォルトの名無しさん：02/06/07 01:23

>>241
言い方おかしかったですかね？
Selfにはそれの属するメソッド(今回の場合Form1のpaintイベント)を使用したオブジェクトが参照されるから、
with do...の中でCanvasと誤認することは有り得ないのでは？
ってことだったんですが。

スペル間違えてましたか。
なかなかTStreamが難しくて困ってるんですよね。

>>237
もうRPG作ってるんですか、早いですね。
どんなことから勉強はじめましたか？
参考に教えてもらいたいのですが。

244 ：デフォルトの名無しさん：02/06/07 01:28

>>243
がーーーーーーーーーーーーーーーーーーん。

今までずっとSelfって、TObject型の読み出し専用プロパティで、
そのインスタンスのアドレスを指すものだと思ってた。。。。。

今ヘルプ引いてみたら・・・・違ってるやん。

今晩はLANケーブルで首吊って寝ます。

245 ：当たって砕けろ：02/06/07 02:55

>>243
いや、RPG作ってるわけじゃないです。そんな高度なことできません。鬱。
ただ攻撃ボタン置いたりEditに文章表示させるだけです。鬱。

＞どんなことから
変数からやりました・・・。
ひとまずこれだけは押さえておこうと思い。

246 ：デフォルトの名無しさん：02/06/07 03:35

>>245
そうでしたか。
俺もゲーム作りたいのでお互い頑張りましょう。

マジで何からやればいいんじゃー！？( T▽T)

247 ：無責任だが：02/06/07 11:54

ShellLinkの件、もしかして VB のようにやりたいという事なら
procedure TForm1.Button1Click(Sender: TObject);
var guid:TGUID;
var objShell : OLEVariant;
var objFolder : OLEVariant;
var objFolderItems: OLEVariant;
var objFolderItem : OLEVariant;
var lk:OLEVariant;
var LNKpath,LNKname:WideString;
begin
LNKpath:='C:\Documents and Settings\Administrator\SendTo';
LNKname:='K2Grep.LNK';
guid:=ProgIDToClassID('Shell.Application');
objShell := CreateComObject(guid) as IDispatch;
objFolder := objShell.NameSpace( OLEVariant(LNKpath)) ;
objFolderItems:= objFolder.Items ;
objFolderItem := objFolderItems.Item(OLEVariant(LNKname));
lk:= objFolderItem.GetLink;
Caption:=lk.Path;
end;

とOleVariantを使って IShellLinkではなくShellLinkObjectを使えばいいのでは？

IDispatchでは遅いという事なら、 ActiveXの取り込みで Shell32.dll を取り込んでおいて

procedure TForm1.Button2Click(Sender: TObject);
var guid:TGUID;
var objShell : IShellDispatch;
var objFolder : Folder;
var objFolderItem: FolderItem;
var lk:IShellLinkDual2 ;
var path,LNKname:WideString;
begin
path:='C:\Documents and Settings\Administrator\SendTo';
LNKname:='K2Grep.LNK';
guid:=ProgIDToClassID('Shell.Application');
objShell := CreateComObject(guid) as IShellDispatch ;
objFolder := objShell.NameSpace(path);
objFolderItem:=(objFolder.Items as FolderItems).Item(LNKname);
lk:= objFolderItem.GetLink as IShellLinkDual2;
Caption:=lk.Path;
end;
とすれば、良いと思う

248 ：無責任だが：02/06/07 11:56

あっとゴメン　ミス

249 ：当たって砕けろ：02/06/15 20:41

方向キーでImageに画像出してTopとLeftの値をいじって動かしてます。鬱。
こ、これがゲームへの第一歩なのかあぁあ？！鬱！

250 ：デフォルトの名無しさん：02/06/16 01:39

>>249
勿論本格的なゲームなら、描画速度とかいろいろ問題になるかも知れんけど
第一歩としてはそれでいいんじゃない。

DirectX使わなきゃ駄目なんだー、なんて思い込んでるといつまでたっても
完成しないからね。
その方法で出来るところまでやってみて、描画速度がボトルネックになってるな、
と感じたらそこを改良して、そのうちソースがぐちゃぐちゃになって、鬱になって
最初から書き直して・・・

そんなこと繰り返してる間に上達して、ゲームも完成していくよ。
ガムバレ、鬱！！！

251 ：デフォルトの名無しさん：02/06/16 05:24

貴様ら！ブロック崩し作るので見てください
http://pc.2ch.net/test/read.cgi/tech/1004855513/
を参考に（上記スレはVBだが）、Delphiでブロック崩し頑張って作ってたりする。
ちなみに、Delphi使い始めて２週間程度。

とりあえず今はブロックを表示して、ボールがパドルと壁で跳ね返るとこ。
DrawRectでブロック、Shapeで玉＋パドルのｼｮﾎﾞｰﾝなグラフィックだけど。
お互い頑張りませう＞同士

252 ：デフォルトの名無しさん：02/06/24 15:17