TGC Codebase Backup



Muschgalla (Platformgame by Bossley

18th Jul 2009 11:03
Summary

A simple plattformgame. Because the code would be to long you can only play level 1 to 11.



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Projekt: Plattformspiel
REM erstellt: 05.08.2008 21:30:37
REM
REM ***** Haupt-Quelldatei *****
REM

disable escapekey

set display mode 640,480,16

sync on : sync rate 60


dim lio$(2)
dim Mapx(35)
dim Mapy(35)
dim camangle(35)

`Bildererstellen

create bitmap 1,640,480


ink rgb(18,141,55),0

box 210,100,390,250

get image 1,210,100,390,250

`Zurück zum Spiel


ink rgb(100,120,80),0


box 220,120,370,140

ink 0,0

set cursor 221,121

print "Back to the game"


get image 2,220,120,370,140





ink rgb(128,14,180),0


box 220,120,370,140

ink 0,0

set cursor 221,121

print "Back to the game"


get image 3,220,120,370,140


`Spiel speichern

ink rgb(100,120,80),0

box 220,160,370,180

ink 0,0

set cursor 221,161

print "Save Game"


get image 4,220,160,370,180




ink rgb(128,14,180),0

box 220,160,370,180

ink 0,0

set cursor 221,161

print "Save Game"


get image 5,220,160,370,180


` Zur Levelauswahl

ink rgb(100,120,80),0

box 220,200,370,220

ink 0,0

set cursor 221,201
print "Choose Level"

get image 6,220,200,370,220





ink rgb(128,14,180),0

box 220,200,370,220

ink 0,0

set cursor 221,201
print "Choose Level"

get image 7,220,200,370,220


delete bitmap 1
set current bitmap 0






Gosub Weltenladen



#constant white rgb(255,255,255)


`Menue

Menue:

color backdrop 0


do

ink white,0

set text font "Verdana"

set text size 32

set cursor 100,10

print "Muschgalla"

set text size 14

set cursor 100,60

print "Made by Fabulos"


`Neues Spiel
r1=255
g1=255
b1=0

if mousex()>100 and mousex()<220
 if mousey()>80 and mousey()<100
  r1=0
  g1=255
  b1=0

  if mouseclick()=1
   cls
   Levelfreigeschalten=1
   goto Levelauswahl
  endif

 endif
endif


ink rgb(r1,g1,b1),0

box 100,80,220,100

ink 0,0

set cursor 101,81

print "New Game"

`Spiel laden

r2=255
g2=255
b2=0

if mousex()>100 and mousex()<220
 if mousey()>150 and mousey()<170
 r2=0
  g2=255
  b2=0

  if mouseclick()=1
   cls
   gosub Spiel_laden
  endif

 endif
endif



ink rgb(r2,g2,b2),0

box 100,150,220,170

ink 0,0

set cursor 101,151

print "Load Game"



`Spiel Beenden
r3=255
g3=255
b3=0

if mousex()>100 and mousex()<220
 if mousey()>220 and mousey()<240
  r3=0
  g3=255
  b3=0

  if mouseclick()=1 then end

 endif
endif




ink rgb(r3,g3,b3),0

box 100,220,220,240

set cursor 101,221


ink 0,0

print "Exit"


sync

loop

`


Levelauswahl:

Levela=0



do

cls

If Levelfreigeschalten=18
 set cursor 100,50

 set text size 20

 ink white,0

 print "Congratulations! You have finished Muschgalla."
endif




if rightkey()=1 and timer()-wt>100
inc Levela
wt=timer()
endif

if leftkey()=1 and timer()-wt>100
dec Levela
wt=timer()
endif

if Levela=-1 then Levela=10

If Levela=11 then Levela=0


r4=255
g4=255
b4=0

if mousex()>500 and mousex()<620
 if mousey()>440 and mousey()<460

  r4=0
  g4=255
  b4=0

  if mouseclick()=1
   cls
   goto Menue

  endif

 endif
endif

ink rgb(r4,g4,b4),0

box 500,460,620,480


set text size 20

set cursor 501,461

ink 0,0

print "Back"




set cursor 200,1
set text size 30

ink white,0

print "Choose Level"

for y=0 to 2

 if y<>2

 ink rgb(0,0,255),0

 line 10,y*100+80,500,y*100+80


 endif


ink rgb(0,0,255),0
line 10,280,270,280


 for x=0 to 6

 if Levelnummer=<17

  if Levelnummer=Levela

   ink rgb(217,148,53),0

   box x*80+5,y*100+55,x*80+55,y*100+105
  endif


  `Level wählen

 if Levela+1=<Levelfreigeschalten
  if returnkey()=1
  cls
  goto Spielen
  endif
 endif

 if Levelfreigeschalten>Levelnummer
  ink rgb(169,18,22),0



 else

  ink rgb(100,100,100),0

 endif



  box x*80+10,y*100+60,x*80+50,y*100+100

 ink rgb(176,163,83),0

 inc Levelnummer
  set cursor x*80+10,y*100+60

 set text size 32

 print Levelnummer

 endif
 next x



next y


sync

Levelnummer=0

loop


Spielen:



color backdrop rgb(0,0,255)

P=0

par=0

ink white,0



time=timer()/1000

autocam off

Mapy=Mapy(Levela+1)
Mapx=Mapx(Levela+1)

zrotate camera camangle(Levela+1)


dim Welt$(mapy)

for ghj=1 to mapy

 Welt$(ghj)=AlleWelten$(Levela+1,ghj)

next ghj






n=1000

g=2

for y=1 to mapy
 for x=1 to mapx

  if mid$(Welt$(y),x)="o"

  inc n

  make object cube n,10

  color object n,rgb(rnd(255),rnd(255),rnd(255))

  position object n,x*10,y*10,0

  endif

  if mid$(Welt$(y),x)="s"

  make object sphere 1,10

  color object 1,rgb(255,0,0)

  x1=x*4
  y1=y*4

  endif

  if mid$(Welt$(y),x)="v"

   inc g

   make object cylinder g,10

   color object g,rgb(rnd(255),rnd(255),rnd(255))

   ghost object on g,3

   position object g,x*10,y*10,0

  endif

  if mid$(Welt$(y),x)="e"

  make object cone 2,10

  color object 2,rgb(0,255,0)

  position object 2,x*10,y*10,0

   x3=x
   y3=y
  endif

 next x
next y




dim Particles(g)




set text size 20



do




y2=y1/4
x2=x1/4

ink white,0

set cursor 0,0

Print "Score:",str$(p),"/",str$(g-2)

set cursor 0,20

print "Time:",str$(timer()/1000-time)

set cursor 0,40

print "FPS:",str$(screen fps())





position object 1,x1*2.5,y1*2.5,0


 if rightkey()=1
  if mid$(Welt$(y1/4),x1/4+1)<>"o"

   inc x1

  else
   if x2*4<>x1

    inc x1

   endif
  endif
 endif








 if leftkey()=1
  if mid$(Welt$(y1/4),x1/4-1)<>"o"

   dec x1

  else
   if x2*4<>x1

    dec x1

   endif
  endif
 endif



if mid$(Welt$(y1/4-1),x1/4)<>"o"  and mid$(Welt$(y1/4-1),(x1+3)/4) <>"o"


dec y1

else
lpo=0
 if y2*4<>y1
  dec y1
 endif

endif

if taste=1 and upkey()=0 then taste=0


if y1<mapy*4
if upkey()=1 and mid$(Welt$(y1/4+1),x1/4)<>"o" and mid$(Welt$(y1/4+1),(x1+3)/4)<>"o" and lpo=0 and taste=0
 o=1
 taste=1
 lpo=1
 t=timer()
endif
endif



if o=1
 inc h

 if h=<8

  if mid$(Welt$(y1/4+1),x1/4)="o" or mid$(Welt$(y1/4+1),(x1+3)/4)="o"

  dec y1,2

   h=0
   o=0

  endif

 inc y1,4

 else

 o=0
 h=0

 endif
endif

 position camera object position x(1),object position y(1),-150





if object collision(1,0)>2 and object collision(1,0)<1000

 inc par

 Particles(par)=timer()

 make particles par,0,1,50


 color particles par,rnd(255),rnd(255),rnd(255)

 position particles par,object position x(object collision(1,0)),object position y(object collision(1,0)),0



 inc p
 delete object object collision(1,0)

endif


`Partikel zerstören

for i=1 to g
 if particles exist(i)
  if timer()-Particles(i)>400 then delete particles i
 endif
next i




`Ende



if x2=x3 and y2=y3 and p=g-2
 if Levelfreigeschalten=Levela+1
  inc Levelfreigeschalten
 endif

 Ende:

 for h=1 to n

  if object exist(h)=1 then delete object h

 next h
 for h=1 to par

  if particles exist(h)=1 then delete particles h

 next h

 goto Levelauswahl

endif




`Esc


if escapekey()=1
w=1
endif

if w=1 and escapekey()=0
 w=0
 gosub ESC
endif




sync

loop


Spiel_laden:

if file exist ("Speicherung.txt")=1

 open to read 1,"Speicherung.txt"
 read string 1,lio$(1)
Levelfreigeschalten=val(lio$(1))
 close file 1
 set cursor 200,200



ink white,0

print "Finished. Continue with spacekey"
sync



sync
wait key


do
if spacekey()=1

cls

goto Levelauswahl

endif

loop

cls


else

set cursor 200,200
ink white,0

print "There's no save array"
sync
wait key
cls

return

endif




Levelfreigeschalten=val(lio$)

close file 1

goto Levelauswahl


















ESC:



lop=timer()



do

`Zeit anhalten
if timer()-lop>1000
 lop=timer()
 inc time
endif



paste image 1,200,100

paste image 2, 220,120

paste image 4,220,160

paste image 6,220,200



if mousex()>220 and mousex()<370
 if mousey()>120 and mousey()<140
  paste image 3,220,120


  if mouseclick()=1


   return
  endif

 endif
endif

ink rgb(r5,g5,b5),0







if mousex()>220 and mousex()<370
 if mousey()>160 and mousey()<180
  paste image 5,220,160


  if mouseclick()=1

   goto Spiel_Speichern
  endif

 endif
endif








if mousex()>220 and mousex()<370
 if mousey()>200 and mousey()<220

 paste image 7,220,200



  if mouseclick()=1

   goto Ende
  endif

 endif
endif



sync
loop








Spiel_Speichern:

if file exist("Speicherung.txt")=1 then delete file "Speicherung.txt"


open to write 1,"Speicherung.txt"



lio$(1)=str$(Levelfreigeschalten)


write string 1,lio$(1)
close file 1






do
ink 0,0
box 0,0,640,480

ink white,0

set cursor 200,200

print "Finished. Continue with spacekey"
if spacekey()=1

cls

return

endif
sync

loop













Weltenladen:

dim AlleWelten$(35,1000)

`Welt 2

AlleWelten$(1,30)="oooooooooooooooooooooooooooooo"
AlleWelten$(1,29)="o               e            o"
AlleWelten$(1,28)="o              oo            o"
AlleWelten$(1,27)="ooooooooooo                  o"
AlleWelten$(1,26)="o               o            o"
AlleWelten$(1,25)="o             ooooo          o"
AlleWelten$(1,24)="o                      ooooovo"
AlleWelten$(1,23)="o                     oovvvvvo"
AlleWelten$(1,22)="o     v      oo  ooooooooooooo"
AlleWelten$(1,21)="o     v      o  vo           o"
AlleWelten$(1,20)="o     v      o  oo           o"
AlleWelten$(1,19)="o            ov  o           o"
AlleWelten$(1,18)="o            oo              o"
AlleWelten$(1,17)="o            o             vvo"
AlleWelten$(1,16)="o           oooooo    vv  oooo"
AlleWelten$(1,15)="o                     oo     o"
AlleWelten$(1,14)="o           vv   oo          o"
AlleWelten$(1,13)="o           oo               o"
AlleWelten$(1,12)="ovvvv                      vvo"
AlleWelten$(1,11)="oooooooooooooooo           vvo"
AlleWelten$(1,10)= "o                 oooooooooooo"
AlleWelten$(1,9)= "o             vv             o"
AlleWelten$(1,8)= "o       vv   oooo   vv       o"
AlleWelten$(1,7)= "o   vv  oo          oo  vv   o"
AlleWelten$(1,6)= "ov  oo                  oo  vo"
AlleWelten$(1,5)= "oov                        voo"
AlleWelten$(1,4)= "ooo   gggooooooooooooggg   ooo"
AlleWelten$(1,3)= "ov    oooooooooooooooooo    vo"
AlleWelten$(1,2)= "ovv           s            vvo"
AlleWelten$(1,1)= "oooooooooooooooooooooooooooooo"

 mapy(1)=30
 mapx(1)=30



`Welt2
AlleWelten$(2,50)="oooooooooooooooooooooooooooooo"
AlleWelten$(2,49)="o                           eo"
AlleWelten$(2,48)="o   oooooooooooooooooooooooooo"
AlleWelten$(2,47)="o oo            oooooooooooooo"
AlleWelten$(2,46)="o            o   ooooooooooooo"
AlleWelten$(2,45)="o    ooooo   oo   oooooooooooo"
AlleWelten$(2,44)="ovvv     vvvvooo   ooooooooooo"
AlleWelten$(2,43)="ooooo    ooooo        oooooooo"
AlleWelten$(2,42)="ovvvvvvvvvvvvvo  ooo  oooooooo"
AlleWelten$(2,41)="ooooooooooooooo       oooooooo"
AlleWelten$(2,40)="ooooooooooooooooo   oooooooooo"
AlleWelten$(2,39)="o                            o"
AlleWelten$(2,38)="o               ooooo     vvvo"
AlleWelten$(2,37)="o                         vvvo"
AlleWelten$(2,36)="o                     oooovvvo"
AlleWelten$(2,35)="o                         vvvo"
AlleWelten$(2,34)="o                  ooooooooooo"
AlleWelten$(2,33)="o             vvvvv   vvvvv  o"
AlleWelten$(2,32)="o             ooooo   ooooo  o"
AlleWelten$(2,31)="o    vvvvv   vvv     vvvvvvvvo"
AlleWelten$(2,30)="o    ooooo  ooooo  ooooooooooo"
AlleWelten$(2,29)="o              vv            o"
AlleWelten$(2,28)="ooooo          ooooooooo     o"
AlleWelten$(2,27)="o    vvvvvv                  o"
AlleWelten$(2,26)="o    oooooo            ooooooo"
AlleWelten$(2,25)="o      oo                vvvvo"
AlleWelten$(2,24)="ooo    oo    ooooooooooooooooo"
AlleWelten$(2,23)="o     oooo     ooooooooooooooo"
AlleWelten$(2,22)="o               oooooooooooooo"
AlleWelten$(2,21)="ooooooooooooooo oooooo       o"
AlleWelten$(2,20)="o               oooooovoo    o"
AlleWelten$(2,19)="o oooooooooooooooooooovoo  vvo"
AlleWelten$(2,18)="o               oooooovoo  ooo"
AlleWelten$(2,17)="ooooooooooooooo oooooovoovv  o"
AlleWelten$(2,16)="o               oooooovoooo  o"
AlleWelten$(2,15)="ov ooooooooooooooooooovoo  vvo"
AlleWelten$(2,14)="oo ooo    oooooooooooovoo  ooo"
AlleWelten$(2,13)="o vooovo   ooooooooooovoovv  o"
AlleWelten$(2,12)="o oooovoo   oooooooooovoooo  o"
AlleWelten$(2,11)="o  ooovvvo   ooooooooovo   vvo"
AlleWelten$(2,10)="oovvvvvovoo   oooooooovo   ooo"
AlleWelten$(2,9)= "oooooovvvoooovvvvvvvvvvovvv  o"
AlleWelten$(2,8)= "ooovvoooooooooooooooooooooo  o"
AlleWelten$(2,7)= "o vvvvvoooooovvvvovv         o"
AlleWelten$(2,6)= "o voovv      vvvvovv ooooooooo"
AlleWelten$(2,5)= "o ooooo      ooooooo      oooo"
AlleWelten$(2,4)= "o                            o"
AlleWelten$(2,3)= "oooooooooooooooooooooooooooo o"
AlleWelten$(2,2)= "osvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(2,1)= "oooooooooooooooooooooooooooooo"


Mapy(2)=50
Mapx(2)=30


`Welt 3

AlleWelten$(3,20)="ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo"
AlleWelten$(3,19)="os     oo         ovvvvv                                            o"
AlleWelten$(3,18)="o     oo     oo vovvooo              oooo                           o"
AlleWelten$(3,17)="oovvvvvvvvvvvvoo oovoo                          ooooooooo           o"
AlleWelten$(3,16)="oooooooooooooooo  ovvo       ooooo      o  o                        o"
AlleWelten$(3,15)="o                 oovo                  o  o                        o"
AlleWelten$(3,14)="o ooooooooooooooooovvo  oooo          ooo  ooo                      o"
AlleWelten$(3,13)="o o       o     vvvvvo                                              o"
AlleWelten$(3,12)="o o  ooo  o     oooooo                ooovvooo                      o"
AlleWelten$(3,11)="o      o  o       o           ooo       ovvo                        o"
AlleWelten$(3,10)="ooooo  o  o       o                     ovvo   e                    o"
AlleWelten$(3,9) ="o      o          o                     ov                          o"
AlleWelten$(3,8) ="o      o   oooooooo                     oov        oooooooooooo     o"
AlleWelten$(3,7) ="o  oooooo   o           ooooo            oov                        o"
AlleWelten$(3,6) ="o    o     oo                             oo                    ooooo"
AlleWelten$(3,5) ="oo   o      o                                                       o"
AlleWelten$(3,4) ="ooo  oooo   ovvvvvvvvvvvvvvvvvooooovvvvvvvvvvvvvvvvvvvvvvvvvvvooooooo"
AlleWelten$(3,3) ="o    o      ovvvvvvvvooooovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(3,2) ="o           ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(3,1) ="ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo"

Mapy(3)=20
Mapx(3)=70


`Welt 4

AlleWelten$(4,80)="oooooooooooooooooooooooooooooo"
AlleWelten$(4,79)="o              e             o"
AlleWelten$(4,78)="o        oooooooooooo        o"
AlleWelten$(4,77)="o        vvvvvvvvvvvv        o"
AlleWelten$(4,76)="ooo      vvvvvvvvvvvv      ooo"
AlleWelten$(4,75)="o        oooooooooooo        o"
AlleWelten$(4,74)="o                            o"
AlleWelten$(4,73)="o   oo                  oo   o"
AlleWelten$(4,72)="o                            o"
AlleWelten$(4,71)="oooooooooooooo  oooooooooooooo"
AlleWelten$(4,70)="o                            o"
AlleWelten$(4,69)="o             vv             o"
AlleWelten$(4,68)="o             oo             o"
AlleWelten$(4,67)="o            voov            o"
AlleWelten$(4,65)="o            oooo            o"
AlleWelten$(4,64)="o           vvoovv           o"
AlleWelten$(4,63)="o           oooooo           o"
AlleWelten$(4,62)="o          vvvoovvv          o"
AlleWelten$(4,61)="o          oooooooo          o"
AlleWelten$(4,60)="o         vvvvoovvvv         o"
AlleWelten$(4,59)="o         oooooooooo         o"
AlleWelten$(4,58)="o        vvvvvoovvvvv        o"
AlleWelten$(4,57)="o        oooooooooooo        o"
AlleWelten$(4,56)="o       vvvvvvoovvvvvv       o"
AlleWelten$(4,55)="o       oooooooooooooo       o"
AlleWelten$(4,54)="o      vvvvvvvoovvvvvvv      o"
AlleWelten$(4,53)="o      oooooooooooooooo      o"
AlleWelten$(4,52)="o     vvvvvvvvoovvvvvvvv     o"
AlleWelten$(4,51)="o     oooooooooooooooooo     o"
AlleWelten$(4,50)="o    vvvvvvvvvoovvvvvvvvv    o"
AlleWelten$(4,49)="o    oooooooooooooooooooo    o"
AlleWelten$(4,48)="o   vvvvvvvvvvoovvvvvvvvvv   o"
AlleWelten$(4,47)="o   oooooooooooooooooooooo   o"
AlleWelten$(4,46)="o  vvvvvvvvvvvoovvvvvvvvvvv  o"
AlleWelten$(4,45)="o  oooooooooooooooooooooooo  o"
AlleWelten$(4,44)="o vvvvvvvvvvvvoovvvvvvvvvvvv o"
AlleWelten$(4,43)="o oooooooooooooooooooooooooo o"
AlleWelten$(4,42)="ovv                        vvo"
AlleWelten$(4,41)="ooo                        ooo"
AlleWelten$(4,40)="o                            o"
AlleWelten$(4,39)="o vooooooooooovvooooooooooov o"
AlleWelten$(4,38)="o oo         ovvo         oo o"
AlleWelten$(4,37)="ov o         ovvo         o vo"
AlleWelten$(4,36)="oo o  vvvvvvvvvvvvvvvvv   o oo"
AlleWelten$(4,35)="o vo  oooooooooooooooooo  ov o"
AlleWelten$(4,34)="o oo          vv          oo o"
AlleWelten$(4,33)="o  ooooooooooovvooooooooooo  o"
AlleWelten$(4,32)="o                            o"
AlleWelten$(4,31)="oooooooooooooo  oooooooooooooo"
AlleWelten$(4,30)="o                            o"
AlleWelten$(4,29)="o oooooooooooooooooooooooooo o"
AlleWelten$(4,28)="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(4,27)="o oooooooooooooooooooooooooo o"
AlleWelten$(4,26)="o                            o"
AlleWelten$(4,25)="o  o                      o  o"
AlleWelten$(4,24)="o  ooo                  ooo  o"
AlleWelten$(4,23)="o    oooo            oooo    o"
AlleWelten$(4,22)="o       oooo      oooo       o"
AlleWelten$(4,21)="o          ooo  ooo          o"
AlleWelten$(4,20)="o                            o"
AlleWelten$(4,19)="o       oooooooooooooo       o"
AlleWelten$(4,18)="o            oooo            o"
AlleWelten$(4,17)="o        oooooooooooo        o"
AlleWelten$(4,16)="o            oooo            o"
AlleWelten$(4,15)="o         oooooooooo         o"
AlleWelten$(4,14)="o            oooo            o"
AlleWelten$(4,13)="o          oooooooo          o"
AlleWelten$(4,12)="o            oooo            o"
AlleWelten$(4,11)="o           oooooo           o"
AlleWelten$(4,10)="o            oooo            o"
AlleWelten$(4,9) ="o oooooooooo      oooooooooo o"
AlleWelten$(4,8) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(4,7) ="oooooooooooooo  oooooooooooooo"
AlleWelten$(4,6) ="o             vv             o"
AlleWelten$(4,5) ="o oooooooooooooooooooooooooo o"
AlleWelten$(4,4) ="o                            o"
AlleWelten$(4,3) ="o oo                      oo o"
AlleWelten$(4,2) ="os                           o"
AlleWelten$(4,1) ="oooooooooooooooooooooooooooooo"


Mapy(4)=80
Mapx(4)=30


`Welt 5

AlleWelten$(5,16)="oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo"
AlleWelten$(5,15)="o       vvv     ovv                                                                 oooo                                                             o"
AlleWelten$(5,14)="o       vvv     ovvoooooooo  v     vv   v                               oooo     oooo                         v      v     ooooooooooooo             o"
AlleWelten$(5,13)="o   oo  vvv     ovoo        ov    v  v  v       o                    oooo     oooo                                         ovvvvvvvvvvvo             o"
AlleWelten$(5,12)="o       vvv     ovvo         v    v  v  v                         oooo     oooo                               vv           ovooooooooovo             o"
AlleWelten$(5,11)="ooo     vvv     oovo     o   v    v  v  v          o           oooo     oooo               ooo                 ooooo       ovvvvvvvvvovo             o"
AlleWelten$(5,10)="o       vvv     ovvo         vvv   vv   vvv                 oooo      ooo                                                  ooooooooooovo             o"
AlleWelten$(5,9) ="o   oo  ooo     ovoo        o                   o        oooo      oooo                  oo                o    v      v   vvvvvvvvvvvvo             o"
AlleWelten$(5,8) ="o               ovvo             oooooo               oooo      oooo                            oooooooooooooo            oooooooooooooo             o"
AlleWelten$(5,7) ="ooo         oooooovo     o                         oooo      oooo            ooooooooooo                                                             o"
AlleWelten$(5,6) ="o               ovvo                            oooo      oooo               ovvvvvvvvvo                                                             o"
AlleWelten$(5,5) ="o   oooooo      ovoo     ooooo               oooo      oooo                  ovooooooovo                      v     ooooo                            o"
AlleWelten$(5,4) ="o     oo        ovvo                      oooo      oooo                oooooovovvvvvvvo                                                             o"
AlleWelten$(5,3) ="o  oo         oooovo           o       oooo      oooo                   oovvvvvovooooooo                                                             o"
AlleWelten$(5,2) ="os            vvvvvo                oooo                                oovooooovvvvvvvv                                                            eo"
AlleWelten$(5,1) ="oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo"

Mapy(5)=16
Mapx(5)=150


`Welt6

AlleWelten$(6,100)="oooooooooooooooooooooooooooooo"
AlleWelten$(6,99) ="osvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,98) ="oooooooooooooooooooooooooooovo"
AlleWelten$(6,97) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,96) ="ovoooooooooooooooooooooooooooo"
AlleWelten$(6,95) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,94) ="oooooooooooooooooooooooooooovo"
AlleWelten$(6,93) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,92) ="o oooooooooooooooooooooooooooo"
AlleWelten$(6,91) ="o                            o"
AlleWelten$(6,90) ="o                            o"
AlleWelten$(6,89) ="ooo     vvvvvvv   v          o"
AlleWelten$(6,88) ="o       ooooooo   v          o"
AlleWelten$(6,87) ="o                 v          o"
AlleWelten$(6,86) ="o                 o          o"
AlleWelten$(6,85) ="o           vvvvvvvvvv       o"
AlleWelten$(6,84) ="o           oooooooooo       o"
AlleWelten$(6,83) ="o                            o"
AlleWelten$(6,82) ="o                       vvvvvo"
AlleWelten$(6,81) ="o                       oooooo"
AlleWelten$(6,80) ="o                            o"
AlleWelten$(6,79) ="o                ooo         o"
AlleWelten$(6,78) ="o          o                 o"
AlleWelten$(6,77) ="o                            o"
AlleWelten$(6,76) ="o       vvv     o            o"
AlleWelten$(6,75) ="o       v v         ooo      o"
AlleWelten$(6,74) ="o       vvvvv                o"
AlleWelten$(6,73) ="oooooooooovovooooooooooooooovo"
AlleWelten$(6,72) ="ovvvovvvoovovvoooovvvvvvvvoovo"
AlleWelten$(6,71) ="ovovvvovvvvoovvvvvvoooooovvvvo"
AlleWelten$(6,70) ="ovooooooooooooooovvooooooooooo"
AlleWelten$(6,69) ="ovvvvvvvvvvvvvvvovvvvvvvvvvvvo"
AlleWelten$(6,68) ="ooooooooooooooovoo ooooooooooo"
AlleWelten$(6,67) ="o                            o"
AlleWelten$(6,66) ="o              oooo          o"
AlleWelten$(6,65) ="o          oo                o"
AlleWelten$(6,64) ="o                            o"
AlleWelten$(6,63) ="o             o    vvvvvvvvvvo"
AlleWelten$(6,62) ="o                  ooooooooooo"
AlleWelten$(6,61) ="o        o                   o"
AlleWelten$(6,60) ="o                            o"
AlleWelten$(6,59) ="o            oo              o"
AlleWelten$(6,58) ="o                            o"
AlleWelten$(6,57) ="o               o            o"
AlleWelten$(6,56) ="o             vvvvvvvvvvv    o"
AlleWelten$(6,55) ="o             ooooooooooo    o"
AlleWelten$(6,54) ="o   o     o                  o"
AlleWelten$(6,55) ="o        voo                 o"
AlleWelten$(6,54) ="o        v oo                o"
AlleWelten$(6,53) ="o        v  oo               o"
AlleWelten$(6,52) ="o            oo              o"
AlleWelten$(6,51) ="o             oo             o"
AlleWelten$(6,50) ="o              oo            o"
AlleWelten$(6,49) ="o               oo           o"
AlleWelten$(6,48) ="o                oo          o"
AlleWelten$(6,47) ="o                            o"
AlleWelten$(6,46) ="oooooooooooooooooooooooooooovo"
AlleWelten$(6,45) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,44) ="ovoooooooooooooooooooooooooooo"
AlleWelten$(6,43) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,42) ="oooooooooooooooooooooooooooo o"
AlleWelten$(6,41) ="o                            o"
AlleWelten$(6,40) ="o                           oo"
AlleWelten$(6,39) ="o                            o"
AlleWelten$(6,38) ="o                      o     o"
AlleWelten$(6,37) ="o                  vo        o"
AlleWelten$(6,36) ="o                  v         o"
AlleWelten$(6,35) ="o                  v         o"
AlleWelten$(6,34) ="o                  o    vvv  o"
AlleWelten$(6,33) ="o                      v   v o"
AlleWelten$(6,32) ="o                      o    vo"
AlleWelten$(6,31) ="o                           vo"
AlleWelten$(6,30) ="o                           vo"
AlleWelten$(6,29) ="o                           oo"
AlleWelten$(6,28) ="o                      ooo   o"
AlleWelten$(6,27) ="o                     oo oo vo"
AlleWelten$(6,26) ="o                    oo   oovo"
AlleWelten$(6,25) ="o                   oo     ovo"
AlleWelten$(6,24) ="o                           vo"
AlleWelten$(6,23) ="ovoooooooooooooooooooooooooooo"
AlleWelten$(6,22) ="ovo                          o"
AlleWelten$(6,21) ="ovo                          o"
AlleWelten$(6,20) ="ovo                          o"
AlleWelten$(6,19) ="ovo                          o"
AlleWelten$(6,18) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(6,17) ="oooooooooooooooooooooooooooovo"
AlleWelten$(6,16) ="o                            o"
AlleWelten$(6,15) ="o               ovvooooooooooo"
AlleWelten$(6,14) ="o                vv          o"
AlleWelten$(6,13) ="o             o  vv          o"
AlleWelten$(6,12) ="o                vv          o"
AlleWelten$(6,11) ="o               ovv          o"
AlleWelten$(6,10) ="o                vv          o"
AlleWelten$(6,9)  ="o             o  vv          o"
AlleWelten$(6,8)  ="o                vv          o"
AlleWelten$(6,7)  ="o               ovv          o"
AlleWelten$(6,6)  ="o                vv          o"
AlleWelten$(6,5)  ="o             o  vv          o"
AlleWelten$(6,4)  ="o                vv          o"
AlleWelten$(6,3)  ="o               ovv          o"
AlleWelten$(6,2)  ="o                ve          o"
AlleWelten$(6,1)  ="oooooooooooooooooooooooooooooo"


Mapy(6)=100
Mapx(6)=30


`Welt7

AlleWelten$(7,80)="ooooooooooooooooooooooooooooooo"
AlleWelten$(7,79)="o              e              o"
AlleWelten$(7,78)="o              v              o"
AlleWelten$(7,77)="o              o              o"
AlleWelten$(7,76)="o           o     o           o"
AlleWelten$(7,75)="o                             o"
AlleWelten$(7,74)="o                             o"
AlleWelten$(7,73)="o                             o"
AlleWelten$(7,72)="o              o              o"
AlleWelten$(7,71)="o            ov vo            o"
AlleWelten$(7,70)="o          ov  v  vo          o"
AlleWelten$(7,69)="o        ov  vv vv  vo        o"
AlleWelten$(7,68)="o      ov  v vv vv v  vo      o"
AlleWelten$(7,67)="o    ov  v  v  v  v  v  vo    o"
AlleWelten$(7,66)="o  ov  v   v  v v  v   v  vo  o"
AlleWelten$(7,65)="o                             o"
AlleWelten$(7,64)="ooooooooooooooooooooooooooooovo"
AlleWelten$(7,63)="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(7,62)="ovooooooooooooooooooooooooooooo"
AlleWelten$(7,61)="ovvvvvvvvvvvvvvvooooooooooooooo"
AlleWelten$(7,60)="ooooooooooooooovooooooooooooooo"
AlleWelten$(7,59)="o              v              o"
AlleWelten$(7,58)="o              vv             o"
AlleWelten$(7,57)="o              ov             o"
AlleWelten$(7,56)="o              vv             o"
AlleWelten$(7,55)="o              vo             o"
AlleWelten$(7,54)="o              vv             o"
AlleWelten$(7,53)="o              ov             o"
AlleWelten$(7,52)="o              vv             o"
AlleWelten$(7,51)="o              vo             o"
AlleWelten$(7,50)="o              vv             o"
AlleWelten$(7,49)="o              ov             o"
AlleWelten$(7,48)="o               v             o"
AlleWelten$(7,47)="ooooooooooooooo voooooooooooooo"
AlleWelten$(7,46)="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(7,45)="ovooooooooooooooooooooooooooovo"
AlleWelten$(7,44)="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(7,43)="ooooooooooooooovvoooooooooooooo"
AlleWelten$(7,42)="o                             o"
AlleWelten$(7,41)="o                             o"
AlleWelten$(7,40)="o               o   o         o"
AlleWelten$(7,39)="o               v             o"
AlleWelten$(7,38)="o               v     o       o"
AlleWelten$(7,37)="o               v             o"
AlleWelten$(7,36)="o               v   o         o"
AlleWelten$(7,35)="o                             o"
AlleWelten$(7,34)="o                     o       o"
AlleWelten$(7,33)="ooooooooooooooooooooooooooooovo"
AlleWelten$(7,32)="ovvvvvvvvvvvvvvovvvvvoovvvvvovo"
AlleWelten$(7,31)="ovoooooooooooovvvovvvvvvvvvvvvo"
AlleWelten$(7,30)="ovvvvvvvvvvvvooooovvoovvvvvvvvo"
AlleWelten$(7,29)="oooooooooooovvvvvvvvvvvvvvvvvoo"
AlleWelten$(7,28)="ovvvvvvvvvvoovvvvvoovvoovvvvo o"
AlleWelten$(7,27)="ovvoovvvoovvvvvvvoovvvvvvvvo  o"
AlleWelten$(7,26)="oovoovvvooovvvvvvvvvvvvvvvo   o"
AlleWelten$(7,25)="oovoooooooooooooooooooooooooooo"
AlleWelten$(7,24)="oovvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(7,23)="ooooooooooooooooooooooooooooovo"
AlleWelten$(7,22)="ovvvovvvovvvovvvovvvovvvovvvovo"
AlleWelten$(7,21)="ovovovovovovovovovovovovovovovo"
AlleWelten$(7,20)="ovovovovovovovovovovovovovovovo"
AlleWelten$(7,19)="ovvvvvovvvovvvovvvovvvovvvovvvo"
AlleWelten$(7,18)="oovoooooooooooooooooooooooooooo"
AlleWelten$(7,17)="oovovvvo                      o"
AlleWelten$(7,16)="oovvvovo                      o"
AlleWelten$(7,15)="oooooovo                      o"
AlleWelten$(7,14)="o     v                       o"
AlleWelten$(7,13)="o     v ooo                   o"
AlleWelten$(7,12)="o     v                       o"
AlleWelten$(7,11)="o     o                       o"
AlleWelten$(7,10)="o  vooo                       o"
AlleWelten$(7,9) ="o  vv                         o"
AlleWelten$(7,8) ="o  ov                         o"
AlleWelten$(7,7) ="o  vv                         o"
AlleWelten$(7,6) ="o  vo                         o"
AlleWelten$(7,5) ="o  v                          o"
AlleWelten$(7,4) ="o  v  o                       o"
AlleWelten$(7,3) ="o  v  oo                      o"
AlleWelten$(7,2) ="o  s                          o"
AlleWelten$(7,1) ="ooooooooooooooooooooooooooooooo"



Mapy(7)=80
Mapx(7)=31
camangle(7)=180


`Welt8


AlleWelten$(8,64)="ooooooooooooooooooooooooooooooooooooooooooooooooo"
AlleWelten$(8,63)="ov                      s                      vo"
AlleWelten$(8,62)="oov                                           voo"
AlleWelten$(8,61)="ooov                                         vooo"
AlleWelten$(8,60)="oooov                                       voooo"
AlleWelten$(8,59)="ooooov                                     vooooo"
AlleWelten$(8,58)="oooooov                                   voooooo"
AlleWelten$(8,57)="ooooooov                                 vooooooo"
AlleWelten$(8,56)="oooooooov                               voooooooo"
AlleWelten$(8,55)="ooooooooov                             vooooooooo"
AlleWelten$(8,54)="oooooooooov                           voooooooooo"
AlleWelten$(8,53)="ooooooooooov                         vooooooooooo"
AlleWelten$(8,52)="oooooooooooov                       voooooooooooo"
AlleWelten$(8,51)="ooooooooooooov                     vooooooooooooo"
AlleWelten$(8,50)="oooooooooooooov                   voooooooooooooo"
AlleWelten$(8,49)="ooooooooooooooov                 vooooooooooooooo"
AlleWelten$(8,48)="oooooooooooooooov               voooooooooooooooo"
AlleWelten$(8,47)="ooooooooooooooooov             vooooooooooooooooo"
AlleWelten$(8,46)="oooooooooooooooooov           voooooooooooooooooo"
AlleWelten$(8,45)="ooooooooooooooooooov         vooooooooooooooooooo"
AlleWelten$(8,44)="oooooooooooooooooooov       voooooooooooooooooooo"
AlleWelten$(8,43)="ooooooooooooooooooooov     vooooooooooooooooooooo"
AlleWelten$(8,42)="oooooooooooooooooooooov   voooooooooooooooooooooo"
AlleWelten$(8,41)="ooooooooooooooooooooooov vooooooooooooooooooooooo"
AlleWelten$(8,40)="o                       v                       o"
AlleWelten$(8,39)="o                      vov                      o"
AlleWelten$(8,38)="o                     vooov                     o"
AlleWelten$(8,37)="o                    vooooov                    o"
AlleWelten$(8,36)="o                   vooooooov                   o"
AlleWelten$(8,35)="o                  vooooooooov                  o"
AlleWelten$(8,34)="o                 vooooooooooov                 o"
AlleWelten$(8,33)="o                vooooooooooooov                o"
AlleWelten$(8,32)="o               vooooooooooooooov               o"
AlleWelten$(8,31)="o              vooooooooooooooooov              o"
AlleWelten$(8,30)="o             vooooooooooooooooooov             o"
AlleWelten$(8,29)="o            vooooooooooooooooooooov            o"
AlleWelten$(8,28)="o           vooooooooooooooooooooooov           o"
AlleWelten$(8,27)="o          vooooooooooooooooooooooooov          o"
AlleWelten$(8,26)="o         vooooooooooooooooooooooooooov         o"
AlleWelten$(8,25)="o        vooooooooooooooooooooooooooooov        o"
AlleWelten$(8,24)="o       vooooooooooooooooooooooooooooooov       o"
AlleWelten$(8,23)="o      vooooooooooooooooooooooooooooooooov      o"
AlleWelten$(8,22)="o     vooooooooooooooooooooooooooooooooooov     o"
AlleWelten$(8,21)="o    vooooooooooooooooooooooooooooooooooooov    o"
AlleWelten$(8,20)="o   vooooooooooooooooooooooooooooooooooooooov   o"
AlleWelten$(8,19)="o  vooooooooooooooooooooooooooooooooooooooooov  o"
AlleWelten$(8,18)="o vooooooooooooooooooooooooooooooooooooooooooov o"
AlleWelten$(8,17)="o                                               o"
AlleWelten$(8,16)="ooo                                           ooo"
AlleWelten$(8,15)="o                                               o"
AlleWelten$(8,14)="o  ooo                                     ooo  o"
AlleWelten$(8,13)="o                                               o"
AlleWelten$(8,12)="o     ooo                               ooo     o"
AlleWelten$(8,11)="o                                               o"
AlleWelten$(8,10)="o        ooo                         ooo        o"
AlleWelten$(8,9) ="o                                               o"
AlleWelten$(8,8) ="o           ooo                   ooo           o"
AlleWelten$(8,7) ="o                                               o"
AlleWelten$(8,6) ="o              ooo             ooo              o"
AlleWelten$(8,5) ="o                                               o"
AlleWelten$(8,4) ="o                 ooo       ooo                 o"
AlleWelten$(8,3) ="o                                               o"
AlleWelten$(8,2) ="o                       e                       o"
AlleWelten$(8,1) ="ooooooooooooooooooooooooooooooooooooooooooooooooo"


Mapx(8)=49
Mapy(8)=64

`Welt 9
AlleWelten$(9,70) ="ooooooooooooooooooooooooooooooooooooooooooooooooo"
AlleWelten$(9,69) ="ovvvvovvvvvvvvvvvvoooooooooooooooooooooooooooooeo"
AlleWelten$(9,68) ="o  oooooovoooooooooooooooooooo o ooooooooooooo  o"
AlleWelten$(9,67) ="o oooo v   o o ooooo ooooooooo o ooooooooooooo oo"
AlleWelten$(9,66) ="o ooooovvvvovoo oooo oooooooo ooo oooooooooooo  o"
AlleWelten$(9,65) ="o                                 vvvvvvvvvvvvvoo"
AlleWelten$(9,64) ="ooooo oooooooooooooooooooooooooo ooooooooooo oooo"
AlleWelten$(9,63) ="ooovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvo ooovo"
AlleWelten$(9,62) ="oooooooooo ooooooooooooooooooooooooo ooooo oooo o"
AlleWelten$(9,61) ="o                 ooooooooooo                   o"
AlleWelten$(9,60) ="o           oooooooooooooooooooooo              o"
AlleWelten$(9,59) ="o       vooooooooooooooooooooooooooo v          o"
AlleWelten$(9,58) ="o    oo ovvvvvvvvvvvvvvvvvvvvvvvvvvvo oo        o"
AlleWelten$(9,57) ="o    o   oooooooooooo  ooooooooooooo   o    oo  o"
AlleWelten$(9,56) ="o   oo  v oooooooooooo   oooooooooo v  oo       o"
AlleWelten$(9,55) ="o  ooo vvv ooooooooo   ooooooooooo vvv ooo     oo"
AlleWelten$(9,54) ="o   oo  v oooooooooooo   oooooooooo v  oo       o"
AlleWelten$(9,53) ="o    ooo oooooooooooo  ooooooooooooo ooo     oo o"
AlleWelten$(9,52) ="o     oooooooooooooooo  ooooooooooooooo         o"
AlleWelten$(9,51) ="o      oooooooooooooooo  ooooooooooooo      oo oo"
AlleWelten$(9,50) ="o       oooooooooooooooo  ooooooooooo           o"
AlleWelten$(9,49) ="o        ooooooooooooooo ooooooooooo          ooo"
AlleWelten$(9,48) ="o                                               o"
AlleWelten$(9,47) ="o      ooooooooooooooooooooooooooooooo   o   o oo"
AlleWelten$(9,46) ="o      ooo v oooo  ooo voooo    vooooo          o"
AlleWelten$(9,45) ="o      ooo o  ooov ooo oooo  oo  ooooo       o oo"
AlleWelten$(9,44) ="o      ooo oo  ooo ooo  ooo  ooovooooo          o"
AlleWelten$(9,43) ="o      oo  ooo  oo      oo  oooo  oooo        ooo"
AlleWelten$(9,42) ="o      o  ooooo  o  oo   o  oooo   ooo          o"
AlleWelten$(9,41) ="o      o  ooooo v   o       ooooo  ooo       oo o"
AlleWelten$(9,40) ="o      oooooooooooooooooo oooooooooooo      ooo o"
AlleWelten$(9,39) ="o                                               o"
AlleWelten$(9,38) ="o oooooooooooooooooooooooooooooooooooooooooooo  o"
AlleWelten$(9,37) ="ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(9,36) ="ooooooooooooooooooooo ooooooooooooooooooooooooooo"
AlleWelten$(9,35) ="o                                               o"
AlleWelten$(9,34) ="ooooooooooooooooooooooooooooooooooooooooooooooo o"
AlleWelten$(9,33) ="o  v  o    o                                    o"
AlleWelten$(9,32) ="o  o  v  o v o o  o o  o   o   o o o o o    v  oo"
AlleWelten$(9,31) ="o  o  o  o   ovo  o o  o   o   ovovovovo    v   o"
AlleWelten$(9,30) ="o  o  o  o   ovo  o o  o   o   ovovovovo    v   o"
AlleWelten$(9,29) ="o ooooooooooooooooooooooooooooooooooooooooooooooo"
AlleWelten$(9,28) ="o     v   v     v     v          v    vv        o"
AlleWelten$(9,27) ="oo    o v o      oo   ooo       vo  oo oo       o"
AlleWelten$(9,26) ="ooo   ooooo     oo   oovoo      voo  oo oo      o"
AlleWelten$(9,25) ="oooo   ooo     oo    ov vo      vooo  oo oo     o"
AlleWelten$(9,24) ="ooooo         oo     oo oo      voooo  oo oo    o"
AlleWelten$(9,23) ="oooooo       oo                 vooooo   vvvvvvvo"
AlleWelten$(9,22) ="ooooooo                                         o"
AlleWelten$(9,21) ="ooooooooooosoooooooooooooooooooooooooooo oooooooo"
AlleWelten$(9,20) ="ooooooooooo ooooooooooovvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(9,19) ="ooooooooooo oooooooooooooooooooooooooooooooo oooo"
AlleWelten$(9,18) ="ooooooooooo oooooooooooooooooooooooooo  vvvo oooo"
AlleWelten$(9,17) ="ooooooooooo ovvvvvvv                   o     oooo"
AlleWelten$(9,16) ="ooooooooooo ooooooo ooooooooooooooooooooooooooooo"
AlleWelten$(9,15) ="ooooooooooo ooooooo ooooooooooooooooooooooooooooo"
AlleWelten$(9,14) ="ooooooooooo o                                 v o"
AlleWelten$(9,13) ="ooooooooooo oooooooooooooooooooooooooooooooooo  o"
AlleWelten$(9,12) ="ooooooooooo  oooooooooooooooooooooooooooooooo  oo"
AlleWelten$(9,11) ="ooooooooooo o                                   o"
AlleWelten$(9,10) ="ooooooooooo ooooooooooooooooo ooooooooooooooooooo"
AlleWelten$(9,9)  ="ooooooooooo ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvoo"
AlleWelten$(9,8)  ="ooooooooooo oooooooooooooooooooooooooooooooooo oo"
AlleWelten$(9,7)  ="ooooooooooo ovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv oo"
AlleWelten$(9,6)  ="ooooooooooo o                                   o"
AlleWelten$(9,5)  ="ooooooooooo o o  o   o   o   o   o   o   o   oo o"
AlleWelten$(9,4)  ="ooooooooooo o                                   o"
AlleWelten$(9,3)  ="ooooooooooo oooooooooooooooooooooooooooooooooo oo"
AlleWelten$(9,2)  ="ooooooooooo vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvo"
AlleWelten$(9,1)  ="ooooooooooooooooooooooooooooooooooooooooooooooooo"

Mapy(9)=70
Mapx(9)=49

AlleWelten$(10,90)="oooooooooooooooooooooooooooooo"
AlleWelten$(10,89)="oeoovvvvvvvvvvvvvvvvvvvvvvvvso"
AlleWelten$(10,88)="o oo ooooooooooooooooooooooooo"
AlleWelten$(10,87)="o  o                         o"
AlleWelten$(10,86)="o oooooooooooooooooooooooooo o"
AlleWelten$(10,85)="o     o                      o"
AlleWelten$(10,84)="oo    o oooooooooooooooooooooo"
AlleWelten$(10,83)="o   ooo  v                   o"
AlleWelten$(10,82)="o     o  o v  o     o o      o"
AlleWelten$(10,81)="o     o    o     v        o  o"
AlleWelten$(10,80)="ooo   o  v       o  v  o     o"
AlleWelten$(10,79)="o     o  o  v      v   v  o  o"
AlleWelten$(10,78)="o     o     o      o   o     o"
AlleWelten$(10,77)="o   ooo  o     v     vv    o o"
AlleWelten$(10,76)="o     o    v   o     o    v  o"
AlleWelten$(10,75)="o     o    o       o      o  o"
AlleWelten$(10,74)="ooo   o        v       o   o o"
AlleWelten$(10,73)="o     o   v   o o  vv      o o"
AlleWelten$(10,72)="o     o   o   v    o     v  oo"
AlleWelten$(10,71)="o   ooo  v    o  v     o oo  o"
AlleWelten$(10,70)="o     o  o       o  v        o"
AlleWelten$(10,69)="o     o   vv  o v   o  v     o"
AlleWelten$(10,68)="ooo   o   o    v v     o    vo"
AlleWelten$(10,67)="o     o        o oo          o"
AlleWelten$(10,66)="o     o                     oo"
AlleWelten$(10,65)="o   ooo                     vo"
AlleWelten$(10,64)="o     o                    ooo"
AlleWelten$(10,63)="o     o                    vvo"
AlleWelten$(10,62)="ooo   o                   oooo"
AlleWelten$(10,61)="o     o                   vvvo"
AlleWelten$(10,60)="o     o                  ooooo"
AlleWelten$(10,59)="o   ooo                  vvvvo"
AlleWelten$(10,58)="o     o                 oooooo"
AlleWelten$(10,57)="o     o                 vvvvvo"
AlleWelten$(10,56)="ooo   oooooooooooo ooooooooooo"
AlleWelten$(10,55)="o     ovvvvvvvvvvvvovvvvvvvvvo"
AlleWelten$(10,54)="o     ovoooooooooooovooooooovo"
AlleWelten$(10,53)="ooo  oovovvvvvvvvvvvvoovvvoovo"
AlleWelten$(10,52)="o    ovvovvvooooooooooovovovvo"
AlleWelten$(10,51)="o    oovooovvvvooovvvvvvvvoovo"
AlleWelten$(10,50)="ooo   ovovvvoovooovooooovvvovo"
AlleWelten$(10,49)="o    oovoovvvovooovvvvvovvoovo"
AlleWelten$(10,48)="o    ovvovvovvvooooooovovoovvo"
AlleWelten$(10,47)="ooo  oovoooooovovvvvvvvovvoovo"
AlleWelten$(10,46)="o     ovvvvvvvvovoooooooovvovo"
AlleWelten$(10,45)="o     oooooooooovo      oovvvo"
AlleWelten$(10,44)="o   ooo                  ooooo"
AlleWelten$(10,43)="o     o        ooo           o"
AlleWelten$(10,42)="o     o            vvv       o"
AlleWelten$(10,41)="ooo   o            ooo       o"
AlleWelten$(10,40)="o     o                      o"
AlleWelten$(10,39)="o     o                   v  o"
AlleWelten$(10,38)="o   ooo      ooo          o  o"
AlleWelten$(10,37)="o     o                      o"
AlleWelten$(10,36)="ooo   o             oooo     o"
AlleWelten$(10,35)="o     o                      o"
AlleWelten$(10,34)="o     o           v          o"
AlleWelten$(10,33)="o   ooo           o          o"
AlleWelten$(10,32)="o     o                      o"
AlleWelten$(10,31)="o     o             v        o"
AlleWelten$(10,30)="ooo   o             o        o"
AlleWelten$(10,29)="o     o                      o"
AlleWelten$(10,28)="o     o         v            o"
AlleWelten$(10,27)="o   ooo         o            o"
AlleWelten$(10,26)="o     o                      o"
AlleWelten$(10,25)="o     o      v               o"
AlleWelten$(10,24)="ooo   o      ov              o"
AlleWelten$(10,23)="o     o       ov             o"
AlleWelten$(10,22)="o     o        ov            o"
AlleWelten$(10,21)="o   ooo         ov           o"
AlleWelten$(10,20)="o     o          ov          o"
AlleWelten$(10,19)="o     o           ov         o"
AlleWelten$(10,18)="ooo   o            ov        o"
AlleWelten$(10,17)="o     o             ov       o"
AlleWelten$(10,16)="o     o              ov      o"
AlleWelten$(10,15)="o   ooo               ov     o"
AlleWelten$(10,14)="o     o                ov    o"
AlleWelten$(10,13)="o     o                 ov   o"
AlleWelten$(10,12)="ooo   o                  ov  o"
AlleWelten$(10,11)="o     o                      o"
AlleWelten$(10,10)="o     o                    voo"
AlleWelten$(10,9) ="o   ooo                   vo o"
AlleWelten$(10,8) ="o     o                  vo  o"
AlleWelten$(10,7) ="o     o                 vo   o"
AlleWelten$(10,6) ="ooo   o                vo    o"
AlleWelten$(10,5) ="o     o               vo     o"
AlleWelten$(10,4) ="o     o              vo      o"
AlleWelten$(10,3) ="o   ooo             vo       o"
AlleWelten$(10,2) ="o                  vo        o"
AlleWelten$(10,1) ="oooooooooooooooooooooooooooooo"

Mapy(10)=90
Mapx(10)=30

camangle(10)=90


AlleWelten$(11,110)="ooooooooooooooooooooooooooooo"
AlleWelten$(11,109)="ovvvvvvvvvvvvvvvvvvvvvvvvvseo"
AlleWelten$(11,108)="ovooooooooooooooooooooooooooo"
AlleWelten$(11,107)="o vv                     vv o"
AlleWelten$(11,106)="o oo                 v   ov o"
AlleWelten$(11,105)="o                    v    v o"
AlleWelten$(11,104)="o   v                v    v o"
AlleWelten$(11,103)="o   o                o   vo o"
AlleWelten$(11,102)="o    o       v          vo  o"
AlleWelten$(11,101)="o            o    v    vo   o"
AlleWelten$(11,100)="o       o         v   vo    o"
AlleWelten$(11,99) ="o                ooo  o     o"
AlleWelten$(11,98) ="o        v         o  o     o"
AlleWelten$(11,97) ="o        o         o  o     o"
AlleWelten$(11,96) ="o            v     o  o     o"
AlleWelten$(11,95) ="o            o    vo  o     o"
AlleWelten$(11,94) ="o           o     oo  o     o"
AlleWelten$(11,93) ="o                  o  o     o"
Allewelten$(11,92) ="o       v          o  o     o"
AlleWelten$(11,91) ="o       o          o  o     o"
AlleWelten$(11,90) ="o         v  v     o  o     o"
AlleWelten$(11,89) ="o         o  o    vo  o     o"
AlleWelten$(11,88) ="o                 vo  o     o"
AlleWelten$(11,87) ="o       v         vo  o     o"
AlleWelten$(11,86) ="o       o         vo  o     o"
AlleWelten$(11,85) ="o                 vo  o     o"
AlleWelten$(11,84) ="o              v   o  o     o"
AlleWelten$(11,85) ="o              o o o  o     o"
AlleWelten$(11,84) ="o              v o o  o     o"
AlleWelten$(11,83) ="o     v    v   o o o  o     o"
AlleWelten$(11,82) ="o     o    o     o o  o     o"
AlleWelten$(11,81) ="o        v       o o  o     o"
AlleWelten$(11,80) ="o        v       o o  o     o"
AlleWelten$(11,79) ="o        v       o o  o     o"
AlleWelten$(11,78) ="o        ov      o o  o     o"
AlleWelten$(11,77) ="o         v      o o  o     o"
AlleWelten$(11,76) ="o        v       o    o     o"
AlleWelten$(11,75) ="o       v        ooo  o     o"
AlleWelten$(11,74) ="oooo   v           o  o     o"
AlleWelten$(11,73) ="o      v           o  o     o"
AlleWelten$(11,72) ="o      o  o        o  o     o"
AlleWelten$(11,71) ="o      v           o  o     o"
AlleWelten$(11,70) ="o        v         o  o     o"
AlleWelten$(11,69) ="o                  o  o     o"
AlleWelten$(11,68) ="o   oooooooooooo   o  o     o"
AlleWelten$(11,67) ="o   ovvvvvvvvvvv   o  o     o"
AlleWelten$(11,66) ="o   ovoooooooooo   o  o     o"
AlleWelten$(11,65) ="o  oovovvvvvvvo    o  o     o"
AlleWelten$(11,64) ="o   ovooooooovo    o  o     o"
AlleWelten$(11,63) ="o   ovvvvvvvvvo    o  o     o"
AlleWelten$(11,62) ="oo  ooooooooooo    o  o     o"
AlleWelten$(11,61) ="o  v               o  o     o"
AlleWelten$(11,60) ="o  o               o  o     o"
AlleWelten$(11,59) ="o                  o  o     o"
AlleWelten$(11,58) ="o    vv            o  o     o"
AlleWelten$(11,57) ="o    oo            o  o     o"
AlleWelten$(11,56) ="o            v     o  o     o"
AlleWelten$(11,55) ="o            o     o  o     o"
AlleWelten$(11,54) ="o                  o  o     o"
AlleWelten$(11,53) ="o                  o  o     o"
AlleWelten$(11,52) ="o                  o  o     o"
AlleWelten$(11,51) ="o           v      o  o     o"
AlleWelten$(11,50) ="o           o      o  o     o"
AlleWelten$(11,49) ="o                 vo  o     o"
AlleWelten$(11,48) ="o                 vo  o     o"
AlleWelten$(11,47) ="o                 oo  o     o"
AlleWelten$(11,46) ="o              v   o  o     o"
AlleWelten$(11,45) ="o             v    o  o     o"
AlleWelten$(11,44) ="o            oo    o  o     o"
AlleWelten$(11,43) ="o            vv    o  o     o"
AlleWelten$(11,42) ="o           v  vvv o  o     o"
AlleWelten$(11,41) ="o           v  ooooo  o     o"
AlleWelten$(11,40) ="o           o      o  o     o"
AlleWelten$(11,39) ="o        vvvvvvv   o  o     o"
AlleWelten$(11,38) ="o       vooooooo   o  o     o"
AlleWelten$(11,37) ="o      voo         o  o     o"
AlleWelten$(11,36) ="o     voo          o  o     o"
AlleWelten$(11,35) ="o    voo           o  o     o"
AlleWelten$(11,34) ="o   voo            o  o     o"
AlleWelten$(11,33) ="o  voo             o  o     o"
AlleWelten$(11,32) ="ov                 o  o     o"
AlleWelten$(11,31) ="oov                o  o     o"
AlleWelten$(11,30) ="ooo                o  o     o"
AlleWelten$(11,29) ="oooo               o  o     o"
AlleWelten$(11,28) ="ooooo              o  o     o"
AlleWelten$(11,27) ="oooooo             o  o     o"
AlleWelten$(11,26) ="ooooooo            o  o     o"
AlleWelten$(11,25) ="oooooooo           o  o     o"
AlleWelten$(11,24) ="ooooooooo          o  o     o"
AlleWelten$(11,23) ="oooooooooo         o  o     o"
AlleWelten$(11,22) ="ooooooooooo        o  o     o"
AlleWelten$(11,21) ="oooooooooooo       o  o     o"
AlleWelten$(11,20) ="ooooooooooooo      o  o     o"
AlleWelten$(11,19) ="oooooooooooooo     o  o     o"
AlleWelten$(11,18) ="ooooooooooooooo    o  o     o"
AlleWelten$(11,17) ="oooooooooooooooo   o  o     o"
AlleWelten$(11,16) ="o                 oo  o     o"
AlleWelten$(11,15) ="o                ooo  o     o"
AlleWelten$(11,14) ="o               oooo  o     o"
AlleWelten$(11,13) ="o              ooooo  o     o"
AlleWelten$(11,12) ="o             oooooo  o     o"
AlleWelten$(11,11) ="o            ooooooo  o     o"
AlleWelten$(11,10) ="o           oooooooo  o     o"
AlleWelten$(11,9)  ="o          ooooooooo  o     o"
AlleWelten$(11,8)  ="o         oooooooooo  o     o"
AlleWelten$(11,7)  ="o        ooooooooooo  o     o"
AlleWelten$(11,6)  ="o       oooooooooooo  o     o"
AlleWelten$(11,5)  ="o      ooooooooooooo  o     o"
AlleWelten$(11,4)  ="o     oooooooooooooo  o     o"
AlleWelten$(11,3)  ="o    ooooooooooooooo  o     o"
AlleWelten$(11,2)  ="o                           o"
AlleWelten$(11,1)  ="ooooooooooooooooooooooooooooo"

Mapy(11)=110
Mapx(11)=30


AlleWelten$(12,30)="oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo"
AlleWelten$(12,29)="o                                                           vvv                                                                                               vvvvv                                                                                                                   vvvvvvvo"
AlleWelten$(12,28)="o                   ooo                                    ooooo   vvvvvvvvvv                                                                                 ooooov                                                                                                                  oooooo o"
AlleWelten$(12,27)="o                                                                  oooooooooo      vv                                          vvv    v    v     v    v   v        v                                                                                                            ooooo        o"
AlleWelten$(12,26)="o                                                                               oooooo                        vvvvvv           ooo    o    o     o    o   o        v                                                                                                                         o"
AlleWelten$(12,25)="o                                                                                                             oooooo    ooo                                        v                                                                                                                         o"
AlleWelten$(12,24)="o              vvvvvvvv                                                                                                                                            v                            vv                                                                       oooooo              o"
AlleWelten$(12,23)="o              ooo  ooo              v                                      vvv                                                                                    v                            o v                                                                                          o"
AlleWelten$(12,22)="o                                   vooooo                        vv         oo                 vvvv       vvv                                                     v                              v    v                                                            ooooo                    o"
AlleWelten$(12,21)="o              ooo                  o                            oooo                           oooo       ooo                    vv    vv     v    v     v    v   v                          v   o    o                                                                                     o"
AlleWelten$(12,20)="o              vvvv             vvvvvv    v                                                                                       vo    oo     o    o     o    o   o                          o                                                                                              o"
AlleWelten$(12,19)="o        vvvvvvvoooo            oovvoo    v             v                vv                 vvvv          vv                      v                                                                                                                         oooooooo                         o"
AlleWelten$(12,18)="o        voooooo                  vv      v          v  o                oooooo             oooo     vvvvv  v                     v                                                             v          v                                                                                 o"
AlleWelten$(12,17)="o        v                        vv      v                                                          ooooo  v                     v                                                             o          o                                                                                 o"
AlleWelten$(12,16)="o        v                        oo      v              vv                    v                            v                     v    v      v    v      v   v    v     vv                   v                                                                                              o"
AlleWelten$(12,15)="o       ooo                               v          o                        oo                            ooo                   o    o      o    o      o   o    o     ov                   o                  v                                     ooooo                                 o"
AlleWelten$(12,14)="o                                         v                                     v                                                                                         v                     v                o                                                                           o"
AlleWelten$(12,13)="o                                         v              ooooooo               oo         vvv              vvv                                                            v                     o                                                                                            o"
AlleWelten$(12,12)="o               vv                        v                                                oov            voo                                                             v                                                                       ooooo                                      o"
AlleWelten$(12,11)="o              ooooo                      v        vv                                   vv  oov          voo                                                              v                   v                      v                                                                       o"
AlleWelten$(12,10)="o vvvvvvvv                            ooo v        oooo                                 oo   oov        voo                                                               v                   o                      o                                                                       o"
AlleWelten$(12,9) ="o oooooooo                  vvvvvvvvvvvvo v                                                   oov      voo                                                                v                                                               oooooo                                             o"
AlleWelten$(12,8) ="o                         ooooooooooooovo v                                   vvvv             oov    voo                                                                 v                     v                                                                                            o"
AlleWelten$(12,7) ="o                                     ovovvvvvvvvvvvvvvv            vv      oooooooo            oov  voo                                                                  v                     o                                                                                            o"
AlleWelten$(12,6) ="o           vvv                       ovooooooooooooooov           oooo                          oovvoo                                                                   v                    v                             oooooooo                                                        o"
AlleWelten$(12,5) ="o          oooo                      vovovvvovvvovvvovvv                                          oooo                                                                    v              vv    oo     vvv                                                                                    o"
AlleWelten$(12,4) ="o                                   vvovovovovovovovovvv                                                                                                                  v                                                                                                                  o"
AlleWelten$(12,3) ="o                                  vvvovovovovovovovooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooovoooooooooooooovoooooooooooooooooooooooooooooooovvooooooooooooooooooooooooooooovoooooooooooooooooovoooooovvoooooooooooooooooooooovooooooooooooooooooooooooooooooovooo"
AlleWelten$(12,2) ="os                                vvvvovvvovvvovvvovvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvveo"
AlleWelten$(12,1) ="oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo"



return