24 lines
422 B
Text
24 lines
422 B
Text
Function credits()
|
|
//Luetaan tiedoston sisältö
|
|
file = OpenToRead("credits")
|
|
While Not EOF(file)
|
|
AddText ReadLine(file)
|
|
Wend
|
|
CloseFile file
|
|
|
|
//Estetään välitön poistuminen
|
|
ClearKeys
|
|
ClearMouse
|
|
|
|
//Silmukka
|
|
Repeat
|
|
If GetKey() <> False Or GetMouse() <> False Then exit
|
|
DrawScreen
|
|
Forever
|
|
|
|
PlaySound btthit
|
|
ClearText
|
|
//Estetääm välitön toiminta
|
|
ClearKeys
|
|
ClearMouse
|
|
EndFunction
|