home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / redtop.fr_ / redtop.bin
Text File  |  1993-04-28  |  12KB  |  390 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Red Top"
  5.    ClientHeight    =   1680
  6.    ClientLeft      =   1770
  7.    ClientTop       =   1440
  8.    ClientWidth     =   3180
  9.    Height          =   2085
  10.    Icon            =   REDTOP.FRX:0000
  11.    Left            =   1710
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   1680
  16.    ScaleMode       =   0  'User
  17.    ScaleWidth      =   3180
  18.    Top             =   1095
  19.    Width           =   3300
  20.    Begin PictureBox Picture3 
  21.       AutoSize        =   -1  'True
  22.       Height          =   510
  23.       Index           =   17
  24.       Left            =   3690
  25.       Picture         =   REDTOP.FRX:0302
  26.       ScaleHeight     =   480
  27.       ScaleMode       =   0  'User
  28.       ScaleWidth      =   480
  29.       TabIndex        =   3
  30.       TabStop         =   0   'False
  31.       Top             =   4860
  32.       Visible         =   0   'False
  33.       Width           =   510
  34.    End
  35.    Begin PictureBox Picture3 
  36.       AutoSize        =   -1  'True
  37.       Height          =   510
  38.       Index           =   8
  39.       Left            =   3090
  40.       Picture         =   REDTOP.FRX:0604
  41.       ScaleHeight     =   480
  42.       ScaleMode       =   0  'User
  43.       ScaleWidth      =   480
  44.       TabIndex        =   20
  45.       TabStop         =   0   'False
  46.       Top             =   4860
  47.       Visible         =   0   'False
  48.       Width           =   510
  49.    End
  50.    Begin PictureBox Picture3 
  51.       AutoSize        =   -1  'True
  52.       Height          =   510
  53.       Index           =   16
  54.       Left            =   3690
  55.       Picture         =   REDTOP.FRX:0906
  56.       ScaleHeight     =   480
  57.       ScaleMode       =   0  'User
  58.       ScaleWidth      =   480
  59.       TabIndex        =   2
  60.       TabStop         =   0   'False
  61.       Top             =   4260
  62.       Visible         =   0   'False
  63.       Width           =   510
  64.    End
  65.    Begin PictureBox Picture3 
  66.       AutoSize        =   -1  'True
  67.       Height          =   510
  68.       Index           =   7
  69.       Left            =   3090
  70.       Picture         =   REDTOP.FRX:0C08
  71.       ScaleHeight     =   480
  72.       ScaleMode       =   0  'User
  73.       ScaleWidth      =   480
  74.       TabIndex        =   19
  75.       TabStop         =   0   'False
  76.       Top             =   4260
  77.       Visible         =   0   'False
  78.       Width           =   510
  79.    End
  80.    Begin PictureBox Picture3 
  81.       AutoSize        =   -1  'True
  82.       Height          =   510
  83.       Index           =   15
  84.       Left            =   3690
  85.       Picture         =   REDTOP.FRX:0F0A
  86.       ScaleHeight     =   480
  87.       ScaleMode       =   0  'User
  88.       ScaleWidth      =   480
  89.       TabIndex        =   1
  90.       TabStop         =   0   'False
  91.       Top             =   3660
  92.       Visible         =   0   'False
  93.       Width           =   510
  94.    End
  95.    Begin PictureBox Picture3 
  96.       AutoSize        =   -1  'True
  97.       Height          =   510
  98.       Index           =   6
  99.       Left            =   3090
  100.       Picture         =   REDTOP.FRX:120C
  101.       ScaleHeight     =   480
  102.       ScaleMode       =   0  'User
  103.       ScaleWidth      =   480
  104.       TabIndex        =   18
  105.       TabStop         =   0   'False
  106.       Top             =   3660
  107.       Visible         =   0   'False
  108.       Width           =   510
  109.    End
  110.    Begin PictureBox Picture3 
  111.       AutoSize        =   -1  'True
  112.       Height          =   510
  113.       Index           =   14
  114.       Left            =   3690
  115.       Picture         =   REDTOP.FRX:150E
  116.       ScaleHeight     =   480
  117.       ScaleMode       =   0  'User
  118.       ScaleWidth      =   480
  119.       TabIndex        =   0
  120.       TabStop         =   0   'False
  121.       Top             =   3060
  122.       Visible         =   0   'False
  123.       Width           =   510
  124.    End
  125.    Begin PictureBox Picture3 
  126.       AutoSize        =   -1  'True
  127.       Height          =   510
  128.       Index           =   5
  129.       Left            =   3090
  130.       Picture         =   REDTOP.FRX:1810
  131.       ScaleHeight     =   480
  132.       ScaleMode       =   0  'User
  133.       ScaleWidth      =   480
  134.       TabIndex        =   17
  135.       TabStop         =   0   'False
  136.       Top             =   3060
  137.       Visible         =   0   'False
  138.       Width           =   510
  139.    End
  140.    Begin PictureBox Picture3 
  141.       AutoSize        =   -1  'True
  142.       Height          =   510
  143.       Index           =   13
  144.       Left            =   3690
  145.       Picture         =   REDTOP.FRX:1B12
  146.       ScaleHeight     =   480
  147.       ScaleMode       =   0  'User
  148.       ScaleWidth      =   480
  149.       TabIndex        =   5
  150.       TabStop         =   0   'False
  151.       Top             =   2460
  152.       Visible         =   0   'False
  153.       Width           =   510
  154.    End
  155.    Begin PictureBox Picture3 
  156.       AutoSize        =   -1  'True
  157.       Height          =   510
  158.       Index           =   4
  159.       Left            =   3090
  160.       Picture         =   REDTOP.FRX:1E14
  161.       ScaleHeight     =   480
  162.       ScaleMode       =   0  'User
  163.       ScaleWidth      =   480
  164.       TabIndex        =   16
  165.       TabStop         =   0   'False
  166.       Top             =   2460
  167.       Visible         =   0   'False
  168.       Width           =   510
  169.    End
  170.    Begin PictureBox Picture3 
  171.       AutoSize        =   -1  'True
  172.       Height          =   510
  173.       Index           =   12
  174.       Left            =   3690
  175.       Picture         =   REDTOP.FRX:2116
  176.       ScaleHeight     =   480
  177.       ScaleMode       =   0  'User
  178.       ScaleWidth      =   480
  179.       TabIndex        =   6
  180.       TabStop         =   0   'False
  181.       Top             =   1860
  182.       Visible         =   0   'False
  183.       Width           =   510
  184.    End
  185.    Begin PictureBox Picture3 
  186.       AutoSize        =   -1  'True
  187.       Height          =   510
  188.       Index           =   3
  189.       Left            =   3090
  190.       Picture         =   REDTOP.FRX:2418
  191.       ScaleHeight     =   480
  192.       ScaleMode       =   0  'User
  193.       ScaleWidth      =   480
  194.       TabIndex        =   15
  195.       TabStop         =   0   'False
  196.       Top             =   1860
  197.       Visible         =   0   'False
  198.       Width           =   510
  199.    End
  200.    Begin PictureClip PicClip1 
  201.       Cols            =   6
  202.       Location        =   "5940,2745,1560,-2970"
  203.       Picture         =   REDTOP.FRX:271A
  204.       Rows            =   3
  205.    End
  206.    Begin PictureBox Picture3 
  207.       AutoSize        =   -1  'True
  208.       Height          =   510
  209.       Index           =   11
  210.       Left            =   3690
  211.       Picture         =   REDTOP.FRX:B68C
  212.       ScaleHeight     =   480
  213.       ScaleMode       =   0  'User
  214.       ScaleWidth      =   480
  215.       TabIndex        =   7
  216.       TabStop         =   0   'False
  217.       Top             =   1260
  218.       Visible         =   0   'False
  219.       Width           =   510
  220.    End
  221.    Begin PictureBox Picture3 
  222.       AutoSize        =   -1  'True
  223.       Height          =   510
  224.       Index           =   2
  225.       Left            =   3090
  226.       Picture         =   REDTOP.FRX:B98E
  227.       ScaleHeight     =   480
  228.       ScaleMode       =   0  'User
  229.       ScaleWidth      =   480
  230.       TabIndex        =   4
  231.       TabStop         =   0   'False
  232.       Top             =   1260
  233.       Visible         =   0   'False
  234.       Width           =   510
  235.    End
  236.    Begin CommandButton onoff 
  237.       Caption         =   "spin"
  238.       Height          =   390
  239.       Left            =   1845
  240.       TabIndex        =   12
  241.       Top             =   1095
  242.       Width           =   1125
  243.    End
  244.    Begin CommandButton Command1 
  245.       Caption         =   "info"
  246.       Height          =   270
  247.       Left            =   1845
  248.       TabIndex        =   13
  249.       Top             =   780
  250.       Width           =   1125
  251.    End
  252.    Begin PictureBox Picture3 
  253.       AutoSize        =   -1  'True
  254.       Height          =   510
  255.       Index           =   10
  256.       Left            =   3690
  257.       Picture         =   REDTOP.FRX:BC90
  258.       ScaleHeight     =   480
  259.       ScaleMode       =   0  'User
  260.       ScaleWidth      =   480
  261.       TabIndex        =   8
  262.       TabStop         =   0   'False
  263.       Top             =   660
  264.       Visible         =   0   'False
  265.       Width           =   510
  266.    End
  267.    Begin PictureBox Picture3 
  268.       AutoSize        =   -1  'True
  269.       Height          =   510
  270.       Index           =   1
  271.       Left            =   3090
  272.       Picture         =   REDTOP.FRX:BF92
  273.       ScaleHeight     =   480
  274.       ScaleMode       =   0  'User
  275.       ScaleWidth      =   480
  276.       TabIndex        =   9
  277.       TabStop         =   0   'False
  278.       Top             =   660
  279.       Visible         =   0   'False
  280.       Width           =   510
  281.    End
  282.    Begin PictureBox Picture6 
  283.       BackColor       =   &H00408080&
  284.       ForeColor       =   &H00000000&
  285.       Height          =   1245
  286.       Left            =   225
  287.       ScaleHeight     =   1215
  288.       ScaleMode       =   0  'User
  289.       ScaleWidth      =   1320
  290.       TabIndex        =   14
  291.       TabStop         =   0   'False
  292.       Top             =   240
  293.       Width           =   1350
  294.       Begin PictureBox Picture1 
  295.          AutoSize        =   -1  'True
  296.          Height          =   945
  297.          Left            =   150
  298.          ScaleHeight     =   915
  299.          ScaleMode       =   0  'User
  300.          ScaleWidth      =   990
  301.          TabIndex        =   11
  302.          TabStop         =   0   'False
  303.          Top             =   135
  304.          Width           =   1020
  305.       End
  306.    End
  307.    Begin Timer Timer1 
  308.       Interval        =   1
  309.       Left            =   2235
  310.       Top             =   195
  311.    End
  312.    Begin PictureBox Picture3 
  313.       AutoSize        =   -1  'True
  314.       Height          =   510
  315.       Index           =   9
  316.       Left            =   3690
  317.       Picture         =   REDTOP.FRX:C294
  318.       ScaleHeight     =   480
  319.       ScaleMode       =   0  'User
  320.       ScaleWidth      =   480
  321.       TabIndex        =   21
  322.       TabStop         =   0   'False
  323.       Top             =   60
  324.       Visible         =   0   'False
  325.       Width           =   510
  326.    End
  327.    Begin PictureBox Picture3 
  328.       AutoSize        =   -1  'True
  329.       Height          =   510
  330.       Index           =   0
  331.       Left            =   3090
  332.       Picture         =   REDTOP.FRX:C596
  333.       ScaleHeight     =   480
  334.       ScaleMode       =   0  'User
  335.       ScaleWidth      =   480
  336.       TabIndex        =   10
  337.       TabStop         =   0   'False
  338.       Top             =   60
  339.       Visible         =   0   'False
  340.       Width           =   510
  341.    End
  342. End
  343. Dim y As Integer
  344. Dim x As Integer
  345. Dim delay As Integer
  346. Dim toggle As Integer
  347. Dim flap As Integer
  348.  
  349. Sub Command1_Click ()
  350.     infoform.Show   'load and show infoform
  351. End Sub
  352.  
  353. Sub Form_Load ()
  354.     ' Use 3rd frame of sequence for initial "startup" frame
  355.     picture1.Picture = picClip1.GraphicCell(2)
  356.     y = 2
  357. End Sub
  358.  
  359. Sub onoff_Click ()
  360.     If toggle = 0 Then
  361.         onoff.Caption = "stop"
  362.         toggle = 1
  363.     Else
  364.         onoff.Caption = "spin"
  365.         toggle = 0
  366.     End If
  367. End Sub
  368.  
  369. Sub runtop ()
  370.     ' Advance animation one frame
  371.     
  372.     y = y + 1: If y = 18 Then y = 0
  373.     
  374.     picture1.Picture = picClip1.GraphicCell(y)
  375.     
  376.     ' Icon animation:  This will only be evident when the
  377.     ' form is minimized.  .ICO files have been loaded into
  378.     ' the Picture3 array, rather than .BMP's.  This allows
  379.     ' the mask feature of the .ICO to be utilized, letting
  380.     ' the background behind the icon show through.
  381.     
  382.     form1.Icon = picture3(y).Picture
  383.  
  384. End Sub
  385.  
  386. Sub Timer1_Timer ()
  387.     If toggle = 1 Then runtop
  388. End Sub
  389.  
  390.