Zik à bulles pour coincer la bulle en musique!

' BULLES A ZIK
' VERSION ALLÉGÉE
' PAR BIGNONO LE 1/4/2014
' ===========================
label music,instrument,panic,mode
dim x(7),y(7),dx(7),dy(7),r(7),g(7),b(7),i,j,d,v,a,inst,inst$,modd
modd=4
init()
midi_on
timer 99:timer_interval 99,1:on_timer 99,music
end

music:
  timer_off 99
  for i=1 to 7
     x(i)=x(i)+dx(i):y(i)=y(i)+dy(i)
        if x(i)<0 then x(i)=0:dx(i)=dx(i)*-1
        if x(i)>524 then x(i)=524:dx(i)=dx(i)*-1
        if y(i)<0 then y(i)=0:dy(i)=dy(i)*-1
        if y(i)>385 then y(i)=385:dy(i)=dy(i)*-1
     sprite_position i,x(i),y(i)
     for j=1 to 7
        if j<>i
           d=int(sqr(power(x(i)-x(j),2)+power(y(i)-y(j),2)))
           if d<=60
              dx(j)=dx(j)*-1 : dy(j)=dy(j)*-1
              x(j)=x(j)+dx(j)+dx(j) : y(j)=y(j)+dy(j)+dy(j)
                 sprite_position j,x(j),y(j)
              if modd=1
                 if sgn(dx(i))=sgn(dx(j)) then dx(i)=dx(i)*-1
                 if sgn(dy(i))=sgn(dy(j)) then dy(i)=dy(i)*-1
              end_if
              if modd=2
                 if sgn(dx(i))=sgn(dx(j)) then dx(i)=dx(i)*-1
                 if sgn(dy(i))=sgn(dy(j)) then dy(j)=dy(j)*-1
              end_if
              if modd=3
                 if sgn(dx(i))=sgn(dx(j)) then dx(j)=dx(j)*-1
                 if sgn(dy(i))=sgn(dy(j)) then dy(j)=dy(j)*-1
              end_if
              if modd=4
              end_if
              v=sqr(x(i)+y(i))*3 : v=int(v):if v<21 then v=v+21
              midi_play v,10
           end_if
        end_if
     next j
  next i
  timer_on 99
return

mode:
  modd=number_click-4
return

panic:
  if j>0 and j<8
     select a
        case 0:x(j)=0:y(j)=0
        case 1:x(j)=524:y(j)=0
        case 2:x(j)=0:y(j)=385
        case 3:x(j)=524:y(j)=385
     end_select
        a=a+1:if a>3 then a=0
     dx(i)=int(rnd(4)+1) : dy(i)=int(rnd(4)+1)
        sprite_position i,x(i),y(i)
  end_if
return

instrument:
  inst=val(left$(item_read$(3,item_index(3)),3))
  caption 0,item_read$(3,inst)
  midi_instrument inst
return

sub init()
  left 0,(screen_x-width(0))/2 : border_small 0
  picture 21 : color 21,0,0,0 : 2d_target_is 21
  2d_pen_color 255,0,0 : 2d_fill_color 255,255,255 : 2d_circle 30,30,30
  image 22 : 2d_image_copy 22,0,0,60,60
  scene2d 1: full_space 1
  for i=1 to 7
     sprite i : sprite_image_load i,22
     x(i)=int(rnd(520)) : y(i)=int(rnd(385))
     dx(i)=int(rnd(4)+2) : dy(i)=int(rnd(4)+2)
     sprite_position i,x(i),y(i)
     if i>1
        for j=1 to i-1
           d=int(sqr(power(x(i)-x(j),2)+power(y(i)-y(j),2)))
           if d<=60 then v=1
        next j
     end_if
     if v=0

     else
        v=0:sprite_delete i:i=i-1
     end_if
  next i
  form 2
     border_hide 2
     left 2,width(0)+left(0):top 2,top(0)
     width 2,175:height 2,height(0)
     command_target_is 2

     list 3
        full_space 3 : height 3,height(3)-50
        for i=1 to 127
           read inst$:item_add 3,inst$
        next i
        cursor_point 3
        on_click 3,instrument

     button 4
        width 4,width(3)
        top 4,top(3)+height(3)
        font_bold 4
        caption 4,"PANIC ! ! !"
        on_click 4,panic
       
     for i=5 to 8
     button i
        width i,43
        left i,(i-5)*44
        top i,top(3)+height(3)+height(4)
        caption i,"mode "+str$(i-4)
        on_click i,mode
     next i
end_sub
' Datas des instruments midis
data "001 Bright Acoustic Piano","002 Electric grand Piano","003 Honky Tonk Piano","004 Electric Piano 1","005 Electric Piano 2"
data "006 Harpsicord","007 Clavinet","008 Celesta","009 Glockenspiel","010 Music Box"
data "011 Vibraphone","012 Marimba","013 Xylophone","014 Tubular bells","015 Dulcimer"
data "016 Drawbar Organ","017 Percussive Organ","018 Rock Organ","019 Church Organ","020 Reed Organ"
data "021 Accordion","022 Harmonica","023 Tango Accordion","024 Nylon Acoustic Guitar","025 Steel Acoustic Guitar"
data "026 Jazz Electric Guitar","027 Clean Electric Guitar","028 Muted Electric Guitar","029 Overdrive Guitar","030 Distorted Guitar"
data "031 Guitar Harmonics","032 Acoustic Bass","033 Electric Fingered Bass","034 Electric Picked Bass","035 Fretless Bass"
data "036 Slap Bass 1","037 Slap Bass 2","038 Syn Bass 2","039 Syn Bass 1","040 Violin"
data "041 Viola","042 Cello","043 Contrabass","044 Tremolo Strings","045 Pizzicato Strings"
data "046 Orchestral Harp","047 Timpani","048 String Ensemble 1","049 String Ensemble 2","050 Syn Strings 1"
data "051 Syn Strings 2","052 Choir Aahs","053 Voice Oohs","054 Syn Choir","055 Orchestral Hit"
data "056 Trumpet","057 Trombone","058 Tuba","059 Muted Trumpet","060 French Horn"
data "061 Brass Section","062 Syn Brass 1","063 Syn Brass 2","064 Soprano Sax","065 Alto Sax"
data "066 Tenor Sax","067 Baritone Sax","068 Oboe","069 English Horn","070 Bassoon"
data "071 Clarinet","072 Piccolo","073 Flute","074 Recorder","075 Pan Flute"
data "076 Bottle Blow","077 Shakuhachi","078 Whistle","079 Ocarina","080 Syn Square Wave"
data "081 Syn Sawtooth Wave","082 Syn Calliope","083 Syn Chiff","084 Syn Charang","085 Syn Voice"
data "086 Syn Fifths Sawtooth Wave","087 Syn Brass & Lead","088 New Age Syn Pad","089 Warm Syn Pad","090 Polysynth Syn Pad"
data "091 Choir Syn Pad","092 Bowed Syn Pad","093 Metal Syn Pad","094 Halo Syn Pad","095 Sweep Syn Pad"
data "096 SFX Rain","097 SFX Soundtrack","098 SFX Crystal","099 SFX Atmosphere","100 SFX Brightness"
data "101 SFX Goblins","102 SFX Echoes","103 SFX Sci-Fi","104 Sitar","105 Banjo"
data "106 Shamisen","107 Koto","108 Kalimba","109 Bag Pipe","110 Fiddle"
data "111 Shanai","112 Tinkle Bell","113 Agogo","114 Steel Drums","115 Woodblock"
data "116 Taiko Drum","117 Melodic Tom","118 Syn Drum","119 Reverse Cymbal","120 Guitar Fret Noise"
data "121 Breath Noise","122 Seashore","123 Bird Tweet","124 Telephone Ring","125 Helicopter"
data "126 Applause","127 Gun Shot"