scn 1telemonster
short m
begin onactivate
Messagebox "Gegen welche Art von Monster willst du Kämpfen?" , "Kreaturen" , "Dädra" , "Pferde" , "Untote" , "Jetzt nicht"
end
Begin GameMode
Set m to GetButtonPressed
if m == 0
Messagebox "Gegen was willst du Kämpfen?" , "Bären" , "Goblins" , "Minotaur" , "Löwen" , "SchlammKrabben" , "Oger" , "Ratten" , "Spriggan" , "Troll" , "Jetzt nicht"
if m == 0
Messagebox "Welche Bären" , "1 Braun Bären" , "1 Schwarz Bären" , "1 braun und Schwarz Bären", "2schwarz Bären" , "2 schwarz und 1 braun Bären"
If m == 0
bar1.moveto monster
elseif m == 1
bar2.moveto monster
elseif m == 2
bar1.moveto monster
bar2.moveto monster
elseif m == 3
bar1.moveto monster
bar3.moveto monster
elseif m == 4
bar1.moveto monster
bar3.moveto monster
bar2.moveto monster
endif
if m == 1
Messagebox "Welche Goblins?" , "Goblin-Hexe" , "Goblin" , "Goblin-Berserker" , "
if m == 0
goblin3.moveto monster
elseif m == 1
bboblin2.moveto monster
elseif m == 2
boblin1.moveto monster
endif
if m == 2
Messagebox "Welche Minotaur?" , "Minotaur" , "Kriegsherr" , "beide"
if m == 0
taure.moveto monster
elseif m == 1
taure2.moveto monster
elseif m == 2
taure.moveto monster
taure.moveto monster
endif
if m == 2
Messagebox "Wie viele Löwen?" , "1 Löwe" , "2Löwen" , "3 Löwen"
if m == 0
lowe1.moveto monster
elseif m == 1
lowe1.moveto monster
lowe2.moveto monster
elseif m == 2
lowe1.moveto monster
lowe2.moveto monster
lowe3.moveto monster
endif
if m == 3
Messagebox "Wie viele Schlammkrabben?" , "2" , "4" , "6"
if m == 0
krabbe.moveto monster
krabbe2.moveto monster
elseif m == 1
krabbe.moveto monster
krabbe2.moveto monster
krabbe3.moveto monster
krabbe4.moveto monster
elseif m == 2
krabbe.moveto monster
krabbe2.moveto monster
krabbe3.moveto monster
krabbe4.moveto monster
krabbe5.moveto monster
krabbe6.moveto monster
endif
if m == 4
Messagebox "Wie viele Oger?" , "1" , "2" , "3"
if m == 0
oger.moveto monster
elseif m == 1
oger.moveto monster
oger1.moveto monster
elseif m == 2
oger.moveto monster
oger1.moveto monster
oger3.moveto monster
endif
if m == 5
Messagebox "Wie viele Ratten?" , "2" , "4" , "6"
if m == 0
ratte.moveto monster
ratte2.moveto monster
elseif m == 1
ratte.moveto monster
ratte2.moveto monster
ratte3.moveto monster
ratte4.moveto monster
elseif m == 2
ratte.moveto monster
ratte2.moveto monster
ratte3.moveto monster
ratte4.moveto monster
ratte5.moveto monster
ratte6.moveto monster
endif
if m == 6
Messagebox "Wie viele Spriggan?" , "1" , "2" , "3"
if m == 0
pflanz1.moveto monster
elseif m == 1
pflanz1.moveto monster
pflanz2.moveto monster
elseif m == 2
pflanz1.moveto monster
pflanz2.moveto monster
pflanz3.moveto monster
endif
if m == 7
Messagebox "Wie viele Trolle?" , "1" , "2" , "3" , "4"
if m == 0
troll.moveto monster
elseif m == 1
troll.moveto monster
troll2.moveto monster
elseif m == 2
troll.moveto monster
troll2.moveto monster
troll3.moveto monster
elseif m == 3
troll.moveto monster
troll2.moveto monster
troll3.moveto monster
troll4.moveto monster
endif
if m == 8
endif
endif
elseif m == 1
Messagebox "Gegen was willst du Kämpfen?" , "Clannfear" , "Daedroth" , "Spinnen-Daedra" , "Jetzt nicht"
if m == 0
Messagebox "Wie viele Clannfear?" , "1" , "2" , "3" , "4"
if m == 0
klan.moveto monster
elseif m == 1
klan.moveto monster
klan2.moveto monster
elseif m == 2
klan.moveto monster
klan2.moveto monster
klan3.moveto monster
elseif m == 3
klan.moveto monster
klan2.moveto monster
klan3.moveto monster
klan4.moveto monster
endif
if m == 1
Messagebox "Wie viele Daedroth?" , "1" , "2" , "3" , "4" , "5"
if m == 0
deadroth.moveto monster
elseif m == 1
deadroth.moveto monster
deadroth2.moveto monster
elseif m == 2
deadroth.moveto monster
deadroth2.moveto monster
deadroth3.moveto monster
elseif m == 3
deadroth.moveto monster
deadroth2.moveto monster
deadroth3.moveto monster
deadroth4.moveto monster
elseif m == 4
deadroth.moveto monster
deadroth2.moveto monster
deadroth3.moveto monster
deadroth4.moveto monster
deadroth5.moveto monster
endif
if m == 2
Messagebox "Wie viele Spinnen-Daedra?" , "1" , "2" , "3"
if m == 0
spinne.moveto monster
elseif m == 1
spinne.moveto monster
spinne2.moveto monster
elseif m == 2
spinne.moveto monster
spinne2.moveto monster
spinne3.moveto monster
endif
if m == 3
endif
endif
elseif m == 2
Messagebox "Gegen was willst du Kämpfen?" , "Pferde" , "Jetzt nicht"
if m == 0
pferd1.moveto monster
pferd.moveto monster
elseIf m == 1
endif
endif
elseif m == 3
Messagebox "Gegen was willst du Kämpfen?" , "Skelette" , "Lichs" , "Jetzt nicht"
if m == 0
Messagebox "Wie viele Skelette?" , "1", "2" , "4" , "6" , "8" , "10" , "12" , "14" , "15"
if m == 0
skelett.moveto monster
elseif m == 1
skelett.moveto monster
skelett2.moveto monster
elseif m == 2
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
elseif m == 3
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
skelett5.moveto monster
skelett6.moveto monster
elseif m == 4
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
skelett5.moveto monster
skelett6.moveto monster
skelett7.moveto monster
skelett8.moveto monster
elseif m == 5
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
skelett5.moveto monster
skelett6.moveto monster
skelett7.moveto monster
skelett8.moveto monster
skelett9.moveto monster
skelett10.moveto monster
elseif m == 5
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
skelett5.moveto monster
skelett6.moveto monster
skelett7.moveto monster
skelett8.moveto monster
skelett9.moveto monster
skelett10.moveto monster
skelett11.moveto monster
skelett12.moveto monster
elseif m == 6
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
skelett5.moveto monster
skelett6.moveto monster
skelett7.moveto monster
skelett8.moveto monster
skelett9.moveto monster
skelett10.moveto monster
skelett11.moveto monster
skelett12.moveto monster
skelett13.moveto monster
skelett14.moveto monster
elseif m == 7
skelett.moveto monster
skelett2.moveto monster
skelett3.moveto monster
skelett4.moveto monster
skelett5.moveto monster
skelett6.moveto monster
skelett7.moveto monster
skelett8.moveto monster
skelett9.moveto monster
skelett10.moveto monster
skelett11.moveto monster
skelett12.moveto monster
skelett13.moveto monster
skelett14.moveto monster
skelett15.moveto monster
endif
if m == 1
Messagebox "Wie viele Lichs?" , "1", "2"
if m == 0
lich.moveto monster
elseif m == 1
lich.moveto monster
lich2.moveto monster
endif
if m == 2
endif
endif
if m == 4
endif
endif
endif
end