Show Char.Body Fields Example

From GCAWiki

'VBScript
'The line above must be the very first line of the file.
'
'NOTE:
'This GCS file will only work with characters saved by
'GCA 4!
'
'Original work By Armin D. Sykes
'This sheet created by John Petritis
'
'Version 1.0
'Last update: November 28, 2008
'

Option Explicit

const PrefMarginLeft = .5
const PrefMarginRight = .5
const PrefMarginTop = .5
const PrefMarginBottom = .5

'****************************************
'Creating options
'****************************************
Sub CharacterSheetOptions()


End Sub

'****************************************
'The Main Module, where the sheet starts
'****************************************
Sub Main()

Dim i
Dim str, linesShown, width, height

str = "{"

linesShown = 0
width = PageWidth - PrefMarginLeft - PrefMarginRight
height = PageHeight - PrefMarginTop - PrefMarginBottom

str = str & "=== Char.Body ===\line\line "
str = str & "Char.Body.Count: " & Char.Body.Count & "\line\line "
linesShown = linesShown + 4

For i = 1 To Char.Body.Count
	str = str & "Char.Body(" & i & ") "
	If Char.Body(i).Display Then
		str = str & "should BE displayed\line "
		str = str & "    Char.Body(" & i & ").Name " & Char.Body(i).Name & "\line "
		str = str & "    Char.Body(" & i & ").DB " & Char.Body(i).DB & "\line "
		str = str & "    Char.Body(" & i & ").DR " & Char.Body(i).DR & "\line "
		str = str & "    Char.Body(" & i & ").HP " & Char.Body(i).HP & "\line "
		linesShown = linesShown + 5
	Else
		str = str & "should NOT be displayed\line "
		str = str & "    Char.Body(" & i & ").Name " & Char.Body(i).Name & "\line "
		linesShown = linesShown + 2
	End If
	If i <> Char.Body.Count Then
		If linesShown > 50 Then
			str = str & "\line === Continued on Next Page ===\line "
			str = str & "}"
			TextBox str, PrefMarginLeft, PrefMarginTop, width, height
			NewPage
			str = "{"
			linesShown = 0
		End If
	End If
Next

str = str & "}"

TextBox str, PrefMarginLeft, PrefMarginTop, width, height

End Sub