SPALM Web Interpreter

SPALM Web Interpreter
		No. 状態：停止

ソース

'バウンド'

'プログラム初期化'
WAIT=30
setfont("T")
//setscsize(320,320)
wd=width
ht=height
sw=stwide("0")
sh=sthigh
soft2("end")

'データ初期化'
label 1000
start=1 // 開始フラグ
amode=0 // 音楽モード
vol=80  // 音量(0-100)
rr=5    // 半径
if (audcheck()) {
  amode=0
  audmake(0,"!c0 @500 e")
  //audmake(0,"!c0 @502 e32e")
  audmake(1,"!c0 @501 d2")
  audvolume(0,vol)
  audvolume(1,vol)
  audmode(amode)
  if (amode) { soft1("mute") } else { soft1("sound") }
} else {
  amode=-1
  audmode(0)
}

'メインループ'
label 1001
lock()
gc()
col(0x000000)
frect(0,0,wd,ht)
col(0xFF0000)
frect(0,56+rr,138,2)
//col(0xFFFF00)
//frect(138,56+rr,wd,2)
if (start) {
  start=0
  rx=0
  ry=0
  rvx=3
  rvy=0
  rc=0
  sc=0
}
rx+=rvx
ry+=rvy
rvy+=2
'(rvy= 0, 2, 4, 6, 8,10,12,14)'
'(ry = 0, 2, 6,12,20,30,42,56)'
col(0xFFFFFF)
farc(rx,ry,rr)
sc++
if (sc%15==8) {
  rc++
  if (rc<=3) { audplay(0) rvy=-14 }
  if (rc==4) { audplay(1) }
}
if (sc>(15+15+15)*2) { start=1 }
//if (sc==15+15+15+1) { text(rx." ".ry) end }
k=input(0)
if (k==131072&&amode>=0) {
  amode=!amode
  audmode(amode)
  if (amode) { soft1("mute") } else { soft1("sound") }
}
if (k==262144) { end }
unlock(1)
sleep(WAIT)
goto 1001

詳細表示