トップページ⇒tech
252コメント71KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
Delphiでアクションゲームが作りたいんです。
初心者でもわかるように1から説明してください。
ネタじゃないです!!
0002デフォルトの名無しさんNGNG
2
0003デフォルトの名無しさんNGNG
ネタつくりと素材つくり（音楽　絵）頑張れ
0004デフォルトの名無しさんNGNG
何故、お前なんかにわざわざ手間をかけて、1 から説明しなければ
ならないんだい？
0005デフォルトの名無しさんNGNG
>>4
おながいしますよ。どうせ暇なんでしょ。
4000も出して本買ったけど、ゲームに結びつくようなことは何もかかれてなかった。
0006デフォルトの名無しさんNGNG
ダイレクトＸをダウンロードしる。
パソコンに合わない可能性も高いが。
0007デフォルトの名無しさんNGNG
とりあえず、ファミコンのマリオみたいなゲーム作りたいです。
0008デフォルトの名無しさんNGNG
>>1
ちょっとは自分で考えろよ。
0009デフォルトの名無しさんNGNG
たしか「DelphiでWindowsゲームを作ろう」ってそのものずばりっぽい
本があったと思う。
それ買えば？
0010デフォルトの名無しさんNGNG
>>7
じゃあまずはAボタン押したら■がジャンプするプログラムでも作っとけ。
0011デフォルトの名無しさんNGNG
よし。じゃまず、方眼紙買ってこい。
0012デフォルトの名無しさんNGNG
ゲーム製作技術板へ行って下さい。
0013デフォルトの名無しさんNGNG
>>10
そういう時はどのコンポーネントを使えばいいのですか？
0014デフォルトの名無しさんNGNG
>>13
脳みそ付いてますか？
0015Delフサギコ ◆zE1iiRdQ NGNG
　　 ∧,,∧　 　
　　,ミ;ﾟДﾟ彡　ドット疲れますた。
　 ﾐ　　∪　　
　ﾐ〜,,　ﾐ
　 ∪ ∪
0016デフォルトの名無しさんNGNG
>>14
付いてますけど、どうすればいいかわからないです。
0017デフォルトの名無しさんNGNG
>>16
とりあえず、sageを覚えて、ゲーム作りは一旦あきらめて
Delphiの腕を磨いてきてください。
0018デフォルトの名無しさんNGNG
>>16
物理は知ってますか
0019デフォルトの名無しさんNGNG
まずは2chの注意書きを読んでからにしてくれ。
0020デフォルトの名無しさんNGNG
Sage
0021デフォルトの名無しさんNGNG
フォームに　■　を描くプログラムからはじめたほうがよさそう
0022１NGNG
もうちょっと待ってて
0023デフォルトの名無しさんNGNG
　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　／￣＞
　　　　　　　　　　　　　　　　　　　　　　　　　　厨なニオイがするでござる　　＞　 　|ﾟUﾟヽ|／
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　／　ｙ⊂)〜　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 　 　 　 　　U〉　 ⌒l　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／（__ノ ~Ｕ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　　／""""""""""""""""　　


0024デフォルトの名無しさんNGNG
ズレタ・・・・鬱
0025デフォルトの名無しさんNGNG
>>22
あげるなって
0026デフォルトの名無しさんNGNG
ゲームを作る
まずプログラムを勉強する（ゲームのゲの字も出てこない）
自分の作るゲームに必要そうな技術を勉強する（DirectXとか（むずい））
ゲームのネタを考える
そのゲームに必要な素材を揃える（絵　音）
やっとゲームのプログラムを作ろう。
くらいの流れでいこう。道のりは果てしなく長い　多分くじけるくらい長い。
0027１NGNG
>>25
すみません
0028デフォルトの名無しさんNGNG
とりあえずこのあたりがよろしいかと
http://www-fu.magma.ne.jp/~hayase/dddd/index.html
0029Delフサギコ ◆zE1iiRdQ NGNG
Delphiゲームプログラミング相談室
http://game.2ch.net/test/read.cgi/gamedev/1006249204/l50

　 ∧,,∧　ｺﾞﾙｧ♪
　ミ,,ﾟДﾟ彡　ｺﾞﾙｧ♪
　ﾐつ[|lllll］). 　ｺﾞﾙｧ♪
〜ﾐ　　ﾐ 　　　　ｺﾞﾙｧ♪
　 Ｕ''Ｕ
0030デフォルトの名無しさんNGNG
糞なページよりDelphi→HSPにしろ
0031ほらよNGNG
var ActionGame: TActionGame;
begin
　ActionGame := TMyActionGame.Create;
　try
　　ActionGame.Run;
　finally
　　ActionGame.Free;
　end;
end.
0032１NGNG
わから〜ん。
どうやったらジャンプするの？
0033デフォルトの名無しさんNGNG
だからHSPにしとけって
0034１NGNG
ジャンプのしかたがわから〜ん
http://norisukeup.tripod.com/Project1.zip
0035デフォルトの名無しさんNGNG
最悪マシンがハングした
お前のせいだ
0036１NGNG
>>35
ウソつくなよ！
0037１NGNG
だれかヒントください
■をラベルとして貼り付けて、ボタンを押すとその座標が上に来るようにしたいんですけど、
どうすればいいのかわかりません(>_<)
0038デフォルトの名無しさんNGNG
ジャンプした瞬間から、重力と空気抵抗を考慮して微分方程式をパリパリ計算
させる。そして決定した座標に■描画。

とりあえず「ルンゲクッタ法」で検索かけてみ
0039デフォルトの名無しさんNGNG
ﾙﾝﾀｯﾀ
0040マンゲクッタNGNG
うむ
0041１NGNG
>>38
マジでそんなの考えなきゃいけないんですか？
難しいなぁ。勉強します。
0042デフォルトの名無しさんNGNG
気楽に行こうぜ ﾙﾝﾀｯﾀ
0043１NGNG
>>42
ありがとうございます。頑張ります。
0044デフォルトの名無しさんNGNG
DelphiX
004542@Ð ë á t h ¹³NGNG
　　　　 ／⌒＼　　　　 ／＼
　　　　/'⌒'ヽ　＼ 　.／＼　 |
　　　 （●．●）　）／　　　|:　|
　　　　 >冊/　 .／　　　　 |: /
　　　/⌒　　 ミﾐ　＼　　　〆
　　 /　　　／　|::|λ|　　　 |
　　 |√7ミ　　 |::|　 ﾄ、　　 |
　　 |:／　　　　V＿ハ　　　|
　 ／| i　　　　　　　　 |　∧|∧
　　　и .i　　　　　　Ｎ /⌒ ヽ ）　←>>1
　　　 λﾍ、|　i　.ＮV　 |　 　| |
　　　　　　Ｖ＼Ｗ　　　（ 、　∪
　　　　　　　　　　　　　　|｜ |
　 　　　　　　　　　　　　 ∪∪
0046デフォルトの名無しさんNGNG
DirectX使えば三次元アクションゲームが作れるんじゃにゃいにょ〜
0047デフォさんNGNG
>>41
ドット座標系だから、シンプルな二次関数でいい。
放物線っていうだろ？　頂点の手前でだんだん遅くなる。

0048デフォルトの名無しさんNGNG
ﾈﾀﾆﾏｼﾞﾚｽﾀﾞｻｽｷﾞﾃﾞｽ>>47
0049１NGNG
>>47
なるほど。そういわれりゃそうですね。

>>48
ネタじゃないです。
0050デフォルトの名無しさんNGNG
procedure TForm1.Button1Click(Sender: TObject);
const
n = 300;
var
i: Integer;
begin
for i := -n to n do
Canvas.LineTo(i+n,Height-Round(n-i*i/n));
end;
とりあえずマターリと放物線・・・
0051デフォルトの名無しさんNGNG
デコジャンプなら直線で良いよ。
0052デフォルトの名無しさんNGNG
もうネタのか？
0053名無しヘタぐらま ◆B18Bks.Y NGNG
>>37
ボタンというのはキーボードのキーのことでいいのかな？
だったらOnKeyDownイベント．
たとえば「[↑]キーが押されたら…」という場合は
if Key = VK_UP then
というふうに書くよ．
（ほかのキーはDelphiのヘルプで『仮想キーコード』をキーワードに検索してみて．）
ただしラベルにはこのイベントはないからほかの手を考えて．

上か下かはラベルのTopプロパティで決まるよ．
この値をちょっとずつ増やしたり減らしたりすれば上下に動くよ．
どっちに動くかは実際にやってみて確かめてみてくれ．
0054デフォルトの名無しさんNGNG
>>1
板違い。誌ね。
0055デフォルトの名無しさんNGNG
相手をするから構ってくんが増えるのがわからないの？
0056１NGNG
>>53
ありがとうございます。参考になります。

いまだにジャンプができません(汗
皆さんの意見を参考に頑張ります。
0057１NGNG
>>52
ごめんなさい。学校があったもんですから。
0058デフォルトの名無しさんNGNG
age
0059１NGNG
↑のは僕です。
0060デフォルトの名無しさんNGNG
＞１
もうちょっとツールに慣れてから来いや。
>>37の質問はゲーム云々以前の問題だろ。

−−−−−−−−１がDelphi慣れするまで放置−−−−−−−−
0061デフォルトの名無しさんNGNG
>>60
34は見た？
0062デフォルトの名無しさんNGNG
誰かWDirectXの使い方おしえてくれ〜
ttp://go.to/WDirectX
0063デフォルトの名無しさんNGNG
ddddインスコできない。どうすりゃいいの？
0064１NGNG
結局今日もジャンプさせることが出来なかった。頭悪いな、オレ。
だけど、諦めません。ぜってーマリオ作るから。
明日も学校なので寝ます。おやすみなさい。
0065デフォルトの名無しさんNGNG
高校レベルの物理くらい勉強すれば？
これを知ってないとお話にならない。
0066デフォルトの名無しさんNGNG
頭悪い上にあきらめが悪いなんて相当たちが悪いねｗ
0067デフォルトの名無しさんNGNG
Y=Y。*s-1/2(9.8*g*s*s)
X=X。*s
Y。、X。はジャンプするときの上方向、横方向の初速度
Y、Xはジャンプした物体の位置

上の式から座標を計算して…ってこれ位中学で習わなかったっけ？
006865NGNG
>>67
今リアル工房3年。
2年ではじめて物体の運動習ったとこだよ。
中学の理科では力くらいしか習わなかったなぁ。
中学では数学で放物線＝物体の落下運動ってチラッと聞いたくらい。
むろん重力加速度なんて知らなかったし。
0069デフォルトの名無しさんNGNG
加速度なんて消防の頃N88BASIC触ってたら
自然に発見したぞ。
0070デフォルトの名無しさんNGNG
>>69
だよな。
学校で習う前に法則とか知ってたよな。
具体的な数値は違うけど。
0071無責任だがNGNG
interface //　ラベルを1個貼り付けて　そのラベルを動かすコード
uses　Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms, StdCtrls;
type　TMoveItem= record
　　　x,y,vx,vy,ax,ay:double;
　　　obj:TObject;
end;
TForm1 = class(TForm)
　　Label1: TLabel;
　　procedure FormCreate(Sender: TObject);
　private
　　oldTime:DWORD;
　　items:array [0..0] of TMoveItem;
　procedure Idle(Sender: TObject; var Done: Boolean);
　public
　end;
var　Form1: TForm1;
implementation
{$R *.dfm}
var Clip:TRect;
procedure ExecMoveItem(var items:TMoveItem;dt:double);
begin
with items do begin
x:=x+vx*dt; 　　 y:=y+vy*dt;
vx:=vx+ax*dt; vy:=vy+ay*dt;
if (round(x)<Clip.Left　) and (vx<0) then vx:=-vx;
if (round(x)>Clip.Right ) and (vx>0) then vx:=-vx;
if (round(y)<Clip.Top　 ) and (vy<0) then vy:=-vy;
if (round(y)>Clip.Bottom) and (vy>0) then vy:=-vy;
　　　if　 obj is TControl then
　　　with obj as TControl do begin Top:=Round(y);Left:=Round(x);end
else //ここに他のアイテムの動きを増やしてゆく
　　 ;
end;
end;

procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
var t:DWORD; dt:Double; i:Integer;
begin
t:=GetTickCount; dt:=(t-oldTime)/1000.0;oldTime:=t;
if dt>0 then begin
　for i:=0 to High(items) do ExecMoveItem(Items[i],dt);
　end else　　Sleep(33);
Done:= False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin　　Application.OnIdle:=Idle;
oldTime:=GetTickCount;
Clip:=ClientRect;
　 with items[0] do begin
　　obj:=Label1;
　 x:=Label1.Left;
　 y:=Label1.Top;
　 vx:=20;　vy:=-13;
　 ay:=9.8; ax:=0.001;
　 end;
　// ちらつきを減らすなら DoubleBuffered:=True;
end;
end.
007265NGNG
>>69-70
自分専用のPCもらったの工房1年。(;´Д｀)
いちおう放物線を描いて物を飛ばすプログラム作ったけど
係数は1だったから不自然に思えたなぁ。
当時プログラムも覚えたてで
それでいっぱいいっぱいだったし。(;;;´Д｀)
そしてなによりも>>1が加速度とかの類をﾊｯｹｿできるか疑問。(w
0073デフォルトの名無しさんNGNG
俺にもこんな時期があったなぁ（懐
がんばれ、１
0074１NGNG
まだまだ( ﾟДﾟ)
0075１NGNG
うぅ、風邪引いてしまった(T_T)
0076１NGNG
保守上げ
0077デフォルトの名無しさんNGNG
>>65
プログラムなんてしてる暇あったら
勉強しろYO!
0078１NGNG
>>77
マリオが出来あがるまでは集中できないので勉強はしません。
0079デフォルトの名無しさんNGNG
delphiで作られた有名なアクションゲームってある？
008080NGNG
80
0081デフォルトの名無しさんNGNG
>>1　　■に放物線を描かせるやりかたは >>71 で判ったね？

次はキャラクタアクションかな　アイデアはある？ >>1
0082デフォルトの名無しさんNGNG
有名かわしらんけど洋ゲーのファンタジー物であるらしいね。
それよりもここだ
http://www.sulaco.co.za/quake2/
0083デフォルトの名無しさんNGNG
>>1
マジで受験勉強すれ
物理数学英語（化学）の偏差値６０にしてからプログラムの勉強しても遅くないはず

人生棒に振るなよ
0084１NGNG
>>83
受験勉強ってなんのですか？
0085デフォルトの名無しさんNGNG
大学受験のための勉強
0086１NGNG
>>84
マジっすか？今年高校に入学したばっかりなんですけど。
0087デフォルトの名無しさんNGNG
>>1
マジっす！！
って進学校だったら毎日勉強しないとついていけないけどなぁ・・・。
0088１NGNG
いや、俺は半分より上にいれば満足なんで。
0089デフォルトの名無しさんNGNG
受験勉強が必須かどうかはともかくも高校数学ぐらいはデフォで押さえる必要あり。
0090デフォルトの名無しさんNGNG
>>1
高校のレベルはどのくらい？
0091１NGNG
>>90
数学は県でトップですが、県自体レベルが低いんで…鬱
0092デフォルトの名無しさんNGNG
>>1
おお凄い！
頑張って東大に入ってからプログラムやりなさい
0093デフォルトの名無しさんNGNG
>>89
2Dゲーム（マリオ）くらいだったら
中学数学で対応できるけどね
0094１NGNG
>>92
凄くないですよ。都道府県別学力ランキングでビリ争いするような所ですから。
東大なんて120%ムリです。
0095デフォルトの名無しさんNGNG
>>1
今からやれば医学部でも東大でも狙えるぞ
0096デフォルトの名無しさんNGNG
>>1
沖縄？宮城？
0097１NGNG
>>93
ホントですか!?じゃぁ、相当バカですね、俺。

>>95
別に大学は何処でもいいです。東大出ても就職が難しい時代ですから。
0098１NGNG
>>96
違います。民放が２つしかないド田舎です。
0099デフォルトの名無しさんNGNG
どうでもいいが sage でやってくれ。
0100１NGNG
>>99
スミマセン。
100!!!
0101デフォルトの名無しさんNGNG
>>99
なんで？
0102デフォルトの名無しさんNGNG
駄スレだから。
0103デフォルトの名無しさんNGNG
まあ>>1が頑張ってるから良スレになる予感はあるかもしれん。
0104デフォルトの名無しさんNGNG
HSP とか Python/SDL 使ってからでも遅くないと思うんだがなぁ。
HSP なら日本語ドキュメントもあるわけだし。
0105デフォルトの名無しさんNGNG
Ruby!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!/SDL
を強く推奨します。
0106デフォルトの名無しさんNGNG
>>63
ヘルプの「FAQ&Tips」にある「インストール方法、サンプルについて」を読め
0107デフォルトの名無しさんNGNG
>>1
とりあえず、トリップつけてくれ。名前欄に"#英数字"
偽者気取ってても全然バレてないじゃん
0108デフォルトの名無しさんNGNG
DELPHI+DDDD
で簡単にDIRECTX対応ゲーム作れるよ
２Dまでだけど（３Dだったら素直SDKで行ったほうがいい）
0109１ ◆lo8YkeSw NGNG
やっとジャンプできるようになりました。
まだ垂直ジャンプだけですけど(^_^;)

>>107
わかりました。ﾄﾘｯﾌﾟ付けます。

>>108
ddddはインストールはしてるんですけど、
まだ必要ないと思うので（というより使い方がわからない）もうちょっと普通に頑張ってみます。
0110デフォルトの名無しさんNGNG
>>1
今はどんな勉強をしてるの？
0111１ ◆lo8YkeSw NGNG
>>110
高校でですか？
高校では2次関数をやってます。
0112デフォルトの名無しさんNGNG
>>1
いや、デルファイの勉強
データ型とかは解る？
intgerとかstringとか
0113１ ◆lo8YkeSw NGNG
>>112
それは本を買ったんでわかります。
全部は覚えてないんですけど。
0114デフォルトの名無しさんNGNG
>>1
関数の作り方も解りますか？
0115１ ◆lo8YkeSw NGNG
>>114
関数の作り方とはなんですか？
0116デフォルトの名無しさんNGNG
procedureとかfunctionとかです。
0117１ ◆lo8YkeSw NGNG
>>116
i :=a(b.1)とかってするのですよね。いまいち使い方がわかりません。
0118デフォルトの名無しさんNGNG
>>1
procedureは手続きで
functionは関数って事はわかります？
0119デフォルトの名無しさんNGNG
関数の例
function add(a,b:integer) : integer;
var c : integer;
begin
c := a + b;
add := c
end;
0120１ ◆lo8YkeSw NGNG
>>118
あ、それはわかります。
0121デフォルトの名無しさんNGNG
下の世話までしてくれそうなお人好しな奴隷がたくさんきてくれてよかったな>>1
0122デフォルトの名無しさんNGNG
>>1
関数の作り方なんですけど
>>119さんの関数の実装の仕方はわかりますか？
0123１ ◆lo8YkeSw NGNG
>>119
それはaddというInteger型の関数で、パラメータがInteger型のa、bというということですか？
それはどういう時に使うんでしょうか？
0124１ ◆lo8YkeSw NGNG
>>122
あんまりわかんないです（´Д｀；）
0125デフォルトの名無しさんNGNG
>>1
Form1のpublic節の中に
function add(a,b:integer) : integer;
とかいて
implementation節のどっかに
function form1.add(a,b:integer) : integer;
var c : integer;
begin
c := a + b;
add := c
end;
とかけば実装完了です。
0126デフォルトの名無しさんNGNG
>>119
標準Pascal準拠ではないが、result変数使った方がわかりやすいような気がするです。
0127デフォルトの名無しさんNGNG
つうか高1なら数学で関数とは何ぞや、って習ってない？
f(x)=ax^2+bx+c
とか。
あれと一緒だよん。
0128デフォルトの名無しさんNGNG
訂正
function form1.add(a,b:integer) : integer;
↓
function Tform1.add(a,b:integer) : integer;
0129デフォルトの名無しさんNGNG
あ、僕と同じような事考えてるﾊﾞｰﾔな>>1さん発見。
じゃー僕も頑張ってみますか。。。
0130デフォルトの名無しさんNGNG
なんかこのｽﾚも↓みたいな雰囲気の良ｽﾚになるﾖｶｿ。
http://pc.2ch.net/test/read.cgi/tech/1016308148/
0131１ ◆lo8YkeSw NGNG
>>125.128
実装方法はわかったんですけど、それはどういう時に使うものなんですか？

>>127
それは習いました。だけど、それと結びつかない…（´Д｀；）

>>129
いっしょに頑張りましょう。

0132デフォルトの名無しさんNGNG
>>119の関数は使い道ないですけど、実装するとこんな感じ！？
自分で関数作って、プログラム中で使ったりできる？
program cal(input,output);
var x,y : integer;

function add(a,b:integer) : integer;
var c:integer;
begin
c:=a + b;
add := c
end;

begin
write('x='); readln(x);
write('y='); readln(y);
write('x+y=',add(x,y) : 1)
end.
0133デフォルトの名無しさんNGNG
f(x)=ax^2+bx+c
これをDel風に書くと、

function f(x:Integer):Integer;
begin
　result := a*x*x+b*x+c;
end;

a,b,cは適当な整数で置き換えてね。
数学では例えば、
f(x)=3x^2-4x+5
と関数fが定義されてたら f(3)=20 ってなるでしょ。
それと同じで、a=3,b=-4,c=5 でPascalで上の関数を定義すれば、

var
　i: Integer;
begin
　i := f(3);

とやれば変数iに20が代入される。
0134デフォルトの名無しさんNGNG
フォーム上にボタンを置いて
ダブルクリックするとボタンを押したときに動く関数が
コードエディタにでてくるんで
procedure TForm1.Button1Click(Sender: TObject);
begin

end;

そこにButton1.caption := inttostr(add(1,2));
をbeginとend;の間に入れると
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.caption := inttostr(add(1,2));
end;
それをコンパイル＆実行してみてください。
0135１２８NGNG
134書いたの僕です
0136１ ◆lo8YkeSw NGNG
>>132
なるほど。使い方がわかりました。

>>133
おお、とてもわかりやすい説明ありがとうございます。
0137１２８NGNG
もう一回書きます
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
function add(a,b:integer) : integer; //ここでadd関数宣言

end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function TForm1.add(a,b:integer):integer
var
c : integer;
begin
c := a + b;
result := c;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.caption := inttostr(add(1,2));//inttostrはint型のデータをstrings型に直す関数
end;

end.
0138１ ◆lo8YkeSw NGNG
>>134
ボタンの文字がちゃんと"3"に変わりました。
ありがとうございます。疑問が解けました。
0139１ ◆lo8YkeSw NGNG
>>137
何度もありがとうございます。implementation節の中の
begin
c := a + b;
result := c;
end;
についてですが、
begin
add :=a+b
end;
と書いてはいけないのでしょうか？
0140デフォルトの名無しさんNGNG
add(x,y)
の関数でXやYの値をユーザに設定させるにはどうやったら
いいと思う？
0141129 ◆kudVaLnM NGNG
>>1さん
ええ、がんばりましょう。
とりあえず僕は>>53さんのレスを参考にLavelの■を上下左右に動かすことまではできたんで、
次はジャンプさせてみます。。。
0142137NGNG
>>139
add :=a+b
とかいてもイイんですが
最近はresultを使うのが一般的なようです。
cを使ったのは関数内のみで使えるローカル関数の
定義の仕方の参考になればと思いまして付けさせていただきました。
0143137NGNG
修正ローカル関数→ローカル変数
スマソ・・・
0144１ ◆lo8YkeSw NGNG
>>142
そうなんですか。わかりました。
何度もスミマセンでしたm(_ _)m

>>141
頑張ってください（´∀｀　）
0145デフォルトの名無しさんNGNG
>>1
構造体の作り方は解ります？
0146１ ◆lo8YkeSw NGNG
>>145
構造体という言葉自体わかりません（汗
0147デフォルトの名無しさんNGNG
ジャンプを放物線（二次関数）
にしちゃうと現実的な動きになりすぎてつまらなくなりそう。
マリオだって完全な方物運動じゃないし
0148デフォルトの名無しさんNGNG
>>140
まぁ一例だが、Editをフォームにはっつけて、
a := StrToInt(Edit1.Text);
みたいな具合にやればOK。
StrToInt ってのは、その名の通り、文字列を整数に変換する関数。
ただし変換に失敗すると、初心者の恐れる例外が発生する。
間違えてもEditが空白のまま、または変な文字列が入ったまま
ボタンを押さないように。
0149デフォルトの名無しさんNGNG
>>146
関数と同様に構造体も理解しておいた方がいいと思う。
0150デフォルトの名無しさんNGNG
>>146
Pascal風に言うとレコードかな。
type // 型宣言
　T性別=(男,女,中性); // これは列挙型
　T人間=record // これがレコード型(構造体ともいう)
　　名前:String;
　　生年月日:TDateTime;
　　性別:T性別;
　end;
あ、勿論日本語は使えません。

>>148
例外が怖かったら、StrToIntDef という逃げ道もありまっせ、ヒヒヒ。
ま、使い方はヘルプをみてくんな、もし。
0151１ ◆lo8YkeSw NGNG
>>149
そうですか。じゃあ今から勉強します。
0152デフォルトの名無しさんNGNG
つーかさ、関数もわかってないんだから構造体でけでなく相応勉強しないとだめだね
って既出か
0153デフォルトの名無しさんNGNG
関数と構造体と条件分岐とポインタあたりまで
覚えてからゲームを作る事を考えたほうがいいと思う
0154デフォルトの名無しさんNGNG
>>153
んー、でもプログラミングに限らず、なにか物を作るときに
必要な技術を身に付けてから始めようとすると挫折しない？
とりあえず初めて、つまづいたらそれを解決する技術を身に
つけて…の方がいいでしょ。
頑張れ>>1
0155デフォルトの名無しさんNGNG
>>154
それ以前の問題だろ
0156デフォルトの名無しさんNGNG
何かdelphiの入門書一冊でも読んだ方が良いような気が…
0157１ ◆lo8YkeSw NGNG
こういうことですよね？
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

type
TDateRec = record
Year: Integer;
Day: 1..31;
end;
var
Form1: TForm1;var Record1, Record2: TDateRec;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
with Record1 do
begin
Year := 1904;
Day := 16;
label1.Caption := inttostr(year);
label2.Caption := inttostr(day);
end;
end;

end.
0158１ ◆lo8YkeSw NGNG
>>156
入門書は一応「Borland Dlphi6 オフィシャルコースウェア 基礎編」というのを買いました。
0159１ ◆lo8YkeSw NGNG
>>156
dlphi→delphiの間違いです。
0160デフォルトの名無しさんNGNG
>>157
よろしいです。

でも日時を記憶させるには、Delphi標準のTDateTime型(実際はただの実数型)
ってのがあるから、互換性のためにもそっちを使いましょう。
TDateTime型なら、Delphi付属の日時処理に関する多くの関数等が使えて便利
ですよー。2038年問題も無いし。
0161デフォルトの名無しさんNGNG
>>157
型宣言(type xxx=yyy;)や変数宣言(var xxx:yyy;)が連続する場合は、
2回目以降のtype,varは省略できますよ。
定数宣言(const xxx=yyy;)も然り。
0162１ ◆lo8YkeSw NGNG
>>160
あっ、そういえばそんなのありましたね。
ていうか2038年問題とかあるんですか。
0163１ ◆lo8YkeSw NGNG
>>161
そうなんですか。わかりました。今度から省略するようにします。
0164129 ◆kudVaLnM NGNG
今日はもうダメです...
タイマー使ってジャンプを実現しようとしたけど,使い方を忘れてる...
ぅぅ,「はじめてのDelphi」をまた図書館から借りて来よう...
でもスレの流れを見てるとタイマー使わなくても逝けてる？のかな...
皆さんありがとうございました.おやすみなさい...

if スペースキー押す then
for x := -5 to 5 do //0.5秒ごとに実行したい...
begin
y := x*x;
if x < 0 then
Label1.Top := 現在の縦座標 - y
else
Label1.Top := 現在の縦座標 + y;
end;
0165デフォルトの名無しさんNGNG
>>164
タイマーは制度が悪いから
gettickcountかtimegettimeを使った方がいいよ
0166デフォルトの名無しさんNGNG
>>164
　そういうふうに xの関数にしてしまうと、途中で動作を変更しようとした時に苦労するよ

xの関数ではなくて　差分方程式とかDDAとかの手法　つまり　>>71　のようにしないとさ
0167デフォルトの名無しさんNGNG
>>71　のソースから放物線を描く部分を抜き出すと
x:=x+vx*dt; 　　 y:=y+vy*dt;
vx:=vx+ax*dt; vy:=vy+ay*dt;

vx,vyが速度で ax,ayが加速度　加速度一定の条件で　繰り返し実行すると放物線を描く

>>165が言ってるような精度のタイマーは必要ない。なぜならdtの精度は悪くても
　これは線形方程式なので誤差はそれほど溜まらない為

ジャンプさせる時は　
１、ボタンアクションでvyに数字を代入する＝跳ね返ったような跳躍の仕方
２、ボタンを押してる間　xの位置が指定以内という条件で ay:=-5*重力加速度のように
　　逆加速度を代入する

のようにコントロール出来る
0168１29 ◆kudVaLnM NGNG
>>165さん
ヘルプで見当たらないなぁって思ったらAPIだったんですね…
ありがとうございます。
>>166-167さん
詳しい解説ありがとうございます。
差分方程式まではそれとなく知ってますが、DDAはわからないです…
アルゴリズムの本一冊読んで出直して来ます…
0169デフォルトの名無しさんNGNG
相互リンク
http://game.2ch.net/test/read.cgi/gamedev/1013976376/
0170デフォルトの名無しさんNGNG
　>>1
おぉ！初心者ﾊｯｹｿ！
漏れは>>1以上に初心者だが、お互い頑張ろう。
0171１ ◆lo8YkeSw NGNG
今日は、横に移動してるときのジャンプを再現することが出来ましたヽ(´ー｀)ノ

>>168
俺はそんな難しいことしてないです（汗
とりあえず、ジャンプしてるように見えればいいと思ったんで。

>>169
RPGは難しいと思いますが、頑張ってもらいたいですね。

>>170
俺より初心者ってことはないと思いますよ(笑
いっしょに頑張りましょう。
0172１ ◆lo8YkeSw NGNG
やっぱこのジャンプって不自然ですかね？自分なりに数値を変えてみたんですけど。
http://norisukeup.tripod.com/Project1.zip

→←で横移動、↑でジャンプです。
0173デフォルトの名無しさんNGNG
まあ、今更だけど。
http://game.2ch.net/gamedev/
何故こっちでやらんのかがわからん。
0174デフォルトの名無しさんNGNG
>>172
もうそれで完成でいいじゃん
0175デフォルトの名無しさんNGNG
>>172
ﾜﾗﾀ
0176デフォルトの名無しさんNGNG
>>175
あげんなｳﾞｫｹ
0177デフォルトの名無しさんNGNG
ポインタはいいねぇぇ
0178デフォルトの名無しさんNGNG
>>176
さげんなｳﾞｫｹ
0179デフォルトの名無しさんNGNG
>>177
ポインタを覚えた事で一人前のマになったと勘違いして、それを他人に
伝えたくてたまらない黄金厨ですか？
0180デフォルトの名無しさんNGNG
>>179
あんたに言われたくないよ
専門学生さん(w
立派な大学行ってから意見しようね
0181デフォルトの名無しさんNGNG
Delphiは　アクションゲームに対してあんまり便利さを提供してくれないけど

アクションゲームにはスクリプトが必須、　そのスクリプトとスクリプトエディタを
作るには最適だ。
0182デフォルトの名無しさんNGNG
>>181
DDDDかDELPHIX使えば
HPS以上にゲーム作りやすくなるよ。

スクリプトエディタは確かに必要だね
0183デフォルトの名無しさんNGNG
>>172
これってタイマー常時ON？
0184デフォルトの名無しさんNGNG
タイマー使うのと OnIdle 使うのとどっちがいいの？
0185デフォルトの名無しさんNGNG
>>184
アクションゲームだとタイマーは使えないよ（精度悪すぎて）
0186１ ◆lo8YkeSw NGNG
>>183
いや、タイマーなんか使ってないです（汗
多分ソースも他の人が見たら訳わかんないと思います。
0187デフォルトの名無しさんNGNG
>>186
大丈夫“まともな”マなら分かってくれるから(泣
0188デフォルトの名無しさんNGNG
age
0189デフォルトの名無しさんNGNG
ゲームなら・・・
・OnIdle
・メッセージループ自作
の2択ですな
別スレッド作るって手もあるか
0190デフォルトの名無しさんNGNG
成長したいならソースさらすのは必須かと。
叩きながらもおせっかいな人たちがアドバイスしてくれること請け合いだよ。
0191デフォルトの名無しさんNGNG
OnIdleで処理する場合、更新間隔を一定にするのはどうするの？
OnIdleの入口で現在時刻を取っておいて、次回更新時刻（現在＋１fps）より前だったら
何もしないで抜けるとか？
0192デフォルトの名無しさんNGNG
更新時間を一定にしたいなら OnIdleを使わないんじゃないの？

OnIdleを使うなら、
たとえば>>71のように、更新時間が変わっても動作が同じようになるようなスタイルを使うんじゃない？
0193デフォルトの名無しさんNGNG
>>191
そうやったよ。
0194デフォルトの名無しさんNGNG
色が抜けない…
0195デフォルトの名無しさんNGNG
今日はもう寝よう…疲れた
0196１ ◆lo8YkeSw NGNG
どうも御無沙汰してます。ゴールデンウィークなんで遊びに行ってました。で、今日帰ってきました。
>>190
怖すぎてできません（笑
0197デフォルトの名無しさんNGNG
>>1は蒸発したか。やっぱり糞スレだったな・・と。
01981NGNG
どうもご無沙汰してます。平日なんで引き籠もっていました。で、今日社会復帰しました。
>>190
糞スレではありません(笑
0199デフォルトの名無しさんNGNG
＞平日なんで引き籠もっていました。で、今日社会復帰しました。

？・・謎。デムパ？




　　　　　　　　　・・・才能有りと見た！頑張れ！＞1
0200デフォルトの名無しさんNGNG
200!

ソースはさらしちゃえ!　あと音はワロいますた。
0201当たって砕けろNGNG
Delphi挑戦します。目標！シミュレーションゲーム！
Delphi経験皆無、目標は程遠い。鬱。
とりあえずボタンおいてみよう・・・。
0202デフォルトの名無しさんNGNG
よくきたな。まあこいや。↓

http://game.2ch.net/gamedev/
0203当たって砕けろNGNG
>>202
案内どうもです。
しかし俺製作技術以前の問題。鬱。
0204デフォルトの名無しさんNGNG
まあ、てきとうにやってみれば？
2ケ月くらいDelphi参考書と寝食を共にすると、並のゲームくらいつくれるだろうからさ。
うひひひ
0205デフォルトの名無しさんNGNG
>>204
まぢ！？
俺、もう少しで２ヶ月だけど、まだゲーム作るレヴェルじゃない…鬱…
0206デフォルトの名無しさんNGNG
>>205
遊びのレシピ買ってこい。
Delphiで各種ゲームの作り方が載ってる。
0207205NGNG
>>206
一応言うと、>>203≠>>205なので。(笑)
俺、あんまりゲーム志向じゃないし、本まで買うのは遠慮しておきまふ。
ゲームも作ってみたいけど、素材集めるのが面倒そうで、やる気が起きませぬ。
0208デフォルトの名無しさんNGNG
>>207
＞素材集めるのが面倒そうで、やる気が起きませぬ。
うん、是非やめてくれ。
0209205NGNG
>>208
ま、お前には関係無いけどな。
0210当たって砕けろNGNG
ゲームを作りたい！
と思ったものの、何をすれば良いのかわからず、
オンラインの講座とかをちょこちょこやってるだけの現実。鬱。
0211デフォルトの名無しさんNGNG
>210
貴方は私ですか？（鬱
0212当たって砕けろNGNG
>>211
同志ですか。鬱。

なーにをやればいいのやらです。まず画像表示したい。
0213デフォルトの名無しさんNGNG
ゲーム作るのに、クラスなどのオブジェクト指向の概念って勉強する必要はありますか
0214デフォルトの名無しさんNGNG
>>213
しなくても作れるけど、やると楽に作れるようになります。
0215デフォルトの名無しさんNGNG
Delphiと書かれているｽﾚのツアーをお勧めします。この板とゲ技板。
　あと入門本手に入れる。ぬるかったらゲーム制作系の入門本。
そして、検索検索検索ぅ！

202で待ち伏せ失敗したことは秘密だよ。
0216当たって砕けろNGNG
小遣いはたいて参考書買いました！無一文！鬱。
Delphiオフィシャルコースウェア基礎編。
なかなかわかりやすくていいです。これみて頑張ります。
0217デフォルトの名無しさんNGNG
>>216
ヘルプだけで十分だ！と叫んでみる。
カーソルが指してるアイテムを著癖いつ引けるシステムは感動したけど。
0218デフォルトの名無しさんNGNG
>>1は、宮崎県民だよな！
0219当たって砕けろNGNG
>>217
すいません、ヘルプ＆講座サイトじゃ理解できませんでした。鬱。
0220デフォルトの名無しさんNGNG
Delphiのヘルプは難しいから〜
0221デフォルトの名無しさんNGNG
>>216
漏れはWinHelpだけで勉強したぞーー！鬱！
ポイントは「目次の順に読む」、これ最強！鬱！

なんか当たって砕けろ君の口癖が鬱っちゃったぞ！鬱！
0222デフォルトの名無しさんNGNG
>>221
おんなじ。おんなじ。
なぜかあの時言語仕様の図（名前失念、授業で習ったのに・・・）読めてた。
今読めない。鬱。
0223デフォルトの名無しさんNGNG
よくわからんが、鬱！
0224当たって砕けろNGNG
caseとEdit1.Text使ってランダムにメッセージが表示されるものを作成。
すっげえ単純でくだらないけど初Delphi作品！うれしい！けど鬱。
>>221
ヘルプもちゃんと読んでみます。鬱。
>>223
俺もよくわかりませんが、鬱！
0225デフォルトの名無しさんNGNG
>>224
そうだ！がんばれ！
試行錯誤によって得られるノウハウこそあなたの最高の栄養です。

（俺の履歴書より）
0226デフォルトの名無しさんNGNG
質問です．
MIDI音源を純音を出すにはどうすればよいですか？
midioutshortmsgを使って音は出せるよになりました
しかし音色がピアノとかなんたらばっかりで，
昔のPCのようなピーという機械音チックなのが出せません
何か手段があるでしょうか？
0227当たって砕けろNGNG
>>225
ありがとう！がんばるよ！
栄養取らないとな。鬱。ニホンジンハカルシウムブソク。
0228デフォルトの名無しさんNGNG
>>226
アンタはMIDIをFM音源かなにかと勘違いしてる
0229821NGNG
226>>
MIDIでは純音をだせないのですか？？
FM音源をコードで扱うことはできますか？
音の長さ,音程を操作できるのでしょうか？
それができるならMIDIでもFMでもかまわないのですが・・・
0230デフォルトの名無しさんNGNG
>>229
アンタ>226？
純音ってのは正弦波のことでいいのか？
とりあえずGMの音色にはないぞ
GSやXGならあるだろうが（GSはあるのを確認した）
シンセ系の音色をソレっぽく加工しても正弦波は出せないと思うが・・・
0231デフォルトの名無しさんNGNG
>>229-230
とりあえずsin関数で正弦波発生させてwaveOut系のAPIに流せば？
一応「ぽーーーーー」ていう音叉みたいな音が出せるよ。
いわゆる「ぴーーーーー」っていう電子音は方形波の音に近いと思われ。
さらにFFT処理とかすると面白いけど、まぁ難しいんで割愛。

ゲーム作るんならDirectSound使ったほうがいいのかな？
漏れゲームは作った事無いからDirectX知らないんだな・・・
0232226NGNG
230>>
231>>
なるほど
ありがちょう
正弦波つくってwaveoutでやってみます
ごいけんさんくすこ
0233デフォルトの名無しさんNGNG
まぁ、squareと各種パラメータを駆使すればなんとか・・・。
激しく機種依存だけど。
0234デフォルトの名無しさんNGNG
あｇ３え
0235藪から棒NGNG
今さらVB.NET（VB6ユーザも）やるくらいならC#ですね。
でも今までVBで適当なプログラム書いていた人は性根入れ直してからにしないと。
0236デフォルトの名無しさんNGNG
初めて簡単なゲームを作ろうと思い、まず背景を白くしようと思ったのですが、
Form1のpaintイベントで

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

ってやったらダメなんすけど、何でですか？
FillRectって引数がTRectでもInteger * 4でオーバーロードしてると思うんですが…。
0237当たって砕けろNGNG
ボタンをクリックするだけの、ＲＰＧ風擬似戦闘ver１ができました！
でも内容的に見て戦闘にすらなってない罠。鬱。
これをもとにいろいろコマンドとか増やしてみよう・・・。
0238デフォルトの名無しさんNGNG
>>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
がむばれ！！鬱！
0239デフォルトの名無しさんNGNG
>>238
サンクス。
＞FillRectって引数がTRectでもInteger * 4でオーバーロードしてると思うんですが…。
どこにも書いてなかった、誤爆スマソ！

最初はClientHeightとかだけにしてたんだけど、それでできなかったからForm1付けてみたんだよねー。
0240デフォルトの名無しさんNGNG
>>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;

って書くのが一番正当なやりかたなのかな？
0241デフォルトの名無しさんNGNG
>>240
そのメソッドをそのクラスでしか使わないから、「Form1.ClientWidth」でいいかなと思いまして。←言い訳かも…(;´Д｀)
Selfってオブジェクトしか参照しないのでは？
だからわざわざクラス型変数Formは使わなくて良いのでは？

ゲーム作るっていっても、何から勉強していいのかわからないなぁ。
とりあえずTCanvasとTStreemをまず勉強しようと思ってますが…。
0242デフォルトの名無しさんNGNG
>>241
んー、まぁTForm1のインスタンスを2個以上作るってことは多分無いと
思うから、99.99％それで問題はないんだけど・・・
（もちろん2個以上のインスタンスを作りうる場合だと大問題！）
ま、教科書通り厳密にやるか、スッキリしたソースがいいか、のトレードオフですな。

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

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

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

>>237
もうRPG作ってるんですか、早いですね。
どんなことから勉強はじめましたか？
参考に教えてもらいたいのですが。
0244デフォルトの名無しさんNGNG
>>243
がーーーーーーーーーーーーーーーーーーん。

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

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

今晩はLANケーブルで首吊って寝ます。
0245当たって砕けろNGNG
>>243
いや、RPG作ってるわけじゃないです。そんな高度なことできません。鬱。
ただ攻撃ボタン置いたりEditに文章表示させるだけです。鬱。

＞どんなことから
変数からやりました・・・。
ひとまずこれだけは押さえておこうと思い。
0246デフォルトの名無しさんNGNG
>>245
そうでしたか。
俺もゲーム作りたいのでお互い頑張りましょう。

マジで何からやればいいんじゃー！？( T▽T)
0247無責任だがNGNG
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;
とすれば、良いと思う
0248無責任だがNGNG
あっとゴメン　ミス
0249当たって砕けろNGNG
方向キーでImageに画像出してTopとLeftの値をいじって動かしてます。鬱。
こ、これがゲームへの第一歩なのかあぁあ？！鬱！
0250デフォルトの名無しさんNGNG
>>249
勿論本格的なゲームなら、描画速度とかいろいろ問題になるかも知れんけど
第一歩としてはそれでいいんじゃない。

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

そんなこと繰り返してる間に上達して、ゲームも完成していくよ。
ガムバレ、鬱！！！
0251デフォルトの名無しさんNGNG
貴様ら！ブロック崩し作るので見てください
http://pc.2ch.net/test/read.cgi/tech/1004855513/
を参考に（上記スレはVBだが）、Delphiでブロック崩し頑張って作ってたりする。
ちなみに、Delphi使い始めて２週間程度。

とりあえず今はブロックを表示して、ボールがパドルと壁で跳ね返るとこ。
DrawRectでブロック、Shapeで玉＋パドルのｼｮﾎﾞｰﾝなグラフィックだけど。
お互い頑張りませう＞同士
0252デフォルトの名無しさんNGNG
■ このスレッドは過去ログ倉庫に格納されています