"The Novelist" Thief III Book Writer - alpha 01 RELEASED

ProjectX on 16/7/2005 at 08:35

coudln't find out how to fix the color, sorry. Maybe a later version, eh?

I've done the loading code and the saving. The saved schemas actually work in-game, w00t!

Just a note, the parsing system is very strict. Some of the OS (Official Schemas) were dotted about with \n and <p>. In order to parse it needs the full \n<p>\n. Needless to say, my program will write it like this.

When loading a file with only a few of the languages in (not the full set) the program will chuck up an error, but it'll still load the file properly.

I'll probably be finished by the end of today.

GAH! shouldn't have said that. Now the parsers borked with the alignments!

ProjectX on 16/7/2005 at 09:07

right I'm pasting the VB here for the parse code. It's pretty simple in terms of structures and no doubt could be shortened. NOTE: This is for VB6, not .NET.

Code:

Public Sub Parse(Data As RichTextBox)
Dim Length As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim o As Integer
Length = Len(Data.Text)
For i = 1 To Length
If Length - i >= 1 Then
If Mid(Data.Text, i, 2) = "\n" Then
If Mid(Data.Text, i + 3, 4) = "font" Then
'do nout
ElseIf Mid(Data.Text, i + 3, 3) = "dc=" Then
'This bit doesn't work. I don't know why. It's supposed to set the color of the text.
Data.SelStart = i
For j = 0 To 3
If Mid(Data.Text, i + 6 + j, 1) = "," Then
Exit For
End If
Next j
For k = 0 To 3
If Mid(Data.Text, i + 6 + j + k + 1, 1) = "," Then
Exit For
End If
Next k
For l = 0 To 3
Debug.Print Mid(Data.Text, i + 6 + j + k + 2 + l, 1)
If Mid(Data.Text, i + 6 + j + k + 2 + l, 1) = ">" Then
Exit For
End If
Next l
Data.SelLength = Length - i
Data.SelColor = RGB(Mid(Data.Text, i + 6, j), Mid(Data.Text, i + 7 + j, k), Mid(Data.Text, i + 8 + j + k, l))
For o = i + 3 To i + 32
If Mid(Data.Text, o, 2) = "\n" Then
o = o + 2
Exit For
End If
Next o
Data.Text = Mid(Data.Text, 1, i - 1) & "(R:" & Mid(Data.Text, i + 6, j) & ",G:" & Mid(Data.Text, i + 7 + j, k) & ",B:" & Mid(Data.Text, i + 8 + j + k, l) & ") " & Mid(Data.Text, o)
Data.SelStart = i
'End of b0rked bit
'Check for left justify markers
ElseIf Mid(Data.Text, i + 3, 2) = "jl" Then
Data.Text = Mid(Data.Text, 1, i - 1) & Mid(Data.Text, i + 8)
Data.SelStart = i
Data.SelLength = Length - i
Data.SelAlignment = 0
'Check for right justify markers
ElseIf Mid(Data.Text, i + 3, 2) = "jr" Then
Data.Text = Mid(Data.Text, 1, i - 1) & Mid(Data.Text, i + 8)
Data.SelStart = i
Data.SelLength = Length - i
Data.SelAlignment = 1
'Check for center justify markers
ElseIf Mid(Data.Text, i + 3, 2) = "jc" Then
Data.Text = Mid(Data.Text, 1, i - 1) & Mid(Data.Text, i + 8)
Data.SelStart = i
Data.SelLength = Length - i
Data.SelAlignment = 2
'Check for line breaks
ElseIf Mid(Data.Text, i + 3, 2) = "br" Then
Data.Text = Mid(Data.Text, 1, i - 1) & Chr(13) & Mid(Data.Text, i + 8)
Data.SelStart = i
'Check for paragraph breaks
ElseIf Mid(Data.Text, i + 3, 2) = "p>" Then
Data.Text = Mid(Data.Text, 1, i - 1) & Chr(13) & Chr(13) & Mid(Data.Text, i + 7)
Data.SelStart = i
'Check for page breaks
ElseIf Mid(Data.Text, i + 3, 2) = "pb" Then
Data.Text = Mid(Data.Text, 1, i - 1) & Chr(13) & "-----------------Page Break------------" & Chr(13) & Mid(Data.Text, i + 8)
Data.SelStart = i
End If
End If
End If
Next i

Basically what happens is that the code for justifying works, except when I put another justification in at a differentpoint, after a break, the whole rich text box justifies in that way.

Also the color doesn't change the font color.

If anyone has any knowledge of VB and can work this out, please tell me.

potterr on 12/8/2005 at 22:46

don't know if you have resolved this yet but I think your RGB method may be incorrect:

Code:

Data.SelColor = RGB(Mid(Data.Text, i + 6, j), Mid(Data.Text, i + 7 + j, k), Mid(Data.Text, i + 8 + j + k, l))

effectively your rgb values are incorrect.

this simple bit of code works fine:

Code:

RichTextBox1.SelStart = 2
RichTextBox1.SelLength = 2
RichTextBox1.SelColor = vbRed
' or trying with
RichTextBox1.SelColor = RGB(255, 0, 0)

what you may want to do is set 3 variables to verify the values of R G and B and possibly convert then to numerics rather than strings using val(Mid(Data.Text, i + 6, j)).

Gonchong on 16/8/2005 at 15:45

Hey,

Any chance of releasing an alpha version of this? Doesn't matter if it doesn't fully work - I'm about to write some books :D

ProjectX on 19/8/2005 at 12:38

yeah I'll wrap it up and ship it out ASAP, got a beta of my mod to try out, etc fist though.

This alpha has only one working feature though:

you will be able to type normal text and the novellist will insert formatting instructions for you (e.g. you hit the enter key and it adds \n<br>\n)

So far this works in-game.

ProjectX on 1/9/2005 at 18:14

OK, the first alpha is done!

I just need somewhere to upload the 251KB .rar file.

SubJeff on 2/9/2005 at 09:51

Recommend changing the thread title and add to the text of the 1st post.

Gonchong on 2/9/2005 at 10:04

Email me the file and I'll happily host it. You could probably upload it to the thiefmissions.com Thief 3 Work-in-progress section as well.

Ziemanskye on 2/9/2005 at 10:14

and (www.rapidshare.de) would probably do for short-term stuff

scumble on 2/9/2005 at 10:47

Send it to me and I could put it in the wiki area, if you like.