HM function
Übersicht
BlitzBasic Beginners-Corner
|
tytyBetreff: HM function |
 Mo, Jan 03, 2005 11:39Antworten mit Zitat 
|
|---|---|---|
|
kann mir jemand sagen wie ich die HarvestMoon Codes in eine Funktion bekomme?
SetBuffer BackBuffer() Font1=LoadFont("arial",24,1,0,0): SetFont Font1 ;Schriftart setzen x=0 p=1 a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;Dein Text l=Len(a$) While Not KeyDown(1) x=x+1 If x> 10 p=p+1 If p>l Then p=l x=0 EndIf Text 20,20,Mid(a$,1,p) Flip Wend |
||
|
User posted image
Kaikille suomea puhuville ihmisille: tyty = tyty the technical youngster!!! |
||
GeGenesis |
Mo, Jan 03, 2005 11:41 Antworten mit Zitat
|
|
|---|---|---|
|
harvest moon ????
was willst du den machen |
||
|
|
tyty |
Mo, Jan 03, 2005 11:43 Antworten mit Zitat
|
|---|---|---|
|
wer sacht denn das ichs für HM benutze
das is halt harvestmoon typische schrift |
||
|
User posted image
Kaikille suomea puhuville ihmisille: tyty = tyty the technical youngster!!! |
||
GeGenesis |
Mo, Jan 03, 2005 11:47 Antworten mit Zitat
|
|
|---|---|---|
| die font aus dem internet runterladen und benutzen... | ||
|
|
tyty |
Mo, Jan 03, 2005 11:54 Antworten mit Zitat
|
|---|---|---|
|
der code funktioniert ja
aber inner function nicht zB Graphics 1024, 768 SetBuffer BackBuffer() bla$ = "Es tut mir Leid, dass dein Vater gestorben ist *(Spielername), er hat dir als Erbe diese Farm hinterlassen." HM(bla$) bla$ = "Bitte kümmere dich um sie, ansonsten wird sie verkauft." HM(bla$) WaitKey End Function HM(bla$) x=0 p=1 a$= bla$ ;Text l=Len(a$) While Not KeyDown(1) If MilliSecs()>Timer+1 Then p=p+1 If p>l Then p=l Timer=MilliSecs() EndIf Text 20,20,Mid(a$,1,p) Flip Wend End Function dann zeigt der nur den ersten text an |
||
|
User posted image
Kaikille suomea puhuville ihmisille: tyty = tyty the technical youngster!!! |
||
Blitzkrieg Bop |
Mo, Jan 03, 2005 12:38 Antworten mit Zitat
|
|
|---|---|---|
Also mehr in eine Funktion als so etwa geht nicht, oder was zur Hölle meinst du? Code: [AUSKLAPPEN] Graphics 1024, 768
SetBuffer BackBuffer() Global Font1=LoadFont("arial",24,1,0,0) ;Schriftart setzen Repeat Cls HM("ABCDEFGHIJKLMNOPQRSTUVWXYZ") HM("Bitte kümmere dich um sie, ansonsten wird sie verkauft." ) Flip Until KeyHit(1):End Function HM(bla$) SetFont Font1 x=0 p=1 a$= bla$ ;Text l=Len(a$) While Not KeyDown(1) If MilliSecs()>Timer+1 Then p=p+1 If p>l Then p=l Timer=MilliSecs() EndIf Text 20,20,Mid(a$,1,p) Flip Wend End Function |
||
| ~ Hey Ho Let's Go ~ | ||
GeGenesis |
Mo, Jan 03, 2005 12:50 Antworten mit Zitat
|
|
|---|---|---|
| Sag mal was fürhr ein fehler kommt oder was nicht klappt... | ||
|
TrunkZ |
Mo, Jan 03, 2005 13:34 Antworten mit Zitat
|
|---|---|---|
| Lösch mal nach dem ersten text den bildschirm. vielleicht gehts dann | ||
|
User posted image User posted image
Auch so ein tolles Statusbild? Dark-Lightning Studios PBanner-Service |
||
|
|
tyty |
Di, Jan 04, 2005 9:20 Antworten mit Zitat
|
|---|---|---|
|
es erscheint erst der erste text in der schrift
dannn bleibt der text stehen und nichts passiert auch mit cls oder waitkey nixh |
||
|
User posted image
Kaikille suomea puhuville ihmisille: tyty = tyty the technical youngster!!! |
||
|
BladeRunnerModerator |
Di, Jan 04, 2005 9:46 Antworten mit Zitat
|
|---|---|---|
|
Du verwendest eine While-Wend-Schleife in deiner Funktion. Abbruchbedingung ist ESC.
Abgesehen davon Erhöhst du deine Timervariable um eine großzügige Millisekunde, der erwünschte Schreibmaschineneffekt wird sich also wohl nicht einstellen. Und Flip in functions ist pures Gift - flippe nach Möglichkeit nur einmal am Ende deiner Mainloop. |
||
|
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92 |
||
|
|
tyty |
Di, Jan 04, 2005 12:44 Antworten mit Zitat
|
|---|---|---|
|
ja problem auch grad gefunden die while-wend
hab hier im forum noch n andern code gefunden mmit dem das klappt danke anden autor 8) |
||
|
User posted image
Kaikille suomea puhuville ihmisille: tyty = tyty the technical youngster!!! |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group