COMPLETE VERSIONCOMPLETE VERSION打ち上げフルーツ
function setup() {
createCanvas(400, 400);
noStroke();
background("#97ece5");
let Count = 1;
setInterval(function() {
let Key_list = ["メロン", "イチゴ","ミカン", "スイカ", "カキ", "キウイ", "モモ", "サクランボ", "ブドウ", "レモン", "ヨウナシ", "バナナ", "アオリンゴ", "パイナップル", "リンゴ", "シャインマスカット"];
let min = 0;
let max = 15;
let One_Size = 2;
let Number = Math.floor(Math.random() * (max + 1 - 0)) + min;
let Draw_X = Math.floor(Math.random() * (400 + 1 - 0)) + 0;
let Draw_Y = Math.floor(Math.random() * (400 + 1 - 0)) + 0;
let name = Key_list[Number];
let List = list(name);
for(let y = 0; y < List.length; y++) {
for(let x = 0; x < List[0].length; x++) {
if(List[y][x] == 0) noFill();
if(List[y][x] == 1) fill("#000000");
if(List[y][x] == 2) fill("#00ff15");
if(List[y][x] == 3) fill("#9dffa5");
if(List[y][x] == 4) fill("#eede12");
if(List[y][x] == 5) fill("#e2dc8d");
if(List[y][x] == 6) fill("#ff0000");
if(List[y][x] == 7) fill("#ee8a8a");
if(List[y][x] == 8) fill("#906c6c");
if(List[y][x] == 9) fill("#246510");
if(List[y][x] == 10) fill("#32398b");
if(List[y][x] == 11) fill("#c0ffa7");
if(List[y][x] == 12) fill("#a5a8f2");
if(List[y][x] == 13) fill("#9061b8");
if(List[y][x] == 14) fill("#40009c");
let X = (x * One_Size) + Draw_X;
let Y = (y * One_Size) + Draw_Y;
rect(X, Y, One_Size);
}
}
if(Count % 20 == 0) {
clear();
background("#97ece5");
}
Count++;
}, 1000);
}
function list(name) {
let Meron = [
[0,0,0,1,0,0,0,0,0,0,0,0,0,0,],
[0,0,0,0,1,1,1,1,1,0,0,0,0,0,],
[0,0,0,0,0,0,1,0,0,0,0,0,0,0,],
[0,0,0,0,0,1,1,1,1,0,0,0,0,0,],
[0,0,0,1,1,0,1,0,3,1,1,0,0,0,],
[0,0,1,3,0,3,0,3,0,3,0,1,0,0,],
[0,1,3,0,3,0,3,0,3,0,3,0,1,0,],
[0,1,0,3,3,3,0,3,3,3,0,3,1,0,],
[1,0,3,0,3,0,3,3,3,0,3,3,3,1,],
[1,0,3,3,3,3,3,3,0,3,3,3,3,1,],
[1,3,3,0,3,0,3,0,3,3,3,3,3,1,],
[0,1,0,3,3,3,0,2,3,3,3,3,1,0,],
[0,1,3,0,3,0,3,3,3,3,3,3,1,0,],
[0,0,1,3,0,2,3,3,3,3,3,1,0,0,],
[0,0,0,1,1,0,3,3,3,1,1,0,0,0,],
[0,0,0,0,0,1,1,1,1,0,0,0,0,0,],
];
let Itigo = [
[0,0,0,0,0,1,1,0,1,1,0,0,0,],
[0,0,0,0,0,1,2,1,1,2,1,0,0,],
[0,0,0,1,1,1,2,2,4,4,2,1,0,],
[0,0,1,6,7,8,1,1,2,4,2,1,0,],
[0,1,6,6,6,6,6,5,1,2,2,1,0,],
[0,1,7,6,6,6,7,5,1,2,1,2,1,],
[0,1,6,6,6,6,6,6,5,1,1,2,1,],
[0,1,6,7,6,6,6,6,6,6,5,1,1,],
[0,1,6,6,6,6,7,6,6,7,6,1,0,],
[1,6,6,6,6,6,6,6,6,6,6,1,0,],
[1,7,6,6,6,7,6,6,7,8,1,0,0,],
[1,6,6,6,6,6,6,6,6,1,0,0,0,],
[1,6,6,7,6,6,1,1,1,0,0,0,0,],
[0,1,1,1,1,1,0,0,0,0,0,0,0,],
];
let Mikan = [
[0,0,0,1,1,1,0,0,0,0,0,0,0,],
[0,0,1,2,2,2,1,0,0,0,0,0,0,],
[0,1,2,2,2,2,1,1,1,0,0,0,0,],
[0,0,1,1,1,2,1,4,5,1,1,0,0,],
[0,1,0,4,5,1,2,1,5,4,4,1,0,],
[1,0,5,4,4,4,1,4,4,4,6,4,1,],
[1,5,4,4,5,4,4,5,4,6,6,6,1,],
[1,4,4,4,4,4,4,4,4,6,4,6,1,],
[1,4,6,6,4,4,4,6,4,6,6,6,1,],
[1,4,6,6,6,6,6,6,6,6,6,6,1,],
[1,6,4,4,6,6,4,6,6,6,6,6,1,],
[0,1,6,6,6,6,6,6,6,6,6,1,0,],
[0,0,1,6,6,6,6,6,6,6,1,0,0,],
[0,0,0,1,1,1,1,1,1,1,0,0,0,],
];
let Suika = [
[0,0,0,0,0,0,0,0,1,1,0,0,0,0,],
[0,0,0,0,0,1,1,1,1,1,0,0,0,0,],
[0,0,0,0,0,0,0,1,0,0,0,0,0,0,],
[0,0,0,0,0,1,1,1,1,0,0,0,0,0,],
[0,0,0,1,1,3,2,1,2,1,1,0,0,0,],
[0,0,1,3,1,2,1,1,2,2,1,1,0,0,],
[0,1,0,1,1,2,1,2,2,1,1,2,1,0,],
[0,1,2,1,2,1,1,2,2,1,1,2,1,0,],
[1,2,1,1,2,1,1,9,2,2,1,2,9,1,],
[1,2,1,1,2,2,1,1,2,2,1,1,9,1,],
[1,2,1,1,2,2,2,1,1,2,1,1,1,1,],
[0,1,2,1,1,2,2,1,1,9,1,9,1,0,],
[0,1,9,1,1,9,1,1,9,1,1,1,1,0,],
[0,0,1,1,1,1,1,1,1,1,1,1,0,0,],
[0,0,0,1,1,1,1,1,1,1,1,0,0,0,],
[0,0,0,0,0,1,1,1,1,0,0,0,0,0,],
];
let Kaki = [
[0,0,1,1,1,1,0,0,1,1,1,1,0,0,],
[0,0,1,2,2,2,1,1,2,2,2,1,0,0,],
[0,1,7,1,2,1,10,10,1,2,1,7,1,0,],
[1,7,1,2,2,10,1,1,2,2,10,1,7,1,],
[1,7,1,1,1,1,7,1,1,1,1,1,7,1,],
[1,4,4,5,5,4,4,4,4,4,4,6,7,1,],
[1,4,4,4,4,4,4,4,4,4,4,4,7,1,],
[1,4,4,4,6,4,4,4,4,4,6,6,6,1,],
[1,6,4,4,6,4,4,4,4,6,6,6,6,1,],
[0,1,6,6,4,4,4,4,6,6,6,6,1,0,],
[0,0,1,1,6,6,6,6,6,8,1,1,0,0,],
[0,0,0,0,1,1,1,1,1,1,0,0,0,0,],
];
let Kiui = [
[0,0,0,0,0,1,1,1,1,0,0,0,0,0,],
[0,0,0,1,1,2,2,2,2,1,0,0,0,0,],
[0,0,1,1,2,2,2,2,2,3,1,0,0,0,],
[0,1,8,1,2,2,1,0,1,2,2,1,0,0,],
[0,1,8,1,2,2,0,0,0,1,2,2,1,0,],
[1,8,8,1,2,2,1,0,0,0,1,2,1,0,],
[1,8,8,8,1,2,2,1,0,0,0,2,3,1,],
[1,8,8,8,1,2,2,2,1,0,0,1,2,1,],
[1,8,8,8,8,1,2,2,2,2,1,2,3,1,],
[0,1,8,8,8,8,1,2,2,2,2,2,2,1,],
[0,1,8,8,8,8,8,1,2,2,2,2,2,1,],
[0,0,1,8,8,8,8,8,1,1,2,2,1,0,],
[0,0,0,1,1,8,8,8,8,8,1,1,0,0,],
[0,0,0,0,0,1,1,1,1,1,0,0,0,0,],
];
let Momo = [
[0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,],
[0,0,0,0,0,1,7,7,1,1,0,0,0,0,0,],
[0,0,0,0,1,7,5,7,5,5,1,0,0,0,0,],
[0,0,0,1,7,5,5,5,7,5,5,1,0,0,0,],
[0,0,1,5,5,5,0,0,5,0,0,0,1,0,0,],
[0,1,5,5,5,0,0,0,0,5,0,0,0,1,0,],
[0,1,5,0,0,0,0,0,0,5,0,0,0,1,0,],
[0,1,5,0,0,0,0,0,0,5,0,0,0,1,0,],
[0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,],
[0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,],
[0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,],
[0,1,1,1,0,0,0,1,0,0,0,0,1,1,0,],
[1,2,2,2,1,1,1,2,1,1,1,1,2,2,1,],
[0,1,2,2,2,2,2,1,1,2,2,2,2,1,0,],
[0,0,1,1,1,1,1,0,0,1,1,1,1,0,0,],
];
let Sakuranbo = [
[0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,],
[0,1,1,0,1,0,0,1,1,0,0,0,0,0,0,],
[0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,],
[0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,],
[0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,],
[0,0,0,0,0,1,0,0,1,1,1,1,1,0,0,],
[0,0,1,1,1,1,1,1,6,0,1,6,6,1,0,],
[0,1,0,6,1,6,6,1,6,6,6,6,6,6,1,],
[1,0,6,6,6,6,6,6,1,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,1,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,1,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,1,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,1,6,6,6,6,1,0,],
[0,1,6,6,6,6,6,1,0,1,1,1,1,0,0,],
[0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,],
];
let Budou = [
[0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,],
[0,0,0,0,0,0,1,1,1,0,1,8,1,0,0,],
[0,0,0,0,0,1,12,13,10,1,1,1,8,1,0,],
[0,0,0,1,1,14,13,13,14,14,1,8,1,8,1,],
[0,0,1,12,13,10,1,14,12,13,10,1,1,1,1,],
[0,0,1,13,13,10,14,1,13,13,10,14,14,1,0,],
[0,0,1,10,13,14,12,13,1,10,1,1,14,10,1,],
[0,0,1,14,14,1,13,13,10,14,10,10,1,14,1,],
[0,1,12,13,10,14,10,10,10,1,10,14,1,14,1,],
[0,1,13,13,10,1,14,14,1,1,1,1,1,1,0,],
[0,1,10,10,10,14,13,10,10,1,14,14,1,0,0,],
[0,1,14,14,1,14,10,10,14,1,14,14,1,0,0,],
[1,12,13,10,14,1,14,14,14,1,1,1,0,0,0,],
[1,13,13,10,14,1,1,1,1,1,0,0,0,0,0,],
[1,14,10,14,14,1,1,1,0,0,0,0,0,0,0,],
[0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,],
];
let Remon = [
[0,0,0,0,0,0,0,0,0,0,0,1,1,0,],
[0,0,0,0,0,0,0,1,1,1,1,11,2,1,],
[0,0,0,0,0,1,1,4,4,4,11,11,2,1,],
[0,0,0,0,1,4,4,4,4,4,4,2,1,0,],
[0,0,0,1,4,4,4,4,4,4,4,5,1,0,],
[0,0,1,5,0,4,4,4,4,4,4,4,1,0,],
[0,0,1,0,4,4,4,4,4,4,4,5,1,0,],
[0,1,4,4,4,4,4,4,4,4,4,4,1,0,],
[0,1,4,4,4,4,4,4,4,4,4,5,1,0,],
[0,1,4,4,4,4,4,4,4,4,5,1,0,0,],
[0,1,4,4,4,4,4,4,4,4,5,1,0,0,],
[0,1,4,4,4,4,4,4,4,4,1,0,0,0,],
[1,4,4,4,4,4,4,5,1,1,0,0,0,0,],
[1,4,5,1,1,1,1,1,0,0,0,0,0,0,],
[0,1,1,0,0,0,0,0,0,0,0,0,0,0,],
];
let Younasi = [
[0,0,0,0,0,0,0,1,0,0,0,],
[0,0,0,0,0,0,1,0,0,0,0,],
[0,0,0,0,0,1,1,1,0,0,0,],
[0,0,0,0,1,11,1,2,1,0,0,],
[0,0,0,1,3,11,2,2,1,0,0,],
[0,0,0,1,3,11,2,9,1,0,0,],
[0,0,1,3,11,3,2,9,1,0,0,],
[0,1,3,4,3,3,11,2,2,1,0,],
[1,3,3,3,3,2,2,11,2,9,1,],
[1,3,11,3,3,11,2,2,2,9,1,],
[1,3,3,3,3,2,11,2,2,9,1,],
[1,3,3,11,2,11,11,2,2,9,1,],
[1,2,2,11,11,2,2,2,9,9,1,],
[0,1,9,9,2,2,9,9,9,1,0,],
[0,0,1,1,1,1,1,1,1,0,0,],
];
let Banana = [
[0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,],
[0,0,0,0,0,0,0,1,11,4,1,1,1,1,0,],
[0,0,0,0,0,0,0,0,1,1,11,4,4,4,1,],
[0,0,0,0,0,0,0,0,0,0,1,11,1,1,1,],
[0,0,0,0,0,0,0,0,0,0,1,4,1,0,0,],
[0,0,0,0,0,0,0,0,0,1,4,4,1,0,0,],
[0,0,0,0,0,0,0,0,0,1,4,4,1,0,0,],
[0,0,0,0,0,0,0,0,1,4,4,4,1,0,0,],
[0,0,0,0,0,0,0,1,4,4,4,4,1,0,0,],
[0,0,0,0,0,1,1,4,4,4,4,4,1,0,0,],
[1,1,1,1,1,4,4,4,4,4,4,1,0,0,0,],
[1,1,4,4,4,4,4,4,4,4,4,1,0,0,0,],
[1,11,11,4,4,4,4,4,4,4,1,0,0,0,0,],
[0,1,4,11,4,4,4,4,1,1,0,0,0,0,0,],
[0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,],
];
let Aoringo = [
[0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,],
[0,0,0,0,0,0,0,0,1,11,2,2,1,0,0,0,],
[0,0,0,1,1,1,1,1,1,1,2,2,2,1,0,0,],
[0,0,1,0,3,0,0,1,0,0,1,2,2,1,0,0,],
[0,1,0,3,0,1,2,1,2,1,3,1,1,1,1,0,],
[0,1,2,3,3,0,1,1,1,3,2,2,2,2,1,0,],
[1,3,3,3,2,3,0,3,2,3,2,2,2,2,2,1,],
[1,2,2,3,2,3,3,2,2,3,3,2,2,2,2,1,],
[1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,],
[1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,],
[0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,],
[0,1,2,2,2,2,2,2,2,2,2,2,2,2,1,0,],
[0,0,1,2,2,2,2,2,2,2,2,2,2,2,1,0,],
[0,0,1,2,2,2,2,2,2,2,2,2,2,1,0,0,],
[0,0,0,1,2,2,2,1,1,2,2,2,1,0,0,0,],
[0,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,],
];
let Painappuru = [
[0,0,1,0,1,1,0,1,0,1,1,0,],
[0,1,2,1,1,2,1,2,1,2,2,1,],
[0,0,1,2,1,2,1,2,2,2,1,0,],
[0,0,1,1,2,2,2,2,2,1,0,0,],
[0,0,0,1,2,2,2,2,1,0,0,0,],
[0,0,1,1,1,2,2,2,1,1,0,0,],
[0,1,4,0,1,1,1,1,4,0,1,0,],
[0,1,5,4,5,4,5,4,5,7,1,0,],
[1,5,4,4,4,5,4,4,4,5,7,1,],
[1,4,5,4,5,4,5,4,5,6,5,1,],
[1,4,4,5,4,4,4,5,4,4,7,1,],
[1,4,5,4,5,4,5,4,5,4,5,1,],
[1,5,4,4,4,5,4,4,6,4,7,1,],
[0,1,5,4,5,4,5,6,4,6,7,1,],
[0,0,1,5,4,8,6,4,6,7,1,0,],
[0,0,0,1,1,1,1,1,1,1,0,0,],
];
let Ringo = [
[0,0,0,0,0,0,0,1,1,1,1,0,0,0,],
[0,0,0,0,0,0,0,1,11,2,11,1,0,0,],
[0,0,0,1,1,1,1,1,1,2,11,2,1,0,],
[0,0,1,6,4,4,1,4,4,1,2,2,1,0,],
[0,1,0,4,1,2,1,11,1,6,1,1,1,0,],
[1,6,6,6,4,1,1,1,4,6,6,6,6,1,],
[1,6,4,6,6,4,4,6,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,6,6,6,6,6,1,],
[1,6,6,6,6,6,6,6,6,6,6,6,1,0,],
[0,1,6,6,6,6,6,6,6,6,6,6,1,0,],
[0,1,6,6,6,6,6,6,6,6,6,1,0,0,],
[0,0,1,1,6,6,6,6,6,1,1,0,0,0,],
[0,0,0,0,1,1,1,1,1,0,0,0,0,0,],
];
let Syainmasukatto = [
[0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,],
[0,0,0,0,0,0,1,1,1,0,1,8,1,0,0,],
[0,0,0,0,0,1,0,2,2,1,1,1,8,1,0,],
[0,0,0,1,1,9,2,2,9,9,1,8,1,8,1,],
[0,0,1,0,2,2,9,9,0,2,2,1,1,1,1,],
[0,0,1,2,2,2,9,1,2,2,2,9,9,1,0,],
[0,0,1,2,2,9,0,2,1,2,9,9,9,2,1,],
[0,0,1,9,9,1,2,2,2,9,2,2,9,9,1,],
[0,1,0,2,2,9,2,2,2,9,2,9,9,9,1,],
[0,1,2,2,2,1,9,9,9,9,9,9,9,1,0,],
[0,1,2,2,2,9,2,2,2,9,9,9,1,0,0,],
[0,1,9,9,9,9,2,2,9,9,9,9,1,0,0,],
[1,0,2,2,9,9,9,9,9,9,1,1,0,0,0,],
[1,2,2,2,9,9,9,9,1,1,0,0,0,0,0,],
[1,2,2,9,9,1,1,1,0,0,0,0,0,0,0,],
[0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,],
];
if(name == "メロン") return Meron;
if(name == "イチゴ") return Itigo;
if(name == "ミカン") return Mikan;
if(name == "スイカ") return Suika;
if(name == "カキ") return Kaki;
if(name == "キウイ") return Kiui;
if(name == "モモ") return Momo;
if(name == "サクランボ") return Sakuranbo;
if(name == "ブドウ") return Budou;
if(name == "レモン") return Remon;
if(name == "ヨウナシ") return Younasi;
if(name == "バナナ") return Banana;
if(name == "アオリンゴ") return Aoringo;
if(name == "パイナップル") return Painappuru;
if(name == "リンゴ") return Ringo;
if(name == "シャインマスカット") return Syainmasukatto;
}