Featured Site
» Posted in the Flash Kit Links section
» Title: Passinglane
» Comments: Since 1996 Passinglane has been providing compelling communication products for business, enterainment and education.
BBM.net is designed to save you time and deliver the highest quality royalty-free music for your multimedia projects. Features include: over 450 Music Loop Packages from some of the best composers in the business, our music search engine to speed your selection process, alternate music versions & bonus sounds to use for rollovers or transitions, free technical support and free consulting.
The bulk of the script is attached to the "input price" button, but
it can be transferred to a frame action as well.
The full text conversion script:
Set Variable: "/:priceLength" = MBLength(/:price)
Set Variable: "/:n" = "0"
Loop While (/:n < /:priceLength)
Set Variable: "/:n" = /:n + 1
Set Variable: "/:currentChar" = MBSubstring ( /:price, /:n, 1 )
If (/:currentChar ne "." and /:donePre ne "yes")
Set Variable: "/:beforePrice" = /:beforePrice & /:currentChar
Else If (/:currentChar eq ".")
Set Variable: "/:donePre" = "yes"
Else
Set Variable: "/:afterPrice" = /:afterPrice & /:currentChar
End If
End Loop
Comment: ===================
Comment: format dollars (pounds, whatever)
If (/:beforePrice eq "" or /:beforePrice eq ".")
Set Variable: "/:beforePrice" = "0"
End If
Comment: ===================
Comment: format cents
Set Variable: "/:afterPriceLen" = MBLength(/:afterPrice)
If (/:afterPriceLen = "" or /:afterPriceLen = 0)
Set Variable: "/:afterPrice" = "00"
Else If (/:afterPriceLen = 1)
Set Variable: "/:afterPrice" = /:afterPrice & "0"
Else
Comment: round up if the decimal warrants it
If (MBSubstring ( /:afterPrice, 3, 1 ) > 4)
Set Variable: "/:afterPrice" = MBSubstring ( /:afterPrice, 1, 2 )
Set Variable: "/:afterPrice" = /:afterPrice + 1
Else
Set Variable: "/:afterPrice" = MBSubstring ( /:afterPrice, 1, 2 )
End If
End If
Set Variable: "/:displayPrice" = "$" & /:beforePrice & "."& /:afterPrice
Go to and Stop ("done")