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