葉鍵的プログラミング研究スレ
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさんだよもん
NGNGint main(){
printf("うぐぅ\n");
return ITTEYOSHI;
}
0002名無しさんだよもん
NGNG0003名無しさんだよもん
NGNG0004名無しさんだよもん
NGNG0005名無しさんだよもん
NGNG0006名無しさんだよもん
NGNGsub ayu {
  while(1){
    print "うぐぅ\n";
  }
}
&ayu;
0009名無しさんだよもん
NGNGこんなのはどうだ?
switch (msg) {
case WM_CLOSE:
id=MessageBox(hWnd@`(LPCSTR)"嫌です"@`"茜ちん"@`MB_CANCEL);
}
0010名無しさんだよもん
NGNGVB厨房発見!!!!!!!!
0011名無しさんだよもん
NGNG  while(times--)
    printf("%s\n"@` rand%1 ? "パンパン" : "ズンズン");
}
0012名無しさんだよもん
NGNGrequire './kanon.cgi';
&ayu;
&uguu;
&boku;
&taiyaki;
&bokunokotowasurete; ###&ended;###
0013名無しさんだよもん
NGNG厨房.each{|i|
print i.name + "逝ってよし!"
}
%>
0014名無しさんだよもん
NGNG0015名無しさんだよもん
NGNG20 GOTO 10
0017暇潰し
NGNGtypedef void (*fnc)(void);
/* コマンド */
func cmd_fnc[3] = {
one@`
two@`
three@`
};
void one()
{
/* 省略 */
}
void two()
{
/* 省略 */
}
void three()
{
/* 省略 */
}
main()
{
int cmd;
const char *str[3] = {
"1、世界崩壊の妄想に侵り始めた"@`
"2、彼女のことを想い始めた"@`
"3、異星人との戦いをシミュレートした"
};
printf("%s\n%s\n%s\n"@`*str[0]@`*str[1]@`*str[2]);
scanf("%d"@`&cmd);
fnc[cmd]();
}
0018名無しさんだよもん
NGNGHuman makoto = (Human)makoto.toHuman();
0019名無しさんだよもん
NGNG0020名無しさんだよもん
NGNG0022名無しさんだよもん
NGNGutu and die;
0023名無しさんだよもん
NGNGsub goal {
die;
}
0024名無しさんだよもん
NGNG甘いぞ。
10 WHILE(-1):PRINT "イッテヨシ";:WEND
; は @` だったかも知れないが、N-88BASICを使える環境にある & BASIC分からない人は是非打ち込んでみよう。
0025名無しさんだよもん
NGNGLDB AKARI
MUL
0026名無しさんだよもん
NGNG  kouhei.say("なかったんだ");
}
0028名無しさんだよもん
NGNG0029名無しさんだよもん
NGNG003127
NGNGだったら読まん方がええよ
こういうスレが上にあるのは鬱陶しい。
0032名無しさんだよもん
NGNG003419
NGNG0035名無しさんだよもん
NGNG>>17
雫の最初の選択肢を再現。
関数ポインタを使用している。
訂正:
誤:printf("%s\n%s\n%s\n"@`*str[0]@`*str[1]@`*str[2]);
正:printf("%s\n%s\n%s\n"@`str[0]@`str[1]@`str[2]);
>>24
画面一杯に「イッテヨシ」が表示される。
改行させずに連結させるのは ; だったか @` だったかは遥か昔に失念。
0036名無しさんだよもん
NGNGclass Wing
def CanFly?
return false
end
def HaveMean?
#任意
end
end
Wing.New.HaveMean?
0037名無しさんだよもん
NGNG0038名無しさんだよもん
NGNGi = 0
while [ $i -lt 50 ]
do
  echo "逝ってよし"
  echo "オマエモナー"
done
0039Perl
NGNGsub nayuki {
print "朝〜、朝だよ〜";
}
0040マジレスさん
NGNGCのヘッダファイルの拡張子と2ちゃんねるをかけてる。>>1
メモリ解放と削除依頼をかけてる。>>3
MS-DOSバッチか何かだと思われる。「駄スレ」を表示。>>4
素朴な疑問だが、説明聞いて楽しいor納得するか?
0041名無しさんだよもん
NGNG0042名無しさんだよもん
NGNG#include<ayu.h>
#include<nayuki.h>
#include<makoto.h>
#include<shiori.h>
#include<mai.h>
#include<akiko.h>
#include<mishio.h>
#include<kaori.h>
#include<sayuri.h>
#include<jun.h>
すべて標準ライブラリです。
0043名無しさんだよもん
NGNG&nbsp;&nbsp;serif = shift;
&nbsp;&nbsp;serif = serif . "だよもん";
&nbsp;&nbsp;return serif;
}
0044これならわかるか?
NGNGC:\>del 552.txt
共有違反のため削除できません.
0045名無しさんだよもん
NGNG0046名無しさんだよもん
NGNGFROM ONEKANON
WHERE SHINCHOU < 155.0
-----
椎名繭
上月澪
柚木詩子
月宮あゆ
0047続・マジレスさん
NGNG>>5 「終了」ダイアログボックス。
>>7 Perl。変数ayuの内容をすべて破棄する(忘れる)。
>>9 MFCかな。「嫌です」と表示してキャンセルボタンを用意するダイアログボックス。
>>12 Perl。サブルーチン呼び出し。
意味ない気がするんで、やっぱこの辺でやめとくわ。
0048名無しさんだよもん
NGNGwhile(1){}
}else{
print("bye.\n");
exec("./boy_and_girl");
}
0049名無しさんだよもん
NGNG{
try{
Date d = Date(7@` Month::Jan());
while(d < Date(1@` Month::Feb())){
Shiori.live();
d++;
}
}
catch(Miracle& m){
Shiori.recover();
return;
}
Shiori.die();
}
0050名無しさんだよもん
NGNGsetHiddenText("葉鍵板")
End If
0052名無しさんだよもん
NGNG0053名無しさんだよもん
NGNGwhile (1){
&nbsp;&nbsp;Nagamoris.add(niwa.excavated());
&nbsp;&nbsp;I.want(HELP);
}
0054名無しさんだよもん
NGNGsub damage {
return "blood";
}
$takako = damage("semimaru");
$takako = 'ハァハァ' if ($takako);
0055名無しさんだよもん
NGNG0056……あなたを殺します
NGNGkill -9 `cat /var/run/kouichi.pid`
0057澪
NGNG0058名無しさんだよもん
NGNGwhen Question
&nbsp;&nbsp;orihara.listen(yor.question)
when Worry
&nbsp;&nbsp;hijiri.listen(you.suffering)
when Sin
&nbsp;&nbsp;niseshin.listen(you.confess)
end
0059そら
NGNGint 往人の記憶;
そらの脳みそ = 往人の記憶;
0060名無しさんだよもん
NGNGあんたを許すわけにはいかんです!こんなカキコでレスたくさん付くとでも
思ってるなんて頭おかしーよです!あんたみたいなバカ初めて見たです!
あんたみたいなバカ、ゴキブリ以下です!あんたみたいなバカ、ウジ虫以下です!
死んでほしーです!つーか、死ぬべきです!あんたは絶対に許されないです!
勘違いしたバカを許すわけにはいかんのです!面白半分にいい加減なカキコ
するヤツなど許さんです!キャラメルコーンのピーナッツをケツの穴に詰めて
死ねよです!!!
今まであんたがどんな生き方してきたか知らんけど、どーせひどい生き様
だったと想像出来るです!あんたのカキコから読みとれるです!バカ特有の
匂いがするです!あんたのことが全く理解出来んです!あんたは絶対許さんです!
死んでも許さんです!地獄で苦しめよです!それでも足らんくらいです!
豆腐の角に頭ぶつけて死ねよです!!!
あんたもっと現実を知れよです!いつまでも引きこもってネクラなことしてる
場合じゃないよです!でも、もー手遅れです!あんたは何をやってもダメです!
この世に生まれてきたことを後悔してもダメです!あんたは生まれ変わっても
どうせダメ人間に決まってるです!絞め殺したいけどあんたに触るのが嫌なので
やめるです!でも、あんたみたいなカスは死ねよです!風呂の排水溝に吸い込まれて
死ねよです!!!
絶対許さんです!絶対許さんです!絶対許さんです!あんたみたいなヤツは
絶対許さんです!早く消えろです!さっさとこの世からいなくなれよです!!!
いつまでも勘違いしたまま生きていけると思ったら大間違いだよです!この
まま生きててもお前にはいーことなんにもねーよです!何でもいいからさっさと
死ねよです!!!
0061名無しさんだよもん
NGNG@`一-、
/ ̄ l | / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
■■-っ < んじゃいったんCMでーす。
´∀`/ \__________
__/|Y/\
Ё|__ | / |
| У |
0062名無しさんだよもん
NGNG我々の突然の訪問にも笑顔で応えてくれる芹沢教授。
その笑顔に導かれるように我々は早速この件についての意見を芹沢教授にお聞きした。
「まあ、世の中いろんな人間がいますからね。けど殆どの人間は別に異常って訳ではないんですよ。このせちがらい世の中。ストレスのない人間の方がかえって不気味ですよ」
そう屈託のない笑顔を浮かべながら語る芹沢教授。
その応対に自信を持った我々は早速教授に例の日記を診てもらう事にした。
頭を掻きながらいつものように余裕の表情を見せる芹沢教授。
良かった。
これでこの件も解決に向かうだろう。そう確信した矢先。
「…?」
ふと気付けば芹沢教授が不思議そうな表情を浮かべながらARMの日記を推考している。心のない瞳で。まるで魂が抜け落ちたような人形のような姿で。そして次の瞬間。
「う…げえええええええええええええッ!」
芹沢教授の口から大量の吐しゃ物が流れ出る。滝のように。胃の中を全て吐き出すように。
「先生! 大丈夫ですか!?」
我々はその突然の事態に慌てふためきながら芹沢教授に駆け寄る。
「近寄るな!」
だが、そんな我々の行動を制止する甲高い声。
それは他ならぬ芹沢教授の怒りの咆哮だった。
「帰ってくれ…。さっさと帰ってくれ!!」
そして先程までの笑顔を失ったように鬼の形相でこちらを睨み付ける芹沢教授。
その瞳には怒りの炎が。そして悲しみの涙が頬を濡らすように零れ落ちていた。
「ちくしょう! ふざけんじゃねーぞ、ゴルァーーーーーーーッ!」
ガシャアッ!!
次の瞬間。そんな狂った声と共に目の前のパソコンを叩き壊す芹沢教授。
両足に渾身の力を込めながら、既に残骸となったパソコンを滅茶苦茶に蹴り付ける芹沢教授。
我々は額に滝のような汗を流しながらその光景をただ見守る事しか出来なかった。
0063名無しさんだよもん
NGNGtry{
otedama = rand();
throw otedama;
}
catch(int result){
if( result == SUCCEED ){
return GOOD;
}
}
}
0064名無しさんだよもん
NGNG.......... OK 60 is aborned safety.
.......... OK 61 is aborned safety.
...... Oops 62 be zombie.
0065名無しさんだよもん
NGNG0066名無しさんだよもん
NGNG改訂第3版 KANON対応 「はじめてのC」
相沢 祐一 著
A5 判 / 69 ページ / 本体価格 1919 円+税
初版 1999年9月発行
●本書の概要
累計で10万部を超えるベストセラーです.記述はけっしてやさしくはありませんが、
優れた攻略例が豊富で,読者はそれらを読みとくことで理解していきます。
追随を許さない初体験の定番入門書です。
0068名無しさんだよもん
NGNGλ
( )
(´ー`)
(____)
0069中尾
NGNG0071実際はエラーだが
NGNG(
person CHAR(14) NOT NULL@`
part CHAR(16) NOT NULL
);
INSERT INTO key VALUES('折戸'@`'音楽');
INSERT INTO key VALUES('麻枝'@`'文章');
INSERT INTO key VALUES('いたる'@`'絵');
INSERT INTO key VALUES('みきぽん'@`'絵');
INSERT INTO key VALUES('久弥'@`'文章');
INSERT INTO key VALUES('しのり〜'@`'絵');
INSERT INTO key VALUES('鳥の'@`'絵');
DELETE FROM key WHERE person = '久弥';
INSERT INTO key VALUES('戸越'@`'音楽');
INSERT INTO key VALUES('イシカワ'@`'文章');
INSERT INTO key VALUES('ぢん'@`'絵');
INSERT INTO key VALUES('涼元'@`'文章');
INSERT INTO key VALUES('Na-Ga'@`'絵');
0072誰か直してくれ。@はうす
NGNG気持ち
繰り返す。
相手は 変数。
気持ちとは
相手が おばあさん? ならば
席をゆずること
つぎに 犬さん? ならば
挨拶して
尋ねること。
犬さんは 変数。
挨拶は 相手と 「こんにちは」を
表示すること。
尋ねるとは
犬さんは おなががすいている? ならば
クッキーを あげること
でなければ
犬さん 「って、どういう気持ちですか?」を 表示すること。
0073名無しさんだよもん
NGNGC言語始めたばかりなので間違ってるかもしれないけど。
#include(stdio.h)
int heart(); /*気持ち関数*/
int greeting(); /*挨拶関数*/
int ask(); /*尋ねる関数*/
int main
{
heart();
return 0;
}
int heart()
{
int life;
if (life = old_woman) /*お婆さんのとき*/
transfer_seat(); /*席を譲る*/
else if (life = dog){ /*犬さんのとき*/
greeting();
ask();
return 0;
}
else
return 0;
}
return 0;
}
int greeting()
{
printf("こんにちは\n");
return 0;
}
int ask()
{
int dog;
if (dog = hungry) /*お腹が空いてるなら*/
give_cookie(); /*クッキーをあげる*/
else if
printf("%dってどんな気持ちですか?\n"@` dog);
return 0;
}
007473
NGNG鬱だ…。
0075名無しさんだよもん
NGNG0076名無しさんだよもん
NGNG0077名無しさんだよもん
NGNG0078名無しさんだよもん
NGNG0080名無しさんだよもん
NGNGはじまりは ここから
気持ち
繰り返す。
相手は 変数。
気持ちとは
相手が おばあさん? ならば
席をゆずること
でなければ
相手が 犬さん? ならば
挨拶して
尋ねること。
犬さんは 変数。
ふと 「変数」という表現はシュールできれいだな と思った。
挨拶は 相手と 「こんにちは」を
声に出すこと。
尋ねるとは
犬さんが おなががすいている? ならば
クッキーを あげること
でなければ
犬さん 「って、どういう気持ちですか?」と 声に出すこと。
ふと 葉鍵キャラAIが作りたいな と思った。
0081名無しさんだよもん
NGNG# >>73さんの訂正も兼ねてるので、Perl知ってれば参考にしてください。
# >>72をやわらかい表現にしてみたいな
for (;;) {
heart();
}
$life = $ARGV[0];
sub heart {
if ($life eq 'おばあさん') {
setseat();
} else
if ($life eq '犬さん') {
greeting();
ask();
}
}
$dog = $ARGV[1];
# 「変数」という表現はシュールできれいだな
sub greeting {
print "$life こんにちは";
}
sub ask {
if ($dog eq 'おなががすいている') {
set_cookie("DOG"); # 誰か、ここで笑ってくれ……
} else {
print "$lifeって、どういう気持ちですか?";
}
}
# 葉鍵キャラAIが作りたいな
0082名無しさんだよもん
NGNGC:\> perl 81.pl 犬さん おなかがすいている
出力結果
犬さん こんにちは
犬さんって、どういう気持ちですか?
思わず最初に無限ループ書いてしまったけど、こんな感じです。
0083犬さん@はうす
NGNGmindという実在する言語のつもりで書いてたりします。
実際に使ったことないので間違ってますが。
#というかアルゴリズム間違ってるやん^^;
http://www.scripts-lab.co.jp/mind/ver7/v7win_news.htm
cgiも書けるみたいなので、誰か実際に、クッキーください^^;。
誰かforth(フォース)で焼きそば作ってくれないかな。
スタックで脳味噌がスパゲティになったりして?
0084名無しさんだよもん
NGNG0085名無しさんだよもん
NGNGWHILE〜WENDが使えるのはN-88 BASICじゃなくてN-88 DISK BASICかN-88 BASIC(86).
FORI=0TO1:I=0:PRINT"オマエモナー";:NEXT
オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー
Break
Ok.
■
いちおうBreak in **じゃないところが厨房ミソのつもり。
0087>>84
NGNGsub isTaint {
local ($kanjyou) = shift;
if ($kanjyou eq 'ハァハァ') {
return '精神的疾患の一種';
} else {
return '健常';
}
}
sub ore {
local($ore) = shift;
return $ore;
}
print "$name、よく、聞け…\n";
$kanjyou = $heart;
print "お前が感じている"@` $kanjyou@` "は、"@` isTaint($kanjyou)@` "だ。\n";
print "沈める方法は"@` ore("俺")@` "が知っている。"@` ore("俺")@` "に任せろ。\n";
0088名無しさんだよもん
NGNG008987
NGNG0090名無しさんだよもん
NGNG0091名無しさんだよもん
NGNG0092名無しさんだよもん
NGNG0093名無しさんだよもん
NGNGそれをビルドすれば出来あがりです。
0095面白い!
NGNG0096名無しさんだよもん
NGNGset filt to "うぐぅ"$口癖
list
----------------
月宮あゆ
0098名無しさんだよもん
NGNG0099アーヒャヒャヒャ
NGNGSTYLE WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "゚∀゚ アーヒャヒャヒャヒャヒャ"
FONT 9@` "MS Pゴシック"
BEGIN
DEFPUSHBUTTON "アヒャヒャ(&A)"@`IDOK@`204@`7@`50@`14
PUSHBUTTON "詳細(&D)"@`IDCANCEL@`204@`36@`50@`14
LTEXT "このアヒャヒャはアヒャーなアヒャをアヒャッたのでアヒャヒャーヒャッヒャッヒャッヒャヒャヒャヒャヒャー"@`
IDC_STATIC@`63@`7@`126@`17
CONTROL "アヒャいアヒャッヒャは、アヒャヒャのアーヒャヒャヒャヒャヒャ\nアーヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャ"@`
IDC_STATIC@`"Static"@`SS_LEFTNOWORDWRAP | WS_GROUP@`63@`33@`
126@`17
ICON IDI_ICON1@`IDC_STATIC@`7@`7@`18@`21@`SS_REALSIZEIMAGE@`0@`
HIDC_STATIC
ICON IDI_ICON2@`IDC_STATIC@`7@`29@`18@`21
END
0100うぐぅ
NGNGintMsgBox = (MsgBox "うぐぅはあゆ?"@`vbYesNo@`"あゆあゆ")
If intMsgBox = vbYes then
MsgBox "うぐぅ来訪者"@`@`"正解"
Else
MsgBox "逝ってよし!オマエモナー"@`@`"不正解"
End If
0101Aluusqull
NGNGこれ Pascal 系ですか?
0102勉強に
NGNG0103名無しさんだよもん
NGNG#そう言えばlisp系がまだ出てきてないな。
0104名無しさんだよもん
NGNG肉のソースリストをかけばいいのか。
0106アーヒャヒャヒャ
NGNG|゚∀゚ アーヒャヒャヒャヒャヒャ x |
├────────────────────────────┤
| ∧_∧ このアヒャヒャはアヒャーなアヒャをアヒャッたので _____ |
|( ゚∀゚ ) アヒャヒャーヒャッヒャッヒャッヒャヒャヒャヒャヒャー |アヒャヒャ(A)>>| |
| ~~~∴~~  ̄ ̄ ̄ ̄ ̄ |
| ∵;"*:;: アヒャいアヒャッヒャは、アヒャヒャのアーヒャヒャヒャヒャヒャ |
| ;".アーヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャヒャ ______ |
| | 詳細(D)>>| |
|  ̄ ̄ ̄ ̄ ̄ |
└────────────────────────────┘
あいこんもあるで。
0108名無しさんだよもん
NGNGテキストを置き換えるプログラムがあったんだけど失念。
だれか知らない?
0109名無しさんだよもん
NGNG0110Aluusqull
NGNG日本語版も出ています。
>>108
シュアだと eXescope になるのかな?
0111名無しさんだよもん
NGNGそいえば痕かなんかのシナリオエンジンを書くって奴がいたような?
0112名無しさんだよもん
NGNGtype ugu.txt
------------
うぐぅ
type ugu.txt > con
------------
うぐぅ
copy ugu.txt con
------------
うぐぅ
0113名無しさんだよもん
NGNG0114名無しさんだよもん
NGNGif errorlevel 255 goto Bad
if errorlevel 1 goto Ok
goto End
:Bad
echo うぐぅじゃないよ
goto end
:Ok
echo うぐぅあゆあゆ
goto end
:end
0115名無しさんだよもん
NGNGこれバッチファイル?
0116名無しさんだよもん
NGNGもっとマジメに研究しろよ。
0117名無しさんだよもん
NGNG0118名無しさんだよもん
NGNGいくらヒッキーだったとはいえあまりにも暇すぎ>俺(W
0119C言語
NGNGvoid eien(person *kouhei) {
if (kouhei->link == NULL) {
for (;;) ;
};
};
0121名無しさんだよもん
NGNGほんとなら公開きぼん
0122名無しさんだよもん
NGNG0123名無しさんだよもん
NGNG0124名無しさんだよもん
NGNGどっかにソースあったと思うが。GTKが鬼門だな。
さすがにWA以降の本編をやってる奴は居ないのかなあ?。
そういえばrubyで痕とか猪名川のあさひプレーヤーなんて話も聞いたな。
誰か>>72のmindでps版東鳩でも移植してくれ。
#期限は4/1ということで。
0125名無しさんだよもん
NGNG20 GOTO 10
0126名無しさんだよもん
NGNGアドレスきぼん
もしかしてNetBSDのPeaceプロジェクトのことなら、あれはWindowsのエミュ(?)だよ。
青空とかも動作するみたい。wineとはちょっと違うらしい。
0127126
NGNGhttp://chiharu.hauN.org/peace/ja/
0128名無しさんだよもん
NGNGいや別だよ。PCよろず相談スレとかにも情報アリ。
ぐーぐるで検索すれば出てくると思う。ただ正式に公開されてるのは雫だけかな。
取り敢えずX Window System 用Visual Novel のシステム開発全般の情報交換をするための
メーリングリストがあるんでそこのlog辿るとよろし。 [xvn-devel:0569]
0129名無しさんだよもん
NGNGMiracle();
}
0130大阪
NGNG0131名無しさんだよもん
NGNG0132名無しさんだよもん
NGNGName:中尾
Email:
URL:
最近2chのLeafKey板で、「元リーフスタッフだったひと」スレがなんだかアツい。
誰だネタバラしてるのは。おもしろいからもっとやれっ〜(笑)
人によると、元スタッフの日記を読み合わせているそうです。
ちなみに自分は、Leaf関係の事は一切書き込んでおりませんので誤解なきよう・・・。
Key関係は・・・ナイショ。
0133名無しさんだよもん
NGNG0134名無しさんだよもん
NGNG0135名無しさんだよもん
NGNG0136名無しさんだよもん
NGNG0137名無しさんだよもん
NGNG0138名無しさんだよもん
NGNG0139名無しさんだよもん
NGNG0140名無しさんだよもん
NGNG0141名無しさんだよもん
NGNGプログラム的にはって事なんだろうか?
■ このスレッドは過去ログ倉庫に格納されています