ある、古参のエロゲプログラマー(エログラマー)の戯れ言

今、C言語の学校に行ってたりするのですが
K&Rの本やDirectXが理解出来れば、作れるようになったりするものでしょうか？

作りたい物があるか、仕事を取ってしまえば覚えますｗ。

というのは冗談で、K&Rに次はアルゴリズムかな?
ファイル名をソートするDOSのDIR命令を模した物を作っ足りしたりして、
しばらくコマンドラインで遊んだ後、
DirectX9あたりで3D迷路や2Dシューティングゲームを作ると、
C++の概念のさわりがわかると思います。

サンプルコードだけではなくそれを改造し、
その後には自分の作りたい物を作りモチベーションを高めることです。

自分は30才までは参考書も見ないで独学でやって(参考書は他の人のコード、本は辞書よして使う。今はインターネットが辞書です)、
30になって今までやってきたことを体系だって本で学びました。

体系だってやったおかげで強力なコンパイラを作り、
昔独力で考えて作ったのはバブルソートだったのか、ハッシュだったのかと後付の知識です。

今はいいほんがいっぱい良い本あるので(コンパイラならドラゴンブックと中田先生の本)、知識(参考書)先行でも良いと思いますが、
必ずサンプルコードだけではなく、自己流に改造することを心がけてください。

作りたい物、自分にとって便利な物を作ることを忘れずに勉強すれば、身となり血となります。
最初の話しに戻りますが仕事を取ってくれば否応なしに覚えますｗ

自分は感覚派プログラマと呼ばれ、ノったときには1日で1週間分の仕事をしたり、ノらなかったら一日中他のこと(難易度の低いプログラム)を組んでいます。

要は全てモチベーションだと思うので、参考書の字面に引っ張られずに
1)他人のプログラムを自分仕様に拡張する
2)自分の作りたい小さいプログラムを無理矢理作る
3)アカデミックなことを再確認する
4)DX9で小さいプログラムを無理矢理作る
5)アカデミックなことを再確認する
6)本当に作りたかったプログラムを作る

こんな感じで良いと思います。

変数名は(固定プリフィクス＋数字)の形でしか表せないのですか？

if や while なんかの入れ子や(1 + 2) * (3 + 4)等の複雑な式は使えますか？

変数名は英数文字で表現できます。マルチバイトでは表現できません。
メッセージ命令の中でもレジスタ間接などを使って計算結果やストリング配列の表示も出来ます
メッセージ中に直接式を入れることも出来ます。

if 式 elseif 式 else end / while 式 end / do while 式 / for 式;式;式 end などが記述出来ます
これらは全てプリプロセス時に、#amacroでifn_goto 式,label / if_goto 式,label と goto labelに分解されます。
式は代入式と評価式の区別は付けません。それとポインター式があります。
式はC言語と同等の物だと思ってください。演算子の優先順位も合わせてます。

記述性はVB並と思ってください。それに強力なマクロと強力な置換が追加されていて、
それらを使って、windows apiを呼び出すようになっています。

逆に言うと、強力なマクロと強力な置換を使い、システムをラッパーしなければ
最低限のゲームシステムの支援(文字表示やCG表示)しかなく
windows apiやcopyrect命令などの呼び出しが必用になり、
ゲームシステムとしては使い物になりません。

式関連は最適化もしています。

コンパイラ自体は以上の実装なので、
ウチで作った携帯電話用のゲームシステム等ともマクロを変えて併用しています。

以下がendマクロの実装例です

#amacro end( d0 )(local0,local1,localn,localt,localcase)
;
; end ( while,do,for,switch,if )
;
#getnum localt 2
#getnum localn 3
#subnumsp 3

#define local1 "f_{localn}"
#unstr local1


#if (localt==10) ; while
#define local0 "b_{localn}"
#unstr local0

goto local0
local1:


#elseif (localt==11) ; do
#define local0 "b_{localn}"
#unstr local0

if_goto local0,d0
local1:


#elseif (localt==12) ; for
#define local0 "b_{localn}"
#unstr local0

goto local0
local1:


#elseif (localt==13) ; switch
#popnum localcase
#substrsp 1

#define local0 "case_{localn}_{localcase}"
#unstr local0

local0:
local1:


#elseif (localt==14) ; if
#popnum localcase

#define local0 "if_{localn}_{localcase}"
#unstr local0

local0:
local1:

#else
#error end文の対応が異常です
#endif

#endm

面白そうな言語ですね。
出来ましたらマクロの全容とサンプルソースを見せていただけないでしょうか。

色々とありがとうございました。
勉強と参考になりました。
ネット上などで上がっているコードを改造して勉強してみます。

確かに、仕事をやれば力は付きますねｗ
逝くか進むかしかないのでｗ

なぜMAKEを内蔵させたのですか?

弟子にしてください。

システムの公開はなされないのでしょうか。

通りすがり様。
サンプルの公開は考えておりません。誠に申し訳ありません。

ADPC様。
やってみれば何とかなると思いますよ

未記入様。
makeを内蔵したのは、
別exeにするとどうしても読み込みのオーバーヘッドが無視できなくなるからです。
マスターアップの時にはデーターが完成するのが当日とか当たり前にあります。
自分のシナリオコンパイルは1fileで1秒前後、自分のwavファイルで0.1秒前後です。
特にwavファイルは最後に入ってくることが多いので、wav圧縮は0.1秒前後のため、
外部makeを呼び出していると1万fileだと相当なオーバーヘッダがつきます。
ですので内蔵しております。oggだとこうはいきませんよね。
1万fileで外部makeだと少なくとも5時間は掛かります

マジ様。
弟子はthukune君一人で精一杯です。

未記入様。
システムの公開は考えておりません。誠に申し訳ありません。

if elseif else end,while end,do while,for next等の構造文だけで良いのでマクロを見せてもらえませんか。
正直エロゲのスクリプトと侮っていました。
エロゲ業界のプログラマの地位向上として見せていただきたい。

まずはdo-whileではなく、正しくはdo-endと記述する事を訂正させてください。

それと吉里吉里などもっと凄い言語が公開されていますので、
ソースコードなどはそちらを参考にした方がよいと思います。

switch-caseはテーブルではなくif文の固まりです

文字列はゲーム用スクリプタなのでもちろん"(ダブルクオーテーション)では挟まずベタうちです。

ラベルやプリプロセス命令(#が付く命令)も行頭でなくとも記述できます

(sample)
while exit_flag==0
　　　　sel game_flag,ゲームをスタートさせる,ゲームを終了させる
　　　　if game_flag==0
　　　　　　　　ゲームをスタートさせます
　　　　　　　　game_start 1
　　　　else
　　　　　　　　sel ans,ゲームを終了させる,キャンセル
　　　　　　　　if ans
　　　　　　　　　　　　exit_game 1
　　　　　　　　end
　　　　end
end

;------------------------------------------------------------------------------
;　　　　マクロ内での構造文ののチェック用
;------------------------------------------------------------------------------
;
;　　　　マクロ内での構造文ののチェック用
;
#define ___cn0 0
#define ___cs0 0
#define ___cn1 0
#define ___cs1 0
;------------------------------------------------------------------------------
#amacro ___cs
;
;　　　　マクロ内での構造文ののチェック用 ( start )
;
#getnumsp ___cn0
#getstrsp ___cs0
#endm
;------------------------------------------------------------------------------
#amacro ___ce
;
;　　　　マクロ内での構造文ののチェック用 ( end )
;
#getnumsp ___cn1
#getstrsp ___cs1
#if ___cn0!=___cn1
　　　　#error macro 内の 構造文の対応が異常です
#endif
#if ___cs0!=___cs1
　　　　#error macro 内の switch文の対応が異常です
#endif
#endm
;----------------------------------------------------------------------------
;　　　　end soc
;----------------------------------------------------------------------------
#amacro end_soc
;
;　　　　制御部 ( soc の最後に必ず必要な部分 )
;
#getnumsp __local0
#if __local0!=0
　　　　#error 構造文の対応が異常です
#endif

#getstrsp __local0
#if __local0!=0
　　　　#error switch文の対応が異常です
#endif

　　　　exit
　　　　exit_soc
#endm


;----------------------------------------------------------------
;　　　　num
;----------------------------------------------------------------
#define __cmd_num 100
;----------------------------------------------------------------
;　　　　end
;----------------------------------------------------------------
#amacro end( d0 )(local0,local1,localn,localt,localcase)
;
;　　　　end ( while,do,for,switch,if )
;
#getnum localt 2
#getnum localn 3
#subnumsp 3

#define local1 "f_{localn}"
#unstr local1


#if (localt==10)　　　　　　　　　　　　; while
#define local0 "b_{localn}"
#unstr local0

　　　　goto local0
local1:


#elseif (localt==11)　　　　　　　　　　　　; do
#define local0 "b_{localn}"
#unstr local0

　　　　if_goto local0,d0
local1:


#elseif (localt==12)　　　　　　　　　　　　; for
#define local0 "b_{localn}"
#unstr local0

　　　　goto local0
local1:


#elseif (localt==13)　　　　　　　　　　　　; switch
#popnum localcase
#substrsp 1

#define local0 "case_{localn}_{localcase}"
#unstr local0

local0:
local1:


#elseif (localt==14)　　　　　　　　　　　　; if
#popnum localcase

#define local0 "if_{localn}_{localcase}"
#unstr local0

local0:
local1:

#else
　　　　#error end文の対応が異常です
#endif

#endm

;----------------------------------------------------------------
;　　　　break
;----------------------------------------------------------------
#amacro break()(local0,localn,localsp)
;
;　　　　break ( while,do,for,switch )
;
#searchnum localsp 0　　　　　　　　; 直前の if 以外をサーチする
#getnum localn localsp+2

#define local0 "f_{localn}"
#unstr local0

　　　　goto local0
#endm


;----------------------------------------------------------------
;　　　　while
;----------------------------------------------------------------
#amacro while( d0 )(local0,local1)(*)
;
;　　　　while
;
#calc __cmd_num __cmd_num+1
#pushnum __cmd_num　　　　　　　　; label number
#pushnum 10　　　　　　　　　　　　; while という事を示す(10)
#pushnum 0　　　　　　　　　　　　; if 以外をサーチするためのマーカー

#define local0 "b_{__cmd_num}"
#unstr local0

#define local1 "f_{__cmd_num}"
#unstr local1

local0:
　　　　ifn_goto local1,d0
#endm
;----------------------------------------------------------------
;　　　　do
;----------------------------------------------------------------
#amacro do()(local0)(*)
;
;　　　　do
;
#calc __cmd_num __cmd_num+1
#pushnum __cmd_num　　　　　　　　; label number
#pushnum 11　　　　　　　　　　　　; do という事を示す(11)
#pushnum 0　　　　　　　　　　　　; if 以外をサーチするためのマーカー

#define local0 "b_{__cmd_num}"
#unstr local0

local0:
#endm
;----------------------------------------------------------------
;　　　　for
;----------------------------------------------------------------
#amacro for( d0,d1,d2 )(local0,local1,local9)(*)
;
;　　　　for
;
#calc __cmd_num __cmd_num+1
#pushnum __cmd_num　　　　　　　　; label number
#pushnum 12　　　　　　　　　　　　; for という事を示す(12)
#pushnum 0　　　　　　　　　　　　; if 以外をサーチするためのマーカー

#define local0 "b_{__cmd_num}"
#unstr local0

#define local1 "f_{__cmd_num}"
#unstr local1

　　　　(d0)　　　　　　　　; 最初の式
　　　　goto local9
local0:
　　　　(d2)　　　　　　　　; 2 回目以降の式
local9:
　　　　ifn_goto local1,(d1)　　　　; ループ条件
#endm
;----------------------------------------------------------------
;　　　　switch
;----------------------------------------------------------------
#amacro switch( d0 )(local0,local1)(*)
;
;　　　　switch
;
#calc __cmd_num __cmd_num+1
#pushnum 1000　　　　　　　　　　　　; 最初の case/default は 1000 から始まる
#pushnum __cmd_num　　　　　　　　; label number
#pushnum 13　　　　　　　　　　　　; switch という事を示す(13)
#pushnum 0　　　　　　　　　　　　; if 以外をサーチするためのマーカー

#define local1 "{d0}"　　　　　　　　; 条件式を pushstr
#unstr local1
#pushstr local1

#define local0 "case_{__cmd_num}_1000"
#unstr local0

　　　　goto local0　　　　　　　　; 最初の case/default へ飛ぶ
#endm
;----------------------------------------------------------------
#amacro case( d0 )(local0,local1,locals,localn,localt,localcalc)(*)
;
;　　　　case
;
#getnum localt 2
#if (localt!=13)
　　　　#error switch文の対応が異常です
#endif

#getnum localn 3
#getnum localcase 4

#define local0 "case_{localn}_{localcase}"
#unstr local0

#calc localcase localcase+1

#subnumsp 4
#pushnum localcase
#addnumsp 3

#define local1 "case_{localn}_{localcase}"
#unstr local1

　　　　goto locals　　　　　　　　; _case を skip する
local0:
#getstr localcalc 1
　　　　ifn_goto local1,((localcalc)==(d0))

locals:

#endm
;----------------------------------------------------------------
#amacro default()(local0,localn,localt,localcase)(*)
;
;　　　　default
;
#getnum localt 2
#if (localt!=13)
　　　　#error switch文の対応が異常です
#endif

#getnum localn 3
#getnum localcase 4

#define local0 "case_{localn}_{localcase}"
#unstr local0

#calc localcase localcase+1

#subnumsp 4
#pushnum localcase
#addnumsp 3

local0:

#endm
;----------------------------------------------------------------
;　　　　if
;----------------------------------------------------------------
#amacro if( d0 )(local0,local1)(*)
;
;　　　　if
;
#calc __cmd_num __cmd_num+1
#pushnum 1000　　　　　　　　　　　　; 最初の elseif/else は 1000 から始まる
#pushnum __cmd_num　　　　　　　　; label number
#pushnum 14　　　　　　　　　　　　; if という事を示す(14)
#pushnum 1　　　　　　　　　　　　; if 以外と区別するためのマーカー

#define local0 "if_{__cmd_num}_1000"
#unstr local0

　　　　ifn_goto local0,(d0)
#endm
;----------------------------------------------------------------
#amacro elseif( d0 )(local0,local1,local2,localn,localif)(*)
;
;　　　　elseif
;
#getnum localn 3
#getnum localif 4

#define local0 "if_{localn}_{localif}"
#unstr local0

#calc localif localif+1

#subnumsp 4
#pushnum localif
#addnumsp 3

#define local1 "f_{localn}"
#unstr local1

　　　　goto local1
local0:

#define local2 "if_{localn}_{localif}"
#unstr local2

　　　　ifn_goto local2,(d0)

#endm
;----------------------------------------------------------------
#amacro else()(local0,local1,localn,localif)(*)
;
;　　　　else
;
#getnum localn 3
#getnum localif 4

#define local0 "if_{localn}_{localif}"
#unstr local0

#calc localif localif+1

#subnumsp 4
#pushnum localif
#addnumsp 3

#define local1 "f_{localn}"
#unstr local1

　　　　goto local1
local0:

で、メッセージを英語化して、start game と exit game にする時はどうするの？

金曜日から質問攻めが凄いですね。
1人の方なのでしょうか?
それともどこかで話題になっているのでしょうか。
どこかで話題になっているようでしたら教えていただけると幸いです。

質問の答えですが、半角英文が先頭に来るメッセージの場合
mes game start
と記述するか、#defineでmesをm辺りに定義して
m game start
とでも記述してください。
半角英文が日本語の中に来るときはそのまま半角文字を記入してokです。
まあしかし、ゲーム中には全角英文字しか使わないので滅多に出番がありませんが。
start_game 1とexit_gane 1はstart_game(1)とexit_game(1)とも記述出来ます。
後はこの場合メインループの外側でstart_game(local)やexit_game(local)の様に外部に登録します。Cとは違い、前方参照も出来ます。

書き忘れましたがインクルードは
#include <w95gd.mac>
#include "h00win0.mac"
として、標準マクロと標準命令はw95gd.mac、
そのゲーム専用のマクロはh00win0.macに記述します。

から来ました。

CG,WAV,シナリオの圧縮はオリジナルですか?
それとアセンブラは使ってるのでしょうか?

2chで晒されてますよ
blogを公開されてる以上は想定内の事と思いますが
見ての通りですので
あまり相手にしない方が

「コンパイラ・スクリプトエンジン」相談室13
http://pc12.2ch.net/test/read.cgi/tech/1233143342/

CG,WAV,シナリオの圧縮はオリジナルです。
昔は全てアセンブラで組んでいましたが、
最近は移植性のため一度C言語で組んでそれをインラインアセンブラ化します。
圧縮のビット操作関係とプリプロセッサとコンパイラのラベル解決のプログラムはC言語版は残したままで1からインラインアセンブラで組み直しています。
インラインアセンブラの採用で圧縮展開は5倍、コンパイラは2倍くらいのスピードになります。
ゲーム本体は展開以外はほぼ同じスピードなので、インラインアセンブラを積極的に使ってません

未記入様。
ご報告、有難う御座います。
読んでみると自分のせいで荒れているみたいですね。
申し訳ないです。
ここでの質問は紳士的でしたので、問題はありません。

素晴らしいコンセプトのコンパイラですね。
たとえばPICとか用のLINKを用意すれば動かせますか?
その際に式が逆ポーランドだと重くありませんか?

有難う御座います。
趣味でPICではないですがAVRのリンカを作っています。
その為に、単純比較式 r0==0 とかを1byteで記する命令を作っています。
しかしPICは変数の割り当てが難しいのでVMを作るのは大変だと思います。

自作自演、乙。

そう取られてもしょうがない流れでした。
迷惑をかけましてすみません。

ソフ倫の裏切り者。

裏切り者ではありません。ギリギリのラインが先週、解ったと言うことです。

未記入さん

締め出したのはソフ倫側という事実は無視ですか？

業界維持・逮捕者を出さない
その旗の下に何ら補償も斡旋もせずに
戸を閉めたことは棚に上げるべきではないと思います。

裏切りというなら
そのような行動を取るソフ倫側の方も裏切りですが？

ADPC様。
愉快犯ですよ。適当にあしらいましょう。

何処かが何かを製作して、それを末端の需要に届けるまでの
１サイクルを完成させる諸々の構成要素の中の「1」部品。

ネジやボルトに「隷属」という概念は、厳密に云えば誤りでしょう。

皆々落ち着かないんでしょう。辛いんでしょう。
今にも叫んで逃げ出したいんでしょう。

KENJI様

すみません。
気をつけることにします

>今にも叫んで逃げ出したいんでしょう
ええ、自分も醜態を見せてしまいました。
しかし、皆様のおかげでエロゲーをお金が無くならない限り
作り続けよう、そしてプログラマーを続けようと言う勇気をもらいました。
クリエーターなんて大層な物ではないですが、エロゲ業界の末端として可能な限り、活動していこうと思います。

あなたたち製作者、そして需要側
これらがメインです。
需要、製作者が「ネジ、ボルト」ではありません。

時に支えあいましょう。

BlackPackageの皆々様にもエールを送ります。

ごきげんよう

有難う御座います。力になります。

ふう、コンパイラスレの方も一段落したみたいです。
もし、私の弁護のために書き込まれた方がいらっしゃたのでしたら
ああいう方法は逆効果です。何もせずそっとしておいていただけると嬉しいです。

AU4RbX I value the article post.Thanks Again. Great.

thSCaS I am so grateful for your article post.Much thanks again. Really Great.

Appreciate you sharing, great post.Really looking forward to read more. Want more.

Thanks again for the blog. Want more.

Really appreciate you sharing this article.Much thanks again. Great.

I loved your blog post. Great.

Thanks again for the blog.Thanks Again. Want more.

Thanks so much for the article.Much thanks again. Will read on...

I really enjoy the blog post.Much thanks again. Keep writing.

I loved your article post.Really thank you! Awesome.

Thanks for the blog post.Really looking forward to read more. Cool.

Im obliged for the article. Want more.

A big thank you for your blog article.Really thank you! Great.

Thank you for your article.Thanks Again. Cool.

Great blog article.Thanks Again. Want more.