home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / killth1a / spel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-16  |  36.5 KB  |  1,313 lines
  1. VERSION 5.00
  2. Begin VB.Form frmspel 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H0042FF42&
  5.    Caption         =   "PRESS F5 TO START NEW GAME"
  6.    ClientHeight    =   6525
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   8970
  10.    Icon            =   "Spel.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6525
  13.    ScaleWidth      =   8970
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.TextBox txtInfo 
  17.       BackColor       =   &H0000FF00&
  18.       Enabled         =   0   'False
  19.       Height          =   285
  20.       Left            =   4200
  21.       TabIndex        =   4
  22.       Top             =   5760
  23.       Width           =   2175
  24.    End
  25.    Begin VB.Timer TimerT 
  26.       Interval        =   1000
  27.       Left            =   5760
  28.       Top             =   3720
  29.    End
  30.    Begin VB.TextBox txtTime 
  31.       BackColor       =   &H0000FF00&
  32.       Enabled         =   0   'False
  33.       Height          =   285
  34.       Left            =   4320
  35.       TabIndex        =   3
  36.       Text            =   "Time past:"
  37.       Top             =   6240
  38.       Width           =   2175
  39.    End
  40.    Begin VB.Timer Timer4 
  41.       Enabled         =   0   'False
  42.       Interval        =   100
  43.       Left            =   5160
  44.       Top             =   3720
  45.    End
  46.    Begin VB.TextBox txtkills 
  47.       BackColor       =   &H0000FF00&
  48.       Enabled         =   0   'False
  49.       Height          =   285
  50.       Left            =   2160
  51.       TabIndex        =   1
  52.       Text            =   "Kills : 0"
  53.       Top             =   6240
  54.       Width           =   2175
  55.    End
  56.    Begin VB.Timer Timer3 
  57.       Interval        =   1
  58.       Left            =   4560
  59.       Top             =   3720
  60.    End
  61.    Begin VB.Timer Timer2 
  62.       Interval        =   50
  63.       Left            =   4560
  64.       Top             =   4200
  65.    End
  66.    Begin VB.TextBox txtbullets 
  67.       BackColor       =   &H0000FF00&
  68.       Enabled         =   0   'False
  69.       Height          =   285
  70.       Left            =   0
  71.       TabIndex        =   0
  72.       Text            =   "Bullets Left :"
  73.       Top             =   6240
  74.       Width           =   2175
  75.    End
  76.    Begin VB.Timer Timer1 
  77.       Interval        =   100
  78.       Left            =   5160
  79.       Top             =   4200
  80.    End
  81.    Begin VB.Label lblVictory 
  82.       BackColor       =   &H0042FF42&
  83.       Caption         =   "VICTORY !!!"
  84.       BeginProperty Font 
  85.          Name            =   "MS Sans Serif"
  86.          Size            =   24
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   &H000000FF&
  94.       Height          =   495
  95.       Left            =   1440
  96.       TabIndex        =   6
  97.       Top             =   1560
  98.       Width           =   2895
  99.    End
  100.    Begin VB.Label lblreloading 
  101.       BackColor       =   &H0042FF42&
  102.       Caption         =   "RELOADING..."
  103.       BeginProperty Font 
  104.          Name            =   "MS Sans Serif"
  105.          Size            =   13.5
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   375
  113.       Left            =   0
  114.       TabIndex        =   5
  115.       Top             =   0
  116.       Width           =   1935
  117.    End
  118.    Begin VB.Label lblGameOver 
  119.       BackColor       =   &H0042FF42&
  120.       Caption         =   "GAME OVER"
  121.       BeginProperty Font 
  122.          Name            =   "MS Sans Serif"
  123.          Size            =   24
  124.          Charset         =   0
  125.          Weight          =   400
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       ForeColor       =   &H000000FF&
  131.       Height          =   495
  132.       Left            =   4200
  133.       TabIndex        =   2
  134.       Top             =   2760
  135.       Width           =   2895
  136.    End
  137.    Begin VB.Image gif 
  138.       Height          =   210
  139.       Index           =   21
  140.       Left            =   480
  141.       Picture         =   "Spel.frx":030A
  142.       Top             =   3360
  143.       Width           =   270
  144.    End
  145.    Begin VB.Image gif 
  146.       Height          =   210
  147.       Index           =   20
  148.       Left            =   240
  149.       Picture         =   "Spel.frx":069F
  150.       Top             =   3360
  151.       Width           =   270
  152.    End
  153.    Begin VB.Image gif 
  154.       Height          =   210
  155.       Index           =   19
  156.       Left            =   960
  157.       Picture         =   "Spel.frx":0A34
  158.       Top             =   3120
  159.       Width           =   270
  160.    End
  161.    Begin VB.Image gif 
  162.       Height          =   210
  163.       Index           =   18
  164.       Left            =   720
  165.       Picture         =   "Spel.frx":0DC9
  166.       Top             =   3120
  167.       Width           =   270
  168.    End
  169.    Begin VB.Image gif 
  170.       Height          =   210
  171.       Index           =   17
  172.       Left            =   480
  173.       Picture         =   "Spel.frx":115E
  174.       Top             =   3120
  175.       Width           =   270
  176.    End
  177.    Begin VB.Image gif 
  178.       Height          =   210
  179.       Index           =   16
  180.       Left            =   240
  181.       Picture         =   "Spel.frx":14F3
  182.       Top             =   3120
  183.       Width           =   270
  184.    End
  185.    Begin VB.Image gif 
  186.       Height          =   210
  187.       Index           =   15
  188.       Left            =   960
  189.       Picture         =   "Spel.frx":1888
  190.       Top             =   2880
  191.       Width           =   270
  192.    End
  193.    Begin VB.Image gif 
  194.       Height          =   210
  195.       Index           =   14
  196.       Left            =   720
  197.       Picture         =   "Spel.frx":1C1D
  198.       Top             =   2880
  199.       Width           =   270
  200.    End
  201.    Begin VB.Image gif 
  202.       Height          =   210
  203.       Index           =   13
  204.       Left            =   480
  205.       Picture         =   "Spel.frx":1FB2
  206.       Top             =   2880
  207.       Width           =   270
  208.    End
  209.    Begin VB.Image gif 
  210.       Height          =   210
  211.       Index           =   12
  212.       Left            =   240
  213.       Picture         =   "Spel.frx":2347
  214.       Top             =   2880
  215.       Width           =   270
  216.    End
  217.    Begin VB.Image gif 
  218.       Height          =   210
  219.       Index           =   11
  220.       Left            =   960
  221.       Picture         =   "Spel.frx":26DC
  222.       Top             =   2640
  223.       Width           =   270
  224.    End
  225.    Begin VB.Image ShootRight 
  226.       Height          =   255
  227.       Left            =   2520
  228.       Top             =   4320
  229.       Width           =   255
  230.    End
  231.    Begin VB.Image ShootLeft 
  232.       Height          =   255
  233.       Left            =   2040
  234.       Top             =   4320
  235.       Width           =   255
  236.    End
  237.    Begin VB.Image gif 
  238.       Height          =   210
  239.       Index           =   10
  240.       Left            =   720
  241.       Picture         =   "Spel.frx":2A71
  242.       Top             =   2640
  243.       Width           =   270
  244.    End
  245.    Begin VB.Image gif 
  246.       Height          =   210
  247.       Index           =   9
  248.       Left            =   480
  249.       Picture         =   "Spel.frx":2E06
  250.       Top             =   2640
  251.       Width           =   270
  252.    End
  253.    Begin VB.Image gif 
  254.       Height          =   210
  255.       Index           =   8
  256.       Left            =   240
  257.       Picture         =   "Spel.frx":319B
  258.       Top             =   2640
  259.       Width           =   270
  260.    End
  261.    Begin VB.Image gif 
  262.       Height          =   210
  263.       Index           =   7
  264.       Left            =   960
  265.       Picture         =   "Spel.frx":3530
  266.       Top             =   2400
  267.       Width           =   270
  268.    End
  269.    Begin VB.Image gif 
  270.       Height          =   210
  271.       Index           =   6
  272.       Left            =   720
  273.       Picture         =   "Spel.frx":38C5
  274.       Top             =   2400
  275.       Width           =   270
  276.    End
  277.    Begin VB.Image gif 
  278.       Height          =   210
  279.       Index           =   5
  280.       Left            =   480
  281.       Picture         =   "Spel.frx":3C5A
  282.       Top             =   2400
  283.       Width           =   270
  284.    End
  285.    Begin VB.Image gif 
  286.       Height          =   210
  287.       Index           =   4
  288.       Left            =   240
  289.       Picture         =   "Spel.frx":3FEF
  290.       Top             =   2400
  291.       Width           =   270
  292.    End
  293.    Begin VB.Image gif 
  294.       Height          =   210
  295.       Index           =   3
  296.       Left            =   960
  297.       Picture         =   "Spel.frx":4384
  298.       Top             =   2160
  299.       Width           =   270
  300.    End
  301.    Begin VB.Image gif 
  302.       Height          =   210
  303.       Index           =   2
  304.       Left            =   720
  305.       Picture         =   "Spel.frx":4719
  306.       Top             =   2160
  307.       Width           =   270
  308.    End
  309.    Begin VB.Image gif 
  310.       Height          =   210
  311.       Index           =   1
  312.       Left            =   480
  313.       Picture         =   "Spel.frx":4AAE
  314.       Top             =   2160
  315.       Width           =   270
  316.    End
  317.    Begin VB.Image kogel 
  318.       Height          =   345
  319.       Index           =   10
  320.       Left            =   3960
  321.       Picture         =   "Spel.frx":4E43
  322.       Top             =   4920
  323.       Width           =   15
  324.    End
  325.    Begin VB.Image kogel 
  326.       Height          =   345
  327.       Index           =   9
  328.       Left            =   4200
  329.       Picture         =   "Spel.frx":517A
  330.       Top             =   4920
  331.       Width           =   15
  332.    End
  333.    Begin VB.Image kogel 
  334.       Height          =   345
  335.       Index           =   8
  336.       Left            =   4680
  337.       Picture         =   "Spel.frx":54B1
  338.       Top             =   4920
  339.       Width           =   15
  340.    End
  341.    Begin VB.Image kogel 
  342.       Height          =   345
  343.       Index           =   7
  344.       Left            =   4920
  345.       Picture         =   "Spel.frx":57E8
  346.       Top             =   4920
  347.       Width           =   15
  348.    End
  349.    Begin VB.Image kogel 
  350.       Height          =   345
  351.       Index           =   6
  352.       Left            =   5160
  353.       Picture         =   "Spel.frx":5B1F
  354.       Top             =   4920
  355.       Width           =   15
  356.    End
  357.    Begin VB.Image kogel 
  358.       Height          =   345
  359.       Index           =   5
  360.       Left            =   5400
  361.       Picture         =   "Spel.frx":5E56
  362.       Top             =   4920
  363.       Width           =   15
  364.    End
  365.    Begin VB.Image kogel 
  366.       Height          =   345
  367.       Index           =   4
  368.       Left            =   5640
  369.       Picture         =   "Spel.frx":618D
  370.       Top             =   4920
  371.       Width           =   15
  372.    End
  373.    Begin VB.Image kogel 
  374.       Height          =   345
  375.       Index           =   3
  376.       Left            =   5880
  377.       Picture         =   "Spel.frx":64C4
  378.       Top             =   4920
  379.       Width           =   15
  380.    End
  381.    Begin VB.Image kogel 
  382.       Height          =   345
  383.       Index           =   2
  384.       Left            =   6120
  385.       Picture         =   "Spel.frx":67FB
  386.       Top             =   4920
  387.       Width           =   15
  388.    End
  389.    Begin VB.Image kogel 
  390.       Height          =   345
  391.       Index           =   1
  392.       Left            =   3720
  393.       Picture         =   "Spel.frx":6B32
  394.       Top             =   4920
  395.       Width           =   15
  396.    End
  397.    Begin VB.Image vermoord 
  398.       Height          =   555
  399.       Left            =   5400
  400.       Picture         =   "Spel.frx":6E69
  401.       Stretch         =   -1  'True
  402.       Top             =   480
  403.       Width           =   1050
  404.    End
  405.    Begin VB.Image dood 
  406.       Height          =   1200
  407.       Left            =   240
  408.       Picture         =   "Spel.frx":834F
  409.       Top             =   4320
  410.       Width           =   1230
  411.    End
  412.    Begin VB.Image kogel 
  413.       Height          =   345
  414.       Index           =   0
  415.       Left            =   4440
  416.       Picture         =   "Spel.frx":8C04
  417.       Top             =   4920
  418.       Width           =   15
  419.    End
  420.    Begin VB.Image gif 
  421.       Height          =   210
  422.       Index           =   0
  423.       Left            =   240
  424.       Picture         =   "Spel.frx":8F3B
  425.       Top             =   2160
  426.       Width           =   270
  427.    End
  428.    Begin VB.Image monster 
  429.       Height          =   570
  430.       Left            =   4680
  431.       Picture         =   "Spel.frx":92D0
  432.       Stretch         =   -1  'True
  433.       Top             =   480
  434.       Visible         =   0   'False
  435.       Width           =   540
  436.    End
  437.    Begin VB.Image Peet 
  438.       Height          =   795
  439.       Left            =   2040
  440.       Picture         =   "Spel.frx":985B
  441.       Top             =   5160
  442.       Width           =   1290
  443.    End
  444. Attribute VB_Name = "frmspel"
  445. Attribute VB_GlobalNameSpace = False
  446. Attribute VB_Creatable = False
  447. Attribute VB_PredeclaredId = True
  448. Attribute VB_Exposed = False
  449. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  450. 'Exit the game always by pressing F12 !!!!!
  451. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  452. '************************************************************
  453. '   My original language is dutch, so for your understanding:
  454. '   Kogel means bullet
  455. '   Gif means posion
  456. '   GifSpuit is the spitting of posion
  457. '   This is just for you to better understand the codes
  458. '   Enjoy the game
  459. '   If you know new features, add them and put them online
  460. '   My email address is agrisman@hotmail.com
  461. '************************************************************
  462. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  463. Dim s
  464. Dim text As String
  465. 'if F1 is been pressed
  466. If KeyCode = vbKeyF1 Then
  467.     text = "Move left and right with the left and right keys on your keyboard and shoot with the Control key (ctrl)." + Chr(10) + Chr(13)
  468.     text = text + "This game was made by Agrisman and is totaly free. Mail me at agrisamn@hotmail.com ."
  469.     MsgBox text
  470. End If
  471. 'if F5 is been pressed
  472. If KeyCode = vbKeyF5 Then
  473.     StartGame
  474.     s = mciSendString("play " & App.Path & "\snd\" & Music, 0&, 0, 0)
  475. End If
  476. If KeyCode = vbKeyF12 Then
  477.     Unload Me
  478. End If
  479. 'if left is been pressed
  480. If KeyCode = vbKeyLeft Then
  481.     GoLeft
  482. 'if right is been pressed
  483. ElseIf KeyCode = vbKeyRight Then
  484.     GoRight
  485. End If
  486. 'if there is a victory or a gameover the ctrl key is useless
  487. If Victory = 0 And GameOver = 0 Then
  488.     If KeyCode = vbKeyControl Then
  489.         nrKogel = nrKogel + 1
  490.         Shoot (nrKogel)
  491.     End If
  492. End If
  493. End Sub
  494. Private Sub Form_Load()
  495. Dim i As Integer
  496. Print "PRESS F5"
  497. frmspel.Tag = ""
  498. Peet.Visible = False
  499. monster.Visible = False
  500. dood.Visible = False
  501. vermoord.Visible = False
  502. txtbullets.Visible = False
  503. txtkills.Visible = False
  504. txtTime.Visible = False
  505. txtInfo.Visible = False
  506. gifM = gif(1).Width / 2
  507. nrGif = -1
  508. TimeM = 0
  509. TimeS = 0
  510. lblGameOver.Visible = False
  511. lblVictory.Visible = False
  512. Victory = 1
  513. GameOver = 1
  514. For i = 0 To 10
  515.     kogel(i).Visible = False
  516.     kogel(i).Top = ScaleHeight - 1000
  517.         
  518. For i = 0 To 21
  519.     gif(i).Visible = False
  520.     gif(i).Top = monster.Top + monster.Height
  521. For i = 0 To 21
  522.     If nrGif < i Then
  523.     gif(i).Left = monster.Left + (monster.Width / 2) - gifM
  524.     End If
  525. GifSpuitAction = 0
  526. track = 0
  527. Timer1.Enabled = True
  528. Timer2.Enabled = False
  529. Timer3.Enabled = True
  530. Timer4.Enabled = True
  531. TimerT.Enabled = True
  532. Bullet1 = 0
  533. Bullet2 = 0
  534. Bullet3 = 0
  535. Bullet4 = 0
  536. Bullet5 = 0
  537. Bullet6 = 0
  538. Bullet7 = 0
  539. Bullet8 = 0
  540. Bullet9 = 0
  541. Bullet10 = 0
  542. Gif0 = 0
  543. Gif1 = 0
  544. Gif2 = 0
  545. Gif3 = 0
  546. Gif4 = 0
  547. Gif5 = 0
  548. Gif6 = 0
  549. Gif7 = 0
  550. Gif8 = 0
  551. Gif9 = 0
  552. Gif10 = 0
  553. Gif11 = 0
  554. Gif12 = 0
  555. Gif13 = 0
  556. Gif14 = 0
  557. Gif15 = 0
  558. Gif16 = 0
  559. Gif17 = 0
  560. Gif18 = 0
  561. Gif19 = 0
  562. Gif20 = 0
  563. Gif21 = 0
  564. Ran = 1950
  565. Tel = 0
  566. Kill = 0
  567. txtkills.text = "Kills : " + Str(Kill)
  568. End Sub
  569. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  570. 'Makes mouse not moveable/must be declared in the module
  571. Dim NewRect As RECT
  572. Dim erg As Long
  573.     NewRect.Left = -10
  574.     NewRect.Top = -10
  575.     erg& = ClipCursor(NewRect)
  576. End Sub
  577. Private Sub Form_Terminate()
  578.     Dim erg As Long
  579.     Dim NewRect As RECT
  580.     Dim s
  581.     'Makes the mouse movable again
  582.     With NewRect
  583.     .Left = 0&
  584.     .Top = 0&
  585.     .Right = Screen.Width / Screen.TwipsPerPixelX
  586.     .Bottom = Screen.Height / Screen.TwipsPerPixelY
  587.     End With
  588.     erg& = ClipCursor(NewRect)
  589.     'stops playing sound
  590.     s = mciSendString("close " & App.Path & "\snd\" & Music, 0&, 0, 0)
  591.     End
  592. End Sub
  593. Private Sub Form_Unload(Cancel As Integer)
  594.     Dim erg As Long
  595.     Dim NewRect As RECT
  596.     Dim s
  597.     'same as terminate
  598.     With NewRect
  599.     .Left = 0&
  600.     .Top = 0&
  601.     .Right = Screen.Width / Screen.TwipsPerPixelX
  602.     .Bottom = Screen.Height / Screen.TwipsPerPixelY
  603.     End With
  604.     erg& = ClipCursor(NewRect)
  605.     s = mciSendString("close " & App.Path & "\snd\" & Music, 0&, 0, 0)
  606.     End
  607. End Sub
  608. Public Function Shoot(TimeS As Integer)
  609. 'Makes sure that when a bullet is fired it is
  610. 'fired from your gun and the first when from
  611. 'your left gun , next from your right gun
  612. Select Case nrKogel
  613.     Case 0
  614.     Bullet0 = 1
  615.     kogel(nrKogel).Left = ShootLeft.Left
  616.     kogel(nrKogel).Top = ShootLeft.Top - kogel(nrKogel).Height
  617.     kogel(nrKogel).Visible = True
  618.     PlaySound "snd\shot.wav", 1, 1
  619.     Case 1
  620.     Bullet1 = 1
  621.     kogel(nrKogel).Left = ShootRight.Left
  622.     kogel(nrKogel).Top = ShootRight.Top - kogel(nrKogel).Height
  623.     kogel(nrKogel).Visible = True
  624.     PlaySound "snd\shot.wav", 1, 1
  625.     Case 2
  626.     Bullet2 = 1
  627.     kogel(nrKogel).Left = ShootLeft.Left
  628.     kogel(nrKogel).Top = ShootLeft.Top - kogel(nrKogel).Height
  629.     kogel(nrKogel).Visible = True
  630.     PlaySound "snd\shot.wav", 1, 1
  631.     Case 3
  632.     Bullet3 = 1
  633.     kogel(nrKogel).Left = ShootRight.Left
  634.     kogel(nrKogel).Top = ShootRight.Top - kogel(nrKogel).Height
  635.     kogel(nrKogel).Visible = True
  636.     PlaySound "snd\shot.wav", 1, 1
  637.     Case 4
  638.     Bullet4 = 1
  639.     kogel(nrKogel).Left = ShootLeft.Left
  640.     kogel(nrKogel).Top = ShootLeft.Top - kogel(nrKogel).Height
  641.     kogel(nrKogel).Visible = True
  642.     PlaySound "snd\shot.wav", 1, 1
  643.     Case 5
  644.     Bullet5 = 1
  645.     kogel(nrKogel).Left = ShootRight.Left
  646.     kogel(nrKogel).Top = ShootRight.Top - kogel(nrKogel).Height
  647.     kogel(nrKogel).Visible = True
  648.     PlaySound "snd\shot.wav", 1, 1
  649.     Case 6
  650.     Bullet6 = 1
  651.     kogel(nrKogel).Left = ShootLeft.Left
  652.     kogel(nrKogel).Top = ShootLeft.Top - kogel(nrKogel).Height
  653.     kogel(nrKogel).Visible = True
  654.     PlaySound "snd\shot.wav", 1, 1
  655.     Case 7
  656.     Bullet7 = 1
  657.     kogel(nrKogel).Left = ShootRight.Left
  658.     kogel(nrKogel).Top = ShootRight.Top - kogel(nrKogel).Height
  659.     kogel(nrKogel).Visible = True
  660.     PlaySound "snd\shot.wav", 1, 1
  661.     Case 8
  662.     Bullet8 = 1
  663.     kogel(nrKogel).Left = ShootLeft.Left
  664.     kogel(nrKogel).Top = ShootLeft.Top - kogel(nrKogel).Height
  665.     kogel(nrKogel).Visible = True
  666.     PlaySound "snd\shot.wav", 1, 1
  667.     Case 9
  668.     Bullet9 = 1
  669.     kogel(nrKogel).Left = ShootRight.Left
  670.     kogel(nrKogel).Top = ShootRight.Top - kogel(nrKogel).Height
  671.     kogel(nrKogel).Visible = True
  672.     PlaySound "snd\shot.wav", 1, 1
  673.     Case 10
  674.     Bullet10 = 1
  675.     kogel(nrKogel).Left = ShootLeft.Left
  676.     kogel(nrKogel).Top = ShootLeft.Top - kogel(nrKogel).Height
  677.     kogel(nrKogel).Visible = True
  678.     PlaySound "snd\shot.wav", 1, 1
  679. End Select
  680. Timer1_Timer
  681. End Function
  682. Public Function GoLeft()
  683. If Peet.Left <= 500 Then
  684. Peet.Left = 0 + 500
  685. End If
  686. Peet.Left = Peet.Left - 500
  687. ShootLeft.Top = Peet.Top + 20
  688. ShootLeft.Left = Peet.Left + 60
  689. ShootRight.Top = Peet.Top + 20
  690. ShootRight.Left = Peet.Left + Peet.Width - 320
  691. End Function
  692. Public Sub GoRight()
  693. If Peet.Left + Peet.Width > ScaleWidth - 500 Then
  694. Peet.Left = ScaleWidth - Peet.Width - 500
  695. End If
  696. Peet.Left = Peet.Left + 500
  697. ShootLeft.Top = Peet.Top + 20
  698. ShootLeft.Left = Peet.Left + 60
  699. ShootRight.Top = Peet.Top + 20
  700. ShootRight.Left = Peet.Left + Peet.Width - 320
  701. End Sub
  702. Private Sub Timer1_Timer()
  703. 'if your 10 bullets are fired and still on screen, then
  704. 'wait untill a bullet is out of vision
  705. If nrKogel > 10 Then
  706.     txtbullets = "Bullets Reloading..."
  707.     lblreloading.Visible = True
  708.     lblreloading.Visible = False
  709.     txtbullets = "Bullets left :" & Str(10 - nrKogel)
  710. End If
  711. 'every bullet (from bullet(0) to (10)) moves with this
  712. 'code, there has to be a simpler way, but I wouldn't know it
  713. 'so if you do, give me a simple solution
  714. If Bullet0 = 1 Then
  715.     If kogel(0).Top + kogel(0).Height < 0 Then
  716.         kogel(0).Visible = False
  717.         kogel(0).Top = ScaleHeight - 1000
  718.         Bullet0 = 0
  719.         nrKogel = -1
  720.     End If
  721.     kogel(0).Top = kogel(0).Top - 200
  722.     DoEvents
  723. End If
  724. If Bullet1 = 1 Then
  725.     If kogel(1).Top + kogel(1).Height < 0 Then
  726.     kogel(1).Visible = False
  727.     kogel(1).Top = ScaleHeight - 1000
  728.     Bullet1 = 0
  729.     End If
  730.     kogel(1).Top = kogel(1).Top - 200
  731.     DoEvents
  732. End If
  733. If Bullet2 = 1 Then
  734.     If kogel(2).Top + kogel(2).Height < 0 Then
  735.     kogel(2).Visible = False
  736.     kogel(2).Top = ScaleHeight - 1000
  737.     Bullet2 = 0
  738.     End If
  739.     kogel(2).Top = kogel(2).Top - 200
  740.     DoEvents
  741. End If
  742. If Bullet3 = 1 Then
  743.     If kogel(3).Top + kogel(3).Height < 0 Then
  744.     kogel(3).Visible = False
  745.     kogel(3).Top = ScaleHeight - 1000
  746.     Bullet3 = 0
  747.     End If
  748.     kogel(3).Top = kogel(3).Top - 200
  749.     DoEvents
  750. End If
  751. If Bullet4 = 1 Then
  752.     If kogel(4).Top + kogel(4).Height < 0 Then
  753.     kogel(4).Visible = False
  754.     kogel(4).Top = ScaleHeight - 1000
  755.     Bullet4 = 0
  756.     End If
  757.     kogel(4).Top = kogel(4).Top - 200
  758.     DoEvents
  759. End If
  760. If Bullet5 = 1 Then
  761.     If kogel(5).Top + kogel(5).Height < 0 Then
  762.     kogel(5).Visible = False
  763.     kogel(5).Top = ScaleHeight - 1000
  764.     Bullet5 = 0
  765.     End If
  766.     kogel(5).Top = kogel(5).Top - 200
  767.     DoEvents
  768. End If
  769. If Bullet6 = 1 Then
  770.     If kogel(6).Top + kogel(6).Height < 0 Then
  771.     kogel(6).Visible = False
  772.     kogel(6).Top = ScaleHeight - 1000
  773.     Bullet6 = 0
  774.     End If
  775.     kogel(6).Top = kogel(6).Top - 200
  776.     DoEvents
  777. End If
  778. If Bullet7 = 1 Then
  779.     If kogel(7).Top + kogel(7).Height < 0 Then
  780.     kogel(7).Visible = False
  781.     kogel(7).Top = ScaleHeight - 1000
  782.     Bullet7 = 0
  783.     End If
  784.     kogel(7).Top = kogel(7).Top - 200
  785.     DoEvents
  786. End If
  787. If Bullet8 = 1 Then
  788.     If kogel(8).Top + kogel(8).Height < 0 Then
  789.     kogel(8).Visible = False
  790.     kogel(8).Top = ScaleHeight - 1000
  791.     Bullet8 = 0
  792.     End If
  793.     kogel(8).Top = kogel(8).Top - 200
  794.     DoEvents
  795. End If
  796. If Bullet9 = 1 Then
  797.     If kogel(9).Top + kogel(9).Height < 0 Then
  798.     kogel(9).Visible = False
  799.     kogel(9).Top = ScaleHeight - 1000
  800.     Bullet9 = 0
  801.     End If
  802.     kogel(9).Top = kogel(9).Top - 200
  803.     DoEvents
  804. End If
  805. If Bullet10 = 1 Then
  806.     If kogel(10).Top + kogel(10).Height < 0 Then
  807.     kogel(10).Visible = False
  808.     kogel(10).Top = ScaleHeight - 1000
  809.     Bullet10 = 0
  810.     End If
  811.     kogel(10).Top = kogel(10).Top - 200
  812.     DoEvents
  813. End If
  814. End Sub
  815. Private Sub Timer3_Timer()
  816. Dim i, t As Integer
  817. 'Checks if a bullet hits the alien (monster=alien)
  818. For i = 0 To 10
  819. If kogel(i).Top < monster.Top + monster.Height And kogel(i).Top > 300 Then
  820.     If kogel(i).Left > monster.Left And kogel(i).Left < monster.Left + monster.Width Then
  821.         monster.Visible = False
  822.         vermoord.Left = monster.Left
  823.         vermoord.Top = monster.Top
  824.         vermoord.Visible = True
  825.         PlaySound "snd\kill.wav", 1, 1
  826.         monster.Top = -1000
  827.         monster.Left = -1000
  828.         If Kill = 19 Then
  829.         Victory = 1
  830.         PlaySound "snd\victory.wav", 1, 1
  831.         lblVictory.Top = (ScaleHeight / 2) - (lblVictory.Height / 2)
  832.         lblVictory.Left = (ScaleWidth / 2) - (lblVictory.Width / 2)
  833.         lblVictory.Visible = True
  834.         Timer1.Enabled = False
  835.         Timer2.Enabled = False
  836.         Timer3.Enabled = False
  837.         Timer4.Enabled = False
  838.         TimerT.Enabled = False
  839.         End If
  840.         Kill = Kill + 1
  841.         txtkills.text = "Kills : " + Str(Kill)
  842.         Timer3.Enabled = False
  843.         Again
  844.         Exit For
  845.     End If
  846. End If
  847. DoEvents
  848. 'Checks if the alien hits you (you are Peet)
  849. For i = 0 To 21
  850. If gif(i).Top + gif(i).Height > Peet.Top And gif(i).Top < ScaleHeight - 100 Then
  851.     If gif(i).Left > Peet.Left And gif(i).Left < Peet.Left + Peet.Width Then
  852.         GameOver = 1
  853.         Peet.Visible = False
  854.         dood.Left = Peet.Left
  855.         dood.Top = Peet.Top
  856.         dood.Visible = True
  857.         lblGameOver.Left = (ScaleWidth / 2) - (lblGameOver.Width / 2)
  858.         lblGameOver.Top = (ScaleHeight / 2) - (lblGameOver.Height)
  859.         lblGameOver.Visible = True
  860.         frmspel.Tag = Kill
  861.         PlaySound "snd\gameover.wav", 1, 1
  862.         Timer1.Enabled = False
  863.         Timer2.Enabled = False
  864.         Timer3.Enabled = False
  865.         Timer4.Enabled = False
  866.         TimerT.Enabled = False
  867.         Exit For
  868.     End If
  869. End If
  870. DoEvents
  871. End Sub
  872. Public Sub Again()
  873. 'Makes the next alien alive
  874. monster.Left = ((ScaleWidth - monster.Width) * Rnd) + 1
  875. monster.Top = 500
  876. 'monster.Visible = True
  877. Timer4.Enabled = True
  878. End Sub
  879. Private Sub Timer4_Timer()
  880. 'when the alien is killed you get a extra kill and the
  881. 'picture of the killed good guy (=vermoord picture)
  882. 'is not visible
  883. Tel = Tel + 1
  884. If Tel = 2 Then
  885. vermoord.Top = -1000
  886. vermoord.Left = -1000
  887. monster.Visible = True
  888. vermoord.Visible = False
  889. Timer3.Enabled = True
  890. Tel = 0
  891. Timer4.Enabled = False
  892. DoEvents
  893. End If
  894. End Sub
  895. Public Sub Gifspuit()
  896. Dim i As Integer
  897. 'If GifSpuitAction = 1 Then
  898. 'gifspuit = posion of the alien
  899. 'if the picture of the posion is no longer visible
  900. 'on the screen then it returns to the height of the
  901. 'alien to refire the posion. If not, the posion(=gif)
  902. 'moves down
  903. If Gif0 = 1 Then
  904.     If gif(0).Top + gif(0).Height > ScaleHeight Then
  905.     gif(0).Visible = False
  906.     gif(0).Top = monster.Top
  907.     Gif0 = 0
  908.     End If
  909.     gif(0).Top = gif(0).Top + 200
  910.     DoEvents
  911. End If
  912. If Gif1 = 1 Then
  913.     If gif(1).Top + gif(1).Height > ScaleHeight Then
  914.     gif(1).Visible = False
  915.     gif(1).Top = monster.Top
  916.     Gif1 = 0
  917.     End If
  918.     gif(1).Top = gif(1).Top + 200
  919.     DoEvents
  920. End If
  921. If Gif2 = 1 Then
  922.     If gif(2).Top + gif(2).Height > ScaleHeight Then
  923.     gif(2).Visible = False
  924.     gif(2).Top = monster.Top
  925.     Gif2 = 0
  926.     End If
  927.     gif(2).Top = gif(2).Top + 200
  928.     DoEvents
  929. End If
  930. If Gif3 = 1 Then
  931.     If gif(3).Top + gif(3).Height > ScaleHeight Then
  932.     gif(3).Visible = False
  933.     gif(3).Top = monster.Top
  934.     Gif3 = 0
  935.     End If
  936.     gif(3).Top = gif(3).Top + 200
  937.     DoEvents
  938. End If
  939. If Gif4 = 1 Then
  940.     If gif(4).Top + gif(4).Height > ScaleHeight Then
  941.     gif(4).Visible = False
  942.     gif(4).Top = monster.Top
  943.     Gif4 = 0
  944.     End If
  945.     gif(4).Top = gif(4).Top + 200
  946.     DoEvents
  947. End If
  948. If Gif5 = 1 Then
  949.     If gif(5).Top + gif(5).Height > ScaleHeight Then
  950.     gif(5).Visible = False
  951.     gif(5).Top = monster.Top
  952.     Gif5 = 0
  953.     End If
  954.     gif(5).Top = gif(5).Top + 200
  955.     DoEvents
  956. End If
  957. If Gif6 = 1 Then
  958.     If gif(6).Top + gif(6).Height > ScaleHeight Then
  959.     gif(6).Visible = False
  960.     gif(6).Top = monster.Top
  961.     Gif6 = 0
  962.     End If
  963.     gif(6).Top = gif(6).Top + 200
  964.     DoEvents
  965. End If
  966. If Gif7 = 1 Then
  967.     If gif(7).Top + gif(7).Height > ScaleHeight Then
  968.     gif(7).Visible = False
  969.     gif(7).Top = monster.Top
  970.     Gif7 = 0
  971.     End If
  972.     gif(7).Top = gif(7).Top + 200
  973.     DoEvents
  974. End If
  975. If Gif8 = 1 Then
  976.     If gif(8).Top + gif(8).Height > ScaleHeight Then
  977.     gif(8).Visible = False
  978.     gif(8).Top = monster.Top
  979.     Gif8 = 0
  980.     End If
  981.     gif(8).Top = gif(8).Top + 200
  982.     DoEvents
  983. End If
  984. If Gif9 = 1 Then
  985.     If gif(9).Top + gif(9).Height > ScaleHeight Then
  986.     gif(9).Visible = False
  987.     gif(9).Top = monster.Top
  988.     Gif9 = 0
  989.     End If
  990.     gif(9).Top = gif(9).Top + 200
  991.     DoEvents
  992. End If
  993. If Gif10 = 1 Then
  994.     If gif(10).Top + gif(10).Height > ScaleHeight Then
  995.     gif(10).Visible = False
  996.     gif(10).Top = monster.Top
  997.     Gif10 = 0
  998.     End If
  999.     gif(10).Top = gif(10).Top + 200
  1000.     DoEvents
  1001. End If
  1002. If Gif11 = 1 Then
  1003.     If gif(11).Top + gif(11).Height > ScaleHeight Then
  1004.     gif(11).Visible = False
  1005.     gif(11).Top = monster.Top
  1006.     Gif11 = 0
  1007.     End If
  1008.     gif(11).Top = gif(11).Top + 200
  1009.     DoEvents
  1010. End If
  1011. If Gif12 = 1 Then
  1012.     If gif(12).Top + gif(12).Height > ScaleHeight Then
  1013.     gif(12).Visible = False
  1014.     gif(12).Top = monster.Top
  1015.     Gif12 = 0
  1016.     End If
  1017.     gif(12).Top = gif(12).Top + 200
  1018.     DoEvents
  1019. End If
  1020. If Gif13 = 1 Then
  1021.     If gif(13).Top + gif(13).Height > ScaleHeight Then
  1022.     gif(13).Visible = False
  1023.     gif(13).Top = monster.Top
  1024.     Gif13 = 0
  1025.     End If
  1026.     gif(13).Top = gif(13).Top + 200
  1027.     DoEvents
  1028. End If
  1029. If Gif14 = 1 Then
  1030.     If gif(14).Top + gif(14).Height > ScaleHeight Then
  1031.     gif(14).Visible = False
  1032.     gif(14).Top = monster.Top
  1033.     Gif14 = 0
  1034.     End If
  1035.     gif(14).Top = gif(14).Top + 200
  1036.     DoEvents
  1037. End If
  1038. If Gif15 = 1 Then
  1039.     If gif(15).Top + gif(15).Height > ScaleHeight Then
  1040.     gif(15).Visible = False
  1041.     gif(15).Top = monster.Top
  1042.     Gif15 = 0
  1043.     End If
  1044.     gif(15).Top = gif(15).Top + 200
  1045.     DoEvents
  1046. End If
  1047. If Gif16 = 1 Then
  1048.     If gif(16).Top + gif(16).Height > ScaleHeight Then
  1049.     gif(16).Visible = False
  1050.     gif(16).Top = monster.Top
  1051.     Gif16 = 0
  1052.     End If
  1053.     gif(16).Top = gif(16).Top + 200
  1054.     DoEvents
  1055. End If
  1056. If Gif17 = 1 Then
  1057.     If gif(17).Top + gif(17).Height > ScaleHeight Then
  1058.     gif(17).Visible = False
  1059.     gif(17).Top = monster.Top
  1060.     Gif17 = 0
  1061.     End If
  1062.     gif(17).Top = gif(17).Top + 200
  1063.     DoEvents
  1064. End If
  1065. If Gif18 = 1 Then
  1066.     If gif(18).Top + gif(18).Height > ScaleHeight Then
  1067.     gif(18).Visible = False
  1068.     gif(18).Top = monster.Top
  1069.     Gif18 = 0
  1070.     End If
  1071.     gif(18).Top = gif(18).Top + 200
  1072.     DoEvents
  1073. End If
  1074. If Gif19 = 1 Then
  1075.     If gif(19).Top + gif(19).Height > ScaleHeight Then
  1076.     gif(19).Visible = False
  1077.     gif(19).Top = monster.Top
  1078.     Gif19 = 0
  1079.     End If
  1080.     gif(19).Top = gif(19).Top + 200
  1081.     DoEvents
  1082. End If
  1083. If Gif20 = 1 Then
  1084.     If gif(20).Top + gif(20).Height > ScaleHeight Then
  1085.     gif(20).Visible = False
  1086.     gif(20).Top = monster.Top
  1087.     Gif20 = 0
  1088.     End If
  1089.     gif(20).Top = gif(20).Top + 200
  1090.     DoEvents
  1091. End If
  1092. If Gif21 = 1 Then
  1093.     If gif(21).Top + gif(21).Height > ScaleHeight Then
  1094.     gif(21).Visible = False
  1095.     gif(21).Top = monster.Top
  1096.     Gif21 = 0
  1097.     End If
  1098.     gif(21).Top = gif(21).Top + 200
  1099.     DoEvents
  1100. End If
  1101. 'End If
  1102. End Sub
  1103. Private Sub Timer2_Timer()
  1104. 'movements of the alien
  1105. Ran = (160 * Rnd) + 1
  1106. If nrGif <= 21 Then
  1107.     nrGif = nrGif + 1
  1108. ElseIf nrGif = 22 And (gif(0).Top + gif(0).Height) > ScaleHeight Then
  1109.     nrGif = 0
  1110. End If
  1111. If monster.Left < 300 Then
  1112.     Ran = 40
  1113. End If
  1114. If monster.Left > ScaleWidth - monster.Width - 500 Then
  1115.     Ran = 10
  1116. End If
  1117. Ran = Ran / 10
  1118. Select Case Ran
  1119.     Case 1
  1120.     monster.Left = monster.Left - 400
  1121.     Case 2
  1122.     monster.Left = monster.Left - 400
  1123.     Case 3
  1124.     monster.Left = monster.Left - 400
  1125.     Case 4
  1126.     monster.Left = monster.Left + 400
  1127.     Case 5
  1128.     monster.Left = monster.Left - 400
  1129.     Case 6
  1130.     monster.Left = monster.Left - 400
  1131.     Case 7
  1132.     monster.Left = monster.Left - 400
  1133.     Case 8
  1134.     monster.Left = monster.Left - 400
  1135.     Case 9
  1136.     monster.Left = monster.Left + 400
  1137.     Case 10
  1138.     monster.Left = monster.Left + 400
  1139.     Case 11
  1140.     monster.Left = monster.Left + 400
  1141.     Case 12
  1142.     monster.Left = monster.Left - 400
  1143.     Case 13
  1144.     monster.Left = monster.Left + 400
  1145.     Case 14
  1146.     monster.Left = monster.Left + 400
  1147.     Case 15
  1148.     monster.Left = monster.Left - 400
  1149.     Case 16
  1150.     monster.Left = monster.Left + 300
  1151. End Select
  1152. 'checks if posion can be fired
  1153. Select Case nrGif
  1154.     Case 0
  1155.     Gif0 = 1
  1156.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1157.     gif(nrGif).Top = monster.Top + monster.Height
  1158.     gif(nrGif).Visible = True
  1159.     Case 1
  1160.     Gif1 = 1
  1161.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1162.     gif(nrGif).Top = monster.Top + monster.Height
  1163.     gif(nrGif).Visible = True
  1164.     Case 2
  1165.     Gif2 = 1
  1166.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1167.     gif(nrGif).Top = monster.Top + monster.Height
  1168.     gif(nrGif).Visible = True
  1169.     Case 3
  1170.     Gif3 = 1
  1171.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1172.     gif(nrGif).Top = monster.Top + monster.Height
  1173.     gif(nrGif).Visible = True
  1174.     Case 4
  1175.     Gif4 = 1
  1176.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1177.     gif(nrGif).Top = monster.Top + monster.Height
  1178.     gif(nrGif).Visible = True
  1179.     Case 5
  1180.     Gif5 = 1
  1181.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1182.     gif(nrGif).Top = monster.Top + monster.Height
  1183.     gif(nrGif).Visible = True
  1184.     Case 6
  1185.     Gif6 = 1
  1186.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1187.     gif(nrGif).Top = monster.Top + monster.Height
  1188.     gif(nrGif).Visible = True
  1189.     Case 7
  1190.     Gif7 = 1
  1191.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1192.     gif(nrGif).Top = monster.Top + monster.Height
  1193.     gif(nrGif).Visible = True
  1194.     Case 8
  1195.     Gif8 = 1
  1196.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1197.     gif(nrGif).Top = monster.Top + monster.Height
  1198.     gif(nrGif).Visible = True
  1199.     Case 9
  1200.     Gif9 = 1
  1201.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1202.     gif(nrGif).Top = monster.Top + monster.Height
  1203.     gif(nrGif).Visible = True
  1204.     Case 10
  1205.     Gif10 = 1
  1206.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1207.     gif(nrGif).Top = monster.Top + monster.Height
  1208.     gif(nrGif).Visible = True
  1209.     Case 11
  1210.     Gif11 = 1
  1211.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1212.     gif(nrGif).Top = monster.Top + monster.Height
  1213.     gif(nrGif).Visible = True
  1214.     Case 12
  1215.     Gif12 = 1
  1216.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1217.     gif(nrGif).Top = monster.Top + monster.Height
  1218.     gif(nrGif).Visible = True
  1219.     Case 13
  1220.     Gif13 = 1
  1221.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1222.     gif(nrGif).Top = monster.Top + monster.Height
  1223.     gif(nrGif).Visible = True
  1224.     Case 14
  1225.     Gif14 = 1
  1226.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1227.     gif(nrGif).Top = monster.Top + monster.Height
  1228.     gif(nrGif).Visible = True
  1229.     Case 15
  1230.     Gif15 = 1
  1231.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1232.     gif(nrGif).Top = monster.Top + monster.Height
  1233.     gif(nrGif).Visible = True
  1234.     Case 16
  1235.     Gif16 = 1
  1236.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1237.     gif(nrGif).Top = monster.Top + monster.Height
  1238.     gif(nrGif).Visible = True
  1239.     Case 17
  1240.     Gif17 = 1
  1241.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1242.     gif(nrGif).Top = monster.Top + monster.Height
  1243.     gif(nrGif).Visible = True
  1244.     Case 18
  1245.     Gif18 = 1
  1246.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1247.     gif(nrGif).Top = monster.Top + monster.Height
  1248.     gif(nrGif).Visible = True
  1249.     Case 19
  1250.     Gif19 = 1
  1251.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1252.     gif(nrGif).Top = monster.Top + monster.Height
  1253.     gif(nrGif).Visible = True
  1254.     Case 20
  1255.     Gif20 = 1
  1256.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1257.     gif(nrGif).Top = monster.Top + monster.Height
  1258.     gif(nrGif).Visible = True
  1259.     Case 21
  1260.     Gif21 = 1
  1261.     gif(nrGif).Left = monster.Left + monster.Width / 2
  1262.     gif(nrGif).Top = monster.Top + monster.Height
  1263.     gif(nrGif).Visible = True
  1264. End Select
  1265. Gifspuit
  1266. End Sub
  1267. Private Sub TimerT_Timer()
  1268. 'makes sure the timer is correct
  1269. TimeS = TimeS + 1
  1270. If TimeS = 60 Then
  1271. TimeM = 1
  1272. TimeS = 0
  1273. End If
  1274. If TimeS < 10 Then
  1275. txtTime.text = "Time past : " & Str(TimeM) & " : 0" & Str(TimeS)
  1276. txtTime.text = "Time past : " & Str(TimeM) & " :" & Str(TimeS)
  1277. End If
  1278. End Sub
  1279. Public Sub StartGame()
  1280. 'everything is set on right place at the begining of
  1281. 'the game
  1282. Form_Load
  1283. Victory = 0
  1284. GameOver = 0
  1285. lblreloading.Visible = False
  1286. txtbullets.Left = 0
  1287. txtbullets.Top = ScaleHeight - txtbullets.Height
  1288. txtbullets.Visible = True
  1289. txtkills.Left = txtbullets.Width + 10
  1290. txtkills.Top = ScaleHeight - txtkills.Height
  1291. txtkills.Visible = True
  1292. txtTime.Left = txtkills.Left + txtkills.Width + 10
  1293. txtTime.Top = ScaleHeight - txtTime.Height
  1294. txtTime.Visible = True
  1295. txtInfo.Visible = True
  1296. txtInfo.Top = ScaleHeight - txtInfo.Height
  1297. txtInfo.Left = txtTime.Left + txtkills.Width
  1298. txtInfo.Width = ScaleWidth - txtInfo.Left
  1299. txtInfo.text = "PRESS F1 for help. F5 to start F12 to quit"
  1300. Peet.Left = ScaleWidth / 2 - Peet.Width / 2
  1301. Peet.Top = ScaleHeight - 1000
  1302. ShootLeft.Top = Peet.Top + 20
  1303. ShootLeft.Left = Peet.Left + 60
  1304. ShootRight.Top = Peet.Top + 20
  1305. ShootRight.Left = Peet.Left + Peet.Width - 320
  1306. Peet.Visible = True
  1307. nrKogel = -1
  1308. monster.Left = ((ScaleWidth - monster.Width) * Rnd) + 1
  1309. monster.Top = 500
  1310. monster.Visible = True
  1311. Timer2.Enabled = True
  1312. End Sub
  1313.