Graphics 800,600;,0,1

Global b1,b2,b3,b4,norm,hard,menge,bt10,bt50,bt500
Global pointer,credits,hilfe,start,core,menge2,ziel,Ziel2$
Global font
Global d1,d2,d3$,Datei$
HidePointer





Laden()


Menü()




Function Laden()

start = LoadImage("Graphics\Müll_1.bmp")
pointer = LoadImage("Graphics\Pointer.bmp")

b1 = LoadImage("Graphics\Start_bt.bmp")
b2 = LoadImage("Graphics\Credits_bt.bmp")
b3 = LoadImage("Graphics\Hilfe_bt.bmp")
b4 = LoadImage("Graphics\Ende_bt.bmp")

norm = LoadImage("Graphics\Müll_2_bt.bmp")
hard = LoadImage("Graphics\Müll_3_bt.bmp")

menge = LoadImage("Graphics\Müll_4.bmp")
bt10 = LoadImage("Graphics\Müll_10.bmp")
bt50 = LoadImage("Graphics\Müll_50.bmp")
bt500 = LoadImage("Graphics\Müll_500.bmp")

credits = LoadImage("Graphics\Credits.bmp")
hilfe = LoadImage("Graphics\Hilfe.bmp")

ziel = LoadImage("Graphics\Ziel.bmp")

font = LoadFont("arial",30)
SetFont font


End Function


Function Start1()

DrawImage start,100,100

End Function


Function Menü()

Cls

Repeat

mx# = MouseX()
my# = MouseY()

If ImagesOverlap(Pointer,mx#,my#,b1,100,100) And MouseDown(1)
Start()
EndIf

If ImagesOverlap(Pointer,mx#,my#,b2,100,200) And MouseDown(1)
Credits()
EndIf

If ImagesOverlap(Pointer,mx#,my#,b3,100,300) And MouseDown(1)
Hilfe()
EndIf

If ImagesOverlap(Pointer,mx#,my#,b4,100,400) And MouseDown(1)
Ende()
EndIf


Cls

DrawImage Pointer,mx#,my#
DrawImage start,250,100
DrawImage b1,100,100
DrawImage b2,100,200
DrawImage b3,100,300
DrawImage b4,100,400


Flip


Until KeyDown(1)

End Function


Function Start()
Cls 


Repeat

mx# = MouseX()
my# = MouseY()

If ImagesOverlap(Pointer,mx#,my#,norm,200,100) And MouseDown(1)
core = 1
Goto m1
EndIf

If ImagesOverlap(Pointer,mx#,my#,hard,200,300) And MouseDown(1)
core = 2
Goto m1
EndIf

Cls

DrawImage Pointer,mx#,my#
DrawImage norm,300,100
DrawImage hard,300,300

Flip

Until KeyDown(1)

.m1


WaitMouse()

Repeat

mx# = MouseX()
my# = MouseY()

If ImagesOverlap(Pointer,mx#,my#,bt10,100,100) And MouseDown(1)
menge2 = 10
Goto m2
EndIf

If ImagesOverlap(Pointer,mx#,my#,bt50,100,300) And MouseDown(1)
menge2 = 50
Goto m2
EndIf

If ImagesOverlap(Pointer,mx#,my#,bt500,100,450) And MouseDown(1)
menge2 = 500
Goto m2
EndIf



Cls

DrawImage Pointer,mx#,my#
DrawImage menge,350,200
DrawImage bt10,100,100
DrawImage bt50,100,300
DrawImage bt500,100,450

Flip

Until KeyDown(1)

.m2




Cls


DrawImage ziel,100,100
Locate 163,331
Ziel2$ = Input$("C:\")

CreateMüll(core,menge2,Ziel2$)

;WaitMouse()

End Function







Function Hilfe()
Cls

DrawImage hilfe,0,0

WaitMouse

;Menü()

End Function

Function Credits()

Cls

DrawImage Credits,100,100

WaitMouse()
;Menü()

End Function


Function Ende()
End
End Function

Function CreateMüll(d1,d2,d3$)

Select d1
Case 1
Datei$ = "Datenmüll_n.dat"
Case 2
Datei$ = "Datenmüll_h.dat"
End Select

For I = 1 To d2

;If CopyFile Datei$,"C:\" + d3$ + "Datenmüll" + I + ".dat" = 0 fehler()

CopyFile Datei$,"C:\" + d3$ + "\Datenmüll" + I + ".dat"

Cls

Locate 0,0

Print "Erzeuge Müll..."

Next



End Function

Function fehler()

Color 255,0,0

Print " Falscher Pfad "

Delay 1000

Menü()

End Function