#
#   Copyright <=2004 by Immanuel Halupczok
#
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#

Noten={
  name="lydic"
  name[de]="lydisch"
  author="Immi Iso Felix"
  numexplode=3
  numexplode[1]=6
  chaingrass=0
  bgcolor=255,255,255
  topcolor=200,200,200
  toptime=50
  startdist="ABBDBBBD.A","ABACAACAAA"

  emptypic=nix
  startpic=bote_k,bote_o,bote_u,bote_m

  greypic=note1.xpm
 # pics=wackel,bla,knurps
  pics = note_m,note_o,note_u,note_k
  description="There is no sense yet."
  description[1]="Try to make things explode, too."
  description[de]="Bringe viel Unsinn zusammen. Versuche, dich wegzusprengen."
  description[1,de]="Bringe mehr Unsinn zusammen."
  
  nix={}
  
  <<

  var wo_spiel_x, wo_spiel_y, zaehl;
  var is_was_in_zeile;

   inc_zeile = {
     wo_spiel_x = 0;
     wo_spiel_y += 2;
     if wo_spiel_y >= 20 -> wo_spiel_y = 0;
   };

   global={
      if is_was_in_zeile@@(0,wo_spiel_y;<) -> {
        zaehl += 1;
        if zaehl == 5 -> {
          zaehl = 0;
          wo_spiel_x += 1;
          if wo_spiel_x == 10 -> inc_zeile;
        };
      } else -> inc_zeile;
      
      is_was_in_zeile@@(0,wo_spiel_y;<) = 0;
   };


   var is_note=0:reapply;
    note_sound = {
    	switch {
	  falling -> {}; 
	  #message("pling");
	  kind==bote_o || kind==note_o && loc_y % 2 == 0 -> 
	  	sound ("note_e4.wav");
	  kind==bote_m || kind==note_m && loc_y % 2 == 0 -> 
	 	sound ("note_d4.wav");
	  kind==bote_u || kind==note_u && loc_y % 2 == 0 -> 
	  	sound ("note_c4.wav");

	  kind==bote_o || kind==note_o && loc_y % 2 == 1 ->
	  	sound ("note_a3.wav");
	  kind==bote_m || kind==note_m && loc_y % 2 == 1 ->
	  	sound ("note_g3.wav");
	  kind==bote_u || kind==note_u && loc_y % 2 == 1 ->
	  	sound ("note_f3.wav");

	}
    };
    note = {
        if loc_y % 2 == 1 && kind@(0,-1) == nothing -> 0F*@(0,-1);
        switch
	{
	  falling -> {0E*;1I};
	  
	  loc_y % 2 == 0 -> {
	    qu=Q_TL;
            switch 
	    {
	      is_note@(-1,0) -> 0B;
	      ???????? -> 0A;
	    };*; qu=Q_BL; *;
	    qu=Q_TR;
	    switch
	    {
	      is_note@(1,0) -> 0A;
	      ???????? -> 0B;
	    };*; qu=Q_BR;*;
	    qu=Q_ALL;
	    1A;
	  };
	  loc_y % 2 == 1 -> {
	    qu=Q_TL;
            switch 
	    {
	      is_note@(-1,0) -> 0D;
	      ???????? -> 0C;
	    }; *; qu=Q_BL; *;
	    qu=Q_TR;
	    switch
	    {
	      is_note@(1,0) -> 0C;
	      ???????? -> 0D;
	    }; *;
	    qu=Q_BR;*;
	    qu=Q_ALL;
	  1E;
	  };

        };
	if kind != note_k && kind != bote_k -> {
	  if wo_spiel_y@ / 2 == loc_y / 2 && wo_spiel_x@ == loc_x && zaehl@ == 0 => {{note_sound; pos+=1;}, pos+=2, pos+=3,pos+=2,pos+=1};
	  *;
	};
	if !falling && kind != note_k && kind != bote_k -> {
	  is_was_in_zeile@@(0,loc_y - loc_y%2;<) = 1;
	};
        #out1=wo_spiel_y@;
        #out2=is_was_in_zeile;
    };
  >>
#####################################3
  bote_k =  {
    distkey = "A"
    pics = note_k.xpm
    <<
      bote_k = note; 
      default is_note=4:reapply;
    >>
  }
  bote_o = {
    distkey = "D"
    pics = note_k.xpm, note_o.xpm
    <<
      bote_o = note;
      default is_note=1:reapply;
    >>
  }
  bote_u = {
    distkey= "B"
    pics = note_k.xpm, note_u.xpm
    <<
      bote_u = note;
      default is_note=2:reapply;
    >>
  }
  bote_m = {
    distkey= "C"
    pics = note_k.xpm, note_m.xpm
    <<
      bote_m = note; 
      default is_note=3:reapply;
    >>
  }
#########################################3
  note_k =  {
    pics = note_k.xpm
    <<
      note_k = note; 
      default is_note=4:reapply;
    >>
  }
  note_o = {
    pics = note_k.xpm, note_o.xpm
    <<
      note_o = note;
      default is_note=1:reapply;
    >>
  }
  note_u = {
    pics = note_k.xpm, note_u.xpm
    <<
      note_u = note;
      default is_note=2:reapply;
    >>
  }
  note_m = {
    pics = note_k.xpm, note_m.xpm
    <<
      note_m = note; 
      default is_note=3:reapply;
    >>
  }
######################################3
  knurps = {
    pics=knurps.xpm
    <<
    knurps={
      schema4;
    };
    >>
  }
  
  wackel = {
    pics=note1.xpm
    <<
    
    var zaehler;
    
    wackel={
      #file = 0;
      #pos = zaehler;
      #*;
      #zaehler += 1;
      #if zaehler == 4 -> zaehler = 0;

      0;

      switch {
         !falling && 1:100 => {
           {
	     sound("boink.wav");
	     B
	   }
	   ,
	   C, D, C, B; };
        => A;
      };

      *;
    };
    
    >>
  }
  
  
  notenboden = {
        distkey="X"
        versions = 1
  	pics=note1.xpm,note2.xpm
	<<
	
	notenboden = {
	  #if (version == 0) -> {0A*;}
	  #else -> 1A*;
	  file=version; pos=0; *;
	};
	
	>>

  }
  bla = {
    pics=inGruen.xpm
    numexplode=10
    <<
    bla={
      #if kind@(0,-1) == bla -> {0M*;}
      #else -> 0A*;
      
      if 0?0?0?0? -> {0A*;}
      else -> {0B*;};
    };
    >>
  }
}