|
|
2007/8/1(Wed) 10:08:20|NO.9971
screen 0,500,500
a=250
b=250
c=0
d=5
*ii
repeat
cls
pos 100,100
mes"○"
pos a,b
mes"●"
stick key, 15 ;キー入力
if key & 1 : a=a-d ;左
if key & 2 : b=b-d ;上
if key & 4 : a=a+d ;右
if key & 8 : b=b+d ;下
if key & 128 : end ;[Esc]
if a=100 :goto *kuku
await 60
loop
*kuku
if b=100:goto *kukuku
goto *ii
*kukuku
wait 2
cls
mes"クリアー "
stop
●が画面からはみでます
どうすれば
はみ出ませんか
|
|
2007/8/1(Wed) 10:16:19|NO.9973
「はみ出ないようにする」処理が無いからでね?
|
|
2007/8/1(Wed) 10:18:43|NO.9974
>「はみ出ないようにする」処理が無いからでね?
その処理はどうやるんでね?
|
|
2007/8/1(Wed) 10:19:44|NO.9975
はみ出る時は座標がどういう常態か考えれば分かるんでね?
|
|
2007/8/1(Wed) 10:20:54|NO.9976
>はみ出る時は座標がどういう常態か考えれば分かるんでね?
つまりどういう事すればいいんでね?
|
|
2007/8/1(Wed) 10:22:23|NO.9977
「あとは夏休みの宿題にしよう。
みんな、登校日を忘れるなよ!
|
|
2007/8/1(Wed) 10:24:17|NO.9978
>「あとは夏休みの宿題にしよう。
みんな、登校日を忘れるなよ!
なんじゃそりゃ〜〜〜〜〜〜〜〜
おしえてよ〜〜〜〜〜〜〜〜〜〜
たのむよ〜〜〜〜〜〜〜〜〜〜〜
|
|
2007/8/1(Wed) 10:24:45|NO.9979
>登校日を忘れるなよ!
いつだよ〜〜〜〜〜〜〜〜
|
|
2007/8/1(Wed) 10:29:32|NO.9980
では8月6日まで。
それまでに宿題の出来ない子は漢字の書き取り10ページ。
|
|
2007/8/1(Wed) 10:32:22|NO.9981
>では8月6日まで。
それまでに宿題の出来ない子は漢字の書き取り10ページ。
なんでそーなんの
|
|
2007/8/1(Wed) 10:42:00|NO.9984
screen 0,500,500
a=250
b=250
c=0
d=5
*ii
repeat
cls 1
color 219,219,255
boxf 10,10,490,490
color 0,0,0
pos 100,100
mes"○"
pos a,b
mes"●"
stick key, 15 ;キー入力
if key & 1 : a=a-d ;左
if key & 2 : b=b-d ;上
if key & 4 : a=a+d ;右
if key & 8 : b=b+d ;下
if key & 128 : end ;[Esc]
if a=100 :goto *kuku
await 60
loop
*kuku
if b=100:goto *kukuku
goto *ii
*kukuku
wait 2
cls
mes"クリアー "
stop
拝啓シベリア気候が弱まる頃
背景を変えました(笑った人はすごい)
|
|
2007/8/1(Wed) 10:54:03|NO.9986
screen 0,500,500
a=250
b=250
c=0
d=5
*ii
repeat
cls 1
color 219,219,255
boxf 10,10,490,490
color 0,0,0
pos 100,100
mes"○"
pos a,b
mes"●"
stick key, 15 ;キー入力
if key & 1 : a=a-d ;左
if key & 2 : b=b-d ;上
if key & 4 : a=a+d ;右
if key & 8 : b=b+d ;下
if key & 128 : end ;[Esc]
if a=100 :goto *kuku
if a <= 10 : a=10
if a >= 480 : a=480
if b <= 10 : b=10
if b >= 480 : b=480
await 60
loop
*kuku
if b=100:goto *kukuku
goto *ii
*kukuku
wait 2
cls
mes"クリアー "
stop
できた〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
漢字の書取な〜し(いぇい)
|
|
2007/8/1(Wed) 10:54:30|NO.9987
「コラ!KENTA君!
宿題の答えを見せてあげるとは何事ですか!
罰として校庭10周です!
|
|
2007/8/1(Wed) 10:55:24|NO.9988
ソースは< pre >〜< /pre >で囲んでください。
そっちのほうが見やすいです!!
|
|
2007/8/1(Wed) 10:56:27|NO.9989
でも、僕のソースは参考にしてませんね〜〜。
limit使ってないし、redrawなども使ってないし。
|
|
2007/8/1(Wed) 10:58:35|NO.9990
「先生は結果を怒っているのではありません!
不正行為を怒っているのです!(ヲイ
|
|
2007/8/1(Wed) 10:59:13|NO.9991
分かりました。
すいません。今度から気を付けます。
|
|
2007/8/1(Wed) 10:59:20|NO.9992
というか、思いの外遊べたので良しとする(ヲ
|
|
2007/8/1(Wed) 11:00:20|NO.9993
screen 0,500,500
a=250
b=250
c=0
d=5
cls 1
*ii
repeat
redraw 1
color 219,219,255
boxf 10,10,490,490
color 0,0,0
pos 100,100
mes"○"
pos a,b
mes"●"
stick key, 15 ;キー入力
if key & 1 : a=a-d ;左
if key & 2 : b=b-d ;上
if key & 4 : a=a+d ;右
if key & 8 : b=b+d ;下
if key & 128 : end ;[Esc]
if a=100 :goto *kuku
*kukukuku
if a <= 10 : a=10
if a >= 475 : a=475
if b <= 10 : b=10
if b >= 475 : b=475
await 60
loop
*kuku
if b=100:goto *kukuku
goto *kukukuku
*kukuku
wait 2
cls
mes"クリアー "
stop
今度こそでけた〜
|
|
2007/8/1(Wed) 11:02:27|NO.9994
screen 0,500,500
a=250
b=250
c=0
d=5
cls 1
*ii
repeat
redraw 1
color 219,219,255
boxf 10,10,490,490
color 0,0,0
pos 100,100
mes"○"
pos a,b
mes"●"
stick key, 15 ;キー入力
if key & 1 : a=a-d ;左
if key & 2 : b=b-d ;上
if key & 4 : a=a+d ;右
if key & 8 : b=b+d ;下
if key & 128 : end ;[Esc]
if a=100 :goto *kuku
*kukukuku
if a <= 10 : a=10
if a >= 475 : a=475
if b <= 10 : b=10
if b >= 475 : b=475
await 60
loop
*kuku
if b=100:goto *kukuku
goto *kukukuku
*kukuku
wait 2
cls
mes"クリアー "
stop
最終版
|
|
2007/8/1(Wed) 11:04:19|NO.9995
f先生ありがとう(ここは学校?スレ?ネット学校?)
|
|
2007/8/1(Wed) 11:16:32|NO.9996
GENKI
君は今回やくにたたんかった
|
|
2007/8/1(Wed) 11:17:44|NO.9997
>GENKI
君は今回やくにたたんかった
KENTAだったGENKIさんすうません
|
|
2007/8/1(Wed) 11:25:42|NO.9999
>GENKI
>君は今回やくにたたんかった
なんでGENKIさんが出てくるのかが分からない。
普通間違えるかな〜〜。
|
|
2007/8/1(Wed) 11:29:36|NO.10000
>KENTA
そりゃ間違えるは
|
|