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" |
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 |
} |
} |