home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 10 / PCGAMER10.bin / primal / code / quest.frm < prev    next >
Text File  |  1995-05-19  |  3KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form Introduction 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Primal Rage"
  5.    ClientHeight    =   7170
  6.    ClientLeft      =   1680
  7.    ClientTop       =   2400
  8.    ClientWidth     =   9585
  9.    Height          =   7575
  10.    Left            =   1620
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   QUEST.FRX:0000
  15.    ScaleHeight     =   7170
  16.    ScaleWidth      =   9585
  17.    Top             =   2055
  18.    Width           =   9705
  19.    Begin MMControl MMControl1 
  20.       Height          =   495
  21.       Left            =   2640
  22.       TabIndex        =   3
  23.       Top             =   3960
  24.       Visible         =   0   'False
  25.       Width           =   4350
  26.    End
  27.    Begin Timer Timer2 
  28.       Enabled         =   0   'False
  29.       Interval        =   3000
  30.       Left            =   8115
  31.       Top             =   2190
  32.    End
  33.    Begin PictureBox Picture1 
  34.       Height          =   2700
  35.       Left            =   3000
  36.       ScaleHeight     =   2670
  37.       ScaleWidth      =   3585
  38.       TabIndex        =   0
  39.       Top             =   1080
  40.       Visible         =   0   'False
  41.       Width           =   3615
  42.    End
  43.    Begin Label Label2 
  44.       Alignment       =   2  'Center
  45.       BackStyle       =   0  'Transparent
  46.       Height          =   285
  47.       Left            =   2760
  48.       TabIndex        =   2
  49.       Top             =   5715
  50.       Width           =   3660
  51.    End
  52.    Begin Label Label1 
  53.       Alignment       =   2  'Center
  54.       BackStyle       =   0  'Transparent
  55.       Height          =   270
  56.       Left            =   2775
  57.       TabIndex        =   1
  58.       Top             =   5325
  59.       Width           =   3645
  60.    End
  61.    Begin Image GoBack 
  62.       Height          =   1215
  63.       Left            =   480
  64.       MousePointer    =   10  'Up Arrow
  65.       Top             =   480
  66.       Width           =   1575
  67.    End
  68. End
  69.  
  70. Option Explicit
  71.  
  72. Sub Form_Load ()
  73.     arse Me
  74.     '    Me.Picture = LoadPicture(CDrive & "cd\page1256.bmp")
  75.     'Else
  76.     '    Me.Picture = LoadPicture(CDrive & "cd\page1.bmp")
  77.     'End If
  78.     'If SmallRes = True Then
  79.     '    Me.Move 0, 0
  80.     'Else
  81.     '    centre Me
  82.     'End If
  83.     
  84. End Sub
  85.  
  86. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  87.     'info.Visible = False
  88. End Sub
  89.  
  90. Sub GoBack_Click ()
  91.     micromachines.Show
  92.     Unload Me
  93. End Sub
  94.  
  95. Sub MMControl1_Done (NotifyCode As Integer)
  96.     'MsgBox "I've Finished"
  97. End Sub
  98.  
  99. Sub MMControl1_StatusUpdate ()
  100.     'Select Case mmcontrol1.Position
  101.     'Case 1020 To 2000
  102.     '    mmcontrol1.Command = "stop"
  103.      '   timer2.Enabled = True
  104.     'Case 40 To 90
  105.     '    label1 = "Micro Machines 2"
  106.     '   label2 = "TV Ad"
  107.     'Case 360 To 410
  108.      '   label1 = "Jon Smith"
  109.      '   label2 = "Editor"
  110.     'Case Else
  111.      '   label1 = ""
  112.     '    label2 = ""
  113.     'End Select
  114. End Sub
  115.  
  116. Sub Timer2_Timer ()
  117.         micromachines.Show
  118.         mmcontrol1.Command = "close"
  119.         Unload Me
  120.  
  121. End Sub
  122.  
  123.