home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 10 / PCGAMER10.bin / primal / code / micro.frm < prev    next >
Text File  |  1995-05-11  |  2KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form MicroMachines 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Kev's Video Selection"
  5.    ClientHeight    =   6915
  6.    ClientLeft      =   2520
  7.    ClientTop       =   2955
  8.    ClientWidth     =   9570
  9.    Height          =   7320
  10.    Left            =   2460
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   MICRO.FRX:0000
  15.    ScaleHeight     =   6915
  16.    ScaleWidth      =   9570
  17.    Top             =   2610
  18.    Width           =   9690
  19.    Begin Image IntClk 
  20.       Height          =   1455
  21.       Left            =   360
  22.       MousePointer    =   10  'Up Arrow
  23.       Top             =   4800
  24.       Width           =   1575
  25.    End
  26.    Begin Image GoBack 
  27.       Height          =   1215
  28.       Left            =   240
  29.       MousePointer    =   10  'Up Arrow
  30.       Top             =   240
  31.       Width           =   1575
  32.    End
  33. End
  34. Option Explicit
  35.  
  36. Sub Form_Load ()
  37.     'If HiColour = False Then
  38.     '    Me.Picture = LoadPicture(CDrive & "cd\page1256.bmp")
  39.     'Else
  40.     '    Me.Picture = LoadPicture(CDrive & "cd\page1.bmp")
  41.     'End If
  42.     'If SmallRes = True Then
  43.     '    Me.Move 0, 0
  44.     'Else
  45.     '    centre Me
  46.     'End If
  47.     'cover.MMControl6.Command = "stop"
  48.     'cover.MMControl6.Command = "close"
  49. End Sub
  50.  
  51. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  52.     'info.Visible = False
  53. End Sub
  54.  
  55. Sub GoBack_Click ()
  56.     'cover.Show
  57.     Unload Me
  58. End Sub
  59.  
  60. Sub IntClk_Click ()
  61.     introduction.Show
  62.     Hide
  63.     introduction.MMControl1.FileName = CDrive & "primal\primal2.avi"
  64.     screen.MousePointer = 11
  65.     introduction.MMControl1.Command = "open"
  66.     introduction.MMControl1.hWndDisplay = introduction.Picture1.hWnd
  67.     'introduction.MMControl1.Silent = True
  68.     introduction.Picture1.Visible = True
  69.     DoEvents
  70.     introduction.MMControl1.Command = "play"
  71.     screen.MousePointer = 0
  72.     'MsgBox "After AVI"
  73.  
  74. End Sub
  75.  
  76.