home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / First_pers2061124192007.psc / FPS2 / frmStart.frm < prev    next >
Text File  |  2005-12-15  |  5KB  |  176 lines
  1. VERSION 5.00
  2. Begin VB.Form frmStart 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3360
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   5295
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3360
  10.    ScaleWidth      =   5295
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Frame Frame2 
  13.       Caption         =   "Fog"
  14.       Height          =   2535
  15.       Left            =   2880
  16.       TabIndex        =   4
  17.       Top             =   480
  18.       Width           =   2175
  19.       Begin VB.Frame Frame3 
  20.          Caption         =   "Fog Density"
  21.          Height          =   1575
  22.          Left            =   480
  23.          TabIndex        =   6
  24.          Top             =   720
  25.          Width           =   1575
  26.          Begin VB.OptionButton optDensity 
  27.             Caption         =   "Medium"
  28.             Height          =   255
  29.             Index           =   1
  30.             Left            =   240
  31.             TabIndex        =   9
  32.             Top             =   720
  33.             Width           =   855
  34.          End
  35.          Begin VB.OptionButton optDensity 
  36.             Caption         =   "Light"
  37.             Height          =   255
  38.             Index           =   2
  39.             Left            =   240
  40.             TabIndex        =   8
  41.             Top             =   1080
  42.             Width           =   975
  43.          End
  44.          Begin VB.OptionButton optDensity 
  45.             Caption         =   "Dense"
  46.             Height          =   255
  47.             Index           =   0
  48.             Left            =   240
  49.             TabIndex        =   7
  50.             Top             =   360
  51.             Width           =   1215
  52.          End
  53.       End
  54.       Begin VB.CheckBox chkFog 
  55.          Caption         =   "Use Fog"
  56.          Height          =   255
  57.          Left            =   240
  58.          TabIndex        =   5
  59.          Top             =   360
  60.          Value           =   1  'Checked
  61.          Width           =   1695
  62.       End
  63.    End
  64.    Begin VB.Frame Frame1 
  65.       Caption         =   "Select Time"
  66.       Height          =   1455
  67.       Left            =   240
  68.       TabIndex        =   1
  69.       Top             =   480
  70.       Width           =   2175
  71.       Begin VB.OptionButton optDay 
  72.          Caption         =   "Night"
  73.          Height          =   375
  74.          Index           =   1
  75.          Left            =   240
  76.          TabIndex        =   3
  77.          Top             =   840
  78.          Width           =   855
  79.       End
  80.       Begin VB.OptionButton optDay 
  81.          Caption         =   "Day"
  82.          Height          =   375
  83.          Index           =   0
  84.          Left            =   240
  85.          TabIndex        =   2
  86.          Top             =   360
  87.          Width           =   1095
  88.       End
  89.    End
  90.    Begin VB.CommandButton cmdOk 
  91.       Caption         =   "&OK"
  92.       Default         =   -1  'True
  93.       Height          =   495
  94.       Left            =   840
  95.       TabIndex        =   0
  96.       Top             =   2400
  97.       Width           =   1215
  98.    End
  99. End
  100. Attribute VB_Name = "frmStart"
  101. Attribute VB_GlobalNameSpace = False
  102. Attribute VB_Creatable = False
  103. Attribute VB_PredeclaredId = True
  104. Attribute VB_Exposed = False
  105. '#########################################################
  106. '#                                                       #
  107. '#      A First Person Shooting game (Incomplete)        #
  108. '#                                                       #
  109. '#      By: Aayush Kaistha                               #
  110. '#      Place: UIET, Panjab University Chandigarh, India #
  111. '#      Contact: aayushkaistha@gmail.com                 #
  112. '#                                                       #
  113. '#########################################################
  114.  
  115. Private Sub chkFog_Click()
  116.  
  117. If chkFog.Value = 0 Then
  118.     Frame3.Enabled = False
  119.     optDensity(0).Enabled = False
  120.     optDensity(1).Enabled = False
  121.     optDensity(2).Enabled = False
  122. Else
  123.     Frame3.Enabled = True
  124.     optDensity(0).Enabled = True
  125.     optDensity(1).Enabled = True
  126.     optDensity(2).Enabled = True
  127. End If
  128.  
  129. End Sub
  130.  
  131. Private Sub cmdOk_Click()
  132.  
  133. ModelPath = App.Path + "\models\"
  134. TexturePath = App.Path + "\textures\"
  135. SoundPath = App.Path + "\sound\"
  136.  
  137. If chkFog.Value = 0 Then
  138.     UseFog = False
  139. Else
  140.     UseFog = True
  141.     If optDensity(0).Value Then
  142.         FogRange = 1500
  143.     ElseIf optDensity(1).Value Then
  144.         FogRange = 2000
  145.     Else
  146.         FogRange = 3000
  147.     End If
  148. End If
  149.  
  150. If optDay(0).Value Then
  151.     Day = True
  152.     SkyTexFile(0) = TexturePath + "sky_front_day.jpg"
  153.     SkyTexFile(1) = TexturePath + "sky_back_day.jpg"
  154.     SkyTexFile(2) = TexturePath + "sky_right_day.jpg"
  155.     SkyTexFile(3) = TexturePath + "sky_left_day.jpg"
  156.     SkyTexFile(4) = TexturePath + "sky_up_day.jpg"
  157.     SkyTexFile(5) = TexturePath + "sky_down_day.jpg"
  158. Else
  159.     Day = False
  160.     SkyTexFile(0) = TexturePath + "sky_front.jpg"
  161.     SkyTexFile(1) = TexturePath + "sky_back.jpg"
  162.     SkyTexFile(2) = TexturePath + "sky_right.jpg"
  163.     SkyTexFile(3) = TexturePath + "sky_left.jpg"
  164.     SkyTexFile(4) = TexturePath + "sky_up.jpg"
  165.     SkyTexFile(5) = TexturePath + "sky_down.jpg"
  166. End If
  167.  
  168. Main
  169.  
  170. End Sub
  171.  
  172. Private Sub Form_Load()
  173.     optDay(0).Value = True
  174.     optDensity(1).Value = True
  175. End Sub
  176.