Jump Around 2

Miscellaneous Forums/Blitz Showcase/Jump Around 2

eBusiness
 #1
Made something so you won't have to type in your name every time the program is started, insert these two pieces:
Reset()

playernamefile=ReadFile("misc\player.name")
If playernamefile Then
	player\name=ReadString(playernamefile)
	CloseFile playernamefile
Else If FileType("misc")<2 Then
	CreateDir "Misc"
End If
Repeat
			If get = 13
				player\name$ = Replace(player\name$," ","_")			
				inputname = False
				namedone = True
				playernamefile=WriteFile("Misc\player.name")
				WriteString playernamefile,player\name$
				CloseFile playernamefile
			ElseIf get = 8