PureBoard

Code: Alles auswählen

#SCREEN_W       = 1920
#SCREEN_H       = 1080
#SCREEN_TITLE   = "HTCP-Menu"



Global spnr,spw,sph
spnr=0
spw=800  ;Spreit Breite
sph=120  ;Spreit Höhe
Procedure sp_Erstellen(text$,farbe2)
nr=spnr
w=spw
h=sph
CreateSprite(nr, w,h, #PB_Sprite_Texture)
StartDrawing(SpriteOutput(nr))
  FrontColor(farbe2)
  DrawingMode(1)
  DrawingFont(FontID(1))
  Breite = TextWidth(text$)
  Hoehe = TextHeight(Text$)
  ;DrawText((w/2)-(breite/2), (h/2)-(hoehe/2),text$)
  DrawText(0, (h/2)-(hoehe/2),text$)
  spnr=spnr+1
StopDrawing()
CreateSprite3D(nr,nr) 
EndProcedure

;***************************************************************************************************************

LoadFont(1, "Arial", 55)
;  CopySprite(0,1,0)
InitSound()
LoadSound(0,"sound1.wav")



If InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "Can't open DirectX 7 or later", 0)
  End
EndIf


If OpenScreen(#SCREEN_W,#SCREEN_H, 32,#SCREEN_TITLE)


If InitSprite3D() = 0 
  MessageRequester("DirectX fehler !", "Fehler", #PB_MessageRequester_Ok) 
  End 
EndIf 
Sprite3DQuality(#PB_Sprite3D_BilinearFiltering ) 
	x=(#SCREEN_W/2)-200
	LoadSprite(255, "hintergrund3.bmp", 0) 
	StartDrawing(SpriteOutput(255))
	FrontColor($241DDB)
	LineXY(x,0,x,1080,$0)
	StopDrawing()
    

	; Menu Einträge erstellen 
        ; Später über Textdatei 

	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)
	sp_erstellen("S T A R T",$1A7EE5)
	sp_erstellen("TV",$0005FF)
	sp_erstellen("XBMC",$2226DD)
	sp_erstellen("ARD Mediathek",$991E66)
	sp_erstellen("ZDF Mediathek",$111111)


  x=(#SCREEN_W/2)-200
  y=(#SCREEN_H/2)-50
  y2=(#SCREEN_H/2)-50

counter=0

;Sprites vorbreite -> alle 50% kleiner bis auf den ersten Sprite
For i=0 To spnr -1
    	 ZoomSprite3D(i,spw/2,sph/2) ; vonn 
Next i	
ZoomSprite3D(0,spw,sph)


Repeat

ExamineKeyboard() 
If y2=y 
      
      If counter<spnr-1
    		If KeyboardPushed(#PB_Key_Up) 	: y2=y-150 	: last=counter	: counter+1 	: EndIf
    	EndIf
    	If counter>0
    		If KeyboardPushed(#PB_Key_Down)	: y2=y+150	: last=counter	: counter-1 	: EndIf
 	EndIf
    b=10			; 10 Pixel pro Schritt. / 150 / 10 = 15 Schritte
    xbz=27   		; 27 mal 15 schritte = 405 plus 400 = Breite 800
    ybz=4   		; 4 mal 15 schritte 	 = 60  plus 60 = Höhe 120
    
    xzoomin=spw/2
    xzoomout=spw
    yzoomin=sph/2
    yzoomout=sph
EndIf
	
    If y2<y	: y = y - b	: EndIf
    If y2>y	: y = y + b 	: EndIf	
   
    If y2<>y
    xzoomin+xbz
    xzoomout-xbz
    yzoomin+ybz
    yzoomout-ybz
    
    ZoomSprite3D(last,xzoomout,yzoomout)
    ZoomSprite3D(counter,xzoomin,yzoomin)

    EndIf
      
   ClearScreen(RGB(0,0,0))
   DisplaySprite(255,0,0) ; Hintergrund

    Start3D()
    For i=0 To spnr -1
    	DisplaySprite3D(i, x,y+(150*i)) 
   		
    Next i	
    Stop3D() 

   FlipBuffers()
  Until KeyboardPushed(#PB_Key_Escape)

Else
  MessageRequester("Error", "Can't open a Screen", 0)
EndIf