|
Livello di difficoltà: |
|
La mailing list Grafica quotidiana spedisce ogni giorno un file grafico differente. Il Lunedì è il giorno dell'esempio Flash con le istruzioni per crearlo ex novo. In queste pagine trovi gli arretrati di questa lista gratuita.
|
| |
Esempio Flash: 8 Ottobre 2001
Grafica quotidiana
Le novità di oggi su Risorse.net?
Visita la Home page del sito
TITOLO: Effetto cursorse tipo Ms-Dos
Visualizza l'esempio
Scarica l'esempio
Salve! Oggi per voi un simpatico esempio che vi consente di ricreare il famoso cursore di DOS. Molto utile per creare banner ad effetto. Questa settimana vi faciliterò il compito pubblicando il sorgente. Iniziamo!
<1> Prima di tutto disegnate il cursore creando un movieclip dove al frame 7 inserirete un action:
gotoAndPlay(1)
<2> Adesso create un secondo movie clip Typer dove al frame 1 dovrete settare le seguenti variabili:
Set Variable: "fontwidth" = 9
Set Variable: "fontx" = GetProperty("",_x)
Set Variable: "fonty" = GetProperty("",_x)
La prima indica la distanza tra le lettere che formano il testo, le altre indicano dove attualmente è locato il cursore.
<3> Al frame 5 inserite le seguenti azioni:
Set Variable: "n" = 1
Set Variable: "text" = "Risorse.net"
Set Variable: "c" = 1
Loop While (c<=100)
Remove Movie Clip ("../font"&c)
Set Variable: "c" = c+1
End Loop
Dove "n" acquisisce il valore del carattere su cui il cursore si trova attualmente e "c" è un contatore dei caratteri da rimuovere, qualora il vostro messaggio avesse un numero di caratteri superiori modificare questa cifra.
<4> Al frame 6 inserirete le seguenti azioni che indicano al cursore quante volte deve muoversi
Set Variable: "length" = Length(text)
If (n<=length)
Set Property ("", X Position) = fontx+(fontwidth*(n))
End If
<5> Al frame 7 inserite le seguenti azioni
If (n<=length)Duplicate Movie Clip ("../original", "font"&n, n)Set Variable: "../font"&n&":text" = Substring(text,n,1)Set Property ("../font"&n, X Position) = fontx+(fontwidth*(n-1))Set Property ("../font"&n, X Position) = GetProperty("../cursor",_x)-fontwidthSet Property ("../font"&n, Y Position) = GetProperty("../cursor",_y)Set Variable: "n" = n+1Go to and Play (_currentframe-1)End If
<6> A partire dal frame 20 inserirete le seguenti azioni per l’altro testo:
If (n<=length)
Comment: ----------------------------------------------
Comment: type new character
Comment: ----------------------------------------------
Duplicate Movie Clip ("../original", "font"&n, n)
Set Variable: "../font"&n&":text" = Substring(text,n,1)
Set Property ("../font"&n, X Position) = fontx+(fontwidth*(n-1))
Set Property ("../font"&n, X Position) = GetProperty("../cursor",_x)-fontwidth
Set Property ("../font"&n, Y Position) = GetProperty("../cursor",_y)
Set Variable: "n" = n+1
Go to and Play (_currentframe-1)
End If
Per il resto seguite il sorgente. A Domani!
Rosaria Gagliano, rosaria.gagliano@risorse.net.
Listowner di Grafica Quotidiana e Web designer.
|
| |
