【sage厨】HSP初質P34【必死すぎ】
■ このスレッドは過去ログ倉庫に格納されています
0449デフォルトの名無しさん
NGNGヘタレながらコンテストに出そうと思ってスケルトン作ったんだけど、ここからどうすれば面白くなるなりそうか。
プログラムコンテストとか言ってるくせに評価はアイデアとか重視してるからな。
↓ソースです。
font "FixedSys",16,0
tk=50:dim t,tk:dim tx,tk:dim ty,tk:x=winx/2:y=winy/2
repeat tk:t.cnt=1:rnd tx.cnt,winx:rnd ty.cnt,winy:loop
*main
color:boxf:color 255,255,255
pos x,y:mes "▲"
repeat tk
if t.0 : pos tx.cnt,ty.cnt:mes "■":ty.cnt+2:if ty.cnt>winy : ty.cnt=-16
loop
stick k,15
if k&1 : x=x-4:if x<0 : x=0
if k&2 : y=y-4:if y<0 : y=0
if k&4 : x=x+4:if x>(winx-16) : x=(winx-16)
if k&8 : y=y+4:if y>(winy-16) : y=(winy-16)
redraw 1:redraw 0:await
goto *main
■ このスレッドは過去ログ倉庫に格納されています