home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD89628142000.psc / frmCinematic.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-13  |  6.2 KB  |  180 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCinematic 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Enable Cinematics"
  5.    ClientHeight    =   2220
  6.    ClientLeft      =   4650
  7.    ClientTop       =   3615
  8.    ClientWidth     =   2865
  9.    Icon            =   "frmCinematic.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2220
  14.    ScaleWidth      =   2865
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton chkMovieSave 
  17.       Caption         =   "Save &Settings"
  18.       Height          =   495
  19.       Left            =   120
  20.       TabIndex        =   5
  21.       Top             =   1560
  22.       Width           =   2535
  23.    End
  24.    Begin VB.CheckBox chkMovieEpilogue 
  25.       Caption         =   "&Epilogue"
  26.       Height          =   255
  27.       Left            =   840
  28.       TabIndex        =   4
  29.       Top             =   1080
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CheckBox chkMovieActIV 
  33.       Caption         =   "Act &Four"
  34.       Height          =   255
  35.       Left            =   1560
  36.       TabIndex        =   3
  37.       Top             =   600
  38.       Width           =   1215
  39.    End
  40.    Begin VB.CheckBox chkMovieActIII 
  41.       Caption         =   "Act T&hree"
  42.       Height          =   255
  43.       Left            =   120
  44.       TabIndex        =   2
  45.       Top             =   600
  46.       Width           =   1215
  47.    End
  48.    Begin VB.CheckBox chkMovieActII 
  49.       Caption         =   "Act &Two"
  50.       Height          =   255
  51.       Left            =   1560
  52.       TabIndex        =   1
  53.       Top             =   120
  54.       Width           =   1215
  55.    End
  56.    Begin VB.CheckBox chkMovieActI 
  57.       Caption         =   "Act &One"
  58.       Height          =   255
  59.       Left            =   120
  60.       TabIndex        =   0
  61.       Top             =   120
  62.       Width           =   1215
  63.    End
  64. Attribute VB_Name = "frmCinematic"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Dim Current As String, Update As String
  70. Private Sub chkMovieActII_Click()
  71. If chkMovieActII.Value = 1 Then
  72. chkMovieActI.Value = 1
  73. chkMovieActII.Value = 1
  74. chkMovieActI.Enabled = False
  75. ElseIf chkMovieActII.Value = 0 Then
  76. chkMovieActI.Value = 0
  77. chkMovieActII.Value = 0
  78. chkMovieActI.Enabled = True
  79. chkMovieActII.Enabled = True
  80. End If
  81. End Sub
  82. Private Sub chkMovieActIII_Click()
  83. If chkMovieActIII.Value = 1 Then
  84. chkMovieActI.Value = 1
  85. chkMovieActII.Value = 1
  86. chkMovieActIII.Value = 1
  87. chkMovieActI.Enabled = False
  88. chkMovieActII.Enabled = False
  89. ElseIf chkMovieActIII.Value = 0 Then
  90. chkMovieActI.Value = 0
  91. chkMovieActII.Value = 0
  92. chkMovieActIII.Value = 0
  93. chkMovieActI.Enabled = True
  94. chkMovieActII.Enabled = True
  95. chkMovieActIII.Enabled = True
  96. End If
  97. End Sub
  98. Private Sub chkMovieActIV_Click()
  99. If chkMovieActIV.Value = 1 Then
  100. chkMovieActI.Value = 1
  101. chkMovieActII.Value = 1
  102. chkMovieActIII.Value = 1
  103. chkMovieActIV.Value = 1
  104. chkMovieActI.Enabled = False
  105. chkMovieActII.Enabled = False
  106. chkMovieActIII.Enabled = False
  107. ElseIf chkMovieActIV.Value = 0 Then
  108. chkMovieActI.Value = 0
  109. chkMovieActII.Value = 0
  110. chkMovieActIII.Value = 0
  111. chkMovieActIV.Value = 0
  112. chkMovieActI.Enabled = True
  113. chkMovieActII.Enabled = True
  114. chkMovieActIII.Enabled = True
  115. chkMovieActIV.Enabled = True
  116. End If
  117. End Sub
  118. Private Sub chkMovieEpilogue_Click()
  119. If chkMovieEpilogue.Value = 1 Then
  120. chkMovieActI.Value = 1
  121. chkMovieActII.Value = 1
  122. chkMovieActIII.Value = 1
  123. chkMovieActIV.Value = 1
  124. chkMovieEpilogue.Value = 1
  125. chkMovieActI.Enabled = False
  126. chkMovieActII.Enabled = False
  127. chkMovieActIII.Enabled = False
  128. chkMovieActIV.Enabled = False
  129. ElseIf chkMovieEpilogue.Value = 0 Then
  130. chkMovieActI.Value = 0
  131. chkMovieActII.Value = 0
  132. chkMovieActIII.Value = 0
  133. chkMovieActIV.Value = 0
  134. chkMovieEpilogue.Value = 0
  135. chkMovieActI.Enabled = True
  136. chkMovieActII.Enabled = True
  137. chkMovieActIII.Enabled = True
  138. chkMovieActIV.Enabled = True
  139. chkMovieEpilogue.Enabled = True
  140. End If
  141. End Sub
  142. Private Sub chkMovieSave_Click()
  143. If chkMovieActI.Value = 1 And chkMovieActII.Value = 1 And chkMovieActIII.Value = 1 And chkMovieActIV.Value = 1 And chkMovieEpilogue.Value = 1 Then
  144. UpdateKey HKEY_CURRENT_USER, "Software\Blizzard Entertainment\Diablo II", "Aux Battle.Net", "216.148.246.50"
  145. ElseIf chkMovieActI.Value = 1 And chkMovieActII.Value = 1 And chkMovieActIII.Value = 1 And chkMovieActIV.Value = 1 And chk.MovieEpilogue.Value = 0 Then
  146. UpdateKey HKEY_CURRENT_USER, "Software\Blizzard Entertainment\Diablo II", "Aux Battle.Net", "216.148.246.40"
  147. ElseIf chkMovieActI.Value = 1 And chkMovieActII.Value = 1 And chkMovieActIII.Value = 1 And chk.MovieActIV.Value = 0 And chk.MovieEpilogue.Value = 0 Then
  148. UpdateKey HKEY_CURRENT_USER, "Software\Blizzard Entertainment\Diablo II", "Aux Battle.Net", "216.148.246.98"
  149. ElseIf chkMovieActI.Value = 1 And chkMovieActII.Value = 1 And chk.MovieActIII.Value = 0 And chk.MovieActIV.Value = 0 And chk.MovieEpilogue.Value = 0 Then
  150. UpdateKey HKEY_CURRENT_USER, "Software\Blizzard Entertainment\Diablo II", "Aux Battle.Net", "216.148.246.38"
  151. ElseIf chkMovieActI.Value = 1 And chk.MovieActII.Value = 0 And chk.MovieActIII.Value = 0 And chk.MovieActIV.Value = 0 And chk.MovieEpilogue.Value = 0 Then
  152. UpdateKey HKEY_CURRENT_USER, "Software\Blizzard Entertainment\Diablo II", "Aux Battle.Net", "216.148.246.34"
  153. End If
  154. MsgBox ("Changes Complete!")
  155. End Sub
  156. Private Sub Form_Load()
  157. Current = GetKeyValue(HKEY_CURRENT_USER, "Software\Blizzard Entertainment\Diablo II", "Aux Battle.Net")
  158. If Current = "216.148.246.50" Then
  159.     chkMovieEpilogue.Value = 1
  160.     chkMovieActIV.Value = 1
  161.     chkMovieActIII.Value = 1
  162.     chkMovieActII.Value = 1
  163.     chkMovieActI.Value = 1
  164. ElseIf Current = "216.148.246.40" Then
  165.     chkMovieActIV.Value = 1
  166.     chkMovieActIII.Value = 1
  167.     chkMovieActII.Value = 1
  168.     chkMovieActI.Value = 1
  169. ElseIf Current = "216.148.246.98" Then
  170.     chkMovieActIII.Value = 1
  171.     chkMovieActII.Value = 1
  172.     chkMovieActI.Value = 1
  173. ElseIf Current = "216.148.246.38" Then
  174.     chkMovieActII.Value = 1
  175.     chkMovieActI.Value = 1
  176. ElseIf Current = "216.148.246.34" Then
  177.     chkMovieActI.Value = 1
  178. End If
  179. End Sub
  180.