goldabzug=25*2^(Goldminelvl-1)+Int(goldminelvl*0.15)*50*(Goldminelvl<31)

If LevelIstFertig=1 Then

     aktLevel = aktLevel+1 

     Gold=Gold-aktGold
     Holz....
     
     Select aktLevel
         Case 1
              aktGold=25
              ....
         Case 2

         Case ...

     End Select
    
     LevelIstFertig=0
EndIf

Text 140,25, "Gold: " + Aktgold
Text 140,40, "Holz: " + AktHolz
Text 140,55, "Stein: ".....

gold=2
holz=20
stein=20
aktLevel = 0

If klickAufUpgradeKnopf=1 Then
	error=0
	Select aktLevel+1
		Case 1
			KostenStein=2
			KostenHolz=4
			KostenGold=0
		Case 2
			KostenStein=6
			KostenHolz=12
			KostenGold=2
		Default
			error=1
	End Select
	If stein-KostenStein >= 0 And holz-KostenHolz >= 0 And Gold-KostenGold >=0 And error=0 Then
		aktlevel=aktlevel+1
		stein = stein - KostenStein
		holz = holz - KostenHolz
		gold = gold- KostenGold
		Print "Upgrade auf Lvl "+aktlevel
	Else
		Print "Nicht genug Zeugs oder Höchste Stufe"
	EndIf
	klickAufUpgradeKnopf=0
EndIf  

Graphics 400,300,0,2
SetBuffer BackBuffer()

Global abholzlevel=1
Global holz#=0
Global timer=CreateTimer(60)

Repeat
	Cls
	holz=holz+0.05*abholzlevel
	Color 255,255,255
	Text 10,60,"Du hast "+Str(Int(holz))+" Holz."
	Kosten()
	If DrawButton("Upgrade",10,10,180,30) Then UpgradeAbholzen()
	Flip 0
	WaitTimer timer
Until KeyHit(1)
End

Function HolzFormel%()
	Return ((abholzlevel-1)^2*12+25)
End Function

Function Kosten()
	Color 255,255,255
	Text 10,100,"Kosten für nächste Stufe: "+HolzFormel()+" Holz"
	If Int(holz)<HolzFormel() Then
		Text 10,120,"Du kannst noch nicht upgraden!"
	Else
		Text 10,120,"Du kannst schon upgraden!"
	EndIf
End Function

Function UpgradeAbholzen()
	If Int(holz)>=HolzFormel() Then
		holz=holz-HolzFormel()
		abholzlevel=abholzlevel+1
	EndIf
End Function

Function MouseIn(x,y,w,h)
	Return (MouseX()>=x) And (MouseX()<=x+w) And (MouseY()>=y) And (MouseY()<=y+h)
End Function

Function DrawButton(name$,x,y,w,h)
	Local r%
	If MouseIn(x,y,w,h) Then
		Color 160,160,160
		If MouseHit(1) Then r=1
	Else
		Color 100,100,100
	EndIf
	Rect x,y,w,h
	Color 0,0,0
	Text x+w/2,y+h/2,name,1,1
	Return r
End Function