[過去ログ] HSPで完全オリのSLGを作るスレ (350レス)
上下前次1-新
抽出解除 必死チェッカー(本家) (べ) 自ID レス栞 あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
118(1): 03/10/22 19:27 ID:Zc2QBTuk(1/3) AAS
//方向キーで移動 スペースでユニットチェンジ
sdim unit,3,4 :unit.0="●" :unit.1="■" :unit.2="★"
dim unit_pos,3,3 :unit_pos.0.0=0,0 :unit_pos.0.1=7,7 :unit_pos.0.2=14,14
dim unit_move,3 :unit_move.0=3 :unit_move.1=4 :unit_move.2=5 :unit_rem=3
screen 0,480 :font "",33
repeat
color 80,80,80 :boxf
省16
119(1): 03/10/22 19:28 ID:Zc2QBTuk(2/3) AAS
*draw
i=1 :j=0 :color 200,200,255
repeat unit_move.num+1
repeat i
boxf unit_x*32-(cnt*32),unit_y*32+(unit_move.num*32)-j,unit_x*32-(cnt*32)+32,unit_y*32+(unit_move.num*32)-j+32
boxf unit_x*32+(cnt*32),unit_y*32+(unit_move.num*32)-j,unit_x*32+(cnt*32)+32,unit_y*32+(unit_move.num*32)-j+32
boxf unit_x*32-(cnt*32),unit_y*32-(unit_move.num*32)+j,unit_x*32-(cnt*32)+32,unit_y*32-(unit_move.num*32)+j+32
省6
120(1): 03/10/22 19:29 ID:Zc2QBTuk(3/3) AAS
*move
if k&1 :if unit_pos.0.num>0 {
if (unit_move.num=(move_l+move_u))|(unit_move.num=(move_l+move_d)) :return
repeat unit_rem
if (num!cnt)&(unit_pos.0.num-1=unit_pos.0.cnt)&(unit_pos.1.num=unit_pos.1.cnt) :break
if cnt=(unit_rem-1) :move_l++ :move_r-- :unit_pos.0.num--
loop
省24
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.930s*