• Kommentare
  
• doppelte Leerzeichen (Leerzeichen sind z.B. auch Tabulatoren)
  
• Leerzeichen am Anfang und am Ende der Zeile
  
• Leerzeichen in Identifiern
  
• Leerzeichen um Operatoren
  
• leere Zeilen
  
• ".."+Zeilenumbruch

• :Int, :Float, :String und :Double-Typetags durch ihre kürzere Version
  
• True und False durch ihre Werte
  
• deklarierte und nicht zur Blacklist gehörende Namen durch stark komprimierte Namen (extrem selten größer als 2 Zeichen, die Namen werden in allen gleichzeitig verändeten Dateien gleich verändert)
  
• Zahlenwerte durch kürzere Versionen

• "Suffix": ändert den Suffix, der an den veränderten Dateinamen drangehängt wird
  
• "Blacklist": fügt ein Wort zur Blacklist hinzu
  
• "File" oder "AddFile": fügt eine Datei zum Bearbeiten hinzu

• weitere Optimierungen
  
• Features, die das Nutzen einfacher machen (u.A. Optionen)
  
• wenn ich Lust habe, genug herumzukommentieren, auch der Code

Import brl.timer

Import brl.ea

SuperStrict
AppTitle = "Xeres - BCC #31 - Preview"
Graphics(256, 256, 0, 60)
SeedRnd MilliSecs()
AutoMidHandle(True)
HideMouse()
Local timer:TTimer = TTimer.Create(60)

Global mx:Int, my:Int, mh1:Int, md1:Int, ms:Float

'* Überbleibsel aus der "Vollversion":
Const GAME_STATE_MENU:Int = 0, GAME_STATE_PLAY:Int = 1
Global Game_State:Int = GAME_STATE_MENU

'* Bilder Laden (und in der Exe mitliefern)
Incbin "Data\cur.png"
Global cursor:TImage = LoadImage("incbin::Data\cur.png")
cursor.handle_x = 0
cursor.handle_y = 0

Incbin "Data\bg.png"
Global bg:TImage = LoadImage("incbin::Data\bg.png")

Incbin "Data\mmenu.png"
Local menu_img:TImage = LoadAnimImage("incbin::Data\mmenu.png", 192, 32, 0, 6)
Global Menu_Neu:T_Button = T_Button.Create(menu_img, 0, 1, NewGame)
Global Menu_laden:T_Button = T_Button.Create(menu_img, 2, 3, LoadGame)
Global Menu_Ende:T_Button = T_Button.Create(menu_img, 4, 5, MyEnd)

Incbin "Data\Chicken.png"
T_Chicken.img:TImage = LoadAnimImage("incbin::Data\Chicken.png", 96, 96, 0, 9)

Global Menu_chicken:T_Button = T_Button.Create(T_Chicken.img, 1, 4, Gack)



SetClsColor(255, 255, 255)
SetBlend(ALPHABLEND)
	
Repeat
	ms = MilliSecs()
	mx = MouseX()
	my = MouseY()
	mh1 = MouseHit(1)
	md1 = MouseDown(1)
	
	Select Game_State
		Case GAME_STATE_MENU
			Run_Menu()
		Case GAME_STATE_PLAY
			Run_Play()
	End Select
	
	DrawImage(cursor, mx, my)
	Flip(0)
	timer.Wait()
	Cls
	If KeyHit(KEY_ESCAPE) Or AppTerminate() Then End
Forever
End

Type T_Chicken
	Global img:TImage
End Type

Type T_Button
	Field img:TImage
	Field norm:Int, hover:Int
	Field func()
	
	rem
		Jedem Button kann eine Funktion übergeben werden, die beim
		klicken ausgelöst wird.
	endrem
	Function Create:T_Button(_img:TImage, _norm:Int, _hover:Int, _func() = Null)
		Local b:T_Button = New T_Button
		b.img = _img
		b.norm = _norm
		b.hover = _hover
		b.func = _func
		Return b
	End Function
	
	Method Draw(_x:Float, _y:Float)
		If MouseInRect(_x, _y, Self.img.Width, Self.img.Height) Then
			DrawImage(Self.img, _x, _y, Self.hover)
			If mh1 Then If Self.func Then Self.func()
		Else
			DrawImage(Self.img, _x, _y, Self.norm)
		End If
	End Method
End Type

Function MyEnd()
	Local c:Int = Confirm("Wirklich beenden?", True)
	If c Then End
End Function

Function LoadGame()
	Notify("Das geht in dieser Demo noch nicht.")
End Function

Function NewGame()
	Notify("Der Spielinhalt wird zu einem späteren Zeitpunkt zur Verfügung stehen.~n(Vielleicht)")
End Function

Function Gack()
	Notify("Gaaack!")
End Function

Function Run_Menu()

	'DrawImage(T_Chicken.img,, 1)
	Menu_chicken.Draw(128, 195)
	DrawImage(bg, 128, 128)
	Menu_Neu.Draw(128, 32)
	Menu_laden.Draw(128, 96)
	Menu_Ende.Draw(128, 232)
	
End Function

Function Run_Play()

End Function

Function MouseInRect:Int(_x:Float, _y:Float, _b:Float, _h:Float)
	If mx < (_x - _b / 2) Then Return False
	If mx > (_x + _b / 2) Then Return False
	If my < (_y - _h / 2) Then Return False
	If my > (_y + _h / 2) Then Return False
	Return True
End Function

Local i:Byte=255
i:+66 ' bei Int wäre es jetzt 321 - bei Byte ist es 65
Print i