home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / menace / map.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-07-10  |  4.7 KB  |  154 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Menace Map editor"
  5.    ClientHeight    =   2670
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7230
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2670
  13.    ScaleWidth      =   7230
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.HScrollBar HScroll2 
  17.       Height          =   255
  18.       Left            =   105
  19.       Max             =   12
  20.       TabIndex        =   5
  21.       Top             =   2325
  22.       Width           =   7035
  23.    End
  24.    Begin VB.PictureBox Picture2 
  25.       Height          =   1800
  26.       Left            =   120
  27.       ScaleHeight     =   116
  28.       ScaleMode       =   3  'Pixel
  29.       ScaleWidth      =   464
  30.       TabIndex        =   4
  31.       Top             =   450
  32.       Width           =   7020
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       AutoRedraw      =   -1  'True
  36.       AutoSize        =   -1  'True
  37.       Height          =   330
  38.       Left            =   5175
  39.       Picture         =   "map.frx":0000
  40.       ScaleHeight     =   18
  41.       ScaleMode       =   3  'Pixel
  42.       ScaleWidth      =   126
  43.       TabIndex        =   2
  44.       Top             =   45
  45.       Width           =   1950
  46.    End
  47.    Begin VB.HScrollBar HScroll1 
  48.       Height          =   270
  49.       Left            =   1440
  50.       Max             =   40
  51.       Min             =   1
  52.       TabIndex        =   1
  53.       Top             =   75
  54.       Value           =   1
  55.       Width           =   1245
  56.    End
  57.    Begin VB.Label Label2 
  58.       Caption         =   "Left             Right"
  59.       Height          =   255
  60.       Left            =   3240
  61.       TabIndex        =   3
  62.       Top             =   105
  63.       Width           =   1695
  64.    End
  65.    Begin VB.Label Label3 
  66.       Caption         =   "Current Map 1"
  67.       Height          =   210
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   90
  71.       Width           =   1215
  72.    End
  73. Attribute VB_Name = "Form1"
  74. Attribute VB_GlobalNameSpace = False
  75. Attribute VB_Creatable = False
  76. Attribute VB_PredeclaredId = True
  77. Attribute VB_Exposed = False
  78. Dim mapnum%
  79. Dim cell%(40, 8)
  80. Dim lb%, rb%, dwn%
  81. Private Sub Form_Load()
  82. mapnum% = 1
  83. loadmap
  84. End Sub
  85. Private Sub Form_Unload(Cancel As Integer)
  86. savemap
  87. End Sub
  88. Private Sub HScroll1_Change()
  89. Label3.Caption = "Current Map " & HScroll1.Value
  90. If mapnum% > 0 Then savemap
  91. mapnum% = HScroll1.Value
  92. loadmap
  93. End Sub
  94. Private Sub HScroll2_Change()
  95. Picture2_Paint
  96. End Sub
  97. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  98.     If Button = 1 Then
  99.         lb% = x \ 18
  100.         u& = BitBlt(hdc, 243, 5, 18, 18, Picture1.hdc, lb% * 18, 0, SRCCOPY)
  101.     ElseIf Button = 2 Then
  102.         rb% = x \ 18
  103.         u& = BitBlt(hdc, 292, 5, 18, 18, Picture1.hdc, rb% * 18, 0, SRCCOPY)
  104.     End If
  105. End Sub
  106. Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  107. dwn% = True
  108. End Sub
  109. Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  110. If dwn% Then
  111.     x = x \ 18: y = y \ 18
  112.     If Button = 1 Then
  113.         cell%(x + HScroll2.Value, y) = lb%
  114.         u& = BitBlt(Picture2.hdc, x * 18, y * 18, 18, 18, Picture1.hdc, cell%(x + HScroll2.Value, y) * 18, 0, SRCCOPY)
  115.     Else
  116.         cell%(x + HScroll2.Value, y) = rb%
  117.         u& = BitBlt(Picture2.hdc, x * 18, y * 18, 18, 18, Picture1.hdc, cell%(x + HScroll2.Value, y) * 18, 0, SRCCOPY)
  118.     End If
  119. End If
  120. End Sub
  121. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  122. dwn% = False
  123. End Sub
  124. Private Sub Picture2_Paint()
  125. '29 wide '21 high
  126. For a% = 0 To 28
  127.     For b% = 0 To 5
  128.         u& = BitBlt(Picture2.hdc, a% * 18, b% * 18, 18, 18, Picture1.hdc, cell%(a% + HScroll2.Value, b%) * 18, 0, SRCCOPY)
  129.     Next
  130. u& = BitBlt(hdc, 243, 5, 18, 18, Picture1.hdc, lb% * 18, 0, SRCCOPY)
  131. u& = BitBlt(hdc, 292, 5, 18, 18, Picture1.hdc, rb% * 18, 0, SRCCOPY)
  132. End Sub
  133. Sub loadmap()
  134. Open App.Path & "\map.dat" For Random As #1 Len = 2
  135. nfile% = LOF(1) / 2
  136. For a% = 0 To 39
  137.     For b% = 0 To 5
  138.         Get #1, 1 + (a% + (b% * 40)) + (mapnum% - 1) * 2500, cell(a%, b%)
  139.     Next
  140. Picture2_Paint
  141. Close
  142. End Sub
  143. Sub savemap()
  144. Open App.Path & "\map.dat" For Random As #1 Len = 2
  145. For a% = 0 To 39
  146.     For b% = 0 To 5
  147.         Put #1, 1 + (a% + (b% * 40)) + (mapnum% - 1) * 2500, cell(a%, b%)
  148.     Next
  149. Close
  150. End Sub
  151. Private Sub VScroll1_Change()
  152. Picture2_Paint
  153. End Sub
  154.