RbBFBlokProjPSIVStrn2009.02 ACnmStrnAChpStrnACsvStrnVer1Strn0 Ver2Strn2 Ver3Strn1 RelsStrn0 NnRlStrn5 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt =prTpInt DLanInt CLanInt DEncInt BflgInt rIconGrupnKEndGInt nKMacCStrnBCarStrnMy Application BCMOStrn DiceThrow X 2 BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrn DiceThrow 2 BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn xDiceThrow2 BCXFInt DgCLStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj;NameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$nLnameStrnMenuBar PValInt "EndGInt nLVwBhGrupnMEndGInt nMCnstGrupnNnameStrnkFileQuitShortcut CompStrnVsblInt EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0nOpltfInt langInt defnStrnCmd+Q EndGInt nOCInsGrup0nPpltfInt langInt defnStrnCtrl+Q EndGInt nPEndGInt nNCnstGrupnQnameStrn kFileQuit CompStrnVsblInt EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0nRpltfInt langInt defnStrnE&xit EndGInt nREndGInt nQCnstGrupnSnameStrn kEditClear CompStrnVsblInt EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0nTpltfInt langInt defnStrn&Delete EndGInt nTCInsGrup0nUpltfInt langInt defnStrn&Delete EndGInt nUEndGInt nSPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew=NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrupnVnameStrnOpenCompStrnVsblInt sorcGrupnWEncoInt srclStrn Sub Open() srclStrnDim l As IntegersrclStrnsrclStrnmme.Title = "DiceThrow 2 - " + str(app.MajorVersion) + "." + str(app.MinorVersion) + "." + str(app.BugVersion) srclStrnSelect Case app.StageCode srclStrnCase 0 srclStrn]me.Title = me.Title + "." + str(app.NonReleaseVersion) + "-dev [" + str(app.BuildDate) + "]" srclStrnCase 1 srclStrnAme.Title = me.Title + "." + str(app.NonReleaseVersion) + " Alpha" srclStrnCase 2 srclStrnme.Title = me.Title + " Beta" srclStrnCase 3 srclStrnme.Title = me.Title srclStrn End Select srclStrnsrclStrnfor l = 0 to 3 srclStrn DieBox(l).FillColor = rgb(0,0,0)srclStrn'DieText(l).TextColor = rgb(255,255,255) srclStrnnextsrclStrnsrclStrncbSkill.ListIndex = 3 srclStrncbDiff.ListIndex = 3srclStrnsrclStrnPushButton1.PushsrclStrnEnd Sub EndGInt nWEndGInt nVHInsGrupnXnameStrnClose CompStrnVsblInt sorcGrupXnYEncoInt srclStrn Sub Close() srclStrnQuitsrclStrnsrclStrnEnd Sub EndGInt nYEndGInt nXMnuHGrupnZnameStrnmnuprefsUseCharValues CompStrnVsblInt sorcGrupDn[EncoInt srclStrn+Function mnuprefsUseCharValues() As Boolean srclStrn%If mnuprefsUseCharValues.Checked Then srclStrn%mnuprefsUseCharValues.Checked = False srclStrncbSkill.Enabled = False srclStrncbDiff.Enabled = False srclStrnUseValues = False srclStrnElsesrclStrn$mnuprefsUseCharValues.Checked = TruesrclStrnUseValues = TruesrclStrncbSkill.Enabled = True srclStrncbDiff.Enabled = True srclStrnEnd If srclStrnUseFunc = DispDice()srclStrn Return True srclStrnsrclStrnsrclStrnsrclStrn End FunctionEndGInt n[EndGInt nZMnuHGrupn\nameStrnmnuRulesCompStrnVsblInt sorcGrup<n]EncoInt srclStrnFunction mnuRules() As Boolean srclStrn Window2.ShowsrclStrn!Window2.left = Window1.Width + 10 srclStrnWindow2.top = Window1.top + 10 srclStrnWindow2.Width = 600 srclStrn$Window2.Height = Window1.Height - 20srclStrn Return True srclStrnsrclStrn End FunctionEndGInt n]EndGInt n\PDefGrup<n^nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt n^PDefGrup0n_nameStrnMenuBar PValStrn 571742207 EndGInt n_PDefGrup(n`nameStrn MacProcID PValInt EndGInt n`PDefGrup0nanameStrnMinimizeButton PValStrnTrueEndGInt naPDefGrup4nbnameStrnMaximizeButton PValStrnFalse EndGInt nbPDefGrup0ncnameStrn LiveResize PValStrnFalse EndGInt ncPDefGrup0ndnameStrn Resizeable PValStrnFalse EndGInt ndPDefGrup,nenameStrn CloseButton PValStrnTrueEndGInt nePDefGrup0nfnameStrnMenuBarVisible PValStrnTrueEndGInt nfPDefGrup0ngnameStrn FullScreen PValStrnFalse EndGInt ngPDefGrup(nhnameStrnVisible PValStrnTrueEndGInt nhPDefGrup8ninameStrnTitle EncoInt PValStrnUntitledEndGInt niPDefGrup$njnameStrnBackdropPValStrnEndGInt njPDefGrup(nknameStrn BackColor PValInt EndGInt nkPDefGrup0nlnameStrn HasBackColorPValStrnFalse EndGInt nlPDefGrup0nmnameStrn Composite PValStrnFalse EndGInt nmPDefGrup$nnnameStrnFrame PValInt EndGInt nnPDefGrup(nonameStrn MaxHeight PValInt }EndGInt noPDefGrup$npnameStrnMaxWidthPValInt }EndGInt npPDefGrup(nqnameStrn MinHeight PValInt @EndGInt nqPDefGrup$nrnameStrnMinWidthPValInt @EndGInt nrPDefGrup$nsnameStrnHeight PValInt EndGInt nsPDefGrup$ntnameStrnWidth PValInt  EndGInt ntPDefGrup(nunameStrn Placement PValInt EndGInt nuVwBhGrupnvVwPrGrupDnwNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt nwVwPrGrupLnxNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt nxVwPrGrupHnyNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt nyVwPrGrup0nzNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupn{defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt n{EndGInt nzVwPrGruppn|NameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt n|VwPrGruppn}NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt n}VwPrGruppn~NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt n~VwPrGruptnNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt nVwPrGruptnNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt nVwPrGrupxnNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt nVwPrGrup nNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppndefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt nEndGInt nVwPrGrup|nNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt nVwPrGrup|nNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt nVwPrGrup|nNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt nVwPrGrupxnNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt nVwPrGrupxnNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt nVwPrGruptnNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt nVwPrGrup|nNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt nVwPrGrup|nNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt nVwPrGrupxnNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt nVwPrGrupxnNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt nVwPrGrupxnNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt nVwPrGrupnNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt nVwPrGrup|nNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt nVwPrGrupxnNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt nVwPrGrupxnNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt nVwPrGrup|nNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt nEndGInt nvCBhvGrupnSuprStrnGroupBoxEndGInt nCBhvGrup nSuprStrnRoundRectangle EndGInt nCBhvGrupnSuprStrn StaticText EndGInt nCBhvGrupnSuprStrnGroupBoxEndGInt nCBhvGrupnSuprStrn RadioButton HInsGrupnnameStrnAction CompStrnVsblInt sorcGrupHnEncoInt srclStrnSub Action(index as Integer)srclStrnSelect Case index srclStrnCase 0 srclStrn UseFunc = ChangeRoller("Colors")srclStrnCase 1 srclStrnUseFunc = ChangeRoller("4d6-4") srclStrnCase 2 srclStrn!UseFunc = ChangeRoller("Percent") srclStrn End Select srclStrnEnd Sub EndGInt nEndGInt nEndGInt nCBhvGrupnSuprStrnGroupBoxEndGInt nCBhvGruphnSuprStrn PushButton HInsGrup4nnameStrnAction CompStrnVsblInt sorcGrupnEncoInt srclStrn Sub Action()srclStrnDim l As IntegersrclStrnsrclStrnFor l = 0 to 3 srclStrnDie(l) = RollDice(0,5) srclStrnnextsrclStrnsrclStrnUseFunc = DispDice()srclStrnsrclStrnEnd Sub EndGInt nEndGInt nEndGInt nCBhvGrupnSuprStrnGroupBoxEndGInt nCBhvGrupnSuprStrn StaticText EndGInt nCBhvGrupnSuprStrnGroupBoxEndGInt nCBhvGrupnSuprStrn PopupMenu HInsGrupnnameStrnChange CompStrnVsblInt sorcGrupnEncoInt srclStrn Sub Change()srclStrnSkill = me.ListIndex - 1srclStrnIf Skill = -1 Then Skill = -2 srclStrnsrclStrnEnd Sub EndGInt nEndGInt nEndGInt nCBhvGrupnSuprStrn StaticText EndGInt nCBhvGrupnSuprStrn PopupMenu HInsGrupnnameStrnChange CompStrnVsblInt sorcGrupnEncoInt srclStrn Sub Change()srclStrnDiff = Me.ListIndex - 1 srclStrnIf Diff = -1 Then Diff = -2 srclStrnsrclStrnEnd Sub EndGInt nEndGInt nEndGInt nCBhvGrupnSuprStrn StaticText EndGInt nCtrlGrupncclsStrnGroupBoxnameStrnGroupBoxPDefGrup8nnameStrn InitialParent EncoInt PValStrnEndGInt nPDefGrup(nnameStrn Underline PValStrnEndGInt nPDefGrup$nnameStrnItalic PValStrnEndGInt nPDefGrup nnameStrnBoldPValStrnEndGInt nPDefGrup$nnameStrnTextSizePValInt EndGInt nPDefGrup8nnameStrnTextFontEncoInt PValStrnSystem EndGInt nPDefGrup0nnameStrnAutoDeactivate PValStrnTrueEndGInt nPDefGrup0nnameStrnHelpTag EncoInt PValStrnEndGInt nPDefGrup(nnameStrnVisible PValStrnTrueEndGInt nPDefGrup(nnameStrnEnabled PValStrnTrueEndGInt nPDefGrup4nnameStrnCaption EncoInt PValStrnDiceEndGInt nPDefGrup$nnameStrnTabIndexPValInt EndGInt nPDefGrup,nnameStrn TabPanelIndex PValInt EndGInt nPDefGrup(nnameStrn LockBottom PValStrnEndGInt nPDefGrup(nnameStrn LockRight PValStrnEndGInt nPDefGrup$nnameStrnLockTop PValStrnEndGInt nPDefGrup$nnameStrnLockLeftPValStrnEndGInt nPDefGrup$nnameStrnHeight PValInt EndGInt nPDefGrup$nnameStrnWidth PValInt EndGInt nPDefGrup nnameStrnTop PValInt EndGInt nPDefGrup nnameStrnLeftPValInt EndGInt nPDefGrup(nnameStrnScope PValStrn0 EndGInt nPDefGrup8nnameStrnSuper EncoInt PValStrnGroupBoxEndGInt nPDefGrup$nnameStrnIndex PValInt EndGInt nPDefGrup8nnameStrnNameEncoInt PValStrn GroupBox1 EndGInt nCBixInt iLckInt EndGInt nCtrlGrupDncclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupDnnameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt nPDefGrup(nnameStrn OvalHeight PValInt EndGInt nPDefGrup(nnameStrn OvalWidth PValInt EndGInt nPDefGrup(nnameStrn BorderColor PValInt EndGInt nPDefGrup(nnameStrn BorderWidth PValInt EndGInt nPDefGrup(nnameStrn FillColor PValInt EndGInt nPDefGrup(nnameStrnEnabled PValStrnTrueEndGInt nPDefGrup0nnameStrnAutoDeactivate PValStrnTrueEndGInt nPDefGrup0nnameStrnHelpTag EncoInt PValStrnEndGInt nPDefGrup(nnameStrnVisible PValStrnTrueEndGInt nPDefGrup,nnameStrn TabPanelIndex PValInt EndGInt nPDefGrup(nnameStrn LockBottom PValStrnEndGInt nPDefGrup(nnameStrn LockRight PValStrnEndGInt nPDefGrup$nnameStrnLockTop PValStrnEndGInt nPDefGrup$nnameStrnLockLeftPValStrnEndGInt nPDefGrup$nnameStrnHeight PValInt dEndGInt nPDefGrup$nnameStrnWidth PValInt dEndGInt nPDefGrup nnameStrnTop PValInt ,EndGInt nPDefGrup nnameStrnLeftPValInt ,EndGInt nPDefGrup(nnameStrnScope PValStrn0 EndGInt nPDefGrup@nnameStrnSuper EncoInt PValStrnRoundRectangle EndGInt nPDefGrup$nnameStrnIndex PValInt EndGInt nPDefGrup4nnameStrnNameEncoInt PValStrnDieBox EndGInt nCBixInt iLckInt EndGInt nCtrlGrupncclsStrn StaticText nameStrn StaticText PDefGrup@nnameStrn InitialParent EncoInt PValStrnDieBox$0EndGInt nPDefGrup4nnameStrn DataField EncoInt PValStrnEndGInt nPDefGrup4nnameStrn DataSource EncoInt PValStrnEndGInt nPDefGrup(nnameStrn Underline PValStrnEndGInt nPDefGrup$nnameStrnItalic PValStrnEndGInt nPDefGrup$nnameStrnBoldPValStrnTrueEndGInt nPDefGrup$nnameStrnTextSizePValInt @EndGInt nPDefGrup8nnameStrnTextFontEncoInt PValStrnTahoma EndGInt nPDefGrup0nnameStrnAutoDeactivate PValStrnTrueEndGInt nPDefGrup0nnameStrnHelpTag EncoInt PValStrnEndGInt nPDefGrup(nnameStrnVisible PValStrnTrueEndGInt nPDefGrup(nnameStrnEnabled PValStrnTrueEndGInt nPDefGrup(nnameStrn Multiline PValStrnEndGInt nPDefGrup(nnameStrn TextColor PValInt EndGInt nPDefGrup(nnameStrn TextAlign PValInt EndGInt nPDefGrup0nnameStrnTextEncoInt PValStrn6 EndGInt nPDefGrup$nnameStrnTabIndexPValInt EndGInt nPDefGrup,nnameStrn TabPanelIndex PValInt EndGInt nPDefGrup(nnameStrn LockBottom PValStrnEndGInt nPDefGrup(nnameStrn LockRight PValStrnEndGInt nPDefGrup$nnameStrnLockTop PValStrnEndGInt nPDefGrup$nnameStrnLockLeftPValStrnEndGInt nPDefGrup$nnameStrnHeight PValInt dEndGInt nPDefGrup$nnameStrnWidth PValInt dEndGInt nPDefGrup nnameStrnTop PValInt ,EndGInt nPDefGrup nnameStrnLeftPValInt ,EndGInt nPDefGrup(nnameStrnScope PValStrn0 EndGInt nPDefGrup<nnameStrnSuper EncoInt PValStrn StaticText EndGInt nPDefGrup$nnameStrnIndex PValInt EndGInt nPDefGrup4nnameStrnNameEncoInt PValStrnDieText EndGInt nCBixInt iLckInt EndGInt nCtrlGrupDncclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupDnnameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt nPDefGrup(nnameStrn OvalHeight PValInt EndGInt nPDefGrup(nnameStrn OvalWidth PValInt EndGInt nPDefGrup(nnameStrn BorderColor PValInt EndGInt nPDefGrup(onameStrn BorderWidth PValInt EndGInt oPDefGrup(onameStrn FillColor PValInt EndGInt oPDefGrup(onameStrnEnabled PValStrnTrueEndGInt oPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0onameStrnHelpTag EncoInt PValStrnEndGInt oPDefGrup(onameStrnVisible PValStrnTrueEndGInt oPDefGrup,onameStrn TabPanelIndex PValInt EndGInt oPDefGrup(onameStrn LockBottom PValStrnEndGInt oPDefGrup(onameStrn LockRight PValStrnEndGInt oPDefGrup$o nameStrnLockTop PValStrnEndGInt o PDefGrup$o nameStrnLockLeftPValStrnEndGInt o PDefGrup$o nameStrnHeight PValInt dEndGInt o PDefGrup$o nameStrnWidth PValInt dEndGInt o PDefGrup o nameStrnTop PValInt ,EndGInt o PDefGrup onameStrnLeftPValInt EndGInt oPDefGrup(onameStrnScope PValStrn0 EndGInt oPDefGrup@onameStrnSuper EncoInt PValStrnRoundRectangle EndGInt oPDefGrup$onameStrnIndex PValInt EndGInt oPDefGrup4onameStrnNameEncoInt PValStrnDieBox EndGInt oCBixInt iLckInt EndGInt nCtrlGrupocclsStrn StaticText nameStrn StaticText PDefGrup@onameStrn InitialParent EncoInt PValStrnDieBox$1EndGInt oPDefGrup4onameStrn DataField EncoInt PValStrnEndGInt oPDefGrup4onameStrn DataSource EncoInt PValStrnEndGInt oPDefGrup(onameStrn Underline PValStrnEndGInt oPDefGrup$onameStrnItalic PValStrnEndGInt oPDefGrup$onameStrnBoldPValStrnTrueEndGInt oPDefGrup$onameStrnTextSizePValInt @EndGInt oPDefGrup8onameStrnTextFontEncoInt PValStrnTahoma EndGInt oPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0onameStrnHelpTag EncoInt PValStrnEndGInt oPDefGrup(onameStrnVisible PValStrnTrueEndGInt oPDefGrup(onameStrnEnabled PValStrnTrueEndGInt oPDefGrup(o nameStrn Multiline PValStrnEndGInt o PDefGrup(o!nameStrn TextColor PValInt EndGInt o!PDefGrup(o"nameStrn TextAlign PValInt EndGInt o"PDefGrup0o#nameStrnTextEncoInt PValStrn6 EndGInt o#PDefGrup$o$nameStrnTabIndexPValInt EndGInt o$PDefGrup,o%nameStrn TabPanelIndex PValInt EndGInt o%PDefGrup(o&nameStrn LockBottom PValStrnEndGInt o&PDefGrup(o'nameStrn LockRight PValStrnEndGInt o'PDefGrup$o(nameStrnLockTop PValStrnEndGInt o(PDefGrup$o)nameStrnLockLeftPValStrnEndGInt o)PDefGrup$o*nameStrnHeight PValInt dEndGInt o*PDefGrup$o+nameStrnWidth PValInt dEndGInt o+PDefGrup o,nameStrnTop PValInt ,EndGInt o,PDefGrup o-nameStrnLeftPValInt EndGInt o-PDefGrup(o.nameStrnScope PValStrn0 EndGInt o.PDefGrup<o/nameStrnSuper EncoInt PValStrn StaticText EndGInt o/PDefGrup$o0nameStrnIndex PValInt EndGInt o0PDefGrup4o1nameStrnNameEncoInt PValStrnDieText EndGInt o1CBixInt iLckInt EndGInt oCtrlGrupDo2cclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupDo3nameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt o3PDefGrup(o4nameStrn OvalHeight PValInt EndGInt o4PDefGrup(o5nameStrn OvalWidth PValInt EndGInt o5PDefGrup(o6nameStrn BorderColor PValInt EndGInt o6PDefGrup(o7nameStrn BorderWidth PValInt EndGInt o7PDefGrup(o8nameStrn FillColor PValInt EndGInt o8PDefGrup(o9nameStrnEnabled PValStrnTrueEndGInt o9PDefGrup0o:nameStrnAutoDeactivate PValStrnTrueEndGInt o:PDefGrup0o;nameStrnHelpTag EncoInt PValStrnEndGInt o;PDefGrup(onameStrn LockBottom PValStrnEndGInt o>PDefGrup(o?nameStrn LockRight PValStrnEndGInt o?PDefGrup$o@nameStrnLockTop PValStrnEndGInt o@PDefGrup$oAnameStrnLockLeftPValStrnEndGInt oAPDefGrup$oBnameStrnHeight PValInt dEndGInt oBPDefGrup$oCnameStrnWidth PValInt dEndGInt oCPDefGrup oDnameStrnTop PValInt ,EndGInt oDPDefGrup oEnameStrnLeftPValInt  EndGInt oEPDefGrup(oFnameStrnScope PValStrn0 EndGInt oFPDefGrup@oGnameStrnSuper EncoInt PValStrnRoundRectangle EndGInt oGPDefGrup$oHnameStrnIndex PValInt EndGInt oHPDefGrup4oInameStrnNameEncoInt PValStrnDieBox EndGInt oICBixInt iLckInt EndGInt o2CtrlGrupoJcclsStrn StaticText nameStrn StaticText PDefGrup@oKnameStrn InitialParent EncoInt PValStrnDieBox$2EndGInt oKPDefGrup4oLnameStrn DataField EncoInt PValStrnEndGInt oLPDefGrup4oMnameStrn DataSource EncoInt PValStrnEndGInt oMPDefGrup(oNnameStrn Underline PValStrnEndGInt oNPDefGrup$oOnameStrnItalic PValStrnEndGInt oOPDefGrup$oPnameStrnBoldPValStrnTrueEndGInt oPPDefGrup$oQnameStrnTextSizePValInt @EndGInt oQPDefGrup8oRnameStrnTextFontEncoInt PValStrnTahoma EndGInt oRPDefGrup0oSnameStrnAutoDeactivate PValStrnTrueEndGInt oSPDefGrup0oTnameStrnHelpTag EncoInt PValStrnEndGInt oTPDefGrup(oUnameStrnVisible PValStrnTrueEndGInt oUPDefGrup(oVnameStrnEnabled PValStrnTrueEndGInt oVPDefGrup(oWnameStrn Multiline PValStrnEndGInt oWPDefGrup(oXnameStrn TextColor PValInt EndGInt oXPDefGrup(oYnameStrn TextAlign PValInt EndGInt oYPDefGrup0oZnameStrnTextEncoInt PValStrn6 EndGInt oZPDefGrup$o[nameStrnTabIndexPValInt EndGInt o[PDefGrup,o\nameStrn TabPanelIndex PValInt EndGInt o\PDefGrup(o]nameStrn LockBottom PValStrnEndGInt o]PDefGrup(o^nameStrn LockRight PValStrnEndGInt o^PDefGrup$o_nameStrnLockTop PValStrnEndGInt o_PDefGrup$o`nameStrnLockLeftPValStrnEndGInt o`PDefGrup$oanameStrnHeight PValInt dEndGInt oaPDefGrup$obnameStrnWidth PValInt dEndGInt obPDefGrup ocnameStrnTop PValInt ,EndGInt ocPDefGrup odnameStrnLeftPValInt  EndGInt odPDefGrup(oenameStrnScope PValStrn0 EndGInt oePDefGrup<ofnameStrnSuper EncoInt PValStrn StaticText EndGInt ofPDefGrup$ognameStrnIndex PValInt EndGInt ogPDefGrup4ohnameStrnNameEncoInt PValStrnDieText EndGInt ohCBixInt iLckInt EndGInt oJCtrlGrupDoicclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupDojnameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt ojPDefGrup(oknameStrn OvalHeight PValInt EndGInt okPDefGrup(olnameStrn OvalWidth PValInt EndGInt olPDefGrup(omnameStrn BorderColor PValInt EndGInt omPDefGrup(onnameStrn BorderWidth PValInt EndGInt onPDefGrup(oonameStrn FillColor PValInt EndGInt ooPDefGrup(opnameStrnEnabled PValStrnTrueEndGInt opPDefGrup0oqnameStrnAutoDeactivate PValStrnTrueEndGInt oqPDefGrup0ornameStrnHelpTag EncoInt PValStrnEndGInt orPDefGrup(osnameStrnVisible PValStrnTrueEndGInt osPDefGrup,otnameStrn TabPanelIndex PValInt EndGInt otPDefGrup(ounameStrn LockBottom PValStrnEndGInt ouPDefGrup(ovnameStrn LockRight PValStrnEndGInt ovPDefGrup$ownameStrnLockTop PValStrnEndGInt owPDefGrup$oxnameStrnLockLeftPValStrnEndGInt oxPDefGrup$oynameStrnHeight PValInt dEndGInt oyPDefGrup$oznameStrnWidth PValInt dEndGInt ozPDefGrup o{nameStrnTop PValInt ,EndGInt o{PDefGrup o|nameStrnLeftPValInt |EndGInt o|PDefGrup(o}nameStrnScope PValStrn0 EndGInt o}PDefGrup@o~nameStrnSuper EncoInt PValStrnRoundRectangle EndGInt o~PDefGrup$onameStrnIndex PValInt EndGInt oPDefGrup4onameStrnNameEncoInt PValStrnDieBox EndGInt oCBixInt iLckInt EndGInt oiCtrlGrupocclsStrn StaticText nameStrn StaticText PDefGrup@onameStrn InitialParent EncoInt PValStrnDieBox$3EndGInt oPDefGrup4onameStrn DataField EncoInt PValStrnEndGInt oPDefGrup4onameStrn DataSource EncoInt PValStrnEndGInt oPDefGrup(onameStrn Underline PValStrnEndGInt oPDefGrup$onameStrnItalic PValStrnEndGInt oPDefGrup$onameStrnBoldPValStrnTrueEndGInt oPDefGrup$onameStrnTextSizePValInt @EndGInt oPDefGrup8onameStrnTextFontEncoInt PValStrnTahoma EndGInt oPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0onameStrnHelpTag EncoInt PValStrnEndGInt oPDefGrup(onameStrnVisible PValStrnTrueEndGInt oPDefGrup(onameStrnEnabled PValStrnTrueEndGInt oPDefGrup(onameStrn Multiline PValStrnEndGInt oPDefGrup(onameStrn TextColor PValInt EndGInt oPDefGrup(onameStrn TextAlign PValInt EndGInt oPDefGrup0onameStrnTextEncoInt PValStrn6 EndGInt oPDefGrup$onameStrnTabIndexPValInt EndGInt oPDefGrup,onameStrn TabPanelIndex PValInt EndGInt oPDefGrup(onameStrn LockBottom PValStrnEndGInt oPDefGrup(onameStrn LockRight PValStrnEndGInt oPDefGrup$onameStrnLockTop PValStrnEndGInt oPDefGrup$onameStrnLockLeftPValStrnEndGInt oPDefGrup$onameStrnHeight PValInt dEndGInt oPDefGrup$onameStrnWidth PValInt dEndGInt oPDefGrup onameStrnTop PValInt ,EndGInt oPDefGrup onameStrnLeftPValInt |EndGInt oPDefGrup(onameStrnScope PValStrn0 EndGInt oPDefGrup<onameStrnSuper EncoInt PValStrn StaticText EndGInt oPDefGrup$onameStrnIndex PValInt EndGInt oPDefGrup4onameStrnNameEncoInt PValStrnDieText EndGInt oCBixInt iLckInt EndGInt oCtrlGrupocclsStrnGroupBoxnameStrnGroupBoxPDefGrup8onameStrn InitialParent EncoInt PValStrnEndGInt oPDefGrup(onameStrn Underline PValStrnEndGInt oPDefGrup$onameStrnItalic PValStrnEndGInt oPDefGrup onameStrnBoldPValStrnEndGInt oPDefGrup$onameStrnTextSizePValInt EndGInt oPDefGrup8onameStrnTextFontEncoInt PValStrnSystem EndGInt oPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0onameStrnHelpTag EncoInt PValStrnEndGInt oPDefGrup(onameStrnVisible PValStrnTrueEndGInt oPDefGrup(onameStrnEnabled PValStrnTrueEndGInt oPDefGrup4onameStrnCaption EncoInt PValStrnTypeEndGInt oPDefGrup$onameStrnTabIndexPValInt EndGInt oPDefGrup,onameStrn TabPanelIndex PValInt EndGInt oPDefGrup(onameStrn LockBottom PValStrnEndGInt oPDefGrup(onameStrn LockRight PValStrnEndGInt oPDefGrup$onameStrnLockTop PValStrnEndGInt oPDefGrup$onameStrnLockLeftPValStrnEndGInt oPDefGrup$onameStrnHeight PValInt 2EndGInt oPDefGrup$onameStrnWidth PValInt EndGInt oPDefGrup onameStrnTop PValInt EndGInt oPDefGrup onameStrnLeftPValInt EndGInt oPDefGrup(onameStrnScope PValStrn0 EndGInt oPDefGrup8onameStrnSuper EncoInt PValStrnGroupBoxEndGInt oPDefGrup$onameStrnIndex PValInt EndGInt oPDefGrup8onameStrnNameEncoInt PValStrn GroupBox2 EndGInt oCBixInt iLckInt EndGInt oCtrlGrup@occlsStrn RadioButton nameStrn RadioButton PDefGrupDonameStrn InitialParent EncoInt PValStrn GroupBox2 EndGInt oPDefGrup$onameStrnValue PValStrnEndGInt oPDefGrup(onameStrn Underline PValStrnEndGInt oPDefGrup$onameStrnItalic PValStrnEndGInt oPDefGrup onameStrnBoldPValStrnEndGInt oPDefGrup$onameStrnTextSizePValInt EndGInt oPDefGrup8onameStrnTextFontEncoInt PValStrnSystem EndGInt oPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0onameStrnHelpTag EncoInt PValStrnEndGInt oPDefGrup(onameStrnVisible PValStrnTrueEndGInt oPDefGrup(onameStrnEnabled PValStrnTrueEndGInt oPDefGrup8onameStrnCaption EncoInt PValStrnColors EndGInt oPDefGrup(onameStrnTabStop PValStrnTrueEndGInt oPDefGrup$onameStrnTabIndexPValInt EndGInt oPDefGrup,onameStrn TabPanelIndex PValInt EndGInt oPDefGrup(onameStrn LockBottom PValStrnEndGInt oPDefGrup(onameStrn LockRight PValStrnEndGInt oPDefGrup$onameStrnLockTop PValStrnEndGInt oPDefGrup$onameStrnLockLeftPValStrnEndGInt oPDefGrup$onameStrnHeight PValInt EndGInt oPDefGrup$onameStrnWidth PValInt nameStrnWidth PValInt EndGInt p>PDefGrup p?nameStrnTop PValInt EndGInt p?PDefGrup p@nameStrnLeftPValInt EndGInt p@PDefGrup(pAnameStrnScope PValStrn0 EndGInt pAPDefGrup<pBnameStrnSuper EncoInt PValStrn PushButton EndGInt pBPDefGrup$pCnameStrnIndex PValInt EndGInt pCPDefGrup8pDnameStrnNameEncoInt PValStrn PushButton1 EndGInt pDCBixInt iLckInt EndGInt p(CtrlGruppEcclsStrnGroupBoxnameStrnGroupBoxPDefGrup8pFnameStrn InitialParent EncoInt PValStrnEndGInt pFPDefGrup(pGnameStrn Underline PValStrnEndGInt pGPDefGrup$pHnameStrnItalic PValStrnEndGInt pHPDefGrup pInameStrnBoldPValStrnEndGInt pIPDefGrup$pJnameStrnTextSizePValInt EndGInt pJPDefGrup8pKnameStrnTextFontEncoInt PValStrnSystem EndGInt pKPDefGrup0pLnameStrnAutoDeactivate PValStrnTrueEndGInt pLPDefGrup0pMnameStrnHelpTag EncoInt PValStrnEndGInt pMPDefGrup(pNnameStrnVisible PValStrnTrueEndGInt pNPDefGrup(pOnameStrnEnabled PValStrnTrueEndGInt pOPDefGrup8pPnameStrnCaption EncoInt PValStrnResult EndGInt pPPDefGrup$pQnameStrnTabIndexPValInt EndGInt pQPDefGrup,pRnameStrn TabPanelIndex PValInt EndGInt pRPDefGrup(pSnameStrn LockBottom PValStrnEndGInt pSPDefGrup(pTnameStrn LockRight PValStrnEndGInt pTPDefGrup$pUnameStrnLockTop PValStrnEndGInt pUPDefGrup$pVnameStrnLockLeftPValStrnEndGInt pVPDefGrup$pWnameStrnHeight PValInt EndGInt pWPDefGrup$pXnameStrnWidth PValInt EndGInt pXPDefGrup pYnameStrnTop PValInt EndGInt pYPDefGrup pZnameStrnLeftPValInt EndGInt pZPDefGrup(p[nameStrnScope PValStrn0 EndGInt p[PDefGrup8p\nameStrnSuper EncoInt PValStrnGroupBoxEndGInt p\PDefGrup$p]nameStrnIndex PValInt EndGInt p]PDefGrup8p^nameStrnNameEncoInt PValStrn GroupBox4 EndGInt p^CBixInt iLckInt EndGInt pECtrlGrup p_cclsStrn StaticText nameStrn StaticText PDefGrupDp`nameStrn InitialParent EncoInt PValStrn GroupBox4 EndGInt p`PDefGrup4panameStrn DataField EncoInt PValStrnEndGInt paPDefGrup4pbnameStrn DataSource EncoInt PValStrnEndGInt pbPDefGrup(pcnameStrn Underline PValStrnEndGInt pcPDefGrup$pdnameStrnItalic PValStrnEndGInt pdPDefGrup$penameStrnBoldPValStrnTrueEndGInt pePDefGrup$pfnameStrnTextSizePValInt `EndGInt pfPDefGrup8pgnameStrnTextFontEncoInt PValStrnArial EndGInt pgPDefGrup0phnameStrnAutoDeactivate PValStrnTrueEndGInt phPDefGrup0pinameStrnHelpTag EncoInt PValStrnEndGInt piPDefGrup(pjnameStrnVisible PValStrnTrueEndGInt pjPDefGrup(pknameStrnEnabled PValStrnTrueEndGInt pkPDefGrup0plnameStrn Multiline PValStrnFalse EndGInt plPDefGrup(pmnameStrn TextColor PValInt EndGInt pmPDefGrup(pnnameStrn TextAlign PValInt EndGInt pnPDefGrup0ponameStrnTextEncoInt PValStrn20 EndGInt poPDefGrup$ppnameStrnTabIndexPValInt EndGInt ppPDefGrup,pqnameStrn TabPanelIndex PValInt EndGInt pqPDefGrup(prnameStrn LockBottom PValStrnEndGInt prPDefGrup(psnameStrn LockRight PValStrnEndGInt psPDefGrup$ptnameStrnLockTop PValStrnEndGInt ptPDefGrup$punameStrnLockLeftPValStrnEndGInt puPDefGrup$pvnameStrnHeight PValInt EndGInt pvPDefGrup$pwnameStrnWidth PValInt EndGInt pwPDefGrup pxnameStrnTop PValInt EndGInt pxPDefGrup pynameStrnLeftPValInt EndGInt pyPDefGrup(pznameStrnScope PValStrn0 EndGInt pzPDefGrup<p{nameStrnSuper EncoInt PValStrn StaticText EndGInt p{PDefGrup$p|nameStrnIndex PValInt EndGInt p|PDefGrup4p}nameStrnNameEncoInt PValStrnResText EndGInt p}CBixInt iLckInt EndGInt p_CtrlGrupp~cclsStrnGroupBoxnameStrnGroupBoxPDefGrup8pnameStrn InitialParent EncoInt PValStrnEndGInt pPDefGrup(pnameStrn Underline PValStrnEndGInt pPDefGrup$pnameStrnItalic PValStrnEndGInt pPDefGrup pnameStrnBoldPValStrnEndGInt pPDefGrup$pnameStrnTextSizePValInt EndGInt pPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup0pnameStrnAutoDeactivate PValStrnTrueEndGInt pPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(pnameStrnVisible PValStrnTrueEndGInt pPDefGrup(pnameStrnEnabled PValStrnTrueEndGInt pPDefGrup<pnameStrnCaption EncoInt PValStrn Character EndGInt pPDefGrup$pnameStrnTabIndexPValInt EndGInt pPDefGrup,pnameStrn TabPanelIndex PValInt EndGInt pPDefGrup(pnameStrn LockBottom PValStrnEndGInt pPDefGrup(pnameStrn LockRight PValStrnEndGInt pPDefGrup$pnameStrnLockTop PValStrnEndGInt pPDefGrup$pnameStrnLockLeftPValStrnEndGInt pPDefGrup$pnameStrnHeight PValInt EndGInt pPDefGrup$pnameStrnWidth PValInt EndGInt pPDefGrup pnameStrnTop PValInt EndGInt pPDefGrup pnameStrnLeftPValInt  EndGInt pPDefGrup(pnameStrnScope PValStrn0 EndGInt pPDefGrup8pnameStrnSuper EncoInt PValStrnGroupBoxEndGInt pPDefGrup$pnameStrnIndex PValInt EndGInt pPDefGrup8pnameStrnNameEncoInt PValStrn GroupBox5 EndGInt pCBixInt iLckInt EndGInt p~CtrlGruphpcclsStrn PopupMenu nameStrn PopupMenu PDefGrupDpnameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt pPDefGrup4pnameStrn DataField EncoInt PValStrnEndGInt pPDefGrup4pnameStrn DataSource EncoInt PValStrnEndGInt pPDefGrup(pnameStrn Underline PValStrnEndGInt pPDefGrup$pnameStrnItalic PValStrnEndGInt pPDefGrup pnameStrnBoldPValStrnEndGInt pPDefGrup$pnameStrnTextSizePValInt EndGInt pPDefGrup8pnameStrnTextFontEncoInt PValStrnArial EndGInt pPDefGrup0pnameStrnAutoDeactivate PValStrnTrueEndGInt pPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(pnameStrnVisible PValStrnTrueEndGInt pPDefGrup(pnameStrn ListIndex PValInt EndGInt pPDefGruppnameStrn InitialValueEncoInt PValStrnNegative (-2) Terrible (0) Poor (1) Fair (2) Good (3) Great (4) Superb (5) Heroic (6) Inhuman (7) Legendary (8) Godlike (9) Impossible (10) EndGInt pPDefGrup,pnameStrnEnabled PValStrnFalse EndGInt pPDefGrup(pnameStrnTabStop PValStrnTrueEndGInt pPDefGrup$pnameStrnTabIndexPValInt EndGInt pPDefGrup,pnameStrn TabPanelIndex PValInt EndGInt pPDefGrup(pnameStrn LockBottom PValStrnEndGInt pPDefGrup(pnameStrn LockRight PValStrnEndGInt pPDefGrup$pnameStrnLockTop PValStrnEndGInt pPDefGrup$pnameStrnLockLeftPValStrnEndGInt pPDefGrup$pnameStrnHeight PValInt EndGInt pPDefGrup$pnameStrnWidth PValInt EndGInt pPDefGrup pnameStrnTop PValInt "EndGInt pPDefGrup pnameStrnLeftPValInt EndGInt pPDefGrup(pnameStrnScope PValStrn0 EndGInt pPDefGrup<pnameStrnSuper EncoInt PValStrn PopupMenu EndGInt pPDefGrup$pnameStrnIndex PValInt EndGInt pPDefGrup4pnameStrnNameEncoInt PValStrncbSkill EndGInt pCBixInt iLckInt EndGInt pCtrlGrup(pcclsStrn StaticText nameStrn StaticText PDefGrupDpnameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt pPDefGrup4pnameStrn DataField EncoInt PValStrnEndGInt pPDefGrup4pnameStrn DataSource EncoInt PValStrnEndGInt pPDefGrup(pnameStrn Underline PValStrnEndGInt pPDefGrup$pnameStrnItalic PValStrnEndGInt pPDefGrup$pnameStrnBoldPValStrnTrueEndGInt pPDefGrup$pnameStrnTextSizePValInt EndGInt pPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup0pnameStrnAutoDeactivate PValStrnTrueEndGInt pPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(pnameStrnVisible PValStrnTrueEndGInt pPDefGrup(pnameStrnEnabled PValStrnTrueEndGInt pPDefGrup(pnameStrn Multiline PValStrnEndGInt pPDefGrup(pnameStrn TextColor PValInt EndGInt pPDefGrup(pnameStrn TextAlign PValInt EndGInt pPDefGrup<pnameStrnTextEncoInt PValStrnTotal Skill Lvl EndGInt pPDefGrup$pnameStrnTabIndexPValInt EndGInt pPDefGrup,pnameStrn TabPanelIndex PValInt EndGInt pPDefGrup(pnameStrn LockBottom PValStrnEndGInt pPDefGrup(pnameStrn LockRight PValStrnEndGInt pPDefGrup$pnameStrnLockTop PValStrnEndGInt pPDefGrup$pnameStrnLockLeftPValStrnEndGInt pPDefGrup$pnameStrnHeight PValInt EndGInt pPDefGrup$pnameStrnWidth PValInt EndGInt pPDefGrup pnameStrnTop PValInt EndGInt pPDefGrup pnameStrnLeftPValInt EndGInt pPDefGrup(pnameStrnScope PValStrn0 EndGInt pPDefGrup<pnameStrnSuper EncoInt PValStrn StaticText EndGInt pPDefGrup$pnameStrnIndex PValInt EndGInt pPDefGrup8pnameStrnNameEncoInt PValStrn StaticText1 EndGInt pCBixInt iLckInt EndGInt pCtrlGruphpcclsStrn PopupMenu nameStrn PopupMenu PDefGrupDpnameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt pPDefGrup4pnameStrn DataField EncoInt PValStrnEndGInt pPDefGrup4pnameStrn DataSource EncoInt PValStrnEndGInt pPDefGrup(pnameStrn Underline PValStrnEndGInt pPDefGrup$pnameStrnItalic PValStrnEndGInt pPDefGrup pnameStrnBoldPValStrnEndGInt pPDefGrup$pnameStrnTextSizePValInt EndGInt pPDefGrup8pnameStrnTextFontEncoInt PValStrnArial EndGInt pPDefGrup0pnameStrnAutoDeactivate PValStrnTrueEndGInt pPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(pnameStrnVisible PValStrnTrueEndGInt pPDefGrup(pnameStrn ListIndex PValInt EndGInt pPDefGruppnameStrn InitialValueEncoInt PValStrnNegative (-2) Terrible (0) Poor (1) Fair (2) Good (3) Great (4) Superb (5) Heroic (6) Inhuman (7) Legendary (8) Godlike (9) Impossible (10) EndGInt pPDefGrup,pnameStrnEnabled PValStrnFalse EndGInt pPDefGrup(pnameStrnTabStop PValStrnTrueEndGInt pPDefGrup$pnameStrnTabIndexPValInt EndGInt pPDefGrup,pnameStrn TabPanelIndex PValInt EndGInt pPDefGrup(pnameStrn LockBottom PValStrnEndGInt pPDefGrup(pnameStrn LockRight PValStrnEndGInt pPDefGrup$pnameStrnLockTop PValStrnEndGInt pPDefGrup$pnameStrnLockLeftPValStrnEndGInt pPDefGrup$pnameStrnHeight PValInt EndGInt pPDefGrup$pnameStrnWidth PValInt EndGInt pPDefGrup pnameStrnTop PValInt YEndGInt pPDefGrup pnameStrnLeftPValInt EndGInt pPDefGrup(pnameStrnScope PValStrn0 EndGInt pPDefGrup<pnameStrnSuper EncoInt PValStrn PopupMenu EndGInt pPDefGrup$pnameStrnIndex PValInt EndGInt pPDefGrup4pnameStrnNameEncoInt PValStrncbDiff EndGInt pCBixInt iLckInt EndGInt pCtrlGrup$pcclsStrn StaticText nameStrn StaticText PDefGrupDpnameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt pPDefGrup4pnameStrn DataField EncoInt PValStrnEndGInt pPDefGrup4pnameStrn DataSource EncoInt PValStrnEndGInt pPDefGrup(pnameStrn Underline PValStrnEndGInt pPDefGrup$pnameStrnItalic PValStrnEndGInt pPDefGrup$pnameStrnBoldPValStrnTrueEndGInt pPDefGrup$pnameStrnTextSizePValInt EndGInt pPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup0pnameStrnAutoDeactivate PValStrnTrueEndGInt pPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(pnameStrnVisible PValStrnTrueEndGInt pPDefGrup(pnameStrnEnabled PValStrnTrueEndGInt pPDefGrup(qnameStrn Multiline PValStrnEndGInt qPDefGrup(qnameStrn TextColor PValInt EndGInt qPDefGrup(qnameStrn TextAlign PValInt EndGInt qPDefGrup8qnameStrnTextEncoInt PValStrn Difficulty EndGInt qPDefGrup$qnameStrnTabIndexPValInt EndGInt qPDefGrup,qnameStrn TabPanelIndex PValInt EndGInt qPDefGrup(qnameStrn LockBottom PValStrnEndGInt qPDefGrup(qnameStrn LockRight PValStrnEndGInt qPDefGrup$qnameStrnLockTop PValStrnEndGInt qPDefGrup$q nameStrnLockLeftPValStrnEndGInt q PDefGrup$q nameStrnHeight PValInt EndGInt q PDefGrup$q nameStrnWidth PValInt EndGInt q PDefGrup q nameStrnTop PValInt FEndGInt q PDefGrup q nameStrnLeftPValInt EndGInt q PDefGrup(qnameStrnScope PValStrn0 EndGInt qPDefGrup<qnameStrnSuper EncoInt PValStrn StaticText EndGInt qPDefGrup$qnameStrnIndex PValInt EndGInt qPDefGrup8qnameStrnNameEncoInt PValStrn StaticText2 EndGInt qCBixInt iLckInt EndGInt pPadnPadn****************BlokpMnu" NameStrnMenuBar1ContInt paswStrnMItmGruppqspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupqspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt qEndGInt qMItmGrup\qspmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupqspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qMItmGrupqspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qEndGInt qMItmGruptqspmuInt nameStrnmnuPrefstextStrn Preferences indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupqspmuInt nameStrnmnuprefsUseCharValues textStrn&Use Skill and Difficulty indxInt scutStrnCmd+u MiSKStrnu MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qEndGInt qMItmGrupqspmuInt nameStrnmnuRulestextStrnRules indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt qPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjcw NameStrnxdice ContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupq nameStrnRollDiceCompStrnVsblInt sorcGrupq!EncoInt srclStrn>Function RollDice(nMin As Integer, nMax As Integer) As Integer srclStrnDim res As Integer srclStrnDim r As New Random srclStrnsrclStrnres = r.InRange(nMin,nMax) srclStrnsrclStrn return res srclStrnsrclStrn End FunctionEndGInt q!EncoInt AlasStrnflagInt shrdInt parmStrn nMin As Integer, nMax As IntegerrsltStrnInteger EndGInt q MethGruptq"nameStrn ChangeRollerCompStrnVsblInt sorcGrupq#EncoInt srclStrn0Function ChangeRoller(Type As String) As BooleansrclStrndim l As IntegersrclStrnDim res As Boolean srclStrn res = True srclStrnsrclStrnSelect Case TypesrclStrn Case "Colors" srclStrnRollType = Type srclStrnfor l = 0 to 3 srclStrn"Window1.DieText(l).Visible = False srclStrn Window1.DieBox(l).Visible = TruesrclStrnnextsrclStrn Case "4d6-4"srclStrnRollType = Type srclStrnfor l = 0 to 3 srclStrn!Window1.DieText(l).Visible = True srclStrn Window1.DieBox(l).Visible = TruesrclStrn(Window1.DieBox(l).FillColor = rgb(0,0,0)srclStrnnextsrclStrnCase "Percent" srclStrnRollType = Type srclStrnfor l = 0 to 3 srclStrn"Window1.DieText(l).Visible = False srclStrn!Window1.DieBox(l).Visible = False srclStrnnextsrclStrn End Select srclStrnsrclStrnUseFunc = DispDice()srclStrnsrclStrn Return res srclStrnsrclStrn End FunctionEndGInt q#EncoInt AlasStrnflagInt shrdInt parmStrnType As String rsltStrnBoolean EndGInt q"MethGrup q$nameStrnDispDiceCompStrnVsblInt sorcGrup lq%EncoInt srclStrnFunction DispDice() As Boolean srclStrnDim l, tot As Integer srclStrnDim res As Boolean srclStrntot = 0 srclStrn res = True srclStrnsrclStrnSelect Case RollTypesrclStrn Case "4d6-4"srclStrnFor l = 0 to 3 srclStrn%Window1.DieText(l).Text = Str(Die(l)) srclStrntot = tot + Die(l) srclStrnnextsrclStrnIf UseValues Then srclStrn*tot = tot + CalcTot(Skill) - CalcTot(Diff) srclStrnWindow1.ResText.TextSize = 28 srclStrnIf tot > 0 Then srclStrnWindow1.ResText.TextSize = 28 srclStrn?Window1.ResText.Text = "Success!" + " " + "(" + str(tot) + ")" srclStrnElsesrclStrnWindow1.ResText.TextSize = 28 srclStrn;Window1.ResText.Text = "Fail!" + " " + "(" + str(tot) + ")" srclStrnOIf tot = 0 Then Window1.ResText.Text = "Mariginal" + " " + "(" + str(tot) + ")" srclStrnEnd If srclStrnElsesrclStrnWindow1.ResText.TextSize = 96 srclStrnWindow1.ResText.Text = str(tot) srclStrnEnd If srclStrn Case "Colors" srclStrnfor l = 0 to 3 srclStrnif Die(l) = 0 then srclStrn*Window1.DieBox(l).FillColor = rgb(255,0,0) srclStrn tot = tot - 1 srclStrnelseif Die(l) = 5 then srclStrn*Window1.DieBox(l).FillColor = rgb(0,255,0) srclStrn tot = tot + 1 srclStrnelsesrclStrn(Window1.DieBox(l).FillColor = rgb(0,0,0)srclStrnend if srclStrnnextsrclStrnIf UseValues Then srclStrntot = tot + Skill - DiffsrclStrnIf tot > 0 Then srclStrnWindow1.ResText.TextSize = 28 srclStrn@Window1.ResText.Text = "Success!" + " " + "(+" + str(tot) + ")"srclStrnElsesrclStrnWindow1.ResText.TextSize = 28 srclStrn;Window1.ResText.Text = "Fail!" + " " + "(" + str(tot) + ")" srclStrnOIf tot = 0 Then Window1.ResText.Text = "Mariginal" + " " + "(" + str(tot) + ")" srclStrnEnd If srclStrnElsesrclStrnWindow1.ResText.TextSize = 96 srclStrnWindow1.ResText.Text = str(tot) srclStrnAif tot > 0 then Window1.ResText.Text = "+" + Window1.ResText.Text srclStrnEnd If srclStrnCase "Percent" srclStrnIf UseValues Then srclStrnElsesrclStrnFor l = 0 to 3 srclStrntot = tot + Die(l) srclStrnnextsrclStrn tot = tot * 5 srclStrn%Window1.ResText.Text = str(tot) + "%" srclStrnEnd If srclStrn End Select srclStrnsrclStrn return res srclStrn End FunctionEndGInt q%EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnBoolean EndGInt q$MethGrupxq&nameStrnCalcTot CompStrnVsblInt sorcGrupq'EncoInt srclStrn0Function CalcTot(chkValue As Integer) As IntegersrclStrnDim res As Integer srclStrnsrclStrnSelect Case chkValuesrclStrnCase -2 srclStrnres = -2srclStrnCase 0 srclStrnres = 1 srclStrnCase 1 srclStrnres = 1 srclStrnCase 2 srclStrnres = 4 srclStrnCase 3 srclStrnres = 8 srclStrnCase 4 srclStrnres = 14srclStrnCase 5 srclStrnres = 22srclStrnCase 6 srclStrnres = 30srclStrnCase 7 srclStrnres = 40srclStrnCase 8 srclStrnres = 50srclStrnCase 9 srclStrnres = 60srclStrnCase 10 srclStrnres = 80srclStrn End Select srclStrnsrclStrn Return res srclStrn End FunctionEndGInt q'EncoInt AlasStrnflagInt shrdInt parmStrnchkValue As Integer rsltStrnInteger EndGInt q&PropGrupq(nameStrnRollTypeCompStrnVsblInt sorcGrup<q)EncoInt srclStrnRollType As String srclStrnEndGInt q)EncoInt declStrnRollType As String = "4d6-4"flagInt shrdInt EndGInt q(PropGrupq*nameStrnUseFunc CompStrnVsblInt sorcGrup<q+EncoInt srclStrnUseFunc As Boolean srclStrnEndGInt q+EncoInt declStrnUseFunc As Boolean flagInt shrdInt EndGInt q*PropGrupq,nameStrnDie(3) CompStrnVsblInt sorcGrup<q-EncoInt srclStrnDie(3) As Integer srclStrnEndGInt q-EncoInt declStrnDie(3) As Integer flagInt shrdInt EndGInt q,PropGrupq.nameStrnSkill CompStrnVsblInt sorcGrup8q/EncoInt srclStrnSkill As IntegersrclStrnEndGInt q/EncoInt declStrnSkill As Integer = 2flagInt shrdInt EndGInt q.PropGrupq0nameStrnDiffCompStrnVsblInt sorcGrup8q1EncoInt srclStrnDiff As Integer srclStrnEndGInt q1EncoInt declStrnDiff As Integer = 2 flagInt shrdInt EndGInt q0PropGrupq2nameStrn UseValues CompStrnVsblInt sorcGrup<q3EncoInt srclStrnUseValues As BooleansrclStrnEndGInt q3EncoInt declStrnUseValues As Boolean = FalseflagInt shrdInt EndGInt q2VwBhGrupDq4VwPrGrupDq5NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt q5VwPrGrup`q6NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt q6VwPrGrupHq7NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt q7VwPrGrupXq8NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt q8VwPrGrupXq9NameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt q9VwPrGruppq:NameStrnRollTypePrGpStrnBehaviorPValStrn4d6-4 typeStrnString vbETStrnMultiLineEditor EndGInt q:VwPrGrupPq;NameStrnUseFunc PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt q;VwPrGrupPqNameStrn UseValues PrGpStrnBehaviorPValStrnFalse typeStrnBoolean EndGInt q>EndGInt q4PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew;8NameStrnWindow2 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrupq?nameStrnOpenCompStrnVsblInt sorcGrupq@EncoInt srclStrn Sub Open() srclStrn!HTMLViewer1.Width = Window2.Width srclStrn(HTMLViewer1.Height = Window2.Height - 27srclStrnHTMLViewer1.top = 0 srclStrnHTMLViewer1.left = 0srclStrn3HTMLViewer1.LoadURL("http://theseven.nitesade.net") srclStrnsrclStrnbtnStart.Left = 0 srclStrn"btnStart.Top = Window2.Height - 25 srclStrn"btnClose.Top = Window2.Height - 25 srclStrnbtnClose.Left = btnStart.Width srclStrnEnd Sub EndGInt q@EndGInt q?HInsGrupqAnameStrnResizingCompStrnVsblInt sorcGrupqBEncoInt srclStrnSub Resizing() srclStrn!HTMLViewer1.Width = Window2.Width srclStrn(HTMLViewer1.Height = Window2.Height - 27srclStrnHTMLViewer1.top = 0 srclStrnHTMLViewer1.left = 0srclStrnbtnStart.Left = 0 srclStrn"btnStart.Top = Window2.Height - 25 srclStrn"btnClose.Top = Window2.Height - 25 srclStrnbtnClose.Left = btnStart.Width srclStrnEnd Sub EndGInt qBEndGInt qAHInsGrupqCnameStrnResized CompStrnVsblInt sorcGrupqDEncoInt srclStrn Sub Resized() srclStrn!HTMLViewer1.Width = Window2.Width srclStrn(HTMLViewer1.Height = Window2.Height - 27srclStrnHTMLViewer1.top = 0 srclStrnHTMLViewer1.left = 0srclStrnbtnStart.Left = 0 srclStrn"btnStart.Top = Window2.Height - 25 srclStrn"btnClose.Top = Window2.Height - 25 srclStrnbtnClose.Left = btnStart.Width srclStrnEnd Sub EndGInt qDEndGInt qCPDefGrup<qEnameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt qEPDefGrup$qFnameStrnMenuBar PValStrnEndGInt qFPDefGrup(qGnameStrn MacProcID PValInt EndGInt qGPDefGrup0qHnameStrnMinimizeButton PValStrnTrueEndGInt qHPDefGrup4qInameStrnMaximizeButton PValStrnFalse EndGInt qIPDefGrup,qJnameStrn LiveResize PValStrnTrueEndGInt qJPDefGrup,qKnameStrn Resizeable PValStrnTrueEndGInt qKPDefGrup,qLnameStrn CloseButton PValStrnTrueEndGInt qLPDefGrup0qMnameStrnMenuBarVisible PValStrnTrueEndGInt qMPDefGrup0qNnameStrn FullScreen PValStrnFalse EndGInt qNPDefGrup(qOnameStrnVisible PValStrnTrueEndGInt qOPDefGrup@qPnameStrnTitle EncoInt PValStrnThe Seven Rules EndGInt qPPDefGrup$qQnameStrnBackdropPValStrnEndGInt qQPDefGrup(qRnameStrn BackColor PValInt EndGInt qRPDefGrup0qSnameStrn HasBackColorPValStrnFalse EndGInt qSPDefGrup,qTnameStrn Composite PValStrnTrueEndGInt qTPDefGrup$qUnameStrnFrame PValInt EndGInt qUPDefGrup(qVnameStrn MaxHeight PValInt }EndGInt qVPDefGrup$qWnameStrnMaxWidthPValInt }EndGInt qWPDefGrup(qXnameStrn MinHeight PValInt @EndGInt qXPDefGrup$qYnameStrnMinWidthPValInt @EndGInt qYPDefGrup$qZnameStrnHeight PValInt EndGInt qZPDefGrup$q[nameStrnWidth PValInt XEndGInt q[PDefGrup(q\nameStrn Placement PValInt EndGInt q\VwBhGrupq]VwPrGrupDq^NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt q^VwPrGrupLq_NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt q_VwPrGrupHq`NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt q`VwPrGrup0qaNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupqbdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt qbEndGInt qaVwPrGruppqcNameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt qcVwPrGruppqdNameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt qdVwPrGruppqeNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt qeVwPrGruptqfNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt qfVwPrGruptqgNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt qgVwPrGrupxqhNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt qhVwPrGrup qiNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppqjdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt qjEndGInt qiVwPrGrup|qkNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt qkVwPrGrup|qlNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt qlVwPrGrup|qmNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt qmVwPrGrupxqnNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt qnVwPrGrupxqoNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt qoVwPrGruptqpNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt qpVwPrGrup|qqNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt qqVwPrGrup|qrNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt qrVwPrGrupxqsNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt qsVwPrGrupxqtNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt qtVwPrGrupxquNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt quVwPrGrupqvNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt qvVwPrGrup|qwNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt qwVwPrGrupxqxNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt qxVwPrGrupxqyNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt qyVwPrGrup|qzNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt qzEndGInt q]CBhvGrup,q{SuprStrn HTMLViewer HInsGrupq|nameStrnDocumentCompleteCompStrnVsblInt sorcGrupq}EncoInt srclStrn#Sub DocumentComplete(URL as String) srclStrnFIf URL <> "" Then Window2.Title = "The Seven Rules - " + Left(URL, 29) srclStrnEnd Sub EndGInt q}EndGInt q|EndGInt q{CBhvGrupq~SuprStrn PushButton HInsGrupqnameStrnAction CompStrnVsblInt sorcGrup|qEncoInt srclStrn Sub Action()srclStrn3HTMLViewer1.LoadURL("http://theseven.nitesade.net") srclStrnEnd Sub EndGInt qEndGInt qEndGInt q~CBhvGrupqSuprStrn PushButton HInsGrupqnameStrnAction CompStrnVsblInt sorcGrupdqEncoInt srclStrn Sub Action()srclStrn Window2.Close srclStrnsrclStrnEnd Sub EndGInt qEndGInt qEndGInt qCtrlGrup,qcclsStrn HTMLViewer nameStrn HTMLViewer PDefGrup(qnameStrnEnabled PValStrnTrueEndGInt qPDefGrup0qnameStrnAutoDeactivate PValStrnTrueEndGInt qPDefGrup0qnameStrnHelpTag EncoInt PValStrnEndGInt qPDefGrup(qnameStrnVisible PValStrnTrueEndGInt qPDefGrup$qnameStrnTabIndexPValInt EndGInt qPDefGrup8qnameStrn InitialParent EncoInt PValStrnEndGInt qPDefGrup,qnameStrn TabPanelIndex PValInt EndGInt qPDefGrup(qnameStrn LockBottom PValStrnEndGInt qPDefGrup(qnameStrn LockRight PValStrnEndGInt qPDefGrup$qnameStrnLockTop PValStrnEndGInt qPDefGrup$qnameStrnLockLeftPValStrnEndGInt qPDefGrup$qnameStrnHeight PValInt nEndGInt qPDefGrup$qnameStrnWidth PValInt 5EndGInt qPDefGrup qnameStrnTop PValInt EndGInt qPDefGrup qnameStrnLeftPValInt EndGInt qPDefGrup(qnameStrnScope PValStrn0 EndGInt qPDefGrup<qnameStrnSuper EncoInt PValStrn HTMLViewer EndGInt qPDefGrup$qnameStrnIndex PValInt EndGInt qPDefGrup8qnameStrnNameEncoInt PValStrn HTMLViewer1 EndGInt qCBixInt iLckInt EndGInt qCtrlGruppqcclsStrn PushButton nameStrn PushButton PDefGrup8qnameStrn InitialParent EncoInt PValStrnEndGInt qPDefGrup(qnameStrn Underline PValStrnEndGInt qPDefGrup$qnameStrnItalic PValStrnEndGInt qPDefGrup qnameStrnBoldPValStrnEndGInt qPDefGrup$qnameStrnTextSizePValInt EndGInt qPDefGrup8qnameStrnTextFontEncoInt PValStrnSystem EndGInt qPDefGrup0qnameStrnAutoDeactivate PValStrnTrueEndGInt qPDefGrup0qnameStrnHelpTag EncoInt PValStrnEndGInt qPDefGrup(qnameStrnVisible PValStrnTrueEndGInt qPDefGrup(qnameStrnEnabled PValStrnTrueEndGInt qPDefGrup$qnameStrnCancel PValStrnEndGInt qPDefGrup$qnameStrnDefault PValStrnEndGInt qPDefGrup8qnameStrnCaption EncoInt PValStrnStart EndGInt qPDefGrup(qnameStrnTabStop PValStrnTrueEndGInt qPDefGrup$qnameStrnTabIndexPValInt EndGInt qPDefGrup,qnameStrn TabPanelIndex PValInt EndGInt qPDefGrup(qnameStrn LockBottom PValStrnEndGInt qPDefGrup(qnameStrn LockRight PValStrnEndGInt qPDefGrup$qnameStrnLockTop PValStrnEndGInt qPDefGrup$qnameStrnLockLeftPValStrnEndGInt qPDefGrup$qnameStrnHeight PValInt EndGInt qPDefGrup$qnameStrnWidth PValInt PEndGInt qPDefGrup qnameStrnTop PValInt zEndGInt qPDefGrup qnameStrnLeftPValInt EndGInt qPDefGrup(qnameStrnScope PValStrn0 EndGInt qPDefGrup<qnameStrnSuper EncoInt PValStrn PushButton EndGInt qPDefGrup$qnameStrnIndex PValInt EndGInt qPDefGrup4qnameStrnNameEncoInt PValStrnbtnStartEndGInt qCBixInt iLckInt EndGInt qCtrlGruppqcclsStrn PushButton nameStrn PushButton PDefGrup8qnameStrn InitialParent EncoInt PValStrnEndGInt qPDefGrup(qnameStrn Underline PValStrnEndGInt qPDefGrup$qnameStrnItalic PValStrnEndGInt qPDefGrup qnameStrnBoldPValStrnEndGInt qPDefGrup$qnameStrnTextSizePValInt EndGInt qPDefGrup8qnameStrnTextFontEncoInt PValStrnSystem EndGInt qPDefGrup0qnameStrnAutoDeactivate PValStrnTrueEndGInt qPDefGrup0qnameStrnHelpTag EncoInt PValStrnEndGInt qPDefGrup(qnameStrnVisible PValStrnTrueEndGInt qPDefGrup(qnameStrnEnabled PValStrnTrueEndGInt qPDefGrup$qnameStrnCancel PValStrnEndGInt qPDefGrup$qnameStrnDefault PValStrnEndGInt qPDefGrup8qnameStrnCaption EncoInt PValStrnClose EndGInt qPDefGrup(qnameStrnTabStop PValStrnTrueEndGInt qPDefGrup$qnameStrnTabIndexPValInt EndGInt qPDefGrup,qnameStrn TabPanelIndex PValInt EndGInt qPDefGrup(qnameStrn LockBottom PValStrnEndGInt qPDefGrup(qnameStrn LockRight PValStrnEndGInt qPDefGrup$qnameStrnLockTop PValStrnEndGInt qPDefGrup$qnameStrnLockLeftPValStrnEndGInt qPDefGrup$qnameStrnHeight PValInt EndGInt qPDefGrup$qnameStrnWidth PValInt PEndGInt qPDefGrup qnameStrnTop PValInt zEndGInt qPDefGrup qnameStrnLeftPValInt \EndGInt qPDefGrup(qnameStrnScope PValStrn0 EndGInt qPDefGrup<qnameStrnSuper EncoInt PValStrn PushButton EndGInt qPDefGrup$qnameStrnIndex PValInt EndGInt qPDefGrup4qnameStrnNameEncoInt PValStrnbtnCloseEndGInt qCBixInt iLckInt EndGInt qPadnPadn\****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupqOTabGrup4qContInt eSptInt plSCInt plCDInt EndGInt qOTabGrupXqContInt =LSptInt RSptInt ScrXInt ScrYInt lstHInt :lstVInt AEndGInt qOTabGrup@qContInt =AltEInt LSptInt EEstInt ciIDInt EndGInt qOTabGrup@qContInt cwAltEInt LSptInt EEstInt ciIDInt EndGInt qOTabGrupqContInt "RSptInt EndGInt qOTabGrupdqContInt ;LSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt qOTabGrup@qContInt ;AltEInt LSptInt EEstInt ciIDInt EndGInt qLsLcStrnWindow2.HTMLViewer1.Error rEdtRectEndGInt qPadnPadn********************************************************************************************************************************************************************************************************************************************************************EOF!