home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / VBBruceLee1721093172004.psc / frmMain.frm < prev   
Text File  |  2004-03-17  |  69KB  |  1,556 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3585
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4800
  10.    ForeColor       =   &H00000000&
  11.    Icon            =   "frmMain.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3585
  14.    ScaleWidth      =   4800
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.PictureBox PicCleanASCII 
  18.       AutoRedraw      =   -1  'True
  19.       BackColor       =   &H00000000&
  20.       BorderStyle     =   0  'None
  21.       ClipControls    =   0   'False
  22.       ForeColor       =   &H00FFFFFF&
  23.       Height          =   150
  24.       Left            =   0
  25.       Picture         =   "frmMain.frx":08CA
  26.       ScaleHeight     =   10
  27.       ScaleMode       =   3  'Pφxel
  28.       ScaleWidth      =   320
  29.       TabIndex        =   15
  30.       Top             =   180
  31.       Visible         =   0   'False
  32.       Width           =   4800
  33.    End
  34.    Begin VB.Timer tmrLogo 
  35.       Enabled         =   0   'False
  36.       Left            =   600
  37.       Top             =   3060
  38.    End
  39.    Begin VB.Timer tmrGameOver 
  40.       Enabled         =   0   'False
  41.       Left            =   1020
  42.       Top             =   3060
  43.    End
  44.    Begin VB.PictureBox PicWorkASCII 
  45.       AutoRedraw      =   -1  'True
  46.       BackColor       =   &H00000000&
  47.       BorderStyle     =   0  'None
  48.       ClipControls    =   0   'False
  49.       ForeColor       =   &H00FFFFFF&
  50.       Height          =   150
  51.       Left            =   0
  52.       ScaleHeight     =   10
  53.       ScaleMode       =   3  'Pφxel
  54.       ScaleWidth      =   320
  55.       TabIndex        =   16
  56.       Top             =   180
  57.       Visible         =   0   'False
  58.       Width           =   4800
  59.    End
  60.    Begin VB.PictureBox PicMainASCII 
  61.       BackColor       =   &H00000000&
  62.       BorderStyle     =   0  'None
  63.       ClipControls    =   0   'False
  64.       ForeColor       =   &H00FFFFFF&
  65.       Height          =   150
  66.       Left            =   0
  67.       ScaleHeight     =   10
  68.       ScaleMode       =   3  'Pφxel
  69.       ScaleWidth      =   320
  70.       TabIndex        =   14
  71.       Top             =   180
  72.       Width           =   4800
  73.    End
  74.    Begin VB.Timer tmrBaca 
  75.       Enabled         =   0   'False
  76.       Left            =   2700
  77.       Top             =   3060
  78.    End
  79.    Begin VB.Timer tmrPuente 
  80.       Enabled         =   0   'False
  81.       Left            =   2280
  82.       Top             =   3060
  83.    End
  84.    Begin VB.Timer tmrCataratas 
  85.       Enabled         =   0   'False
  86.       Left            =   180
  87.       Top             =   3060
  88.    End
  89.    Begin VB.CommandButton Command4 
  90.       Caption         =   "B"
  91.       Height          =   315
  92.       Left            =   2340
  93.       TabIndex        =   13
  94.       Top             =   2700
  95.       Visible         =   0   'False
  96.       Width           =   435
  97.    End
  98.    Begin VB.Timer tmrFuegos 
  99.       Enabled         =   0   'False
  100.       Interval        =   100
  101.       Left            =   1860
  102.       Top             =   3060
  103.    End
  104.    Begin VB.Timer tmrLasers 
  105.       Enabled         =   0   'False
  106.       Interval        =   100
  107.       Left            =   1440
  108.       Top             =   3060
  109.    End
  110.    Begin VB.Timer tmrRayos 
  111.       Enabled         =   0   'False
  112.       Interval        =   100
  113.       Left            =   4740
  114.       Top             =   3420
  115.    End
  116.    Begin VB.Timer tmrMuere 
  117.       Enabled         =   0   'False
  118.       Left            =   5700
  119.       Top             =   3180
  120.    End
  121.    Begin VB.CommandButton Command3 
  122.       Caption         =   "Muerte"
  123.       Height          =   315
  124.       Left            =   2880
  125.       TabIndex        =   11
  126.       Top             =   2700
  127.       Visible         =   0   'False
  128.       Width           =   915
  129.    End
  130.    Begin VB.CommandButton Command2 
  131.       Caption         =   "3"
  132.       Height          =   315
  133.       Index           =   2
  134.       Left            =   3480
  135.       TabIndex        =   10
  136.       Top             =   2700
  137.       Visible         =   0   'False
  138.       Width           =   315
  139.    End
  140.    Begin VB.CommandButton Command2 
  141.       Caption         =   "2"
  142.       Height          =   315
  143.       Index           =   1
  144.       Left            =   3180
  145.       TabIndex        =   9
  146.       Top             =   2700
  147.       Visible         =   0   'False
  148.       Width           =   315
  149.    End
  150.    Begin VB.CommandButton Command2 
  151.       Caption         =   "1"
  152.       Height          =   315
  153.       Index           =   0
  154.       Left            =   2880
  155.       TabIndex        =   8
  156.       Top             =   2700
  157.       Visible         =   0   'False
  158.       Width           =   315
  159.    End
  160.    Begin VB.Timer Timer2 
  161.       Enabled         =   0   'False
  162.       Interval        =   250
  163.       Left            =   5700
  164.       Top             =   2700
  165.    End
  166.    Begin VB.Timer Timer1 
  167.       Enabled         =   0   'False
  168.       Interval        =   250
  169.       Left            =   5700
  170.       Top             =   2280
  171.    End
  172.    Begin VB.CommandButton Command1 
  173.       Caption         =   "Mßscara"
  174.       Height          =   315
  175.       Left            =   3900
  176.       TabIndex        =   6
  177.       Top             =   3120
  178.       Visible         =   0   'False
  179.       Width           =   975
  180.    End
  181.    Begin VB.PictureBox Picture1 
  182.       AutoRedraw      =   -1  'True
  183.       AutoSize        =   -1  'True
  184.       BorderStyle     =   0  'None
  185.       Height          =   1830
  186.       Left            =   960
  187.       ScaleHeight     =   122
  188.       ScaleMode       =   3  'Pφxel
  189.       ScaleWidth      =   433
  190.       TabIndex        =   4
  191.       Top             =   660
  192.       Visible         =   0   'False
  193.       Width           =   6495
  194.    End
  195.    Begin VB.PictureBox PicMain 
  196.       BackColor       =   &H00000000&
  197.       BorderStyle     =   0  'None
  198.       ClipControls    =   0   'False
  199.       ForeColor       =   &H00FFFFFF&
  200.       Height          =   2640
  201.       Left            =   0
  202.       ScaleHeight     =   176
  203.       ScaleMode       =   3  'Pφxel
  204.       ScaleWidth      =   320
  205.       TabIndex        =   0
  206.       Top             =   480
  207.       Width           =   4800
  208.    End
  209.    Begin VB.PictureBox PicBuff 
  210.       BackColor       =   &H00000000&
  211.       BorderStyle     =   0  'None
  212.       ClipControls    =   0   'False
  213.       ForeColor       =   &H00FFFFFF&
  214.       Height          =   2640
  215.       Left            =   0
  216.       ScaleHeight     =   176
  217.       ScaleMode       =   3  'Pφxel
  218.       ScaleWidth      =   320
  219.       TabIndex        =   2
  220.       Top             =   480
  221.       Visible         =   0   'False
  222.       Width           =   4800
  223.    End
  224.    Begin VB.PictureBox PicClean 
  225.       AutoRedraw      =   -1  'True
  226.       BackColor       =   &H00C0E0FF&
  227.       BorderStyle     =   0  'None
  228.       ClipControls    =   0   'False
  229.       ForeColor       =   &H00FFFFFF&
  230.       Height          =   2640
  231.       Left            =   0
  232.       ScaleHeight     =   176
  233.       ScaleMode       =   3  'Pφxel
  234.       ScaleWidth      =   320
  235.       TabIndex        =   1
  236.       Top             =   480
  237.       Visible         =   0   'False
  238.       Width           =   4800
  239.    End
  240.    Begin VB.PictureBox PicWork 
  241.       AutoRedraw      =   -1  'True
  242.       BackColor       =   &H00000000&
  243.       BorderStyle     =   0  'None
  244.       ClipControls    =   0   'False
  245.       ForeColor       =   &H00FFFFFF&
  246.       Height          =   2640
  247.       Left            =   0
  248.       ScaleHeight     =   176
  249.       ScaleMode       =   3  'Pφxel
  250.       ScaleWidth      =   320
  251.       TabIndex        =   3
  252.       Top             =   480
  253.       Visible         =   0   'False
  254.       Width           =   4800
  255.    End
  256.    Begin VB.Image ImgGameOver 
  257.       Height          =   105
  258.       Left            =   1200
  259.       Top             =   350
  260.       Visible         =   0   'False
  261.       Width           =   2370
  262.    End
  263.    Begin VB.Image Image1 
  264.       Height          =   135
  265.       Left            =   3480
  266.       Picture         =   "frmMain.frx":0CCB
  267.       Top             =   3420
  268.       Visible         =   0   'False
  269.       Width           =   1260
  270.    End
  271.    Begin VB.Label Label4 
  272.       BackColor       =   &H00000000&
  273.       ForeColor       =   &H00FFFFFF&
  274.       Height          =   255
  275.       Left            =   2100
  276.       TabIndex        =   12
  277.       Top             =   2700
  278.       Width           =   615
  279.    End
  280.    Begin VB.Label Label3 
  281.       BackColor       =   &H00000000&
  282.       Caption         =   "xxxx"
  283.       ForeColor       =   &H00FFFFFF&
  284.       Height          =   255
  285.       Left            =   480
  286.       TabIndex        =   7
  287.       Top             =   3120
  288.       Visible         =   0   'False
  289.       Width           =   735
  290.    End
  291.    Begin VB.Label Label2 
  292.       BackColor       =   &H00000000&
  293.       Caption         =   "xxxx"
  294.       ForeColor       =   &H00FFFFFF&
  295.       Height          =   255
  296.       Left            =   60
  297.       TabIndex        =   5
  298.       Top             =   3120
  299.       Visible         =   0   'False
  300.       Width           =   375
  301.    End
  302. End
  303. Attribute VB_Name = "frmMain"
  304. Attribute VB_GlobalNameSpace = False
  305. Attribute VB_Creatable = False
  306. Attribute VB_PredeclaredId = True
  307. Attribute VB_Exposed = False
  308. Option Explicit
  309. Dim ret As Boolean
  310.  
  311. Dim BrucePlayer As cBruceLee
  312.  
  313. Dim Dx As New DirectX7
  314. Dim objDx As DirectX7
  315. Dim objDraw7 As DirectDraw7
  316.  
  317. Dim perfStart As Currency
  318. Dim perfEnd As Currency
  319. Dim perfFreq As Currency
  320. Dim Elapsed As Double
  321. Dim ElapsedPataSalta As Double
  322. Dim checkSpace As Boolean
  323. Dim checkUp As Boolean
  324. Dim checkPu±etazo As Boolean
  325. Dim FullScreen As Boolean
  326. Dim StatMuere As Long
  327. Dim DelayRayos As Boolean
  328. Dim DelayLasers As Boolean
  329. Dim DelayFuego As Boolean
  330. Dim DelayCataratas As Boolean
  331. Dim velocidadCataratas As Integer
  332. Dim aVeloCata As Integer
  333. Dim LQuePuente As Integer
  334. Dim LQueBaca As Integer
  335. Dim EnPantallaPrincipal As Boolean
  336. Dim EstoyJugando As Boolean
  337.  
  338. Dim Ds As DirectSound
  339. Dim DsBuffer(1) As DirectSoundBuffer
  340. Dim DsDesc As DSBUFFERDESC
  341. Dim DsWave As WAVEFORMATEX
  342.  
  343. Sub EndIt()
  344.     If FullScreen = True Then
  345.         objDraw7.RestoreDisplayMode
  346.         objDraw7.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL
  347.         ShowCursor 1
  348.     End If
  349.     If CanPlayWave = True Then
  350.         DsBuffer(0).Stop
  351.         DsBuffer(1).Stop
  352.         DsBuffer(0).SetCurrentPosition 0
  353.         DsBuffer(1).SetCurrentPosition 0
  354.     End If
  355.     
  356.     Set BrucePlayer = Nothing
  357.     
  358.     End
  359. End Sub
  360.  
  361. Private Sub Command1_Click()
  362.     If Command1.Caption = "Mßscara" Then
  363.         Command1.Caption = "Mapa"
  364.         PicClean.Picture = LoadPicture(App.Path & Habitaciones(BrucePlayer.Habitacion).MapMask)
  365.     Else
  366.         Command1.Caption = "Mßscara"
  367.         PicClean.Picture = LoadPicture(App.Path & Habitaciones(BrucePlayer.Habitacion).MapPic)
  368.     End If
  369.     PicMain.SetFocus
  370. End Sub
  371.  
  372.  
  373.  
  374. 'Private Sub Command2_Click(Index As Integer)
  375. '    BrucePlayer.Habitacion = Val(Command2(Index).Caption)
  376. '    PicClean.Picture = LoadPicture(App.Path & Habitaciones(BrucePlayer.Habitacion).MapPic)
  377. '    PicBuff.Picture = LoadPicture(App.Path & Habitaciones(BrucePlayer.Habitacion).MapMask)
  378. '
  379. '    GetObjectAPI frmMain.PicBuff.Picture, Len(bmpBuff), bmpBuff
  380. '
  381. '
  382. '    With saBuff
  383. '        .cbElements = 1
  384. '        .cDims = 2
  385. '        .Bounds(0).lLbound = 0
  386. '        .Bounds(0).cElements = bmpBuff.bmHeight
  387. '        .Bounds(1).lLbound = 0
  388. '        .Bounds(1).cElements = bmpBuff.bmWidthBytes
  389. '        .pvData = bmpBuff.bmBits
  390. '    End With
  391. '
  392. '   CopyMemory ByVal VarPtrArray(pictBuff), VarPtr(saBuff), 4
  393. '
  394. '    PicMain.SetFocus
  395. 'End Sub
  396. '
  397. 'Private Sub Command3_Click()
  398. '    tmrMuere.Enabled = True
  399. '    tmrMuere.Interval = 250
  400. '    BrucePlayer.Muere = True
  401. '    PicMain.SetFocus
  402. 'End Sub
  403.  
  404. 'Private Sub Command4_Click()
  405. '    If Command4.Caption = "B" Then
  406. '        Habitaciones(4).Cataratas(1).Direccion = HaciaAbajo
  407. '        Command4.Caption = "S"
  408. '    Else
  409. '        Command4.Caption = "B"
  410. '        Habitaciones(4).Cataratas(1).Direccion = HaciaArriba
  411. '    End If
  412. 'End Sub
  413.  
  414. 'Private Sub Form_DblClick()
  415. 'EndIt
  416. 'End Sub
  417.  
  418.  
  419.  
  420. Private Sub Form_Load()
  421. Dim aux As Long
  422.     
  423.     On Error GoTo ErrorHandler
  424.     Unload Form1
  425.     aux = CanPlaySound
  426.     If aux = AUDIO_NONE Then
  427.         CanPlayMidi = False
  428.         CanPlayWave = False
  429.     End If
  430.  
  431.     If aux = AUDIO_WAVE Then
  432.         CanPlayMidi = True
  433.         CanPlayWave = False
  434.     End If
  435.  
  436.     If aux = AUDIO_MIDI Then
  437.         CanPlayMidi = False
  438.         CanPlayWave = True
  439.     End If
  440.  
  441.     If aux = AUDIO_BOTH Then
  442.         CanPlayMidi = True
  443.         CanPlayWave = True
  444.     End If
  445.     
  446.     FullScreen = True 'False
  447.  
  448.     InitializeAscii
  449.     
  450.     Show
  451.      
  452.     If FullScreen = True Then
  453.         Set objDx = New DirectX7
  454.         Set objDraw7 = objDx.DirectDrawCreate("")
  455.         
  456.         objDraw7.SetCooperativeLevel Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE
  457.         objDraw7.SetDisplayMode 320, 240, 16, 0, DDSDM_STANDARDVGAMODE
  458.         ShowCursor 0
  459.     End If
  460.     
  461.     If CanPlayWave = True Then
  462.         Initialise
  463.     End If
  464.     
  465.     Preparativos
  466.  
  467. Exit Sub
  468. ErrorHandler:
  469.     EndIt
  470. End Sub
  471.  
  472. Public Sub Preparativos()
  473.     tmrLogo.Interval = 1
  474.     tmrLogo.Enabled = True
  475. End Sub
  476.  
  477. Public Sub Init()
  478.     Image1.Visible = True
  479.     EstoyJugando = True
  480.     tmrBaca.Enabled = False
  481.     
  482.     On Local Error GoTo errOut
  483.     EnPantallaPrincipal = False
  484.     Me.BackColor = 0
  485.     PicMainASCII.Visible = True
  486.     
  487.     GetObjectAPI frmMain.PicBuff.Picture, Len(bmpBuff), bmpBuff
  488.  
  489.  
  490.     With saBuff
  491.         .cbElements = 1
  492.         .cDims = 2
  493.         .Bounds(0).lLbound = 0
  494.         .Bounds(0).cElements = bmpBuff.bmHeight
  495.         .Bounds(1).lLbound = 0
  496.         .Bounds(1).cElements = bmpBuff.bmWidthBytes
  497.         .pvData = bmpBuff.bmBits
  498.     End With
  499.     
  500.     CopyMemory ByVal VarPtrArray(pictBuff), VarPtr(saBuff), 4
  501.  
  502.     QueryPerformanceFrequency perfFreq
  503.     
  504.     Do
  505.         
  506.         If EnPantallaPrincipal = True Then
  507.             Exit Do
  508.         End If
  509.         
  510.         
  511.         Borra
  512.         
  513. '        Label2.Caption = pictBuff(BrucePlayer.PosX, bmpBuff.bmHeight - BrucePlayer.PosY) & "," & pictBuff(BrucePlayer.PosX, bmpBuff.bmHeight - BrucePlayer.PosY - 1)
  514. '        Label3.Caption = BrucePlayer.PosX & "," & BrucePlayer.PosY
  515.         
  516.         BrucePlayer.ChequeaLamparas
  517.         BrucePlayer.ChequeaFuego
  518.         BrucePlayer.ChequeaLasers
  519.         BrucePlayer.ChequeaRayos
  520.         BrucePlayer.ChequeaCogerVidas
  521.         
  522.         WriteMyAscii Picture1.hDC, PicWorkASCII.hDC, PicWorkASCII.ScaleWidth, Format(BrucePlayer.Puntos, "000000"), 60, 1, False, 1
  523.         If BrucePlayer.Puntos > TopScore Then
  524.             WriteMyAscii Picture1.hDC, PicWorkASCII.hDC, PicWorkASCII.ScaleWidth, Format(BrucePlayer.Puntos, "000000"), 150, 1, False, 1
  525.         Else
  526.             WriteMyAscii Picture1.hDC, PicWorkASCII.hDC, PicWorkASCII.ScaleWidth, Format(TopScore, "000000"), 150, 1, False, 1
  527.         End If
  528.         
  529.         If BrucePlayer.Vidas >= 0 Then
  530.             WriteMyAscii Picture1.hDC, PicWorkASCII.hDC, PicWorkASCII.ScaleWidth, Format(BrucePlayer.Vidas, "00"), 260, 1, False, 1
  531.         Else
  532.             WriteMyAscii Picture1.hDC, PicWorkASCII.hDC, PicWorkASCII.ScaleWidth, "00", 260, 1, False, 1
  533.             tmrGameOver.Enabled = True
  534.             tmrGameOver.Interval = 50
  535.         End If
  536.         
  537.         If BrucePlayer.Muere = False Then
  538.             BrucePlayer.ChequeaPinchos
  539.         End If
  540.  
  541.         
  542.         OperatoriaEspecialMuros BrucePlayer.Habitacion
  543.         OperatoriaEspecialRayos BrucePlayer.Habitacion
  544.         OperatoriaEspecialLasers BrucePlayer.Habitacion
  545.         
  546.         PintaLamparas
  547.         PintarFuegos
  548.         PintaCataratas
  549.         PintaPuente LQuePuente
  550.         PintaBaca LQueBaca
  551.         
  552.         If BrucePlayer.Muere = True Then
  553.             If tmrMuere.Enabled = False Then
  554.                 tmrMuere.Enabled = True
  555.                 tmrMuere.Interval = 150
  556.             End If
  557.         End If
  558.         
  559.         If BrucePlayer.Muere = False Then
  560.             moveBruceLee
  561.         End If
  562.         
  563.         If BrucePlayer.Habitacion = 15 Then
  564.             If HaCogidoVida = False And VisitasVidas > 0 Then
  565.                 PintaVidas
  566.             End If
  567.         End If
  568.         
  569.         If BrucePlayer.CheckCambioHabitacion = True Then
  570.             PantallaEspecial
  571.             BrucePlayer.CayendoDiagonal = False
  572.             If BrucePlayer.Habitacion = 13 Then
  573.                 If HaCogidoVida = True Then
  574.                     HaCogidoVida = False
  575.                     VisitasVidas = VisitasVidas - 1
  576.                 End If
  577.             End If
  578.  
  579.             If (BrucePlayer.Habitacion = 1 Or BrucePlayer.Habitacion = 3) And _
  580.                 (Habitaciones(4).Lamparas(4).Estado = False And _
  581.                 Habitaciones(4).Lamparas(5).Estado = False) Then
  582.                     tmrBaca.Interval = 1
  583.                 tmrBaca.Enabled = True
  584.             Else
  585.                 tmrBaca.Enabled = False
  586.             End If
  587.                 
  588.             If BrucePlayer.Habitacion = 10 Then
  589.                 tmrPuente.Interval = 1
  590.                 tmrPuente.Enabled = True
  591.             Else
  592.                 tmrPuente.Enabled = False
  593.             End If
  594.             
  595.             
  596.             If Habitaciones(BrucePlayer.Habitacion).NumeroRayos > 0 Then
  597.                 tmrRayos.Interval = 50
  598.                 tmrRayos.Enabled = True
  599.             Else
  600.                 tmrRayos.Enabled = False
  601.             End If
  602.             
  603.             If Habitaciones(BrucePlayer.Habitacion).NumeroLasers > 0 Then
  604.                 tmrLasers.Interval = 25
  605.                 tmrLasers.Enabled = True
  606.             Else
  607.                 tmrLasers.Enabled = False
  608.             End If
  609.             
  610.             If Habitaciones(BrucePlayer.Habitacion).NumeroFuegos > 0 Then
  611.                 tmrFuegos.Interval = 250
  612.                 tmrFuegos.Enabled = True
  613.             Else
  614.                 tmrFuegos.Enabled = False
  615.             End If
  616.             
  617.             If Habitaciones(BrucePlayer.Habitacion).NumeroCataratas > 0 Then
  618.                 tmrCataratas.Interval = 200
  619.                 tmrCataratas.Enabled = True
  620.             Else
  621.                 tmrCataratas.Enabled = False
  622.             End If
  623.                 
  624.             PicClean.Picture = LoadPicture(App.Path & Habitaciones(BrucePlayer.Habitacion).MapPic)
  625.             PicBuff.Picture = LoadPicture(App.Path & Habitaciones(BrucePlayer.Habitacion).MapMask)
  626.             GetObjectAPI frmMain.PicBuff.Picture, Len(bmpBuff), bmpBuff
  627.  
  628.             With saBuff
  629.                 .cbElements = 1
  630.                 .cDims = 2
  631.                 .Bounds(0).lLbound = 0
  632.                 .Bounds(0).cElements = bmpBuff.bmHeight
  633.                 .Bounds(1).lLbound = 0
  634.                 .Bounds(1).cElements = bmpBuff.bmWidthBytes
  635.                 .pvData = bmpBuff.bmBits
  636.             End With
  637.              
  638.             CopyMemory ByVal VarPtrArray(pictBuff), VarPtr(saBuff), 4
  639.         End If
  640.         
  641.         If BrucePlayer.Muere = True Then
  642.             StatMuere = StatMuere + 1
  643.             If StatMuere Mod 2 = 0 Then
  644.                 If BrucePlayer.GameOver = False Then
  645.                     BrucePlayer.Render
  646.                 End If
  647.             End If
  648.         Else
  649.             BrucePlayer.Render
  650.         End If
  651.       
  652.         Flip
  653.         
  654.         DoEvents
  655.         Sleep 1
  656.     
  657.     Loop
  658.  
  659.     Exit Sub
  660.  
  661. errOut:
  662.     EndIt
  663. End Sub
  664.  
  665. Private Sub PantallaEspecial()
  666.     If BrucePlayer.Habitacion >= 16 Then
  667.         Exit Sub
  668.     End If
  669.     If Habitaciones(13).Lamparas(1).Estado = False And _
  670.         Habitaciones(13).Lamparas(2).Estado = False And _
  671.         Habitaciones(14).Lamparas(1).Estado = False And _
  672.         Habitaciones(14).Lamparas(2).Estado = False And _
  673.         Habitaciones(15).Lamparas(1).Estado = False And _
  674.         Habitaciones(15).Lamparas(2).Estado = False Then
  675.             BrucePlayer.PosX = 282
  676.             BrucePlayer.PosY = 24
  677.             BrucePlayer.Habitacion = 16
  678.         End If
  679.     
  680. End Sub
  681.  
  682. Private Sub PintaVidas()
  683.     SDC = frmMain.Picture1.hDC
  684.     DDC = frmMain.PicWork.hDC
  685.     BitBlt DDC, 288, 128, 16, 32, SDC, 451, 3, SRCAND
  686.     BitBlt DDC, 288, 128, 16, 32, SDC, 434, 3, SRCPAINT
  687. End Sub
  688.  
  689. Private Sub PintarFuegos()
  690.   Dim avanzaFrames As Boolean
  691.   Dim i As Integer
  692.   Dim X As Integer
  693.   Dim Y As Integer
  694.     
  695.     If Habitaciones(BrucePlayer.Habitacion).NumeroFuegos = 0 Then
  696.         Exit Sub
  697.     End If
  698.     
  699.     SDC = frmMain.Picture1.hDC
  700.     DDC = frmMain.PicWork.hDC
  701.     
  702.     If DelayFuego = True Then
  703.         DelayFuego = False
  704.         tmrFuegos.Enabled = False
  705.         tmrFuegos.Enabled = True
  706.         avanzaFrames = True
  707.     Else
  708.         avanzaFrames = False
  709.     End If
  710.     
  711.     For i = 1 To Habitaciones(BrucePlayer.Habitacion).NumeroFuegos
  712.         X = Habitaciones(BrucePlayer.Habitacion).Fuegos(i).PosX
  713.         Y = Habitaciones(BrucePlayer.Habitacion).Fuegos(i).PosY
  714.         If Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Activo = False Then
  715.         Else
  716.             Select Case Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Tipo
  717.                 Case 2
  718.                     Select Case Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame
  719.                         Case 1, 8
  720.                             Y = Y - 4
  721.                             BitBlt DDC, X, Y, 8, 4, SDC, 219, 69, SRCAND
  722.                             BitBlt DDC, X, Y, 8, 4, SDC, 183, 69, SRCPAINT
  723.  
  724.                         Case 2, 7
  725.                             Y = Y - 4
  726.                             BitBlt DDC, X, Y, 8, 4, SDC, 228, 69, SRCAND
  727.                             BitBlt DDC, X, Y, 8, 4, SDC, 192, 69, SRCPAINT
  728.                         Case 3, 6
  729.                             Y = Y - 10
  730.                             BitBlt DDC, X, Y, 8, 10, SDC, 237, 63, SRCAND
  731.                             BitBlt DDC, X, Y, 8, 10, SDC, 201, 63, SRCPAINT
  732.                         
  733.                         Case 4, 5
  734.                             Y = Y - 20
  735.                             BitBlt DDC, X, Y, 8, 20, SDC, 246, 53, SRCAND
  736.                             BitBlt DDC, X, Y, 8, 20, SDC, 210, 53, SRCPAINT
  737.                     
  738.                     End Select
  739.                 
  740.                 Case 1
  741.                     Select Case Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame
  742.                         Case 1, 6
  743.                             Y = Y - 6
  744.                             BitBlt DDC, X, Y, 8, 6, SDC, 289, 87, SRCAND
  745.                             BitBlt DDC, X, Y, 8, 6, SDC, 289, 74, SRCPAINT
  746.                             
  747.                         Case 2, 5
  748.                             Y = Y - 10
  749.                             BitBlt DDC, X, Y, 8, 10, SDC, 299, 83, SRCAND
  750.                             BitBlt DDC, X, Y, 8, 10, SDC, 299, 70, SRCPAINT
  751.                         
  752.                         Case 3, 4
  753.                             X = X - 4
  754.                             Y = Y - 12
  755.                             BitBlt DDC, X, Y, 16, 12, SDC, 308, 81, SRCAND
  756.                             BitBlt DDC, X, Y, 16, 12, SDC, 308, 68, SRCPAINT
  757.                         
  758.                     End Select
  759.             End Select
  760.             
  761.             If avanzaFrames = True Then
  762.                 Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Espera = Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Espera + 1
  763.                 If Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Espera >= 3 Then
  764.                     Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame = Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame + 1
  765.                 End If
  766.                 Select Case Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Tipo
  767.                     Case 1
  768.                         If Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame > 6 Then
  769.                             Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame = 0
  770.                             Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Activo = False
  771.                             Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Espera = 0
  772.                         End If
  773.                     Case 2
  774.                         If Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame > 8 Then
  775.                             Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Frame = 0
  776.                             Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Activo = False
  777.                             Habitaciones(BrucePlayer.Habitacion).Fuegos(i).Espera = 0
  778.                         End If
  779.                 
  780.                 End Select
  781.             End If
  782.         End If
  783.     Next i
  784. End Sub
  785.  
  786. Private Sub PintaCataratas()
  787.   Dim i As Integer
  788.   Dim lHab As Integer
  789.   Dim X As Integer
  790.   Dim Y As Integer
  791.   Dim j As Integer
  792.   Dim alturaSPRcatarata As Integer
  793.   Dim anchuraSPRcatarata As Integer
  794.   Dim posXSPRcatarata As Integer
  795.   Dim posYSPRcatarata As Integer
  796.   Dim RealVelo As Integer
  797.   Dim nRepeticiones As Integer
  798.   Dim TempValue As Integer
  799.   Dim yTemp As Integer
  800.     
  801.     lHab = BrucePlayer.Habitacion
  802.     
  803.     SDC = frmMain.Picture1.hDC
  804.     DDC = frmMain.PicWork.hDC
  805.     
  806.     If Habitaciones(lHab).NumeroCataratas = 0 Then
  807.         Exit Sub
  808.     End If
  809.     
  810.     If DelayCataratas = True Then
  811.         DelayCataratas = False
  812.         tmrCataratas.Enabled = False
  813.         tmrCataratas.Enabled = True
  814.         RealVelo = velocidadCataratas
  815.         'Label5.Caption = RealVelo
  816.     Else
  817.         RealVelo = 0
  818.     End If
  819.     
  820.     For i = 1 To Habitaciones(lHab).NumeroCataratas
  821.         Select Case Habitaciones(lHab).Cataratas(i).Tipo
  822.             Case 1
  823.                 alturaSPRcatarata = 8
  824.                 anchuraSPRcatarata = 24
  825.                 posXSPRcatarata = 289
  826.                 posYSPRcatarata = 94
  827.             Case 2
  828.                 alturaSPRcatarata = 8
  829.                 anchuraSPRcatarata = 32
  830.                 posXSPRcatarata = 289
  831.                 posYSPRcatarata = 103
  832.             Case 3
  833.                 alturaSPRcatarata = 8
  834.                 anchuraSPRcatarata = 48
  835.                 posXSPRcatarata = 289
  836.                 posYSPRcatarata = 112
  837.             Case 4
  838.                 alturaSPRcatarata = 8
  839.                 anchuraSPRcatarata = 40
  840.                 posXSPRcatarata = 289
  841.                 posYSPRcatarata = 112
  842.             Case 5
  843.                 alturaSPRcatarata = 8
  844.                 anchuraSPRcatarata = 56
  845.                 posXSPRcatarata = 338
  846.                 posYSPRcatarata = 112
  847.             Case 6
  848.                 alturaSPRcatarata = 8
  849.                 anchuraSPRcatarata = 32
  850.                 posXSPRcatarata = 322
  851.                 posYSPRcatarata = 103
  852.             Case 7
  853.                 alturaSPRcatarata = 8
  854.                 anchuraSPRcatarata = 32
  855.                 posXSPRcatarata = 355
  856.                 posYSPRcatarata = 103
  857.         
  858.         End Select
  859.     
  860.         nRepeticiones = (Habitaciones(lHab).Cataratas(i).PosY2 - Habitaciones(lHab).Cataratas(i).PosY) \ alturaSPRcatarata
  861.         
  862.         If Habitaciones(lHab).Cataratas(i).Direccion = HaciaArriba Then
  863.             Habitaciones(lHab).Cataratas(i).TempY = Habitaciones(lHab).Cataratas(i).TempY - RealVelo
  864.             If Abs(Habitaciones(lHab).Cataratas(i).TempY) > alturaSPRcatarata Then
  865.                 Habitaciones(lHab).Cataratas(i).TempY = 0
  866.             End If
  867.         Else
  868.             Habitaciones(lHab).Cataratas(i).TempY = Habitaciones(lHab).Cataratas(i).TempY + RealVelo
  869.             If Habitaciones(lHab).Cataratas(i).TempY >= 0 Then
  870.                 Habitaciones(lHab).Cataratas(i).TempY = alturaSPRcatarata * -1
  871.             End If
  872.         
  873.         End If
  874.         TempValue = Habitaciones(lHab).Cataratas(i).TempY
  875.         X = Habitaciones(lHab).Cataratas(i).PosX
  876.         Y = Habitaciones(lHab).Cataratas(i).PosY
  877.         
  878.         For j = 0 To nRepeticiones + 1
  879.                 If j = 0 Then
  880.                     BitBlt DDC, X, Y, anchuraSPRcatarata, alturaSPRcatarata + TempValue, SDC, posXSPRcatarata, (posYSPRcatarata + ((TempValue) * (-1))), SRCAND
  881.                     yTemp = Y + alturaSPRcatarata + TempValue
  882.  
  883.                 Else
  884.                     If yTemp + alturaSPRcatarata > Habitaciones(lHab).Cataratas(i).PosY2 Then
  885.                         BitBlt DDC, X, yTemp, anchuraSPRcatarata, Habitaciones(lHab).Cataratas(i).PosY2 - yTemp, SDC, posXSPRcatarata, posYSPRcatarata, SRCAND
  886.                         Exit For
  887.                     Else
  888.                         BitBlt DDC, X, yTemp, anchuraSPRcatarata, alturaSPRcatarata, SDC, posXSPRcatarata, posYSPRcatarata, SRCAND
  889.                         yTemp = yTemp + alturaSPRcatarata
  890.                     End If
  891.                 End If
  892.         Next j
  893.     Next i
  894. End Sub
  895.  
  896. Private Sub PintaLamparas()
  897.   Dim i As Integer
  898.   Dim lHab As Integer
  899.     
  900.     lHab = BrucePlayer.Habitacion
  901.     SDC = frmMain.Picture1.hDC
  902.     DDC = frmMain.PicWork.hDC
  903.  
  904.     For i = 1 To Habitaciones(lHab).NumeroLamparas
  905.     If Habitaciones(lHab).Lamparas(i).Estado = True Then
  906.         Select Case Habitaciones(lHab).Lamparas(i).Tipo
  907.             Case 0
  908.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaciones(lHab).Lamparas(i).PosY, 8, 10, SDC, 242, 2, SRCAND
  909.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaciones(lHab).Lamparas(i).PosY, 8, 10, SDC, 233, 2, SRCPAINT
  910.             Case 1
  911.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaciones(lHab).Lamparas(i).PosY, 8, 10, SDC, 242, 2, SRCAND
  912.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaciones(lHab).Lamparas(i).PosY, 8, 10, SDC, 251, 2, SRCPAINT
  913.             Case 2
  914.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaciones(lHab).Lamparas(i).PosY, 6, 12, SDC, 267, 2, SRCAND
  915.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaciones(lHab).Lamparas(i).PosY, 6, 12, SDC, 260, 2, SRCPAINT
  916.         End Select
  917.     End If
  918. Next i
  919. End Sub
  920.  
  921. 'Private Sub PicBuff_Click()
  922. 'EndIt
  923. 'End Sub
  924.  
  925. Private Sub Borra()
  926.     CleanASCII
  927.     SDC = PicClean.hDC
  928.     DDC = PicWork.hDC
  929.     BitBlt DDC, 0, 0, PicClean.ScaleWidth, PicClean.ScaleHeight, SDC, 0, 0, SRCCOPY
  930. End Sub
  931. Private Sub Flip()
  932.     FlipASCII
  933.     SDC = PicWork.hDC
  934.     DDC = PicMain.hDC
  935.     BitBlt DDC, 0, 0, PicWork.ScaleWidth, PicWork.ScaleHeight, SDC, 0, 0, SRCCOPY
  936. End Sub
  937.  
  938. Private Sub Render()
  939.     
  940.     SDC = Picture1.hDC
  941.     DDC = PicWork.hDC
  942.     BitBlt DDC, 0, 0, 16, 23, SDC, 1, 25, SRCAND
  943.     BitBlt DDC, 0, 0, 16, 23, SDC, 1, 1, SRCPAINT
  944.  
  945. End Sub
  946. Private Sub OperatoriaEspecialLasers(queHabitacion As Integer)
  947.   Dim Velo As Integer
  948.   Dim i As Integer
  949.   Dim X As Integer
  950.   Dim Y As Integer
  951.     
  952.     If Habitaciones(queHabitacion).NumeroLasers = 0 Then
  953.         Exit Sub
  954.     End If
  955.  
  956.     If DelayLasers = True Then
  957.         DelayLasers = False
  958.         tmrLasers.Enabled = False
  959.         tmrLasers.Enabled = True
  960.         Velo = 5
  961.     Else
  962.         Velo = 0
  963.     End If
  964.     
  965.     If BrucePlayer.Muere = True Then
  966.         Velo = 0
  967.     End If
  968.     
  969.     SDC = frmMain.Picture1.hDC
  970.     DDC = frmMain.PicWork.hDC
  971.  
  972.     For i = 1 To Habitaciones(queHabitacion).NumeroLasers
  973.         If Habitaciones(queHabitacion).Laser(i).Stop = True Then
  974.             Velo = 0
  975.         End If
  976.         
  977.         If Habitaciones(queHabitacion).Laser(i).Direccion = deIzquierdaADerecha Then
  978.             Habitaciones(queHabitacion).Laser(i).tempX = Habitaciones(queHabitacion).Laser(i).tempX + Velo
  979.             If Habitaciones(queHabitacion).Laser(i).tempX > (Habitaciones(queHabitacion).Laser(i).PosX1 + Habitaciones(queHabitacion).Laser(i).Distancia - 8) Then
  980.                 Habitaciones(queHabitacion).Laser(i).tempX = Habitaciones(queHabitacion).Laser(i).PosX1
  981.             End If
  982.         Else
  983.             Habitaciones(queHabitacion).Laser(i).tempX = Habitaciones(queHabitacion).Laser(i).tempX - Velo
  984.             If Habitaciones(queHabitacion).Laser(i).tempX < (Habitaciones(queHabitacion).Laser(i).PosX1) Then
  985.                 Habitaciones(queHabitacion).Laser(i).tempX = Habitaciones(queHabitacion).Laser(i).PosX1 + Habitaciones(queHabitacion).Laser(i).Distancia - 8
  986.             End If
  987.         End If
  988.     
  989.         X = Habitaciones(queHabitacion).Laser(i).tempX
  990.         Y = Habitaciones(queHabitacion).Laser(i).PosY1
  991.     
  992.         BitBlt DDC, X, Y, 8, 2, SDC, 255, 53, SRCCOPY
  993.     Next i
  994. End Sub
  995.  
  996. Private Sub OperatoriaEspecialRayos(queHabitacion As Integer)
  997.   Dim i As Integer
  998.   Dim X As Integer
  999.   Dim Y As Integer
  1000.   Dim Velo As Integer
  1001.   Dim VeloReal As Integer
  1002.     
  1003.     If Habitaciones(queHabitacion).NumeroRayos = 0 Then
  1004.         Exit Sub
  1005.     End If
  1006.     
  1007.     If DelayRayos = True Then
  1008.         Velo = 1
  1009.         DelayRayos = False
  1010.         tmrRayos.Enabled = False
  1011.         tmrRayos.Enabled = True
  1012.     Else
  1013.         Velo = 0
  1014.     End If
  1015.         
  1016.     SDC = frmMain.Picture1.hDC
  1017.     DDC = frmMain.PicWork.hDC
  1018.  
  1019.     For i = 1 To Habitaciones(queHabitacion).NumeroRayos
  1020.         If Velo = 1 Then
  1021.             VeloReal = Habitaciones(queHabitacion).Rayos(i).Velo
  1022.         Else
  1023.             VeloReal = 0
  1024.         End If
  1025.         
  1026.         If Habitaciones(queHabitacion).Rayos(i).Stop = True Then
  1027.             VeloReal = 0
  1028.         End If
  1029.         
  1030.         Habitaciones(queHabitacion).Rayos(i).tempX = Habitaciones(queHabitacion).Rayos(i).tempX + VeloReal
  1031.         X = Habitaciones(queHabitacion).Rayos(i).tempX
  1032.         Y = Habitaciones(queHabitacion).Rayos(i).PosY1
  1033.         
  1034.         If X > Habitaciones(queHabitacion).Rayos(i).InvisX2 Then
  1035.             Habitaciones(queHabitacion).Rayos(i).tempX = Habitaciones(queHabitacion).Rayos(i).InvisX1
  1036.         End If
  1037.         
  1038.         If X >= Habitaciones(queHabitacion).Rayos(i).PosX1 And X <= Habitaciones(queHabitacion).Rayos(i).PosX2 Then
  1039.             BitBlt DDC, X, Y, 8, 10, SDC, 265, 60, SRCAND
  1040.             BitBlt DDC, X, Y, 8, 10, SDC, 265, 49, SRCPAINT
  1041.             Habitaciones(queHabitacion).Rayos(i).Visible = True
  1042.         Else
  1043.             Habitaciones(queHabitacion).Rayos(i).Visible = False
  1044.         End If
  1045.     Next i
  1046.     
  1047.     Select Case queHabitacion
  1048.         Case 4
  1049.             BitBlt DDC, 0, 55, 8, 10, SDC, 343, 68, SRCCOPY
  1050.             BitBlt DDC, 32, 54, 16, 11, SDC, 326, 68, SRCCOPY
  1051.             BitBlt DDC, 192, 114, 24, 12, SDC, 326, 80, SRCCOPY
  1052.             BitBlt DDC, 240, 114, 10, 14, SDC, 351, 78, SRCCOPY
  1053.         Case 5
  1054.             BitBlt DDC, 0, 148, 8, 10, SDC, 362, 78, SRCCOPY
  1055.             BitBlt DDC, 40, 148, 8, 10, SDC, 362, 78, SRCCOPY
  1056.             BitBlt DDC, 80, 84, 8, 10, SDC, 362, 78, SRCCOPY
  1057.             BitBlt DDC, 120, 84, 8, 10, SDC, 362, 78, SRCCOPY
  1058.             BitBlt DDC, 192, 84, 8, 10, SDC, 362, 78, SRCCOPY
  1059.             BitBlt DDC, 232, 84, 8, 10, SDC, 362, 78, SRCCOPY
  1060.         Case 7
  1061.             BitBlt DDC, 40, 52, 8, 10, SDC, 352, 67, SRCCOPY
  1062.             BitBlt DDC, 104, 52, 8, 10, SDC, 352, 67, SRCCOPY
  1063.         Case 8
  1064.             BitBlt DDC, 120, 68, 8, 10, SDC, 362, 89, SRCCOPY
  1065.             BitBlt DDC, 176, 68, 8, 10, SDC, 352, 67, SRCCOPY
  1066.     End Select
  1067.  
  1068. End Sub
  1069. Private Sub OperatoriaEspecialMuros(queHabitacion As Integer)
  1070. On Error GoTo ErrorHandler
  1071.  
  1072.     
  1073.     SDC = frmMain.Picture1.hDC
  1074.     DDC = frmMain.PicWork.hDC
  1075.     
  1076.     Select Case queHabitacion
  1077.         Case 2
  1078.             If TotalLamparasRecogidas = 22 Then '22 Then
  1079.                 ModificarMascaraJIT 149, 170, 170, 173
  1080.                 BitBlt DDC, 134, 164, 16, 6, SDC, 274, 9, SRCAND
  1081.                 BitBlt DDC, 134, 164, 16, 6, SDC, 274, 2, SRCPAINT
  1082.             Else
  1083.                 BitBlt DDC, 152, 168, 16, 6, SDC, 274, 9, SRCAND
  1084.                 BitBlt DDC, 152, 168, 16, 6, SDC, 274, 2, SRCPAINT
  1085.             
  1086.             End If
  1087.         
  1088.         Case 3
  1089.             If Habitaciones(4).Lamparas(4).Estado = False And Habitaciones(4).Lamparas(5).Estado = False Then
  1090.                 ModificarMascaraJIT 318, 128, 319, 170
  1091.             Else
  1092.                 BitBlt DDC, 312, 128, 8, 42, SDC, 407, 49, SRCAND
  1093.             End If
  1094.         
  1095.         Case 4
  1096.             If Habitaciones(4).Lamparas(7).Estado = False And Habitaciones(4).Lamparas(8).Estado = False Then
  1097.                 ModificarMascaraJIT 0, 124, 7, 166
  1098.             Else
  1099.                 BitBlt DDC, 0, 124, 8, 42, SDC, 407, 49, SRCAND
  1100.             End If
  1101.             
  1102.             If Habitaciones(4).Lamparas(9).Estado = False And Habitaciones(4).Lamparas(10).Estado = False Then
  1103.                 ModificarMascaraJIT 200, 128, 207, 166
  1104.             Else
  1105.                 BitBlt DDC, 200, 128, 8, 38, SDC, 416, 49, SRCAND
  1106.             End If
  1107.             If Habitaciones(4).Lamparas(4).Estado = False And _
  1108.                 Habitaciones(4).Lamparas(5).Estado = False Then
  1109.                     ModificarMascaraJIT 272, 6, 295, 16
  1110.               Else
  1111.                 BitBlt DDC, 273, 0, 22, 16, SDC, 373, 79, SRCAND
  1112.                 BitBlt DDC, 273, 0, 22, 16, SDC, 373, 62, SRCPAINT
  1113.               End If
  1114.         
  1115.         Case 5
  1116.             If Habitaciones(5).Lamparas(1).Estado = False Then
  1117.                 ModificarMascaraJIT 88, 110, 119, 112
  1118.             Else
  1119.                 BitBlt DDC, 88, 110, 32, 16, SDC, 307, 49, SRCAND
  1120.                 BitBlt DDC, 88, 110, 32, 16, SDC, 274, 49, SRCPAINT
  1121.             End If
  1122.             If Habitaciones(5).Lamparas(2).Estado = False Then
  1123.                 ModificarMascaraJIT 200, 110, 231, 112
  1124.             Else
  1125.                 BitBlt DDC, 200, 110, 32, 128       ModificarMascaraJI2, 128       ModificarM  ModificarM
  1126.               BitBlt CAND
  1127.             End If
  1128.          BitBlt CAND
  1129.             EndcarMaslt CAND, 0, 55, 8, 10,i 112
  1130.             Else
  1131.              Else
  1132.              Else
  1133.              Else
  1134.        ucePlayer.Habitacion).MapPic)
  1135. '    PicBuff.Picture = a<CAND
  1136.               32, 16,75ture = a<CAND
  1137. f0a<CAND
  1138. f0a<CAND = frmMain.Pi     uoBlt DDC,B 166dificarMascaraJI2, 128       Mod    ucePlaruff), 4,ESDC,uros BrucePlayerMDC, 88, 110, 32, 16, x2taci(, 88, 110, 32, 16, x2taci(, 88, 11If
  1139.             If Habitacione4).Lamparas(7).Estado = False And Habitaciones(4).Lamparas(8).Estado = False Then
  1140.       0eCAND
  1141.          bitacion).Rayos(i).InvisX1
  1142.         End If
  1143.         
  1144.         If X >= Habita273, 0, 22, 16, SDC, 373, SDC, 373, SDC, 3V4If  128      128      16      bitp = True Then
  1145.             VeloReal = 0ros BrucePlayerMD 166dificarMascaraJI2, 
  1146. Next i
  1147. End Sub
  1148.  
  1149. 'Private, 16, SDC, 373, SDC, 373,    
  1150.         If X >=f
  1151.         
  1152.     dab).Clrm0u373, r, xre = a<Ci 
  1153.         If X >=f
  1154.         
  1155.     dab).Clrm0u373, r, xre = a<< 
  1156.             If Habitl X >=f
  1157.         
  1158.     dab).Clrm0u373, r, xre = a<Ci 
  1159.  H.Clrm0       Bs3,    
  1160.         If X p   3      BitBlt DDCm0       Bs3,    
  1161.        If Habitaci1.hPosY2 - yTemp, SDC, posX SRCCOPY
  1162.     End SelectEmp, SDC, posX SRCCOPY
  1163.     E   If Habitl X >tl X >tl X >tl X >tl 7, 166tarMascaraJI2, 
  1164. Next i
  1165. EnD #1         b>tl X >tl 7, 166tarMascaraJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaDDC, 20     128      16      bitp = True Then
  1166.              MMMMMMMMMMMMMMMM   If BrucePlayer.Muere = True Then
  1167.         Velo = 0
  1168.    3,  a<     Bs3,    
  1169.      HabitaciTn.Pi     uoBlt DDC,B 166difDempY +cGee     , 67rEJarMascaraJIT0 y16, 6, SDC, 2ht Picture1.hDC   b>tlraJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaJiaothen
  1170.                     BitBlt DDC, X, Y, anchuraSPRcatarata, alturaSPRcatarata + TempValue, SDC, posXSPRcatarata, (posYSPRcat'tBlt D  E   If Habitl X >tl X >tl,0eCAND
  1171.          bitacion).Rayos(i).InvisX1
  1172.         End If
  1173.         
  1174.         If X >= Habittttttttttttttttttt 0, 22, 16SsasetempX  As Inte, 22, 16SsasetempX  As1 SRCAND
  1175.       PosX SRCCOPY
  1176.   iempX  As1 SRCAND
  1177.       PosX Sei6
  1178.       PosX Sei6
  1179.       PosX Sei6
  1180.       PosX Sei6
  1181.           PopX  As1 SRCAND
  1182.       PosX abitti         alturaSPRcataopX  As1 SRCAND
  1183.       PosX abitti   <As1 SRCAND
  1184.       Pos    iX  As1W SRCAND
  1185.       PosX abitti taciTn.Pi     uoBlt DDC,B 166difDempY +cGee          PosX Sei64)m     PosX Sei64)msasetl,0eCAND
  1186.          bit     PosX Sei1i   
  1187.   r    Pos    iXnn Sei64)msasetl,0eCAND
  1188.          bit     PosX Sei1i   
  1189.                                             
  1190.   r    Pos    iXnn Sei64)m      ModificarMascaraJIT         
  1191.         If X >= Habittttttttttttttttttt 0,         2lturaSPRcatarata = 8
  1192.                44444444444444444444444444444444444444444440     uoBlt DDC,B 166difDe4444444444444442, 89, SRA1"1osX Sei6
  1193.    Sei64)mDparas(i).PosY, 6, 12, SDC, 267, 2, SRCAND
  1194.                 BitBlt DDC, Habitaciones(lHab).Lamparas(i).PosX, Habitaaras(i, 6, SDC, 27777777laras     C   uoBl)* 277X = Habitaciones(queHabitacion).Lass.hDCrpariones(lHab)_sX, HabitaaThe).PoMX6ttt 0,      oHabitaciTn.P BitBlt DDC,FBc5    3,  Xlt D     = False
  1195.   373, SDC, 3V4If sY, 6lt DDsones(4).Lampse 7
  1196.                 alturaSPRcatarata = 8
  1197.      ej3V4If sY
  1198.    Sei3,   cCle         oHabitaciTn.P BitBlt DDC,FBc5    3,  Xlt D MP BitBlt DDC,FBc5    3,  Xlt D    HabitaciTn.PJiaon).Laser(i).tempX < (E SPRcatarata = 274, 2, SRCPAINT
  1199.          e.hDetaciT        BitBlt DDC, 134, 164, 16, 6, SDC, 27tC = IS  PopX  A mpX < (E SPRcatarata = 274, 2, SRCPAINT
  1200.          e.hDeta                                       
  1201.   r    Pos se 7
  1202.                 alturaSPRcatarat      m5    3,  Xlt DC, 362, 78, SRCCOPY
  1203.         DC, 362, 78, SRCCOPY
  1204.         DC, 362, 78, SRCCOPY
  1205.         hDetac" SDC, 27tC = IS  PopX  A mpX < (E SPRcatarata = 274, 2,gl0274, 2,       BitBlt DDC, C, 104, et362, 78, ND
  1206.       PosX Sei6
  1207.      OPY
  1208.      JiaJiR      PosX Sei6
  1209.      OPY
  1210.      JiaJiR      PosX Sei6
  1211.      OPY
  1212.      JiaJiR     444444Pu     JiaJiR      PosX Sei6
  1213.   .Lam               Select Case Habitaciones(BrucePlayata = 274,  Sellllllllle.hDeta                                       
  1214.   r    Pos se 7
  1215.                 alturaSPRcatarat  I   Entaciones(queHabitac    PosX Sei6
  1216.      OPYbitac            
  1217.   r    P Select Case H6, SDC, 27777777laraJiR     444444Pu     JiaJiR      PosX Sei6  JiaJm5ifDe4444444444444442, 89, SRA1"1osX Sei6
  1218.    Sei64)mDparas(i).PosY, 6, 12, SDC, 267,Lamparas(CAND
  1219.             End Ifnd IfndSRA1"1oyos(i).tempXXXXXXXXXXXXXXXXXXXaciones(queHabitac    PosX S DDC,FBc5    3,  Xlt .Lam               Select Case H(i).PosY
  1220.         If HabitaciosXXaciones(queHabitar     Habta, (posYSPRcat'tBlt D  E e.hDetaciT        BitBlt DDC, 134, 164,ssY, 6, 12, SDC, 267, 2, SSelect Case H(i).PosY
  1221.         If HabitaciosXXaciones(queH  Set BruDucr Ca6, 12, SFmpX  As I4  If HabitaciosXXaciones(queHabitar     Habta, (posYSPRcat'tBlt D  EeGIiiiiiiipe Habitaciones(BruceP's
  1222.    sl 12, SDC, 267, 2, SSelect C
  1223.    Sei3,   cCle LeFi7i
  1224.   Se     BitBlt DDCf Habitaciones(5).Lamplt DDCf Habitaciones(5).Lamplt DDCEnd If
  1225.     iro = aSPRcataznd Ifaciones(5).Lamplt RCCOPY
  1226. 'aras(4).Estado = False And _
  1227.                 HabitacionessdddddddddddddaciosXXacio = a<Habitaciones(5). .PoddaciosXXacio = a<HosY
  1228.    lt DDC, Habitacione   Poso >tl1, SDC, o =S         Select Case et36    16 r    .Bounds(0).lLbound = 0
  1229. 'ee     , 6738 OPSDC, o =S         SeY, 6, 12, SDC, 267, 2, SRCAND
  1230.                 BitBlt DDC, Habitaci        BitBlt DDC, Habitaci        BitBlt DDC, Habitaci        BitBlt DDC, Habitaci   o =S         Select Case et36    16 r    .Bounds(0).lLbound = 0
  1231. 'ee     , 6738 OPSDC, o =S        _ddaciosXXacio '   taci     Cf HC267,Lamparas(CAND
  1232.         lt DDCm03h         
  1233. iddaciosXXacio '   taci     Dc1I      ciones(5).Lamplt DDno =S         SeY, 6, 12, Dc1I      ciones(5).Lamplt DDno =S         SeY, 6, 12,rplt DDno =S on).Rayos(i).InvisX1
  1234.         End        SeY, 6, 12,rplS         SeY, 6, 12,rptm3h  aci iDDnoylect Case et36    16 r    .Bounds(0).lLboun 27777777laraJiR     444444Pu     JiaJiR      PosX Sei6v Mo   SSSSXl1PY
  1235.      JiaJiR   BitBlt DDC, 134, 16i3,   cCle         oHabitaciTn"R   BitBlt itBlt DD1PY
  1236.      JiaJiR   BitBlt DDC, 134, 16i3,   <75i3,  ei6v Mo   SSSSXl1PY
  1237.      JiaJiR   BitBlt D.Habi8 OPSDC, B
  1238. End Sub
  1239.  
  1240. Private Sub OperatoriaEspecialRt DDrRCCOPYu,(r i = 1dion4,  SeliaEspecialRt DDrRCC6D,n4,  Selit Case et36    16 r    .Bounds(0).lLboun 27777777laraJiR  rRCC6D,nti6v Mo 2D,n4,  Selit Case et36    16  PtgOperatoriaEsDraiBitBlt it1atoriaEsDraiBitBlt it1peratoriaEspecialRt DDrRCCOPYu,6it1atoriaEsDraiBitBlt it1per rRCC6D,nti6v Mo 2D,n4,  Selit Case et36    16  PtgEnabled = False
  1241.     v6D,ntid = 0
  1242. 'ha6tCp_ =S  p              32, 16,7d = False
  1243.     PosX S DDC,Fstancia - 8) Then
  1244. araiBitBlt it1peratoriaEspecialRt DDrRCCOPYu,6it1atoJiR   BitBlt DDC, 134, 16i3,4         32, 1ciosXXacio '  e
  1245.     PoosYSPRc1atoriaEsDraiPtgEre = a<< 
  1246.             If Habitl X >=f1COPY
  1247.         DC, 362, 78, SRCCOP.Selit Case etEspecialR 12, SFmpX  As I4  If HabitaciosXXaciones(queHabitar     Habta,3,4         32, CCOP.Selit Case etEsp  Habta,ei6
  1248.    Seciones(queHabitar     Habta,3,4        h9sX Sei6
  1249.   0Ci6
  1250.    Seciones(queHabitar    h6
  1251.    Seciones( .      32, CCOPtC
  1252.   2""Aras(SSXl1Ppes( .      32, CCOPtC
  1253.   iR    t DDrRCCOPYu,6it1atoriaEsDraiBitBlt it1per rRCC6Dmes = False
  1254.     End If
  1255.     
  1256.     For i = 1 To Habitaciones(BrucePlayeb, 200t'     aciosXYu,6it1ucePlayer.Habiti6EsDrn1cr   32, CCyoS    16  PtgOperatoriaEtyeb, 200t'     acios(     If Habitacione4).Lamp6M=v Mo 2i = 1 To Habitaciones(boun 27777777laraJiR     444444Pu     JiaJiR      PosX 1 To HabiJiaJiR      PosX 1 =4oVaraJiRPosX Sei6
  1257.   .L< (E SPuraSPRcataraB   aht 16SsasetempX  As1 SRCAND
  1258.       PosX SRCCOPY
  1259.   iempX  As1 SRCAND
  1260. 5d _
  1261.                 PuraSPRcataraB   aht 16 frmMain.P8ry2 As1 SRCAND
  1262. 5d _
  1263.                 PuraSPRcataraBp 27777777laraJiR     4DDDDDDDDDDDDDDDDDDDDiR     4DDD
  1264.                             Habitaciones(BrucecamOEs(BrucecamOEs(B      2 As1 SRCAND
  1265. 5d _u,6it1atoO    D
  1266. 5d _u,6it1atoO    D
  1267. 5d _u,6it1atoO    D
  1268. 5d _u,6it1atoO    D
  1269. 5d _u,6it1atoO    D
  1270. 5d _u,6it1atoO    D    EEEEEEEEEEEEEEEEEEEEEEC, 200, 128, 8, 38sXXacio =6Sei6
  1271.   .L< (E SPuraSPRcataraB   aht lgdamOEs(B      2 Aataratat1EEEEEEEEEEEEEEC, 200, 128, 8, 38sXXacio =6Sei6
  1272.   .L< (E SPuraSPRcataraB   aht lgdamOEs(B      2 Aataratat1EEEEEEEEEEEEEEC, 200, 128, 8, 38sXXacio =6Sei6
  1273.   .L< (E SPuraSPRcataraB   aht lgdamOEs(B      2 Aataratat1EEEEEEEEEEEEEEC, 200, 128, 8, 38sXXacio =6SerRCC
  1274.         tmrCaB1atoO    D
  1275. 5d _u,6it1atoO    D
  1276. 5d _u,                
  1277. 5d u,6it  If Habitaci 38sXXac9ttNSei6      2 Aataratat1EEEEEEEEE HabiJi4Sei6uuuuoO    D
  1278. 5d _u,6it1atdRet, 8, 38sXXacio =6Se8, 8, 38sXXacio =6SerRCC
  1279.         tmrCaB1atoO    D
  1280. 5d _u,6it1atoOtmrCaB1atoO    D
  1281. 5dt 1iones(queHabHabit3atoO  itaciones(BruceP's
  1282.   a
  1283.         tmrCaB,6it1atoO    D
  1284. 5d      End8, 38sXXacio tacio =6j227tC = IS  PopX  A mpX < (E SPRcatarata = 274, 2,gl0Sones(Bruno    2ieB itaciones(BruceP's
  1285.   a
  1286.  
  1287. 5d _u,6i_,38sXXacio =6Sei6
  1288.  rata
  1289.                     End If
  1290.                 End If
  1291.         Next j
  1292.   1               9 lgdamOEs(B      2 Aataratat1EEEEEEEEEEEEEEC, 200, 128, nes(queHabitar   Do 2i = 1 To H     EEEe)atar74,  Selllllllll    2 Aataratat1EEEEEEEEE H     EEEe)atar74,  Sellllll   aht 16SsasetempX  As1 SRCAND
  1293.       PosX SRCCOP cio    EEe)xr58sXXLoAINTd _u,6it1atoO  78sXXac)atar74,  Sellllll  mparas(10).Estado = False Then
  1294.               ratnS Habitaciones5llll   aht 16Ssaset)atar74,  Sellllll   aht 3ras(10).Estia33 Habitaci1.hPosY2 - yTemp, SDC, posX SRCCOPY
  1295.     End SelectEmp, SDC, posXPA777laraJ9
  1296. 5d _u,6it1atdRet,  )28, )28, )28, )28, )28, )2oPRca8, )28, ox(2±(10).Estado = False Then
  1297.               ratnS H±(10)1±(10).Estado = False Then
  1298.               EEEC, 200, 128, nesISRCCOP cio    o8 274, 2,gl0Sones(Bruno    
  1299.        lllll  
  1300. 5dt 1ioneA(Laser(i).PosX1 + Habitaciones(queHQ).PceP'Fwp, SDC, posXPA777laraones(Bru)_t, 200, 128, nesISRCCOP cio    o8 274, 2,gl0Sones(Bruno    
  1301.        lllll  
  1302. 5dt 1ioneA(Laser(i).PosX1 XtSosY2 - yTemp,tti         alturaSPRcatct CasebitaciTn.P BitBlQSPRcat\, SDC, posXPA1>tadS1Vbitacion).Laser(i).tSellllll  mparas(10).Estado = Fo =6Se8, 8, 38sXXa510)1±(1ap*D    444444Pu     JiaJiR      Pos5Cei64)m     PosX Sei64)msasetl,0eCAND
  1303.          bit     PosX Sei1i   
  1304.   r    Pos    iXnn Sei64)msasetl,0eCAND
  1305.          bit     PosX Sei1i   
  1306.                                             
  1307.   rH2e      bit     PosX Sei1i   
  1308.  Nmsasetl,0eCAND
  1309.     HluuuoO     
  1310.   rH2e      bit     PosX Sei1i   
  1311.  Nmsasetl,0e3 lllll  
  1312. 5d( 
  1313. 5d( 
  1314. 5d( 
  1315. 5d( 
  1316. 5d( 
  1317. 5d( 
  1318. 5d( 
  1319. 5d( 
  1320. 5d( 
  1321. 5d( 
  1322. 5d( 
  1323. 5d   PosX SRRRRRRRRRRRRRRRRRRRRR 7o =70RRRR2  _dgEre = elit CaseBA                                        
  1324.   rH2e      bit     Pos2 
  1325.   rH2e      bit     PosX Sei1i   
  1326.  Nmsasetl,
  1327. 5d( 
  1328. 5d( 
  1329. 7d                           
  1330.   r   ( 
  1331. 5d( 
  1332. 5d( 
  1333. 5d( 
  1334. vnd Ifnd IfndSRndS=     
  1335. vnd Ifn     bsBDtur5d( 
  1336. 5d(  rH2
  1337. 5d(  rH2 HluuuoO     
  1338.   rH2e    w 
  1339. 5d( 
  1340. 5d( 
  1341. 5d( ur5d( 
  1342. 5d(  rH2
  1343. 5d( iosXXaciones(queHabi    p-Blt D.Habi8 
  1344. 5d(eratoriaEspecidH2
  1345. Dt
  1346.  
  1347. End 
  1348. 5d( 
  1349. 5d( 
  1350. 5d( 
  1351. 5d( 
  1352. 5d( 
  1353. 5d( 
  1354. 5d( 
  1355. 5d( 
  1356. 5d( 
  1357. 5d( 
  1358. 5d   PosX SRRRRRRRRRRRRRRRRRRRRR 7o =70RRRR2  sXXacio 5d( I    ers
  1359.    4)msasetl,0eCAND
  1360.         2)msasetl,0eCAND
  1361.         2)msasetl,0eCAND
  1362.   r   ( 
  1363. 5d( 
  1364. 5d( 3ones( .    FOoL5d( 
  1365. 5d( 
  1366. 5d( 
  1367. 5u(t Case H(i).PosY   Pos2 
  1368.   rH2e      bit  eCAND   2)msasetl,0eCAND
  1369.       ii   Pos2T37  BitBlt DDC, 80, 84, 8, 10, SDC, 362, 78, SRCCOPY
  1370.             BitBlt DDC, 120, 84, 8, 10, SDC, 362, 78, SRCCOPY
  1371.         
  1372.     7ur5d( 
  1373. queHabitacion).Laser(i).tempX = Habitaciones(queHabitacion).Las.   Pos2 2i = BRRRR 7o =70RRSei6uuuuoO   2 2i = BRRRR yos = 0 T<
  1374. 5d _telt DDC, 8elt DDC, 8elt D 200, 128, 8, 38sXXacielt DDi).tempX = Habitaciones(queHabitacion).Las.   Pos2 2ieabitaciones(queH 2d( 
  1375. 5d(aras(2).Estado = FalXXacielt _telt DDC, 8eab).Lamparas(i).PosX,X = Habi 9 lgdamOEs(B lt D32
  1376. 5d(aras(2).Estado = 72eli2eli2eli2eli2eli2eli2eli2eli2eli2eli2eli2eli2eli2eli2eli2(dasetemNeli2(dasetemNe(dasEiabitaciones(queH 2d( 
  1377. 5d(csEiabitaciones(queH, 128, 8, 38sXXacielt DDi).tempX = Habitaciones(queHabitacion).Las.   Pos2 2ieabitaciones(queH 2d( 
  1378. 5d(aras(2).Estado = FalXXacielt _telt DDC, 8eab).Lamparas(i).PosX,X = Habi 9 lgdamOEs(B lt D32
  1379. 5d(aras(2).Estado = 72eli2epe_Wßr  PoWßr  PoWßr  PfSei6uuuuoO   2 2i = BRRRR yos = 0 T<
  1380. 5d _telt DDC, 8elt DDC, 8elt D 200, 128, 8, 38sXXacielt DDi).tempX = Di).tempX = Di).tempO  78sXXac)atXacielt _telt DDC, 8eXXac)atXacielt _telt DDC, 8eXXac)atXacielt _telm DDlt <2eXXac)atXacielt _telt DDC, 8ueHa6s(q DDC,rnSelect .1Viorlt DDi).tempX = Habit1dion4,  SeliaEspecialRt DDrRCd( 
  1381. 5d( 
  1382. 5d( 
  1383. 5d( 
  1384. 5d( 
  1385. 5d   PosX SRRRRRRRRRRRDC, 8eXXac)R, 38sXXacielttoO  78sXXac)atar74,  Sel)R, 38sXXacielttoO  78sXX3
  1386. 5d(csEiabitaciones(queH, 128, 8, 38sXXacielt DDi).tem7777laraJiR     4DDDDOPY
  1387.  128, 8, 3eciones(queH, 128, 8, 38   Pos2 
  1388.   rH2e  iXnn Sei64)msasetl,(qu28, 8, 38cat\, SDC,s(2).Estado = gata7R Sei'acielt _telm DD(csE28, 8, 38sXXacio =6Sei6
  1389.   .L< (E SPuraSPRcataraB   aht lggriaEsDraiPtgEre = a<< 
  1390.            y( 
  1391. 5d(aras(2).Estado = FalXX\, SDC,s(2= a<< 
  1392.            y( 
  1393. 5d(aras(2).Estado = FalXX\, SDry2ieabitaciones(queH 2d( 
  1394. 5d(aras(2).Estado = FalXXacielt _telt DDC, 8eab).Lamparas(i).PosX,X = Habi 9 lgdamOEs(B ltlt DDi).tempX = Hab(i).PosX,X = Habi 9 lgda, 2,   bit     PosX Sei1i   
  1395.   r    Pos    iX3mparas(4).Estado = False AdauLB.Estado = False AdauLBDC, 8elt D 200, 128, 8,0ielt _telt DDC, 8eX<< 
  1396.            128, 8,0ielt _telt DDC, 8eX<< 3mparaltlt <es(queH 2d( 
  1397. 5d(aras(8,0i5(2).Estado = gata7R Sei'acielt _telm DD(csE28, 8, 38sXXacio =6Sei68ca<< 
  1398.            0O).tempX = =PRcatado = FalXX\, SDry2ieabi1i5(2osX1 XtSosY2 - yTemp,tti       = Habs2re = a<< 
  1399.         _telm DD(csE28, 8, X Sei1i   
  1400.   r    Pos    iX3m et36    16 r    .Boun(h2  iX3m et36   
  1401. 5d(aras(2).Esth(h2  iX3m et36      Pos2T3
  1402. 5d(aras(2
  1403. 5d(aras(2).Esth(h2omp,tti       = 8DDC,  o, 8, 38sXXacio =6Sei68ca<< 
  1404.      168ca<< 
  1405.      168ca<< 
  1406.    
  1407.    lt DDC, 8eX<< 
  1408.            128C4  iX3p8, )2YuLoJiR n        1th(h2  iX3m et36      Postti       = 8DDC2  i
  1409. 5d   PosX SRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR1taratat1EEEEEEE-RRRRRRRRRRRRRRRRRRRRRRRR1v4  PfBRRRRRRRRRRRRRRRd(aras(8,0i5(2).Estado = RR1taratRRRR  aht lggriaEsDraiPtgEre = a<< 
  1410.  DtRRRRRRRRRRRRd(aras(8,0i5(((((((((((((((((((((((((((((n((((((((((n((((((((((n(aND  SPRca< aRRRP
  1411.      OPY
  1412.      JiaJiR     444444Pu     Jia(((3
  1413. 5d(aras(2
  1414. 5d((((((((((((((((((   iX(((((((((((((RRRRnU3 BitBlt DDC, X, 3ol     
  1415.      3(((((((((((n((((((((((n(((2RRRRRRRRRRRRRRRRRRRRRRRRRsC = =PRcatado = FalXX\, RRRRRRRRRRRRRRRR1tarataRRRRRRRRRRRRRRRRRRRsC =itBlt DDC, X, 3ol     
  1416.      aarataRRRRRRRRRRRRRRRRRRRsC =itBlt wRRRRRsu3m elt wRRRRi3hRR 7e.Estado = RR1taratRRRR  aht lggriaEsDraiPtgEreVoRRR wRRRRi3hRR 7e.EstaddddddddddddiEEEEEEE\, 8el21 =itgEreRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR1taratat1EEEEEEE-RRRRRRRRRRRRRRRRRRRRRRRR1v4  PfBRRRRRRRRRRRRRRRRRRR1v4  PfBRRRRRRRRRRRRRR"1v4  PfBRRRRRRRRRaratRRRR"acielttoO  78sXX8RRaratRRRR"acielttoO  78sXX8RRaratRRRR"acielttoO  7RaratRRRR"acielttoO  78sXX8RRa FalXX\, RRRRRRRRRRRRRRRR1oRRRRRRRRR1oRRRRRRRRR1tRRRR"acl     
  1417.      a8RRalaRRRRRRRRR"acl     
  1418.      a8RRa1RRRRRRRRRarelEstado = False And _
  1419.        mTRRRRRRRRRRRRRR12jitXacielt _telt DDC, 8eXXac(RRRRRRR12jitXacielt dddddddiEEEElttoO  7Ra    O  7Ra    O  7Ra    O  7Ra    O  7Ra    O  7Ra    O  7Ra    O      uoBlt DDC,B 166lt _telt DDC, 8eXXac(RRR    O  es(qu2  iX3_
  1420.        mTRRRRRRRRRRRRRR12jitXacielt _telt DoDDi).a8RRalaRRRRRRRRR"acl     
  1421.      a8RRa1RRRRRRRRRareloelm DD(csE28, 8, 38sXRRRRRRRRRRRRR             Mo3  7Ra    O  7Ra    O      uoBlt DDC,B 166lt _telt 0 a8RRa1RRRR
  1422.  DtRRRRRRRRRRRRd(aras(8,0iu3m elt 
  1423. 'e.2  iX3_
  1424.        mTRRRRRRRRRRRRRR12URRRRRRRRRd(aras(8,0iu3mc O      uoBlt DDC,B 166lt _telt 0 a8RRa1RRRR
  1425.  DtRRRRRRRRRRRRd1RRRR12URRRRRRRRRd(aap
  1426.        mTRRRRRRRRRRRR aata CCOmTRRRRi 9 lgdda19RRRRRRRRRRRd1RRRR12URRRRRRRRRRRRRRRRRRRRR12URRRXN _tRRRR   Jdcs(8,0iu3mc O      uoBlt DDC,B 166lt _telt 0 a8RRa1RRRR
  1427.  DtRRRRRRRRRRRRd1RRRR12URRRRRRRRRd(aap
  1428.        mTRRRRRRRRRRRRRRReoBlt rrrrrrrrrrrrrrrrrTeR12URRRRRRRRR elt wRRRXacielt saras(o1s2  iX3_
  1429.          mTRRRRRRRRRRRRRRRuRRRRRRRRRSRCAND
  1430.       PosX a
  1431.        mTRRRRRRRRRRRRRRReoBlt rrrrrrrrrrryRRRJiRc=iDRRRRRRRRRRd(aE4oun(h2eab).Lamparas(i).PosoRRRRRRRRRRRR1tarataRRRRRRRR5r9elt luuuoO elt saraImTRR2 0 a8RRa1RRRR
  1432.  DtRRRRRRRRRRRRd1RRRR12URRRRRRRRRd(aap
  1433.        mTRRRRRRRRRRRRRRReoBlgdd*RRRRRRRRRRRRRRReoBlgdd*Ri2eli2XgEreVoRRR wRRRRi3hRR 7e.EstaddddddddddddiEEEEEEE\, 8el21 .Habitacion5         
  1434.   RRRRRRRRRRRRRRRR3RRRRRRRRd1RRRR12URRRRR0( 
  1435. 5u(t CRRd1b(i).PosX,X = Habi 9 lgda, 2,  2,  ,RRRDpSPRcaRRRRRRReoBlt rrrrrr+o2,  ,RiB 166lt _telt 0 a8RRa1RRRR
  1436.  DtRRRRRRRRRRRRd1RRRR12URRRRRRRRRd(aa,AaRRR12URRRRRRRRRd(aa,AaRRR12URRRRRRRRRd(aa,AaRRR12URRRX1RRR12UR UX1RRR12UR UX1RRR12UR UX1RURRRM DDC, 0,X,X = 6ua, 26RRRRRRRRReoBlgR UX,RRRd(A5tRRRRRRRRRRRRd1RRRR12UX1RRR12UR UX1RRR12UR UX1RURRRM DDC, \, 8el21 .Habitacion5 r  \, 8el21 .Hab
  1437. 5d(acion5 r  \, 8el21 .Hab
  1438. 5d(acion5 48elSFRRR aata CCOmTRRRRi 9 l2jitXacielt dddddddiEEEElttXon5 r  \, 8el21 .Ha    2)msaseeeeeeRRRR12URRRRRRRRRd(ab_hbD+E5 r  \, 8el21 .Ha    2)msaseeeeeeRRRR12URRRRRRRRRd(ab_hbD+E5 r  \, 8el21 .Ha  (acion5 r  \, 8el21 .EEE\, uas(8,0iu3mc O      uoBlt DDC,B eeRRRR12URRRRRRRRRd(ab_hbD+E5 (aras(8,0iucatado = FalXX\, RRRRRRRRRRRRRRRR1tarataRRRRRRRRRRRRRRRRRRRsC =itBlt DDC, X, 3ol     
  1439.      aarataRRRRRRRRRRRRRRRRRRRsC =itBlt RRR 8eXiEEEElttXon5 r  \, 8el21 .Ha    2)msaseeeeeeRRRR12d(a2TRRRRi 9 l2jitXacieltRRRi2UR UX1(a2TRRRR 8el8el21 .Ha    2)msaseeeeeRRRRRRRRRRRRsC =itBlt RRRitXacieltRRRi2UR12URRRRRRRRRd(ab_hbD+Ed   Postti       = 8DDC2  i
  1440. 5d   PosX SRRRRRRRRRRRRRRRRRRO   168ca<< 
  1441.      168pL7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-7-rgcatado = FalXX\, RRRRRR    2)msaseeeeeeRRRR12d(a2TRRRX,X = Habi 9 lgda, 2,  C6D,nti6v Mo 2D,n4,  SpiieltRRRi2UR UX1(a2T3= FalXX\,3RRRRRRRRd1RRRR12URRRRR0( 
  1442. 5u(t CRRd1b(i).P1g 2,  C6D,nti6v Mo 2D,n4,  SpiieltRRRe Thenl1e -7-7-7-7Ii67Ii4RRRRR0( 
  1443. 5u(t CRRd1b(i).P1g 2,  C6D,nti6v Mo 2D,7-7-7-7-7-7-7-7-7-rgcatado = FalXX\, RRRRRR    2)msaseeeeeeRRRR12d(a2TRRRX,X = Habi 9 lgda, 2,  C6D,nti6v Mo 2D,n4,  SpiieltRd IfndSRndS=cG37-7- elt wRRRXacielt sara7-7-7-rgcatado = FalX(8,0        SeY, 6, 12, Dtado =rgcatado = FalXX\, D(FalXRRRRR3RRRRRRRRdTtXRRRR lgdaelt 0 a8RRa1RRRR
  1444.  DtRRRRRRRRRRIi6    uoBlt DDC,6D,nti6v Mo 2D,n4,  SpiieltRRRe Thenl1e -st"ti6v Mo 2D,n4,  Spiiel8el21 .Hab
  1445. 5d(acion5 r  \, 8el C6t wRThenl1e -st"ti6v Mo 23i = Fgda, 2,  C6RRRRRRR. Mo 2D,n4,            HabitaciTn.PJiaon) =70RRSei6uuuuoO   2 26lrIfndSRndS=cGI      HabitaciTn.PJiaon) =7    e_  7RaratRRRR"acielttoO  78on) =bv Mo2eeo 2D Habi 9 lgdamOEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"eo 2DE'EEEEEEEEEEEEEEEEEEEEE"eo 2eltRdS  r    Pos    iX3m et3e -st"tiRRR0tMRAC,6D,_Esth(h2omp,ttiRRRRRRRRRR0( 
  1446. 5u(t CRRd Mo 2D,RCC6DDDDDDDDDDd, 8el21 .Hab
  1447. 5d(  2 26lrIfndSRndS=c iX3m et3e -st"tiRRR0tMRAC,6D,_Es16 r    .Bound(h23o      _  7RaratRRRBC3      mTRi6uuuuoO   2 26lrIfndSR4)m     PosX SeiRRRRd1RRRR12UX1RR6SeiDt _telt 0 a8RRa1RRR .BoIfndSRRRRRRRR7-7-7-7-7-7-7-64,ssY, 6, 12, SY, 6, 12, 2)msaseeeeeeRRRR12URRRRRRRRRd(ab_hbD+E5 r  \, 8el21 .Ha  (acion5 r  \, 8el21 .EEE\, uas(8,0iu3mc O      uoBlt DDC,B eeRRRR111111167C,B 166lt _teltpd6BceeRRRR111111167C,B 166Next i
  1448. End Sub
  1449.  
  1450. Priva  = 8DDC2  i
  1451. 5d   PosX SRRRRRRRRRRRRRRRRRRO   168ca<< 
  1452. EEEEEEEE"eo 2DE'EEEEEEEEEEEEEEEEEEEEE"eo 2ev Mo 2D,n4,  SpiieltRRRe Thenl1e -7-7-7-7Ii67Ii4RRRRR0( 
  1453. 5u(t CRRd1b(i).P15,  C6D,nti6v Mo 2D,n4,  SRRRRRRRRRd(ab_hRRRRRRRRRRRRRRRRRRsC d(ab_hRRmpar1gTRRRRR12, 2)msaseeeeeeRRRR12URRRRRRRRRd(ab_hbD+E5 Blt ERRd(ab_hRRRRRRRRRRRRRRRRRRsC d(ab_hRRmpar1gTRRRRR12, 2)msaseeeeeeRRRR12URRRRRRRRRd(ab_hbD+E5 Blt ERRd(ab_hRRRRRRRRRRRRRRRRRRsC d(ab_hRRmpar1gTRRRoRd1b(i).P15,  C6D,nti6v Mo 2D,n4C(ab_hbD+E5 Blt EptRd(ab_hbD+E5EEEEEEEEEEEEEptRd(ab,  Sellllll  6 C6D,EEEEptRd(ab,  SelRRRR12URRRRRRD  E e.hDetaciT        BitBlt DDC, 1 RRRRRRRRRRRRRRRRR1v4  PfBRRRRRRRRRRRRRR"1v4  PfBRRRRRRRRRaratRRRR"acielttoO  78sXX8RRaratRRRR"acielttoO  EEEEEEEEEEEE"eo 2ev Mo 2D,n4,  SpiieltRRRe Thenl1' = Habi 9 lgda, PhXXacio =6Sei6
  1454.  ratac i)lt DDCRRRR"aciel        
  1455.   iX3m et3e -st,  S
  1456.     Selea, SDC,1Sa(((3
  1457. 5d(aras(2
  1458. 5d(((VoDCRRRR"aciel        
  1459.  EEE\, 8el21 .Habitacion5  iX3m et3e I0tRRRR"acielttoO  EEEEEEEEEEEE"eo 2ev Mo 2D,n4, v3e -st,  S
  1460.     S6 r    .Bound(h23a(((3
  1461. 5d(aras(2
  1462. 5d(((VR7-7-7-7-7-7-7-.hDetacit,  S
  1463.     Selea, SDC,1Sa(((3
  1464. a, SDC,1Sa(((3
  1465. 5d(aras(2
  1466. 5d(((VoDCRRRR"aciel        
  1467.  EEE\, 8e  iX3m et3e -st"tiRRRRRR=hEC,B 166lt _telt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  au
  1468.  EEE\OpARRRRRuRRRRRRRBlt '-7-7iAX3m et3e I0tRRRR"acieltai57Ii4RRRRR0(x\81Mf,B 166lt _telt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 a8  ablt 0 3m et3e I0tRRRR"acielttoO  78sXX8Tl3m et3e I0tRRRR"acielttoO  78sg e_  7RaratRRRR"acRR
  1469.  D1Q."n  166lt _telt  < (E SPRcatarata = 274, 2, St 0 a8  ablt 0 a8  ablt 0 a8  _telt  <t(VoDCRRRR"aciel        
  1470.  Ee.hDetaciaratRRRd1b(i).P1g0iucatado = Falt'AC7RRR"acieltai57Ii4Falt 3m et3e I0tRRRR"acieltai57Ii4RRRRR0(x\81Mf,B 166lt (x\81Mf,B 166lt (x\81Mf,B 166lt Sei6uuut (x\81Mi6uu     PosX Sei1i   
  1471. i6uu     PosX Sei1i   
  1472. i6uu     P153RRd(ab_hbD+E5 Blx(
  1473. i6uOpe6lt Sei6uuut (x\81Mi6uu     PosX Sei1i   
  1474. i6uu     PosX Sei1i   
  1475. i6uu     P153RR4o 8r 0 a8  _telt  <t(VoDCRRRR"acie 166da8  
  1476. i6uOpe6  PosX Sei1i   
  1477. i6uu     P153RR4o 8r 0 a8  _telt  <1 .Habit   P153RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR"pe6  PosX Sei1i   
  1478. i6uu     P1  
  1479. i6RRd(aa,AaRR         
  1480.  E Rnd 0 ai   Postti       telt  <1 .Habit as(ot  <1  
  1481. i6RR\81Mi6uu     PosX Seie1
  1482.  DtRRRRRRRRRRRRd1RRRR12URRt Sei6uuut (x\81Mi6  
  1483.  EEE\4 OPY
  1484.    YmfA2           Id(aa,AaRR         
  1485.  E Raa,AathRRmpar1gTRRRRR12, 2)msaseeeeeeRRRR12URRRRRRRRRd(ab_hbD+E5 Blt ERRd(ab_hRRRRRRR", 128, 8, 38sXXacielt DDi).temelt DDi).temelt DDi).temelt x\81Mi6uu     PosX Sei1i   
  1486. i6uu  iEE\, uas(8,0iu3mc O      uoBlt D, 2, St 0 a8  ablt 0 a8  ablt 0 a8  _telt  <t(VoDCRRRR"aciel        
  1487.  Et _telt 0 a8 lDblt DDC, 8aRRR12URRRX1RRR12UR UX1RRR12UR UX1RRR12UR UX1RURRRM DDC, 0,X,X0VoDCRRRR"aciel       iRRRRRRRRRd(aap
  1488.   ot _telt 0 a8 lDblt DDC,R UX1RRR1:iR"aci).P15,  C6D,RRRM DDe2H05elt 0hbD+_telt 0         i).temelt x\81Mi6uuRRR wRRRRi3hRR 7e.EstaddddddddddddiEEEEEEE\, v Mo 2D,n4n  166l'e2_telt  <1 .Ha+UX1RRR1:iR"aci)ci).P15,  C6D,RRRM DDe2H05elt 0hbD+_telt 0         i).temelt xMbD+E5 r  \, 8el21 .Ha   .temelt DDi).temelt DDi).temelt x\81Mi6uu     PRM DDe2H05elt 0hbD+_telt R"aci)ci).P15,  jRRR"aciel   7t"t x\81Mi6uu     PosX Sei13< 
  1489.            15elt 0hbD+_telt R"aci)   i).temelt xMbD+Eiel   7t"t 0, 84, 8, 10, SDC, 34RRRRR   aarataRRRRRRRRRRRRRRRRRRRsC =i5elt 0hbD+ud<ule"tac    PosX S DDyos(i).teg =i5Sei1i XRRRRRRRRRRRRR       iRRRRRRRRRd(aap
  1490.   ot _telt 0 a8 lDblt DDC,R d _u,6i      i Velo = 5
  1491.     ElseC =i7fBRRRRRRRRRarasDCRRRt _telt 0 a8 lDblasDCl   7to  ( 
  1492. 5d( 
  1493. 5d( cAAAAAAAAAAAAAAAA   7t"e 2=i7fratac i)lt DDCRRRR"acit DDCRRRR"acit DDCRRRRd( 
  1494. 5d(+=i7f4SRrt _tp).t7f4SRrRRRRRRR"acit DDCRRRR"acit DDCRR cion SD et36    16 r    .Bounds(0).lLboun 27777777laraJiR  rRCC6D,nti6v Mo 2D,n4,  Selit Case et36    16  PtgOperatoriND
  1495.           
  1496.   o   uoBlt DDt _tp).ttttttttttttttttttttttttttttttttttttttttttttfttttttttttttttttttttfttttttttteIRRRRas.   Pos2 2ieabitacioC2IR   DC, 407, 49, SRCAND
  1497.  dO=i7f9t _tp).t7f4SRrRRRRRRR"acit DDCRRRR"acit DDCRR cion SD et36"eo 2DE16 r    .d _D5 DDi).temD5RRR"acit DDCRdWB6uu     P153RRd(ab_AS
  1498.     Selea, SDC,IR   DC, 4077f4SRca 401eratorD,RRRM DDe2H05elt 0hbD'  .d _D5 DDi).temD5RRR"acit DDCRSelit Case it RR"acit DDCRSelit CaseeeeeR2 SDC,IR  P153RRd(ab_AS
  1499.     Selea, SDC,IR   DC, 4077f4SRcaRRM DDe2H05elt 0yicC2IR   D18cit DDCRSelit Case it RR"acit DDCRSeli3eR2 SDC,IR  Pado = FalXXacieltmzlit Caseeeee    alit Case it RR"a'''''''''''''v  Pos RR" 9 lgda, PhXXacio =6SRRRXacielt sara7-ab_hbD+E5 Blt ERRd(ab_hRRRRRRR", 128, 8, 38sXXacielt DDi).temelt DDi).temelt DDi).temelt x\81Mi6uu     PosX Sei1i   
  1500. i6uu  iEE\, uas(8,0iu3mct ERRd(ab_hRRRRRRR", 128, 8, 38sXXacielt DDi).tememelt DDi).temelt x\811rrryt saDDe2H05eseCtttttttt Mo 2D,RCC6DDD611111111111111111111111", 128, 8, 38sXXacielt DDi).temelt DDi).temelt DDi).temelt x\81Mi6uu     PosX Sei1i   
  1501. i6uu  iEE\, uas(8,0iu3mct ERRd(ab_hRRRRRRR", 128, 8, 38sXX+E5 BlTD+E=2D,RCC66666666Bi6v MolTDmeme2H0paseeeeeR2 SDC,8, 8, 38sXX+E5 BlTD o,8, 8x\81Mi6uu     Po19p, 128, 8, 38sXXsX, o   Hae I0tRRRsX Sei1i   
  1502. i5sX, o   Hae Ie -ste2i 38sX61111j0tRRRsX  
  1503.  E RSei1i   
  1504. i5sX, o   Hae Ie -ste2i 38sX6RR", 128, 8, 38sXXacielt6111uuuuoO   2 2i = BRRRR ytLdayR.5 MolTDmc).temelt DDi).temeHab
  1505. 5d(  2 2, 126uu  iEE\, uas(8,0iu3mct ExCA8x\81Mi6uu3pDmc).temelt DD1i   
  1506. i6uu  iEE\, uas(8,0iu3mct ERRd(ab_hRRRRRRR", (\   uoBlt DDt _tp).tt,B 166+E5 r  \, oM 9 lgda, 2, e2i 38sX61111j0tRRRsX  
  1507.  E RSei1i   
  1508. i5sX, o   Hae Ie -ss5 BlTD oit     Posssssssssssssssss2
  1509.  E RSei1i   
  1510. i5sX, o   Hae Ie -ss5 BlTD oit     Posssssssssssssssss2
  1511.  E RSei1i   
  1512. i5sX, o   HE   gG-ss5 BlTD oit     Posssssssssssssssss2
  1513.  E RSei1i    oit  t,B 166+E5 r  \, oM 9  \, oM 934UbD'  .d _D5 DDi).temD5RRR"acit DDCRSelit Case it RR"ac 16  PtgOperatoriND
  1514.     b_hRRRRRRR", 128t ExEEEEEEEEC, 200, 128, 8, 38sXXacio =6Sei6
  1515.   .L< (E SPuraSPRcataraB   aht lgdamOEs(B      2 Aatard).Di1111j07   DC, 4077f4SRcaRRM DDe2H05elt 0yicC2IR   D18cit DDCRSelit Case it RR"asssssss2
  1516.  ddiEE)iYh OPY
  1517.    Yt OPY D18cisssss2
  1518.  ddiEE)iYr0, 84, 8, 10, SDC, 34RRRRR   aarataRRRRRRRRRRRRRRRRRRRsC =i5elt 0heiDt _telt 00(RR"ac),, o   RRRRRRRRRRRRRRRRRsC =i+E5 r  \, oM 9 lgda,Al   
  1519. i6uu ratar E RSei1i   
  1520. i5sX, o   Hae Ie -ss5 BlTD oit     Posssssssssssssssss2
  1521.  E RSei1i   
  1522. i5sX, o   HE   gG2,  C6D,nti6v Mo 2D,n4,  SpiieltRRRe Thenl1e -7-7-7-7A (x\81M   hDetac" SDC, iss2
  1523.  E RARRSitac2nrH23rd _uuuuuuuuuuuuuuuuuuuuuuuuuTRRRRRRRRRRRRRRRRRRRRRRRRRRR"pe6  P, 10, SDC, 34RRRRR 1i   
  1524. i5sX, o   HE   gG2,  C6D,Sei1i   
  1525. i5sX, o   Hae Ie -ste8, 8, 38sXXaeo =je -ss5 BlTD oit   o6osXXaeo =  bte8, 8, 38sXXaeo1e -ste8, 8, 38sXXaeo =je -ss5TD oit   o6osXXaeo =  bte8, 8,,,,,,,,,x\81Mf,B 166lt Sei6uuut (x\81Mi6uu66lt _telt  < (E SPRcatarata = 274, 2, St 0 a8  ablt 0 a8  ablt 0 a8  _t  Pado = FalXXacielemhenl1e -st"tilt 0 a8  ablt 0 a8  _t  Pado = FalXXacielemhenl1e -st"tilt 00, SDC, 34r ablnl1e -st"tilt 0s5TD oit   o6osXXaeo =  blt 0 a8  _t   -ss5 BlTD oit     Posss200t'     aciosXYu,6it1ucePlayer.Habiti6EsDrn1cr   3
  1526.   ot _telt 0 amemelt DD3ot _teri6uu    t"tilt 0s5TD E RSei1i    oit  t,B 166+E5 r  ttisX  
  1527.  E RSei1i   
  1528. i5sX, o   Hae Ie -ss5 BlTD oit     P3-7-7dI1_D5 DDi).temD5RRR5 r, 34r ablnl1e -st"tilt 0s5TD oit lt 0aRRRRRRRR iemelt DD3otrry5RRR5Ie -ss5 BlTD oit     P3-7-7lt 0aRRRRRRRR iemelt DD3otrry5RRR5Ie -ss5 BlTD oit  alse Then
  1529.           " 34RRRRR   aarataRRRRRRRRRRRRRRRRRRRsC =i5elt 0heiDt _telt 00(RR"ac),, o   RRRRRRRRRRRRRRRRRsC =i+E5 r  \, oM 9 lgda,Al   
  1530.  5Ie -ss5 BlTD oit  alse Then
  1531.           " 34RRRRR   aarataRRRRRRRRRRRRRRRRRRRsC =i5elt 0heiDt _telt 00(RR"ac),, o   RRRRRRRRRRRRRRRRRs*D Ie -ss5 BlTD oit     P3-7-7dI1_D5 DDi).teli7frashbD+E5 Blt EptRd(ab_hbD+E5EEEEEEEEEEEEEptRd(ab,  Sellllll P    P3-7-7dI1_D5 DDicisssss2
  1532.  ddiEE)iYr0<-5 DDi).tel.tt,B tsb,  Selllllllllllllllllllllllllllllll1tsb,  Sellllllllllllllllllllllll7(RRTC,B 166Next i
  1533. End Sub
  1534.  
  1535. Priva  = 8DDC2  i
  1536. 5d   PosX SRRRr  PosX SRRRr  PosX SRRRr  PosX SRvRR   aaratp PosX.3in, oelllll.3in, oelllll.3in,  PosX SRRRr  PDRRRsC =i5elt 0heibit1dion4,  SeliaEsSDC,1D"   2222222222222uu  iEB SRRRr  PDRRRsC =i5elt 0heibit DDAl21 moxaht lgdamOEs(B      2 Aatard)Lt1dion4,X = Habillll PDRRRsC =i5((((((((((((RR   22222222 lgdamOEs(B      2 Aat  2 Aatard)Lt1dion4,itBlt 0heibit DDAl21 moxaht lgdamOEs(B      2 Aatard)Lt1dio lgdamOEs(B      2 AataRRRRR lgdamOEs(B      2 Aat  2 Aatard)Lt1dion4,itBlt 0heibit DDAl21liaEsSDC,1D"   2222222222222    2 5
  1537.   iX3m et3e -n4,itBlt 0heibit DDAl21 moxaht lgdamOEs(B  ssssssssssssss2
  1538.  E RSei1 2 eiDt _telt 02a'''''''''''''v  Pos                                DDCRSeliliaEa8 lDblt Xacio =6Setttt    r''''''''''c166lt _telt  < (E SPRcatarata =Sel    
  1539.   ovo(6d3ci =6Setaiu3mc O      uoBlt DDC,BBlt 0heibit DDAl21 moxaht lgdamOEs(B      2 Aatard)5   uoBlt DDC,BBlt 0heibitdddiEEEEEEEi20heibit    r''''''''''c166lt lgdamO)5   uoBlt yDAl21 moxaht lgdamOEsasgdamOEs(Bielt6111uuuuoO   2 2i = BRRRR ytLdayR.5 MolTDßr  PoWßr  PoWßr  Po   uoBlt DDt _tp).tt,B 2D,n4,  SpiieltRRRe Thenl1e -1Etp).tt,B 2D,n4,  SpiielEs(Bielt6111uuu PoRRRRRRRRRRR12URRRRRRR- n''''''c166PoWßr  Po   uoBlt DBRRRR ytLdayR.5 MolTnxPosss200t'     acioooooRR- n''''''c1)tPoWßr  Po   u)6111uuu PoRRRRRRRRRRR12URRRRRRR- n''''''c166PoWßr  Po   uoBlt DBRRRR ytLdayR.5 MolTnxPosss200t'     acioooooRR- n''''''c1)tPoWßr  Po   u)6111uNntttttttttttttttttttttttttttftttttttttttttttttDC,B 166lt _telt 0 a8RRa1RRRR
  1540.  DtRRRRRRRRRRtttttttttttftttttttttttttttttDC,B 166lt _telt 0 a8RRa1RRRR
  1541.  DtRRRRRRR2 AataoaPadoßr  us200t'    a8RRa1RRRR
  1542.  Ds200t'    a8RRa1RRRR
  1543.  Ds200t' 3damO)5   =i5Ar  uoBlt DBRRRR ytLda____r   3
  1544.   ot a<<200t'  ttttttttttftttttttt<<200t'  ttRRR 1uuu PoRRRRRRRRRRR12URRRRRRR- bRRRRRR12URRRRRRR- n''''''c166PoWßr  Po   uoBlt DBRRRR ytLdayR.5 MolTnxPoBlt DBRRRReuuu PoRRRRRRRRRRR12'''c166lt lgdamO)5auoBlt 6o0isssssssss2
  1545.  E RSei1i   
  1546. i5sX,4RRRR12'''c166lt lgdamO)5auoBlt 6o0isssssssss2
  1547.  E RSei1i   
  1548. i5sX,4RRRR12'''c1yRRRORRR12  \, oM 934UbD'  .d _    oBlX,4RRR12URRRRRRRE SPuraSPRi =6yR.5 MolTnxPosss20166lt23a 934UbD'  .d _       RRRRRtussssss2
  1549.  E RSei1i   
  1550. i5s5o36  3sss2
  1551.  E RScaSPRi8x\81Mi6uu3pDmc).te1cei1i   
  1552. i5sX,4R oBlX,4RRR12URRRRRRRE SPuraSPRi =6yR.5 MolTnxPosss20166lt23a 934UbD'  .d _       RRRRRtussssss2
  1553.  E RSei1i   
  1554. i5s5o36  3sss26o0isssssssss2C0hbD+_telt R"aci)ci moxaht lgdamOEs(B      2 AatardXD 
  1555. i5sX,4R oBlX6uu3pDmc).te1cei1i   
  1556. i5sX,4R oBlRr  7a7   DC, 4077f4SRcaRRM DDe2H05elt 0yicC2IR   D18cit DDCRSelit Case it ROEs(B   D4SRcaRRM DDe2H05elt 0yicC2IR   D18cit DDCRSelit Cas6pDmc).te1ceC<.ase itielt dddddddid5D18cit DDCRSelit Cas6pDmc).te1ceC<.ase itiel  uoBlt yDAl21 moxaEo DDCa2dddddddid5D18cit DDCRSelit Cas6pDmc).te1ceC<.ase itiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBiel  uoBie