XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Lauftext wie in RPG-Spielen erzeugen
Lauffähig ab Profan-Version 6.6
Kurze Demo für Runtext von Rolf Koch 2002
Wichtige Dateien:
- Klack.wav
Man könnte noch auf einzelne Buchstaben und deren
Platzverbrauch überprüfen (z.B. das i) um somit
die Optik zu verbessern!
VIEL SPASS!
------------------------------

PROC TEXT

    PARAMETERS Reihe1$,xpos%,ypos%,tempo%,sound%,font%
    TX%=xpos%
    TY%=ypos%
    Stelle%=1

    if neq$(reihe1$,)

        let tlang%=@Len(Reihe1$)

        if gt(tlang%,1)

            Whileloop tlang%

                sleep tempo%
                Tx%=add(tx%,font%)
                buchstabe$=@Mid$(Reihe1$,stelle%,1)
                inc stelle%
                DrawText tx%,TY%,buchstabe$

                if neq$(Zeich$, )

                    case equ(sound%,1):Playsound klack$,1

                endif

            Wend

        endif

    endif

ENDPROC

declare tx%,ty%,stelle%,tlang%,buchstabe$,zeich$
------------------------------
Declare dialog&,klack$
Declare hwnd$,dia$ Nur für dieses Beispiel
EINEN SOUND BESTIMMEN:
klack$=@GetDir$(@);KLACK.WAV
hwnd$=@GetDir$(@);VERLAUF.BMP
dia$=@GetDir$(@);WATER.BMP
Window 50,50-730,400
windowtitle RUNTEXT (c) by Rolf Koch 2002
Loadsizedbmp hwnd$,0,0-730,400;0
Parameter für Text:
Der Text
Startpunkt x
Startpunkt y
Geschwindigkeit je Buchstabe (ms)
Sound: 0=AUS 1=AN
Fonthöhe, wie bei Usefont (2ter Parameter)
ES WIRD PER DRAWTEXT GESCHRIEBEN, ALSO:
startpaint %hwnd		Ja, hier auch bei %hwnd!
TextColor RGB(255,0,0),-1	Textfarbe
UseFont MS Sans Serif,13,0,0,0,0	Schriftart
TEXT  Hallo, hier schreibt Rolf Koch.,10,10,50,1,13
TEXT  Man kennt solch einen Effekt aus RPG Spielen.,10,30,100,1,13
TEXT  Zum Beispiel bei Zelda wird der Text,10,50,30,1,13
TEXT  immer in diesem Stil angezeigt!,10,70,100,1,13
TEXT  Es folgt nun ein Dialogbeispiel:,10,90,50,1,13
endpaint
Let Dialog&=createdialog(%hwnd,Dialogtest (Kein Sound),100,220,600,200)
startpaint dialog&
TextColor RGB(0,0,255),-1	Textfarbe
UseFont ARIAL,13,0,0,1,0	Schriftart
Loadsizedbmp dia$,0,0-600,200;0
TEXT  NUN AUF EINEN DIALOG,10,10,100,0,13
TEXT  Per Startpaint und Endpaint kein Problem.,10,25,100,0,13
TEXT  Jedoch sollte man Überlegungen anstreben,,10,40,100,0,13
TEXT  %WMPAINT irgendwie zu beachten!!!,10,55,100,0,13
TextColor RGB(0,0,255),-1	Textfarbe
UseFont ARIAL,17,0,1,0,0	Schriftart
TEXT  VIEL SPASS - WÜNSCHT ROLF,50,85,100,0,17
endpaint
WAITINPUT