/[cuyo]/cuyo/data/maennchen.ld
ViewVC logotype

Diff of /cuyo/data/maennchen.ld

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by caeles, Fri Apr 22 13:52:56 2005 UTC revision 1.3 by caeles, Fri Nov 25 22:22:35 2005 UTC
# Line 21  Line 21 
21  Maennchen = {  Maennchen = {
22    name = "Männchen"    name = "Männchen"
23    author = "Mark Weyer"    author = "Mark Weyer"
24    pics = blau,zahl    pics = maennchen*3
25    greypic = inGrau.xpm    greypic = inGrau.xpm
26    startpic = inGras.xpm    startpic = inGras.xpm
27    startdist = "AAAAAAAAAA"    startdist = "AAAAAAAAAA"
# Line 30  Maennchen = { Line 30  Maennchen = {
30      var wert;      var wert;
31    >>    >>
32    
33    blau = {    maennchen = {
34      pics = mmBlau.xpm      pics = mmBlau.xpm, mmRot.xpm, mmGelb.xpm
35      <<      <<
36        blau.init = {wert = rnd(3)+1;};        maennchen.init = {wert = rnd(3)+1;};
37        blau = {pos=wert+3; *; schema4;};        maennchen = {file=kind-maennchen; pos=wert+3; *; schema4;};
38      >>      >>
39      numexplode = 10      numexplode = 10
40    }    }
41    
   zahl = {  
     pics = mmZahl.xpm  
     <<  
       var operator;  
   
       zahl.init = {  
         if 1:3  
           -> {operator = 1; wert=10+rnd(2)}  
           else {wert = rnd(11)};  
       };  
   
       zahl = {  
         if operator -> {  
           if ??1???1? && !operator@(1,0) && !operator@(-1,0) -> {  
             kind@(1,0)=nothing;  
             kind@(-1,0)=nothing;  
             operator=0;  
             if wert==10 # Addition  
               -> wert=wert@(1,0)+wert@(-1,0)  
               else wert=wert@(1,0)*wert@(-1,0);  
           }  
           else if 1???1??? && !operator@(0,1) && !operator@(0,-1) -> {  
             kind@(0,1)=nothing;  
             kind@(0,-1)=nothing;  
             operator=0;  
             if wert==10 # Addition  
               -> wert=wert@(0,1)+wert@(0,-1)  
               else wert=wert@(0,1)*wert@(0,-1);  
           };  
         };  
         if operator  
           -> {pos=wert; *;}  
           else {  
             pos=(wert/10)%10; if pos>0 -> {qu=Q_TL; *; qu=Q_BL; *;};  
             pos=wert%10; qu=Q_TR; *; qu=Q_BR; *;  
           };  
       };  
     >>  
     numexplode = 100  
   }  
   
42  }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26