最初詳細な説明を入れていましたがあえて削除しました
サンプルなどを流用するときはよくわからないままではなく、
どこがどうなってどうしてる、をちゃんと理解してからにしてくださいね
randomize
screen 0,200,200
color
boxf
color 255,255,255
repeat 200
ycnt = cnt
repeat 200
if rnd(1000) > 998:boxf cnt-1,ycnt-1,cnt+1,ycnt+1
loop
loop
color
repeat
mx = mousex
my = mousey
pget mx,my
if (ginfo_r != 0) & (ginfo_g != 0) & (ginfo_b != 0){
gosub *hata
}
await 16
title ""
loop
stop
*hata
title "黒以外です"
return