module1.bas

虚拟城市游戏

Case 19
BitBlt Form1.BGPB2.hDC, (i - 1) * 13, ii * 13, 13, 14, GFX.rUDM.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, (i - 1) * 13, ii * 13, 13, 14, GFX.rUDs.hDC, 0, 0, SRCCOPY
Case 20
BitBlt Form1.BGPB2.hDC, (i - 1) * 13, ii * 13, 13, 14, GFX.RoadIm.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, (i - 1) * 13, ii * 13, 13, 14, GFX.RoadIs.hDC, 0, 0, SRCCOPY
End Select
Select Case T(i, ii - 1).StructureID
Case 10
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT4M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT4s.hDC, 0, 0, SRCCOPY
Case 11
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT1M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT1s.hDC, 0, 0, SRCCOPY
Case 12
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC3M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC3s.hDC, 0, 0, SRCCOPY
Case 13
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC4M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC4s.hDC, 0, 0, SRCCOPY
Case 14
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rLRM.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rLRs.hDC, 0, 0, SRCCOPY
Case 15
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT2M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT2s.hDC, 0, 0, SRCCOPY
Case 16
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT3M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rT3s.hDC, 0, 0, SRCCOPY
Case 17
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC1M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC1s.hDC, 0, 0, SRCCOPY
Case 18
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC2M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rC2s.hDC, 0, 0, SRCCOPY
Case 19
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rUDM.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.rUDs.hDC, 0, 0, SRCCOPY
Case 20
BitBlt Form1.BGPB2.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.RoadIm.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, (ii - 1) * 13, 13, 14, GFX.RoadIs.hDC, 0, 0, SRCCOPY
End Select

Case 21
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BR1M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BR1s.hDC, 0, 0, SRCCOPY
Case 22
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BR2M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BR2s.hDC, 0, 0, SRCCOPY
Case 23
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BR3M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BR3s.hDC, 0, 0, SRCCOPY
Case 24
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BR4M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BR4s.hDC, 0, 0, SRCCOPY
Case 25
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BC1M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BC1s.hDC, 0, 0, SRCCOPY
Case 26
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BC2M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BC2s.hDC, 0, 0, SRCCOPY
Case 27
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BC3M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BC3s.hDC, 0, 0, SRCCOPY
Case 28
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BI1M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BI1s.hDC, 0, 0, SRCCOPY
Case 29
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BI2M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BI2s.hDC, 0, 0, SRCCOPY
Case 30
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.BI3M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.BI3s.hDC, 0, 0, SRCCOPY
Case 31
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.ESM.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.ES1.hDC, 0, 0, SRCCOPY
Case 32
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 29, 29, GFX.ESM.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 29, 29, GFX.ES2.hDC, 0, 0, SRCCOPY
Case 33
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 26, 27, GFX.Tree1M.hDC, 0, 0, SRCCOPY
Select Case CurrentSeason
Case 1
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.Tree1sW.hDC, 0, 0, SRCCOPY
Case 2, 3
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.Tree1sSS.hDC, 0, 0, SRCCOPY
Case 4
Select Case T(i, ii).ColorFlag
Case 1: BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.Tree1sF.hDC, 0, 0, SRCCOPY
Case Else: BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 14, GFX.Tree1sF2.hDC, 0, 0, SRCCOPY
End Select
End Select
Case 34
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 26, 27, GFX.Tree2M.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.Tree2s.hDC, 0, 0, SRCCOPY
Case 35
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 26, 27, GFX.BusM.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.BusS.hDC, 0, 0, SRCCOPY
Case 36
Select Case T(i, ii).ClassFlag
Case 0
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 13, 13, GFX.GC1(5).hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.GC1(0).hDC, 0, 0, SRCCOPY
Case 1
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 13, 13, GFX.GC1(4).hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.GC1(1).hDC, 0, 0, SRCCOPY
Case 2
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 13, 13, GFX.GC1(3).hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, GFX.GC1(2).hDC, 0, 0, SRCCOPY
End Select
Case 100
BitBlt Form1.BGPB2.hDC, i * 13, ii * 13, 13, 13, Form1.Blank.hDC, 0, 0, SRCCOPY
BitBlt Form1.BGPB.hDC, i * 13, ii * 13, 13, 13, Form1.BlackBird.hDC, 0, 0, SRCCOPY
End Select
Next
Next

Drawing = False
End Sub
Sub DoCURS(X As Integer, Y As Integer, Dest As Object, CNum As Integer, Clevel As Integer, CSize As Integer)
On Error Resume Next
NX2 = (13 * Int(X / 13)) - 1
NY2 = (13 * Int(Y / 13)) - 1

Select Case CSize
Case 1

    BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.cur2M.hDC, 0, 0, SRCAND
    
    Select Case CNum
    Case 1
        Select Case Clevel
            Case 1: BitBlt Dest.hDC, NX2, NY2, 15, 15, GFX.CA2.hDC, 0, 0, SRCPAINT
            Case 2: BitBlt Dest.hDC, NX2, NY2, 15, 15, GFX.c31.hDC, 0, 0, SRCPAINT
            Case 3: BitBlt Dest.hDC, NX2, NY2, 15, 15, GFX.c32.hDC, 0, 0, SRCPAINT
        End Select
    Case 2
        Select Case Clevel
            Case 1: BitBlt Dest.hDC, NX2, NY2, 15, 15, GFX.CA2.hDC, 0, 0, SRCPAINT
            Case 2: BitBlt Dest.hDC, NX2, NY2, 15, 15, GFX.c41.hDC, 0, 0, SRCPAINT
            Case 3: BitBlt Dest.hDC, NX2, NY2, 15, 15, GFX.c42.hDC, 0, 0, SRCPAINT
        End Select
    End Select
    
Case 2

    BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.curM.hDC, 0, 0, SRCAND
    Select Case CNum
    Case 1
        Select Case Clevel
            Case 1: BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.CA1.hDC, 0, 0, SRCPAINT
            Case 2: BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.C11.hDC, 0, 0, SRCPAINT
            Case 3: BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.C12.hDC, 0, 0, SRCPAINT
        End Select
    Case 2
        Select Case Clevel
            Case 1: BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.CA1.hDC, 0, 0, SRCPAINT
            Case 2: BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.C21.hDC, 0, 0, SRCPAINT
            Case 3: BitBlt Dest.hDC, NX2, NY2, 29, 29, GFX.C22.hDC, 0, 0, SRCPAINT
        End Select
    End Select
    
End Select
End Sub

Sub bmp_rotate(pic1 As PictureBox, pic2 As PictureBox, ByVal theta As Single)
On Error Resume Next
    'Rotate the image in a picture box.

    'pic1 is the picture box with the bitmap to rotate

    'pic2 is the picture box to receive the rotated bitmap

    'theta is the angle of rotation

    
    Dim c1x As Integer, c1y As Integer
    Dim c2x As Integer, c2y As Integer
    Dim a As Single
    Dim p1x As Integer, p1y As Integer
    Dim p2x As Integer, p2y As Integer
    Dim n As Integer, R As Integer
    Dim c0 As Long, c1 As Long, C2 As Long, c3 As Long
    
    c1x = pic1.ScaleWidth \ 2
    c1y = pic1.ScaleHeight \ 2
    c2x = pic2.ScaleWidth \ 2
    c2y = pic2.ScaleHeight \ 2
    If c2x < c2y Then n = c2y Else n = c2x
    n = n - 1
    pic1hDC = pic1.hDC
    pic2hDC = pic2.hDC


    For p2x = 0 To n / 2 ': DoEvents


        For p2y = 0 To n / 2
            If p2x = 0 Then a = Pi / 2 Else a = Atn(p2y / p2x)
            R = Sqr(1& * p2x * p2x + 1& * p2y * p2y)
            p1x = R * Cos(a + theta!)
            p1y = R * Sin(a + theta!)
            c0& = pic1.Point(c1x + p1x, c1y + p1y)
            c1& = pic1.Point(c1x - p1x, c1y - p1y)
            C2& = pic1.Point(c1x + p1y, c1y - p1x)
            c3& = pic1.Point(c1x - p1y, c1y + p1x)
            If c0& <> -1 Then pic2.PSet (c2x + p2x, c2y + p2y), c0&
            If c1& <> -1 Then pic2.PSet (c2x - p2x, c2y - p2y), c1&
            If C2& <> -1 Then pic2.PSet (c2x + p2y, c2y - p2x), C2&
            If c3& <> -1 Then pic2.PSet (c2x - p2y, c2y + p2x), c3&
        Next

        
        
    Next

End Sub