home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Oldplanes20302111112006.psc / Oldplanes / Debug.frm next >
Text File  |  2006-11-11  |  15KB  |  485 lines
  1. VERSION 5.00
  2. Begin VB.Form DebugForm 
  3.    BackColor       =   &H8000000D&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    ClientHeight    =   7155
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   3435
  9.    LinkTopic       =   "Form4"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   477
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   229
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.Timer Timer1 
  17.       Interval        =   1
  18.       Left            =   3000
  19.       Top             =   6720
  20.    End
  21.    Begin VB.Label Label1 
  22.       Appearance      =   0  'Flat
  23.       AutoSize        =   -1  'True
  24.       BackColor       =   &H80000005&
  25.       Caption         =   "Label1"
  26.       ForeColor       =   &H80000008&
  27.       Height          =   195
  28.       Index           =   27
  29.       Left            =   120
  30.       TabIndex        =   27
  31.       Top             =   6600
  32.       Width           =   480
  33.    End
  34.    Begin VB.Label Label1 
  35.       Appearance      =   0  'Flat
  36.       AutoSize        =   -1  'True
  37.       BackColor       =   &H80000005&
  38.       Caption         =   "Label1"
  39.       ForeColor       =   &H80000008&
  40.       Height          =   195
  41.       Index           =   26
  42.       Left            =   120
  43.       TabIndex        =   26
  44.       Top             =   6360
  45.       Width           =   480
  46.    End
  47.    Begin VB.Label Label1 
  48.       Appearance      =   0  'Flat
  49.       AutoSize        =   -1  'True
  50.       BackColor       =   &H80000005&
  51.       Caption         =   "Label1"
  52.       ForeColor       =   &H80000008&
  53.       Height          =   195
  54.       Index           =   25
  55.       Left            =   120
  56.       TabIndex        =   25
  57.       Top             =   6120
  58.       Width           =   480
  59.    End
  60.    Begin VB.Label Label1 
  61.       Appearance      =   0  'Flat
  62.       AutoSize        =   -1  'True
  63.       BackColor       =   &H80000005&
  64.       Caption         =   "Label1"
  65.       ForeColor       =   &H80000008&
  66.       Height          =   195
  67.       Index           =   24
  68.       Left            =   120
  69.       TabIndex        =   24
  70.       Top             =   5880
  71.       Width           =   480
  72.    End
  73.    Begin VB.Label Label1 
  74.       Appearance      =   0  'Flat
  75.       AutoSize        =   -1  'True
  76.       BackColor       =   &H80000005&
  77.       Caption         =   "Label1"
  78.       ForeColor       =   &H80000008&
  79.       Height          =   195
  80.       Index           =   23
  81.       Left            =   120
  82.       TabIndex        =   23
  83.       Top             =   5640
  84.       Width           =   480
  85.    End
  86.    Begin VB.Label Label1 
  87.       Appearance      =   0  'Flat
  88.       AutoSize        =   -1  'True
  89.       BackColor       =   &H80000005&
  90.       Caption         =   "Label1"
  91.       ForeColor       =   &H80000008&
  92.       Height          =   195
  93.       Index           =   22
  94.       Left            =   120
  95.       TabIndex        =   22
  96.       Top             =   5400
  97.       Width           =   480
  98.    End
  99.    Begin VB.Label Label1 
  100.       Appearance      =   0  'Flat
  101.       AutoSize        =   -1  'True
  102.       BackColor       =   &H80000005&
  103.       Caption         =   "Label1"
  104.       ForeColor       =   &H80000008&
  105.       Height          =   195
  106.       Index           =   21
  107.       Left            =   120
  108.       TabIndex        =   21
  109.       Top             =   5160
  110.       Width           =   480
  111.    End
  112.    Begin VB.Label Label1 
  113.       Appearance      =   0  'Flat
  114.       AutoSize        =   -1  'True
  115.       BackColor       =   &H80000005&
  116.       Caption         =   "Label1"
  117.       ForeColor       =   &H80000008&
  118.       Height          =   195
  119.       Index           =   20
  120.       Left            =   120
  121.       TabIndex        =   20
  122.       Top             =   4920
  123.       Width           =   480
  124.    End
  125.    Begin VB.Label Label1 
  126.       Appearance      =   0  'Flat
  127.       AutoSize        =   -1  'True
  128.       BackColor       =   &H80000005&
  129.       Caption         =   "Label1"
  130.       ForeColor       =   &H80000008&
  131.       Height          =   195
  132.       Index           =   19
  133.       Left            =   120
  134.       TabIndex        =   19
  135.       Top             =   4680
  136.       Width           =   480
  137.    End
  138.    Begin VB.Label Label1 
  139.       Appearance      =   0  'Flat
  140.       AutoSize        =   -1  'True
  141.       BackColor       =   &H80000005&
  142.       Caption         =   "Label1"
  143.       ForeColor       =   &H80000008&
  144.       Height          =   195
  145.       Index           =   18
  146.       Left            =   120
  147.       TabIndex        =   18
  148.       Top             =   4440
  149.       Width           =   480
  150.    End
  151.    Begin VB.Label Label1 
  152.       Appearance      =   0  'Flat
  153.       AutoSize        =   -1  'True
  154.       BackColor       =   &H80000005&
  155.       Caption         =   "Label1"
  156.       ForeColor       =   &H80000008&
  157.       Height          =   195
  158.       Index           =   17
  159.       Left            =   120
  160.       TabIndex        =   17
  161.       Top             =   4200
  162.       Width           =   480
  163.    End
  164.    Begin VB.Label Label1 
  165.       Appearance      =   0  'Flat
  166.       AutoSize        =   -1  'True
  167.       BackColor       =   &H80000005&
  168.       Caption         =   "Label1"
  169.       ForeColor       =   &H80000008&
  170.       Height          =   195
  171.       Index           =   16
  172.       Left            =   120
  173.       TabIndex        =   16
  174.       Top             =   3960
  175.       Width           =   480
  176.    End
  177.    Begin VB.Label Label1 
  178.       Appearance      =   0  'Flat
  179.       AutoSize        =   -1  'True
  180.       BackColor       =   &H80000005&
  181.       Caption         =   "Label1"
  182.       ForeColor       =   &H80000008&
  183.       Height          =   195
  184.       Index           =   15
  185.       Left            =   120
  186.       TabIndex        =   15
  187.       Top             =   3720
  188.       Width           =   480
  189.    End
  190.    Begin VB.Label Label1 
  191.       Appearance      =   0  'Flat
  192.       AutoSize        =   -1  'True
  193.       BackColor       =   &H80000005&
  194.       Caption         =   "Label1"
  195.       ForeColor       =   &H80000008&
  196.       Height          =   195
  197.       Index           =   14
  198.       Left            =   120
  199.       TabIndex        =   14
  200.       Top             =   3480
  201.       Width           =   480
  202.    End
  203.    Begin VB.Label Label1 
  204.       Appearance      =   0  'Flat
  205.       AutoSize        =   -1  'True
  206.       BackColor       =   &H80000005&
  207.       Caption         =   "Label1"
  208.       ForeColor       =   &H80000008&
  209.       Height          =   195
  210.       Index           =   13
  211.       Left            =   120
  212.       TabIndex        =   13
  213.       Top             =   3240
  214.       Width           =   480
  215.    End
  216.    Begin VB.Label Label1 
  217.       Appearance      =   0  'Flat
  218.       AutoSize        =   -1  'True
  219.       BackColor       =   &H80000005&
  220.       Caption         =   "Label1"
  221.       ForeColor       =   &H80000008&
  222.       Height          =   195
  223.       Index           =   12
  224.       Left            =   120
  225.       TabIndex        =   12
  226.       Top             =   3000
  227.       Width           =   480
  228.    End
  229.    Begin VB.Label Label1 
  230.       Appearance      =   0  'Flat
  231.       AutoSize        =   -1  'True
  232.       BackColor       =   &H80000005&
  233.       Caption         =   "Label1"
  234.       ForeColor       =   &H80000008&
  235.       Height          =   195
  236.       Index           =   11
  237.       Left            =   120
  238.       TabIndex        =   11
  239.       Top             =   2760
  240.       Width           =   480
  241.    End
  242.    Begin VB.Label Label1 
  243.       Appearance      =   0  'Flat
  244.       AutoSize        =   -1  'True
  245.       BackColor       =   &H80000005&
  246.       Caption         =   "Label1"
  247.       ForeColor       =   &H80000008&
  248.       Height          =   195
  249.       Index           =   10
  250.       Left            =   120
  251.       TabIndex        =   10
  252.       Top             =   2520
  253.       Width           =   480
  254.    End
  255.    Begin VB.Label Label1 
  256.       Appearance      =   0  'Flat
  257.       AutoSize        =   -1  'True
  258.       BackColor       =   &H80000005&
  259.       Caption         =   "Label1"
  260.       ForeColor       =   &H80000008&
  261.       Height          =   195
  262.       Index           =   9
  263.       Left            =   120
  264.       TabIndex        =   9
  265.       Top             =   2280
  266.       Width           =   480
  267.    End
  268.    Begin VB.Label Label1 
  269.       Appearance      =   0  'Flat
  270.       AutoSize        =   -1  'True
  271.       BackColor       =   &H80000005&
  272.       Caption         =   "Label1"
  273.       ForeColor       =   &H80000008&
  274.       Height          =   195
  275.       Index           =   8
  276.       Left            =   120
  277.       TabIndex        =   8
  278.       Top             =   2040
  279.       Width           =   480
  280.    End
  281.    Begin VB.Label Label1 
  282.       Appearance      =   0  'Flat
  283.       AutoSize        =   -1  'True
  284.       BackColor       =   &H80000005&
  285.       Caption         =   "Label1"
  286.       ForeColor       =   &H80000008&
  287.       Height          =   195
  288.       Index           =   7
  289.       Left            =   120
  290.       TabIndex        =   7
  291.       Top             =   1800
  292.       Width           =   480
  293.    End
  294.    Begin VB.Label Label1 
  295.       Appearance      =   0  'Flat
  296.       AutoSize        =   -1  'True
  297.       BackColor       =   &H80000005&
  298.       Caption         =   "Label1"
  299.       ForeColor       =   &H80000008&
  300.       Height          =   195
  301.       Index           =   6
  302.       Left            =   120
  303.       TabIndex        =   6
  304.       Top             =   1560
  305.       Width           =   480
  306.    End
  307.    Begin VB.Label Label1 
  308.       Appearance      =   0  'Flat
  309.       AutoSize        =   -1  'True
  310.       BackColor       =   &H80000005&
  311.       Caption         =   "Label1"
  312.       ForeColor       =   &H80000008&
  313.       Height          =   195
  314.       Index           =   5
  315.       Left            =   120
  316.       TabIndex        =   5
  317.       Top             =   1320
  318.       Width           =   480
  319.    End
  320.    Begin VB.Label Label1 
  321.       Appearance      =   0  'Flat
  322.       AutoSize        =   -1  'True
  323.       BackColor       =   &H80000005&
  324.       Caption         =   "Label1"
  325.       ForeColor       =   &H80000008&
  326.       Height          =   195
  327.       Index           =   4
  328.       Left            =   120
  329.       TabIndex        =   4
  330.       Top             =   1080
  331.       Width           =   480
  332.    End
  333.    Begin VB.Label Label1 
  334.       Appearance      =   0  'Flat
  335.       AutoSize        =   -1  'True
  336.       BackColor       =   &H80000005&
  337.       Caption         =   "Label1"
  338.       ForeColor       =   &H80000008&
  339.       Height          =   195
  340.       Index           =   3
  341.       Left            =   120
  342.       TabIndex        =   3
  343.       Top             =   840
  344.       Width           =   480
  345.    End
  346.    Begin VB.Label Label1 
  347.       Appearance      =   0  'Flat
  348.       AutoSize        =   -1  'True
  349.       BackColor       =   &H80000005&
  350.       Caption         =   "Label1"
  351.       ForeColor       =   &H80000008&
  352.       Height          =   195
  353.       Index           =   2
  354.       Left            =   120
  355.       TabIndex        =   2
  356.       Top             =   600
  357.       Width           =   480
  358.    End
  359.    Begin VB.Label Label1 
  360.       Appearance      =   0  'Flat
  361.       AutoSize        =   -1  'True
  362.       BackColor       =   &H80000005&
  363.       Caption         =   "Label1"
  364.       ForeColor       =   &H80000008&
  365.       Height          =   195
  366.       Index           =   1
  367.       Left            =   120
  368.       TabIndex        =   1
  369.       Top             =   360
  370.       Width           =   480
  371.    End
  372.    Begin VB.Label Label1 
  373.       Appearance      =   0  'Flat
  374.       AutoSize        =   -1  'True
  375.       BackColor       =   &H80000005&
  376.       Caption         =   "Label1"
  377.       ForeColor       =   &H80000008&
  378.       Height          =   195
  379.       Index           =   0
  380.       Left            =   120
  381.       TabIndex        =   0
  382.       Top             =   120
  383.       Width           =   480
  384.    End
  385. End
  386. Attribute VB_Name = "DebugForm"
  387. Attribute VB_GlobalNameSpace = False
  388. Attribute VB_Creatable = False
  389. Attribute VB_PredeclaredId = True
  390. Attribute VB_Exposed = False
  391. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  392. If KeyCode = vbKeyF2 Then DebugForm.Visible = False
  393. End Sub
  394.  
  395. Private Sub Timer1_Timer()
  396.  
  397. 'Public I, I2 As Integer
  398. 'Public GameLevel As Integer
  399.  
  400. 'Public PlayerName(0 To 1) As String
  401. 'Public PlayerPlane(0 To 1) As Byte
  402.  
  403.  
  404. 'Public PlayerDirection(0 To 2) As Byte
  405. 'Public PlayerDamage(0 To 2) As Integer
  406.  
  407. 'Public BulletFlying(0 To 2) As Boolean
  408.  
  409.  
  410. 'Public PlayerBulletSpeed(0 To 2) As Integer
  411. 'Public PlayerPlaneSpeed(0 To 2) As Integer
  412. 'Public PlayerStartX(0 To 2) As Integer
  413. 'Public PlayerStartY(0 To 2) As Integer
  414. 'Public PlayerDead(0 To 2) As Integer
  415. 'Public PlayerKills(0 To 2) As Integer
  416. 'Public PlayerEjected(0 To 2) As Boolean
  417.  
  418. 'Public PlayerParachuting(0 To 2) As Boolean
  419. 'Public PlayerTimeTillChute(0 To 2) As Integer
  420.  
  421.  
  422. 'Public Const GoUp = 1
  423. 'Public Const GoDown = 2
  424. 'Public Const GoLeft = 3
  425. 'Public Const GoRight = 4
  426.  
  427. 'Public Const Red_Dragon = 50
  428. 'Public Const Red_Sparrow = 51
  429.  
  430.  
  431. 'Public EnemyBulletFlying(0 To 3) As Boolean
  432.  
  433. 'Public EnemyDamage(0 To 3) As Integer
  434.  
  435.  
  436.  
  437. 'Public EnemyBulletSpeed(0 To 3) As Integer
  438. 'Public EnemyPlaneSpeed(0 To 3) As Integer
  439. 'Public EnemyStartX(0 To 3) As Integer
  440. 'Public EnemyStartY(0 To 3) As Integer
  441. 'Public EnemyDead(0 To 3) As Integer
  442. 'Public TimeTillCrash(0 To 3) As Integer
  443. 'Public EnemyEjected(0 To 3) As Boolean
  444.  
  445.  
  446. 'Public Const EnemyPlane1Speed = 1.5
  447. 'Public Const EnemyPlane2Speed = 1.5
  448. 'Public Const Plane1Speed = 0
  449. 'Public Const Plane2Speed = 0
  450.  
  451. 'Public PlayerDead(0 To 2) As Integer
  452. 'Public PlayerKills(0 To 2) As Integer
  453. 'Public PlayerEjected(0 To 2) As Boolean
  454.  
  455. 'Public PlayerParachuting(0 To 2) As Boolean
  456. 'Public PlayerTimeTillChute(0 To 2) As Integer
  457.  
  458.  
  459.  
  460. Label1(0).Caption = "PlayerDead: " & PlayerDead(1)
  461. Label1(1).Caption = "PlayerKills: " & PlayerKills(1)
  462. Label1(2).Caption = "PlayerEjected: " & PlayerEjected(1)
  463. Label1(3).Caption = "PlayerParachuting: " & PlayerParachuting(1)
  464. Label1(4).Caption = "PlayerTimeTillChute: " & PlayerTimeTillChute(1)
  465. Label1(5).Caption = "PlayerKills(0)" & PlayerKills(0)
  466. Label1(6).Caption = "PlayerDamage" & PlayerDamage(1)
  467. Label1(7).Caption = "PlayerPLane" & PlayerPlane(1)
  468. Label1(8).Caption = "PlayerPlaneSpeed(0)" & PlayerPlaneSpeed(0)
  469. Label1(9).Caption = "PlayerBulletSpeed(0)" & PlayerBulletSpeed(0)
  470. Label1(10).Caption = "PlayerBulletDamage(0)" & PlayerBulletDamage(0)
  471. Label1(11).Caption = "PlayerEjected(0)" & PlayerEjected(0)
  472. Label1(12).Caption = "PlayerEjected(1)" & PlayerEjected(1)
  473. Label1(13).Caption = ""
  474. Label1(14).Caption = ""
  475. Label1(15).Caption = ""
  476. Label1(16).Caption = ""
  477. Label1(17).Caption = ""
  478. Label1(18).Caption = ""
  479. Label1(19).Caption = ""
  480. Label1(20).Caption = ""
  481.  
  482. End Sub
  483.  
  484.  
  485.