もう一度昔のゲーム投稿祭り（まとめサイトのゲーム参照）のときの賑わいになることを期待して昔書いた燃料投下してみる


screen 0,,,1:lo=2:mo=1:mes "味方の数":input mo,,,2
mes "敵の数":input lo,,,2:button "スタート",*st:stop
*st
cls:x=0:y=240:dim zx,100:dim zy,100:dim nx,100:dim ny,100:
dim xx,100:dim yy,100:dim mx,100:dim my,100:buffer 2,,,1:buffer 3,,,1:boxf:randomize
chr="　 n\n　(凸）\n@[ Y]−\n　/　>" :mchr="（ﾟДﾟ）\n -( )@\n　 < ＼"
font "ＭＳ Ｐゴシック",18:pos x,y :repeat:await 5:redraw 0
stick a,15:if a&16:gsel 2:color ,,128:boxf x+45,y+38,x+85,y+43
x-a&1!0*3:y-a&2!0*3:x+a&4!0*3:y+a&8!0*3
gsel 2:pos 0,0 : gcopy 2,-5,0,winx+1,winy
gsel 3:pos -5,0 : gcopy 3,0,0,winx+1,winy:color : boxf winx-6,0,winx,winy: gsel 0
pos 0,0 :gcopy 2,0,0,winx,winy : gmode 2 :gcopy 3,0,0,winx,winy
color:pget x+55,y+40:if rval=128:dialog "あぼーん":end
repeat lo:if cn\60=0 : rnd mx.cnt,180,rnd my.cnt,440:mx.cnt=mx.cnt+350
rnd sh,25 : if sh=0 : gsel 3 : color 128:boxf xx.cnt,yy.cnt+35,xx.cnt-30,yy.cnt+43 : gsel 0
xx.cnt=(xx.cnt*19)+(mx.cnt)/20 : yy.cnt=(yy.cnt*29)+(my.cnt)/30 : loop
repeat mo:if cn\60=0 : rnd nx.cnt,140,rnd ny.cnt,440
rnd sh,25 : if sh=0 : gsel 2:color ,128,128:boxf zx.cnt+45,zy.cnt+38,zx.cnt+85,zy.cnt+43 :gsel 0
zx.cnt=(zx.cnt*19)+(nx.cnt)/20 : zy.cnt=(zy.cnt*29)+(ny.cnt)/30 : loop
repeat lo:pget xx.cnt+55,yy.cnt+25:if bval!128:pos xx.cnt,yy.cnt:mes mchr : else:rnd xx.cnt,180,rnd yy.cnt,440:xx.cnt+400:p+1:title "得点:"+p
loop:repeat mo:pget zx.cnt+55,zy.cnt+25:if rval!128:pos zx.cnt,zy.cnt:mes chr : else:rnd zx.cnt,180,rnd zy.cnt,440:p-1:title "得点:"+p
loop:cn++:color 255:pos x,y:mes chr:redraw 1:loop