Re: HTPC-Menu V0.1 - gelöscht
Verfasst: 06.02.2010 18:30
@dater, ich würde es begrüßen wenn du den Code wieder hinein setzt, dann können wir alle helfen.
noch mal der Code !!!
(Geht nur mit MP3D Engine und installiertem DX9)
http://sites.google.com/site/fastclipv2 ... ects=0&d=1
Code: Alles auswählen
;[Global]
;screenwindow_breite=1920 ; Screen/Fenster Breite
;screenwindow_hoehe=1080 ; Screen/Fenster Höhe
;screenwindow=0 ; 0-Vollbildmodus, 1-Fenstermodus mit Titelzeile,
; 2-Fenstermodus mit Titelzeile und Minimieren-Gadget und 3-Fenstermodus (skalierbar)
;fontname=Times ; Font für das Menü
;fontsize=60 ; Menufont größe
;fontbold=1 ; Fobt Bold
;fontitalic=1 ; Font Italic
;abstand=150 ; Abstand in Pixel - Teilbar durch 10
;zoom=6 ; Menü Eintrag vergrößern. 2-10
;menu_xpos=760 ; Menü abstand von Links in Pixel
;farbe1=$aaffff ; Menü Farbe1 R G B
;farbe2=$4444ff ; Menü Farbe1 R G B
;hintergrundbild=./Menu-Bilder/hintergrund.jpg ; Pfad zum Hintergrund Bild. ( Bildgröße = Window/Screen größe)
;bilderpfad=./Diaschaubilder ; Pfad zum Diaschau Ordner
;bilderpfad_x=70 ; x Position der Diaschau (Feste Breite der Bilder 480 x 360)
;bilderpfad_y=650 ; Y Position der Diaschau (Großer bilder werden skalliert)
;-> ;bilderpfad=./Diaschaubilder -> Pfadangabe für Ordner im Stammordner von HTPC-Menu
;-> ;bilderpfad=d:/Bilder/kinder -> Pfadangabe für Ordner z.B. d:/Bilder/kinder/
;wuerfelbild=./Menu-Bilder/wuerfel.jpg ; Würfel Bild -> ca. 500 x 500 Pixel reicht.
;wuerfelpos_x=-3.2 ; Würfel Position im Raum
;wuerfelpos_y=1.7 ; Würfel Position im Raum
;wuerfelpos_z=5 ; Würfel Position im Raum
;menu_sound_wav=./sound/sound.wav ; Menü Sound -> nur .wav
;back_sound_wav=./sound/Mozart.wav ; Hintergrund Musik -> nur wav
;memo_fontname=Comic Sans MS ; Memo (Beschreibung) Font Name
;memo_fontsize=20 ; Schrift größe
;memo_fontbold=0 ; Schrift typ
;memo_fontitalic=0 ; Schrift Typ
;memo_farbe=$44ff88 ; Schrift Farbe R G B
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Der Quell Code für BP 4.3 mit MP Lib.
;
;HTPC-Menu von Markus Maiwald
;Source - Open Source
;DX9-Lib für BP von (c) Michael Paulwitz
;Stand 10.02.10
;Version 0.1
UseJPEG2000ImageDecoder()
UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()
If FileSize("./menu.ini")=-1 : MessageRequester("DateiFehler!", "Menu.ini nicht gefunden !", #PB_MessageRequester_Ok) :End : EndIf
If FileSize("./einstellungen.ini")=-1 :MessageRequester("DateiFehler!", "einstellungen.ini nicht gefunden !", #PB_MessageRequester_Ok) : End : EndIf
;*********************************************************************************************************
;*********************************************************************************************************
;*********************************************************************************************************
Procedure.s regex(text$,match$,nr)
If CreateRegularExpression(0, match$)
Dim res$(0)
f = ExtractRegularExpression(0, text$,res$())
FreeRegularExpression(0)
If nr=>f : nr=f-1 : EndIf
ProcedureReturn res$(nr)
EndIf
ProcedureReturn ""
EndProcedure
;*********************************************************************************************************
;*********************************************************************************************************
;*********************************************************************************************************
Delay(500)
Dim datentabelle$(100)
Dim datentabelle2$(100)
Dim textdatentabelle$(100)
i=0
;*********************************************************************************************************
;*********************************************************************************************************
If OpenPreferences("menu.ini")
If ExaminePreferenceGroups()
While (NextPreferenceGroup() = #True)
datentabelle2$(i)=ReadPreferenceString("text","")
datentabelle$(i)=ReadPreferenceString("datei","")
textdatentabelle$(i)=ReadPreferenceString("memo","")
i+1
Wend
EndIf
EndIf
ClosePreferences()
spnr=i ; Anzahl der Menu-Einträge
;*********************************************************************************************************
;*********************************************************************************************************
;*********************************************************************************************************
;- ProgrammStart
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
OpenPreferences("einstellungen.ini")
PreferenceGroup("Global")
SCREEN_W = ReadPreferenceLong ("screenwindow_breite" , 1920)
SCREEN_H = ReadPreferenceLong ("screenwindow_hoehe" , 1080)
modus = ReadPreferenceLong ("screenwindow" , 0)
fontname$ = ReadPreferenceString("fontname" ,"Arial")
fontsize = ReadPreferenceLong("fontsize" ,80)
fontbold = ReadPreferenceLong("fontbold" ,0)
fontitalic = ReadPreferenceLong("fontitalic" ,0)
abstand = ReadPreferenceLong("abstand" ,150)
bb = ReadPreferenceLong("zoom" ,8)
x = ReadPreferenceLong("menu_xpos" ,760)
farbe1 = Val(ReadPreferenceString("farbe1" ,"$aaffff"))
farbe2 = Val(ReadPreferenceString("farbe2" ,"$4444ff"))
hintergrundbild$ = ReadPreferenceString("hintergrundbild" ,"")
bilderpfad$ = ReadPreferenceString("bilderpfad" ,"")
bilderpfad_x = ReadPreferenceLong("bilderpfad_x" ,70)
bilderpfad_y = ReadPreferenceLong("bilderpfad_y" ,650)
wuerfelbild$ = ReadPreferenceString("wuerfelbild" ,"")
wuerfelpos_x.f = ReadPreferenceFloat("wuerfelpos_x" ,-3.2)
wuerfelpos_y.f = ReadPreferenceFloat("wuerfelpos_y" ,1.7)
wuerfelpos_z.f = ReadPreferenceFloat("wuerfelpos_z" ,5)
menu_sound_wav$= ReadPreferenceString("menu_sound_wav" ,"")
back_sound_wav$= ReadPreferenceString("back_sound_wav" ,"")
fontname2$ = ReadPreferenceString("memo_fontname" ,"Arial")
fontsize2 = ReadPreferenceLong("memo_fontsize" ,20)
fontbold2 = ReadPreferenceLong("memo_fontbold" ,0)
fontitalic2 = ReadPreferenceLong("memo_fontitalic" ,0)
memo_farbe = Val(ReadPreferenceString("memo_farbe" ,"$4444ff"))
ClosePreferences()
If FileSize(bilderpfad$)<>-2 : bilderpfad$="" : EndIf ; Pfad Prüfen
If FileSize(hintergrundbild$)=-1 : hintergrundbild$="" : EndIf ; Datei Prüfen
If FileSize(wuerfelbild$)=-1 : wuerfelbild$="" : EndIf ; Datei Prüfen
If FileSize(menu_sound_wav$)=-1 : menu_sound_wav$="" : EndIf ; Datei Prüfen
If FileSize(back_sound_wav$)=-1 : back_sound_wav$="" : EndIf ; Datei Prüfen
;--------------------------------------------------------------------------------------------------------------------------------------------------
; Bilder Pfad-Verseichnis einlesen !! Achtung keine Datei-Typ Prüfung , am besten JPG
If bilderpfad$
Dim file$(1000)
i=0
Directory$ = bilderpfad$
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
i+1
file$(i)= bilderpfad$+"/"+DirectoryEntryName(0)
EndIf
Wend
FinishDirectory(0)
file$(0)=Str(i)
EndIf
EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
If MP_Graphics3D (SCREEN_W,SCREEN_H,0,modus) = #False : ; Erstelle ein WindowsFenster #Window = 0
MessageRequester("Screen Fesnter Fehler !", "Screen oder Fenster könnte nicht geöffnet werden. Bitte einstellungen.ini bearbeiten.", #PB_MessageRequester_Ok)
End
EndIf
SetWindowTitle(0, "HTPC- Menu 0.1 (c) Markus Maiwald 02/10 - QuellCode und Programm Open Source >>DX9-Lib für BP (c) Michael Paulwitz<<")
;--------------------------------------------------------------------------------------------------------------------------------------------------
; Hintergrund
If hintergrundbild$ : Sprite1 = MP_LoadSprite(hintergrundbild$) : EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
; Würfel
Mesh = MP_CreateCube() ; Und jetzt eine Würfel
If wuerfelbild$ : texture=MP_LoadTexture(wuerfelbild$) : MP_EntitySetTexture (Mesh, Texture ) : EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
; Sounds
InitSound()
If menu_sound_wav$ : LoadSound(0,menu_sound_wav$) : EndIf
If back_sound_wav$ : LoadSound(1,back_sound_wav$) : PlaySound(1,#PB_Sound_MultiChannel) : EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------
camera = MP_CreateCamera() ; Kamera erstellen
light = MP_CreateLight(1) ; Es werde Licht
;--------------------------------------------------------------------------------------------------------------------------------------------------
; Font
font1 = MP_loadFont (fontname$,fontsize,fontbold,fontitalic); "Fontname",Groesse,bold,italic
font2 = MP_loadFont (fontname2$,fontsize2,fontbold2,fontitalic2); "Fontname",Groesse,bold,italic
font3_uhr = MP_loadFont ("Arial",15,0,0); "Fontname",Groesse,bold,italic
;--------------------------------------------------------------------------------------------------------------------------------------------------
xx = 100
;x=(SCREEN_W/2)-200
y = (SCREEN_H/2)-80
y2 = (SCREEN_H/2)-80
;abstand=150
b = abstand/15 ; =10 Pixel scrollen bei abstand 150
;bb = 6
tol1 = 0
toladd = 5
wi = 0
xw.f = -50.0
xwadd.f= 1.0
col = 0
colladd = 1
uhrzoom.f= 1
uhrzoomadd.f=0.1
loadedsmallimage=0
loadedsmallimage_fade=0
memo_y= 0
memo_y_add=1
memosx.f=0
memosy.f=0
evenodd=0
memo_x=10
memotimer=0
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If file$(bildtimername+1)
If loadedsmallimage : MP_FreeSprite(loadedsmallimage) : EndIf
If IsImage(99) : FreeImage(99) : EndIf
If bild_texture : MP_FreeTexture(bild_Texture) : EndIf
If LoadImage(99,file$(bildtimername+1))
If ImageWidth(99)<>480
ResizeImage(99,480,360,#PB_Image_Raw)
EndIf
bild_Texture = MP_ImageToTexture(99)
loadedsmallimage=MP_SpriteFromTexture(bild_texture)
EndIf
bildtimer=0
loadedsmallimage_fade=0
bildtimername+1
Else
bildtimername=1
EndIf
bildtimer=1
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MP_PositionEntity (Mesh,wuerfelpos_x,wuerfelpos_y,wuerfelpos_z) ; Position des Würfels
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
While Not MP_KeyDown(#PB_Key_Return) And Not MP_WindowEvent() = #PB_Event_CloseWindow; Return abfrage oder Windows Schliessen
;-------------------------------------------------------------------------------
If hintergrundbild$ : MP_DrawSprite(Sprite1,0,0,128) : EndIf
;-------------------------------------------------------------------------------
If bilderpfad$
bildtimer+1
If bildtimer=2000
If file$(bildtimername+1)
If loadedsmallimage : MP_FreeSprite(loadedsmallimage) : EndIf
If IsImage(99) : FreeImage(99) : EndIf
If bild_texture : MP_FreeTexture(bild_Texture) : EndIf
If LoadImage(99,file$(bildtimername+1))
If ImageWidth(99)<>480
ResizeImage(99,480,360,#PB_Image_Raw)
EndIf
bild_Texture = MP_ImageToTexture(99)
loadedsmallimage=MP_SpriteFromTexture(bild_texture)
EndIf
bildtimer=0
loadedsmallimage_fade=0
bildtimername+1
Else
bildtimername=1
EndIf
bildtimer=1
EndIf
EndIf
;-------------------------------------------------------------------------------
If loadedsmallimage
If bildtimer>1750 : loadedsmallimage_fade-1
Else
If loadedsmallimage_fade<255 : loadedsmallimage_fade+1 : EndIf
EndIf
MP_DrawSprite(loadedsmallimage,bilderpfad_x,bilderpfad_y,loadedsmallimage_fade)
EndIf
;-------------------------------------------------------------------------------
If ok=1
If menu_sound_wav$ : PlaySound(0,#PB_Sound_MultiChannel) : EndIf
ok=0
If evenodd=0 : evenodd=1 : Else : evenodd=0 : EndIf
EndIf
;-------------------------------------------------------------------------------
a$=textdatentabelle$(counter)
a$ = ReplaceString(a$,"~",Chr(10))
zeilen = CountString(a$,Chr(10))
h=MP_TextGetHeight(a$)
MP_DrawText (-100,-100,"X",font2)
ystop=(SCREEN_H/2)*0.8
If memo_y>=ystop
memo_y = ystop
Else
memo_y+memo_y_add
EndIf
If memosx<100
memosx+0.5
memosy+0.5
EndIf
MP_ScaleText(memosx,memosx)
MP_DrawText (memo_x+10,0-h-50+memo_y,a$,font2,$99000000+memo_farbe,0,0)
MP_ScaleText(100,100)
If fadememo=0
mem_text$=a$
mem_x=memo_x+10
mem_y=0-h-50+memo_y
Else
MP_DrawText (mem_x,mem_y,mem_text$,font2,$99000000+memo_farbe,0,0)
mem_x-4
If mem_x<-1000 : fadememo=0 : EndIf
EndIf
;-------------------------------------------------------------------------------
If y2=y
If counter<spnr-1
If MP_KeyDown(#PB_Key_Down) : y2=y-150 : last=counter : counter+1 : exittimer=0 : ok=1 : EndIf
EndIf
If counter>0
If MP_KeyDown(#PB_Key_Up) : y2=y+150 : last=counter : counter-1 : exittimer=0 : ok=1 : EndIf
EndIf
sc=100
sc2=(bb*(abstand/b))+sc
sc2ok=sc2
memotimer+1
EndIf
If y2<y : y = y - b : EndIf
If y2>y : y = y + b : EndIf
;-------------------------------------------------------------------------------
xw.f=xw.f+xwadd.f
If xw=50 : xwadd=-1 : EndIf
If xw=-50 : xwadd=1 : EndIf
;-------------------------------------------------------------------------------
If y2<>y
memotimer=0
fadememo=1
memo_y=0
memosx=0
memosy=0
sc=sc+bb
sc2=sc2-bb
For i=0 To spnr-1
If i=last
MP_ScaleText(sc2,sc2)
MP_DrawText (x+xw,y+(abstand*i),datentabelle2$(i),font1,$aa000000+farbe2,0,0)
Continue
EndIf
If i<>counter
MP_ScaleText(100,100)
MP_DrawText (x,y+(abstand*i),datentabelle2$(i),font1,$aa000000+farbe2,0,0)
Else
;Debug sc
MP_ScaleText(sc,sc)
MP_DrawText (x+xw,y+(abstand*i),datentabelle2$(i),font1,$ff000000+farbe1,0,0)
EndIf
Next i
EndIf
If y2=y
For i=0 To spnr-1
If i<>counter
MP_ScaleText(100,100)
MP_DrawText (x,y+(abstand*i),datentabelle2$(i),font1,$aa000000+farbe2,0,0)
Else
MP_ScaleText(sc2ok,sc2ok)
MP_DrawText (x+xw,y+(abstand*i),datentabelle2$(i),font1,$ff000000+farbe1,0,0)
EndIf
Next i
EndIf
;-------------------------------------------------------------------------------
col=col+coladd
If col=255 : coladd=-1 : EndIf
If col=0 : coldd=1 : EndIf
;-------------------------------------------------------------------------------
tol1=tol1+toladd
If tol1=255 : toladd=-5 : EndIf
If tol1=0 : toladd=5 : EndIf
;-------------------------------------------------------------------------------
wi+1 : If wi=361 : wi=0 : EndIf
;MP_ScaleText(36000/wi,36000/wi)
MP_ScaleText(100,100)
MP_DrawText(1820,30-(xw/2),FormatDate("%hh:%ii:%ss", Date()),font3_uhr,$ff45CDBA,2,-wi)
MP_DrawText(1820,60+(xw/2),FormatDate("%dd:%mm:%yy", Date()),font3_uhr,$ff9FD560,2,wi)
;-------------------------------------------------------------------------------
MP_TurnEntity (Mesh,0.3,0.3,0.3)
;MP_PositionEntity (plane,-3,-1,5)
;MP_TurnEntity (plane,0.3,0.3,0.3)
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
MP_RenderWorld() ; Erstelle die Welt
MP_Flip () ; Stelle Sie dar
Wend
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
fadeout.f=128
fadeout2.f=255
ende=1
x1=x
col=$ffaaffff
z.f=5
bildtimer=256
While ende=1
x+10
fadeout-0.5
fadeout2-1
xw=xw-2
col=col-100
For i=0 To spnr-1
If i<>counter
MP_ScaleText(100,100)
MP_DrawText (x,y+(abstand*i),datentabelle2$(i),font1,$ff000000+farbe2,0,0)
Else
MP_ScaleText(sc2ok,sc2ok)
rr=Red(farbe1)
gg=Green(farbe1)
bb=Blue(farbe1)
MP_DrawText (x1+xw,y+(abstand*i),datentabelle2$(i),font1,MP_ARGB(fadeout2,rr,gg,bb),0,0)
EndIf
Next i
If fadeout=0 : fadeout=0.5 : EndIf
If fadeout2=0 : fadeout2=1 : EndIf
MP_DrawSprite(Sprite1,0,0,fadeout)
If x=3800 : ende=0 : EndIf
z=z-0.01
MP_PositionEntity(Mesh,-3.2,1.7,z) ; Position des Würfels
MP_TurnEntity (Mesh,0.3,0.3,0.3)
If loadedsmallimage
If loadedsmallimage_fade<>1
If bildtimer>255 : loadedsmallimage_fade-1
Else
If loadedsmallimage_fade<255 : loadedsmallimage_fade+1 : EndIf
EndIf
MP_DrawSprite(loadedsmallimage,bilderpfad_x,bilderpfad_y,loadedsmallimage_fade)
EndIf
EndIf
MP_RenderWorld() ; Erstelle die Welt
MP_Flip () ; Stelle Sie dar
Wend
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Delay(500)
a1$=StringField(datentabelle$(counter),1,Chr(44))
a2$=StringField(datentabelle$(counter),2,Chr(44))
a3$=StringField(datentabelle$(counter),3,Chr(44))
If a1$
Ergebnis = RunProgram(a1$,a2$,a3$)
EndIf
End
