IRC Channel

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Tony Hart

Here is the code i have writen so far but I am still having servere problems with it. What I am trying to do is have it list the character files (.chr files i have it create) when i say that i have a character already. Then the user is supposed to type their characters name in and the character loads. A) It doesnt list the characters. B) I dont get to the part where i can type the characters name and C) It causes the system to seem to freeze up. When i get to this function, the program hangs and only closes if i close blitz basic. It doesnt close when the code ends or anything.

If anyone could recreate the code or tell me how to fix it. I found the IRC channel, and I also have AIM and MSN.

My AIM is BostonCheersEx and my MSN is x32max@...

Any and all help is GREATLY appreciated!

Function CharLoad()

Print "This Function is still being worked on!"
Print "This is a list of all the adventurers who I have listed that have helped our cause."
Print "Please type your name if it appears!

folder$ = CurrentDir()
myDir = ReadDir(folder$)

Repeat
file$ = NextFile$(myDir)
If file$ = Upper$(Right$(".CHR", 4)) Then
Print file$
If file$ = "" Then Exit

EndIf
Forever

charname$ = Input$()
filein = ReadFile(charname$ + ".chr")
charname$ = ReadString(charname$)
classname$ = ReadString(classname$)

Print charname$
Print classname$
End Function