;Init und Deklerationen--->
Graphics 1024,768,32,1
SetBuffer BackBuffer()
Cls
back_map = LoadImage("ogame.jpg")
Global mouse_map = LoadImage("mouse.bmp")
Global arrow_map_on = LoadImage("arrow.bmp")
Global arrow_map_off = LoadImage("arrow_off.bmp")
enter_font = LoadFont("Comic Sans MS",30,1,0,0)
SetFont enter_font

Function mouse_mapping()
   Color 0,0,0
   y_pos = 30
   count = 3   

   For i = 1 To 14
      If  RectsOverlap(MouseX(), MouseY(), 1,1, 6, y_pos, 235,28) Then
         If MouseDown(1) Then
            For in = 1 To 14
               count = count + 27
               Select y_pos
                  Case count Return in
               End Select
            Next   
         EndIf
         arrow_map = arrow_map_on
       Else
         arrow_map = arrow_map_off
      EndIf

      DrawImage(arrow_map,6,y_pos)
      y_pos = y_pos + 27
   Next
End Function

;erster Start--->
DrawImage(back_map,0,0)
Flip
Color 255,140,40
Locate 273,47
dauer = Int(Input$("Aufenthaltsdauer der Schiffe/h---->"))

;Hauptprogramm--->
While Not KeyHit(1)
   DrawImage(back_map,0,0)    
   schiffnummer = mouse_mapping()
   
   If schiffnummer <> 0  And schiffnummer <> 11 Then
      Locate 273,40
      Color 255,140,40
      menge = Int(Input$("Menge der Schiffe-------------->"))

      Select schiffnummer
         Case 1
         deut_verb_pro_h = 2
         schiff_str$ = "kleiner Transporter"
         Case 2   
         deut_verb_pro_h = 5
         schiff_str$ = "großer Transporter"
         Case 3      
         deut_verb_pro_h = 2
         schiff_str$ = "leichter Jäger"
         Case 4
         deut_verb_pro_h = 7
         schiff_str$ = "schwerer Jäger"
         Case 5
         deut_verb_pro_h = 30
         schiff_str$ = "Kreuzer"
         Case 6
         deut_verb_pro_h = 50
         schiff_str$ = "Schlachtschiff"
         Case 7
         deut_verb_pro_h = 100
         schiff_str$ = "Kolonieschiff"
         Case 8
         deut_verb_pro_h = 30
         schiff_str$ = "Recycler"
         Case 9
         deut_verb_pro_h = 10
         schiff_str$ = "Spionagesonde"
         Case 10
         deut_verb_pro_h = 100
         schiff_str$ = "Bomber"
         Case 12
         deut_verb_pro_h = 100
         schiff_str$ = "Zerstörer"
         Case 13
         deut_verb_pro_h = 10
         schiff_str$ = "Todesstern"
         Case 14
         deut_verb_pro_h = 25
         schiff_str$ = "Schlachtkreuzer"
      End Select

      Delay 400
      ergebniss = menge * deut_verb_pro_h * dauer
      gesamt = gesamt + ergebniss
   EndIf
   
   ;Dynamisch--->
   If ergebniss <> 0 Then
      Color 100,100,130
      Text 32,439, "Der Deuteriumverbrauch für ,," + schiff_str$ + "'' beträgt: " + Str$(ergebniss) + " Deuterium für " + Str$(dauer) + " Stunden!" 
   EndIf
   Color 190,0,0
   Text 6,730, "GESAMTVERBRAUCH====> " + Str$(gesamt) + " Deuterium für die Gesamte Flotte!"   
   If  KeyDown(211) Then gesamt = 0;reset
       DrawImage(mouse_map,MouseX(),MouseY())
   Flip
Wend