RbBFBlokProjPSIVStrn2009.03 ACnmStrnAChpStrnACsvStrnVer1Strn0 Ver2Strn3 Ver3Strn0 RelsStrn0 NnRlStrn5 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt =prTpInt DLanInt CLanInt DEncInt BflgInt rIconGrup)nEndGInt )nMacCStrnBCarStrnMy 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$)onameStrnMenuBar PValInt "EndGInt )oVwBhGrup)pEndGInt )pCnstGrup)qnameStrnkFileQuitShortcut CompStrnVsblInt EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0)rpltfInt langInt defnStrnCmd+Q EndGInt )rCInsGrup0)spltfInt langInt defnStrnCtrl+Q EndGInt )sEndGInt )qCnstGrup)tnameStrn kFileQuit CompStrnVsblInt EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0)upltfInt langInt defnStrnE&xit EndGInt )uEndGInt )tCnstGrup)vnameStrn kEditClear CompStrnVsblInt EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0)wpltfInt langInt defnStrn&Delete EndGInt )wCInsGrup0)xpltfInt langInt defnStrn&Delete EndGInt )xEndGInt )vPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew=NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup)ynameStrnOpenCompStrnVsblInt sorcGrup)zEncoInt 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.PushsrclStrnsrclStrnEnd Sub EndGInt )zEndGInt )yHInsGrup){nameStrnClose CompStrnVsblInt sorcGrupX)|EncoInt srclStrn Sub Close() srclStrnQuitsrclStrnsrclStrnEnd Sub EndGInt )|EndGInt ){MnuHGrup)}nameStrnmnuprefsUseCharValues CompStrnVsblInt sorcGrupD)~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 )~EndGInt )}MnuHGrup)nameStrnmnuRulesCompStrnVsblInt sorcGrup<)EncoInt srclStrnFunction mnuRules() As Boolean srclStrn!Window2.left = Window1.Width + 10 srclStrnWindow2.top = Window1.top + 10 srclStrnWindow2.Width = 600 srclStrn$Window2.Height = Window1.Height - 20srclStrn Window2.ShowsrclStrn Return True srclStrnsrclStrn End FunctionEndGInt )EndGInt )PDefGrup<)nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt )PDefGrup0)nameStrnMenuBar PValStrn 571742207 EndGInt )PDefGrup()nameStrn MacProcID PValInt EndGInt )PDefGrup0)nameStrnMinimizeButton PValStrnTrueEndGInt )PDefGrup4)nameStrnMaximizeButton PValStrnFalse EndGInt )PDefGrup0)nameStrn LiveResize PValStrnFalse EndGInt )PDefGrup0)nameStrn Resizeable PValStrnFalse EndGInt )PDefGrup,)nameStrn CloseButton PValStrnTrueEndGInt )PDefGrup0)nameStrnMenuBarVisible PValStrnTrueEndGInt )PDefGrup0)nameStrn FullScreen PValStrnFalse EndGInt )PDefGrup()nameStrnVisible PValStrnTrueEndGInt )PDefGrup8)nameStrnTitle EncoInt PValStrnUntitledEndGInt )PDefGrup$)nameStrnBackdropPValStrnEndGInt )PDefGrup()nameStrn BackColor PValInt EndGInt )PDefGrup0)nameStrn HasBackColorPValStrnFalse EndGInt )PDefGrup0)nameStrn Composite PValStrnFalse EndGInt )PDefGrup$)nameStrnFrame PValInt EndGInt )PDefGrup()nameStrn MaxHeight PValInt }EndGInt )PDefGrup$)nameStrnMaxWidthPValInt }EndGInt )PDefGrup()nameStrn MinHeight PValInt @EndGInt )PDefGrup$)nameStrnMinWidthPValInt @EndGInt )PDefGrup$)nameStrnHeight PValInt EndGInt )PDefGrup$)nameStrnWidth PValInt  EndGInt )PDefGrup()nameStrn Placement PValInt EndGInt )VwBhGrup)VwPrGrupD)NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt )VwPrGrupL)NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt )VwPrGrupH)NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt )VwPrGrup0)NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup)defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt )EndGInt )VwPrGrupp)NameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupp)NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupp)NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupt)NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupt)NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupx)NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrup )NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp)defnStrn 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 )EndGInt )VwPrGrup|)NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt )VwPrGrupx)NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt )VwPrGrupx)NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt )VwPrGrupt)NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )VwPrGrupx)NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )VwPrGrupx)NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )VwPrGrupx)NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup)NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt )VwPrGrup|)NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt )VwPrGrupx)NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt )VwPrGrupx)NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt )VwPrGrup|)NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt )EndGInt )CBhvGrup)SuprStrnGroupBoxEndGInt )CBhvGrup )SuprStrnRoundRectangle EndGInt )CBhvGrup)SuprStrn StaticText EndGInt )CBhvGrup)SuprStrnGroupBoxEndGInt )CBhvGrup)SuprStrn RadioButton HInsGrup)nameStrnAction CompStrnVsblInt sorcGrupH)EncoInt 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 )EndGInt )EndGInt )CBhvGrup)SuprStrnGroupBoxEndGInt )CBhvGruph)SuprStrn PushButton HInsGrup4)nameStrnAction CompStrnVsblInt sorcGrup)EncoInt srclStrn Sub Action()srclStrnDim l As IntegersrclStrnsrclStrnFor l = 0 to 3 srclStrnDie(l) = RollDice(0,5) srclStrnnextsrclStrnsrclStrnUseFunc = DispDice()srclStrnsrclStrnEnd Sub EndGInt )EndGInt )EndGInt )CBhvGrup)SuprStrnGroupBoxEndGInt )CBhvGrup)SuprStrn StaticText EndGInt )CBhvGrup)SuprStrnGroupBoxEndGInt )CBhvGrup)SuprStrn PopupMenu HInsGrup)nameStrnChange CompStrnVsblInt sorcGrup)EncoInt srclStrn Sub Change()srclStrnSkill = me.ListIndex - 1srclStrnIf Skill = -1 Then Skill = -2 srclStrnsrclStrnEnd Sub EndGInt )EndGInt )EndGInt )CBhvGrup)SuprStrn StaticText EndGInt )CBhvGrup)SuprStrn PopupMenu HInsGrup)nameStrnChange CompStrnVsblInt sorcGrup)EncoInt srclStrn Sub Change()srclStrnDiff = Me.ListIndex - 1 srclStrnIf Diff = -1 Then Diff = -2 srclStrnsrclStrnEnd Sub EndGInt )EndGInt )EndGInt )CBhvGrup)SuprStrn StaticText EndGInt )CtrlGrup)cclsStrnGroupBoxnameStrnGroupBoxPDefGrup8)nameStrn InitialParent EncoInt PValStrnEndGInt )PDefGrup()nameStrn Underline PValStrnEndGInt )PDefGrup$)nameStrnItalic PValStrnEndGInt )PDefGrup )nameStrnBoldPValStrnEndGInt )PDefGrup$)nameStrnTextSizePValInt EndGInt )PDefGrup8)nameStrnTextFontEncoInt PValStrnSystem EndGInt )PDefGrup0)nameStrnAutoDeactivate PValStrnTrueEndGInt )PDefGrup0)nameStrnHelpTag EncoInt PValStrnEndGInt )PDefGrup()nameStrnVisible PValStrnTrueEndGInt )PDefGrup()nameStrnEnabled PValStrnTrueEndGInt )PDefGrup4)nameStrnCaption EncoInt PValStrnDiceEndGInt )PDefGrup$)nameStrnTabIndexPValInt EndGInt )PDefGrup,)nameStrn TabPanelIndex PValInt EndGInt )PDefGrup()nameStrn LockBottom PValStrnEndGInt )PDefGrup()nameStrn LockRight PValStrnEndGInt )PDefGrup$)nameStrnLockTop PValStrnEndGInt )PDefGrup$)nameStrnLockLeftPValStrnEndGInt )PDefGrup$)nameStrnHeight PValInt EndGInt )PDefGrup$)nameStrnWidth PValInt EndGInt )PDefGrup )nameStrnTop PValInt EndGInt )PDefGrup )nameStrnLeftPValInt EndGInt )PDefGrup()nameStrnScope PValStrn0 EndGInt )PDefGrup8)nameStrnSuper EncoInt PValStrnGroupBoxEndGInt )PDefGrup$)nameStrnIndex PValInt EndGInt )PDefGrup8)nameStrnNameEncoInt PValStrn GroupBox1 EndGInt )CBixInt iLckInt EndGInt )CtrlGrupD)cclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupD)nameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt )PDefGrup()nameStrn OvalHeight PValInt EndGInt )PDefGrup()nameStrn OvalWidth PValInt EndGInt )PDefGrup()nameStrn BorderColor PValInt EndGInt )PDefGrup()nameStrn BorderWidth PValInt EndGInt )PDefGrup()nameStrn FillColor PValInt EndGInt )PDefGrup()nameStrnEnabled PValStrnTrueEndGInt )PDefGrup0)nameStrnAutoDeactivate PValStrnTrueEndGInt )PDefGrup0)nameStrnHelpTag EncoInt PValStrnEndGInt )PDefGrup()nameStrnVisible PValStrnTrueEndGInt )PDefGrup,)nameStrn TabPanelIndex PValInt EndGInt )PDefGrup()nameStrn LockBottom PValStrnEndGInt )PDefGrup()nameStrn LockRight PValStrnEndGInt )PDefGrup$)nameStrnLockTop PValStrnEndGInt )PDefGrup$)nameStrnLockLeftPValStrnEndGInt )PDefGrup$)nameStrnHeight PValInt dEndGInt )PDefGrup$)nameStrnWidth PValInt dEndGInt )PDefGrup )nameStrnTop PValInt ,EndGInt )PDefGrup )nameStrnLeftPValInt ,EndGInt )PDefGrup()nameStrnScope PValStrn0 EndGInt )PDefGrup@)nameStrnSuper EncoInt PValStrnRoundRectangle EndGInt )PDefGrup$)nameStrnIndex PValInt EndGInt )PDefGrup4)nameStrnNameEncoInt PValStrnDieBox EndGInt )CBixInt iLckInt EndGInt )CtrlGrup)cclsStrn StaticText nameStrn StaticText PDefGrup@*nameStrn InitialParent EncoInt PValStrnDieBox$0EndGInt *PDefGrup4*nameStrn DataField EncoInt PValStrnEndGInt *PDefGrup4*nameStrn DataSource EncoInt PValStrnEndGInt *PDefGrup(*nameStrn Underline PValStrnEndGInt *PDefGrup$*nameStrnItalic PValStrnEndGInt *PDefGrup$*nameStrnBoldPValStrnTrueEndGInt *PDefGrup$*nameStrnTextSizePValInt @EndGInt *PDefGrup8*nameStrnTextFontEncoInt PValStrnTahoma EndGInt *PDefGrup0*nameStrnAutoDeactivate PValStrnTrueEndGInt *PDefGrup0* nameStrnHelpTag EncoInt PValStrnEndGInt * PDefGrup(* nameStrnVisible PValStrnTrueEndGInt * PDefGrup(* nameStrnEnabled PValStrnTrueEndGInt * PDefGrup(* nameStrn Multiline PValStrnEndGInt * PDefGrup(* nameStrn TextColor PValInt EndGInt * PDefGrup(*nameStrn TextAlign PValInt EndGInt *PDefGrup0*nameStrnTextEncoInt PValStrn6 EndGInt *PDefGrup$*nameStrnTabIndexPValInt EndGInt *PDefGrup,*nameStrn TabPanelIndex PValInt EndGInt *PDefGrup(*nameStrn LockBottom PValStrnEndGInt *PDefGrup(*nameStrn LockRight PValStrnEndGInt *PDefGrup$*nameStrnLockTop PValStrnEndGInt *PDefGrup$*nameStrnLockLeftPValStrnEndGInt *PDefGrup$*nameStrnHeight PValInt dEndGInt *PDefGrup$*nameStrnWidth PValInt dEndGInt *PDefGrup *nameStrnTop PValInt ,EndGInt *PDefGrup *nameStrnLeftPValInt ,EndGInt *PDefGrup(*nameStrnScope PValStrn0 EndGInt *PDefGrup<*nameStrnSuper EncoInt PValStrn StaticText EndGInt *PDefGrup$*nameStrnIndex PValInt EndGInt *PDefGrup4*nameStrnNameEncoInt PValStrnDieText EndGInt *CBixInt iLckInt EndGInt )CtrlGrupD*cclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupD*nameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt *PDefGrup(* nameStrn OvalHeight PValInt EndGInt * PDefGrup(*!nameStrn OvalWidth PValInt EndGInt *!PDefGrup(*"nameStrn BorderColor PValInt EndGInt *"PDefGrup(*#nameStrn BorderWidth PValInt EndGInt *#PDefGrup(*$nameStrn FillColor PValInt EndGInt *$PDefGrup(*%nameStrnEnabled PValStrnTrueEndGInt *%PDefGrup0*&nameStrnAutoDeactivate PValStrnTrueEndGInt *&PDefGrup0*'nameStrnHelpTag EncoInt PValStrnEndGInt *'PDefGrup(*(nameStrnVisible PValStrnTrueEndGInt *(PDefGrup,*)nameStrn TabPanelIndex PValInt EndGInt *)PDefGrup(**nameStrn LockBottom PValStrnEndGInt **PDefGrup(*+nameStrn LockRight PValStrnEndGInt *+PDefGrup$*,nameStrnLockTop PValStrnEndGInt *,PDefGrup$*-nameStrnLockLeftPValStrnEndGInt *-PDefGrup$*.nameStrnHeight PValInt dEndGInt *.PDefGrup$*/nameStrnWidth PValInt dEndGInt */PDefGrup *0nameStrnTop PValInt ,EndGInt *0PDefGrup *1nameStrnLeftPValInt EndGInt *1PDefGrup(*2nameStrnScope PValStrn0 EndGInt *2PDefGrup@*3nameStrnSuper EncoInt PValStrnRoundRectangle EndGInt *3PDefGrup$*4nameStrnIndex PValInt EndGInt *4PDefGrup4*5nameStrnNameEncoInt PValStrnDieBox EndGInt *5CBixInt iLckInt EndGInt *CtrlGrup*6cclsStrn StaticText nameStrn StaticText PDefGrup@*7nameStrn InitialParent EncoInt PValStrnDieBox$1EndGInt *7PDefGrup4*8nameStrn DataField EncoInt PValStrnEndGInt *8PDefGrup4*9nameStrn DataSource EncoInt PValStrnEndGInt *9PDefGrup(*:nameStrn Underline PValStrnEndGInt *:PDefGrup$*;nameStrnItalic PValStrnEndGInt *;PDefGrup$*nameStrnTextFontEncoInt PValStrnTahoma EndGInt *>PDefGrup0*?nameStrnAutoDeactivate PValStrnTrueEndGInt *?PDefGrup0*@nameStrnHelpTag EncoInt PValStrnEndGInt *@PDefGrup(*AnameStrnVisible PValStrnTrueEndGInt *APDefGrup(*BnameStrnEnabled PValStrnTrueEndGInt *BPDefGrup(*CnameStrn Multiline PValStrnEndGInt *CPDefGrup(*DnameStrn TextColor PValInt EndGInt *DPDefGrup(*EnameStrn TextAlign PValInt EndGInt *EPDefGrup0*FnameStrnTextEncoInt PValStrn6 EndGInt *FPDefGrup$*GnameStrnTabIndexPValInt EndGInt *GPDefGrup,*HnameStrn TabPanelIndex PValInt EndGInt *HPDefGrup(*InameStrn LockBottom PValStrnEndGInt *IPDefGrup(*JnameStrn LockRight PValStrnEndGInt *JPDefGrup$*KnameStrnLockTop PValStrnEndGInt *KPDefGrup$*LnameStrnLockLeftPValStrnEndGInt *LPDefGrup$*MnameStrnHeight PValInt dEndGInt *MPDefGrup$*NnameStrnWidth PValInt dEndGInt *NPDefGrup *OnameStrnTop PValInt ,EndGInt *OPDefGrup *PnameStrnLeftPValInt EndGInt *PPDefGrup(*QnameStrnScope PValStrn0 EndGInt *QPDefGrup<*RnameStrnSuper EncoInt PValStrn StaticText EndGInt *RPDefGrup$*SnameStrnIndex PValInt EndGInt *SPDefGrup4*TnameStrnNameEncoInt PValStrnDieText EndGInt *TCBixInt iLckInt EndGInt *6CtrlGrupD*UcclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupD*VnameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt *VPDefGrup(*WnameStrn OvalHeight PValInt EndGInt *WPDefGrup(*XnameStrn OvalWidth PValInt EndGInt *XPDefGrup(*YnameStrn BorderColor PValInt EndGInt *YPDefGrup(*ZnameStrn BorderWidth PValInt EndGInt *ZPDefGrup(*[nameStrn FillColor PValInt EndGInt *[PDefGrup(*\nameStrnEnabled PValStrnTrueEndGInt *\PDefGrup0*]nameStrnAutoDeactivate PValStrnTrueEndGInt *]PDefGrup0*^nameStrnHelpTag EncoInt PValStrnEndGInt *^PDefGrup(*_nameStrnVisible PValStrnTrueEndGInt *_PDefGrup,*`nameStrn TabPanelIndex PValInt EndGInt *`PDefGrup(*anameStrn LockBottom PValStrnEndGInt *aPDefGrup(*bnameStrn LockRight PValStrnEndGInt *bPDefGrup$*cnameStrnLockTop PValStrnEndGInt *cPDefGrup$*dnameStrnLockLeftPValStrnEndGInt *dPDefGrup$*enameStrnHeight PValInt dEndGInt *ePDefGrup$*fnameStrnWidth PValInt dEndGInt *fPDefGrup *gnameStrnTop PValInt ,EndGInt *gPDefGrup *hnameStrnLeftPValInt  EndGInt *hPDefGrup(*inameStrnScope PValStrn0 EndGInt *iPDefGrup@*jnameStrnSuper EncoInt PValStrnRoundRectangle EndGInt *jPDefGrup$*knameStrnIndex PValInt EndGInt *kPDefGrup4*lnameStrnNameEncoInt PValStrnDieBox EndGInt *lCBixInt iLckInt EndGInt *UCtrlGrup*mcclsStrn StaticText nameStrn StaticText PDefGrup@*nnameStrn InitialParent EncoInt PValStrnDieBox$2EndGInt *nPDefGrup4*onameStrn DataField EncoInt PValStrnEndGInt *oPDefGrup4*pnameStrn DataSource EncoInt PValStrnEndGInt *pPDefGrup(*qnameStrn Underline PValStrnEndGInt *qPDefGrup$*rnameStrnItalic PValStrnEndGInt *rPDefGrup$*snameStrnBoldPValStrnTrueEndGInt *sPDefGrup$*tnameStrnTextSizePValInt @EndGInt *tPDefGrup8*unameStrnTextFontEncoInt PValStrnTahoma EndGInt *uPDefGrup0*vnameStrnAutoDeactivate PValStrnTrueEndGInt *vPDefGrup0*wnameStrnHelpTag EncoInt PValStrnEndGInt *wPDefGrup(*xnameStrnVisible PValStrnTrueEndGInt *xPDefGrup(*ynameStrnEnabled PValStrnTrueEndGInt *yPDefGrup(*znameStrn Multiline PValStrnEndGInt *zPDefGrup(*{nameStrn TextColor PValInt EndGInt *{PDefGrup(*|nameStrn TextAlign PValInt EndGInt *|PDefGrup0*}nameStrnTextEncoInt PValStrn6 EndGInt *}PDefGrup$*~nameStrnTabIndexPValInt EndGInt *~PDefGrup,*nameStrn TabPanelIndex PValInt EndGInt *PDefGrup(*nameStrn LockBottom PValStrnEndGInt *PDefGrup(*nameStrn LockRight PValStrnEndGInt *PDefGrup$*nameStrnLockTop PValStrnEndGInt *PDefGrup$*nameStrnLockLeftPValStrnEndGInt *PDefGrup$*nameStrnHeight PValInt dEndGInt *PDefGrup$*nameStrnWidth PValInt dEndGInt *PDefGrup *nameStrnTop PValInt ,EndGInt *PDefGrup *nameStrnLeftPValInt  EndGInt *PDefGrup(*nameStrnScope PValStrn0 EndGInt *PDefGrup<*nameStrnSuper EncoInt PValStrn StaticText EndGInt *PDefGrup$*nameStrnIndex PValInt EndGInt *PDefGrup4*nameStrnNameEncoInt PValStrnDieText EndGInt *CBixInt iLckInt EndGInt *mCtrlGrupD*cclsStrnRoundRectangle nameStrnRoundRectangle PDefGrupD*nameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt *PDefGrup(*nameStrn OvalHeight PValInt EndGInt *PDefGrup(*nameStrn OvalWidth PValInt EndGInt *PDefGrup(*nameStrn BorderColor PValInt EndGInt *PDefGrup(*nameStrn BorderWidth PValInt EndGInt *PDefGrup(*nameStrn FillColor PValInt EndGInt *PDefGrup(*nameStrnEnabled PValStrnTrueEndGInt *PDefGrup0*nameStrnAutoDeactivate PValStrnTrueEndGInt *PDefGrup0*nameStrnHelpTag EncoInt PValStrnEndGInt *PDefGrup(*nameStrnVisible PValStrnTrueEndGInt *PDefGrup,*nameStrn TabPanelIndex PValInt EndGInt *PDefGrup(*nameStrn LockBottom PValStrnEndGInt *PDefGrup(*nameStrn LockRight PValStrnEndGInt *PDefGrup$*nameStrnLockTop PValStrnEndGInt *PDefGrup$*nameStrnLockLeftPValStrnEndGInt *PDefGrup$*nameStrnHeight PValInt dEndGInt *PDefGrup$*nameStrnWidth PValInt dEndGInt *PDefGrup *nameStrnTop PValInt ,EndGInt *PDefGrup *nameStrnLeftPValInt |EndGInt *PDefGrup(*nameStrnScope PValStrn0 EndGInt *PDefGrup@*nameStrnSuper EncoInt PValStrnRoundRectangle EndGInt *PDefGrup$*nameStrnIndex PValInt EndGInt *PDefGrup4*nameStrnNameEncoInt PValStrnDieBox EndGInt *CBixInt iLckInt EndGInt *CtrlGrup*cclsStrn StaticText nameStrn StaticText PDefGrup@*nameStrn InitialParent EncoInt PValStrnDieBox$3EndGInt *PDefGrup4*nameStrn DataField EncoInt PValStrnEndGInt *PDefGrup4*nameStrn DataSource EncoInt PValStrnEndGInt *PDefGrup(*nameStrn Underline PValStrnEndGInt *PDefGrup$*nameStrnItalic PValStrnEndGInt *PDefGrup$*nameStrnBoldPValStrnTrueEndGInt *PDefGrup$*nameStrnTextSizePValInt @EndGInt *PDefGrup8*nameStrnTextFontEncoInt PValStrnTahoma EndGInt *PDefGrup0*nameStrnAutoDeactivate PValStrnTrueEndGInt *PDefGrup0*nameStrnHelpTag EncoInt PValStrnEndGInt *PDefGrup(*nameStrnVisible PValStrnTrueEndGInt *PDefGrup(*nameStrnEnabled PValStrnTrueEndGInt *PDefGrup(*nameStrn Multiline PValStrnEndGInt *PDefGrup(*nameStrn TextColor PValInt EndGInt *PDefGrup(*nameStrn TextAlign PValInt EndGInt *PDefGrup0*nameStrnTextEncoInt PValStrn6 EndGInt *PDefGrup$*nameStrnTabIndexPValInt EndGInt *PDefGrup,*nameStrn TabPanelIndex PValInt EndGInt *PDefGrup(*nameStrn LockBottom PValStrnEndGInt *PDefGrup(*nameStrn LockRight PValStrnEndGInt *PDefGrup$*nameStrnLockTop PValStrnEndGInt *PDefGrup$*nameStrnLockLeftPValStrnEndGInt *PDefGrup$*nameStrnHeight PValInt dEndGInt *PDefGrup$*nameStrnWidth PValInt dEndGInt *PDefGrup *nameStrnTop PValInt ,EndGInt *PDefGrup *nameStrnLeftPValInt |EndGInt *PDefGrup(*nameStrnScope PValStrn0 EndGInt *PDefGrup<*nameStrnSuper EncoInt PValStrn StaticText EndGInt *PDefGrup$*nameStrnIndex PValInt EndGInt *PDefGrup4*nameStrnNameEncoInt PValStrnDieText EndGInt *CBixInt iLckInt EndGInt *CtrlGrup*cclsStrnGroupBoxnameStrnGroupBoxPDefGrup8*nameStrn InitialParent EncoInt PValStrnEndGInt *PDefGrup(*nameStrn Underline PValStrnEndGInt *PDefGrup$*nameStrnItalic PValStrnEndGInt *PDefGrup *nameStrnBoldPValStrnEndGInt *PDefGrup$*nameStrnTextSizePValInt EndGInt *PDefGrup8*nameStrnTextFontEncoInt PValStrnSystem EndGInt *PDefGrup0*nameStrnAutoDeactivate PValStrnTrueEndGInt *PDefGrup0*nameStrnHelpTag EncoInt PValStrnEndGInt *PDefGrup(*nameStrnVisible PValStrnTrueEndGInt *PDefGrup(*nameStrnEnabled PValStrnTrueEndGInt *PDefGrup4*nameStrnCaption EncoInt PValStrnTypeEndGInt *PDefGrup$*nameStrnTabIndexPValInt EndGInt *PDefGrup,*nameStrn TabPanelIndex PValInt EndGInt *PDefGrup(*nameStrn LockBottom PValStrnEndGInt *PDefGrup(*nameStrn LockRight PValStrnEndGInt *PDefGrup$*nameStrnLockTop PValStrnEndGInt *PDefGrup$*nameStrnLockLeftPValStrnEndGInt *PDefGrup$*nameStrnHeight PValInt 2EndGInt *PDefGrup$*nameStrnWidth PValInt EndGInt *PDefGrup *nameStrnTop PValInt EndGInt *PDefGrup *nameStrnLeftPValInt EndGInt *PDefGrup(*nameStrnScope PValStrn0 EndGInt *PDefGrup8*nameStrnSuper EncoInt PValStrnGroupBoxEndGInt *PDefGrup$*nameStrnIndex PValInt EndGInt *PDefGrup8*nameStrnNameEncoInt PValStrn GroupBox2 EndGInt *CBixInt iLckInt EndGInt *CtrlGrup@*cclsStrn RadioButton nameStrn RadioButton PDefGrupD*nameStrn InitialParent EncoInt PValStrn GroupBox2 EndGInt *PDefGrup$*nameStrnValue PValStrnEndGInt *PDefGrup(*nameStrn Underline PValStrnEndGInt *PDefGrup$*nameStrnItalic PValStrnEndGInt *PDefGrup *nameStrnBoldPValStrnEndGInt *PDefGrup$*nameStrnTextSizePValInt EndGInt *PDefGrup8*nameStrnTextFontEncoInt PValStrnSystem EndGInt *PDefGrup0*nameStrnAutoDeactivate PValStrnTrueEndGInt *PDefGrup0*nameStrnHelpTag EncoInt PValStrnEndGInt *PDefGrup(*nameStrnVisible PValStrnTrueEndGInt *PDefGrup(*nameStrnEnabled PValStrnTrueEndGInt *PDefGrup8*nameStrnCaption EncoInt PValStrnColors EndGInt *PDefGrup(*nameStrnTabStop PValStrnTrueEndGInt *PDefGrup$*nameStrnTabIndexPValInt EndGInt *PDefGrup,*nameStrn TabPanelIndex PValInt EndGInt *PDefGrup(*nameStrn LockBottom PValStrnEndGInt *PDefGrup(*nameStrn LockRight PValStrnEndGInt *PDefGrup$*nameStrnLockTop PValStrnEndGInt *PDefGrup$*nameStrnLockLeftPValStrnEndGInt *PDefGrup$*nameStrnHeight PValInt EndGInt *PDefGrup$*nameStrnWidth PValInt nameStrnTabIndexPValInt EndGInt +>PDefGrup,+?nameStrn TabPanelIndex PValInt EndGInt +?PDefGrup(+@nameStrn LockBottom PValStrnEndGInt +@PDefGrup(+AnameStrn LockRight PValStrnEndGInt +APDefGrup$+BnameStrnLockTop PValStrnEndGInt +BPDefGrup$+CnameStrnLockLeftPValStrnEndGInt +CPDefGrup$+DnameStrnHeight PValInt EndGInt +DPDefGrup$+EnameStrnWidth PValInt EndGInt +EPDefGrup +FnameStrnTop PValInt EndGInt +FPDefGrup +GnameStrnLeftPValInt EndGInt +GPDefGrup(+HnameStrnScope PValStrn0 EndGInt +HPDefGrup<+InameStrnSuper EncoInt PValStrn PushButton EndGInt +IPDefGrup$+JnameStrnIndex PValInt EndGInt +JPDefGrup8+KnameStrnNameEncoInt PValStrn PushButton1 EndGInt +KCBixInt iLckInt EndGInt +/CtrlGrup+LcclsStrnGroupBoxnameStrnGroupBoxPDefGrup8+MnameStrn InitialParent EncoInt PValStrnEndGInt +MPDefGrup(+NnameStrn Underline PValStrnEndGInt +NPDefGrup$+OnameStrnItalic PValStrnEndGInt +OPDefGrup +PnameStrnBoldPValStrnEndGInt +PPDefGrup$+QnameStrnTextSizePValInt EndGInt +QPDefGrup8+RnameStrnTextFontEncoInt PValStrnSystem EndGInt +RPDefGrup0+SnameStrnAutoDeactivate PValStrnTrueEndGInt +SPDefGrup0+TnameStrnHelpTag EncoInt PValStrnEndGInt +TPDefGrup(+UnameStrnVisible PValStrnTrueEndGInt +UPDefGrup(+VnameStrnEnabled PValStrnTrueEndGInt +VPDefGrup8+WnameStrnCaption EncoInt PValStrnResult EndGInt +WPDefGrup$+XnameStrnTabIndexPValInt EndGInt +XPDefGrup,+YnameStrn TabPanelIndex PValInt EndGInt +YPDefGrup(+ZnameStrn LockBottom PValStrnEndGInt +ZPDefGrup(+[nameStrn LockRight PValStrnEndGInt +[PDefGrup$+\nameStrnLockTop PValStrnEndGInt +\PDefGrup$+]nameStrnLockLeftPValStrnEndGInt +]PDefGrup$+^nameStrnHeight PValInt EndGInt +^PDefGrup$+_nameStrnWidth PValInt EndGInt +_PDefGrup +`nameStrnTop PValInt EndGInt +`PDefGrup +anameStrnLeftPValInt EndGInt +aPDefGrup(+bnameStrnScope PValStrn0 EndGInt +bPDefGrup8+cnameStrnSuper EncoInt PValStrnGroupBoxEndGInt +cPDefGrup$+dnameStrnIndex PValInt EndGInt +dPDefGrup8+enameStrnNameEncoInt PValStrn GroupBox4 EndGInt +eCBixInt iLckInt EndGInt +LCtrlGrup +fcclsStrn StaticText nameStrn StaticText PDefGrupD+gnameStrn InitialParent EncoInt PValStrn GroupBox4 EndGInt +gPDefGrup4+hnameStrn DataField EncoInt PValStrnEndGInt +hPDefGrup4+inameStrn DataSource EncoInt PValStrnEndGInt +iPDefGrup(+jnameStrn Underline PValStrnEndGInt +jPDefGrup$+knameStrnItalic PValStrnEndGInt +kPDefGrup$+lnameStrnBoldPValStrnTrueEndGInt +lPDefGrup$+mnameStrnTextSizePValInt `EndGInt +mPDefGrup8+nnameStrnTextFontEncoInt PValStrnArial EndGInt +nPDefGrup0+onameStrnAutoDeactivate PValStrnTrueEndGInt +oPDefGrup0+pnameStrnHelpTag EncoInt PValStrnEndGInt +pPDefGrup(+qnameStrnVisible PValStrnTrueEndGInt +qPDefGrup(+rnameStrnEnabled PValStrnTrueEndGInt +rPDefGrup0+snameStrn Multiline PValStrnFalse EndGInt +sPDefGrup(+tnameStrn TextColor PValInt EndGInt +tPDefGrup(+unameStrn TextAlign PValInt EndGInt +uPDefGrup0+vnameStrnTextEncoInt PValStrn20 EndGInt +vPDefGrup$+wnameStrnTabIndexPValInt EndGInt +wPDefGrup,+xnameStrn TabPanelIndex PValInt EndGInt +xPDefGrup(+ynameStrn LockBottom PValStrnEndGInt +yPDefGrup(+znameStrn LockRight PValStrnEndGInt +zPDefGrup$+{nameStrnLockTop PValStrnEndGInt +{PDefGrup$+|nameStrnLockLeftPValStrnEndGInt +|PDefGrup$+}nameStrnHeight PValInt EndGInt +}PDefGrup$+~nameStrnWidth PValInt EndGInt +~PDefGrup +nameStrnTop PValInt EndGInt +PDefGrup +nameStrnLeftPValInt EndGInt +PDefGrup(+nameStrnScope PValStrn0 EndGInt +PDefGrup<+nameStrnSuper EncoInt PValStrn StaticText EndGInt +PDefGrup$+nameStrnIndex PValInt EndGInt +PDefGrup4+nameStrnNameEncoInt PValStrnResText EndGInt +CBixInt iLckInt EndGInt +fCtrlGrup+cclsStrnGroupBoxnameStrnGroupBoxPDefGrup8+nameStrn InitialParent EncoInt PValStrnEndGInt +PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$+nameStrnItalic PValStrnEndGInt +PDefGrup +nameStrnBoldPValStrnEndGInt +PDefGrup$+nameStrnTextSizePValInt EndGInt +PDefGrup8+nameStrnTextFontEncoInt PValStrnSystem EndGInt +PDefGrup0+nameStrnAutoDeactivate PValStrnTrueEndGInt +PDefGrup0+nameStrnHelpTag EncoInt PValStrnEndGInt +PDefGrup(+nameStrnVisible PValStrnTrueEndGInt +PDefGrup(+nameStrnEnabled PValStrnTrueEndGInt +PDefGrup<+nameStrnCaption EncoInt PValStrn Character EndGInt +PDefGrup$+nameStrnTabIndexPValInt EndGInt +PDefGrup,+nameStrn TabPanelIndex PValInt EndGInt +PDefGrup(+nameStrn LockBottom PValStrnEndGInt +PDefGrup(+nameStrn LockRight PValStrnEndGInt +PDefGrup$+nameStrnLockTop PValStrnEndGInt +PDefGrup$+nameStrnLockLeftPValStrnEndGInt +PDefGrup$+nameStrnHeight PValInt EndGInt +PDefGrup$+nameStrnWidth PValInt EndGInt +PDefGrup +nameStrnTop PValInt EndGInt +PDefGrup +nameStrnLeftPValInt  EndGInt +PDefGrup(+nameStrnScope PValStrn0 EndGInt +PDefGrup8+nameStrnSuper EncoInt PValStrnGroupBoxEndGInt +PDefGrup$+nameStrnIndex PValInt EndGInt +PDefGrup8+nameStrnNameEncoInt PValStrn GroupBox5 EndGInt +CBixInt iLckInt EndGInt +CtrlGruph+cclsStrn PopupMenu nameStrn PopupMenu PDefGrupD+nameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt +PDefGrup4+nameStrn DataField EncoInt PValStrnEndGInt +PDefGrup4+nameStrn DataSource EncoInt PValStrnEndGInt +PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$+nameStrnItalic PValStrnEndGInt +PDefGrup +nameStrnBoldPValStrnEndGInt +PDefGrup$+nameStrnTextSizePValInt EndGInt +PDefGrup8+nameStrnTextFontEncoInt PValStrnArial EndGInt +PDefGrup0+nameStrnAutoDeactivate PValStrnTrueEndGInt +PDefGrup0+nameStrnHelpTag EncoInt PValStrnEndGInt +PDefGrup(+nameStrnVisible PValStrnTrueEndGInt +PDefGrup(+nameStrn ListIndex PValInt EndGInt +PDefGrup+nameStrn 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 +PDefGrup,+nameStrnEnabled PValStrnFalse EndGInt +PDefGrup(+nameStrnTabStop PValStrnTrueEndGInt +PDefGrup$+nameStrnTabIndexPValInt EndGInt +PDefGrup,+nameStrn TabPanelIndex PValInt EndGInt +PDefGrup(+nameStrn LockBottom PValStrnEndGInt +PDefGrup(+nameStrn LockRight PValStrnEndGInt +PDefGrup$+nameStrnLockTop PValStrnEndGInt +PDefGrup$+nameStrnLockLeftPValStrnEndGInt +PDefGrup$+nameStrnHeight PValInt EndGInt +PDefGrup$+nameStrnWidth PValInt EndGInt +PDefGrup +nameStrnTop PValInt "EndGInt +PDefGrup +nameStrnLeftPValInt EndGInt +PDefGrup(+nameStrnScope PValStrn0 EndGInt +PDefGrup<+nameStrnSuper EncoInt PValStrn PopupMenu EndGInt +PDefGrup$+nameStrnIndex PValInt EndGInt +PDefGrup4+nameStrnNameEncoInt PValStrncbSkill EndGInt +CBixInt iLckInt EndGInt +CtrlGrup(+cclsStrn StaticText nameStrn StaticText PDefGrupD+nameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt +PDefGrup4+nameStrn DataField EncoInt PValStrnEndGInt +PDefGrup4+nameStrn DataSource EncoInt PValStrnEndGInt +PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$+nameStrnItalic PValStrnEndGInt +PDefGrup$+nameStrnBoldPValStrnTrueEndGInt +PDefGrup$+nameStrnTextSizePValInt EndGInt +PDefGrup8+nameStrnTextFontEncoInt PValStrnSystem EndGInt +PDefGrup0+nameStrnAutoDeactivate PValStrnTrueEndGInt +PDefGrup0+nameStrnHelpTag EncoInt PValStrnEndGInt +PDefGrup(+nameStrnVisible PValStrnTrueEndGInt +PDefGrup(+nameStrnEnabled PValStrnTrueEndGInt +PDefGrup(+nameStrn Multiline PValStrnEndGInt +PDefGrup(+nameStrn TextColor PValInt EndGInt +PDefGrup(+nameStrn TextAlign PValInt EndGInt +PDefGrup<+nameStrnTextEncoInt PValStrnTotal Skill Lvl EndGInt +PDefGrup$+nameStrnTabIndexPValInt EndGInt +PDefGrup,+nameStrn TabPanelIndex PValInt EndGInt +PDefGrup(+nameStrn LockBottom PValStrnEndGInt +PDefGrup(+nameStrn LockRight PValStrnEndGInt +PDefGrup$+nameStrnLockTop PValStrnEndGInt +PDefGrup$+nameStrnLockLeftPValStrnEndGInt +PDefGrup$+nameStrnHeight PValInt EndGInt +PDefGrup$+nameStrnWidth PValInt EndGInt +PDefGrup +nameStrnTop PValInt EndGInt +PDefGrup +nameStrnLeftPValInt EndGInt +PDefGrup(+nameStrnScope PValStrn0 EndGInt +PDefGrup<+nameStrnSuper EncoInt PValStrn StaticText EndGInt +PDefGrup$+nameStrnIndex PValInt EndGInt +PDefGrup8+nameStrnNameEncoInt PValStrn StaticText1 EndGInt +CBixInt iLckInt EndGInt +CtrlGruph+cclsStrn PopupMenu nameStrn PopupMenu PDefGrupD+nameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt +PDefGrup4+nameStrn DataField EncoInt PValStrnEndGInt +PDefGrup4+nameStrn DataSource EncoInt PValStrnEndGInt +PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$+nameStrnItalic PValStrnEndGInt +PDefGrup +nameStrnBoldPValStrnEndGInt +PDefGrup$+nameStrnTextSizePValInt EndGInt +PDefGrup8+nameStrnTextFontEncoInt PValStrnArial EndGInt +PDefGrup0+nameStrnAutoDeactivate PValStrnTrueEndGInt +PDefGrup0+nameStrnHelpTag EncoInt PValStrnEndGInt +PDefGrup(+nameStrnVisible PValStrnTrueEndGInt +PDefGrup(+nameStrn ListIndex PValInt EndGInt +PDefGrup+nameStrn 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 +PDefGrup,+nameStrnEnabled PValStrnFalse EndGInt +PDefGrup(+nameStrnTabStop PValStrnTrueEndGInt +PDefGrup$+nameStrnTabIndexPValInt EndGInt +PDefGrup,+nameStrn TabPanelIndex PValInt EndGInt +PDefGrup(+nameStrn LockBottom PValStrnEndGInt +PDefGrup(+nameStrn LockRight PValStrnEndGInt +PDefGrup$+nameStrnLockTop PValStrnEndGInt +PDefGrup$+nameStrnLockLeftPValStrnEndGInt +PDefGrup$+nameStrnHeight PValInt EndGInt +PDefGrup$+nameStrnWidth PValInt EndGInt +PDefGrup +nameStrnTop PValInt YEndGInt +PDefGrup +nameStrnLeftPValInt EndGInt +PDefGrup(+nameStrnScope PValStrn0 EndGInt +PDefGrup<+nameStrnSuper EncoInt PValStrn PopupMenu EndGInt +PDefGrup$+nameStrnIndex PValInt EndGInt +PDefGrup4+nameStrnNameEncoInt PValStrncbDiff EndGInt +CBixInt iLckInt EndGInt +CtrlGrup$+cclsStrn StaticText nameStrn StaticText PDefGrupD+nameStrn InitialParent EncoInt PValStrn GroupBox5 EndGInt +PDefGrup4+nameStrn DataField EncoInt PValStrnEndGInt +PDefGrup4+nameStrn DataSource EncoInt PValStrnEndGInt +PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$+nameStrnItalic PValStrnEndGInt +PDefGrup$,nameStrnBoldPValStrnTrueEndGInt ,PDefGrup$,nameStrnTextSizePValInt EndGInt ,PDefGrup8,nameStrnTextFontEncoInt PValStrnSystem EndGInt ,PDefGrup0,nameStrnAutoDeactivate PValStrnTrueEndGInt ,PDefGrup0,nameStrnHelpTag EncoInt PValStrnEndGInt ,PDefGrup(,nameStrnVisible PValStrnTrueEndGInt ,PDefGrup(,nameStrnEnabled PValStrnTrueEndGInt ,PDefGrup(,nameStrn Multiline PValStrnEndGInt ,PDefGrup(,nameStrn TextColor PValInt EndGInt ,PDefGrup(, nameStrn TextAlign PValInt EndGInt , PDefGrup8, nameStrnTextEncoInt PValStrn Difficulty EndGInt , PDefGrup$, nameStrnTabIndexPValInt EndGInt , PDefGrup,, nameStrn TabPanelIndex PValInt EndGInt , PDefGrup(, nameStrn LockBottom PValStrnEndGInt , PDefGrup(,nameStrn LockRight PValStrnEndGInt ,PDefGrup$,nameStrnLockTop PValStrnEndGInt ,PDefGrup$,nameStrnLockLeftPValStrnEndGInt ,PDefGrup$,nameStrnHeight PValInt EndGInt ,PDefGrup$,nameStrnWidth PValInt EndGInt ,PDefGrup ,nameStrnTop PValInt FEndGInt ,PDefGrup ,nameStrnLeftPValInt EndGInt ,PDefGrup(,nameStrnScope PValStrn0 EndGInt ,PDefGrup<,nameStrnSuper EncoInt PValStrn StaticText EndGInt ,PDefGrup$,nameStrnIndex PValInt EndGInt ,PDefGrup8,nameStrnNameEncoInt PValStrn StaticText2 EndGInt ,CBixInt iLckInt EndGInt +PadnPadnd****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu" NameStrnMenuBar1ContInt paswStrnMItmGrup|,spmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup,spmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut IconInt egmaEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt ,EndGInt ,MItmGrup\,spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup,spmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,MItmGrup,spmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,MItmGrup,spmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,MItmGrup,spmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,MItmGrup, spmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt , MItmGrup,!spmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,!MItmGrup,"spmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,"MItmGrup,#spmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,#EndGInt ,MItmGrup,$spmuInt nameStrnmnuPrefstextStrn Preferences indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup,%spmuInt nameStrnmnuprefsUseCharValues textStrn&Use Skill and Difficulty indxInt scutStrnCmd+u MiSKStrnu MiMkInt IconInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,%EndGInt ,$MItmGrupd,&spmuInt nameStrn mnuRulesMenutextStrnRules indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup,'spmuInt nameStrnmnuRulestextStrnOpen &Rules PageindxInt scutStrnCmd+r MiSKStrnr MiMkInt IconInt [DmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ,'EndGInt ,&PadnPadn********************************************************************************************************************************************BlokpObjcw NameStrnxdice ContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrup,(nameStrnRollDiceCompStrnVsblInt sorcGrup,)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 ,)EncoInt AlasStrnflagInt shrdInt parmStrn nMin As Integer, nMax As IntegerrsltStrnInteger EndGInt ,(MethGrupt,*nameStrn ChangeRollerCompStrnVsblInt sorcGrup,+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 ,+EncoInt AlasStrnflagInt shrdInt parmStrnType As String rsltStrnBoolean EndGInt ,*MethGrup ,,nameStrnDispDiceCompStrnVsblInt sorcGrup l,-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 ,-EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnBoolean EndGInt ,,MethGrupx,.nameStrnCalcTot CompStrnVsblInt sorcGrup,/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 ,/EncoInt AlasStrnflagInt shrdInt parmStrnchkValue As Integer rsltStrnInteger EndGInt ,.PropGrup,0nameStrnRollTypeCompStrnVsblInt sorcGrup<,1EncoInt srclStrnRollType As String srclStrnEndGInt ,1EncoInt declStrnRollType As String = "4d6-4"flagInt shrdInt EndGInt ,0PropGrup,2nameStrnUseFunc CompStrnVsblInt sorcGrup<,3EncoInt srclStrnUseFunc As Boolean srclStrnEndGInt ,3EncoInt declStrnUseFunc As Boolean flagInt shrdInt EndGInt ,2PropGrup,4nameStrnDie(3) CompStrnVsblInt sorcGrup<,5EncoInt srclStrnDie(3) As Integer srclStrnEndGInt ,5EncoInt declStrnDie(3) As Integer flagInt shrdInt EndGInt ,4PropGrup,6nameStrnSkill CompStrnVsblInt sorcGrup8,7EncoInt srclStrnSkill As IntegersrclStrnEndGInt ,7EncoInt declStrnSkill As Integer = 2flagInt shrdInt EndGInt ,6PropGrup,8nameStrnDiffCompStrnVsblInt sorcGrup8,9EncoInt srclStrnDiff As Integer srclStrnEndGInt ,9EncoInt declStrnDiff As Integer = 2 flagInt shrdInt EndGInt ,8PropGrup,:nameStrn UseValues CompStrnVsblInt sorcGrup<,;EncoInt srclStrnUseValues As BooleansrclStrnEndGInt ,;EncoInt declStrnUseValues As Boolean = FalseflagInt shrdInt EndGInt ,:VwBhGrupD,NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt ,>VwPrGrupH,?NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt ,?VwPrGrupX,@NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt ,@VwPrGrupX,ANameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt ,AVwPrGrupp,BNameStrnRollTypePrGpStrnBehaviorPValStrn4d6-4 typeStrnString vbETStrnMultiLineEditor EndGInt ,BVwPrGrupP,CNameStrnUseFunc PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ,CVwPrGrupP,DNameStrnSkill PrGpStrnBehaviorPValStrn2 typeStrnInteger EndGInt ,DVwPrGrupL,ENameStrnDiffPrGpStrnBehaviorPValStrn2 typeStrnInteger EndGInt ,EVwPrGrupX,FNameStrn UseValues PrGpStrnBehaviorPValStrnFalse typeStrnBoolean EndGInt ,FEndGInt , "" Then Window2.Title = "The Seven Rules - " + Left(URL, 29) srclStrnEnd Sub EndGInt ,EndGInt ,EndGInt ,CBhvGrup,SuprStrn PushButton HInsGrup,nameStrnAction CompStrnVsblInt sorcGrup,EncoInt srclStrn Sub Action()srclStrn