mirror of
https://github.com/OpenTrespasser/JurassicParkTrespasser.git
synced 2024-12-18 22:51:56 +00:00
11 lines
200 B
Plaintext
11 lines
200 B
Plaintext
|
fn FloatAsString f =
|
||
|
|
(
|
||
|
|
CString = f as string
|
||
|
|
Convert = true
|
||
|
|
for i = 1 to CString.count do
|
||
|
|
if CString[i] == "." do
|
||
|
|
Convert = false
|
||
|
|
if Convert == true do
|
||
|
|
CString = (CString + ".0")
|
||
|
|
return CString
|
||
|
|
)
|