Font Problem

Übersicht

BlitzBasic

Beginners-Corner

	US-Blitz ehemals "SimssmiS" Betreff: Font Problem	So, Apr 04, 2010 0:26 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] fntProfile=LoadFont("Arial",16,True,False,True) SetFont fntProfile Stream not Found is das ergebnis warum? Wie kann ich das beheben

US-Blitz

ehemals "SimssmiS"

Betreff: Font Problem

So, Apr 04, 2010 0:26
Antworten mit Zitat

Code: [AUSKLAPPEN]

fntProfile=LoadFont("Arial",16,True,False,True)
SetFont fntProfile

Stream not Found is das ergebnis warum? Wie kann ich das beheben

	Eingeproggt	So, Apr 04, 2010 0:39 Antworten mit Zitat
Der Fehler liegt garantiert wo anders - den Code den du hier zeigst funktioniert einwandfrei wenn man ihn einfach kopiert und ausführt. (Also "funktionieren" ist relativ - aber er verursacht nicht den von dir beschriebenen Fehler ) Welche Zeile markiert der Debugger? Wo hast du in deinem Code Dateizugriffe oder UDP/TCP-Kram? mfG, Christoph. EDIT: Kleine Tippfehler korrigiert.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

So, Apr 04, 2010 0:39
Antworten mit Zitat

Der Fehler liegt garantiert wo anders - den Code den du hier zeigst funktioniert einwandfrei wenn man ihn einfach kopiert und ausführt. (Also "funktionieren" ist relativ - aber er verursacht nicht den von dir beschriebenen Fehler Razz

)

Welche Zeile markiert der Debugger?
Wo hast du in deinem Code Dateizugriffe oder UDP/TCP-Kram?

mfG, Christoph.

EDIT: Kleine Tippfehler korrigiert.

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	US-Blitz ehemals "SimssmiS"	So, Apr 04, 2010 0:49 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] ;Menüeinstellungen Graphics 800,600,32,1 SetBuffer BackBuffer() SeedRnd MilliSecs() ;Ladevorgang Text 300,300,"Loading.......Please Wait" Blub=PlayMusic ("Spiel\Loading.ogg") Delay 2000 Text 300,300,"Loading.......Please Wait" Color 150,0,255 Rect 0,320,160,20 Flip ;Menübilder startknopf=LoadImage ("Menü\Bilder\Start.jpg") optionknopf=LoadImage ("Menü\Bilder\Options.jpg") instruktionknopf=LoadImage ("Menü\Bilder\Instuktions.jpg") endeknopf=LoadImage ("Menü\Bilder\Ende.jpg") curser=LoadImage ("Menü\Bilder\curser.jpg") startknopfan=LoadImage ("Menü\Bilder\Startan.jpg") optionknopfan=LoadImage ("Menü\Bilder\Optionsan.jpg") instruktionknopfan=LoadImage ("Menü\Bilder\Instuktionsan.jpg") endeknopfan=LoadImage ("Menü\Bilder\Endean.jpg") backknopf=LoadImage ("Menü\Bilder\Back.jpg") backknopfan=LoadImage ("Menü\Bilder\Backan.jpg") leichtknopf=LoadImage ("Menü\Optionen\leicht.jpg") mittelknopf=LoadImage ("Menü\Optionen\mittel.jpg") schwerknopf=LoadImage ("Menü\Optionen\schwer.jpg") leichtknopfan=LoadImage ("Menü\Optionen\leichtan.jpg") mittelknopfan=LoadImage ("Menü\Optionen\mittelan.jpg") schwerknopfan=LoadImage ("Menü\Optionen\schweran.jpg") ;Profilebilder edit_Profile=LoadImage ("Spiel\Belohnungen\user_edit.png") add_Profile=LoadImage ("Spiel\Belohnungen\user_add.png") delete_Profile=LoadImage ("Spiel\Belohnungen\user_delete.png") Lives=3 Menütheam=LoadSound ("Menü\Ton\Menü.ogg") Color 255,255,255 Text 300,300,"Loading.......Please Wait" Color 155,0,255 Rect 0,320,160,20 Rect 160,320,160,20 Flip Optiontheam=LoadSound ("Menü\Ton\Option.ogg") Color 255,255,255 Text 300,300,"Loading.......Please Wait" Color 160,0,255 Rect 0,320,160,20 Rect 160,320,160,20 Rect 320,320,160,20 Flip Instruktiontheam=LoadSound ("Menü\Ton\Anleitung.ogg") Color 255,255,255 Text 300,300,"Loading.......Please Wait" Color 165,0,255 Rect 0,320,160,20 Rect 160,320,160,20 Rect 320,320,160,20 Rect 480,320,160,20 Flip Maintheam=LoadSound ("Spiel\MainTheam.mp3") Color 255,255,255 Text 300,300,"Loading.......Please Wait" Color 170,0,255 Rect 0,320,160,20 Rect 160,320,160,20 Rect 320,320,160,20 Rect 480,320,160,20 Rect 640,320,160,20 Flip Delay 3000 Schwierigkeit=1 ;Menü .lable0 StopChannel Optiontheme StopChannel Instruktiontheme LoopSound Menütheam MenüTheme=PlaySound ( Menütheam ) ChannelVolume MenüTheme, .3 back=0 Hier kommt es dann Code: [AUSKLAPPEN] [EINKLAPPEN] ;Profielanalyse Profilein=ReadFile("Spiel\Belohnungen\Profile\Profil.dat") Profile=ReadInt( Profilein ) CloseFile (Profilein) If Profile=0 Then Goto lableedit ElseIf Profile=1 Then filein1 = ReadFile("Spiel\Belohnungen\Profile\Windat1.dat") Leichtwin = ReadInt( filein1 ) Mittelwin = ReadInt( filein1 ) Schwerwin = ReadInt( filein1 ) CloseFile( filein1 ) txtin1 = ReadFile("Spiel\Belohnungen\Profile\Wintxt1.txt") ProfileName1$ = ReadLine$( txtin ) CloseFile( txtin1 ) ElseIf Profile=2 filein2 = ReadFile("Spiel\Belohnungen\Profile\Windat2.dat") Leichtwin = ReadInt( filein2 ) Mittelwin = ReadInt( filein2 ) Schwerwin = ReadInt( filein2 ) CloseFile( filein2 ) txtin2 = ReadFile("Spiel\Belohnungen\Profile\Wintxt2.txt") ProfileName2$ = ReadLine$( txtin ) CloseFile( txtin2 ) ElseIf Profile=3 filein3 = ReadFile("Spiel\Belohnungen\Profile\Windat3.dat") Leichtwin = ReadInt( filein3 ) Mittelwin = ReadInt( filein3 ) Schwerwin = ReadInt( filein3 ) CloseFile( filein3 ) txtin3 = ReadFile("Spiel\Belohnungen\Profile\Wintxt3.txt") ProfileName3$ = ReadLine$( txtin ) CloseFile( txtin3 ) EndIf Repeat Color 255,255,255 Cls Text 20,0,MouseX()+" "+MouseY() fntarial=LoadFont("Arial",16,True,False,True) SetFont fntarial If Profile=1 Then Text 20,20,"Profil: "+Profilename1 ElseIf Profile=2 Then Text 20,20,"Profil: "+Profilename2 ElseIf Profile=3 Then Text 20,20,"Profil: "+Profilename3 EndIf FreeFont fntParial Code: [AUSKLAPPEN] [EINKLAPPEN] Text 20,40,edit Text 600,580,"Copyright: Felix Deimel" DrawImage startknopf,340,150 DrawImage optionknopf,340,200 DrawImage instruktionknopf,340,250 DrawImage endeknopf,340,300 DrawImage edit_Profile,0,20 If MouseX()>=0 And MouseX()<=0+16 And MouseY()>=20 And MouseY()<=20+16 Then If edit<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") edit=1 Else edit=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=150 And MouseY()<=150+40 And st<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=150 And MouseY()<=150+40 Then DrawImage startknopfan,340,150 st=1 Else st=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And op<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 Then DrawImage optionknopfan,340,200 op=1 Else op=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=250 And MouseY()<=250+40 And is<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=250 And MouseY()<=250+40 Then DrawImage instruktionknopfan,340,250 is=1 Else is=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And ed<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 Then DrawImage endeknopfan,340,300 ed=1 Else ed=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=150 And MouseY()<=150+40 And MouseDown(1) Then start=1 Blub=PlayMusic ("Menü\Ton\click.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And MouseDown(1) Then options=1 Blub=PlayMusic ("Menü\Ton\click.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=250 And MouseY()<=250+40 And MouseDown(1) Then instructions=1 Blub=PlayMusic ("Menü\Ton\click.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And MouseDown(1) Then Ende=1 Blub=PlayMusic ("Menü\Ton\click.wav") If MouseX()>=0 And MouseX()<=0+16 And MouseY()>=20 And MouseY()<=20+16 And MouseDown(1) Then editpro=1 Blub=PlayMusic ("Menü\Ton\click.wav") DrawImage curser,MouseX(),MouseY() Flip Until start=1 Or options=1 Or instructions=1 Or ende=1 Or editpro=1 Delay 500 If editpro=1 Then Goto lableedit If start=1 Then Gosub lable3 If options=1 Then Goto lable1 If instructions=1 Then Goto lable2 If Ende=1 Then End ;ProfileMenü .lableedit editpro=0 Repeat Cls If Profilename1="" Then DrawImage add_Profile,20,150 Else DrawImage delete_Profile,20,150 EndIf ;backknopf DrawImage backknopf,10,550 If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then DrawImage backknopfan,10,550 ba=1 Else ba=0 EndIf If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav") DrawImage curser,MouseX(),MouseY() Flip Until back=1 Delay 500 If back=1 Then Goto lable0 ;Optionen .lable1 StopChannel Menütheme LoopSound Optiontheam OptionTheme=PlaySound ( Optiontheam ) ChannelVolume OptionTheme, .5 options=0 Repeat Cls Text 360,50,"options" Text 325,100,"Schwierigkeitsgrad" DrawImage leichtknopf,340,200 DrawImage mittelknopf,340,300 DrawImage schwerknopf,340,400 DrawImage backknopf,10,550 If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And l<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 Then DrawImage leichtknopfan,340,200 l=1 Else l=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And m<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 Then DrawImage mittelknopfan,340,300 m=1 Else m=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 And s<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 Then DrawImage schwerknopfan,340,400 s=1 Else s=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And MouseDown(1) And lc<>1 Then Blub=PlayMusic ("Menü\Ton\Schwierigkeit.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And MouseDown(1) Then Schwierigkeit=1 lc=1 Else lc=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And MouseDown(1) And mc<>1 Then Blub=PlayMusic ("Menü\Ton\Schwierigkeit.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And MouseDown(1) Then Schwierigkeit=2 mc=1 Else mc=0 EndIf If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 And MouseDown(1) And sc<>1 Then Blub=PlayMusic ("Menü\Ton\Schwierigkeit.wav") If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 And MouseDown(1) Then Schwierigkeit=3 sc=1 Else sc=0 EndIf If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then DrawImage backknopfan,10,550 ba=1 Else ba=0 EndIf If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav") If Schwierigkeit=1 Then Text 290,500,"Momentane Schwierigkeit: Leicht" ElseIf Schwierigkeit=2 Then Text 290,500,"Momentane Schwierigkeit: Mittel" ElseIf Schwierigkeit=3 Then Text 290,500,"Momentane Schwierigkeit: Schwer" EndIf DrawImage curser,MouseX(),MouseY() Flip Until back=1 Delay 500 If back=1 Then Goto lable0 ;Anleitung .lable2 StopChannel Menütheme LoopSound Instruktiontheam Instruktiontheme=PlaySound ( Instruktiontheam ) ChannelVolume InstuktionTheme, .5 instructions=0 Repeat Cls Text 5,40,"Ziel des Spiels ist es alle gleichbildrigen karten aufzudecken" Text 5,60,"Pro Zug deckt man 2 Karten auf" Text 5,100,"Nach jedem Zug werden die Karten wieder Zugedeckt" Text 5,120,"Die Karten werden Durch Mausklick Aufgedeckt" Text 5,140,"Hat Man 2 Gleiche Gefunden Verschwinden Diese" Text 5,160,"Hat Man Alle Karten Aufgedeckt Hat Man Gewonnen" Text 5,180,"Der Schwierigkeitsgrad Beeinflusst Die Menge Der Karten und ist Standartmäßig Auf Leicht" Text 5,200,"Leicht= 8 Karten Mittel=12 Schweer=20" Text 5,220,"Auch andere Sachen ändern sich durch den Schwierigkeitsgrad doch das Rauszufinden ist eure Sache" Text 5,240,"Viel Spaß wünscht:" Text 5,260,"SimssmiS" DrawImage backknopf,10,550 If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav") If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then DrawImage backknopfan,10,550 ba=1 Else ba=0 EndIf If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav") DrawImage curser,MouseX(),MouseY() Flip Until back=1 Delay 500 If back=1 Then Goto lable0 .lable3 Graphics 1280,1024,32,1 If Schwierigkeit=1 Then Karte=LoadImage ("Spiel\Einfach\Back.jpg") Bild1=LoadImage ("Spiel\Einfach\Bild1.jpg") Bild2=LoadImage ("Spiel\Einfach\Bild2.jpg") Bild3=LoadImage ("Spiel\Einfach\Bild3.jpg") Bild4=LoadImage ("Spiel\Einfach\Bild4.jpg") ElseIf Schwierigkeit=2 Then Karte=LoadImage ("Spiel\Mittel\Back.jpg") Bild1=("Spiel\Mittel\Bild1.jpg") Bild2=("Spiel\Mittel\Bild2.jpg") Bild3=("Spiel\Mittel\Bild3.jpg") Bild4=("Spiel\Mittel\Bild4.jpg") Bild5=("Spiel\Mittel\Bild5.jpg") Bild6=("Spiel\Mittel\Bild6.jpg") ElseIf Schwierigkeit=3 Then Karte=LoadImage ("Spiel\Schweer\Back.jpg") Bild1=("Spiel\Schweer\Bild1.jpg") Bild2=("Spiel\Schweer\Bild2.jpg") Bild3=("Spiel\Schweer\Bild3.jpg") Bild4=("Spiel\Schweer\Bild4.jpg") Bild5=("Spiel\Schweer\Bild5.jpg") Bild6=("Spiel\Schweer\Bild6.jpg") Bild7=("Spiel\Schweer\Bild7.jpg") Bild8=("Spiel\Schweer\Bild8.jpg") Bild9=("Spiel\Schweer\Bild9.jpg") Bild10=("Spiel\Schweer\Bild10.jpg") Print ProfileName Print Leichtwin Print Mittelwin Print Schwerwin EndIf Repeat Until KeyHit(1) End Der Curser setzt sich hinter dassetfont fnt arial

US-Blitz

ehemals "SimssmiS"

So, Apr 04, 2010 0:49
Antworten mit Zitat

Code: [AUSKLAPPEN]

;Menüeinstellungen
Graphics 800,600,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()

;Ladevorgang
Text 300,300,"Loading.......Please Wait"
Blub=PlayMusic ("Spiel\Loading.ogg")
Delay 2000
Text 300,300,"Loading.......Please Wait"
Color 150,0,255
Rect 0,320,160,20
Flip
;Menübilder
startknopf=LoadImage ("Menü\Bilder\Start.jpg")
optionknopf=LoadImage ("Menü\Bilder\Options.jpg")
instruktionknopf=LoadImage ("Menü\Bilder\Instuktions.jpg")
endeknopf=LoadImage ("Menü\Bilder\Ende.jpg")
curser=LoadImage ("Menü\Bilder\curser.jpg")
startknopfan=LoadImage ("Menü\Bilder\Startan.jpg")
optionknopfan=LoadImage ("Menü\Bilder\Optionsan.jpg")
instruktionknopfan=LoadImage ("Menü\Bilder\Instuktionsan.jpg")
endeknopfan=LoadImage ("Menü\Bilder\Endean.jpg")
backknopf=LoadImage ("Menü\Bilder\Back.jpg")
backknopfan=LoadImage ("Menü\Bilder\Backan.jpg")
leichtknopf=LoadImage ("Menü\Optionen\leicht.jpg")
mittelknopf=LoadImage ("Menü\Optionen\mittel.jpg")
schwerknopf=LoadImage ("Menü\Optionen\schwer.jpg")
leichtknopfan=LoadImage ("Menü\Optionen\leichtan.jpg")
mittelknopfan=LoadImage ("Menü\Optionen\mittelan.jpg")
schwerknopfan=LoadImage ("Menü\Optionen\schweran.jpg")
;Profilebilder
edit_Profile=LoadImage ("Spiel\Belohnungen\user_edit.png")
add_Profile=LoadImage ("Spiel\Belohnungen\user_add.png")
delete_Profile=LoadImage ("Spiel\Belohnungen\user_delete.png")
Lives=3
Menütheam=LoadSound ("Menü\Ton\Menü.ogg")
Color 255,255,255
Text 300,300,"Loading.......Please Wait"
Color 155,0,255
Rect 0,320,160,20
Rect 160,320,160,20
Flip
Optiontheam=LoadSound ("Menü\Ton\Option.ogg")
Color 255,255,255
Text 300,300,"Loading.......Please Wait"
Color 160,0,255
Rect 0,320,160,20
Rect 160,320,160,20
Rect 320,320,160,20
Flip
Instruktiontheam=LoadSound ("Menü\Ton\Anleitung.ogg")
Color 255,255,255
Text 300,300,"Loading.......Please Wait"
Color 165,0,255
Rect 0,320,160,20
Rect 160,320,160,20
Rect 320,320,160,20
Rect 480,320,160,20
Flip
Maintheam=LoadSound ("Spiel\MainTheam.mp3")
Color 255,255,255
Text 300,300,"Loading.......Please Wait"
Color 170,0,255
Rect 0,320,160,20
Rect 160,320,160,20
Rect 320,320,160,20
Rect 480,320,160,20
Rect 640,320,160,20
Flip
Delay 3000
Schwierigkeit=1
;Menü
.lable0
StopChannel Optiontheme
StopChannel Instruktiontheme
LoopSound Menütheam
MenüTheme=PlaySound ( Menütheam )
ChannelVolume MenüTheme, .3
back=0

Hier kommt es dann Code: [AUSKLAPPEN]

;Profielanalyse
Profilein=ReadFile("Spiel\Belohnungen\Profile\Profil.dat")
Profile=ReadInt( Profilein )
CloseFile (Profilein)
If Profile=0 Then
Goto lableedit
ElseIf Profile=1 Then
filein1 = ReadFile("Spiel\Belohnungen\Profile\Windat1.dat")
Leichtwin = ReadInt( filein1 )
Mittelwin = ReadInt( filein1 )
Schwerwin = ReadInt( filein1 )
CloseFile( filein1 )
txtin1 = ReadFile("Spiel\Belohnungen\Profile\Wintxt1.txt")
ProfileName1$ = ReadLine$( txtin )
CloseFile( txtin1 )
ElseIf Profile=2
filein2 = ReadFile("Spiel\Belohnungen\Profile\Windat2.dat")
Leichtwin = ReadInt( filein2 )
Mittelwin = ReadInt( filein2 )
Schwerwin = ReadInt( filein2 )
CloseFile( filein2 )
txtin2 = ReadFile("Spiel\Belohnungen\Profile\Wintxt2.txt")
ProfileName2$ = ReadLine$( txtin )
CloseFile( txtin2 )
ElseIf Profile=3
filein3 = ReadFile("Spiel\Belohnungen\Profile\Windat3.dat")
Leichtwin = ReadInt( filein3 )
Mittelwin = ReadInt( filein3 )
Schwerwin = ReadInt( filein3 )
CloseFile( filein3 )
txtin3 = ReadFile("Spiel\Belohnungen\Profile\Wintxt3.txt")
ProfileName3$ = ReadLine$( txtin )
CloseFile( txtin3 )
EndIf

Repeat
Color 255,255,255
Cls
Text 20,0,MouseX()+" "+MouseY()

fntarial=LoadFont("Arial",16,True,False,True)
SetFont fntarial
If Profile=1 Then
Text 20,20,"Profil: "+Profilename1
ElseIf Profile=2 Then
Text 20,20,"Profil: "+Profilename2
ElseIf Profile=3 Then
Text 20,20,"Profil: "+Profilename3
EndIf
FreeFont fntParial

Code: [AUSKLAPPEN]

Text 20,40,edit
Text 600,580,"Copyright: Felix Deimel"
DrawImage startknopf,340,150
DrawImage optionknopf,340,200
DrawImage instruktionknopf,340,250
DrawImage endeknopf,340,300
DrawImage edit_Profile,0,20
If MouseX()>=0 And MouseX()<=0+16 And MouseY()>=20 And MouseY()<=20+16 Then
If edit<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
edit=1
Else edit=0
EndIf

If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=150 And MouseY()<=150+40 And st<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=150 And MouseY()<=150+40 Then
DrawImage startknopfan,340,150 st=1
Else st=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And op<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 Then
DrawImage optionknopfan,340,200 op=1
Else op=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=250 And MouseY()<=250+40 And is<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=250 And MouseY()<=250+40 Then
DrawImage instruktionknopfan,340,250 is=1
Else is=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And ed<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 Then
DrawImage endeknopfan,340,300 ed=1
Else ed=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=150 And MouseY()<=150+40 And MouseDown(1) Then start=1 Blub=PlayMusic ("Menü\Ton\click.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And MouseDown(1) Then options=1 Blub=PlayMusic ("Menü\Ton\click.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=250 And MouseY()<=250+40 And MouseDown(1) Then instructions=1 Blub=PlayMusic ("Menü\Ton\click.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And MouseDown(1) Then Ende=1 Blub=PlayMusic ("Menü\Ton\click.wav")
If MouseX()>=0 And MouseX()<=0+16 And MouseY()>=20 And MouseY()<=20+16 And MouseDown(1) Then editpro=1 Blub=PlayMusic ("Menü\Ton\click.wav")
DrawImage curser,MouseX(),MouseY()
Flip
Until start=1 Or options=1 Or instructions=1 Or ende=1 Or editpro=1
Delay 500
If editpro=1 Then Goto lableedit
If start=1 Then Gosub lable3
If options=1 Then Goto lable1
If instructions=1 Then Goto lable2
If Ende=1 Then End

;ProfileMenü
.lableedit
editpro=0
Repeat
Cls
If Profilename1="" Then
DrawImage add_Profile,20,150
Else
DrawImage delete_Profile,20,150
EndIf

      ;backknopf
      DrawImage backknopf,10,550
      If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
      If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then
      DrawImage backknopfan,10,550 ba=1
      Else ba=0
      EndIf
      If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav")
      DrawImage curser,MouseX(),MouseY()
      Flip
      Until back=1
      Delay 500
      If back=1 Then Goto lable0



;Optionen
.lable1
StopChannel Menütheme
LoopSound Optiontheam
OptionTheme=PlaySound ( Optiontheam )
ChannelVolume OptionTheme, .5
options=0
Repeat
Cls
Text 360,50,"options"
Text 325,100,"Schwierigkeitsgrad"
DrawImage leichtknopf,340,200
DrawImage mittelknopf,340,300
DrawImage schwerknopf,340,400
DrawImage backknopf,10,550
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And l<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 Then
DrawImage leichtknopfan,340,200 l=1
Else l=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And m<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 Then
DrawImage mittelknopfan,340,300 m=1
Else m=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 And s<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 Then
DrawImage schwerknopfan,340,400 s=1
Else s=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And MouseDown(1) And lc<>1 Then Blub=PlayMusic ("Menü\Ton\Schwierigkeit.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=200 And MouseY()<=200+40 And MouseDown(1) Then
Schwierigkeit=1 lc=1
Else lc=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And MouseDown(1) And mc<>1 Then Blub=PlayMusic ("Menü\Ton\Schwierigkeit.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=300 And MouseY()<=300+40 And MouseDown(1) Then
Schwierigkeit=2 mc=1
Else mc=0
EndIf
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 And MouseDown(1) And sc<>1 Then Blub=PlayMusic ("Menü\Ton\Schwierigkeit.wav")
If MouseX()>=340 And MouseX()<=340+120 And MouseY()>=400 And MouseY()<=400+40 And MouseDown(1) Then
Schwierigkeit=3 sc=1
Else sc=0
EndIf
If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then
DrawImage backknopfan,10,550 ba=1
Else ba=0
EndIf
If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav")
If Schwierigkeit=1 Then
Text 290,500,"Momentane Schwierigkeit: Leicht"
ElseIf Schwierigkeit=2 Then
Text 290,500,"Momentane Schwierigkeit: Mittel"
ElseIf Schwierigkeit=3 Then
Text 290,500,"Momentane Schwierigkeit: Schwer"
EndIf
DrawImage curser,MouseX(),MouseY()
Flip
Until back=1
Delay 500
If back=1 Then Goto lable0

;Anleitung
.lable2
StopChannel Menütheme
LoopSound Instruktiontheam
Instruktiontheme=PlaySound ( Instruktiontheam )
ChannelVolume InstuktionTheme, .5
instructions=0
Repeat
Cls
Text 5,40,"Ziel des Spiels ist es alle gleichbildrigen karten aufzudecken"
Text 5,60,"Pro Zug deckt man 2 Karten auf"
Text 5,100,"Nach jedem Zug werden die Karten wieder Zugedeckt"
Text 5,120,"Die Karten werden Durch Mausklick Aufgedeckt"
Text 5,140,"Hat Man 2 Gleiche Gefunden Verschwinden Diese"
Text 5,160,"Hat Man Alle Karten Aufgedeckt Hat Man Gewonnen"
Text 5,180,"Der Schwierigkeitsgrad Beeinflusst Die Menge Der Karten und ist Standartmäßig Auf Leicht"
Text 5,200,"Leicht= 8 Karten Mittel=12 Schweer=20"
Text 5,220,"Auch andere Sachen ändern sich durch den Schwierigkeitsgrad doch das Rauszufinden ist eure Sache"
Text 5,240,"Viel Spaß wünscht:"
Text 5,260,"SimssmiS"
DrawImage backknopf,10,550
If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And ba<>1 Then Blub=PlayMusic ("Menü\Ton\an.wav")
If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 Then
DrawImage backknopfan,10,550 ba=1
Else ba=0
EndIf
If MouseX()>=10 And MouseX()<=10+120 And MouseY()>=550 And MouseY()<=550+40 And MouseDown(1) Then back=1 Blub=PlayMusic ("Menü\Ton\click.wav")
DrawImage curser,MouseX(),MouseY()
Flip
Until back=1
Delay 500
If back=1 Then Goto lable0

.lable3
Graphics 1280,1024,32,1
If Schwierigkeit=1 Then
Karte=LoadImage ("Spiel\Einfach\Back.jpg")
Bild1=LoadImage ("Spiel\Einfach\Bild1.jpg")
Bild2=LoadImage ("Spiel\Einfach\Bild2.jpg")
Bild3=LoadImage ("Spiel\Einfach\Bild3.jpg")
Bild4=LoadImage ("Spiel\Einfach\Bild4.jpg")
ElseIf Schwierigkeit=2 Then
Karte=LoadImage ("Spiel\Mittel\Back.jpg")
Bild1=("Spiel\Mittel\Bild1.jpg")
Bild2=("Spiel\Mittel\Bild2.jpg")
Bild3=("Spiel\Mittel\Bild3.jpg")
Bild4=("Spiel\Mittel\Bild4.jpg")
Bild5=("Spiel\Mittel\Bild5.jpg")
Bild6=("Spiel\Mittel\Bild6.jpg")
ElseIf Schwierigkeit=3 Then
Karte=LoadImage ("Spiel\Schweer\Back.jpg")
Bild1=("Spiel\Schweer\Bild1.jpg")
Bild2=("Spiel\Schweer\Bild2.jpg")
Bild3=("Spiel\Schweer\Bild3.jpg")
Bild4=("Spiel\Schweer\Bild4.jpg")
Bild5=("Spiel\Schweer\Bild5.jpg")
Bild6=("Spiel\Schweer\Bild6.jpg")
Bild7=("Spiel\Schweer\Bild7.jpg")
Bild8=("Spiel\Schweer\Bild8.jpg")
Bild9=("Spiel\Schweer\Bild9.jpg")
Bild10=("Spiel\Schweer\Bild10.jpg")
Print ProfileName
Print Leichtwin
Print Mittelwin
Print Schwerwin
EndIf
Repeat
Until KeyHit(1)
End

Der Curser setzt sich hinter dassetfont fnt arial

	Eingeproggt	So, Apr 04, 2010 0:55 Antworten mit Zitat
na pfumm, das ist n Kauderwelsch (Sorry, ned bös gemeint, aber ist wirklich etwas unübersichtlich) Ich denke, das Problem liegt hier: Code: [AUSKLAPPEN] [EINKLAPPEN] txtin1 = ReadFile("Spiel\Belohnungen\Profile\Wintxt1.txt") ProfileName1$ = ReadLine$( txtin ) Du öffnest die Datei als "txtin1" und liest aus "txtin" - "txtin gibt es aber nicht! Genau dasselbe für 2 und 3. Ich denke mal du benutzt die Standard-IDE (Codeeditor) von Blitz? Wenn du eine bessere, zB IDEal benutzen würdest und sauber mit Lokaler / Globaler Variablendeklaration arbeiten würdest wäre dir das Problem selbst aufgefallen mfG, Christoph. EDIT: Zugegeben... Es ist etwas verwirrend, warum der Debugger dich auf die Fonts verweist Aber dass da was mit den Dateihandles schief lief ist eigentlich die einzige Erklärung die ich im Moment hab.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

So, Apr 04, 2010 0:55
Antworten mit Zitat

na pfumm, das ist n Kauderwelsch (Sorry, ned bös gemeint, aber ist wirklich etwas unübersichtlich)

Ich denke, das Problem liegt hier:

Code: [AUSKLAPPEN]

txtin1 = ReadFile("Spiel\Belohnungen\Profile\Wintxt1.txt")
ProfileName1$ = ReadLine$( txtin )

Du öffnest die Datei als "txtin1" und liest aus "txtin" - "txtin gibt es aber nicht!
Genau dasselbe für 2 und 3.

Ich denke mal du benutzt die Standard-IDE (Codeeditor) von Blitz?
Wenn du eine bessere, zB IDEal benutzen würdest und sauber mit Lokaler / Globaler Variablendeklaration arbeiten würdest wäre dir das Problem selbst aufgefallen Wink

mfG, Christoph.

EDIT: Zugegeben... Es ist etwas verwirrend, warum der Debugger dich auf die Fonts verweist Confused

Aber dass da was mit den Dateihandles schief lief ist eigentlich die einzige Erklärung die ich im Moment hab.

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	US-Blitz ehemals "SimssmiS"	So, Apr 04, 2010 0:59 Antworten mit Zitat
hähä ja das hätte mir auch so auffallen müssen ja ich weiß reines cowderwelsch benutze die demo bin geizig sorry jetzt font not found

US-Blitz

ehemals "SimssmiS"

So, Apr 04, 2010 0:59
Antworten mit Zitat

hähä ja das hätte mir auch so auffallen müssen ja ich weiß reines cowderwelsch benutze die demo bin geizig
sorry jetzt font not found

	Eingeproggt	So, Apr 04, 2010 1:06 Antworten mit Zitat
Ahja, selber Fehler, du schreibst ja auch FreeFont fntParial Mal so nebenbei - will dich nicht nerven, aber meinst du statt "theam" vielleicht "theme"? ^^
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Eingeproggt

So, Apr 04, 2010 1:06
Antworten mit Zitat

Ahja, selber Fehler, du schreibst ja auch
FreeFont fntParial

Mal so nebenbei - will dich nicht nerven, aber meinst du statt "theam" vielleicht "theme"? ^^

Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

	US-Blitz ehemals "SimssmiS"	So, Apr 04, 2010 1:11 Antworten mit Zitat
nene das is schon ok so mit theam und theme danke für hilfe kalppt jetzt hähä ich sollte auch mal aufpassen wie ich was schreibe und ich bedanke mich auch an die Admins und Mods die dieses Forum und somit zur Problemlösung beigetragen haben

US-Blitz

ehemals "SimssmiS"

So, Apr 04, 2010 1:11
Antworten mit Zitat

nene das is schon ok so mit theam und theme danke für hilfe kalppt jetzt hähä ich sollte auch mal aufpassen wie ich was schreibe

und ich bedanke mich auch an die Admins und Mods die dieses Forum und somit zur Problemlösung beigetragen haben

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Font Problem

US-Blitz

Betreff: Font Problem

Eingeproggt

US-Blitz

Eingeproggt

US-Blitz

Eingeproggt

US-Blitz