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
const Statistics = 1
const Advantages = 2
const Disadvantages = 3
const Quirks = 4
const Perks = 5
const Skills = 6
const Spells = 7
const Equipment = 8
const Templates = 9
'****************************************
'Creating options
'****************************************
Sub CharacterSheetOptions()
End Sub
'****************************************
'The Main Module, where the sheet starts
'****************************************
Sub Main()
Dim width, height, str
width = PageWidth - PrefMarginLeft - PrefMarginRight
height = PageHeight - PrefMarginTop - PrefMarginBottom
str = "{"
str = str & " === Char fields ===\line "
str = str & "Char.Age: " & Char.Age & "\line "
str = str & "Char.Appearance: " & Char.Appearance & "\line "
str = str & "Char.BaseSw: " & Char.BaseSw & "\line "
str = str & "Char.BaseSwAdds: " & Char.BaseSwAdds & "\line "
str = str & "Char.BaseSwDice: " & Char.BaseSwDice & "\line "
str = str & "Char.BaseTh: " & Char.BaseTh & "\line "
str = str & "Char.BaseThAdds: " & Char.BaseThAdds & "\line "
str = str & "Char.BaseThDice: " & Char.BaseThDice & "\line "
str = str & "Char.BlockIdKey: " & Char.BlockIdKey & "\line "
str = str & "Char.BlockScore: " & Char.BlockScore & "\line "
str = str & "Char.BlockUsing: " & Char.BlockUsing & "\line "
str = str & "Char.Char.Campaign.LoggedPoints: " & Char.Campaign.LoggedPoints & "\line "
str = str & "Char.Cost(Statistics): " & Char.Cost(Statistics) & "\line "
str = str & "Char.Cost(Advantages): " & Char.Cost(Advantages) & "\line "
str = str & "Char.Cost(Disadvantages): " & Char.Cost(Disadvantages) & "\line "
str = str & "Char.Cost(Quirks): " & Char.Cost(Quirks) & "\line "
str = str & "Char.Cost(Perks): " & Char.Cost(Perks) & "\line "
str = str & "Char.Cost(Skills): " & Char.Cost(Skills) & "\line "
str = str & "Char.Cost(Spells): " & Char.Cost(Spells) & "\line "
str = str & "Char.Cost(Equipment): " & Char.Cost(Equipment) & "\line "
str = str & "Char.Cost(Templates): " & Char.Cost(Templates) & "\line "
str = str & "Char.CurrentLoad: " & Char.CurrentLoad & "\line "
str = str & "Char.CurrentLoadOut: " & Char.CurrentLoadOut & "\line "
str = str & "Char.DateCreated: " & Char.DateCreated & "\line "
str = str & "Char.Description: " & Char.Description & "\line "
str = str & "Char.DollarCost: " & Char.DollarCost & "\line "
str = str & "Char.EncumbranceLevel: " & Char.EncumbranceLevel & "\line "
str = str & "Char.FullName: " & Char.FullName & "\line "
str = str & "Char.Height: " & Char.Height & "\line "
str = str & "Char.Name: " & Char.Name & "\line "
str = str & "Char.Notes: " & Char.Notes & "\line "
str = str & "\line === Continued on next page ===\line "
str = str & "}"
TextBox str, PrefMarginLeft, PrefMarginTop, width, height
NewPage
str = "{"
str = str & "Char.OtherDB: " & Char.OtherDB & "\line "
str = str & "Char.OtherDR: " & Char.OtherDR & "\line "
str = str & "Char.ParryIdKey: " & Char.ParryIdKey & "\line "
str = str & "Char.ParryScore: " & Char.ParryScore & "\line "
str = str & "Char.ParryUsing: " & Char.ParryUsing & "\line "
str = str & "Char.Player: " & Char.Player & "\line "
str = str & "Char.Portrait: " & Char.Portrait & "\line "
str = str & "Char.Race: " & Char.Race & "\line "
str = str & "Char.TL: " & Char.TL & "\line "
str = str & "Char.TotalPoints: " & Char.TotalPoints & "\line "
str = str & "Char.TotalWeight: " & Char.TotalWeight & "\line "
str = str & "Char.UnspentPoints: " & Char.UnspentPoints & "\line "
str = str & "Char.Weight: " & Char.Weight & "\line "
str = str & "\line "
str = str & "=== Complex fields whose data is not shown here ===\line "
str = str & "=== (See other examples that show what they have) ===\line "
str = str & "Char.Body(LocationKey)\line "
str = str & "Char.Cost(TraitType)\line "
str = str & "Char.Count(TraitType)\line "
str = str & "Char.ItemPositionByNameAndExt(ItemNameAndExt [, TypeWanted [, StartPos]])\line "
str = str & "Char.ItemPositionByNameOnly(ItemName [, TypeWanted [, StartPos]])\line "
str = str & "Char.ItemPositionBySymbol(ItemSymbol [, TypeWanted [, StartPos]])\line "
str = str & "Char.Items(TraitIdKey)\line "
str = str & "}"
TextBox str, PrefMarginLeft, PrefMarginTop, width, height
End Sub
