ドライブゲーム

環境
spalm iアプリ版
spalm more iアプリ版
確認機種
SH-06B
内容
簡単なドライブゲームです。
左右ボタンで壁をよけてすすみます。
だんだん道がせまくなり、また、自機が上にせり上がって難しくなります。
履歴
2011-1-14 初版
2011-1-30 若干の高速化

WAIT=20;
wd=width;
ht=height;
sw=stwide("0");
sh=sthigh;
soft2("end");
hs=load();
bg1="";
bg2="";
for(i=1;i<=40;i++){
bg1=bg1."=";
bg2=bg2." ";
}

label 1000;
sc=0;
k=0;k2=0;k3=0;
x=18;y=19;
bx=10;bw=20;
for(i=1;i<=25;i++){
bg[i]=substr(bg1,0,bx).substr(bg2,0,bw).substr(bg1,0,40-(bx+bw));
}

label 1001;
lock();
col(0x0000FF);
frect(0,0,wd,ht);
sc=sc+1;
if(sc>1000000){sc=1000000;}
if(sc>hs){hs=sc;}
if((sc%100)==0){
y=max(y-1,10);
bw=max(bw-1,10);
}
col(0xFFFF00);
text("SCORE:".sc,0,0,0);
col(0xFF0000);
text("HI-SCORE:".hs,120,0,0);

k=scan;k2=input(0);
if(k!=0){k3=k;}
if(k2==262144){end;}
x=x+((k&16384)&&(x<37))-((k&8192)&&(x>0));
col(0xFFFF00);
text("mAm",x*sw,y*sh,0);

copy(bg,1,bg,2,24);
bx=bx+abs(rand%3)-1;
if(bx<0){bx=0;}
if((bx+bw)>40){bx=40-bw;}
bg[1]=substr(bg1,0,bx).substr(bg2,0,bw).substr(bg1,0,40-(bx+bw));
col(0xFFFFFF);
for(i=1;i<=25;i++){
text(bg[i],0,i*sh,0);
}

if(strat(bg[y],x+1)!=" "){
col(0xFF0000);
text("@",(x+1)*sw,y*sh,0);
unlock(1);
save(hs);
sleep(1500);
clearkey();
k=input();
if(k==262144){end;}
goto 1000;
}

'col(0x00FF00);
text(k3,0,100,0);
text(wd,0,120,0);
text(ht,0,140,0);
text(sw,0,160,0);
text(sh,0,180,0);
text(rand,0,200,0);'

unlock(1);
sleep(WAIT);
goto 1001;