【初心者】課題をクリアしていくスレ【講習会】

【初心者】課題をクリアしていくスレ【講習会】 at GAMEDEV

[前50を表示]
250:名前は開発中のものです。
04/07/05 22:48 LZQQVRIy.net
>>247
WinMainからはじまって
CreateWindowでウィンドウの設定して
ShowWindowで表示するだけだ

251:HSPが初プログラム@生徒希望
04/07/05 22:51 ZZjGGIiZ.net
sdim m,4000 : notesel m
mesbox m,640,480
noteadd "2" m : noteadd "3" m : noteadd "5" m : noteadd "7" m

n=7
c=4

*judge
n+=2

if n\3=0 : goto *judge
if n\5=0 : goto *judge
if n\7=0 : goto *judge

noteadd "n" m : c+

if c=1000 : goto *s

goto *judge

*s
stop

素数はこれで出るカナと思ったんですが、エラー発生。原因を突き止められませんTT

252:x≠先生かつx＝生徒　⇒　x＝俺
04/07/05 23:00 pTJ3lo22.net
エラーを読も・・・・・Σ(；ﾟДﾟ)HSPがエラー吐いてない！

noteadd "*" m
　　　　　　　　~|~
　　要らない。ここでエラーが出てる。

noteadd "n"
　　　　　 ~|~
エラーの原因ではないが、""+nの誤り。

あと、objprm 0, mをstopの前に入れて出力させてあげよう。

253:HSPが初プログラム@生徒希望
04/07/05 23:07 ZZjGGIiZ.net
>>252
thx
でも、4363で終わりますがあってるんでしょうか?

sdim m,4000 : notesel m
mesbox m,640,480
noteadd "2" : noteadd "3" : noteadd "5" : noteadd "7"

n=7
c=4

*judge
n+=2

if n\3=0 : goto *judge
if n\5=0 : goto *judge
if n\7=0 : goto *judge

noteadd ""+n : c+

if c=1000 : goto *s

goto *judge

*s
objprm 0, m
stop

254:x≠先生かつx＝生徒　⇒　x＝俺
04/07/05 23:24 pTJ3lo22.net
たしか7919のはずだけど・・・

暇だしPerlとJava版の素数判定作ってみようかな。。。

255:名前は開発中のものです。
04/07/05 23:25 MIzlaErt.net
>>253
間違ってるよ・・・
121とかあるし・・・11からの素数の合成数が出まくりやね。

256:名前は開発中のものです。
04/07/06 00:11 hNVuoewj.net
>>247
それは簡単だって！どっかのサイトに張ってあるやつをそのままコピペで完成だぁよぉ！

257:名前は開発中のものです。
04/07/06 01:48 IHRV3HSb.net
素数スレになってるのだが・・・

258:名前は開発中のものです。
04/07/06 02:29 pkSoPn0/.net
Delphi　エラトステネスの篩
URLﾘﾝｸ(gamdev.org)

259:x≠先生かつx＝生徒　⇒　x＝俺
04/07/06 07:38 BOq5Vq10.net
#!D:\perl\bin\perl.exe

print "Content-type: text/plain\n\n";
print "Start\n";
print "2\n";
$table[0] = 2;
$i = 1;
for(2..1000){
　　　　for($i += 2; ; $i += 2){
　　　　　　　　if(&IsPrime($i)){ last; }
　　　　}
}
print "Finish";
exit(1);

sub IsPrime{
　　　　(my $src) = @_;
　　　　for($j = 0; $table[$j] <= sqrt($src); $j++){
　　　　　　　　if($src % $table[$j] == 0){ return 0; }
　　　　}
　　　　print $src."\n";
　　　　push(@table, $src);
　　　　return 1;
}

# Perl版。printを取ってみると分かるけどPerlはインタープリタなのに
# 結構処理速いね。。。

260:名前は開発中のものです。
04/07/06 12:03 IHRV3HSb.net
>>259
Perlは見かけ上インタプリタだけど、
処理はコンパイル後実行だと聞いたことがある。

261:名前は開発中のものです。
04/07/06 16:54 pkSoPn0/.net
C#で素数
static　void　Main(string[]　args)
{
　　　　int　sosuCount=0;
　　　　for　(int　i　=　2;　sosuCount<1000;　i++)
　　　　{
　　　　　　　　Boolean　nososu;
　　　　　　　　nososu　=　false;
　　　　　　　　for　(int　j　=　2;　j　<　i　;　j++)
　　　　　　　　{
　　　　　　　　　　　　if　((i　%　j)　==　0)
　　　　　　　　　　　　{
　　　　　　　　　　　　　　　　nososu　=　true;
　　　　　　　　　　　　　　　　break;
　　　　　　　　　　　　}
　　　　　　　　}
　　　　　　　　if　(!nososu)
　　　　　　　　{
　　　　　　　　　　　　Console.WriteLine(i);
　　　　　　　　　　　　sosuCount++;
　　　　　　　　}
　　　　}
　　　　Console.WriteLine(sosuCount　+　"個の素数を発見しました");
}

262:x≠先生かつx＝生徒　⇒　x＝俺
04/07/06 17:32 BOq5Vq10.net
public class Prime {
public final static int PRIME_MAX = 1000;
static int PrimeTable[] = new int [PRIME_MAX];
static int TableLast = 1;

public static void main(String[] args) {
int l = 1;
PrimeTable[0] = 2;
System.out.println(2);
for(; TableLast < PRIME_MAX; TableLast++)
for(l += 2; ; l += 2)
if(IsPrime(l)) break;
System.out.println("Finish");
}
public static boolean IsPrime(int src) {
for(int i = 0; PrimeTable[i] <= Math.sqrt(src) && i < TableLast; i++)
if(src % PrimeTable[i] == 0) return false;
PrimeTable[TableLast] = src;
System.out.println(src);
return true;
}
}

// Java版。
// あと手を付けてない言語は何だっけ。
// ・・・ひまわりでもやってみるか。

263:名前は開発中のものです。
04/07/06 18:09 pkSoPn0/.net
//PHPで素数
<?php
　　　　for ($i=2; $sosuCount<1000; $i++)
　　　　{
　　　　　　　　$nososu=false;
　　　　　　　　for ($j=2; $j<$i; $j++)
　　　　　　　　{
　　　　　　　　　　　　if (($i % $j) == 0)
　　　　　　　　　　　　{
　　　　　　　　　　　　　　　　$nososu=true;
　　　　　　　　　　　　　　　　break;
　　　　　　　　　　　　}
　　　　　　　　}
　　　　　　　　if (!$nososu)
　　　　　　　　{
　　　　　　　　　　　　echo $i;
　　　　　　　　　　　　echo "\n";
　　　　　　　　　　　　$sosuCount++;
　　　　　　　　}
　　　　}
　　　　echo $sosuCount + "個の素数を発見しました";
?>

264:名前は開発中のものです。
04/07/06 18:57 pkSoPn0/.net
#Pythonで素数
sosuCount=0
i=2
while sosuCount<1000:
　　　　　　　　nososu=False
　　　　　　　　j=2
　　　　　　　　while j<i:
　　　　　　　　　　　　　　　　if ((i % j) == 0):
　　　　　　　　　　　　　　　　　　　　　　　　nososu=True
　　　　　　　　　　　　　　　　　　　　　　　　j=99999
　　　　　　　　　　　　　　　　　　　　　　　　break
　　　　　　　　　　　　　　　　j=j+1
　　　　　　　　if (not nososu):
　　　　　　　　　　　　　　　　print i
　　　　　　　　　　　　　　　　sosuCount=sosuCount+1
　　　　　　　　i=i+1
print sosuCount
print "個の素数を発見しました"

265:生徒A
04/07/06 19:10 B1nIIlBn.net
素数スレに変化していたらしい

266:名前は開発中のものです。
04/07/06 19:57 2QvbUldx.net
いろんな言語で素数プログラムつくるとゲーム作れるようになるですか

267:4 ◆3VUXqvbfSY
04/07/06 20:22 sRW7wZ6D.net
>>266
なるわけありませんｗ

だだし、解らない方をホっといて課題を進める訳には…

うーん…

じゃあ、課題外伝でも出しますか…
余力が有ればどうぞ。

弾道シミュレーション:とは言え、何も波動方程式を使えとはいわない。
真空空間で結構。
画面を横を640kmと仮定し、初速、角度を入力させ、弾の軌道を描いてくれ。
ちなみに、初速は29000m/s以下で
重力加速度は10m/(s^2)でお願いします。

268:x≠先生かつx＝生徒　⇒　x＝俺
04/07/06 20:28 BOq5Vq10.net
(；ﾟДﾟ)ﾉ先生!…まだ高1なので習ってません

269:名前は開発中のものです。
04/07/06 21:30 Oq4N2t0v.net
>>２６８
高一だけどもう習ったよ

270:名前は開発中のものです。
04/07/06 21:32 tJWPmmxn.net
とりあえず初速度を三角関数でxとyに分解した後、
重力加速度をyに対して適用していきましょう。

しかし初速29000m/sだと、軽々地球を離脱して重力圏外に吹っ飛んでいきそうです。

271:名前は開発中のものです。
04/07/06 21:37 jam3e6md.net
地球の半径は6370kmぐらいでいいですか？

272:HSPが初プログラム@生徒希望
04/07/06 22:03 GhTVD8Z+.net
>>242
> if n{
このｎって何の意味があるんですか?

それから>>241にある「>>」の使い方がわかりません…

273:HSPが初プログラム@生徒希望
04/07/06 22:06 GhTVD8Z+.net
連レス済みません

HSPでの平方根の出すのと、その整数か否かの判断てできますか?
できれば、教えてください。

質問ばっかで済みません

274:x≠先生かつx＝生徒　⇒　x＝俺
04/07/06 23:17 BOq5Vq10.net
>>269
ｶﾞ━(ﾟДﾟ;)━━ﾝ!!
物理じゃなくて化学だし・・・

>>270
何をすればいいのか全くわからそ( ´･ω･`)

>>271
ループを抜けるときにn = 0にされていたら(割り切れたときにn = 0にして抜けている)無視、
されていない(素数)のとき、いろいろしてる。

>>はビットシフト。2進数が関わってきます。
で、結果的には
x >> nは、xを2のn乗で割るのと同じ。
x << nは、xに2のn乗をかけるのと同じ。
だから、n>>1はn/2と同じ。

平方根も求められるには求められるけど、自分で求めるアルゴリズムは用意しないといけない。
その整数か否かとは・・・？

275:名前は開発中のものです。
04/07/06 23:53 pkSoPn0/.net
//HSPヘルプではincludeするのはhspext.hsになってますがhspext.asじゃないと動きません
//なぜ？(´･ω･｀)
//
//平方根の求め方
//
//HSP2.61で動作確認しますた
//
#include "hspext.as"
//100の平方根を求めます
i=100
//iの平方根を固定少数点型でjに代入
emsqr j,i
//jの値を整数型にキャスト(少数点以下切り捨て)
j=j>>4
//jを表示
print j
stop

276:名前は開発中のものです。
04/07/07 04:08 FL+3iUiB.net
これであってるのかな
よくわからんので実行しても合ってるのか確認しようがない(´･ω･｀)
ググった式をそのまま当てはめてみました

弾道シミュレーション
URLﾘﾝｸ(gamdev.org)

277:HSPが初プログラム@生徒希望
04/07/07 21:29 dX/NBYiw.net
>>274
返答有難う御座います。
学校で考えてたら、平方根だけじゃダメだとわかったんで、
>>233にあった2以上～自分未満ってのをやってみようと思います。

因みに整数か否かとは、平方根出したときのことです。
例えば√2は1.414…ですよね？だから整数じゃないですし、√4なら2ですから整数で、
整数じゃなかったら素数に入れよう!とか思ってたんですが、
11*13(適当に思いついた)だとダメなんですよね…

278:名前は開発中のものです。
04/07/07 21:32 W6JVsWwD.net
ゲームに必要なのは実現できるか否かだ
ちょっぱやな素数判定できることに課題としての価値はないよ
ｶﾞﾝｶﾞﾚ

279:x≠先生かつx＝生徒　⇒　x＝俺
04/07/07 22:18 lBWiEqny.net
√27 = 5.1961...
27 = 3 * 9

280:C / HSPの生徒 orz
04/07/07 23:08 B0lUGdqJ.net
>>275
> HSPヘルプではincludeするのはhspext.hsになってますがhspext.asじゃないと動きません
HSPヘルプは電波入っているから気にしないがよし。
つかhspソースファイルの拡張子は".as"以外使わないと思うが。

>>274
>267を簡単に表現すると、
　　＿＿
　／　　＼　　　　　　　　　　　／
〇　　　　　〇←B.止まる　A／) 角度 R
↑
A.初速<29000m/s

こんな感じの軌道を描画する。
で、真空中なのでX軸方向の速度は初速 * cosR
Y軸は初速 * sinR で、毎秒-10していく。

281:x≠先生かつx＝生徒　⇒　x＝俺
04/07/07 23:51 lBWiEqny.net
>>280
#include "hspext.as"
screen 2, 300, 100, 4: title "Config"
pos 5, 8: mes "初速:": pos 50, 5: input speed, 215, 25: pos 270, 8: mes "m/s"
pos 5, 38: mes "角度:": pos 50, 35: input angle, 210, 25: pos 265, 38: mes "/255"
pos 5, 70: objsize 290, 25: button "Start", *start
gsel 0: stop
*start
emsin sin, angle: emsin cos, angle
mx = speed * sin / 255: my = speed * cos / 255
x = 0: y = 480000: pos x/1000, y/1000
repeat
x += mx: y -= my: my -= 10
line x / 1000, y / 1000
wait 10
loop
stop

こんな感じかぇ・・・？

282:C / HSPの生徒 orz
04/07/08 14:31 oFd7+xVG.net
>>281
sin と cos が逆だけど、だいたいOKじゃないか？
俺も281参考に一応作ってみた。
…なんでcos7がマイナスになるんだ、理解できん。

#include "hspext.as"
#define EDIT_X 160
#define EDIT_Y 24
#define G 10
#define SCREEN_X 640
#define SCREEN_Y 480
width SCREEN_X, SCREEN_Y
title "C / HSPの生徒 orz"
color 200, 200, 200:boxf
pos 120, 70:button "描画", *ready
goto config_sub

283:C / HSPの生徒 orz
04/07/08 14:31 oFd7+xVG.net
*ready
color 200, 200, 200:boxf
if v0 > 29000:stop
uchar_r = r \ 360 * 255 / 360
color 240
emsin sin, uchar_r:emcos cos, uchar_r
vx = -v0 * cos / 255:vy = -v0 * sin / 255
x = 0:y = SCREEN_Y:pos x, y
repeat
x += vx:y += vy:vy += G
line x, y
if (y > SCREEN_Y) || (x < 0) || (x > SCREEN_X):break
await 0
loop
*config_sub
color
pos 40, 15:mes "初速 :":pos 100, 10:input v0, EDIT_X, EDIT_Y
pos 40, 45:mes "角度 :":pos 100, 40:input r, EDIT_X, EDIT_Y
stop

284:x≠先生かつx＝生徒　⇒　x＝俺
04/07/08 17:42 gJH4XEvh.net
おっと、emcosがemsinになってたか・・・

285:名前は開発中のものです。
04/07/08 17:45 f5vo4Z1w.net
なんていうかさ。素数よりも、もっと普通にゲームでよく使うようなやつを
やったほうがいいんじゃないかな？

ボールが跳ねるのをシミュレート、とかなら
ジャンプするゲームでは確実に使うだろうし。

286:4 ◆3VUXqvbfSY
04/07/08 19:00 xmAVGw0W.net
なんか…確かに素数ばっかりに見えますが…違うんですよ。
素数で詰まってる人が多いってだけで…

あとですね…ボールが跳ね返るシミュレーション、ジャンプに使いますかねぇ？
マリオが勝手に地面で跳ね返ったら、俺は切れますがｗ

…ああ、何時になったらインベーダーが…本来なら、そろそろ、赤い四角に弾でも撃って貰おうと思ってたんですが…

わかりました。二つ出します

メイン課題前の、赤い四角に弾を撃って貰います。さらに前課題の降ってくる物体と相殺させて下さい。
弾丸は横2ドット、縦16ドットで黄緑色
動きは Y座標(初期値は赤い四角のY座標+16)その後Y--; X座標(初期値は赤い四角のX座標÷２)その後固定;
当たった時点もしくは、画面外にでたら再発射が可能となる。
基本一発。ただし、複数発実装できるならしても良い。

課題外伝ボールの跳ね返りシミュ
ボールを(0,0)から水平投射する。(速度は自由)
床の反発係数は0.8
壁は1.0
重力加速度は10m/s^2

287:名前は開発中のものです。
04/07/08 20:05 kembbGf8.net
トランポリンでも使うつもりなんですかね
ジャンプで跳ね返りって…
そいやマリオには敵ふんだときちょっと浮くけどあれなのかな･･･

288:名前は開発中のものです。
04/07/08 21:00 gJH4XEvh.net
名古屋撃ちのために、実装しない方向で行こう。。。

>>286
こんな感じでOK?

#include "hspext.as"
screen 2, 300, 100, 4: title "Config"
pos 5, 8: mes "初速:": pos 50, 5: input speed, 215, 25: pos 270, 8: mes "m/s"
pos 5, 38: mes "角度:": pos 50, 35: input angle, 210, 25: pos 265, 38: mes "/255"
pos 5, 70: objsize 290, 25: button "Start", *start
gsel 0: stop
*start
cls
emsin sin, angle: emcos cos, angle
mx = speed * sin / 255: my = speed * cos / 255
x = 320000: y = 240000: pos x/1000, y/1000
repeat
x += mx: y -= my: my -= 10
if x<0: x=0: mx = -mx
if x>640000: x=640000: mx = -mx
if y>480000: y=480000: my = -my * 8 / 10: if my<80: my = 0: stop
line x / 1000, y / 1000
wait 1
loop
stop

289:名前は開発中のものです。
04/07/08 23:33 UCn/khb4.net
#include "hspext.as"
#const G 10
#const Coeff 10
#const Wall_e 10
#const Floor_e 8

screen 0, 640, 480, 1
dim sin,256 :dim cos,256
repeat 256 :emsin sin.cnt,cnt :emcos cos.cnt,cnt :loop

screen 2, 150, 100, 4: title "Config"
pos 5, 8: mes "初速:": pos 50, 5: input V, 50, 25: pos 100, 8: mes "m/s"
pos 5, 38: mes "角度:": pos 50, 35: input C, 50, 25: pos 100, 38: mes "°"
pos 5, 70: objsize 120, 25: button "Start", *main
gsel 0 :stop
*main
if V > 29000 : 29000
if C > 90 : C = 90
C = C * 256 / 360 :Vx = V :Vy = V :Ycnt = 0 :x = 0 :y = 0

repeat
redraw 0 :await 1
color 255,255,255 :boxf :color 255,0,0 :pos 0, 460 : mes "■" :color 0,0,255 :line 0, 475, 640, 475
color 0,0,0 :x += Vx * (-cos.C) / 256 :y += Vy * sin.C / 256 - (G * Ycnt)

if x / 1000 < 0 :Vx = -Vx * Wall_e / Coeff :x = 0
if x / 1000 > 624 :Vx = -Vx * Wall_e / Coeff :x = 624000
Ycnt++ :if y < 0 :Vy = Vy * Floor_e / Coeff :y = 0 :Ycnt = 0
pos x / 1000, -y / 1000 + 460 : mes "○" :if cnt > 0 & (Vy <= 0) :break
redraw 1 :loop :stop
投下

290:x≠先生かつx＝生徒　⇒　x＝俺
04/07/09 00:10 bufBX0Vb.net
#include "hspext.as"
screen 2, 300, 100, 4: title "Config"
pos 5, 8: mes "初速:": pos 50, 5: input speed, 215, 25: pos 270, 8: mes "m/s"
pos 5, 38: mes "角度:": pos 50, 35: input angle, 210, 25: pos 265, 38: mes "/255"
pos 5, 70: objsize 290, 25: button "Start", *start
gsel 0: stop
*start
cls
emsin sin, angle: emcos cos, angle
mx = speed * sin / 255: my = speed * cos / 255
x = 320000: y = 240000: pos x/1000, y/1000
repeat
ox = x: oy = y: x += mx: y -= my: my -= 10
if x<0: x=0: mx = -mx
if x>624000: x=624000: mx = -mx
if y>464000: y=464000: mx = mx * 8 / 10: my = -my * 8 / 10: if my<80|(mx==0): my = 0: stop
;redraw 0
color 255, 255, 255: pos ox/1000, oy/1000: mes "○"
color 0, 0, 0: pos x/1000, y/1000: mes "○"
;redraw 1
wait 1
loop
stop

改造版。

>>289
ｽｹﾞｰ・・・

291:C / HSPの生徒 orz
04/07/09 10:25 nlM8j7wC.net
>>286の課題作ってみたが、ゲーム性を考えて数値をアレンジしています。
#define RED_SIZE 32
#define ENEMY_SIZE 32
#define MOVE_TIME 32
#define OBJ_SX 2
#define OBJ_SY 16
#define OBJ_SPEED 16
randomize
width 640, 480
red_x = 640 - RED_SIZE / 2:red_y = 480 - RED_SIZE
repeat
redraw 2:color 255, 255, 255:boxf
if enemy_stat = 0:enemy_y = -ENEMY_SIZE:enemy_stat = 1:title "C / HSPの生徒 orz 撃破数: "+obj_cnt
enemy_timer++:if enemy_timer > MOVE_TIME:enemy_timer = 0
if enemy_timer = 0:rnd enemy_x, 640 - ENEMY_SIZE
stick key, 15:if key & 1{red_x-4}if key & 4{red_x+4}
stick key, 16:if key = 16 & (obj_stat = 0){
obj_stat = 1:obj_x = RED_SIZE / 2 - (OBJ_SX / 2) + red_x:obj_y = red_y - 16}
if (enemy_x < obj_x) & (obj_x + OBJ_SX < (enemy_x + ENEMY_SIZE)) {
if (enemy_y < obj_y) & (obj_y + OBJ_SY < (enemy_y + ENEMY_SIZE)) {
obj_cnt++:obj_stat = 0:enemy_stat = 0:color 255, 0, 0:boxf} }if obj_y + OBJ_SY < 0:obj_stat = 0
if enemy_stat:color 100, 100, 200:boxf enemy_x, enemy_y, enemy_x + ENEMY_SIZE, enemy_y + ENEMY_SIZE
color 200, 100, 100:boxf red_x, red_y, red_x + RED_SIZE, red_y + RED_SIZE
if obj_stat:color 100, 200, 100:boxf obj_x, obj_y, obj_x + OBJ_SX, obj_y + OBJ_SY:obj_y-OBJ_SPEED
enemy_y++:if enemy_y > 480{enemy_stat = 0}await 20:redraw 1
loop

292:285
04/07/09 10:46 mw4kM0V8.net
すまん、言葉足らずだった。
ジャンプの軌道の加速減速だ。

ボールが跳ねるって部分は蛇足だったな。

293:285
04/07/09 10:48 mw4kM0V8.net
＞ボールが跳ねるって部分は蛇足だったな。
↓
＞ボールが跳ねるって言い方は変だったな。

言葉足らずって言うより、俺、言い回しが変だね。

294:名前は開発中のものです。
04/07/09 16:12 o2BnBgF7.net
>>277
平方根以下の素数で割り切れるかを調べればいいので11*13(=143)をチェックする場合、
143の平方根が11.958......なので2～11の数で割り切れるか調べればよい
11で割り切れるので素数ではないことがわかる

295:名前は開発中のものです。
04/07/09 19:10 o2BnBgF7.net
似たような事やってるスレみつけてきた

[ＶＢ] 初心者に課題を [.ｎｅｔ]
ｽﾚﾘﾝｸ(tech板)

296:名前は開発中のものです。
04/07/09 22:13 2xcy471S.net
<html><body onload="go()">
角度<input type="text" value="45" id=ra>度<br>
初速<input type="text" value="1000" id=sp>m/s<br>
<input type="button" value="GO" onclick="go()"><script>
elm=new Array();
for(i=0;i<128;i++){
elm[i]=document.createElement('div');
elm[i].style.position='absolute';
elm[i].style.font='normal normal normal 7px "ＭＳゴシック"';
elm[i].innerHTML='■';
document.body.appendChild(elm[i]);
}
function go(){
r=document.getElementById('ra').value; s=document.getElementById('sp').value;
document.getElementById('ra').value=r=(r>89)?89:(r<0)?0:r;
document.getElementById('sp').value=s=(s>29000)?29000:(s<1)?1:s;
for(i=0;i<128;i++){
y=0; rd=r/180*Math.PI;
for(j=0;j<5000*i/s/Math.cos(rd);j++) y+=(s-10*j)*Math.sin(rd);
if(y<0)y=0;
elm[i].style.left=i*5; elm[i].style.top=475-y/1000;
}
}
</script></body></html>

297:HSPが初プログラム@生徒希望
04/07/09 22:49 nI9aNbgB.net
一応あってますか？
課題２小さい方から1000個の素数
sdim m,4000 : notesel m
mesbox m,640,480

n=2 : c=1 : j=1

*judge
if n-1=j : goto *pn
j+

if n \ j=0 : n+ : j=1

wait 1
goto *judge

*pn
c+
noteadd ""+n

if c=1000 : goto *finish

n+ : j=1

wait 1
goto *judge

*finish
objprm 0, m
stop
激しく遅いですが…

298:名前は開発中のものです。
04/07/09 23:19 JPrr+eC9.net
>>297
初期値の c は0にしないと、一つ少なくなるよ

299:HSPで素数
04/07/10 08:28 gc5EpECZ.net
#include "hspext.as"
False=0:True=1:count++:i=3
mes "計算中......"
while count<1000
　　　　sosu=True
　　　　j=3
　　　　emsqr chk,i
　　　　chk=chk>>4
　　　　while j<=chk
　　　　　　　　if (i \ j)=0 {
　　　　　　　　　　　　sosu=False
　　　　　　　　　　　　_break
　　　　　　　　}
　　　　　　　　j=j+2
　　　　wend

　　　　if sosu=True {
//　　　　　　　　cls
//　　　　　　　　mes i
　　　　　　　　EndNum=i
　　　　　　　　count++
　　　　}
　　　　i=i+2

　　　　gettime NowTime, 6
　　　　if (NowTime!=BeforeTime) {
　　　　　　　　BeforeTime=NowTime
　　　　　　　　wait 1
　　　　}
wend
mes "計算終了。"+count+"個目の素数は"+EndNum+"です。"
stop mes

300:名前は開発中のものです。
04/07/10 14:33 /RFPsMma.net
ゲムが完成するのは10後くらいの気がするのは私だけだろうか

301:名前は開発中のものです。
04/07/10 15:30 wQKs6GiV.net
このスレ遠回りしすぎ。
素数とか必要になったときにやればいいのに。
ゲーム製作に必ず必要なものではない。

302:名前は開発中のものです。
04/07/10 16:06 qklEKUA/.net
HSPにまともなゲームが無いのはゲームに関係無い事ばかりに力入れてる厨房ばかりだからじゃないか？ｗ

303:名前は開発中のものです。
04/07/10 16:07 gc5EpECZ.net
弾発射の課題で弾の色が黄緑が指定されてたので調べてきました
JISで決まってるようです
#BBC000(187,192,0)
URLﾘﾝｸ(www5d.biglobe.ne.jp)

304:285
04/07/10 19:01 EpDrHTyy.net
>301
俺もそう思った。上から落ちてくるものを受け止めるとか
そういう簡単なゲームを作ったみたほうがいいんじゃないかと。

305:名前は開発中のものです。
04/07/10 19:02 EpDrHTyy.net
しまった、名前欄そのままだった＿|￣|○

306:HSPで素数　エラトステネスの篩い
04/07/10 19:34 gc5EpECZ.net
#include "hspext.as"
True=1
False=0
Max=7920
Dim SosuList, Max

emsqr chk,Max
chk=chk>>4

mes "計算中......"
i=3
while i<=chk
　　　　j=i+i
　　　　while j<Max
　　　　　　　　SosuList.j=True
　　　　　　　　j=j+i
　　　　wend
　　　　i=i+2
wend

i=3
sum=1
while i<Max
　　　　if SosuList.i=False {
　　　　　　　　sum++
　　　　}
　　　　i=i+2
wend
mes "合計"+sum+"個の素数を発見しました。"
stop

307:HSPが初プログラム@生徒希望
04/07/10 21:23 +13mwptL.net
>>298
あ、それはちょっと変更ミスです。

>>297で一応合ってるんでしょうか?

308:HSPが初プログラム@生徒希望
04/07/10 21:53 +13mwptL.net
連レスｽﾏｿ
こうするとちょっと早くなりました
sdim m,4000 : notesel m
mesbox m,640,480

n=2 : c=0 : j=1

*judge

if n-1=j : goto *pn
j+

if n \ j=0 : n+ : j=1

await
goto *judge

*pn
c+
noteadd ""+n

if c=1000 : goto *finish

n+ : j=1

goto *judge

*finish
objprm 0, m
stop

309:名無しさん＠そうだ選挙に行こう
04/07/11 07:11 q09vifT2.net
課題8 メイン課題弾を撃って貰います
URLﾘﾝｸ(gamdev.org)

310:名無しさん＠そうだ選挙に行こう
04/07/11 08:10 k56A1TFY.net
課題8　Zで弾発射

<html><head><title>Invader Game?</title><style type="text/css"></style></head>
<body onLoad="main()" onKeyDown="k[event.keyCode]=1" onKeyUp="k[event.keyCode]=0">
<div id=char class="self ch"></div><div id=enemy class="enemy ch"></div>
<div id=mi0 class=missile></div><div id=mi1 class=missile></div><div id=mi2 class=missile></div>
<script language="Javascript"></script></body></html>

311:名前は開発中のものです。
04/07/12 00:04 m2Go/Kix.net
>>285
>>301
>>304
先生！試しに出題と採点をしてみませんか？

312:名前は開発中のものです。
04/07/12 06:31 YBMwRYh2.net
>310
神降臨

313:名前は開発中のものです。
04/07/12 14:47 m2Go/Kix.net
課題9 課題外伝ボールの跳ね返りシミュ
URLﾘﾝｸ(gamdev.org)

314:C / HSPの生徒 orz
04/07/12 19:22 rv2Ic3EG.net
課題8 メイン課題弾を撃って貰います
URLﾘﾝｸ(gamdev.org)
馬鹿やってたので修正。

315:HSPが初プログラム@生徒希望
04/07/12 19:26 ANTzJhbU.net
敵に触れても終わりませんけど、いいんですか？

316:VB.NETで素数
04/07/12 21:26 m2Go/Kix.net
Module　Module1

　　　　Sub　Main()
　　　　　　　　Dim　i　As　Integer
　　　　　　　　Dim　j　As　Integer
　　　　　　　　Dim　count　As　Integer
　　　　　　　　Dim　sosu　As　Boolean

　　　　　　　　i　=　2
　　　　　　　　While　count　<　1000
　　　　　　　　　　　　sosu　=　False
　　　　　　　　　　　　For　j　=　2　To　Math.Sqrt(i)
　　　　　　　　　　　　　　　　If　(i　Mod　j)　=　0　Then
　　　　　　　　　　　　　　　　　　　　sosu　=　True
　　　　　　　　　　　　　　　　End　If
　　　　　　　　　　　　Next
　　　　　　　　　　　　If　Not　sosu　Then
　　　　　　　　　　　　　　　　count　=　count　+　1
　　　　　　　　　　　　　　　　Console.WriteLine(i)
　　　　　　　　　　　　End　If
　　　　　　　　　　　　i　=　i　+　1
　　　　　　　　End　While
　　　　End　Sub

End　Module

317:名前は開発中のものです。
04/07/13 19:20 EV/5lhQ6.net
素数はそろそろ打ち切りにしない？

318:4 ◆3VUXqvbfSY
04/07/13 21:57 UU6rJvtG.net
打ち切りってどうやるんでしょうか…

まあ。進める人はいつまでも素数をやらずに、次に進んでください。
とか言っときます。

んでは…次の課題
赤い四角の敵の移動をインベダ風にしよう。
縦２体横３体の合計六機の敵が、左右に移動します。
端に到達すると、一キャラ分下降します。
弾が当たると、当たったキャラを消去し、ソコが抜けた状態でそのまま、上の動作を繰り返します。
下まで到達されたら終了。

319:名前は開発中のものです。
04/07/14 14:18 fwuwWRAB.net
チェック対象がたくさんある場合の当たり判定って、どうやるのがベストなんだろう？
弾が２０個、ターゲットが２０機居たら２０ｘ２０の全組み合わせの判定をするしかないの？

320:名前は開発中のものです。
04/07/14 14:32 hWTGJY1w.net
>>319
Octtree でググってみ

321:C / HSPの生徒 orz
04/07/14 19:12 JsMT7SMh.net
課題10 インベダ風移動
URLﾘﾝｸ(gamdev.org)

322:134
04/07/14 19:57 3WONRXZv.net
他のパソコンだと重いかも

URLﾘﾝｸ(gamdev.org)

323:名前は開発中のものです。
04/07/14 21:08 R7T0IzUh.net
>>322
高速弾で弾幕張ってくるインベーダー超怖え(((( ;ﾟДﾟ)))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ

324:134
04/07/14 21:42 3WONRXZv.net
>323
いや、弾の発射の処理がいまいちよく分からなかったので、そうなってしまいました。
感想ありがとうございます。

325:HSPが初プログラム
04/07/14 22:00 naAXWZ/B.net
やってみました。凄く難しかった…

326:課題３赤い四角　その１
04/07/15 01:22 mfzLmHcI.net
#include <d3d9.h>
LPDIRECT3D9 g_pD3D = NULL;
LPDIRECT3DDEVICE9 g_pd3dDevice = NULL;
LPDIRECT3DVERTEXBUFFER9 g_pVB = NULL;

struct CUSTOMVERTEX
{
FLOAT x, y, z, rhw;
DWORD color;
};

#define D3DFVF_CUSTOMVERTEX (D3DFVF_XYZRHW|D3DFVF_DIFFUSE)
HRESULT InitD3D( HWND hWnd )
{
if( NULL == ( g_pD3D = Direct3DCreate9( D3D_SDK_VERSION ) ) )
return E_FAIL;

D3DPRESENT_PARAMETERS d3dpp;
ZeroMemory( &d3dpp, sizeof(d3dpp) );
d3dpp.Windowed = TRUE;
d3dpp.SwapEffect = D3DSWAPEFFECT_DISCARD;
d3dpp.BackBufferFormat = D3DFMT_UNKNOWN;

if( FAILED( g_pD3D->CreateDevice( D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, hWnd,
D3DCREATE_SOFTWARE_VERTEXPROCESSING,
&d3dpp, &g_pd3dDevice ) ) )
{
return E_FAIL;
}

return S_OK;
}

327:課題３赤い四角　その２
04/07/15 01:23 mfzLmHcI.net
HRESULT InitVB()
{
CUSTOMVERTEX vertices[] =
{
{ 0.0f, 0.0f, 0.5f, 1.0f, 0xffff0000, }, // x, y, z, rhw, color
{ 320.0f, 0.0f, 0.5f, 1.0f, 0xffff0000, },
{ 320.0f, 240.0f, 0.5f, 1.0f, 0xffff0000, },
{ 0.0f, 240.0f, 0.5f, 1.0f, 0xffff0000, },
};

if( FAILED( g_pd3dDevice->CreateVertexBuffer( 4*sizeof(CUSTOMVERTEX),
0, D3DFVF_CUSTOMVERTEX,
D3DPOOL_DEFAULT, &g_pVB, NULL ) ) )
{
return E_FAIL;
}

VOID* pVertices;
if( FAILED( g_pVB->Lock( 0, sizeof(vertices), (void**)&pVertices, 0 ) ) )
return E_FAIL;
memcpy( pVertices, vertices, sizeof(vertices) );
g_pVB->Unlock();

return S_OK;
}

328:課題３赤い四角　その３
04/07/15 01:24 mfzLmHcI.net
VOID Cleanup()
{
if( g_pVB != NULL )
g_pVB->Release();

if( g_pd3dDevice != NULL )
g_pd3dDevice->Release();

if( g_pD3D != NULL )
g_pD3D->Release();
}

VOID Render()
{
g_pd3dDevice->Clear( 0, NULL, D3DCLEAR_TARGET, D3DCOLOR_XRGB(0,0,255), 1.0f, 0 );

if( SUCCEEDED( g_pd3dDevice->BeginScene() ) )
{
g_pd3dDevice->SetStreamSource( 0, g_pVB, 0, sizeof(CUSTOMVERTEX) );
g_pd3dDevice->SetFVF( D3DFVF_CUSTOMVERTEX );
g_pd3dDevice->DrawPrimitive( D3DPT_TRIANGLEFAN, 0, 2 );

g_pd3dDevice->EndScene();
}

g_pd3dDevice->Present( NULL, NULL, NULL, NULL );
}

329:課題３赤い四角　その４
04/07/15 01:26 mfzLmHcI.net
LRESULT WINAPI MsgProc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam )
{
switch( msg )
{
case WM_DESTROY:
Cleanup();
PostQuitMessage( 0 );
return 0;
}

return DefWindowProc( hWnd, msg, wParam, lParam );
}

INT WINAPI WinMain( HINSTANCE hInst, HINSTANCE, LPSTR, INT )
{
WNDCLASSEX wc = { sizeof(WNDCLASSEX), CS_CLASSDC, MsgProc, 0L, 0L,
GetModuleHandle(NULL), NULL, NULL, NULL, NULL,
"D3D Tutorial", NULL };
RegisterClassEx( &wc );

HWND hWnd = CreateWindow( "D3D Tutorial", "課題",
WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, 0, 640, 480,
GetDesktopWindow(), NULL, wc.hInstance, NULL );

330:課題３赤い四角　その５（ラスト）
04/07/15 01:27 mfzLmHcI.net
if( SUCCEEDED( InitD3D( hWnd ) ) )
{
if( SUCCEEDED( InitVB() ) )
{
ShowWindow( hWnd, SW_SHOWDEFAULT );
UpdateWindow( hWnd );

MSG msg;
ZeroMemory( &msg, sizeof(msg) );
while( msg.message!=WM_QUIT )
{
if( PeekMessage( &msg, NULL, 0U, 0U, PM_REMOVE ) )
{
TranslateMessage( &msg );
DispatchMessage( &msg );
}
else
Render();
}
}
}

UnregisterClass( "D3D Tutorial", wc.hInstance );
return 0;
}

331:名前は開発中のものです。
04/07/15 01:45 iLVEI/nf.net
やっぱりソース貼りつけは見辛いな

332:名前は開発中のものです。
04/07/15 08:31 FCzCT1vF.net
課題1,3,4,5,7 (ActiveBasic)です。残りは、後でやる事にします

URLﾘﾝｸ(gamdev.org)

333:C / HSPの生徒 orz
04/07/15 09:18 Ian2SxqZ.net
>>322＝>>324
始めて見たけど、こんな感じのインベーダーもいいかも（｀・ω・´）

オリジナルに近づけるなら、
　・折り返しのときにずれないようにする
　・自分の弾は二発（あの弾幕に一発はきつい）
　・敵はばらばらに弾を撃つ
だと思う。

せっかく敵を構造体で処理してるから、
敵の処理のところで個別に乱数発射させればいいんじゃない？

334:C / HSPの生徒 orz
04/07/15 09:47 Ian2SxqZ.net
やべ、訂正。
〇自分の弾は一発（あの弾幕だと二発じゃないときつい）
×自分の弾は二発（あの弾幕に一発はきつい）

335:C / HSPの生徒 orz
04/07/15 11:27 Ian2SxqZ.net
課題10 インベダ風移動　修正版
URLﾘﾝｸ(gamdev.org)

次の課題マダー？

336:名前は開発中のものです。
04/07/15 12:55 930GPiwR.net
>>335
ソースが初心者っぽくない:-)

337:名前は開発中のものです。
04/07/15 20:55 mfzLmHcI.net
#include <d3d9.h>
#include <dinput.h>
LPDIRECT3D9 g_pD3D = NULL;
LPDIRECT3DDEVICE9 g_pd3dDevice = NULL;
LPDIRECT3DVERTEXBUFFER9 g_pVB = NULL;
LPDIRECTINPUT8 g_lpDI;
LPDIRECTINPUTDEVICE8 g_lpDIDevice;
HINSTANCE g_hinst;
HWND g_hwndMain;
struct CUSTOMVERTEX
{
FLOAT x, y, z, rhw;
DWORD color;
};
CUSTOMVERTEX vertices[] =
{
{ 0.0f, 0.0f, 0.5f, 1.0f, 0xffff0000, }, // x, y, z, rhw, color
{ 320.0f, 0.0f, 0.5f, 1.0f, 0xffff0000, },
{ 320.0f, 240.0f, 0.5f, 1.0f, 0xffff0000, },
{ 0.0f, 240.0f, 0.5f, 1.0f, 0xffff0000, },
};
#define D3DFVF_CUSTOMVERTEX (D3DFVF_XYZRHW|D3DFVF_DIFFUSE)
int cx;
int cy;
void WINAPI ProcessKBInput()
{
#define KEYDOWN(name, key) (name[key] & 0x80)
char buffer[256];
HRESULT hr;
hr = g_lpDIDevice->GetDeviceState(sizeof(buffer),(LPVOID)&buffer);
if FAILED(hr)
{

338:名前は開発中のものです。
04/07/15 20:55 mfzLmHcI.net
exit(EXIT_FAILURE);
}
cx=0;
cy=0;
if (KEYDOWN(buffer, DIK_RIGHT))
cx=1;
else if(KEYDOWN(buffer, DIK_LEFT))
cx=-1;

if (KEYDOWN(buffer, DIK_UP))
cy=-1;
else if (KEYDOWN(buffer, DIK_DOWN))
cy=1;
}
void WINAPI DI_Term()
{
if (g_lpDI)
{
if (g_lpDIDevice)
{
g_lpDIDevice->Unacquire();
g_lpDIDevice->Release();
g_lpDIDevice = NULL;
}
g_lpDI->Release();
g_lpDI = NULL;
}
}
HRESULT InitJoystick()
{
HRESULT hr;

339:名前は開発中のものです。
04/07/15 20:57 mfzLmHcI.net
//オブジェクトの作成
hr = DirectInput8Create(g_hinst, DIRECTINPUT_VERSION,
IID_IDirectInput8, (void**)&g_lpDI, NULL);
if FAILED(hr)
{
exit(EXIT_FAILURE);
}

//キーボードデバイスの作成
hr = g_lpDI->CreateDevice(GUID_SysKeyboard, &g_lpDIDevice, NULL);
if FAILED(hr) {
DI_Term();
exit(EXIT_FAILURE);
}

//キーボードのデータ形式の設定
hr = g_lpDIDevice->SetDataFormat(&c_dfDIKeyboard);
if FAILED(hr) {
DI_Term();
exit(EXIT_FAILURE);
}

//キーボードの動作の設定
hr = g_lpDIDevice->SetCooperativeLevel(g_hwndMain,
DISCL_FOREGROUND | DISCL_NONEXCLUSIVE);

if FAILED(hr) {
DI_Term();
exit(EXIT_FAILURE);
}
}

340:名前は開発中のものです。
04/07/15 20:58 mfzLmHcI.net
HRESULT InitD3D( HWND hWnd )
{
if( NULL == ( g_pD3D = Direct3DCreate9( D3D_SDK_VERSION ) ) )
return E_FAIL;
D3DPRESENT_PARAMETERS d3dpp;
ZeroMemory( &d3dpp, sizeof(d3dpp) );
d3dpp.Windowed = TRUE;
d3dpp.SwapEffect = D3DSWAPEFFECT_DISCARD;
d3dpp.BackBufferFormat = D3DFMT_UNKNOWN;

if( FAILED( g_pD3D->CreateDevice( D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, hWnd,
D3DCREATE_SOFTWARE_VERTEXPROCESSING,
&d3dpp, &g_pd3dDevice ) ) )
{
return E_FAIL;
}

return S_OK;
}
HRESULT InitVB()
{
if( FAILED( g_pd3dDevice->CreateVertexBuffer( 4*sizeof(CUSTOMVERTEX),
0, D3DFVF_CUSTOMVERTEX,
D3DPOOL_DEFAULT, &g_pVB, NULL ) ) )
{
return E_FAIL;
}
VOID* pVertices;
if( FAILED( g_pVB->Lock( 0, sizeof(vertices), (void**)&pVertices, 0 ) ) )
return E_FAIL;
memcpy( pVertices, vertices, sizeof(vertices) );

341:名前は開発中のものです。
04/07/15 21:07 mfzLmHcI.net
g_pVB->Unlock();
return S_OK;
}

VOID Cleanup()
{
if( g_pVB != NULL )
g_pVB->Release();
if( g_pd3dDevice != NULL )
g_pd3dDevice->Release();
if( g_pD3D != NULL )
g_pD3D->Release();
}
VOID Render()
{
if (g_lpDIDevice) g_lpDIDevice->Acquire();
ProcessKBInput();
for (int i=0; i<4; i++)
{
vertices[i].x=vertices[i].x+cx;
vertices[i].y=vertices[i].y+cy;
}
VOID* pVertices;
if( FAILED( g_pVB->Lock( 0, sizeof(vertices), (void**)&pVertices, 0 ) ) )
exit(EXIT_FAILURE);
memcpy( pVertices, vertices, sizeof(vertices) );
g_pVB->Unlock();

g_pd3dDevice->Clear( 0, NULL, D3DCLEAR_TARGET, D3DCOLOR_XRGB(0,0,255), 1.0f, 0 );
if( SUCCEEDED( g_pd3dDevice->BeginScene() ) )
{

342:名前は開発中のものです。
04/07/15 21:07 mfzLmHcI.net
g_pd3dDevice->SetStreamSource( 0, g_pVB, 0, sizeof(CUSTOMVERTEX) );
g_pd3dDevice->SetFVF( D3DFVF_CUSTOMVERTEX );
g_pd3dDevice->DrawPrimitive( D3DPT_TRIANGLEFAN, 0, 2 );

g_pd3dDevice->EndScene();
}
g_pd3dDevice->Present( NULL, NULL, NULL, NULL );
}
LRESULT WINAPI MsgProc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam )
{
switch( msg )
{
case WM_DESTROY:
Cleanup();
PostQuitMessage( 0 );
return 0;
}
return DefWindowProc( hWnd, msg, wParam, lParam );
}
INT WINAPI WinMain( HINSTANCE hInst, HINSTANCE, LPSTR, INT )
{
g_hinst=hInst;
WNDCLASSEX wc = { sizeof(WNDCLASSEX), CS_CLASSDC, MsgProc, 0L, 0L,
GetModuleHandle(NULL), NULL, NULL, NULL, NULL,
"D3D Tutorial", NULL };
RegisterClassEx( &wc );
HWND hWnd = CreateWindow( "D3D Tutorial", "課題",
WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, 0, 640, 480,
GetDesktopWindow(), NULL, wc.hInstance, NULL );
g_hwndMain=hWnd;
InitJoystick();
if( SUCCEEDED( InitD3D( hWnd ) ) )

343:名前は開発中のものです。
04/07/15 21:36 FFz8UuO5.net
うｐろだ使えよ・・

344:名前は開発中のものです。
04/07/15 21:48 mfzLmHcI.net
過去ログよんだからわざわざ貼ったのに
ろだ推奨にルール変更？

345:名前は開発中のものです。
04/07/15 22:09 A+IEwnnr.net
ところでGdevうき落ちてる？

346:名前は開発中のものです。
04/07/15 22:12 mfzLmHcI.net
とりあえずラストまで

>>337-342
{
if( SUCCEEDED( InitVB() ) )
{
ShowWindow( hWnd, SW_SHOWDEFAULT );
UpdateWindow( hWnd );

MSG msg;
ZeroMemory( &msg, sizeof(msg) );
while( msg.message!=WM_QUIT )
{
if( PeekMessage( &msg, NULL, 0U, 0U, PM_REMOVE ) )
{
TranslateMessage( &msg );
DispatchMessage( &msg );
}
else
Render();
}
}
}

UnregisterClass( "D3D Tutorial", wc.hInstance );
return 0;
}

347:名前は開発中のものです。
04/07/15 22:17 nw/x++ui.net
ライフゲームを自分でぐぐって製作

348:名前は開発中のものです。
04/07/15 22:27 FFz8UuO5.net
>>344
いや、俺は過去ログ読んでないから知らんが、こんだけ連張りするんなら
うｐろだ使えばいいだろって事。せっかく用意されてんだし。

と思ったら今gamdev.org落ちてんのか・・

349:4 ◆3VUXqvbfSY
04/07/15 22:30 ulthkOuE.net
まあ…DirectXを使うときは…
初期化は省きましょう

350:名前は開発中のものです。
04/07/15 22:33 mfzLmHcI.net
避難所は落ちてますね
wiki、ろだ等全滅です
>>173のろだは生きてるようだけど使っていいのかな？テストって言ってたけど
URLﾘﾝｸ(cgi.f11.aaacafe.ne.jp)

>>347
先生ｷﾀ━━━(ﾟ∀ﾟ)━━━ !!
でもライフゲームなんて作ってたらまたゲームに関係ないものを
作ってと怒り出す人がいるのでその時はおながいしますね
ちなみに採点できる言語は何ですか？

351:4 ◆3VUXqvbfSY
04/07/15 22:40 ulthkOuE.net
>>347
ﾜｰｲ良いですねぇ。ライフ｢ゲーム｣と言い切れば、誰からも文句は出ないですし。
今回は僕は生徒でｗ

仕様を決めてくださいよ～
生死条件や個々の移動条件とか

352:名前は開発中のものです。
04/07/15 22:42 mfzLmHcI.net
と思ったら4様もｷﾀ━━━(ﾟ∀ﾟ)━━━ !!
了解しました＞初期化は省きましょう
サンプルそのままなんで見る意味もないですし
課題に関係がある所だけ貼って後はろだにうぷするのがバランスいいかな

>>348
連貼りするのは生理的に受け付けないのに我慢してやってるんだから
酷いこといわないでよヽ(`Д´)ﾉ

353:名前は開発中のものです。
04/07/15 22:51 7EJWxb81.net
課題10　インベダ風移動

<html><head><title>Invader Game?</title><style type="text/css"></style></head><body onLoad="main()" onKeyDown="k[event.keyCode]=1" onKeyUp="k[event.keyCode]=0">
<div id=char class="ch"></div><script language="Javascript"></script></body></html>

次ページ