PC Attack UltraDisc 4/pc-attack-ultradisc-4.iso/primal/code/select.frm

Visual Basic Form | 1995-05-19 | 7.3 KB | 226 lines

VERSION 2.00
Begin Form Micromachines
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Primal Rage"
   ClientHeight    =   7185
   ClientLeft      =   1740
   ClientTop       =   1650
   ClientWidth     =   9495
   Height          =   7590
   Left            =   1680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   SELECT.FRX:0000
   ScaleHeight     =   7185
   ScaleWidth      =   9495
   Top             =   1305
   Width           =   9615
   Begin Image Image7
      Height          =   1695
      Left            =   6720
      MousePointer    =   10  'Up Arrow
      Top             =   4200
      Width           =   1695
   End
   Begin Image Image6
      Height          =   1695
      Left            =   4800
      MousePointer    =   10  'Up Arrow
      Top             =   4200
      Width           =   1695
   End
   Begin Image Image5
      Height          =   1695
      Left            =   2880
      MousePointer    =   10  'Up Arrow
      Top             =   4200
      Width           =   1695
   End
   Begin Image Image4
      Height          =   1695
      Left            =   960
      MousePointer    =   10  'Up Arrow
      Top             =   4200
      Width           =   1695
   End
   Begin Image Image3
      Height          =   1695
      Left            =   6720
      MousePointer    =   10  'Up Arrow
      Top             =   1800
      Width           =   1695
   End
   Begin Image Image2
      Height          =   1695
      Left            =   4800
      MousePointer    =   10  'Up Arrow
      Top             =   1800
      Width           =   1695
   End
   Begin Image Image1
      Height          =   1695
      Left            =   2880
      MousePointer    =   10  'Up Arrow
      Top             =   1800
      Width           =   1695
   End
   Begin Image IntClk
      Height          =   1695
      Left            =   960
      MousePointer    =   10  'Up Arrow
      Top             =   1800
      Width           =   1695
   End
   Begin Image GoBack
      Height          =   1215
      Left            =   240
      MousePointer    =   10  'Up Arrow
      Top             =   240
      Width           =   1575
   End
Option Explicit
Sub Form_Load ()
    arse Me
    'If HiColour = False Then
    '    Me.Picture = LoadPicture(CDrive & "cd\page1256.bmp")
    'Else
    '    Me.Picture = LoadPicture(CDrive & "cd\page1.bmp")
    'End If
    'If SmallRes = True Then
    '    Me.Move 0, 0
    'Else
    '    centre Me
    'End If
    'cover.MMControl6.Command = "stop"
    'cover.MMControl6.Command = "close"
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    'info.Visible = False
End Sub
Sub GoBack_Click ()
    'cover.Show
    exityn.Show
End Sub
Sub Image1_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest2.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\2ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub Image2_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest3.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\3ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub Image3_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest4.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\4ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub Image4_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest5.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\5ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub Image5_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest6.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\6ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub Image6_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest7.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\7ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub Image7_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest8.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\8ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
End Sub
Sub IntClk_Click ()
    Load Introduction
    Introduction.Picture = LoadPicture(CDrive & "primal\screens\quest1.bmp")
    Introduction.Show
    Hide
    Introduction.MMControl1.FileName = CDrive & "primal\avi\1ken2.avi"
    screen.MousePointer = 11
    Introduction.MMControl1.Command = "open"
    Introduction.MMControl1.hWndDisplay = Introduction.Picture1.hWnd
    'introduction.MMControl1.Silent = True
    Introduction.Picture1.Visible = True
    DoEvents
    Introduction.MMControl1.Command = "play"
    screen.MousePointer = 0
    'MsgBox "After AVI"
End Sub