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