BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"How to read RPG dialogs from a text file", by dragonmood

Say you want to read characters dialogs that you want to use in a game.
You ll need :
1- a way to store it -> I propose text file in this format :
[0.0.1]
This is chapter 0,section 0,conversation 1,line 1
This is chapter 0,section 0,conversation 1,line 2
[0.0.2]
This is chapter 0,section 0,conversation 2,line 1
etc...
2 - and a function to read it from a blitz application -> my code.
Feel free touse,Any comment is welcome.

Code

Dim    dialog$ (16,16,16,4)          ; up to 4913 conversation and for each up to 5 lines !
ReadDialog("textfile.txt")
Write dialog$(0,0,2,2)

Function ReadDialog(FileToRead$)
     Local      fileobject,currentline$,chapter,section,conversation,conversation_line,pos1,pos2 
     Chapter=0                                                   ; Not really required but it is cleaner.
     section=0 
     conversation=0
     conversation_Line=0
     fileobject=ReadFile(FileToRead$)                    ; Open the text files          
     While Not Eof(fileobject)
          currentline$=ReadLine$(fileobject)
          If Instr (currentline,"[",1) <>0 Then          ; Check if the current line     is a tag [x.y.z]
               conversation_Line=0                              ; If so will extract from the line the array coordinates
               pos1=Instr (currentline,".",1)
               pos2=Instr (currentline,".",pos1+1)
               Chapter=Mid$(currentline,2,pos1-2)          ; The coordinates are then loaded in the local variables
               section=Mid$(currentline,pos1+1,pos2-pos1-1)
               conversation=Mid$(currentline,pos2+1,pos3-pos2-1)
          Else                                                  ; If not a tag assume it is a conversation line
               If chapter <= 16 And section <= 16 And conversation<=16 And conversation_line <= 3 Then     
                                                                 ; To avoid out of bound index.
                    dialog$(chapter,section,conversation,conversation_line)=currentline
                    conversation_line=conversation_line+1     ; Up to 4 conversation lines per tag !
               End If
          End If
     Wend
     CloseFile fileobject                                   ; Closing file
End Function

Code software created by Krylar's Kreations